/*
 * Created by PyramIDE.
 * User: フランスのトトロ aka (David RENÉ) 
 * Date: 15/01/2017
 * Time: 23:40
 * © David RENÉ 
 */

read densaku_lib/types/densaku.anubis
read densaku_lib/ds_generator.anubis
read tools/basis.anubis
read types_checking.anubis
read generation/types.anubis    //generate all types and the message for these types
read generation/messages.anubis //generate all messages collection

public define Maybe(One)
  generate_message_files
  (
    List(DS_Type)     types,             //Types description
    List(DS_Message)  messages,
    String            destination_dir
  )=

  if check_types(types) is 
  {
    failure           then failure,
    success(_) then  

      println("Generating types and message files");
      make_all_types(types, destination_dir);

      println("Generating messages collection");
      make_all_messages(messages, destination_dir);
      
      success(unique)
  }.

global define DS_Generator_API
  ds_gen =
  ds_api(generate_message_files).