Diff for /rpl/src/instructions_r4.c between versions 1.119 and 1.120

version 1.119, 2023/11/26 10:54:21 version 1.120, 2023/11/27 13:56:46
Line 3723  instruction_read(struct_processus *s_eta Line 3723  instruction_read(struct_processus *s_eta
   
             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 3756  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.119  
changed lines
  Added in v.1.120


CVSweb interface <joel.bertrand@systella.fr>