rev 545 - trunk/src

Author: mark
Date: 2004-05-24 19:26:37 -0400 (Mon, 24 May 2004)
New Revision: 545

Added:
   trunk/src/builtins-protolist.c
Log:
forgot a file

Added: trunk/src/builtins-protolist.c
===================================================================
--- trunk/src/builtins-protolist.c	2004-05-24 23:24:12 UTC (rev 544)
+++ trunk/src/builtins-protolist.c	2004-05-24 23:26:37 UTC (rev 545)
@@ -0,0 +1,246 @@
+/* ====================================================================
+ * The Prothon License Agreement, Version 1.1
+ *
+ * Copyright (c) 2004 Hahn Creative Applications, http://hahnca.com.
+ * All rights reserved. 
+ *
+ * 1. This LICENSE AGREEMENT is between Hahn Creative Applications ("HCA"),
+ * and the Individual or Organization ("Licensee") accessing and otherwise
+ * using Prothon software in source or binary form and its associated
+ * documentation.
+ * 
+ * 2. Subject to the terms and conditions of this License Agreement, HCA
+ * hereby grants Licensee a nonexclusive, royalty-free, world-wide license
+ * to reproduce, analyze, test, perform and/or display publicly, prepare
+ * derivative works, distribute, and otherwise use Prothon alone or in any
+ * derivative version, provided, however, that HCA's License Agreement and
+ * HCA's notice of copyright, i.e., "Copyright (c) 2004 Hahn Creative
+ * Applications; All Rights Reserved" are retained in Prothon alone or
+ * in any derivative version prepared by Licensee.
+ * 
+ * 3. In the event Licensee prepares a derivative work that is based on or
+ * incorporates Prothon or any part thereof, and wants to make the
+ * derivative work available to others as provided herein, then Licensee
+ * hereby agrees to include in any such work a brief summary of the
+ * changes made to Prothon.
+ * 
+ * 4. HCA is making Prothon available to Licensee on an "AS IS" basis.
+ * HCA MAKES NO REPRESENTATIONS OR WARRANTIES, EXPRESS OR IMPLIED.  BY WAY
+ * OF EXAMPLE, BUT NOT LIMITATION, HCA MAKES NO AND DISCLAIMS ANY
+ * REPRESENTATION OR WARRANTY OF MERCHANTABILITY OR FITNESS FOR ANY
+ * PARTICULAR PURPOSE OR THAT THE USE OF PROTHON WILL NOT INFRINGE ANY
+ * THIRD PARTY RIGHTS.
+ * 
+ * 5. HCA SHALL NOT BE LIABLE TO LICENSEE OR ANY OTHER USERS OF PROTHON
+ * FOR ANY INCIDENTAL, SPECIAL, OR CONSEQUENTIAL DAMAGES OR LOSS AS A
+ * RESULT OF MODIFYING, DISTRIBUTING, OR OTHERWISE USING PROTHON, OR ANY
+ * DERIVATIVE THEREOF, EVEN IF ADVISED OF THE POSSIBILITY THEREOF.
+ * 
+ * 6. This License Agreement will automatically terminate upon a material
+ * breach of its terms and conditions.
+ * 
+ * 7. Nothing in this License Agreement shall be deemed to create any
+ * relationship of agency, partnership, or joint venture between HCA and
+ * Licensee.  This License Agreement does not grant permission to use HCA
+ * trademarks or trade name in a trademark sense to endorse or promote
+ * products or services of Licensee, or any third party.
+ * 
+ * 8. By copying, installing or otherwise using Prothon, Licensee agrees
+ * to be bound by the terms and conditions of this License Agreement.
+ * ====================================================================
+ */
+
+
+// builtins.c
+
+#include <stdio.h>
+#include <string.h>
+
+#include <apr_strings.h>
+
+#include <prothon/prothon.h>
+#include "dict.h"
+#include "parser.h"
+#include "object.h"
+#include <prothon/prothon_dll.h>
+
+MODULE_DECLARE(ProtoList);
+
+// ***************************** new_protolist_obj ****************************
+obj_p new_protolist_obj(isp ist, obj_p obj) {
+	obj_p self = new_object(ist, ProtoList_OBJ);
+	self->data_type = DATA_TYPE_DATAPTR;
+	self->data.ptr  = obj;
+	set_unclonable(self);
+	return self;
+}
+
+// ***************************** protos2list **********************************
+obj_p protos2list(isp ist, obj_p obj) {
+	int i, llen;
+	obj_p list;
+	rdlock_rtrn(obj) NULL;
+	llen = proto_len(ist, obj);
+	list = new_list_obj(ist, llen);
+	for (i=0; i < llen; i++)
+		list_append(ist, list, proto_item(ist, obj, i));
+	read_unlock(ist, obj);
+	return list;
+}
+
+// ***************************** list2protos **********************************
+void list2protos(isp ist, obj_p list, obj_p obj) {
+	int i, llen = (int) list_len(ist, list);
+	if (!llen) {
+		raise_exception(ist, OBJ(INTERPRETER_EXC), "protos_ list must have at least one entry");
+		return;
+	}
+	switch_proto(ist, obj, list_item(ist, list, 0));
+	for (i=1; i < llen; i++)
+		add_proto(ist, obj, list_item(ist, list, i));
+}
+
+// ***************************** PROTOLIST ************************************
+
+MODULE_START(ProtoList)
+{
+	ProtoList_OBJ = NEW_OBJ(NULL);
+	MODULE_SET_DOC(ProtoList, "protos_ list prototype");
+	set_obj_id(ProtoList_OBJ, *, ProtoList);
+	set_attr(ist, OBJ(OBJECT), sym(ist, "ProtoList"), ProtoList_OBJ);
+
+	ProtoList_OBJ->data_type = DATA_TYPE_DATAPTR;
+	ProtoList_OBJ->data.ptr = OBJ(OBJECT);
+	set_unclonable(ProtoList_OBJ);
+}
+
+DEF(ProtoList, init_, FORM_RPARAM) {
+	BIN_EMPTY_CHK();
+	self->data_type = DATA_TYPE_DATAPTR;
+	self->data.ptr = parms[1];
+	set_unclonable(self);
+	return OBJ(NONE);
+}
+
+DEF(ProtoList, str_, NULL) {
+	obj_p res, list;
+	BIN_STR_CHK(ProtoList);
+	res = call_func0(ist, list = protos2list(ist, self->data.ptr), SYM(STR_));
+	del_unlock(list);
+	return res;
+}
+DEF(ProtoList, eq__QUES, FORM_RPARAM) { 
+	obj_p res, list;
+	BIN_CONTENT_CHK(ProtoList);
+	res = call_func1(ist, list = protos2list(ist, self->data.ptr), 
+		                  sym(ist, "eq__QUES"), parms[1]);
+	del_unlock(list);
+	return res;
+}
+
+DEF(ProtoList, getItem_, FORM_RPARAM) {
+	obj_p res, list;
+	BIN_CONTENT_CHK(ProtoList);
+	res = call_func1(ist, list = protos2list(ist, self->data.ptr), 
+		                  sym(ist, "getItem_"), parms[1]);
+	del_unlock(list);
+	return res;
+}
+
+DEF(ProtoList, setItem_, FORM_PARAM2) {
+	obj_p list;
+	BIN_CONTENT_CHK(ProtoList);
+	call_func2(ist, list = protos2list(ist, self->data.ptr), 
+	                sym(ist, "setItem_"), parms[1], parms[3]);
+	list2protos(ist, list, self->data.ptr);
+	del_unlock(list);
+	return NULL;
+}
+
+DEF(ProtoList, delItem_, FORM_RPARAM) {
+	obj_p list;
+	BIN_CONTENT_CHK(ProtoList);
+	call_func1(ist, list = protos2list(ist, self->data.ptr), 
+	                sym(ist, "delItem_"), parms[1]);
+	list2protos(ist, list, self->data.ptr);
+	del_unlock(list);
+	return NULL;
+}
+
+DEF(ProtoList, append_BANG, FORM_RPARAM) {
+	obj_p list;
+	BIN_CONTENT_CHK(ProtoList);
+	call_func1(ist, list = protos2list(ist, self->data.ptr), 
+	                sym(ist, "append_BANG"), parms[1]);
+	list2protos(ist, list, self->data.ptr);
+	del_unlock(list);
+	return NULL;
+}
+
+DEF(ProtoList, insert_BANG, FORM_PARAM2) {
+	obj_p list;
+	BIN_CONTENT_CHK(ProtoList);
+	call_func2(ist, list = protos2list(ist, self->data.ptr), 
+	                sym(ist, "insert_BANG"), parms[1], parms[3]);
+	list2protos(ist, list, self->data.ptr);
+	del_unlock(list);
+	return NULL;
+}
+
+DEF(ProtoList, remove_BANG, FORM_RPARAM) {
+	obj_p list;
+	BIN_CONTENT_CHK(ProtoList);
+	call_func1(ist, list = protos2list(ist, self->data.ptr), 
+	                sym(ist, "remove_BANG"), parms[1]);
+	list2protos(ist, list, self->data.ptr);
+	del_unlock(list);
+	return NULL;
+}
+
+DEF(ProtoList, rIn__QUES, FORM_RPARAM) {
+	obj_p res, list;
+	BIN_CONTENT_CHK(ProtoList);
+	res = call_func1(ist, list = protos2list(ist, self->data.ptr), 
+		                  sym(ist, "rIn__QUES"), parms[1]);
+	del_unlock(list);
+	return res;
+}
+
+DEF(ProtoList, rNotIn__QUES, FORM_RPARAM) {
+	obj_p res, list;
+	BIN_CONTENT_CHK(ProtoList);
+	res = call_func1(ist, list = protos2list(ist, self->data.ptr), 
+		                  sym(ist, "rNotIn__QUES"), parms[1]);
+	del_unlock(list);
+	return res;
+}
+
+DEF(ProtoList, len, NULL) {
+	BIN_CONTENT_CHK(ProtoList);
+	return NEW_INT(proto_len(ist, self->data.ptr));
+}
+
+DEF(ProtoList, objList_, FORM_RPARAM) {
+	BIN_CONTENT_CHK(ProtoList);
+	return parms[1];
+}
+
+MAIN_MODULE_INIT(ProtoList)
+{
+	MODULE_SUB_INIT(ProtoList);
+	MODULE_ADD_SYM(ProtoList, init_);
+	MODULE_ADD_SYM(ProtoList, str_);
+	MODULE_ADD_SYM(ProtoList, eq__QUES);
+	MODULE_ADD_SYM(ProtoList, len);
+	MODULE_ADD_SYM(ProtoList, rIn__QUES);
+	MODULE_ADD_SYM(ProtoList, rNotIn__QUES);
+	MODULE_ADD_SYM(ProtoList, getItem_);
+	MODULE_ADD_SYM(ProtoList, setItem_);
+	MODULE_ADD_SYM(ProtoList, delItem_);
+	MODULE_ADD_SYM(ProtoList, append_BANG);
+	MODULE_ADD_SYM(ProtoList, insert_BANG);
+	MODULE_ADD_SYM(ProtoList, remove_BANG);
+
+	MODULE_ADD_SYM(ProtoList, objList_);
+	check_exceptions(ist);
+}