avsm

#internal OPAM solver
preamble: 
property: installed-root: bool = [false], reinstall: bool = [false], buildessential: bool = [false], essential: bool = [false], sourceversion: int = [1], sourcenumber: string = [""], source: string = [""], number: string, recommends: vpkgformula = [true!]

package: bitcoin
version: 112
depends: lwt , ocamlnet , yojson
conflicts: bitcoin
number: 1.1
source: bitcoin

avsm

gdb ocamlbuild
GNU gdb 6.3.50-20050815 (Apple version gdb-1820) (Sat Jun 16 02:40:11 UTC 2012)
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "x86_64-apple-darwin"...Reading symbols for shared libraries .. done

(gdb) run -clean

avsm

open Ocamlbuild_plugin

let _ = dispatch begin function
  | Before_rules ->
      flag ["ocaml"; "compile"; "compiler-libs"] & S[A"-I"; A"+compiler-libs"];
      flag ["ocaml"; "link"; "compiler-libs"] & S[A"-I"; A"+compiler-libs"];
  | _ -> ()
end

avsm

open Printf

(* Generic device module type *)
module type DEVICE = sig
  type t
  val make: unit -> t
  val read: t -> string
  val write: t -> string -> unit
end

avsm

module type DEVICE = sig
  type t
  val create: string -> t
  val id: t -> string
  val read: t -> string
end

module Dummy : DEVICE = struct
  type t = string
  let create id = id

avsm

open Printf
open Delimcc

let p = new_prompt ()

let main () =
 let kr = ref (fun _ -> ()) in
 push_prompt p (fun () ->
   let foo = 15 in
   let bar = foo +

avsm

let echo () =
  lwt mgr, mgr_t = Manager.create () in
  let src = None, 8081 in 
  Flow.listen mgr (`TCPv4 (src,
    (fun (addr, port) t ->
       Console.log "From %s:%d" (ipv4_addr_to_string addr) port);
       let rec echo () =
         lwt res = Flow.read t in
         match res with
         |None ->

avsm

module type FLOW = sig                                                                                   
  (* Type of an individual flow *)                                                                       
  type t                                                                                                 
  (* Type that manages a collection of flows *)                                                          
  type mgr                                                                                               
  (* Type that identifies a flow source and destination endpoint *)
  type src
  type dst

  (* Read and write to a flow *)                                                                         

avsm

#!/usr/bin/env python

import sys, os, subprocess
import XenAPI, inventory, xmlrpclib

xenconsole = "/usr/lib/xen/bin/xenconsole"

def attach_console(session, uuid):
    vmref = session.xenapi.VM.get_by_uuid(uuid)
    try:

avsm

Ast.ExApp (_loc,
  Ast.ExApp (_loc,
    Ast.ExApp (_loc, Ast.ExId (_loc, Ast.IdLid (_loc, "fn")),
      Ast.ExId (_loc, Ast.IdLid (_loc, "arg1"))),
    Ast.ExId (_loc, Ast.IdLid (_loc, "arg2"))),
  Ast.ExId (_loc, Ast.IdLid (_loc, "arg3")))