Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (23 sloc) 647 Bytes
(** Copyright (c) 2008,2009 Anil Madhavapeddy <>
** 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 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.