appclass.sm

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

// -*- tab-width: 4; -*-
//
// 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) 2000 - 2003 Charles W. Rapp.
// All Rights Reserved.
//
// Contributor(s):
//      Port to Scala by Francois Perrad, [e-mail]
//
// State Machine
//	AppClass
//
// Description
//  This state machine is recognizes the regular expression wcw(r) or
//  palindromes.
//
// RCS ID
// $Id: AppClass.sm,v 1.1 2008/02/04 12:48:00 fperrad Exp $
//
// CHANGE LOG
// $Log: AppClass.sm,v $
// Revision 1.1  2008/02/04 12:48:00  fperrad
// Added Scala examples 1 - 3
//
//

%start StartMap::PushIt
%class AppClass

%map ZerosMap
%%
// State	Transition		End State           Action(s)
PushIt {
        	Zero			push(PushIt)            {}
			One				push(OnesMap::PushIt)		{}
			C				PopIt					{}
			OK				PopIt					{}
			Error			StartMap::Unacceptable  {emptyStateStack();}
}

PopIt {
			Zero			pop(OK)				{}
			Default			pop(Error)			{}
}

Default {
			EOS				StartMap::Unacceptable  {
                                                emptyStateStack();
                                                Unacceptable();
                                                }
			Unknown			StartMap::Unacceptable  {emptyStateStack();}
}
%%

%map OnesMap
%%
// State	Transition		End State           Action(s)
PushIt {
			Zero			push(ZerosMap::PushIt)		{}
			One				push(PushIt)            {}
			C				PopIt					{}
			OK				PopIt					{}
			Error			StartMap::Unacceptable  {emptyStateStack();}
}

PopIt {
			One				pop(OK)				{}
			Default			pop(Error)			{}
}

Default {
			EOS				StartMap::Unacceptable  {
                                                emptyStateStack();
                                                Unacceptable();
                                                }
			Unknown			StartMap::Unacceptable	{emptyStateStack();}
}
%%

%map StartMap
%%
// State	Transition		End State           Action(s)
PushIt {
			Zero			push(ZerosMap::PushIt)		{}
			One				push(OnesMap::PushIt)		{}
			C				PopIt					{}
			OK				PopIt					{}
			Error			Unacceptable		{}
}

PopIt {
			EOS				Acceptable			{Acceptable();}
			Default			Unacceptable		{}
}

Acceptable {}

Unacceptable {
		 	Default			nil					{}
}

Default {
			EOS				Unacceptable		{Unacceptable();}
			Unknown			Unacceptable		{}
}

%%