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