initial reason implementation

.gitignore

@@ -2,3 +2,5 @@ node_modules
 .DS_Store
 *.log
 build
+lib/bs/
+lib/js/src/

bsconfig.json

@@ -0,0 +1,13 @@
+// This is the configuration file used by BuckleScript's build system bsb. Its documentation lives here: http://bucklescript.github.io/bucklescript/docson/#build-schema.json
+// BuckleScript comes with its own parser for bsconfig.json, which is normal JSON, with the extra support of comments and trailing commas.
+{
+  "name": "my-first-app",
+  "version": "0.1.0",
+  "bsc-flags": ["-bs-super-errors"],
+  "sources": [
+    "src"
+  ],
+  "bs-dependencies" : [
+      // add your dependencies here. You'd usually install them normally through `npm install my-dependency`. If my-dependency has a bsconfig.json too, then everything will work seamlessly.
+  ]
+}

lib/js/test.js

@@ -0,0 +1,8 @@
+const z = require('./src/demo.js');
+
+// result should look like {1verb: [...], 1adjective: [...]}
+const result = z.conjugate('estudiar', { tense: 'present', subject: 'ella' });
+const result2 = z.conjugate('comer', { tense: 'present', subject: 'tu' });
+
+console.log('your result is: ', result);
+console.log('your result is: ', result2);

package.json

@@ -14,7 +14,10 @@
     "start": "babel src/conjugator.js -o build/app.js -w",
     "deploy": "babel src -d build && npm publish",
     "eslint": "./node_modules/.bin/eslint src --ext .js",
-    "eslint:watch": "./node_modules/.bin/esw src -w --color --ext .js"
+    "eslint:watch": "./node_modules/.bin/esw src -w --color --ext .js",
+    "clean": "bsb -clean-world",
+    "build": "bsb -make-world",
+    "watch": "bsb -make-world -w"
   },
   "repository": {
     "type": "git",
@@ -36,12 +39,15 @@
     "babel-preset-env": "^1.2.2",
     "babel-preset-es2015": "^6.24.0",
     "babel-preset-es2016": "^6.22.0",
+    "bs-platform": "1.9.1",
     "chai": "^3.5.0",
     "eslint": "^3.19.0",
     "eslint-config-airbnb-base": "^11.1.3",
     "eslint-plugin-import": "^2.2.0",
     "eslint-watch": "^3.1.0",
     "mocha": "^3.2.0"
   },
-  "files": ["build"]
+  "files": [
+    "build"
+  ]
 }

src/demo.re

@@ -0,0 +1,73 @@
+/* 
+   Goal: 
+     conjugate('estudiar', { tense: 'present', subject: 'ella' });
+       should return estudia
+ */
+
+module Subject = {
+  /* 
+     The type name becomes just `t` to avoid repetition when 
+     accessed from outside the module 
+   */
+
+  type t =
+    | Yo
+    | Tu
+    | Ella
+    | Nosotras
+    | Vosotras
+    | Ellas;
+  let ofString = 
+    fun
+    | "yo" => Yo
+    | "tu" => Tu
+    | "ella" => Ella
+    | "nosotras" => Nosotras
+    | "vosotras" => Vosotras
+    | _ => Ellas
+};
+
+module Ending = {
+  type t =
+    | Ar
+    | Er
+    | Ir;
+  let ofString = 
+    fun
+    | "ar" => Ar
+    | "er" => Er
+    | _ => Ir
+};
+
+let genPresentEnding ending subject => {
+  switch (subject:Subject.t, ending:Ending.t) {
+    | (Yo, _) => "o"
+    | (Tu, Ar) => "as"
+    | (Tu, _) => "es"
+    | (Ella, Ar) => "a"
+    | (Ella, _) => "e"
+    | (Nosotras, _) => "amos"
+    | (Vosotras, _) => "\195\161s"
+    | (Ellas, _) => "an"
+  }
+};
+
+let genFutureEnding ending subject => {
+  switch (subject:Subject.t, ending:Ending.t) {
+    | (Yo, _) => "\130"
+    | (Tu, _) => "\160s"
+    | ()
+  }
+}; 
+
+let conjugate word info => {
+  let start = ( String.length word ) - 2;
+  let endingType = Ending.ofString (String.sub word start 2);
+  let stem = (String.sub word 0 start);
+  let subjectType = Subject.ofString info##subject;
+  switch info##tense {
+    | "present" => stem ^ (genPresentEnding endingType subjectType)
+    //| "future" => word ^ (genFutureEnding endingType subjectType)
+  }
+};
+

