diff options
Diffstat (limited to 'contrib/perl5/mg.h')
-rw-r--r-- | contrib/perl5/mg.h | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/contrib/perl5/mg.h b/contrib/perl5/mg.h deleted file mode 100644 index 0048803..0000000 --- a/contrib/perl5/mg.h +++ /dev/null @@ -1,50 +0,0 @@ -/* mg.h - * - * Copyright (c) 1991-2001, 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)) (pTHX_ SV *sv, MAGIC* mg); - int (CPERLscope(*svt_set)) (pTHX_ SV *sv, MAGIC* mg); - U32 (CPERLscope(*svt_len)) (pTHX_ SV *sv, MAGIC* mg); - int (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg); - int (CPERLscope(*svt_free)) (pTHX_ 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) ((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \ - SvPV((SV*)((mg)->mg_ptr),lp) : \ - (mg)->mg_ptr) - -#define SvTIED_mg(sv,how) \ - (SvRMAGICAL(sv) ? mg_find((sv),(how)) : Null(MAGIC*)) -#define SvTIED_obj(sv,mg) \ - ((mg)->mg_obj ? (mg)->mg_obj : sv_2mortal(newRV(sv))) |