************************************************************* * TCLPARSE: parse a tcl program file for syntactical errors * ************************************************************* information file 'Err.9.tcl.ini' does not exist *************************************************** * file 'Err.9.tcl' is beeing parsed ( 318 bytes ) * *************************************************** system variables database '/local/home/clif/.vars.tclparse' loaded ERROR -> too many arguments ( 'open' - 6 ): ---------------------------------------- 3:while {![eof $file]} { 4: set line [gets $file] 5: set io [open {|sed "s#/dev#Disk: #g"} "r" << $line] 6: set ln2 [gets $io] 7: puts $io $line - $ln2 8: close $io 9: } ---------------------------------------- ERROR -> too many arguments ( 'puts' - 8 ): ---------------------------------------- 6: set io [open {|sed "s#/dev#Disk: #g"} "r" << $line] 7: set ln2 [gets $io] 8: puts $io $line - $ln2 9: close $io 10: } 11:flush $io; 12:puts $io "x04" ---------------------------------------- *********************************************** * done parsing file 'Err.9.tcl' ( 318 bytes ) * ***********************************************