version 1.42, 2012/12/19 09:58:25
|
version 1.68, 2019/01/01 09:02:58
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.12 |
RPL/2 (R) version 4.1.30 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2019 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 325 instruction_hms_plus(struct_processus *s
|
Line 325 instruction_hms_plus(struct_processus *s
|
return; |
return; |
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = (*((integer8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) (*((integer8 *) |
(*s_objet_argument_2).objet)) + (*((real8 *) |
(*s_objet_argument_2).objet))) + (*((real8 *) |
(*s_objet_argument_1).objet)); |
(*s_objet_argument_1).objet)); |
|
|
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
Line 344 instruction_hms_plus(struct_processus *s
|
Line 344 instruction_hms_plus(struct_processus *s
|
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*s_objet_argument_2).objet)) + (*((integer8 *) |
(*s_objet_argument_2).objet)) + ((real8) (*((integer8 *) |
(*s_objet_argument_1).objet)); |
(*s_objet_argument_1).objet))); |
|
|
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
} |
} |
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 529 instruction_hms_moins(struct_processus *
|
Line 526 instruction_hms_moins(struct_processus *
|
return; |
return; |
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = (*((integer8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) (*((integer8 *) |
(*s_objet_argument_2).objet)) - (*((real8 *) |
(*s_objet_argument_2).objet))) - (*((real8 *) |
(*s_objet_argument_1).objet)); |
(*s_objet_argument_1).objet)); |
|
|
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
Line 548 instruction_hms_moins(struct_processus *
|
Line 545 instruction_hms_moins(struct_processus *
|
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*s_objet_argument_2).objet)) - (*((integer8 *) |
(*s_objet_argument_2).objet)) - ((real8) (*((integer8 *) |
(*s_objet_argument_1).objet)); |
(*s_objet_argument_1).objet))); |
|
|
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
} |
} |
Line 985 instruction_help(struct_processus *s_eta
|
Line 982 instruction_help(struct_processus *s_eta
|
printf(" %s : connexion à une base de données SQL\n", d_SQL); |
printf(" %s : connexion à une base de données SQL\n", d_SQL); |
printf(" %s : mutex\n", d_MTX); |
printf(" %s : mutex\n", d_MTX); |
printf(" %s : sémaphore nommé\n", d_SPH); |
printf(" %s : sémaphore nommé\n", d_SPH); |
|
printf(" %s : enregistrement\n", d_REC); |
} |
} |
else |
else |
{ |
{ |
Line 1012 instruction_help(struct_processus *s_eta
|
Line 1010 instruction_help(struct_processus *s_eta
|
printf(" %s : connection to SQL database\n", d_SQL); |
printf(" %s : connection to SQL database\n", d_SQL); |
printf(" %s : mutex\n", d_MTX); |
printf(" %s : mutex\n", d_MTX); |
printf(" %s : named semaphore\n", d_SPH); |
printf(" %s : named semaphore\n", d_SPH); |
|
printf(" %s : record\n", d_REC); |
} |
} |
|
|
/* |
/* |