patch to add a menu item in Rgui for RSiteSearch

From: Prof Brian Ripley

On Tue, 12 Apr 2005, Liaw, Andy wrote:

Please consider adding the following to the next R release 

(I understand

that it's too late for R-2.1.0).  It adds the menu item 

`Search R Site' in

the `Help' menu in Rgui (which calls RSiteSearch() on the 

input string).

Can you or someone else think of a better name?  That sounds like it 
searches www.r-project.org.  I think even 'R Sites Search' would be 
better.

Yes, it is too late: we need lead time for the translators these days.
(RGui has Chinese, German, Italian and Japanese menus available.)

Best,
Andy

--- R-beta/src/gnuwin32/rui.c	2005-03-06 

09:41:40.000000000 -0500

+++ R-beta-new/src/gnuwin32/rui.c	2005-04-12 

08:21:55.001824500 -0400

@@ -65,7 +65,8 @@
static menuitem msource, mdisplay, mload, msave, mloadhistory,
    msavehistory, mpaste, mpastecmds, mcopy, mcopypaste, 

mlazy, mconfig,

    mls, mrm, msearch, mhelp, mmanintro, mmanref, mmandata,
-    mmanext, mmanlang, mmanadmin, mman0, mapropos, 

mhelpstart, mhelpsearch,

+    mmanext, mmanlang, mmanadmin, mman0, mapropos, 

mhelpstart, mhelpsearch,

+    msearchRsite,
    mFAQ, mrwFAQ, mpkgl, mpkgm, mpkgi, mpkgil, mpkgu, 

/*mpkgb, mpkgbu,*/

    mde, mCRAN, mrepos;
static int lmanintro, lmanref, lmandata, lmanlang, lmanext, 

lmanadmin;

@@ -485,6 +486,21 @@
    }
}

+static void menusearchRsite(control m)
+{
+    char *s;
+    static char olds[256] = "";
+
+    if (!ConsoleAcceptCmd) return;
+    s = askstring(G_("Search R Site"), olds);
+    if (s && strlen(s)) {
+	snprintf(cmd, 1024, "RSiteSearch(\"%s\")", s);
+	if (strlen(s) > 255) s[255] = '\0';
+	strcpy(olds, s);
+	consolecmd(RConsole, cmd);
+    }
+}
+
static void menuapropos(control m)
{
    char *s;
@@ -560,6 +576,7 @@
	enable(msearch);
	enable(mhelp);
	enable(mhelpsearch);
+	enable(msearchRsite);
	enable(mapropos);
	enable(mpkgl);
	enable(mpkgm);
@@ -579,6 +596,7 @@
	disable(msearch);
	disable(mhelp);
	disable(mhelpsearch);
+	disable(msearchRsite);
	disable(mapropos);
	disable(mpkgl);
	disable(mpkgm);
@@ -985,6 +1003,7 @@
    MCHECK(mhelpstart = newmenuitem(G_("Html help"), 0, 

menuhelpstart));

    if (!check_doc_file("doc\\html\\rwin.html")) 

disable(mhelpstart);

    MCHECK(mhelpsearch = newmenuitem(G_("Search help..."), 0,
menuhelpsearch));
+    MCHECK(msearchRsite = newmenuitem(G_("Search R Site..."), 0,
menusearchRsite));
    MCHECK(newmenuitem("-", 0, NULL));
    MCHECK(mapropos = newmenuitem(G_("Apropos..."), 0, 

menuapropos));

    MCHECK(newmenuitem("-", 0, NULL));

-- 
Brian D. Ripley,                  ripley@stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595