← Back to branch summary

~ubuntu-branches/debian/sid/libembperl-perl/sid

« back to all changes in this revision

Viewing changes to xs/Embperl/Req/Req.xs

  • Committer: Bazaar Package Importer
  • Author(s): Angus Lees
  • Date: 2004-02-15 14:23:39 UTC
  • Revision ID: james.westby@ubuntu.com-20040215142339-n21gqf7mx9tmyb8d
Tags: upstream-2.0b10
Import upstream version 2.0b10

Show diffs side-by-side

added added

removed removed

Lines of Context:
xs/Embperl/Req/Req.xs
 
1
 
 
2
/*
 
3
 * *********** WARNING **************
 
4
 * This file generated by Embperl::WrapXS/0.01
 
5
 * Any changes made here will be lost
 
6
 * ***********************************
 
7
 * 1. /opt/perlt5.6.1/lib/site_perl/5.6.1/ExtUtils/XSBuilder/WrapXS.pm:38
 
8
 * 2. /opt/perlt5.6.1/lib/site_perl/5.6.1/ExtUtils/XSBuilder/WrapXS.pm:1883
 
9
 * 3. xsbuilder/xs_generate.pl:6
 
10
 */
 
11
 
 
12
 
 
13
#include "ep.h"
 
14
 
 
15
#include "epmacro.h"
 
16
 
 
17
#include "EXTERN.h"
 
18
 
 
19
#include "perl.h"
 
20
 
 
21
#include "XSUB.h"
 
22
 
 
23
#include "eptypes.h"
 
24
 
 
25
#include "eppublic.h"
 
26
 
 
27
#include "epdat2.h"
 
28
 
 
29
#include "ep_xs_sv_convert.h"
 
30
 
 
31
#include "ep_xs_typedefs.h"
 
32
 
 
33
 
 
34
 
 
35
void Embperl__Req_destroy (pTHX_ Embperl__Req  obj) {
 
36
            if (obj -> pApacheReqSV)
 
37
                SvREFCNT_dec(obj -> pApacheReqSV);
 
38
            if (obj -> pErrArray)
 
39
                SvREFCNT_dec(obj -> pErrArray);
 
40
            if (obj -> pCleanupAV)
 
41
                SvREFCNT_dec(obj -> pCleanupAV);
 
42
            if (obj -> pCleanupPackagesHV)
 
43
                SvREFCNT_dec(obj -> pCleanupPackagesHV);
 
44
            if (obj -> pMessages)
 
45
                SvREFCNT_dec(obj -> pMessages);
 
46
            if (obj -> pDefaultMessages)
 
47
                SvREFCNT_dec(obj -> pDefaultMessages);
 
48
 
 
49
};
 
