vbapm 0.6.3-alpha

package/package.json

@@ -0,0 +1,116 @@
+{
+  "name": "vbapm",
+  "version": "0.6.3-alpha",
+  "description": "A package manager and build tool for VBA",
+  "contributors": [
+    "Tim Hall <tim.hall.engr@gmail.com>",
+    "Martin Leduc <31558169+DecimalTurn@users.noreply.github.com>"
+  ],
+  "license": "MIT",
+  "homepage": "https://github.com/vbapm/core",
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/vbapm/core.git"
+  },
+  "engines": {
+    "node": ">=18.0.0"
+  },
+  "bin": {
+    "vba-blocks": "lib/vba-blocks.js",
+    "vba": "lib/vba-blocks.js"
+  },
+  "main": "lib/index.js",
+  "types": "lib/src/index.d.ts",
+  "exports": {
+    ".": {
+      "require": "./lib/index.js",
+      "types": "./lib/src/index.d.ts"
+    }
+  },
+  "files": [
+    "lib/",
+    "addins/build/",
+    "run-scripts/",
+    "LICENSE",
+    "README.md"
+  ],
+  "scripts": {
+    "format": "prettier --write \"**/*.{ts,js}\"",
+    "test": "jest --runInBand",
+    "typecheck": "tsc",
+    "test:e2e": "jest --config e2e.config.js --runInBand",
+    "build": "rimraf lib && rollup -c && tsc -p tsconfig.build.json",
+    "build:dev": "cross-env NODE_ENV=development rollup -c",
+    "build:addins": "cd addins && node --no-warnings ../scripts/build-addins",
+    "build:bootstrap": "cd scripts/bootstrap && node --no-warnings ../../lib/vba-blocks build",
+    "prepublishOnly": "npm run build",
+    "postversion": "git push && git push --tags",
+    "clean": "rimraf lib && rimraf dist && rimraf addins/build"
+  },
+  "jest": {
+    "preset": "ts-jest",
+    "testEnvironment": "node",
+    "testPathIgnorePatterns": [
+      "/node_modules/",
+      "/lib/"
+    ]
+  },
+  "dependencies": {
+    "@decimalturn/toml-patch": "^0.7.0",
+    "@timhall/ansi-colors": "^5.0.0",
+    "@timhall/dedent": "^0.9.1",
+    "archiver": "^3",
+    "conf": "^3",
+    "date-fns": "^2",
+    "debug": "^4",
+    "decompress": "^4",
+    "editorconfig": "^0.15.3",
+    "env-paths": "^2",
+    "fs-extra": "^7",
+    "isomorphic-git": "^1.8.2",
+    "logic-solver": "^2",
+    "meant": "^1.0",
+    "mri": "^1",
+    "node-fetch": "^2",
+    "open": "^6",
+    "pretty-hrtime": "^1",
+    "sanitize-filename": "^1",
+    "semver": "^5",
+    "tmp": "^0.0",
+    "walk-sync": "^1",
+    "xml-js": "^1.6"
+  },
+  "devDependencies": {
+    "@octokit/core": "^3.1.4",
+    "@octokit/rest": "^16.21.1",
+    "@rollup/plugin-commonjs": "^15.1.0",
+    "@rollup/plugin-json": "^4.1.0",
+    "@rollup/plugin-node-resolve": "^9.0.0",
+    "@rollup/plugin-replace": "^2.3.3",
+    "@rollup/plugin-typescript": "^6.0.0",
+    "@types/archiver": "^2",
+    "@types/fs-extra": "^5",
+    "@types/glob": "^7.2.0",
+    "@types/jest": "^23",
+    "@types/node": "^10",
+    "@types/node-fetch": "^2.1.7",
+    "@types/semver": "^5",
+    "@types/tmp": "^0.0",
+    "aws-sdk": "^2.562.0",
+    "builtin-modules": "^3.0.0",
+    "cross-env": "^5",
+    "dotenv": "^7.0.0",
+    "editor": "^1.0.0",
+    "jest": "^26.6.1",
+    "mustache": "^3",
+    "npm-run-all": "^4",
+    "prettier": "^1",
+    "rimraf": "^2",
+    "rollup": "^2.32.1",
+    "rollup-plugin-terser": "^7.0.2",
+    "ts-jest": "^26.4.2",
+    "tslib": "^1.9.3",
+    "typescript": "^4.9.5",
+    "url-join": "^4.0.1"
+  }
+}

package/run-scripts/run.applescript

