Changeset 6589 for branches/stable_5.0

Timestamp:

12/04/10 14:12:06 (2 years ago)

Author:

westram

Message:

• backport [6588]

Location:

branches/stable_5.0

Files:

• AWT/AWT_www.cxx (modified) (2 diffs)
• AWT/Makefile (modified) (1 diff)
• HELP_SOURCE/oldhelp/props_www.hlp (modified) (2 diffs)
• WINDOW/AW_global_awars.cxx (modified) (2 diffs)
• WINDOW/aw_global_awars.hxx (modified) (1 diff)

branches/stable_5.0/AWT/AWT_www.cxx

@@ -13 +13 @@
 #include <arbdbt.h>
 #include <awt.hxx>
+#include <inline.h>
+#include <static_assert.h>
 
 #include "awt_config_manager.hxx"
 
 #define WWW_COUNT                10
-// #define AWAR_WWW_BROWSER "www/browser" // now defined by ARB_init_global_awars()
 #define AWAR_WWW_SELECT          "www/url_select"
-#define AWAR_WWW_0               "www/url_0/srt"
-#define AWAR_WWW_1               "www/url_0/srt"
-#define AWAR_WWW_2               "www/url_0/srt"
 #define AWAR_WWW_SELECT_TEMPLATE "www/url_%i/select"
 #define AWAR_WWW_TEMPLATE        "www/url_%i/srt"
 #define AWAR_WWW_DESC_TEMPLATE   "www/url_%i/desc"
 
-
-
-void awt_create_aww_vars(AW_root *aw_root,AW_default aw_def){
-    int i;
-    for (i=0;i<WWW_COUNT;i++){
-        const char *awar_name;
-
-        awar_name = GBS_global_string(AWAR_WWW_TEMPLATE,i);         aw_root->awar_string(awar_name,i==WWW_COUNT-1?"\"http://www.ebi.ac.uk/cgi-bin/emblfetch?\";readdb(acc)":"",aw_def);
-        awar_name = GBS_global_string(AWAR_WWW_DESC_TEMPLATE,i);    aw_root->awar_string(awar_name,i==WWW_COUNT-1?"EMBL example":"",aw_def);
-        awar_name = GBS_global_string(AWAR_WWW_SELECT_TEMPLATE,i);  aw_root->awar_int(awar_name,0,aw_def);
-    }
-
-    aw_root->awar_int(AWAR_WWW_SELECT,0,aw_def);
-
+inline char *extract_url_host(const char *templ) {
+    const char *url_start = strstr(templ, "\"http://");
+    if (url_start) {
+        const char *host_start = url_start+8;
+        const char *slash      = strchr(host_start, '/');
+
+        if (slash) return GB_strpartdup(host_start, slash-1);
+    }
+    return NULL;
+}
+
+inline bool url_host_matches(const char *templ1, const char *templ2) {
+    bool  matches = false;
+    char *url1    = extract_url_host(templ1);
+    if (url1) {
+        char *url2 = extract_url_host(templ2);
+        matches = url1 && url2 && ARB_stricmp(url1, url2) == 0;
+        free(url2);
+    }
+    free(url1);
+    return matches;
+}
+
+void awt_create_aww_vars(AW_root *aw_root, AW_default aw_def) {
+    struct Example {
+        const char *descr;
+        const char *templ;
+    } example[] = {
+        { "EMBL example",   "\"http://www.ebi.ac.uk/ena/data/view/\";readdb(acc)" },
+        { "SILVA example",  "\"http://www.arb-silva.de/browser/ssu/\";readdb(acc)" },
+        { "Google example", "\"http://www.google.com/search?q=\";readdb(full_name);|srt(\": =+\")" }
+    }, empty = { "", "" };
+
+    const int DEFAULT_SELECT = 1; // SILVA
+    const int EXAMPLE_COUNT  = sizeof(example)/sizeof(*example);
+    COMPILE_ASSERT(EXAMPLE_COUNT <= WWW_COUNT);
+
+    bool example_url_seen[EXAMPLE_COUNT];
+    for (int x = 0; x<EXAMPLE_COUNT; ++x) example_url_seen[x] = false;
+
+    AW_awar *awar_templ[WWW_COUNT];
+    AW_awar *awar_descr[WWW_COUNT];
+    bool     is_empty[WWW_COUNT];
+
+    for (int i = 0; i<WWW_COUNT; ++i) {
+        const Example&  curr = i<EXAMPLE_COUNT ? example[i] : empty;
+        const char     *awar_name;
+
+        awar_name     = GBS_global_string(AWAR_WWW_TEMPLATE, i);
+        awar_templ[i] = aw_root->awar_string(awar_name, curr.templ, aw_def);
+
+        awar_name     = GBS_global_string(AWAR_WWW_DESC_TEMPLATE, i);
+        awar_descr[i] = aw_root->awar_string(awar_name, curr.descr, aw_def);
+
+        const char *templ = awar_templ[i]->read_char_pntr();
+        const char *descr = awar_descr[i]->read_char_pntr();
+
+        is_empty[i] = !templ[0] && !descr[0];
+        if (!is_empty[i]) {
+            for (int x = 0; x<EXAMPLE_COUNT; ++x) {
+                if (!example_url_seen[x]) {
+                    example_url_seen[x] = url_host_matches(templ, example[x].templ);
+                }
+            }
+        }
+
+        awar_name = GBS_global_string(AWAR_WWW_SELECT_TEMPLATE, i);
+        aw_root->awar_int(awar_name, 0, aw_def);
+    }
+
+    // insert missing examples
+    for (int x = 0; x<EXAMPLE_COUNT; ++x) {
+        if (!example_url_seen[x]) {
+            for (int i = 0; i<WWW_COUNT; ++i) {
+                if (is_empty[i]) {
+                    awar_templ[i]->write_string(example[x].templ);
+                    awar_descr[i]->write_string(example[x].descr);
+                    is_empty[i] = false;
+                    break;
+                }
+            }
+        }
+    }
+
+    aw_root->awar_int(AWAR_WWW_SELECT, DEFAULT_SELECT, aw_def);
     awt_assert(ARB_global_awars_initialized());
 }
@@ -99 +168 @@
     error                        = awt_open_ACISRT_URL_by_gbd(aw_root, gb_main, gbd, name, url_srt);
 
-    delete url_srt;
+    free(url_srt);
     return error;
 }