src/spanish.re

@@ -0,0 +1,80 @@
+/* 
+   Goal: 
+     conjugate('estudiar', { tense: 'present', subject: 'ella' });
+       should return estudia
+ */
+
+module Subject = {
+  /* 
+     The type name becomes just `t` to avoid repetition when 
+     accessed from outside the module 
+   */
+
+  type t =
+    | Yo
+    | Tu
+    | Ella
+    | Nosotras
+    | Vosotras
+    | Ellas;
+  let ofString = 
+    fun
+    | "yo" => Yo
+    | "tu" => Tu
+    | "ella" => Ella
+    | "nosotras" => Nosotras
+    | "vosotras" => Vosotras
+    | _ => Ellas
+};
+
+module Ending = {
+  type t =
+    | Ar
+    | Er
+    | Ir;
+  let ofString = 
+    fun
+    | "ar" => Ar
+    | "er" => Er
+    | _ => Ir
+};
+
+let genPresentEnding ending subject => {
+  switch (subject:Subject.t, ending:Ending.t) {
+    | (Yo, _) => "o"
+    | (Tu, Ar) => "as"
+    | (Tu, _) => "es"
+    | (Ella, Ar) => "a"
+    | (Ella, _) => "e"
+    | (Nosotras, Ar) => "amos"
+    | (Nosotras, Er) => "emos"
+    | (Nosotras, _) => "imos"
+    | (Vosotras, Ar) => {js|áis|js}
+    | (Vosotras, Er) => {js|éis|js}
+    | (Vosotras, _) => {js|ís|js}
+    | (Ellas, _) => "an"
+  }
+};
+let genFutureEnding ending subject => {
+  switch (subject:Subject.t, ending:Ending.t) {
+    | (Yo, _) => {js|é|js} 
+    | (Tu, _) => {js|é|js} 
+    | (Ella, _) => {js||js}
+    | (Nosotras, _) => "emos" 
+    | (Vosotras, _) => {js|á|js} 
+    | (Ellas, _) => {js|án|js} 
+    }
+}; 
+
+let conjugate word info => {
+  let start = ( String.length word ) - 2;
+  let endingType = Ending.ofString (String.sub word start 2);
+  let stem = (String.sub word 0 start);
+  let subjectType = Subject.ofString info##subject;
+  switch info##tense {
+    | "present" => stem ^ (genPresentEnding endingType subjectType)
+    | "future" => word ^ (genFutureEnding endingType subjectType)
+  }
+};
+
+

tasks.json

@@ -0,0 +1,38 @@
+{
+    "version": "0.1.0",
+    "command": "npm",
+    "options": {
+        "cwd": "${workspaceRoot}"
+    },
+    "isShellCommand": true,
+    "args": [
+        "run",
+        "watch"
+    ],
+    "showOutput": "always",
+    "isBackground": true,
+    "problemMatcher": {
+        "fileLocation": "absolute",
+        "owner": "ocaml",
+        "watching": {
+            "activeOnStart": false,
+            "beginsPattern": ">>>> Start compiling",
+            "endsPattern": ">>>> Finish compiling"
+        },
+        "pattern": [
+            {
+                "regexp": "^File \"(.*)\", line (\\d+)(?:, characters (\\d+)-(\\d+))?:$",
+                "file": 1,
+                "line": 2,
+                "column": 3,
+                "endColumn": 4
+            },
+            {
+                "regexp": "^(?:(?:Parse\\s+)?(Warning|[Ee]rror)(?:\\s+\\d+)?:)?\\s+(.*)$",
+                "severity": 1,
+                "message": 2,
+                "loop": true
+            }
+        ]
+    }
+}

test/spanish_tests.js

@@ -1,13 +1,11 @@
 /* global describe, it */
 
-import { Spanish } from '../src/spanish';
+import spanish from '../lib/js/src/spanish';
 
 const expect = require('chai').expect;
 
 describe('Spanish', () => {
   let conjugatedWord;
-  const spanish = new Spanish();
-
   describe('Present Tense', () => {
     it('should conjugate present tense correctly: hablar should be hablo for yo', () => {
       conjugatedWord = spanish.conjugate('hablar', { tense: 'present', subject: 'yo' });