28 lines
806 B
Plaintext
28 lines
806 B
Plaintext
|
# ****************************************************************************
|
||
|
|
# CUI
|
||
|
|
#
|
||
|
|
# The Advanced Framework for Simulation, Integration, and Modeling (AFSIM)
|
||
|
|
#
|
||
|
|
# The use, dissemination or disclosure of data in this file is subject to
|
||
|
|
# limitation or restriction. See accompanying README and LICENSE for details.
|
||
|
|
# ****************************************************************************
|
||
|
|
# AUTHOR: Michael Williams (michael.x.williams@boeing.com)
|
||
|
|
|
||
|
|
sp {propose*initialize-RIPR-AIAI
|
||
|
|
(state <s> ^superstate nil
|
||
|
|
-^name)
|
||
|
|
-->
|
||
|
|
(<s> ^operator <o> +)
|
||
|
|
(<o> ^name initialize-RIPR-AIAI)
|
||
|
|
(write (crlf) |Propose init|)
|
||
|
|
}
|
||
|
|
|
||
|
|
sp {apply*initialize-RIPR-AIAI
|
||
|
|
(state <s> ^operator <op>)
|
||
|
|
(<op> ^name initialize-RIPR-AIAI)
|
||
|
|
-->
|
||
|
|
(<s> ^name RIPR-AIAI)
|
||
|
|
(write (crlf) |Done with init!|)
|
||
|
|
}
|
||
|
|
|