#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   F I C H I E R   ' $ARG '                                                                    #
#         A   P A R T I R   D ' U N   F I C H I E R   ' $FON '  :                                                                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xcg/gen$ARG$FON$Z  <argument>                                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xcg/gen$ARG$FON$Z' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       argument=$1
set       argument=`SupPost $argument $FON`
                                        # Suppression d'un eventuel '$FON' en queue.                                                  #

set       argument=$argument[$#argument]
                                        # A cause de 'Child exited'... .                                                              #
set       directory=`GetPath $argument`
                                        # Recuperation du path d'acces.                                                               #
set       directory=$directory[$#directory]
                                        # A cause de 'Child exited'... .                                                              #
Pushd     $directory
                                        # Et positionnement dans le bon directory.                                                    #
set       module=`GetLeaf $argument`
                                        # Et recuperation du nom du fichier.                                                          #
set       module=$module[$#module]
                                        # A cause de 'Child exited'... .                                                              #

$xcg/gen$ARG$Z      $module $NEXIST
                                        # Et generation du fichier '$ARG' correspondant.                                              #
                                        #                                                                                             #
                                        # Le '$NEXIST' a ete introduit le 20030514174807 afin de supprimer les messages 'EROR' lors   #
                                        # de l'utilisation de $xcg/gen$ARG$Z' dans 'v $xcg/GENERE$ARG$Z'...                           #

Popd