smcluagenerator.java

SMC takes a state machine stored in a .sm file and generates a State pattern in twelve programming l

//
// The contents of this file are subject to the Mozilla Public
// License Version 1.1 (the "License"); you may not use this file
// except in compliance with the License. You may obtain a copy of
// the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS
// IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
// implied. See the License for the specific language governing
// rights and limitations under the License.
//
// The Original Code is State Machine Compiler (SMC).
//
// The Initial Developer of the Original Code is Charles W. Rapp.
// Portions created by Charles W. Rapp are
// Copyright (C) 2005. Charles W. Rapp.
// All Rights Reserved.
//
// Port to Lua by Francois Perrad, [e-mail]
// Copyright 2007, Francois Perrad.
// All Rights Reserved.
//
// Contributor(s):
//   Eitan Suez contributed examples/Ant.
//   (Name withheld) contributed the C# code generation and
//   examples/C#.
//   Francois Perrad contributed the Python code generation and
//   examples/Python.
//
// RCS ID
// $Id: SmcLuaGenerator.java,v 1.7 2008/03/21 14:03:16 fperrad Exp $
//
// CHANGE LOG
// (See the bottom of this file.)
//

package net.sf.smc;

import java.io.PrintStream;
import java.util.ArrayList;
import java.util.Iterator;
import java.util.List;
import java.util.StringTokenizer;

/**
 * Visits the abstract syntax tree, emitting Lua code.
 * @see SmcElement
 * @see SmcCodeGenerator
 * @see SmcVisitor
 *
 * @author Francois Perrad
 */

