moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-16 14:25:02 -05:00
Code Issues Releases Wiki Activity

Fix command line args

Browse Source
This commit is contained in:
Merlijn Wajer 2010-05-09 13:17:06 +02:00
parent 85f608d515
commit 469d9d02e5
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Projects/SAMufasaGUI/testunit.pas
View File

@ -1418,21 +1418,33 @@ var
ErrorMsg : string;
begin
DoRun := false;
if Paramcount = 1 then
// paramcount = 1 means we got only one parameter. We assume this to be a file.
// and try to open it accordingly
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
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:']);
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;