branches/stable_5.0/AWT/Makefile

@@ -655 +655 @@
 AWT_www.o: $(ARBHOME)/INCLUDE/aw_root.hxx
 AWT_www.o: $(ARBHOME)/INCLUDE/aw_window.hxx
+AWT_www.o: $(ARBHOME)/INCLUDE/inline.h

branches/stable_5.0/HELP_SOURCE/oldhelp/props_www.hlp

@@ -24 +24 @@
 EXAMPLES        Here are some search examples (URL-Entries):
 
-                Retrieve from EMBL-Database:
-                        "http://www.ebi.ac.uk/cgi-bin/emblfetch?";readdb(acc)
+                Search in ARB-SILVA:
+                       "http://www.arb-silva.de/browser/ssu/";readdb(acc)
 
-                Search Medline for related information:
-                        "http://www.ncbi.nlm.nih.gov/htbin-post/Entrez/query?uid=";readdb(medline_id);"&form=6&db=m&Dopt=b"
+                Search in EMBL:
+                       "http://www.ebi.ac.uk/ena/data/view/";readdb(acc)
 
                 Search the Web for full-name using google:
-                       "http://www.google.com/search?q=";readdb(full_name);"&ie=ISO-8859-1&hl=de&btnG=Google-Suche&meta="|srt(": =+")
+                       "http://www.google.com/search?q=";readdb(full_name);|srt(": =+")"
 
 
@@ -38 +38 @@
                 preferred internet browser.
 
-                Netscape user enter:
+                Generic methods:
 
-                    (netscape -remote 'openURL($(URL))' || netscape '$(URL)') &
+                    xdg-open "$(URL)"
 
-                Opera users enter one of:
-
-                    opera -remote 'openURL($(URL))' &
-
-                    opera -remote 'openURL($(URL),new-window)' &
-
-
+                    open "$(URL)"               (OSX)
 
 WARNINGS        We are not responsible for any content you retrieve by using
-                this function. Only use this at your own responsibility.
+                this function. Use this at your own responsibility.
 
 BUGS            No bugs known

branches/stable_5.0/WINDOW/AW_global_awars.cxx

@@ -106 +106 @@
 }
 
+#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!
@@ -112 +118 @@
     gb_main4awar = gb_main;
 
-    GB_ERROR error = aw_root->awar_string(AWAR_WWW_BROWSER, "(netscape -remote 'openURL($(URL))' || netscape '$(URL)') &", aw_def)->make_global();
+    GB_ERROR error = aw_root->awar_string(AWAR_WWW_BROWSER, OPENURL " \"$(URL)\"", aw_def)->make_global();
 
     if (!error) {

branches/stable_5.0/WINDOW/aw_global_awars.hxx

@@ -16 +16 @@
 #define AW_GLOBAL_AWARS_HXX
 
-#define AWAR_WWW_BROWSER "www/browser" // how to call the users browser
+#define AWAR_WWW_BROWSER "www/browse_cmd" // how to call the users browser
 
 #else