source: tags/ms_r16q2/GENOM/GEN_interface.cxx

Last change on this file was 14786, checked in by westram, 8 years ago
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 37.6 KB
Line 
1// =============================================================  //
2//                                                                //
3//   File      : GEN_interface.cxx                                //
4//   Purpose   :                                                  //
5//                                                                //
6//   Coded by Ralf Westram (coder@reallysoft.de) in February 2001 //
7//   Institute of Microbiology (Technical University Munich)      //
8//   http://www.arb-home.de/                                      //
9//                                                                //
10// ============================================================== //
11
12#include "GEN_local.hxx"
13
14#include <db_scanner.hxx>
15#include <db_query.h>
16#include <dbui.h>
17#include <item_sel_list.h>
18#include <awt_sel_boxes.hxx>
19#include <aw_awar_defs.hxx>
20#include <aw_root.hxx>
21#include <aw_awar.hxx>
22#include <aw_msg.hxx>
23#include <aw_question.hxx>
24#include <arbdbt.h>
25#include <adGene.h>
26#include <Location.h>
27#include <arb_strarray.h>
28#include <arb_strbuf.h>
29#include <info_window.h>
30
31using namespace std;
32
33// --------------------------------------------------------------------------------
34
35#define AWAR_GENE_DEST "tmp/gene/dest"
36
37// --------------------------------------------------------------------------------
38
39#if defined(WARN_TODO)
40#warning replace all occurrences of AD_F_ALL by AWM_ALL
41#endif
42
43#define AD_F_ALL AWM_ALL
44
45// --------------------------------------------------------------------------------
46
47static void GEN_select_gene(GBDATA* /* gb_main */, AW_root *aw_root, const char *item_name) {
48    char *organism  = strdup(item_name);
49    char *gene = strchr(organism, '/');
50
51    if (gene) {
52        *gene++ = 0;
53        aw_root->awar(AWAR_ORGANISM_NAME)->write_string(organism);
54        aw_root->awar(AWAR_GENE_NAME)->write_string(gene);
55    }
56    else if (!item_name[0]) { // accept empty input -> deselect gene/organism
57        aw_root->awar(AWAR_GENE_NAME)->write_string("");
58        aw_root->awar(AWAR_ORGANISM_NAME)->write_string("");
59    }
60    else {
61        aw_message(GBS_global_string("Illegal item_name '%s' in GEN_select_gene()", item_name));
62    }
63    free(organism);
64}
65
66static char *gen_get_gene_id(GBDATA * /* gb_main */, GBDATA *gb_gene) {
67    GBDATA *gb_species = GB_get_grandfather(gb_gene);
68    return GBS_global_string_copy("%s/%s", GBT_read_name(gb_species), GBT_read_name(gb_gene));
69}
70
71static GBDATA *gen_find_gene_by_id(GBDATA *gb_main, const char *id) {
72    char   *organism = strdup(id);
73    char   *gene     = strchr(organism, '/');
74    GBDATA *result   = 0;
75
76    if (gene) {
77        *gene++ = 0;
78        GBDATA *gb_organism = GEN_find_organism(gb_main, organism);
79        if (gb_organism) {
80            result = GEN_find_gene(gb_organism, gene);
81        }
82    }
83
84    free(organism);
85    return result;
86}
87
88
89GB_ERROR GEN_mark_organism_or_corresponding_organism(GBDATA *gb_species, int */*client_data*/) {
90    GB_ERROR error = 0;
91
92    if (GEN_is_pseudo_gene_species(gb_species)) {
93        GBDATA *gb_organism = GEN_find_origin_organism(gb_species, 0);
94        if (gb_organism) {
95            GB_write_flag(gb_organism, 1);
96        }
97        else {
98            error = GEN_organism_not_found(gb_species);
99        }
100    }
101    else if (GEN_is_organism(gb_species)) {
102        GB_write_flag(gb_species, 1);
103    }
104
105    return error;
106}
107
108static char *old_species_marks = 0; // configuration storing marked species
109
110inline void gen_restore_old_species_marks(GBDATA *gb_main) {
111    if (old_species_marks) {
112        GBT_restore_marked_species(gb_main, old_species_marks);
113        freenull(old_species_marks);
114    }
115}
116
117static GBDATA *GEN_get_first_gene_data(GBDATA *gb_main, AW_root *aw_root, QUERY_RANGE range) {
118    GBDATA   *gb_organism = 0;
119    GB_ERROR  error      = 0;
120
121    gen_restore_old_species_marks(gb_main);
122
123    switch (range) {
124        case QUERY_CURRENT_ITEM: {
125            char *species_name = aw_root->awar(AWAR_ORGANISM_NAME)->read_string();
126            gb_organism         = GEN_find_organism(gb_main, species_name);
127            free(species_name);
128            break;
129        }
130        case QUERY_MARKED_ITEMS: {
131            gb_organism = GEN_first_marked_organism(gb_main);
132            GBDATA *gb_pseudo   = GEN_first_marked_pseudo_species(gb_main);
133
134            if (gb_pseudo) {    // there are marked pseudo-species..
135                old_species_marks = GBT_store_marked_species(gb_main, true); // store and unmark marked species
136
137                error                   = GBT_with_stored_species(gb_main, old_species_marks, GEN_mark_organism_or_corresponding_organism, 0); // mark organisms related with stored
138                if (!error) gb_organism = GEN_first_marked_organism(gb_main);
139            }
140
141            break;
142        }
143        case QUERY_ALL_ITEMS: {
144            gb_organism = GEN_first_organism(gb_main);
145            break;
146        }
147        default: {
148            gen_assert(0);
149            break;
150        }
151    }
152
153    if (error) GB_export_error(error);
154    return gb_organism ? GEN_expect_gene_data(gb_organism) : 0;
155}
156
157static GBDATA *GEN_get_next_gene_data(GBDATA *gb_gene_data, QUERY_RANGE range) {
158    GBDATA *gb_organism = 0;
159    switch (range) {
160        case QUERY_CURRENT_ITEM: {
161            break;
162        }
163        case QUERY_MARKED_ITEMS: {
164            GBDATA *gb_last_organism = GB_get_father(gb_gene_data);
165            gb_organism              = GEN_next_marked_organism(gb_last_organism);
166
167            if (!gb_organism) gen_restore_old_species_marks(GB_get_root(gb_last_organism)); // got all -> clean up
168
169            break;
170        }
171        case QUERY_ALL_ITEMS: {
172            GBDATA *gb_last_organism = GB_get_father(gb_gene_data);
173            gb_organism              = GEN_next_organism(gb_last_organism);
174            break;
175        }
176        default: {
177            gen_assert(0);
178            break;
179        }
180    }
181
182    return gb_organism ? GEN_expect_gene_data(gb_organism) : 0;
183}
184
185static GBDATA *GEN_get_current_gene(GBDATA *gb_main, AW_root *aw_root) {
186    GBDATA *gb_species = GEN_get_current_organism(gb_main, aw_root);
187    GBDATA *gb_gene    = 0;
188
189    if (gb_species) {
190        char *gene_name = aw_root->awar(AWAR_GENE_NAME)->read_string();
191        gb_gene         = GEN_find_gene(gb_species, gene_name);
192        free(gene_name);
193    }
194
195    return gb_gene;
196}
197
198static void add_selected_gene_changed_cb(AW_root *aw_root, const RootCallback& cb) {
199    aw_root->awar(AWAR_GENE_NAME)->add_callback(cb);
200    ORGANISM_get_selector().add_selection_changed_cb(aw_root, cb);
201}
202
203static GBDATA *first_gene_in_range(GBDATA *gb_gene_data, QUERY_RANGE range) {
204    GBDATA *gb_first = NULL;
205    switch (range) {
206        case QUERY_ALL_ITEMS:    gb_first = GEN_first_gene_rel_gene_data(gb_gene_data); break;
207        case QUERY_MARKED_ITEMS: gb_first = GB_first_marked(gb_gene_data, "gene"); break;
208        case QUERY_CURRENT_ITEM: gb_first = GEN_get_current_gene(GB_get_root(gb_gene_data), AW_root::SINGLETON); break;
209    }
210    return gb_first;
211}
212static GBDATA *next_gene_in_range(GBDATA *gb_prev, QUERY_RANGE range) {
213    GBDATA *gb_next = NULL;
214    switch (range) {
215        case QUERY_ALL_ITEMS:    gb_next = GEN_next_gene(gb_prev); break;
216        case QUERY_MARKED_ITEMS: gb_next = GEN_next_marked_gene(gb_prev); break;
217        case QUERY_CURRENT_ITEM: gb_next = NULL; break;
218    }
219    return gb_next;
220}
221
222#if defined(WARN_TODO)
223#warning move GEN_item_selector to SL/ITEMS
224#endif
225
226static void refresh_displayed_genes() {
227    GEN_refresh_all_windows();
228}
229
230static struct MutableItemSelector GEN_item_selector = {
231    QUERY_ITEM_GENES,
232    GEN_select_gene,
233    gen_get_gene_id,
234    gen_find_gene_by_id,
235    gene_field_selection_list_update_cb,
236    -1, // unknown
237    CHANGE_KEY_PATH_GENES,
238    "gene",
239    "genes",
240    "name",
241    GEN_get_first_gene_data,
242    GEN_get_next_gene_data,
243    first_gene_in_range,
244    next_gene_in_range,
245    GEN_get_current_gene,
246    add_selected_gene_changed_cb,
247    &ORGANISM_get_selector(), GB_get_grandfather,
248    refresh_displayed_genes,
249};
250
251ItemSelector& GEN_get_selector() { return GEN_item_selector; }
252
253static void GEN_species_name_changed_cb(AW_root *awr, GBDATA *gb_main) {
254    char           *species_name = awr->awar(AWAR_SPECIES_NAME)->read_string();
255    GB_transaction  ta(gb_main);
256    GBDATA         *gb_species   = GBT_find_species(gb_main, species_name);
257
258    if (gb_species) {
259        if (GEN_is_pseudo_gene_species(gb_species)) {
260            awr->awar(AWAR_ORGANISM_NAME)->write_string(GEN_origin_organism(gb_species));
261            awr->awar(AWAR_GENE_NAME)->write_string(GEN_origin_gene(gb_species));
262        }
263        else {
264            awr->awar(AWAR_ORGANISM_NAME)->write_string(species_name);
265        }
266    }
267    free(species_name);
268}
269
270static void auto_select_pseudo_species(AW_root *awr, GBDATA *gb_main, const char *organism, const char *gene) {
271    GB_transaction  ta(gb_main);
272    GBDATA         *gb_pseudo = GEN_find_pseudo_species(gb_main, organism, gene, 0); // search for pseudo species..
273
274    awr->awar(AWAR_SPECIES_NAME)->write_string(gb_pseudo
275                                               ? GBT_read_name(gb_pseudo) // .. if found select
276                                               : organism);               // otherwise select organism
277}
278
279static void GEN_update_GENE_CONTENT(GBDATA *gb_main, AW_root *awr) {
280    GB_transaction  ta(gb_main);
281    GBDATA         *gb_gene      = GEN_get_current_gene(gb_main, awr);
282    bool            clear        = true;
283    AW_awar        *awar_content = awr->awar(AWAR_GENE_CONTENT);
284
285    if (gb_gene) {
286        // ignore complement here (to highlight gene in ARB_EDIT4);
287        // separate multiple parts by \n
288        char *gene_content = GBT_read_gene_sequence(gb_gene, false, '\n');
289        if (gene_content) {
290            awar_content->write_string(gene_content);
291            clear = false;
292            free(gene_content);
293        }
294        else {
295            awar_content->write_string(GB_await_error());
296        }
297    }
298    else {
299        char      *gene_name  = awr->awar(AWAR_GENE_NAME)->read_string();
300        const int  prefix_len = 10;
301
302        if (strncmp(gene_name, "intergene_", prefix_len) == 0) { // special case (non-gene result from gene pt server)
303            char *start_pos_ptr = gene_name+prefix_len;
304            char *end_pos_ptr   = strchr(start_pos_ptr, '_');
305
306            gen_assert(end_pos_ptr);
307            if (end_pos_ptr) {
308                *end_pos_ptr++ = 0;
309                long start_pos = atol(start_pos_ptr);
310                long end_pos   = atol(end_pos_ptr);
311
312                gen_assert(end_pos >= start_pos);
313
314                GBDATA *gb_organism = GEN_get_current_organism(gb_main, awr);
315                if (gb_organism) {
316                    GBDATA     *gb_seq   = GBT_find_sequence(gb_organism, GENOM_ALIGNMENT);
317                    const char *seq_data = GB_read_char_pntr(gb_seq);
318
319                    long  len    = end_pos-start_pos+1;
320                    char *buffer = (char*)malloc(len+1);
321                    memcpy(buffer, seq_data+start_pos, len);
322                    buffer[len]  = 0;
323
324                    awar_content->write_string(buffer);
325                    clear = false;
326
327                    free(buffer);
328                }
329            }
330        }
331        free(gene_name);
332    }
333
334    if (clear) {
335        awar_content->write_string(""); // if we did not detect any gene sequence -> clear
336    }
337}
338
339static void GEN_update_combined_cb(AW_root *awr, GBDATA *gb_main) {
340    char       *organism     = awr->awar(AWAR_ORGANISM_NAME)->read_string();
341    char       *gene         = awr->awar(AWAR_GENE_NAME)->read_string();
342    char       *old_combined = awr->awar(AWAR_COMBINED_GENE_NAME)->read_string();
343    const char *combined     = GBS_global_string("%s/%s", organism, gene);
344
345    if (strcmp(combined, old_combined) != 0) {
346        awr->awar(AWAR_COMBINED_GENE_NAME)->write_string(combined);
347        auto_select_pseudo_species(awr, gb_main, organism, gene);
348        GEN_update_GENE_CONTENT(gb_main, awr);
349    }
350
351    free(old_combined);
352    free(gene);
353    free(organism);
354}
355
356void GEN_create_awars(AW_root *aw_root, AW_default aw_def, GBDATA *gb_main) {
357    aw_root->awar_string(AWAR_COMBINED_GENE_NAME, "", gb_main);
358    aw_root->awar_string(AWAR_GENE_CONTENT,       0,  gb_main);
359
360    RootCallback update_combined_cb = makeRootCallback(GEN_update_combined_cb, gb_main);
361
362    aw_root->awar_string(AWAR_GENE_NAME,     "", gb_main)->add_callback(update_combined_cb);
363    aw_root->awar_string(AWAR_ORGANISM_NAME, "", gb_main)->add_callback(update_combined_cb);
364    aw_root->awar_string(AWAR_SPECIES_NAME,  "", gb_main)->add_callback(makeRootCallback(GEN_species_name_changed_cb, gb_main));
365
366    aw_root->awar_string(AWAR_GENE_DEST, "", aw_def);
367
368    aw_root->awar_string(AWAR_GENE_EXTRACT_ALI, "ali_gene_",    aw_def);
369}
370
371GBDATA *GEN_get_current_organism(GBDATA *gb_main, AW_root *aw_root) {
372    char   *species_name = aw_root->awar(AWAR_ORGANISM_NAME)->read_string();
373    GBDATA *gb_species   = GBT_find_species(gb_main, species_name);
374    free(species_name);
375    return gb_species;
376}
377
378GBDATA* GEN_get_current_gene_data(GBDATA *gb_main, AW_root *aw_root) {
379    GBDATA *gb_species      = GEN_get_current_organism(gb_main, aw_root);
380    GBDATA *gb_gene_data    = 0;
381
382    if (gb_species) gb_gene_data = GEN_expect_gene_data(gb_species);
383
384    return gb_gene_data;
385}
386
387static QUERY::DbQuery *GLOBAL_gene_query      = 0;
388
389static void gene_rename_cb(AW_window *aww, GBDATA *gb_main) {
390    AW_root *aw_root = aww->get_root();
391    char    *source  = aw_root->awar(AWAR_GENE_NAME)->read_string();
392    char    *dest    = aw_root->awar(AWAR_GENE_DEST)->read_string();
393
394    if (strcmp(source, dest) != 0) {
395        GB_ERROR error = GB_begin_transaction(gb_main);
396
397        if (!error) {
398            GBDATA *gb_gene_data = GEN_get_current_gene_data(gb_main, aww->get_root());
399
400            if (!gb_gene_data) error = "Please select a species";
401            else {
402                GBDATA *gb_source = GEN_find_gene_rel_gene_data(gb_gene_data, source);
403                GBDATA *gb_dest   = GEN_find_gene_rel_gene_data(gb_gene_data, dest);
404
405                if (!gb_source) error   = "Please select a gene first";
406                else if (gb_dest) error = GB_export_errorf("Gene '%s' already exists", dest);
407                else {
408                    GBDATA *gb_name = GB_search(gb_source, "name", GB_STRING);
409
410                    if (!gb_name) error = GB_await_error();
411                    else {
412                        error = GB_write_string(gb_name, dest);
413                        if (!error) aww->get_root()->awar(AWAR_GENE_NAME)->write_string(dest);
414                    }
415                }
416            }
417        }
418
419        error = GB_end_transaction(gb_main, error);
420        aww->hide_or_notify(error);
421    }
422
423    free(source);
424    free(dest);
425}
426
427static AW_window *create_gene_rename_window(AW_root *root, GBDATA *gb_main) {
428    AW_window_simple *aws = new AW_window_simple;
429    aws->init(root, "RENAME_GENE", "GENE RENAME");
430    aws->load_xfig("ad_al_si.fig");
431
432    aws->at("close");
433    aws->callback(AW_POPDOWN);
434    aws->create_button("CLOSE", "CLOSE", "C");
435
436    aws->at("label");
437    aws->create_autosize_button(0, "Please enter the new name\nof the gene");
438
439    aws->at("input");
440    aws->create_input_field(AWAR_GENE_DEST, 15);
441    aws->at("ok");
442    aws->callback(makeWindowCallback(gene_rename_cb, gb_main));
443    aws->create_button("GO", "GO", "G");
444
445    return aws;
446}
447
448static void gene_copy_cb(AW_window *aww, GBDATA *gb_main) {
449    char     *source = aww->get_root()->awar(AWAR_GENE_NAME)->read_string();
450    char     *dest   = aww->get_root()->awar(AWAR_GENE_DEST)->read_string();
451    GB_ERROR  error  = GB_begin_transaction(gb_main);
452
453    if (!error) {
454        GBDATA *gb_gene_data = GEN_get_current_gene_data(gb_main, aww->get_root());
455
456        if (!gb_gene_data) {
457            error = "Please select a species first.";
458        }
459        else {
460            GBDATA *gb_source = GEN_find_gene_rel_gene_data(gb_gene_data, source);
461            GBDATA *gb_dest   = GEN_find_gene_rel_gene_data(gb_gene_data, dest);
462
463            if (!gb_source) error   = "Please select a gene";
464            else if (gb_dest) error = GB_export_errorf("Gene '%s' already exists", dest);
465            else {
466                gb_dest             = GB_create_container(gb_gene_data, "gene");
467                if (!gb_dest) error = GB_await_error();
468                else error          = GB_copy(gb_dest, gb_source);
469
470                if (!error) error = GBT_write_string(gb_dest, "name", dest);
471                if (!error) aww->get_root()->awar(AWAR_GENE_NAME)->write_string(dest);
472            }
473        }
474    }
475
476    error = GB_end_transaction(gb_main, error);
477    aww->hide_or_notify(error);
478
479    free(source);
480    free(dest);
481}
482
483static AW_window *create_gene_copy_window(AW_root *root, GBDATA *gb_main) {
484    AW_window_simple *aws = new AW_window_simple;
485    aws->init(root, "COPY_GENE", "GENE COPY");
486    aws->load_xfig("ad_al_si.fig");
487
488    aws->at("close");
489    aws->callback(AW_POPDOWN);
490    aws->create_button("CLOSE", "CLOSE", "C");
491
492    aws->at("label");
493    aws->create_autosize_button(0, "Please enter the name\nof the new gene");
494
495    aws->at("input");
496    aws->create_input_field(AWAR_GENE_DEST, 15);
497
498    aws->at("ok");
499    aws->callback(makeWindowCallback(gene_copy_cb, gb_main));
500    aws->create_button("GO", "GO", "G");
501
502    return aws;
503}
504
505
506// -----------------------
507//      LocationEditor
508
509const int NAME_WIDTH = 33;
510const int POS_WIDTH  = NAME_WIDTH;
511const int CER_WIDTH  = POS_WIDTH/2;
512const int LOC_WIDTH  = 53;
513
514#define GLE_POS1       "pos1"
515#define GLE_POS2       "pos2"
516#define GLE_CERT1      "cert1"
517#define GLE_CERT2      "cert2"
518#define GLE_COMPLEMENT "complement"
519#define GLE_JOINABLE   "joinable"
520#define GLE_READABLE   "location"
521#define GLE_STATUS     "status"
522
523class LocationEditor : virtual Noncopyable { // GLE
524    typedef void (*PosChanged_cb)(AW_root *aw_root, LocationEditor *loced);
525
526    char          *tag;
527    AW_root       *aw_root;
528    GBDATA        *gb_main;
529    char          *status;
530    GEN_position  *pos;
531    PosChanged_cb  pos_changed_cb;
532
533    void createAwars();
534
535    void createInputField(AW_window *aws, const char *at, const char *aname, int width) const {
536        aws->at(at);
537        aws->create_input_field(loc_awar_name(aname), width);
538    }
539
540public:
541    LocationEditor(AW_root *aw_root_, GBDATA *gb_main_, const char *tag_)
542        : tag(strdup(tag_)),
543          aw_root(aw_root_),
544          gb_main(gb_main_), 
545          status(NULL),
546          pos(NULL),
547          pos_changed_cb(NULL)
548    {
549        createAwars();
550        set_status(NULL);
551    }
552    ~LocationEditor() {
553        free(tag);
554        free(status);
555        GEN_free_position(pos);
556    }
557
558    GBDATA *get_gb_main() const { return gb_main; }
559
560    void add_pos_changed_cb(PosChanged_cb cb) { pos_changed_cb = cb; }
561
562    const GEN_position *get_pos() const { return pos; }
563    void set_pos(GEN_position*& pos_) {
564        GEN_free_position(pos);
565        pos  = pos_;
566        pos_ = NULL; // take ownership
567        set_status(status);
568
569        if (pos && pos_changed_cb) {
570            pos_changed_cb(aw_root, this);
571        }
572    }
573    void set_status(const char *status_) {
574        if (status != status_) freedup(status, status_);
575        loc_awar(GLE_STATUS)->write_string(status ? status : (pos ? "Ok" : "No data"));
576    }
577
578    const char *loc_awar_name(const char *aname) const {
579        const int   BUFSIZE = 100;
580        static char buf[BUFSIZE];
581
582        IF_ASSERTION_USED(int printed =) sprintf(buf, "tmp/loc/%s/%s", tag, aname);
583        gen_assert(printed<BUFSIZE);
584
585        return buf;
586    }
587    AW_awar *loc_awar(const char *aname) const { return aw_root->awar(loc_awar_name(aname)); }
588    const char *awar_charp_value(const char *aname) const { return loc_awar(aname)->read_char_pntr(); }
589
590    void createEditFields(AW_window *aws);
591   
592    GEN_position *create_GEN_position_from_fields(GB_ERROR& error);
593    void revcomp() {
594        loc_awar(GLE_READABLE)->write_string(GBS_global_string("complement(%s)", awar_charp_value(GLE_READABLE)));
595    }
596};
597
598inline const char *elemOr(ConstStrArray& a, size_t i, const char *Default) {
599    return i<a.size() ? a[i] : Default;
600}
601inline char elemOr(const char *a, size_t len, size_t i, char Default) {
602    return i<len ? a[i] : Default;
603}
604
605GEN_position *LocationEditor::create_GEN_position_from_fields(GB_ERROR& error) {
606    const char *ipos1  = awar_charp_value(GLE_POS1);
607    const char *ipos2  = awar_charp_value(GLE_POS2);
608    const char *icert1 = awar_charp_value(GLE_CERT1);
609    const char *icert2 = awar_charp_value(GLE_CERT2);
610    const char *icomp  = awar_charp_value(GLE_COMPLEMENT);
611
612    const char *sep = ",; ";
613
614    ConstStrArray pos1, pos2;
615    GBT_split_string(pos1, ipos1, sep, true);
616    GBT_split_string(pos2, ipos2, sep, true);
617
618    size_t clen1 = strlen(icert1);
619    size_t clen2 = strlen(icert2);
620    size_t clen  = strlen(icomp);
621
622    size_t max_size = pos1.size();
623    bool   joinable = loc_awar(GLE_JOINABLE)->read_int();
624
625    GEN_position *gp = NULL;
626    if (max_size>0) {
627        gp = GEN_new_position(max_size, joinable);
628        GEN_use_uncertainties(gp);
629
630        for (size_t i = 0; i<max_size; ++i) {
631            const char *p1c = elemOr(pos1, i, "1");
632            size_t      p1  = atoi(p1c);
633            size_t      p2  = atoi(elemOr(pos2, i, p1c));
634
635            char c  = elemOr(icomp,  clen,  i, '0');
636            char c1 = elemOr(icert1, clen1, i, '=');
637            char c2 = elemOr(icert2, clen2, i, '=');
638
639            gen_assert(c1 && c2);
640
641            gp->start_pos[i]       = p1;
642            gp->stop_pos[i]        = p2;
643            gp->complement[i]      = !!(c-'0');
644            gp->start_uncertain[i] = c1;
645            gp->stop_uncertain[i]  = c2;
646        }
647    }
648    else {
649        error = "No data";
650    }
651
652    return gp;
653}
654
655static int loc_update_running = 0;
656
657inline GB_ERROR update_location_from_GEN_position(LocationEditor *loced, const GEN_position *gp) {
658    GB_ERROR error = NULL;
659    if (gp) {
660        try {
661            LocationPtr loc = to_Location(gp);
662            loced->loc_awar(GLE_READABLE)->write_string(loc->as_string().c_str());
663        }
664        catch (const char *& err) { error = GBS_static_string(err); }
665        catch (string& err) { error = GBS_static_string(err.c_str()); }
666        catch (...) { gen_assert(0); }
667    }
668    return error;
669}
670
671
672static void GLE_update_from_detailFields(AW_root *, LocationEditor *loced) {
673    // update location according to other fields
674    if (!loc_update_running) {
675        loc_update_running++;
676
677        GB_ERROR      error = NULL;
678        GEN_position *gp    = loced->create_GEN_position_from_fields(error);
679
680        if (!error) {
681            error = update_location_from_GEN_position(loced, gp);
682        }
683
684        loced->set_pos(gp);
685        loced->set_status(error);
686
687        loc_update_running--;
688    }
689}
690
691
692static SmartCharPtr sizetarray2string(const size_t *array, int size) {
693    GBS_strstruct out(size*5);
694    for (int i = 0; i<size; ++i) {
695        out.putlong(array[i]);
696        out.put(' ');
697    }
698    out.cut_tail(1);
699    return out.release();
700}
701inline SmartCharPtr dupSizedPart(const unsigned char *in, int size) {
702    const char *in2 = reinterpret_cast<const char*>(in);
703    return GB_strpartdup(in2, in2+size-1);
704}
705inline SmartCharPtr dupComplement(const unsigned char *in, int size) {
706    char *dup = (char*)malloc(size+1);
707    for (int i = 0; i<size; ++i) {
708        dup[i] = in[i] ? '1' : '0';
709    }
710    dup[size] = 0;
711    return dup;
712}
713
714static void GLE_update_from_location(AW_root *, LocationEditor *loced) {
715    // update other fields according to location
716    if (!loc_update_running) {
717        loc_update_running++;
718
719        GB_ERROR      error  = NULL;
720        const char   *locstr = loced->awar_charp_value(GLE_READABLE);
721        GEN_position *gp     = NULL;
722
723        try {
724            LocationPtr loc = parseLocation(locstr);
725            gp              = loc->create_GEN_position();
726        }
727        catch (const char *& err) { error = GBS_static_string(err); }
728        catch (string& err) { error = GBS_static_string(err.c_str()); }
729        catch (...) { gen_assert(0); }
730
731        if (!error) {
732            loced->loc_awar(GLE_POS1)->write_string(&*sizetarray2string(gp->start_pos, gp->parts));
733            loced->loc_awar(GLE_POS2)->write_string(&*sizetarray2string(gp->stop_pos, gp->parts));
734
735            loced->loc_awar(GLE_CERT1)->write_string(&*dupSizedPart(gp->start_uncertain, gp->parts));
736            loced->loc_awar(GLE_CERT2)->write_string(&*dupSizedPart(gp->stop_uncertain, gp->parts));
737            loced->loc_awar(GLE_COMPLEMENT)->write_string(&*dupComplement(gp->complement, gp->parts));
738
739            loced->loc_awar(GLE_JOINABLE)->write_int(gp->parts>1 ? gp->joinable : 1);
740        }
741
742        loced->set_pos(gp);
743        loced->set_status(error);
744
745        loc_update_running--;
746    }
747}
748
749static void GLE_revcomp_cb(AW_window*, LocationEditor *loced) {
750    loced->revcomp();
751}
752
753void LocationEditor::createAwars() {
754    RootCallback update_from_detail = makeRootCallback(GLE_update_from_detailFields, this);
755
756    aw_root->awar_string(loc_awar_name(GLE_POS1),       "", gb_main)->add_callback(update_from_detail);
757    aw_root->awar_string(loc_awar_name(GLE_POS2),       "", gb_main)->add_callback(update_from_detail);
758    aw_root->awar_string(loc_awar_name(GLE_CERT1),      "", gb_main)->add_callback(update_from_detail);
759    aw_root->awar_string(loc_awar_name(GLE_CERT2),      "", gb_main)->add_callback(update_from_detail);
760    aw_root->awar_string(loc_awar_name(GLE_COMPLEMENT), "", gb_main)->add_callback(update_from_detail);
761    aw_root->awar_int   (loc_awar_name(GLE_JOINABLE),    1, gb_main)->add_callback(update_from_detail);
762    aw_root->awar_string(loc_awar_name(GLE_READABLE),   "", gb_main)->add_callback(makeRootCallback(GLE_update_from_location, this));
763    aw_root->awar_string(loc_awar_name(GLE_STATUS),     "", gb_main);
764}
765
766void LocationEditor::createEditFields(AW_window *aws) {
767    createInputField(aws, "pos1",   GLE_POS1,       POS_WIDTH);
768    createInputField(aws, "cert1",  GLE_CERT1,      CER_WIDTH);
769    createInputField(aws, "pos2",   GLE_POS2,       POS_WIDTH);
770    createInputField(aws, "cert2",  GLE_CERT2,      CER_WIDTH);
771    createInputField(aws, "comp",   GLE_COMPLEMENT, CER_WIDTH);
772    createInputField(aws, "loc",    GLE_READABLE,   LOC_WIDTH);
773    createInputField(aws, "status", GLE_STATUS,     LOC_WIDTH);
774
775    aws->at("rev");
776    aws->callback(makeWindowCallback(GLE_revcomp_cb, this));
777    aws->button_length(8);
778    aws->create_button("REV", "RevComp");
779   
780    aws->at("join");
781    aws->create_toggle(loc_awar_name(GLE_JOINABLE));
782}
783
784static void gene_changed_cb(AW_root *aw_root, LocationEditor *loced) {
785    GBDATA       *gb_gene = GEN_get_current_gene(loced->get_gb_main(), aw_root);
786    GEN_position *pos     = gb_gene ? GEN_read_position(gb_gene) : NULL;
787
788    GB_ERROR error = NULL;
789    if (pos) {
790        GEN_use_uncertainties(pos);
791        error = update_location_from_GEN_position(loced, pos);
792    }
793    loced->set_pos(pos);
794    loced->set_status(error);
795}
796
797static void boundloc_changed_cb(AW_root *aw_root, LocationEditor *loced) {
798    GBDATA*             gb_main = loced->get_gb_main();
799    const GEN_position *pos     = loced->get_pos();
800    gen_assert(pos);
801
802    GB_push_transaction(gb_main);
803    GBDATA   *gb_gene = GEN_get_current_gene(gb_main, aw_root);
804    GB_ERROR  error;
805    if (gb_gene) {
806        error = GEN_write_position(gb_gene, pos, 0);
807    }
808    else {
809        error = "That had no effect (no gene is selected)";
810    }
811    GB_end_transaction_show_error(gb_main, error, aw_message);
812
813    if (error) {
814        gene_changed_cb(aw_root, loced);
815    }
816}
817
818static void gene_create_cb(AW_window *aww, GBDATA *gb_main, LocationEditor *loced) {
819    GB_ERROR error = GB_begin_transaction(gb_main);
820
821    if (!error) {
822        AW_root *aw_root      = aww->get_root();
823        GBDATA  *gb_gene_data = GEN_get_current_gene_data(gb_main, aw_root);
824
825        if (!gb_gene_data) error = "Please select an organism";
826        else {
827            char    *dest    = aw_root->awar(AWAR_GENE_DEST)->read_string();
828            GBDATA  *gb_dest = GEN_find_gene_rel_gene_data(gb_gene_data, dest);
829
830            if (gb_dest) error = GBS_global_string("Gene '%s' already exists", dest);
831            else {
832                const GEN_position *pos = loced->get_pos();
833
834                if (!pos) error = "Won't create a gene with invalid position";
835                else  {
836                    gb_dest             = GEN_find_or_create_gene_rel_gene_data(gb_gene_data, dest);
837                    if (!gb_dest) error = GB_await_error();
838                    else error          = GEN_write_position(gb_dest, pos, 0);
839
840                    if (!error) {
841                        aw_root->awar(AWAR_GENE_NAME)->write_string(dest);
842                        aww->hide();
843                    }
844                }
845            }
846
847            free(dest);
848        }
849    }
850    GB_end_transaction_show_error(gb_main, error, aw_message);
851
852    gen_assert(!GB_have_error());
853}
854
855static AW_window *get_gene_create_or_locationEdit_window(AW_root *root, bool createGene, GBDATA *gb_main) {
856    static AW_window_simple *awa[2] = { NULL, NULL};
857    static LocationEditor   *le[2] = { NULL, NULL};
858
859    AW_window_simple*& aws   = awa[createGene];
860    LocationEditor*&   loced = le[createGene];
861
862    if (!aws) {
863        gen_assert(gb_main);
864
865        aws   = new AW_window_simple;
866        loced = new LocationEditor(root, gb_main, createGene ? "create" : "edit");
867
868        if (createGene) aws->init(root, "CREATE_GENE",   "GENE CREATE");
869        else            aws->init(root, "EDIT_LOCATION", "EDIT LOCATION");
870
871        aws->load_xfig("ad_gen_create.fig");
872
873        aws->at("close");
874        aws->callback(AW_POPDOWN);
875        aws->create_button("CLOSE", "Close", "C");
876
877        aws->at("help");
878        aws->callback(makeHelpCallback("gen_create.hlp"));
879        aws->create_button("HELP", "Help", "H");
880
881        aws->button_length(NAME_WIDTH);
882       
883        aws->at("organism");
884        aws->create_button(NULL, AWAR_ORGANISM_NAME);
885
886        aws->at("gene");
887        if (createGene) {
888            aws->create_input_field(AWAR_GENE_DEST, NAME_WIDTH);
889        }
890        else {
891            aws->create_button(NULL, AWAR_GENE_NAME);
892            AW_awar *awar_cgene = aws->get_root()->awar(AWAR_COMBINED_GENE_NAME);
893            awar_cgene->add_callback(makeRootCallback(gene_changed_cb, loced));
894            awar_cgene->touch();
895
896            loced->add_pos_changed_cb(boundloc_changed_cb);
897        }
898        aws->button_length(0);
899
900        loced->createEditFields(aws);
901
902        if (createGene) {
903            aws->at_shift(0, 30);
904            aws->callback(makeWindowCallback(gene_create_cb, gb_main, loced));
905            aws->create_autosize_button("CREATE", "Create gene", "G");
906        }
907    }
908    return aws;
909}
910static void popup_gene_location_editor(AW_window *aww, GBDATA *gb_main) {
911    AW_window *aws = get_gene_create_or_locationEdit_window(aww->get_root(), false, gb_main);
912    aws->activate();
913}
914static AW_window *create_gene_create_window(AW_root *root, GBDATA *gb_main) {
915    return get_gene_create_or_locationEdit_window(root, true, gb_main);
916}
917
918static void gene_delete_cb(AW_window *aww, GBDATA *gb_main) {
919    if (aw_ask_sure("gene_delete", "Are you sure to delete the gene?")) {
920        GB_transaction  ta(gb_main);
921        GBDATA         *gb_gene = GEN_get_current_gene(gb_main, aww->get_root());
922
923        GB_ERROR error = gb_gene ? GB_delete(gb_gene) : "Please select a gene first";
924        if (error) {
925            error = ta.close(error);
926            aw_message(error);
927        }
928    }
929}
930
931static void GEN_create_field_items(AW_window *aws, GBDATA *gb_main) {
932    static BoundItemSel *bis = new BoundItemSel(gb_main, GEN_get_selector());
933    gen_assert(bis->gb_main == gb_main);
934
935    aws->insert_menu_topic(aws->local_id("gen_reorder_fields"), "Reorder fields ...",    "R", "spaf_reorder.hlp", AD_F_ALL, makeCreateWindowCallback(DBUI::create_fields_reorder_window, bis));
936    aws->insert_menu_topic(aws->local_id("gen_delete_field"),   "Delete/Hide field ...", "D", "spaf_delete.hlp",  AD_F_ALL, makeCreateWindowCallback(DBUI::create_field_delete_window,   bis));
937    aws->insert_menu_topic(aws->local_id("gen_create_field"),   "Create fields ...",     "C", "spaf_create.hlp",  AD_F_ALL, makeCreateWindowCallback(DBUI::create_field_create_window,   bis));
938    aws->sep______________();
939    aws->insert_menu_topic("gen_unhide_fields",  "Show all hidden fields", "S", "scandb.hlp", AD_F_ALL, makeWindowCallback(gene_field_selection_list_unhide_all_cb, gb_main));
940    aws->insert_menu_topic("gen_refresh_fields", "Refresh fields",         "f", "scandb.hlp", AD_F_ALL, makeWindowCallback(gene_field_selection_list_update_cb,     gb_main));
941}
942
943#if defined(WARN_TODO)
944#warning move GEN_popup_gene_infowindow to SL/DB_UI
945#endif
946
947static AW_window *popup_new_gene_window(AW_root *aw_root, GBDATA *gb_main, int detach_id);
948
949static void popup_detached_gene_window(AW_window *aw_parent, const InfoWindow *infoWin) {
950    const InfoWindow *reusable = InfoWindowRegistry::infowin.find_reusable_of_same_type_as(*infoWin);
951    if (reusable) reusable->reuse();
952    else { // create a new window if none is reusable
953        popup_new_gene_window(aw_parent->get_root(),
954                              infoWin->get_gbmain(),
955                              InfoWindowRegistry::infowin.allocate_detach_id(*infoWin));
956    }
957}
958
959static AW_window *popup_new_gene_window(AW_root *aw_root, GBDATA *gb_main, int detach_id) { // INFO_WINDOW_CREATOR
960    AW_window_simple_menu *aws      = new AW_window_simple_menu;
961    const ItemSelector&    itemType = GEN_get_selector();
962
963    DBUI::init_info_window(aw_root, aws, itemType, detach_id);
964    aws->load_xfig("ad_spec.fig");
965
966    aws->button_length(8);
967
968    aws->at("close");
969    aws->callback(AW_POPDOWN);
970    aws->create_button("CLOSE", "CLOSE", "C");
971
972    aws->at("search");
973    aws->callback(makeCreateWindowCallback(GEN_create_gene_query_window, gb_main));
974    aws->create_button("SEARCH", "SEARCH", "S");
975
976    aws->at("help");
977    aws->callback(makeHelpCallback("gene_info.hlp"));
978    aws->create_button("HELP", "HELP", "H");
979
980    DbScanner         *scanner = create_db_scanner(gb_main, aws, "box", 0, "field", "enable", DB_VIEWER, "mark", itemType);
981    const InfoWindow&  infoWin = InfoWindowRegistry::infowin.registerInfoWindow(aws, scanner, detach_id);
982
983    if (infoWin.is_maininfo()) {
984        aws->create_menu("GENE", "G", AD_F_ALL);
985        aws->insert_menu_topic("gene_delete",  "Delete",             "D", "spa_delete.hlp", AD_F_ALL, makeWindowCallback      (gene_delete_cb,             gb_main));
986        aws->insert_menu_topic("gene_rename",  "Rename ...",         "R", "spa_rename.hlp", AD_F_ALL, makeCreateWindowCallback(create_gene_rename_window,  gb_main));
987        aws->insert_menu_topic("gene_copy",    "Copy ...",           "y", "spa_copy.hlp",   AD_F_ALL, makeCreateWindowCallback(create_gene_copy_window,    gb_main));
988        aws->insert_menu_topic("gene_create",  "Create ...",         "C", "gen_create.hlp", AD_F_ALL, makeCreateWindowCallback(create_gene_create_window,  gb_main));
989        aws->sep______________();
990        aws->insert_menu_topic("gen_edit_loc", "Edit gene location", "l", "gen_create.hlp", AD_F_ALL, makeWindowCallback      (popup_gene_location_editor, gb_main));
991    }
992
993    aws->create_menu("FIELDS", "F", AD_F_ALL);
994    GEN_create_field_items(aws, gb_main);
995
996    aws->at("detach");
997    infoWin.add_detachOrGet_button(popup_detached_gene_window);
998
999    aws->show();
1000    infoWin.attach_selected_item();
1001
1002    return aws;
1003}
1004
1005void GEN_popup_gene_infowindow(AW_root *aw_root, GBDATA *gb_main) {
1006    static AW_window *aws = 0;
1007    if (!aws) {
1008        aws = popup_new_gene_window(aw_root, gb_main, InfoWindow::MAIN_WINDOW);
1009    }
1010    else {
1011        aws->activate();
1012    }
1013}
1014
1015#if defined(WARN_TODO)
1016#warning move GEN_create_gene_query_window to SL/DB_UI
1017#endif
1018
1019AW_window *GEN_create_gene_query_window(AW_root *aw_root, GBDATA *gb_main) {
1020    static AW_window_simple_menu *aws = 0;
1021
1022    if (!aws) {
1023        aws = new AW_window_simple_menu;
1024        aws->init(aw_root, "GEN_QUERY", "Gene SEARCH and QUERY");
1025        aws->create_menu("More functions", "f");
1026        aws->load_xfig("ad_query.fig");
1027
1028        QUERY::query_spec awtqs(GEN_get_selector());
1029
1030        awtqs.gb_main             = gb_main;
1031        awtqs.species_name        = AWAR_SPECIES_NAME;
1032        awtqs.tree_name           = AWAR_TREE;
1033        awtqs.select_bit          = GB_USERFLAG_QUERY;
1034        awtqs.use_menu            = 1;
1035        awtqs.ere_pos_fig         = "ere3";
1036        awtqs.where_pos_fig       = "where3";
1037        awtqs.by_pos_fig          = "by3";
1038        awtqs.qbox_pos_fig        = "qbox";
1039        awtqs.key_pos_fig         = 0;
1040        awtqs.query_pos_fig       = "content";
1041        awtqs.result_pos_fig      = "result";
1042        awtqs.count_pos_fig       = "count";
1043        awtqs.do_query_pos_fig    = "doquery";
1044        awtqs.config_pos_fig      = "doconfig";
1045        awtqs.do_mark_pos_fig     = "domark";
1046        awtqs.do_unmark_pos_fig   = "dounmark";
1047        awtqs.do_delete_pos_fig   = "dodelete";
1048        awtqs.do_set_pos_fig      = "doset";
1049        awtqs.do_refresh_pos_fig  = "dorefresh";
1050        awtqs.open_parser_pos_fig = "openparser";
1051        awtqs.popup_info_window   = GEN_popup_gene_infowindow;
1052
1053        QUERY::DbQuery *query = create_query_box(aws, &awtqs, "gen");
1054        GLOBAL_gene_query     = query;
1055
1056        aws->create_menu("More search",     "s");
1057        aws->insert_menu_topic("gen_search_equal_fields_within_db", "Search For Equal Fields and Mark Duplicates",               "E", "search_duplicates.hlp", AWM_ALL, makeWindowCallback(QUERY::search_duplicated_field_content, query, false));
1058        aws->insert_menu_topic("gen_search_equal_words_within_db",  "Search For Equal Words Between Fields and Mark Duplicates", "W", "search_duplicates.hlp", AWM_ALL, makeWindowCallback(QUERY::search_duplicated_field_content, query, true));
1059
1060        aws->button_length(7);
1061
1062        aws->at("close");
1063        aws->callback(AW_POPDOWN);
1064        aws->create_button("CLOSE", "CLOSE", "C");
1065
1066        aws->at("help");
1067        aws->callback(makeHelpCallback("gene_search.hlp"));
1068        aws->create_button("HELP", "HELP", "H");
1069    }
1070
1071    return aws;
1072}
Note: See TracBrowser for help on using the repository browser.