Remove Reason support, migrate sources to OCaml and update to latest ReScript parser (#82)

Author: cknitt

.github/workflows/ci.yml

@@ -12,6 +12,7 @@ jobs:
   build:
     name: Build and test on ${{ matrix.os }}
     strategy:
+      fail-fast: false
       matrix:
         os:
           - macos-latest
@@ -21,25 +22,35 @@ jobs:
     runs-on: ${{ matrix.os }}
 
     steps:
-      - name: Checkout repository
-        uses: actions/checkout@v2
+      - name: "Windows: Set git to use LF"
+        if: runner.os == 'Windows'
+        run: |
+          git config --global core.autocrlf false
+          git config --global core.eol lf
 
-      - name: Checkout submodules
-        run: git submodule update --init --recursive
+      - name: Checkout
+        uses: actions/checkout@v3
+        with:
+          submodules: true
 
-      - name: Use Node.js 14
-        uses: actions/setup-node@v2
+      - name: Use Node.js 16
+        uses: actions/setup-node@v3
         with:
-          node-version: 14
+          node-version: 16
 
-      - name: Use OCaml 4.06.1
+      - name: Use OCaml 4.14.0
         uses: ocaml/setup-ocaml@v2
         with:
-          ocaml-compiler: 4.06.1
+          ocaml-compiler: 4.14.0
+          opam-pin: false
+          opam-depext: false
 
       - name: OPAM install
         run: opam install . --deps-only --with-test
 
+      - name: Check format
+        run: opam exec -- dune build @fmt
+
       - name: Build
         run: opam exec -- dune build
 

.ocamlformat

@@ -0,0 +1,11 @@
+profile = default
+version = 0.22.4
+
+field-space = tight-decl
+break-cases = toplevel
+module-item-spacing = preserve
+cases-exp-indent = 2
+space-around-arrays = false
+space-around-lists = false
+space-around-records = false
+space-around-variants = false

.ocamlformat-ignore

@@ -0,0 +1 @@
+rescript_parser/*

.vscode/settings.json

@@ -0,0 +1,53 @@
+open Lib
+
+let extract ~duplicatesAllowed paths =
+  try
+    let messages = Extractor.extract ~duplicatesAllowed paths in
+    `List (messages |> List.map Message.toJson)
+    |> Yojson.Basic.pretty_to_channel stdout;
+    print_newline ()
+  with
+  | Extractor.PathNotFound path ->
+    Printf.eprintf "Error: file or directory does not exist: %s\n" path;
+    exit 1
+  | Extractor.DuplicateMessageId id ->
+    Printf.eprintf "Error: duplicate message id: %s\n" id;
+    exit 2
+  | Extractor.DefaultMessageNotMatching id ->
+    Printf.eprintf
+      "Error: duplicate message id: %s with different default messages\n" id;
+    exit 3
+  | exn ->
+    Printf.eprintf "Unexpected error: %s\n" (Printexc.to_string exn);
+    exit 10
+
+type options = {showVersion: bool; paths: string list; duplicatesAllowed: bool}
+
+let run () =
+  let options =
+    ref {showVersion = false; paths = []; duplicatesAllowed = false}
+  in
+  let processInputFilename filename =
+    options := {!options with paths = filename :: !options.paths}
+  in
+  let allowDuplicates () =
+    options := {!options with duplicatesAllowed = true}
+  in
+  let showVersion () = options := {!options with showVersion = true} in
+  let args =
+    [
+      ("-v", Arg.Unit showVersion, "shows the program version");
+      ( "--allow-duplicates",
+        Arg.Unit allowDuplicates,
+        "allows messages with identical `id` props if `defaultMessage` props \
+         are identical as well" );
+    ]
+  in
+  let usage = "Usage: " ^ Sys.argv.(0) ^ " [path...]" in
+  Arg.parse args processInputFilename usage;
+  match !options with
+  | {showVersion = true} -> print_endline Version.version
+  | {paths = []} -> Arg.usage args usage
+  | {paths; duplicatesAllowed} -> extract ~duplicatesAllowed paths
+
+let () = run ()

bin/Extract.ml

@@ -0,0 +1,3 @@
+(*** GENERATED BY setVersion.js ***)
+
+let version = "0.12.0 (ReScript f814061)"

bin/Extract.re

@@ -1,5 +1,11 @@
+(dirs bin lib syntax test)
+
+(vendored_dirs rescript_parser)
+
 (env
-  (dev
-    (flags (:standard -w -9)))
-  (release
-    (flags (:standard -w -9))))
+ (dev
+  (flags
+   (:standard -w -9)))
+ (release
+  (flags
+   (:standard -w -9))))

bin/Version.ml

@@ -28,9 +28,11 @@
  (depends
   (alcotest :with-test)
   (ocaml
-   (= 4.06.1))
-  (reason
-   (= 3.7.0))
+   (and
+    (>= 4.10.0)
+    (< 4.15.0)))
+  (ocamlformat
+   (= 0.22.4))
   (yojson
    (= 1.7.0))
   dune))