home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / varie / aslprefs / install < prev   
Encoding:
Text File  |  2000-05-27  |  2.1 KB  |  110 lines
  1. ; $VER: Installer script for AslPrefs 1.0 (27.05.00) © 2000 by Stephan Rupprecht
  2.  
  3. ;--- localize strings ----
  4. (if (= @language "deutsch")
  5. (
  6.     (set #wrongver "AslPrefs benötigt OS3.5 oder besser !!!")
  7.     (set #askdir_mainprg "Wohin soll das Hauptprogramm kopiert werden?")
  8.     (set #askdir_prefs "Bitte wählen Sie das Zielverzeichnis für das Voreinstellungsprogramm")
  9. )
  10. (
  11.     
  12.     (set #wrongver "AslPrefs requires OS3.5 or better !!!")
  13.     (set #askdir_mainprg "Please select the destination drawer for AslPrefs")
  14.     (set #askdir_prefs "Please select the drawer for the preferences editor")
  15. )
  16. )
  17.  
  18. ;--- check os version ---
  19. (set #vernum (getversion "workbench.library" (resident)))
  20. (set #vernum (/ #vernum 65536))
  21.  
  22. (if(< #vernum 44)
  23.     (abort #wrongver)
  24. )
  25.  
  26. ;--- askdir for main program ---
  27. (set @default-dest
  28.     (askdir
  29.         (prompt #askdir_mainprg)
  30.         (help @askdir-help)
  31.         (default "SYS:WBStartup")
  32.     )
  33. )
  34.  
  35. ;--- askdir for prefs program ---
  36. (set #prefs-dir
  37.     (askdir
  38.         (prompt #askdir_prefs)
  39.         (help @askdir-help)
  40.         (default "SYS:Prefs")
  41.     )
  42. )
  43.  
  44. ;--- copy mainprg ---
  45. (copyfiles
  46.     (help @copyfiles-help)
  47.     (source "aslprefs")
  48.     (dest @default-dest)
  49. )
  50.  
  51.  
  52. ;--- copy .info file if neccessary ---
  53. (set #info_path (tackon @default-dest "AslPrefs.info") )
  54.  
  55. (if (not (exists #info_path) )
  56.     (copyfiles
  57.         (help @copyfiles-help)
  58.         (source "AslPrefs.info")
  59.         (dest @default-dest)
  60.     )
  61. )
  62.  
  63. ;--- copy prefsed ---
  64. (copyfiles
  65.     (help @copyfiles-help)
  66.     (source "prefs/aslprefs")
  67.     (dest #prefs-dir)
  68. )
  69.  
  70. ;--- copy catalog ---
  71. (if (NOT (= @language "english")) 
  72. (
  73.     (set #src_name
  74.         (tackon "Catalogs/" @language)
  75.     )
  76.  
  77.     (set #dst_name
  78.         (tackon "LOCALE:" #src_name)
  79.     )
  80.  
  81.     (set #src_name
  82.         (tackon #src_name "aslprefs.catalog")
  83.     )
  84.  
  85.     (if (exists #src_name (noreq))
  86.     (
  87.         (copyfiles
  88.             (help @copyfiles-help)
  89.             (source #src_name)
  90.             (dest #dst_name)
  91.         )
  92.     )
  93.         (message "Sorry, there is no " @language " catalog available at the moment!")
  94.     ) 
  95. )
  96. )
  97.  
  98. ;--- copy .info file if neccessary ---
  99. (set #info_path (tackon #prefs-dir "AslPrefs.info") )
  100.  
  101. (if (not (exists #info_path) )
  102.     (copyfiles
  103.         (help @copyfiles-help)
  104.         (source "prefs/AslPrefs.info")
  105.         (dest #prefs-dir)
  106.     )
  107. )
  108.  
  109. ;--- eof ---
  110.