aantron

let take limit html =
  let spaces = Str.regexp "[ \t\r\n]+" in

  let rec repeat acc n v = if n > 0 then repeat (v::acc) (n - 1) v else acc in

  let filter_signals =
    (0, 0)
    |> Markup.transform (fun ((seen, unclosed_elements) as state) signal ->
      match signal with
      | `Text ss ->

aantron

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#include <unistd.h>
#include <sys/uio.h>
#include <fcntl.h>
#include <sys/time.h>
#include <sys/times.h>

aantron

(* ocamlfind opt -linkpkg -package lwt.ppx -package lwt.unix -package mtime.os timing.ml && ./a.out *)

open Lwt.Infix

let f1 dir =
  let s = Lwt_unix.files_of_directory dir in
  let s = Lwt_stream.filter (fun s -> s <> "." && s <> "..") s in
  let s = Lwt_stream.map (Filename.concat dir) s in
  Lwt_stream.to_list s

aantron

(* ocamlfind opt -linkpkg -package unix -package markup measure.ml *)

let measure f =
  let open Unix in

  let start_times = times () in
  let start_wall = gettimeofday () in

  f ();

aantron

(* OCaml promise library
 * http://www.ocsigen.org/lwt
 * ...
 *)


(* Reading guide
   ... *)

aantron

(* OCaml promise library
 * http://www.ocsigen.org/lwt
 * ...
 *)



(* Reading guide
   ... *)

aantron

Compile and run the program below with

ocamlfind opt -linkpkg -package lwt.unix foo.ml && ./a.out

As written with Lwt.pick, p2 is canceled first, its callback (registered by Lwt.catch) runs first, and the output is

p2's callback sees p3 pending

aantron

; Generated from
;
; type ordinary =
;   | A | B | C | D
;   | E of int | F of int | G of int | H of int
;
; let pattern_match = function
;   | A -> 0
;   | B -> 1
;   | C -> 2

aantron

(* Note: `Raw signal is not released. I originally had assert false in the cases that use it. *)

let write_html_to_channel : Pervasives.out_channel -> Tyxml.Html.doc -> unit =
    fun channel page ->

  let ns name = (Markup.Ns.html, name) in

  let convert_attributes attributes =
    attributes |> List.map ~f:begin fun attribute ->
      let value =

aantron

(executable
 (name foo)
 (libraries bigarray))