Florian Moraru PROGRAMAREA CALCULATOARELOR în limbajul C

- functie care prelucreazã o directivã define, prin extragerea celor douã siruri;
- functie care ignorã spatii albe succesive de la o adresã datã.
Urmeazã implementarea a douã dintre aceste functii:
// cauta urmatorul identificator dintr-un sir dat s
// rezultat adresa imediat urmatoare ; nume depus la "id"
char * nxtid ( char * adr, char * rez) {
while ( *adr && ! isalpha(*adr) ) // ignora caracterele care nu sunt litere
++adr;
if (*adr==0) // daca sfarsit sir “adr”
return 0; // 0 daca nu mai sunt identificatori
*rez++=*adr++; // prima litera
while (*adr && (isalpha(*adr)|| isdigit(*adr)) ) // muta in rez litere si cifre
*rez++=*adr++;
*rez=0; // terminator sir de la adresa “rez”
return adr; // adresa urmatoare cuvantului gasit
}
// inlocuieste n1 caractere la adresa s1 prin n2 caractere de la adresa s2
void subst (char* s1, int n1, char * s2, int n2) {
char t[256]; int m;
// sterge n1 caractere de la adresa s1
m=strlen(s1);
if (m < n1) n1=m; // daca sunt mai putin de n1 caractere in s1
strcpy (s1, s1+n1); // stergere prin deplasare la stanga caractere
// introduce la s1 n2 caractere de la adresa s2
strncpy(t,s2,n2); t[n2]=0; // copiere n2 octeti de la s2 la t
strcpy(s1,strcat(t,s1)); // copiere sir din t la s1 dupa concatenare
}
Programul principal este destul de lung în acest caz, dar definirea altor functii nu ar
aduce avantaje (ele ar avea cam multe argumente sau ar folosi variabile globale):
int main () {
char lin[128], * p, *q; // in “lin” se citeste o linie
char * def ="#define"; // sir care incepe o directiva define
char s1[128]={0}, s2[128]={0}; // s1 se va inlocui cu s2
char *tid[20], *ts[20]; // un vector de identificatori si un vector de siruri
int i,nd=0; // numar de definitii (de directive define)
char id[256]; // un identificator
FILE * f;
f=fopen("test.txt","r"); // un fisier de test
assert (f 1= NULL); // se iese daca nu exista acest fisier
while ( fgets (lin,128,f) ) { // citeste o linie din fisier (terminata cu ‘\n’)
lin[strlen(lin)-1]=0; // elimina '\n' din sirul s2
p=skip(p=lin); // ignora spatii la inceput de linie
if (strncmp (def,p,7)==0) { // daca e o directiva "define"
pdef (lin,s1,s2); // extrage identificator in s1 si al doilea sir in
s2
tid[nd]=strdup(s1); // pune s1 in vectorul “tid”