From: Michael R. <mr...@us...> - 2002-03-19 09:08:23
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10169 Modified Files: ksh Log Message: Tools wird nicht mehr gebunden Fehlermeldung mit Eingabe-Zeilennr. angereichert (Bug) Fehlermeldung "Unbekannte Datei" eingefügt Index: ksh =================================================================== RCS file: /cvsroot/kick/kick/ksh,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ksh 23 Oct 2001 20:39:54 -0000 1.5 --- ksh 19 Mar 2002 09:08:19 -0000 1.6 *************** *** 9,13 **** use Text::ParseWords; - use Tools; use Kick; use strict; --- 9,12 ---- *************** *** 32,35 **** --- 31,38 ---- ); + if (!(-e (join " ", @ARGV))) { + die "Unbekannte Datei @ARGV"; + } + my ($lines); my $cursor = 0; *************** *** 39,42 **** --- 42,46 ---- # add current line + $cursor++; if ((!$interactive) && (!$opt { leise })) { print $_; *************** *** 97,106 **** do ($com); if ($@ && !$interactive) { ! # mrau: 23.10.01 21:53 # Aussagekräftige Fehlermeldung ! my ($msg, $modul, $line, $input) = $@ =~ /(.*?)\sat\s(.*?)\sline\s(\d+)\,\s\<\>\sline\s(\d+)/; ! printf "Zeile %d: %s.\nModul %s (Code-Line %d).\n", $input, $msg, $modul, $line; &Rollback; exit; --- 101,110 ---- do ($com); if ($@ && !$interactive) { ! # mrau: 23.10.01 21:53 # Aussagekräftige Fehlermeldung ! my ($msg, $modul, $line) = $@ =~ /(.*?)\sat\s(.*?)\sline\s(\d+)/; ! printf "Zeile %d: %s.\nModul %s (Code-Line %d).\n", $cursor, $msg, $modul, $line; &Rollback; exit; *************** *** 193,196 **** --- 197,206 ---- $Log$ + Revision 1.6 2002/03/19 09:08:19 mrau + + Tools wird nicht mehr gebunden + Fehlermeldung mit Eingabe-Zeilennr. angereichert (Bug) + Fehlermeldung "Unbekannte Datei" eingefügt + Revision 1.5 2001/10/23 20:39:54 mrau Option <leise>, <dateiname> eingeführt; Erweiterte Syntax-Prüfung |