/*  TimeStamp  (dos) : 01 Décembre 05 12:10  --  x:\goog.rex */

parse arg ldm

if words(ldm)=0 then do
   say
   say  "   goog : appel de google "
   say
   say  "   syntaxe  : goog [ a | mot1 mot2 mot3... ]"
   say  "      a = affichage de la page de départ de google"
   say  "      sinon : recherche des mots fournis"
   say
   say  "   exemples : goog a "
   say  "                  équivaut à "
   say  "                  firefox http://www.google.fr "
   say  "              goog tuteur xml"
   say  "                  équivaut à "
   say  "              firefox http://www.google.fr/search?hl=fr&q=tuteur+xml"
   say
   exit
end /* fin de si */

url = "http://www.google.fr/"

parse var ldm pm sdm
if translate(pm) \="A" then do
 url = url||"search?hl=fr&q="
 nbm = words(ldm)
 do idm = 1 to nbm
    url = url||word(ldm,idm)
    if idm<nbm then url = url||"+"
 end /* fin pour idm */
end /* fin de si */

cmd = 'start C:\Progra~1\Mozill~1\firefox.exe "'url'"'
say "   " cmd
cmd