publishing project to use

README.md

@@ -19,7 +19,7 @@ make bindings like `bs-express` or `bs-fastify`. The unique binding this project
 - [x] create endpoint response html
 - [x] create endpoint response json
 - [x] create structure of projects
-- [ ] create list routers using
+- [x] create list routers using
 - [ ] not need create router to `/api` and `/api/`
 - [ ] create crud Rest Api with `/users` using [GET, POST, PUT, DELETE] methods HTTP
 - [ ] improve use of json to response data

bsconfig.json

@@ -1,18 +1,18 @@
 {
-	"name": "re-http",
-	"version": "0.0.1",
-	"sources": {
-		"dir": "lib",
-		"subdirs": true
-	},
-	"package-specs": {
-		"module": "commonjs",
-		"in-source": true
-	},
-	"suffix": ".bs.js",
-	"bs-dependencies": ["bs-node-http", "@glennsl/bs-json"],
-	"warnings": {
-		"error": "+101"
-	},
-	"refmt": 3
+  "name": "re-http",
+  "version": "0.0.1",
+  "sources": {
+    "dir": "lib",
+    "subdirs": true
+  },
+  "package-specs": {
+    "module": "commonjs",
+    "in-source": true
+  },
+  "suffix": ".bs.js",
+  "bs-dependencies": ["bs-node-http", "@glennsl/bs-json"],
+  "warnings": {
+    "error": "+101"
+  },
+  "refmt": 3
 }

lib/Method.re

@@ -0,0 +1,40 @@
+type method =
+    GET
+    | POST
+    | PUT
+    | UPDATE
+    | DELETE
+    | HEAD
+    | OPTION
+    | CONNECT
+    | TRACE
+    | PATCH
+
+let methodString = (method) => 
+    switch(method) {
+        | GET => "GET"
+        | POST => "POST"
+        | PUT => "PUT"
+        | UPDATE => "UPDATE"
+        | DELETE => "DELETE"
+        | HEAD => "HEAD"
+        | OPTION => "OPTION"
+        | CONNECT => "CONNECT"
+        | TRACE => "TRACE"
+        | PATCH => "PATCH"
+}
+
+let getMethod = (method) => {
+    switch(method) {
+        | `GET => GET
+        | `POST => POST
+        | `PUT => PUT
+        | `UPDATE => UPDATE
+        | `DELETE => DELETE
+        | `HEAD => HEAD
+        | `OPTION => OPTION
+        | `CONNECT => CONNECT
+        | `TRACE => TRACE
+        | `PATCH => PATCH
+    }
+}

lib/ReHttpNode.re

@@ -0,0 +1,12 @@
+open Server;
+open Rest;
+
+let start = (~routers, ~port) => {
+    let app = Http.createServer((~request, ~response) => {
+        Routers.start(~request, ~response, ~routers)
+    });
+
+    renderRouters(routers);
+
+    print_endline("server running in localhost:"++ string_of_int(port));
+}

lib/Rest.re

@@ -0,0 +1,20 @@
+open Http;
+
+let bodyResponse = (response, statusCode, message) => {
+    ServerResponse.(
+        response 
+        |> setStatusCode(statusCode) 
+        |> write(message) 
+        |> end_
+    );
+};
+
+let bodyJsonResponse = (response, statusCode, message) => {
+    ServerResponse.(
+        response
+        |> setHeader("content-type", "application/json")
+        |> setStatusCode(statusCode)
+        |> write(message)
+        |> end_
+    );
+};

lib/Routers.re

@@ -0,0 +1,14 @@
+ let start = (~request, ~response, ~routers) => {
+    let methodOfRequest = request 
+        -> Http.ClientRequest.getMethod 
+        -> Method.getMethod  
+
+    let uriRequest = Http.ClientRequest.getUrl(request);  
+
+    let methodSelected = Server.methodSelected(methodOfRequest, uriRequest, routers);
+
+    switch (methodSelected) {
+        | None => ResponseNotFound.run(request, response)
+        | Some(router) => router.action(request, response)
+    }
+  };

lib/Server.re

@@ -1,5 +1,37 @@
-let server =
-Http.createServer((~request, ~response) => App.start(~request, ~response));
+open Http;
+open Method;
 
-Http.Server.(server |>listen(~port=3000));
-print_endline("server running in localhost:3000");
+type port = int;
+
+type uri = string;
+
+type request = ClientRequest.t
+
+type response = ServerResponse.t
+
+type action = (request, response) => unit;
+
+type router = {
+    method: method,
+    uri: uri,
+    action: action
+};
+
+let starting = (app, port) => Http.Server.(app |> listen(~port=port));
+
+let methodSelected = (methodOfRequest, uriRequest, routers) => List.find_opt(router => {
+        router.method == methodOfRequest && 
+        router.uri == uriRequest
+    }, routers)
+
+
+let transformTring = (method) => Js.String.make(method)
+
+let renderRouterItem = (method, uri) => {
+    print_endline(Method.methodString(method) ++ ": " ++ uri)
+}
+
+
+let renderRouters = (routers) => {
+    List.map(router => renderRouterItem(router.method, router.uri), routers);
+}