-// Copyright (C) 2007-2008 CEA/DEN, EDF R&D, OPEN CASCADE
+// Copyright (C) 2007-2023 CEA, EDF, OPEN CASCADE
//
-// Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
-// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
+// Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
+// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
//
-// This library is free software; you can redistribute it and/or
-// modify it under the terms of the GNU Lesser General Public
-// License as published by the Free Software Foundation; either
-// version 2.1 of the License.
+// This library is free software; you can redistribute it and/or
+// modify it under the terms of the GNU Lesser General Public
+// License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
//
-// This library is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-// Lesser General Public License for more details.
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+// Lesser General Public License for more details.
//
-// You should have received a copy of the GNU Lesser General Public
-// License along with this library; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+// You should have received a copy of the GNU Lesser General Public
+// License along with this library; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
-// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
+// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
//
+
// File : calciumP.h
// Author : Eric Fayolle (EDF)
// Module : KERNEL
-
+//
/* Outils d'Aide au Couplage de Code de Calcul : $Id$ */
#ifndef __CONST_H
#define __CONST_H
-#ifndef TrueOrFalse
-#define TrueOrFalse int
-#define TRUE 1
-#define FALSE 0
+#ifndef TrueOrFalse
+#define TrueOrFalse int
+#define TRUE 1
+#define FALSE 0
#endif
-/* Definition d'un type de donnes pour le stockage du */
-/* des pas de temps */
+/* Definition d'un type de donnes pour le stockage du */
+/* des pas de temps */
#ifdef CRAY
-#define Temps float
-#define FORMAT_TEMPS "%lf"
+#define Temps float
+#define FORMAT_TEMPS "%lf"
#else
-#define Temps double
-#define FORMAT_TEMPS "%lg"
+#define Temps double
+#define FORMAT_TEMPS "%lg"
#endif
/* Precision relative pour tests d'egalite sur les temps */
#define EPSILON 1.e-6
-/* Tailles utilisees lors des transmissions des noms */
-#define VERSION_LEN 144
-#define CODE_LEN 72
-#define VARIABLE_LEN 144
-#define INSTANCE_LEN 72
-#define DRIVER_LEN 72
-
-
-/* Tailles maximums */
-#define ARCHI_LEN 64
-#define ENV_VAR_LEN 256
-#define ACCC_LEN 256
-#define PVM_LEN 256
-#define USER_LEN 256
-#define MACHINE_LEN 256
-#define COMMAND_LEN 256
-#define MAX_LEN 256
-#define FICHIER_LEN 256
-
-/* Nombre de lignes dans une page du fichier erreur *
- * de trace */
-#define NB_LIGNE_ERREUR 45
-#define NB_LIGNE_TRACE 45
-
-
-
-/* Type d'arret d'une instance */
-#define CP_NORMALE 10
-#define CP_ANORMALE 11
-
-/* Directive de continuation d'une instance */
-#define CP_CONT 20
-#define CP_ARRET 21
-
-/* Etat d'une instance */
-#define CP_INITIAL 22
-#define CP_NON_CONNECTE 23
-#define CP_ATTENTE 24
-#define CP_EXECUTION 25
-#define CP_DECONNECTE 26
-#define CP_TERMINE 27
-
-/* Type de variables */
-#define CP_ENTIER 30
-#define CP_REEL 31
-#define CP_DREEL 32
-#define CP_COMPLEXE 33
-#define CP_LOGIQUE 34
-#define CP_CHAINE 35
-
-/* Type de dependance des variables */
-#define CP_TEMPS 40
-#define CP_ITERATION 41
-#define CP_SEQUENTIEL 42
-
-/* Send des variables */
-#define CP_IN 50
-#define CP_OUT 51
-
-/* Type des instances */
-#define CP_NORMAL 60
-#define CP_ESPION 62
-
-/* Niveaux */
-#define CP_ILLIMITE -70
-#define CP_AUTESP -71
-
-/* Mode de trace */
-#define CP_SANS 80
-#define CP_SUCCINCT 81
-#define CP_DETAILLE 82
-
-
-/* Mode d'execution */
-/* La valeur CP_NORMAL definie pour les types */
-/* est aussi utilisee */
-#define CP_PAUSE 91
-
-
-/* Type d'interpolation */
-#define CP_LINEAIRE 100
-#define CP_ESCALIER 101
-
-
-/* Repere dans cycle de temps */
-#define TI 110
-#define TF 111
-
-/* Mode de nettoyage des donnees d'un lien */
-#define CP_TOUTES 120
-#define CP_AUCUNE 121
-#define CP_PAS 122
-
-/* Options configurables */
-#define CP_ROUTE 131
-#define CP_ERREURS 132
-
-/* Valeurs pour l'option CP_ROUTE */
-#define CP_ROUTE_NORMAL 133
-#define CP_ROUTE_DIRECT 134
-
-/* Valeurs pour l'option Comportement en cas d'erreur */
-#define CP_AUTO 135
-#define CP_BLOCAGE 136
-#define CP_MANUEL 137
-
-/* Type de requete de lecture */
-/* La valeur CP_ATTENTE define pour l'etat d'une */
-/* instance est aussi utilisee */
-#define CP_IMMEDIATE 141
-
-/* Definition des types de lien */
-#define CPLVAV 151
-#define CPLVAF 152
-#define CPLVAS 153
-#define CPLCAV 154
-#define CPLFAV 155
-
-/* Codes des entetes des messages (Evenemet *) */
-#define ERREUR 1000
-#define CONNEXION 1001
-#define EMISSION 1002
-#define DECONNEXION 1003
-#define LECTURE_VARIABLE 1004
-#define ECRITURE_VARIABLE 1005
-#define FIN_DE_PAS 1006
-#define AUIN_FIN_DE_PAS 1007
-#define EFFACEMENT 1008
-#define MODE_EXEC 1009
-#define RUN_N_PAS 1010
-#define DEF_CODE 1011
-#define DEF_INSTANCE 1012
-#define DEF_LIEN 1013
-#define DEM_VERSION 1014
-#define SET_OPTION 1015
-#define DEM_OPTION 1016
-#define DEM_CODES 1017
-#define DEM_INSTS_DE_CODE 1018
-#define DEM_VARIABLES 1019
-#define DEM_VARS_DE_CODE 1020
-#define DEM_VARS_DE_INST 1021
-#define DEM_CARS_DE_VARIABLE 1022
-#define DEM_CARS_DE_LIEN 1023
-#define ENV_VALEURS_VARIABLE 1024
-#define ENV_OPTION 1025
-#define ENV_CODES 1026
-#define ENV_INSTS_DE_CODE 1027
-#define ENV_VARIABLES 1028
-#define ENV_VARS_DE_CODE 1029
-#define ENV_VARS_DE_INST 1030
-#define ENV_CARS_DE_VARIABLE 1031
-#define ENV_CARS_DE_LIEN 1032
+/* Tailles utilisees lors des transmissions des noms */
+#define VERSION_LEN 144
+#define CODE_LEN 72
+#define VARIABLE_LEN 144
+#define INSTANCE_LEN 72
+#define DRIVER_LEN 72
+
+
+/* Tailles maximums */
+#define ARCHI_LEN 64
+#define ENV_VAR_LEN 256
+#define ACCC_LEN 256
+#define PVM_LEN 256
+#define USER_LEN 256
+#define MACHINE_LEN 256
+#define COMMAND_LEN 256
+#define MAX_LEN 256
+#define FICHIER_LEN 256
+
+/* Nombre de lignes dans une page du fichier erreur *
+ * de trace */
+#define NB_LIGNE_ERREUR 45
+#define NB_LIGNE_TRACE 45
+
+
+
+/* Type d'arret d'une instance */
+#define CP_NORMALE 10
+#define CP_ANORMALE 11
+
+/* Directive de continuation d'une instance */
+#define CP_CONT 20
+#define CP_ARRET 21
+
+/* Etat d'une instance */
+#define CP_INITIAL 22
+#define CP_NON_CONNECTE 23
+#define CP_ATTENTE 24
+#define CP_EXECUTION 25
+#define CP_DECONNECTE 26
+#define CP_TERMINE 27
+
+/* Type de variables */
+#define CP_ENTIER 30
+#define CP_REEL 31
+#define CP_DREEL 32
+#define CP_COMPLEXE 33
+#define CP_LOGIQUE 34
+#define CP_CHAINE 35
+
+/* Type de dependance des variables */
+#define CP_TEMPS 40
+#define CP_ITERATION 41
+#define CP_SEQUENTIEL 42
+
+/* Send des variables */
+#define CP_IN 50
+#define CP_OUT 51
+
+/* Type des instances */
+#define CP_NORMAL 60
+#define CP_ESPION 62
+
+/* Niveaux */
+#define CP_ILLIMITE -70
+#define CP_AUTESP -71
+
+/* Mode de trace */
+#define CP_SANS 80
+#define CP_SUCCINCT 81
+#define CP_DETAILLE 82
+
+
+/* Mode d'execution */
+/* La valeur CP_NORMAL definie pour les types */
+/* est aussi utilisee */
+#define CP_PAUSE 91
+
+
+/* Type d'interpolation */
+#define CP_LINEAIRE 100
+#define CP_ESCALIER 101
+
+
+/* Repere dans cycle de temps */
+#define TI 110
+#define TF 111
+
+/* Mode de nettoyage des donnees d'un lien */
+#define CP_TOUTES 120
+#define CP_AUCUNE 121
+#define CP_PAS 122
+
+/* Options configurables */
+#define CP_ROUTE 131
+#define CP_ERREURS 132
+
+/* Valeurs pour l'option CP_ROUTE */
+#define CP_ROUTE_NORMAL 133
+#define CP_ROUTE_DIRECT 134
+
+/* Valeurs pour l'option Comportement en cas d'erreur */
+#define CP_AUTO 135
+#define CP_BLOCAGE 136
+#define CP_MANUEL 137
+
+/* Type de requete de lecture */
+/* La valeur CP_ATTENTE define pour l'etat d'une */
+/* instance est aussi utilisee */
+#define CP_IMMEDIATE 141
+
+/* Definition des types de lien */
+#define CPLVAV 151
+#define CPLVAF 152
+#define CPLVAS 153
+#define CPLCAV 154
+#define CPLFAV 155
+
+/* Codes des entetes des messages (Evenemet *) */
+#define ERREUR 1000
+#define CONNEXION 1001
+#define EMISSION 1002
+#define DECONNEXION 1003
+#define LECTURE_VARIABLE 1004
+#define ECRITURE_VARIABLE 1005
+#define FIN_DE_PAS 1006
+#define AUIN_FIN_DE_PAS 1007
+#define EFFACEMENT 1008
+#define MODE_EXEC 1009
+#define RUN_N_PAS 1010
+#define DEF_CODE 1011
+#define DEF_INSTANCE 1012
+#define DEF_LIEN 1013
+#define DEM_VERSION 1014
+#define SET_OPTION 1015
+#define DEM_OPTION 1016
+#define DEM_CODES 1017
+#define DEM_INSTS_DE_CODE 1018
+#define DEM_VARIABLES 1019
+#define DEM_VARS_DE_CODE 1020
+#define DEM_VARS_DE_INST 1021
+#define DEM_CARS_DE_VARIABLE 1022
+#define DEM_CARS_DE_LIEN 1023
+#define ENV_VALEURS_VARIABLE 1024
+#define ENV_OPTION 1025
+#define ENV_CODES 1026
+#define ENV_INSTS_DE_CODE 1027
+#define ENV_VARIABLES 1028
+#define ENV_VARS_DE_CODE 1029
+#define ENV_VARS_DE_INST 1030
+#define ENV_CARS_DE_VARIABLE 1031
+#define ENV_CARS_DE_LIEN 1032
#define ENV_TOPOLOGY 1033
#define R_ENV_TOPOLOGY 1034
#define ENV_MACHINE 1035
-/* Message PVM */
-#define P_HOST_DELETE 2000
-#define P_TASK_EXIT 2001
+/* Message PVM */
+#define P_HOST_DELETE 2000
+#define P_TASK_EXIT 2001
-/* Codes d'erreur */
+/* Codes d'erreur */
-/* Pas d'erreur */
-#define CPOK 0
+/* Pas d'erreur */
+#define CPOK 0
-/* Emetteur inconnu */
-#define CPERIU 1
+/* Emetteur inconnu */
+#define CPERIU 1
-/* Nom de variable inconnu */
-#define CPNMVR 2
+/* Nom de variable inconnu */
+#define CPNMVR 2
-/* Type entree/sortie incompatible */
-#define CPIOVR 3
+/* Type entree/sortie incompatible */
+#define CPIOVR 3
-/* Type inconnu */
-#define CPTP 4
+/* Type inconnu */
+#define CPTP 4
-/* Type de variable incompatible */
-#define CPTPVR 5
+/* Type de variable incompatible */
+#define CPTPVR 5
-/* Mode de dependance inconnu */
-#define CPIT 6
+/* Mode de dependance inconnu */
+#define CPIT 6
-/* Mode dependance incompatible */
-#define CPITVR 7
+/* Mode dependance incompatible */
+#define CPITVR 7
-/* Requete non autorisee */
-#define CPRENA 8
+/* Requete non autorisee */
+#define CPRENA 8
-/* Type de deconnexion incorrect */
-#define CPDNTP 9
+/* Type de deconnexion incorrect */
+#define CPDNTP 9
-/* Directive de deconnexion incorrecte */
-#define CPDNDI 10
+/* Directive de deconnexion incorrecte */
+#define CPDNDI 10
-/* Nom de code inconnu */
-#define CPNMCD 11
+/* Nom de code inconnu */
+#define CPNMCD 11
-/* Nom d'instance inconnu */
-#define CPNMIN 12
+/* Nom d'instance inconnu */
+#define CPNMIN 12
-/* Attente */
-#define CPATTENTE 13
+/* Attente */
+#define CPATTENTE 13
-/* Blocage */
-#define CPBLOC 14
+/* Blocage */
+#define CPBLOC 14
-/* Nombre de valeurs transmises egal a zero */
-#define CPNTNULL 15
+/* Nombre de valeurs transmises egal a zero */
+#define CPNTNULL 15
-/* Longueur de variable insuffisante */
-#define CPLGVR 16
+/* Longueur de variable insuffisante */
+#define CPLGVR 16
-/* L'instance doit s'arreter */
-#define CPSTOP 17
+/* L'instance doit s'arreter */
+#define CPSTOP 17
-/* Arret anormal */
-#define CPATAL 18
+/* Arret anormal */
+#define CPATAL 18
-/* Coupleur abscent */
-#define CPNOCP 19
+/* Coupleur abscent */
+#define CPNOCP 19
-/* Variable sortante non connectee */
-#define CPCTVR 20
+/* Variable sortante non connectee */
+#define CPCTVR 20
-/* Nombre de pas a executer egal a zero */
-#define CPPASNULL 21
+/* Nombre de pas a executer egal a zero */
+#define CPPASNULL 21
-/* Machine inconnue */
-#define CPMACHINE 22
+/* Machine inconnue */
+#define CPMACHINE 22
-/* COUPLAGE_GROUPE non positionnee */
-#define CPGRNU 23
+/* COUPLAGE_GROUPE non positionnee */
+#define CPGRNU 23
-/* Groupe d'instances incorrect */
-#define CPGRIN 24
+/* Groupe d'instances incorrect */
+#define CPGRIN 24
-/* Fin du fichier d'entree */
-#define CPFINFICH 25
+/* Fin du fichier d'entree */
+#define CPFINFICH 25
-/* Erreur de format dans un fichier */
-#define CPERRFICH 26
+/* Erreur de format dans un fichier */
+#define CPERRFICH 26
-/* Requete d'avance de n pas annullee */
-/* par passage en mode NORMAL */
-#define CPNORERR 27
+/* Requete d'avance de n pas annullee */
+/* par passage en mode NORMAL */
+#define CPNORERR 27
-/* Coupleur en mode NORMAL pour une */
-/* requete RUN_N_PAS ou DEF_* */
-#define CPRUNERR 28
+/* Coupleur en mode NORMAL pour une */
+/* requete RUN_N_PAS ou DEF_* */
+#define CPRUNERR 28
-/* Option inconnue */
-#define CPOPT 29
+/* Option inconnue */
+#define CPOPT 29
-/* Valeur d'option inconnue */
-#define CPVALOPT 30
+/* Valeur d'option inconnue */
+#define CPVALOPT 30
-/* Ecriture impossible par effacement */
-#define CPECREFF 31
+/* Ecriture impossible par effacement */
+#define CPECREFF 31
-/* Lecture d'une variable non connectee */
-/* ou n'appartenant pas a un lien VAS */
-/* ou VAV s'il s'agit d'une sortante */
-#define CPLIEN 32
+/* Lecture d'une variable non connectee */
+/* ou n'appartenant pas a un lien VAS */
+/* ou VAV s'il s'agit d'une sortante */
+#define CPLIEN 32
/* Lecture d'une variable d'une instance*/
-/* deconnectee avec directive CP_ARRET */
-#define CPINARRET 33
+/* deconnectee avec directive CP_ARRET */
+#define CPINARRET 33
-/* Les lectures sequentielles ne pourront plus */
-/* etre satisfaites : instance productrice arretee */
-#define CPSTOPSEQ 34
+/* Les lectures sequentielles ne pourront plus */
+/* etre satisfaites : instance productrice arretee */
+#define CPSTOPSEQ 34
-/* Erreur dans la chaine de declaration */
-#define CPDECL 35
+/* Erreur dans la chaine de declaration */
+#define CPDECL 35
/* Erreur dans l'execution de l'instance ajoutee */
-#define CPINEXEC 36
+#define CPINEXEC 36
-/* Erreur PVM */
-#define CPPVM 37
+/* Erreur PVM */
+#define CPPVM 37
-/* Erreur detectee au niveau de l'interface de couplage */
-#define CPERRINST 38
+/* Erreur detectee au niveau de l'interface de couplage */
+#define CPERRINST 38
/* IDM : les deux define suivants ont ete rajoutes a la main*/
/* Erreur de mode d'execution non defini */
-#define CPMODE 39
+#define CPMODE 39
/* Erreur d'instance deconnectee */
-#define CPINSTDEC 40
+#define CPINSTDEC 40
-/* Codes des evenements pour le fichier de trace */
+/* Codes des evenements pour le fichier de trace */
-/* Debut du couplage */
-#define DEBUT_COUPLAGE 0
+/* Debut du couplage */
+#define DEBUT_COUPLAGE 0
-/* Fin du couplage */
-#define FIN_COUPLAGE 1
+/* Fin du couplage */
+#define FIN_COUPLAGE 1
-/* Execution d'une instance par Oacc */
-#define EXEC 2
+/* Execution d'une instance par Oacc */
+#define EXEC 2
-/* Connexion d'une instance */
-#define CPCD 3
+/* Connexion d'une instance */
+#define CPCD 3
-/* Permission d'emettre accordee a l'instance */
-#define CPALLOW 4
+/* Permission d'emettre accordee a l'instance */
+#define CPALLOW 4
-/* Requete d'ecriture */
-#define CPECRI 5
+/* Requete d'ecriture */
+#define CPECRI 5
-/* Requete de lecture */
-#define DEB_LECT 6
+/* Requete de lecture */
+#define DEB_LECT 6
-/* Envoi des donnees suite a une requete de lecture */
-#define FIN_LECT 7
+/* Envoi des donnees suite a une requete de lecture */
+#define FIN_LECT 7
-/* Deconnexion d'une instance */
-#define CPFIN 8
+/* Deconnexion d'une instance */
+#define CPFIN 8
-/* Requete de fin de pas */
-#define CPFINP 9
+/* Requete de fin de pas */
+#define CPFINP 9
-/* Requete d'autorisation de fin de pas */
-#define CPAUFP 10
+/* Requete d'autorisation de fin de pas */
+#define CPAUFP 10
-/* Requete d'interdiction de fin de pas */
-#define CPINFP 11
+/* Requete d'interdiction de fin de pas */
+#define CPINFP 11
-/* Requete d'effacement */
-#define CPEFF 12
+/* Requete d'effacement */
+#define CPEFF 12
-/* Signal d'arret d'une instance */
-#define STOP 13
+/* Signal d'arret d'une instance */
+#define STOP 13
-/* Avis de blocage suite a une requete de lecture */
-#define BLOCAGE 14
+/* Avis de blocage suite a une requete de lecture */
+#define BLOCAGE 14
-/* Requete de passage en mode pause */
-#define CPPAUSE 15
+/* Requete de passage en mode pause */
+#define CPPAUSE 15
-/* Requete de passage en mode normal */
-#define CPNORMAL 16
+/* Requete de passage en mode normal */
+#define CPNORMAL 16
-/* Requete d'execution de n pas */
-#define CPNPAS 17
+/* Requete d'execution de n pas */
+#define CPNPAS 17
-/* Requete de definition d'un code */
-#define CPADCD 18
+/* Requete de definition d'un code */
+#define CPADCD 18
-/* Requete de definition d'une instance */
-#define CPADINCD 19
+/* Requete de definition d'une instance */
+#define CPADINCD 19
-/* Requete de definition d'un lien */
-#define CPADLN 20
+/* Requete de definition d'un lien */
+#define CPADLN 20
-/* Requete d'identification de version */
-#define CPIVERS 21
+/* Requete d'identification de version */
+#define CPIVERS 21
-/* Requete de demande de la liste des codes */
-#define CPICD 22
+/* Requete de demande de la liste des codes */
+#define CPICD 22
-/* Requete de demande des instances d'un code */
-#define CPIINCD 23
+/* Requete de demande des instances d'un code */
+#define CPIINCD 23
/* Requete de demande de la liste des variables globales*/
-#define CPIVR 24
+#define CPIVR 24
-/* Requete de demande des variables d'un code */
-#define CPIVRCD 25
+/* Requete de demande des variables d'un code */
+#define CPIVRCD 25
-/* Requete de demande des variables d'une instance */
-#define CPIVRIN 26
+/* Requete de demande des variables d'une instance */
+#define CPIVRIN 26
-/* Requete de demande d'info sur une variable globale */
-#define CPICAVR 27
+/* Requete de demande d'info sur une variable globale */
+#define CPICAVR 27
-/* Requete de demande des caracteristiques d'un lien */
-#define CPIILIEN 28
+/* Requete de demande des caracteristiques d'un lien */
+#define CPIILIEN 28
-/* Requete de modification d'une option */
-#define CPSETOPT 29
+/* Requete de modification d'une option */
+#define CPSETOPT 29
-/* Requete de consultation d'une option */
-#define CPGETOPT 30
+/* Requete de consultation d'une option */
+#define CPGETOPT 30
-/* Terminaison d'une tache PVM */
-#define TASK_EXIT 31
+/* Terminaison d'une tache PVM */
+#define TASK_EXIT 31
-/* Deconnexion d'une machine */
-#define HOST_DELETE 32
+/* Deconnexion d'une machine */
+#define HOST_DELETE 32
#ifdef PRG_MAIN
-/* Fichier principal de la bibliotheque de couplage */
-
-
-char * CPMESSAGE[] = {
- "Pas d'erreur",
- "Emetteur inconnu",
- "Nom de la variable inconnu",
- "Code entree/sortie differents dans le coupleur et dans le code",
- "Type de variable inconnu",
- "Types de variable differents dans le coupleur et dans le code",
- "Mode de dependance inconnu",
- "Modes de dependance differents dans le coupleur et dans le code",
- "Requete non autorisee",
- "Type de deconnexion incorrect",
- "Directive de deconnexion incorrecte",
- "Nom de code inconnu",
- "Nom d'instance inconnu",
- "Requete en attente",
- "Cas de blocage",
- "Nombre de valeurs transmises egal a zero",
- "Longueur de variable insuffisante",
- "L'instance doit s'arreter",
- "Arret anormal d'une instance",
- "Coupleur abscent, execution manuelle",
- "Variable sortante non connectee",
- "Nombre de pas a executer egal a zero",
- "Machine non declaree",
- "La variable d'environnement COUPLAGE_GROUPE n'est pas positionnee",
- "Le groupe d'instances indique par COUPLAGE_GROUPE est incorrect",
- "Fin du fichier d'entree",
- "Erreur de format dans le fichier d'entree",
- "Requete annulee a cause du passage en mode NORMAL",
- "Le coupleur est en mode d'execution normal",
- "Option inconnue",
- "Valeur d'option incorrecte",
- "Ecriture impossible a cause d'une requete d'effacement",
- "Lecture d'une variable incorrectement connectee",
- "Lecture d'une variable d'une instance deconnectee avec CP_ARRET",
- "Lectures sequentielles plus satisfaites",
- "Erreur dans la chaine de declaration",
- "Erreur dans le lancement de l'instance ajoutee",
- "Erreur PVM",
- "Erreur detectee au niveau de l'instance",
- };
+/* Fichier principal de la bibliotheque de couplage */
+ const char * CPMESSAGE[] = {
+ "",
+ "Emitter unknown",
+ "Variable name unknown",
+ "Different input/output codes in code and supervisor",
+ "Variable type unknown",
+ "Different variable types in code and supervisor",
+ "Dependency mode unknown",
+ "Different dependency modes in code and supervisor",
+ "Unauthorized request",
+ "Unauthorized disconnection request type",
+ "Unauthorized disconnection directive",
+ "Code name unknown",
+ "Instance name unknown",
+ "Waiting request",
+ "Blocking",
+ "Zero value number",
+ "Insufficient variable length",
+ "Instance is going to stop",
+ "Unexpected instance stop",
+ "Manuel execution",
+ "Output variable not connected",
+ "Number of steps to execute is nul",
+ "Non declared computer",
+ "Environment variable COUPLAGE_GROUPE is not set",
+ "Instance group given by COUPLAGE_GROUPE is wrong",
+ "End of input file",
+ "Format error in input file",
+ "Request ignored because of switching to NORMAL mode",
+ "Supervisor is in normal execution mode",
+ "Unknown option",
+ "Option value is wrong",
+ "Impossible to write because of an erasing request",
+ "Reading of a variable wrongly connected",
+ "Reading of a variable of an instance disconnected with CP_ARRET",
+ "Sequential reading no more possible",
+ "Error in declaration",
+ "Error in instance launching",
+ "Communication error",
+ "Error in the instance",
+ "Environment variable CAL_MODE is not set",
+ "Disconnected instance",
+ };
#else
-extern char * CPMESSAGE[];
+extern const char * CPMESSAGE[];
#endif
-/* Type de variables */
-#define ENTIER 30
-#define REEL 31
-#define DREEL 32
-#define COMPLEXE 33
-#define LOGIQUE 34
-#define CHAINE 35
+/* Type de variables */
+#define ENTIER 30
+#define REEL 31
+#define DREEL 32
+#define COMPLEXE 33
+#define LOGIQUE 34
+#define CHAINE 35
/* Macro minuscule majuscule */
-#define TOUPPER(string) \
+#define TOUPPER(string) \
{\
int i, number = strlen(string);\
for (i = 0; i < number; i++) string[i] = toupper(string[i]); \
}
/* Macro inferieur */
-#define INF(a,b) (a <= b ? a : b)
+#define INF(a,b) (a <= b ? a : b)
/* Macro superieur */
-#define SUP(a,b) (a >= b ? a : b)
+#define SUP(a,b) (a >= b ? a : b)
#endif