Tomsovi

B Sada šablon EA pro generování kódu v jazyku Smalltalk

B.1 File

$COMMENT="WARNING: DO NOT MODIFY THIS TEMPLATE BELOW THIS POINT"
%ImportSection%\n
%list="Class" @separator="\n\n"%

B.2 Class

%ClassDeclaration%
%ClassBody%

B.3 Class Base

%classBaseName%

B.4 Class Body

%list="Operation" @separator="\n\n"%

B.5 Class Declaration

$bases=%list="ClassBase" @separator=", "%
%if $bases == ""%
$bases="Object"
%endIf%
%PI=" "%
$bases
subclass:
#%className%\n
instanceVariableNames: '%list="Attribute" @separator=" "%'\n
classVariableNames: ''\n
poolDictionaries: ''\n
category: 'EA-Generated'!\n

B.6 Attribute

%AttributeDeclaration%

B.7 Attribute Declaration

%PI=""%
%attName%

B.8 Linked Attribute

%LinkedAttributeDeclaration%

B.9 Linked Attribute Declaration

%if linkAttRole != ""%
%linkAttRole%
%else%
%REPLACE(genOptDefaultAssocAttName,"$LinkClass",linkAttName)%
%endIf%

B.10 Operation

%OperationDeclaration%
%OperationBody%

B.11 Operation Declaration

%PI=""%
!%className% methodsFor: 'as yet unclassified'
stamp: '%classAuthor% %eaDateTime%'!\n
%opName%: %list="Parameter" @separator=" "%

B.12 Operation Body

$wrap = %genOptWrapComment=="-1" ? "-1" : "60"%
$behavior = %WRAP_LINES(opBehavior, $wrap, "", "")%
%if $behavior != ""%
"$behavior"\n
%endIf%
%if opCode != ""%
%WRAP_LINES(opCode, "-1", "\t", "")%
! !
%endTemplate%

B.13 Parameter

%paramName%