Diff for /rpl/src/formateur_fichiers.c between versions 1.41 and 1.51

version 1.41, 2012/04/13 14:12:48 version 1.51, 2013/03/08 14:55:38
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.8    RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2013 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 1496  formateur_fichier(struct_processus *s_et Line 1496  formateur_fichier(struct_processus *s_et
                         return(NULL);                          return(NULL);
                     }                      }
   
                     position_3 = strlen(format_chaine);                      position_3 = strlen(format_chaine) - 1;
                     format_chaine[--position_3] = d_code_fin_chaine;  
                       if (format_chaine[position_3] != ')')
                       {
                           free(chaine);
                           free(format_chaine);
   
                           (*s_etat_processus).erreur_execution =
                                   d_ex_erreur_format_fichier;
                           return(NULL);
                       }
   
                       format_chaine[position_3] = d_code_fin_chaine;
   
                     position_2 = position_1;                      position_2 = position_1;
   
Line 2719  formateur_fichier(struct_processus *s_et Line 2730  formateur_fichier(struct_processus *s_et
          * Longueur : (pour l'instruction backspace)           * Longueur : (pour l'instruction backspace)
          *           *
          * 00 XXXXXX                longueur sur 6 bits           * 00 XXXXXX                longueur sur 6 bits
          * 01 XXXXXX                longueur sur 16 bits           * 01 000000                longueur sur 16 bits
          * 10 XXXXXX                longueur sur 32 bits           * 10 000000                longueur sur 32 bits
          * 11 XXXXXX                longueur sur 64 bits           * 11 000000                longueur sur 64 bits
          *           *
          * Exemples :           * Exemples :
          * [00 XXXXXX]           * [00 XXXXXX]
Line 3914  formateur_fichier(struct_processus *s_et Line 3925  formateur_fichier(struct_processus *s_et
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Complexe    Complexe
     Poids fort 0001 10
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
Line 4018  formateur_fichier(struct_processus *s_et Line 4030  formateur_fichier(struct_processus *s_et
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Entier    Entier
     Poids fort 0001 00
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
Line 5211  formateur_fichier(struct_processus *s_et Line 5224  formateur_fichier(struct_processus *s_et
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Réel    Réel
     Poids fort 0001 01
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
Line 5831  formateur_fichier_reel(struct_processus Line 5845  formateur_fichier_reel(struct_processus
                 }                  }
             }              }
         }          }
   
         strcpy(chaine, tampon);          strcpy(chaine, tampon);
     }      }
   

Removed from v.1.41  
changed lines
  Added in v.1.51


CVSweb interface <joel.bertrand@systella.fr>