home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / pack / artic / install_artic < prev    next >
Text File  |  1995-04-11  |  5KB  |  161 lines
  1.  
  2. ; ARTIC Installation script.
  3. ; by AlgarSoft
  4.  
  5. Version >NIL: exec.library 37
  6. If WARN 
  7.   echo "Sorry Artic Package requires KickStart >= 2.0 !"
  8.   Quit
  9. EndIf
  10.  
  11. Echo "*n*n*E[32mA R T I C  Installation Script *E[0m *n*n"
  12. Ask "Do you really want to install ARTIC on your system (y/n)?"
  13.  
  14. If WARN                                              
  15.  
  16.   assign >NIL: Artic_Disk: exists
  17.   if WARN
  18.     assign Artic_Disk: ""
  19.     set tipo "file"
  20.   else
  21.     set tipo "disk"
  22.   endif
  23.  
  24.   if EXISTS s:Uninstall_Artic
  25.     echo "*nUninstallation script found !*n"     
  26.     echo "You Should delete old ARTIC files before installing the new ones"
  27.     echo "answering 'y' to the following question:*n"
  28.     failat 50
  29.     execute s:Uninstall_Artic
  30.     failat 10
  31.   endif
  32.  
  33.   if EXISTS c:requestfile
  34.     set rq "T"
  35.     Echo "*nC:requestfile FOUND!*n"
  36.     Echo "*n (When Asked by the requestfile about where to put files,"
  37.     Echo   "  You can CREATE a new directory just typing in the new name)."
  38.   else
  39.     set rq "F"
  40.   endif
  41.  
  42.   Echo "*n; Uninstall_Artic script 1994 by Algarsoft"        >t:un
  43.   Echo "*n; Artic installed from floppy on : `date`"        >>t:un
  44.   Echo "; Artic   version: `version Artic_Disk:ar/artic`"    >>t:un
  45.   Echo "; Manager version: `version Artic_Disk:ar/aman`*n" >>t:un  
  46.   Echo "failat 10" >>t:un
  47.   Echo "Ask *"Do you really want to de-install artic from your System ?*"" >>t:un
  48.   Echo "if WARN" >>t:un
  49.  
  50.   Echo "*n*n*E[32mInstalling ARTIC Files...*E[0m*n"
  51.  
  52.   Echo "HANDLER"
  53.   if exists Artic_Disk:ar/artic020_demo
  54.     ask "Install 68020+ demo version ?"
  55.     if WARN  
  56.       copy Artic_Disk:ar/artic020_demo l:artic
  57.     else  
  58.       copy Artic_Disk:ar/artic l:artic
  59.     endif 
  60.   else
  61.     copy Artic_Disk:ar/artic l:artic
  62.   endif
  63.   Echo "  delete l:artic" >>t:un
  64.  
  65.   Echo "COMMANDS"
  66.   if $rq EQ "T"
  67.     set cmds `requestfile TITLE="Select dir for cli commands" DRAWER="C:" DRAWERSONLY SAVEMODE`
  68.     get cmds >NIL:
  69.     if WARN
  70.       quit
  71.     endif 
  72.   else
  73.     Echo "*E[32mWARNING*E[0m C:Requestfile NOT found ! Commands will be copied into c:."
  74.     set cmds "C:"
  75.   endif
  76.   copy Artic_Disk:ar/(adir|artrem|amode) $cmds
  77.   Echo "  delete $cmds(adir|artrem|amode)" >>t:un
  78.  
  79.   Echo "MANAGER"
  80.   if $rq EQ "T"
  81.     set aman `requestfile TITLE="Select dir for Manager" DRAWER="sys:Prefs" DRAWERSONLY SAVEMODE`
  82.     get aman >NIL:
  83.     if WARN
  84.       quit
  85.     endif 
  86.   else
  87.     Echo "*E[32mWARNING*E[0m C:Requestfile NOT found ! The manager will be copied into SYS:prefs"
  88.     set aman "Sys:Prefs/"
  89.   endif
  90.   if EXISTS libs:muimaster.library
  91.     Echo "*E[32mMUI FOUND !*E[0m Installing MUI version of the Manager."
  92.     copy Artic_Disk:ar/aman_mui#? $aman
  93.   else
  94.    copy Artic_Disk:ar/aman(%|.info) $aman
  95.   endif 
  96.   Echo "  delete $aman(aman#?)" >>t:un
  97.  
  98.   Echo "HELP FILES"
  99.   if $rq EQ "T"
  100.     set help `requestfile TITLE="Select dir for HelpFiles" DRAWER="s:" DRAWERSONLY SAVEMODE`
  101.     get help >NIL:
  102.     if WARN
  103.       quit
  104.     endif 
  105.   else
  106.     Echo "*E[32mWARNING*E[0m C:Requestfile NOT found ! The help files will be copied into S:"
  107.     set help "S:"
  108.   endif
  109.  
  110.   ask "*nDo you want the ITALIAN online help for the manager ?"
  111.   if WARN 
  112.     echo "Installing ITALIAN online help"
  113.     copy Artic_Disk:ar/Artic_Manager_ita.guide  `get help`Artic_Manager.guide
  114.   else
  115.     echo "Installing ENGLISH online help for the manager."
  116.     copy Artic_Disk:ar/Artic_Manager_eng.guide  `get help`Artic_Manager.guide
  117.   endif
  118.   copy Artic_Disk:ar/Artic.guide $help
  119.   copy Artic_Disk:ar/Artic#?.guide.info $help
  120.   echo "$help" >ENVARC:Artic_Help_Path
  121.   echo "$help" >ENV:Artic_Help_Path
  122.   echo "  delete $help(Artic#?.guide#?)"     >>t:un
  123.   echo "  delete ENV:Artic_Help_Path"        >>t:un
  124.   echo "  delete ENVARC:Artic_Help_Path"     >>t:un  
  125.  
  126.   echo "endif" >>t:un
  127.  
  128.   Echo "*n*nVersions installed " 
  129.   version l:artic FULL
  130.   if EXISTS `get aman`aman_mui
  131.     version `get aman`aman_mui  FULL
  132.   else
  133.     version `get aman`aman  FULL
  134.   endif  
  135.  
  136.   copy  t:un s:Uninstall_Artic
  137.   delete t:un >NIL:
  138.  
  139.   if $tipo EQ "file"
  140.     assign Artic_Disk:
  141.   endif
  142.  
  143.   echo "*n*E[32mInstallation Terminated.*E[0m*n"
  144.   echo "UnInstallation Script has been copied in S:Uninstall_Artic"
  145.   echo "(See Documentation in $help for more information)"
  146.   echo "*nIf you have an old version of ARTIC already loaded in memory,"
  147.   echo "please *E[32mRESET*E[0m the machine !"
  148.   echo "*nOtherwise Type *"`get aman`aman*" to start the Manager."
  149.   ask  "*nPress Return To Continue"
  150.  
  151.   unset cmds
  152.   unset aman
  153.   unset help
  154.   unset tipo
  155.   unset rq
  156.  
  157. Else
  158.   echo "ABORTED !"
  159. EndIf
  160.  
  161.