open ExtLib open Format let escape_char c = match c with '>' -> ">" | '<' -> "<" | '&' -> "&" | _ -> 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…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。