@@ -0,0 +1,78 @@
+-- Arguments
+--
+-- appname (e.g. "excel")
+-- addin: posix full path to addin (e.g. "...")
+-- command: macro to execute in addin (e.g. "Build.ImportGraph")
+-- ...args: arguments to pass to macro (up to 10)
+
+on run argv
+	set output to ""
+
+	if (count of argv) >= 3 and (count of argv) <= 13 then
+		set appname to (item 1 of argv)
+		set addin to POSIX file (item 2 of argv)
+		set command to (item 3 of argv)
+
+		set args to {}
+		repeat with index from 4 to count of argv
+			set end of args to (item index of argv)
+		end repeat
+
+		if appname is "excel" then
+			set workbook_name to name of (info for addin)
+
+			tell application "Microsoft Excel"
+				set workbook_was_open to (exists workbook workbook_name)
+				if not workbook_was_open then
+					open workbook workbook file name addin without notify
+				end if
+
+				set output to output & my run_excel_macro(command, args)
+
+				if not workbook_was_open then
+					close workbook workbook_name saving yes
+				end if
+			end tell
+		end if
+	else
+		if (count of argv) < 3 then
+			set output to output & "ERROR #1: Invalid Input (appname, file, and macro are required"
+		else
+			set output to output & "ERROR #2: Invalid Input (only 10 arguments are supported)"
+		end if
+	end if
+
+	return output
+end run
+
+on run_excel_macro(command, args)
+	set result to ""
+
+	tell application "Microsoft Excel"
+		if (count of args) = 0 then
+			set result to result & (run VB macro command)
+		else if (count of args) = 1 then
+			set result to result & (run VB macro command arg1 (item 1 of args))
+		else if (count of args) = 2 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args))
+		else if (count of args) = 3 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args) arg3 (item 3 of args))
+		else if (count of args) = 4 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args) arg3 (item 3 of args) arg4 (item 4 of args))
+		else if (count of args) = 5 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args) arg3 (item 3 of args) arg4 (item 4 of args) arg5 (item 5 of args))
+		else if (count of args) = 6 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args) arg3 (item 3 of args) arg4 (item 4 of args) arg5 (item 5 of args) arg6 (item 6 of args))
+		else if (count of args) = 7 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args) arg3 (item 3 of args) arg4 (item 4 of args) arg5 (item 5 of args) arg6 (item 6 of args) arg7 (item 7 of args))
+		else if (count of args) = 8 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args) arg3 (item 3 of args) arg4 (item 4 of args) arg5 (item 5 of args) arg6 (item 6 of args) arg7 (item 7 of args) arg8 (item 8 of args))
+		else if (count of args) = 9 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args) arg3 (item 3 of args) arg4 (item 4 of args) arg5 (item 5 of args) arg6 (item 6 of args) arg7 (item 7 of args) arg8 (item 8 of args) arg9 (item 9 of args))
+		else if (count of args) = 10 then
+			set result to result & (run VB macro command arg1 (item 1 of args) arg2 (item 2 of args) arg3 (item 3 of args) arg4 (item 4 of args) arg5 (item 5 of args) arg6 (item 6 of args) arg7 (item 7 of args) arg8 (item 8 of args) arg9 (item 9 of args) arg10 (item 10 of args))
+		end if
+	end tell
+
+	return result
+end run_macro

package/run-scripts/run.ps1

