← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to packages/base/libc/argph.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/base/libc/argph.inc
1
 
 
2
 
type
3
 
   Pargp_option = ^argp_option;
4
 
   argp_option = record
5
 
        name : Pchar;
6
 
        key : longint;
7
 
        arg : Pchar;
8
 
        flags : longint;
9
 
        doc : Pchar;
10
 
        group : longint;
11
 
     end;
12
 
 
13
 
 
14
 
const
15
 
   OPTION_ARG_OPTIONAL = $1;
16
 
   OPTION_HIDDEN = $2;
17
 
   OPTION_ALIAS = $4;
18
 
   OPTION_DOC = $8;
19
 
   OPTION_NO_USAGE = $10;
20
 
 
21
 
   ARGP_ERR_UNKNOWN = E2BIG;
22
 
   ARGP_KEY_ARG = 0;
23
 
   ARGP_KEY_ARGS = $1000006;
24
 
   ARGP_KEY_END = $1000001;
25
 
   ARGP_KEY_NO_ARGS = $1000002;
26
 
   ARGP_KEY_INIT = $1000003;
27
 
   ARGP_KEY_FINI = $1000007;
28
 
   ARGP_KEY_SUCCESS = $1000004;
29
 
   ARGP_KEY_ERROR = $1000005;
30
 
 
31
 
   ARGP_KEY_HELP_PRE_DOC = $2000001;
32
 
   ARGP_KEY_HELP_POST_DOC = $2000002;
33
 
   ARGP_KEY_HELP_HEADER = $2000003;
34
 
   ARGP_KEY_HELP_EXTRA = $2000004;
35
 
   ARGP_KEY_HELP_DUP_ARGS_NOTE = $2000005;
36
 
   ARGP_KEY_HELP_ARGS_DOC = $2000006;
37
 
 
38
 
   ARGP_PARSE_ARGV0 = $01;
39
 
   ARGP_NO_ERRS = $02;
40
 
   ARGP_NO_ARGS = $04;
41
 
   ARGP_IN_ORDER = $08;
42
 
   ARGP_NO_HELP = $10;
43
 
   ARGP_NO_EXIT = $20;
44
 
   ARGP_LONG_ONLY = $40;
45
 
   ARGP_SILENT = (ARGP_NO_EXIT or ARGP_NO_ERRS) or ARGP_NO_HELP;
46
 
 
47
 
type
48
 
  Pargp_state = ^argp_state;
49
 
  Pargp_child = ^argp_child;
50
 
    
51
 
  argp_parser_t = function (key:longint; arg:Pchar; state:Pargp_state):error_t;cdecl;
52
 
 
53
 
   Pargp = ^argp;
54
 
   argp = record
55
 
        options : Pargp_option;
56
 
        parser : argp_parser_t;
57
 
        args_doc : Pchar;
58
 
        doc : Pchar;
59
 
        children : Pargp_child;
60
 
        help_filter : function (__key:longint; __text:Pchar; __input:pointer):Pchar;
61
 
        argp_domain : Pchar;
62
 
     end;
63
 
 
64
 
 
65
 
   argp_child = record
66
 
        argp : Pargp;
67
 
        flags : longint;
68
 
        header : Pchar;
69
 
        group : longint;
70
 
     end;
71
 
 
72
 
   argp_state = record
73
 
        root_argp : Pargp;
74
 
        argc : longint;
75
 
        argv : ^Pchar;
76
 
        next : longint;
77
 
        flags : dword;
78
 
        arg_num : dword;
79
 
        quoted : longint;
80
 
        input : pointer;
81
 
        child_inputs : ^pointer;
82
 
        hook : pointer;
83
 
        name : Pchar;
84
 
        err_stream : PFILE;
85
 
        out_stream : PFILE;
86
 
        pstate : pointer;
87
 
     end;
88
 
 
89
 
type
90
 
  TArgPProgramVersionHook = procedure(__stream: PFILE; __state: pargp_state); cdecl;
91
 
  
92
 
  
93
 
 
94
 
function argp_parse(__argp:Pargp; __argc:longint; __argv:PPchar; __flags:dword; __arg_index:Plongint; 
95
 
           __input:pointer):error_t;cdecl;external clib name 'argp_parse';
96
 
function __argp_parse(__argp:Pargp; __argc:longint; __argv:PPchar; __flags:dword; __arg_index:Plongint; 
97
 
           __input:pointer):error_t;cdecl;external clib name '__argp_parse';
98
 
var
99
 
  argp_program_version : Pchar;cvar;external;
100
 
  argp_program_version_hook : TArgPProgramVersionHook;cvar;external;
101
 
  argp_program_bug_address : Pchar;cvar;external;
102
 
  argp_err_exit_status : error_t;cvar;external;
