Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (23 sloc) 0.647 kb
(** Copyright (c) 2008,2009 Anil Madhavapeddy <anil@recoil.org>
** See the COPYING file included in this distribution for licensing details *)
open Imap_rules
open Imap_terms
open Printf
let _ =
let _ = [
"a001 login mrc secret";
"a002 select inbox";
"a003 fetch 12 full";
] in
let digits = ["1234a"] in
List.iter (fun d ->
eprintf "parsing: %s\n" d;
let p = Imap_parser.t d in
match Rules.Number.one p with
|Some (p,num) ->
eprintf "match: ";
eprintf "%ld" num;
eprintf "\n";
|None -> eprintf "no match\n"
) digits;
()
Jump to Line
Something went wrong with that request. Please try again.