version 1.105, 2011/11/30 20:50:22
|
version 1.112, 2012/04/13 14:13:03
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.5 |
RPL/2 (R) version 4.1.8 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 345 rplinit(int argc, char *argv[], char *en
|
Line 345 rplinit(int argc, char *argv[], char *en
|
|
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
printf("+++Copyright (C) 1989 à 2010, 2011 BERTRAND Joël\n"); |
printf("+++Copyright (C) 1989 à 2011, 2012 BERTRAND Joël\n"); |
} |
} |
else |
else |
{ |
{ |
printf("+++Copyright (C) 1989 to 2010, 2011 BERTRAND Joel\n"); |
printf("+++Copyright (C) 1989 to 2011, 2012 BERTRAND Joel\n"); |
} |
} |
|
|
if (getenv("HOME") != NULL) |
if (getenv("HOME") != NULL) |
Line 483 rplinit(int argc, char *argv[], char *en
|
Line 483 rplinit(int argc, char *argv[], char *en
|
return(EXIT_FAILURE); |
return(EXIT_FAILURE); |
} |
} |
|
|
|
if (sigaction(SIGALRM, &action, NULL) != 0) |
|
{ |
|
erreur = d_es_signal; |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Initialisation des signaux POSIX " |
|
"impossible\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Initialization of POSIX signals failed\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
signal_test = SIGTEST; |
|
kill(getpid(), SIGALRM); |
|
|
|
if (signal_test != SIGALRM) |
|
{ |
|
erreur = d_es_signal; |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Initialisation des signaux POSIX " |
|
"impossible\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Initialization of POSIX signals failed\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
action.sa_handler = interruption2; |
action.sa_handler = interruption2; |
action.sa_flags = 0; |
action.sa_flags = 0; |
|
|
Line 1995 rplinit(int argc, char *argv[], char *en
|
Line 2032 rplinit(int argc, char *argv[], char *en
|
(*s_etat_processus).arbre_instructions = NULL; |
(*s_etat_processus).arbre_instructions = NULL; |
|
|
(*s_etat_processus).tid_processus_pere = pthread_self(); |
(*s_etat_processus).tid_processus_pere = pthread_self(); |
|
(*s_etat_processus).tid= pthread_self(); |
(*s_etat_processus).pid_processus_pere = getpid(); |
(*s_etat_processus).pid_processus_pere = getpid(); |
(*s_etat_processus).processus_detache = d_vrai; |
(*s_etat_processus).processus_detache = d_vrai; |
(*s_etat_processus).var_volatile_processus_pere = -1; |
(*s_etat_processus).var_volatile_processus_pere = -1; |
Line 2091 rplinit(int argc, char *argv[], char *en
|
Line 2129 rplinit(int argc, char *argv[], char *en
|
(*((*s_etat_processus).l_base_pile_systeme)) |
(*((*s_etat_processus).l_base_pile_systeme)) |
.retour_definition = 'Y'; |
.retour_definition = 'Y'; |
|
|
(*s_etat_processus).indep = (struct_objet *) malloc( |
(*s_etat_processus).indep = allocation(s_etat_processus, NON); |
sizeof(struct_objet)); |
(*s_etat_processus).depend = allocation(s_etat_processus, NON); |
(*s_etat_processus).depend = (struct_objet *) malloc( |
|
sizeof(struct_objet)); |
|
(*s_etat_processus).parametres_courbes_de_niveau = |
(*s_etat_processus).parametres_courbes_de_niveau = |
(struct_objet *) malloc(sizeof(struct_objet)); |
allocation(s_etat_processus, NON); |
|
|
if (((*s_etat_processus).indep != NULL) && |
if (((*s_etat_processus).indep != NULL) && |
((*s_etat_processus).depend != NULL) && |
((*s_etat_processus).depend != NULL) && |
Line 2506 rplinit(int argc, char *argv[], char *en
|
Line 2542 rplinit(int argc, char *argv[], char *en
|
home, ds_fichier_historique); |
home, ds_fichier_historique); |
|
|
using_history(); |
using_history(); |
|
|
|
// Pour pouvoir utiliser le keymap avant le premier |
|
// appel à readline(). |
|
rl_initialize(); |
|
|
erreur_historique = read_history( |
erreur_historique = read_history( |
(*s_etat_processus).nom_fichier_historique); |
(*s_etat_processus).nom_fichier_historique); |
|
|