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? |
|
27 var operatingsystem_parameter_argc: LongInt; external; |
|
28 operatingsystem_parameter_argv: pointer; external; |
|
29 operatingsystem_parameter_envp: pointer; external; |
|
30 {$ELSE} |
26 var operatingsystem_parameter_argc: LongInt = 0; export; |
31 var operatingsystem_parameter_argc: LongInt = 0; export; |
27 operatingsystem_parameter_argv: pointer = nil; export; |
32 operatingsystem_parameter_argv: pointer = nil; export; |
28 operatingsystem_parameter_envp: pointer = nil; export; |
33 operatingsystem_parameter_envp: pointer = nil; export; |
29 |
34 {$ENDIF} |
30 function ParamCount: LongInt; |
35 function ParamCount: LongInt; |
31 function ParamStr(i: LongInt): shortstring; |
36 function ParamStr(i: LongInt): shortstring; |
32 {$ENDIF} |
37 {$ENDIF} |
33 |
38 |
34 implementation |
39 implementation |