rpl/src/rpl.c - diff

Return to rpl.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rpl.c between versions 1.12 and 1.13

version 1.12, 2010/03/06 18:29:07	version 1.13, 2010/03/17 14:14:36
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.12	RPL/2 (R) version 4.0.13
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 485 rplinit(int argc, char *argv[], unsigned	Line 485 rplinit(int argc, char *argv[], unsigned
(*s_etat_processus).chemin_fichiers_temporaires =	(*s_etat_processus).chemin_fichiers_temporaires =
recherche_chemin_fichiers_temporaires(s_etat_processus);	recherche_chemin_fichiers_temporaires(s_etat_processus);

erreur = d_os;	erreur = d_absence_erreur;
core = d_faux;	core = d_faux;
mode_interactif = d_faux;	mode_interactif = d_faux;
(*s_etat_processus).nom_fichier_source = NULL;	(*s_etat_processus).nom_fichier_source = NULL;
Line 506 rplinit(int argc, char *argv[], unsigned	Line 506 rplinit(int argc, char *argv[], unsigned

if (argc == 1)	if (argc == 1)
{	{
erreur = d_os_ligne_de_commande;	erreur = d_erreur;
informations(s_etat_processus);	informations(s_etat_processus);
}	}
else	else
Line 558 rplinit(int argc, char *argv[], unsigned	Line 558 rplinit(int argc, char *argv[], unsigned
}	}

option_a = d_vrai;	option_a = d_vrai;
printf("\n");

if ((*s_etat_processus).langue == 'F')
{
printf(" Auteur: Joël BERTRAND,\n");
printf(" Email : "
"joel.bertrand@systella.fr\n");
printf(" Liste de diffusion : "
"rpl2@systella.fr\n");
printf(" Page : "
"http://www.rpl2.fr");
printf("\n");
}
else
{
printf(" Author: Joël BERTRAND,\n");
printf(" Email : "
"joel.bertrand@systella.fr\n");
printf(" Mailing list : "
"rpl2@systella.fr\n");
printf(" Web page : "
"http://www.rpl2/net");
printf("\n");
}

break;	break;
}	}

Line 1384 rplinit(int argc, char *argv[], unsigned	Line 1359 rplinit(int argc, char *argv[], unsigned
printf("+++Error : More than one definition\n");	printf("+++Error : More than one definition\n");
}	}

erreur = d_os_ligne_de_commande;	erreur = d_erreur;
}	}
else	else
{	{
Line 1586 rplinit(int argc, char *argv[], unsigned	Line 1561 rplinit(int argc, char *argv[], unsigned
(*s_etat_processus).nom_fichier_source);	(*s_etat_processus).nom_fichier_source);
}	}

erreur = d_os_fichier_introuvable;	erreur = d_erreur;
}	}
else	else
{	{
Line 1633 rplinit(int argc, char *argv[], unsigned	Line 1608 rplinit(int argc, char *argv[], unsigned
}	}
}	}

if ((erreur == d_os) && (presence_definition == 'O'))	if ((erreur == d_absence_erreur) && (presence_definition == 'O'))
{	{
(*s_etat_processus).profilage = (option_P != 0) ? d_vrai : d_faux;	(*s_etat_processus).profilage = (option_P != 0) ? d_vrai : d_faux;
(*s_etat_processus).niveau_profilage = option_P;	(*s_etat_processus).niveau_profilage = option_P;
Line 2547 rplinit(int argc, char *argv[], unsigned	Line 2522 rplinit(int argc, char *argv[], unsigned
free(arguments);	free(arguments);
}	}

if (option_D == d_vrai)	if (option_a == d_vrai)
{	{
lancement_daemon(s_etat_processus);	fprintf(stdout, "%s\n", (*s_etat_processus)
	.definitions_chainees);
}	}
	else
if (option_p == d_faux)
{	{
if (setjmp(contexte_initial) == 0)	if (option_D == d_vrai)
{	{
erreur = sequenceur(s_etat_processus);	lancement_daemon(s_etat_processus);
}	}
}
else	if (option_p == d_faux)
{
if (setjmp(contexte_initial) == 0)
{	{
erreur = sequenceur_optimise(s_etat_processus);	if (setjmp(contexte_initial) == 0)
	{
	erreur = sequenceur(s_etat_processus);
	}
	}
	else
	{
	if (setjmp(contexte_initial) == 0)
	{
	erreur = sequenceur_optimise(s_etat_processus);
	}
}	}
}	}

Line 3362 rplinit(int argc, char *argv[], unsigned	Line 3345 rplinit(int argc, char *argv[], unsigned
debug_memoire_verification(s_etat_processus);	debug_memoire_verification(s_etat_processus);
# endif	# endif

return((erreur == d_os) ? EXIT_SUCCESS : EXIT_FAILURE);	return((erreur == d_absence_erreur) ? EXIT_SUCCESS : EXIT_FAILURE);
}	}


Line 3374 informations(struct_processus *s_etat_pr	Line 3357 informations(struct_processus *s_etat_pr
if ((*s_etat_processus).langue == 'F')	if ((*s_etat_processus).langue == 'F')
{	{
printf(" rpl [-options] [programme]\n");	printf(" rpl [-options] [programme]\n");
printf(" -a : informations sur l'auteur\n");	printf(" -a : analyse du code\n");
printf(" -A : paramètres passés au programme principal\n");	printf(" -A : paramètres passés au programme principal\n");
printf(" -c : génération de fichier de débogage (rpl-core)\n");	printf(" -c : génération de fichier de débogage (rpl-core)\n");
printf(" -d : option de déverminage interne\n");	printf(" -d : option de déverminage interne\n");
Line 3393 informations(struct_processus *s_etat_pr	Line 3376 informations(struct_processus *s_etat_pr
else	else
{	{
printf(" rpl [-options] [program]\n");	printf(" rpl [-options] [program]\n");
printf(" -a : displays informations about the author\n");	printf(" -a : analyzes program\n");
printf(" -A : sends parameters to main program\n");	printf(" -A : sends parameters to main program\n");
printf(" -c : allows creation of a rpl-core file, providing a way"	printf(" -c : allows creation of a rpl-core file, providing a way"
"\n"	"\n"

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.12
changed lines
	Added in v.1.13