blob: ec4e9a6e75c6489d2c8a1af610d7744c568d6335 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
{$ifndef _REGEXP_H}
const
_REGEXP_H = 1;
{$include <features.h>}
{$include <alloca.h>}
{$include <regex.h>}
{$include <stdlib.h>}
{$include <string.h>}
var
loc1 : Pchar;cvar;external;
loc2 : Pchar;cvar;external;
locs : Pchar;cvar;external;
{$ifndef __DO_NOT_DEFINE_COMPILE}
(* error
{
in declarator_list *)
var
: char;
(* error
size_t __input_size = 0;
in declarator_list *)
(* error
size_t __current_size = 0;
in declarator_list *)
__ch : longint;cvar;public;
__error : longint;cvar;public;
(* error
regex_t *__expr_ptr;
in declarator_list *)
{$if defined __GNUC__ && __GNUC__ >= 2}
(* error
const size_t __req = __alignof__ (regex_t *);
in declarator_list *)
{$else}
(* error
const size_t __req = 8;
in declarator_list *)
{$endif}
(* error
expbuf += __req;
in declaration at line 122 *)
(* error
expbuf -= (expbuf - ((char *) 0)) % __req;
in declaration at line 123 *)
(* error
if (endbuf < expbuf + sizeof (regex_t))
in declarator_list *)
(* error
}
in declaration at line 128 *)
(* error
__expr_ptr->buffer = expbuf + sizeof (regex_t);
(* error
__expr_ptr->buffer = expbuf + sizeof (regex_t);
in declarator_list *)
(* error
__expr_ptr->allocated = endbuf - (char *) __expr_ptr->buffer;
(* error
__expr_ptr->allocated = endbuf - (char *) __expr_ptr->buffer;
in declarator_list *)
(* error
while ((__ch = (GETC ())) != eof)
in declarator_list *)
(* error
break;
in declaration at line 139 *)
(* error
}
in declaration at line 144 *)
(* error
char *__new_room = (char *) alloca (__new_size);
in declarator_list *)
(* error
if (__new_room + __new_size == __input_buffer)
in declarator_list *)
(* error
__input_buffer = (char *) memcpy (__new_room, __input_buffer,
in declaration at line 151 *)
(* error
}
in declaration at line 154 *)
(* error
{
in declaration at line 157 *)
(* error
__input_buffer = (char *) memcpy (__new_room, __input_buffer,
in declaration at line 159 *)
(* error
}
in declaration at line 162 *)
(* error
}
in declaration at line 164 *)
(* error
__error = regcomp (__expr_ptr, __input_buffer, REG_NEWLINE);
in declaration at line 167 *)
(* error
if (__error != 0)
in declarator_list *)
var
REG_ESUBREG : case;cvar;public;
REG_EBRACK : case;cvar;public;
REG_EPAREN : case;cvar;public;
REG_EBRACE : case;cvar;public;
REG_BADBR : case;cvar;public;
REG_ERANGE : case;cvar;public;
(* error
case REG_ESIZE:
in declarator_list *)
(* error
}
in declaration at line 200 *)
(* error
}
{$endif}
in declaration at line 210 *)
function advance(__string:Pchar; __expbuf:Pchar):longint;cdecl;external clib name 'advance';
{$endif}
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
// Type
|
