Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
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.
Today is April 26, 2024, 1:23 am This article has been viewed 35114 times.
|
|