Feat/proc julia enablement

CHANGELOG.md

@@ -11,6 +11,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 - Add the ability to sort columns in data viewer and view column properties ([#1622](https://github.com/sassoftware/vscode-sas-extension/pull/1622))
 - Add code comment collapsing ([#1638](https://github.com/sassoftware/vscode-sas-extension/pull/1638))
 - Add ability to view dataset properties ([#1631](https://github.com/sassoftware/vscode-sas-extension/pull/1631))
+- Add R language support for PROC RLANG (syntax highlighting, notebook cells, code formatting preservation)
 
 ### Fixed
 

README.md

@@ -10,7 +10,7 @@ The SAS extension includes many [features](https://sassoftware.github.io/vscode-
 
 - SAS syntax highlighting and help, code completion, and code snippets
 - Navigate SAS Content and libraries, including table viewer
-- Create notebooks for SAS, SQL, Python and other languages
+- Create notebooks for SAS, SQL, Python, R, and other languages
 
 <img src="website/static/images/featuresGlance.png"/>
 

client/src/components/ContentNavigator/convert.ts

@@ -20,12 +20,16 @@ const stepRef: Record<string, string> = {
   sas: "a7190700-f59c-4a94-afe2-214ce639fcde",
   sql: "a7190700-f59c-4a94-afe2-214ce639fcde",
   python: "ab59f8c4-af9a-4608-a5d5-a8365357bb99",
+  rlang: "ab59f8c4-af9a-4608-a5d5-a8365357bb99",
+  julia: "ab59f8c4-af9a-4608-a5d5-a8365357bb99",
 };
 
 const stepTitle: Record<string, string> = {
   sas: l10n.t("SAS Program"),
   sql: l10n.t("SQL Program"),
   python: l10n.t("Python Program"),
+  rlang: l10n.t("R Program"),
+  julia: l10n.t("Julia Program"),
 };
 
 const NODE_SPACING = 150;
@@ -305,7 +309,7 @@ function generateCodeListFromSASNotebook(content: string): Entry[] {
       let code = cell.value;
       if (code !== "") {
         const language = cell.language;
-        if (["python", "sas", "sql"].includes(language)) {
+        if (["python", "sas", "sql", "rlang", "julia"].includes(language)) {
           if (language === "sql") {
             code = `PROC SQL;
 ${code};

client/src/components/notebook/Controller.ts

@@ -11,7 +11,7 @@ export class NotebookController {
   readonly controllerId = "sas-notebook-controller-id";
   readonly notebookType = "sas-notebook";
   readonly label = "SAS Notebook";
-  readonly supportedLanguages = ["sas", "sql", "python"];
+  readonly supportedLanguages = ["sas", "sql", "python", "r", "julia"];
 
   private readonly _controller: vscode.NotebookController;
   private _executionOrder = 0;

client/src/components/notebook/exporters/toHTML.ts

@@ -16,7 +16,9 @@ import {
 
 import { readFileSync } from "fs";
 import hljs from "highlight.js/lib/core";
+import julia from "highlight.js/lib/languages/julia";
 import python from "highlight.js/lib/languages/python";
+import r from "highlight.js/lib/languages/r";
 import sql from "highlight.js/lib/languages/sql";
 import { marked } from "marked";
 import path from "path";
@@ -27,7 +29,9 @@ import { includeLogInNotebookExport } from "../../utils/settings";
 const templatesDir = path.resolve(__dirname, "../notebook/exporters/templates");
 
 hljs.registerLanguage("python", python);
+hljs.registerLanguage("r", r);
 hljs.registerLanguage("sql", sql);
+hljs.registerLanguage("julia", julia);
 
 export const exportToHTML = async (
   notebook: NotebookDocument,

client/src/components/notebook/exporters/toSAS.ts

@@ -15,8 +15,12 @@ const exportCell = (cell: NotebookCell) => {
       return text;
     case "python":
       return wrapPython(text);
+    case "r":
+      return wrapRlang(text);
     case "sql":
       return wrapSQL(text);
+    case "julia":
+      return wrapJulia(text);
     case "markdown":
       return `/*\n${text}\n*/`;
   }
@@ -36,3 +40,15 @@ submit;
 ${code}
 endsubmit;
 run;`;
+
+const wrapRlang = (code: string) => `proc rlang;
+submit;
+${code}
+endsubmit;
+run;`;
+
+const wrapJulia = (code: string) => `proc julia;
+submit;
+${code}
+endsubmit;
+run;`;

client/src/components/utils/SASCodeDocument.ts

@@ -180,6 +180,22 @@ endsubmit;
 run;`;
   }
 
+  private wrapRlang(code: string) {
+    return `proc rlang;
+submit;
+${code}
+endsubmit;
+run;`;
+  }
+
+  private wrapJulia(code: string) {
+    return `proc julia;
+submit;
+${code}
+endsubmit;
+run;`;
+  }
+
   private insertLogStartIndicator(code: string): string {
     // add a comment line at the top of code,
     // this comment line will be used as indicator to the beginning of log related with this code
@@ -198,6 +214,14 @@ ${code}`;
       wrapped = this.wrapPython(wrapped);
     }
 
+    if (this.parameters.languageId === "r") {
+      wrapped = this.wrapRlang(wrapped);
+    }
+
+    if (this.parameters.languageId === "julia") {
+      wrapped = this.wrapJulia(wrapped);
+    }
+
     wrapped = this.wrapCodeWithSASProgramFileName(wrapped);
 
     wrapped = this.wrapCodeWithPreambleAndPostamble(wrapped);

client/test/components/util/SASCodeDocument.test.ts

@@ -38,6 +38,74 @@ run;
     assert.equal(sasCodeDoc.getWrappedCode(), expected);
   });
 
+  it("wrap rlang code", () => {
+    const parameters: SASCodeDocumentParameters = {
+      languageId: "r",
+      code: `for (x in 1:6) {
+  print(x)
+}
+print("test")`,
+      selectedCode: "",
+      htmlStyle: "Illuminate",
+      outputHtml: true,
+      uuid: "519058ad-d33b-4b5c-9d23-4cc8d6ffb163",
+      checkKeyword: async () => false,
+    };
+
+    const sasCodeDoc = new SASCodeDocument(parameters);
+
+    const expected = `/** LOG_START_INDICATOR **/
+title;footnote;ods _all_ close;
+ods graphics on;
+ods html5(id=vscode) style=Illuminate options(bitmap_mode='inline' svg_mode='inline') body="519058ad-d33b-4b5c-9d23-4cc8d6ffb163.htm";
+proc rlang;
+submit;
+for (x in 1:6) {
+  print(x)
+}
+print("test")
+endsubmit;
+run;
+;*';*";*/;run;quit;ods html5(id=vscode) close;
+`;
+
+    assert.equal(sasCodeDoc.getWrappedCode(), expected);
+  });
+
+  it("wrap julia code", () => {
+    const parameters: SASCodeDocumentParameters = {
+      languageId: "julia",
+      code: `# Julia code example
+println("Hello from Julia!")
+x = [1, 2, 3, 4, 5]
+mean_val = sum(x) / length(x)`,
+      selectedCode: "",
+      htmlStyle: "Illuminate",
+      outputHtml: true,
+      uuid: "519058ad-d33b-4b5c-9d23-4cc8d6ffb163",
+      checkKeyword: async () => false,
+    };
+
+    const sasCodeDoc = new SASCodeDocument(parameters);
+
+    const expected = `/** LOG_START_INDICATOR **/
+title;footnote;ods _all_ close;
+ods graphics on;
+ods html5(id=vscode) style=Illuminate options(bitmap_mode='inline' svg_mode='inline') body="519058ad-d33b-4b5c-9d23-4cc8d6ffb163.htm";
+proc julia;
+submit;
+# Julia code example
+println("Hello from Julia!")
+x = [1, 2, 3, 4, 5]
+mean_val = sum(x) / length(x)
+endsubmit;
+run;
+;*';*";*/;run;quit;ods html5(id=vscode) close;
+`;
+
+    assert.equal(sasCodeDoc.getWrappedCode(), expected);
+  });
+
   it("wrap sql code", () => {
     const parameters: SASCodeDocumentParameters = {
       languageId: "sql",

client/testFixture/formatter/expected.sas

@@ -46,6 +46,26 @@ def my_function():
 endsubmit;
 run;
 
+proc rlang;
+submit;
+# Reference to variable defined in previous PROC RLANG call
+print(paste("x =", x))
+my_function <- function() {
+    print("Inside the proc step")
+}
+endsubmit;
+run;
+
+proc julia;
+submit;
+# Reference to variable defined in previous PROC JULIA call
+println("x = ", x)
+function my_function()
+    println("Inside the proc step")
+end
+endsubmit;
+run;
+
 proc lua;
 submit;
 local dsid = sas.open("sashelp.company") -- open for input            
@@ -131,6 +151,28 @@ print('first statement after for loop')
 endinteractive;
 run;
 
+proc rlang;
+submit;
+fruits <- c("apple", "banana", "cherry")
+for (x in fruits) {
+   print(x)
+}
+
+print('first statement after for loop')
+endsubmit;
+run;
+
+proc julia;
+submit;
+fruits = ["apple", "banana", "cherry"]
+for x in fruits
+   println(x)
+end
+
+println("first statement after for loop")
+endsubmit;
+run;
+
 proc lua;
 submit;
 

client/testFixture/formatter/unformatted.sas

@@ -40,6 +40,24 @@ def my_function():
     print("Inside the proc step")
 endsubmit;
 run;
+proc rlang;
+submit;
+# Reference to variable defined in previous PROC RLANG call
+print(paste("x =", x))
+my_function <- function() {
+    print("Inside the proc step")
+}
+endsubmit;
+run;
+proc julia;
+submit;
+# Reference to variable defined in previous PROC JULIA call
+println("x = ", x)
+function my_function()
+    println("Inside the proc step")
+end
+endsubmit;
+run;
 proc lua;
 submit;
 local dsid = sas.open("sashelp.company") -- open for input            
@@ -126,6 +144,28 @@ print('first statement after for loop')
 endinteractive;
 run;
 
+proc rlang;
+submit;
+fruits <- c("apple", "banana", "cherry")
+for (x in fruits) {
+   print(x)
+}
+
+print('first statement after for loop')
+endsubmit;
+run;
+
+proc julia;
+submit;
+fruits = ["apple", "banana", "cherry"]
+for x in fruits
+   println(x)
+end
+
+println("first statement after for loop")
+endsubmit;
+run;
+
 proc lua;
 submit;
 

client/testFixture/sasnb_export.sas

@@ -19,6 +19,40 @@ print("Result: ", a*10 + b)
 endsubmit;
 run;
 
+/*
+## R Code
+
+This is some R code
+*/
+
+/*
+This is a separate note in **Markdown** format.
+*/
+
+proc rlang;
+submit;
+die <- 1:6
+paste("Die Maths: ", die[3]*4 + die[6])
+endsubmit;
+run;
+
+/*
+## Julia Code
+
+This is some Julia code
+*/
+
+/*
+This is a separate note in **Markdown** format.
+*/
+
+proc julia;
+submit;
+dice=1:6
+println("Dice Maths: ", dice[3]*4 + dice[6])
+endsubmit;
+run;
+
 /*
 ## SAS Code
 */