rpl/src/compilation.c - diff

Return to compilation.c CVS log

Up to [local] / rpl / src

version 1.40, 2012/01/30 09:25:13	version 1.47, 2012/08/22 10:47:13
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.6	RPL/2 (R) version 4.1.10
Copyright (C) 1989-2012 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 863 readline_analyse_syntaxique(int count, i	Line 863 readline_analyse_syntaxique(int count, i
registre = ligne;	registre = ligne;

if ((ligne = malloc((strlen(registre)	if ((ligne = malloc((strlen(registre)
+ strlen(rl_line_buffer) + 1) * sizeof(char))) == NULL)	+ strlen(rl_line_buffer) + 2) * sizeof(char))) == NULL)
{	{
rl_done = 1;	rl_done = 1;
return(0);	return(0);
}	}

sprintf(ligne, "%s%s", registre, rl_line_buffer);	sprintf(ligne, "%s %s", registre, rl_line_buffer);
}	}

rl_replace_line("", 1);	rl_replace_line("", 1);
Line 930 readline_effacement(int count, int key)	Line 930 readline_effacement(int count, int key)
ligne = NULL;	ligne = NULL;
niveau = 0;	niveau = 0;

uprintf("annulation\n");	uprintf("^G\n");
rl_expand_prompt("RPL/2> ");	rl_expand_prompt("RPL/2> ");
rl_on_new_line();	rl_on_new_line();
return(0);	return(0);
}	}


/*	/*
================================================================================	================================================================================
Routine d'échange de deux variables	Routine d'échange de deux variables