appclass.sm

来自「SMC takes a state machine stored in a .s」· SM 代码 · 共 81 行

// -*- 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 Perl by Francois Perrad, [e-mail]
//
// State Machine
//	AppClass
//
// State Machine
//  This state machine is recognizes the regular expression 0*1*.
//
// RCS ID
// $Id: AppClass.sm,v 1.1 2005/06/16 18:04:14 fperrad Exp $
//
// CHANGE LOG
// $Log: AppClass.sm,v $
// Revision 1.1  2005/06/16 18:04:14  fperrad
// Added Perl examples 1 - 4 and 7.
//
//

%start Map1::Start
%class AppClass

%map Map1
%%
// State		Transition		End State		Action(s)
Start
{
				Zero			Zeros			{}
				One				Ones			{}
				EOS				OK				{Acceptable();}
}

Zeros
{
				Zero			nil				{}
				One				Ones			{}
				EOS				OK				{Acceptable();}
}

Ones
{
				Zero			Error			{}
				One				nil				{}
				EOS				OK				{Acceptable();}
}

OK
{}

Error
{
				Zero			nil				{}
				One				nil				{}
				EOS				nil				{Unacceptable();}
}

Default
{
				Unknown			Error			{}
}

%%