equal
deleted
inserted
replaced
21 unit ArgParsers; |
21 unit ArgParsers; |
22 interface |
22 interface |
23 |
23 |
24 procedure GetParams; |
24 procedure GetParams; |
25 {$IFDEF HWLIBRARY} |
25 {$IFDEF HWLIBRARY} |
26 {$IFDEF WIN32} // FIXME: what is the correct condition? |
26 var operatingsystem_parameter_argc: NativeInt; external; |
27 var operatingsystem_parameter_argc: LongInt; external; |
|
28 operatingsystem_parameter_argv: pointer; external; |
27 operatingsystem_parameter_argv: pointer; external; |
29 operatingsystem_parameter_envp: pointer; external; |
28 operatingsystem_parameter_envp: pointer; external; |
30 {$ELSE} |
|
31 var operatingsystem_parameter_argc: LongInt = 0; export; |
|
32 operatingsystem_parameter_argv: pointer = nil; export; |
|
33 operatingsystem_parameter_envp: pointer = nil; export; |
|
34 {$ENDIF} |
|
35 function ParamCount: LongInt; |
29 function ParamCount: LongInt; |
36 function ParamStr(i: LongInt): shortstring; |
30 function ParamStr(i: LongInt): shortstring; |
37 {$ENDIF} |
31 {$ENDIF} |
38 |
32 |
39 implementation |
33 implementation |