50
 
 
51
 
 
52
 
 
53
void Embperl__Req_new_init (pTHX_ Embperl__Req  obj, SV * item, int overwrite) {
 
54
 
 
55
    SV * * tmpsv ;
 
56
 
 
57
    if (SvTYPE(item) == SVt_PVMG) 
 
58
        memcpy (obj, (void *)SvIVX(item), sizeof (*obj)) ;
 
59
    else if (SvTYPE(item) == SVt_PVHV) {
 
60
        if ((tmpsv = hv_fetch((HV *)item, "apache_req", sizeof("apache_req") - 1, 0)) || overwrite) {
 
61
            SV * tmpobj = ((SV *)epxs_sv2_SVPTR((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
62
            if (tmpobj)
 
63
                obj -> pApacheReqSV = (SV *)SvREFCNT_inc(tmpobj);
 
64
            else
 
65
                obj -> pApacheReqSV = NULL ;
 
66
        }
 
67
        if ((tmpsv = hv_fetch((HV *)item, "app", sizeof("app") - 1, 0)) || overwrite) {
 
68
            obj -> pApp = (tApp *)epxs_sv2_Embperl__App((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
69
        }
 
70
        if ((tmpsv = hv_fetch((HV *)item, "thread", sizeof("thread") - 1, 0)) || overwrite) {
 
71
            obj -> pThread = (tThreadData *)epxs_sv2_Embperl__Thread((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
72
        }
 
73
        if ((tmpsv = hv_fetch((HV *)item, "request_count", sizeof("request_count") - 1, 0)) || overwrite) {
 
74
            obj -> nRequestCount = (int)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
75
        }
 
76
        if ((tmpsv = hv_fetch((HV *)item, "request_time", sizeof("request_time") - 1, 0)) || overwrite) {
 
77
            obj -> nRequestTime = (time_t)epxs_sv2_NV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
78
        }
 
79
        if ((tmpsv = hv_fetch((HV *)item, "iotype", sizeof("iotype") - 1, 0)) || overwrite) {
 
80
            obj -> nIOType = (int)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
81
        }
 
82
        if ((tmpsv = hv_fetch((HV *)item, "session_mgnt", sizeof("session_mgnt") - 1, 0)) || overwrite) {
 
83
            obj -> nSessionMgnt = (int)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
84
        }
 
85
        if ((tmpsv = hv_fetch((HV *)item, "session_id", sizeof("session_id") - 1, 0)) || overwrite) {
 
86
            char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
87
            if (tmpobj)
 
88
                obj -> sSessionID = (char *)ep_pstrdup(obj->pPool,tmpobj);
 
89
            else
 
90
                obj -> sSessionID = NULL ;
 
91
        }
 
92
        if ((tmpsv = hv_fetch((HV *)item, "session_user_id", sizeof("session_user_id") - 1, 0)) || overwrite) {
 
93
            char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
94
            if (tmpobj)
 
95
                obj -> sSessionUserID = (char *)ep_pstrdup(obj->pPool,tmpobj);
 
96
            else
 
97
                obj -> sSessionUserID = NULL ;
 
98
        }
 
99
        if ((tmpsv = hv_fetch((HV *)item, "session_state_id", sizeof("session_state_id") - 1, 0)) || overwrite) {
 
100
            char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
101
            if (tmpobj)
 
102
                obj -> sSessionStateID = (char *)ep_pstrdup(obj->pPool,tmpobj);
 
103
            else
 
104
                obj -> sSessionStateID = NULL ;
 
105
        }
 
106
        if ((tmpsv = hv_fetch((HV *)item, "had_exit", sizeof("had_exit") - 1, 0)) || overwrite) {
 
107
            obj -> bExit = (int)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
108
        }
 
109
        if ((tmpsv = hv_fetch((HV *)item, "log_file_start_pos", sizeof("log_file_start_pos") - 1, 0)) || overwrite) {
 
110
            obj -> nLogFileStartPos = (long)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
111
        }
 
112
        if ((tmpsv = hv_fetch((HV *)item, "error", sizeof("error") - 1, 0)) || overwrite) {
 
113
            obj -> bError = (int)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
114
        }
 
115
        if ((tmpsv = hv_fetch((HV *)item, "errors", sizeof("errors") - 1, 0)) || overwrite) {
 
116
            AV * tmpobj = ((AV *)epxs_sv2_AVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
117
            if (tmpobj)
 
118
                obj -> pErrArray = (AV *)SvREFCNT_inc(tmpobj);
 
119
            else
 
120
                obj -> pErrArray = NULL ;
 
121
        }
 
122
        if ((tmpsv = hv_fetch((HV *)item, "errdat1", sizeof("errdat1") - 1, 0)) || overwrite) {
 
123
            obj -> errdat1[ERRDATLEN] = (char)epxs_sv2_CHAR((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
124
        }
 
125
        if ((tmpsv = hv_fetch((HV *)item, "errdat2", sizeof("errdat2") - 1, 0)) || overwrite) {
 
126
            obj -> errdat2[ERRDATLEN] = (char)epxs_sv2_CHAR((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
127
        }
 
128
        if ((tmpsv = hv_fetch((HV *)item, "lastwarn", sizeof("lastwarn") - 1, 0)) || overwrite) {
 
129
            obj -> lastwarn[ERRDATLEN] = (char)epxs_sv2_CHAR((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
130
        }
 
131
        if ((tmpsv = hv_fetch((HV *)item, "cleanup_vars", sizeof("cleanup_vars") - 1, 0)) || overwrite) {
 
132
            AV * tmpobj = ((AV *)epxs_sv2_AVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
133
            if (tmpobj)
 
134
                obj -> pCleanupAV = (AV *)SvREFCNT_inc(tmpobj);
 
135
            else
 
136
                obj -> pCleanupAV = NULL ;
 
137
        }
 
138
        if ((tmpsv = hv_fetch((HV *)item, "cleanup_packages", sizeof("cleanup_packages") - 1, 0)) || overwrite) {
 
139
            HV * tmpobj = ((HV *)epxs_sv2_HVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
140
            if (tmpobj)
 
141
                obj -> pCleanupPackagesHV = (HV *)SvREFCNT_inc(tmpobj);
 
142
            else
 
143
                obj -> pCleanupPackagesHV = NULL ;
 
144
        }
 
145
        if ((tmpsv = hv_fetch((HV *)item, "initial_cwd", sizeof("initial_cwd") - 1, 0)) || overwrite) {
 
146
            char * tmpobj = ((char *)epxs_sv2_PV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
147
            if (tmpobj)
 
148
                obj -> sInitialCWD = (char *)ep_pstrdup(obj->pPool,tmpobj);
 
149
            else
 
150
                obj -> sInitialCWD = NULL ;
 
151
        }
 
152
        if ((tmpsv = hv_fetch((HV *)item, "messages", sizeof("messages") - 1, 0)) || overwrite) {
 
153
            AV * tmpobj = ((AV *)epxs_sv2_AVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
154
            if (tmpobj)
 
155
                obj -> pMessages = (AV *)SvREFCNT_inc(tmpobj);
 
156
            else
 
157
                obj -> pMessages = NULL ;
 
158
        }
 
159
        if ((tmpsv = hv_fetch((HV *)item, "default_messages", sizeof("default_messages") - 1, 0)) || overwrite) {
 
160
            AV * tmpobj = ((AV *)epxs_sv2_AVREF((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)));
 
161
            if (tmpobj)
 
162
                obj -> pDefaultMessages = (AV *)SvREFCNT_inc(tmpobj);
 
163
            else
 
164
                obj -> pDefaultMessages = NULL ;
 
165
        }
 
166
        if ((tmpsv = hv_fetch((HV *)item, "startclock", sizeof("startclock") - 1, 0)) || overwrite) {
 
167
            obj -> startclock = (clock_t)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
168
        }
 
169
        if ((tmpsv = hv_fetch((HV *)item, "stsv_count", sizeof("stsv_count") - 1, 0)) || overwrite) {
 
170
            obj -> stsv_count = (I32)epxs_sv2_IV((tmpsv && *tmpsv?*tmpsv:&PL_sv_undef)) ;
 
171
        }
 
172
   ; }
 
173
 
 
174
    else
 
175
        croak ("initializer for Embperl::Req::new is not a hash or object reference") ;
 
176
 
 
177
} ;
 
178
 
 
179
 
 
180
MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_
 
181
 
 
182
int
 
183
embperl_cleanup(r)
 
184
    Embperl::Req r
 
185
CODE:
 
186
    RETVAL = embperl_CleanupRequest(r);
 
187
OUTPUT:
 
188
    RETVAL
 
189
 
 
190
 
 
191
MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_
 
192
 
 
193
int
 
194
embperl_execute_component(r, pPerlParam)
 
195
    Embperl::Req r
 
196
    SV * pPerlParam
 
197
CODE:
 
198
    RETVAL = embperl_ExecuteComponent(r, pPerlParam);
 
199
OUTPUT:
 
200
    RETVAL
 
201
 
 
202
 
 
203
MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_
 
204
 
 
205
const char *
 
206
embperl_gettext(r, sMsgId)
 
207
    Embperl::Req r
 
208
    const char * sMsgId
 
209
CODE:
 
210
    RETVAL = embperl_GetText(r, sMsgId);
 
211
OUTPUT:
 
212
    RETVAL
 
213
 
 
214
 
 
215
MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_
 
216
 
 
217
int
 
218
embperl_run(r)
 
219
    Embperl::Req r
 
220
CODE:
 
221
    RETVAL = embperl_RunRequest(r);
 
222
OUTPUT:
 
223
    RETVAL
 
224
 
 
225
 
 
226
MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_
 
227
 
 
228
int
 
229
embperl_setup_component(r, pPerlParam)
 
230
    Embperl::Req r
 
231
    SV * pPerlParam
 
232
PREINIT:
 
233
    Embperl__Component ppComponent;
 
234
PPCODE:
 
235
    RETVAL = embperl_SetupComponent(r, pPerlParam, &ppComponent);
 
236
    XSprePUSH;
 
237
    EXTEND(SP, 2) ;
 
238
    PUSHs(epxs_IV_2obj(RETVAL)) ;
 
239
    PUSHs(epxs_Embperl__Component_2obj(ppComponent)) ;
 
240
 
 
241
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
242
 
 
243
SV *
 
244
apache_req(obj, val=NULL)
 
245
    Embperl::Req obj
 
246
    SV * val
 
247
  PREINIT:
 
248
    /*nada*/
 
249
 
 
250
  CODE:
 
251
    RETVAL = (SV *)  obj->pApacheReqSV;
 
252
 
 
253
    if (items > 1) {
 
254
        obj->pApacheReqSV = (SV *)SvREFCNT_inc(val);
 
255
    }
 
256
  OUTPUT:
 
257
    RETVAL
 
258
 
 
259
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
260
 
 
261
Embperl::Req::Config
 
262
config(obj, val=NULL)
 
263
    Embperl::Req obj
 
264
    Embperl::Req::Config val
 
265
  PREINIT:
 
266
    /*nada*/
 
267
 
 
268
  CODE:
 
269
    RETVAL = (Embperl__Req__Config) & obj->Config;
 
270
    if (items > 1) {
 
271
         croak ("Config is read only") ;
 
272
    }
 
273
  OUTPUT:
 
274
    RETVAL
 
275
 
 
276
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
277
 
 
278
Embperl::Req::Param
 
279
param(obj, val=NULL)
 
280
    Embperl::Req obj
 
281
    Embperl::Req::Param val
 
282
  PREINIT:
 
283
    /*nada*/
 
284
 
 
285
  CODE:
 
286
    RETVAL = (Embperl__Req__Param) & obj->Param;
 
287
    if (items > 1) {
 
288
         croak ("Param is read only") ;
 
289
    }
 
290
  OUTPUT:
 
291
    RETVAL
 
292
 
 
293
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
294
 
 
295
Embperl::Component
 
296
component(obj, val=NULL)
 
297
    Embperl::Req obj
 
298
    Embperl::Component val
 
299
  PREINIT:
 
300
    /*nada*/
 
301
 
 
302
  CODE:
 
303
    RETVAL = (Embperl__Component) & obj->Component;
 
304
    if (items > 1) {
 
305
         croak ("Component is read only") ;
 
306
    }
 
307
  OUTPUT:
 
308
    RETVAL
 
309
 
 
310
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
311
 
 
312
Embperl::App
 
313
app(obj, val=NULL)
 
314
    Embperl::Req obj
 
315
    Embperl::App val
 
316
  PREINIT:
 
317
    /*nada*/
 
318
 
 
319
  CODE:
 
320
    RETVAL = (Embperl__App)  obj->pApp;
 
321
 
 
322
    if (items > 1) {
 
323
        obj->pApp = (Embperl__App) val;
 
324
    }
 
325
  OUTPUT:
 
326
    RETVAL
 
327
 
 
328
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
329
 
 
330
Embperl::Thread
 
331
thread(obj, val=NULL)
 
332
    Embperl::Req obj
 
333
    Embperl::Thread val
 
334
  PREINIT:
 
335
    /*nada*/
 
336
 
 
337
  CODE:
 
338
    RETVAL = (Embperl__Thread)  obj->pThread;
 
339
 
 
340
    if (items > 1) {
 
341
        obj->pThread = (Embperl__Thread) val;
 
342
    }
 
343
  OUTPUT:
 
344
    RETVAL
 
345
 
 
346
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
347
 
 
348
int
 
349
request_count(obj, val=0)
 
350
    Embperl::Req obj
 
351
    int val
 
352
  PREINIT:
 
353
    /*nada*/
 
354
 
 
355
  CODE:
 
356
    RETVAL = (int)  obj->nRequestCount;
 
357
 
 
358
    if (items > 1) {
 
359
        obj->nRequestCount = (int) val;
 
360
    }
 
361
  OUTPUT:
 
362
    RETVAL
 
363
 
 
364
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
365
 
 
366
time_t
 
367
request_time(obj, val=0)
 
368
    Embperl::Req obj
 
369
    time_t val
 
370
  PREINIT:
 
371
    /*nada*/
 
372
 
 
373
  CODE:
 
374
    RETVAL = (time_t)  obj->nRequestTime;
 
375
 
 
376
    if (items > 1) {
 
377
        obj->nRequestTime = (time_t) val;
 
378
    }
 
379
  OUTPUT:
 
380
    RETVAL
 
381
 
 
382
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
383
 
 
384
int
 
385
iotype(obj, val=0)
 
386
    Embperl::Req obj
 
387
    int val
 
388
  PREINIT:
 
389
    /*nada*/
 
390
 
 
391
  CODE:
 
392
    RETVAL = (int)  obj->nIOType;
 
393
 
 
394
    if (items > 1) {
 
395
        obj->nIOType = (int) val;
 
396
    }
 
397
  OUTPUT:
 
398
    RETVAL
 
399
 
 
400
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
401
 
 
402
int
 
403
session_mgnt(obj, val=0)
 
404
    Embperl::Req obj
 
405
    int val
 
406
  PREINIT:
 
407
    /*nada*/
 
408
 
 
409
  CODE:
 
410
    RETVAL = (int)  obj->nSessionMgnt;
 
411
 
 
412
    if (items > 1) {
 
413
        obj->nSessionMgnt = (int) val;
 
414
    }
 
415
  OUTPUT:
 
416
    RETVAL
 
417
 
 
418
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
419
 
 
420
char *
 
421
session_id(obj, val=NULL)
 
422
    Embperl::Req obj
 
423
    char * val
 
424
  PREINIT:
 
425
    /*nada*/
 
426
 
 
427
  CODE:
 
428
    RETVAL = (char *)  obj->sSessionID;
 
429
 
 
430
    if (items > 1) {
 
431
        obj->sSessionID = (char *)ep_pstrdup(obj->pPool,val);
 
432
    }
 
433
  OUTPUT:
 
434
    RETVAL
 
435
 
 
436
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
437
 
 
438
char *
 
439
session_user_id(obj, val=NULL)
 
440
    Embperl::Req obj
 
441
    char * val
 
442
  PREINIT:
 
443
    /*nada*/
 
444
 
 
445
  CODE:
 
446
    RETVAL = (char *)  obj->sSessionUserID;
 
447
 
 
448
    if (items > 1) {
 
449
        obj->sSessionUserID = (char *)ep_pstrdup(obj->pPool,val);
 
450
    }
 
451
  OUTPUT:
 
452
    RETVAL
 
453
 
 
454
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
455
 
 
456
char *
 
457
session_state_id(obj, val=NULL)
 
458
    Embperl::Req obj
 
459
    char * val
 
460
  PREINIT:
 
461
    /*nada*/
 
462
 
 
463
  CODE:
 
464
    RETVAL = (char *)  obj->sSessionStateID;
 
465
 
 
466
    if (items > 1) {
 
467
        obj->sSessionStateID = (char *)ep_pstrdup(obj->pPool,val);
 
468
    }
 
469
  OUTPUT:
 
470
    RETVAL
 
471
 
 
472
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
473
 
 
474
int
 
475
had_exit(obj, val=0)
 
476
    Embperl::Req obj
 
477
    int val
 
478
  PREINIT:
 
479
    /*nada*/
 
480
 
 
481
  CODE:
 
482
    RETVAL = (int)  obj->bExit;
 
483
 
 
484
    if (items > 1) {
 
485
        obj->bExit = (int) val;
 
486
    }
 
487
  OUTPUT:
 
488
    RETVAL
 
489
 
 
490
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
491
 
 
492
long
 
493
log_file_start_pos(obj, val=0)
 
494
    Embperl::Req obj
 
495
    long val
 
496
  PREINIT:
 
497
    /*nada*/
 
498
 
 
499
  CODE:
 
500
    RETVAL = (long)  obj->nLogFileStartPos;
 
501
 
 
502
    if (items > 1) {
 
503
        obj->nLogFileStartPos = (long) val;
 
504
    }
 
505
  OUTPUT:
 
506
    RETVAL
 
507
 
 
508
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
509
 
 
510
int
 
511
error(obj, val=0)
 
512
    Embperl::Req obj
 
513
    int val
 
514
  PREINIT:
 
515
    /*nada*/
 
516
 
 
517
  CODE:
 
518
    RETVAL = (int)  obj->bError;
 
519
 
 
520
    if (items > 1) {
 
521
        obj->bError = (int) val;
 
522
    }
 
523
  OUTPUT:
 
524
    RETVAL
 
525
 
 
526
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
527
 
 
528
AV *
 
529
errors(obj, val=NULL)
 
530
    Embperl::Req obj
 
531
    AV * val
 
532
  PREINIT:
 
533
    /*nada*/
 
534
 
 
535
  CODE:
 
536
    RETVAL = (AV *)  obj->pErrArray;
 
537
 
 
538
    if (items > 1) {
 
539
        obj->pErrArray = (AV *)SvREFCNT_inc(val);
 
540
    }
 
541
  OUTPUT:
 
542
    RETVAL
 
543
 
 
544
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
545
 
 
546
char
 
547
errdat1(obj, val=NULL)
 
548
    Embperl::Req obj
 
549
    char val
 
550
  PREINIT:
 
551
    /*nada*/
 
552
 
 
553
  CODE:
 
554
    RETVAL = (char)  obj->errdat1[ERRDATLEN];
 
555
 
 
556
    if (items > 1) {
 
557
        obj->errdat1[ERRDATLEN] = (char) val;
 
558
    }
 
559
  OUTPUT:
 
560
    RETVAL
 
561
 
 
562
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
563
 
 
564
char
 
565
errdat2(obj, val=NULL)
 
566
    Embperl::Req obj
 
567
    char val
 
568
  PREINIT:
 
569
    /*nada*/
 
570
 
 
571
  CODE:
 
572
    RETVAL = (char)  obj->errdat2[ERRDATLEN];
 
573
 
 
574
    if (items > 1) {
 
575
        obj->errdat2[ERRDATLEN] = (char) val;
 
576
    }
 
577
  OUTPUT:
 
578
    RETVAL
 
579
 
 
580
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
581
 
 
582
char
 
583
lastwarn(obj, val=NULL)
 
584
    Embperl::Req obj
 
585
    char val
 
586
  PREINIT:
 
587
    /*nada*/
 
588
 
 
589
  CODE:
 
590
    RETVAL = (char)  obj->lastwarn[ERRDATLEN];
 
591
 
 
592
    if (items > 1) {
 
593
        obj->lastwarn[ERRDATLEN] = (char) val;
 
594
    }
 
595
  OUTPUT:
 
596
    RETVAL
 
597
 
 
598
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
599
 
 
600
AV *
 
601
cleanup_vars(obj, val=NULL)
 
602
    Embperl::Req obj
 
603
    AV * val
 
604
  PREINIT:
 
605
    /*nada*/
 
606
 
 
607
  CODE:
 
608
    RETVAL = (AV *)  obj->pCleanupAV;
 
609
 
 
610
    if (items > 1) {
 
611
        obj->pCleanupAV = (AV *)SvREFCNT_inc(val);
 
612
    }
 
613
  OUTPUT:
 
614
    RETVAL
 
615
 
 
616
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
617
 
 
618
HV *
 
619
cleanup_packages(obj, val=NULL)
 
620
    Embperl::Req obj
 
621
    HV * val
 
622
  PREINIT:
 
623
    /*nada*/
 
624
 
 
625
  CODE:
 
626
    RETVAL = (HV *)  obj->pCleanupPackagesHV;
 
627
 
 
628
    if (items > 1) {
 
629
        obj->pCleanupPackagesHV = (HV *)SvREFCNT_inc(val);
 
630
    }
 
631
  OUTPUT:
 
632
    RETVAL
 
633
 
 
634
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
635
 
 
636
char *
 
637
initial_cwd(obj, val=NULL)
 
638
    Embperl::Req obj
 
639
    char * val
 
640
  PREINIT:
 
641
    /*nada*/
 
642
 
 
643
  CODE:
 
644
    RETVAL = (char *)  obj->sInitialCWD;
 
645
 
 
646
    if (items > 1) {
 
647
        obj->sInitialCWD = (char *)ep_pstrdup(obj->pPool,val);
 
648
    }
 
649
  OUTPUT:
 
650
    RETVAL
 
651
 
 
652
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
653
 
 
654
AV *
 
655
messages(obj, val=NULL)
 
656
    Embperl::Req obj
 
657
    AV * val
 
658
  PREINIT:
 
659
    /*nada*/
 
660
 
 
661
  CODE:
 
662
    RETVAL = (AV *)  obj->pMessages;
 
663
 
 
664
    if (items > 1) {
 
665
        obj->pMessages = (AV *)SvREFCNT_inc(val);
 
666
    }
 
667
  OUTPUT:
 
668
    RETVAL
 
669
 
 
670
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
671
 
 
672
AV *
 
673
default_messages(obj, val=NULL)
 
674
    Embperl::Req obj
 
675
    AV * val
 
676
  PREINIT:
 
677
    /*nada*/
 
678
 
 
679
  CODE:
 
680
    RETVAL = (AV *)  obj->pDefaultMessages;
 
681
 
 
682
    if (items > 1) {
 
683
        obj->pDefaultMessages = (AV *)SvREFCNT_inc(val);
 
684
    }
 
685
  OUTPUT:
 
686
    RETVAL
 
687
 
 
688
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
689
 
 
690
clock_t
 
691
startclock(obj, val=0)
 
692
    Embperl::Req obj
 
693
    clock_t val
 
694
  PREINIT:
 
695
    /*nada*/
 
696
 
 
697
  CODE:
 
698
    RETVAL = (clock_t)  obj->startclock;
 
699
 
 
700
    if (items > 1) {
 
701
        obj->startclock = (clock_t) val;
 
702
    }
 
703
  OUTPUT:
 
704
    RETVAL
 
705
 
 
706
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
707
 
 
708
I32
 
709
stsv_count(obj, val=0)
 
710
    Embperl::Req obj
 
711
    I32 val
 
712
  PREINIT:
 
713
    /*nada*/
 
714
 
 
715
  CODE:
 
716
    RETVAL = (I32)  obj->stsv_count;
 
717
 
 
718
    if (items > 1) {
 
719
        obj->stsv_count = (I32) val;
 
720
    }
 
721
  OUTPUT:
 
722
    RETVAL
 
723
 
 
724
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
725
 
 
726
 
 
727
 
 
728
SV *
 
729
new (class,initializer=NULL)
 
730
    char * class
 
731
    SV * initializer 
 
732
PREINIT:
 
733
    SV * svobj ;
 
734
    Embperl__Req  cobj ;
 
735
    SV * tmpsv ;
 
736
CODE:
 
737
    epxs_Embperl__Req_create_obj(cobj,svobj,RETVAL,malloc(sizeof(*cobj))) ;
 
738
 
 
739
    if (initializer) {
 
740
        if (!SvROK(initializer) || !(tmpsv = SvRV(initializer))) 
 
741
            croak ("initializer for Embperl::Req::new is not a reference") ;
 
742
 
 
743
        if (SvTYPE(tmpsv) == SVt_PVHV || SvTYPE(tmpsv) == SVt_PVMG)  
 
744
            Embperl__Req_new_init (aTHX_ cobj, tmpsv, 0) ;
 
745
        else if (SvTYPE(tmpsv) == SVt_PVAV) {
 
746
            int i ;
 
747
            SvGROW(svobj, sizeof (*cobj) * av_len((AV *)tmpsv)) ;     
 
748
            for (i = 0; i <= av_len((AV *)tmpsv); i++) {
 
749
                SV * * itemrv = av_fetch((AV *)tmpsv, i, 0) ;
 
750
                SV * item ;
 
751
                if (!itemrv || !*itemrv || !SvROK(*itemrv) || !(item = SvRV(*itemrv))) 
 
752
                    croak ("array element of initializer for Embperl::Req::new is not a reference") ;
 
753
                Embperl__Req_new_init (aTHX_ &cobj[i], item, 1) ;
 
754
            }
 
755
        }
 
756
        else {
 
757
             croak ("initializer for Embperl::Req::new is not a hash/array/object reference") ;
 
758
        }
 
759
    }
 
760
OUTPUT:
 
761
    RETVAL 
 
762
 
 
763
MODULE = Embperl::Req    PACKAGE = Embperl::Req 
 
764
 
 
765
 
 
766
 
 
767
void
 
768
DESTROY (obj)
 
769
    Embperl::Req  obj 
 
770
CODE:
 
771
    Embperl__Req_destroy (aTHX_ obj) ;
 
772
 
 
773
PROTOTYPES: disabled
 
774
 
 
775
BOOT:
 
776
    items = items; /* -Wall */
 
777