public final class SmcLuaGenerator
    extends SmcCodeGenerator
{
//---------------------------------------------------------------
// Member methods
//

    public SmcLuaGenerator(String srcfileBase)
    {
        super (srcfileBase, "{0}{1}_sm.{2}", "lua");
    } // end of SmcLuaGenerator(String)

    public void visit(SmcFSM fsm)
    {
        String packageName = fsm.getPackage();
        String context = fsm.getContext();
        String rawSource = fsm.getSource();
        String startState = fsm.getStartState();
        String luaState;
        List<SmcMap> maps = fsm.getMaps();
        List<SmcTransition> transitions;
        List<SmcParameter> params;
        String mapName;
        String transName;
        int packageDepth = 0;
        int index;

        _source.println("-- DO NOT EDIT.");
        _source.println("-- generated by smc (http://smc.sourceforge.net/)");
        _source.print("-- from file : ");
        _source.print(_srcfileBase);
        _source.println(".sm");
        _source.println();

        _source.println("module(..., package.seeall)");
        _source.println();
        _source.println("require 'statemap'");

        // Dump out the raw source code, if any.
        if (rawSource != null && rawSource.length () > 0)
        {
            _source.println(rawSource);
            _source.println();
        }

        // Do user-specified imports now.
        for (String imp: fsm.getImports())
        {
            _source.print("require '");
            _source.print(imp);
            _source.println("'");
        }

        // Declare the inner state class.
        _source.println();
        _source.print("local ");
        _source.print(context);
        _source.println("State = statemap.State:class()");
        _source.println();

        _source.print("function ");
        _source.print(context);
        _source.println("State:Entry (fsm) end");
        _source.println();
        _source.print("function ");
        _source.print(context);
        _source.println("State:Exit (fsm) end");
        _source.println();

        // Get the transition list.
        // Generate the default transition definitions.
        transitions = fsm.getTransitions();
        for (SmcTransition trans: transitions)
        {
            params = trans.getParameters();

            // Don't generate the Default transition here.
            if (trans.getName().equals("Default") == false)
            {
                _source.print("function ");
                _source.print(context);
                _source.print("State:");
                _source.print(trans.getName());
                _source.print(" (fsm");

                for (SmcParameter param: params)
                {
                    _source.print(", ");
                    _source.print(param.getName());
                }

                _source.println(")");

                // If this method is reached, that means that
                // this transition was passed to a state which
                // does not define the transition. Call the
                // state's default transition method.
                _source.println("    self:Default(fsm)");

                _source.println("end");
                _source.println();
            }
        }

        // Generate the overall Default transition for all maps.
        _source.print("function ");
        _source.print(context);
        _source.println("State:Default (fsm)");

        if (Smc.isDebug() == true)
        {
            _source.println(
                "    if fsm:getDebugFlag() then");
            _source.println(
                "        fsm:getDebugStream():write(\"TRANSITION   : Default\\n\")");
            _source.println("    end");
        }

        _source.println(
            "    local msg = string.format(\"Undefined Transition\\nState: %s\\nTransition: %s\\n\",");
        _source.println(
            "                              fsm:getState():getName(),");
        _source.println(
            "                              fsm:getTransition())");
        _source.println("    error(msg)");
        _source.println("end");

        // Generate the getTransitions() method.
        if (Smc.isReflection() == true)
        {
            _source.println();
            _source.print("function ");
            _source.print(context);
            _source.println("State:getTransitions ()");
            _source.println("    return self._transitions");
            _source.println("end");
        }

        // End of context class.

        // Declare each map.
        _source.println();
        for (SmcMap map: maps)
        {
            mapName = map.getName();

            _source.print("local ");
            _source.print(mapName);
            _source.println(" = {}");
        }

        // Have each map print out its source code now.
        for (SmcMap map: maps)
        {
            map.accept(this);
        }

        // The context class contains all the state classes as
        // inner classes, so generate the context first rather
        // than last.
        _source.println();
        _source.print(context);
        _source.println("Context = statemap.FSMContext:class()");

        // Generate the context class' init.
        _source.println();
        _source.print("function ");
        _source.print(context);
        _source.println("Context:_init ()");

        // The state name "map::state" must be changed to
        // "map.state".
        if ((index = startState.indexOf("::")) >= 0)
        {
            luaState =
                startState.substring(0, index) +
                "." +
                startState.substring(index + 2);
        }
        else
        {
            luaState = startState;
        }

        _source.print("    self:setState(");
        _source.print(luaState);
        _source.println(")");

        // Execute the start state's entry actions.
        _source.print("    ");
        _source.print(luaState);
        _source.println(":Entry(self)");

        _source.println("end");
        _source.println();

        // Generate the transition methods.
        for (SmcTransition trans: transitions)
        {
            transName = trans.getName();
            params = trans.getParameters();

            if (transName.equals("Default") == false)
            {
                _source.print("function ");
                _source.print(context);
                _source.print("Context:");
                _source.print(transName);
                _source.print(" (");
                if (params.size() != 0)
                {
                    _source.print("...");
                }
                _source.println(")");

                // Save away the transition name in case it is
                // need in an UndefinedTransitionException.
                _source.print("    self._transition = '");
                _source.print(transName);
                _source.println("'");

                _source.print("    self:getState():");
                _source.print(transName);
                _source.print("(self");
                if (params.size() != 0)
                {
                    _source.print(", ...");
                }
                _source.println(")");

                _source.println("    self._transition = nil");

                _source.println("end");
                _source.println();
            }
        }

        // getOwner() method.
        _source.print("function ");
        _source.print(context);
        _source.println("Context:getOwner ()");
        _source.println("    return self._owner");
        _source.println("end");
        _source.println();

        return;
    } // end of visiti(SmcFSM)

    public void visit(SmcMap map)
    {
        List<SmcTransition> definedDefaultTransitions;
        SmcState defaultState = map.getDefaultState();
        String context = map.getFSM().getContext();
        String mapName = map.getName();
        List<SmcState> states = map.getStates();

        // Initialize the default transition list to all the
        // default state's transitions.
        if (defaultState != null)
        {
            definedDefaultTransitions =
                    defaultState.getTransitions();
        }
        else
        {
            definedDefaultTransitions =
                new ArrayList<SmcTransition>();
        }

        // Declare the map default state class.
        _source.println();
        _source.print(mapName);
        _source.print(".Default = ");
        _source.print(context);
        _source.print("State:new('");
        _source.print(mapName);
        _source.println(".Default', -1)");

        // Declare the user-defined default transitions first.
        for (SmcTransition transition: definedDefaultTransitions)
        {
            transition.accept(this);
        }

        // If -reflect was specified, then generate the
        // _transitions table.
        if (Smc.isReflection() == true)
        {
            List<SmcTransition> allTransitions =
                map.getFSM().getTransitions();
            String transName;
            int transDefinition;

            // Now output the transition collection's
            // initialization.
            _source.println();
            _source.print(mapName);
            _source.println(".Default._transitions = {");

            // Now place all transition names and states into the
            // map.
            for (SmcTransition transition: allTransitions)
            {
                transName = transition.getName();

                // If the transition is defined in this map's
                // default state, then the value is 2.
                if (definedDefaultTransitions.contains(
                        transition) == true)
                {
                    transDefinition = 2;
                }
                // Otherwise the value is 0 - undefined.
                else
                {
                    transDefinition = 0;
                }

                _source.print("    ");
                _source.print(transName);