Diff for /rpl/src/instructions_i3.c between versions 1.44 and 1.70

version 1.44, 2013/03/21 16:31:59 version 1.70, 2020/01/10 11:15:46
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2020 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 96  instruction_inquire(struct_processus *s_ Line 96  instruction_inquire(struct_processus *s_
         printf("    NAME           : %s\n", d_CHN);          printf("    NAME           : %s\n", d_CHN);
         printf("    FORMATTED      : %s (true/false)\n", d_INT);          printf("    FORMATTED      : %s (true/false)\n", d_INT);
         printf("    KEY FIELD      : %s\n", d_INT);          printf("    KEY FIELD      : %s\n", d_INT);
           printf("    FORMAT         : %s\n", d_LST);
         printf("    PROTECTION     : %s (WRITEONLY/READONLY/READWRITE)\n\n",          printf("    PROTECTION     : %s (WRITEONLY/READONLY/READWRITE)\n\n",
                 d_CHN);                  d_CHN);
   
Line 108  instruction_inquire(struct_processus *s_ Line 109  instruction_inquire(struct_processus *s_
             printf("  Queries by name:\n\n");              printf("  Queries by name:\n\n");
         }          }
   
         printf("    FORMAT         : %s\n", d_LST);  
         printf("    EXISTENCE      : %s (true/false)\n", d_INT);          printf("    EXISTENCE      : %s (true/false)\n", d_INT);
         printf("    LOCK           : %s (NONE/READ/WRITE)\n", d_CHN);          printf("    LOCK           : %s (NONE/READ/WRITE)\n", d_CHN);
   
Line 153  instruction_inquire(struct_processus *s_ Line 153  instruction_inquire(struct_processus *s_
         return;          return;
     }      }
   
     if ((requete = conversion_majuscule((unsigned char *)      if ((requete = conversion_majuscule(s_etat_processus, (unsigned char *)
             (*s_objet_argument_1).objet)) == NULL)              (*s_objet_argument_1).objet)) == NULL)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;          (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;

Removed from v.1.44  
changed lines
  Added in v.1.70


CVSweb interface <joel.bertrand@systella.fr>