adastate.ada

来自「c#设计模式WithCla」· ADA 代码 · 共 18 行

--Getting Started Ada Script
--The purpose of this script is to generate an Ada package
--generated from a state transition diagram
--Created by Richard Felsinger, RCF Associates, 960 Scottland Dr
--Mt Pleasant, SC 29464 e-mail 71162,[e-mail] 
--1-803-881-3648

----------------------------------------------------------------------------------
with text_io; use text_io;
with Controls; use Controls;
procedure adastate is
  a_controller : Controller;  
begin
--update to invoke  a_controller.process(turnOn)    a_controller.process(turnOff)
  Text_io.Put ("This is a test of generated Ada from a state diagram.");
end adastate;