added some initial files

stix/lib/stix-prv.h

@@ -0,0 +1,178 @@
+/*
+ * $Id$
+ *
+    Copyright (c) 2014-2015 Chung, Hyung-Hwan. All rights reserved.
+
+    Redistribution and use in source and binary forms, with or without
+    modification, are permitted provided that the following conditions
+    are met:
+    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 BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
+    IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+    OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+    IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+    INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+    NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+    DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+    THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+    (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+    THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef _STIX_PRV_H_
+#define _STIX_PRV_H_
+
+#include "stix.h"
+
+#include <stdio.h> /* TODO: delete these header inclusion lines */
+#include <string.h>
+#include <assert.h>
+
+#define STIX_MEMSET(dst,src,size) memset(dst,src,size)
+#define STIX_MEMCPY(dst,src,size) memcpy(dst,src,size)
+#define STIX_ASSERT(x)            assert(x)
+
+#define STIX_ALIGN(x,y) ((((x) + (y) - 1) / (y)) * (y))
+/* make a low bit mask that can mask off low n bits*/
+#define STIX_LBMASK(type,n) (~(~((type)0) << (n))) 
+
+/* ========================================================================= */
+/* CLASS                                                                     */
+/* ========================================================================= */
+
+/* The stix_class_t type defines the internal structure of a class object. */
+struct stix_class_t
+{
+	STIX_OBJ_HEADER;
+	stix_oow_t      spec;
+	stix_oop_oop_t  methods;
+	stix_oop_oop_t  superclass;
+	stix_oop_char_t name;
+	stix_oop_char_t instvars;
+	stix_oop_char_t classvars;
+
+	/* variable part afterwards */
+};
+
+typedef struct stix_class_t stix_class_t;
+typedef struct stix_class_t* stix_oop_class_t;
+
+/*
+ * The spec field of a class object encodes the size of the fixed part
+ * and the type of the variable part. The fixed part is the number of
+ * instance variables. The variable part can be specified when the object
+ * is instantiated if it is variadic.
+ *
+ * vtype is one of the #stix_obj_type_t enumerators.
+ *
+ * The maximum number of named(fixed) instance variables for a class is:
+ *     2 ^ (BITS-IN-OOW - STIX_OBJ_TYPE_BITS - 1)
+ *
+ * The number of named instance variables can be greater than 0 if the class 
+ * is not variable or if it's a variable-pointer class(vtype == STIX_OBJ_TYPE_OOP)
+ *
+ * See also #stix_obj_type_t.
+ */
+#define STIX_CLASS_SPEC_MAKE(fixed,variadic,vtype) ( \
+	(((stix_oow_t)(fixed)) << (STIX_OBJ_TYPE_BITS + 1)) |  \
+	(((stix_oow_t)(vtype)) << 1) | (((stix_oow_t)variadic) & 1) )
+
+/* what is the number of named instance variables? */
+#define STIX_CLASS_SPEC_FIXED(spec) ((spec) >> STIX_OBJ_TYPE_BITS)
+
+/* is a variable class? */
+#define STIX_CLASS_SPEC_ISVAR(spec) ((spec) & 1)
+
+/* if so, what variable class is it? variable-character? variable-pointer? etc? */
+#define STIX_CLASS_SPEC_VTYPE(spec) ((spec) & (STIX_LBMASK(stix_oow_t, STIX_OBJ_TYPE_BITS) << 1))
+
+/* VM-level macros */
+#define STIX_CLASSOF(stix,oop) \
+	(STIX_OOP_IS_NUMERIC(oop)? \
+		((stix_oop_t)(stix)->cc.numeric[((stix_oow_t)oop&3)-1]): \
+		(oop)->_class)
+
+/*
+#define STIX_BYTESOF(stix,oop) \
+	(STIX_OOP_IS_NUMERIC(oop)? \
+		(STIX_SIZEOF(stix_oow_t)): \
+		(STIX_SIZEOF(stix_obj_t) + STIX_ALIGN(((oop)->size + (oop)->extra) * (oop)->unit), STIX_SIZEOF(stix_oop_t)) \
+	)
+*/
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+/* ========================================================================= */
+/* heap.c                                                                    */
+/* ========================================================================= */
+
+/**
+ * The stix_makeheap() function creates a new heap of the \a size bytes.
+ *
+ * \return heap pointer on success and #STIX_NULL on failure.
+ */
+stix_heap_t* stix_makeheap (
+	stix_t*     stix, 
+	stix_size_t size
+);
+
+/**
+ * The stix_killheap() function destroys the heap pointed to by \a heap.
+ */
+void stix_killheap (
+	stix_t*      stix, 
+	stix_heap_t* heap
+);
+
+/**
+ * The stix_allocheapmem() function allocates \a size bytes in the heap pointed
+ * to by \a heap.
+ *
+ * \return memory pointer on success and #STIX_NULL on failure.
+ */
+void* stix_allocheapmem (
+	stix_t*      stix,
+	stix_heap_t* heap,
+	stix_size_t  size
+);
+
+
+/* ========================================================================= */
+/* obj.c                                                                     */
+/* ========================================================================= */
+stix_oop_t stix_allocoopobj (
+	stix_t*    stix,
+	stix_oow_t size
+);
+
+stix_oop_t stix_alloccharobj (
+	stix_t*            stix,
+	const stix_char_t* ptr,
+	stix_oow_t         len
+);
+
+stix_oop_t stix_allocuint8obj (
+	stix_t*             stix,
+	const stix_uint8_t* ptr,
+	stix_oow_t          len
+);
+
+stix_oop_t stix_allocuint16obj (
+	stix_t*              stix,
+	const stix_uint16_t* ptr,
+	stix_oow_t           len
+);
+
+#if defined(__cplusplus)
+}
+#endif
+
+
+#endif