version 1.31, 2011/06/24 20:31:40
|
version 1.50, 2013/03/16 11:31:41
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.4 |
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 410 instruction_rnrm(struct_processus *s_eta
|
Line 410 instruction_rnrm(struct_processus *s_eta
|
|
|
if ((*s_objet_argument).type == VIN) |
if ((*s_objet_argument).type == VIN) |
{ |
{ |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL) |
depassement = d_faux; |
|
|
|
for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille; |
|
i++) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
if (((integer8 *) (*((struct_vecteur *) (*s_objet_argument) |
return; |
.objet)).tableau)[i] == INT64_MIN) |
|
{ |
|
depassement = d_vrai; |
|
break; |
|
} |
} |
} |
|
|
(*((integer8 *) (*s_objet_resultat).objet)) = abs(((integer8 *) |
if (depassement == d_faux) |
(*((struct_vecteur *) (*s_objet_argument).objet)).tableau)[0]); |
{ |
|
if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
|
return; |
|
} |
|
|
for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille; |
(*((integer8 *) (*s_objet_resultat).objet)) = abs(((integer8 *) |
i++) |
(*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.tableau)[0]); |
|
|
|
for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.taille; i++) |
|
{ |
|
if (abs(((integer8 *) (*((struct_vecteur *) (*s_objet_argument) |
|
.objet)).tableau)[i]) > (*((integer8 *) |
|
(*s_objet_resultat).objet))) |
|
{ |
|
(*((integer8 *) (*s_objet_resultat).objet)) = |
|
abs(((integer8 *) (*((struct_vecteur *) |
|
(*s_objet_argument).objet)).tableau)[i]); |
|
} |
|
} |
|
} |
|
else |
{ |
{ |
if (abs(((integer8 *) (*((struct_vecteur *) (*s_objet_argument) |
if ((s_objet_resultat = allocation(s_etat_processus, REL)) == NULL) |
.objet)).tableau)[i]) > (*((integer8 *) |
|
(*s_objet_resultat).objet))) |
|
{ |
{ |
(*((integer8 *) (*s_objet_resultat).objet)) = |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
abs(((integer8 *) (*((struct_vecteur *) |
return; |
(*s_objet_argument).objet)).tableau)[i]); |
} |
|
|
|
(*((real8 *) (*s_objet_resultat).objet)) = abs((real8) ((integer8 *) |
|
(*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.tableau)[0]); |
|
|
|
for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.taille; i++) |
|
{ |
|
if (abs((real8) ((integer8 *) (*((struct_vecteur *) |
|
(*s_objet_argument).objet)).tableau)[i]) > (*((real8 *) |
|
(*s_objet_resultat).objet))) |
|
{ |
|
(*((real8 *) (*s_objet_resultat).objet)) = |
|
abs((real8) ((integer8 *) (*((struct_vecteur *) |
|
(*s_objet_argument).objet)).tableau)[i]); |
|
} |
} |
} |
} |
} |
} |
} |
Line 501 instruction_rnrm(struct_processus *s_eta
|
Line 543 instruction_rnrm(struct_processus *s_eta
|
for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) |
for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) |
.nombre_colonnes; j++) |
.nombre_colonnes; j++) |
{ |
{ |
|
if (((integer8 **) (*((struct_matrice *) (*s_objet_argument).objet)) |
|
.tableau)[0][j] == INT64_MIN) |
|
{ |
|
depassement = d_vrai; |
|
break; |
|
} |
|
|
entier_courant = abs(((integer8 **) |
entier_courant = abs(((integer8 **) |
(*((struct_matrice *) (*s_objet_argument).objet)) |
(*((struct_matrice *) (*s_objet_argument).objet)) |
.tableau)[0][j]); |
.tableau)[0][j]); |
Line 525 instruction_rnrm(struct_processus *s_eta
|
Line 574 instruction_rnrm(struct_processus *s_eta
|
for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) |
for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) |
.nombre_colonnes; j++) |
.nombre_colonnes; j++) |
{ |
{ |
|
if (((integer8 **) (*((struct_matrice *) |
|
(*s_objet_argument).objet)).tableau)[i][j] |
|
== INT64_MIN) |
|
{ |
|
depassement = d_vrai; |
|
break; |
|
} |
|
|
entier_courant = abs(((integer8 **) (*((struct_matrice *) |
entier_courant = abs(((integer8 **) (*((struct_matrice *) |
(*s_objet_argument).objet)).tableau)[i][j]); |
(*s_objet_argument).objet)).tableau)[i][j]); |
|
|
Line 1063 instruction_recall(struct_processus *s_e
|
Line 1120 instruction_recall(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (controle(s_etat_processus, executable_candidat, "md5", |
if (controle_integrite(s_etat_processus, executable_candidat, |
rpliconv_md5) != d_vrai) |
"rpliconv") != d_vrai) |
{ |
|
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
|
return; |
|
} |
|
|
|
if (controle(s_etat_processus, executable_candidat, "sha1", |
|
rpliconv_sha1) != d_vrai) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
return; |
return; |
Line 1086 instruction_recall(struct_processus *s_e
|
Line 1136 instruction_recall(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (controle(s_etat_processus, executable_candidat, "md5", |
if (controle_integrite(s_etat_processus, executable_candidat, |
rplfile_md5) != d_vrai) |
"rplfile") != d_vrai) |
{ |
|
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
|
return; |
|
} |
|
|
|
if (controle(s_etat_processus, executable_candidat, "sha1", |
|
rplfile_sha1) != d_vrai) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
return; |
return; |
Line 1109 instruction_recall(struct_processus *s_e
|
Line 1152 instruction_recall(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (controle(s_etat_processus, executable_candidat, "md5", |
if (controle_integrite(s_etat_processus, executable_candidat, |
rplpp_md5) != d_vrai) |
"rplpp") != d_vrai) |
{ |
|
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
|
return; |
|
} |
|
|
|
if (controle(s_etat_processus, executable_candidat, "sha1", |
|
rplpp_sha1) != d_vrai) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
return; |
return; |
Line 1132 instruction_recall(struct_processus *s_e
|
Line 1168 instruction_recall(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (controle(s_etat_processus, executable_candidat, "md5", |
if (controle_integrite(s_etat_processus, executable_candidat, |
rplawk_md5) != d_vrai) |
"rplawk") != d_vrai) |
{ |
|
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
|
return; |
|
} |
|
|
|
if (controle(s_etat_processus, executable_candidat, "sha1", |
|
rplawk_sha1) != d_vrai) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
return; |
return; |
Line 1175 instruction_recall(struct_processus *s_e
|
Line 1204 instruction_recall(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (controle(s_etat_processus, executable_candidat, "md5", |
if (controle_integrite(s_etat_processus, executable_candidat, |
rpliconv_md5) != d_vrai) |
"rpliconv") != d_vrai) |
{ |
|
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
|
return; |
|
} |
|
|
|
if (controle(s_etat_processus, executable_candidat, "sha1", |
|
rpliconv_sha1) != d_vrai) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
return; |
return; |
Line 1198 instruction_recall(struct_processus *s_e
|
Line 1220 instruction_recall(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (controle(s_etat_processus, executable_candidat, "md5", |
if (controle_integrite(s_etat_processus, executable_candidat, |
rplfile_md5) != d_vrai) |
"rplfile") != d_vrai) |
{ |
|
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
|
return; |
|
} |
|
|
|
if (controle(s_etat_processus, executable_candidat, "sha1", |
|
rplfile_sha1) != d_vrai) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
return; |
return; |
Line 1221 instruction_recall(struct_processus *s_e
|
Line 1236 instruction_recall(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (controle(s_etat_processus, executable_candidat, "md5", |
if (controle_integrite(s_etat_processus, executable_candidat, |
rplpp_md5) != d_vrai) |
"rplpp") != d_vrai) |
{ |
|
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
|
return; |
|
} |
|
|
|
if (controle(s_etat_processus, executable_candidat, "sha1", |
|
rplpp_sha1) != d_vrai) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
return; |
return; |
Line 1244 instruction_recall(struct_processus *s_e
|
Line 1252 instruction_recall(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (controle(s_etat_processus, executable_candidat, "md5", |
if (controle_integrite(s_etat_processus, executable_candidat, |
rplawk_md5) != d_vrai) |
"rplawk") != d_vrai) |
{ |
|
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
|
return; |
|
} |
|
|
|
if (controle(s_etat_processus, executable_candidat, "sha1", |
|
rplawk_sha1) != d_vrai) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
(*s_etat_processus).erreur_systeme = d_es_somme_controle; |
return; |
return; |