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

Diff for /rpl/src/interface_gnuplot.c between versions 1.15 and 1.74

version 1.15, 2010/08/26 19:07:41 version 1.74, 2025/04/15 10:17:56
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.19    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2025 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 36 Line 36
 ================================================================================  ================================================================================
 */  */
   
   #ifdef OS2
   static unsigned char *
   ajout_shell(unsigned char *commande)
   {
       unsigned char       *tampon;
   
       if ((tampon = malloc((strlen(BOURNE_SHELL) + 5 + strlen(commande) + 2) *
               sizeof(unsigned char))) == NULL)
       {
           return(NULL);
       }
   
       sprintf(tampon, "%s -c \"%s\"", BOURNE_SHELL, commande);
       free(commande);
       return(tampon);
   }
   #endif
   
 void  void
 appel_gnuplot(struct_processus *s_etat_processus, unsigned char persistance)  appel_gnuplot(struct_processus *s_etat_processus, unsigned char persistance)
 {  {
Line 307  appel_gnuplot(struct_processus *s_etat_p Line 325  appel_gnuplot(struct_processus *s_etat_p
             sprintf(commande_gnuplot, "%s", ds_gnuplot_commande);              sprintf(commande_gnuplot, "%s", ds_gnuplot_commande);
 #endif  #endif
   
   #ifdef OS2
               if ((commande_gnuplot = ajout_shell(commande_gnuplot)) == NULL)
               {
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return;
               }
   #endif
   
             if (((*s_etat_processus).entree_standard =              if (((*s_etat_processus).entree_standard =
                     popen(commande_gnuplot, "w")) == NULL)                      popen(commande_gnuplot, "w")) == NULL)
             {              {
Line 378  appel_gnuplot(struct_processus *s_etat_p Line 404  appel_gnuplot(struct_processus *s_etat_p
         sprintf(commande_gnuplot, "%s", ds_gnuplot_commande_persistante);          sprintf(commande_gnuplot, "%s", ds_gnuplot_commande_persistante);
 #endif  #endif
   
   #ifdef OS2
           if ((commande_gnuplot = ajout_shell(commande_gnuplot)) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return;
           }
   #endif
   
         if (((*s_etat_processus).entree_standard =          if (((*s_etat_processus).entree_standard =
                 popen(commande_gnuplot, "w")) == NULL)                  popen(commande_gnuplot, "w")) == NULL)
         {          {
Line 447  appel_gnuplot(struct_processus *s_etat_p Line 481  appel_gnuplot(struct_processus *s_etat_p
         sprintf(commande_gnuplot, "%s", ds_gnuplot_commande);          sprintf(commande_gnuplot, "%s", ds_gnuplot_commande);
 #endif  #endif
   
   #ifdef OS2
           if ((commande_gnuplot = ajout_shell(commande_gnuplot)) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return;
           }
   #endif
   
         if (((*s_etat_processus).entree_standard =          if (((*s_etat_processus).entree_standard =
                 popen(commande_gnuplot, "w")) == NULL)                  popen(commande_gnuplot, "w")) == NULL)
         {          {
Line 527  appel_gnuplot(struct_processus *s_etat_p Line 569  appel_gnuplot(struct_processus *s_etat_p
         sprintf(commande_gnuplot, "%s", ds_gnuplot_commande);          sprintf(commande_gnuplot, "%s", ds_gnuplot_commande);
 #endif  #endif
   
   #ifdef OS2
           if ((commande_gnuplot = ajout_shell(commande_gnuplot)) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return;
           }
   #endif
   
         if (((*s_etat_processus).entree_standard =          if (((*s_etat_processus).entree_standard =
                 popen(commande_gnuplot, "w")) == NULL)                  popen(commande_gnuplot, "w")) == NULL)
         {          {
Removed from v.1.15  
changed lines
  Added in v.1.74

CVSweb interface <joel.bertrand@systella.fr>