created mirror

Java/clang/ZZClangOps.pl

@@ -0,0 +1,144 @@
+#
+# $Id: ZZClangOps.pl,v 1.5 2000/11/03 08:25:16 ajk Exp $
+#
+# Generate ZZClangOps.java for clang operations
+
+$file = $ARGV[0];
+$file = "ZZClangOps.java" if ($file eq "");
+open F, ">$file" or die "Can't open file $file";
+$rcsid = '$Id: ZZClangOps.pl,v 1.5 2000/11/03 08:25:16 ajk Exp $';
+print F <<END;
+/*   
+ZZClangOps.java
+ *
+ * GENERATED USING ZZClangObs.pl - DO NOT MODIFY THE JAVA CODE:
+ * YOUR CHANGES WILL BE OVERWRITTEN. MODIFY THE GENERATING
+ * PERL CODE IN ZZClangObs.pl instead.
+ *    
+ *    Copyright (c) 2000, Ted Nelson and Tuomas Lukka
+ *
+ *    You may use and distribute under the terms of either the GNU Lesser
+ *    General Public License, either version 2 of the license or,
+ *    at your choice, any later version. Alternatively, you may use and
+ *    distribute under the terms of the XPL.
+ *
+ *    See the LICENSE.lgpl and LICENSE.xpl files for the specific terms of 
+ *    the licenses.
+ *
+ *    This software is distributed in the hope that it will be useful,
+ *    but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the README
+ *    file for more details.
+ *
+ */
+/*
+ * Written by Tuomas Lukka
+ */
+package org.gzigzag.clang;
+import org.gzigzag.*;
+import java.util.*;
+
+/** Some primitive operations for Clang.
+ */
+
+public class ZZClangOps {
+public static final String rcsid = "$rcsid";
+    public static final boolean dbg = false;
+    static final void p(String s) { if(dbg) System.out.println(s); }
+
+    /** Convert a cell to a dimension. */
+    static final String d(ZZCell c) { return c.getText(); }
+
+END
+		    
+$exec = " public void exec(ZZCell c, ZZCursor crs, ZZClangContext ctxt) ";
+
+for(
+# 
+# First, operators without side effects, operating just on the given
+# cursor
+#
+[	Step,
+    2, 
+    q{dim n},
+    q%
+	int n = Integer.parseInt($P(n).getText());
+	String dim = d($P(dim));
+	ZZCell it = $CURS.get();
+	it = it.s(dim, n);
+	$CURS.set(it);
+    %,
+    q{steps the cursor n steps (positive or negative) along a dim. },
+], 
+[	Set,
+    2,
+    q{cell},
+    q%
+	$CURS.set($P(cell));
+    %, 
+    q{set the cursor cursor to point to cell cell. },
+],
+# [	Deref,
+#     0,
+#     q{},
+#     q%
+# 	ZZCursor curs = ctxt.getCursor();
+# 	curs.set(ZZDefaultSpace.getCursor(curs.get()));
+#     %,
+#     q{dereference a cursor. },
+# ],
+[	Connect,
+    3,
+    q{cell0 dim cell1},
+    q%
+	$P(cell0).connect(d($P(dim)), $P(cell1));
+    %,
+    q{connect two cells along dim. },
+],
+[	Connect2,
+    3,
+    q{dim cell1},
+    q%
+	$CURS.get().connect(d($P(dim)), $P(cell1));
+    %,
+    q{connect the cursor to cells along dim. },
+],
+) {
+    $lcname = lc $_->[0];
+    @pars = split ' ',$_->[2];
+    $npars = @pars;
+    my $ind = 1;
+    my %pars = map {($_ => $ind++)} @pars;
+
+    $_->[3] =~ s/\$P\((.*?)\)/(ctxt.paramAsCell(c.s("d.1", $pars{$1}, null)))/g;
+    $_->[3] =~ s/\$CURS/ crs /g;
+
+    $classes .= "
+	/** $_->[2] */
+	static class $_->[0] implements ZZClangOp {
+	    public String name() { return \"$lcname\"; }
+	    $exec 
+	    {
+		/* if(params.length != $npars)
+		    throw new ZZError(\"Wrong number of params for $lcname, got \"+
+			params.length+\", was expecting $npars\");
+		*/
+		$_->[3]
+	    }
+	}
+    ";
+    push @arrays, " new $_->[0]() ";
+}
+
+$ja = join ",\n",@arrays;
+
+print F <<END;
+    $classes
+    
+    public static ZZClangOp[] getOps1() {
+	return new ZZClangOp[] {
+	    $ja
+	};
+    }
+}
+END