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

Diff for /rpl/src/instructions_c4.c between versions 1.49 and 1.86

version 1.49, 2013/03/20 17:11:44 version 1.86, 2024/10/28 14:56:58
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2024 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 471  instruction_convert(struct_processus *s_ Line 471  instruction_convert(struct_processus *s_
                     (unsigned char *) (*s_objet_argument_2).objet,                      (unsigned char *) (*s_objet_argument_2).objet,
                     (unsigned char *) (*s_objet_argument_1).objet);                      (unsigned char *) (*s_objet_argument_1).objet);
   
             if (alsprintf(&executable_candidat, "%s/bin/rplconvert",              if (alsprintf(s_etat_processus, &executable_candidat,
                     d_exec_path) < 0)                      "%s/bin/rplconvert", d_exec_path) < 0)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 return;                  return;
Line 506  instruction_convert(struct_processus *s_ Line 506  instruction_convert(struct_processus *s_
                     (unsigned char *) (*s_objet_argument_2).objet,                      (unsigned char *) (*s_objet_argument_2).objet,
                     (unsigned char *) (*s_objet_argument_1).objet);                      (unsigned char *) (*s_objet_argument_1).objet);
   
             if (alsprintf(&executable_candidat, "%s/bin/rplconvert",              if (alsprintf(s_etat_processus, &executable_candidat,
                     (*s_etat_processus).rpl_home) < 0)                      "%s/bin/rplconvert", (*s_etat_processus).rpl_home) < 0)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 return;                  return;
