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
|
/* vi: set ft=c : */
#include "xps_internals.h"
/* Some experimental extension flags. Not (currently) part of core perl API
*/
enum {
PARSE_SUBSIGNATURE_NAMED_PARAMS = (1<<0),
/* Permits ( :$foo, :$bar, :$splot = "default" ) named params
* They are accumulated into a slurpy hash then extracted afterwards
* As with positional params, any param without a defaulting expression is
* required; an error is thrown if the caller did not provide it
*/
PARSE_SUBSIGNATURE_PARAM_ATTRIBUTES = (1<<1),
/* Permits ( $param :Attribute(Value) ) attributes on params
* These must be registered by calling register_subsignature_attribute()
*/
};
#define boot_parse_subsignature_ex() XPS_boot_parse_subsignature_ex(aTHX)
void XPS_boot_parse_subsignature_ex(pTHX);
#define signature_add_param(ctx, details) XPS_signature_add_param(aTHX_ ctx, details)
void XPS_signature_add_param(pTHX_ struct XSParseSublikeContext *ctx, struct XPSSignatureParamDetails *details);
#define signature_query(ctx, q) XPS_signature_query(aTHX_ ctx, q)
IV XPS_signature_query(pTHX_ struct XSParseSublikeContext *ctx, int q);
#define parse_subsignature_ex(flags, ctx, hd, nhooks) XPS_parse_subsignature_ex(aTHX_ flags, ctx, hd, nhooks)
OP *XPS_parse_subsignature_ex(pTHX_ int flags,
struct XPSContextWithPointer *ctx,
struct HooksAndData hooksanddata[],
size_t nhooks);
#define register_subsignature_attribute(name, funcs, funcdata) XPS_register_subsignature_attribute(aTHX_ name, funcs, funcdata)
void XPS_register_subsignature_attribute(pTHX_ const char *name, const struct XPSSignatureAttributeFuncs *funcs, void *funcdata);
|
