source: branches/lib/MERGE/MG_configs.cxx

//  ==================================================================== //
//                                                                       //
//    File      : MG_configs.cxx                                         //
//    Purpose   : Merge editor configurations                            //
//                                                                       //
//                                                                       //
//  Coded by Ralf Westram (coder@reallysoft.de) in July 2003             //
//  Copyright Department of Microbiology (Technical University Munich)   //
//                                                                       //
//  Visit our web site at: http://www.arb-home.de/                       //
//                                                                       //
//                                                                       //
//  ==================================================================== //

#include "merge.hxx"

#include <awt_sel_boxes.hxx>
#include <awt_prompt.hxx>

#include <aw_root.hxx>
#include <aw_awar.hxx>
#include <aw_msg.hxx>

#include <ad_config.h>
#include <arbdb.h>

#define AWAR_CONFIG_NAME_SRC AWAR_MERGE_TMP_SRC "name"
#define AWAR_CONFIG_NAME_DST AWAR_MERGE_TMP_DST "name"
#define AWAR_CONFIG_NAME(db) awar_name_tmp(db, "name")

void MG_create_config_awar(AW_root *aw_root, AW_default aw_def) {
    aw_root->awar_string(AWAR_CONFIG_NAME_SRC, "",   aw_def);
    aw_root->awar_string(AWAR_CONFIG_NAME_DST, "",   aw_def);
}

static GB_ERROR config_rename_handler(const char *dest, DbSel db) {
    GBDATA     *gb_main = get_gb_main(db);
    const char *source  = AW_root::SINGLETON->awar(AWAR_CONFIG_NAME(db))->read_char_pntr();

    GB_ERROR error = GB_begin_transaction(gb_main);
    if (!error) {
        GBDATA *gb_config_data     = GB_search(gb_main, CONFIG_DATA_PATH, GB_CREATE_CONTAINER);
        if (!gb_config_data) error = GB_await_error();
        else {
            GBDATA *gb_dest_name    = GB_find_string(gb_config_data, "name", dest, GB_IGNORE_CASE, SEARCH_GRANDCHILD);
            if (gb_dest_name) error = GBS_global_string("Configuration '%s' already exists", dest);
            else {
                GBDATA *gb_source_name    = GB_find_string(gb_config_data, "name", source, GB_IGNORE_CASE, SEARCH_GRANDCHILD);
                if (gb_source_name) error = GB_write_string(gb_source_name, dest);
                else    error             = "Please select a configuration";
            }
        }
    }
    error = GB_end_transaction(gb_main, error);
    return error;
}

static void config_rename_cb(AW_window *aww, DbSel db) {
    const char    *source  = aww->get_root()->awar(AWAR_CONFIG_NAME(db))->read_char_pntr();
    ResultHandler  handler = makeResultHandler(config_rename_handler, db);
    AWT_activate_prompt("Rename configuration", "Enter new name of configuration:", source, "Rename", handler);
}

static void MG_config_delete_cb(AW_window *aww, DbSel db) {
    char     *config_name = aww->get_root()->awar(AWAR_CONFIG_NAME(db))->read_string();
    GBDATA   *gb_main     = get_gb_main(db);
    GB_ERROR  error       = GB_begin_transaction(gb_main);

    if (!error) {
        GBDATA *gb_config_data = GB_search(gb_main, CONFIG_DATA_PATH, GB_CREATE_CONTAINER);
        GBDATA *gb_config_name = GB_find_string(gb_config_data, "name", config_name, GB_IGNORE_CASE, SEARCH_GRANDCHILD);

        if (gb_config_name) {
            GBDATA *gb_config = GB_get_father(gb_config_name);
            error             = GB_delete(gb_config);
        }
        else {
            error = "Select a config to delete";
        }
    }

    GB_end_transaction_show_error(gb_main, error, aw_message);

    free(config_name);
}

