1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| #traitement des if(argc...)
#{
{
if ($0 ~ /if[ \t]*\([ \t]*argc[ \t]*[<=>]+[ \t]*[0-9]+[ \t]*\)[ \t]/){
match($0,/[0-9]+/)
sauv_enreg=$0
getline
if ($0 ~ /[ \t]'{'/){
# print "RSTART, RLENGTH : "RSTART, RLENGTH
val=substr($0,RSTART,RLENGTH)
val++
print "'{'"
print"/*"$0" GF 01102007 */"
print substr($0,1,RSTART-1)""val""substr($0,RSTART+RLENGTH)
print "/*Init de la variable sessionid utiliser par FSET_MESSAGE GF 01102007 */"
print "/*et appel a la fonction init_edition_bmt GF 01102007 */"
print " varCpy(sessioid,argv[argc-1]); /* GF 01102007 */"
print " init_edition_bmt(argc,argv,\"accuse\",1); /* GF 01102007 */"
print " /* GF 01102007"
print " sprintf(TcSortie,\"%s/accuse%d\",getenv(\"SI_SPOOL\"),LSession);"
print " sprintf(Lp,\"unixexec lpst %s\",cNomImpr.arr);"
print " Fp = fopen(TcSortie,\"w\");"
print " */"
print " sprintf(TcSortie,\"unixexec lpst %s\",cNomImpr.arr);/* GF 01102007 */"
print " Fp = popen(Tcsortie,\"w\"); /* GF 01102007 */"
next
}
}
} |
Partager