--- rpl/src/rpl.c 2010/01/27 22:22:17 1.2 +++ rpl/src/rpl.c 2010/02/28 14:47:14 1.8 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.10 + RPL/2 (R) version 4.0.11 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1350,12 +1350,12 @@ rplinit(int argc, char *argv[], unsigned { if ((*s_etat_processus).langue == 'F') { - printf("+++Erreur : Option -%c inconnue\n", + printf("+++Information : Option -%c inconnue\n", option); } else { - printf("+++Error : -%c option unknown\n", + printf("+++Warning : -%c option unknown\n", option); } @@ -1566,8 +1566,6 @@ rplinit(int argc, char *argv[], unsigned &existence, &ouverture, &unite_fichier); } - (*s_etat_processus).recherche_types_speciaux = 'N'; - if (((existence == d_faux) || (erreur_fichier != d_absence_erreur)) && (option_S == d_faux)) { @@ -1597,6 +1595,8 @@ rplinit(int argc, char *argv[], unsigned printf("+++Error : Any executable definition\n"); } } + + return(EXIT_FAILURE); } if ((*s_etat_processus).chemin_fichiers_temporaires == NULL) @@ -1642,9 +1642,11 @@ rplinit(int argc, char *argv[], unsigned (*s_etat_processus).test_instruction = 'N'; (*s_etat_processus).nombre_arguments = 0; (*s_etat_processus).affichage_arguments = 'N'; + (*s_etat_processus).autorisation_conversion_chaine = 'Y'; (*s_etat_processus).autorisation_evaluation_nom = 'Y'; (*s_etat_processus).autorisation_empilement_programme = 'N'; (*s_etat_processus).requete_arret = 'N'; + (*s_etat_processus).evaluation_forcee = 'N'; (*s_etat_processus).constante_symbolique = 'N'; (*s_etat_processus).traitement_symbolique = 'N'; @@ -3339,6 +3341,10 @@ rplinit(int argc, char *argv[], unsigned sem_destroy(&semaphore_gestionnaires_signaux); sem_destroy(&semaphore_gestionnaires_signaux_atomique); +# ifdef DEBUG_MEMOIRE + debug_memoire_verification(s_etat_processus); +# endif + return((erreur == d_os) ? EXIT_SUCCESS : EXIT_FAILURE); }