#TEMPLATE(LibXlsxWriter,'LibXlsxWriter'), FAMILY('ABC') #EXTENSION(XlsxWriterClass,'Global support for XlsxWriterClass'),APPLICATION #SHEET #TAB('General') #DISPLAY('All Rights Reserved'),AT(10) #DISPLAY() #ENDTAB #ENDSHEET #AT(%AfterGlobalIncludes) INCLUDE('xlsxwriter.inc'),ONCE #ENDAT #AT(%DLLExportList),WHERE(~%GlobalExternal AND %ProgramExtension = 'DLL') #INSERT(%LXW_ClassExports,'xlsxwriter.inc') #ENDAT #GROUP(%LXW_ClassExports, %LXWFileName), auto #DECLARE(%FILETXT) #DECLARE(%LASTCLASS) #DECLARE(%PROCNAME) #DECLARE(%TEMPLINE) #OPEN(%LXWFileName),READ #LOOP #READ(%FILETXT) #IF(%FILETXT = %EOF) #BREAK #ENDIF #IF (SUB(LEFT(%FILETXT), 1, 1)='!') #CYCLE #ENDIF #SET(%FILETXT, UPPER(%FILETXT)) #IF (INSTRING('!', %FILETXT,1,1)) #SET(%templine, SUB(%filetxt, 1, INSTRING('!', %filetxt,1,1))) #ELSE #SET(%TEMPLINE, %FILETXT) #ENDIF #IF(INSTRING(' CLASS', %templine, 1, 1)) #SET(%VALUECONSTRUCT,SUB(%FILETXT, 1, INSTRING(' ', %FILETXT,1,1))) TYPE$%VALUECONSTRUCT @? VMT$%VALUECONSTRUCT @? #SET(%lastclass, %valueconstruct) #ENDIF #IF(INSTRING(' PROCEDURE(', %TEMPLINE, 1, 1)) #SET(%PROCNAME, SUB(%filetxt, 1, INSTRING(' PROCEDURE(', %filetxt, 1, 1)-1)) #SET(%valueconstruct, SUB(%filetxt, INSTRING(' PROCEDURE(', %FILETXT, 1, 1)+11, 2000)) #SET(%valueconstruct, %procname & '(' & %lastclass & ',' & %valueconstruct) %(LINKNAME(UPPER(%VALUECONSTRUCT))) @? #ELSIF (INSTRING(' PROCEDURE', %TEMPLINE, 1, 1)) #SET(%PROCNAME, SUB(%filetxt, 1, INSTRING(' PROCEDURE', %filetxt, 1, 1)-1)) #SET(%valueconstruct, SUB(%filetxt, INSTRING(' PROCEDURE', %FILETXT, 1, 1), 2000)) #SET(%VALUECONSTRUCT, %PROCNAME & '(' & %LASTCLASS & ')') %(LINKNAME(UPPER(%VALUECONSTRUCT))) @? #ENDIF #ENDLOOP #CLOSE(%LXWFileName),READ