version 1.45, 2013/03/16 11:31:41
|
version 1.69, 2019/02/03 14:40:40
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.31 |
Copyright (C) 1989-2013 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 526 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 545 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 982 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 1009 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); |
} |
} |
|
|
/* |
/* |