#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   P R O G R E S S I V E   D U   S P E C T R E   ( A J O U T   D U   D E R N I E R   E L E M E N T )  :  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xrd/spectre.01$Z' :                                                                                             #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230820094650).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       MiseAJour="$1"

clear

xrd

set       FiChIeR1=spectre.01.1$I
set       FiChIeR2=spectre.01.2$I

FilSTmpB  MaJ_FiChIeR1

$CA       $FiChIeR2                                                                                                               |     \
$GRE      -v '^/\*'                                                                                                                     \
                                                                                                              >> $MaJ_FiChIeR1

FilSTmpB  NeW_FiChIeR1

$CA       $FiChIeR1 $MaJ_FiChIeR1                                                                                                       \
                                                                                                              >> $NeW_FiChIeR1
                                        # Concatenation de '$FiChIeR2' en queue de '$FiChIeR1'...                                     #

SaVe      $FiChIeR1
$DELETE   $FiChIeR1
$MV       $NeW_FiChIeR1 $FiChIeR1
ro        $FiChIeR1
PreferMaj $FiChIeR1
valide    $FiChIeR1
Fsave     $FiChIeR1 $NEXIST
pGserveur $FiChIeR1

FilSTmpE  NeW_FiChIeR1
FilSTmpE  MaJ_FiChIeR1

FilSTmpB  MaJ_FiChIeR2 $sed

echo      's/^\(  *\),.*$'"/\1$MiseAJour/"                                                                                              \
                                                                                                              >> $MaJ_FiChIeR2
                                        # Mise en place du nouveau dernier motif dans '$FiChIeR2'...                                  #
pmajS     $FiChIeR2 $MaJ_FiChIeR2

FilSTmpE  MaJ_FiChIeR2

echo      "$Prompt"'xrd'
echo      "$Prompt"'cl        spectre.01$K'

saut