From 79072805bf63abe5b5978b5928ab00d360ea3e7f Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Thu, 7 Oct 1993 23:00:00 +0000 Subject: perl 5.0 alpha 2 [editor's note: from history.perl.org. The sparc executables originally included in the distribution are not in this commit.] --- mg.h | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 mg.h (limited to 'mg.h') diff --git a/mg.h b/mg.h new file mode 100644 index 0000000000..ca3d8f3bd3 --- /dev/null +++ b/mg.h @@ -0,0 +1,28 @@ +/* $RCSfile: arg.h,v $$Revision: 4.1 $$Date: 92/08/07 17:18:16 $ + * + * Copyright (c) 1993, 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. + * + * $Log: arg.h,v $ + */ + +struct mgvtbl { + int (*svt_get) P((SV *sv, MAGIC* mg)); + int (*svt_set) P((SV *sv, MAGIC* mg)); + U32 (*svt_len) P((SV *sv, MAGIC* mg)); + int (*svt_clear) P((SV *sv, MAGIC* mg)); + int (*svt_free) P((SV *sv, MAGIC* mg)); +}; + +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; + U32 mg_len; +}; -- cgit v1.2.1