Par2: Template to create INC files 1998-09-15 -- Craig Ransom #TEMPLATE(ExportIncTpl,'Create INC from Export TPL'),Family('ABC'),FAMILY('CW20')
#!-------------------------------------------
#UTILITY(ExportInc,'Create INC of Export Procedures')
#DECLARE(%Procout)
#CREATE(%Application & '.INC')
#FOR(%Procedure)
#IF(%ProcedureExported)
#SET(%Procout,%Procedure)
#IF(%Prototype)
#SET(%Procout,%Procout & %Prototype)
#ELSE
#SET(%Procout,%Procout & '()')
#ENDIF
#IF(%ProcedureDescription)
%[50]Procout !%ProcedureDescription)
#ELSE
%Procout
#ENDIF
#ENDIF
#ENDFOR
#CLOSE
Register it and run from the Utility (Ctrl+U) on any open app. It will
ONLY generate for items checked as export. The esulting file is named
'appname.inc' where appname is the name of the application.
Printed May 19, 2024, 10:22 am This article has been viewed/printed 35132 times. |