version 1.23.2.1, 2011/04/11 13:02:13
|
version 1.39, 2012/01/25 16:38:30
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.22 |
RPL/2 (R) version 4.1.6 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 809 analyse_syntaxique(struct_processus *s_e
|
Line 809 analyse_syntaxique(struct_processus *s_e
|
} |
} |
|
|
|
|
|
/* |
|
================================================================================ |
|
Procédure de d'analyse syntaxique du source pour readline |
|
================================================================================ |
|
Entrées : |
|
-------------------------------------------------------------------------------- |
|
Sorties : |
|
- rl_done à 0 ou à 1. |
|
-------------------------------------------------------------------------------- |
|
Effets de bord : |
|
================================================================================ |
|
*/ |
|
|
|
int |
|
readline_analyse_syntaxique(int count, int key) |
|
{ |
|
struct_processus s_etat_processus; |
|
|
|
s_etat_processus.definitions_chainees = rl_line_buffer; |
|
s_etat_processus.debug = d_faux; |
|
|
|
if ((*rl_line_buffer) == d_code_fin_chaine) |
|
{ |
|
rl_done = 1; |
|
} |
|
else |
|
{ |
|
if (analyse_syntaxique(&s_etat_processus) == d_absence_erreur) |
|
{ |
|
rl_done = 1; |
|
} |
|
else |
|
{ |
|
rl_done = 0; |
|
rl_mark = rl_end; |
|
rl_crlf(); |
|
rl_expand_prompt(" > "); |
|
rl_on_new_line(); |
|
} |
|
} |
|
|
|
if (rl_done != 0) |
|
{ |
|
uprintf("\n"); |
|
} |
|
|
|
return(0); |
|
} |
|
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Routine d'échange de deux variables |
Routine d'échange de deux variables |