#######################################################################################################################################
# #
# V E R I F I C A T I O N D E L ' U N I C I T E D E S E L E M E N T S D ' U N F I C H I E R : #
# #
# #
# Author of '$xiirv/.PUZZ.11.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20180624080844). #
# #
#######################################################################################################################################
$Z alias CheckUNI 'set FiLe="\!*" ; \\
$Z FilSTmpB FChEcK | \\
$Z $CA $FiLe | \\
$Z $SOR | \\
$Z $UNI -c | \\
$Z $AW '"'"'{ print $1 " " $2 }'"'"' >> $FChEcK ; \\
$Z set VaLiDe=`$CA $FChEcK | $GRE -v "^1 " | $HEA -1` ; \\
$Z if ("$VaLiDe" != "$K_VIDE") echo "Le fichier $K_QS$FiLe$K_QS contient des elements non uniques." ; \\
$Z FilSTmpE FChEcK | \\
$Z unset VaLiDe FiLe'
# Introduit le 20180624081158 a cause de phenomenes d'interpolation du type de celui qui #
# est decrit dans 'v $xiirv/.PUZZ.11.1.$U 20180623120530'... #