version 1.75, 2015/01/28 21:47:26
|
version 1.77, 2015/02/19 11:01:18
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.20 |
RPL/2 (R) version 4.1.21 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1493 recherche_instruction_suivante_recursive
|
Line 1493 recherche_instruction_suivante_recursive
|
((*(pointeur_caractere_courant - 1)) == |
((*(pointeur_caractere_courant - 1)) == |
d_code_espace)) |
d_code_espace)) |
{ |
{ |
if ((*(++pointeur_caractere_courant)) == '>') |
pointeur_caractere_courant++; |
{ |
|
|
if ((*pointeur_caractere_courant) == '>') |
|
{ // Cas de '>>' |
drapeau_fin_objet = d_vrai; |
drapeau_fin_objet = d_vrai; |
|
pointeur_caractere_courant++; |
|
break; |
} |
} |
else |
else if ((*pointeur_caractere_courant) != |
{ |
d_code_espace) |
|
{ // Tous les cas différents de '>' |
erreur_analyse = d_ex_syntaxe; |
erreur_analyse = d_ex_syntaxe; |
|
break; |
} |
} |
|
|
pointeur_caractere_courant++; |
pointeur_caractere_courant--; |
break; |
|
} |
} |
|
|
if ((erreur_format == d_absence_erreur) && |
if ((erreur_format == d_absence_erreur) && |