smondet

let lwt_monitor_info =
  let open Lwt in
  let started = ref false in
  let previous = ref (None : float option) in
  let reads = ref [] in
  fun () ->
    begin match !started with
    | false ->
      Lwt.ignore_result begin

smondet

# 
# Create a directory, put this make file in it
# and for now type `make bam` or `make vcf`.
#
# You also might have to change the `ADAM` variable below

TARGETS=bam vcf
.PHONY: all $(TARGETS)

all:

smondet

# example .ensime generation
# Maven to Ensime config. convertor:
#
# Prints .ensime configuration for Maven project.
#
# USAGE:
# mvn-ensime PROJECT_NAME PROJECT_PACKAGE ROOT_DIR TARGET_DIR SOURCE_DIRS*
#

python mvn-ensime.py adam org.bdgenomics.adam \

smondet

(*D

Trying CConv
============
  
See
[`c-cube/cconv`](https://github.com/c-cube/cconv)

For now, it is experimental:

smondet

type (_,_) safety = Safe : ('a,'a option) safety  | Unsafe : ('a,'a) safety

let ios: type a. (int, a) safety -> string -> a = fun safety s ->
  match safety with
  | Safe -> (try Some (int_of_string s) with _ -> None)
  | Unsafe -> int_of_string s

let () =
  assert (ios Safe "dskljf" = None);

smondet

(add-to-list 'sebs-packages 'tuareg)
(setq opam-share
      (substring
       (shell-command-to-string "opam config var share 2> /dev/null") 0 -1))
(add-to-list 'load-path (concat opam-share "/emacs/site-lisp"))
(require 'merlin)
(setq ocp-indent-config "strict_with=always,with=0,strict_comments=false")
(require 'ocp-indent)
(add-to-list 'auto-mode-alist '("\\.eliom" . tuareg-mode))

smondet

#! /bin/sh

SCRIPT_NAME=$(basename $0)

short_usage()
{
  echo "Cf :  $SCRIPT_NAME  [--help]"
}
long_usage()
{

smondet

#!/bin/bash

#
# Copyright (c) 2006 by Sebastien Mondet.
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
# 

smondet

#use "topfind";;
#thread;;
#require "ketrew";;
open Nonstd
module String = Sosa.Native_string

let escape_blob s = 
  let b = Buffer.create (String.length s * 2 + 4) in
  Buffer.add_string b "X'";
  String.iter s ~f:(fun c ->

smondet

(* 

Compile with:

    ocamlfind opt -package ketrew -thread -linkpkg k4people.ml -o k4people

*)
open Nonstd
let (//) = Filename.concat