]>
Commit | Line | Data |
---|---|---|
a3f1cbda MG |
1 | void |
2 | constant(sv) | |
3 | PREINIT: | |
4 | #ifdef dXSTARG | |
5 | dXSTARG; /* Faster if we have it. */ | |
6 | #else | |
7 | dTARGET; | |
8 | #endif | |
9 | STRLEN len; | |
10 | int type; | |
11 | IV iv; | |
12 | /* NV nv; Uncomment this if you need to return NVs */ | |
13 | /* const char *pv; Uncomment this if you need to return PVs */ | |
14 | INPUT: | |
15 | SV * sv; | |
16 | const char * s = SvPV(sv, len); | |
17 | PPCODE: | |
18 | /* Change this to constant(aTHX_ s, len, &iv, &nv); | |
19 | if you need to return both NVs and IVs */ | |
20 | type = constant(aTHX_ s, len, &iv); | |
21 | /* Return 1 or 2 items. First is error message, or undef if no error. | |
22 | Second, if present, is found value */ | |
23 | switch (type) { | |
24 | case PERL_constant_NOTFOUND: | |
25 | sv = | |
26 | sv_2mortal(newSVpvf("%s is not a valid Audio::Opusfile macro", s)); | |
27 | PUSHs(sv); | |
28 | break; | |
29 | case PERL_constant_NOTDEF: | |
30 | sv = sv_2mortal(newSVpvf( | |
31 | "Your vendor has not defined Audio::Opusfile macro %s, used", | |
32 | s)); | |
33 | PUSHs(sv); | |
34 | break; | |
35 | case PERL_constant_ISIV: | |
36 | EXTEND(SP, 1); | |
37 | PUSHs(&PL_sv_undef); | |
38 | PUSHi(iv); | |
39 | break; | |
40 | /* Uncomment this if you need to return NOs | |
41 | case PERL_constant_ISNO: | |
42 | EXTEND(SP, 1); | |
43 | PUSHs(&PL_sv_undef); | |
44 | PUSHs(&PL_sv_no); | |
45 | break; */ | |
46 | /* Uncomment this if you need to return NVs | |
47 | case PERL_constant_ISNV: | |
48 | EXTEND(SP, 1); | |
49 | PUSHs(&PL_sv_undef); | |
50 | PUSHn(nv); | |
51 | break; */ | |
52 | /* Uncomment this if you need to return PVs | |
53 | case PERL_constant_ISPV: | |
54 | EXTEND(SP, 1); | |
55 | PUSHs(&PL_sv_undef); | |
56 | PUSHp(pv, strlen(pv)); | |
57 | break; */ | |
58 | /* Uncomment this if you need to return PVNs | |
59 | case PERL_constant_ISPVN: | |
60 | EXTEND(SP, 1); | |
61 | PUSHs(&PL_sv_undef); | |
62 | PUSHp(pv, iv); | |
63 | break; */ | |
64 | /* Uncomment this if you need to return SVs | |
65 | case PERL_constant_ISSV: | |
66 | EXTEND(SP, 1); | |
67 | PUSHs(&PL_sv_undef); | |
68 | PUSHs(sv); | |
69 | break; */ | |
70 | /* Uncomment this if you need to return UNDEFs | |
71 | case PERL_constant_ISUNDEF: | |
72 | break; */ | |
73 | /* Uncomment this if you need to return UVs | |
74 | case PERL_constant_ISUV: | |
75 | EXTEND(SP, 1); | |
76 | PUSHs(&PL_sv_undef); | |
77 | PUSHu((UV)iv); | |
78 | break; */ | |
79 | /* Uncomment this if you need to return YESs | |
80 | case PERL_constant_ISYES: | |
81 | EXTEND(SP, 1); | |
82 | PUSHs(&PL_sv_undef); | |
83 | PUSHs(&PL_sv_yes); | |
84 | break; */ | |
85 | default: | |
86 | sv = sv_2mortal(newSVpvf( | |
87 | "Unexpected return type %d while processing Audio::Opusfile macro %s, used", | |
88 | type, s)); | |
89 | PUSHs(sv); | |
90 | } |