1 files changed, 39 insertions, 0 deletions
diff --git a/struct.h b/struct.h
new file mode 100644
index 00000000..193c605d
--- /dev/null
+++ b/struct.h
@@ -0,0 +1,39 @@
+/* Copyright 2015
+ * Kaz Kylheku <kaz@kylheku.com>
+ * Vancouver, Canada
+ * All rights reserved.
+ *
+ * Redistribution of this software in source and binary forms, with or without
+ * modification, is permitted provided that the following two conditions are met.
+ *
+ * Use of this software in any manner constitutes agreement with the disclaimer
+ * which follows the two conditions.
+ *
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in
+ *    the documentation and/or other materials provided with the
+ *    distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
+ * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL THE
+ * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DAMAGES, HOWEVER CAUSED,
+ * AND UNDER ANY THEORY OF LIABILITY, ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+extern val struct_type_s;
+val make_struct_type(val name, val super, val slots, val initfun, val boactor);
+val struct_type_p(val obj);
+val super(val type);
+val make_struct(val type, val plist, struct args *);
+val copy_struct(val strct);
+val find_struct_type(val sym);
+val slot(val strct, val sym);
+val slotset(val strct, val sym, val newval);
+val structp(val obj);
+val struct_type(val strct);
+val method(val strct, val obj);
+void struct_init(void);