added project

dvm/fdvm/trunk/parser/lists.c

@@ -0,0 +1,108 @@
+/*********************************************************************/
+/*                  pC++/Sage++  Copyright (C) 1993                  */
+/*  Indiana University  University of Oregon  University of Rennes   */
+/*********************************************************************/
+
+#include <stdio.h>
+#include "defs.h"
+#include "bif.h"
+#include "ll.h"
+#include "symb.h"
+#include "db.h"
+
+extern PTR_TYPE global_default;
+extern PTR_LLND make_llnd();
+extern PTR_FILE fi;
+
+void errstr();
+
+/*
+ * set_ll_list attaches a new node to a given old_list and
+ * makes sure that the old_list is of the same type as ll_type
+ */
+PTR_LLND 
+set_ll_list(old_list, node, ll_type)
+	PTR_LLND old_list, node;
+	int     ll_type;
+{
+	register PTR_LLND temp, new;
+
+	if (!node) {	/* the first item in the list */
+		new = make_llnd(fi,ll_type, old_list, LLNULL, SMNULL);
+		new->type = global_default;
+		return (new);
+	}
+	if (old_list->variant != ll_type) { 	/* first two items */
+		new = make_llnd(fi,ll_type, old_list,
+				make_llnd(fi,ll_type, node, LLNULL, SMNULL),
+				SMNULL);
+		new->type = global_default;
+		new->entry.Template.ll_ptr2->type = global_default;
+		return (new);
+}
+	new = make_llnd(fi,ll_type, node, LLNULL, SMNULL);
+	for (temp = old_list;
+	     temp->entry.Template.ll_ptr2;
+	     temp = temp->entry.Template.ll_ptr2)
+		;
+	temp->entry.Template.ll_ptr2 = new;
+	new->type = global_default;
+	return (old_list);
+}
+
+
+/*
+ * set_id_list takes an old id list and runs down the list attaching new 
+ * id at the end
+ */
+PTR_SYMB 
+set_id_list(old_list, id)
+	PTR_SYMB old_list, id;
+{
+	register PTR_SYMB temp;
+
+	if (!id)
+	    return (old_list);
+        if(id->id_list) {
+            errstr("'%s' is a duplicate dummy argument",id->ident,121); /*podd 9.03.00*/
+            return(old_list);
+        }
+	for (temp = old_list; temp->id_list; temp = temp->id_list)
+		;
+
+	temp->id_list = id;
+	return (old_list);
+}
+
+PTR_LLND
+add_to_lowLevelList(ele, oldList)
+PTR_LLND ele, oldList;
+{
+	register PTR_LLND temp;
+
+	if (!ele)
+	     return (oldList);
+
+	for (temp = oldList; temp->entry.list.next; temp = temp->entry.list.next)
+		;
+
+	temp->entry.list.next = ele;
+	return (oldList);
+}
+     
+PTR_LLND
+add_to_lowList(ele, oldList)
+PTR_LLND ele, oldList;
+{
+	register PTR_LLND temp;
+
+	if (!ele)
+	     return (oldList);
+
+	for (temp = oldList; temp->entry.Template.ll_ptr2; temp = temp->entry.Template.ll_ptr2)
+	     ;
+
+	temp->entry.Template.ll_ptr2 = ele;
+	
+	return (oldList);
+}