abl-tmlanguage 1.3.5 → 1.3.6

package/abl.tmLanguage.json

@@ -438,6 +438,9 @@
         {
           "include": "#record-buffer-functions"
         },
+        {
+          "include": "#can-find"
+        },
         {
           "include": "#release"
         },
@@ -1176,18 +1179,35 @@
       }
     },
     "of-phrase": {
-      "match": "(?i)\\s*([\\w\\-#$%]+(\\.[\\w\\-#$%]+)?)\\s+(of)\\s+([\\w\\-#$%]+(\\.[\\w\\-#$%]+)?)\\s*",
-      "captures": {
-        "1": {
-          "name": "storage.data.table.abl"
-        },
-        "3": {
-          "name": "keyword.other.abl"
+      "patterns": [
+        {
+          "comment": " This matches OF <table>",
+          "match": "(?i)\\s*(of)\\s+([\\w\\-#$%]+(\\.[\\w\\-#$%]+)?)\\s*",
+          "captures": {
+            "1": {
+              "name": "keyword.other.abl"
+            },
+            "2": {
+              "name": "storage.data.table.abl"
+            }
+          }
         },
-        "4": {
-          "name": "storage.data.table.abl"
+        {
+          "comment": " This matches <table> OF <table>",
+          "match": "(?i)\\s*([\\w\\-#$%]+(\\.[\\w\\-#$%]+)?)\\s+(of)\\s+([\\w\\-#$%]+(\\.[\\w\\-#$%]+)?)\\s*",
+          "captures": {
+            "1": {
+              "name": "storage.data.table.abl"
+            },
+            "3": {
+              "name": "keyword.other.abl"
+            },
+            "4": {
+              "name": "storage.data.table.abl"
+            }
+          }
         }
-      }
+      ]
     },
     "for-join": {
       "comment": "Captures something like ', salesrep where' or 'salesrep where', when the latter is at the beginning of a line. 'OF' phrases handled by of-phrase",
@@ -1435,6 +1455,9 @@
         {
           "include": "#record-buffer-functions"
         },
+        {
+          "include": "#can-find"
+        },
         {
           "include": "#comment"
         },
@@ -2332,6 +2355,64 @@
         }
       }
     },
