home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Index / Scripts / makesearchguide < prev    next >
Encoding:
AmigaDOS Script File  |  1995-10-06  |  1.9 KB  |  52 lines
  1. .key PATTERN/A,DB/A,LANGUAGE/A,DEV
  2. .bra [
  3. .ket ]
  4.  
  5. CD [DEV]:
  6.  
  7. Failat 25
  8.  
  9. ; The following construction is not totally save.
  10.  
  11. IF $MPSRCCNT GE 1
  12.     Eval $MPSRCCNT + 1 TO ENV:MPSRCCNT
  13. ELSE
  14.     SetEnv MPSRCCNT 1
  15.     Assign MPCD_S: :
  16. ENDIF
  17.  
  18. Run >NIL: :C/NessyOpenLib pattern.library
  19. :C/NessyWaitForLib pattern.library
  20. :C/pgrep >RAM:MP-Search-Guide.tmp[$$] -i "[PATTERN]%" [DB]        ; DICE 3.0 commandline parser has problems with for example "e**", so make sure to use "e**%"
  21. IF ERROR
  22.     IF [Language] EQ "deutsch"
  23.         Echo >RAM:MP-Search-Guide.tmp[$$] "Fehler - wahrscheinlich ungültiges Namensmuster. @{*"Fehler analysieren*" SYSTEM *"NewCLI CON:50/20/540/130/Pattern-Test/WAIT/CLOSE FROM MPCD_S:Index/Scripts/checkbugpattern.deutsch*"}"
  24.     ELSE
  25.         Echo >RAM:MP-Search-Guide.tmp[$$] "Error - probably invalid pattern. @{*"Analyse error*" SYSTEM *"NewCLI CON:50/20/540/130/Pattern-Test/WAIT/CLOSE FROM MPCD_S:Index/Scripts/checkbugpattern.english*"}"
  26.     ENDIF
  27.     Echo >ENV:MPBUGPATTERN "[PATTERN]"
  28. ELSE
  29.     :C/pgrep >NIL: -i ? RAM:MP-Search-Guide.tmp[$$]
  30.     IF WARN
  31.         IF [Language] EQ "deutsch"
  32.             Echo >RAM:MP-Search-Guide.tmp[$$] "WARNUNG: Das angegebene Muster wurde leider nicht gefunden."
  33.         ELSE
  34.             Echo >RAM:MP-Search-Guide.tmp[$$] "WARNING: Sorry, could not find specified pattern."
  35.         ENDIF
  36.     ENDIF
  37. ENDIF
  38. :C/NessyCloseLib pattern.library
  39.  
  40. Echo >RAM:MP-Search-Pattern[$$] "[PATTERN]"
  41.  
  42. Join :Index/Guides/halfbricks/searchguide-1.[LANGUAGE] RAM:MP-Search-Pattern[$$] :Index/Guides/halfbricks/searchguide-2.[LANGUAGE] RAM:MP-Search-Guide.tmp[$$] TO RAM:MP-tmp-Search-Guide.tmp[$$]
  43. Join RAM:MP-tmp-Search-Guide.tmp[$$] :Index/Guides/halfbricks/searchguide-3.[LANGUAGE] :Index/Guides/bricks/configguide.[LANGUAGE] TO RAM:MP-Search-Guide[$$]
  44. Delete QUIET RAM:MP-Search-Pattern[$$] RAM:MP-Search-Guide.tmp[$$] RAM:MP-tmp-Search-Guide.tmp[$$]
  45. :C/MetaTool RAM:MP-Search-Guide[$$] GUIDE
  46. Delete QUIET RAM:MP-Search-Guide[$$] ENV:MPBUGPATTERN(%)
  47.  
  48. Eval $MPSRCCNT - 1 TO ENV:MPSRCCNT
  49. IF $MPSRCCNT EQ 0
  50.     Assign MPCD_S:
  51. ENDIF
  52.