From b7186bf0895607e116dabf4fac4c9bfdc3fda730 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 12 Dec 2017 13:15:38 +0100 Subject: dateibeziehungen.pas: eher abbrechen bei Fehler, Fehler etwas genauer ausgeben --- dateibeziehungen.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index 6c3958a..c1cf391 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -1077,8 +1077,9 @@ begin else begin assignFile(ausg,ausgabeDatei); rewrite(ausg); + writeln(ausg,'set -e'); for i:=0 to befehle.count-1 do - writeln(ausg,'('+befehle[i]+') || (read -p "Ein Fehler ist aufgetreten! ... "; exit 1)'); + writeln(ausg,'('+befehle[i]+') || (printf ''In\n"%s"\n'' "'+escape(befehle[i],'\"','"')+'"; read -p "ist ein Fehler aufgetreten! ... "; exit 1)'); closeFile(ausg); end; befehle.free; -- cgit v1.2.3-70-g09d2