source: branches/port5/WINDOW/AW_global_awars.cxx

//  ==================================================================== //
//                                                                       //
//    File      : AW_global_awars.cxx                                    //
//    Purpose   : Make some awars accessible from ALL arb applications   //
//                                                                       //
//  Coded by Ralf Westram (coder@reallysoft.de) in January 2003          //
//  Copyright Department of Microbiology (Technical University Munich)   //
//                                                                       //
//  Visit our web site at: http://www.arb-home.de/                       //
//                                                                       //
//  ==================================================================== //

#define TEMP_DB_PATH "tmp/global_awars"

#include <stdio.h>
#include <stdlib.h>
#include <arbdb.h>
#include <aw_root.hxx>
#include <aw_global_awars.hxx>
#include <aw_awars.hxx>
#include <aw_window.hxx>

static GBDATA *gb_main4awar = 0; // gb_main used for global awars

inline const char *get_db_path(const AW_awar *awar) {
    return GBS_global_string("%s/%s", TEMP_DB_PATH, awar->awar_name);
}

static bool in_global_awar_cb = false;

static void awar_updated_cb(AW_root */*aw_root*/, AW_CL cl_awar) {
    if (!in_global_awar_cb) {
        AW_awar        *awar    = (AW_awar*)cl_awar;
        char           *content = awar->read_as_string();
        const char     *db_path = get_db_path(awar);
        GB_transaction  dummy(gb_main4awar);
        GBDATA         *gbd     = GB_search(gb_main4awar, db_path, GB_FIND);

        aw_assert(gbd);             // should exists

        in_global_awar_cb = true;
        GB_write_string(gbd, content);
        in_global_awar_cb = false;

        free(content);
    }
}

static void db_updated_cb(GBDATA *gbd, int *cl_awar, GB_CB_TYPE /*cbtype*/) {
    if (!in_global_awar_cb) {
        AW_awar        *awar = (AW_awar*)cl_awar;
        GB_transaction  dummy(gb_main4awar);

        in_global_awar_cb = true;
        awar->write_as_string(GB_read_char_pntr(gbd));
        in_global_awar_cb = false;
    }
}

GB_ERROR AW_awar::make_global() {
#if defined(DEBUG)
    aw_assert(!is_global);      // don't make awars global twice!
    aw_assert(gb_main4awar);
    is_global = true;
#endif // DEBUG

    add_callback(awar_updated_cb, (AW_CL)this);

    GB_transaction  dummy(gb_main4awar);
    const char     *db_path = get_db_path(this);
    GBDATA         *gbd     = GB_search(gb_main4awar, db_path, GB_FIND);
    GB_ERROR        error   = 0;

    if (gbd) { // was already set by another ARB application
        // -> read db value and store in awar

        const char *content = GB_read_char_pntr(gbd);
        write_as_string(content);
    }
    else {
        // store awar value in db

        char *content   = read_as_string();
        gbd             = GB_search(gb_main4awar, db_path, GB_STRING);
        if (!gbd) error = GB_await_error();
        else  error     = GB_write_string(gbd, content);
        free(content);
    }

    if (!error) GB_add_callback(gbd, GB_CB_CHANGED, db_updated_cb, (int*)this);
    return error;
}

static bool initialized = false;

bool ARB_global_awars_initialized() {
    return initialized;
}

static void AWAR_AWM_MASK_changed_cb(AW_root *awr) {
    int mask = awr->awar(AWAR_AWM_MASK)->read_int();
#if defined(DEBUG)
    printf("AWAR_AWM_MASK changed, calling apply_sensitivity(%i)\n", mask);
#endif
    awr->apply_sensitivity(mask);
}

#if defined(DARWIN)
#define OPENURL "open"    
#else
#define OPENURL "xdg-open"
#endif // DARWIN

GB_ERROR ARB_init_global_awars(AW_root *aw_root, AW_default aw_def, GBDATA *gb_main) {
    aw_assert(!initialized);    // don't call twice!

    initialized  = true;
    gb_main4awar = gb_main;

    GB_ERROR error = aw_root->awar_string(AWAR_WWW_BROWSER, OPENURL " \"$(URL)\"", aw_def)->make_global();

    if (!error) {
        AW_awar *awar_awm_mask = aw_root->awar_int(AWAR_AWM_MASK, AWM_MASK_UNKNOWN, aw_def);
        
        awar_awm_mask->add_callback(AWAR_AWM_MASK_changed_cb);
        error = awar_awm_mask->make_global();
    }

    return error;
}