This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Provide the names of the magic vtables in PL_magic_vtable_names[].
[perl5.git] / mg_vtable.h
1 /* -*- buffer-read-only: t -*-
2  *
3  *    mg_vtable.h
4  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
5  * This file is built by regen/mg_vtable.pl.
6  * Any changes made here will be lost!
7  */
8
9 enum {          /* pass one of these to get_vtbl */
10     want_vtbl_sv,
11     want_vtbl_env,
12     want_vtbl_envelem,
13     want_vtbl_sigelem,
14     want_vtbl_pack,
15     want_vtbl_packelem,
16     want_vtbl_dbline,
17     want_vtbl_isa,
18     want_vtbl_isaelem,
19     want_vtbl_arylen,
20     want_vtbl_arylen_p,
21     want_vtbl_mglob,
22     want_vtbl_nkeys,
23     want_vtbl_taint,
24     want_vtbl_substr,
25     want_vtbl_vec,
26     want_vtbl_pos,
27     want_vtbl_uvar,
28     want_vtbl_defelem,
29     want_vtbl_regexp,
30     want_vtbl_regdata,
31     want_vtbl_regdatum,
32     want_vtbl_amagic,
33     want_vtbl_amagicelem,
34     want_vtbl_backref,
35     want_vtbl_ovrld,
36     want_vtbl_utf8,
37     want_vtbl_collxfrm,
38     want_vtbl_hintselem,
39     want_vtbl_hints,
40     magic_vtable_max
41 };
42
43 #ifdef DOINIT
44 EXTCONST char *PL_magic_vtable_names[magic_vtable_max] = {
45     "sv",
46     "env",
47     "envelem",
48     "sigelem",
49     "pack",
50     "packelem",
51     "dbline",
52     "isa",
53     "isaelem",
54     "arylen",
55     "arylen_p",
56     "mglob",
57     "nkeys",
58     "taint",
59     "substr",
60     "vec",
61     "pos",
62     "uvar",
63     "defelem",
64     "regexp",
65     "regdata",
66     "regdatum",
67     "amagic",
68     "amagicelem",
69     "backref",
70     "ovrld",
71     "utf8",
72     "collxfrm",
73     "hintselem",
74     "hints"
75 };
76 #else
77 EXTCONST char *PL_magic_vtable_names[magic_vtable_max];
78 #endif
79
80 /* These all need to be 0, not NULL, as NULL can be (void*)0, which is a
81  * pointer to data, whereas we're assigning pointers to functions, which are
82  * not the same beast. ANSI doesn't allow the assignment from one to the other.
83  * (although most, but not all, compilers are prepared to do it)
84  */
85
86 /* order is:
87     get
88     set
89     len
90     clear
91     free
92     copy
93     dup
94     local
95 */
96
97 #ifdef DOINIT
98 EXT_MGVTBL PL_magic_vtables[magic_vtable_max] = {
99   { Perl_magic_get, Perl_magic_set, Perl_magic_len, 0, 0, 0, 0, 0 },
100   { 0, Perl_magic_set_all_env, 0, Perl_magic_clear_all_env, 0, 0, 0, 0 },
101   { 0, Perl_magic_setenv, 0, Perl_magic_clearenv, 0, 0, 0, 0 },
102 #ifndef PERL_MICRO
103   { Perl_magic_getsig, Perl_magic_setsig, 0, Perl_magic_clearsig, 0, 0, 0, 0 },
104 #else
105   { 0, 0, 0, 0, 0, 0, 0, 0 },
106 #endif
107   { 0, 0, Perl_magic_sizepack, Perl_magic_wipepack, 0, 0, 0, 0 },
108   { Perl_magic_getpack, Perl_magic_setpack, 0, Perl_magic_clearpack, 0, 0, 0, 0 },
109   { 0, Perl_magic_setdbline, 0, 0, 0, 0, 0, 0 },
110   { 0, Perl_magic_setisa, 0, Perl_magic_clearisa, 0, 0, 0, 0 },
111   { 0, Perl_magic_setisa, 0, 0, 0, 0, 0, 0 },
112   { (int (*)(pTHX_ SV *, MAGIC *))Perl_magic_getarylen, Perl_magic_setarylen, 0, 0, 0, 0, 0, 0 },
113   { 0, 0, 0, 0, Perl_magic_freearylen_p, 0, 0, 0 },
114   { 0, Perl_magic_setmglob, 0, 0, 0, 0, 0, 0 },
115   { Perl_magic_getnkeys, Perl_magic_setnkeys, 0, 0, 0, 0, 0, 0 },
116   { Perl_magic_gettaint, Perl_magic_settaint, 0, 0, 0, 0, 0, 0 },
117   { Perl_magic_getsubstr, Perl_magic_setsubstr, 0, 0, 0, 0, 0, 0 },
118   { Perl_magic_getvec, Perl_magic_setvec, 0, 0, 0, 0, 0, 0 },
119   { Perl_magic_getpos, Perl_magic_setpos, 0, 0, 0, 0, 0, 0 },
120   { Perl_magic_getuvar, Perl_magic_setuvar, 0, 0, 0, 0, 0, 0 },
121   { Perl_magic_getdefelem, Perl_magic_setdefelem, 0, 0, 0, 0, 0, 0 },
122   { 0, Perl_magic_setregexp, 0, 0, 0, 0, 0, 0 },
123   { 0, 0, Perl_magic_regdata_cnt, 0, 0, 0, 0, 0 },
124   { Perl_magic_regdatum_get, Perl_magic_regdatum_set, 0, 0, 0, 0, 0, 0 },
125   { 0, Perl_magic_setamagic, 0, 0, Perl_magic_setamagic, 0, 0, 0 },
126   { 0, Perl_magic_setamagic, 0, 0, Perl_magic_setamagic, 0, 0, 0 },
127   { 0, 0, 0, 0, Perl_magic_killbackrefs, 0, 0, 0 },
128   { 0, 0, 0, 0, Perl_magic_freeovrld, 0, 0, 0 },
129   { 0, Perl_magic_setutf8, 0, 0, 0, 0, 0, 0 },
130 #ifdef USE_LOCALE_COLLATE
131   { 0, Perl_magic_setcollxfrm, 0, 0, 0, 0, 0, 0 },
132 #else
133   { 0, 0, 0, 0, 0, 0, 0, 0 },
134 #endif
135   { 0, Perl_magic_sethint, 0, Perl_magic_clearhint, 0, 0, 0, 0 },
136   { 0, 0, 0, Perl_magic_clearhints, 0, 0, 0, 0 }
137 };
138 #else
139 EXT_MGVTBL PL_magic_vtables[magic_vtable_max];
140 #endif
141
142 #define want_vtbl_bm want_vtbl_regexp
143 #define want_vtbl_fm want_vtbl_regexp
144
145 #define PL_vtbl_amagic PL_magic_vtables[want_vtbl_amagic]
146 #define PL_vtbl_amagicelem PL_magic_vtables[want_vtbl_amagicelem]
147 #define PL_vtbl_arylen PL_magic_vtables[want_vtbl_arylen]
148 #define PL_vtbl_arylen_p PL_magic_vtables[want_vtbl_arylen_p]
149 #define PL_vtbl_backref PL_magic_vtables[want_vtbl_backref]
150 #define PL_vtbl_bm PL_magic_vtables[want_vtbl_bm]
151 #define PL_vtbl_collxfrm PL_magic_vtables[want_vtbl_collxfrm]
152 #define PL_vtbl_dbline PL_magic_vtables[want_vtbl_dbline]
153 #define PL_vtbl_defelem PL_magic_vtables[want_vtbl_defelem]
154 #define PL_vtbl_env PL_magic_vtables[want_vtbl_env]
155 #define PL_vtbl_envelem PL_magic_vtables[want_vtbl_envelem]
156 #define PL_vtbl_fm PL_magic_vtables[want_vtbl_fm]
157 #define PL_vtbl_hints PL_magic_vtables[want_vtbl_hints]
158 #define PL_vtbl_hintselem PL_magic_vtables[want_vtbl_hintselem]
159 #define PL_vtbl_isa PL_magic_vtables[want_vtbl_isa]
160 #define PL_vtbl_isaelem PL_magic_vtables[want_vtbl_isaelem]
161 #define PL_vtbl_mglob PL_magic_vtables[want_vtbl_mglob]
162 #define PL_vtbl_nkeys PL_magic_vtables[want_vtbl_nkeys]
163 #define PL_vtbl_ovrld PL_magic_vtables[want_vtbl_ovrld]
164 #define PL_vtbl_pack PL_magic_vtables[want_vtbl_pack]
165 #define PL_vtbl_packelem PL_magic_vtables[want_vtbl_packelem]
166 #define PL_vtbl_pos PL_magic_vtables[want_vtbl_pos]
167 #define PL_vtbl_regdata PL_magic_vtables[want_vtbl_regdata]
168 #define PL_vtbl_regdatum PL_magic_vtables[want_vtbl_regdatum]
169 #define PL_vtbl_regexp PL_magic_vtables[want_vtbl_regexp]
170 #define PL_vtbl_sigelem PL_magic_vtables[want_vtbl_sigelem]
171 #define PL_vtbl_substr PL_magic_vtables[want_vtbl_substr]
172 #define PL_vtbl_sv PL_magic_vtables[want_vtbl_sv]
173 #define PL_vtbl_taint PL_magic_vtables[want_vtbl_taint]
174 #define PL_vtbl_utf8 PL_magic_vtables[want_vtbl_utf8]
175 #define PL_vtbl_uvar PL_magic_vtables[want_vtbl_uvar]
176 #define PL_vtbl_vec PL_magic_vtables[want_vtbl_vec]
177
178 /* ex: set ro: */