103
 
 
104
 
const
105
 
   ARGP_HELP_USAGE = $01;
106
 
   ARGP_HELP_SHORT_USAGE = $02;
107
 
   ARGP_HELP_SEE = $04;
108
 
   ARGP_HELP_LONG = $08;
109
 
   ARGP_HELP_PRE_DOC = $10;
110
 
   ARGP_HELP_POST_DOC = $20;
111
 
   ARGP_HELP_DOC = ARGP_HELP_PRE_DOC or ARGP_HELP_POST_DOC;
112
 
   ARGP_HELP_BUG_ADDR = $40;
113
 
   ARGP_HELP_LONG_ONLY = $80;
114
 
   ARGP_HELP_EXIT_ERR = $100;
115
 
   ARGP_HELP_EXIT_OK = $200;
116
 
   ARGP_HELP_STD_ERR = ARGP_HELP_SEE or ARGP_HELP_EXIT_ERR;
117
 
   ARGP_HELP_STD_USAGE = (ARGP_HELP_SHORT_USAGE or ARGP_HELP_SEE) or ARGP_HELP_EXIT_ERR;
118
 
   ARGP_HELP_STD_HELP = (((ARGP_HELP_SHORT_USAGE or ARGP_HELP_LONG) or ARGP_HELP_EXIT_OK) or ARGP_HELP_DOC) or ARGP_HELP_BUG_ADDR;
119
 
 
120
 
procedure argp_help(__argp:Pargp; __stream:PFILE; __flags:dword; __name:Pchar);cdecl;external clib name 'argp_help';
121
 
procedure __argp_help(__argp:Pargp; __stream:PFILE; __flags:dword; __name:Pchar);cdecl;external clib name '__argp_help';
122
 
procedure argp_state_help(__state:Pargp_state; __stream:PFILE; __flags:dword);cdecl;external clib name 'argp_state_help';
123
 
procedure __argp_state_help(__state:Pargp_state; __stream:PFILE; __flags:dword);cdecl;external clib name '__argp_state_help';
124
 
procedure argp_usage(__state:Pargp_state);cdecl;external clib name 'argp_usage';
125
 
procedure __argp_usage(__state:Pargp_state);cdecl;external clib name '__argp_usage';
126
 
procedure argp_error(__state:Pargp_state; __fmt:Pchar; args:array of const);cdecl;external clib name 'argp_error';
127
 
procedure argp_error(__state:Pargp_state; __fmt:Pchar);cdecl;external clib name 'argp_error';
128
 
procedure __argp_error(__state:Pargp_state; __fmt:Pchar; args:array of const);cdecl;external clib name '__argp_error';
129
 
procedure __argp_error(__state:Pargp_state; __fmt:Pchar);cdecl;external clib name '__argp_error';
130
 
procedure argp_failure(__state:Pargp_state; __status:longint; __errnum:longint; __fmt:Pchar; args:array of const);cdecl;external clib name 'argp_failure';
131
 
procedure argp_failure(__state:Pargp_state; __status:longint; __errnum:longint; __fmt:Pchar);cdecl;external clib name 'argp_failure';
132
 
procedure __argp_failure(__state:Pargp_state; __status:longint; __errnum:longint; __fmt:Pchar; args:array of const);cdecl;external clib name '__argp_failure';
133
 
procedure __argp_failure(__state:Pargp_state; __status:longint; __errnum:longint; __fmt:Pchar);cdecl;external clib name '__argp_failure';
134
 
function _option_is_short(__opt:Pargp_option):longint;cdecl;external clib name '_option_is_short';
135
 
function __option_is_short(__opt:Pargp_option):longint;cdecl;external clib name '__option_is_short';
136
 
function _option_is_end(__opt:Pargp_option):longint;cdecl;external clib name '_option_is_end';
137
 
function __option_is_end(__opt:Pargp_option):longint;cdecl;external clib name '__option_is_end';
138
 
function _argp_input(__argp:Pargp; __state:Pargp_state):pointer;cdecl;external clib name '_argp_input';
139
 
function __argp_input(__argp:Pargp; __state:Pargp_state):pointer;cdecl;external clib name '__argp_input';
140
 
 
141
 
{ ---------------------------------------------------------------------
142
 
    Borland compatibility types
143
 
  ---------------------------------------------------------------------}
144
 
 
145
 
Type  
146
 
  TArgP = argp;
147
 
 
148
 
  TArgPOption = argp_option;
149
 
  PArgPOption = ^TArgPOption;
150
 
 
151
 
  TArgPState = argp_state;
152
 
  PArgPState = ^TArgPState;
153
 
  TArgPChild = argp_child;
154
 
  PArgPChild = ^TArgPChild;
155
 
    
 
 
b'\\ No newline at end of file'