First VBScript implementation

.gitattributes

@@ -0,0 +1,2 @@
+* text=auto eol=lf
+impls/vbs/*.vbs text eol=crlf

.github/workflows/main.yml

@@ -27,6 +27,8 @@ jobs:
       matrix-linux: ${{ steps.get-matrix-step.outputs.linux }}
       do-macos: ${{ steps.get-matrix-step.outputs.do_macos }}
       matrix-macos: ${{ steps.get-matrix-step.outputs.macos }}
+      do-windows: ${{ steps.get-matrix-step.outputs.do_windows }}
+      matrix-windows: ${{ steps.get-matrix-step.outputs.windows }}
     steps:
       - uses: actions/checkout@v4
       - id: files
@@ -139,3 +141,50 @@ jobs:
           path: |
             *.log
             *.debug
+
+  windows:
+    needs: get-matrix
+    if: ${{ needs.get-matrix.outputs.do-windows == 'true' }}
+    runs-on: windows-2022
+    strategy:
+      fail-fast: false
+      matrix: ${{ fromJson(needs.get-matrix.outputs.matrix-windows) }}
+    steps:
+      - uses: Vampire/setup-wsl@v3
+        with:
+            distribution: kali-linux
+      - name: Install requirements for WSL
+        shell: wsl-bash {0}
+        run: |
+          sudo apt update -y
+          sudo apt install make -y
+          sudo apt install python2 -y
+          sudo ln -s /usr/bin/python2 /usr/bin/python
+      - uses: actions/checkout@v4
+      - name: Build
+        shell: wsl-bash {0}
+        run: |
+          export ${{ matrix.IMPL }}
+          ./ci.sh build ${IMPL}
+      - name: Step Tests
+        shell: wsl-bash {0}
+        run: |
+          export ${{ matrix.IMPL }}
+          ./ci.sh test ${IMPL}
+      - name: Regression Tests
+        shell: wsl-bash {0}
+        run: |
+          export ${{ matrix.IMPL }}
+          STEP=stepA REGRESS=1 HARD=1 OPTIONAL=0 ./ci.sh test ${IMPL}
+      - name: Performance Tests
+        shell: wsl-bash {0}
+        run: |
+          export ${{ matrix.IMPL }}
+          ./ci.sh perf ${IMPL}
+      - name: Archive logs and debug output
+        uses: actions/upload-artifact@v4
+        with:
+          name: logs.${{ matrix.IMPL }}
+          path: |
+            *.log
+            *.debug

IMPLS.yml

@@ -121,3 +121,5 @@ IMPL:
 # - {IMPL: swift3, NO_DOCKER: 1, OS: xcode8}}
 # - {IMPL: swift4, NO_DOCKER: 1, OS: xcode10}}
   - {IMPL: swift5, NO_DOCKER: 1, OS: macos}
+
+  - {IMPL: vbs, NO_DOCKER: 1, OS: windows}

Makefile.impls

@@ -39,7 +39,7 @@ IMPLS = ada ada.2 awk bash basic bbc-basic c c.2 chuck clojure coffee common-lis
 	guile haskell haxe hy io janet java java-truffle js jq julia kotlin latex3 livescript logo lua make mal \
 	matlab miniMAL nasm nim objc objpascal ocaml perl perl6 php picolisp pike plpgsql \
 	plsql powershell prolog ps purs python python.2 r racket rexx rpython ruby ruby.2 rust scala scheme skew sml \
-	swift swift3 swift4 swift5 tcl ts vala vb vhdl vimscript wasm wren yorick xslt zig
+	swift swift3 swift4 swift5 tcl ts vala vb vbs vhdl vimscript wasm wren yorick xslt zig
 
 step5_EXCLUDES += bash        # never completes at 10,000
 step5_EXCLUDES += basic       # too slow, and limited to ints of 2^16
@@ -54,6 +54,7 @@ step5_EXCLUDES += prolog      # no iteration (but interpreter does TCO implicitl
 step5_EXCLUDES += sml         # not implemented :(
 step5_EXCLUDES += $(if $(filter cpp,$(haxe_MODE)),haxe,) # cpp finishes 10,000, segfaults at 100,000
 step5_EXCLUDES += xslt		  # iteration cannot be expressed
+step5_EXCLUDES += vbs         # too slow for 10,000
 
 dist_EXCLUDES += mal
 # TODO: still need to implement dist
@@ -78,6 +79,7 @@ else ifeq ($(MAL_IMPL),powershell)
 mal_TEST_OPTS = --start-timeout 60 --test-timeout 180
 endif
 xslt_TEST_OPTS = --test-timeout 120
+vbs_TEST_OPTS = --no-pty
 
 
 #
@@ -191,6 +193,7 @@ tcl_STEP_TO_PROG =           impls/tcl/$($(1)).tcl
 ts_STEP_TO_PROG =            impls/ts/$($(1)).js
 vala_STEP_TO_PROG =          impls/vala/$($(1))
 vb_STEP_TO_PROG =            impls/vb/$($(1)).exe
+vbs_STEP_TO_PROG =           impls/vbs/$($(1)).vbs
 vhdl_STEP_TO_PROG =          impls/vhdl/$($(1))
 vimscript_STEP_TO_PROG =     impls/vimscript/$($(1)).vim
 wasm_STEP_TO_PROG =          impls/wasm/$($(1)).wasm

README.md

@@ -42,7 +42,7 @@ process guide](process/guide.md) there is also a [mal/make-a-lisp
 FAQ](docs/FAQ.md) where I attempt to answer some common questions.
 
 
-**3. Mal is implemented in 88 languages (94 different implementations and 115 runtime modes)**
+**3. Mal is implemented in 89 languages (95 different implementations and 116 runtime modes)**
 
 | Language | Creator |
 | -------- | ------- |
@@ -135,6 +135,7 @@ FAQ](docs/FAQ.md) where I attempt to answer some common questions.
 | [VHDL](#vhdl) | [Dov Murik](https://github.com/dubek) |
 | [Vimscript](#vimscript) | [Dov Murik](https://github.com/dubek) |
 | [Visual Basic.NET](#visual-basicnet) | [Joel Martin](https://github.com/kanaka)  |
+| [Visual Basic Script](#visual-basic-script) | [刘百超](https://github.com/OldLiu001)  |
 | [WebAssembly](#webassembly-wasm) (wasm) | [Joel Martin](https://github.com/kanaka) |
 | [Wren](#wren) | [Dov Murik](https://github.com/dubek) |
 | [XSLT](#xslt) | [Ali MohammadPur](https://github.com/alimpfard) |
@@ -1231,6 +1232,19 @@ make
 mono ./stepX_YYY.exe
 ```
 
+### Visual Basic Script ###
+
+The VBScript implementation of mal has been tested on Windows 10 1909.
+`install.vbs` can help you install the requirements (.NET 2.0 3.0 3.5).
+If you havn't install `.NET 2.0 3.0 3.5`, it will popup a window for installation.
+If you already installed that, it will do nothing.
+
+```
+cd impls\vbs
+install.vbs
+cscript -nologo stepX_YYY.vbs
+```
+
 ### WebAssembly (wasm) ###
 
 The WebAssembly implementation is written in

get-ci-matrix.py

@@ -49,13 +49,16 @@ def impl_text(impl):
 # Load the full implementation description file
 all_impls = yaml.safe_load(open(IMPLS_FILE))
 
-# Accumulate and output linux and macos implementations separately
+# Accumulate and output linux, macos & windows implementations separately
 linux_impls = []
 macos_impls = []
+windows_impls = []
 for impl in all_impls['IMPL']:
     targ = linux_impls
     if 'OS' in impl and impl['OS'] == 'macos':
         targ = macos_impls
+    if 'OS' in impl and impl['OS'] == 'windows':
+        targ = windows_impls
     # Run implementations with actual changes first before running
     # other impls triggered by non-impl code changes
     if impl['IMPL'] in run_impls:
@@ -65,5 +68,7 @@ def impl_text(impl):
 
 print("do_linux=%s" % json.dumps(len(linux_impls)>0))
 print("do_macos=%s" % json.dumps(len(macos_impls)>0))
+print("do_windows=%s" % json.dumps(len(windows_impls)>0))
 print("linux={\"IMPL\":%s}" % json.dumps(linux_impls))
 print("macos={\"IMPL\":%s}" % json.dumps(macos_impls))
+print("windows={\"IMPL\":%s}" % json.dumps(windows_impls))

impls/vbs/Makefile

@@ -0,0 +1,4 @@
+all:
+	true
+
+clean: