/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E N V O I   D ' U N E   C O M M A N D E   A U   D I S Q U E   V I D E O   B E T A - P A L  :                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/disk_video_P$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1989??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
@define   PRAGMA_CL_____PAS_DE_LIBRAIRIES_DYNAMIQUES

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   __VERSION__GESTION_D_UN_DISQUE_PAL_BETA_LVR4000P
#nodefine __VERSION__GESTION_D_UN_DISQUE_PAL_BETA_LVS6000P_LVR6000
                                        /* ATTENTION, le symbole qui est defini ici doit correspondre a celui qui peut l'etre dans   */
                                        /* '$xiidP/fonct$vv$DEF'. Mais en fait, il suffit de permuter le '#nodefine' et le '#define' */
                                        /* qui precedent pour generer soit la commande relative a 'DISQUE_PAL_BETA_LVR4000P', soit   */
                                        /* celle relative a 'DISQUE_PAL_BETA_LVS6000P_LVR6000' ; le fichier '$xiidP/fonct$vv$DEF'    */
                                        /* n'a pas besoin d'etre modifie de la meme facon car, en effet, '$xiidP/fonct$vv$FON' ne    */
                                        /* depend pas de ces definitions...                                                          */
                                        /*                                                                                           */
                                        /* Le 20030314092205, les symboles 'GESTION_D_UN_DISQUE_PAL_BETA_*' ont ete changes en       */
                                        /* '__VERSION__GESTION_D_UN_DISQUE_PAL_BETA_*' afin de permettre leur recuperation dans      */
                                        /* 'v $xcc/cpp$Z _VERSION_'.                                                                 */

#include  INCLUDES_MINI
#include  image_drive_diskP_FONCTION_EXT

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
                                        /* Nota : ces directives de compilation conditionnelle sont aussi presentes dans le fichier  */
                                        /* d'include '$xci/video_P.01.I' d'une part pour permettre d'inserer ici des parametres      */
                                        /* specifiques et conditionnels, et d'autre part de justifier la tabulation interne a ce     */
                                        /* fichier d'include...                                                                      */
#    include   xci/video_P.01.I"
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
                                        /* Nota : ces directives de compilation conditionnelle sont aussi presentes dans le fichier  */
                                        /* d'include '$xci/video_P.02.I' d'une part pour permettre d'inserer ici des procedures      */
                                        /* specifiques et conditionnels, et d'autre part de justifier la tabulation interne a ce     */
                                        /* fichier d'include...                                                                      */
#    include   xci/video_P.02.I"
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E N V O I   D ' U N E   C O M M A N D E   A U   D I S Q U E   V I D E O   B E T A - P A L  :                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#    include   xci/video_P.03.I"
                                        /* Nota : ces directives de compilation conditionnelle sont aussi presentes dans le fichier  */
                                        /* d'include '$xci/video_P.03.I' d'une part pour permettre d'inserer ici des donnees locales */
                                        /* specifiques et conditionnels, et d'autre part de justifier la tabulation interne a ce     */
                                        /* fichier d'include...                                                                      */
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA

     /*..............................................................................................................................*/
     Test(IFET(PRESENT(Gval("INTERACTIF"))
              ,PAS_D_ERREUR(Ftest_fichier(Gvar("Fvideo_in_use"),NE_PAS_EDITER_LES_MESSAGES_D_ERREUR_DES_FICHIERS))
               )
          )
          Bblock
          PRINT_ERREUR("la commande courante ne peut etre executee car un enregistrement semble en cours");
          Eblock
     ATes
          Bblock

#ifdef    __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
          GET_ARGUMENTS_(nombre_d_arguments
                        ,BLOC(GET_ARGUMENT_C("commande=""c=",commande_courante);
                              GET_ARGUMENT_I("adresse=""a=",adresse_courante);
                              GET_ARGUMENT_I("debut=""d=",adresse_de_debut);
                              GET_ARGUMENT_I("fin=""f=",adresse_de_fin);
                              GET_ARGUMENT_I("ralenti=""r=",ralenti_courant);
                              GET_ARGUMENT_L("lecture=",IKP_____lecture_des_blocs_de_donnees);
                              GET_ARGUMENT_I("valeur=""v=""n=",donnees);
                              GET_ARGUMENT_L("permuter=",permuter_les_octets_d_un_bloc_de_donnees);
                                        /* Introduit le 20041221121740...                                                            */
                              GET_ARGUMENT_I("repetitions=",nombre_de_repetitions);
                              GET_ARGUMENT_L("affichage=",affichage_sur_le_moniteur);
                              GET_ARGUMENT_I("tic=",IKP_____temporisation_inter_caractere);
                              GET_ARGUMENT_I("taE=",IKP_____temporisation_apres_ENTER);
                              GET_ARGUMENT_I("tik=",IKP_____temporisation_inter_commande);
                              GET_ARGUMENT_L("frame_number=""fn=",IKP_____utiliser_le_mode_PAL_BETA_FRAME_NUMBER_MODE);
                              GET_ARGUMENT_N("time_code=""tc=",IKP_____utiliser_le_mode_PAL_BETA_FRAME_NUMBER_MODE);
                              GET_ARGUMENT_L("editer=",IKP_____editer_le_message_des_caracteres_en_attente);
                              GET_ARGUMENT_L("messages=",IKPclose_disque_video_____editer_les_caracteres_envoyes_au_disque);
                              )
                         )

#    include   xci/video_P.04.I"

          Test(EST_FAUX(on_a_trouve_une_commande_valide))
               Bblock
               PRINT_ERREUR("la commande au disque n'a pas ete reconnue");
               Eblock
          ATes
               Bblock
               Eblock
          ETes
#Aifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA
          GET_ARGUMENTS_(nombre_d_arguments
                        ,BLOC(VIDE;)
                         )

          PRINT_ERREUR("le disque 'PAL-Beta' est absent sur cette MACHINE");

          CODE_ERROR(ERREUR18);
                                        /* Afin de pouvoir tester l'absence du disk-video PAL-Beta dans un shell-script...           */
#Eifdef   __VERSION__COMPILER_LA_GESTION_DU_DISQUE_PAL_BETA

          Eblock
     ETes

     RETU_Commande;
     Eblock
ECommande