Upgrade to Grain 0.4 (w/ comment questions)

Author: phated

fileserver.gr

@@ -8,59 +8,83 @@ import String from "string"
 import Mediatype from "./lib/mediatype"
 import Stringutil from "./lib/stringutil"
 
-let serve = (abs_path) => {
-    // Trim the leading /
-    let path = String.slice(1, String.length(abs_path), abs_path)
-    File.fdWrite(File.stderr, "Fileserver: Loading file ")
-    File.fdWrite(File.stderr, path)
-    File.fdWrite(File.stderr, "\n")
+let internalError = () => {
+  // Is stdout correct here?
+  let result = File.fdWrite(File.stdout, "Status: 500\n\nInternal Server Error")
+  match (result) {
+    Err(err) => {
+      // TODO: What do you do on a write error?
+      void
+    },
+    Ok(_nBytes) => void,
+  }
+}
 
-    // Open file
-    // TODO: This throws an error when something goes wrong.
-    // But Grain 0.3 does not have a try/catch yet.
-    // When we figure out how, we need to catch the error here
-    // and do a 404 or 500.
-    let input = File.pathOpen(
-        File.pwdfd,
-        [],
-        path,
-        [],
-        [File.FdRead],
-        [],
-        [],   
-    )
+let notFound = () => {
+  let result = File.fdWrite(File.stdout, "Status: 404\n\nNot Found")
+  match (result) {
+    Err(err) => {
+      // TODO: What do you do on a write error?
+      void
+    },
+    Ok(_nBytes) => void,
+  }
+}
 
-    File.fdWrite(File.stdout, "Content-Type: ")
-    File.fdWrite(File.stdout, Mediatype.guess(path))
-    File.fdWrite(File.stdout, "\n\n")
-    
-    // Pipe output to STDOUT
-    let rec pipe = (in, out) => {
-        let (d, len) = File.fdRead(in, 1024)
-        File.fdWrite(out, d)
-        if (len > 0) {
-            pipe(in, out)
-        }
-    }
-    pipe(input, File.stdout)
-    File.fdClose(input)
+// Pipe output to STDOUT
+let rec pipe = (in, out) => {
+  let res = File.fdRead(in, 1024)
+  match (res) {
+    Err(err) => {
+      // TODO: What to do on a read error?
+      void
+    },
+    Ok((d, len)) => {
+      // TODO: What should happen if this Result is an error
+      File.fdWrite(out, d)
+      if (len > 0) {
+        pipe(in, out)
+      }
+    },
+  }
 }
 
-let guestpath = (env) => {
+let serve = abs_path => {
+  // Trim the leading /
+  let path = String.slice(1, String.length(abs_path), abs_path)
+  // TODO: What should happen if any of these Results are an error
+  File.fdWrite(File.stderr, "Fileserver: Loading file ")
+  File.fdWrite(File.stderr, path)
+  File.fdWrite(File.stderr, "\n")
 
-    // Backward compat for an older version of Wagi that had PATH_INFO wrong.
-    // X_RELATIVE_PATH was removed before Wagi 0.4
-    match (Map.get("X_RELATIVE_PATH", env)) {
-        Some(p) => String.concat("/", p),
-        None => {
-            Option.unwrap(Map.get("PATH_INFO", env))
-        }
-    }
-    
+  // Open file
+  let result = File.pathOpen(File.pwdfd, [], path, [], [File.FdRead], [], [])
+
+  match (result) {
+    Err(_err) => notFound(),
+    Ok(input) => {
+      // TODO: What should happen if any of these Results are an error
+      File.fdWrite(File.stdout, "Content-Type: ")
+      File.fdWrite(File.stdout, Mediatype.guess(path))
+      File.fdWrite(File.stdout, "\n\n")
+
+      pipe(input, File.stdout)
+      // TODO: What should happen if this Result is an error
+      File.fdClose(input)
+      void
+    },
+  }
 }
 
-let notFound = () => {
-    File.fdWrite(File.stdout, "Status: 404\n\nNot Found")
+let guestpath = env => {
+  // Backward compat for an older version of Wagi that had PATH_INFO wrong.
+  // X_RELATIVE_PATH was removed before Wagi 0.4
+  match (Map.get("X_RELATIVE_PATH", env)) {
+    Some(p) => String.concat("/", p),
+    None => {
+      Option.unwrap(Map.get("PATH_INFO", env))
+    },
+  }
 }
 
 let kv = Env.envMap()

lib/env.gr

@@ -4,33 +4,44 @@ import Array from "array"
 import String from "string"
 import Option from "option"
 
-// Split an environment variable at the first equals sign.
-// @param item: An environment variable pair, separated by an equals sign (=).
-// @return (String, String) A tuple key/value pair.
-export let splitEnvVar = (item) => {
-    let offsetOpt = String.indexOf("=", item)
+/**
+ * Split an environment variable at the first equals sign.
+ *
+ * @param item: An environment variable pair, separated by an equals sign (=).
+ * @returns A tuple key/value pair.
+ */
+export let splitEnvVar = item => {
+  let offsetOpt = String.indexOf("=", item)
 
-    // For now, fail if the env var is malformed.
-    let offset = Option.unwrap(offsetOpt)
+  // For now, fail if the env var is malformed.
+  let offset = Option.unwrap(offsetOpt)
 
-    let key = String.slice(0, offset, item)
-    let val = String.slice(offset+1, String.length(item), item)
-    (key, val)
+  let key = String.slice(0, offset, item)
+  let val = String.slice(offset + 1, String.length(item), item)
+  (key, val)
 }
 
-// Get the environment variables as a Map<String, String>
-//
-// @return Map<String, String> A map of all environment variables.
-export let envMap = () =>  {
-    let parsed = Map.make()
-    let env = Process.env()
-    let pairs = Array.map(splitEnvVar,env)
+/**
+ * Get the environment variables as a Map<String, String>
+ *
+ * @returns A map of all environment variables.
+ */
+export let envMap = () => {
+  let parsed = Map.make()
+  let env = Process.env()
+  match (env) {
+    Err(err) => parsed,
+    Ok(env) => {
+      let pairs = Array.map(splitEnvVar, env)
 
-    Array.forEach((item) => {
-        let (k, v) = item
-        Map.set(k, v, parsed)
-    }, pairs)
-    parsed
+      Array.forEach(
+        item => {
+          let (k, v) = item
+          Map.set(k, v, parsed)
+        },
+        pairs,
+      )
+      parsed
+    },
+  }
 }
-
-

lib/mediatype.gr

@@ -2,7 +2,7 @@ import String from "string"
 import Array from "array"
 import Option from "option"
 import Map from "map"
-import {lastIndexOf, reverse} from "./lib/stringutil"
+import { lastIndexOf, reverse } from "./stringutil"
 
 export let default_mt = "application/octet-stream"
 
@@ -82,18 +82,30 @@ Map.set("7z", "application/x-7z-compressed", mediatypes)
 Map.set("azw", "application/vnd.amazon.ebook", mediatypes)
 Map.set("bin", "application/octet-stream", mediatypes)
 Map.set("doc", "application/msword", mediatypes)
-Map.set("docx", "application/vnd.openxmlformats-officedocument.wordprocessingml.document", mediatypes)
+Map.set(
+  "docx",
+  "application/vnd.openxmlformats-officedocument.wordprocessingml.document",
+  mediatypes,
+)
 Map.set("epub", "application/epub+zip", mediatypes)
 Map.set("odp", "application/vnd.oasis.opendocument.presentation", mediatypes)
 Map.set("ods", "application/vnd.oasis.opendocument.spreadsheet", mediatypes)
 Map.set("odt", "application/vnd.oasis.opendocument.text", mediatypes)
 Map.set("pdf", "application/pdf", mediatypes)
 Map.set("ppt", "application/vnd.ms-powerpoint", mediatypes)
-Map.set("pptx", "application/vnd.openxmlformats-officedocument.presentationml.presentation", mediatypes)
+Map.set(
+  "pptx",
+  "application/vnd.openxmlformats-officedocument.presentationml.presentation",
+  mediatypes,
+)
 Map.set("rtf", "application/rtf", mediatypes)
 Map.set("vsd", "application/vnd.visio", mediatypes)
 Map.set("xls", "application/vnd.ms-excel", mediatypes)
-Map.set("xlsx", "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet", mediatypes)
+Map.set(
+  "xlsx",
+  "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet",
+  mediatypes,
+)
 
 // Fonts
 Map.set("eot", "application/vnd.ms-fontobject", mediatypes)
@@ -102,19 +114,21 @@ Map.set("ttf", "font/ttf", mediatypes)
 Map.set("woff", "font/woff", mediatypes)
 Map.set("woff2", "font/woff2", mediatypes)
 
-// Guess the media type of this file
-//
-// Per recommendation, if no media type is found for an extension,
-// this returns `application/octet-stream`.
-//
-// @param filename: The name of the file
-// @returns String a media type
+/**
+ * Guess the media type of this file
+ *
+ * Per recommendation, if no media type is found for an extension,
+ * this returns `application/octet-stream`.
+ *
+ * @param filename: The name of the file
+ * @returns A media type
+ */
 export let guess = (filename: String) => {
-    match (lastIndexOf(".", filename)) {
-        Some(extOffset) => {
-            let ext = String.slice(extOffset + 1, String.length(filename), filename)
-            Option.unwrapWithDefault(default_mt, Map.get(ext, mediatypes))
-        },
-        None => default_mt
-    }
+  match (lastIndexOf(".", filename)) {
+    Some(extOffset) => {
+      let ext = String.slice(extOffset + 1, String.length(filename), filename)
+      Option.unwrapWithDefault(default_mt, Map.get(ext, mediatypes))
+    },
+    None => default_mt,
+  }
 }

lib/stringutil.gr

@@ -1,50 +1,50 @@
 import String from "string"
 import Array from "array"
 
-// Return a String that is the reverse of the given String.
-//
-// @param str: The string to reverse.
-// @return String A reversed version of the given string
+/**
+ * Return a String that is the reverse of the given String.
+ *
+ * @param str: The string to reverse.
+ * @returns A reversed version of the given string
+ */
 export let reverse = (str: String) => {
-    let chars = String.explode(str)
-    let clen = Array.length(chars)
-    let rev = Array.init(clen, (index) => {
-        let last = clen - index - 1
-        chars[last]
-    })
-    String.implode(rev)
+  let chars = String.explode(str)
+  let rev = Array.reverse(chars)
+  String.implode(rev)
 }
 
-// Get the index of the last appearance of needle in the haystack.
-//
-// For a multi-character needle, this will return the end of that sequence,
-// not the beginning (as indexOf does).
-//
-// @param needle: The string to search for
-// @param haystack: The string to be searched
-// @return Option<Number> The offset, if found, or a number
+/**
+ * Get the index of the last appearance of needle in the haystack.
+ *
+ * For a multi-character needle, this will return the end of that sequence,
+ * not the beginning (as indexOf does).
+ *
+ * @param needle: The string to search for
+ * @param haystack: The string to be searched
+ * @returns The offset, if found, or a number
+ */
 export let lastIndexOf = (needle: String, haystack: String) => {
-    let rev = reverse(haystack)
-    let revNeedle = reverse(needle)
-    let nlen = String.length(needle)
-    let i = String.indexOf(revNeedle, rev)
-    match (i) {
-        Some(offset) => Some(String.length(haystack) - 1 - offset),
-        None => None,   
-    }
+  let rev = reverse(haystack)
+  let revNeedle = reverse(needle)
+  let nlen = String.length(needle)
+  let i = String.indexOf(revNeedle, rev)
+  match (i) {
+    Some(offset) => Some(((String.length(haystack)) - 1) - offset),
+    None => None,
+  }
 }
 
 export let afterLast = (needle: String, haystack: String) => {
-    match (lastIndexOf(needle, haystack)) {
-        Some(index) => String.slice(index + 1, String.length(haystack), haystack),
-        None => haystack
-    }
+  match (lastIndexOf(needle, haystack)) {
+    Some(index) => String.slice(index + 1, String.length(haystack), haystack),
+    None => haystack,
+  }
 }
 
 export let beforeLast = (needle: String, haystack: String) => {
-    let nlen = String.length(needle)
-    match (lastIndexOf(needle, haystack)) {
-        Some(index) => String.slice(0, index + 1 - nlen, haystack),
-        None => haystack
-    }
+  let nlen = String.length(needle)
+  match (lastIndexOf(needle, haystack)) {
+    Some(index) => String.slice(0, (index + 1) - nlen, haystack),
+    None => haystack,
+  }
 }