(* demexp_program.ml *)

let print_participant_array a =
  let kind_to_string k =
    match k with 
      | Demexp.Individual -> "individal"
      | Demexp.Delegate -> "delegate"
  in
    let participant_to_string p = 
      Format.sprintf "{kind=%s; login=%s; password=%s}" (kind_to_string p.Demexp.kind) p.Demexp.login p.Demexp.password 
    in  
      Array.iter (function (i,p) -> Format.printf "@[%i,address@hidden@\n" i (participant_to_string p)) a;
  ;;

(*
let print_question_array a =
  Array.iter (function (i,q) -> Format.printf "@[%i,address@hidden@\n" i (question_to_string q)) a
 ;;
*)

let t = Demexp.load_xml_demexp_participants "demexp_load_base_example.xml" in
  (* print_participant_array t; *)
  Demexp.save_xml_demexp_participants "demexp_save_participant_base.xml" t ;;

let t = Demexp.load_xml_demexp_tags "demexp_load_base_example.xml" in
  (* Array.iter (function (i,s) -> Format.printf "@[%i@ address@hidden@\n" i s) t; *)
  Demexp.save_xml_demexp_tags "demexp_save_tag_base.xml" t ;;

let t = Demexp.load_xml_demexp_questions "demexp_load_base_example.xml" in
  Demexp.save_xml_demexp_questions "demexp_save_question_base.xml" t ;;

let t = Demexp.load_xml_demexp "demexp_load_base_example.xml" in
  Demexp.save_xml_demexp "demexp_save_base_example.xml" t ;;

let t = Demexp.load_xml_demexp "demexp_save_base_example.xml" in
  Demexp.save_xml_demexp "demexp_save2_base_example.xml" t ;;