# Déclaration du tableau
 
 
###############################################
#            Déclaration du tableau           #
###############################################
function DEFINE_TAB
{
# DEFINE_TAB "Nom du tableau" "Nbre Ligne" "Nbre Colonnes" "T_Param"*
# Appel DEFINE_TAB Production 100 20
 
# T_Param contient le nom du tableau, le nbre de lignes et de colonnes
# exemple: T_Päram --> Production[100][20]
 
Tab_Name=$1
Lignes=$2
Colonnes=$3
T_Param="$Tab_Name[$Lignes][$Colonnes]"
typeset -R $Tab_Name
}
 
 
###############################################
#         Initatlisation du tableau           #
###############################################
function INIT_TAB
{
# INIT_TAB "T_Param" "Valeur d'initialisation"
# Appel INIT_TAB $T_Param "-------------------------"
 
# A savoir que la longueur des champs du tableau sont défini par le 1er enregistrement
# Si le 1er = 4 caractères, tout les autres font 4 caractère
# Si la valeur rentrée fait 6 caractères, elle sera tronquée à 4
# Exemple :
# tab[0]=Flag ; tab[1]=Session --> tab[1] --> sion
 
T_Name=`echo "$1" |cut -d"[" -f1`
Lignes=`echo "$1" |cut -d"[" -f2|cut -d"]" -f1`
Colonnes=`echo "$1" |cut -d"[" -f3|cut -d"]" -f1`
ValInit=$2
local rc=0
local index
local lc=0
while [ $rc -lt $Lignes ]
do
        while [ $lc -lt $Colonnes ]
        do
                local colonne=`expr $lc % $Colonnes`
                local ligne=`expr $rc % $Lignes`
                let "index = $colonne * $Lignes + $ligne"
                eval "$T_Name[$index]=$ValInit"
                let "lc += 1"
        done
        lc=0
        let "rc += 1"
done
}
 
###############################################
#         Ajout d'un élément au tableau       #
###############################################
###############################################
#         Ajout d'un élément au tableau       #
###############################################
 
function ADD
{
# ADD "T_Param" "PosX" "PosY" "Valeur"
# Appel : ADD $T_Param 42 8 test
 
T_Name=`echo "$1" |cut -d"[" -f1`
Lignes=`echo "$1" |cut -d"[" -f2|cut -d"]" -f1`
Colonnes=`echo "$1" |cut -d"[" -f3|cut -d"]" -f1`
 
rc=$2
lc=$3
value=$4
local colonne=`expr $lc % $Colonnes`
local ligne=`expr $rc % $Lignes`
let "index = $colonne * $Lignes + $ligne"
eval "$T_Name[$index]=$value"
 
#
# exemple de récupération de la valeur dans une variable
#
# var="$( eval echo \${$T_Name[$index]} )"
# echo "Var a la valeur: $var"
}
 
 
###############################################
#     Sauvegarde du tableau dans un fichier   #
###############################################
###############################################
#     Sauvegarde du tableau dans un fichier   #
###############################################
function SAVE_TAB
{
# SAVE_TAB "T_Param" "Fichier"
# Appel: SAVE_TAB $T_Param Out.txt
 
T_Name=`echo "$1" |cut -d"[" -f1`
Lignes=`echo "$1" |cut -d"[" -f2|cut -d"]" -f1`
Colonnes=`echo "$1" |cut -d"[" -f3|cut -d"]" -f1`
 
FileOut=$2
rm $FileOut
local rc=0
local index
local lc=0
while [ $rc -lt $Lignes ]
do
        while [ $lc -lt $Colonnes ]
        do
                local colonne=`expr $lc % $Colonnes`
                local ligne=`expr $rc % $Lignes`
                let "index = $colonne * $Lignes + $ligne"
                eval echo \${$T_Name[$index]} >> $FileOut
                # echo "L$ligne;C$colonne V=${PROD[$index]}" >> $FileOut
                let "lc += 1"
        done
        lc=0
        let "rc += 1"
done
 
}
 
 
###############################################
#       Upload du fichier dans le tableau     #
###############################################
function UPLOAD_TAB
{
# UPLOAD_TAB "T_Param" "FileIn"
# Appel : UPLOAD_TAB $T_param Out.txt
 
 
T_Name=`echo "$1" |cut -d"[" -f1`
Lignes=`echo "$1" |cut -d"[" -f2|cut -d"]" -f1`
Colonnes=`echo "$1" |cut -d"[" -f3|cut -d"]" -f1`
 
FileIn=$2
local rc=0
local index
local lc=0
 
cat $FileIn |&
while read -p ligne
do
        if [ lc -lt $Colonnes ]
        then
                local colonne=`expr $lc % $Colonnes`
                local lng=`expr $rc % $Lignes`
 
                let "index = $colonne * $Lignes + $lng"
                # PROD[$index]="$ligne"
                eval "$T_Name[$index]=$ligne"
                let "lc += 1"
        else
                lc=0
                let "rc += 1"
                local colonne=`expr $lc % $Colonnes`
                local lng=`expr $rc % $Lignes`
                let "index = $colonne * $Lignes + $lng"
                # PROD[$index]="$ligne"
                eval "$T_Name[$index]=$ligne"
                let "lc += 1"
        fi
done
}
 
