mirror of
https://github.com/alecthomas/chroma.git
synced 2025-02-05 13:05:18 +02:00
c56819b5da
When OpenEdge ABL runs on Windows, the tilde is used as an escape character instead of a backslash as in most common programming languages. On UNIX platforms, the backslash is also an escape character. But because we cannot know the running platform, it seems better to only use the tilde as a backslash character. (source: https://knowledgebase.progress.com/articles/Article/P27229)
21197 lines
901 KiB
Plaintext
21197 lines
901 KiB
Plaintext
[
|
|
{"type":"CommentSingle","value":"//Source of this test file: https://github.com/patrickTingen/DataDigger/blob/master/DataDiggerLib.p"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12\n\u0026ANALYZE-RESUME\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/*------------------------------------------------------------------------\n\n Name: DataDiggerLib.p\n Desc: Library for DataDigger functions\n\n------------------------------------------------------------------------*/"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* This .W file was created with the Progress AppBuilder. */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/*----------------------------------------------------------------------*/"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcSaveDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"giDataserverNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* [JAG 01-11-2019] */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glDirtyCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Buildnr, temp-tables and forward defs */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentPreproc","value":"{ DataDigger.i }"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetUserNameA"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"ADVAPI32.DLL\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"mUserId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"MEMPTR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"intBufferSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"intResult"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SHORT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Detect bitness of running Progress version\n * See Progress kb #54631\n */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026IF PROVERSION \u003c= '8' \u0026THEN /* OE 10+ */\n \u0026IF PROVERSION \u003e= '11.3' \u0026THEN /* PROCESS-ARCHITECTURE function is available */\n \u0026IF PROCESS-ARCHITECTURE = 32 \u0026THEN /* 32-bit pointers */\n \u0026GLOBAL-DEFINE POINTERTYPE LONG\n \u0026GLOBAL-DEFINE POINTERBYTES 4\n \u0026ELSEIF PROCESS-ARCHITECTURE = 64 \u0026THEN /* 64-bit pointers */\n \u0026GLOBAL-DEFINE POINTERTYPE INT64\n \u0026GLOBAL-DEFINE POINTERBYTES 8\n \u0026ENDIF /* PROCESS-ARCHITECTURE */\n \u0026ELSE /* Can't check architecture pre-11.3 so default to 32-bit */\n \u0026GLOBAL-DEFINE POINTERTYPE LONG\n \u0026GLOBAL-DEFINE POINTERBYTES 4\n \u0026ENDIF /* PROVERSION \u003e 11.3 */\n\u0026ELSE /* pre-OE10 always 32-bit on Windows */\n \u0026GLOBAL-DEFINE POINTERTYPE LONG\n \u0026GLOBAL-DEFINE POINTERBYTES 4\n\u0026ENDIF /* PROVERSION \u003c 8 */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetKeyboardState"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"KBState"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS "},
|
|
{"type":"CommentPreproc","value":"{\u0026POINTERTYPE}"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* memptr */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"RetVal"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* bool */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Windows API entry point */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ShowScrollBar"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"hwnd "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"fnBar"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"fShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SendMessageA"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"hwnd "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"long"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"wmsg"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"long"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"wparam"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"long"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lparam"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"long"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"rc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"long"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"RedrawWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"v"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"hwnd"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"v"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"rect"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"v"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"rgn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"v"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"flags"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"v"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"ret"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SetWindowTextA"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"hwnd"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"long"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"txt"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"hwnd"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"uCmd"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hwndOther"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetParent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hwndChild"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hwndParent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetCursorPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lpPoint"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS "},
|
|
{"type":"CommentPreproc","value":"{\u0026POINTERTYPE}"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* memptr */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetSysColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"nDspElement"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"COLORREF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ScreenToClient"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"hWnd "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lpPoint"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"MEMPTR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Transparency */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SetWindowLongA"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"nIndex"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dwNewLong"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"stat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SetLayeredWindowAttributes"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"user32.dll\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"crKey"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bAlpha"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SHORT"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dwFlagsas"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"stat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SHORT"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Find out if a file is locked */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026GLOBAL-DEFINE GENERIC_WRITE 1073741824 /* \u0026H40000000 */\n\u0026GLOBAL-DEFINE OPEN_EXISTING 3\n\u0026GLOBAL-DEFINE FILE_SHARE_READ 1 /* = \u0026H1 */\n\u0026GLOBAL-DEFINE FILE_ATTRIBUTE_NORMAL 128 /* = \u0026H80 */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"CreateFileA"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"kernel32\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lpFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dwDesiredAccess"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dwShareMode"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lpSecurityAttributes"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dwCreationDisposition"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dwFlagsAndAttributes"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hTemplateFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"CloseHandle"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"kernel32\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hObject"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Used in update check / about window */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"URLDownloadToFileA"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"URLMON.DLL\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pCaller"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"szURL"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"szFilename"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dwReserved"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lpfnCB"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LONG"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* URLDownloadToFileA */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"DeleteUrlCacheEntry"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTERNAL "},
|
|
{"type":"LiteralStringDouble","value":"\"WININET.DLL\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lbszUrlName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* DeleteUrlCacheEntry */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIELD"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIELD"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iPrim"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PRIMARY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cName"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIELD"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIELD"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iPrim"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PRIMARY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cName"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* If you have trouble with the cache, disable it in the settings screen */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glCacheTableDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glCacheFieldDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Vars for caching dirnames */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcProgramDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Locking / unlocking windows */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026GLOBAL-DEFINE WM_SETREDRAW 11\n\u0026GLOBAL-DEFINE RDW_ALLCHILDREN 128\n\u0026GLOBAL-DEFINE RDW_ERASE 4\n\u0026GLOBAL-DEFINE RDW_INVALIDATE 1"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\n\u0026ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* ******************** Preprocessor Definitions ******************** */"},
|
|
{"type":"CommentPreproc","value":"\n\n\u0026Scoped-define PROCEDURE-TYPE Procedure\n\u0026Scoped-define DB-AWARE no"},
|
|
{"type":"Text","value":"\n\n\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-PREPROCESSOR-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME"},
|
|
{"type":"Text","value":"\n\n\n"},
|
|
{"type":"CommentMultiline","value":"/* ************************ Function Prototypes ********************** */"},
|
|
{"type":"CommentPreproc","value":"\n\n\u0026IF DEFINED(EXCLUDE-addConnection) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD addConnection Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"addConnection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-formatQueryString) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD formatQueryString Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"formatQueryString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcQueryString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plExpanded"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColor) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getColor Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColorByRGB) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getColorByRGB Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColorByRGB"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piRed"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piGreen"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piBlue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColumnLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getColumnLabel Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColumnLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFieldBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColumnWidthList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getColumnWidthList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColumnWidthList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getDatabaseList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getDatabaseList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getEscapedData) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getEscapedData Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getEscapedData"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTarget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFieldList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFieldList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getFieldList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFileCategory) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFileCategory Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getFileCategory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piFileNumber"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFont) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFont Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getImagePath) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getImagePath Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getImagePath"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcImage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getIndexFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getIndexFields Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getIndexFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabaseName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFlags"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getKeyList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getKeyList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getLinkInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLinkInfo Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getMaxLength) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getMaxLength Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getMaxLength"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getOsErrorDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getOsErrorDesc Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getOsErrorDesc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piOsError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getProgramDir) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getProgramDir Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getProgramDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getQuery Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getReadableQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getReadableQuery Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getReadableQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getRegistry Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcKey"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getSchemaHolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getSchemaHolder Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getSchemaHolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDataSrNameOrDbName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getStackSize) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getStackSize Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getStackSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getTableDesc Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTableDesc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getTableLabel Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTableLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getTableList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTableList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabaseFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getUserName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getUserName Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getUserName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getWidgetUnderMouse) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getWidgetUnderMouse Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWidgetUnderMouse"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFrame"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getWorkFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getWorkFolder Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getXmlNodeName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getXmlNodeName Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getXmlNodeName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isDataServer) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD isDataServer Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"isDataServer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDataSrNameOrDbName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isDefaultFontsChanged) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD isDefaultFontsChanged Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"isDefaultFontsChanged"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isFileLocked) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD isFileLocked Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"isFileLocked"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isMouseOver) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD isMouseOver Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"isMouseOver"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isTableFilterUsed) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD isTableFilterUsed Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"isTableFilterUsed"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isValidCodePage) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD isValidCodePage Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"isValidCodePage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcCodepage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-readFile) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD readFile Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"readFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LONGCHAR\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFilename"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-removeConnection) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD removeConnection Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"removeConnection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resolveOsVars) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD resolveOsVars Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"resolveOsVars"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resolveSequence) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD resolveSequence Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"resolveSequence"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setColor) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setColor Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setColumnWidthList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setColumnWidthList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setColumnWidthList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcWidthList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setLinkInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setLinkInfo Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setRegistry Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcKey"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FORWARD"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF"},
|
|
{"type":"Text","value":"\n\n\n"},
|
|
{"type":"CommentMultiline","value":"/* *********************** Procedure Settings ************************ */"},
|
|
{"type":"CommentPreproc","value":"\n\n\u0026ANALYZE-SUSPEND _PROCEDURE-SETTINGS"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Settings for THIS-PROCEDURE\n Type: Procedure\n Allow:\n Frames: 0\n Add Fields to: Neither\n Other Settings: CODE-ONLY COMPILE\n */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME _END-PROCEDURE-SETTINGS"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* ************************* Create Window ************************** */"},
|
|
{"type":"CommentPreproc","value":"\n\n\u0026ANALYZE-SUSPEND _CREATE-WINDOW"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* DESIGN Window definition (used by the UIB)\n CREATE WINDOW Procedure ASSIGN\n HEIGHT = 41\n WIDTH = 57.4.\n/* END WINDOW DEFINITION */\n */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\n\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure"},
|
|
{"type":"Text","value":"\n\n\n"},
|
|
{"type":"CommentMultiline","value":"/* *************************** Main Block *************************** */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* terminate it. */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"ON"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CLOSE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THIS-PROCEDURE"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cEnvironment"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cEnvironment"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger-\u00261', getUserName() ).\n\n UNLOAD 'DataDiggerHelp' NO-ERROR.\n UNLOAD 'DataDigger'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"UNLOAD"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cEnvironment"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* CLOSE OF THIS-PROCEDURE */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* Caching settings must be set from within UI.\n * Since the library might be started from DataDigger.p\n * we cannot rely on the registry being loaded yet\n */"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"NameVariable","value":"glCacheTableDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"NameVariable","value":"glCacheFieldDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME"},
|
|
{"type":"Text","value":"\n\n\n"},
|
|
{"type":"CommentMultiline","value":"/* ********************** Internal Procedures *********************** */"},
|
|
{"type":"CommentPreproc","value":"\n\n\u0026IF DEFINED(EXCLUDE-applyChoose) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE applyChoose Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"applyChoose"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Apply the choose event to a dynamically created widget\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Apply CHOOSE to \u00261 \u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TYPE"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NAME"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"APPLY "},
|
|
{"type":"LiteralStringSingle","value":"'choose'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* applyChoose */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-applyEvent) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE applyEvent Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"applyEvent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Apply an event to a dynamically created widget\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcEvent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Apply \u00261 to \u00262 \u00263\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAPS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcEvent"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TYPE"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NAME"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"APPLY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcEvent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihWidget"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* applyEvent */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-checkBackupFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE checkBackupFolder Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"checkBackupFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* If backup is on, create a folder for it\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plFolderOk"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"BackupOnCreate\""},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"BackupOnDelete\""},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"BackupOnDelete\""},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getDumpFileName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"LiteralStringSingle","value":"'dump' /* action */\n , INPUT '' /* database */\n , INPUT '' /* table */\n , INPUT ''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* extension */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"BackupDir\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* template */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFolder"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"createFolder"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFolder"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Now check if folder is actually created */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFolder"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"plFolderOk"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plFolderOk"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"showHelp"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'CannotCreateBackupFolder'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFolder"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"BackupOnCreate\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"NO\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"BackupOnUpdate\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"NO\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"BackupOnDelete\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"NO\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plFolderOk"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* checkBackupFolder */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-checkDir) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE checkDir Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"checkDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Check if a folder exists, is accessible etc\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDirToCreate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Check \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If no path is given, use startup folder */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"R-INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\\\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'' THEN cDumpDir = '.'.\n\n /* We cannot use the program dir itself */\n FILE-INFO:FILE-NAME = cDumpDir.\n IF TRIM(FILE-INFO:FULL-PATHNAME,'\\/'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getProgramDir"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"/\\\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help', 'ExportToProgramdir:message'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Dir = \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Ask to overwrite if it already exists */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Already exists as \u00261 (\u00262)\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-TYPE"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-TYPE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringSingle","value":"'*F*' THEN\n DO:\n RUN showHelp('OverwriteDumpFile', pcFileName).\n IF getRegistry('DataDigger:Help', 'OverwriteDumpFile:answer') \u003c\u003e '1'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Do not remember the answer \"No\" for this question, otherwise it will be\n * confusing the next time the user encounters this situation\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help', 'OverwriteDumpFile:answer',?).\n pcError = 'Aborted by user.'.\n RETURN.\n END.\n\n /* Write access to this file? */\n IF NOT FILE-INFO:FILE-TYPE MATCHES '*W*' THEN\n DO:\n pcError = SUBSTITUTE('"},
|
|
{"type":"NameVariable","value":"Cannot"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"overwrite"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"output"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"file "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\""},
|
|
{"type":"LiteralStringSingle","value":"', pcFileName).\n RETURN.\n END.\n END.\n\n /* If a dir already exists with the same name as the output file, we cannot create it */\n IF FILE-INFO:FILE-TYPE MATCHES '*D*' THEN\n DO:\n pcError = SUBSTITUTE('"},
|
|
{"type":"NameVariable","value":"A"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"directory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"named"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"exists"},
|
|
{"type":"NameVariable","value":";"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cannot"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"create"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"a"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"file"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"with"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"the"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"same"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"name"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"',"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Check dir */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Don't complain about not using a dir */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"showHelp"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'CreateDumpDir', cDumpDir).\n IF getRegistry('DataDigger:Help', 'CreateDumpDir:answer') \u003c\u003e '1' THEN\n DO:\n pcError = 'Aborted by user.'.\n RETURN.\n END.\n END.\n\n /* Try to create path + file. Progress will not raise an error if it already exists */\n cDirToCreate = ENTRY(1,cDumpDir,'\\').\n DO iDir = 2 TO NUM-ENTRIES(cDumpDir,'\\').\n\n /* In which dir do we want to create a subdir? */\n IF iDir = 2 THEN\n FILE-INFO:FILE-NAME = cDirToCreate + '\\'.\n ELSE\n FILE-INFO:FILE-NAME = cDirToCreate.\n\n /* Does it even exist? */\n IF FILE-INFO:FULL-PATHNAME = ? THEN\n DO:\n pcError = SUBSTITUTE('"},
|
|
{"type":"NameVariable","value":"Directory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"does"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"not"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"exist"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"',"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDirToCreate"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Error: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcError"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Check if the dir is writable */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-TYPE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringSingle","value":"'*X*' /* Happens on CD-ROM drives */\n OR ( FILE-INFO:FILE-TYPE MATCHES '*D*'\n AND NOT FILE-INFO:FILE-TYPE MATCHES '*W*' ) THEN\n DO:\n pcError = SUBSTITUTE('"},
|
|
{"type":"KeywordReserved","value":"No"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"write"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"access"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"to"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"directory"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\""},
|
|
{"type":"NameVariable","value":"',"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDirToCreate"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Error: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcError"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Seems to exist and to be writable. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cDirToCreate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDirToCreate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'\\' + ENTRY(iDir,cDumpDir,'\\').\n\n /* If a file already exists with the same name, we cannot create a dir */\n FILE-INFO:FILE-NAME = cDirToCreate.\n IF FILE-INFO:FILE-TYPE MATCHES '*F*' THEN\n DO:\n pcError = SUBSTITUTE('"},
|
|
{"type":"NameVariable","value":"A"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"file"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"named"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"exists"},
|
|
{"type":"NameVariable","value":";"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cannot"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"create"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"a"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"dir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"with"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"the"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"same"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"name"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"',"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDirToCreate"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Error: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcError"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Create the dir. Creating an existing dir gives no error */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OS-CREATE-DIR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"value"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cDirToCreate"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OS-ERROR "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getOsErrorDesc"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"OS-ERROR"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Error: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcError"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* error */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* iDir */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* checkDir */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearColorCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearColorCache Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"clearColorCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Clear the registry cache\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Clearing color cache\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* clearColorCache */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearDiskCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearDiskCache Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"clearDiskCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Clear the cache files on disk\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTENT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Clearing disk cache\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FILE-INFORMATION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"cache\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFORMATION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FROM"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OS-DIR"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"FILE-INFORMATION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IMPORT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFile"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFile["},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringDouble","value":"\"*.xml\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OS-DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFile["},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CLOSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* clearDiskCache */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearFontCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearFontCache Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"clearFontCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Clear the font cache\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Clearing font cache\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* clearFontCache */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearMemoryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearMemoryCache Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"clearMemoryCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Clear the memory cache\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Clearing memory cache\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* clearMemoryCache */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearRegistryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearRegistryCache Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"clearRegistryCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Clear the registry cache\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Clearing registry cache\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* clearRegistryCache */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-collectQueryInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE collectQueryInfo Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"collectQueryInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Fill the query temp-table\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iLoop"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Delete all known queries in memory of this table */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"MaxQueryHistory\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* no query history wanted */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If it is not defined use default setting */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"10"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"collectQueries"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iLoop"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\u00261:query:\u00262', pcTable, iLoop )).\n\n IF cSetting = '\u003cEmpty\u003e'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"collectQueries"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cQueryTxt"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"collectQueries"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* 1 .. MaxQueryHistory */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* collectQueryInfo */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-correctFilterList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE correctFilterList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"correctFilterList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Move negative entries from positive list to negative\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcPositive"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcNegative"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iWord"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Strip entries that start with a ! */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcPositive,"},
|
|
{"type":"LiteralStringDouble","value":"\"!\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iWord"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcPositive"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iWord,pcPositive"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BEGINS "},
|
|
{"type":"LiteralStringDouble","value":"\"!\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Add this word to the negative-list */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcNegative"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcNegative"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"',' + TRIM(ENTRY(iWord,pcPositive),'!'),',').\n\n /* And wipe it from the positive-list */\n ENTRY(iWord,pcPositive) = ''.\n END.\n END.\n\n /* Remove empty elements */\n pcPositive = TRIM(pcPositive,',').\n REPEAT WHILE INDEX(pcPositive,',,') \u003e 0:\n pcPositive = REPLACE(pcPositive,',,',',').\n END.\n END.\n\nEND PROCEDURE. /* correctFilterList */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-createFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE createFolder Procedure\nPROCEDURE createFolder :\n/* Create a folder structure\n */\n DEFINE INPUT PARAMETER pcFolder AS CHARACTER NO-UNDO.\n\n DEFINE VARIABLE iElement AS INTEGER NO-UNDO.\n DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.\n\n /* c:\\temp\\somefolder\\subfolder\\ */\n DO iElement = 1 TO NUM-ENTRIES(pcFolder,'\\'):\n cPath = SUBSTITUTE('\u00261\\\u00262', cPath, ENTRY(iElement,pcFolder,'\\')).\n cPath = LEFT-TRIM(cPath,'\\').\n\n IF iElement \u003e 1 THEN OS-CREATE-DIR VALUE(cPath).\n END.\n\nEND PROCEDURE. /* createFolder */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-dumpRecord) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE dumpRecord Procedure\nPROCEDURE dumpRecord :\n/* Dump the record(s) to disk\n */\n DEFINE INPUT PARAMETER pcAction AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER phSource AS HANDLE NO-UNDO.\n DEFINE OUTPUT PARAMETER plContinue AS LOGICAL NO-UNDO.\n\n DEFINE VARIABLE hExportTT AS HANDLE NO-UNDO.\n DEFINE VARIABLE hExportTtBuffer AS HANDLE NO-UNDO.\n DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO.\n DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cError AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.\n DEFINE VARIABLE iRow AS INTEGER NO-UNDO.\n DEFINE VARIABLE lDefaultDump AS LOGICAL NO-UNDO.\n\n IF NOT VALID-HANDLE(phSource) THEN RETURN.\n\n /* Protect against wrong input */\n IF LOOKUP(pcAction,'Dump,Create,Update,Delete') = 0 THEN\n DO:\n MESSAGE 'Unknown action' pcAction VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.\n RETURN.\n END.\n\n /* Determine appropriate buffer and populate an intermediate tt\n * with the data to export\n */\n CASE phSource:TYPE:\n WHEN 'buffer'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phSource"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Create temptable-handle... */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"CREATE-LIKE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261.\u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DBNAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Prepare the TempTable... */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE-PREPARE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTtBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTtBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-CREATE"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTtBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"LiteralStringSingle","value":"'browse'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phSource"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BUFFER-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Create temptable-handle... */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"CREATE-LIKE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261.\u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DBNAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Prepare the TempTable... */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE-PREPARE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTtBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Copy the records */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phSource"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-SELECTED-ROWS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"phSource"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FETCH-SELECTED-ROW"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iRow"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTtBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-CREATE"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hExportTtBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"OTHERWISE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CASE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Do we need to dump at all?\n * If the setting=NO or if no setting at all, then don't do any checks\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcAction"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Dump'\n AND ( getRegistry('DataDigger:Backup','BackupOn' + pcAction) = ?\n OR logical(getRegistry('DataDigger:Backup','BackupOn'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcAction"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plContinue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"YES"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Determine the default name to save to */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getDumpFileName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcAction"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Dump | Create | Update | Delete */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DBNAME\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TABLE\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"LiteralStringDouble","value":"\"XML\""},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFileName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"checkDir"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFileName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cError"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"MESSAGE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VIEW-AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ALERT-BOX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INFORMATION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUTTONS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OK"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Fix XML Node Names for fields in the tt */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setXmlNodeNames"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* See if the user has specified his own dump program\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"plContinue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* To see if it ran or not */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"customDump\""},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcAction"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DBNAME\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TABLE\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFileName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lDefaultDump"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plContinue"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plContinue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MESSAGE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VIEW-AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ALERT-BOX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INFORMATION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUTTONS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OK"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lDefaultDump"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plContinue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"plContinue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hExportTT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WRITE-XML\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'file'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* TargetType */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* File */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"YES "},
|
|
{"type":"CommentMultiline","value":"/* Formatted */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Encoding */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* SchemaLocation */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO "},
|
|
{"type":"CommentMultiline","value":"/* WriteSchema */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO "},
|
|
{"type":"CommentMultiline","value":"/* MinSchema */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hExportTt"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* dumpRecord */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-dynamicDump) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE dynamicDump Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dynamicDump"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Dump the data to a file that is similar to those of Progress self.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihBrowse"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"picFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTimeStamp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTENT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"5"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iBack"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRecords"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iTrailer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lFirst"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Accept max 5 buffers for a query */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"min"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"5"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-BUFFERS"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hBuffer[iBuffer]"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BUFFER-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iBuffer"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRecords"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cTimeStamp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"YEAR"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TODAY"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"9999\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"/\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"string"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"MONTH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TODAY"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"99\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"/\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"string"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"DAY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TODAY"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"99\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"-\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"string"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TIME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"HH:MM:SS\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-FIRST"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Open outputfile */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"to"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"value"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"picFile"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"no-echo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"no-map"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EXPORT "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iBack"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"seek"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"output"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SEEK"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHILE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OFF-END\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ON"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STOP"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"UNDO"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRecords"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRecords"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lFirst"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PROCESS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EVENTS"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"browseColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-COLUMNS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Grab the handle */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pihBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Skip invisible columns */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"VISIBLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"browseColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Find the buffer the column belongs to */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"SearchLoop"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"5"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer[iBuffer]"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NAME"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ERROR-STATUS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"ERROR "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SearchLoop"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If no column found, something weird happened */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"browseColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DATA-TYPE "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"recid\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"browseColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lFirst"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lFirst"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SEEK"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"seek"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"output"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iBack"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CONTROL "},
|
|
{"type":"LiteralStringSingle","value":"' ':u.\n END.\n\n IF hField:EXTENT \u003e 1 THEN\n DO iExtent = 1 TO hField:EXTENT:\n IF iExtent \u003e 1 THEN\n DO:\n SEEK OUTPUT TO SEEK(OUTPUT) - iBack.\n PUT CONTROL ' '"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"EXPORT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXPORT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-NEXT"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Add a checksum and nr of records at the end of the file.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"UNFORMATTED "},
|
|
{"type":"LiteralStringDouble","value":"\".\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SKIP"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iTrailer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SEEK"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"UNFORMATTED\n "},
|
|
{"type":"LiteralStringDouble","value":"\"PSC\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\"filename=\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer["},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TABLE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\"records=\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iRecords,"},
|
|
{"type":"LiteralStringDouble","value":"\"9999999999999\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\"ldbname=\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer["},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DBNAME\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\"timestamp=\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTimeStamp"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\"numformat=\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ASC"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SESSION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"NUMERIC"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"SEPARATOR"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ASC"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SESSION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"NUMERIC"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"DECIMAL"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"POINT"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\"dateformat=\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SESSION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DATE-FORMAT "},
|
|
{"type":"LiteralStringDouble","value":"\"-\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SESSION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"YEAR-OFFSET\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\"map=NO-MAP\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\"cpstream=\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SESSION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"CPSTREAM\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SKIP "},
|
|
{"type":"LiteralStringDouble","value":"\".\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SKIP"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iTrailer,"},
|
|
{"type":"LiteralStringDouble","value":"\"9999999999\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"u"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SKIP"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CLOSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* dynamicDump */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-flushRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE flushRegistry Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"flushRegistry"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Flush all dirty registry settings to disk\n*/"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glDirtyCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"saveConfigFileSorted"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* flushRegistry */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColumnSort) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getColumnSort Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColumnSort"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Return the column nr the browse is sorted on\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plAscending"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"#BrowseColumns"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-COLUMNS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SORT-ASCENDING "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NAME\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plAscending"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SORT-ASCENDING\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#BrowseColumns"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"name\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plAscending"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Sorting \u00261 on \u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"plAscending,"},
|
|
{"type":"LiteralStringDouble","value":"\"up/down\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcColumn"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getColumnSort */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getDumpFileName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getDumpFileName Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getDumpFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Return a file name based on a template\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcAction"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcExtension"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTemplate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLastDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDayOfWeek"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EXTENT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"7"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INITIAL "},
|
|
{"type":"NameVariable","value":"["},
|
|
{"type":"LiteralStringSingle","value":"'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cBackupDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Checks */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcAction,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"Dump,Create,Update,Delete\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"MESSAGE "},
|
|
{"type":"LiteralStringSingle","value":"'Unknown action'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcAction"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VIEW-AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ALERT-BOX"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If not provided, find the template from the settings,\n * depending on the action we want to perform.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTemplate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTemplate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcAction"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Dump'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cDUMPDIR\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DumpAndLoad\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"DumpFileTemplate\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cBACKUPDIR\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"BackupFileTemplate\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTemplate"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Dump to: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Dump dir / backup dir / last-used dir from settings */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RIGHT-TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DumpAndLoad\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"DumpDir\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'/\\') + '\\'.\n IF cDumpDir = ? OR cDumpDir = ''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003edump\\\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cBackupDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RIGHT-TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"BackupDir\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'/\\') + '\\'.\n IF cBackupDir = ? OR cBackupDir = ''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cBackupDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003ebackup\\\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cLastDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RIGHT-TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DumpAndLoad\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"DumpLastFileName\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'/\\'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cLastDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cLastDir,"},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"R-INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cLastDir,"},
|
|
{"type":"LiteralStringDouble","value":"\"\\\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLastDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLastDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003edump\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cLastDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RIGHT-TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cLastDir,"},
|
|
{"type":"LiteralStringSingle","value":"'\\').\n\n /* Find _file for the dump-name */\n CREATE BUFFER hBuffer FOR TABLE SUBSTITUTE('\u00261._file', pcDatabase) NO-ERROR.\n IF VALID-HANDLE(hBuffer) THEN\n DO:\n hBuffer:FIND-UNIQUE(SUBSTITUTE('where _file-name = \u00261 and _File._File-Number \u003c 32768', QUOTER(pcTable)),NO-LOCK).\n IF hBuffer:AVAILABLE THEN\n cDumpName = hBuffer::_dump-name.\n ELSE\n cDumpName = pcTable.\n END.\n ELSE\n cDumpName = pcTable.\n IF cDumpName = ? THEN cDumpName = pcTable.\n\n /* If you have no db connected, userid gives back unknown value\n * which misbehaves in a replace statement */\n cUserId = USERID(LDBNAME(1)).\n IF cUserId = ? THEN cUserId = ''"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DumpDir : \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"BackupDir: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cBackupDir"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"LastDir : \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLastDir"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DumpName : \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Now resolve all tags */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cDUMPDIR\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cBACKUPDIR\u003e\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cBackupDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cLASTDIR\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLastDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cPROGDIR\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cACTION\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcAction"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cUSERID\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cDB\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cTABLE\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cDUMPNAME\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cEXT\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcExtension"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cTIMESTAMP\u003e\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e\u003cMONTH\u003e\u003cDAY\u003e.\u003cHH\u003e\u003cMM\u003e\u003cSS\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cDATE\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e-\u003cMONTH\u003e-\u003cDAY\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cTIME\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cHH\u003e:\u003cMM\u003e:\u003cSS\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cWEEKDAY\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"WEEKDAY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TODAY"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cDAYNAME\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDayOfWeek["},
|
|
{"type":"KeywordReserved","value":"WEEKDAY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"today"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"YEAR "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TODAY"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"9999\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cMONTH\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"MONTH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TODAY"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"99\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cDAY\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"DAY "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TODAY"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"99\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cHH\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TIME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"HH:MM:SS\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\":\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cMM\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TIME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"HH:MM:SS\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\":\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003cSS\u003e\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"TIME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"HH:MM:SS\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\":\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get rid of annoying slashes */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName,"},
|
|
{"type":"LiteralStringSingle","value":"'/\\').\n\n /* Get rid of double slashes (except at the beginning for UNC paths) */\n pcFileName = SUBSTRING(pcFileName,1,1) + REPLACE(SUBSTRING(pcFileName,2),'\\\\','\\'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Sequences */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"resolveSequence"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* OS-vars */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"resolveOsVars"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Make lower */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LC"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Dump to: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getDumpFileName */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFavourites) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getFavourites Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getFavourites"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Extract favourites from config table into own tt\n*/"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFavGroup"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"btFavGroup"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFavGroup"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFavGroup"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Favourites'"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"btFavGroup"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"btFavGroup"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cGroup"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"btFavGroup"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTables"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If no groups are found, create a default one */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-FIND"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"FIRST"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"btFavGroup"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"btFavGroup"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"btFavGroup"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cGroup"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'MyFavourites'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getFavourites */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getFields Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Fill the fields temp-table\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DATASET"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dsFields"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cPrimIndexFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSelectedFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUniqueIndexFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSDBName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lDataField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iDataOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Clean up first */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* For dataservers, use the schema name [dataserver] */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSDBName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Return if no db connected */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-DBS "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* caching */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glCacheFieldDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Find the table. Should exist. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Verify whether the CRC is still the same. If not, kill the cache */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 1: verify CRC'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSDBName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._File\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hBufferFile"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FIND-UNIQUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'where _file-name = \u00261 and _File._File-Number \u003c 32768'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUOTER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"NO-LOCK"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferFile"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"_crc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCrc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* It seems that it is not possible to refresh the schema cache of the running\n * session. You just have to restart your session.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"File CRC changed, kill cache and build new\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCacheId"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCacheId"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get a fresh list of tables */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTables"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableFilter,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Find the table back. Should exist. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 1: verify CRC'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* First look in the memory-cache */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-FIND"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"FIRST"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCacheId"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 2: check memory cache'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Get from memory-cache\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCacheId"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCacheId"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Update with settings from registry */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"updateFields"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 2: check memory cache').\n RETURN.\n END.\n\n /* See if disk cache exists */\n cCacheFile = SUBSTITUTE('\u00261cache\\\u00262.xml'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCacheId"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Cachefile: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SEARCH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cCacheFile"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 3: get from disk cache'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Get from disk cache\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DATASET"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dsFields"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"READ-XML"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"file\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"empty\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Add to memory cache, so the next time it's even faster */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HAS-RECORDS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Add to first-level cache\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Update with settings from registry */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"updateFields"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 3: get from disk cache'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Not found in any cache, build tables...\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/*\n * If we get here, the table either cannot be found in the cache\n * or caching is disabled. Either way, fill the tt with fields\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 4: build cache'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSDBName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._File\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSDBName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._Field\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-BUFFERS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hBufferFile,hBufferField"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"FOR EACH \u00261._File WHERE \u00261._file._file-name = '\u00262' AND _File._File-Number \u003c 32768 NO-LOCK, \""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"LiteralStringDouble","value":"\" EACH \u00261._Field OF \u00261._File NO-LOCK BY _ORDER\""},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSDBName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-PREPARE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OPEN"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-FIRST"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get list of fields in primary index. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cPrimIndexFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getIndexFields"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSDBName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"P\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get list of fields in all unique indexes. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cUniqueIndexFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getIndexFields"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSDBName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"U\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get list of all previously selected fields */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSelectedFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\u00261\""},
|
|
{"type":"NameVariable","value":",pcDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261:Fields\""},
|
|
{"type":"NameVariable","value":",pcTableName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If none selected, set mask to 'all' */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSelectedFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSelectedFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'*'.\n\n REPEAT WHILE NOT hQuery:QUERY-OFF-END:\n\n CREATE bField.\n ASSIGN\n iFieldOrder = iFieldOrder + 1\n bField.cTableCacheId = bTable.cCacheId\n bField.cDatabase = pcDatabase\n bField.cTablename = pcTableName\n bField.cFieldName = hBufferField:BUFFER-FIELD('_field-name'):BUFFER-VALUE\n\n bField.lShow = CAN-DO(cSelectedFields, hBufferField:BUFFER-FIELD('_field-name'):BUFFER-VALUE)\n bField.iOrder = iFieldOrder\n bField.iOrderOrg = iFieldOrder\n\n bField.cFullName = hBufferField:BUFFER-FIELD('_field-name'):BUFFER-VALUE\n bField.cDataType = hBufferField:BUFFER-FIELD('_data-type'):BUFFER-VALUE\n bField.cInitial = hBufferField:BUFFER-FIELD('_initial'):BUFFER-VALUE\n bField.cFormat = hBufferField:BUFFER-FIELD('_format'):BUFFER-VALUE\n bField.cFormatOrg = hBufferField:BUFFER-FIELD('_format'):BUFFER-VALUE\n bField.iWidth = hBufferField:BUFFER-FIELD('_width'):BUFFER-VALUE\n bField.cLabel = hBufferField:BUFFER-FIELD('_label'):BUFFER-VALUE\n bField.lPrimary = CAN-DO(cPrimIndexFields, bField.cFieldName)\n bField.iExtent = hBufferField:BUFFER-FIELD('_Extent'):BUFFER-VALUE\n bField.lMandatory = hBufferField:BUFFER-FIELD('_mandatory'):BUFFER-VALUE\n bField.lUniqueIdx = CAN-DO(cUniqueIndexFields,bField.cFieldName)\n\n /* New fields as per v19 */\n bField.cColLabel = hBufferField:BUFFER-FIELD('_Col-label'):BUFFER-VALUE\n bField.iDecimals = hBufferField:BUFFER-FIELD('_Decimals'):BUFFER-VALUE\n bField.iFieldRpos = hBufferField:BUFFER-FIELD('_Field-rpos'):BUFFER-VALUE\n bField.cValExp = hBufferField:BUFFER-FIELD('_ValExp'):BUFFER-VALUE\n bField.cValMsg = hBufferField:BUFFER-FIELD('_ValMsg'):BUFFER-VALUE\n bField.cHelp = hBufferField:BUFFER-FIELD('_Help'):BUFFER-VALUE\n bField.cDesc = hBufferField:BUFFER-FIELD('_Desc'):BUFFER-VALUE\n bField.cViewAs = hBufferField:BUFFER-FIELD('_View-as'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cXmlNodeName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getXmlNodeName"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Make a list of fields on table level */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Some types should not be shown like CLOB BLOB and RAW */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lDataField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDataType,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'clob,blob,raw'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Create TT records for each column to show, except for CLOB / BLOB / RAW */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lDataField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"iDataOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iDataOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCacheId"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTablename"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldExtent"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFullName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"[\u00261]\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldExtent"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iColumnNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iDataOrder"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLabel"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Field \u00261 created\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFullName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* For each extent nr */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-NEXT"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-CLOSE"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferFile"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Fieldlist */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields,"},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Add columns for recid/rowid */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCacheId"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTablename"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,"},
|
|
{"type":"LiteralStringDouble","value":"\"RECID,ROWID\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrderOrg"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFullName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDataType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'character'\n bField.cInitial = ''"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,"},
|
|
{"type":"LiteralStringDouble","value":"\"X(20),X(24)\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFormatOrg"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFormat"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lPrimary"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"iDataOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iDataOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableCacheId"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTablename"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFullName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iColumnNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iDataOrder"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLabel"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 4: build cache'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Update the cache */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glCacheFieldDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Add to disk cache */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 5: save to disk'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Add to second-level cache.\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DATASET"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dsFields"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WRITE-XML"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"file\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"YES"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Add to memory cache */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Add to first-level cache.\""},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'getFields - step 5: save to disk'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Update fields with settings from registry */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"updateFields"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getFields */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getMouseXY) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getMouseXY Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getMouseXY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Get the position of the mouse relative to the frame\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFrame"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piMouseX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piMouseY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"MEMPTR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INT64 "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"SET-SIZE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LP"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"16"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetCursorPos"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"GET-POINTER-VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"lp"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ScreenToClient"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFrame"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"piMouseX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"GET-LONG"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lp,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"piMouseY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"GET-LONG"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lp,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"5"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SET-SIZE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"LP"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Mouse X/Y = \u00261 / \u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piMouseX,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piMouseY"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getMouseXY */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getQueryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getQueryTable Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getQueryTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Get the ttQuery table\n * Note: This procedure just returns the table, no further logic needed.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"table"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getQueryTable */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getRegistryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getRegistryTable Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistryTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Return complete registry tt\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getRegistryTable */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTables) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTables Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTables"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Fill ttTable with all currently connected databases.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbStatusBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheTimeStamp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaCacheFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cOneCacheFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableXml"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Dataserver support can be for:\n *\n * V9: \"PROGRESS,AS400,ORACLE,MSS,ODBC\"\n * V10: \"PROGRESS,ORACLE,MSS,ODBC\" (from V10 no native support for AS400)\n * V11: \"PROGRESS,ORACLE,MSS,ODBC\"\n * V12: \"PROGRESS,ORACLE,MSS\" (from V12 no ODBC support anymore)\n *\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WIDGET-POOL "},
|
|
{"type":"LiteralStringDouble","value":"\"metaInfo\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Database"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-DBS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DBTYPE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"PROGRESS\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Database"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Compose name of the cache file. Use date/time of last schema change in the name */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glCacheTableDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbStatusBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._DbStatus\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"IN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WIDGET-POOL "},
|
|
{"type":"LiteralStringDouble","value":"\"metaInfo\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hDbStatusBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FIND-FIRST"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"NO-LOCK"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheTimeStamp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hDbStatusBuffer"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"_dbstatus"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"cachestamp,"},
|
|
{"type":"LiteralStringDouble","value":"\" \""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"_\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\":\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cCacheFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261cache\\db.\u00262.\u00263.xml\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheTimeStamp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbStatusBuffer"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If caching enabled and there is a cache file, read it */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glCacheTableDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SEARCH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cCacheFile"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Get table list from cache file \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"READ-XML"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"file\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"APPEND\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cCacheDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261cache\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FROM"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OS-DIR"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cCacheDir"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"#ReadSchemaCache"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IMPORT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaCacheFile"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaCacheFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BEGINS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"db.\u00261;\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSchemaCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\".\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\".\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\".\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\".\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Check timestamp */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cOneCacheFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\\\u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheDir,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaCacheFile"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"READ-XML"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"file\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cOneCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"APPEND\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CLOSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Otherwise build it */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ALIAS "},
|
|
{"type":"LiteralStringSingle","value":"'dictdb'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DATABASE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getSchema"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"p"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"BY"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"REFERENCE"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Save cache file for next time */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glCacheTableDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Move the tables of the current db to a separate tt so we can dump it. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"IN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WIDGET-POOL "},
|
|
{"type":"LiteralStringDouble","value":"\"metaInfo\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._Db\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"IN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WIDGET-POOL "},
|
|
{"type":"LiteralStringDouble","value":"\"metaInfo\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-BUFFERS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hDbBuffer"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-PREPARE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"FOR EACH _Db NO-LOCK WHERE _Db._Db-local = TRUE\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OPEN"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"#DB"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-NEXT"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OFF-END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#DB"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbBuffer"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"_Db"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"slave"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbBuffer"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"_Db"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"name"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":")):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-CLOSE"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hDbBuffer"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableXml"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WRITE-XML"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"file\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"YES"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Support Dataservers */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSchemaHolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BREAK"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIRST-OF"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cCacheFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261cache\\db.\u00262;\u00263.\u00264.xml\""},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheTimeStamp"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LAST-OF"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableXml"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WRITE-XML"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"file\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCacheFile,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"YES"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"EMPTY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTableXml"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* IF LAST-OF */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* FOR EACH bTable */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* IF glCacheTableDefs THEN */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* tt empty */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* 1 to num-dbs */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WIDGET-POOL "},
|
|
{"type":"LiteralStringDouble","value":"\"metaInfo\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Apply filter to collection of tables */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTablesFiltered"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get table properties from the INI file */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTableStats"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getTables */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTablesFiltered) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTablesFiltered Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTablesFiltered"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Determine whether tables in the ttTable are visible given a user defined filter\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSearchFld"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cThisField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iSearch"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lRejected"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lFieldFound"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lNormal"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lSchema"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lVst"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lSql"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lOther"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lFrozen"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cNameShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cNameHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* This table **SHOULD** exist and have exactly 1 record */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lNormal"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowNormal"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lSchema"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowSchema"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lVst"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowVst"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lSql"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowSql"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lOther"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowOther"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowHidden"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lFrozen"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowFrozen"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cNameShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableNameShow"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cNameHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableNameHide"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cFieldShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableFieldShow"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cFieldHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableFieldHide"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Reset the filters to sane values if needed */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cNameShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'' OR cNameShow = ? THEN cNameShow = '*'.\n IF cNameHide = '*' OR cNameHide = ? THEN cNameHide = '' .\n IF cFieldShow = '*' OR cFieldShow = ? THEN cFieldShow = ''.\n IF cFieldHide = '*' OR cFieldHide = ? THEN cFieldHide = ''"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Move elements starting with \"!\" from pos-list to neg-list */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"correctFilterList"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cNameShow,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cNameHide"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"correctFilterList"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldShow,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldHide"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Table"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Init table to false until proven otherwise */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowInList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Check against filter-to-hide */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cNameHide,ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Table"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Check against filter-to-show */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cNameShow,ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Table"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* User tables : _file-number \u003e 0 AND _file-number \u003c 32000\n * Schema tables : _file-number \u003e -80 AND _file-number \u003c 0\n * Virtual system tables: _file-number \u003c -16384\n * SQL catalog tables : _file-name BEGINS \"_sys\"\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lNormal"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cCategory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Normal' THEN NEXT #Table.\n IF NOT lSchema AND ttTable.cCategory = 'Schema' THEN NEXT #Table.\n IF NOT lVst AND ttTable.cCategory = 'VST' THEN NEXT #Table.\n IF NOT lSql AND ttTable.cCategory = 'SQL' THEN NEXT #Table.\n IF NOT lOther AND ttTable.cCategory = 'Other' THEN NEXT #Table.\n\n /* Handling for Hidden and Frozen apply only to user tables otherwise it will be too confusing\n * because Schema, VST and SQL tables are all by default hidden and frozen.\n */\n IF NOT lHidden AND ttTable.cCategory = 'Application' AND ttTable.lHidden = TRUE THEN NEXT #Table.\n IF NOT lFrozen AND ttTable.cCategory = 'Application'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lFrozen"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Table"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Fields that must be in the list */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iSearch"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFieldShow"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSearchFld"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iSearch,cFieldShow"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If no wildcards used, we can simply CAN-DO */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSearchFld,"},
|
|
{"type":"LiteralStringDouble","value":"\"*\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSearchFld"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Table"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lFieldFound"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cThisField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iField,ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSearchFld,cThisField"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lFieldFound"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lFieldFound"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Table"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Fields that may not be in the list */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iSearch"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFieldHide"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSearchFld"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iSearch,cFieldHide"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If no wildcards used, we can simply CAN-DO */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSearchFld,"},
|
|
{"type":"LiteralStringDouble","value":"\"*\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSearchFld"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Table"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lRejected"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cThisField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iField,ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSearchFld,cThisField"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lRejected"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* do iField */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lRejected"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Table"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* else */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* do iSearch */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If we get here, we should add the table */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowInList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* for each ttTable */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getTablesFiltered */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableStats) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTableStats Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTableStats"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Get table statistics from the INI file\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"table"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cIniFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Read the ini file as plain text and parse the lines.\n *\n * The normal way would be to do a FOR-EACH on the _file table and\n * retrieve the information needed. But if you have a large database\n * (or a lot of databases), this becomes VERY slow. Searching the\n * other way around by parsing the INI is a lot faster.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cIniFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\u00261DataDigger-\u00262.ini', getWorkFolder(), getUserName() ).\n IF SEARCH(cIniFile) = ? THEN RETURN.\n\n INPUT FROM VALUE(cIniFile).\n\n #ReadLine:\n REPEAT:\n /* Sometimes lines get screwed up and are waaaay too long\n * for the import statement. So just ignore those.\n */\n IMPORT UNFORMATTED cLine NO-ERROR.\n IF ERROR-STATUS:ERROR THEN NEXT #ReadLine.\n\n /* Find DB sections */\n IF cLine MATCHES '[DB:*]' THEN\n DO:\n cSection = TRIM(cLine,'[]'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":",cSection,"},
|
|
{"type":"LiteralStringDouble","value":"\":\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Only process lines of database-sections */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BEGINS "},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#ReadLine"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Only process setting lines */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringSingle","value":"'*:*=*'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#ReadLine"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Filter out some settings */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringDouble","value":"\"*:QueriesServed=*\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIRST"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":",cLine,"},
|
|
{"type":"LiteralStringSingle","value":"':') NO-ERROR.\n\n IF AVAILABLE ttTable THEN\n DO:\n ttTable.iNumQueries = INTEGER(ENTRY(2,cLine,'='"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iNumQueries"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iNumQueries"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* queriesServed */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringDouble","value":"\"*:LastUsed=*\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIRST"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":",cLine,"},
|
|
{"type":"LiteralStringSingle","value":"':') NO-ERROR.\n\n IF AVAILABLE ttTable THEN\n ttTable.tLastUsed = DATETIME(ENTRY(2,cLine,'=')) NO-ERROR.\n\n END. /* lastUsed */\n\n END. /* repeat */\n INPUT CLOSE.\n\n {\u0026timerStop}\n\nEND PROCEDURE. /* getTableStats */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-initTableFilter) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initTableFilter Procedure\nPROCEDURE initTableFilter :\n/* Set table filter values back to their initial values\n */\n DEFINE INPUT-OUTPUT PARAMETER TABLE FOR ttTableFilter.\n\n EMPTY TEMP-TABLE ttTableFilter.\n CREATE ttTableFilter.\n\n /* Set visibility of schema tables */\n ttTableFilter.lShowSchema = LOGICAL(getRegistry('DataDigger','ShowHiddenTables'"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowSchema"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowSchema"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* initTableFilter */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-loadSettings) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE loadSettings Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"loadSettings"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Load settings from ini files\n*/"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Help file is least important, so read that first */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"readConfigFile"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261DataDiggerHelp.ini\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getProgramDir"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* General DD settings (always in program folder) */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"readConfigFile"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261DataDigger.ini\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getProgramDir"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Per-user settings */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"readConfigFile"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261DataDigger-\u00262.ini\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getUserName"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* When all ini-files have been read, we can determine whether\n * caching needs to be enabled\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"TableDefs\""},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glCacheTableDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lValue"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* loadSettings */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-lockWindow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE lockWindow Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lockWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Lock / unlock updates that Windows does to windows.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Window \u00261, lock: \u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TITLE"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"plLock,"},
|
|
{"type":"LiteralStringDouble","value":"\"ON/OFF\""},
|
|
{"type":"Punctuation","value":")))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Find window in our tt of locked windows */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"hWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* If we try to unlock a window thats not in the tt, just go back */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Otherwise create a tt record for it */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"hWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Because commands to lock or unlock may be nested, keep track\n * of the number of locks/unlocks using a semaphore.\n *\n * The order of commands may be:\n * lockWindow(yes). -\u003e actually lock the window\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(no). -\u003e actually unlock the window\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Lock counter: \u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Now, only lock when the semaphore is increased to 1 */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SendMessageA"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND "},
|
|
{"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* And only unlock after the last unlock command */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SendMessageA"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND "},
|
|
{"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"RedrawWindow"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND "},
|
|
{"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026RDW_ALLCHILDREN}"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026RDW_ERASE}"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026RDW_INVALIDATE}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Don't delete, creating records is more expensive than re-use, so just reset */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* lockWindow */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-readConfigFile) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE readConfigFile Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"readConfigFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Read the ini-file and create tt records for it\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcConfigFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plUserSettings"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LONGCHAR "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cChunk"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LONGCHAR "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTrimChars"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Read file in 1 pass to memory */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SEARCH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcConfigFile"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"COPY-LOB"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcConfigFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-CONVERT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ERROR-STATUS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"ERROR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"readFile"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcConfigFile"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cTrimChars"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\" \""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CHR"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"~r\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* space / chr-1 / LF */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Process line by line */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"#LineLoop"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFile,"},
|
|
{"type":"LiteralStringDouble","value":"\"~n\""},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cChunk"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iLine,cFile,"},
|
|
{"type":"LiteralStringDouble","value":"\"~n\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cChunk"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cChunk,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralNumberInteger","value":"20000"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* trim very long lines */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cChunk,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTrimChars"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* remove junk */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Section line */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringDouble","value":"\"[*]\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cLine,"},
|
|
{"type":"LiteralStringDouble","value":"\"[]\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#LineLoop"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Ignore weird settings within [DB:xxxx] sections */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BEGINS "},
|
|
{"type":"LiteralStringSingle","value":"'DB:'"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":",cLine,"},
|
|
{"type":"LiteralStringDouble","value":"\"=\""},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#LineLoop"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Config line */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":",cLine,"},
|
|
{"type":"LiteralStringDouble","value":"\"=\""},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":",cLine,"},
|
|
{"type":"LiteralStringDouble","value":"\"=\""},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Config line /might/ already exist. This can happen if you have\n * the same setting in multiple .ini files.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cLine,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cLine,"},
|
|
{"type":"LiteralStringDouble","value":"\"=\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lUser"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plUserSettings"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* readConfigFile */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resetAnswers) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE resetAnswers Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"resetAnswers"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Reset answers to all 'do not ask again' questions\n*/"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'\n AND (bfConfig.cSetting MATCHES '*:hidden' OR bfConfig.cSetting MATCHES '*:answer'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* for each bfConfig */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"flushRegistry"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* resetAnswers */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resizeFilterFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE resizeFilterFields Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"resizeFilterFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Redraw the browse filter fields\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phLeadButton"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFilterFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcButtons"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iButton"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRightEdge"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iWidth"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hButton"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* To prevent drawing error, make all fields small */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"resizeFilterFields:makeSmall\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFilterFields"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iField,pcFilterFields"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"VISIBLE "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"23"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"resizeFilterFields:makeSmall\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Start by setting the buttons at the proper place. Do this right to left */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"resizeFilterFields:reposition\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRightEdge"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iButton"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcButtons"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hButton"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iButton,pcButtons"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hButton"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRightEdge"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hButton"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hButton"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"23"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* filter buttons close to the browse */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iRightEdge"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hButton"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* A little margin between buttons */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"resizeFilterFields:reposition\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* The left side of the left button is the maximum point\n * Fortunately, this value is already in iRightEdge.\n * Resize and reposition the fields from left to right,\n * use the space between browse:x and iRightEdge\n */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Take the left side of the first visible column as a starting point. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"resizeFilterFields:firstVisibleColumn\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"firstVisibleColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-COLUMNS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordType","value":"HANDLE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"VISIBLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"LEAVE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"firstVisibleColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"resizeFilterFields:firstVisibleColumn\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"resizeFilterFields:#Field\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-COLUMNS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordType","value":"handle"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Some types cannot have a filter */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"DATA-TYPE "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'raw'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"iFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFilterFields"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Determine the handle of the filterfield */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iFilter,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFilterFields"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If the column is hidden, make the filter hidden and go to the next */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"VISIBLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"VISIBLE "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Where *are* we ?? */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If the columns have been resized, some columns might have fallen off the screen */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"NameVariable","value":"\u003c"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Does it fit on the screen? */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRightEdge"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"5"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"KeywordReserved","value":"Field"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* accept some margin */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Where will this field end? And does it fit? */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iWidth"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"4"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iWidth"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRightEdge"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iWidth"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRightEdge"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Ok, seems to fit */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iWidth"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCurrentPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iWidth"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hFilterField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"VISIBLE "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"VISIBLE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* take over the visibility of the browse */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"resizeFilterFields:#Field\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Place lead-button at the utmost left */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phLeadButton"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phLeadButton"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phLeadButton"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"23"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* resizeFilterFields */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-restoreWindowPos) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE restoreWindowPos Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"restoreWindowPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Restore position / size of a window\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcWindowName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcWindowName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Window:x' )).\n IF iValue = ? THEN iValue = INTEGER(getRegistry('DataDigger', 'Window:x' )) + 50.\n ASSIGN phWindow:X = iValue NO-ERROR.\n\n iValue = INTEGER(getRegistry(pcWindowName, 'Window:y' )).\n IF iValue = ? THEN iValue = INTEGER(getRegistry('DataDigger', 'Window:y' )) + 50.\n IF iValue \u003c\u003e ? THEN ASSIGN phWindow:Y = iValue NO-ERROR.\n\n iValue = INTEGER(getRegistry(pcWindowName, 'Window:height' )).\n IF iValue = ? OR iValue = 0 THEN iValue = INTEGER(getRegistry('DataDigger', 'Window:height' )) - 100.\n ASSIGN phWindow:HEIGHT-PIXELS = iValue NO-ERROR.\n\n iValue = INTEGER(getRegistry(pcWindowName, 'Window:width' )).\n IF iValue = ? OR iValue = 0 THEN iValue = INTEGER(getRegistry('DataDigger', 'Window:width' )) - 100.\n ASSIGN phWindow:WIDTH-PIXELS = iValue NO-ERROR.\n\n /* Force a redraw */\n APPLY 'window-resized' TO phWindow.\n\nEND PROCEDURE. /* restoreWindowPos */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveConfigFileSorted) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveConfigFileSorted Procedure\nPROCEDURE saveConfigFileSorted :\n/* Save settings file sorted\n */\n DEFINE VARIABLE cUserConfigFile AS CHARACTER NO-UNDO.\n DEFINE BUFFER bfConfig FOR ttConfig.\n\n {\u0026timerStart}\n\n /* Clean up rubbish settings data */\n FOR EACH bfConfig\n WHERE bfConfig.cSetting = '' OR bfConfig.cSetting = ?\n OR bfConfig.cValue = ''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cUserConfigFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261DataDigger-\u00262.ini\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getUserName"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cUserConfigFile"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lUser"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BREAK"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BEGINS "},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DESCENDING\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIRST-OF"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"UNFORMATTED"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"[\u00261]\""},
|
|
{"type":"NameVariable","value":",bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SKIP"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"UNFORMATTED"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261=\u00262\""},
|
|
{"type":"NameVariable","value":",bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SKIP"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LAST-OF"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"UNFORMATTED"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SKIP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CLOSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"glDirtyCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* saveConfigFileSorted */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveQuery Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"saveQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Save a single query to the INI file.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iNewNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Prepare query for saving in ini-file */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cQuery,"},
|
|
{"type":"LiteralStringSingle","value":"'~n',CHR(1)).\n cQuery = REPLACE(cQuery,{\u0026QUERYSEP},CHR(1)).\n IF cQuery = ''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get the table with queries again, because they might be\n * changed if the user has more than one window open.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"collectQueryInfo"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Save current query in the tt. If it already is in the\n * TT then just move it to the top\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cQueryTxt"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cQueryTxt"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* The ttQuery temp-table is already filled, renumber it */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"#QueryLoop"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PRESELECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#QueryLoop"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iNewNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iNewNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iNewNr"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* And save it to the INI-file */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"saveQueryTable"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"table"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* saveQuery */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveQueryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveQueryTable Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"saveQueryTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Save the queries in the TT to the INI file with a max of MaxQueryHistory\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"table"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"MaxQueryHistory\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* no query history wanted */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If it is not defined use default setting */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"10"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"#SaveQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cQueryTxt"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#SaveQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\u00261:query:\u00262'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#SaveQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Delete higher nrs than MaxQueryHistory */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHILE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxQueryHistory"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\u00261\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\u00261:query:\u00262'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* iQuery .. MaxQueryHistory */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* saveQueryTable */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveWindowPos) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveWindowPos Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"saveWindowPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Save position / size of a window\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcWindowName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcWindowName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"Window:x\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcWindowName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"Window:y\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcWindowName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"Window:height\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HEIGHT-PIXELS"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcWindowName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"Window:width\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* saveWindowPos */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setCaching) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setCaching Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setCaching"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Set the cache vars for the library\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"glCacheTableDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"TableDefs\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"glCacheFieldDefs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"FieldDefs\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* setCaching */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setFavourite) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setFavourite Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setFavourite"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Set / unset / toggle a table as favourite\n*/"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcGroupName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plFavourite"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Favourites\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcGroupName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''.\n i = LOOKUP(pcTable, cList).\n\n /* Toggle setting? */\n IF plFavourite = ? THEN plFavourite = (i = 0).\n\n /* Add to favourites */\n IF NOT plFavourite AND i \u003e 0 THEN\n DO:\n ENTRY(i, cList) = ''.\n cList = REPLACE(cList,',,',',').\n cList = TRIM(cList,',').\n END.\n\n /* Remove from favourites */\n IF plFavourite AND i = 0 THEN\n cList = TRIM(SUBSTITUTE('\u00261,\u00262', cList, pcTable),','"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger:Favourites\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcGroupName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* setFavourite */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setLabelPosition) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setLabelPosition Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setLabelPosition"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Correct the position of the label for larger fonts\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Move horizontally far enough from the widget */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SIDE-LABEL-HANDLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FONT-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-TEXT-WIDTH-PIXELS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SIDE-LABEL-HANDLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SCREEN-VALUE"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FRAME"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FONT"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TYPE "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'fill-in' THEN 5 ELSE 0)\n .\n\nEND PROCEDURE. /* setLabelPosition */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setSortArrow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setSortArrow Procedure\nPROCEDURE setSortArrow :\n/* Set the sorting arrow on a browse\n */\n DEFINE INPUT PARAMETER phBrowse AS HANDLE NO-UNDO.\n DEFINE INPUT PARAMETER pcSortField AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER plAscending AS LOGICAL NO-UNDO.\n\n DEFINE VARIABLE iColumn AS INTEGER NO-UNDO.\n DEFINE VARIABLE hColumn AS HANDLE NO-UNDO.\n DEFINE VARIABLE lSortFound AS LOGICAL NO-UNDO.\n\n {\u0026timerStart}\n\n DO iColumn = 1 TO phBrowse:NUM-COLUMNS:\n hColumn = phBrowse:GET-BROWSE-COLUMN(iColumn).\n\n /* If you apply the sort to the same column, the order\n * of sorting is inverted.\n */\n IF hColumn:NAME = pcSortField THEN\n DO:\n phBrowse:SET-SORT-ARROW(iColumn, plAscending ).\n lSortFound = TRUE.\n\n /* Setting is one of: ColumnSortFields | ColumnSortIndexes | ColumnSortTables */\n setRegistry( 'DataDigger'\n , SUBSTITUTE('ColumnSort\u00261', SUBSTRING(phBrowse:NAME,3))\n , SUBSTITUTE('\u00261,\u00262',iColumn, plAscending)\n ).\n END.\n ELSE\n phBrowse:SET-SORT-ARROW(iColumn, ? ). /* erase existing arrow */\n END.\n\n /* If no sort is found, delete setting */\n IF NOT lSortFound THEN\n setRegistry( 'DataDigger', SUBSTITUTE('ColumnSort\u00261', SUBSTRING(phBrowse:NAME,3)), ?).\n\n {\u0026timerStop}\n\nEND PROCEDURE. /* setSortArrow */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setTransparency) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setTransparency Procedure\nPROCEDURE setTransparency :\n/* Set transparency level for a frame, using Windows api\n */\n DEFINE INPUT PARAMETER phFrame AS HANDLE NO-UNDO.\n DEFINE INPUT PARAMETER piLevel AS INTEGER NO-UNDO.\n\n \u0026SCOPED-DEFINE GWL_EXSTYLE -20\n \u0026SCOPED-DEFINE WS_EX_LAYERED 524288\n \u0026SCOPED-DEFINE LWA_ALPHA 2\n \u0026SCOPED-DEFINE WS_EX_TRANSPARENT 32\n\n {\u0026_proparse_prolint-nowarn(varusage)}\n DEFINE VARIABLE stat AS INTEGER NO-UNDO.\n\n /* Set WS_EX_LAYERED on this window */\n {\u0026_proparse_prolint-nowarn(varusage)}\n RUN SetWindowLongA(phFrame:HWND, {\u0026GWL_EXSTYLE}, {\u0026WS_EX_LAYERED}, OUTPUT stat).\n\n /* Make this window transparent (0 - 255) */\n {\u0026_proparse_prolint-nowarn(varusage)}\n RUN SetLayeredWindowAttributes(phFrame:HWND, 0, piLevel, {\u0026LWA_ALPHA}, OUTPUT stat).\n\nEND PROCEDURE. /* setTransparency */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setXmlNodeNames) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setXmlNodeNames Procedure\nPROCEDURE setXmlNodeNames :\n/* Set the XML-NODE-NAMES of all fields in a buffer\n */\n DEFINE INPUT PARAMETER phTable AS HANDLE NO-UNDO.\n DEFINE VARIABLE iField AS INTEGER NO-UNDO.\n\n DO iField = 1 TO phTable:NUM-FIELDS:\n phTable:BUFFER-FIELD(iField):XML-NODE-NAME = getXmlNodeName(phTable:BUFFER-FIELD(iField):NAME).\n END.\n\nEND PROCEDURE. /* setXmlNodeNames */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-showHelp) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE showHelp Procedure\nPROCEDURE showHelp :\n/* Show a help message and save answer to ini\n */\n DEFINE INPUT PARAMETER pcTopic AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER pcStrings AS CHARACTER NO-UNDO.\n\n DEFINE VARIABLE cButtons AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cPrg AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cTitle AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cType AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cUrl AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cCanHide AS CHARACTER NO-UNDO.\n DEFINE VARIABLE iButtonPressed AS INTEGER NO-UNDO.\n DEFINE VARIABLE lDontShowAgain AS LOGICAL NO-UNDO.\n DEFINE VARIABLE lCanHide AS LOGICAL NO-UNDO.\n DEFINE VARIABLE lHidden AS LOGICAL NO-UNDO.\n DEFINE VARIABLE iString AS INTEGER NO-UNDO.\n DEFINE VARIABLE cUserString AS CHARACTER NO-UNDO EXTENT 9.\n\n /* If no message, then just return */\n cMessage = getRegistry('DataDigger:Help', pcTopic + ':message').\n\n /* What to start? */\n cUrl = getRegistry('DataDigger:Help', pcTopic + ':url').\n cPrg = getRegistry('DataDigger:Help', pcTopic + ':program').\n cCanHide = getRegistry('DataDigger:Help', pcTopic + ':canHide').\n cCanHide = TRIM(cCanHide).\n lCanHide = LOGICAL(cCanHide) NO-ERROR.\n IF lCanHide = ? THEN lCanHide = TRUE.\n\n IF cMessage = ? THEN\n DO:\n IF cUrl = ? AND cPrg = ? THEN RETURN.\n lHidden = YES. /* suppress empty text window */\n iButtonPressed = 1. /* forces to start the url or prog */\n END.\n\n /* If type is unknown, set to QUESTION if there is a question mark in the message */\n cType = getRegistry('DataDigger:Help', pcTopic + ':type').\n IF cType = ? THEN cType = (IF cMessage MATCHES '*?*' THEN 'Question' ELSE 'Message').\n\n /* If no button labels defined, set them based on message type */\n cButtons = getRegistry('DataDigger:Help', pcTopic + ':buttons').\n IF cButtons = ? THEN cButtons = (IF cType = 'Question' THEN '\u0026Yes,\u0026No,\u0026Cancel' ELSE '\u0026Ok').\n\n /* If title is empty, set it to the type of the message */\n cTitle = getRegistry('DataDigger:Help', pcTopic + ':title').\n IF cTitle = ? THEN cTitle = cType.\n\n /* If hidden has strange value, set it to NO */\n lHidden = LOGICAL(getRegistry('DataDigger:Help', pcTopic + ':hidden')) NO-ERROR.\n IF lHidden = ? THEN lHidden = NO.\n\n /* If ButtonPressed has strange value, set hidden to NO */\n iButtonPressed = INTEGER( getRegistry('DataDigger:Help',pcTopic + ':answer') ) NO-ERROR.\n IF iButtonPressed = ? THEN lHidden = NO.\n\n /* if we have no message, but we do have an URL or prog, then\n * dont show an empty message box.\n */\n IF cMessage = ? THEN\n ASSIGN\n lHidden = YES /* suppress empty text window */\n iButtonPressed = 1. /* forces to start the url or prog */\n\n /* Fill in strings in message */\n DO iString = 1 TO NUM-ENTRIES(pcStrings):\n cUserString[iString] = ENTRY(iString,pcStrings).\n END.\n\n cMessage = SUBSTITUTE( cMessage\n , cUserString[1]\n , cUserString[2]\n , cUserString[3]\n , cUserString[4]\n , cUserString[5]\n , cUserString[6]\n , cUserString[7]\n , cUserString[8]\n , cUserString[9]\n ).\n\n /* If not hidden, show the message and let the user choose an answer */\n IF NOT lHidden THEN\n DO:\n RUN VALUE( getProgramDir() + 'dQuestion.w')\n ( INPUT cTitle\n , INPUT cMessage\n , INPUT cButtons\n , INPUT lCanHide\n , OUTPUT iButtonPressed\n , OUTPUT lDontShowAgain\n ).\n\n IF lDontShowAgain THEN\n setRegistry('DataDigger:Help', pcTopic + ':hidden', 'yes').\n END.\n\n /* Start external things if needed */\n IF iButtonPressed = 1 THEN\n DO:\n IF cUrl \u003c\u003e ? THEN OS-COMMAND NO-WAIT START (cUrl).\n IF cPrg \u003c\u003e ? THEN RUN VALUE(cPrg) NO-ERROR.\n END.\n\n /* Save answer */\n setRegistry('DataDigger:Help',pcTopic + ':answer'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iButtonPressed"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* showHelp */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-showScrollbars) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE showScrollbars Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"showScrollbars"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Hide or show scrollbars the hard way\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"Frame"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"horizontal"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"vertical"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iv"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"retint"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"Frame"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"Frame"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"CommentPreproc","value":"\n\n \u0026scoped-define SB_HORZ 0\n \u0026scoped-define SB_VERT 1\n \u0026scoped-define SB_BOTH 3\n \u0026scoped-define SB_THUMBPOSITION 4"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ShowScrollBar"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"Frame"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026SB_HORZ}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"horizontal"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iv"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"retint"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ShowScrollBar"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"Frame"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026SB_VERT}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ip"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"vertical"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iv"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"retint"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"CommentPreproc","value":"\n\n \u0026undefine SB_HORZ\n \u0026undefine SB_VERT\n \u0026undefine SB_BOTH\n \u0026undefine SB_THUMBPOSITION"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* ShowScrollbars */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-unlockWindow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE unlockWindow Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"unlockWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Force a window to unlock\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Window \u00261, force to unlock\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TITLE"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Find window in our tt of locked windows */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"hWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iLockCounter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"SendMessageA"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"RedrawWindow"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026RDW_ALLCHILDREN}"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026RDW_ERASE}"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026RDW_INVALIDATE}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iRet"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttWindowLock"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* unlockWindow */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-updateFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE updateFields Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"updateFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Update the fields temp-table with settings from registry\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCustomFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSelectedFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumnOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lRecRowAtEnd"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Update field definitions for \u00261.\u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get list of all previously selected fields */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSelectedFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\u00261\""},
|
|
{"type":"NameVariable","value":",pcDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261:fields\""},
|
|
{"type":"NameVariable","value":",pcTableName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSelectedFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSelectedFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'!RECID,!ROWID,*'.\n\n /* Get field ordering */\n cFieldOrder = getRegistry(SUBSTITUTE('DB:\u00261',pcDatabase), SUBSTITUTE('\u00261:fieldOrder'"},
|
|
{"type":"NameVariable","value":",pcTableName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* RECID and ROWID at the end? */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lRecRowAtEnd"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"ROWID\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldOrder"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFieldOrder"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"RECID\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldOrder"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFieldOrder"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Field order for table \u00261: \u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldOrder"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Rowid/recid at the end for table \u00261: \u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lRecRowAtEnd"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Due to a bug the nr of decimals may be set on non-decimal fields\n * See PKB P185263 (article 18087) for more information\n * http://knowledgebase.progress.com/articles/Article/P185263\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDataType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'DECIMAL'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iDecimals"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Was this field selected? */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSelectedFields,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFullName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Customization option for the user to show/hide certain fields */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'customShowField').\n PUBLISH 'customShowField'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShow"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'customShowField'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Customization option for the user to adjust the format */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"start\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'customFormat').\n PUBLISH 'customFormat'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatatype,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFormat"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"DD:Timer\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"stop\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'customFormat'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Restore changed field format. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cCustomFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\u00261\""},
|
|
{"type":"NameVariable","value":",pcDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261.\u00262:format\""},
|
|
{"type":"NameVariable","value":",pcTableName,bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCustomFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cCustomFormat"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Restore changed field order. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFullName,cFieldOrder"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrderOrg"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Keep track of highest nr */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MAXIMUM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iFieldOrder,bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* f/e bField */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Only show first X of an extent */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iMaxExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"MaxExtent\""},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"100"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxExtent"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-FIND"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"FIRST"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Set new fields (no order assigned) at the end */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFieldRpos"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If RECID+ROWID should be at the end then re-assign them */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lRecRowAtEnd"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"RECID\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"ROWID\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Reorder fields to get rid of gaps */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"#FieldLoop"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PRESELECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#FieldLoop"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFieldOrder"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Assign order nrs to columns to handle extents */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iColumnOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iColumnOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumnOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iColumnNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumnOrder"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* updateFields */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-updateMemoryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE updateMemoryCache Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"updateMemoryCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Update the memory cache with current settings\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColumn"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Update first-level cache for \u00261.\u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Delete old */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Create new */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFieldCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"BUFFER-COPY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColumnCache"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* updateMemoryCache */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* ************************ Function Implementations ***************** */"},
|
|
{"type":"CommentPreproc","value":"\n\n\u0026IF DEFINED(EXCLUDE-addConnection) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION addConnection Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"addConnection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Add a connection to the temp-table\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-FIND"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"ttDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLogicalName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLogicalName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"ttDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-formatQueryString) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION formatQueryString Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"formatQueryString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcQueryString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plExpanded"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return a properly formatted query string\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcQueryString"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'' AND cReturnValue \u003c\u003e ? THEN\n DO:\n /* There might be chr(1) chars in the text (if read from ini, for example)\n * Replace these with normal CRLF, then proceed\n */\n cReturnValue = REPLACE(cReturnValue,CHR(1),'~n').\n\n IF plExpanded THEN\n cReturnValue = REPLACE(cReturnValue, {\u0026QUERYSEP}, '~n').\n ELSE\n cReturnValue = REPLACE(cReturnValue, '~n'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026QUERYSEP}"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cReturnValue"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* formatQueryString */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColor) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getColor Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return the color number for a color name\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setColor"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcName,?"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Function return value. */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getColor */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColorByRGB) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getColorByRGB Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColorByRGB"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piRed"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piGreen"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piBlue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return the color number for a RGB combination\n * if needed, add color to color table.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* See if already exists */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-RED-VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piRed"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-GREEN-VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piGreen"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BLUE-VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piBlue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Define new color */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-DYNAMIC"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-RED-VALUE "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piRed"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-GREEN-VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piGreen"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"COLOR-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-BLUE-VALUE "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piBlue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getColorByRGB */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColumnLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getColumnLabel Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColumnLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFieldBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return column label, based on settings\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cColumnLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTemplate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cTemplate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"ColumnLabelTemplate\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTemplate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTemplate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTemplate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cColumnLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cTemplate"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFieldBuffer"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"cFullName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFieldBuffer"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"iOrder"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFieldBuffer"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"cLabel"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cColumnLabel"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getColumnLabel */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColumnWidthList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getColumnWidthList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getColumnWidthList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* returns a list of all fields and their width like:\n * custnum:12,custname:20,city:12\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cWidthList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-COLUMNS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iColumn"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cWidthList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\u00261,\u00262:\u00263'\n , cWidthList\n , hColumn:NAME\n , hColumn:WIDTH-PIXELS\n ).\n END.\n\n RETURN TRIM(cWidthList,','"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getColumnWidthList */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getDatabaseList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getDatabaseList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return a comma separated list of all connected databases\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaHolders"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDbType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLogicalDbName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Support Dataservers */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcSaveDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROGRAM-NAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BEGINS "},
|
|
{"type":"LiteralStringDouble","value":"\"initializeObjects \""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcSaveDatabaseList"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Make a list of schema holders */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"#Db"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-DBS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDbType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DBTYPE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cLogicalDbName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDbType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'PROGRESS' THEN\n cSchemaHolders = cSchemaHolders + ','"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cDbType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DBTYPE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDbType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"PROGRESS\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#Db"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLogicalDbName"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Build list of all databases. Skip if already in the list of schemaholders */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"#Db"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-DBS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDbType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DBTYPE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cLogicalDbName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iCount"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaHolders"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDbType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"PROGRESS\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#Db"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ALIAS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dictdb"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DATABASE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cLogicalDbName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"p"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLogicalDbName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"giDataserverNr"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ALIAS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"dictdb"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Support dataservers */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLDbNameSchema"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Remove schemaholder from database list */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lDontShowSchemaHr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLDbNameSchema,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-FIND"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"FIRST"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLDbNameSchema"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iPos,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cDatabaseList,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",,\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Add dataserver to database list */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLDbNameDataserver,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lConnected"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLDbNameDataserver,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* IF bDataserver.lConnected */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iPos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iPos,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cDatabaseList,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",,\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* IF iPos \u003e 0 */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* else */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* FOR EACH bDataserver */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cDatabaseList,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"gcSaveDatabaseList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabaseList"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getDatabaseList */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getEscapedData) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getEscapedData Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getEscapedData"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTarget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return html- or 4gl-safe string\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cOutput"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iTmp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Garbage in, garbage out */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cOutput"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CASE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTarget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"LiteralStringDouble","value":"\"HTML\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cOutput"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cOutput,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003c\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"\u0026lt;\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cOutput"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cOutput,"},
|
|
{"type":"LiteralStringDouble","value":"\"\u003e\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"\u0026gt;\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"LiteralStringDouble","value":"\"4GL\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Replace single quotes because we are using them for 4GL separating too */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cOutput"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cOutput,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"'\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"~~'\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Replace CHR's 1 till 13 */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iTmp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"13"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cOutput"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cOutput,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CHR"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iTmp"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"' + chr(\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"string"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iTmp"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\") + '\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CASE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cOutput"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getEscapedData */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFieldList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFieldList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getFieldList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return a comma separated list of all fields of a table\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._file\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._field\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-BUFFERS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hFile,hField"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-PREPARE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'FOR EACH _File WHERE _File-name = \u00261, EACH _Field OF _File'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUOTER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFile"},
|
|
{"type":"Punctuation","value":")))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OPEN"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"#CollectFields"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-NEXT"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OFF-END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEAVE "},
|
|
{"type":"NameVariable","value":"#CollectFields"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"_Field"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"name"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* #CollectFields */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-CLOSE"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFile"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFields,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getFieldList */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFileCategory) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFileCategory Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getFileCategory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piFileNumber"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Based on table name and -number, return the category for a table\n *\n * Application tables : _file-number \u003e 0 AND _file-number \u003c 32000\n * Schema tables : _file-number \u003e -80 AND _file-number \u003c 0\n * Virtual system tables: _file-number \u003c -16384\n * SQL catalog tables : _file-name BEGINS \"_sys\"\n * Other tables : _file-number \u003e= -16384 AND _file-number \u003c= -80\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piFileNumber"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piFileNumber"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"32000"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringSingle","value":"'Normal'.\n IF piFileNumber \u003e -80 AND piFileNumber \u003c 0 THEN RETURN 'Schema'.\n IF piFileNumber \u003c -16384 THEN RETURN 'VST'.\n IF pcFileName BEGINS '_sys' THEN RETURN 'SQL'.\n IF piFileNumber \u003e= -16384 AND piFileNumber \u003c= -80 THEN RETURN 'Other'.\n\n RETURN ''. /* Function return value. */\n\nEND FUNCTION. /* getFileCategory */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFont) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFont Procedure\nFUNCTION getFont RETURNS INTEGER\n ( pcName AS CHARACTER ) :\n /* Return the fontnumber for the type given\n */\n DEFINE BUFFER bFont FOR ttFont.\n\n {\u0026timerStart}\n\n FIND bFont WHERE bFont.cName = pcName NO-ERROR.\n IF AVAILABLE bFont THEN RETURN bFont.iFont.\n\n CREATE bFont.\n ASSIGN bFont.cName = pcName.\n\n bFont.iFont = INTEGER(getRegistry('DataDigger:Fonts',pcName)) NO-ERROR.\n\n IF bFont.iFont = ? OR bFont.iFont \u003e 23 THEN\n CASE pcName:\n WHEN 'Default' THEN bFont.iFont = 4.\n WHEN 'Fixed' THEN bFont.iFont = 0.\n END CASE.\n\n RETURN bFont.iFont. /* Function return value. */\n {\u0026timerStop}\n\nEND FUNCTION. /* getFont */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getImagePath) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getImagePath Procedure\nFUNCTION getImagePath RETURNS CHARACTER\n ( pcImage AS CHARACTER ) :\n /* Return the image path + icon set name\n */\n {\u0026timerStart}\n RETURN SUBSTITUTE('\u00261Image/default_\u00262'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getProgramDir"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcImage"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getImagePath */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getIndexFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getIndexFields Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getIndexFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabaseName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFlags"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return the index fields of a table.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cWhere"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFieldBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFileBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hIndexBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hIndexFieldBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFileBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabaseName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._File\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hIndexBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabaseName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._Index\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hIndexFieldBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabaseName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._Index-Field\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFieldBuffer"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabaseName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"._Field\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-BUFFERS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hFileBuffer,hIndexBuffer,hIndexFieldBuffer,hFieldBuffer"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_ prolint-nowarn(longstrings)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cWhere"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"FOR EACH \u00261._file WHERE \u00261._file._file-name = \u00262 AND _File._File-Number \u003c 32768, ~\n EACH \u00261._index OF \u00261._file WHERE TRUE \u00263 \u00264, ~\n EACH \u00261._index-field OF \u00261._index, ~\n EACH \u00261._field OF \u00261._index-field\""},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabaseName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUOTER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcTableName"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFlags,"},
|
|
{"type":"LiteralStringDouble","value":"\"U\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN "},
|
|
{"type":"LiteralStringDouble","value":"\"AND _index._unique = true\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFlags,"},
|
|
{"type":"LiteralStringDouble","value":"\"P\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN "},
|
|
{"type":"LiteralStringDouble","value":"\"AND recid(_index) = _file._prime-index\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-PREPARE "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cWhere"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OPEN"},
|
|
{"type":"Punctuation","value":"()."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-FIRST"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"NO-LOCK"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHILE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OFF-END"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cFieldList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"trim"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hFieldBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"_field-name\""},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"string-value"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-NEXT"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"NO-LOCK"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cFieldList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFieldList,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-CLOSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFileBuffer"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hIndexBuffer"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hIndexFieldBuffer"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hFieldBuffer"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"OBJECT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldList"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Function return value. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getIndexFields */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getKeyList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getKeyList Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return a list of special keys pressed\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"mKeyboardState"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"MEMPTR "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INT64 "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"SET-SIZE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"mKeyboardState"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"256"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get the current state of the keyboard */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetKeyboardState"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"GET-POINTER-VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"mKeyboardState"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iReturnValue"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* try to suppress error: 'C' Call Stack has been compromised after calling in (6069) */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ERROR-STATUS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"ERROR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GET"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"BITS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"GET-BYTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"mKeyboardState,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"16"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"8"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",SHIFT\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GET"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"BITS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"GET-BYTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"mKeyboardState,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"17"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"8"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",CTRL\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GET"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"BITS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"GET-BYTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"mKeyboardState,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"18"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"8"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cKeyList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",ALT\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"SET-SIZE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"mKeyboardState"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cKeyList"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Function return value. */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getKeyList */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getLinkInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLinkInfo Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Save name/value of a field.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttLinkInfo"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getLinkInfo */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getMaxLength) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getMaxLength Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getMaxLength"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return the length of the longest element in a comma separated list\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxLength"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get max field length */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFieldList"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iMaxLength"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MAXIMUM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iMaxLength,"},
|
|
{"type":"KeywordReserved","value":"LENGTH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iField,cFieldList"},
|
|
{"type":"Punctuation","value":")))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMaxLength"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Function return value. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getMaxLength */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getOsErrorDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getOsErrorDesc Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getOsErrorDesc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piOsError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return string for os-error\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CASE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piOsError"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"No error \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Not owner \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"No such file or directory\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Interrupted system call \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"4"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"I/O error \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"5"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Bad file number \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"6"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"No more processes \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"7"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Not enough core memory \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"8"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Permission denied \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"9"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Bad address \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"10"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"File exists \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"11"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"No such device \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"12"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Not a directory \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"13"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Is a directory \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"14"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"File table overflow \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"15"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Too many open files \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"16"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"File too large \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"17"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"No space left on device \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"18"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Directory not empty \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OTHERWISE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"Unmapped error \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CASE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getOsErrorDesc */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getProgramDir) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgramDir Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getProgramDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return the DataDigger install dir, including a backslash\n */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Cached the value in a global var (about 100x as fast) */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcProgramDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* this-procedure:file-name will return the .p name without path when the\n * procedure us run without full path. We need to seek it in the propath.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THIS-PROCEDURE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"THIS-PROCEDURE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"LENGTH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"THIS-PROCEDURE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\".p\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"THIS-PROCEDURE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"LENGTH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"THIS-PROCEDURE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FILE-NAME"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\".r\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"gcProgramDir"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"R-INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"FILE-INFO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FULL-PATHNAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'\\'"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"message\""},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"50"},
|
|
{"type":"NameVariable","value":",gcProgramDir"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcProgramDir"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getProgramDir */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getQuery Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Get previously used query nr \u003cpiQuery\u003e\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iQueryNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cQueryTxt"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getQuery */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getReadableQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getReadableQuery Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getReadableQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return a query as a string that is readable for humans.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Accept query or query-handle */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"WIDGET"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"WIDGET"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hQuery"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"PREPARE-STRING"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcQuery,"},
|
|
{"type":"LiteralStringSingle","value":"' EACH ' ,' EACH ').\n pcQuery = REPLACE(pcQuery,' FIRST ',' FIRST ').\n pcQuery = REPLACE(pcQuery,' WHERE ', '~n WHERE ').\n pcQuery = REPLACE(pcQuery,' AND ' , '~n AND ').\n pcQuery = REPLACE(pcQuery,' BY ' , '~n BY ').\n pcQuery = REPLACE(pcQuery,' FIELDS ()','').\n pcQuery = REPLACE(pcQuery,'FOR EACH ' ,'FOR EACH ').\n pcQuery = REPLACE(pcQuery,' NO-LOCK', ' NO-LOCK').\n pcQuery = REPLACE(pcQuery,' INDEXED-REPOSITION', '').\n\n pcQuery = pcQuery + '~n'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcQuery"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getReadableQuery */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getRegistry Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcKey"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Get a value from the registry.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If this is a DB-specific section then replace db name if needed */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BEGINS "},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLogicalName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":",pcSection,"},
|
|
{"type":"LiteralStringDouble","value":"\":\""},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"DB:\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Load settings if there is nothing in the config table */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TEMP-TABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttConfig"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HAS-RECORDS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"loadSettings"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Search in settings tt */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcKey"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getRegistry */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getSchemaHolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSchemaHolder Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getSchemaHolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDataSrNameOrDbName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLDBNameDataserver"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDataSrNameOrDbName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bDataserver"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLDBNameSchema"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDataSrNameOrDbName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getSchemaHolder */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getStackSize) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getStackSize Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getStackSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"():"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return value of the -s session setting\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cParm"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CASE-SENSITIVE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iParm"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iStackSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SESSION"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"STARTUP"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"PARAMETERS"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iParm"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iParm,cList"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\" \""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cParm"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":",cSetting,"},
|
|
{"type":"LiteralStringDouble","value":"\" \""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":",cSetting,"},
|
|
{"type":"LiteralStringDouble","value":"\" \""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cParm"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"-s\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iStackSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ERROR-STATUS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"ERROR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iStackSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If not defined, report the default */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iStackSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iStackSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"40"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iStackSize"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getStackSize */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableDesc Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getTableDesc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableDesc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE "},
|
|
{"type":"LiteralStringSingle","value":"'').\n\nEND FUNCTION. /* getTableDesc */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableLabel Procedure\nFUNCTION getTableLabel RETURNS CHARACTER\n ( INPUT pcDatabase AS CHARACTER\n , INPUT pcTable AS CHARACTER\n ) :\n DEFINE BUFFER bTable FOR ttTable.\n\n FIND bTable\n WHERE bTable.cDatabase = pcDatabase\n AND bTable.cTableName = pcTable NO-ERROR.\n\n RETURN (IF AVAILABLE bTable AND bTable.cTableLabel \u003c\u003e ? THEN bTable.cTableLabel ELSE '').\n\nEND FUNCTION. /* getTableLabel */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableList Procedure\nFUNCTION getTableList RETURNS CHARACTER\n ( INPUT pcDatabaseFilter AS CHARACTER\n , INPUT pcTableFilter AS CHARACTER\n ) :\n /* Get a filtered list of all tables in the current database\n */\n DEFINE VARIABLE cTableList AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cQuery AS CHARACTER NO-UNDO.\n\n DEFINE BUFFER bTable FOR ttTable.\n DEFINE QUERY qTable FOR bTable.\n\n {\u0026timerStart}\n IF pcDatabaseFilter = '' OR pcDatabaseFilter = ? THEN pcDatabaseFilter = '*'.\n\n /* Build query */\n cQuery = SUBSTITUTE('for each bTable where cDatabase matches \u00261'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUOTER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcDatabaseFilter"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"\u00261 and cTableName matches \u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cQuery,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUOTER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcTableFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"qTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-PREPARE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\u00261 by cTableName'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"qTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OPEN"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"qTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-FIRST"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* All fields */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHILE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"qTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-OFF-END"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cTableList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTableList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableName"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"qTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-NEXT"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"QUERY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"qTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"QUERY-CLOSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cTableList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEFT-TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cTableList,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\",\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTableList"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Function return value. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getTableList */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getUserName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getUserName Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getUserName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return login name of user\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LONGCHAR "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"intResult"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"intSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"mUserId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"MEMPTR "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026startTimer}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Otherwise determine the value */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"SET-SIZE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"mUserId"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"256"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"intSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"255"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"GetUserNameA"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"mUserId,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT-OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"intSize,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"intResult"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"COPY-LOB"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"mUserId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"intSize"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-CONVERT"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"intResult"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"default\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cUserName,"},
|
|
{"type":"LiteralStringDouble","value":"\".\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cUserName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Function return value. */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026stopTimer}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getUserName */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getWidgetUnderMouse) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getWidgetUnderMouse Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWidgetUnderMouse"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFrame"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return the handle of the widget that is currently under the mouse cursor\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"HANDLE "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFrame"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FIRST-CHILD"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"first-child"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getMouseXY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phFrame,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseX,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseY"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHILE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"TYPE "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"RECTANGLE\""},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseY"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HEIGHT-PIXELS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NEXT-SIBLING"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* getWidgetUnderMouse */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getWorkFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getWorkFolder Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* parameter-definitions */"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Cached the value in a global var */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"gcWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"DataDigger\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"WorkFolder\""},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Possibility to specify where DD files are created */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'' THEN\n gcWorkFolder = getProgramDir().\n ELSE\n DO:\n gcWorkFolder = RIGHT-TRIM(gcWorkFolder,'/\\') + '\\'.\n gcWorkFolder = resolveOsVars(gcWorkFolder).\n RUN createFolder(gcWorkFolder).\n\n FILE-INFO:FILE-NAME = gcWorkFolder.\n IF FILE-INFO:FULL-PATHNAME = ? THEN gcWorkFolder = getProgramDir().\n END.\n END.\n\n RETURN gcWorkFolder.\n\nEND FUNCTION. /* getWorkFolder */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getXmlNodeName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getXmlNodeName Procedure\nFUNCTION getXmlNodeName RETURNS CHARACTER\n ( pcFieldName AS CHARACTER ) :\n /* Return a name that is safe to use in XML output\n */\n pcFieldName = REPLACE(pcFieldName,'%', '_').\n pcFieldName = REPLACE(pcFieldName,'#', '_').\n\n RETURN pcFieldName.\n\nEND FUNCTION. /* getXmlNodeName */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isDataServer) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isDataServer Procedure\nFUNCTION isDataServer RETURNS LOGICAL\n ( INPUT pcDataSrNameOrDbName AS CHARACTER\n ):\n RETURN CAN-FIND(ttDataserver WHERE ttDataserver.cLDBNameDataserver = pcDataSrNameOrDbName).\n\nEND FUNCTION. /* isDataServer */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isDefaultFontsChanged) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isDefaultFontsChanged Procedure\nFUNCTION isDefaultFontsChanged RETURNS LOGICAL\n ( /* parameter-definitions */ ) :\n /* Returns whether the default fonts 0-7 were changed.\n */\n DEFINE VARIABLE cFontSize AS CHARACTER NO-UNDO EXTENT 8.\n DEFINE VARIABLE i AS INTEGER NO-UNDO.\n\n /* These are the expected fontsizes of the text 'DataDigger' */\n cFontSize[1] = '70/14'. /* font0 */\n cFontSize[2] = '54/13'. /* font1 */\n cFontSize[3] = '70/14'. /* font2 */\n cFontSize[4] = '70/14'. /* font3 */\n cFontSize[5] = '54/13'. /* font4 */\n cFontSize[6] = '70/16'. /* font5 */\n cFontSize[7] = '65/13'. /* font6 */\n cFontSize[8] = '54/13'. /* font7 */\n\n checkFont:\n DO i = 0 TO 7:\n IF cFontSize[i + 1] \u003c\u003e SUBSTITUTE('\u00261/\u00262'\n , FONT-TABLE:GET-TEXT-WIDTH-PIXELS('DataDigger',i)\n , FONT-TABLE:GET-TEXT-HEIGHT-PIXELS(i)\n ) THEN RETURN TRUE.\n END. /* checkFont */\n\n RETURN FALSE.\n\nEND FUNCTION. /* isDefaultFontsChanged */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isFileLocked) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isFileLocked Procedure\nFUNCTION isFileLocked RETURNS LOGICAL\n ( pcFileName AS CHARACTER ) :\n /* Check whether a file is locked on the file system\n */\n DEFINE VARIABLE iFileHandle AS INTEGER NO-UNDO.\n {\u0026_proparse_prolint-nowarn(varusage)}\n DEFINE VARIABLE nReturn AS INTEGER NO-UNDO.\n\n /* Try to lock the file agains writing */\n RUN CreateFileA ( INPUT pcFileName\n , INPUT {\u0026GENERIC_WRITE}\n , {\u0026FILE_SHARE_READ}\n , 0\n , {\u0026OPEN_EXISTING}\n , {\u0026FILE_ATTRIBUTE_NORMAL}\n , 0\n , OUTPUT iFileHandle\n ).\n\n /* Release file handle */\n {\u0026_proparse_prolint-nowarn(varusage)}\n RUN CloseHandle (INPUT iFileHandle, OUTPUT nReturn).\n\n RETURN (iFileHandle = -1).\n\nEND FUNCTION. /* isFileLocked */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isMouseOver) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isMouseOver Procedure\nFUNCTION isMouseOver RETURNS LOGICAL\n ( phWidget AS HANDLE ) :\n /* Return whether the mouse is currently over a certain widget\n */\n DEFINE VARIABLE iMouseX AS INTEGER NO-UNDO.\n DEFINE VARIABLE iMouseY AS INTEGER NO-UNDO.\n\n IF NOT VALID-HANDLE(phWidget) THEN RETURN FALSE.\n RUN getMouseXY(INPUT phWidget:FRAME, OUTPUT iMouseX, OUTPUT iMouseY).\n\n RETURN ( iMouseX \u003e= phWidget:X\n AND iMouseX \u003c= phWidget:X + phWidget:WIDTH-PIXELS\n AND iMouseY \u003e= phWidget:Y\n AND iMouseY \u003c= phWidget:Y + phWidget:HEIGHT-PIXELS ).\n\nEND FUNCTION. /* isMouseOver */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isTableFilterUsed) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isTableFilterUsed Procedure\nFUNCTION isTableFilterUsed RETURNS LOGICAL\n ( INPUT TABLE ttTableFilter ) :\n /* Returns whether any setting is used for table filtering\n */\n FIND ttTableFilter NO-ERROR.\n IF NOT AVAILABLE ttTableFilter THEN RETURN FALSE.\n\n /* Main toggles */\n IF ttTableFilter.lShowNormal = FALSE\n OR ttTableFilter.lShowSchema \u003c\u003e LOGICAL(getRegistry('DataDigger','ShowHiddenTables'))\n OR ttTableFilter.lShowVst = TRUE\n OR ttTableFilter.lShowSql = TRUE\n OR ttTableFilter.lShowOther = TRUE\n OR ttTableFilter.lShowHidden = TRUE\n OR ttTableFilter.lShowFrozen = TRUE THEN RETURN TRUE.\n\n /* Show these tables */\n IF ttTableFilter.cTableNameShow \u003c\u003e ?\n AND ttTableFilter.cTableNameShow \u003c\u003e ''\n AND ttTableFilter.cTableNameShow \u003c\u003e '*' THEN RETURN TRUE.\n\n /* But hide these */\n IF ttTableFilter.cTableNameHide \u003c\u003e ?\n AND ttTableFilter.cTableNameHide \u003c\u003e '' THEN RETURN TRUE.\n\n /* Show only tables that contain all of these fields */\n IF ttTableFilter.cTableFieldShow \u003c\u003e ?\n AND ttTableFilter.cTableFieldShow \u003c\u003e ''\n AND ttTableFilter.cTableFieldShow \u003c\u003e '*' THEN RETURN TRUE.\n\n /* But hide tables that contain any of these */\n IF ttTableFilter.cTableFieldHide \u003c\u003e ?\n AND ttTableFilter.cTableFieldHide \u003c\u003e '' THEN RETURN TRUE.\n\n /* else */\n RETURN FALSE.\n\nEND FUNCTION. /* isTableFilterUsed */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isValidCodePage) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isValidCodePage Procedure\nFUNCTION isValidCodePage RETURNS LOGICAL\n (pcCodepage AS CHARACTER):\n /* Returns whether pcCodePage is valid\n */\n {\u0026_proparse_prolint-nowarn(varusage)}\n DEFINE VARIABLE cDummy AS LONGCHAR NO-UNDO.\n\n IF pcCodePage = ''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"FIX"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"CODEPAGE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cDummy"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcCodepage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ERROR-STATUS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* isValidCodePage */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-readFile) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION readFile Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"readFile"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LONGCHAR\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFilename"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Read contents of a file as a longchar.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cContent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LONGCHAR "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SEARCH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFilename"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FROM"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcFilename"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IMPORT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"UNFORMATTED"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cContent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cContent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringDouble","value":"\"~n\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CLOSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cContent"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* readFile */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-removeConnection) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION removeConnection Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"removeConnection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Remove record from connection temp-table\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLogicalName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfDatabase"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* removeConnection */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resolveOsVars) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION resolveOsVars Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"resolveOsVars"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Return a string with OS vars resolved\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-UNDO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NUM-ENTRIES"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcString,"},
|
|
{"type":"LiteralStringSingle","value":"'%'):\n IF i MODULO 2 = 0\n AND OS-GETENV(ENTRY(i,pcString,'%')) \u003c\u003e ? THEN\n ENTRY(i,pcString,'%') = OS-GETENV(ENTRY(i,pcString,'%')).\n END.\n\n pcString = REPLACE(pcString,'%','').\n RETURN pcString.\nEND FUNCTION. /* resolveOsVars */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resolveSequence) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION resolveSequence Procedure\nFUNCTION resolveSequence RETURNS CHARACTER\n ( pcString AS CHARACTER ) :\n /* Return a string where sequence nr for file is resolved\n */\n DEFINE VARIABLE iFileNr AS INTEGER NO-UNDO.\n DEFINE VARIABLE cSeqMask AS CHARACTER NO-UNDO .\n DEFINE VARIABLE cSeqFormat AS CHARACTER NO-UNDO .\n DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO.\n\n cFileName = pcString.\n\n /* User can specify a sequence for the file. The length of\n * the tag sets the format: \u003c###\u003e translates to a 3-digit nr\n * Special case is \u003c#\u003e which translates to no leading zeros\n */\n IF INDEX(cFileName,'\u003c#') \u003e 0\n AND index(cFileName,'#\u003e') \u003e 0 THEN\n DO:\n cSeqMask = SUBSTRING(cFileName,INDEX(cFileName,'\u003c#')). /* \u003c#####\u003etralalala */\n cSeqMask = SUBSTRING(cSeqMask,1,INDEX(cSeqMask,'\u003e')). /* \u003c#####\u003e */\n cSeqFormat = TRIM(cSeqMask,'\u003c\u003e'). /* ##### */\n cSeqFormat = REPLACE(cSeqFormat,'#','9').\n IF cSeqFormat = '9' THEN cSeqFormat = '\u003e\u003e\u003e\u003e\u003e\u003e\u003e\u003e\u003e9'.\n\n setFileNr:\n REPEAT:\n iFileNr = iFileNr + 1.\n IF SEARCH(REPLACE(cFileName,cSeqMask,TRIM(STRING(iFileNr,cSeqFormat)))) = ? THEN\n DO:\n cFileName = REPLACE(cFileName,cSeqMask,TRIM(STRING(iFileNr,cSeqFormat))).\n LEAVE setFileNr.\n END.\n END.\n END.\n\n RETURN cFileName.\n\nEND FUNCTION. /* resolveSequence */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setColor) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setColor Procedure\nFUNCTION setColor RETURNS INTEGER\n ( pcName AS CHARACTER\n , piColor AS INTEGER) :\n /* Set color nr in the color tt\n */\n DEFINE BUFFER bColor FOR ttColor.\n\n FIND bColor WHERE bColor.cName = pcName NO-ERROR.\n IF NOT AVAILABLE bColor THEN\n DO:\n CREATE bColor.\n ASSIGN bColor.cName = pcName.\n END.\n\n /* Set to default value from settings */\n IF piColor = ? THEN\n DO:\n piColor = INTEGER(getRegistry('DataDigger:Colors', pcName)) NO-ERROR.\n IF ERROR-STATUS:ERROR THEN piColor = ?.\n END.\n\n bColor.iColor = piColor.\n RETURN bColor.iColor.\n\nEND FUNCTION. /* setColor */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setColumnWidthList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setColumnWidthList Procedure\nFUNCTION setColumnWidthList RETURNS LOGICAL\n ( INPUT phBrowse AS HANDLE\n , INPUT pcWidthList AS CHARACTER):\n /* Set all specified columns in pcWidthList to a specified width\n */\n DEFINE VARIABLE cColumnName AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cListItem AS CHARACTER NO-UNDO.\n DEFINE VARIABLE hColumn AS HANDLE NO-UNDO.\n DEFINE VARIABLE iColumnWidth AS INTEGER NO-UNDO.\n DEFINE VARIABLE i AS INTEGER NO-UNDO.\n DEFINE VARIABLE j AS INTEGER NO-UNDO.\n\n DO i = 1 TO NUM-ENTRIES(pcWidthList):\n cListItem = ENTRY(i,pcWidthList).\n cColumnName = ENTRY(1,cListItem,':') NO-ERROR.\n iColumnWidth = INTEGER(ENTRY(2,cListItem,':'"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"j"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-COLUMNS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"j"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NAME "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cColumnName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iColumnWidth"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* j */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* i */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* setColumnWidthList */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setLinkInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setLinkInfo Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Save name/value of a field.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttLinkInfo"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringDouble","value":"\"debugInfo\""},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringDouble","value":"\"Set linkinfo for field \u00261 to \u00262\""},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cField"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFieldName"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"bLinkInfo"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Function return value. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* setLinkInfo */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setRegistry Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURNS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcKey"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AS"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"CHARACTER\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Set a value in the registry.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcKey"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSection"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcKey"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"glDirtyCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DELETE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"glDirtyCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lUser"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"glDirtyCache"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringDouble","value":"\"\""},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* Function return value. */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStop}"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FUNCTION"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* setRegistry */"},
|
|
{"type":"Text","value":"\n\n"},
|
|
{"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"},
|
|
{"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF"}
|
|
]
|