my_echo() { echo ' ' echo $n "$*" $c } if [ "`echo -n qq`" = "-n qq" ]; then n='' c='\c' else n='-n' c='' fi case $LNG in fr) CHOICE="Donnez votre choix:" FILE="Quel fichier (a,b,c,d)?" FTMP="fichier f.tmp après transformation" MAGLIM="Donnez la limite en magnitude:" FILE1="Donnez le nom du premier fichier:" FILE2="Donnez le nom du second fichier:" MODIF="Voulez-vous modifier l'un des fichiers (o/n) ?" TODO="Que voulez-vous faire (i d e c f h)?" MENU="Imprimer / Dessiner / Editer / Continuer / Finir / Help" QUALITY="Intersections de qualite" INTER="Intersections completes" LIM="Donnez la limite:" CONST="Donnez la valeur de la constante:" DEP="Donnez la valeur de depart:" TAB="Copie a la suite de trans.tab (o/n) ?" RES="Debut du fichier resultant" OUTFILE="Donnez le nom du fichier de sortie:" COPIE="Fichier copie" ;; eng) CHOICE="Give your choice:" FILE="Which file (a,b,c,d) ?" FTMP="File f.tmp after transformation" MAGLIM="Enter the magnitude limit:" FILE1="Enter the first filename:" FILE2="Enter the second filename:" MODIF="Do you want to edit one file (y/n) ?" TODO="What do you want to do (i d e c f h)?" MENU="Print / Plot / Edit / Continue / End / Help" QUALITY="Intersection of quality" INTER="Complete intersections" LIM="Enter the limit:" CONST="Enter the constant value:" DEP="Enter the initial value:" TAB="Append to trans.tab (y/n) ?" RES="Beginning of the resuolting file" OUTFILE="Enter the output filename: " COPIE="File copied" ;; esac while : do page $BDA/menus/menu_ttr.$LNG my_echo " $CHOICE " read cho case $cho in b|d|e|t) echo ' ' case $LNG in fr) my_echo " Donnez le nom du fichier: [$nom] " ;; eng) my_echo " Enter the filename: [$nom] " ;; esac read nam case $nam in "") ;; *) nom=$nam ;; esac ;; j|k|m|n|o) my_echo " $FILE " read qual case $qual in a) FS=n16.dat ;; b) FS=n17.dat ;; c) FS=n18.dat ;; d) FS=n15.dat ;; esac ;; esac case $cho in b) my_echo " $MAGLIM " read mag awkp 8 5 $mag < $nom > tmp prepxy < tmp > carte.xy sm carte file $nom ;; c) vi trans.tab ;; d) chgtno div $nom mv f.mod .T/f.tmp clear echo ' ' case $LNG in fr) echo " Fichier $nom original" ;; eng) echo " Original $nom file" ;; esac echo ' ' head -8 $nom echo ' ' echo " $FTMP " echo ' ' head -8 .T/f.tmp my_echo ' - continue - ' ; read suit sort +0 -o .T/f.tmp .T/f.tmp cat residu.cod >> .T/f.tmp ;; e) awkprbl1 < trans.tab > .T/no.lst fgrep -f .T/no.lst $nom > .T/f.tmp rm .T/no.lst ;; g) my_echo " $FILE1 " read fic1 ; echo ' ' my_echo " $FILE2 " read fic2 ; echo ' ' join -j1 1 $fic1 $fic2 | awkprep11 | tee $SRT > .T/f.com clear (echo " No X1 Y1 X2 Y2 X1/X2 Y1/Y2 " ; echo ' ' ; cat $SRT) | more my_echo " $MODIF " read mod case $mod in o|y) continue ;; n) awk ' { printf" %04d\n",$1 } ' .T/f.com > $BTP/liste.noet fgrep -v -f $BTP/liste.noet $fic2 > .T/f.don clear NF=`head -1 .T/f.don | wc -w` sysxy $NF .T/f.don awkzero < .T/f.tmp > .T/f.zro ; mv .T/f.zro .T/f.tmp my_echo " - suite - " ; read suit rm .T/f.don ;; esac rm .T/f.com ;; h) sort -n +2 -o f10.xy f10.xy sort -n +2 -o f12.xy f12.xy ;; i) echo ' ' case $LNG in fr) my_echo " Donnez la limite: " ;; eng) my_echo " Enter the limit: " ;; esac read lim echo ' ' case $LNG in fr) my_echo " Donnez l'ecart en magnitude: " ;; eng) my_echo " Give the magnitude difference: " ;; esac read mlim echo ' ' corresp $lim $mlim my_echo " - continue - " ; read suit ;; j) awkprbls < $FS > ttr.dat sm chk $FS ;; k) for i in 1 2 do clear (case $LNG in fr) echo " Cas ambigus" ;; eng) echo " Ambiguous cases:" ;; esac ; echo " N1 N2 V1 X1 Y1 V2 X2 Y2 DX DY r " ; case $i in 1) awkdup < $FS | tee $BTP/dup.out ;; 2) sort +1 $FS | awkdup2 | tee $BTP/dup.out ;; esac ) | more while : do my_echo "$TODO " read lis case $lis in h) echo ' ' echo " $MENU " echo ' ' ;; i) lpr $BTP/dup.out ;; d) case $i in 1) awkttr < $FS > ttr.dat ;; 2) sort +1 $FS | awkttr2 > ttr.dat ;; esac sm chk $FS ;; e) vi $FS ;; c) break ;; f) break ;; esac done case $lis in f) break ;; *) ;; esac done ;; l) sm ttr 1 ;; m) sm vvv $FS ;; n) vi $FS ;; o) case $qual in a|b|c) (echo " $QUALITY $qual" ; echo " No N1 V1 X1 Y1 V2 X2 Y2 DX DY r " ; cat $FS) | lpr ;; d) (echo " $INTER" ; echo " No No V1 X1 Y1 V2 X2 Y2 DX DY r " ; cat n15.dat) | lpr ;; esac ;; p) cat n16.dat n17.dat n18.dat | sort +0 > n15.dat ;; q) test -f init.tab || cp trans.tab init.tab awk ' {printf" %04d %4d %4d\n",$1,$1,$2} ' n15.dat >> trans.tab sort +0 -o trans.tab trans.tab ;; r) my_echo " $LIM " read lsup awktabfil $lsup < trans.tab > f.tmp mv f.tmp trans.tab ;; s) awkprbl3 < trans.tab > no2.lst fgrep -v -f no2.lst f12.xy | awkprbl1 > non.lst echo ' ' echo " Quel style de numerotation?" echo ' ' echo " Addition d'une constante ...... 1" echo " Numerotation continue ......... 2" echo ' ' my_echo " Donnez votre choix: " read sty case $sty in 1) my_echo " $CONST " read cte awk ' {printf" %04d %4d\n",$1+cte,$1} ' cte=$cte non.lst \ | sort > tab.sup ;; 2) my_echo " $DEP " read cte awk ' {printf" %04d %4d\n",NR+cte,$1} ' cte=$cte non.lst \ | sort > tab.sup ;; esac echo ' ' ; head tab.sup my_echo " $TAB " read cop case $cop in o|y) cat tab.sup >> trans.tab ; rm tab.sup ;; n) ;; esac ;; t) vi $nom ;; f) echo ' ' ; exit 0 ;; esac case $cho in b) ;; c) ;; h) ;; i) ;; j) ;; k) ;; l) ;; m) ;; n) ;; o) ;; p) ;; q) ;; r) ;; s) ;; t) ;; *) clear echo " $RES " echo ' ' head -15 .T/f.tmp my_echo " $OUTFILE " read sor case $sor in "") sor="$nom" ;; *) ;; esac echo ' ' mv .T/f.tmp $sor && echo " $COPY " echo ' ' ;; esac done