David RENÉ / hayamiki_lib

/*
 * Created by PyramIDE.
 * User: フランスのトトロ aka (David RENÉ) 
 * Date: 13/02/2016
 * Time: 10:23
 * © David RENÉ
 */

read tools/basis.anubis
transmit types/hayamiki.anubis

public type HK_Generator_API:
  hk_api(
    ((HK_Database, String, Bool) -> Maybe(One)) generate_model_files).


public define Maybe(HK_Generator_API)
  load_hk_generator_1_14
  =
   with file_name = "hk_gen_1_14.adm", 
   if (LoadAdm(HK_Generator_API))load_adm(file_name) is 
   {
     file_not_found               then print("File '"+file_name+"' not found.\n\n");failure, 
     read_error                   then print("Error reading file '"+file_name+"'.\n\n");failure, 
     timeout                      then print("Timeout when loading '"+file_name+"'.\n\n");failure, 
     file_damaged                 then print("File '"+file_name+"' is damaged.\n\n");failure, 
     bad_version(expected,found)  then print("Secondary module '"+file_name+"' doesn't have the same\n"+
                                             "  version ("+found+") as primary module ("+expected+").\n\n");failure, 
     wrong_type(expected,found)   then print("Secondary module '"+file_name+"' has type:\n"+
                                             found+" while primary module expected:\n"+
                                             expected+"\n\n");failure, 
     ok(hk_gen_api)               then println("Hayamiki generator loaded ");success(hk_gen_api)
   }.