[BACK]Return to compilation.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/compilation.c between versions 1.2 and 1.13

version 1.2, 2010/01/27 22:22:09 version 1.13, 2010/07/14 14:19:33
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.10    RPL/2 (R) version 4.0.18
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2010 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 72  compilation(struct_processus *s_etat_pro Line 72  compilation(struct_processus *s_etat_pro
   
     (*s_etat_processus).position_courante = 0;      (*s_etat_processus).position_courante = 0;
   
   
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Recheche des définitions    Recheche des définitions
Line 1687  conversion_majuscule(unsigned char *chai Line 1686  conversion_majuscule(unsigned char *chai
     return(chaine_convertie);      return(chaine_convertie);
 }  }
   
   void
   conversion_majuscule_limitee(unsigned char *chaine_entree,
           unsigned char *chaine_sortie, unsigned long longueur)
   {
       unsigned long           i;
   
       for(i = 0; i < longueur; i++)
       {
           if (isalpha((*chaine_entree)))
           {
               (*chaine_sortie) = (unsigned char) toupper((*chaine_entree));
           }
           else
           {
               (*chaine_sortie) = (*chaine_entree);
           }
   
           if ((*chaine_entree) == d_code_fin_chaine)
           {
               break;
           }
   
           chaine_entree++;
           chaine_sortie++;
       }
   
       return;
   }
   
   
 /*  /*
 ================================================================================  ================================================================================
Removed from v.1.2  
changed lines
  Added in v.1.13

CVSweb interface <joel.bertrand@systella.fr>