home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / microdot-1 / microdot1_18.lzx / MicroDot_118 / Install-MicroDot next >
Text File  |  2014-05-19  |  8KB  |  345 lines
  1. ;
  2. ; Installer-Script for MicroDot
  3. ;
  4. ; $VER: MicroDot-Install 1.9 (22.02.97)
  5. ;
  6.  
  7. (set #install-hd-msg
  8. (cat    "Wohin soll das MicroDot-Verzeichnis "
  9.         "installiert werden?"
  10. ))
  11.  
  12. (set #install-hd-help
  13. (cat    "\nHier mⁿ▀en Sie angeben, wo auf Ihrer "
  14.         "Festplatte das MicroDot-Verzeichnis installiert werden "
  15.         "soll.\n\n"
  16.         "Das Installationsprogramm erzeugt dann in dem von Ihnen "
  17.         "angegebenen Verzeichnis eine neue Schublade mit dem "
  18.         "Namen \"MicroDot\".\n\n"
  19.         "Sie sollten MicroDot nach M÷glichkeit NICHT auf einer Partition "
  20.         "installieren, die mit dem DirCache-FileSystem formatiert ist."
  21. ))
  22.  
  23. (set #copying-reqtools "Kopiere reqtools.library nach Libs:")
  24. (set #copying-aguide "Kopiere amigaguide.library nach Libs:")
  25. (set #copying-setpatch "Fⁿr den ordnungsgemΣ▀en Betrieb von MicroDot wird SetPatch 40.16 (oder h÷her) ben÷tigt.")
  26.  
  27. (set #want20
  28. (cat    "M÷chten Sie die spezielle MicroDot020-Version fⁿr Rechner mit OS 3.x "
  29.         "und einer 68020/030/040/060-CPU installiert haben? "
  30.  
  31. ))
  32. (set #want20-help
  33. (cat    "Sie haben ein Amiga-System mit OS 3.0 oder gr÷▀er "
  34.         "und einem %s Prozessor.\n\n"
  35.         "M÷chten Sie die spezielle MicroDot020-Version fⁿr solche "
  36.         "Konfigurationen installiert haben?"
  37. ))
  38.  
  39. (set #cfgexist-msg
  40. (cat    "Es existiert bereits eine Prekonfigurationsdatei fⁿr "
  41.         "ihr System, die beim ersten Start von MicroDot automatisch "
  42.         "gelesen wird."
  43. ))
  44.  
  45. (set #cfgexist-help
  46. (cat    "Es wurde eine Datei \"microdot.cfg\" gefunden, die "
  47.         "die Parameter fⁿr Ihr Pointsystem, wie den Usernamen "
  48.         "oder die Telefonnummer der Box enthΣlt. Eine weitere "
  49.         "Konfiguration des Points ist daher nicht unbedingt notwendig.\n\n"
  50.         "Trotzdem sollten Sie auf jeden Fall die Einstellunge ⁿberprⁿfen."
  51. ))
  52.  
  53. (set #update-msg
  54. (cat     "M÷chten Sie Ihre bestehende MicroDot-Installation updaten "
  55.         "oder komplett neu installieren? Auch bei einer Neuinstallation "
  56.         "bleiben Ihre Daten vollstΣndig erhalten."
  57. ))
  58.  
  59. (set #update-help
  60. (cat    "Sie haben in dem ausgewΣhlten Verzeichnis bereits MicroDot "
  61.         "installiert. Hier k÷nnen Sie nun entscheiden, ob diese "
  62.         "Installation geupdatet werden soll (nur die Dateien "
  63.         "MicroDot, MicroDot.guide und LiesMich.txt werden ersetzt) "
  64.         "oder ob komplett neu installiert werden soll.\n"
  65.         "In beiden FΣllen bleiben Ihre DatenbestΣnde unangetastet."
  66. ))
  67.  
  68.  
  69. ;
  70. ; Procedures
  71. ;
  72.  
  73. (procedure checkv20
  74.     (set v20-flag 0)
  75.     (if (> (/ (getversion) 65536) 38)
  76.         (if (exists "MDInstall/MicroDot020.pch" )
  77.             (if (>= (database "cpu") 68020 )
  78.                 (set v20-flag
  79.                     (askbool
  80.                         (prompt #want20)
  81.                         (help (#want20-help (database "cpu" ) ) ) 
  82.                         (default 1)
  83.                     )
  84.                 )
  85.             )
  86.         )
  87.     )
  88. )
  89.  
  90. (procedure do_copy
  91.     (complete 15)
  92.     (copyfiles
  93.         (source "MicroDot.guide")
  94.         (newname "MicroDot.guide")
  95.         (prompt "Kopiere MicroDot.guide...")
  96.         (help @copyfiles-help)
  97.         (confirm)
  98.         (infos)
  99.         (dest @default-dest)
  100.     )
  101.     (complete 25)
  102.     (working "Erstelle MicroDot.DOK...")
  103.     (run ("MDInstall/ag2txt MicroDot.guide \"%s\"" (tackon @default-dest "MicroDot.DOK" ) ) )
  104.     (complete 37)
  105.     (copyfiles
  106.         (source "MDInstall/")
  107.         (dest @default-dest)
  108.         (choices "MicroDot.info" "MicroDot-Netcall.info" "MicroDot-Terminal.info" "MicroDot.DOK.info")
  109.         (prompt "Kopiere Piktogramme...")
  110.         (help @copyfiles-help)
  111.         (confirm)
  112.     )
  113.     (complete 42)
  114.     (if (exists "LiesMich.txt" )
  115.         (copyfiles
  116.             (source "LiesMich.txt" )
  117.             (dest @default-dest)
  118.             (optional nofail)
  119.             (prompt "Kopiere LiesMich.txt..." )
  120.             (help @copyfiles-help)
  121.             (confirm)
  122.             (infos)
  123.         )
  124.     )
  125.     (complete 43)
  126.     (copyfiles
  127.         (source "MDInstall/Rexx/")
  128.         (dest (tackon @default-dest "Rexx/"))
  129.         (pattern "#?.md#?rexx")
  130.         (optional nofail)
  131.         (prompt "Kopiere Rexx-Makros..." )
  132.         (help @copyfiles-help)
  133.         (confirm)
  134.         (infos)
  135.     )
  136.     (if (= 0 update_mode )
  137.     (
  138.         (complete 46)
  139.         (if (exists "MicroDot.cfg" )
  140.             (copyfiles
  141.                 (source "MicroDot.cfg")
  142.                 (dest @default-dest)
  143.                 (optional nofail)
  144.                 (prompt "Kopiere MicroDot.cfg...")
  145.                 (help @copyfiles-help)
  146.                 (confirm)
  147.             )
  148.         )
  149.         (complete 47)
  150.         (copyfiles
  151.             (source "MDInstall/")
  152.             (dest @default-dest)
  153.             (pattern "md_#?.(pub#?|priv#?)")
  154.             (optional nofail)
  155.             (prompt "Kopiere Beispiel-Texte...")
  156.             (help @copyfiles-help)
  157.             (confirm)
  158.         )
  159.     ))
  160.  
  161.     (complete 49)
  162.     (if (exists "Point.txt" )
  163.         (copyfiles
  164.             (source "Point.txt" )
  165.             (dest @default-dest)
  166.             (optional nofail)
  167.             (prompt "Kopiere Point.txt..." )
  168.             (help @copyfiles-help)
  169.             (confirm)
  170.             (infos)
  171.         )
  172.     )
  173.  
  174.     (complete 50)
  175.     (checkv20)
  176.     (complete 51)
  177.     (if (<> v20-flag 0 )
  178.     (
  179.         (working "Erstelle MicroDot020-Hauptprogramm...")
  180.         (run ("MDInstall/SPatch \"-o%s\" -pMDInstall/MicroDot020.pch MDInstall/MicroDot" (tackon @default-dest "MicroDot") ) )
  181.     )
  182.     (
  183.         (copyfiles
  184.             (source "MDInstall/MicroDot")
  185.             (dest @default-dest)
  186.             (prompt "Kopiere MicroDot-Hauptprogramm...")
  187.             (help @copyfiles-help)
  188.             (confirm)
  189.         )
  190.     ))
  191.     (complete 75)
  192. )
  193.  
  194. (procedure do_hd 
  195.     (set default-dest
  196.         (askdir
  197.             (prompt #install-hd-msg)
  198.             (help #install-hd-help)
  199.             (default @default-dest)
  200.         )
  201.     )
  202.     (set @default-dest
  203.         (tackon default-dest "MicroDot")
  204.     )
  205.     (if (exists (tackon @default-dest "MicroDot.prefs" ) )
  206.         (if (askbool
  207.                 (prompt #update-msg)
  208.                 (help #update-help)
  209.                 (default 1)
  210.                 (choices "Update" "Neuinstallation" )
  211.             )
  212.             (set update_mode 1)
  213.         )
  214.     )
  215.  
  216.     (makedir @default-dest
  217.         (infos)
  218.     )
  219.     (makedir (tackon @default-dest "Rexx" ) )
  220.     (do_copy)
  221.  
  222. )
  223.  
  224. (procedure copy-reqtools
  225.     (complete 93)
  226.     (if (exists "MDInstall/libs/reqtools.library" )
  227.         (copylib
  228.             (prompt #copying-reqtools)
  229.             (help @copylib-help)
  230.             (source "MDInstall/libs/reqtools.library")
  231.             (dest "Libs:")
  232.             (confirm)
  233.         )
  234.     )
  235. )
  236.  
  237. (procedure copy-setpatch
  238.     (complete 95)
  239.     (copylib
  240.         (prompt #copying-setpatch)
  241.         (help @copylib-help)
  242.         (source "MDInstall/SetPatch")
  243.         (dest "C:")
  244.         (confirm)
  245.     )
  246. )
  247.  
  248. (procedure copy-aguide
  249.     (complete 97)
  250.     (if (exists "MDInstall/libs/amigaguide.library" )
  251.         (copylib
  252.             (prompt #copying-aguide)
  253.             (help @copylib-help)
  254.             (source "MDInstall/libs/amigaguide.library")
  255.             (dest "Libs:")
  256.             (confirm)
  257.         )
  258.     )
  259.     (complete 99)
  260.     (if (exists "SYS:Utilities/MultiView" ) 
  261.         (
  262.             (tooltype (
  263.                 (dest (tackon @default-dest "MicroDot.guide") )
  264.                 (setdefaulttool "SYS:Utilities/MultiView" )
  265.             ))
  266.         )
  267.  
  268.         (if (exists "MDInstall/AmigaGuide" )
  269.             (
  270.                 (tooltype (
  271.                     (dest (tackon @default-dest "MicroDot.guide") )
  272.                     (setdefaulttool "AmigaGuide" )
  273.                 ))
  274.                 (copyfiles
  275.                     (source "MDInstall/AmigaGuide")
  276.                     (dest @default-dest)
  277.                 )
  278.             )
  279.         )
  280.     )
  281. )
  282.  
  283. (procedure do_config
  284.     (complete 80)
  285.     (set configname (tackon @default-dest "microdot.cfg" ) )
  286.     (if (exists configname)
  287.         (
  288.             (set #cfgexist-realmsg #cfgexist-msg)
  289.             (if (exists (tackon @default-dest "microdot.autosortin" ) )
  290.                 (set #cfgexist-realmsg
  291.                     (cat #cfgexist-msg  "\n\nEs existiert ein konvertierter Netcallpuffer "
  292.                                            ( "mit %ld Bytes LΣnge, der beim ersten Start von MicroDot " (getsize (tackon @default-dest "microdot.autosortin" ) ) )
  293.                                            "automatisch einsortiert wird."
  294.                     )
  295.                 )
  296.             )
  297.             (message #cfgexist-realmsg)
  298.         )
  299.     )
  300.     (complete 90)
  301.     (tooltype (
  302.         (dest (tackon @default-dest "MicroDot") )
  303.         (noposition)
  304.         (setstack 4000)
  305.         (swapcolors)
  306.     ))
  307.     (tooltype (
  308.         (dest (tackon @default-dest "MicroDot-Netcall") )
  309.         (noposition)
  310.         (setstack 4000)
  311.         (swapcolors)
  312.     ))
  313.     (tooltype (
  314.         (dest (tackon @default-dest "MicroDot-Terminal") )
  315.         (noposition)
  316.         (setstack 4000)
  317.         (swapcolors)
  318.     ))
  319.     (tooltype (
  320.         (dest (tackon @default-dest "MicroDot.guide") )
  321.         (noposition)
  322.         (setstack 10000)
  323.         (swapcolors)
  324.     ))
  325. )
  326.  
  327.  
  328. ;
  329. ;
  330. ; GO!
  331. ;
  332. ;
  333.  
  334. (complete 1)
  335. (do_hd)
  336.  
  337. (do_config)
  338.  
  339. ; Reqtools installieren
  340.  
  341. (copy-reqtools)
  342. (copy-setpatch)
  343. (copy-aguide)
  344. (complete 100)
  345.