version 1.6, 2010/03/05 11:20:08
|
version 1.14, 2010/07/14 14:19:33
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.12 |
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 25
|
Line 25
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Routine de chainage du programme (lecture du fichier puis constitution |
Routine de chaînage du programme (lecture du fichier puis constitution |
de la chaine executable) |
de la chaîne exécutable) |
================================================================================ |
================================================================================ |
Entrées: structure processus |
Entrées: structure processus |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Line 63 chainage(struct_processus *s_etat_proces
|
Line 63 chainage(struct_processus *s_etat_proces
|
"-m %s/share/rplfiles -i %s | awk " |
"-m %s/share/rplfiles -i %s | awk " |
"'{ print $3; }' | awk -F= " |
"'{ print $3; }' | awk -F= " |
"'{ if ($2 != \"\") printf(\"-f %%s\", " |
"'{ if ($2 != \"\") printf(\"-f %%s\", " |
"$2); }'` -t `locale charmap`//IGNORE > %s"; |
"$2); }'` -t %s//IGNORE > %s"; |
|
|
unsigned long unite_fichier; |
unsigned long unite_fichier; |
|
|
Line 107 chainage(struct_processus *s_etat_proces
|
Line 107 chainage(struct_processus *s_etat_proces
|
{ |
{ |
if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) + |
if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) + |
(2 * strlen((*s_etat_processus).nom_fichier_source)) + |
(2 * strlen((*s_etat_processus).nom_fichier_source)) + |
(4 * strlen(d_exec_path)) + |
(4 * strlen(d_exec_path)) + strlen(d_locale) + |
strlen(nom_fichier_temporaire) + strlen(instructions) - 11) |
strlen(nom_fichier_temporaire) + strlen(instructions) - 13) |
* sizeof(unsigned char))) == NULL) |
* sizeof(unsigned char))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 121 chainage(struct_processus *s_etat_proces
|
Line 121 chainage(struct_processus *s_etat_proces
|
(*s_etat_processus).nom_fichier_source, |
(*s_etat_processus).nom_fichier_source, |
d_exec_path, ds_preprocesseur, d_exec_path, d_exec_path, |
d_exec_path, ds_preprocesseur, d_exec_path, d_exec_path, |
d_exec_path, (*s_etat_processus).nom_fichier_source, |
d_exec_path, (*s_etat_processus).nom_fichier_source, |
nom_fichier_temporaire); |
d_locale, nom_fichier_temporaire); |
|
|
if (alsprintf(&executable_candidat, "%s/bin/rpliconv", |
if (alsprintf(&executable_candidat, "%s/bin/rpliconv", |
d_exec_path) < 0) |
d_exec_path) < 0) |