rgrinberg

Caml-inspect symbolizer

Symbolizes closure blocks. Works only on native executables.

Build

ocamlfind ocamlopt -syntax camlp4o -package lwt -package lwt.syntax -package lwt.unix str.cmxa -linkpkg symbolizer.ml -o symbolizer
ocamlfind ocamlopt -package inspect -linkpkg foo.ml -o foo

Use

rgrinberg

type csv

(* Note that all of the types here are context passing types *)

val ingest : Time.t -> csv -> Client_dep.t Or_error.t Context.t list

(* This step has to be compounded unfortunately.
   This is b/c:
   - you need the jc to apply client hacks (for multicare)

rgrinberg

(* in reality you should wrap this function inside a parent function
   that makes sure that an empty list wasn't passed. *)
let rec prepare_all dbh ~f = function
  | [] ->  f ()
  | query::qs ->
    with_prepare dbh ~query ~f:(fun () -> prepare_all dbh ~f qs)

rgrinberg

      (* Look for the line that concerns the [.cmo] target, and echo a
         modified version of this line, where the [.cmo] target is
         replaced with [.ml] and [.mli] targets, and where the dependency
         over the [.cmi] file is dropped.

         In doing so, we assume that the user's [Makefile] supports
         bytecode compilation, so that it makes sense to request [bar.cmo]
         to be built, as opposed to [bar.cmx]. This is not optimal, but
         will do. [camldep] exhibits the same behavior. *)

rgrinberg

CREATE TABLE Applicants (
    id UUID PRIMARY KEY,
    user_id INTEGER NOT NULL,
    client_id UUID NOT NULL,
    first_name VARCHAR(255) NOT NULL CHECK (first_name <> ''),
    last_name VARCHAR(255) NOT NULL CHECK (last_name <> ''),
    email_address VARCHAR(255),

    UNIQUE (user_id),

rgrinberg

function! InsertMyArg(e)
    let @i = a:e
    call feedkeys('"ip')
endfunction

function! s:complete_email(A, L, P)
    if a:A
        return ""
    else
        let query = substitute(a:A, '\*', '', 'g')

rgrinberg

opam list --required-by godzilla --recursive

# Available packages recursively required by godzilla.dev for pgd:
async                    113.33.03  Monadic concurrency library
async_core               109.55.02  Monadic concurrency library
async_extra              113.33.03  Monadic concurrency library
async_kernel             113.33.03  Monadic concurrency library
async_rpc_kernel         113.33.03  Platform-independent core of Async RPC libra
async_ssl                113.33.00  An Async-pipe-based interface with OpenSSL.
async_unix               113.33.03  Monadic concurrency library

rgrinberg

open Core.Std
open Async.Std

type chunk = String of string | Bigstring of Bigstring.t

type sink = Bigstring.t option -> unit Deferred.t
type source = unit -> chunk option Deferred.t

type handler =
  { init: Session.t -> [`Drop | `Accept of sink | `Forget ] Deferred.t

rgrinberg

zplug "plugins/git",               from:oh-my-zsh, if:"(( $+commands[git] ))"
zplug "plugins/tmux",              from:oh-my-zsh, if:"(( $+commands[tmux] ))"

zplug "plugins/docker",            from:oh-my-zsh
zplug "plugins/docker-compose",    from:oh-my-zsh
zplug "plugins/command-not-found", from:oh-my-zsh
zplug "plugins/common-aliases",    from:oh-my-zsh
zplug "plugins/compleat",          from:oh-my-zsh
zplug "plugins/git-extras",        from:oh-my-zsh

rgrinberg

bindkey -e

source ~/.zplug/zplug

zplug "plugins/git", from:oh-my-zsh, if:"which git"
zplug "plugins/tmux", from:oh-my-zsh, if:"which tmux"

zplug "plugins/docker",            from:oh-my-zsh
zplug "plugins/docker-compose",    from:oh-my-zsh
zplug "plugins/command-not-found", from:oh-my-zsh