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

Diff for /rpl/src/interface_tex.c between versions 1.49 and 1.65

version 1.49, 2013/06/21 14:15:56 version 1.65, 2017/06/28 09:20:37
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.15    RPL/2 (R) version 4.1.27
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2017 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 582  formateur_elementaire_tex(struct_process Line 582  formateur_elementaire_tex(struct_process
   
         if ((*s_etat_processus).instruction_valide == 'Y')          if ((*s_etat_processus).instruction_valide == 'Y')
         {          {
             if ((instruction_majuscule = conversion_majuscule(              if ((instruction_majuscule = conversion_majuscule(s_etat_processus,
                     (*s_etat_processus).instruction_courante)) == NULL)                      (*s_etat_processus).instruction_courante)) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 1574  formateur_elementaire_tex(struct_process Line 1574  formateur_elementaire_tex(struct_process
   
                             chaine_parametre = (unsigned char *)                              chaine_parametre = (unsigned char *)
                                     (*s_sous_objet_1).objet;                                      (*s_sous_objet_1).objet;
                             conversion_element_tex(&chaine_parametre, "^");                              conversion_element_tex(s_etat_processus,
                                       &chaine_parametre, "^");
   
                             if ((*s_sous_objet_1).objet == NULL)                              if ((*s_sous_objet_1).objet == NULL)
                             {                              {
Line 1602  formateur_elementaire_tex(struct_process Line 1603  formateur_elementaire_tex(struct_process
                         {                          {
                             chaine_parametre = (unsigned char *)                              chaine_parametre = (unsigned char *)
                                     (*s_sous_objet_1).objet;                                      (*s_sous_objet_1).objet;
                             conversion_element_tex(&chaine_parametre,                              conversion_element_tex(s_etat_processus,
                                     (*((struct_fonction *)                                      &chaine_parametre, (*((struct_fonction *)
                                     (*(*l_element_courant).donnee).objet))                                      (*(*l_element_courant).donnee).objet))
                                     .nom_fonction);                                      .nom_fonction);
   
Line 1616  formateur_elementaire_tex(struct_process Line 1617  formateur_elementaire_tex(struct_process
   
                             chaine_parametre = (unsigned char *)                              chaine_parametre = (unsigned char *)
                                     (*s_sous_objet_2).objet;                                      (*s_sous_objet_2).objet;
                             conversion_element_tex(&chaine_parametre,                              conversion_element_tex(s_etat_processus,
                                     (*((struct_fonction *)                                      &chaine_parametre, (*((struct_fonction *)
                                     (*(*l_element_courant).donnee).objet))                                      (*(*l_element_courant).donnee).objet))
                                     .nom_fonction);                                      .nom_fonction);
   
Line 1700  formateur_elementaire_tex(struct_process Line 1701  formateur_elementaire_tex(struct_process
                             {                              {
                                 chaine_parametre = (unsigned char *)                                  chaine_parametre = (unsigned char *)
                                         (*s_sous_objet_1).objet;                                          (*s_sous_objet_1).objet;
                                 conversion_element_tex(&chaine_parametre,                                  conversion_element_tex(s_etat_processus,
                                           &chaine_parametre,
                                         (*((struct_fonction *)                                          (*((struct_fonction *)
                                         (*(*l_element_courant).donnee).objet))                                          (*(*l_element_courant).donnee).objet))
                                         .nom_fonction);                                          .nom_fonction);
Line 1714  formateur_elementaire_tex(struct_process Line 1716  formateur_elementaire_tex(struct_process
   
                                 chaine_parametre = (unsigned char *)                                  chaine_parametre = (unsigned char *)
                                         (*s_sous_objet_2).objet;                                          (*s_sous_objet_2).objet;
                                 conversion_element_tex(&chaine_parametre,                                  conversion_element_tex(s_etat_processus,
                                           &chaine_parametre,
                                         (*((struct_fonction *)                                          (*((struct_fonction *)
                                         (*(*l_element_courant).donnee).objet))                                          (*(*l_element_courant).donnee).objet))
                                         .nom_fonction);                                          .nom_fonction);
Line 2052  formateur_elementaire_tex(struct_process Line 2055  formateur_elementaire_tex(struct_process
   
                     free(chaine_sauvegarde);                      free(chaine_sauvegarde);
   
                     chaine_majuscule = conversion_majuscule((*((struct_nom *)                      chaine_majuscule = conversion_majuscule(s_etat_processus,
                             (*(*l_element_courant).donnee).objet)).nom);                              (*((struct_nom *) (*(*l_element_courant).donnee)
                               .objet)).nom);
   
                     if (strcmp(chaine_majuscule, "PI") == 0)                      if (strcmp(chaine_majuscule, "PI") == 0)
                     {                      {
Line 2335  impression_tex(struct_processus *s_etat_ Line 2339  impression_tex(struct_processus *s_etat_
   
     if ((*s_etat_processus).rpl_home == NULL)      if ((*s_etat_processus).rpl_home == NULL)
     {      {
         if (alsprintf(&commande, ds_tex_commande,          if (alsprintf(s_etat_processus, &commande, ds_tex_commande,
                 d_exec_path, d_exec_path, d_exec_path,                  d_exec_path, d_exec_path, d_exec_path,
                 (*s_etat_processus).nom_fichier_impression,                  (*s_etat_processus).nom_fichier_impression,
                 d_exec_path, d_exec_path,                  d_exec_path, d_exec_path,
Line 2347  impression_tex(struct_processus *s_etat_ Line 2351  impression_tex(struct_processus *s_etat_
             return;              return;
         }          }
   
         if (alsprintf(&executable_candidat, "%s/bin/rpliconv",          if (alsprintf(s_etat_processus, &executable_candidat, "%s/bin/rpliconv",
                 d_exec_path) < 0)                  d_exec_path) < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 2363  impression_tex(struct_processus *s_etat_ Line 2367  impression_tex(struct_processus *s_etat_
   
         free(executable_candidat);          free(executable_candidat);
   
         if (alsprintf(&executable_candidat, "%s/bin/rplfile",          if (alsprintf(s_etat_processus, &executable_candidat, "%s/bin/rplfile",
                 d_exec_path) < 0)                  d_exec_path) < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 2381  impression_tex(struct_processus *s_etat_ Line 2385  impression_tex(struct_processus *s_etat_
     }      }
     else      else
     {      {
         if (alsprintf(&commande, ds_tex_commande,          if (alsprintf(s_etat_processus, &commande, ds_tex_commande,
                 (*s_etat_processus).rpl_home,                  (*s_etat_processus).rpl_home,
                 (*s_etat_processus).rpl_home,                  (*s_etat_processus).rpl_home,
                 (*s_etat_processus).rpl_home,                  (*s_etat_processus).rpl_home,
Line 2396  impression_tex(struct_processus *s_etat_ Line 2400  impression_tex(struct_processus *s_etat_
             return;              return;
         }          }
   
         if (alsprintf(&executable_candidat, "%s/bin/rpliconv",          if (alsprintf(s_etat_processus, &executable_candidat, "%s/bin/rpliconv",
                 (*s_etat_processus).rpl_home) < 0)                  (*s_etat_processus).rpl_home) < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 2412  impression_tex(struct_processus *s_etat_ Line 2416  impression_tex(struct_processus *s_etat_
   
         free(executable_candidat);          free(executable_candidat);
   
         if (alsprintf(&executable_candidat, "%s/bin/rplfile",          if (alsprintf(s_etat_processus, &executable_candidat, "%s/bin/rplfile",
                 (*s_etat_processus).rpl_home) < 0)                  (*s_etat_processus).rpl_home) < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 2438  impression_tex(struct_processus *s_etat_ Line 2442  impression_tex(struct_processus *s_etat_
     {      {
         free(commande);          free(commande);
   
         if (alsprintf(&commande, ds_tex_postscript, nom_fichier_ps) < 0)          if (alsprintf(s_etat_processus, &commande, ds_tex_postscript,
                   nom_fichier_ps) < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
Line 2539  impression_tex(struct_processus *s_etat_ Line 2544  impression_tex(struct_processus *s_etat_
 */  */
   
 void  void
 conversion_element_tex(unsigned char **element, unsigned char *fonction)  conversion_element_tex(struct_processus *s_etat_processus,
           unsigned char **element, unsigned char *fonction)
 {  {
     unsigned char           *chaine;      unsigned char           *chaine;
     unsigned char           *element_courant;      unsigned char           *element_courant;
Line 2562  conversion_element_tex(unsigned char **e Line 2568  conversion_element_tex(unsigned char **e
         {          {
             if (niveau == 0)              if (niveau == 0)
             {              {
                 extrait = extraction_chaine((*element), debut_fonction, i - 1);                  extrait = extraction_chaine(s_etat_processus,
                           (*element), debut_fonction, i - 1);
   
                 if (strcmp(extrait, fonction) != 0)                  if (strcmp(extrait, fonction) != 0)
                 {                  {
Removed from v.1.49  
changed lines
  Added in v.1.65

CVSweb interface <joel.bertrand@systella.fr>