version 1.46, 2013/06/21 14:15:54
|
version 1.76, 2025/04/15 10:17:53
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.15 |
RPL/2 (R) version 4.1.36 |
Copyright (C) 1989-2013 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 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; |