REVO2700Engine Search @udTon doSearch if fld "term" = empty then answer "Please enter a search term." return "error" end if set the defaultStack to "Engine Search" put ("*" & word 1 to -1 of fld "term" & "*") into tSearchTerm put engineSearchResults(tSearchTerm,the hilite of btn "remove_") into fld "results" return empty end doSearch function engineSearchResults pSearchTerm, pRemoveUnderscoredItems -- get path to engine put the address into tAppPath set the itemDel to colon delete item 1 of tAppPath # set the defaultFolder to tAppPath # if the platform = "MacOS" # then put (the defaultFolder & "/Revolution.app/Contents/MacOS/Revolution") into tAppPath # else put (the defaultFolder & "/Revolution.exe") into tAppPath -- get all instances of search term in engine put url ("binfile:" & tAppPath) into tData replace null with cr in tData filter tData with pSearchTerm -- remove items beginning with "_" if requested if pRemoveUnderscoredItems = true then filter tData without "_*" -- return all unique items return uniqueItems(tData) end engineSearchResults function uniqueItems pData repeat for each line tLine in pData add 1 to aItems[tLine] end repeat put the keys of aItems into tKeys sort lines of tKeys return tKeys end uniqueItems 4Rev Engine Search_ ULucida Grande ULucida GrandecRevStandaloneSettings1scriptLibrariesInternet Geometry PrintingMacOSXtrue OSX,name Engine SearchMacOS,documentTypeUNIX,fileSelectortrueWindowstrueMacOS,longVersionEngine Search 1.0.0.0Windows,LegalCopyright#2009 All rights reserved worldwideUNIX,pageSetuptrueOSX,documentTypeWindows,documenticonFilep/Applications/Revolution Enterprise/4.0.0-gm-1 copy 2/Runtime/Windows/x86-32/Support/Sample Icons/genericdoc.ico inclusionssearch answerDialogtrueOSX,documentExtensionWindows,FileDescription!Engine Search 1.0.0.0 for WindowsOSX,longVersionEngine Search 1.0.0.0UNIX,printerChoosertrueOSX,copyright#2009 All rights reserved worldwideWindows,buildU3falseMacOS,MinimumSize15000MacOS,versionnumber11MacOS,ReleaseFinalMacOS,versionnumber20MacOS,versionnumber30name Engine SearchOSX,identifiercom..enginesearch MacOS,Region1OSX,shortVersion1.0.0.0Windows,fileversion11Windows,fileversion20Windows,productversion11Windows,fileversion30Windows,productversion20Windows,fileversion40Windows,productversion30cursorsfalse OSX,infoEngine Search Version 1.0.0.0Windows,productversion40MacOS,dynamicMemorytrueMacOSX PowerPC-32false askDialogtrueWindows,iconFilep/Applications/Revolution Enterprise/4.0.0-gm-1 copy 2/Runtime/Windows/x86-32/Support/Sample Icons/genericapp.icoOSX,signature????Windows,ProductName Engine SearchMacOS,PreferredSize15000UNIX,colorChoosertrueMacOSX x86-32falseMacOS,creator????Windows,companynamecREVGeometryCachestackID1024 cREVGeneralbreakpointconditionsscripteditorvscroll0 breakpointsscripteditorselection572breakpointstatesstackfileversion2.7 P_on preOpenStack put empty into fld "term" put empty into fld "results" end preOpenStack d cREVGeneralscripteditorvscroll0scripteditorselection76cREVGeometryCacheIDs1245433823086101412454337723721012124543428541810201245451012820102412454322611761007124543437418610211245434040944101712454322547071004cREVGeometrycacheordertotal8i vP cREVGeneral revUniqueID 1245434285418SearchEp$on mouseUp doSearch end mouseUp :n0 cREVGeneral revUniqueID 1245432261176scripteditorvscroll0scripteditorselection35  Label Field  cREVTable currentviewSearch Revolution engine for: cREVGeneral revUniqueID 1245433772372 Search Revolution engine for: termipon returnInField enterInField end returnInField on enterInField click at loc of btn "Search" of stack "Engine Search" end enterInField  cREVTable currentview cREVGeneral revUniqueID 1245433823086scripteditorvscroll0scripteditorselection117  remove_`epon mouseUp doSearch if the result <> empty then set the hilite of me to NOT the hilite of me end mouseUp 9 Remove items beginning with "_" cREVGeneral revUniqueID 1245451012820scripteditorvscroll0scripteditorselection111 i fv cREVGeneral revUniqueID 1245434374186 results)`b cREVGeneral revUniqueID 1245432254707   `e a:Q  Label Field p| cREVTable currentviewSearch Results: cREVGeneral revUniqueID 1245434040944 Search Results: revOnline | RunRev