1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#define PERL_NO_GET_CONTEXT 1
#include "EXTERN.h"
#include "perl.h"
#include "proto_callparser1.h"
#include "XSUB.h"
MODULE = t::proto PACKAGE = t::proto
PROTOTYPES: DISABLE
void
cv_set_call_parser_proto(CV *cv, SV *proto)
PROTOTYPE: $$
CODE:
if(SvROK(proto)) proto = SvRV(proto);
cv_set_call_parser(cv, Perl_parse_args_proto, proto);
void
cv_set_call_parser_proto_or_list(CV *cv, SV *proto)
PROTOTYPE: $$
CODE:
if(SvROK(proto)) proto = SvRV(proto);
cv_set_call_parser(cv, Perl_parse_args_proto_or_list, proto);
|
