[Home] [Help]
PACKAGE BODY: SYS.PIDL
Source
1 package body PIDL is
2
3
4 function pig_tx(obj ptnod, aty ptaty) return varchar2;
5 pragma interface(c,pig_tx);
6 function pig_nd(obj ptnod, aty ptaty) return ptnod;
7 pragma interface(c,pig_nd);
8 function pig_u4(obj ptnod, aty ptaty) return ub4;
9 pragma interface(c,pig_u4);
10 function pig_u2(obj ptnod, aty ptaty) return ub2;
11 pragma interface(c,pig_u2);
12 function pig_u1(obj ptnod, aty ptaty) return ub1;
13 pragma interface(c,pig_u1);
14 function pig_s4(obj ptnod, aty ptaty) return sb4;
15 pragma interface(c,pig_s4);
16 function pig_s2(obj ptnod, aty ptaty) return sb2;
17 pragma interface(c,pig_s2);
18 function pig_pt(obj ptnod, aty ptaty) return private_ptr_t;
19 pragma interface(c,pig_pt);
20 function pigsnd(obj ptnod, aty ptaty) return ptseqnd;
21 pragma interface(c,pigsnd);
22
23 procedure pip_tx(obj ptnod, val varchar2, aty ptaty);
24 pragma interface(c,pip_tx);
25 procedure pip_nd(obj ptnod, val ptnod, aty ptaty);
26 pragma interface(c,pip_nd);
27 procedure pip_u4(obj ptnod, val ub4, aty ptaty);
28 pragma interface(c,pip_u4);
29 procedure pip_u2(obj ptnod, val ub2, aty ptaty);
30 pragma interface(c,pip_u2);
31 procedure pip_u1(obj ptnod, val ub1, aty ptaty);
32 pragma interface(c,pip_u1);
33 procedure pip_s4(obj ptnod, val sb4, aty ptaty);
34 pragma interface(c,pip_s4);
35 procedure pip_s2(obj ptnod, val sb2, aty ptaty);
36 pragma interface(c,pip_s2);
37 procedure pip_pt(obj ptnod, val private_ptr_t, aty ptaty);
38 pragma interface(c,pip_pt);
39 -- procedure pipsnd(obj ptnod, val ptseqnd, aty ptaty);
40 -- pragma interface(c,pipsnd);
41
42 -- pigeXX : Get sequence element.
43 function pigetx(obj ptseqtx, ndx ub2) return varchar2;
44 pragma interface(c,pigetx);
45 function pigend(obj ptseqnd, ndx ub2) return ptnod;
46 pragma interface(c,pigend);
47 function pigeu4(obj ptsequ4, ndx ub2) return ub4;
48 pragma interface(c,pigeu4);
49 function pigeu2(obj ptsequ2, ndx ub2) return ub2;
50 pragma interface(c,pigeu2);
51 function pigeu1(obj ptsequ1, ndx ub2) return ub1;
52 pragma interface(c,pigeu1);
53 function piges4(obj ptseqs4, ndx ub2) return sb4;
54 pragma interface(c,piges4);
55 function piges2(obj ptseqs2, ndx ub2) return sb2;
56 pragma interface(c,piges2);
57 function pigept(obj ptseqpt, ndx ub2) return private_ptr_t;
58 pragma interface(c,pigept);
59
60 -- pipeXX : Put sequence element.
61 -- Following put sequence element funcs not yet implemented;
62 -- procedure pipetx(obj ptseqtx, ndx ub2, val varchar2);
63 -- pragma interface(c,pipetx);
64 -- procedure pipend(obj ptseqnd, ndx ub2, val ptnod);
65 -- pragma interface(c,pipend);
66 -- procedure pipeu4(obj ptsequ4, ndx ub2, val ub4);
67 -- pragma interface(c,pipeu4);
68 -- procedure pipeu2(obj ptsequ2, ndx ub2, val ub2);
69 -- pragma interface(c,pipeu2);
70 -- procedure pipeu1(obj ptsequ1, ndx ub2, val ub1);
71 -- pragma interface(c,pipeu1);
72 -- procedure pipes4(obj ptseqs4, ndx ub2, val sb4);
73 -- pragma interface(c,pipes4);
74 -- procedure pipes2(obj ptseqs2, ndx ub2, val sb2);
75 -- pragma interface(c,pipes2);
76 -- procedure pipept(obj ptseqpt, ndx ub2, val private_ptr_t);
77 -- pragma interface(c,pipept);
78
79 -- misc
80 function pidkin(obj ptnod) return ptnty;
81 pragma interface(c,pidkin);
82 function pidacn(node_enum ptnty) return ub2;
83 pragma interface(c,pidacn);
84 function pidaty(node_enum ptnty, nth ub2) return ptaty;
85 pragma interface(c,pidaty);
86 function pidnnm(node_enum ptnty) return varchar2;
87 pragma interface(c,pidnnm);
88 function pidanm(attr_enum ptaty) return varchar2;
89 pragma interface(c,pidanm);
90 function pidbty(node_enum ptnty, attr_enum ptaty) return ptbty;
91 pragma interface(c,pidbty);
92 function pidrty(node_enum ptnty, attr_enum ptaty) return ptrty;
93 pragma interface(c,pidrty);
94 function pigsln(seq ptseqnd) return ub2;
95 pragma interface(c,pigsln);
96
97 function ptkin(obj ptnod) return ptnty is
98 begin
99 return pidkin(obj);
100 end;
101
102 function ptattcnt(node_enum ptnty) return ub2 is
103 begin
104 return pidacn(node_enum);
105 end;
106
107 function ptatttyp(node_enum ptnty, nth ub2) return ptaty is
108 begin
109 return pidaty(node_enum, nth);
110 end;
111
112 function ptattnnm(node_enum ptnty) return varchar2 is
113 begin
114 return pidnnm(node_enum);
115 end;
116
117 function ptattanm(attr_enum ptaty) return varchar2 is
118 begin
119 return pidanm(attr_enum);
120 end;
121
122 function ptattbty(node_enum ptnty, attr_enum ptaty) return ptbty is
123 begin
124 return pidbty(node_enum, attr_enum);
125 end;
126
127 function ptattrty(node_enum ptnty, attr_enum ptaty) return ptrty is
128 begin
129 return pidrty(node_enum, attr_enum);
130 end;
131
132 function ptg_tx(obj ptnod, aty ptaty) return varchar2 is
133 begin
134 return pig_tx(obj,aty);
135 end;
136
137 function ptg_nd(obj ptnod, aty ptaty)
138 return ptnod is
139 begin
140 return pig_nd(obj,aty);
141 end;
142
143 function ptg_u4(obj ptnod, aty ptaty) return ub4 is
144 begin
145 return pig_u4(obj,aty);
146 end;
147
148 function ptg_u2(obj ptnod, aty ptaty) return ub2 is
149 begin
150 return pig_u2(obj,aty);
151 end;
152
153 function ptg_u1(obj ptnod, aty ptaty) return ub1 is
154 begin
155 return pig_u1(obj,aty);
156 end;
157
158 function ptg_s4(obj ptnod, aty ptaty) return sb4 is
159 begin
160 return pig_s4(obj,aty);
161 end;
162
163 function ptg_s2(obj ptnod, aty ptaty) return sb2 is
164 begin
165 return pig_s2(obj,aty);
166 end;
167
168 function ptg_pt(obj ptnod, aty ptaty) return ptr_t is
169 val ptr_t;
170 begin
171 val.private_ptr := pig_pt(obj, aty);
172 return val;
173 end;
174
175 function ptgsnd(obj ptnod,
176 aty ptaty) return ptseqnd is
177 begin
178 return pigsnd(obj,aty);
179 end;
180
181 function ptslen(seq ptseqnd) return ub2 is
182 begin
183 return pigsln(seq);
184 end;
185
186
187 procedure ptp_tx(obj ptnod, val varchar2,
188 aty ptaty) is
189 begin
190 pip_tx(obj,val,aty);
191 end;
192
193 procedure ptp_nd(obj ptnod, val ptnod,
194 aty ptaty) is
195 begin
196 pip_nd(obj,val,aty);
197 end;
198
199 procedure ptp_u4(obj ptnod, val ub4,
200 aty ptaty) is
201 begin
202 pip_u4(obj,val,aty);
203 end;
204
205 procedure ptp_u2(obj ptnod, val ub2,
206 aty ptaty) is
207 begin
208 pip_u2(obj,val,aty);
209 end;
210
211 procedure ptp_u1(obj ptnod, val ub1,
212 aty ptaty) is
213 begin
214 pip_u1(obj,val,aty);
215 end;
216
217 procedure ptp_s4(obj ptnod, val sb4,
218 aty ptaty) is
219 begin
220 pip_s4(obj,val,aty);
221 end;
222
223 procedure ptp_s2(obj ptnod, val sb2,
224 aty ptaty) is
225 begin
226 pip_s2(obj,val,aty);
227 end;
228
229 procedure ptp_pt(obj ptnod, val ptr_t,
230 aty ptaty) is
231 begin
232 pip_pt(obj, val.private_ptr, aty);
233 end;
234
235 -- procedure ptpsnd(obj ptnod, val ptseqnd,
236 -- aty ptaty) is
237 -- begin
238 -- pipsnd(obj,val,aty);
239 -- end;
240
241 function ptgetx(obj ptseqtx, ndx ub2) return varchar2 is
242 begin
243 return pigetx(obj,ndx);
244 end;
245
246 function ptgend(obj ptseqnd, ndx ub2) return ptnod is
247 begin
248 return pigend(obj,ndx);
249 end;
250
251 function ptgeu4(obj ptsequ4, ndx ub2) return ub4 is
252 begin
253 return pigeu4(obj,ndx);
254 end;
255
256 function ptgeu2(obj ptsequ2, ndx ub2) return ub2 is
257 begin
258 return pigeu2(obj,ndx);
259 end;
260
261 function ptgeu1(obj ptsequ1, ndx ub2) return ub1 is
262 begin
263 return pigeu1(obj,ndx);
264 end;
265
266 function ptges4(obj ptseqs4, ndx ub2) return sb4 is
267 begin
268 return piges4(obj,ndx);
269 end;
270
271 function ptges2(obj ptseqs2, ndx ub2) return sb2 is
272 begin
273 return piges2(obj,ndx);
274 end;
275
276 function ptgept(obj ptseqpt, ndx ub2) return ptr_t is
277 val ptr_t;
278 begin
279 val.private_ptr := pigept(obj, ndx);
280 return val;
281 end;
282
283 -- procedure ptpetx(obj ptseqtx, ndx ub2, val varchar2) is
284 -- begin
285 -- pipetx(obj,ndx,val);
286 -- end;
287
288 -- procedure ptpend(obj ptseqnd, ndx ub2, val ptnod) is
289 -- begin
290 -- pipend(obj,ndx,val);
291 -- end;
292
293 -- procedure ptpeu4(obj ptsequ4, ndx ub2, val ub4) is
294 -- begin
295 -- pipeu4(obj,ndx,val);
296 -- end;
297
298 -- procedure ptpeu2(obj ptsequ2, ndx ub2, val ub2) is
299 -- begin
300 -- pipeu2(obj,ndx,val);
301 -- end;
302
303 -- procedure ptpeu1(obj ptsequ1, ndx ub2, val ub1) is
304 -- begin
305 -- pipeu1(obj,ndx,val);
306 -- end;
307
308 -- procedure ptpes4(obj ptseqs4, ndx ub2, val sb4) is
309 -- begin
310 -- pipes4(obj,ndx,val);
311 -- end;
312
313 -- procedure ptpes2(obj ptseqs2, ndx ub2, val sb2) is
314 -- begin
315 -- pipes2(obj,ndx,val);
316 -- end;
317
318 -- procedure ptpept(obj ptseqpt, ndx ub2, val ptr_t) is
319 -- begin
320 -- pipept(obj, ndx, val.private_ptr);
321 -- end;
322
323 end pidl;