source: branches/properties/AWT/AWT_map_key.cxx

// ================================================================ //
//                                                                  //
//   File      : AWT_map_key.cxx                                    //
//   Purpose   :                                                    //
//                                                                  //
//   Institute of Microbiology (Technical University Munich)        //
//   http://www.arb-home.de/                                        //
//                                                                  //
// ================================================================ //

#include "awt_map_key.hxx"
#include <arb_msg.h>
#include <aw_window.hxx>
#include <aw_root.hxx>
#include <aw_awar.hxx>
#include "awt_config_manager.hxx"

#define KEYS_PER_COLUMN 10
#define MAPPED_KEYS     (2*KEYS_PER_COLUMN)

#define AWAR_KEYMAPPING_ENABLE "key_mapping/enable"

ed_key::ed_key() {
    int i;
    for (i=0; i<256; i++) mapping[i] = i;
}

char ed_key::map_key(char k) const {
    int i = k & 0xff;
    return mapping[i];
}

inline const char *mapping_awar_name(int idx, const char *subkey) {
    return GBS_global_string("key_mapping/key_%i/%s", idx, subkey);
}
inline char read_mapping_awar(AW_root *awr, int idx, const char *subkey) {
    const char *awar_content = awr->awar(mapping_awar_name(idx, subkey))->read_char_pntr();
    return awar_content[0];
}

void ed_key::rehash_mapping(AW_root *awr) {
    for (int i=0; i<256; i++) mapping[i] = i;

    long enable = awr->awar(AWAR_KEYMAPPING_ENABLE)->read_int();
    if (enable) {
        for (int i=0; i<MAPPED_KEYS; i++) {
            char source = read_mapping_awar(awr, i, "source");
            char dest   = read_mapping_awar(awr, i, "dest");

            if (source && dest) mapping[safeCharIndex(source)] = dest;
        }
    }
}

static void ed_rehash_mapping(AW_root *awr, ed_key *ek) {
    ek->rehash_mapping(awr);
}

void ed_key::create_awars(AW_root *awr) {
    RootCallback rehash_mapping_cb = makeRootCallback(ed_rehash_mapping, this);

    for (int i=0; i<MAPPED_KEYS; i++) {
        awr->awar_string(mapping_awar_name(i, "source"))->add_callback(rehash_mapping_cb);
        awr->awar_string(mapping_awar_name(i, "dest"))->add_callback(rehash_mapping_cb);
    }
    awr->awar_int(AWAR_KEYMAPPING_ENABLE, 1)->add_callback(rehash_mapping_cb);
    rehash_mapping(awr);
}

static void setup_keymap_config(AWT_config_definition& cdef) {
    for (int i=0; i<MAPPED_KEYS; i++) {
        cdef.add(mapping_awar_name(i, "source"), GBS_global_string("src%02i", i));
        cdef.add(mapping_awar_name(i, "dest"),   GBS_global_string("dst%02i", i));
    }
}

static AWT_predefined_config predefinedKeyMappingConfig[] = {
    // Note: currently key mappings are only used in EDIT4 -> these config are editor specific.

    { "*hbjl_mapping_rna", "Traditional mapping used in the 90ies to \nmanually enter (RNA) sequences.", "dst00='C';dst01='A';dst02='G';dst03='U';dst04='';dst05='c';dst06='a';dst07='g';dst08='u';dst09='';dst10='N';dst11='n';dst12='';dst13='';dst14='';dst15='';dst16='';dst17='';dst18='';dst19='';src00='h';src01='b';src02='j';src03='l';src04='';src05='H';src06='B';src07='J';src08='L';src09='';src10='n';src11='N';src12='';src13='';src14='';src15='';src16='';src17='';src18='';src19=''" },
    { "*hbjl_mapping_dna", "Traditional mapping used in the 90ies to \nmanually enter (DNA) sequences.", "dst00='C';dst01='A';dst02='G';dst03='T';dst04='';dst05='c';dst06='a';dst07='g';dst08='t';dst09='';dst10='N';dst11='n';dst12='';dst13='';dst14='';dst15='';dst16='';dst17='';dst18='';dst19='';src00='h';src01='b';src02='j';src03='l';src04='';src05='H';src06='B';src07='J';src08='L';src09='';src10='n';src11='N';src12='';src13='';src14='';src15='';src16='';src17='';src18='';src19=''" },
    { "*reversed_case", "swaps upper and lower case.\nspace is gap.", "dst00='A';dst01='C';dst02='G';dst03='T';dst04='U';dst05='N';dst06='-';dst07='';dst08='';dst09='';dst10='a';dst11='c';dst12='g';dst13='t';dst14='u';dst15='n';dst16='';dst17='';dst18='';dst19='';src00='a';src01='c';src02='g';src03='t';src04='u';src05='n';src06=' ';src07='';src08='';src09='';src10='A';src11='C';src12='G';src13='T';src14='U';src15='N';src16='';src17='';src18='';src19=''" },
    { NULp, NULp, NULp }
};

AW_window *create_key_map_window(AW_root *root) {
    AW_window_simple *aws = new AW_window_simple;
    aws->init(root, "KEY_MAPPINGS", "KEY MAPPINGS");
    aws->load_xfig("ed_key.fig");

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

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

    aws->at("enable");
    aws->create_toggle(AWAR_KEYMAPPING_ENABLE);

    aws->at("config");
    AWT_insert_config_manager(aws, AW_ROOT_DEFAULT, "keymap", makeConfigSetupCallback(setup_keymap_config), NULp, predefinedKeyMappingConfig);

    aws->auto_space(10, 10);

    aws->at("ascii2"); int ax2 = aws->get_at_xposition();
    aws->at("ascii1"); int ax1 = aws->get_at_xposition();
    aws->at("key2");   int kx2 = aws->get_at_xposition();
    aws->at("key1");   int kx1 = aws->get_at_xposition();

    int y = aws->get_at_yposition();

    for (int i=0; i<KEYS_PER_COLUMN; ++i) {
        aws->at(kx1, y); aws->create_input_field(mapping_awar_name(i,                 "source"), 2);
        aws->at(ax1, y); aws->create_input_field(mapping_awar_name(i,                 "dest"),   2);
        aws->at(kx2, y); aws->create_input_field(mapping_awar_name(i+KEYS_PER_COLUMN, "source"), 2);
        aws->at(ax2, y); aws->create_input_field(mapping_awar_name(i+KEYS_PER_COLUMN, "dest"),   2);

        aws->at_newline();
        y = aws->get_at_yposition();
    }

    return aws;
}