version 1.1.1.1, 2010/01/26 15:22:45
|
version 1.14, 2010/08/26 19:07:38
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.9 |
RPL/2 (R) version 4.0.19 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 715 instruction_help(struct_processus *s_eta
|
Line 715 instruction_help(struct_processus *s_eta
|
unsigned char *registre; |
unsigned char *registre; |
|
|
# undef COMPLETION |
# undef COMPLETION |
# include "completion.conv.h" |
# include "completion-conv.h" |
# include "usages.conv.h" |
# include "usages-conv.h" |
|
|
if ((*s_etat_processus).test_instruction == 'Y') |
if ((*s_etat_processus).test_instruction == 'Y') |
{ |
{ |
Line 1027 instruction_help(struct_processus *s_eta
|
Line 1027 instruction_help(struct_processus *s_eta
|
|
|
while((fonction = readline("HELP> ")) != NULL) |
while((fonction = readline("HELP> ")) != NULL) |
{ |
{ |
funlockfile(stdin); |
|
funlockfile(stdout); |
|
|
|
if (strcmp(fonction, "") == 0) |
if (strcmp(fonction, "") == 0) |
{ |
{ |
break; |
break; |
} |
} |
|
|
|
funlockfile(stdin); |
|
funlockfile(stdout); |
|
|
/* |
/* |
* Élimination des blancs précédents l'instruction |
* Élimination des blancs précédents l'instruction |
*/ |
*/ |