1 | #include <cstdio> |
---|
2 | #include <cstdlib> |
---|
3 | #include <cstring> |
---|
4 | |
---|
5 | #include <arbdb.h> |
---|
6 | #include <aw_root.hxx> |
---|
7 | #include <aw_device.hxx> |
---|
8 | #include <aw_window.hxx> |
---|
9 | #include <AW_rename.hxx> |
---|
10 | #include "merge.hxx" |
---|
11 | |
---|
12 | // -------------------------------------------------------------------------------- |
---|
13 | |
---|
14 | #define AWAR_MERGE_ADDID "tmp/merge1/addid" |
---|
15 | #define AWAR_DEST_ADDID "tmp/merge2/addid" |
---|
16 | |
---|
17 | #define AWAR_ADDID_MATCH "tmp/merge/addidmatch" |
---|
18 | #define AWAR_RENAME_STATUS "tmp/merge/renamestat" |
---|
19 | #define AWAR_ALLOW_DUPS "tmp/merge/allowdups" |
---|
20 | #define AWAR_OVERRIDE "tmp/merge/override" |
---|
21 | |
---|
22 | // -------------------------------------------------------------------------------- |
---|
23 | |
---|
24 | void MG_create_rename_awars(AW_root *aw_root, AW_default aw_def) { |
---|
25 | aw_root->awar_string(AWAR_ADDID_MATCH, "", aw_def); |
---|
26 | aw_root->awar_string(AWAR_RENAME_STATUS, "", aw_def); |
---|
27 | aw_root->awar_int(AWAR_ALLOW_DUPS, 0, aw_def); |
---|
28 | aw_root->awar_int(AWAR_OVERRIDE, 0, aw_def); |
---|
29 | } |
---|
30 | |
---|
31 | // -------------------------------------------------------------------------------- |
---|
32 | |
---|
33 | static const char *addids_match_info(AW_root *aw_root) { |
---|
34 | char *addid1 = aw_root->awar(AWAR_MERGE_ADDID)->read_string(); |
---|
35 | char *addid2 = aw_root->awar(AWAR_DEST_ADDID)->read_string(); |
---|
36 | const char *result = (strcmp(addid1, addid2) == 0) ? "Ok" : "MISMATCH!"; |
---|
37 | |
---|
38 | free(addid2); |
---|
39 | free(addid1); |
---|
40 | |
---|
41 | return result; |
---|
42 | } |
---|
43 | |
---|
44 | static void addids_match_info_refresh_cb(AW_root *aw_root) { |
---|
45 | aw_root->awar(AWAR_ADDID_MATCH)->write_string(addids_match_info(aw_root)); |
---|
46 | MG_set_renamed(false, aw_root, "Needed (add.field changed)"); |
---|
47 | } |
---|
48 | |
---|
49 | void MG_create_db_dependent_rename_awars(AW_root *aw_root, GBDATA *gb_merge, GBDATA *gb_dest) { |
---|
50 | static bool created = false; |
---|
51 | |
---|
52 | if (!created) { |
---|
53 | GB_transaction t1(gb_merge); |
---|
54 | GB_transaction t2(gb_dest); |
---|
55 | GB_ERROR error = 0; |
---|
56 | |
---|
57 | // Awars for additional ID need to be mapped, cause they use same db-path in both DBs |
---|
58 | |
---|
59 | GBDATA *gb_addid1 = GB_search(gb_merge, AWAR_NAMESERVER_ADDID, GB_STRING); |
---|
60 | GBDATA *gb_addid2 = GB_search(gb_dest, AWAR_NAMESERVER_ADDID, GB_STRING); |
---|
61 | const char *addid1 = gb_addid1 ? GB_read_char_pntr(gb_addid1) : ""; |
---|
62 | const char *addid2 = gb_addid2 ? GB_read_char_pntr(gb_addid2) : ""; |
---|
63 | |
---|
64 | // use other as default (needed e.g. for import) |
---|
65 | if (gb_addid1 && !gb_addid2) { |
---|
66 | gb_addid2 = GB_create(gb_dest, AWAR_NAMESERVER_ADDID, GB_STRING); |
---|
67 | if (!gb_addid2) error = GB_get_error(); |
---|
68 | else error = GB_write_string(gb_addid2, addid1); |
---|
69 | } |
---|
70 | else if (!gb_addid1 && gb_addid2) { |
---|
71 | gb_addid1 = GB_create(gb_merge, AWAR_NAMESERVER_ADDID, GB_STRING); |
---|
72 | if (!gb_addid1) error = GB_get_error(); |
---|
73 | else error = GB_write_string(gb_addid1, addid2); |
---|
74 | } |
---|
75 | |
---|
76 | if (!error) { |
---|
77 | AW_awar *awar_addid1 = aw_root->awar_string(AWAR_MERGE_ADDID, "xxx", gb_merge); |
---|
78 | AW_awar *awar_addid2 = aw_root->awar_string(AWAR_DEST_ADDID, "xxx", gb_dest); |
---|
79 | |
---|
80 | awar_addid1->unmap(); awar_addid1->map(gb_addid1); |
---|
81 | awar_addid2->unmap(); awar_addid2->map(gb_addid2); |
---|
82 | |
---|
83 | awar_addid1->add_callback(addids_match_info_refresh_cb); |
---|
84 | awar_addid2->add_callback(addids_match_info_refresh_cb); |
---|
85 | |
---|
86 | addids_match_info_refresh_cb(aw_root); |
---|
87 | } |
---|
88 | |
---|
89 | if (error) { |
---|
90 | aw_message(error); |
---|
91 | t1.abort(); |
---|
92 | t2.abort(); |
---|
93 | } |
---|
94 | |
---|
95 | created = true; |
---|
96 | } |
---|
97 | } |
---|
98 | |
---|
99 | // -------------------------------------------------------------------------------- |
---|
100 | |
---|
101 | static bool was_renamed = false; |
---|
102 | |
---|
103 | void MG_set_renamed(bool renamed, AW_root *aw_root, const char *reason) { |
---|
104 | aw_root->awar(AWAR_RENAME_STATUS)->write_string(reason); |
---|
105 | was_renamed = renamed; |
---|
106 | } |
---|
107 | |
---|
108 | GB_ERROR MG_expect_renamed() { |
---|
109 | GB_ERROR error = 0; |
---|
110 | if (!was_renamed) error = "First you have to rename species in both databases"; |
---|
111 | return error; |
---|
112 | } |
---|
113 | |
---|
114 | // -------------------------------------------------------------------------------- |
---|
115 | |
---|
116 | static GB_ERROR renameDB(const char *which, GBDATA *gb_db, bool allowDups) { |
---|
117 | aw_openstatus(GBS_global_string("Generating new names in %s database", which)); |
---|
118 | aw_status("Contacting name server"); |
---|
119 | |
---|
120 | bool isDuplicatesWarning; |
---|
121 | GB_ERROR error = AWTC_pars_names(gb_db, 1, &isDuplicatesWarning); |
---|
122 | |
---|
123 | if (error) { |
---|
124 | error = GBS_global_string("While renaming %s DB:\n%s", which, error); |
---|
125 | if (isDuplicatesWarning && allowDups) { |
---|
126 | aw_message(error); |
---|
127 | aw_message("Duplicates error ignored. Be careful during merge!"); |
---|
128 | error = 0; |
---|
129 | } |
---|
130 | } |
---|
131 | |
---|
132 | aw_closestatus(); |
---|
133 | return error; |
---|
134 | } |
---|
135 | |
---|
136 | static void rename_both_databases(AW_window *aww) { |
---|
137 | GB_ERROR error = 0; |
---|
138 | AW_root *aw_root = aww->get_root(); |
---|
139 | char *match = aw_root->awar(AWAR_ADDID_MATCH)->read_string(); |
---|
140 | bool allowDups = aw_root->awar(AWAR_ALLOW_DUPS)->read_int(); |
---|
141 | |
---|
142 | if (strcmp(match, "Ok") == 0) { |
---|
143 | error = renameDB("source", GLOBAL_gb_merge, allowDups); |
---|
144 | if (!error) error = renameDB("destination", GLOBAL_gb_dest, allowDups); |
---|
145 | } |
---|
146 | else { |
---|
147 | error = "Denying rename - additional fields have to match!"; |
---|
148 | } |
---|
149 | free(match); |
---|
150 | |
---|
151 | if (error) { |
---|
152 | aw_message(error); |
---|
153 | MG_set_renamed(false, aw_root, "Failed"); |
---|
154 | } |
---|
155 | else { |
---|
156 | MG_set_renamed(true, aw_root, "Ok"); |
---|
157 | } |
---|
158 | } |
---|
159 | |
---|
160 | static void override_toggle_cb(AW_window *aww) { |
---|
161 | AW_root *aw_root = aww->get_root(); |
---|
162 | |
---|
163 | if (aw_root->awar(AWAR_OVERRIDE)->read_int() == 1) { |
---|
164 | MG_set_renamed(true, aw_root, "Overridden"); |
---|
165 | } |
---|
166 | else { |
---|
167 | MG_set_renamed(false, aw_root, "Not renamed"); |
---|
168 | } |
---|
169 | } |
---|
170 | |
---|
171 | AW_window *MG_merge_names_cb(AW_root *awr){ |
---|
172 | static AW_window_simple *aws = 0; |
---|
173 | if (!aws) { |
---|
174 | aws = new AW_window_simple; |
---|
175 | aws->init( awr, "MERGE_AUTORENAME_SPECIES", "SYNCHRONIZE NAMES"); |
---|
176 | aws->load_xfig("merge/names.fig"); |
---|
177 | |
---|
178 | aws->at("close");aws->callback((AW_CB0)AW_POPDOWN); |
---|
179 | aws->create_button("CLOSE","CLOSE","C"); |
---|
180 | |
---|
181 | aws->at("help"); |
---|
182 | aws->callback(AW_POPUP_HELP,(AW_CL)"mg_names.hlp"); |
---|
183 | aws->create_button("HELP","HELP","H"); |
---|
184 | |
---|
185 | aws->at("addid1"); |
---|
186 | aws->create_input_field(AWAR_MERGE_ADDID, 10); |
---|
187 | |
---|
188 | aws->at("addid2"); |
---|
189 | aws->create_input_field(AWAR_DEST_ADDID, 10); |
---|
190 | |
---|
191 | aws->at("dups"); |
---|
192 | aws->label("Allow merging duplicates (dangerous! see HELP)"); |
---|
193 | aws->create_toggle(AWAR_ALLOW_DUPS); |
---|
194 | |
---|
195 | aws->at("override"); |
---|
196 | aws->label("Override (even more dangerous! see HELP)"); |
---|
197 | aws->callback(override_toggle_cb); |
---|
198 | aws->create_toggle(AWAR_OVERRIDE); |
---|
199 | |
---|
200 | aws->at("match"); |
---|
201 | aws->button_length(12); |
---|
202 | aws->create_button("MATCH", AWAR_ADDID_MATCH, 0, "+"); |
---|
203 | |
---|
204 | aws->at("status"); |
---|
205 | aws->button_length(25); |
---|
206 | aws->label("Status:"); |
---|
207 | aws->create_button("STATUS", AWAR_RENAME_STATUS, 0, "+"); |
---|
208 | |
---|
209 | aws->at("rename"); |
---|
210 | aws->callback(rename_both_databases); |
---|
211 | aws->create_autosize_button("RENAME_DATABASES","Rename species"); |
---|
212 | |
---|
213 | aws->button_length(0); |
---|
214 | aws->shadow_width(1); |
---|
215 | aws->at("icon"); |
---|
216 | aws->callback(AW_POPUP_HELP,(AW_CL)"mg_names.hlp"); |
---|
217 | aws->create_button("HELP_MERGE", "#merge/icon.bitmap"); |
---|
218 | } |
---|
219 | return aws; |
---|
220 | } |
---|