Line 549  instruction_convert(struct_processus *s_ Line 549  instruction_convert(struct_processus *s_
                             (*s_etat_processus).instruction_courante;                              (*s_etat_processus).instruction_courante;
                     (*s_etat_processus).instruction_courante = ligne;                      (*s_etat_processus).instruction_courante = ligne;
   
                       (*s_etat_processus).type_en_cours = NON;
                     recherche_type(s_etat_processus);                      recherche_type(s_etat_processus);
                                           
                     (*s_etat_processus).instruction_courante =                      (*s_etat_processus).instruction_courante =
Line 663  instruction_close(struct_processus *s_et Line 664  instruction_close(struct_processus *s_et
   
     struct_objet                *s_objet_argument;      struct_objet                *s_objet_argument;
   
       unsigned char               socket_en_ecoute;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
     if ((*s_etat_processus).affichage_arguments == 'Y')      if ((*s_etat_processus).affichage_arguments == 'Y')
Line 777  instruction_close(struct_processus *s_et Line 780  instruction_close(struct_processus *s_et
          * Fermeture du fichier           * Fermeture du fichier
          */           */
   
         if (fclose((*descripteur).descripteur_c) != 0)  
         {  
             free(descripteur);  
             liberation(s_etat_processus, s_objet_argument);  
   
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;  
             return;  
         }  
   
         if ((*descripteur).type != 'C')          if ((*descripteur).type != 'C')
         {          {
             if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,              if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
Line 827  instruction_close(struct_processus *s_et Line 821  instruction_close(struct_processus *s_et
   
             free(descripteur);              free(descripteur);
         }          }
           else
           {
               if (fclose((*descripteur).descripteur_c) != 0)
               {
                   free(descripteur);
                   liberation(s_etat_processus, s_objet_argument);
   
                   (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                   return;
               }
           }
   
         if ((*((struct_fichier *) (*s_objet_argument).objet)).ouverture == 'S')          if ((*((struct_fichier *) (*s_objet_argument).objet)).ouverture == 'S')
         {          {
Line 851  instruction_close(struct_processus *s_et Line 856  instruction_close(struct_processus *s_et
   
         socket = -1;          socket = -1;
         socket_connectee = d_faux;          socket_connectee = d_faux;
           socket_en_ecoute = 'Y';
   
         while(l_element_courant != NULL)          while(l_element_courant != NULL)
         {          {
Line 862  instruction_close(struct_processus *s_et Line 868  instruction_close(struct_processus *s_et
                         (*(*l_element_courant).donnee).objet)).socket;                          (*(*l_element_courant).donnee).objet)).socket;
                 socket_connectee = (*((struct_socket *)                  socket_connectee = (*((struct_socket *)
                         (*(*l_element_courant).donnee).objet)).socket_connectee;                          (*(*l_element_courant).donnee).objet)).socket_connectee;
                   socket_en_ecoute = (*((struct_socket *)
                           (*(*l_element_courant).donnee).objet)).socket_en_ecoute;
   
                 if (l_element_precedent == NULL)                  if (l_element_precedent == NULL)
                 {                  {
Line 902  instruction_close(struct_processus *s_et Line 910  instruction_close(struct_processus *s_et
   
         if (socket_connectee == d_vrai)          if (socket_connectee == d_vrai)
         {          {
             shutdown(socket, SHUT_RDWR);              if (socket_en_ecoute == 'N')
               {
                   shutdown(socket, SHUT_RDWR);
               }
         }          }
   
         if (close(socket) != 0)          if (close(socket) != 0)
Line 1159  instruction_cswp(struct_processus *s_eta Line 1170  instruction_cswp(struct_processus *s_eta
   
         if ((*s_objet_argument_3).type == MIN)          if ((*s_objet_argument_3).type == MIN)
         {          {
             if ((colonne_1 < 0) || (colonne_1 > ((signed long)              if ((colonne_1 < 0) || (colonne_1 >
                     (*((struct_matrice *) (*s_objet_argument_3).objet))                      (*((struct_matrice *) (*s_objet_argument_3).objet))
                     .nombre_colonnes) - 1) || (colonne_2 < 0) || (colonne_2 >                      .nombre_colonnes - 1) || (colonne_2 < 0) || (colonne_2 >
                     ((signed long) (*((struct_matrice *)                      (*((struct_matrice *)
                     (*s_objet_argument_3).objet)).nombre_colonnes) - 1))                      (*s_objet_argument_3).objet)).nombre_colonnes - 1))
             {              {
                 liberation(s_etat_processus, s_objet_argument_1);                  liberation(s_etat_processus, s_objet_argument_1);
                 liberation(s_etat_processus, s_objet_argument_2);                  liberation(s_etat_processus, s_objet_argument_2);
Line 1196  instruction_cswp(struct_processus *s_eta Line 1207  instruction_cswp(struct_processus *s_eta
         }          }
         else if ((*s_objet_argument_3).type == MRL)          else if ((*s_objet_argument_3).type == MRL)
         {          {
             if ((colonne_1 < 0) || (colonne_1 > ((signed long)              if ((colonne_1 < 0) || (colonne_1 >
                     (*((struct_matrice *) (*s_objet_argument_3).objet))                      (*((struct_matrice *) (*s_objet_argument_3).objet))
                     .nombre_colonnes) - 1) || (colonne_2 < 0) || (colonne_2 >                      .nombre_colonnes - 1) || (colonne_2 < 0) || (colonne_2 >
                     ((signed long) (*((struct_matrice *)                      (*((struct_matrice *)
                     (*s_objet_argument_3).objet)).nombre_colonnes) - 1))                      (*s_objet_argument_3).objet)).nombre_colonnes - 1))
             {              {
                 liberation(s_etat_processus, s_objet_argument_1);                  liberation(s_etat_processus, s_objet_argument_1);
                 liberation(s_etat_processus, s_objet_argument_2);                  liberation(s_etat_processus, s_objet_argument_2);
Line 1233  instruction_cswp(struct_processus *s_eta Line 1244  instruction_cswp(struct_processus *s_eta
         }          }
         else if ((*s_objet_argument_3).type == MCX)          else if ((*s_objet_argument_3).type == MCX)
         {          {
             if ((colonne_1 < 0) || (colonne_1 > ((signed long)              if ((colonne_1 < 0) || (colonne_1 >
                     (*((struct_matrice *) (*s_objet_argument_3).objet))                      (*((struct_matrice *) (*s_objet_argument_3).objet))
                     .nombre_colonnes) - 1) || (colonne_2 < 0) || (colonne_2 >                      .nombre_colonnes - 1) || (colonne_2 < 0) || (colonne_2 >
                     ((signed long) (*((struct_matrice *)                      (*((struct_matrice *)
                     (*s_objet_argument_3).objet)).nombre_colonnes) - 1))                      (*s_objet_argument_3).objet)).nombre_colonnes - 1))
             {              {
                 liberation(s_etat_processus, s_objet_argument_1);                  liberation(s_etat_processus, s_objet_argument_1);
                 liberation(s_etat_processus, s_objet_argument_2);                  liberation(s_etat_processus, s_objet_argument_2);
Removed from v.1.49  
changed lines
  Added in v.1.86

CVSweb interface <joel.bertrand@systella.fr>