Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

search engine

 [1/6] from: gchiu::compkarori::co::nz at: 23-Dec-2002 8:16


Has anyone written a search engine in Rebol. I was thinking of something small ... perhaps like the free version of http://wwww.fusionbot.com -- Graham http://www.compkarori.com/cerebrus This hound hunts down spam!

 [2/6] from: ammon:addept:ws at: 22-Dec-2002 16:07


Hi, Someone wrote a search engine for the WWR, you can find it in FX5. Enjoy!! Ammon Johnson CIO of Addept ---------- (www.addept.ws) 435.616.2322 ---------- (ammon AT addept.ws)

 [3/6] from: carl:cybercraft at: 23-Dec-2002 17:07


On 23-Dec-02, Ammon Johnson wrote:
> Hi, > Someone wrote a search engine for the WWR, you can find it in > FX5.
Is it still there? I know the icon for it is there, but I tried to download it this week, but without success. -- Carl Read

 [4/6] from: ammon:addept:ws at: 22-Dec-2002 21:45


Hmp... Doesn't want to download for me either. I am quite certain that I have a copy of it around here somewhere if someone is interested... Enjoy!! Ammon Johnson CIO of Addept ---------- (www.addept.ws) 435.616.2322 ---------- (ammon AT addept.ws)

 [5/6] from: gerardcote:sympatico:ca at: 23-Dec-2002 18:30


Hi Ammon, ----- Original Message ----- From: "Ammon Johnson" <[ammon--addept--ws]> To: <[rebol-list--rebol--com]> Sent: Sunday, December 22, 2002 11:45 PM Subject: [REBOL] Re: search engine
> Hmp... Doesn't want to download for me either. I am quite certain that I > have a copy of it around here somewhere if someone is interested... >
I'm also interested in this kind of search tool ... Thanks for submitting when you'll find it. Gerard

 [6/6] from: ammon:addept:ws at: 23-Dec-2002 18:33


Ah, Here it is! REBOL [ title: "REBsearch" author: "Frank Sievertsen" version: 1.0.4 date: 10-1-02 purpose: "Find files from the World Wide REB" ] rebsearch-data: none ; compatible with old rsearch.r context [ update-mode: no files: [ %rsearch.r http://proton.cl-ki.uni-osnabrueck.de/REBOL/rsearch.r %rebsearch.r http://proton.cl-ki.uni-osnabrueck.de/REBOL/rebsearch.r %db.com http://proton.cl-ki.uni-osnabrueck.de/REBOL/db.com %fx5-styles.r http://proton.cl-ki.uni-osnabrueck.de/REBOL/fx5-styles.r %fx5-menu.r http://proton.cl-ki.uni-osnabrueck.de/REBOL/fx5-menu.r %center-resize.r http://proton.cl-ki.uni-osnabrueck.de/REBOL/center-resize.r ] foreach [file url] files [ if not exists? file [ request-download/to url file ] ] do %rsearch.r do %fx5-styles.r do %center-resize.r rebsearch-styles: stylize/styles [ path: h3 blue / 2 font [colors/2: blue] [ foreach dat any [rebsearch-data ""] [ if all [ dat/1 = 'folder dat/5 = face/text ] [ break if block? ctx-viewtop [ctx-viewtop: context ctx-viewtop] ctx-viewtop/init-desktop ctx-viewtop/goto-url dat/2 ] ] ] url: txt blue / 2 ] fx5-styles s-field: s-panel: s-slider: none search: func [str /local out] [ s-panel/pane: none show s-panel out: compose [ origin 0x0 styles fx5-styles styles rebsearch-styles backdrop space 0x0 h1 (join "Search was: " str) ] foreach [url fields path] rebsearch str [ repend out [ 'h2 form fields/1/1 'pad 20x0 ] foreach name next fields/1 [repend out [ 'h2 form name ]] foreach desc fields/2 [repend out [ 'h3 form desc ]] repend out [ 'path form path blue / 2 'url form url blue / 2 'pad -20x5 ] ] out: layout out out/offset: 0x0 s-panel/pane: out show s-panel s-slider/redrag out/parent-face/size/y / out/size/y s-slider/data: 0 show s-slider ] win: view/title/new/options make layout [styles fx5-styles backdrop space 0x5 across h1 "REBsearch" pad 10x4 txt form system/script/header/version return s-field: field 400 button "Search" [ search s-field/data ] return s-panel: panel 500x300 - 15x0 [txt ""] edge [effect: 'ibevel size: 2x2 color: 200.200.200] s-slider: slider 15x300 [if object? s-panel/pane [ s-panel/pane/offset/y: s-panel/size/y - s-panel/pane/size/y - 2 * value show s-panel/pane ]] return button "Update" [ update-mode: yes unview/all ] pad 10x4 txt "This will update the database, the client and all used scripts" ] [mem-size: min-size: size] "REBsearch" [resize] s-panel/pane: make face [ color: none ] win/feel: make win/feel [ engage: func [f a e] [ center-resize f 200x100 s-slider/redrag s-panel/size/y / s-panel/pane/size/y s-slider/state: none show s-slider show f ] ] s-slider/redrag 1 do-events if update-mode [ foreach [file url] files [ request-download/to url file ] do %rebsearch.r ] ] comment [ if block? ctx-viewtop [ctx-viewtop: context ctx-viewtop] ctx-viewtop/init-desktop ctx-viewtop/goto-url http://www.fx5.de/index.r ] Enjoy!! Ammon Johnson CIO of Addept ---------- (www.addept.ws) 435.616.2322 ---------- (ammon AT addept.ws)