fork download
copy 
  1.  
  2. class person_a (name : string) (age : int) = object
  3.  
  4.     method serialize_to_string =
  5.         Printf.sprintf "{ name = \"%s\" ; age = %d }" name age (* depends on format *)
  6.  
  7. end
  8.  
  9. let example_a () =
  10.     let p = new person_a "John Smith" 30 in
  11.     Printf.printf "person_a : %s\n" p#serialize_to_string
  12.  
  13.  
  14.  
  15. type value =
  16.     | String of string
  17.     | Int of int
  18.  
  19. type property = string * value
  20.  
  21. class person_b (name : string) (age : int) = object
  22.  
  23.     method serialize_to (format : property list -> string) =
  24.         format [ ("name", String name); ("age", Int age) ]
  25.  
  26. end
  27.  
  28.  
  29. (* implements (property list -> string) interface / depends on it *)
  30. let properties_string properties =
  31.     let value_string value = match value with
  32.         | String s -> "\"" ^ s ^ "\""
  33.         | Int i    -> string_of_int i
  34.     in
  35.     let property_string (name, value) = name ^ " = " ^ (value_string value) in
  36.     let concat_property str prop = str ^ " ; " ^ property_string prop in
  37.     match properties with
  38.     | []    -> "{}"
  39.     | p::ps -> "{ " ^ List.fold_left concat_property (property_string p) ps ^ " }"
  40.  
  41. (* implements (property list -> string) interface / depends on it *)
  42. let json_object_string properties =
  43.     let value_string value = match value with
  44.         | String s -> "\"" ^ s ^ "\""
  45.         | Int i    -> string_of_int i
  46.     in
  47.     let property_string (name, value) = "\"" ^ name ^ "\": " ^ (value_string value) in
  48.     let concat_property str prop = str ^ ", " ^ property_string prop in
  49.     match properties with
  50.     | []    -> "{}"
  51.     | p::ps -> "{ " ^ List.fold_left concat_property (property_string p) ps ^ " }"
  52.  
  53. let example_b () =
  54.     let p = new person_b "John Smith" 30 in
  55.     Printf.printf "person_b : %s\n" (p#serialize_to properties_string) ;
  56.     Printf.printf "person_b : %s\n" (p#serialize_to json_object_string)
  57.  
  58. let () =
  59.     example_a () ;
  60.     example_b ()
  61.  
Success #stdin #stdout 0s 4072KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
person_a : { name = "John Smith" ; age = 30 }
person_b : { name = "John Smith" ; age = 30 }
person_b : { "name": "John Smith", "age": 30 }
https://ideone.com/NNSVhS
language:
OCaml (ocamlopt 4.05.0)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!