diff options
| -rw-r--r-- | Make.1.in | 6 | ||||
| -rw-r--r-- | dateibeziehungen.pas | 8 |
2 files changed, 7 insertions, 7 deletions
@@ -81,9 +81,9 @@ file name of \fIn\fP-th source file file name of \fIn\fP-th source file without extension(s) .TP .B "%dirname\fIn1\fP,\fIn2\fP,\fIn3\fP%" (*) -components \fIn1\fP upto \fIn2\fP of path to \fIn3\fP-th source file. -Negative numbers \fIn1\fP or \fIn2\fP are counted from the back - e.g. \fB-1\fP is the last path component, etc. -If omitted, \fIn2\fP defaults to \fI-1\fP. +components \fIn2\fP upto \fIn3\fP of path to \fIn1\fP-th source file. +Negative numbers \fIn2\fP or \fIn3\fP are counted from the back - e.g. \fB-1\fP is the last path component, etc. +If omitted, \fIn3\fP defaults to \fI-1\fP. .TP .B "%DIRNAME%" path to \fIMachdatei\fP diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index 764ff9e..a27b0e4 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -348,6 +348,10 @@ begin anfang:=erstesArgument(worin,'%dirname',false); mitte:=erstesArgument(worin,'%',false); if mitte='' then + qNum:=0 + else + qNum:=strtoint(erstesArgument(mitte,',',true)); + if mitte='' then li:=0 else li:=strtoint(erstesArgument(mitte,',',true)); @@ -355,10 +359,6 @@ begin re:=-1 else re:=strtoint(erstesArgument(mitte,',',true)); - if mitte='' then - qNum:=0 - else - qNum:=strtoint(erstesArgument(mitte,',',true)); if qNum>=momentanePosition then fehler('Quellersetzung sieht ''%dirname%'' für Quelle Nummer '+inttostr(qNum)+' an Position '+inttostr(momentanePosition)+'.'); |