version 1.2, 2010/01/27 22:22:16
|
version 1.11, 2010/07/14 14:19:39
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.10 |
RPL/2 (R) version 4.0.18 |
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 514 instruction_trim(struct_processus *s_eta
|
Line 514 instruction_trim(struct_processus *s_eta
|
{ |
{ |
debut = (unsigned char *) (*s_objet_argument).objet; |
debut = (unsigned char *) (*s_objet_argument).objet; |
|
|
while(((*debut) != d_code_fin_chaine) && ((*debut) == d_code_espace)) |
while(((*debut) != d_code_fin_chaine) && |
|
(((*debut) == d_code_espace) |
|
|| ((*debut) == d_code_retour_chariot) |
|
|| ((*debut) == d_code_tabulation))) |
{ |
{ |
debut++; |
debut++; |
} |
} |
Line 522 instruction_trim(struct_processus *s_eta
|
Line 525 instruction_trim(struct_processus *s_eta
|
fin = &(((unsigned char *) (*s_objet_argument).objet) |
fin = &(((unsigned char *) (*s_objet_argument).objet) |
[strlen((unsigned char *) (*s_objet_argument).objet) - 1]); |
[strlen((unsigned char *) (*s_objet_argument).objet) - 1]); |
|
|
while((fin > debut) && ((*fin) == d_code_espace)) |
while((fin > debut) && |
|
(((*fin) == d_code_espace) |
|
|| ((*fin) == d_code_retour_chariot) |
|
|| ((*fin) == d_code_tabulation))) |
{ |
{ |
fin--; |
fin--; |
} |
} |
Line 591 instruction_tokenize(struct_processus *s
|
Line 597 instruction_tokenize(struct_processus *s
|
|
|
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
|
|
|
unsigned char *ptr; |
unsigned char *registre_instruction_courante; |
unsigned char *registre_instruction_courante; |
unsigned char *registre_definitions_chainees; |
unsigned char *registre_definitions_chainees; |
|
|
Line 640 instruction_tokenize(struct_processus *s
|
Line 647 instruction_tokenize(struct_processus *s
|
|
|
if ((*s_objet_argument).type == CHN) |
if ((*s_objet_argument).type == CHN) |
{ |
{ |
|
// Remplacement des éventuels retours à la ligne et tabulations par |
|
// des espaces. |
|
|
|
ptr = (unsigned char *) (*s_objet_argument).objet; |
|
|
|
while((*ptr) != d_code_fin_chaine) |
|
{ |
|
if (((*ptr) == d_code_retour_chariot) || |
|
((*ptr) == d_code_tabulation)) |
|
{ |
|
(*ptr) = d_code_espace; |
|
} |
|
|
|
ptr++; |
|
} |
|
|
if ((s_objet_resultat = allocation(s_etat_processus, LST)) == NULL) |
if ((s_objet_resultat = allocation(s_etat_processus, LST)) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |