SNES-SLANG.rakumod

use nqp;
module SNES-SLANG {
    my role SNES-ASM {
        token statement_control:sym<SNES> {
            <sym>
            <thing>+
            ';'
        }
        token thing {
            <instruction> <.ws> <endofinstr>
        }
        token endofinstr {
            ':'
        }
        token instruction {
            <singleop> | <opwitharg>
        }
        token singleop {
            'rtl'
        }
        token opwitharg {
            <twoopcode> <.ws> <argop>
        }
        token twoopcode {
            'lda' | 'sta' | 'jmp'
        }
        token argop {
            '$' <.xdigit>+
        }
    }

    my role SNES-Action {
        method statement_control:sym<SNES>(Mu $/) {
            make-snes-bytecode($/);
        }
    }

    sub make-snes-bytecode($match) {
        say "make bytecode", $match;
    }
    sub EXPORT (|) {
        say "Export";
        $*LANG.define_slang('MAIN',
                $*LANG.slang_grammar('MAIN').^mixin(SNES-ASM),
                $*LANG.actions.^mixin(SNES-Action));
        {}
    }
}