jace/src/main/java/jace/applesoft/Command.java

/*
 * Copyright (C) 2012 Brendan Robert (BLuRry) brendan.robert@gmail.com.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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 GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 * MA 02110-1301  USA
 */
package jace.applesoft;

import java.util.ArrayList;
import java.util.List;

/**
 * A command is a list of parts, either raw bytes (ascii text) or tokens. When
 * put together they represent a single basic statement.
 *
 * @author Brendan Robert (BLuRry) brendan.robert@gmail.com 
 */
public class Command {

    public static enum TOKEN {

        END((byte) 0x080, "END"),
        FOR((byte) 0x081, "FOR"),
        NEXT((byte) 0x082, "NEXT"),
        DATA((byte) 0x083, "DATA"),
        INPUT((byte) 0x084, "INPUT"),
        DEL((byte) 0x085, "DEL"),
        DIM((byte) 0x086, "DIM"),
        READ((byte) 0x087, "READ"),
        GR((byte) 0x088, "GR"),
        TEXT((byte) 0x089, "TEXT"),
        PR((byte) 0x08A, "PR#"),
        IN((byte) 0x08B, "IN#"),
        CALL((byte) 0x08C, "CALL"),
        PLOT((byte) 0x08D, "PLOT"),
        HLIN((byte) 0x08E, "HLIN"),
        VLIN((byte) 0x08F, "VLIN"),
        HGR2((byte) 0x090, "HGR2"),
        HGR((byte) 0x091, "HGR"),
        HCOLOR((byte) 0x092, "HCOLOR="),
        HPLOT((byte) 0x093, "HPLOT"),
        DRAW((byte) 0x094, "DRAW"),
        XDRAW((byte) 0x095, "XDRAW"),
        HTAB((byte) 0x096, "HTAB"),
        HOME((byte) 0x097, "HOME"),
        ROT((byte) 0x098, "ROT="),
        SCALE((byte) 0x099, "SCALE="),
        SHLOAD((byte) 0x09A, "SHLOAD"),
        TRACE((byte) 0x09B, "TRACE"),
        NOTRACE((byte) 0x09C, "NOTRACE"),
        NORMAL((byte) 0x09D, "NORMAL"),
        INVERSE((byte) 0x09E, "INVERSE"),
        FLASH((byte) 0x09F, "FLASH"),
        COLOR((byte) 0x0A0, "COLOR="),
        POP((byte) 0x0A1, "POP"),
        VTAB((byte) 0x0A2, "VTAB"),
        HIMEM((byte) 0x0A3, "HIMEM:"),
        LOMEM((byte) 0x0A4, "LOMEM:"),
        ONERR((byte) 0x0A5, "ONERR"),
        RESUME((byte) 0x0A6, "RESUME"),
        RECALL((byte) 0x0A7, "RECALL"),
        STORE((byte) 0x0A8, "STORE"),
        SPEED((byte) 0x0A9, "SPEED="),
        LET((byte) 0x0AA, "LET"),
        GOTO((byte) 0x0AB, "GOTO"),
        RUN((byte) 0x0AC, "RUN"),
        IF((byte) 0x0AD, "IF"),
        RESTORE((byte) 0x0AE, "RESTORE"),
        AMPERSAND((byte) 0x0AF, "&"),
        GOSUB((byte) 0x0B0, "GOSUB"),
        RETURN((byte) 0x0B1, "RETURN"),
        REM((byte) 0x0B2, "REM"),
        STOP((byte) 0x0B3, "STOP"),
        ONGOTO((byte) 0x0B4, "ON"),
        WAIT((byte) 0x0B5, "WAIT"),
        LOAD((byte) 0x0B6, "LOAD"),
        SAVE((byte) 0x0B7, "SAVE"),
        DEF((byte) 0x0B8, "DEF"),
        POKE((byte) 0x0B9, "POKE"),
        PRINT((byte) 0x0BA, "PRINT"),
        CONT((byte) 0x0BB, "CONT"),
        LIST((byte) 0x0BC, "LIST"),
        CLEAR((byte) 0x0BD, "CLEAR"),
        GET((byte) 0x0BE, "GET"),
        NEW((byte) 0x0BF, "NEW"),
        TAB((byte) 0x0C0, "TAB("),
        TO((byte) 0x0C1, "TO"),
        FN((byte) 0x0C2, "FN"),
        SPC((byte) 0x0c3, "SPC"),
        THEN((byte) 0x0c4, "THEN"),
        AT((byte) 0x0c5, "AT"),
        NOT((byte) 0x0c6, "NOT"),
        STEP((byte) 0x0c7, "STEP"),
        PLUS((byte) 0x0c8, "+"),
        MINUS((byte) 0x0c9, "-"),
        MULTIPLY((byte) 0x0Ca, "*"),
        DIVIDE((byte) 0x0Cb, "/"),
        POWER((byte) 0x0Cc, "^"),
        AND((byte) 0x0Cd, "AND"),
        OR((byte) 0x0Ce, "OR"),
        GREATER((byte) 0x0CF, ">"),
        EQUAL((byte) 0x0d0, "="),
        LESS((byte) 0x0d1, "<"),
        SGN((byte) 0x0D2, "SGN"),
        INT((byte) 0x0D3, "INT"),
        ABS((byte) 0x0D4, "ABS"),
        USR((byte) 0x0D5, "USR"),
        FRE((byte) 0x0D6, "FRE"),
        SCREEN((byte) 0x0D7, "SCRN("),
        PDL((byte) 0x0D8, "PDL"),
        POS((byte) 0x0D9, "POS"),
        SQR((byte) 0x0DA, "SQR"),
        RND((byte) 0x0DB, "RND"),
        LOG((byte) 0x0DC, "LOG"),
        EXP((byte) 0x0DD, "EXP"),
        COS((byte) 0x0DE, "COS"),
        SIN((byte) 0x0DF, "SIN"),
        TAN((byte) 0x0E0, "TAN"),
        ATN((byte) 0x0E1, "ATN"),
        PEEK((byte) 0x0E2, "PEEK"),
        LEN((byte) 0x0E3, "LEN"),
        STR((byte) 0x0E4, "STR$"),
        VAL((byte) 0x0E5, "VAL"),
        ASC((byte) 0x0E6, "ASC"),
        CHR((byte) 0x0E7, "CHR$"),
        LEFT((byte) 0x0E8, "LEFT$"),
        RIGHT((byte) 0x0E9, "RIGHT$"),
        MID((byte) 0x0EA, "MID$");
        private String str;
        private byte b;

        TOKEN(byte b, String str) {
            this.b = b;
            this.str = str;
        }

        @Override
        public String toString() {
            return str;
        }

        public static TOKEN fromByte(byte b) {
            for (TOKEN t : values()) {
                if (t.b == b) {
                    return t;
                }
            }
            return null;
        }
    }

    public static class ByteOrToken {

        byte b;
        TOKEN t;
        boolean isToken = false;

        public ByteOrToken(byte b) {
            TOKEN t = TOKEN.fromByte(b);
            if (t != null) {
                isToken = true;
                this.t = t;
            } else {
                isToken = false;
                this.b = b;
            }

        }

        @Override
        public String toString() {
            return isToken
                    ? " " + t.toString() + " "
                    : String.valueOf((char) b);
        }
    }
    List<ByteOrToken> parts = new ArrayList<ByteOrToken>();

    @Override
    public String toString() {
        String out = "";
        for (ByteOrToken p : parts) {
            out += p.toString();
        }
        return out;
    }
}