version 1.17, 2011/03/06 16:44:11
|
version 1.45, 2013/03/16 11:31:41
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.21 |
RPL/2 (R) version 4.1.13 |
Copyright (C) 1989-2011 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 480 instruction_hms_moins(struct_processus *
|
Line 480 instruction_hms_moins(struct_processus *
|
if (((*s_objet_argument_1).type == INT) && |
if (((*s_objet_argument_1).type == INT) && |
((*s_objet_argument_2).type == INT)) |
((*s_objet_argument_2).type == INT)) |
{ |
{ |
(*((integer8 *) (*s_objet_argument_1).objet)) = |
if (depassement_soustraction((integer8 *) (*s_objet_argument_2).objet, |
-(*((integer8 *) (*s_objet_argument_1).objet)); |
(integer8 *) (*s_objet_argument_1).objet, &tampon) == |
|
|
if (depassement_addition((integer8 *) (*s_objet_argument_1).objet, |
|
(integer8 *) (*s_objet_argument_2).objet, &tampon) == |
|
d_absence_erreur) |
d_absence_erreur) |
{ |
{ |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) |
Line 506 instruction_hms_moins(struct_processus *
|
Line 503 instruction_hms_moins(struct_processus *
|
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) |
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) |
(*((integer8 *) (*s_objet_argument_1).objet))) + ((real8) |
(*((integer8 *) (*s_objet_argument_2).objet))) - ((real8) |
(*((integer8 *) (*s_objet_argument_2).objet))); |
(*((integer8 *) (*s_objet_argument_1).objet))); |
} |
} |
} |
} |
|
|
Line 885 instruction_help(struct_processus *s_eta
|
Line 882 instruction_help(struct_processus *s_eta
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
printf("Processus asynchrones :\n"); |
printf("Processus asynchrones :\n"); |
printf(" CTRL+C : interruption de l'instruction en cours ;\n"); |
printf(" CTRL+c : interruption de l'instruction en cours ;\n"); |
printf(" CTRL+D : en mode interactif, provque un ABORT ;\n"); |
printf(" CTRL+d : en mode interactif, provoque un ABORT\n"); |
printf(" CTRL+Z : en cours d'exécution, provoque un HALT " |
printf(" CTRL+g : en mode interactif, provoque l'annulation de la " |
|
"commande en cours ;\n"); |
|
printf(" CTRL+z : en cours d'exécution, provoque un HALT " |
"asynchrone.\n\n"); |
"asynchrone.\n\n"); |
|
|
printf("Drapeaux (valeurs par défaut) :\n"); |
printf("Drapeaux (valeurs par défaut) :\n"); |
Line 897 instruction_help(struct_processus *s_eta
|
Line 896 instruction_help(struct_processus *s_eta
|
printf(" 32 : impression automatique (désarmé)\n"); |
printf(" 32 : impression automatique (désarmé)\n"); |
printf(" 33 : retour à la ligne automatique invalidé " |
printf(" 33 : retour à la ligne automatique invalidé " |
"(désarmé)\n"); |
"(désarmé)\n"); |
printf(" 34 : réservé (désarmé)\n"); |
printf(" 34 : évaluation des caractères de contrôle (armé)\n"); |
printf(" 35 : évaluation symbolique des constantes (armé)\n"); |
printf(" 35 : évaluation symbolique des constantes (armé)\n"); |
printf(" 36 : évaluation symbolique des fonctions (armé)\n"); |
printf(" 36 : évaluation symbolique des fonctions (armé)\n"); |
printf(" 37 à 42 : taille des entiers binaires, bit de poids faible " |
printf(" 37 à 42 : taille des entiers binaires, bit de poids faible " |
Line 920 instruction_help(struct_processus *s_eta
|
Line 919 instruction_help(struct_processus *s_eta
|
else |
else |
{ |
{ |
printf("Hot keys :\n"); |
printf("Hot keys :\n"); |
printf(" CTRL+C : interruption ;\n"); |
printf(" CTRL+c : interruption ;\n"); |
printf(" CTRL+D : ABORT (in interactive mode only) ;\n"); |
printf(" CTRL+d : in interactive mode only sends ABORT on empty " |
printf(" CTRL+Z : HALT.\n\n"); |
"command line ;\n"); |
|
printf(" CTRL+g : in interactive mode only, nullifies current " |
|
"command line ;\n"); |
|
printf(" CTRL+z : HALT.\n\n"); |
|
|
printf("Flags (default values) :\n"); |
printf("Flags (default values) :\n"); |
printf(" 1 to 30 : user flags (cleared)\n"); |
printf(" 1 to 30 : user flags (cleared)\n"); |
Line 931 instruction_help(struct_processus *s_eta
|
Line 933 instruction_help(struct_processus *s_eta
|
printf(" 32 : automatic printing (cleared)\n"); |
printf(" 32 : automatic printing (cleared)\n"); |
printf(" 33 : automatic carriage return disabled " |
printf(" 33 : automatic carriage return disabled " |
"(cleared)\n"); |
"(cleared)\n"); |
printf(" 34 : reserved (cleared)\n"); |
printf(" 34 : control characters evaluation (set)\n"); |
printf(" 35 : constant symbolic evaluation (set)\n"); |
printf(" 35 : constant symbolic evaluation (set)\n"); |
printf(" 36 : function symbolic evaluation (set)\n"); |
printf(" 36 : function symbolic evaluation (set)\n"); |
printf(" 37 to 42 : size of binary integers, while starting with " |
printf(" 37 to 42 : size of binary integers, while starting with " |