86 lines
2.5 KiB
Java
86 lines
2.5 KiB
Java
/*
|
|
PS1.java
|
|
*
|
|
* 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.heraclitus;
|
|
import org.gzigzag.*;
|
|
import java.util.*;
|
|
|
|
/**
|
|
* The first primitive set for Heraclitus clang.
|
|
*/
|
|
|
|
public class PS1 implements PrimitiveSet {
|
|
public static final String rcsid = "$Id$";
|
|
public static boolean dbg = true;
|
|
static final void p(String s) { if(dbg) ZZLogger.log(s); }
|
|
|
|
public Primitive get(String id) {
|
|
if(id.equals("Move1Test"))
|
|
return new Move1Test();
|
|
return null;
|
|
}
|
|
|
|
/** First test: move a HERA1 (see ZZPrimitiveActions) datacursor one
|
|
* step pos on d.1.
|
|
*/
|
|
static public class Move1Test implements Primitive {
|
|
public ZZCell execute(ZZCell primitive, ZZCell cursorparam) {
|
|
p("Move1test");
|
|
ZZCell c0 = ZZCursorReal.get(cursorparam);
|
|
ZZCell c = c0.s("d.1", 1);
|
|
ZZCell v = ZZCursorReal.get(c);
|
|
ZZCell t0 = ZZCursorReal.get(v);
|
|
ZZCell t = t0.s("d.1", 1);
|
|
p("M1T: "+cursorparam+" "+c0+" "+c+" "+t0+" "+t);
|
|
ZZCursorReal.set(v, t);
|
|
return cursorparam;
|
|
}
|
|
}
|
|
|
|
/** A text translator: translates fixed strings into other fixed
|
|
* strings.
|
|
*/
|
|
|
|
|
|
/** Dereference the cursorparameter: expects the cursorparameter
|
|
* to point to another cursor, and makes it point to the place
|
|
* the other cursor pointed to.
|
|
*/
|
|
static public class Deref1 implements Primitive {
|
|
public ZZCell execute(ZZCell primitive, ZZCell cursorparam) {
|
|
ZZCell c = ZZCursorReal.get(cursorparam);
|
|
if(c == null) return null;
|
|
ZZCursorReal.set(cursorparam, ZZCursorReal.get(c));
|
|
return cursorparam;
|
|
}
|
|
}
|
|
|
|
/** Execute a sequence of cells with the same cursorparam.
|
|
*/
|
|
static public class Seq1 implements Primitive {
|
|
public ZZCell execute(ZZCell primitive, ZZCell cursorparam) {
|
|
// ZZCell root = cursorParam.
|
|
return cursorparam;
|
|
}
|
|
}
|
|
}
|