rpl/src/instructions_t1.c - diff

Return to instructions_t1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_t1.c between versions 1.12 and 1.45

version 1.12, 2010/07/13 09:39:14	version 1.45, 2013/03/21 11:30:30
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.17	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 64 instruction_type(struct_processus *s_eta	Line 64 instruction_type(struct_processus *s_eta
d_TAB,	d_TAB,
d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SLB, d_SCK,	d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SLB, d_SCK,
d_PRC);	d_PRC);
printf("-> 1: %s\n", d_INT);	printf("-> 1: %s\n\n", d_INT);

	if ((*s_etat_processus).langue == 'F')
	{
	printf(" Valeurs renvoyées : \n\n");
	printf(" 0 : scalaire (entier ou réel)\n");
	printf(" 1 : complexe\n");
	printf(" 2 : chaîne de caractères\n");
	printf(" 3 : vecteur ou matrice de scalaires\n");
	printf(" 4 : vecteur ou matrice de complexes\n");
	printf(" 5 : liste\n");
	printf(" 6 : adresse\n");
	printf(" 7 : nom\n");
	printf(" 8 : expression en notation polonaire inversée\n");
	printf(" 9 : expression algébrique\n");
	printf(" 10 : entier binaire\n");
	printf(" 11 : descripteur de fichier\n");
	printf(" 12 : descripteur de bibliothèque partagée\n");
	printf(" 13 : descripteur de socket\n");
	printf(" 14 : processus\n");
	printf(" 15 : fonction\n");
	printf(" 16 : table\n");
	}
	else
	{
	printf(" Returned values : \n\n");
	printf(" 0 : scalar, integer or real number\n");
	printf(" 1 : complex\n");
	printf(" 2 : string\n");
	printf(" 3 : scalar vector or scalar matrix\n");
	printf(" 4 : complex vector or complex matrix\n");
	printf(" 5 : list\n");
	printf(" 6 : address\n");
	printf(" 7 : name\n");
	printf(" 8 : RPN expression\n");
	printf(" 9 : algebraic expression\n");
	printf(" 10 : binary integer\n");
	printf(" 11 : file descriptor\n");
	printf(" 12 : shared library descriptor\n");
	printf(" 13 : socket descriptor\n");
	printf(" 14 : process\n");
	printf(" 15 : function\n");
	printf(" 16 : table\n");
	}

return;	return;
}	}
Line 221 instruction_then(struct_processus *s_eta	Line 264 instruction_then(struct_processus *s_eta
unsigned char *instruction_majuscule;	unsigned char *instruction_majuscule;
unsigned char *tampon;	unsigned char *tampon;

unsigned long niveau;	integer8 niveau;

void (*fonction)();	void (*fonction)();

Line 470 instruction_then(struct_processus *s_eta	Line 513 instruction_then(struct_processus *s_eta
"ELSEIF") == 0))	"ELSEIF") == 0))
{	{
(*s_etat_processus).position_courante	(*s_etat_processus).position_courante
-= (strlen(instruction_majuscule) + 1);	-= (integer8) (strlen(
	instruction_majuscule) + 1);
drapeau_fin = d_vrai;	drapeau_fin = d_vrai;
}	}
else	else

CVSweb interface <joel.bertrand@systella.fr>

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