vfoxpro.sct

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

NO_OUTPUT_BEGIN Preliminary Visual Foxpro Code Generation Script
Enter Custom, Form, or other literal into -CLASS_USER1
In the operation specification select __Procedure if the
operation is a procedure.  Do not check if the operation is a function.
Please send revisions to Richard Felsinger [e-mail] tele 803-881-3648
NO_OUTPUT_END

DEFINE CLASS CLASS_NAME CLASS_USER1
[NO_REPEAT IPROTECTED ATTRIBUTE_NAME ,DELETE_LAST_SYMBOL]
[I$ATTRIBUTE_NAME = ATTRIBUTE_INITIAL_VALUE ]
SELECT_WHEN OPERATION_IS_PROCEDURE
[PROTECTED PROCEDURE OPERATION_NAME
 ENDPROC]

SELECT_WHEN OPERATION_IS_FUNCTION
[PROTECTED FUNCTION OPERATION_NAME
 ENDFUNC]
ENDDEDFINE