Diff for /rpl/src/interface_gnuplot.c between versions 1.3 and 1.4

version 1.3, 2010/02/10 10:14:25 version 1.4, 2010/02/28 14:47:14
Line 23 Line 23
 #include "rpl.conv.h"  #include "rpl.conv.h"
 #include "gnuplot.conv.h"  #include "gnuplot.conv.h"
   
 #ifdef DEBUG  
 #   define fprintf(flux, ...) ({ printf(__VA_ARGS__); \  
         fprintf(flux, __VA_ARGS__); })  
 #endif  
   
   
 /*  /*
 ================================================================================  ================================================================================
Line 221  appel_gnuplot(struct_processus *s_etat_p Line 216  appel_gnuplot(struct_processus *s_etat_p
                             (*l_base_liste).type);                              (*l_base_liste).type);
                     (*(*s_etat_processus).fichiers_graphiques).dimensions =                      (*(*s_etat_processus).fichiers_graphiques).dimensions =
                             (*l_base_liste).dimensions;                              (*l_base_liste).dimensions;
                       (*(*s_etat_processus).fichiers_graphiques).systeme_axes =
                               (*l_base_liste).systeme_axes;
                 }                  }
                 else                  else
                 {                  {
Line 245  appel_gnuplot(struct_processus *s_etat_p Line 242  appel_gnuplot(struct_processus *s_etat_p
                     (*l_fichier_courant).legende = NULL;                      (*l_fichier_courant).legende = NULL;
                     (*l_fichier_courant).presence_axes = d_faux;                      (*l_fichier_courant).presence_axes = d_faux;
                     strcpy((*l_fichier_courant).type, (*l_base_liste).type);                      strcpy((*l_fichier_courant).type, (*l_base_liste).type);
                     (*(*s_etat_processus).fichiers_graphiques).dimensions =                      (*l_fichier_courant).dimensions =
                             (*l_base_liste).dimensions;                              (*l_base_liste).dimensions;
                       (*l_fichier_courant).systeme_axes =
                               (*l_base_liste).systeme_axes;
                 }                  }
             }              }
   
Line 1717  appel_gnuplot(struct_processus *s_etat_p Line 1716  appel_gnuplot(struct_processus *s_etat_p
             return;              return;
         }          }
   
         if (fprintf(fichier_impression, "\\begin{figure}[hp]\n") < 0)          if (tex_fprintf(s_etat_processus, fichier_impression,
                       "\\begin{figure}[hp]\n") < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return;              return;
Line 1732  appel_gnuplot(struct_processus *s_etat_p Line 1732  appel_gnuplot(struct_processus *s_etat_p
             }              }
         }          }
   
           if (fclose(fichier_image) != 0)
           {
               (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
               return;
           }
   
         if (strlen((*s_etat_processus).titre) > 0)          if (strlen((*s_etat_processus).titre) > 0)
         {          {
             if (fprintf(fichier_impression, "\\caption{%s}\n",              if (tex_fprintf(s_etat_processus, fichier_impression,
                     (*s_etat_processus).titre) < 0)                      "\\caption{%s}\n", (*s_etat_processus).titre) < 0)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                  (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                 return;                  return;
             }              }
         }          }
   
         if (fprintf(fichier_impression, "\\end{figure}\n") < 0)          if (tex_fprintf(s_etat_processus, fichier_impression,
                       "\\end{figure}\n") < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return;              return;

Removed from v.1.3  
changed lines
  Added in v.1.4


CVSweb interface <joel.bertrand@systella.fr>