static void MG_transfer_config(AW_window *aww) {
    AW_root *awr    = aww->get_root();
    char    *config = awr->awar(AWAR_CONFIG_NAME_SRC)->read_string();

    GB_ERROR error = GB_begin_transaction(GLOBAL_gb_dst);
    if (!error) {
        error = GB_begin_transaction(GLOBAL_gb_src);
        if (!error) {
            GBDATA *gb_src_config_data = GB_search(GLOBAL_gb_src, CONFIG_DATA_PATH, GB_CREATE_CONTAINER);
            GBDATA *gb_dst_config_data = GB_search(GLOBAL_gb_dst, CONFIG_DATA_PATH, GB_CREATE_CONTAINER);

            GBDATA *gb_src_cfgname = GB_find_string(gb_src_config_data, "name", config, GB_IGNORE_CASE, SEARCH_GRANDCHILD);
            GBDATA *gb_dst_cfgname = GB_find_string(gb_dst_config_data, "name", config, GB_IGNORE_CASE, SEARCH_GRANDCHILD);

            if (!gb_src_cfgname) {
                error = "Please select the configuration you want to transfer";
            }
            else if (gb_dst_cfgname) {
                error = GBS_global_string("Configuration '%s' exists. Delete it first.", config);
            }
            else {
                GBDATA *gb_src_cfg = GB_get_father(gb_src_cfgname);
                GBDATA *gb_dst_cfg = GB_create_container(gb_dst_config_data, "configuration");
                error              = GB_copy_dropProtectMarksAndTempstate(gb_dst_cfg, gb_src_cfg);
            }
        }
    }
    error = GB_end_transaction(GLOBAL_gb_src, error);
    error = GB_end_transaction(GLOBAL_gb_dst, error);

    if (error) aw_message(error);

    free(config);
}

AW_window *MG_create_merge_configs_window(AW_root *awr) {
    GB_ERROR error = MG_expect_renamed();
    if (error) {
        aw_message(error);
        return NULp; // deny to open window before user has renamed species
    }

    AW_window_simple *aws = new AW_window_simple;

    aws->init(awr, "MERGE_CONFIGS", "Merge species selections (=editor configs)");
    aws->load_xfig("merge/configs.fig");

    aws->button_length(20);

    aws->at("close");
    aws->callback(AW_POPDOWN);
    aws->create_button("CLOSE", "CLOSE", "C");

    aws->at("help");
    aws->callback(makeHelpCallback("mg_species_configs.hlp"));
    aws->create_button("HELP", "HELP", "H");

    aws->at("configs1");
    awt_create_CONFIG_selection_list(GLOBAL_gb_src, aws, AWAR_CONFIG_NAME_SRC);

    aws->at("configs2");
    awt_create_CONFIG_selection_list(GLOBAL_gb_dst, aws, AWAR_CONFIG_NAME_DST);

    aws->at("delete1");
    aws->callback(makeWindowCallback(MG_config_delete_cb, SRC_DB));
    aws->create_button("DELETE CONFIG_DB1", "Delete Config");

    aws->at("delete2");
    aws->callback(makeWindowCallback(MG_config_delete_cb, DST_DB));
    aws->create_button("DELETE_CONFIG_DB2", "Delete Config");

    aws->at("rename1");
    aws->callback(makeWindowCallback(config_rename_cb, SRC_DB));
    aws->create_button("RENAME_CONFIG_DB1", "Rename Config");

    aws->at("rename2");
    aws->callback(makeWindowCallback(config_rename_cb, DST_DB));
    aws->create_button("RENAME_CONFIG_DB2", "Rename Config");

    aws->at("transfer");
    aws->callback(MG_transfer_config);
    aws->create_button("TRANSFER_CONFIG", "Transfer Config");

    aws->button_length(0);
    aws->shadow_width(1);
    aws->at("icon");
    aws->callback(makeHelpCallback("mg_species_configs.hlp"));
    aws->create_button("HELP_MERGE", "#merge/icon.xpm");

    return aws;
}