moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00
Code Issues Releases Wiki Activity

DONNO

Browse Source
This commit is contained in:
Raymond 2010-05-09 22:50:52 +02:00
commit ab4d147e08
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Projects/SAMufasaGUI/testunit.pas
View File

@ -1418,21 +1418,41 @@ var
ErrorMsg : string;
begin
DoRun := false;
<<<<<<< HEAD
=======
// paramcount = 1 means we got only one parameter. We assume this to be a file.
// and try to open it accordingly
>>>>>>> c8103490d871d7f0c46c3bbf5d9a954a2be64c97
if (Paramcount = 1) and not (Application.HasOption('open')) then
begin
writeln('Opening file: ' + ParamStr(1));
if FileExists(ParamStr(1)) then
begin
LoadScriptFile(paramstr(1));
end;
end else
<<<<<<< HEAD
begin;
ErrorMsg:=Application.CheckOptions('ro:',['run','open:']);
=======
// we have more parameters. Check for specific options. (-r -o, --run --open)
begin
ErrorMsg:=Application.CheckOptions('ro:',['run', 'open:']);
>>>>>>> c8103490d871d7f0c46c3bbf5d9a954a2be64c97
if ErrorMsg <> '' then
mDebugLn(ErrorMSG)
else
begin
mDebugLn('ERROR IN COMMAND LINE ARGS: ' + ErrorMSG)
end else
begin
if Application.HasOption('o','open') then
begin;
begin
writeln('Opening file: ' + Application.GetOptionValue('o','open'));
LoadScriptFile(Application.GetOptionValue('o','open'));
DoRun:= Application.HasOption('r','run');
end else
// no valid options
begin
writeln('No valid command line args are passed');
end;
end;
end;