_______________________________________________________________________________________________________________________________________ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S D E S D O N N E S C O M M U N E S : */ /* */ /* */ /* Dans ce fichier, se trouvent */ /* toutes les donnees communes */ /* utiles aux autres modules. */ /* */ /* */ /* Author of '$xig/common$STR' : */ /* */ /* Jean-Francois COLONNA (LACTAMME, 19870000000000). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S D E S " B U G S " P R E S E N T S : */ /* */ /*************************************************************************************************************************************/ #ifdef BUG_SYSTEME_APC_GCC_tableaux_statiques_trop_volumineux_1 /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_APC_GCC_tableaux_statiques_trop_volumineux_1)); /* Introduit le 20241120181605... */ #Aifdef BUG_SYSTEME_APC_GCC_tableaux_statiques_trop_volumineux_1 /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_APC_GCC_tableaux_statiques_trop_volumineux_1 /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_APC_GCC_too_large_stack_frames /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_APC_GCC_too_large_stack_frames)); #Aifdef BUG_SYSTEME_APC_GCC_too_large_stack_frames /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_APC_GCC_too_large_stack_frames /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_APC_GCC_ExcessPrecisionProblem_01 /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_APC_GCC_ExcessPrecisionProblem_01)); #Aifdef BUG_SYSTEME_APC_GCC_ExcessPrecisionProblem_01 /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_APC_GCC_ExcessPrecisionProblem_01 /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_APC_GCC_ExcessPrecisionProblem_02 /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_APC_GCC_ExcessPrecisionProblem_02)); #Aifdef BUG_SYSTEME_APC_GCC_ExcessPrecisionProblem_02 /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_APC_GCC_ExcessPrecisionProblem_02 /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported)); #Aifdef BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_VAX_ULTRIX_GCC_jumps_superieurs_a_32_kilo_octets /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_VAX_ULTRIX_GCC_jumps_superieurs_a_32_kilo_octets)); #Aifdef BUG_SYSTEME_VAX_ULTRIX_GCC_jumps_superieurs_a_32_kilo_octets /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_VAX_ULTRIX_GCC_jumps_superieurs_a_32_kilo_octets /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SPS9_ROS_RC_VIC1 /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SPS9_ROS_RC_VIC1)); #Aifdef BUG_SYSTEME_SPS9_ROS_RC_VIC1 /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SPS9_ROS_RC_VIC1 /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_CRAY_C_ADRESSE /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_CRAY_C_ADRESSE)); #Aifdef BUG_SYSTEME_CRAY_C_ADRESSE /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_CRAY_C_ADRESSE /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_rexec_login_passwd_interactif /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_rexec_login_passwd_interactif)); #Aifdef BUG_SYSTEME_rexec_login_passwd_interactif /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_rexec_login_passwd_interactif /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SG_C_sin /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SG_C_sin)); #Aifdef BUG_SYSTEME_SG_C_sin /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SG_C_sin /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_C_blockV /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_C_blockV)); #Aifdef BUG_SYSTEME_C_blockV /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_C_blockV /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_C_SARS /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_C_SARS)); #Aifdef BUG_SYSTEME_C_SARS /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_C_SARS /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_CRAY_C_INFINI /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_CRAY_C_INFINI)); #Aifdef BUG_SYSTEME_CRAY_C_INFINI /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_CRAY_C_INFINI /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_ES9000_AIX_CC_EPSILON_ET_INFINI_double_precision /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_ES9000_AIX_CC_EPSILON_ET_INFINI_double_precision)); #Aifdef BUG_SYSTEME_ES9000_AIX_CC_EPSILON_ET_INFINI_double_precision /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_ES9000_AIX_CC_EPSILON_ET_INFINI_double_precision /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SGIND_CC_EPSILON_double_precision /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SGIND_CC_EPSILON_double_precision)); #Aifdef BUG_SYSTEME_SGIND_CC_EPSILON_double_precision /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SGIND_CC_EPSILON_double_precision /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_VAX_C_EPSILON_ET_INFINI_double_precision /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_VAX_C_EPSILON_ET_INFINI_double_precision)); #Aifdef BUG_SYSTEME_VAX_C_EPSILON_ET_INFINI_double_precision /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_VAX_C_EPSILON_ET_INFINI_double_precision /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SGIND_C_log /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SGIND_C_log)); #Aifdef BUG_SYSTEME_SGIND_C_log /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SGIND_C_log /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SGIND_C_log10 /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SGIND_C_log10)); #Aifdef BUG_SYSTEME_SGIND_C_log10 /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SGIND_C_log10 /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SG_C_pow /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SG_C_pow)); #Aifdef BUG_SYSTEME_SG_C_pow /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SG_C_pow /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SG_C_exp /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SG_C_exp)); #Aifdef BUG_SYSTEME_SG_C_exp /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SG_C_exp /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_C_dimensions_flottantes /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_C_dimensions_flottantes)); #Aifdef BUG_SYSTEME_C_dimensions_flottantes /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_C_dimensions_flottantes /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_COMMANDE_SYSTEM_1 /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_COMMANDE_SYSTEM_1)); #Aifdef BUG_SYSTEME_COMMANDE_SYSTEM_1 /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_COMMANDE_SYSTEM_1 /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_C_DEFINEX_0x /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_C_DEFINEX_0x)); #Aifdef BUG_SYSTEME_C_DEFINEX_0x /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_C_DEFINEX_0x /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SGIND_C_divisions_entieres /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SGIND_C_divisions_entieres)); #Aifdef BUG_SYSTEME_SGIND_C_divisions_entieres /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SGIND_C_divisions_entieres /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_VAX9000_ULTRIX_GCC_division_de_zero /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_VAX9000_ULTRIX_GCC_division_de_zero)); #Aifdef BUG_SYSTEME_VAX9000_ULTRIX_GCC_division_de_zero /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_VAX9000_ULTRIX_GCC_division_de_zero /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_C_caster_0x /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_C_caster_0x)); #Aifdef BUG_SYSTEME_C_caster_0x /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_C_caster_0x /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SYSTEME_APC_LinuxDebian_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SYSTEME_APC_LinuxDebian_GCC_numero_de_port)); #Aifdef BUG_SYSTEME_SYSTEME_APC_LinuxDebian_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SYSTEME_APC_LinuxDebian_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SYSTEME_APC_LinuxMandrake_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SYSTEME_APC_LinuxMandrake_GCC_numero_de_port)); #Aifdef BUG_SYSTEME_SYSTEME_APC_LinuxMandrake_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SYSTEME_APC_LinuxMandrake_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SYSTEME_APC_LinuxRedHat_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SYSTEME_APC_LinuxRedHat_GCC_numero_de_port)); #Aifdef BUG_SYSTEME_SYSTEME_APC_LinuxRedHat_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SYSTEME_APC_LinuxRedHat_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SYSTEME_APC_LinuxUbuntu_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SYSTEME_APC_LinuxUbuntu_GCC_numero_de_port)); #Aifdef BUG_SYSTEME_SYSTEME_APC_LinuxUbuntu_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SYSTEME_APC_LinuxUbuntu_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SYSTEME_APC_LinuxUbuntu_ICC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SYSTEME_APC_LinuxUbuntu_ICC_numero_de_port)); #Aifdef BUG_SYSTEME_SYSTEME_APC_LinuxUbuntu_ICC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SYSTEME_APC_LinuxUbuntu_ICC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SYSTEME_APC_LinuxUlmint_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SYSTEME_APC_LinuxUlmint_GCC_numero_de_port)); #Aifdef BUG_SYSTEME_SYSTEME_APC_LinuxUlmint_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SYSTEME_APC_LinuxUlmint_GCC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #ifdef BUG_SYSTEME_SYSTEME_APC_LinuxUlmint_ICC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_SYSTEME_APC_LinuxUlmint_ICC_numero_de_port)); #Aifdef BUG_SYSTEME_SYSTEME_APC_LinuxUlmint_ICC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ #Eifdef BUG_SYSTEME_SYSTEME_APC_LinuxUlmint_ICC_numero_de_port /* Common,DEFV(Fonction,) : bug... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S D E S V E R S I O N S : */ /* */ /*************************************************************************************************************************************/ #ifdef DEFV_CAST_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____DEFV_CAST_VERSION_01)); #Aifdef DEFV_CAST_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef DEFV_CAST_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef DEFV_CAST_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____DEFV_CAST_VERSION_02)); #Aifdef DEFV_CAST_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef DEFV_CAST_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef DEFV_CAST_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ DEFV(Common,DEFV(Logical,_____DEFV_CAST_VERSION_03)); #Aifdef DEFV_CAST_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ #Eifdef DEFV_CAST_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ #ifdef Register_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____Register_VERSION_01)); #Aifdef Register_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef Register_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef Register_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____Register_VERSION_02)); #Aifdef Register_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef Register_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_01)); #Aifdef DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_02)); #Aifdef DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef DEFINITION_DE__BeginFonction__RETU_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____DEFINITION_DE__BeginFonction__RETU_VERSION_01)); #Aifdef DEFINITION_DE__BeginFonction__RETU_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef DEFINITION_DE__BeginFonction__RETU_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef DEFINITION_DE__BeginFonction__RETU_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____DEFINITION_DE__BeginFonction__RETU_VERSION_02)); #Aifdef DEFINITION_DE__BeginFonction__RETU_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef DEFINITION_DE__BeginFonction__RETU_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef gCALZ_Free_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____gCALZ_Free_VERSION_01)); /* Introduit le 20221028173402... */ #Aifdef gCALZ_Free_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef gCALZ_Free_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef gCALZ_Free_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____gCALZ_Free_VERSION_02)); /* Introduit le 20221028173402... */ #Aifdef gCALZ_Free_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef gCALZ_Free_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____GESTION_DU_FORMAT_DES_IMAGES_VERSION_01)); #Aifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____GESTION_DU_FORMAT_DES_IMAGES_VERSION_02)); #Aifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ DEFV(Common,DEFV(Logical,_____GESTION_DU_FORMAT_DES_IMAGES_VERSION_03)); #Aifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ #Eifdef GESTION_DU_FORMAT_DES_IMAGES_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ #ifdef GESTION_DES_IMAGES_STATIQUES_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____GESTION_DES_IMAGES_STATIQUES_VERSION_01)); #Aifdef GESTION_DES_IMAGES_STATIQUES_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef GESTION_DES_IMAGES_STATIQUES_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef GESTION_DES_IMAGES_STATIQUES_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____GESTION_DES_IMAGES_STATIQUES_VERSION_02)); #Aifdef GESTION_DES_IMAGES_STATIQUES_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef GESTION_DES_IMAGES_STATIQUES_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_01)); #Aifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_02)); #Aifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ DEFV(Common,DEFV(Logical,_____INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_03)); #Aifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ #Eifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ #ifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_04 /* Common,DEFV(Fonction,) : avec 'VERSION_04'. */ DEFV(Common,DEFV(Logical,_____INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_04)); #Aifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_04 /* Common,DEFV(Fonction,) : avec 'VERSION_04'. */ #Eifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_04 /* Common,DEFV(Fonction,) : avec 'VERSION_04'. */ #ifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_05 /* Common,DEFV(Fonction,) : avec 'VERSION_05'. */ DEFV(Common,DEFV(Logical,_____INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_05)); #Aifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_05 /* Common,DEFV(Fonction,) : avec 'VERSION_05'. */ #Eifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_05 /* Common,DEFV(Fonction,) : avec 'VERSION_05'. */ #ifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_06 /* Common,DEFV(Fonction,) : avec 'VERSION_06'. */ DEFV(Common,DEFV(Logical,_____INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_06)); #Aifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_06 /* Common,DEFV(Fonction,) : avec 'VERSION_06'. */ #Eifdef INITIALISATION_DU_FORMAT_DES_IMAGES_DANS_GET_ARGUMENTSi_VERSION_06 /* Common,DEFV(Fonction,) : avec 'VERSION_06'. */ #ifdef ADRESSAGE_VERSION_32_BITS_DEFINI /* Common,DEFV(Fonction,) : avec '32_BITS_DEFINI'. */ DEFV(Common,DEFV(Logical,_____ADRESSAGE_VERSION_32_BITS_DEFINI)); #Aifdef ADRESSAGE_VERSION_32_BITS_DEFINI /* Common,DEFV(Fonction,) : avec '32_BITS_DEFINI'. */ #Eifdef ADRESSAGE_VERSION_32_BITS_DEFINI /* Common,DEFV(Fonction,) : avec '32_BITS_DEFINI'. */ #ifdef ADRESSAGE_VERSION_64_BITS_DEFINI /* Common,DEFV(Fonction,) : avec '64_BITS_DEFINI'. */ DEFV(Common,DEFV(Logical,_____ADRESSAGE_VERSION_64_BITS_DEFINI)); #Aifdef ADRESSAGE_VERSION_64_BITS_DEFINI /* Common,DEFV(Fonction,) : avec '64_BITS_DEFINI'. */ #Eifdef ADRESSAGE_VERSION_64_BITS_DEFINI /* Common,DEFV(Fonction,) : avec '64_BITS_DEFINI'. */ #ifdef ADRESSAGE_VERSION_64_BITS_INDEFINI /* Common,DEFV(Fonction,) : avec '64_BITS_INDEFINI'. */ DEFV(Common,DEFV(Logical,_____ADRESSAGE_VERSION_64_BITS_INDEFINI)); #Aifdef ADRESSAGE_VERSION_64_BITS_INDEFINI /* Common,DEFV(Fonction,) : avec '64_BITS_INDEFINI'. */ #Eifdef ADRESSAGE_VERSION_64_BITS_INDEFINI /* Common,DEFV(Fonction,) : avec '64_BITS_INDEFINI'. */ #ifdef ELEM_SYSTEME_DPX5000_SPIX_CC_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____ELEM_SYSTEME_DPX5000_SPIX_CC_VERSION_01)); #Aifdef ELEM_SYSTEME_DPX5000_SPIX_CC_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef ELEM_SYSTEME_DPX5000_SPIX_CC_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef ELEM_SYSTEME_DPX5000_SPIX_CC_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____ELEM_SYSTEME_DPX5000_SPIX_CC_VERSION_02)); #Aifdef ELEM_SYSTEME_DPX5000_SPIX_CC_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef ELEM_SYSTEME_DPX5000_SPIX_CC_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef gPRINT_DEFAUT_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ DEFV(Common,DEFV(Logical,_____gPRINT_DEFAUT_VERSION_01)); #Aifdef gPRINT_DEFAUT_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #Eifdef gPRINT_DEFAUT_VERSION_01 /* Common,DEFV(Fonction,) : avec 'VERSION_01'. */ #ifdef gPRINT_DEFAUT_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ DEFV(Common,DEFV(Logical,_____gPRINT_DEFAUT_VERSION_02)); #Aifdef gPRINT_DEFAUT_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #Eifdef gPRINT_DEFAUT_VERSION_02 /* Common,DEFV(Fonction,) : avec 'VERSION_02'. */ #ifdef gPRINT_DEFAUT_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ DEFV(Common,DEFV(Logical,_____gPRINT_DEFAUT_VERSION_03)); #Aifdef gPRINT_DEFAUT_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ #Eifdef gPRINT_DEFAUT_VERSION_03 /* Common,DEFV(Fonction,) : avec 'VERSION_03'. */ #ifdef gPRINT_DEFAUT_VERSION_04 /* Common,DEFV(Fonction,) : avec 'VERSION_04'. */ DEFV(Common,DEFV(Logical,_____gPRINT_DEFAUT_VERSION_04)); #Aifdef gPRINT_DEFAUT_VERSION_04 /* Common,DEFV(Fonction,) : avec 'VERSION_04'. */ #Eifdef gPRINT_DEFAUT_VERSION_04 /* Common,DEFV(Fonction,) : avec 'VERSION_04'. */ #ifdef gPRINT_DEFAUT_VERSION_05 /* Common,DEFV(Fonction,) : avec 'VERSION_05'. */ DEFV(Common,DEFV(Logical,_____gPRINT_DEFAUT_VERSION_05)); /* Introduit le 20111121143346... */ #Aifdef gPRINT_DEFAUT_VERSION_05 /* Common,DEFV(Fonction,) : avec 'VERSION_05'. */ #Eifdef gPRINT_DEFAUT_VERSION_05 /* Common,DEFV(Fonction,) : avec 'VERSION_05'. */ #ifdef RACINE_DU_NOM_DE_LA_LISTE_DES_ARGUMENTS_IMPLICITES /* Common,DEFV(Fonction,) : arguments implicites. */ DEFV(Common,DEFV(Logical,_____RESTAURATION_DE_LA_VALEUR_PAR_DEFAUT_DES_ARGUMENTS_IMPLICITES__VERSION_)); /* Ceci fut introduit le 20071117104057. ATTENTION : avec l'introduction le 20071117113750 */ /* de 'v $xccp/xbVERSION$vv$I RACINE_DU_NOM_DE_LA_LISTE_DES_ARGUMENTS_IMPLICITES' qui */ /* definit des indicateurs locaux a chaque librairie, alors que cet indicateur est global */ /* et qu'il n'a donc plus beaucoup de sens... */ #Aifdef RACINE_DU_NOM_DE_LA_LISTE_DES_ARGUMENTS_IMPLICITES /* Common,DEFV(Fonction,) : arguments implicites. */ #Eifdef RACINE_DU_NOM_DE_LA_LISTE_DES_ARGUMENTS_IMPLICITES /* Common,DEFV(Fonction,) : arguments implicites. */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D E S C O M P A T I B I L I T E S G E N E R A L E S : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(DEFINEF_____compatibilite_20120501,FAUX))); /* Afin de retablir le format de sortie de 'DEFINEF(...)' (introduit le 20120501092046). */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* G E S T I O N D E S S O R T I E S : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(Prin_____changer_le_stream,FAUX))); DEFV(Common,DEFV(Logical,ZINT(Prer_____changer_le_stream,FAUX))); DEFV(Common,DEFV(Logical,ZINT(Prme_____changer_le_stream,FAUX))); /* Afin de changer les "canaux" de sortie (introduit le 20001105121808). */ /* */ /* ATTENTION : reference dans 'v $xcc/cpp$Z Prme_____changer_le_stream'. */ /* */ /* ATTENTION : je note le 20230314101548 que 'Prin_____changer_le_stream' et */ /* 'Prin_____changer_le_stream' sont references explicitement dans */ /* 'v $xcc/cpp$Z ChAiNe2..Prme_____changer_le_stream.' et dans */ /* 'v $xcc/cpp$Z ChAiNe3..Prin_____changer_le_stream.'... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* G E S T I O N D U P A R A L L E L I S M E : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(ePARALLELE_____editer_le_verrou,FAUX))); /* Afin de pouvoir editer le verrou dans 'ePARALLELE(...)' (introduit le 20070710113335). */ DEFV(Common,DEFV(CHAR,INIT(POINTERc(identifiant_de_branches_paralleles),C_VIDE))); /* Afin de pouvoir distinguer, si besoin est, plusieurs commandes identiques s'executant */ /* en parallele, par exemple via 'execRVB' (introduit le 20111121135407)... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* G E S T I O N D E S A P P E L S C O N D I T I O N N E L S ' CALi(...) ' : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(CAL1_____executer,EXECUTER_LES_CALC))); DEFV(Common,DEFV(Logical,ZINT(CAL2_____executer,EXECUTER_LES_CALC))); DEFV(Common,DEFV(Logical,ZINT(CAL3_____executer,EXECUTER_LES_CALC))); DEFV(Common,DEFV(Logical,ZINT(CAL4_____executer,EXECUTER_LES_CALC))); /* Ces indicateurs sont utilises par les appels de type 'CALi(...)'. L'utilisation */ /* actuelle est la suivante : */ /* */ /* CAL1(...) : conditionne tous les appels aux fonctions 'Prer?(...)' et */ /* donc concerne aussi : */ /* */ /* PRINT_ATTENTION(...) */ /* PRINT_DEFAUT(...) */ /* PRINT_ERREUR(...) */ /* */ /* (voir les indicateurs 'PRINT_.*_____editer_les_messages' */ /* ci-apres...) */ /* */ /* CAL2(...) : conditionne tous les appels aux fonctions 'Prin?(...)'. */ /* CAL3(...) : conditionne tous les appels aux fonctions 'Prme?(...)'. */ /* */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* A U T O R I S A T I O N G L O B A L E D E S A C C E L E R A T E U R S D E F O N C T I O N S : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(ACCELERATEUR_DE_FONCTIONS_A_N_ARGUMENTS____utiliser,VRAI))); /* Introduit le 20120310093347... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* G E S T I O N D E L A R E I N I T I A L I S A T I O N */ /* D E S A R G U M E N T S I M P L I C I T E S D E S F O N C T I O N S : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(forcer_la_reinitialisation_des_arguments_implicites_des_fonctions,FAUX))); /* Pour forcer la reinitialisation des arguments implicites des fonctions (voir a ce propos */ /* 'v $xil/defi_c1$vv$DEF RESTAURATION_DE_LA_VALEUR_PAR_DEFAUT_DES_ARGUMENTS_IMPLICITES'). */ /* Ceci fut introduit le 20071117085718. */ /* */ /* On notera qu'a compter du 20071117120957, cette definition n'est plus rendue */ /* conditionnelle par : */ /* */ /* #ifdef RACINE_DU_NOM_DE_LA_LISTE_DES_ARGUMENTS_IMPLICITES */ /* /* Common,DEFV(Fonction,) : arguments implicites. */ /* (...) */ /* #Aifdef RACINE_DU_NOM_DE_LA_LISTE_DES_ARGUMENTS_IMPLICITES */ /* /* Common,DEFV(Fonction,) : arguments implicites. */ /* #Eifdef RACINE_DU_NOM_DE_LA_LISTE_DES_ARGUMENTS_IMPLICITES */ /* /* Common,DEFV(Fonction,) : arguments implicites. */ /* */ /* depuis 'v $xil/defi_c1$vv$DEF 20071117114933' ou ce dispositif peut etre active */ /* selectivement dans les librairies de '$xb'. Cet indicateur doit sonc etre imperativement */ /* genere, que le dispositif existe ou pas... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* G E S T I O N D E L A L I S T E D E S C O D E S D ' E R R E U R : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(CHAR,INIT(POINTERc(liste_des_CODE_ERREUR_rencontres),C_VIDE))); /* Afin de pouvoir "empiler" les differents 'CODE_ERREUR's rencontres au cours du temps */ /* (introduit le 20110224145913). */ DEFV(Common,DEFV(Logical,ZINT(editer_____liste_des_CODE_ERREUR_rencontres,FAUX))); /* Afin de pouvoir editer 'liste_des_CODE_ERREUR_rencontres' (introduit le 20110224145913). */ /* */ /* Le 20110226113046, on notera qu'on ne peut malheureusement pas renvoyer cela a un '$CSH', */ /* dans son environnement de type 'setenv' ('v $xil/defi_c2$vv$DEF 20110226101007'), ou */ /* encore a la facon de '$status'... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* G E S T I O N D E L ' E D I T I O N D E T O U S L E S M E S S A G E S D E D E F A U T : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(PRINT_DEFAUT_____editer_les_messages,EDITER_LES_MESSAGES_DE_PRINT_DEFAUT))); /* Cet indicateur est teste par 'PRINT_DEFAUT(...)' pour savoir s'il doit faire les sorties */ /* demandees ('VRAI') ou les ignorer toutes ('FAUX'), quel que soit la source de la */ /* demande ('PRINT_ATTENTION(...)' ou 'PRINT_ERREUR(...)'). */ DEFV(Common,DEFV(Logical,ZINT(PRINT_MESSAGE_____editer_les_messages,EDITER_LES_MESSAGES_DE_PRINT_MESSAGE))); /* Cet indicateur controle l'activite de 'PRINT_MESSAGE(...)'. */ DEFV(Common,DEFV(Logical,ZINT(PRINT_ERREUR_____editer_les_messages,EDITER_LES_MESSAGES_DE_PRINT_ERREUR))); /* Cet indicateur controle l'activite de 'PRINT_ERREUR(...)'. */ DEFV(Common,DEFV(Logical,ZINT(PRINT_ATTENTION_____editer_les_messages,EDITER_LES_MESSAGES_DE_PRINT_ATTENTION))); /* Cet indicateur controle l'activite de 'PRINT_ATTENTION(...)'. */ DEFV(Common,DEFV(Logical,ZINT(PRINT_AVERTISSEMENT_____editer_les_messages,NE_PAS_EDITER_LES_MESSAGES_DE_PRINT_AVERTISSEMENT))); /* Cet indicateur controle l'activite de 'PRINT_AVERTISSEMENT(...)'. Ce nouvel indicateur */ /* a ete ajoute le 19990210110724 afin de supprimer (implicitement) tous les messages du */ /* type 'PRINT_ATTENTION(...)' qui sortent avec les programmes de '$xrv' en particulier, et */ /* par exemple : */ /* */ /* "'ne=' doit etre defini avant toute entree de fichiers" */ /* "'saut=' doit etre defini avant toute entree de fichiers" */ /* */ /* et qui sont finalement assez inutiles... */ DEFV(Common,DEFV(Logical,ZINT(Prin_____editer_les_messages_d_en_tete,FAUX))); DEFV(Common,DEFV(Logical,ZINT(Prer_____editer_les_messages_d_en_tete,FAUX))); DEFV(Common,DEFV(Logical,ZINT(Prme_____editer_les_messages_d_en_tete,FAUX))); /* Introduits le 20111121144311... */ DEFV(Common,DEFV(Logical,ZINT(PRINT_DEBUG_____editer_les_messages,EDITER_LES_MESSAGES_DE_PRINT_DEBUG))); /* Cet indicateur controle l'activite de 'PRINT_DEBUG(...)'. */ DEFV(Common,DEFV(Logical,ZINT(DoQu_____editer_le_message_d_une_possible_boucle_infinie,VRAI))); /* Introduit le 20120419142601... */ DEFV(Common,DEFV(Logical,ZINT(TRI_D_UNE_LISTE_QUELCONQUE_VERSION_N_AU_CARRE_____editer_le_message_de_duree_excessive,VRAI))); /* Introduit le 20120509093754... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* V A R I A B L E S R E N D U E S N E C E S S A I R E S P A R L A C O M P I L A T I O N : */ /* */ /*************************************************************************************************************************************/ /* On pourra trouver ici des "constantes" utiles a l'interieur de procedures de '$PASSE_D' */ /* qui devraient donc l'etre aussi, mais qui par malheur, sont aussi conditionnelles... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D ' U N A R G U M E N T I N E X I S T A N T : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(CHAR,ZINS(DTb0(cNIL) ,Ichaine00 ) ) ); /* Pour definir des chaines (noms) indefinies. */ /* */ /* ATTENTION, il y avait autrefois : */ /* */ /* DEFV(Common,DEFV(CHAR,INIT(cNIL,K_UNDEF))); */ /* */ /* ainsi que : */ /* */ /* #define CHAINE_UNDEF \ */ /* ADRESSE(cNIL) */ /* */ /* dans '$xil/defi_c1.v?$DEF'. L'introduction de la possibilite d'editer les parametres */ /* reellement utilisees dans une commande ('$xig/fonct$vv$DEF' et '$xig/fonct$vv$FON') a */ /* contraint a ces changements... */ DEFV(Common,DEFV(Int,INIT(NIL,UNDEF))); /* Pour definir des variables indefinies. */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D U C A R A C T E R E D ' I N T R O D U C T I O N */ /* D E S D I R E C T I V E S D U P R E - P R O C E S S E U R : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(CHAR,ZINS(DTb0(cINTRODUCTION_DES_DIRECTIVES_DU_PREPROCESSEUR_cpp) ,Ichaine01(K_DIESE) ) ) ); /* Caractere d'introduction des directives du pre-processeur 'cpp' (le 20011029130310). */ /* */ /* ATTENTION : cette definition est mise sur plusieurs lignes afin principalement de */ /* faciliter le travail de '$xcg/gen.ext$Z'... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D U S E P A R A T E U R D E S C O M P O S A N T E S D ' U N P A T H : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(CHAR,ZINS(DTb0(cSEPARATEUR_DES_PATHS) ,Ichaine01(SEPARATEUR_DES_PATHS) ) ) ); /* Caractere de separation des differentes composantes d'un path defini en tant que chaine */ /* de caracteres. Je n'ai, malheureusement, pas trouve de solution plus simple pour */ /* convertir 'SEPARATEUR_DES_PATHS' en une chaine de caracteres. */ /* */ /* ATTENTION : cette definition est mise sur plusieurs lignes afin principalement de */ /* faciliter le travail de '$xcg/gen.ext$Z'... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D U S E P A R A T E U R D E S C O M P O S A N T E S D ' U N N O M : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(CHAR,ZINS(DTb0(cSEPARATEUR_DES_COMPOSANTES_D_UN_NOM) ,Ichaine01(SEPARATEUR_DES_COMPOSANTES_D_UN_NOM) ) ) ); /* Caractere de separation des differentes composantes d'un nom defini en tant que chaine */ /* de caracteres. Je n'ai, malheureusement, pas trouve de solution plus simple pour */ /* convertir 'SEPARATEUR_DES_COMPOSANTES_D_UN_NOM' en une chaine de caracteres. Ceci fut */ /* introduit le 20070424091405... */ /* */ /* ATTENTION : cette definition est mise sur plusieurs lignes afin principalement de */ /* faciliter le travail de '$xcg/gen.ext$Z'... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* P O U R L U T T E R C O N T R E L E S V I C E S D E C E R T A I N S C O M P I L A T E U R S : */ /* */ /*************************************************************************************************************************************/ #ifdef SYSTEME_SPS9_ROS_RC /* Common : uniquement si le compilateur est vicieux... */ # ifdef BUG_SYSTEME_SPS9_ROS_RC_VIC1 /* Common : le compilateur 'rc' est vicieux... */ DEFV(Common,DEFV(Int,INIT(eval_dummy,UNITE))); /* Cette variable entiere est destinee a etre utilisee dans la formule */ /* donnee par 'VIC1' et dont la valeur est toujours nulle ; de plus le type */ /* entier est choisi ('Int') car, c'est au niveau des conversions de types */ /* implicites, le "moins" prioritaire... */ # Aifdef BUG_SYSTEME_SPS9_ROS_RC_VIC1 /* Common : le compilateur 'rc' est vicieux... */ # Eifdef BUG_SYSTEME_SPS9_ROS_RC_VIC1 /* Common : le compilateur 'rc' est vicieux... */ #Aifdef SYSTEME_SPS9_ROS_RC /* Common : uniquement si le compilateur est vicieux... */ #Eifdef SYSTEME_SPS9_ROS_RC /* Common : uniquement si le compilateur est vicieux... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D E L A L I S T E I N D E F I N I E : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(l_element,liste_indefinie)); /* On definit ici une liste bidon destinee a definir ce qui est indefini... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D E L A P I L E I N D E F I N I E : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(l_element,pile_indefinie)); /* On definit ici une pile bidon destinee a definir ce qui est indefini... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* A R G U M E N T S D E L A C O M M A N D E C O U R A N T E : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Int,INIT(nombre_d_arguments,UNDEF))); DEFV(Common,DEFV(Positive,INIT(nombre_d_arguments_non_compris_le_nom,UNDEF))); DEFV(Common,DEFV(CHAR,INIT(POINTERc(POINTERc(arguments)),ADRESSE_NON_ENCORE_DEFINIE))); /* Arguments de 'BCommande(...)' introduits le 20221113113625 afin de pouvoir etre */ /* utilises dans des fonctions de 'v $xig/fonct$vv$FON 20221112133942'... */ /* */ /* Ceci a ete valide grace a 'v $xtc/argc_argv.12$c'... */ DEFV(Common,INIT_ERROR); /* Mis ici le 20221115135241 en le supprimant dans les '$K's... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* N O M D E L A C O M M A N D E C O U R A N T E : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(CHAR,INIT(POINTERc(nom_de_la_commande_courante),ADRESSE_NON_ENCORE_DEFINIE))); /* Afin de pouvoir editer le nom de la commande courante dans 'gPRINT_DEFAUT(...)'. */ DEFV(Common,DEFV(CHAR,INIT(POINTERc(nom_de_la_commande_courante_non_encore_definie),NOM_DE_LA_COMMANDE_COURANTE_NON_ENCORE_DEFINIE))); /* Introduit le 20120201102053 car, en effet, on ne peut utiliser ici 'ccCHAR(...)', la */ /* fonction 'Finitialisation_d_une_constante_chaine_de_caracteres(...)' n'etant definie */ /* que plus loin et que je n'ose pas mettre ici car elle utilise 'BASIQUE____Prer0(...)' */ /* d'ou un bouclage potentiel... */ /* */ /* Ceci a ete deplace le 20170405154100 depuis 'v $xig/fonct$vv$FON'... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* Q U E L Q U E S M E S S A G E S C O M M U N S : */ /* */ /*************************************************************************************************************************************/ /* On notera que le 20221125173526, j'ai essaye d'introduire ici : */ /* */ /* */ /* DEFV(Common,DEFV(CHAR,INIT(POINTERc(Message_DebordementListeDesArgumentsPossibles_1) */ /* ,"debordement de la liste des arguments possibles (1)" */ /* ) */ /* ) */ /* ); */ /* DEFV(Common,DEFV(CHAR,INIT(POINTERc(Message_DebordementListeDesArgumentsPossibles_2) */ /* ,"debordement de la liste des arguments possibles (2)" */ /* ) */ /* ) */ /* ); */ /* DEFV(Common,DEFV(CHAR,INIT(POINTERc(Message_DebordementListeDesArgumentsPossibles_3) */ /* ,"debordement de la liste des arguments possibles (3)" */ /* ) */ /* ) */ /* ); */ /* DEFV(Common,DEFV(CHAR,INIT(POINTERc(Message_DebordementListeDesArgumentsPossibles_4) */ /* ,"debordement de la liste des arguments possibles (4)" */ /* ) */ /* ) */ /* ); */ /* */ /* DEFV(Common,DEFV(CHAR,INIT(POINTERc(Message_LIndexCourantVaut) */ /* ,"(l'index courant vaut %d alors qu'il ne peut exceder %d)\n" */ /* ) */ /* ) */ /* ); */ /* */ /* */ /* Mais, tres paradoxalement, cela n'a pas reduit les '$c's et les '$X's, les tests ayant */ /* ete faits sur '$LACT1B' avec 'v $xcg/ADD3.01$K' et 'v $xcg/ADD3.01$K', les '$c's et les */ /* '$X's correspondants ayant sensiblement augmentes de taille... */ /* */ /* L'explication est la suivante : il semblerait que si dans un '$c' la meme chaine de */ /* caracteres apparait plusieurs fois, elle n'est en fait qu'une seule fois en memoire. */ /* Et c'est le cas des cinq chaines ci-dessus et ainsi il est plus economique de les */ /* laisser apparaitre plusieurs fois telles qu'elles sont utilisees a de tres nombreuses */ /* reprises dans 'v $xig/fonct$vv$DEF debordement.de.la.liste.des.arguments.possibles'... */ /* */ /* Cela s'est vu a cette date avec le petit '$c' suivant : */ /* */ /* #include <stdio.h> */ /* void main() */ /* { */ /* printf("message\n"); */ /* } */ /* */ /* et ensuite en regardant la taille du '$aPout' correspondant. Celle-ci reste constante */ /* lorsque l'on duplique le 'printf(...)' 1, 2, 3,... N fois... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* C H R O N O M E T R A G E D E L A C O M M A N D E C O U R A N T E : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(chronometrer_la_commande_courante,FAUX))); /* Afin de pouvoir chronometrer la commande courante (introduit le 20170518113229)... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* E D I T I O N D E S P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Positive,ZINT(tabulation_des_valeurs_affectees_aux_titres,TABULATION_DES_VALEURS_AFFECTEES_AUX_TITRES))); /* Afin de pouvoir changer la tabulation des sorties de "Parametres=VRAI" (introduit le */ /* 20011230094339). */ DEFV(Common,DEFV(Logical,ZINT(sauter_une_ligne_pour_chaque_nouveau_Parametre,FAUX))); /* Introduit le 20030627133822 pour permettre d'aerer la presentation... */ DEFV(Common,DEFV(CHAR,ZINS(DTb0(FORMAT_CHAI_EDITION_____caractere_d_encadrement) ,Ichaine01(K_QUOTE) ) ) ); DEFV(Common,DEFV(CHAR,ZINS(DTb0(FORMAT_CHAR_EDITION_____caractere_d_encadrement) ,Ichaine01(K_APOSTROPHE) ) ) ); /* Introduit le 20070227184930 pour permettre le parametrage de 'FORMAT_CHAI_EDITION' et de */ /* 'FORMAT_CHAR_EDITION'... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D I S P O S I T I F D ' A B R E V I A T I O N D E F I N I T I F E T I R R E V E R S I B L E */ /* D E S P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(CHAR,INIT(POINTERc(prefixe_destine_a_abreger_certains_Parametres_qui_suivent),C_VIDE))); /* Afin de pouvoir abreger les parametres d'une commande (introduit le 20030704090947). */ /* La valeur par defaut ('C_VIDE') correspond au fonctionnement habituel ou les parametres */ /* ne sont pas abreges. ATTENTION : afin que ce dispositif soit desactivable, il fut */ /* necessaire le 20030704142128 de limiter son utilisation a 'PROCESF_ARGUMENT_C(...)' */ /* ('v $xig/fonct$vv$DEF PreFixeParametres'). */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* G E S T I O N D E L A R E R E N T R E E D A N S L E S C O M M A N D E S : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Int,INIT(programme_principal_____indicateur_de_rerentree,PREMIERE_ENTREE_DANS_LE_PROGRAMME_PRINCIPAL))); /* Cet indicateur est utilise pour detecter les cas de "rerentree" dans le programme */ /* principal (voir 'Iload_image_avec_redimensionnement_eventuel(...)'). */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* Q U E L Q U E S A R G U M E N T S S T A N D A R D S P O U R L E S C O M M A N D E S : */ /* */ /*************************************************************************************************************************************/ /* ATTENTION : ce qui suit ne peut utiliser (provisoirement...) la fonction 'defined(...)' */ /* a cause de '$xcg/gen.ext$Z' qui ne sait pas la traiter correctement... */ #ifdef SYSTEME_DECALPHA340_OSF1_CC /* Common : version DECALPHA340/OSF1/CC. */ DEFV(Common,DEFV(CHAR,INIS(DTb0(nom_UNDEF_vide),__NOM_UNDEF_VIDE))); /* Destine a definir un nom vide... */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_pipe),__ARGUMENT_PIPE))); /* Destine a preciser qu'un certain fichier sera accede via un "pipe". */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_par_defaut),__ARGUMENT_PAR_DEFAUT))); /* Destine a forcer une valeur par defaut pour un argument. */ #Aifdef SYSTEME_DECALPHA340_OSF1_CC /* Common : version DECALPHA340/OSF1/CC. */ #Eifdef SYSTEME_DECALPHA340_OSF1_CC /* Common : version DECALPHA340/OSF1/CC. */ #ifdef SYSTEME_DECALPHA350_OSF1_CC /* Common : version DECALPHA350/OSF1/CC. */ DEFV(Common,DEFV(CHAR,INIS(DTb0(nom_UNDEF_vide),__NOM_UNDEF_VIDE))); /* Destine a definir un nom vide... */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_pipe),__ARGUMENT_PIPE))); /* Destine a preciser qu'un certain fichier sera accede via un "pipe". */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_par_defaut),__ARGUMENT_PAR_DEFAUT))); /* Destine a forcer une valeur par defaut pour un argument. */ #Aifdef SYSTEME_DECALPHA350_OSF1_CC /* Common : version DECALPHA350/OSF1/CC. */ #Eifdef SYSTEME_DECALPHA350_OSF1_CC /* Common : version DECALPHA350/OSF1/CC. */ #ifdef SYSTEME_DECALPHA464_OSF1_CC /* Common : version DECALPHA464/OSF1/CC. */ DEFV(Common,DEFV(CHAR,INIS(DTb0(nom_UNDEF_vide),__NOM_UNDEF_VIDE))); /* Destine a definir un nom vide... */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_pipe),__ARGUMENT_PIPE))); /* Destine a preciser qu'un certain fichier sera accede via un "pipe". */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_par_defaut),__ARGUMENT_PAR_DEFAUT))); /* Destine a forcer une valeur par defaut pour un argument. */ #Aifdef SYSTEME_DECALPHA464_OSF1_CC /* Common : version DECALPHA464/OSF1/CC. */ #Eifdef SYSTEME_DECALPHA464_OSF1_CC /* Common : version DECALPHA464/OSF1/CC. */ #ifdef SYSTEME_VAX8600_ULTRIX_CC /* Common : version VAX8600/ULTRIX/CC. */ DEFV(Common,DEFV(CHAR,INIS(DTb0(nom_UNDEF_vide),__NOM_UNDEF_VIDE))); /* Destine a definir un nom vide... */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_pipe),__ARGUMENT_PIPE))); /* Destine a preciser qu'un certain fichier sera accede via un "pipe". */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_par_defaut),__ARGUMENT_PAR_DEFAUT))); /* Destine a forcer une valeur par defaut pour un argument. */ #Aifdef SYSTEME_VAX8600_ULTRIX_CC /* Common : version VAX8600/ULTRIX/CC. */ #Eifdef SYSTEME_VAX8600_ULTRIX_CC /* Common : version VAX8600/ULTRIX/CC. */ #ifdef SYSTEME_VAX9000_ULTRIX_CC /* Common : version VAX9000/ULTRIX/CC. */ DEFV(Common,DEFV(CHAR,INIS(DTb0(nom_UNDEF_vide),__NOM_UNDEF_VIDE))); /* Destine a definir un nom vide... */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_pipe),__ARGUMENT_PIPE))); /* Destine a preciser qu'un certain fichier sera accede via un "pipe". */ DEFV(Common,DEFV(CHAR,INIS(DTb0(argument_par_defaut),__ARGUMENT_PAR_DEFAUT))); /* Destine a forcer une valeur par defaut pour un argument. */ #Aifdef SYSTEME_VAX9000_ULTRIX_CC /* Common : version VAX9000/ULTRIX/CC. */ #Eifdef SYSTEME_VAX9000_ULTRIX_CC /* Common : version VAX9000/ULTRIX/CC. */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* G E S T I O N D E S T R I S E N ' N ' A U C A R R E : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(Logical,ZINT(TRI_D_UNE_LISTE_QUELCONQUE_VERSION_N_AU_CARRE_____faire_un_IFGT,VRAI))); /* Afin de faire qu'a priori une liste d'elements tous identiques ne soit pas modifiee... */ /* */ /* ATTENTION, cet indicateur ne doit pas etre ecrit sous la forme : */ /* */ /* _____TRI_D_UNE_LISTE_QUELCONQUE_VERSION_N_AU_CARRE_____faire_un_IFGT */ /* */ /* afin de ne pas etre recupere par 'listverSO' puisque cette 'VERSION' particuliere peut */ /* etre changee dynamiquement a l'execution des commandes qui l'utilise... */ _______________________________________________________________________________________________________________________________________ _______________________________________________________________________________________________________________________________________ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D U C O N T E N U D E S F E U X D E S I G N A L I S A T I O N : */ /* */ /*************************************************************************************************************************************/ DEFV(Common,DEFV(CHAR,INIS(DTb0(contenu_des_feux_de_signalisation) ,Ichaine00 ) ) ); /* Contenu d'un feu de signalisation, c'est-a-dire pas grand chose actuellement... */ /* ATTENTION : cette definition est mise sur plusieurs lignes afin principalement de */ /* faciliter le travail de '$xcg/gen.ext$Z'... */ _______________________________________________________________________________________________________________________________________