--- rpl/src/instructions_c3.c 2011/04/14 08:46:40 1.19.2.2 +++ rpl/src/instructions_c3.c 2012/08/22 10:47:15 1.41 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.23 - Copyright (C) 1989-2011 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.10 + Copyright (C) 1989-2012 Dr. BERTRAND Joël This file is part of RPL/2. @@ -660,24 +660,70 @@ instruction_chr(struct_processus *s_etat return; } - if (((*s_objet_resultat).objet = malloc(2 * sizeof(unsigned char))) - == NULL) + if ((*((integer8 *) (*s_objet_argument).objet)) == '\\') { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; + if (((*s_objet_resultat).objet = malloc(3 * + sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return; + } + + ((unsigned char *) (*s_objet_resultat).objet)[0] = '\\'; + ((unsigned char *) (*s_objet_resultat).objet)[1] = '\\'; + ((unsigned char *) (*s_objet_resultat).objet)[2] = + d_code_fin_chaine; } + else if ((*((integer8 *) (*s_objet_argument).objet)) == '"') + { + if (((*s_objet_resultat).objet = malloc(3 * + sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return; + } + + ((unsigned char *) (*s_objet_resultat).objet)[0] = '\\'; + ((unsigned char *) (*s_objet_resultat).objet)[1] = '"'; + ((unsigned char *) (*s_objet_resultat).objet)[2] = + d_code_fin_chaine; + } + else + { + if (((*s_objet_resultat).objet = malloc(2 * + sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return; + } - ((unsigned char *) (*s_objet_resultat).objet)[0] = (*((integer8 *) - (*s_objet_argument).objet)); - ((unsigned char *) (*s_objet_resultat).objet)[1] = - d_code_fin_chaine; + ((unsigned char *) (*s_objet_resultat).objet)[0] = + (*((integer8 *) (*s_objet_argument).objet)); + ((unsigned char *) (*s_objet_resultat).objet)[1] = + d_code_fin_chaine; + } } else { - liberation(s_etat_processus, s_objet_argument); + if ((s_objet_resultat = allocation(s_etat_processus, CHN)) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - (*s_etat_processus).erreur_execution = d_ex_argument_invalide; - return; + if (((*s_objet_resultat).objet = malloc(5 * sizeof(unsigned char))) + == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } + + sprintf((unsigned char *) (*s_objet_resultat).objet, "\\x%02X", + (unsigned char) (*((integer8 *) + (*s_objet_argument).objet))); } }