Add lowercase directives

README.md

@@ -43,3 +43,4 @@ Thanks so much to everyone [who has contributed](https://github.com/codefori/vsc
 - [@p-behr](https://github.com/p-behr)
 - [@chrjorgensen](https://github.com/chrjorgensen)
 - [@sebjulliand](https://github.com/sebjulliand)
+- [@richardm90](https://github.com/richardm90)

extension/server/src/providers/linter/documentFormatting.ts

@@ -23,7 +23,8 @@ export default async function documentFormattingProvider(params: DocumentFormatt
 				// Need to fetch the docs again incase comments were added
 				// as part of RequiresProcedureDescription
 				docs = await parser.getDocs(document.uri, document.getText(), {
-					ignoreCache: true
+					ignoreCache: true,
+					withIncludes: true
 				});
 
 				// Next up, let's fix all the other things!

extension/server/src/providers/linter/index.ts

@@ -314,6 +314,7 @@ export function getActions(document: TextDocument, errors: IssueRange[]) {
 
 			case `SpecificCasing`:
 			case `IncorrectVariableCase`:
+			case `LowercaseDirectives`:
 			case `UppercaseDirectives`:
 				if (error.newValue) {
 					action = CodeAction.create(`Correct casing to '${error.newValue}'`, CodeActionKind.QuickFix);
@@ -342,7 +343,7 @@ export function getActions(document: TextDocument, errors: IssueRange[]) {
 
 			case `RequireBlankSpecial`:
 				if (error.newValue) {
-					action = CodeAction.create(`Convert constant name to uppercase`, CodeActionKind.QuickFix);
+					action = CodeAction.create(`Convert empty string literal to *BLANK`, CodeActionKind.QuickFix);
 					action.edit = {
 						changes: {
 							[document.uri]: [

language/linter.ts

@@ -26,6 +26,7 @@ const errorText = {
   'StringLiteralDupe': `Same string literal used more than once. Consider using a constant instead.`,
   'RequireBlankSpecial': `\`*BLANK\` should be used over empty string literals.`,
   'CopybookDirective': `Directive does not match requirement.`,
+  'LowercaseDirectives': `Directives must be in lowercase.`,
   'UppercaseDirectives': `Directives must be in uppercase.`,
   'NoSQLJoins': `SQL joins are not allowed. Consider creating a view instead.`,
   'NoGlobalsInProcedures': `Global variables should not be referenced in procedures.`,
@@ -203,15 +204,6 @@ export default class Linter {
 
               case `directive`:
                 value = statement[0].value;
-                if (rules.UppercaseDirectives) {
-                  if (value !== value.toUpperCase()) {
-                    errors.push({
-                      offset: { position: statement[0].range.start, end: statement[0].range.end },
-                      type: `UppercaseDirectives`,
-                      newValue: value.toUpperCase()
-                    });
-                  }
-                }
 
                 if (rules.CopybookDirective || rules.IncludeMustBeRelative) {
                   if ([`/COPY`, `/INCLUDE`].includes(value.toUpperCase())) {
@@ -291,8 +283,13 @@ export default class Linter {
                     }
 
                     if (rules.CopybookDirective) {
-                      const correctDirective = `/${rules.CopybookDirective.toUpperCase()}`;
-                      if (value.toUpperCase() !== correctDirective) {
+                      let correctDirective = `/${rules.CopybookDirective.toUpperCase()}`;
+                      let correctValue = value.toUpperCase();
+                      if (rules.LowercaseDirectives) {
+                        correctDirective = correctDirective.toLowerCase();
+                        correctValue = value.toLowerCase();
+                      }
+                      if (correctValue !== correctDirective) {
                         errors.push({
                           offset: { position: statement[0].range.start, end: statement[0].range.end },
                           type: `CopybookDirective`,
@@ -302,6 +299,27 @@ export default class Linter {
                     }
                   }
                 }
+
+                if (rules.LowercaseDirectives) {
+                  if (value !== value.toLowerCase()) {
+                    errors.push({
+                      offset: { position: statement[0].range.start, end: statement[0].range.end },
+                      type: `LowercaseDirectives`,
+                      newValue: value.toLowerCase()
+                    });
+                  }
+                }
+
+                if (rules.UppercaseDirectives) {
+                  if (value !== value.toUpperCase()) {
+                    errors.push({
+                      offset: { position: statement[0].range.start, end: statement[0].range.end },
+                      type: `UppercaseDirectives`,
+                      newValue: value.toUpperCase()
+                    });
+                  }
+                }
+
                 break;
 
               case `declare`:

language/parserTypes.ts

@@ -41,6 +41,7 @@ export interface Rules {
   literalMinimum?: number;
   RequireBlankSpecial?: boolean;
   CopybookDirective?: "copy"|"include";
+  LowercaseDirectives?: boolean;
   UppercaseDirectives?: boolean;
   NoSQLJoins?: boolean;
   NoGlobalsInProcedures?: boolean;

schemas/rpglint.json

@@ -85,6 +85,11 @@
 			],
 			"description": "Force which directive which must be used to include other source. (Copy or Include)"
 		},
+		"LowercaseDirectives": {
+			"$id": "#/properties/LowercaseDirectives",
+			"type": "boolean",
+			"description": "Directives must be in lowercase."
+		},
 		"UppercaseDirectives": {
 			"$id": "#/properties/UppercaseDirectives",
 			"type": "boolean",

tests/rpgle/copy3.rpgle

@@ -0,0 +1,3 @@
+**FREE
+
+Dcl-S CustomerName_t varchar(40) template;

tests/suite/directives.js

@@ -463,5 +463,111 @@ module.exports = {
 
     const someDs = cache.find(`someDs`);
     assert.strictEqual(someDs.keyword[`BASED`], undefined);
+  },
+
+  variable_case1: async () => {
+    const lines = [
+      `**FREE`,
+      `Ctl-Opt DftActGrp(*No);`,
+      `/copy './tests/rpgle/copy3.rpgle'`,
+      `Dcl-S MyCustomerName1 like(customername_t);`,
+      `Dcl-S MyCustomerName2 like(CustomerName_t);`,
+      `Dcl-S MyCustomerName3 like(CUSTOMERNAME_t);`,
+      `Dcl-S MyCustomerName4 like(CUSTOMERNAME_T);`,
+      `MyCustomerName1 = 'John Smith';`,
+      `dsply MyCustomerName1;`,
+      `Return;`
+    ].join(`\n`);
+
+    const cache = await parser.getDocs(uri, lines, {withIncludes: true, ignoreCache: true});
+    const { errors } = Linter.getErrors({ uri, content: lines }, {
+      IncorrectVariableCase: true
+    }, cache);
+
+    assert.strictEqual(errors.length, 3, `Expect length of 3`);
+
+    assert.deepStrictEqual(errors[0], {
+      offset: { position: 92, end: 106 },
+      type: `IncorrectVariableCase`,
+      newValue: `CustomerName_t`
+    });
+
+    assert.deepStrictEqual(errors[1], {
+      offset: { position: 180, end: 194 },
+      type: `IncorrectVariableCase`,
+      newValue: `CustomerName_t`
+    });
+
+    assert.deepStrictEqual(errors[2], {
+      offset: { position: 224, end: 238 },
+      type: `IncorrectVariableCase`,
+      newValue: `CustomerName_t`
+    });
+  },
+
+  uppercase1: async () => {
+    const lines = [
+      `**FREE`,
+      `Ctl-Opt DftActGrp(*No);`,
+      `/copy './tests/rpgle/copy1.rpgle'`,
+      `/Copy './tests/rpgle/copy2.rpgle'`,
+      `/COPY './tests/rpgle/copy3.rpgle'`,
+      `Dcl-S MyCustomerName1 like(CustomerName_t);`,
+      `MyCustomerName1 = 'John Smith';`,
+      `dsply MyCustomerName1;`,
+      `Return;`
+    ].join(`\n`);
+
+    const cache = await parser.getDocs(uri, lines, {withIncludes: true, ignoreCache: true});
+    const { errors } = Linter.getErrors({ uri, content: lines }, {
+      UppercaseDirectives: true
+    }, cache);
+
+    assert.strictEqual(errors.length, 2, `Expect length of 2`);
+
+    assert.deepStrictEqual(errors[0], {
+      offset: { position: 31, end: 36 },
+      type: `UppercaseDirectives`,
+      newValue: `/COPY`
+    });
+
+    assert.deepStrictEqual(errors[1], {
+      offset: { position: 65, end: 70 },
+      type: `UppercaseDirectives`,
+      newValue: `/COPY`
+    });
+  },
+
+  lowercase1: async () => {
+    const lines = [
+      `**FREE`,
+      `Ctl-Opt DftActGrp(*No);`,
+      `/copy './tests/rpgle/copy1.rpgle'`,
+      `/Copy './tests/rpgle/copy2.rpgle'`,
+      `/COPY './tests/rpgle/copy3.rpgle'`,
+      `Dcl-S MyCustomerName1 like(CustomerName_t);`,
+      `MyCustomerName1 = 'John Smith';`,
+      `dsply MyCustomerName1;`,
+      `Return;`
+    ].join(`\n`);
+
+    const cache = await parser.getDocs(uri, lines, {withIncludes: true, ignoreCache: true});
+    const { errors } = Linter.getErrors({ uri, content: lines }, {
+      LowercaseDirectives: true
+    }, cache);
+
+    assert.strictEqual(errors.length, 2, `Expect length of 2`);
+
+    assert.deepStrictEqual(errors[0], {
+      offset: { position: 65, end: 70 },
+      type: `LowercaseDirectives`,
+      newValue: `/copy`
+    });
+
+    assert.deepStrictEqual(errors[1], {
+      offset: { position: 99, end: 104 },
+      type: `LowercaseDirectives`,
+      newValue: `/copy`
+    });
   }
 }

tests/suite/linter.js

@@ -1269,14 +1269,14 @@ exports.linter15 = async () => {
 
   assert.deepStrictEqual(errors[0], {
     offset: { position: 36, end: 38 },
-    type: 'PrettyComments',
-    newValue: '// '
+    type: `PrettyComments`,
+    newValue: `// `
   });
 
   assert.deepStrictEqual(errors[1], {
     offset: { position: 207, end: 209 },
-    type: 'PrettyComments',
-    newValue: '// '
+    type: `PrettyComments`,
+    newValue: `// `
   });
 };