version 1.18, 2011/11/26 10:01:26
|
version 1.24, 2012/06/12 11:44:34
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.5 |
RPL/2 (R) version 4.1.9 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 240 formateur_flux(struct_processus *s_etat_
|
Line 240 formateur_flux(struct_processus *s_etat_
|
|
|
return(chaine); |
return(chaine); |
} |
} |
|
|
|
|
|
/* |
|
================================================================================ |
|
Routine de d'analyse d'un flux |
|
================================================================================ |
|
Entrées : structure sur l'état du processus et objet à afficher |
|
-------------------------------------------------------------------------------- |
|
Sorties : chaine de caractères |
|
-------------------------------------------------------------------------------- |
|
Effets de bord : néant |
|
================================================================================ |
|
*/ |
|
|
|
unsigned char * |
|
analyse_flux(struct_processus *s_etat_processus, unsigned char *donnees, |
|
long *longueur) |
|
{ |
|
long offset; |
|
|
|
unsigned char *chaine; |
|
unsigned char hexadecimal[3]; |
|
unsigned char *ptr_ecriture; |
|
unsigned char *ptr_lecture; |
|
|
|
if ((chaine = malloc(((*longueur) = (strlen(donnees)) + 1) |
|
* sizeof(unsigned char))) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
|
return(NULL); |
|
} |
|
|
|
ptr_lecture = donnees; |
|
ptr_ecriture = chaine; |
|
|
|
while((*ptr_lecture) != d_code_fin_chaine) |
|
{ |
|
(*longueur)++; |
|
|
|
// Début de la séquence d'échappement |
|
|
|
switch((*ptr_lecture)) |
|
{ |
|
case '"': |
|
case '\b': |
|
case '\n': |
|
case '\t': |
|
{ |
|
offset = ptr_ecriture - chaine; |
|
|
|
if ((chaine = realloc(chaine, ((*longueur) = (*longueur) + 1) |
|
* sizeof(unsigned char))) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_allocation_memoire; |
|
return(NULL); |
|
} |
|
|
|
ptr_ecriture = chaine + offset; |
|
*ptr_ecriture++ = '\\'; |
|
*ptr_ecriture++ = *ptr_lecture++; |
|
(*longueur)++; |
|
break; |
|
} |
|
|
|
case ' ': |
|
{ |
|
*ptr_ecriture++ = *ptr_lecture++; |
|
break; |
|
} |
|
|
|
default: |
|
{ |
|
if (isgraph((*ptr_lecture))) |
|
{ |
|
*ptr_ecriture++ = *ptr_lecture++; |
|
} |
|
else |
|
{ |
|
offset = ptr_ecriture - chaine; |
|
|
|
if ((chaine = realloc(chaine, ((*longueur) = (*longueur) |
|
+ 3) * sizeof(unsigned char))) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_allocation_memoire; |
|
return(NULL); |
|
} |
|
|
|
ptr_ecriture = chaine + offset; |
|
*ptr_ecriture++ = '\\'; |
|
*ptr_ecriture++ = 'x'; |
|
|
|
sprintf(hexadecimal, "%02X", *ptr_lecture++); |
|
|
|
*ptr_ecriture++ = hexadecimal[0]; |
|
*ptr_ecriture++ = hexadecimal[1]; |
|
(*longueur) += 3; |
|
} |
|
|
|
break; |
|
} |
|
} |
|
} |
|
|
|
(*ptr_ecriture) = d_code_fin_chaine; |
|
|
|
return(chaine); |
|
} |
|
|
|
|
/* |
/* |