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

Diff for /rpl/src/instructions_r4.c between versions 1.118 and 1.122

version 1.118, 2023/11/24 10:48:21 version 1.122, 2024/01/17 16:57:15
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.35    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2023 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 3700  instruction_read(struct_processus *s_eta Line 3700  instruction_read(struct_processus *s_eta
   
                 if (longueur_effective == longueur_questure)                  if (longueur_effective == longueur_questure)
                 {                  {
                       trame_complete = d_faux;
                     free(tampon_lecture);                      free(tampon_lecture);
                     longueur_questure *= 2;  
                       // Taille standard des jumbo frames
                       if (longueur_questure <= 9000)
                       {
                           longueur_questure *= 2;
                       }
                       else
                       {
                           longueur_questure += 9000;
                       }
                 }                  }
             } while(longueur_effective == longueur_questure);                  else
                   {
                       trame_complete = d_vrai;
                   }
               } while(trame_complete == d_faux);
   
             longueur_enregistrement = 1;              longueur_enregistrement = 1;
   
             for(i = 0; i < longueur_effective; i++)              for(i = 0; i < longueur_effective; i++)
             {              {
                 if (isprint(tampon_lecture[i]) != 0)                  if (isprint(tampon_lecture[i]) == 0)
                 {                  {
                     longueur_enregistrement += 4;                      longueur_enregistrement += 4;
                 }                  }
                 else                  else
                 {                  {
                     longueur_enregistrement++;                      if ((tampon_lecture[i] == '"') ||
                               (tampon_lecture[i] == '"'))
                       {
                           longueur_enregistrement += 2;
                       }
                       else
                       {
                           longueur_enregistrement++;
                       }
                 }                  }
             }              }
   
Line 3742  instruction_read(struct_processus *s_eta Line 3764  instruction_read(struct_processus *s_eta
             {              {
                 if (isprint(tampon_lecture[i]) != 0)                  if (isprint(tampon_lecture[i]) != 0)
                 {                  {
                     (*ptr) = tampon_lecture[i];                      if ((tampon_lecture[i] == '"') ||
                     ptr++;                              (tampon_lecture[i] == '"'))
                       {
                           (*ptr) = '\\';
                           ptr++;
                           (*ptr) = tampon_lecture[i];
                           ptr++;
                       }
                       else
                       {
                           (*ptr) = tampon_lecture[i];
                           ptr++;
                       }
                 }                  }
                 else                  else
                 {                  {
Removed from v.1.118  
changed lines
  Added in v.1.122

CVSweb interface <joel.bertrand@systella.fr>