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 var operatingsystem_parameter_argc: LongInt = 0; {$IFNDEF PAS2C}cdecl; export;{$ENDIF} |
26 var operatingsystem_parameter_argc: LongInt = 0; {$IFNDEF PAS2C}{$IFNDEF IPHONEOS}cdecl;{$ENDIF} export;{$ENDIF} |
27 operatingsystem_parameter_argv: pointer = nil; {$IFNDEF PAS2C}cdecl; export;{$ENDIF} |
27 operatingsystem_parameter_argv: pointer = nil; {$IFNDEF PAS2C}{$IFNDEF IPHONEOS}cdecl;{$ENDIF} export;{$ENDIF} |
28 operatingsystem_parameter_envp: pointer = nil; {$IFNDEF PAS2C}cdecl; export;{$ENDIF} |
28 operatingsystem_parameter_envp: pointer = nil; {$IFNDEF PAS2C}{$IFNDEF IPHONEOS}cdecl;{$ENDIF} export;{$ENDIF} |
29 |
29 |
30 function ParamCount: LongInt; |
30 function ParamCount: LongInt; |
31 function ParamStr(i: LongInt): shortstring; |
31 function ParamStr(i: LongInt): shortstring; |
32 {$ENDIF} |
32 {$ENDIF} |
33 |
33 |