diff options
Diffstat (limited to 'contrib/perl5/mg.h')
| -rw-r--r-- | contrib/perl5/mg.h | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/contrib/perl5/mg.h b/contrib/perl5/mg.h new file mode 100644 index 000000000000..16efdb5d7a29 --- /dev/null +++ b/contrib/perl5/mg.h @@ -0,0 +1,45 @@ +/* mg.h + * + * Copyright (c) 1991-1997, Larry Wall + * + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. + * + */ + +#ifdef STRUCT_MGVTBL_DEFINITION +STRUCT_MGVTBL_DEFINITION; +#else +struct mgvtbl { + int (CPERLscope(*svt_get)) _((SV *sv, MAGIC* mg)); + int (CPERLscope(*svt_set)) _((SV *sv, MAGIC* mg)); + U32 (CPERLscope(*svt_len)) _((SV *sv, MAGIC* mg)); + int (CPERLscope(*svt_clear)) _((SV *sv, MAGIC* mg)); + int (CPERLscope(*svt_free)) _((SV *sv, MAGIC* mg)); +}; +#endif + +struct magic { + MAGIC* mg_moremagic; + MGVTBL* mg_virtual; /* pointer to magic functions */ + U16 mg_private; + char mg_type; + U8 mg_flags; + SV* mg_obj; + char* mg_ptr; + I32 mg_len; +}; + +#define MGf_TAINTEDDIR 1 +#define MGf_REFCOUNTED 2 +#define MGf_GSKIP 4 + +#define MGf_MINMATCH 1 + +#define MgTAINTEDDIR(mg) (mg->mg_flags & MGf_TAINTEDDIR) +#define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR) +#define MgTAINTEDDIR_off(mg) (mg->mg_flags &= ~MGf_TAINTEDDIR) + +#define MgPV(mg,lp) (((lp = (mg)->mg_len) == HEf_SVKEY) ? \ + SvPV((SV*)((mg)->mg_ptr),lp) : \ + (mg)->mg_ptr) |