repos/rhope: extendlib.rhope comparison

Compiler now works for some simple programs

author	Mike Pavone <pavone@retrodev.com>
date	Mon, 28 Sep 2009 19:42:33 -0400
parents	8b2b3f4a2a58
children	6202b866d72c

comparison

equal deleted inserted replaced

-:3cc5e4a42344
+:914ad38f9b59
 	}{
 		out <- newlist
 	}
 }
+_Collection =[col1,key1,col2,key2:out]
+{
+	,out <- If[[key1]=[key2]]
+	{
+		,out <- If[[[col1]Index[key1]] = [[col2]Index[key2]]]
+		{
+			nkey1 <- [col1]Next[key1]
+			{
+				[col2]Next[key2]
+				{
+					out <- _Collection =[col1,nkey1,col2,~]
+				}{
+					out <- No
+				}
+			}{
+				[col2]Next[key2]
+				{
+					out <- No
+				}{
+					out <- Yes
+				}
+			}
+		}
+	}
+}
+Collection =[col1,col2:out]
+{
+	first1 <- [col1]First
+	{
+		[col2]First
+		{
+			out <- _Collection =[col1, first1, col2, ~]
+		}{
+			out <- No
+		}
+	}{
+		[col2]First
+		{
+			out <- No
+		}{
+			out <- Yes
+		}
+	}
+}
+=@List[list1,list2:out]
+{
+	,out <- If[[[list1]Length >>] = [[list2]Length >>]]
+	{
+		out <- Collection =[list1,list2]
+	}
+}
+=@Dictionary[list1,list2:out]
+{
+	,out <- If[[[list1]Length >>] = [[list2]Length >>]]
+	{
+		out <- Collection =[list1,list2]
+	}
+}

Mercurial > repos > rhope