rpl/src/instructions_r7.c - diff

Return to instructions_r7.c CVS log

Up to [local] / rpl / src

version 1.42, 2018/12/21 14:38:06	version 1.55, 2025/04/15 10:17:55
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.29	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2018 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

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

Line 719 instruction_rgdr(struct_processus *s_eta	Line 719 instruction_rgdr(struct_processus *s_eta
static int	static int
fonction_comparaison(const void argument_1, const void argument_2)	fonction_comparaison(const void argument_1, const void argument_2)
{	{
return(strcmp((unsigned char ) (((struct_objet *) argument_1))	return(strcmp((unsigned char ) (((struct_objet *) argument_1)).objet,
.objet, (unsigned char ) (((struct_objet *) argument_2))	(unsigned char ) (((struct_objet *) argument_2)).objet));
.objet));
}	}


Line 750 instruction_record(struct_processus *s_e	Line 749 instruction_record(struct_processus *s_e
}	}

printf(" 1: %s\n", d_TAB);	printf(" 1: %s\n", d_TAB);
printf("-> 1: %s\n", d_REC);	printf("-> 1: %s\n\n", d_REC);

	if ((*s_etat_processus).langue == 'F')
	{
	printf(" Utilisation :\n\n");
	}
	else
	{
	printf(" Usage:\n\n");
	}

	printf(" <[ \"name\" \"index\" ]> RECORD\n");

return;	return;
}	}