--- a/hedgewars/ArgParsers.pas Tue Mar 29 22:36:59 2016 +0300
+++ b/hedgewars/ArgParsers.pas Mon Apr 25 22:10:06 2016 +0300
@@ -22,7 +22,6 @@
interface
procedure GetParams;
-{$IFDEF HWLIBRARY}
{$IFNDEF BSD}
var operatingsystem_parameter_argc: NativeInt; external;
operatingsystem_parameter_argv: pointer; external;
@@ -32,16 +31,14 @@
operatingsystem_parameter_argv: pointer; export;
operatingsystem_parameter_envp: pointer; export;
{$ENDIF}
+
function ParamCount: LongInt;
function ParamStr(i: LongInt): shortstring;
-{$ENDIF}
implementation
uses uVariables, uTypes, uUtils, uSound, uConsts;
var isInternal: Boolean;
-{$IFDEF HWLIBRARY}
-
type PCharArray = array[0..255] of PChar;
PPCharArray = ^PCharArray;
@@ -55,8 +52,6 @@
ParamStr:= StrPas(PPCharArray(operatingsystem_parameter_argv)^[i])
end;
-{$ENDIF}
-
procedure GciEasterEgg;
begin
WriteLn(stdout, ' ');