rpl/src/sequenceur.c - diff

Return to sequenceur.c CVS log

Up to [local] / rpl / src

version 1.45, 2011/09/26 15:57:17	version 1.54, 2012/08/22 10:47:19
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.4	RPL/2 (R) version 4.1.10
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 66 sequenceur(struct_processus *s_etat_proc	Line 66 sequenceur(struct_processus *s_etat_proc
unsigned long niveau;	unsigned long niveau;
unsigned long position_courante;	unsigned long position_courante;

	Keymap ancien_keymap;
	Keymap nouveau_keymap;

(*s_etat_processus).retour_routine_evaluation = 'N';	(*s_etat_processus).retour_routine_evaluation = 'N';

if ((*s_etat_processus).debug == d_vrai)	if ((*s_etat_processus).debug == d_vrai)
Line 177 sequenceur(struct_processus *s_etat_proc	Line 180 sequenceur(struct_processus *s_etat_proc
flockfile(stdin);	flockfile(stdin);
flockfile(stdout);	flockfile(stdout);

	ancien_keymap = rl_get_keymap();
	nouveau_keymap = rl_copy_keymap(ancien_keymap);
	rl_set_keymap(nouveau_keymap);

	rl_bind_key(NEWLINE, readline_analyse_syntaxique);
	rl_bind_key(RETURN, readline_analyse_syntaxique);
	rl_bind_key(CTRL('g'), readline_effacement);
	rl_done = 0;

ligne = readline("RPL/2> ");	ligne = readline("RPL/2> ");

	rl_set_keymap(ancien_keymap);
	rl_free(nouveau_keymap);

funlockfile(stdin);	funlockfile(stdin);
funlockfile(stdout);	funlockfile(stdout);