DUzun's Web
Programare, proiecte personale, divertisment

DUzun it's ME
 
\ 08 aprilie 2025, 10:17:28 \  
Conținut

num_str.cpp

x
 
#ifndef num_strCPP
#define num_strCPP
#include "Funcs.h"
#include "num_str.h"
/*----------------------------------------------------------------------------*/
/* Function */
/*----------------------------------------------------------------------------*/
short byte2str(char b, char* s=NULL) // Hex
{
  char r[2]={num2chr(b>>4),num2chr(b)};
  if(s)p2i(s)=p2i(r); return(r[0]<<8)|r[1];
}
/*----------------------------------------------------------------------------*/
long word2str(short w, char* s=NULL) // Hex
{
  char r[4]={num2chr(w>>12),num2chr(w>>8),num2chr(w>>4),num2chr(w)};
  if(s)p2l(s)=p2l(r); return(r[0]<<24)|(r[1]<<16)|(r[2]<<8)|(r[3]);
}
/*----------------------------------------------------------------------------*/
signed short str2byte(short s) // Hex
{
   signed short r=chr2num(p2pc(&s)[1]);
   if(r&short_Sign) return short_Sign;
   r = ((r)<<4) | chr2num(p2pc(&s)[0]);
   return r;
}
/*----------------------------------------------------------------------------*/
signed long str2word(long s) // Hex
{
   signed short r1, r2;
   r1 = str2byte(p2pi(&s)[1]); if(r1&short_Sign) return long_Sign;
   r2 = str2byte(p2pi(&s)[0]); if(r2&short_Sign) return long_Sign;
   return r2 | (r1<<8);
}
/*----------------------------------------------------------------------------*/
signed short sstr2byte(char* s) // Hex
{
   signed short r=chr2num(s[0]);
   if(r&short_Sign) return short_Sign;
   r = ((r)<<4) | chr2num(s[1]);
   return r;
}
/*----------------------------------------------------------------------------*/
signed long sstr2word(char* s) // Hex
{
   signed short r1, r2;
   r1 = sstr2byte(s);   if(r1&short_Sign) return long_Sign;
   r2 = sstr2byte(s+2); if(r2&short_Sign) return long_Sign;
   return r2 | (r1<<8);
}
/*----------------------------------------------------------------------------*/
unsigned long str2num(char* s, char len=0) // Hex
{
   unsigned long r = 0;
   if(!len) len  = strlen(s);
   if(len>8) len = 8;
   while(len--){ r<<=4; r|=chr2num(*s++); }
   return r;
};
/*----------------------------------------------------------------------------*/
char num2str(long n, char* buf) // Hex
{
  long m = 0xF0000000;
  char c = 7, r;
  while(!(m&n)){m>>=4;c--;}
  buf[c+1] = 0x00;
  r = c;
  do{ buf[c] = num2chr(n); n>>=4; }while(c--);
  return r;
};
/*----------------------------------------------------------------------------*/
TNumFormat str2numf(char *s, long* res, char len=0)
{
   TNumFormat format = N_Hex; // potential decimal number
   char b, e;
   short c;
   len = len?len:strlen(s);
   if(!len || len>11) return N_NaN;
   b = 0;
   e = len-1;
   res[0] = 0;
   switch(s[e])
   {
     case 'h':
     case 'L':
        format |= N_Hex;
        break;
     default:
        format |= N_Dec;
        e++;
   }
   if(s[0]=='0' && s[1]=='x')
   {
      b += 2;
      format |= N_Hex;
      format ^= N_Dec;
   }
   format |= N_NrDigit&(e-b);
   if(format&N_Hex)
   {
     while( (b<e) && !(short_Sign&(c=chr2num(s[b++]))) )
     {
        *res <<= 4;
        *res |= c;
        if(c>9)format &= ~N_Dec;
     }
     if(short_Sign&c) return N_NaN;
     return format;
   }
   else if(format&N_Dec)/*???*/
   {
// Never reaches 
   }
   else return N_NaN;
}
/*----------------------------------------------------------------------------*/
#endif

Aici acumulez programe şi algoritmi interesanti alcătuiţi de mine (cu mici excepţii) pe parcursul studierii unor limbaje de programare.

Cea mai mare parte din ele sunt realizate în Pascal. 

Nu am scopul creării unui curs specializat sau a descrierii detaliate a anumitor limbaje, ci doar prezint informaţii utile, plus ceva exemple interesante...

 

Răsfoitorul de fișiere (File Browser):

Codul sursă al programelor este organizat în mape şi fişiere.

Paginile care conțin cod sursă de programe de regulă au un răsfoitor de fișiere în partea stangă a paginii reprezentat de un bloc cu titlul „File Browser”.

Pentru a vizualiza un program sau conţinutul unei mape, faceţi click pe numele fişierului / mapei. Dacă fişierul nu este textual, el se va descărca automat, iar dacă este textual, conținutul lui se va afișa într-un bloc pe centrul paginii.

Pentru a descărca un fişier, faceţi click pe dimensiunea (size) lui.

arr_d Limba / Language


 


arr_r Login
 
 
Loading...