diff options
| -rw-r--r-- | Make.1.in | 3 | ||||
| -rw-r--r-- | Make.lpr | 5 | ||||
| -rw-r--r-- | Make.lps | 83 | ||||
| -rw-r--r-- | dateibeziehungen.pas | 15 |
4 files changed, 58 insertions, 48 deletions
@@ -24,6 +24,9 @@ print nothing but error messages and (if \fB-A\fP omitted) commands .TP .B "\-u, \-\-unsicher" accept running jobs outside of directory of \fIAusgabedatei\fP or \fIPrüfsummendatei\fP +.TP +.B "\-w, \-\-warten" +wait for user input on error .SH MACHDATEI SYNTAX \fB#\fP starts comments, empty lines are ignored. .PP @@ -35,8 +35,9 @@ begin lOpts.add('Prüfsummen:'); lOpts.add('leise'); lOpts.add('unsicher'); + lOpts.add('warten'); nonOpts:=tStringList.create; - errorMsg:=checkOptions('A:D:P:lu',lOpts,nil,nonOpts,true); + errorMsg:=checkOptions('A:D:P:luw',lOpts,nil,nonOpts,true); lOpts.free; while nonOpts.count>0 do begin if errorMsg<>'' then @@ -61,7 +62,7 @@ begin else pd:=''; - mach:=tMach.create(md,pd); + mach:=tMach.create(md,pd,hasOption('w','warten')); gibAus('originale Regeln: '+inttostr(mach.anzOriAbh)+', originale Dateien: '+inttostr(mach.anzDats),3); mach.erzeugeRegeln; @@ -7,8 +7,9 @@ <Unit0> <Filename Value="Make.lpr"/> <IsPartOfProject Value="True"/> - <TopLine Value="35"/> - <CursorPos X="28" Y="64"/> + <IsVisibleTab Value="True"/> + <TopLine Value="48"/> + <CursorPos X="37" Y="65"/> <UsageCount Value="100"/> <Loaded Value="True"/> </Unit0> @@ -40,11 +41,10 @@ <Filename Value="dateibeziehungen.pas"/> <IsPartOfProject Value="True"/> <UnitName Value="dateiBeziehungen"/> - <IsVisibleTab Value="True"/> <EditorIndex Value="1"/> - <TopLine Value="583"/> - <CursorPos X="46" Y="615"/> - <FoldState Value=" T3jZ03C pjYkO0B4]9Tk70y317]B8oN0E112 pielZ0G[94djI033p"/> + <TopLine Value="1026"/> + <CursorPos X="11" Y="1043"/> + <FoldState Value=" T3ja03C pjYkO0B4]9Tk70y3]97kW0n7]99kZ0E112 pielZ0G114A"/> <UsageCount Value="68"/> <Loaded Value="True"/> </Unit4> @@ -112,9 +112,9 @@ <Filename Value="/usr/lib/fpc/src/packages/fcl-base/src/custapp.pp"/> <UnitName Value="CustApp"/> <EditorIndex Value="-1"/> - <TopLine Value="516"/> - <CursorPos X="61" Y="411"/> - <UsageCount Value="7"/> + <TopLine Value="56"/> + <CursorPos X="14" Y="72"/> + <UsageCount Value="10"/> </Unit14> <Unit15> <Filename Value="/usr/lib/fpc/src/rtl/inc/objpash.inc"/> @@ -134,121 +134,120 @@ <JumpHistory Count="30" HistoryIndex="29"> <Position1> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="757" Column="57" TopLine="739"/> + <Caret Line="866" Column="29" TopLine="849"/> </Position1> <Position2> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="760" Column="19" TopLine="743"/> + <Caret Line="997" Column="56" TopLine="990"/> </Position2> <Position3> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="787" Column="61" TopLine="770"/> </Position3> <Position4> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="794" Column="34" TopLine="777"/> + <Caret Line="718" Column="40" TopLine="693"/> </Position4> <Position5> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="851" Column="7" TopLine="834"/> + <Caret Line="608" Column="62" TopLine="589"/> </Position5> <Position6> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="857" Column="19" TopLine="838"/> + <Caret Line="1033" Column="87" TopLine="989"/> </Position6> <Position7> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="861" Column="22" TopLine="843"/> + <Caret Line="810" Column="62" TopLine="794"/> </Position7> <Position8> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="862" Column="89" TopLine="845"/> + <Caret Line="600" Column="26" TopLine="583"/> </Position8> <Position9> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="866" Column="29" TopLine="849"/> + <Caret Line="602" Column="26" TopLine="583"/> </Position9> <Position10> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="997" Column="56" TopLine="990"/> + <Caret Line="1033" Column="88" TopLine="1005"/> </Position10> <Position11> <Filename Value="dateibeziehungen.pas"/> </Position11> <Position12> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="718" Column="40" TopLine="693"/> + <Caret Line="600" Column="26" TopLine="584"/> </Position12> <Position13> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="608" Column="62" TopLine="589"/> + <Caret Line="59" Column="33" TopLine="41"/> </Position13> <Position14> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="1033" Column="87" TopLine="989"/> + <Caret Line="285" Column="20" TopLine="164"/> </Position14> <Position15> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="810" Column="62" TopLine="794"/> + <Caret Line="762" Column="73" TopLine="755"/> </Position15> <Position16> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="605" Column="20" TopLine="623"/> + <Caret Line="100" Column="33" TopLine="82"/> </Position16> <Position17> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="600" Column="26" TopLine="583"/> + <Caret Line="724" Column="29" TopLine="695"/> </Position17> <Position18> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="602" Column="26" TopLine="583"/> + <Filename Value="tools.pas"/> + <Caret Line="50" Column="21" TopLine="32"/> </Position18> <Position19> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="1033" Column="88" TopLine="1005"/> + <Caret Line="727" TopLine="473"/> </Position19> <Position20> - <Filename Value="dateibeziehungen.pas"/> + <Filename Value="Make.lpr"/> + <Caret Line="39" Column="36" TopLine="35"/> </Position20> <Position21> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="600" Column="26" TopLine="584"/> + <Filename Value="Make.lpr"/> + <Caret Line="65" Column="16" TopLine="41"/> </Position21> <Position22> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="59" Column="33" TopLine="41"/> + <Caret Line="104" Column="19" TopLine="75"/> </Position22> <Position23> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="285" Column="20" TopLine="164"/> + <Caret Line="75" Column="23" TopLine="56"/> </Position23> <Position24> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="762" Column="73" TopLine="755"/> </Position24> <Position25> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="160" Column="74" TopLine="693"/> + <Caret Line="75" Column="23" TopLine="46"/> </Position25> <Position26> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="100" Column="33" TopLine="82"/> + <Caret Line="84" Column="23" TopLine="55"/> </Position26> <Position27> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="724" Column="29" TopLine="695"/> + <Caret Line="104" Column="59" TopLine="75"/> </Position27> <Position28> <Filename Value="dateibeziehungen.pas"/> - <Caret Line="848" Column="35" TopLine="855"/> + <Caret Line="276" Column="44" TopLine="127"/> </Position28> <Position29> - <Filename Value="tools.pas"/> - <Caret Line="50" Column="21" TopLine="32"/> + <Filename Value="dateibeziehungen.pas"/> + <Caret Line="1046" Column="75" TopLine="1016"/> </Position29> <Position30> - <Filename Value="dateibeziehungen.pas"/> - <Caret Line="727" TopLine="473"/> + <Filename Value="Make.lpr"/> + <Caret Line="65" Column="16" TopLine="41"/> </Position30> </JumpHistory> </ProjectSession> diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index e69bf56..f016faa 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -96,11 +96,12 @@ type _mglAbh: tExpliziteAbhaengigkeiten; _dats: tDateienMitDaten; _ign: array of tRegExpr; + _warten: boolean; function liesMachDatei: boolean; function liesPruefsummenfile: boolean; function sammleDateien(wo: string; rekursiv: boolean): longint; public - constructor create(machDatei, pruefSummenDatei: string); + constructor create(machDatei, pruefSummenDatei: string; warten: boolean); destructor destroy; override; procedure erzeugeRegeln; procedure findeWasZuTunIst; @@ -700,12 +701,13 @@ end; // tMach *********************************************************************** -constructor tMach.create(machDatei, pruefSummenDatei: string); +constructor tMach.create(machDatei, pruefSummenDatei: string; warten: boolean); begin inherited create; _oriAbh:=tGenerischeAbhaengigkeiten.create; _mglAbh:=tExpliziteAbhaengigkeiten.create; _dats:=tDateienMitDaten.create; + _warten:=warten; // machDatei teilweise prüfen und setzen if machDatei='' then begin @@ -1036,8 +1038,13 @@ begin assignFile(ausg,ausgabeDatei); rewrite(ausg); writeln(ausg,'set -e'); - for i:=0 to befehle.count-1 do - writeln(ausg,'('+befehle[i]+') || (printf ''In\n"%s"\n'' "'+escape(befehle[i],'\"','\')+'"; read -p "ist ein Fehler aufgetreten! ... "; exit 1)'); + for i:=0 to befehle.count-1 do begin + write(ausg,'('+befehle[i]+') || (printf ''In\n"%s"\n'' "'+escape(befehle[i],'\"','\')+'"; '); + if _warten then + writeln(ausg,'read -p "ist ein Fehler aufgetreten! ... "; exit 1)') + else + writeln(ausg,'printf ''ist ein Fehler aufgetreten!\n''; exit 1)'); + end; closeFile(ausg); end; befehle.free; |