home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / boot / easypatch133a / configuration / config next >
Encoding:
Text File  |  1998-03-25  |  6.4 KB  |  325 lines
  1. ;EasyPatch Configuration script
  2. ;$VER: EasyConfigScript 1.22 
  3.  
  4.  
  5.  
  6. (set @default-dest "")
  7.  
  8. (set ver (/ @installer-version 65536))
  9. (set rev (- @installer-version (* ver 65536)))
  10.  
  11. ;/// ***** English
  12.  
  13.  
  14. (set #Welcome        "Welcome to EasyConfig\nPrepare your requesters to be destroyed!")
  15.  
  16. (set #wrongOS          "EasyPatch needs at least OS2.04 to run\n")
  17.  
  18. (set #MatchPrompt   "Please enter a pattern that matches\n \"%s\"\n")
  19.  
  20. (set #EPNotInstalled "Please run EasyPatch 1.2x before that script.")
  21.  
  22. (set #EPTooOld       "EasyPatch 1.2x is required for this script to work.")
  23.  
  24. (set #TooManyReqs    "Too many requesters on screen!\nPlease leave only one!")
  25.  
  26. (set #NoRequesters   "I cannot see any requester!\nPlease open one!")
  27.  
  28. (set #PattNoMatch    "Sorry, but \"%s\" doesn't match \"%s\".")
  29.  
  30. (set #GadsPrompt     "Please enter one of these gadgets:\n%s")
  31.  
  32. (set #UnknownGadget  "Unknown gadget \"%s\".")
  33.  
  34. (set #AskCfgPrompt   "Please select your EasyPatch configuration file.\nIf you don't have one simply click Continue.") 
  35.  
  36. (set #CreateCfg         "Creating config file....");
  37.  
  38. ;/// ***** Italiano
  39.  
  40. (IF (= @language "italiano")
  41. (
  42.  
  43. (set #Welcome        "Benvenuto in EasyConfig\nPrepara i tuoi requesters ad essere distrutti!")
  44.  
  45. (set #wrongOS          "EasyPatch necessita del Sistema Operativo 2.04\n per funzionare.\n")
  46.  
  47. (set #MatchPrompt    "Inserisci un pattern che corrisponda a\n \"%s\"\n")
  48.  
  49. (set #EPNotInstalled "Per piacere, lancia EasyPatch 1.2x prima di questo script.")
  50.  
  51. (set #EPTooOld       "Quest script richiede EasyPatch 1.2x per funzionare.")
  52.  
  53. (set #TooManyReqs    "Ci sono troppi requesters sullo schermo!\nLasciane uno solo!")
  54.  
  55. (set #NoRequesters   "Non vedo nessun requester!\nO sono miope o è meglio che tu ne apra uno :->!")
  56.  
  57. (set #PattNoMatch    "Sorry, but \"%s\" doesn't match \"%s\".")
  58.  
  59. (set #GadsPrompt     "Per piacere, inserici uno di questi gadgets:\n%s")
  60.  
  61. (set #UnknownGadget  "Gadget sconosciuto: \"%s\".")
  62.  
  63. (set #AskCfgPrompt   "Per piacere, seleziona il file di configurazione di EasyPatch.\nSe non ne hai uno, premi su Procedi.") 
  64.  
  65. (set #CreateCfg         "Sto creando il file di configurazione....");
  66.  
  67. )
  68. )
  69.  
  70.  
  71. (IF (= @language "svenska")
  72. (
  73.  
  74. (set #Welcome        "Välkommen till EasyPatch config\nFörbered de requstrar som skall kuvas!")
  75.  
  76. (set #wrongOS          "EasyPatch kräver OS2.04+\n")
  77.  
  78. (set #MatchPrompt   "Ange ett matchande mönster\n \"%s\"\n")
  79.  
  80. (set #EPNotInstalled "Kör EasyPatch 1.2x före aktuellt skript.")
  81.  
  82. (set #EPTooOld       "EasyPatch 1.2x krävs för att detta skript skall fungera.")
  83.  
  84. (set #TooManyReqs    "För många requstrar!\nTag bort alla utom en!")
  85.  
  86. (set #NoRequesters   "Ingen requster funnen!\nÖppna en lämplig!")
  87.  
  88. (set #PattNoMatch    "\"%s\" matchar inte \"%s\".")
  89.  
  90. (set #GadsPrompt     "Aktivera en av följande knappar:\n%s")
  91.  
  92. (set #UnknownGadget  "Okänd knapp \"%s\".")
  93.  
  94. (set #AskCfgPrompt   "Specificera konfigurationsfil till EasyPatch.\nOm du inte har någon sådan, välj Continue.") 
  95.  
  96. (set #CreateCfg         "Skapar konfigurationsfil...");
  97.  
  98. )
  99. )
  100.  
  101.  
  102. ;----------------------------------------------------------------------------
  103.  
  104. ;/// Checking environment
  105. (set OS_ver (getversion "exec.library" (resident)))
  106. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  107.  
  108.  
  109. ;----------------------------------------------------------------------------
  110.  
  111.  
  112. (complete 0)
  113.  
  114. (message #Welcome)
  115.  
  116. (debug "EasyConfig - Start")
  117.  
  118.  
  119.  
  120. (set #Rc 1)
  121.  
  122. (complete 1)
  123.  
  124. (until (= #Rc 0)
  125. (
  126.     (set #Rc (run "EasyConfig"))
  127.     
  128.     (debug (cat "EasyConfig: " #Rc))
  129.  
  130.     (if (= #Rc 1)
  131.         (abort #EPNotInstalled)
  132.     )
  133.     (if (= #Rc 2)
  134.         (abort #EPTooOld)
  135.     )
  136.     (if (= #Rc 3)
  137.         (message #TooManyReqs)
  138.     )
  139.     (if (= #Rc 4)
  140.         (message #NoRequesters)
  141.     )
  142. )
  143. )
  144.  
  145. (complete 10)
  146.  
  147. (onerror ((if (AND (>= ver 42) (>= rev 9))
  148. (
  149.     (delete "ENV:EasyPatch_#?" )
  150.     (delete "T:EasyPatch.cfg")
  151. )
  152. ;else
  153.     (run "Delete >NIL: ENV:EasyPatch_#? T:EasyPatch.cfg")
  154. )
  155.  
  156. ))
  157.  
  158. (complete 15)
  159.  
  160. (set #ReqTitleEnv (getenv "EasyPatch_ReqTitle"  ))
  161. (set #ReqTextEnv  (getenv "EasyPatch_ReqText"   ))
  162. (set #ReqGadsEnv  (getenv "EasyPatch_ReqGadgets"))
  163.  
  164. ;Strip \0
  165.  
  166. (set #ReqTitle (substr #ReqTitleEnv  0 (strlen #ReqTitleEnv)))
  167. (set #ReqText  (substr #ReqTextEnv   0 (strlen #ReqTextEnv )))
  168. (set #ReqGads  (substr #ReqGadsEnv   0 (strlen #ReqGadsEnv )))
  169.  
  170. (set #Go 0)
  171.  
  172.  
  173. (complete 20)
  174.  
  175.  
  176. (if (= #ReqGadsEnv "")
  177. (
  178.     (set #ReqGadPosEnv (getenv "EasyPatch_ReqPos"))
  179.     (set #ReqGadNegEnv (getenv "EasyPatch_ReqNeg"))
  180.  
  181.     (set #ReqGadPos  (substr #ReqGadPosEnv   0 (strlen #ReqGadPosEnv )))
  182.     (set #ReqGadNeg  (substr #ReqGadNegEnv   0 (strlen #ReqGadNegEnv )))
  183.     
  184.     (complete 25)
  185.  
  186.     (set #ReqGads (cat #ReqGadPos "|" #ReqGadNeg))
  187.  
  188.     (set #ReqGadDef #ReqGadPos)
  189. )
  190. ;else
  191. (set #ReqGadDef "")
  192. )
  193.  
  194.  
  195. (complete 30)
  196.  
  197. (until (= #Go 1)
  198. (
  199.     (set #MatchTitle
  200.         (askstring
  201.             (prompt (#MatchPrompt #ReqTitle))
  202.             (default (cat "#?" (substr #ReqTitle 0 15) "#?"))
  203.             (help @askstring-help)
  204.         )
  205.     )
  206.     
  207.     (complete 35)
  208.  
  209.     (if (= (patmatch #MatchTitle #ReqTitle) 0)
  210.         (message (#PattNoMatch #MatchTitle #ReqTitle))
  211.         (set #Go 1)
  212.     )
  213. )
  214. )
  215.  
  216. (complete 40)
  217.  
  218. (set #Go 0)
  219.  
  220. (until (= #Go 1)
  221. (
  222.     (set #MatchText
  223.         (askstring
  224.             (prompt (#MatchPrompt #ReqText))
  225.             (default (cat "#?" (substr #ReqText 0 15) "#?"))
  226.             (help @askstring-help)
  227.         )
  228.     )
  229.  
  230.     (complete 45)
  231.  
  232.     (if (= (patmatch #MatchText #ReqText) 0)
  233.         (message (#PattNoMatch #MatchText #ReqText))
  234.         (set #Go 1)
  235.     )
  236. )
  237. )
  238.  
  239. (complete 60)
  240.  
  241. (set #Go 0)
  242.  
  243. (until (= #Go 1)
  244. (
  245.     (set #Gadget
  246.         (askstring
  247.             (prompt (#GadsPrompt #ReqGads))
  248.             (default #ReqGadDef)
  249.             (help @askstring-help)
  250.         )
  251.     )
  252.  
  253.     (complete 65)
  254.  
  255.     (if (= (patmatch (cat "(" #ReqGads ")" ) #Gadget) 0)
  256.         (message (#UnknownGadget #Gadget))
  257.         (set #Go 1)
  258.     )
  259. )
  260. )
  261.  
  262. (complete 70)
  263.  
  264. (if (not (exists "S:EasyPatch.List"))
  265. (
  266.     (set #CfgFile
  267.         (askfile
  268.             (prompt #AskCfgPrompt)
  269.             (help @askfile-help)
  270.             (default "S:EasyPatch.List")
  271.         )
  272.     )
  273.  
  274.     (complete 75)
  275.  
  276.     (if (= (fileonly #CfgFile) "")
  277.         (set #CfgFile "S:EasyPatch.List")
  278.     )
  279.  
  280. )
  281. ;else
  282.     (set #CfgFile "S:EasyPatch.List")
  283. )
  284.  
  285. (complete 80)
  286.  
  287. (debug "Config file: " #CfgFile)
  288.  
  289. (textfile
  290.     (prompt  #CreateCfg)
  291.     (dest      "T:EasyPatch.cfg")
  292.     (include #CfgFile)
  293.     (append  (cat "\""#MatchTitle"\" " "\""#MatchText"\" AT PRESSGAD=\""#Gadget"\"\n"))
  294. )
  295.  
  296. (complete 90)
  297.  
  298. (copyfiles 
  299.     (prompt  #CreateCfg)
  300.     (source  "T:EasyPatch.cfg")
  301.     (dest    (pathonly #CfgFile))
  302.     (newname (fileonly #CfgFile))
  303. )
  304.  
  305. (debug "Pattern for Title:" #MatchTitle)
  306. (debug "Pattern for Text :" #MatchText )
  307. (debug "Selected gadget  :" #Gadget    )
  308.  
  309. (complete 95)
  310.  
  311. (if (AND (>= ver 42) (>= rev 9))
  312. (
  313.     (delete "ENV:EasyPatch_#?" )
  314.     (delete "T:EasyPatch.cfg")
  315. )
  316. ;else
  317.     (run "Delete >NIL: ENV:EasyPatch_#? T:EasyPatch.cfg")
  318. )
  319.  
  320. (complete 100)
  321.  
  322. (debug "EasyConfig - End")
  323.  
  324. (exit (QUIET))
  325.