rpl/src/formateur_flux.c - diff

Return to formateur_flux.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/formateur_flux.c between versions 1.16 and 1.17

-version 1.16, 2011/11/18 10:54:21
+version 1.17, 2011/11/19 17:53:46
  Line 599  longueur_chaine(struct_processus *s_etat
  ================================================================================
    Routine retournant un pointeur sur le i-ème caractère d'une chaîne
  ================================================================================
-   Entrées : structure sur l'état du processus et chaîne
+   Entrées : structure sur l'état du processus, chaîne et position du caractère
  --------------------------------------------------------------------------------
-   Sorties : longueur de la chaîne
+   Sorties : pointeur sur le caractère
  --------------------------------------------------------------------------------
    Effets de bord : néant
  ================================================================================
  Line 633  pointeur_ieme_caractere(struct_processus
      return(pointeur);
  }
+ /*
+ ================================================================================
+   Routine retournant la position du caractère en fonction du pointeur
+   dans la chaîne
+ ================================================================================
+   Entrées : structure sur l'état du processus, chaîne et position
+ --------------------------------------------------------------------------------
+   Sorties : quantième dans la chaîne
+ --------------------------------------------------------------------------------
+   Effets de bord : néant
+ ================================================================================
+ */
+ integer8
+ position_caractere_de_chaine(struct_processus *s_etat_processus,
+         unsigned char *chaine, unsigned char *position)
+ {
+     integer8            i;
+     i = 1;
+     while(chaine != position)
+     {
+         chaine = prochain_caractere(s_etat_processus, chaine);
+         i++;
+         if ((*chaine) == d_code_fin_chaine)
+         {
+             return(0);
+         }
+     }
+     return(i);
+ }
+ /*
+ ================================================================================
+   Conversion d'une chaîne en majuscule ou en minuscule
+ ================================================================================
+   Entrées : chaîne et indicateur ('M' pour majuscules, 'm' pour minuscules)
+ --------------------------------------------------------------------------------
+   Sorties : néant
+ --------------------------------------------------------------------------------
+   Effets de bord : néant
+ ================================================================================
+ */
+ void
+ conversion_chaine(struct_processus *s_etat_processus,
+         unsigned char *chaine, unsigned char type)
+ {
+     int                 (*fonction_1)(int);
+     int                 (*fonction_2)(int);
+     unsigned char       *ptr;
+     unsigned char       *ptr2;
+     unsigned char       registre;
+     if (type == 'M')
+     {
+         fonction_1 = toupper;
+         fonction_2 = tolower;
+     }
+     else
+     {
+         fonction_1 = tolower;
+         fonction_2 = toupper;
+     }
+     ptr = chaine;
+     while((*ptr) != d_code_fin_chaine)
+     {
+         ptr2 = prochain_caractere(s_etat_processus, ptr);
+         if ((ptr2 - ptr) == 1)
+         {
+             registre = fonction_1((*ptr));
+             if (fonction_2(registre) == (*ptr))
+             {
+                 (*ptr) = registre;
+             }
+         }
+         ptr = ptr2;
+     }
+     return;
+ }
  // vim: ts=4

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.16
changed lines
	Added in v.1.17