perl 5.0 alpha 2perl-5a2

[editor's note: from history.perl.org.  The sparc executables
originally included in the distribution are not in this commit.]

1 files changed, 28 insertions, 0 deletions

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;
+};