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

  
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

lindig

{
    (* short names for important modules *)
    module L = Lexing 
    module B = Buffer

    type token = 
    | STR of string
    | INT of int
    | ID of string
    | PLUSEQ

lindig

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

(** [dir_is_empty dir] is true, if [dir] contains no files except
 * "." and ".."
 *)
let dir_is_empty dir =
  Array.length (Sys.readdir dir) = 0

(** [dir_contents] returns the paths of all regular files that are
 * contained in [dir]. Each file is a path starting with [dir].

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

(* 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

==> func0.ml <==

module Debug = struct
  let debug msg = Printf.eprintf "debug: %s\n" msg
  let error msg = Printf.eprintf "error: %s\n" msg
end


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