mirror of
https://github.com/alecthomas/chroma.git
synced 2025-02-15 13:33:12 +02:00
23923 lines
996 KiB
Plaintext
23923 lines
996 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'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getUserName"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"UNLOAD "},
|
|
{"type":"LiteralStringSingle","value":"'DataDiggerHelp'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"UNLOAD "},
|
|
{"type":"LiteralStringSingle","value":"'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'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* action */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* database */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* table */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"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":"\"\\\")).\n IF cDumpDir = '' THEN cDumpDir = '.'.\n\n /* We cannot use the program dir itself */\n FILE-INFO:FILE-NAME = cDumpDir.\n IF TRIM(FILE-INFO:FULL-PATHNAME,'\\/') = TRIM(getProgramDir(),\""},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringDouble","value":"\") THEN\n DO:\n pcError = getRegistry('DataDigger:Help', 'ExportToProgramdir:message').\n RETURN.\n END.\n\n PUBLISH \""},
|
|
{"type":"NameVariable","value":"debugInfo"},
|
|
{"type":"LiteralStringDouble","value":"\" (3, SUBSTITUTE(\""},
|
|
{"type":"KeywordReserved","value":"Dir "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"CommentPreproc","value":" \u00261\", cDumpDir))."},
|
|
{"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*'"},
|
|
{"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":"'OverwriteDumpFile'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'OverwriteDumpFile:answer'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","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":"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'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'OverwriteDumpFile:answer'"},
|
|
{"type":"NameVariable","value":",?"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Aborted by user.'"},
|
|
{"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":"/* Write access to this file? */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"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":"'*W*'"},
|
|
{"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":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'Cannot overwrite output file \"\u00261\"'"},
|
|
{"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":"/* If a dir already exists with the same name as the output file, we cannot create it */"},
|
|
{"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":"'*D*'"},
|
|
{"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":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'A directory named \"\u00261\" exists; cannot create a file with the same name.'"},
|
|
{"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'"},
|
|
{"type":"NameVariable","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":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'CreateDumpDir:answer'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","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":"NameVariable","value":"pcError"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Aborted by user.'"},
|
|
{"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":"/* Try to create path + file. Progress will not raise an error if it already exists */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cDirToCreate"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":",cDumpDir,"},
|
|
{"type":"LiteralStringSingle","value":"'\\').\n DO iDir = 2 TO NUM-ENTRIES(cDumpDir,'"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"').\n\n /* In which dir do we want to create a subdir? */\n IF iDir = 2 THEN\n FILE-INFO:FILE-NAME = cDirToCreate + '"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"'.\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":"LiteralStringSingle","value":"', cDirToCreate).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Error: \u00261\", pcError)).\n RETURN.\n END.\n\n /* Check if the dir is writable */\n IF FILE-INFO:FILE-TYPE MATCHES '"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"KeywordReserved","value":"X"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"LiteralStringSingle","value":"' /* Happens on CD-ROM drives */\n OR ( FILE-INFO:FILE-TYPE MATCHES '"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"NameVariable","value":"D"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"LiteralStringSingle","value":"'\n AND NOT FILE-INFO:FILE-TYPE MATCHES '"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"NameVariable","value":"W"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"LiteralStringSingle","value":"' ) 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":"LiteralStringSingle","value":"', cDirToCreate).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Error: \u00261\", pcError)).\n RETURN.\n END.\n\n /* Seems to exist and to be writable. */\n cDirToCreate = cDirToCreate + '"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"' + ENTRY(iDir,cDumpDir,'"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"').\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 '"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"NameVariable","value":"F"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"LiteralStringSingle","value":"' 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":"LiteralStringSingle","value":"', cDirToCreate).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Error: \u00261\", pcError)).\n RETURN.\n END.\n\n /* Create the dir. Creating an existing dir gives no error */\n OS-CREATE-DIR value(cDirToCreate).\n IF OS-ERROR \u003c\u003e 0 THEN\n DO:\n pcError = getOsErrorDesc(OS-ERROR).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Error: \u00261\", pcError)).\n RETURN.\n END. /* error */\n\n END. /* iDir */\n\nEND PROCEDURE. /* checkDir */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearColorCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearColorCache Procedure\nPROCEDURE clearColorCache :\n/* Clear the registry cache\n */\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing color cache\")).\n EMPTY TEMP-TABLE ttColor.\n\nEND PROCEDURE. /* clearColorCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearDiskCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearDiskCache Procedure\nPROCEDURE clearDiskCache :\n/* Clear the cache files on disk\n */\n DEFINE VARIABLE cFile AS CHARACTER NO-UNDO EXTENT 3.\n\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing disk cache\")).\n\n FILE-INFORMATION:FILE-NAME = getWorkFolder() + \"cache\".\n IF FILE-INFORMATION:FULL-PATHNAME = ? THEN RETURN.\n\n INPUT FROM OS-DIR(FILE-INFORMATION:FULL-PATHNAME).\n REPEAT:\n IMPORT cFile.\n IF cFile[1] MATCHES \"*.xml\" THEN OS-DELETE VALUE( cFile[2]).\n END.\n INPUT CLOSE.\n\nEND PROCEDURE. /* clearDiskCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearFontCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearFontCache Procedure\nPROCEDURE clearFontCache :\n/* Clear the font cache\n */\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing font cache\")).\n EMPTY TEMP-TABLE ttFont.\n\nEND PROCEDURE. /* clearFontCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearMemoryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearMemoryCache Procedure\nPROCEDURE clearMemoryCache :\n/* Clear the memory cache\n */\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing memory cache\")).\n EMPTY TEMP-TABLE ttFieldCache.\n\nEND PROCEDURE. /* clearMemoryCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearRegistryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearRegistryCache Procedure\nPROCEDURE clearRegistryCache :\n/* Clear the registry cache\n */\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing registry cache\")).\n EMPTY TEMP-TABLE ttConfig.\n\nEND PROCEDURE. /* clearRegistryCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-collectQueryInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE collectQueryInfo Procedure\nPROCEDURE collectQueryInfo :\n/* Fill the query temp-table\n */\n DEFINE INPUT PARAMETER pcDatabase AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER pcTable AS CHARACTER NO-UNDO.\n\n DEFINE VARIABLE iMaxQueryHistory AS INTEGER NO-UNDO.\n DEFINE VARIABLE iQueryNr AS INTEGER NO-UNDO.\n DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.\n DEFINE VARIABLE cSetting AS CHARACTER NO-UNDO.\n\n DEFINE BUFFER bQuery FOR ttQuery.\n {\u0026timerStart}\n\n /* Delete all known queries in memory of this table */\n FOR EACH bQuery\n WHERE bQuery.cDatabase = pcDatabase\n AND bQuery.cTable = pcTable:\n DELETE bQuery.\n END.\n\n iMaxQueryHistory = INTEGER(getRegistry(\"DataDigger\", \"MaxQueryHistory\" )).\n IF iMaxQueryHistory = 0 THEN RETURN. /* no query history wanted */\n\n /* If it is not defined use default setting */\n IF iMaxQueryHistory = ? THEN iMaxQueryHistory = 10.\n\n collectQueries:\n DO iLoop = 1 TO iMaxQueryHistory:\n cSetting = getRegistry( SUBSTITUTE(\"DB:\u00261\", pcDatabase)\n , SUBSTITUTE('"},
|
|
{"type":"CommentPreproc","value":"\u00261:query:\u00262', pcTable, iLoop ))."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'\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":"','"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iWord,pcPositive"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'!'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* And wipe it from the positive-list */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iWord,pcPositive"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","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":"/* Remove empty elements */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcPositive"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcPositive,"},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHILE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcPositive,"},
|
|
{"type":"LiteralStringSingle","value":"',,'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"pcPositive"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcPositive,"},
|
|
{"type":"LiteralStringSingle","value":"',,'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","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":"KeywordReserved","value":"END"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* correctFilterList */"},
|
|
{"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-createFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE createFolder Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"createFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Create a folder structure\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":"pcFolder"},
|
|
{"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":"iElement"},
|
|
{"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":"cPath"},
|
|
{"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":"/* c:\\temp\\somefolder\\subfolder\\ */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iElement"},
|
|
{"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":"pcFolder,"},
|
|
{"type":"LiteralStringSingle","value":"'\\'):\n cPath = SUBSTITUTE('"},
|
|
{"type":"CommentPreproc","value":"\u00261\\\u00262', cPath, ENTRY(iElement,pcFolder,'\\'))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cPath"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LEFT-TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cPath,"},
|
|
{"type":"LiteralStringSingle","value":"'\\').\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,'"},
|
|
{"type":"KeywordReserved","value":"Dump"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"Create"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"Update"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"Delete"},
|
|
{"type":"LiteralStringSingle","value":"') = 0 THEN\n DO:\n MESSAGE '"},
|
|
{"type":"NameVariable","value":"Unknown"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"action"},
|
|
{"type":"LiteralStringSingle","value":"' 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 '"},
|
|
{"type":"KeywordReserved","value":"buffer"},
|
|
{"type":"LiteralStringSingle","value":"' THEN\n DO:\n hBuffer = phSource.\n\n /* Create temptable-handle... */\n CREATE TEMP-TABLE hExportTt.\n hExportTt:CREATE-LIKE(SUBSTITUTE(\"\u00261.\u00262\", hBuffer:DBNAME, hBuffer:TABLE)).\n\n /* Prepare the TempTable... */\n hExportTt:TEMP-TABLE-PREPARE(SUBSTITUTE(\"\u00261\", hBuffer:TABLE)).\n hExportTtBuffer = hExportTt:DEFAULT-BUFFER-HANDLE.\n hExportTtBuffer:BUFFER-CREATE().\n hExportTtBuffer:BUFFER-COPY(hBuffer).\n END.\n\n WHEN '"},
|
|
{"type":"KeywordReserved","value":"browse"},
|
|
{"type":"LiteralStringSingle","value":"' THEN\n DO:\n hBuffer = phSource:QUERY:GET-BUFFER-HANDLE(1).\n\n /* Create temptable-handle... */\n CREATE TEMP-TABLE hExportTt.\n hExportTt:CREATE-LIKE(SUBSTITUTE(\"\u00261.\u00262\", hBuffer:DBNAME, hBuffer:TABLE)).\n\n /* Prepare the TempTable... */\n hExportTt:TEMP-TABLE-PREPARE(SUBSTITUTE(\"\u00261\", hBuffer:TABLE)).\n hExportTtBuffer = hExportTt:DEFAULT-BUFFER-HANDLE.\n\n /* Copy the records */\n DO iRow = 1 TO phSource:NUM-SELECTED-ROWS:\n phSource:FETCH-SELECTED-ROW(iRow).\n hExportTtBuffer:BUFFER-CREATE().\n hExportTtBuffer:BUFFER-COPY(hBuffer).\n END.\n END.\n\n OTHERWISE RETURN.\n END CASE.\n\n /* Do we need to dump at all?\n * If the setting=NO or if no setting at all, then don'"},
|
|
{"type":"NameVariable","value":"t"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"do"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"any"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"checks"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Operator","value":"*/"},
|
|
{"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'"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Backup'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'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":"NameVariable","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":"LiteralStringSingle","value":"'DataDigger:Backup'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'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":"' '"},
|
|
{"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":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"EXTENT "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"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":"hField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"EXTENT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"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":"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":"' '"},
|
|
{"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'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Mon'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Tue'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Wed'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Thu'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Fri'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'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":"'/\\') + '"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"'.\n IF cDumpDir = ? OR cDumpDir = '' THEN cDumpDir = \"\u003cWORKDIR\u003edump\\\".\n\n cBackupDir = RIGHT-TRIM(getRegistry(\"DataDigger:Backup\", \"BackupDir\"),'"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"') + '"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"'.\n IF cBackupDir = ? OR cBackupDir = '' THEN cBackupDir = \"\u003cWORKDIR\u003ebackup\\\".\n\n cLastDir = RIGHT-TRIM(getRegistry(\"DumpAndLoad\", \"DumpLastFileName\"),'"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"').\n cLastDir = SUBSTRING(cLastDir,1,R-INDEX(cLastDir,\"\\\")).\n IF cLastDir = ? THEN cLastDir = \"\u003cWORKDIR\u003edump\".\n cLastDir = RIGHT-TRIM(cLastDir,'"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"').\n\n /* Find _file for the dump-name */\n CREATE BUFFER hBuffer FOR TABLE SUBSTITUTE('"},
|
|
{"type":"CommentPreproc","value":"\u00261._file', pcDatabase) NO-ERROR."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"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":"hBuffer"},
|
|
{"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":"pcTable"},
|
|
{"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":"hBuffer"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBuffer"},
|
|
{"type":"Punctuation","value":"::"},
|
|
{"type":"NameVariable","value":"_dump"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"name"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"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":"cDumpName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDumpName"},
|
|
{"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":"cDumpName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If you have no db connected, userid gives back unknown value\n * which misbehaves in a replace statement */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cUserId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"USERID"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"LDBNAME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserId"},
|
|
{"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":"cUserId"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","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":"\"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":"NameVariable","value":"\\\\"},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"').\n\n /* Sequences */\n pcFileName = resolveSequence(pcFileName).\n\n /* OS-vars */\n pcFileName = resolveOsVars(pcFileName).\n\n /* Make lower */\n pcFileName = LC(pcFileName).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Dump to: \u00261\", pcFileName)).\n\nEND PROCEDURE. /* getDumpFileName */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFavourites) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getFavourites Procedure\nPROCEDURE getFavourites :\n/* Extract favourites from config table into own tt\n*/\n DEFINE OUTPUT PARAMETER TABLE FOR ttFavGroup.\n\n DEFINE BUFFER bfConfig FOR ttConfig.\n DEFINE BUFFER btFavGroup FOR ttFavGroup.\n\n EMPTY TEMP-TABLE ttFavGroup.\n\n FOR EACH bfConfig\n WHERE bfConfig.cSection = '"},
|
|
{"type":"NameVariable","value":"DataDigger"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"NameVariable","value":"Favourites"},
|
|
{"type":"LiteralStringSingle","value":"'\n AND bfConfig.cSetting \u003e \"\":\n\n CREATE btFavGroup.\n ASSIGN\n btFavGroup.cGroup = bfConfig.cSetting\n btFavGroup.cTables = bfConfig.cValue.\n END.\n\n /* If no groups are found, create a default one */\n IF NOT CAN-FIND(FIRST btFavGroup) THEN\n DO:\n CREATE btFavGroup.\n ASSIGN btFavGroup.cGroup = '"},
|
|
{"type":"NameVariable","value":"MyFavourites"},
|
|
{"type":"LiteralStringSingle","value":"'.\n END.\n\nEND PROCEDURE. /* getFavourites */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getFields Procedure\nPROCEDURE getFields :\n/* Fill the fields temp-table\n */\n DEFINE INPUT PARAMETER pcDatabase AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER pcTableName AS CHARACTER NO-UNDO.\n DEFINE OUTPUT PARAMETER DATASET FOR dsFields.\n\n DEFINE VARIABLE cCacheFile AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cPrimIndexFields AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cQuery AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cSelectedFields AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cUniqueIndexFields AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cSDBName AS CHARACTER NO-UNDO.\n DEFINE VARIABLE hBufferField AS HANDLE NO-UNDO.\n DEFINE VARIABLE hBufferFile AS HANDLE NO-UNDO.\n DEFINE VARIABLE hQuery AS HANDLE NO-UNDO.\n DEFINE VARIABLE iFieldExtent AS INTEGER NO-UNDO.\n DEFINE VARIABLE iFieldOrder AS INTEGER NO-UNDO.\n DEFINE VARIABLE lDataField AS LOGICAL NO-UNDO.\n DEFINE VARIABLE iDataOrder AS INTEGER NO-UNDO.\n DEFINE VARIABLE i AS INTEGER NO-UNDO.\n\n DEFINE BUFFER bTable FOR ttTable.\n DEFINE BUFFER bField FOR ttField.\n DEFINE BUFFER bColumn FOR ttColumn.\n DEFINE BUFFER bFieldCache FOR ttFieldCache.\n DEFINE BUFFER bColumnCache FOR ttColumnCache.\n DEFINE BUFFER bTableFilter FOR ttTableFilter.\n\n {\u0026timerStart}\n\n /* Clean up first */\n EMPTY TEMP-TABLE bField.\n EMPTY TEMP-TABLE bColumn.\n\n /* For dataservers, use the schema name [dataserver] */\n ASSIGN cSDBName = SDBNAME(pcDatabase).\n\n /* Return if no db connected */\n IF NUM-DBS = 0 THEN RETURN.\n\n /* caching */\n IF glCacheFieldDefs THEN\n DO:\n /* Find the table. Should exist. */\n FIND bTable WHERE bTable.cDatabase = pcDatabase AND bTable.cTableName = pcTableName NO-ERROR.\n IF NOT AVAILABLE bTable THEN RETURN.\n\n /* Verify whether the CRC is still the same. If not, kill the cache */\n PUBLISH \"DD:Timer\" (\"start\", '"},
|
|
{"type":"NameVariable","value":"getFields"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"step"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"verify"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"CRC"},
|
|
{"type":"LiteralStringSingle","value":"').\n CREATE BUFFER hBufferFile FOR TABLE cSDBName + \"._File\".\n\n hBufferFile:FIND-UNIQUE(SUBSTITUTE('"},
|
|
{"type":"KeywordReserved","value":"where"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"_file"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"name"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"CommentPreproc","value":" \u00261 and _File._File-Number \u003c 32768', QUOTER(pcTableName)),NO-LOCK)."},
|
|
{"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'"},
|
|
{"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":"/* See if disk cache exists */"},
|
|
{"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":"LiteralStringSingle","value":"'\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":"'*'"},
|
|
{"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"},
|
|
{"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":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_field-name'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n\n "},
|
|
{"type":"Text","value":" "},
|
|
{"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":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_field-name'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"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":"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\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFullName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_field-name'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDataType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_data-type'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cInitial"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_initial'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"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":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_format'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFormatOrg"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_format'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iWidth"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_width'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_label'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lPrimary"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cPrimIndexFields,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iExtent"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_Extent'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lMandatory"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_mandatory'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lUniqueIdx"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CAN-DO"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cUniqueIndexFields,bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cFieldName"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* New fields as per v19 */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cColLabel"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_Col-label'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"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":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_Decimals'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFieldRpos"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_Field-rpos'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValExp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_ValExp'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cValMsg"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_ValMsg'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cHelp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_Help'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cDesc"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_Desc'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"BUFFER-VALUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cViewAs"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hBufferField"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'_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'"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"bField"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cInitial"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"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":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cNameShow"},
|
|
{"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":"cNameShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'*'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cNameHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'*'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cNameHide"},
|
|
{"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":"cNameHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'*'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldShow"},
|
|
{"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":"cFieldShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'*'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFieldHide"},
|
|
{"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":"cFieldHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"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'"},
|
|
{"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":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lSchema"},
|
|
{"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":"'Schema'"},
|
|
{"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":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lVst"},
|
|
{"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":"'VST'"},
|
|
{"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":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lSql"},
|
|
{"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":"'SQL'"},
|
|
{"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":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lOther"},
|
|
{"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":"'Other'"},
|
|
{"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":"/* 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 */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lHidden"},
|
|
{"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":"'Application'"},
|
|
{"type":"Text","value":" "},
|
|
{"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":"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 "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lFrozen"},
|
|
{"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":"'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'"},
|
|
{"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":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SEARCH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cIniFile"},
|
|
{"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\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":"cIniFile"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"#ReadLine"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Sometimes lines get screwed up and are waaaay too long\n * for the import statement. So just ignore those.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IMPORT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"UNFORMATTED"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"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":"KeywordReserved","value":"NEXT "},
|
|
{"type":"NameVariable","value":"#ReadLine"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Find DB sections */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cLine"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringSingle","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":"NameVariable","value":"cSection"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cLine,"},
|
|
{"type":"LiteralStringSingle","value":"'[]'"},
|
|
{"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":"':'"},
|
|
{"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":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"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":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iNumQueries"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":",cLine,"},
|
|
{"type":"LiteralStringSingle","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":"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":"':'"},
|
|
{"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":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTable"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"tLastUsed"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"DATETIME"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":",cLine,"},
|
|
{"type":"LiteralStringSingle","value":"'='"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* lastUsed */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* repeat */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CLOSE"},
|
|
{"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":"/* getTableStats */"},
|
|
{"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-initTableFilter) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initTableFilter Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"initTableFilter"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Set table filter values back to their initial values\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":"ttTableFilter"},
|
|
{"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":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Set visibility of schema tables */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowSchema"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'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'"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringSingle","value":"'*:hidden'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bfConfig"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringSingle","value":"'*: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'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"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":"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":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Window:x'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"50"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"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:y'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"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":"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":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Window:y'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"50"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"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":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"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:height'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"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":"iValue"},
|
|
{"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":"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":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Window:height'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"100"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HEIGHT-PIXELS "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"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:width'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"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":"iValue"},
|
|
{"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":"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":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Window:width'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"100"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Force a redraw */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"APPLY "},
|
|
{"type":"LiteralStringSingle","value":"'window-resized'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWindow"},
|
|
{"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":"/* restoreWindowPos */"},
|
|
{"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-saveConfigFileSorted) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveConfigFileSorted Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"saveConfigFileSorted"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Save settings file sorted\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserConfigFile"},
|
|
{"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":"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":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Clean up rubbish settings data */"},
|
|
{"type":"Text","value":"\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":"cSetting"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"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":"?"},
|
|
{"type":"Text","value":"\n "},
|
|
{"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":"LiteralStringSingle","value":"''"},
|
|
{"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'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"CHR"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"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":"CommentPreproc","value":"{\u0026QUERYSEP}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"CHR"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cQuery"},
|
|
{"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":"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":"''"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"LOOKUP"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcTable,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Toggle setting? */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plFavourite"},
|
|
{"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":"plFavourite"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Add to favourites */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plFavourite"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"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":"i,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cList,"},
|
|
{"type":"LiteralStringSingle","value":"',,'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cList,"},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Remove from favourites */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plFavourite"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"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":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\u00261,\u00262'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cList,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTable"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"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'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"5"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"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":"/* setLabelPosition */"},
|
|
{"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-setSortArrow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setSortArrow Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setSortArrow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Set the sorting arrow on a browse\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":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcSortField"},
|
|
{"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":"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":"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":"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":"lSortFound"},
|
|
{"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":"{\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 "},
|
|
{"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\n "},
|
|
{"type":"CommentMultiline","value":"/* If you apply the sort to the same column, the order\n * of sorting is inverted.\n */"},
|
|
{"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":"pcSortField"},
|
|
{"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":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-SORT-ARROW"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iColumn,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plAscending"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lSortFound"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Setting is one of: ColumnSortFields | ColumnSortIndexes | ColumnSortTables */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'ColumnSort\u00261'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\u00261,\u00262'"},
|
|
{"type":"NameVariable","value":",iColumn,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plAscending"},
|
|
{"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 "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"SET-SORT-ARROW"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iColumn,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* erase existing arrow */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If no sort is found, delete setting */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lSortFound"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'ColumnSort\u00261'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phBrowse"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"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":"/* setSortArrow */"},
|
|
{"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-setTransparency) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setTransparency Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setTransparency"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Set transparency level for a frame, using Windows api\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":"INPUT "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"PARAMETER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piLevel"},
|
|
{"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":"CommentPreproc","value":"\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"},
|
|
{"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":"stat"},
|
|
{"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":"/* Set WS_EX_LAYERED on this window */"},
|
|
{"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":"SetWindowLongA"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phFrame"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026GWL_EXSTYLE}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026WS_EX_LAYERED}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"stat"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Make this window transparent (0 - 255) */"},
|
|
{"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":"SetLayeredWindowAttributes"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phFrame"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HWND"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piLevel,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026LWA_ALPHA}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"stat"},
|
|
{"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":"/* setTransparency */"},
|
|
{"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-setXmlNodeNames) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setXmlNodeNames Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setXmlNodeNames"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Set the XML-NODE-NAMES of all fields in a buffer\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":"phTable"},
|
|
{"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":"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\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":"phTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NUM-FIELDS"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"phTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"NameVariable","value":"XML"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"NODE"},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"NameVariable","value":"NAME"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getXmlNodeName"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phTable"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"BUFFER-FIELD"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iField"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"KeywordReserved","value":"NAME"},
|
|
{"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":"/* setXmlNodeNames */"},
|
|
{"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-showHelp) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE showHelp Procedure"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"KeywordReserved","value":"PROCEDURE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"showHelp"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n"},
|
|
{"type":"CommentMultiline","value":"/* Show a help message and save answer to ini\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":"pcTopic"},
|
|
{"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":"pcStrings"},
|
|
{"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":"cButtons"},
|
|
{"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":"cMessage"},
|
|
{"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":"cPrg"},
|
|
{"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":"cTitle"},
|
|
{"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":"cType"},
|
|
{"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":"cUrl"},
|
|
{"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":"cCanHide"},
|
|
{"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":"iButtonPressed"},
|
|
{"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":"lDontShowAgain"},
|
|
{"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":"lCanHide"},
|
|
{"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":"iString"},
|
|
{"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":"cUserString"},
|
|
{"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":"9"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If no message, then just return */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':message'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* What to start? */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cUrl"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':url'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cPrg"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':program'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cCanHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':canHide'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cCanHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cCanHide"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lCanHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cCanHide"},
|
|
{"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":"lCanHide"},
|
|
{"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":"lCanHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":" "},
|
|
{"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":"NameVariable","value":"cUrl"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cPrg"},
|
|
{"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":"NameVariable","value":"lHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"YES"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* suppress empty text window */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iButtonPressed"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* forces to start the url or prog */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If type is unknown, set to QUESTION if there is a question mark in the message */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':type'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cType"},
|
|
{"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":"cType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MATCHES "},
|
|
{"type":"LiteralStringSingle","value":"'*?*'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN "},
|
|
{"type":"LiteralStringSingle","value":"'Question'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE "},
|
|
{"type":"LiteralStringSingle","value":"'Message'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If no button labels defined, set them based on message type */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cButtons"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':buttons'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cButtons"},
|
|
{"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":"cButtons"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cType"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'Question'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN "},
|
|
{"type":"LiteralStringSingle","value":"'\u0026Yes,\u0026No,\u0026Cancel'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ELSE "},
|
|
{"type":"LiteralStringSingle","value":"'\u0026Ok'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If title is empty, set it to the type of the message */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cTitle"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':title'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTitle"},
|
|
{"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":"cTitle"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cType"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If hidden has strange value, set it to NO */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"lHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':hidden'"},
|
|
{"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":"lHidden"},
|
|
{"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":"lHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If ButtonPressed has strange value, set hidden to NO */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iButtonPressed"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":",pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':answer'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","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":"NameVariable","value":"iButtonPressed"},
|
|
{"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":"lHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* if we have no message, but we do have an URL or prog, then\n * dont show an empty message box.\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ASSIGN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"YES "},
|
|
{"type":"CommentMultiline","value":"/* suppress empty text window */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iButtonPressed"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* forces to start the url or prog */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Fill in strings in message */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"DO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iString"},
|
|
{"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":"pcStrings"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cUserString[iString]"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iString,pcStrings"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"3"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"4"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"5"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"6"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"7"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"8"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUserString["},
|
|
{"type":"LiteralNumberInteger","value":"9"},
|
|
{"type":"NameVariable","value":"]"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* If not hidden, show the message and let the user choose an answer */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lHidden"},
|
|
{"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":"KeywordReserved","value":"VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getProgramDir"},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'dQuestion.w'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cTitle"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cMessage"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cButtons"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lCanHide"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iButtonPressed"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lDontShowAgain"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"lDontShowAgain"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':hidden'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'yes'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Start external things if needed */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iButtonPressed"},
|
|
{"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":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cUrl"},
|
|
{"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":"OS-COMMAND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-WAIT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"START "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cUrl"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cPrg"},
|
|
{"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":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALUE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cPrg"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"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":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Save answer */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"setRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Help'"},
|
|
{"type":"NameVariable","value":",pcTopic"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"':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,*'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Get field ordering */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cFieldOrder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DB:\u00261'"},
|
|
{"type":"NameVariable","value":",pcDatabase"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\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'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringSingle","value":"'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'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"PUBLISH "},
|
|
{"type":"LiteralStringSingle","value":"'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":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cReturnValue"},
|
|
{"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":"CommentMultiline","value":"/* There might be chr(1) chars in the text (if read from ini, for example)\n * Replace these with normal CRLF, then proceed\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cReturnValue,"},
|
|
{"type":"KeywordReserved","value":"CHR"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'~n'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"plExpanded"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cReturnValue,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026QUERYSEP}"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'~n'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ELSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cReturnValue"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cReturnValue,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'~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'"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cWidthList"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"NAME\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"hColumn"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"WIDTH-PIXELS\n "},
|
|
{"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":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cWidthList,"},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"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'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaHolders"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSchemaHolders"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"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'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"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":"Operator","value":"-"},
|
|
{"type":"LiteralNumberInteger","value":"80"},
|
|
{"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":"0"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringSingle","value":"'Schema'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piFileNumber"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"LiteralNumberInteger","value":"16384"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringSingle","value":"'VST'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BEGINS "},
|
|
{"type":"LiteralStringSingle","value":"'_sys'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringSingle","value":"'SQL'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piFileNumber"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"LiteralNumberInteger","value":"16384"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piFileNumber"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"LiteralNumberInteger","value":"80"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringSingle","value":"'Other'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"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":"/* getFileCategory */"},
|
|
{"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 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":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return the fontnumber for the type given\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BUFFER"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"FIND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"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":"AVAILABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcName"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Fonts'"},
|
|
{"type":"NameVariable","value":",pcName"},
|
|
{"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":"NameVariable","value":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFont"},
|
|
{"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":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"23"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CASE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcName"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"LiteralStringSingle","value":"'Default'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFont"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"4"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"WHEN "},
|
|
{"type":"LiteralStringSingle","value":"'Fixed'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFont"},
|
|
{"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":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"CASE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bFont"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iFont"},
|
|
{"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":"/* getFont */"},
|
|
{"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 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":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return the image path + icon set name\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentPreproc","value":"{\u0026timerStart}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTITUTE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'\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":"'\\')).\n PUBLISH \"message\"(50,gcProgramDir).\n END.\n\n RETURN gcProgramDir.\n\nEND FUNCTION. /* getProgramDir */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getQuery Procedure\nFUNCTION getQuery RETURNS CHARACTER\n ( INPUT pcDatabase AS CHARACTER\n , INPUT pcTable AS CHARACTER\n , INPUT piQuery AS INTEGER\n ) :\n /* Get previously used query nr \u003cpiQuery\u003e\n */\n DEFINE BUFFER bQuery FOR ttQuery.\n\n FIND bQuery\n WHERE bQuery.cDatabase = pcDatabase\n AND bQuery.cTable = pcTable\n AND bQuery.iQueryNr = piQuery NO-ERROR.\n\n IF AVAILABLE bQuery THEN\n RETURN bQuery.cQueryTxt.\n ELSE\n RETURN ?.\n\nEND FUNCTION. /* getQuery */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getReadableQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getReadableQuery Procedure\nFUNCTION getReadableQuery RETURNS CHARACTER\n ( INPUT pcQuery AS CHARACTER ):\n /* Return a query as a string that is readable for humans.\n */\n DEFINE VARIABLE hQuery AS HANDLE NO-UNDO.\n\n /* Accept query or query-handle */\n hQuery = WIDGET-HANDLE(pcQuery) NO-ERROR.\n IF VALID-HANDLE( hQuery ) THEN\n DO:\n hQuery = WIDGET-HANDLE(pcQuery).\n pcQuery = hQuery:PREPARE-STRING.\n END.\n\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH "},
|
|
{"type":"LiteralStringSingle","value":"' ,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH "},
|
|
{"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIRST "},
|
|
{"type":"LiteralStringSingle","value":"','"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIRST "},
|
|
{"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE "},
|
|
{"type":"LiteralStringSingle","value":"', '"},
|
|
{"type":"NameVariable","value":"~n"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"WHERE "},
|
|
{"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND "},
|
|
{"type":"LiteralStringSingle","value":"' , '"},
|
|
{"type":"NameVariable","value":"~n"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"AND "},
|
|
{"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY "},
|
|
{"type":"LiteralStringSingle","value":"' , '"},
|
|
{"type":"NameVariable","value":"~n"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"BY "},
|
|
{"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FIELDS "},
|
|
{"type":"Punctuation","value":"()"},
|
|
{"type":"LiteralStringSingle","value":"','').\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH "},
|
|
{"type":"LiteralStringSingle","value":"' ,'"},
|
|
{"type":"KeywordReserved","value":"FOR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"EACH "},
|
|
{"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-LOCK"},
|
|
{"type":"LiteralStringSingle","value":"', '"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-LOCK"},
|
|
{"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEXED-REPOSITION"},
|
|
{"type":"LiteralStringSingle","value":"', '').\n\n pcQuery = pcQuery + '"},
|
|
{"type":"NameVariable","value":"~n"},
|
|
{"type":"LiteralStringSingle","value":"'.\n\n RETURN pcQuery.\nEND FUNCTION. /* getReadableQuery */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getRegistry Procedure\nFUNCTION getRegistry RETURNS CHARACTER\n ( pcSection AS CHARACTER\n , pcKey AS CHARACTER\n ) :\n /* Get a value from the registry.\n */\n {\u0026timerStart}\n DEFINE BUFFER bDatabase FOR ttDatabase.\n DEFINE BUFFER bConfig FOR ttConfig.\n\n /* If this is a DB-specific section then replace db name if needed */\n IF pcSection BEGINS \"DB:\" THEN\n DO:\n FIND bDatabase WHERE bDatabase.cLogicalName = ENTRY(2,pcSection,\":\") NO-ERROR.\n IF AVAILABLE bDatabase THEN pcSection = \"DB:\" + bDatabase.cSection.\n END.\n\n /* Load settings if there is nothing in the config table */\n IF NOT TEMP-TABLE ttConfig:HAS-RECORDS THEN\n RUN loadSettings.\n\n /* Search in settings tt */\n FIND bConfig WHERE bConfig.cSection = pcSection AND bConfig.cSetting = pcKey NO-ERROR.\n\n RETURN ( IF AVAILABLE bConfig THEN bConfig.cValue ELSE ? ).\n {\u0026timerStop}\nEND FUNCTION. /* getRegistry */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getSchemaHolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSchemaHolder Procedure\nFUNCTION getSchemaHolder RETURNS CHARACTER\n ( INPUT pcDataSrNameOrDbName AS CHARACTER\n ):\n DEFINE BUFFER bDataserver FOR ttDataserver.\n\n FIND bDataserver WHERE bDataserver.cLDBNameDataserver = pcDataSrNameOrDbName NO-ERROR.\n RETURN (IF AVAILABLE bDataserver THEN bDataserver.cLDBNameSchema ELSE pcDataSrNameOrDbName).\n\nEND FUNCTION. /* getSchemaHolder */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getStackSize) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getStackSize Procedure\nFUNCTION getStackSize RETURNS INTEGER():\n /* Return value of the -s session setting\n */\n DEFINE VARIABLE cList AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cParm AS CHARACTER CASE-SENSITIVE NO-UNDO.\n DEFINE VARIABLE cSetting AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cValue AS CHARACTER NO-UNDO.\n DEFINE VARIABLE iParm AS INTEGER NO-UNDO.\n DEFINE VARIABLE iStackSize AS INTEGER NO-UNDO.\n\n cList = SESSION:STARTUP-PARAMETERS.\n\n DO iParm = 1 TO NUM-ENTRIES(cList):\n cSetting = ENTRY(iParm,cList) + \" \".\n cParm = ENTRY(1,cSetting,\" \").\n cValue = ENTRY(2,cSetting,\" \").\n\n IF cParm = \"-s\" THEN\n DO:\n iStackSize = INTEGER(cValue) NO-ERROR.\n IF ERROR-STATUS:ERROR THEN iStackSize = 0.\n END.\n END.\n\n /* If not defined, report the default */\n IF iStackSize = 0 THEN iStackSize = 40.\n\n RETURN iStackSize.\nEND FUNCTION. /* getStackSize */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableDesc Procedure\nFUNCTION getTableDesc 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 THEN bTable.cTableDesc ELSE '').\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 = '"},
|
|
{"type":"Operator","value":"*"},
|
|
{"type":"LiteralStringSingle","value":"'.\n\n /* Build query */\n cQuery = SUBSTITUTE('"},
|
|
{"type":"KeywordReserved","value":"for"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"each"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bTable"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"where"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cDatabase"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"matches "},
|
|
{"type":"CommentPreproc","value":"\u00261', QUOTER(pcDatabaseFilter))."},
|
|
{"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":"''"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"gcWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"getProgramDir"},
|
|
{"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":"gcWorkFolder"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RIGHT-TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"gcWorkFolder,"},
|
|
{"type":"LiteralStringSingle","value":"'/\\') + '"},
|
|
{"type":"NameVariable","value":"\\"},
|
|
{"type":"LiteralStringSingle","value":"'.\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,'"},
|
|
{"type":"NameVariable","value":"%"},
|
|
{"type":"LiteralStringSingle","value":"', '"},
|
|
{"type":"NameVariable","value":"_"},
|
|
{"type":"LiteralStringSingle","value":"').\n pcFieldName = REPLACE(pcFieldName,'"},
|
|
{"type":"NameVariable","value":"#"},
|
|
{"type":"LiteralStringSingle","value":"', '"},
|
|
{"type":"NameVariable","value":"_"},
|
|
{"type":"LiteralStringSingle","value":"').\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 '"},
|
|
{"type":"NameVariable","value":"DataDigger"},
|
|
{"type":"LiteralStringSingle","value":"' */\n cFontSize[1] = '"},
|
|
{"type":"LiteralNumberInteger","value":"70"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"LiteralNumberInteger","value":"14"},
|
|
{"type":"LiteralStringSingle","value":"'. /* font0 */\n cFontSize[2] = '"},
|
|
{"type":"LiteralNumberInteger","value":"54"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"LiteralNumberInteger","value":"13"},
|
|
{"type":"LiteralStringSingle","value":"'. /* font1 */\n cFontSize[3] = '"},
|
|
{"type":"LiteralNumberInteger","value":"70"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"LiteralNumberInteger","value":"14"},
|
|
{"type":"LiteralStringSingle","value":"'. /* font2 */\n cFontSize[4] = '"},
|
|
{"type":"LiteralNumberInteger","value":"70"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"LiteralNumberInteger","value":"14"},
|
|
{"type":"LiteralStringSingle","value":"'. /* font3 */\n cFontSize[5] = '"},
|
|
{"type":"LiteralNumberInteger","value":"54"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"LiteralNumberInteger","value":"13"},
|
|
{"type":"LiteralStringSingle","value":"'. /* font4 */\n cFontSize[6] = '"},
|
|
{"type":"LiteralNumberInteger","value":"70"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"LiteralNumberInteger","value":"16"},
|
|
{"type":"LiteralStringSingle","value":"'. /* font5 */\n cFontSize[7] = '"},
|
|
{"type":"LiteralNumberInteger","value":"65"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"LiteralNumberInteger","value":"13"},
|
|
{"type":"LiteralStringSingle","value":"'. /* font6 */\n cFontSize[8] = '"},
|
|
{"type":"LiteralNumberInteger","value":"54"},
|
|
{"type":"Operator","value":"/"},
|
|
{"type":"LiteralNumberInteger","value":"13"},
|
|
{"type":"LiteralStringSingle","value":"'. /* font7 */\n\n checkFont:\n DO i = 0 TO 7:\n IF cFontSize[i + 1] \u003c\u003e SUBSTITUTE('"},
|
|
{"type":"CommentPreproc","value":"\u00261/\u00262'"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FONT-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-TEXT-WIDTH-PIXELS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"NameVariable","value":",i"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FONT-TABLE"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"GET-TEXT-HEIGHT-PIXELS"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")"},
|
|
{"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 "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* checkFont */"},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"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":"/* isDefaultFontsChanged */"},
|
|
{"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 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":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Check whether a file is locked on the file system\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFileHandle"},
|
|
{"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":"{\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":"nReturn"},
|
|
{"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":"/* Try to lock the file agains writing */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RUN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"CreateFileA"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcFileName"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INPUT "},
|
|
{"type":"CommentPreproc","value":"{\u0026GENERIC_WRITE}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026FILE_SHARE_READ}"},
|
|
{"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":"{\u0026OPEN_EXISTING}"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentPreproc","value":"{\u0026FILE_ATTRIBUTE_NORMAL}"},
|
|
{"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":"iFileHandle"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Release file handle */"},
|
|
{"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":"CloseHandle"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"INPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFileHandle,"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OUTPUT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"nReturn"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iFileHandle"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"-"},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"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":"/* isFileLocked */"},
|
|
{"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 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":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return whether the mouse is currently over a certain widget\n */"},
|
|
{"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":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NOT"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VALID-HANDLE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"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":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"FRAME"},
|
|
{"type":"NameVariable","value":","},
|
|
{"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":"RETURN "},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iMouseX"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003e"},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"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":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"X "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"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":"phWidget"},
|
|
{"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":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"Y "},
|
|
{"type":"Operator","value":"+"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"phWidget"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"KeywordReserved","value":"HEIGHT-PIXELS "},
|
|
{"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":"/* isMouseOver */"},
|
|
{"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 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":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Returns whether any setting is used for table filtering\n */"},
|
|
{"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":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Main toggles */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowNormal"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowSchema"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"LOGICAL"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'ShowHiddenTables'"},
|
|
{"type":"Punctuation","value":"))"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowVst"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowSql"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowOther"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowHidden"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE\n "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OR"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"lShowFrozen"},
|
|
{"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":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRUE"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Show these tables */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableNameShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableNameShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableNameShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'*'"},
|
|
{"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":"CommentMultiline","value":"/* But hide these */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableNameHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableNameHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"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":"CommentMultiline","value":"/* Show only tables that contain all of these fields */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableFieldShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableFieldShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableFieldShow"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'*'"},
|
|
{"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":"CommentMultiline","value":"/* But hide tables that contain any of these */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableFieldHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"?"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"ttTableFilter"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"cTableFieldHide"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"\u003c\u003e"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"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":"CommentMultiline","value":"/* else */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"FALSE"},
|
|
{"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":"/* isTableFilterUsed */"},
|
|
{"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 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":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Returns whether pcCodePage is valid\n */"},
|
|
{"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":"cDummy"},
|
|
{"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\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcCodePage"},
|
|
{"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":"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":"'%'"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"i"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"MODULO"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralNumberInteger","value":"0"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"AND"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OS-GETENV"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,pcString,"},
|
|
{"type":"LiteralStringSingle","value":"'%'"},
|
|
{"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":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,pcString,"},
|
|
{"type":"LiteralStringSingle","value":"'%'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"OS-GETENV"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,pcString,"},
|
|
{"type":"LiteralStringSingle","value":"'%'"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"pcString,"},
|
|
{"type":"LiteralStringSingle","value":"'%'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"''"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"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":"/* resolveOsVars */"},
|
|
{"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 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":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Return a string where sequence nr for file is resolved\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFileNr"},
|
|
{"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":"cSeqMask"},
|
|
{"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":"cSeqFormat"},
|
|
{"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":"cFileName"},
|
|
{"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":"cFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcString"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* 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 */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF "},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFileName,"},
|
|
{"type":"LiteralStringSingle","value":"'\u003c#'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"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":"index"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFileName,"},
|
|
{"type":"LiteralStringSingle","value":"'#\u003e'"},
|
|
{"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":"NameVariable","value":"cSeqMask"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFileName,"},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFileName,"},
|
|
{"type":"LiteralStringSingle","value":"'\u003c#'"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* \u003c#####\u003etralalala */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSeqMask"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"SUBSTRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSeqMask,"},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"KeywordReserved","value":"INDEX"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSeqMask,"},
|
|
{"type":"LiteralStringSingle","value":"'\u003e'"},
|
|
{"type":"Punctuation","value":"))."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* \u003c#####\u003e */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSeqFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSeqMask,"},
|
|
{"type":"LiteralStringSingle","value":"'\u003c\u003e'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":" "},
|
|
{"type":"CommentMultiline","value":"/* ##### */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cSeqFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cSeqFormat,"},
|
|
{"type":"LiteralStringSingle","value":"'#'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"LiteralStringSingle","value":"'9'"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSeqFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'9'"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"THEN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cSeqFormat"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"LiteralStringSingle","value":"'\u003e\u003e\u003e\u003e\u003e\u003e\u003e\u003e\u003e9'"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"NameVariable","value":"setFileNr"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"REPEAT"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iFileNr"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"iFileNr"},
|
|
{"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":"SEARCH"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFileName,cSeqMask,"},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iFileNr,cSeqFormat"},
|
|
{"type":"Punctuation","value":"))))"},
|
|
{"type":"Text","value":" "},
|
|
{"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":"NameVariable","value":"cFileName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"REPLACE"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"cFileName,cSeqMask,"},
|
|
{"type":"KeywordReserved","value":"TRIM"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"STRING"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"iFileNr,cSeqFormat"},
|
|
{"type":"Punctuation","value":")))."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"LEAVE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"setFileNr"},
|
|
{"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":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cFileName"},
|
|
{"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":"/* resolveSequence */"},
|
|
{"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 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":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Set color nr in the color tt\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":"DO"},
|
|
{"type":"Punctuation","value":":"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"CREATE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"ASSIGN"},
|
|
{"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":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"END"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n\n "},
|
|
{"type":"CommentMultiline","value":"/* Set to default value from settings */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"IF"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piColor"},
|
|
{"type":"Text","value":" "},
|
|
{"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":"NameVariable","value":"piColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"getRegistry"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralStringSingle","value":"'DataDigger:Colors'"},
|
|
{"type":"NameVariable","value":","},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"pcName"},
|
|
{"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":"piColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","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\n "},
|
|
{"type":"NameVariable","value":"bColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iColor"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"piColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordReserved","value":"RETURN"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"bColor"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"NameVariable","value":"iColor"},
|
|
{"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":"/* setColor */"},
|
|
{"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 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":"\n "},
|
|
{"type":"CommentMultiline","value":"/* Set all specified columns in pcWidthList to a specified width\n */"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"cColumnName"},
|
|
{"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":"cListItem"},
|
|
{"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":"iColumnWidth"},
|
|
{"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 "},
|
|
{"type":"KeywordDeclaration","value":"DEFINE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"VARIABLE"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"NameVariable","value":"j"},
|
|
{"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":"pcWidthList"},
|
|
{"type":"Punctuation","value":"):"},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cListItem"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"NameVariable","value":"i,pcWidthList"},
|
|
{"type":"Punctuation","value":")."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"cColumnName"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"1"},
|
|
{"type":"NameVariable","value":",cListItem,"},
|
|
{"type":"LiteralStringSingle","value":"':'"},
|
|
{"type":"Punctuation","value":")"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordReserved","value":"NO-ERROR"},
|
|
{"type":"Punctuation","value":"."},
|
|
{"type":"Text","value":"\n "},
|
|
{"type":"NameVariable","value":"iColumnWidth"},
|
|
{"type":"Text","value":" "},
|
|
{"type":"Operator","value":"="},
|
|
{"type":"Text","value":" "},
|
|
{"type":"KeywordType","value":"INTEGER"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"KeywordReserved","value":"ENTRY"},
|
|
{"type":"Punctuation","value":"("},
|
|
{"type":"LiteralNumberInteger","value":"2"},
|
|
{"type":"NameVariable","value":",cListItem,"},
|
|
{"type":"LiteralStringSingle","value":"':'"},
|
|
{"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"}
|
|
]
|