version 1.3, 2010/02/10 10:14:25
|
version 1.5, 2010/03/04 10:17:54
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.11 |
RPL/2 (R) version 4.0.12 |
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 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; |