Compilation for Linux, MacOS, and Windows

.github/workflows/build.yml

@@ -0,0 +1,62 @@
+name: Build on Push & PR
+on: [push, pull_request]
+
+jobs:
+  build:
+    name: Build Gamma
+    strategy:
+      matrix:
+        os: [ubuntu-latest, windows-latest, macOS-latest]
+
+    runs-on: ${{ matrix.os }}
+    steps:
+    - name: Checkout source code
+      uses: actions/checkout@v3
+
+    - name: Install D compiler
+      uses: dlang-community/setup-dlang@v1
+      with:
+        compiler: ldc-1.33.0
+
+    - name: Run build
+      run: |
+        dub build
+
+  test:
+    name: Test Gamma
+    strategy:
+      matrix:
+        os: [ubuntu-latest, windows-latest, macOS-latest]
+
+    runs-on: ${{ matrix.os }}
+    steps:
+    - name: Checkout source codet
+      uses: actions/checkout@v3
+
+    - name: Install D compiler
+      uses: dlang-community/setup-dlang@v1
+      with:
+        compiler: dmd-2.103.1
+
+    - name: Run tests
+      run: |
+        dub test --config=example
+
+  check:
+    name: Check Style
+    runs-on: ubuntu-latest
+    steps:
+    - name: Checkout source code
+      uses: actions/checkout@v3
+
+    - name: Install D compiler
+      uses: dlang-community/setup-dlang@v1
+      with:
+        compiler: dmd-2.103.1
+
+    - run: |
+        dub fetch [email protected]
+
+    - name: Check style
+      run: |
+        dub run dscanner -- --styleCheck src test

.github/workflows/release.yml

@@ -0,0 +1,66 @@
+name: Release
+on: 
+  release:
+    types: [published]
+
+jobs:
+
+  test:
+    name: Test Gamma
+    strategy:
+      matrix:
+        os: [ubuntu-latest, windows-latest, macOS-latest]
+
+    runs-on: ${{ matrix.os }}
+    steps:
+    - name: Checkout source codet
+      uses: actions/checkout@v3
+
+    - name: Install D compiler
+      uses: dlang-community/setup-dlang@v1
+      with:
+        compiler: dmd-2.103.1
+
+    - name: Run tests
+      run: |
+        dub test --config=example
+
+  build:
+    name: Build Gamma
+    needs: test
+    strategy:
+      matrix:
+        os: [ubuntu-latest, windows-latest, macOS-latest]
+        include:
+          - os: windows-latest
+            rename: Rename-Item gamma.exe
+            exe: gamma.windows-amd64.exe
+          - os: ubuntu-latest
+            rename: mv ./gamma
+            exe: gamma.linux-amd64
+          - os: macOS-latest
+            rename: mv ./gamma
+            exe: gamma.macos-amd64
+
+    runs-on: ${{ matrix.os }}
+    steps:
+    - name: Checkout source code
+      uses: actions/checkout@v3
+
+    - name: Install D compiler
+      uses: dlang-community/setup-dlang@v1
+      with:
+        compiler: ldc-1.33.0
+
+    - name: Run build
+      run: |
+        dub build
+
+    - name: Rename binary
+      run:  ${{ matrix.rename }} ${{ matrix.exe }}
+
+    - name: Upload release binary
+      uses: AButler/[email protected]
+      with:
+        files: ${{ matrix.exe }}
+        repo-token: ${{ secrets.GITHUB_TOKEN }}

src/gamma/main.d

@@ -239,9 +239,28 @@ void build(string[] fileNames, string outputDirectory)
 
     if (!outputDirectory.empty)
     {
+        version(Windows)
+        {
+            auto executableName = format!"%s.exe"(fileNames.front.stripExtension);
+        } 
+        else 
+        {
+            auto executableName = fileNames.front.stripExtension;
+        }
         args ~= format!"-od=%s"(outputDirectory);
-        args ~= format!"-of=%s"(fileNames.front.stripExtension);
+        args ~= format!"-of=%s"(executableName);
     }
+
+    version(Windows) 
+    {
+        import std.string : translate;
+        for(int i; i < args.length; i++) 
+        {
+            dchar[dchar] translation = ['/': '\\'];
+            args[i] = translate(args[i], translation);
+        }
+    }
+
     info!"%s"(args.join(' '));
 
     auto pid = spawnProcess(args);

test/helper.d

@@ -28,7 +28,18 @@ Result run(string fmt, A...)(lazy A args)
     import std.process : executeShell;
     import std.stdio : writeln;
 
-    const command = format!fmt(args);
+    auto command = format!fmt(args);
+
+    version(Windows) 
+    {
+        import std.string : translate;
+        dchar[dchar] translation = ['/': '\\'];
+        command = translate(command, translation);
+
+        import std.regex : regex, replaceAll, replaceFirst;
+        command = replaceFirst(command, regex("echo\\s+\\|"), "echo. |");
+        command = replaceAll(command, regex("\\bcat\\b"), "type");
+    }
 
     writeln(command);
     return executeShell(command);
@@ -57,3 +68,11 @@ Result shouldFailWith(Result result, string pattern)
     }
     return result;
 }
+
+string asSingleLineDosInput(string multiLineInput) 
+{
+    import std.string : translate;
+
+    string[dchar] translation = ['\n' : " ", '|' : "^|", '<' : "^<", '>' : "^>"];
+    return translate(multiLineInput, translation);
+}

test/issues.d

