actor1.sct

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

NO_OUTPUT_BEGIN
 Getting Started Actor Script
 The purpose of this script is to generate Actor 4.x code.
 Created by Jim Peterson, e-mail [e-mail].
NO_OUTPUT_END

 inherit ([BASE_CLASS, ] #$CLASS_NAME, #(
 [ ATTRIBUTE_NAME DELETE_LAST_SYMBOL, /* type ATTRIBUTE_TYPE */ ]
 [ ASSOCIATION_ONE_NAME DELETE_LAST_SYMBOL, /* class ASSOCIATION_ONE_CLASS */ ]
 [ AGGREGATION_ONE_NAME DELETE_LAST_SYMBOL, /* class AGGREGATION_ONE_CLASS */ ]
 [ ASSOCIATION_MANY_NAME DELETE_LAST_SYMBOL, /* array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of ASSOCIATION_MANY_CLASS */ ]
 [ AGGREGATION_MANY_NAME DELETE_LAST_SYMBOL, /* array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of AGGREGATION_MANY_CLASS */ ]

   ),2,nil)!!

 now(class($CLASS_NAME$))!!

 Def build ( self [DELETE_LAST_SYMBOL, a$ATTRIBUTE_NAME ] NO_RETURN)
 {
  ^init(new(self)[DELETE_LAST_SYMBOL, a$ATTRIBUTE_NAME ] NO_RETURN);
 }!!

 [
 Def OPERATION_NAME (self ACTOR_OPERATION_PARAMETERS NO_RETURN)
 /*
 OPERATION_COMMENT1
 OPERATION_COMMENT2
 OPERATION_COMMENT3
 */
 {
 OPERATION_CODE
 ^self;
 }!!
 ]

 now($CLASS_NAME$)!!

 Def init (self [DELETE_LAST_SYMBOL, a$ATTRIBUTE_NAME ] NO_RETURN)
 {
 [   ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
 ]
  ^self;
 }!!