home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / S / PatriciaSearch < prev   
AmigaDOS Script File  |  1995-10-15  |  2KB  |  69 lines
  1. .key Language/A,DB/A,DEV
  2. .bra {
  3. .ket }
  4.  
  5. CD {DEV}:Contrib/Patricia
  6.  
  7. Failat 26
  8.  
  9. Which >NIL: AmigaGuide
  10. IF WARN
  11.     Path SYS:Utilities :C ADD
  12. ENDIF
  13.  
  14. IF {DB} EQ "ALLDB"
  15.     ; Environment-Variablen werden offenbar nach 128 Zeichen abgeschnitten. :-(
  16.     Set PatDB1 ":Index/PatriciaDB :Pearls/text/Gesetze/AmigaGuide-Gesetze/PatriciaDB"
  17.     Set PatDB2 ":Pearls/text/AmigaReport/PatriciaDB :Pearls/text/SciFi/PatriciaDB"
  18. ELSE
  19.     Set PatDB1 "{DB}"
  20.     Set PatDB2 ""
  21. ENDIF
  22.  
  23. :C/Version >NIL: 39
  24. IF NOT WARN
  25.     Run >NIL: :C/NessyOpenLib :Pearls/dev/GUI/Triton/libs39/triton.library
  26.     Set CloseLibName :Pearls/dev/GUI/Triton/libs39/triton.library
  27. ELSE
  28.     :C/Version >NIL: 37
  29.     IF NOT WARN
  30.         Run >NIL: :C/NessyOpenLib :Pearls/dev/GUI/Triton/libs37/triton.library
  31.         Set CloseLibName :Pearls/dev/GUI/Triton/libs37/triton.library
  32.     ELSE
  33.         IF {Language} EQ "deutsch"
  34.             :C/RequestString "Wonach soll gesucht werden?" "" ENV:MPPATPATTERN ENV:MPPATPATTERN
  35.             IF WARN
  36.                 Skip endpatsearch
  37.             ENDIF
  38.         ELSE
  39.             :C/RequestString "What shall I search for?" "" ENV:MPPATPATTERN ENV:MPPATPATTERN
  40.             IF WARN
  41.                 Skip endpatsearch
  42.             ENDIF
  43.         ENDIF
  44.         :C/ESCChars <ENV:MPPATPATTERN >ENV:MPPATPATTERN2
  45.         PSearch -s "$MPPATPATTERN2" -v ":C/MetaTool [] TEXT" -g ":C/MetaTool [] GUIDE" - $PatDB1 $PatDB2
  46.         Delete QUIET ENV:MPPATPATTERN2
  47.  
  48.         QUIT 0
  49.     ENDIF
  50. ENDIF
  51.  
  52. Assign >NIL: EXISTS MeetingPearls3:
  53. IF WARN
  54.     Assign C: :C ADD
  55.     Set PatCName 0
  56. ELSE
  57.     Set PatCName 1
  58. ENDIF
  59.  
  60. :C/NessyWaitForLib $CloseLibName
  61. PSearch $PatDB1 $PatDB2 TextViewer ":C/MetaTool [] TEXT" GuideViewer ":C/MetaTool [] GUIDE"
  62. :C/NessyCloseLib $CloseLibName
  63.  
  64. IF $PatCName EQ 0
  65.     Assign C: :C REMOVE
  66. ENDIF
  67.  
  68. LAB endpatsearch
  69.