###########################################
#                   MAIN                  #
###########################################
# Exemple
 
DEFINE_TAB PROD 100 20
 
# Récupération des éléments concernant le tableau
# Afin de pouvoir en déclarer un deuxième sans perdre les paramètres
Tab1=`echo "$T_Param" |cut -d"[" -f1`
Tab1_Param=$T_Param
 
echo "Initialisation du tableau $Tab1"
INIT_TAB $Tab1_Param "-------------------------"
echo "Add elements à $Tab1"
ADD $Tab1_Param 0 0 "Flag"
ADD $Tab1_Param 0 1 "ID_L"
ADD $Tab1_Param 0 2 "Len_L"
ADD $Tab1_Param 0 3 "Val_L"
ADD $Tab1_Param 0 4 "CTRL"
ADD $Tab1_Param 0 5 "Termine"
ADD $Tab1_Param 0 6 "Rang"
ADD $Tab1_Param 0 7 "Node"
ADD $Tab1_Param 0 8 "Session"
ADD $Tab1_Param 0 9 "GO"
ADD $Tab1_Param 0 10 "UG"
ADD $Tab1_Param 0 11 "Wait"
ADD $Tab1_Param 0 12 "Wait1"
ADD $Tab1_Param 0 13 "Wait2"
ADD $Tab1_Param 0 14 "Wait3"
ADD $Tab1_Param 0 15 "Wait4"
ADD $Tab1_Param 0 16 "Wait5"
ADD $Tab1_Param 0 17 "Libelle"
ADD $Tab1_Param 0 18 "Vide"
ADD $Tab1_Param 0 19 "NC"
 
echo "Sauvegarde du tableau $Tab1"
SAVE_TAB $Tab1_Param f1
chmod +x f1
 
echo "Upload du tableau $Tab1 depuis le fichier f1"
UPLOAD_TAB $Tab1_Param f1
 
echo "Ajout de test en position 42 18 dans $Tab1"
ADD $Tab1_Param 42 18 test
 
echo "Sauvegarde du tableau $Tab1 après modification"
SAVE_TAB $Tab1_Param f

For LANCEMENT in $LANCEMENTS
     let "NbreLancement += 1"
     # CRC
     ADD_TAB $Tab1_Prod_Parm $IDX 0 $(echo $LANCEMENT|cksum)|cut -d" " -f1
      # ID_L
      ADD_TAB $Tab1_Prod_Parm $IDX 1 $NbreLancement
      # LEN_L
      ADD_TAB $Tab1_Prod_Parm $IDX 2 $(echo $LANCEMENT|cksum)|cut -d" " -f2
       et bla bla bal je continue !

# Lecture d'une chaîne caratère / caratère
 
rc=0
let "Length=${#StrIn} +1"
while $rc LSS Length
do
           cuttemp=cut -c$rc-$rc
           Char="eval echo $StrIn | $cuttemp"
           echo $Char
done