equal
deleted
inserted
replaced
588 end |
588 end |
589 else |
589 else |
590 begin |
590 begin |
591 if (ParamCount >= 2) then |
591 if (ParamCount >= 2) then |
592 begin |
592 begin |
593 UserPathPrefix := ParamStr(1); |
|
594 PathPrefix := ParamStr(2); |
|
595 end; |
|
596 if (ParamCount >= 3) then |
|
597 recordFilename := ParamStr(3); |
|
598 if (ParamCount = 2) or |
|
599 ((ParamCount >= 3) and (Copy(recordFileName,1,2) = '--')) then |
|
600 begin |
|
601 UserPathPrefix := '.'; |
593 UserPathPrefix := '.'; |
602 PathPrefix := ParamStr(1); |
594 PathPrefix := ParamStr(1); |
603 recordFileName := ParamStr(2); |
595 recordFileName := ParamStr(2); |
604 startIndex := 3; |
596 startIndex := 3; |
605 end |
597 end; |
606 else |
|
607 startIndex := 4; |
|
608 |
598 |
609 playReplayFileWithParameters(startIndex); |
599 playReplayFileWithParameters(startIndex); |
610 end; |
600 end; |
611 (* |
601 (* |
612 WriteLn(stdout,recordFilename); |
602 WriteLn(stdout,recordFilename); |