source: tags/initial/NTREE/ad_ext.cxx

#include <stdio.h>
#include <memory.h>
#include <malloc.h>
#include <string.h>

#include <arbdb.h>
#include <arbdbt.h>
#include <aw_root.hxx>
#include <aw_device.hxx>
#include <aw_window.hxx>
#include <awt.hxx>

#define AWAR_EX_NAME "tmp/focus/extended_name"
#define AWAR_EX_DEST "tmp/focus/extended_dest"

extern GBDATA *gb_main;

void create_extendeds_var(AW_root *aw_root, AW_default aw_def)
        {
        aw_root->awar_string( AWAR_EX_NAME, "" ,        aw_def);
        aw_root->awar_string( AWAR_EX_DEST, "" ,        aw_def);
}

void extended_rename_cb(AW_window *aww){
        GB_ERROR error = 0;
        char *source = aww->get_root()->awar(AWAR_EX_NAME)->read_string();
        char *dest = aww->get_root()->awar(AWAR_EX_DEST)->read_string();
        GB_begin_transaction(gb_main);
        GBDATA *gb_extended_data =      GB_search(gb_main,"extended_data",GB_CREATE_CONTAINER);
        GBDATA *gb_extended =           GBT_find_SAI_rel_exdata(gb_extended_data,source);
        GBDATA *gb_dest =               GBT_find_SAI_rel_exdata(gb_extended_data,dest);
        if (gb_dest) {
                error = "Sorry: SAI already exists";
        }else   if (gb_extended) {
                GBDATA *gb_name =
                        GB_search(gb_extended,"name",GB_STRING);
                error = GB_write_string(gb_name,dest);
        }else{
                error = "Please select a SAI first";
        }
        if (!error) GB_commit_transaction(gb_main);
        else    GB_abort_transaction(gb_main);
        if (error) aw_message(error);
        delete source;
        delete dest;
}

void extended_copy_cb(AW_window *aww){
        GB_ERROR error = 0;
        char *source = aww->get_root()->awar(AWAR_EX_NAME)->read_string();
        char *dest = aww->get_root()->awar(AWAR_EX_DEST)->read_string();
        GB_begin_transaction(gb_main);
        GBDATA *gb_extended_data =      GB_search(gb_main,"extended_data",GB_CREATE_CONTAINER);
        GBDATA *gb_extended =           GBT_find_SAI_rel_exdata(gb_extended_data,source);
        GBDATA *gb_dest =               GBT_find_SAI_rel_exdata(gb_extended_data,dest);
        if (gb_dest) {
                error = "Sorry: SAI already exists";
        }else   if (gb_extended) {
                gb_dest = GB_create_container(gb_extended_data,"extended");
                error = GB_copy(gb_dest,gb_extended);
                if (!error) {
                        GBDATA *gb_name =
                        GB_search(gb_dest,"name",GB_STRING);
                        error = GB_write_string(gb_name,dest);
                }

        }else{
                error = "Please select a SAI first";
        }
        if (!error) GB_commit_transaction(gb_main);
        else    GB_abort_transaction(gb_main);
        if (error) aw_message(error);
        delete source;
        delete dest;
}
void move_to_sepcies(AW_window *aww) 
        {
        GB_ERROR error = 0;
        char *source = aww->get_root()->awar(AWAR_EX_NAME)->read_string();
        GB_begin_transaction(gb_main);

        GBDATA *gb_species_data =       GB_search(gb_main,"species_data",GB_CREATE_CONTAINER);
        GBDATA *gb_dest =               GBT_find_species_rel_species_data(gb_species_data,source);
        GBDATA *gb_extended =           GBT_find_SAI(gb_main,source);
        if (gb_dest) {
                error = "Sorry: species already exists";
        }else   if (gb_extended) {
                gb_dest = GB_create_container(gb_species_data,"species");
                error = GB_copy(gb_dest,gb_extended);
        }else{
                error = "Please select a SAI first";
        }

        if (!error) GB_commit_transaction(gb_main);
        else    GB_abort_transaction(gb_main);
        if (error) aw_message(error);
        delete source;
}

AW_window *create_extended_rename_window(AW_root *root)
        {
        AW_window_simple *aws = new AW_window_simple;
        aws->init( root, "RENAME_SAI", "SAI RENAME", 100, 100 );
        aws->load_xfig("ad_al_si.fig");

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

        aws->at("label");
        aws->create_button(0,"Please enter the new name\nof the SAI");

        aws->at("input");
        aws->create_input_field(AWAR_EX_DEST,15);

        aws->at("ok");
        aws->callback(extended_rename_cb);
        aws->create_button("GO","GO","G");                         

        return (AW_window *)aws;
}

AW_window *create_extended_copy_window(AW_root *root)
        {
        AW_window_simple *aws = new AW_window_simple;
        aws->init( root, "COPY_SAI", "SAI COPY", 100, 100 );
        aws->load_xfig("ad_al_si.fig");

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

        aws->at("label");
        aws->create_button(0,"Please enter the name\nof the new SAI");

        aws->at("input");
        aws->create_input_field(AWAR_EX_DEST,15);

        aws->at("ok");
        aws->callback(extended_copy_cb);
        aws->create_button("GO","GO","G");                         

        return (AW_window *)aws;
}

