home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / edu / DITO.lha / DITO / Install < prev    next >
Text File  |  1997-01-23  |  4KB  |  178 lines
  1. ; INSTALLERSCRIPT for DITO 4.0+
  2. ; (C)opyright by Dirk Holtwick, 1996
  3. ; -----------------------------------------
  4.  
  5. (message
  6.    "\nDITO 4.1\n"
  7.    "© Dirk Holtwick, 1996-97\n\n"
  8.    "DITO is a very flexible learning system for "
  9.    "languages. Notice that it is SHAREWARE and that "
  10.    "you have to pay a fee of 30 DM or $20 to the author, if you "
  11.    "want to use it frequently. In the demo version some "
  12.    "functions are not fully functional.\n\n"
  13.    "Software support on DITO homepage:\n"
  14.    "http://fsrinfo.uni-duisburg.de/~dirk/dito.html\n"
  15. )
  16.  
  17. ;
  18. ; Copy all files
  19. ; --------------
  20.  
  21. (complete 0)
  22.  
  23. (set destname
  24.    (askdir
  25.       (prompt "Where do you want to install DITO (a directory will be created)")
  26.       (help @askdir-help)
  27.       (default "Work:")
  28.    )
  29. )
  30.  
  31. (set destname (tackon destname "DITO"))
  32.  
  33. (makedir
  34.    destname
  35.    (infos)
  36. )
  37.  
  38. (copyfiles
  39.    (prompt "Copying all files")
  40.    (help @copyfiles-help)
  41.    (pattern "~(#?.library|gadgets|fonts|install#?|readme#?)")
  42.    (source "")
  43.    (dest destname)
  44. )
  45.  
  46. ;
  47. ; dito.library
  48. ; ------------
  49.  
  50. (complete 60)
  51.  
  52. (copylib
  53.    (prompt "Copying dito.library")
  54.    (help @copylib-help)
  55.    (source "dito.library")
  56.    (dest "LIBS:")
  57.    (confirm)
  58. )
  59.  
  60. ; translator.library
  61. ; ------------------
  62.  
  63. (complete 65)
  64.  
  65. (copylib
  66.    (prompt "Copying translator.library V42")
  67.    (help @copylib-help)
  68.    (source "translator.library")
  69.    (dest "LIBS:")
  70.    (confirm)
  71. )
  72.  
  73. ;
  74. ; configfile.library
  75. ; ------------------
  76.  
  77. (complete 70)
  78.  
  79. (copylib
  80.    (prompt "Copying ConfigFile.library")
  81.    (help @copylib-help)
  82.    (source "ConfigFile.library")
  83.    (dest "LIBS:")
  84.    (confirm)
  85. )
  86.  
  87. ;
  88. ; textfield.gadget
  89. ; ----------------
  90.  
  91. (complete 75)
  92.  
  93. (copylib
  94.    (prompt "Copying TextField.gadget")
  95.    (help @copylib-help)
  96.    (source "gadgets/textfield.gadget")
  97.    (dest "SYS:Classes/Gadgets/")
  98.    (confirm)
  99. )
  100.  
  101. ;
  102. ; phonetics.font
  103. ; --------------
  104.  
  105. (complete 80)
  106.  
  107. (set #fonts-prompt "Do you want to install the \"phonetics.font\"?")
  108. (set #fonts-help
  109.    (cat "This font will be used as the default font of the \"phonetics"
  110.       " gadget\". If you want to use this feature, it is recommended to"
  111.       " install this font\n"
  112.    )
  113. )
  114. (set #fixfonts-prompt "The FixFonts utility will be run to make the newly added fonts available.")
  115. (set #fixfonts-help
  116.    (cat "The FixFonts utility is needed to make the newly added fonts available to the system.\n\n"
  117.       "If you intend to use the fonts from this archive, you are strongly encouraged to "
  118.       "run FixFonts now.\n\n"
  119.       "Note that running this program may take a while."
  120.    )
  121. )
  122.  
  123. ; Only ask if fonts should be installed in expert mode
  124. (if
  125.    (< @user-level 2)
  126.    (set #fonts 1)
  127.    (set #fonts
  128.       (askbool
  129.          (prompt #fonts-prompt)
  130.          (help #fonts-help)
  131.          (choices "Yes" "No")
  132.          (default 1)
  133.       )
  134.    )
  135. )
  136. (if
  137.    (> #fonts 0)
  138.    (
  139.       (copyfiles
  140.          (source "Fonts")
  141.          (dest "Fonts:")
  142.          (choices "phonetics")
  143.          (prompt "Installing font")
  144.       )
  145.       (run "SYS:System/FixFonts"
  146.          (confirm)
  147.          (prompt #fixfonts-prompt)
  148.          (help #fixfonts-help)
  149.       )
  150.    )
  151. )
  152.  
  153. ;
  154. ; Modify Startup-Sequence
  155. ; -----------------------
  156.  
  157. (complete 95)
  158.  
  159. (startup "DITO"
  160.    (prompt
  161.       "One ASSIGN has to be added to the \"S:user-startup\" so that your system will be properly configured to use DITO.")
  162.    (help "An assign called DITO: will be added. If you don't use this "
  163.       "option, your system may not work properly on your machine.")
  164.    (command "assign DITO: " destname "\n")
  165. )
  166.  
  167. ;
  168. ; Exit
  169. ; ----
  170.  
  171. (exit
  172.    "The installation is now complete. Please don't forget to "
  173.    "register:)\n\n"
  174.    "If you have problems, just press HELP in any application.\n\n"
  175.    "Yours Dirk"
  176. )
  177.  
  178.