@@ -15,8 +15,17 @@ unittest
             A: 'a' A.
             `.outdent;
 
-        run!"cat <<EOF | ./gamma --output-directory %s%sEOF"(directory, eag)
-            .shouldFailWith("error: start symbol S is unproductive");
+        version(Windows)
+        {
+            run!"mkdir %s & echo %s > %s\\input.eag && type %s\\input.eag | ./gamma --output-directory %s"
+                (directory, eag.asSingleLineDosInput, directory, directory, directory)
+                .shouldFailWith("error: start symbol S is unproductive");
+        }
+        else
+        {
+            run!"cat <<EOF | ./gamma --output-directory %s%sEOF"(directory, eag)
+                .shouldFailWith("error: start symbol S is unproductive");
+        }
     }
 }
 
@@ -31,9 +40,18 @@ unittest
             S <+ : S>: A | 'b'.
             A: 'a' A.
             `.outdent;
-
-        run!"cat <<EOF | ./gamma --output-directory %s%sEOF"(directory, eag)
-            .shouldPassWith("warn: A is unproductive");
+
+        version(Windows)
+        {
+            run!"mkdir %s & echo %s > %s\\input.eag && type %s\\input.eag | ./gamma --output-directory %s"
+                (directory, eag.asSingleLineDosInput, directory, directory, directory)
+                .shouldPassWith("warn: A is unproductive");
+        }
+        else
+        {
+            run!"cat <<EOF | ./gamma --output-directory %s%sEOF"(directory, eag)
+                .shouldPassWith("warn: A is unproductive");
+        }
     }
 }
 
@@ -50,9 +68,18 @@ unittest
             S<+ '1' N: N>: 
                 'a' S<N> 'b'.
             `.outdent;
-
-        run!"cat <<EOF | ./gamma --output-directory %s%sEOF"(directory, eag)
-            .shouldPassWith("S grammar is SLAG");
+
+        version(Windows)
+        {
+            run!"mkdir %s & echo %s > %s\\input.eag && type %s\\input.eag | ./gamma --output-directory %s"
+                (directory, eag.asSingleLineDosInput, directory, directory, directory)
+                .shouldPassWith("S grammar is SLAG");
+        }
+        else
+        {
+            run!"cat <<EOF | ./gamma --output-directory %s%sEOF"(directory, eag)
+                .shouldPassWith("S grammar is SLAG");
+        }
         run!"cd %s && echo aa bbb | ./S"(directory)
             .shouldFailWith("syntax error, end expected");
     }

test/slag.d

@@ -126,15 +126,22 @@ unittest
     }
 }
 
-@("compile lexer-test.eag as SLAG and run compiler")
-unittest
+version(Windows)
 {
-    with (sandbox)
+    // Unicode characters are not really supported on Windows command line...
+}
+else
+{
+    @("compile lexer-test.eag as SLAG and run compiler")
+    unittest
     {
-        run!"./gamma --space example/lexer-test.eag --output-directory %s"(directory)
-            .shouldPassWith("ε grammar is SLAG");
-        run!`cd %s && echo α β α β \\\\n α β β α| ./ε`(directory)
-            .shouldPassWith("^α α β β \n α α β β $");
+        with (sandbox)
+        {
+            run!"./gamma --space example/lexer-test.eag --output-directory %s"(directory)
+                .shouldPassWith("ε grammar is SLAG");
+            run!`cd %s && echo α β α β \\\\n α β β α| ./ε`(directory)
+                .shouldPassWith("^α α β β \n α α β β $");
+        }
     }
 }
 
@@ -159,10 +166,20 @@ unittest
     {
         run!"./gamma --space example/ebnf.eag --output-directory %s"(directory)
             .shouldPassWith("S grammar is SLAG");
-        run!`cd %s && echo 'a, , ab' | ./S`(directory)
-            .shouldPassWith("^a , , a b $");
-        run!`cd %s && echo '"a", "", "ab"' | ./S`(directory)
-            .shouldPassWith("^a , , a b $");
+        version(Windows)
+        {
+            run!`cd %s && echo a, , ab | ./S`(directory)
+                .shouldPassWith("^a , , a b $");
+            run!`cd %s && echo "a", "", "ab" | ./S`(directory)
+                .shouldPassWith("^a , , a b $");
+        }
+        else
+        {
+            run!`cd %s && echo 'a, , ab' | ./S`(directory)
+                .shouldPassWith("^a , , a b $");
+            run!`cd %s && echo '"a", "", "ab"' | ./S`(directory)
+                .shouldPassWith("^a , , a b $");
+        }
     }
 }
 
@@ -173,9 +190,19 @@ unittest
     {
         run!"./gamma --space example/bnf/ebnf.eag --output-directory %s"(directory)
             .shouldPassWith("S grammar is SLAG");
-        run!`cd %s && echo 'a, , ab' | ./S`(directory)
-            .shouldPassWith("^a , , a b $");
-        run!`cd %s && echo '"a", "", "ab"' | ./S`(directory)
-            .shouldPassWith("^a , , a b $");
+        version(Windows) 
+        {
+            run!`cd %s && echo a, , ab | ./S`(directory)
+                .shouldPassWith("^a , , a b $");
+            run!`cd %s && echo "a", "", "ab" | ./S`(directory)
+                .shouldPassWith("^a , , a b $");
+        }
+        else
+        {
+            run!`cd %s && echo 'a, , ab' | ./S`(directory)
+                .shouldPassWith("^a , , a b $");
+            run!`cd %s && echo '"a", "", "ab"' | ./S`(directory)
+                .shouldPassWith("^a , , a b $");
+        }
     }
 }