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

Diff for /rpl/src/instructions_r3.c between versions 1.6 and 1.7

version 1.6, 2010/03/05 11:20:08 version 1.7, 2010/03/07 18:33:02
Line 961  instruction_recall(struct_processus *s_e Line 961  instruction_recall(struct_processus *s_e
     int                     caractere;      int                     caractere;
     int                     ios;      int                     ios;
   
       logical1                drapeau_fin;
       logical1                indicateur_48;
       logical1                presence_chaine;
   
     long                    i;      long                    i;
     long                    nombre_caracteres_source;      long                    nombre_caracteres_source;
   
     struct_objet            *s_objet;      struct_objet            *s_objet;
     struct_objet            *s_objet_temporaire;  
   
       unsigned char           autorisation_empilement_programme;
       unsigned char           *chaine;
     unsigned char           *commande;      unsigned char           *commande;
     unsigned char           *executable_candidat;      unsigned char           *executable_candidat;
     unsigned char           *instructions = "%s/bin/rpliconv %s "      unsigned char           *instructions = "%s/bin/rpliconv %s "
Line 976  instruction_recall(struct_processus *s_e Line 981  instruction_recall(struct_processus *s_e
                                     "($2 != \"\") printf(\"-f %%s\", $2); }'` "                                      "($2 != \"\") printf(\"-f %%s\", $2); }'` "
                                     "-t `locale charmap` | %s/bin/%s -o %s";                                      "-t `locale charmap` | %s/bin/%s -o %s";
     unsigned char           *nom_fichier_temporaire;      unsigned char           *nom_fichier_temporaire;
       unsigned char           *tampon_definitions_chainees;
       unsigned char           *tampon_instruction_courante;
   
       unsigned long           position_courante;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 1278  instruction_recall(struct_processus *s_e Line 1287  instruction_recall(struct_processus *s_e
             return;              return;
         }          }
   
         if ((s_objet_temporaire = allocation(s_etat_processus, CHN)) == NULL)          if ((chaine = malloc((nombre_caracteres_source + 1)
         {  
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;  
             return;  
         }  
   
         if (((*s_objet_temporaire).objet = malloc((nombre_caracteres_source + 1)  
                 * sizeof(unsigned char))) == NULL)                  * sizeof(unsigned char))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 1294  instruction_recall(struct_processus *s_e Line 1297  instruction_recall(struct_processus *s_e
         rewind(pipe);          rewind(pipe);
   
         i = 0;          i = 0;
         while((caractere = getc(pipe)) != EOF)          drapeau_fin = d_faux;
           presence_chaine = d_faux;
   
           while(drapeau_fin == d_faux)
         {          {
             if ((caractere == d_code_retour_chariot) ||              if ((caractere = getc(pipe)) != EOF)
                     (caractere == d_code_tabulation))  
             {              {
                 do                  if ((caractere == d_code_retour_chariot) ||
                           (caractere == d_code_tabulation) ||
                           ((caractere == d_code_espace) &&
                           (presence_chaine == d_faux)))
                 {                  {
                     caractere = getc(pipe);                      do
                 } while(((caractere == d_code_retour_chariot) ||                      {
                         (caractere == d_code_tabulation)) &&                          caractere = getc(pipe);
                         (caractere != EOF));                      } while(((caractere == d_code_retour_chariot) ||
                               (caractere == d_code_tabulation) ||
                               ((caractere == d_code_espace) &&
                               (presence_chaine == d_faux))) &&
                               (caractere != EOF));
   
                       if (caractere != EOF)
                       {
                           chaine[i++] = d_code_espace;
                       }
                       else
                       {
                           drapeau_fin = d_vrai;
                       }
                   }
   
                 if (caractere != EOF)                  if ((chaine[i] = caractere) == '\"')
                 {                  {
                     ((unsigned char *) (*s_objet_temporaire).objet)[i++] =                      if (i > 0)
                             d_code_espace;                      {
                           if (chaine[i - 1] != '\\')
                           {
                               presence_chaine = (presence_chaine == d_faux)
                                       ? d_vrai : d_faux;
                           }
                       }
   
                       i++;
                   }
                   else
                   {
                       i++;
                 }                  }
             }              }
               else
             ((unsigned char *) (*s_objet_temporaire).objet)[i++] =              {
                     caractere;                  drapeau_fin = d_vrai;
               }
         }          }
   
         if (caractere == EOF)          if ((caractere == EOF) && (i > 0))
         {          {
             i--;              i--;
         }          }
   
         ((unsigned char *) (*s_objet_temporaire).objet)[i] = d_code_fin_chaine;          chaine[i] = d_code_fin_chaine;
   
         if (fclose(pipe) != 0)          if (fclose(pipe) != 0)
         {          {
Line 1330  instruction_recall(struct_processus *s_e Line 1365  instruction_recall(struct_processus *s_e
             return;              return;
         }          }
   
         if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),          indicateur_48 = test_cfsf(s_etat_processus, 48);
                 s_objet_temporaire) == d_erreur)          cf(s_etat_processus, 48);
   
           tampon_definitions_chainees = (*s_etat_processus).definitions_chainees;
           tampon_instruction_courante = (*s_etat_processus).instruction_courante;
           position_courante = (*s_etat_processus).position_courante;
           autorisation_empilement_programme = (*s_etat_processus)
                   .autorisation_empilement_programme;
   
           (*s_etat_processus).instruction_courante = NULL;
   
           if (((*s_etat_processus).definitions_chainees = transliteration(
                   s_etat_processus, chaine, "UTF-8", d_locale)) == NULL)
         {          {
               if (indicateur_48 == d_vrai)
               {
                   sf(s_etat_processus, 48);
               }
               else
               {
                   cf(s_etat_processus, 48);
               }
   
               if (destruction_fichier(nom_fichier_temporaire) == d_erreur)
               {
                   (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                   return;
               }
   
             free(nom_fichier_temporaire);              free(nom_fichier_temporaire);
               free((*s_etat_processus).instruction_courante);
               free(chaine);
   
               (*s_etat_processus).position_courante = position_courante;
               (*s_etat_processus).instruction_courante =
                       tampon_instruction_courante;
               (*s_etat_processus).definitions_chainees =
                       tampon_definitions_chainees;
               (*s_etat_processus).autorisation_empilement_programme =
                       autorisation_empilement_programme;
   
               liberation(s_etat_processus, s_objet);
             return;              return;
         }          }
   
         instruction_str_fleche(s_etat_processus);          (*s_etat_processus).autorisation_empilement_programme = 'Y';
           (*s_etat_processus).position_courante = 0;
   
           if (analyse_syntaxique(s_etat_processus) == d_erreur)
           {
               if (indicateur_48 == d_vrai)
               {
                   sf(s_etat_processus, 48);
               }
               else
               {
                   cf(s_etat_processus, 48);
               }
   
               if (destruction_fichier(nom_fichier_temporaire) == d_erreur)
               {
                   (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                   return;
               }
   
               free(nom_fichier_temporaire);
               free((*s_etat_processus).instruction_courante);
               free((*s_etat_processus).definitions_chainees);
               free(chaine);
   
               (*s_etat_processus).position_courante = position_courante;
               (*s_etat_processus).instruction_courante =
                       tampon_instruction_courante;
               (*s_etat_processus).definitions_chainees =
                       tampon_definitions_chainees;
               (*s_etat_processus).autorisation_empilement_programme =
                       autorisation_empilement_programme;
   
               liberation(s_etat_processus, s_objet);
               return;
           }
   
           (*s_etat_processus).position_courante = 0;
   
           if (recherche_instruction_suivante(s_etat_processus) !=
                   d_absence_erreur)
           {
               if (indicateur_48 == d_vrai)
               {
                   sf(s_etat_processus, 48);
               }
               else
               {
                   cf(s_etat_processus, 48);
               }
   
               if (destruction_fichier(nom_fichier_temporaire) == d_erreur)
               {
                   (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                   return;
               }
   
               free(nom_fichier_temporaire);
               free((*s_etat_processus).instruction_courante);
               free((*s_etat_processus).definitions_chainees);
               free(chaine);
   
               (*s_etat_processus).position_courante = position_courante;
               (*s_etat_processus).instruction_courante =
                       tampon_instruction_courante;
               (*s_etat_processus).definitions_chainees =
                       tampon_definitions_chainees;
               (*s_etat_processus).autorisation_empilement_programme =
                       autorisation_empilement_programme;
   
               liberation(s_etat_processus, s_objet);
               return;
           }
   
           recherche_type(s_etat_processus);
   
           while((*s_etat_processus).definitions_chainees
                   [(*s_etat_processus).position_courante] != d_code_fin_chaine)
           {
               if ((*s_etat_processus).definitions_chainees
                       [(*s_etat_processus).position_courante++] != d_code_espace)
               {
                   (*s_etat_processus).erreur_execution = d_ex_syntaxe;
               }
           }
   
           free((*s_etat_processus).instruction_courante);
           free((*s_etat_processus).definitions_chainees);
           free(chaine);
   
           (*s_etat_processus).position_courante = position_courante;
           (*s_etat_processus).instruction_courante =
                   tampon_instruction_courante;
           (*s_etat_processus).definitions_chainees =
                   tampon_definitions_chainees;
           (*s_etat_processus).autorisation_empilement_programme =
                   autorisation_empilement_programme;
   
           if (indicateur_48 == d_vrai)
           {
               sf(s_etat_processus, 48);
           }
           else
           {
               cf(s_etat_processus, 48);
           }
   
         if (destruction_fichier(nom_fichier_temporaire) == d_erreur)          if (destruction_fichier(nom_fichier_temporaire) == d_erreur)
         {          {
Removed from v.1.6  
changed lines
  Added in v.1.7

CVSweb interface <joel.bertrand@systella.fr>