Posted to tcl by auriocus at Sat Apr 08 10:01:45 GMT 2017view raw
- package require fileutil
- proc deansi fn {
- set cont [fileutil::cat $fn]
- set r [regsub -all {_ANSI_ARGS_\s*?\((.*?)\)\s*?;} $cont {\1;}]
- set r [regsub -all {TCL_VARARGS\s*?\((.*?),(.*?)\)} $r {(\1 \2, ...)}]
- set r [regsub -all {TCL_VARARGS_DEF\s*?\((.*?),(.*?)\)} $r {(\1 \2, ...)}]
- set r [regsub -all {TCL_VARARGS_START} $r {EXP_VARARGS_START}]
- set r [regsub -all {\ypanic\y} $r {Tcl_Panic}]
- ::fileutil::writeFile $fn $r
- }
- proc deansi_dir dir {
- foreach fn [glob -nocomplain $dir/*.c $dir/*.h] {
- deansi $fn
- }
- }