@@ -0,0 +1,211 @@
+param(
+    [Parameter(Position=0)]
+    [string]$AppName,
+
+    [Parameter(Position=1)]
+    [string]$File,
+
+    [Parameter(Position=2)]
+    [string]$Command,
+
+    [Parameter(Position=3, ValueFromRemainingArguments=$true)]
+    [string[]]$MacroArgs
+)
+
+$ErrorActionPreference = 'Stop'
+
+if (-not $AppName -or -not $File -or -not $Command) {
+    Fail "ERROR #1: Invalid Input (appname, file, and macro are required)"
+}
+
+if ($MacroArgs.Count -gt 10) {
+    Fail "ERROR #2: Invalid Input (only 10 arguments are supported)"
+}
+
+# Unescape arguments
+$UnescapedArgs = @()
+foreach ($arg in $MacroArgs) {
+    $UnescapedArgs += Unescape $arg
+}
+
+Run $AppName $File $Command $UnescapedArgs
+exit 0
+
+# -------
+# Run
+# -------
+
+function Run {
+    param(
+        [string]$AppName,
+        [string]$File,
+        [string]$Command,
+        [string[]]$Args
+    )
+
+    switch ($AppName) {
+        "excel" {
+            $excel = [Excel]::new()
+            try {
+                $result = $excel.Run($File, $Command, $Args)
+            } finally {
+                $excel.Dispose()
+            }
+        }
+        default {
+            Fail "ERROR #3: Unsupported App `"$AppName`""
+        }
+    }
+
+    PrintLn $result
+}
+
+# -------
+# Excel
+# -------
+
+class Excel {
+    hidden [object]$App
+    hidden [bool]$ExcelWasOpen = $false
+    hidden [object]$Workbook
+    hidden [bool]$WorkbookWasOpen = $false
+
+    Excel() {
+        $this.OpenExcel()
+    }
+
+    [string] Run([string]$File, [string]$Command, [string[]]$Args) {
+        $this.OpenWorkbook($File)
+        $result = RunMacro $this.App $Command $Args
+
+        return $result
+    }
+
+    hidden [void] OpenExcel() {
+        try {
+            $this.App = [System.Runtime.InteropServices.Marshal]::GetActiveObject("Excel.Application")
+            $this.ExcelWasOpen = $true
+        } catch {
+            try {
+                $this.App = New-Object -ComObject "Excel.Application"
+                $this.App.Visible = $false
+            } catch {
+                Fail "ERROR #5: Failed to open Excel - $($_.Exception.Message)"
+            }
+        }
+    }
+
+    hidden [void] OpenWorkbook([string]$Path) {
+        $fileName = GetFileName $Path
+        $fileBase = GetFileBase $Path
+
+        # Check add-ins first
+        try {
+            $addin = $this.App.AddIns($fileName)
+            if ($addin.IsOpen) {
+                $this.Workbook = $addin
+                $this.WorkbookWasOpen = $true
+                return
+            }
+        } catch {
+            # Not found in add-ins, continue
+        }
+
+        # Check already-open workbooks
+        try {
+            $this.Workbook = $this.App.Workbooks($fileBase)
+            $this.WorkbookWasOpen = $true
+            return
+        } catch {
+            # Not already open, continue
+        }
+
+        # Open the workbook
+        try {
+            $this.Workbook = $this.App.Workbooks.Open($Path)
+        } catch {
+            Fail "ERROR #6: Failed to open workbook - $($_.Exception.Message)"
+        }
+    }
+
+    [void] Dispose() {
+        if (-not $this.WorkbookWasOpen -and $null -ne $this.Workbook) {
+            $this.Workbook.Close($true)
+            $this.Workbook = $null
+        }
+        if (-not $this.ExcelWasOpen -and $null -ne $this.App) {
+            $this.App.Quit()
+            [System.Runtime.InteropServices.Marshal]::ReleaseComObject($this.App) | Out-Null
+            $this.App = $null
+        }
+    }
+}
+
+# -------
+# Run Macro
+# -------
+
+function RunMacro {
+    param(
+        [object]$App,
+        [string]$Command,
+        [string[]]$Args
+    )
+
+    $numArgs = $Args.Count
+    switch ($numArgs) {
+        0  { return $App.Run($Command) }
+        1  { return $App.Run($Command, $Args[0]) }
+        2  { return $App.Run($Command, $Args[0], $Args[1]) }
+        3  { return $App.Run($Command, $Args[0], $Args[1], $Args[2]) }
+        4  { return $App.Run($Command, $Args[0], $Args[1], $Args[2], $Args[3]) }
+        5  { return $App.Run($Command, $Args[0], $Args[1], $Args[2], $Args[3], $Args[4]) }
+        6  { return $App.Run($Command, $Args[0], $Args[1], $Args[2], $Args[3], $Args[4], $Args[5]) }
+        7  { return $App.Run($Command, $Args[0], $Args[1], $Args[2], $Args[3], $Args[4], $Args[5], $Args[6]) }
+        8  { return $App.Run($Command, $Args[0], $Args[1], $Args[2], $Args[3], $Args[4], $Args[5], $Args[6], $Args[7]) }
+        9  { return $App.Run($Command, $Args[0], $Args[1], $Args[2], $Args[3], $Args[4], $Args[5], $Args[6], $Args[7], $Args[8]) }
+        10 { return $App.Run($Command, $Args[0], $Args[1], $Args[2], $Args[3], $Args[4], $Args[5], $Args[6], $Args[7], $Args[8], $Args[9]) }
+    }
+
+    return $null
+}
+
+# -------
+# Helpers
+# -------
+
+function Unescape {
+    param([string]$Value)
+    return $Value -replace '\^q', '"'
+}
+
+function GetFileBase {
+    param([string]$Path)
+    return [System.IO.Path]::GetFileName($Path)
+}
+
+function GetFileName {
+    param([string]$Path)
+    return [System.IO.Path]::GetFileNameWithoutExtension($Path)
+}
+
+function Fail {
+    param([string]$Message)
+    PrintLn "{`"success`":false,`"errors`":[`"$Message`"]}"
+    exit 1
+}
+
+function Print {
+    param([string]$Message)
+    [Console]::Out.Write($Message)
+}
+
+function PrintLn {
+    param([string]$Message)
+    [Console]::Out.WriteLine($Message)
+}
+
+function PrintErr {
+    param([string]$Message)
+    [Console]::Error.Write($Message)
+}