void ad_extended_delete_cb(AW_window *aww){
        GB_ERROR error = 0;
        char *source = aww->get_root()->awar(AWAR_EX_NAME)->read_string();
        GB_begin_transaction(gb_main);
        GBDATA *gb_extended =           GBT_find_SAI(gb_main,source);
        if (gb_extended) {
                        error = GB_delete(gb_extended);
        }else{
                        error = "Please select a SAI first";
        }

        if (!error) GB_commit_transaction(gb_main);
        else    GB_abort_transaction(gb_main);

        if (error) aw_message(error);
        delete source;
}

void AD_map_extended(AW_root *aw_root, AW_CL scannerid)
{
        char *source = aw_root->awar(AWAR_EX_NAME)->read_string();
        GB_push_transaction(gb_main);
        GBDATA *gb_extended = GBT_find_SAI(gb_main,source);
        awt_map_arbdb_scanner(scannerid,gb_extended,0);
        GB_pop_transaction(gb_main);
        delete source;
}

void ad_ad_remark(AW_window *aww){
        AW_root *awr = aww->get_root();
        GB_transaction dummy(gb_main);
        char *source = awr->awar(AWAR_EX_NAME)->read_string();
        GBDATA *gb_sai = GBT_find_SAI(gb_main,source);
        if (gb_sai){
                char *use = GBT_get_default_alignment(gb_main);
                GBDATA *gb_ali = GB_search(gb_sai,use,GB_FIND);
                if (gb_ali){
                        GBDATA *typ = GB_search(gb_ali,"_TYPE",GB_STRING);
                        awr->awar_string("/tmp/ntree/sai/add_remark")->map(typ);
                        char *error = aw_input("Change SAI description",
                                        "/tmp/ntree/sai/add_remark");
                        delete error;
                }else{
                        aw_message("Please select an alignment which is valid for the selected SAI");
                }       
                delete use;
        }else{
                aw_message("Please select a SAI first");
        }
        delete source;
}

void ad_ad_group(AW_window *aww){
        AW_root *awr = aww->get_root();
        GB_transaction dummy(gb_main);
        char *source = awr->awar(AWAR_EX_NAME)->read_string();
        GBDATA *gb_sai = GBT_find_SAI(gb_main,source);
        if (gb_sai){
            delete GBT_read_string2(gb_sai,"sai_group","default_group");
            GBDATA *gb_gn = GB_search(gb_sai,"sai_group",GB_STRING);
            awr->awar_string("/tmp/ntree/sai/add_group")->map(gb_gn);
            char *res = aw_input("Assign Group to  SAI","/tmp/ntree/sai/add_group");
            if (!res || !strlen(res)){
                GB_delete(gb_gn);
            }
            delete res;
        }else{
            aw_message("Please select a SAI first");
        }
        delete source;
}

AW_window *create_extendeds_window(AW_root *aw_root)
        {
        AW_window_simple *aws = new AW_window_simple;
        aws->init( aw_root, "INFO_OF_SAI", "SAI INFORMATION", 200, 0 );
        aws->load_xfig("ad_ext.fig");

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

        aws->callback( AW_POPUP_HELP,(AW_CL)"ad_extended.hlp");
        aws->at("help");
        aws->create_button("HELP","HELP","H");                     

        aws->button_length(13);

        aws->at("delete");
        aws->callback(ad_extended_delete_cb);
        aws->create_button("DELETE","DELETE","D");                         

        aws->at("rename");
        aws->callback(AW_POPUP,(AW_CL)create_extended_rename_window,0);
        aws->create_button("RENAME","RENAME","R");                         

        aws->at("copy");
        aws->callback(AW_POPUP,(AW_CL)create_extended_copy_window,0);
        aws->create_button("COPY","COPY","C");                     

        aws->at("remark");
        aws->callback(ad_ad_remark);
        aws->create_button("EDIT_COMMENT","EDIT COMMENT","R");                     

        aws->at("group");
        aws->callback(ad_ad_group);
        aws->create_button("ASSIGN_GROUP","ASSIGN GROUP","R");                     

        aws->at("makespec");
        aws->callback((AW_CB0)move_to_sepcies);
        aws->create_button("COPY_TO_SPECIES","COPY TO\nSPECIES","C");                      

        aws->at("list");
        awt_create_selection_list_on_extendeds(gb_main,(AW_window *)aws,AWAR_EX_NAME);

        AW_CL scannerid=awt_create_arbdb_scanner(gb_main, aws,
                "info",0,0,0,AWT_SCANNER,0,0,0);
        aws->get_root()->awar(AWAR_EX_NAME)->add_callback(
                AD_map_extended,scannerid);
        return (AW_window *)aws;
}