pa_bof.ml
1: let insert_this () = 2: let loc = Token.dummy_loc in 3: (<:str_item< value version = "1.2.3" >>, loc) 4: 5: let _ = 6: let first = ref true in 7: let parse strm = 8: let (l, stopped) = Grammar.Entry.parse Pcaml.implem strm in 9: let l' = 10: if !first then 11: insert_this () :: l 12: else l in 13: (l', stopped) in 14: Pcaml.parse_implem := parse
This document was generated using caml2html