home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / stricq / Install_Textinput < prev    next >
Encoding:
Text File  |  1998-10-06  |  4.9 KB  |  109 lines
  1. ;******************************************************************************
  2. ;    ______                 __   ______                       __
  3. ;   /_  __/               _/ /_ /_  __/    MUI Classes      _/ /_
  4. ;    / /  ______ __  __  /  __/  / /  ______ ______ __  __ /  __/
  5. ;   / /  / ____/ \ \/ /  / /    / /  / __  // __  // / / / / /
  6. ;  / /  / __/_   /   /  / /_ __/ /_ / / / // /_/ // /_/ / / /_
  7. ; /_/  /_____/  /_/\_\ /___//_____//_/ /_// ____//_____/ /___/
  8. ;                                        / /           
  9. ;                                       /_/  
  10. ; $VER: 0.25 (June-23-1997) 
  11. ; Changes, suggestions or problems: rcr@vgr.com
  12. ; If you wish to use any part of this installer you must ask!
  13. ;
  14. ; TextInput ©1997 by Oliver Wagner
  15. ; TextInput Installer by Robert C. Reiswig ©1997 
  16. ;******************************************************************************
  17.  
  18. ;*** System Stuff ***
  19. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  20. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  21. (set osver (/ (getversion "LIBS:version.library") 65536))
  22. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  23. (set fastmem (- totmem graphmem))
  24.  
  25. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  26. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  27. (if (= osver 41) (set workbench "4.0")) 
  28.  
  29. (set cpu (database "cpu"))
  30. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  31. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  32. (if (= cpu 68040) (set #cpu 4)) 
  33. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  34.  
  35. (set vernum1 (getversion "mui/Textinput.mcc"))
  36. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  37. (set TextInputver (cat ver1 "." rev1))
  38.  
  39. ;********************************************************************
  40. ; English Strings
  41. ;********************************************************************
  42. (set #about (cat "\n\n\n\nWelcome to TextInput " TextInputver "\n\nCopyright ©1997 by\n\nOliver Wagner\n<owagner@vapor.com>\n") )
  43. (set #whattodo "\n\n\n\n\nThis installer will copy or update the TextInput classes in MUI:Libs/MUI.")
  44.  
  45. (set #nomui (cat "\n\nTextInput uses Magic User Interface (MUI).\n\nThe installer has not found MUI: to be assigned, "
  46.                  "therefore you TextInput will not work correctly.  You will need to install "
  47.                  "MUI before running TextInput."
  48.             )
  49. )
  50.  
  51. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer program.\n\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n\nYou might want to upgrade soon, if you can. The TextInput installer will need it. Older installers might fail.")
  52.  
  53. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  54. (set #newermui "\nTextInput needs version 3.8 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find the new MUI on Aminet in util/libs\n\nIt looks like you have: \n\n")
  55. (set #nompc "\nThe .MCC files for TextInput can not be installed to 'mui:libs/mui'")
  56.  
  57. (set #byebye (cat "\nTextInput Install Complete!\n\n" ))
  58.  
  59. ;********************************************************************
  60. ; Hello
  61. ;********************************************************************
  62. (message #about)
  63. (welcome) 
  64. (message #whattodo)
  65.  
  66. ;********************************************************************
  67. ; MUI installed?
  68. ;********************************************************************
  69. (if (< (exists "mui:") 2)  (message #nomui) )
  70.  
  71. ;********************************************************************
  72. ; Check on New installer 
  73. ;********************************************************************
  74. (set InstallerVer 0)
  75. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  76. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  77. (set current_installer "43.3")
  78. (if (< InstallerVer current_installer) (message #updateinstaller) )
  79.  
  80. ;********************************************************************
  81. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  82. ;********************************************************************
  83. (if (<> (getassign "mui") "")
  84. (
  85.   (if (> (exists "mui:libs/mui") 0) 
  86.    (
  87.     (working #updatingmuic)
  88.     (foreach "mui" "#?mcp"
  89.         (copylib (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  90.     )
  91.     (foreach "mui" "#?mcc"
  92.         (copylib (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  93.     )
  94.    )
  95.  
  96.    (message (cat #newermui muiver #nompc)) 
  97.   )
  98. )
  99. )
  100.  
  101. ;********************************************************************
  102. ; End Bye 
  103. ;********************************************************************
  104. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  105. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  106. (run (cat "run " #mpath "/multiview textinput.readme") )
  107.  
  108. (exit #byebye)
  109.