2006-12-06から1日間の記事一覧

open ExtLib open Format let escape_char c = match c with '>' -> "&gt;" | '<' -> "&lt;" | '&' -> "&amp;" | _ -> string_of_char c let houtput print buf pos len = let ss = String.sub buf pos len in let es = String.replace_chars escape_char ss…