lindig

(* Creating a directory with a given ownership and permissions looks
   simple until you take closer look. Many things can fail: you might
   not have the permissions to create or modify it, the desired groups
   and owners might not exist.

   This library tries to be systematic about it and de-composes the
   complex operation (implemented in [mk]) into many small operations
   that are stringed together in a monad: [>>=] sequences operations
   and [//=] (read as: "or-else") recovers from a previous error.

lindig

#! /bin/sh 

set -ex

VERSION="0.1.17"
GH="https://github.com/lindig"
VM="$GH/xen-test-vm/releases/download/$VERSION/test-vm.xen.gz"
KERNEL="xen-test-vm-${VERSION//./-}.xen.gz"
GUEST="/boot/guest"
IMG="$GUEST/$KERNEL"

lindig

(*
 * filter that expands leading whitespace to tabs and but other tabs
 * to spaces.
 *
 * ocamlbuild ring3fmt.native
 *)

(** create a string with [n] [chr] chars *)
let ( ** ) chr n = String.make n chr

lindig

{ (* vim: set ts=2 sw=2 et: *)

  (* This tool:
    * - reads input from stdin line by line
    * - seperates each line into a list of words
    * - slides a window of size 2 over the words of a line
    * - emits each window of words to stdout
    *
    * usage: chopchop [-w 2]
    *

lindig

(* Discussion on Hacker News: https://news.ycombinator.com/item?id=6822901
 *)

exception Error of string

let (@@) f x  = f x
let error fmt = Printf.kprintf (fun msg -> raise (Error msg)) fmt

type result = int * int

lindig

lindig

  
let rec join = function
    | []      -> ""
    | [x]     -> x
    | [x;y]   -> x^" and "^y
    | x::xs   -> x ^ ", " ^ join xs


let main () =
    let argv = Array.to_list Sys.argv in