mjambon

(*
   Some module defining an abstract type t that does not support the built-in
   polymorphic comparison functions Pervasives.compare, (=), (<) etc.

   Attempts to use polymorphic comparison on objects of type t
   will raise an exception, except when comparing
   the same object with Pervasives.compare.

   This is a hack that may or may not work depending on the OCaml compiler
   or its version. Use the provided test function to check that it behaves

mjambon

git_stash_size() {
  n=$( (git stash list 2> /dev/null || :) | wc -l )
  if [ $n -gt 0 ]; then
    echo -n " +$n"
  fi
}

git_branch() {
  echo -n "$(git branch 2> /dev/null \
           | sed -e '/^[^*]/d' -e 's/* \(.*\)/ \[\1\]/')"

mjambon

#! /bin/bash

# Preprocess a dot file to support long edges and backward edges:
#
# Input                         Output
#
# a ----------> b               a -> b
# a ---> b ---> c               a -> b -> c
# a ----------- b               a -- b
# a <--- b                      b -> a

mjambon

(*
   An atdgen type for reading any number into an int.

   `1.0` is the default output for the atd type float, which
   we want to support but is not supported by the regular parser
   for atd type int.

   `1.0` will be read as the OCaml int `1` and written back as `1`.
   
   The definition that goes into the .atd file is:

mjambon

type json = [
  | `Bool of bool
  | `Int of int
  | `Object of (string * json) list
]

type _ path =
  | Bool : bool path
  | Int : int path
  | Field : string * 'a path -> 'a path

mjambon

(*
   One-time initialization.

   Useful to create mutual dependencies between modules.

   Usage:

   (* Module A *)

   let init_foo, foo = create "foo"

mjambon

type t1 = { x: int; y: int }
type t2 = { x: int; z: int }

let f () = { x = 1; y = 0 }

(* no error *)
let () =
  f () |> fun x ->
  ignore x.x;
  ignore x.y

mjambon

(*
   Both calls to BatString.split and List.assoc below
   raise Not_found. The stack trace shouldn't be empty
   in either case, but it is empty under certain mysterious
   circumstances for BatString.split.
   
   #use "topfind";;
   #require "batteries";;
*)

mjambon

(* ocamlfind ocamlc -c env.ml -package lwt.unix *)

(*
   Wrapper around Lwt threads that allows
   carrying an environment around, transparently.

   Such an environment would typically consist of a request ID
   that we can use in logs to identify all messages relating to
   the same request received by the server.

mjambon

cluster.name: elasticsearch_dev
path.data: ./data/
path.logs: ./log/
network.host: 0.0.0.0