fork download
  1. open Core.Std
  2.  
  3. type t = Buffer.t
  4.  
  5. type error = [ `Overflow ]
  6.  
  7. type tag = int
  8.  
  9. type 'a ret = ('a, [> error ]) Result.t
  10.  
  11. val create () = Buffer.create 100
  12.  
  13. val to_string = Buffer.contents
  14.  
  15. let enum t tag v f =
  16. failwith "nyi"
  17.  
  18. let bool t tag v =
  19. failwith "nyi"
  20.  
  21. let int64 t tag v =
  22. failwith "nyi"
  23.  
  24. let int32 t tag v =
  25. failwith "nyi"
  26.  
  27. let fixed64 t tag v =
  28. failwith "nyi"
  29.  
  30. let fixed32 t tag v =
  31. failwith "nyi"
  32.  
  33. let sint64 t tag v =
  34. failwith "nyi"
  35.  
  36. let sint32 t tag v =
  37. failwith "nyi"
  38.  
  39. let double t tag v =
  40. failwith "nyi"
  41.  
  42. let float t tag v =
  43. failwith "nyi"
  44.  
  45. let string t tag v =
  46. failwith "nyi"
  47.  
  48. let builder t tag v =
  49. failwith "nyi"
  50.  
  51. let embd_msg t tag v f =
  52. failwith "nyi"
  53.  
Not running #stdin #stdout 0s 0KB
stdin
Standard input is empty
stdout
Standard output is empty