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 April 1, 2025, 11:09 pm This article has been viewed/printed 35262 times. |