Add rescript

Author: cknitt

.gitmodules

@@ -0,0 +1,3 @@
+[submodule "rescript_parser/syntax"]
+	path = rescript_parser/syntax
+	url = https://github.com/rescript-lang/syntax.git

lib/Extractor.re

@@ -33,15 +33,30 @@ let extract = (~duplicatesAllowed=false, paths) => {
     extractMessages(ast);
   };
 
+  let processReScriptFile = path => {
+    let channel = open_in_bin(path);
+    let src = really_input_string(channel, in_channel_length(channel));
+    close_in(channel);
+
+    let parser = Res_parser.(make(~mode=Default, src, path));
+    let ast = Res_core.parseImplementation(parser);
+
+    extractMessages(ast);
+  };
+
   let rec processPath = path => {
     if (!Sys.file_exists(path)) {
       raise(PathNotFound(path));
     };
 
     if (Sys.is_directory(path)) {
       Sys.readdir(path) |> Array.iter(filename => processPath(Filename.concat(path, filename)));
-    } else if (Filename.extension(path) == ".re") {
-      processReasonFile(path);
+    } else {
+      switch (Filename.extension(path)) {
+      | ".re" => processReasonFile(path)
+      | ".res" => processReScriptFile(path)
+      | _ => ()
+      };
     };
   };
 

lib/dune

@@ -1,4 +1,4 @@
 (library
   (name lib)
-  (libraries reason yojson unix)
+  (libraries reason yojson unix rescript_parser)
 )

rescript_parser/dune

@@ -0,0 +1,8 @@
+(copy_files ./syntax/src/*.ml)
+(copy_files ./syntax/src/*.mli)
+
+(library
+  (name rescript_parser)
+  (wrapped false)
+  (libraries compiler-libs)
+)

rescript_parser/syntax

@@ -0,0 +1,24 @@
+ReScript › full
+[
+  { \"id\": \"test4.msg1.1\", \"defaultMessage\": \"This is message 1.1\" },
+  { \"id\": \"test4.msg1.2\", \"defaultMessage\": \"This is message 1.2\" },
+  {
+    \"id\": \"test4.msg1.3\",
+    \"defaultMessage\": \"This is message 1.3\",
+    \"description\": \"Description for message 1.3\"
+  },
+  { \"id\": \"test4.msg1.4\", \"defaultMessage\": \"This is message 1.4\" },
+  { \"id\": \"test4.msg1.5\", \"defaultMessage\": \"This is message 1.5\" },
+  { \"id\": \"test4.msg1.6\", \"defaultMessage\": \"This is message 1.6\" },
+  {
+    \"id\": \"test4.msg1.7\",
+    \"defaultMessage\": \"This is message 1.7\",
+    \"description\": \"Description for message 1.7\"
+  },
+  { \"id\": \"test4.msg1.8\", \"defaultMessage\": \"This is message 1.8\" },
+  {
+    \"id\": \"test4.msg1.9\",
+    \"defaultMessage\": \"This is message 1.9\",
+    \"description\": \"Description for message 1.9\"
+  }
+]

test/__snapshots__/ReScript.18d405ea.0.snapshot

@@ -53,3 +53,10 @@ describe("Path not found", ({test}) => {
     expect.fn(extract).toThrowException(Extractor.PathNotFound("testData/test1/SomeFile.re"));
   });
 });
+
+describe("ReScript", ({test}) => {
+  test("full", ({expect}) => {
+    let json = extractAndGetJson(["testData/test4"]);
+    expect.string(json).toMatchSnapshot();
+  })
+});

test/lib/Tests.re

@@ -0,0 +1,69 @@
+let renderMessages1 = () =>
+  <ReactIntl.FormattedMessage id="test4.msg1.1" defaultMessage="This is message 1.1" />
+
+let renderMessages2 = () =>
+  <div>
+    <FormattedMessage id="test4.msg1.4" defaultMessage="This is message 1.4" />
+    <ReactIntl.FormattedMessage id="test4.msg1.5" defaultMessage="This is message 1.5" />
+  </div>
+
+let renderMessages3 = () =>
+  <div>
+    <ReactIntl.FormattedMessage id="test4.msg1.2" defaultMessage="This is message 1.2" />
+    <ReactIntl.FormattedMessage
+      id="test4.msg1.3"
+      defaultMessage="This is message 1.3"
+      description="Description for message 1.3"
+    />
+  </div>
+
+let theseShouldBeIgnored = () =>
+  <div>
+    <ReactIntl.FormattedMessage x="ignored1.1" y="This message is ignored" />
+    <FormattedMessage id="ignored1.2" description="This is a description" />
+  </div>
+
+let _ = ReactIntl.defineMessages({
+  "test4.msg1.6": {
+    "id": "test4.msg1.6",
+    "defaultMessage": "This is message 1.6",
+  },
+  "ignored1.3": {
+    "idd": "test4.msg1.8" /* This will not be extracted. */,
+    "defaultMessage": "This is message 1.8",
+  },
+})
+
+let _ = defineMessages({
+  "test4.msg1.7": {
+    "id": "test4.msg1.7",
+    "defaultMessage": "This is message 1.7",
+    "description": "Description for message 1.7",
+  },
+})
+
+module Msg = {
+  open ReactIntl
+
+  @@intl.messages
+
+  let msg18 = {id: "test4.msg1.8", defaultMessage: "This is message 1.8"}
+
+  let ignored1 = {idd: "test4.ignored1.1", defaultMessage: "This message is ignored"}
+}
+
+module Msg2 = {
+  open ReactIntl
+
+  let ignored2 = {id: "test4.ignored1.2", defaultMessage: "This message is ignored"}
+}
+
+module Msg3 = {
+  open ReactIntl
+
+  @@intl.messages
+
+  let msg19 =
+    @intl.description("Description for message 1.9")
+    {id: "test4.msg1.9", defaultMessage: "This is message 1.9"}
+}