version 1.55, 2010/12/14 15:46:24
|
version 1.62, 2011/04/20 08:26:04
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.20 |
RPL/2 (R) version 4.1.0.prerelease.0 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 307 rplinit(int argc, char *argv[], unsigned
|
Line 307 rplinit(int argc, char *argv[], unsigned
|
|
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
printf("+++Copyright (C) 1989 à 2009, 2010 BERTRAND Joël\n"); |
printf("+++Copyright (C) 1989 à 2010, 2011 BERTRAND Joël\n"); |
} |
} |
else |
else |
{ |
{ |
printf("+++Copyright (C) 1989 to 2009, 2010 BERTRAND Joel\n"); |
printf("+++Copyright (C) 1989 to 2010, 2011 BERTRAND Joel\n"); |
} |
} |
|
|
if (getenv("HOME") != NULL) |
if (getenv("HOME") != NULL) |
Line 1833 rplinit(int argc, char *argv[], unsigned
|
Line 1833 rplinit(int argc, char *argv[], unsigned
|
(*s_etat_processus).affichage_arguments = 'N'; |
(*s_etat_processus).affichage_arguments = 'N'; |
(*s_etat_processus).autorisation_conversion_chaine = 'Y'; |
(*s_etat_processus).autorisation_conversion_chaine = 'Y'; |
(*s_etat_processus).autorisation_evaluation_nom = 'Y'; |
(*s_etat_processus).autorisation_evaluation_nom = 'Y'; |
(*s_etat_processus).autorisation_nom_implicite = 'Y'; |
|
|
if (mode_interactif == d_vrai) |
|
{ |
|
(*s_etat_processus).autorisation_nom_implicite = 'Y'; |
|
} |
|
else |
|
{ |
|
(*s_etat_processus).autorisation_nom_implicite = 'N'; |
|
} |
|
|
(*s_etat_processus).autorisation_empilement_programme = 'N'; |
(*s_etat_processus).autorisation_empilement_programme = 'N'; |
(*s_etat_processus).requete_arret = 'N'; |
(*s_etat_processus).requete_arret = 'N'; |
(*s_etat_processus).evaluation_forcee = 'N'; |
(*s_etat_processus).evaluation_forcee = 'N'; |
Line 2540 rplinit(int argc, char *argv[], unsigned
|
Line 2549 rplinit(int argc, char *argv[], unsigned
|
fflush(stdout); |
fflush(stdout); |
|
|
initialisation_instructions(s_etat_processus); |
initialisation_instructions(s_etat_processus); |
|
initialisation_variables(s_etat_processus); |
|
|
if (arguments != NULL) |
if (arguments != NULL) |
{ |
{ |
Line 3575 rplinit(int argc, char *argv[], unsigned
|
Line 3585 rplinit(int argc, char *argv[], unsigned
|
} |
} |
} |
} |
|
|
# if !defined(Cygwin) && !defined(OpenBSD) |
|
do |
|
{ |
|
(*s_etat_processus).pile_signal.ss_flags = SS_DISABLE; |
|
} while(sigaltstack(&((*s_etat_processus).pile_signal), NULL) != 0); |
|
free((*s_etat_processus).pile_signal.ss_sp); |
|
# endif |
|
|
|
closelog(); |
closelog(); |
|
|
pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes)); |
pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes)); |