+    "can-find": {
+      "comment": "This captures CAN-FIND( until either the closing brace, or a keyword like WHERE or a lock status. Based on the doc at https://docs.progress.com/bundle/abl-reference/page/CAN-FIND-function.html",
+      "begin": "(?i)\\s*(can-find)\\s*(\\()",
+      "beginCaptures": {
+        "1": {
+          "name": "support.function.abl"
+        },
+        "2": {
+          "name": "meta.brace.round.js"
+        }
+      },
+      "end": "(?i)\\b(?=\\)|where|no-lock|share-lock|using|no-prefetch|no-wait)\\s*",
+      "patterns": [
+        {
+          "include": "#parens"
+        },
+        {
+          "include": "#comment"
+        },
+        {
+          "include": "#string"
+        },
+        {
+          "include": "#numeric"
+        },
+        {
+          "match": "(?i)\\b(first|last)\\b",
+          "captures": {
+            "1": {
+              "name": "keyword.other.abl"
+            }
+          }
+        },
+        {
+          "include": "#use-index"
+        },
+        {
+          "include": "#of-phrase"
+        },
+        {
+          "include": "#db-dot-table"
+        },
+        {
+          "include": "#db-dot-table-dot-field"
+        }
+      ]
+    },
+    "use-index": {
+      "match": "(?i)\\b(use-index)\\s+([a-z][a-z0-9\\-\\_\\$]*)\\b",
+      "captures": {
+        "1": {
+          "name": "keyword.other.abl"
+        },
+        "2": {
+          "name": "storage.data.table.abl"
+        }
+      }
+    },
     "access-modifier": {
       "match": "(?i)\\s*(package-private|private|package-protected|protected|public|static|override|abstract|final)\\b",
       "captures": {
@@ -2963,7 +3044,7 @@
           "include": "#parens"
         },
         {
-          "match": "(?i)\\s*(input-output|output|input|table-handle|dataset-handle|APPEND|BY-VALUE|BY-REFERENCE|BIND)\\s*",
+          "match": "(?i)\\s*(input-output|input-outpu|input-outp|input-out|input-ou|input-o|output|input|table-handle|dataset-handle|APPEND|BY-VALUE|BY-REFERENCE|BIND)\\s*",
           "captures": {
             "1": {
               "name": "keyword.other.abl"
@@ -3004,6 +3085,9 @@
         {
           "include": "#abl-system-handles"
         },
+        {
+          "include": "#can-find"
+        },
         {
           "include": "#abl-functions"
         },
@@ -3581,7 +3665,7 @@
       ]
     },
     "keywords-A": {
-        "match": "(?i)\\b(avg|average|averag|avera|aver|ave|available|automatic|auto-endkey|authorization|audit-policy|audit-control|attribute-type|attachment|attach|at|assign|assembly|ask-overwrite|ascending|ascendin|ascendi|ascend|ascen|asce|asc|as-cursor|as|array-message|array-messag|array-messa|array-mess|array-mes|array-me|array-m|apply|application|append-line|append|anywhere|any-printable|any-key|any|ansi-only|and|ambiguous|alternate-key|alter|allow-replication|all|alert-box|aggregate|advise|add|active-window|active-form|across|accumulate|accumulat|accumula|accumul|accumu|accum|abstract|abort)\\b",
+      "match": "(?i)\\b(avg|average|averag|avera|aver|ave|available|automatic|auto-endkey|authorization|audit-policy|audit-control|attribute-type|attachment|attach|at|assign|assembly|ask-overwrite|ascending|ascendin|ascendi|ascend|ascen|asce|asc|as-cursor|as|array-message|array-messag|array-messa|array-mess|array-mes|array-me|array-m|apply|application|append-line|append|anywhere|any-printable|any-key|any|ansi-only|and|ambiguous|alternate-key|alter|allow-replication|all|alert-box|aggregate|advise|add|active-window|active-form|across|accumulate|accumulat|accumula|accumul|accumu|accum|abstract|abort)\\b",
       "captures": {
         "1": {
           "name": "keyword.other.abl"
@@ -3621,7 +3705,7 @@
       }
     },
     "keywords-F": {
-        "match": "(?i)\\b(function-call-type|function|full-height|fromnoreorder|from-pixels|from-pixel|from-pixe|from-pix|from-pi|from-p|from-current|from-curren|from-curre|from-curr|from-cur|from-chars|from-char|from-cha|from-ch|from-c|from|frame-value|frame|forwards|forward|format|form|force-file|for|font-table|font|focus-in|focus|float|flags|fixed-only|fix-codepage|first|firehose-cursor|finder|find-wrap-around|find-select|find-previous|find-prev-occurrence|find-next-occurrence|find-next|find-global|find-case-sensitive|find|finally|final|filters|fill-in|filename|file-information|file-informatio|file-informati|file-informat|file-informa|file-inform|file-infor|file-info|file-access-time|file-access-tim|file-access-ti|file-access-t|file-access-date|file-access-dat|file-access-da|file-access-d|file|fields|field|fetch|false-leaks|false)\\b",
+      "match": "(?i)\\b(function-call-type|function|full-height|fromnoreorder|from-pixels|from-pixel|from-pixe|from-pix|from-pi|from-p|from-current|from-curren|from-curre|from-curr|from-cur|from-chars|from-char|from-cha|from-ch|from-c|from|frame-value|frame|forwards|forward|format|form|force-file|for|font-table|font|focus-in|focus|float|flags|fixed-only|fix-codepage|first|firehose-cursor|finder|find-wrap-around|find-select|find-previous|find-prev-occurrence|find-next-occurrence|find-next|find-global|find-case-sensitive|find|finally|final|filters|fill-in|filename|file-information|file-informatio|file-informati|file-informat|file-informa|file-inform|file-infor|file-info|file-access-time|file-access-tim|file-access-ti|file-access-t|file-access-date|file-access-dat|file-access-da|file-access-d|file|fields|field|fetch|false-leaks|false)\\b",
       "captures": {
         "1": {
           "name": "keyword.other.abl"
@@ -3685,7 +3769,7 @@
       }
     },
     "keywords-N": {
-        "match": "(?i)\\b(numeric|num-selected|num-copies|null|not-active|not|none|non-serializable|node-type|no-word-wrap|no-wait|no-undo|no-underline|no-underlin|no-underli|no-underl|no-under|no-unde|no-und|no-tab-stop|no-tab-sto|no-tab-st|no-tab-s|no-tab-|no-tab|no-separators|no-separate-connection|no-scrolling|no-scrollbar-vertical|no-scrollbar-vertica|no-scrollbar-vertic|no-scrollbar-verti|no-scrollbar-vert|no-scrollbar-ver|no-scrollbar-ve|no-scrollbar-v|no-schema-marshall|no-schema-marshal|no-row-markers|no-return-value|no-return-valu|no-return-val|no-query-unique-added|no-query-unique-adde|no-query-unique-add|no-query-unique-ad|no-query-unique-a|no-query-unique-|no-query-unique|no-query-uniqu|no-query-uniq|no-query-uni|no-query-un|no-query-u|no-query-order-added|no-query-order-adde|no-query-order-add|no-query-order-ad|no-query-order-a|no-query-order-|no-query-order|no-query-orde|no-query-ord|no-query-or|no-query-o|no-prefetch|no-prefetc|no-prefet|no-prefe|no-pause|no-message|no-messag|no-messa|no-mess|no-mes|no-map|no-lookahead|no-lock|no-lobs|no-labels|no-label|no-keycache-join|no-join-by-sqldb|no-inherit-fgcolor|no-inherit-fgcolo|no-inherit-fgcol|no-inherit-fgco|no-inherit-fgc|no-inherit-bgcolor|no-inherit-bgcolo|no-inherit-bgcol|no-inherit-bgco|no-inherit-bgc|no-index-hint|no-hide|no-help|no-firehose-cursor|no-fill|no-fil|no-fi|no-f|no-error|no-echo|no-drag|no-debug|no-convert-3d-colors|no-convert-3d-color|no-convert-3d-colo|no-convert-3d-col|no-convert-3d-co|no-convert-3d-c|no-convert-3d-|no-convert-3d|no-convert|no-console|no-column-scrolling|no-column-scrollin|no-column-scrolli|no-column-scroll|no-column-scrol|no-column-scro|no-column-scr|no-column-sc|no-box|no-bind-where|no-auto-validate|no-auto-trim|no-auto-tri|no-attr-space|no-attr-spac|no-attr-spa|no-attr-sp|no-attr-s|no-attr-list|no-attr-lis|no-attr-li|no-attr-l|no-attr|no-assign|no-array-message|no-array-messag|no-array-messa|no-array-mess|no-array-mes|no-array-me|no-array-m|no-apply|no|next-word|next-prompt|next-frame|next-error|next|new-line|new-instance|new|nested|ne|native|namespace-uri|namespace-prefix)\\b",
+      "match": "(?i)\\b(numeric|num-selected|num-copies|null|not-active|not|none|non-serializable|node-type|no-word-wrap|no-wait|no-undo|no-underline|no-underlin|no-underli|no-underl|no-under|no-unde|no-und|no-tab-stop|no-tab-sto|no-tab-st|no-tab-s|no-tab-|no-tab|no-separators|no-separate-connection|no-scrolling|no-scrollbar-vertical|no-scrollbar-vertica|no-scrollbar-vertic|no-scrollbar-verti|no-scrollbar-vert|no-scrollbar-ver|no-scrollbar-ve|no-scrollbar-v|no-schema-marshall|no-schema-marshal|no-row-markers|no-return-value|no-return-valu|no-return-val|no-query-unique-added|no-query-unique-adde|no-query-unique-add|no-query-unique-ad|no-query-unique-a|no-query-unique-|no-query-unique|no-query-uniqu|no-query-uniq|no-query-uni|no-query-un|no-query-u|no-query-order-added|no-query-order-adde|no-query-order-add|no-query-order-ad|no-query-order-a|no-query-order-|no-query-order|no-query-orde|no-query-ord|no-query-or|no-query-o|no-prefetch|no-prefetc|no-prefet|no-prefe|no-pause|no-message|no-messag|no-messa|no-mess|no-mes|no-map|no-lookahead|no-lock|no-lobs|no-labels|no-label|no-keycache-join|no-join-by-sqldb|no-inherit-fgcolor|no-inherit-fgcolo|no-inherit-fgcol|no-inherit-fgco|no-inherit-fgc|no-inherit-bgcolor|no-inherit-bgcolo|no-inherit-bgcol|no-inherit-bgco|no-inherit-bgc|no-index-hint|no-hide|no-help|no-firehose-cursor|no-fill|no-fil|no-fi|no-f|no-error|no-echo|no-drag|no-debug|no-convert-3d-colors|no-convert-3d-color|no-convert-3d-colo|no-convert-3d-col|no-convert-3d-co|no-convert-3d-c|no-convert-3d-|no-convert-3d|no-convert|no-console|no-column-scrolling|no-column-scrollin|no-column-scrolli|no-column-scroll|no-column-scrol|no-column-scro|no-column-scr|no-column-sc|no-box|no-bind-where|no-auto-validate|no-auto-trim|no-auto-tri|no-attr-space|no-attr-spac|no-attr-spa|no-attr-sp|no-attr-s|no-attr-list|no-attr-lis|no-attr-li|no-attr-l|no-attr|no-assign|no-array-message|no-array-messag|no-array-messa|no-array-mess|no-array-mes|no-array-me|no-array-m|no-apply|no|next-word|next-prompt|next-frame|next-error|next|new-line|new-instance|new|nested|ne|native|namespace-uri|namespace-prefix)\\b",
       "captures": {
         "1": {
           "name": "keyword.other.abl"
@@ -3765,7 +3849,7 @@
       }
     },
     "keywords-X": {
-        "match": "(?i)\\b(xref-xml|xref|xor|xml-node-name|xcode|x-of|x-noderef|x-document)\\b",
+      "match": "(?i)\\b(xref-xml|xref|xor|xml-node-name|xcode|x-of|x-noderef|x-document)\\b",
       "captures": {
         "1": {
           "name": "keyword.other.abl"
@@ -4749,7 +4833,7 @@
     },
     "abl-functions-F": {
       "name": "meta.function-call.abl",
-        "begin": "(?i)\\s*(frame-value|frame-valu|frame-val|frame-row|frame-name|frame-line|frame-index|frame-inde|frame-file|frame-field|frame-down|frame-db|frame-col|first-of|first|fill)\\s*(?=\\()",
+      "begin": "(?i)\\s*(frame-value|frame-valu|frame-val|frame-row|frame-name|frame-line|frame-index|frame-inde|frame-file|frame-field|frame-down|frame-db|frame-col|first-of|first|fill)\\s*(?=\\()",
       "beginCaptures": {
         "1": {
           "name": "support.function.abl"
@@ -4889,7 +4973,7 @@
     },
     "abl-functions-N": {
       "name": "meta.function-call.abl",
-        "begin": "(?i)\\s*(num-results|num-entries|num-dbs|num-aliases|num-aliase|num-alias|num-alia|num-ali|now|not entered|normalize|next-value|new)\\s*(?=\\()",
+      "begin": "(?i)\\s*(num-results|num-entries|num-dbs|num-aliases|num-aliase|num-alias|num-alia|num-ali|now|not entered|normalize|next-value|new)\\s*(?=\\()",
       "beginCaptures": {
         "1": {
           "name": "support.function.abl"

package/index.js

@@ -57,7 +57,6 @@ alsoStatements.push('single-run');
 alsoStatements.push('transaction');
 alsoStatements.push('xml-node-name');
 
-
 let functionsNotStatements = [];
 functionsNotStatements.push('set-size');
 
@@ -73,30 +72,28 @@ lineReaderMethods.on('line', line => {
   let results;
   line = line.toLowerCase();
 
-  if (!line.startsWith("#")) {
-    let kw = line.split(' ');
-    let charIdx = kw[0].charCodeAt(0) - 97;
-    let keyWord = kw[0].split('(')[0];
+  let kw = line.split(' ');
+  let charIdx = kw[0].charCodeAt(0) - 97;
+  let keyWord = kw[0].split('(')[0];
 
-    if (kw.includes('attribute')) {
-      if (!attributeBlocks[charIdx].includes(keyWord)) {
-        attributeBlocks[charIdx].push(keyWord);
-      }
-    } else if (kw.includes('method')) {
-      if (!methodBlocks[charIdx].includes(keyWord)) {
-        methodBlocks[charIdx].push(keyWord);
-      }
+  if (kw.includes('attribute')) {
+    if (!attributeBlocks[charIdx].includes(keyWord)) {
+      attributeBlocks[charIdx].push(keyWord);
     }
+  } else if (kw.includes('method')) {
+    if (!methodBlocks[charIdx].includes(keyWord)) {
+      methodBlocks[charIdx].push(keyWord);
+    }
+  }
 
-    if (alsoStatements.includes(keyWord)) {
-      if (!keywordBlocks[charIdx].includes(keyWord)) {
-        keywordBlocks[charIdx].push(keyWord);
-      }
+  if (alsoStatements.includes(keyWord)) {
+    if (!keywordBlocks[charIdx].includes(keyWord)) {
+      keywordBlocks[charIdx].push(keyWord);
     }
-    if (alsoFunctions.includes(keyWord)) {
-      if (!functionBlocks[charIdx].includes(keyWord)) {
-        functionBlocks[charIdx].push(keyWord);
-      }
+  }
+  if (alsoFunctions.includes(keyWord)) {
+    if (!functionBlocks[charIdx].includes(keyWord)) {
+      functionBlocks[charIdx].push(keyWord);
     }
   }
 });
@@ -105,7 +102,7 @@ lineReaderFunctions.on('line', line => {
   let results;
   line = line.toLowerCase();
 
-  if (!line.startsWith("#")) {
+  let kw = line.split(' ');
 
     let kw = line.split(' ');
     let kwName = '';
@@ -118,6 +115,10 @@ lineReaderFunctions.on('line', line => {
       } else {
         kwName = kw.slice(0, kw.indexOf('function')).join(' ');
       }
+    }
+  } else if (kw.includes('statement')) {
+    for (const keyWord of kw) {
+      let charIdx = keyWord.charCodeAt(0) - 97;
 
       // CAPS letter alphabet
       let charIdx = kwName.charCodeAt(0) - 97;
@@ -156,28 +157,27 @@ lineReaderFunctions.on('line', line => {
 lineReaderKeywords.on('line', line => {
   let results;
   line = line.toLowerCase();
-  if (!line.startsWith("#")) {
-    while ((results = re.exec(line)) !== null) {
-      let kw = results[0];
-      // CAPS letter alphabet
-      let charIdx = kw.charCodeAt(0) - 97;
 
-      if (kw.indexOf('(') !== -1) {
-        let kwParts = kw.split('(');
-        let fullKw = kwParts[0] + kwParts[1];
+  while ((results = re.exec(line)) !== null) {
+    let kw = results[0];
+    // CAPS letter alphabet
+    let charIdx = kw.charCodeAt(0) - 97;
 
-        kw = kwParts[0];
-        addToBlock(charIdx, fullKw, kw);
+    if (kw.indexOf('(') !== -1) {
+      let kwParts = kw.split('(');
+      let fullKw = kwParts[0] + kwParts[1];
 
-        let kwComplete = kwParts[1];
-        for (const element of kwComplete) {
-          kw += element;
+      kw = kwParts[0];
+      addToBlock(charIdx, fullKw, kw);
 
-          addToBlock(charIdx, fullKw, kw);
-        }
-      } else {
-        addToBlock(charIdx, kw, kw);
+      let kwComplete = kwParts[1];
+      for (const element of kwComplete) {
+        kw += element;
+
+        addToBlock(charIdx, fullKw, kw);
       }
+    } else {
+      addToBlock(charIdx, kw, kw);
     }
   }
 });

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "abl-tmlanguage",
-  "version": "1.3.5",
+  "version": "1.3.6",
   "description": "Textmate grammar for Progress OpenEdge ABL Language",
   "main": "",
   "repository": {

package/spec/function-call/can-find.spec.js

@@ -0,0 +1,240 @@
+const { assert, expect } = require('chai');
+const shared = require('../shared.js');
+
+describe('', () => {
+  let statement = `IF NOT CAN-FIND(InstanceChildren WHERE InstanceChildren.contPath         = pcPath      AND
+    InstanceChildren.contName         = pcFile      AND
+  InstanceChildren.parentInstanceID = Instance.ID AND
+  InstanceChildren.ID               = cField) THEN DO: end.`;
+  let expectedTokens = [
+    [
+      { "startIndex": 0, "endIndex": 2, "scopes": ["source.abl", "keyword.other.abl"] },  // 'IF'
+      { "startIndex": 2, "endIndex": 3, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 3, "endIndex": 6, "scopes": ["source.abl", "keyword.operator.source.abl"] },  // 'NOT'
+      { "startIndex": 6, "endIndex": 7, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 7, "endIndex": 15, "scopes": ["source.abl", "support.function.abl"] },  // 'CAN-FIND'
+      { "startIndex": 15, "endIndex": 16, "scopes": ["source.abl", "meta.brace.round.js"] },  // '('
+      { "startIndex": 16, "endIndex": 32, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'InstanceChildren'
+      { "startIndex": 32, "endIndex": 33, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 33, "endIndex": 38, "scopes": ["source.abl", "keyword.other.abl"] },  // 'WHERE'
+      { "startIndex": 38, "endIndex": 39, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 39, "endIndex": 64, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'InstanceChildren.contPath'
+      { "startIndex": 64, "endIndex": 73, "scopes": ["source.abl"] },  // '         '
+      { "startIndex": 73, "endIndex": 74, "scopes": ["source.abl", "keyword.operator.source.abl"] },  // '='
+      { "startIndex": 74, "endIndex": 75, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 75, "endIndex": 81, "scopes": ["source.abl", "variable.other.abl"] },  // 'pcPath'
+      { "startIndex": 81, "endIndex": 87, "scopes": ["source.abl"] },  // '      '
+      { "startIndex": 87, "endIndex": 90, "scopes": ["source.abl", "keyword.other.abl"] }  // 'AND'
+    ],
+    [
+      { "startIndex": 0, "endIndex": 4, "scopes": ["source.abl"] },  // '    '
+      { "startIndex": 4, "endIndex": 29, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'InstanceChildren.contName'
+      { "startIndex": 29, "endIndex": 38, "scopes": ["source.abl"] },  // '         '
+      { "startIndex": 38, "endIndex": 39, "scopes": ["source.abl", "keyword.operator.source.abl"] },  // '='
+      { "startIndex": 39, "endIndex": 40, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 40, "endIndex": 46, "scopes": ["source.abl", "variable.other.abl"] },  // 'pcFile'
+      { "startIndex": 46, "endIndex": 52, "scopes": ["source.abl"] },  // '      '
+      { "startIndex": 52, "endIndex": 55, "scopes": ["source.abl", "keyword.other.abl"] }  // 'AND'
+    ],
+    [
+      { "startIndex": 0, "endIndex": 2, "scopes": ["source.abl"] },  // '  '
+      { "startIndex": 2, "endIndex": 35, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'InstanceChildren.parentInstanceID'
+      { "startIndex": 35, "endIndex": 36, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 36, "endIndex": 37, "scopes": ["source.abl", "keyword.operator.source.abl"] },  // '='
+      { "startIndex": 37, "endIndex": 38, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 38, "endIndex": 49, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'Instance.ID'
+      { "startIndex": 49, "endIndex": 50, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 50, "endIndex": 53, "scopes": ["source.abl", "keyword.other.abl"] }  // 'AND'
+    ],
+    [
+      { "startIndex": 0, "endIndex": 2, "scopes": ["source.abl"] },  // '  '
+      { "startIndex": 2, "endIndex": 21, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'InstanceChildren.ID'
+      { "startIndex": 21, "endIndex": 36, "scopes": ["source.abl"] },  // '               '
+      { "startIndex": 36, "endIndex": 37, "scopes": ["source.abl", "keyword.operator.source.abl"] },  // '='
+      { "startIndex": 37, "endIndex": 38, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 38, "endIndex": 44, "scopes": ["source.abl", "variable.other.abl"] },  // 'cField'
+      { "startIndex": 44, "endIndex": 45, "scopes": ["source.abl", "meta.brace.round.js"] },  // ')'
+      { "startIndex": 45, "endIndex": 46, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 46, "endIndex": 50, "scopes": ["source.abl", "keyword.other.abl"] },  // 'THEN'
+      { "startIndex": 50, "endIndex": 51, "scopes": ["source.abl", "meta.block.abl"] },  // ' '
+      { "startIndex": 51, "endIndex": 53, "scopes": ["source.abl", "meta.block.abl", "keyword.other.abl"] },  // 'DO'
+      { "startIndex": 53, "endIndex": 54, "scopes": ["source.abl", "punctuation.terminator.abl"] },  // ':'
+      { "startIndex": 54, "endIndex": 55, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 55, "endIndex": 58, "scopes": ["source.abl", "keyword.other.abl"] },  // 'end'
+      { "startIndex": 58, "endIndex": 59, "scopes": ["source.abl", "punctuation.terminator.abl"] }  // '.'
+    ]
+  ];
+  shared.itShouldMatchExpectedScopes(statement, expectedTokens);
+})
+
+describe('', () => {
+  let statement = `any_trig = (IF CAN-FIND(FIRST dictdb._Field-trig OF bField) THEN yes else no).`;
+  let expectedTokens = [
+    { "startIndex": 0, "endIndex": 8, "scopes": ["source.abl", "variable.other.abl"] },  // 'any_trig'
+    { "startIndex": 8, "endIndex": 9, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 9, "endIndex": 10, "scopes": ["source.abl", "keyword.operator.source.abl"] },  // '='
+    { "startIndex": 10, "endIndex": 11, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 11, "endIndex": 12, "scopes": ["source.abl", "meta.function.arguments.abl", "meta.brace.round.js"] },  // '('
+    { "startIndex": 12, "endIndex": 14, "scopes": ["source.abl", "meta.function.arguments.abl", "variable.other.abl"] },  // 'IF'
+    { "startIndex": 14, "endIndex": 15, "scopes": ["source.abl", "meta.function.arguments.abl"] },  // ' '
+    { "startIndex": 15, "endIndex": 23, "scopes": ["source.abl", "meta.function.arguments.abl", "support.function.abl"] },  // 'CAN-FIND'
+    { "startIndex": 23, "endIndex": 24, "scopes": ["source.abl", "meta.function.arguments.abl", "meta.brace.round.js"] },  // '('
+    { "startIndex": 24, "endIndex": 29, "scopes": ["source.abl", "meta.function.arguments.abl", "keyword.other.abl"] },  // 'FIRST'
+    { "startIndex": 29, "endIndex": 30, "scopes": ["source.abl", "meta.function.arguments.abl"] },  // ' '
+    { "startIndex": 30, "endIndex": 48, "scopes": ["source.abl", "meta.function.arguments.abl", "storage.data.table.abl"] },  // 'dictdb._Field-trig'
+    { "startIndex": 48, "endIndex": 49, "scopes": ["source.abl", "meta.function.arguments.abl"] },  // ' '
+    { "startIndex": 49, "endIndex": 51, "scopes": ["source.abl", "meta.function.arguments.abl", "keyword.other.abl"] },  // 'OF'
+    { "startIndex": 51, "endIndex": 52, "scopes": ["source.abl", "meta.function.arguments.abl"] },  // ' '
+    { "startIndex": 52, "endIndex": 58, "scopes": ["source.abl", "meta.function.arguments.abl", "storage.data.table.abl"] },  // 'bField'
+    { "startIndex": 58, "endIndex": 59, "scopes": ["source.abl", "meta.brace.round.js"] },  // ')'
+    { "startIndex": 59, "endIndex": 60, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 60, "endIndex": 64, "scopes": ["source.abl", "keyword.other.abl"] },  // 'THEN'
+    { "startIndex": 64, "endIndex": 65, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 65, "endIndex": 68, "scopes": ["source.abl", "constant.language.abl"] },  // 'yes'
+    { "startIndex": 68, "endIndex": 69, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 69, "endIndex": 73, "scopes": ["source.abl", "keyword.other.abl"] },  // 'else'
+    { "startIndex": 73, "endIndex": 74, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 74, "endIndex": 76, "scopes": ["source.abl", "constant.language.abl"] },  // 'no'
+    { "startIndex": 76, "endIndex": 77, "scopes": ["source.abl", "meta.brace.round.js"] },  // ')'
+    { "startIndex": 77, "endIndex": 78, "scopes": ["source.abl", "punctuation.terminator.abl"] }  // '.'
+  ];
+  shared.itShouldMatchExpectedScopes(statement, expectedTokens);
+})
+
+describe('', () => {
+  let statement = `STRING(CAN-FIND(FIRST DICTDB._Index-field OF DICTDB._Field),"y/n":u)`;
+  let expectedTokens = [
+    { "startIndex": 0, "endIndex": 6, "scopes": ["source.abl", "meta.function-call.abl", "support.function.abl"] },  // 'STRING'
+    { "startIndex": 6, "endIndex": 7, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl", "meta.brace.round.js"] },  // '('
+    { "startIndex": 7, "endIndex": 15, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl", "support.function.abl"] },  // 'CAN-FIND'
+    { "startIndex": 15, "endIndex": 16, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl", "meta.brace.round.js"] },  // '('
+    { "startIndex": 16, "endIndex": 21, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl", "keyword.other.abl"] },  // 'FIRST'
+    { "startIndex": 21, "endIndex": 22, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl"] },  // ' '
+    { "startIndex": 22, "endIndex": 41, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl", "storage.data.table.abl"] },  // 'DICTDB._Index-field'
+    { "startIndex": 41, "endIndex": 42, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl"] },  // ' '
+    { "startIndex": 42, "endIndex": 44, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl", "keyword.other.abl"] },  // 'OF'
+    { "startIndex": 44, "endIndex": 45, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl"] },  // ' '
+    { "startIndex": 45, "endIndex": 58, "scopes": ["source.abl", "meta.function-call.abl", "meta.function.arguments.abl", "storage.data.table.abl"] },  // 'DICTDB._Field'
+    { "startIndex": 58, "endIndex": 59, "scopes": ["source.abl", "meta.function-call.abl", "meta.brace.round.js"] },  // ')'
+    { "startIndex": 59, "endIndex": 60, "scopes": ["source.abl", "punctuation.separator.comma.abl"] },  // ','
+    { "startIndex": 60, "endIndex": 61, "scopes": ["source.abl", "string.double.complex.abl", "punctuation.definition.string.begin.abl"] },  // '"'
+    { "startIndex": 61, "endIndex": 64, "scopes": ["source.abl", "string.double.complex.abl"] },  // 'y/n'
+    { "startIndex": 64, "endIndex": 65, "scopes": ["source.abl", "string.double.complex.abl", "punctuation.definition.string.end.abl"] },  // '"'
+    { "startIndex": 65, "endIndex": 67, "scopes": ["source.abl", "string.double.complex.abl", "support.other.abl"] },  // ':u'
+    { "startIndex": 67, "endIndex": 68, "scopes": ["source.abl", "meta.brace.round.js"] }  // ')'
+  ];
+  shared.itShouldMatchExpectedScopes(statement, expectedTokens);
+})
+
+
+describe('', () => {
+  let statement = `if can-find(customer 2) then. `;
+  let expectedTokens = [
+    { "startIndex": 0, "endIndex": 2, "scopes": ["source.abl", "keyword.other.abl"] },  // 'if'
+    { "startIndex": 2, "endIndex": 3, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 3, "endIndex": 11, "scopes": ["source.abl", "support.function.abl"] },  // 'can-find'
+    { "startIndex": 11, "endIndex": 12, "scopes": ["source.abl", "meta.brace.round.js"] },  // '('
+    { "startIndex": 12, "endIndex": 20, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'customer'
+    { "startIndex": 20, "endIndex": 21, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 21, "endIndex": 22, "scopes": ["source.abl", "constant.numeric.source.abl"] },  // '2'
+    { "startIndex": 22, "endIndex": 23, "scopes": ["source.abl", "meta.brace.round.js"] },  // ')'
+    { "startIndex": 23, "endIndex": 24, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 24, "endIndex": 28, "scopes": ["source.abl", "keyword.other.abl"] },  // 'then'
+    { "startIndex": 28, "endIndex": 29, "scopes": ["source.abl", "punctuation.terminator.abl"] },  // '.'
+    { "startIndex": 29, "endIndex": 31, "scopes": ["source.abl"] }  // ' '
+  ];
+  shared.itShouldMatchExpectedScopes(statement, expectedTokens);
+})
+
+
+describe('', () => {
+  let statement = `if can-find(department "100") then. `;
+  let expectedTokens = [
+    { "startIndex": 0, "endIndex": 2, "scopes": ["source.abl", "keyword.other.abl"] },  // 'if'
+    { "startIndex": 2, "endIndex": 3, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 3, "endIndex": 11, "scopes": ["source.abl", "support.function.abl"] },  // 'can-find'
+    { "startIndex": 11, "endIndex": 12, "scopes": ["source.abl", "meta.brace.round.js"] },  // '('
+    { "startIndex": 12, "endIndex": 22, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'department'
+    { "startIndex": 22, "endIndex": 23, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 23, "endIndex": 24, "scopes": ["source.abl", "string.double.complex.abl", "punctuation.definition.string.begin.abl"] },  // '"'
+    { "startIndex": 24, "endIndex": 27, "scopes": ["source.abl", "string.double.complex.abl"] },  // '100'
+    { "startIndex": 27, "endIndex": 28, "scopes": ["source.abl", "string.double.complex.abl", "punctuation.definition.string.end.abl"] },  // '"'
+    { "startIndex": 28, "endIndex": 29, "scopes": ["source.abl", "meta.brace.round.js"] },  // ')'
+    { "startIndex": 29, "endIndex": 30, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 30, "endIndex": 34, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'then'
+    { "startIndex": 34, "endIndex": 37, "scopes": ["source.abl"] }  // '. '
+  ];
+  shared.itShouldMatchExpectedScopes(statement, expectedTokens);
+})
+
+describe('', () => {
+  let statement = `if can-find(department where department.dept-code eq "100" use-index codeIndex) then. `;
+  let expectedTokens = [
+    { "startIndex": 0, "endIndex": 2, "scopes": ["source.abl", "keyword.other.abl"] },  // 'if'
+    { "startIndex": 2, "endIndex": 3, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 3, "endIndex": 11, "scopes": ["source.abl", "support.function.abl"] },  // 'can-find'
+    { "startIndex": 11, "endIndex": 12, "scopes": ["source.abl", "meta.brace.round.js"] },  // '('
+    { "startIndex": 12, "endIndex": 22, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'department'
+    { "startIndex": 22, "endIndex": 23, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 23, "endIndex": 28, "scopes": ["source.abl", "keyword.other.abl"] },  // 'where'
+    { "startIndex": 28, "endIndex": 29, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 29, "endIndex": 49, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'department.dept-code'
+    { "startIndex": 49, "endIndex": 50, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 50, "endIndex": 52, "scopes": ["source.abl", "keyword.operator.source.abl"] },  // 'eq'
+    { "startIndex": 52, "endIndex": 53, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 53, "endIndex": 54, "scopes": ["source.abl", "string.double.complex.abl", "punctuation.definition.string.begin.abl"] },  // '"'
+    { "startIndex": 54, "endIndex": 57, "scopes": ["source.abl", "string.double.complex.abl"] },  // '100'
+    { "startIndex": 57, "endIndex": 58, "scopes": ["source.abl", "string.double.complex.abl", "punctuation.definition.string.end.abl"] },  // '"'
+    { "startIndex": 58, "endIndex": 59, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 59, "endIndex": 68, "scopes": ["source.abl", "keyword.other.abl"] },  // 'use-index'
+    { "startIndex": 68, "endIndex": 69, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 69, "endIndex": 78, "scopes": ["source.abl", "variable.other.abl"] },  // 'codeIndex'
+    { "startIndex": 78, "endIndex": 79, "scopes": ["source.abl", "meta.brace.round.js"] },  // ')'
+    { "startIndex": 79, "endIndex": 80, "scopes": ["source.abl"] },  // ' '
+    { "startIndex": 80, "endIndex": 84, "scopes": ["source.abl", "keyword.other.abl"] },  // 'then'
+    { "startIndex": 84, "endIndex": 85, "scopes": ["source.abl", "punctuation.terminator.abl"] },  // '.'
+    { "startIndex": 85, "endIndex": 87, "scopes": ["source.abl"] }  // ' '
+  ];
+  shared.itShouldMatchExpectedScopes(statement, expectedTokens);
+})
+
+describe('', () => {
+  let statement = `if
+    can-find(
+        first department
+           where department.dept-code eq ttFoo.Code)
+then.`;
+  let expectedTokens = [
+    [
+      { "startIndex": 0, "endIndex": 2, "scopes": ["source.abl", "keyword.other.abl"] }  // 'if'
+    ],
+    [
+      { "startIndex": 0, "endIndex": 4, "scopes": ["source.abl"] },  // '    '
+      { "startIndex": 4, "endIndex": 12, "scopes": ["source.abl", "support.function.abl"] },  // 'can-find'
+      { "startIndex": 12, "endIndex": 13, "scopes": ["source.abl", "meta.brace.round.js"] }  // '('
+    ],
+    [
+      { "startIndex": 0, "endIndex": 8, "scopes": ["source.abl"] },  // '        '
+      { "startIndex": 8, "endIndex": 13, "scopes": ["source.abl", "keyword.other.abl"] },  // 'first'
+      { "startIndex": 13, "endIndex": 14, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 14, "endIndex": 24, "scopes": ["source.abl", "storage.data.table.abl"] }  // 'department'
+    ],
+    [
+      { "startIndex": 0, "endIndex": 11, "scopes": ["source.abl"] },  // '           '
+      { "startIndex": 11, "endIndex": 16, "scopes": ["source.abl", "keyword.other.abl"] },  // 'where'
+      { "startIndex": 16, "endIndex": 17, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 17, "endIndex": 37, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'department.dept-code'
+      { "startIndex": 37, "endIndex": 38, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 38, "endIndex": 40, "scopes": ["source.abl", "keyword.operator.source.abl"] },  // 'eq'
+      { "startIndex": 40, "endIndex": 41, "scopes": ["source.abl"] },  // ' '
+      { "startIndex": 41, "endIndex": 51, "scopes": ["source.abl", "storage.data.table.abl"] },  // 'ttFoo.Code'
+      { "startIndex": 51, "endIndex": 52, "scopes": ["source.abl", "meta.brace.round.js"] }  // ')'
+    ],
+    [
+      { "startIndex": 0, "endIndex": 4, "scopes": ["source.abl", "keyword.other.abl"] },  // 'then'
+      { "startIndex": 4, "endIndex": 5, "scopes": ["source.abl", "punctuation.terminator.abl"] }  // '.'
+    ]
+  ];
+  shared.itShouldMatchExpectedScopes(statement, expectedTokens);
+})
+