home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / boot / czesc_1 / assignprefs / install assignprefs < prev    next >
Encoding:
Text File  |  1993-08-01  |  2.1 KB  |  113 lines
  1. (if (> @user-level 0)
  2.     (message "This script will install AssingPrefs in your system.\n"
  3.          "Since you are an advanced user, you will be asked "
  4.          "where the files will be copied.\n"
  5.          "You will also be able to alter your startup-sequence.\n")
  6. )
  7.  
  8. (set @default-dest
  9.     (askdir (prompt "Select a directory to copy AssignPrefs to")
  10.         (help @askdir-help)
  11.         (default "sys:prefs/")
  12.         (newpath)
  13.     )
  14. )
  15.  
  16. (if (= @pretend 0)
  17.     (copyfiles
  18.     (source "AssignPrefs")
  19.     (dest @default-dest)
  20.     (infos)
  21.     )
  22. )
  23.  
  24.  
  25. (set samedir
  26.     (askchoice
  27.         (prompt "What shall I do next?")
  28.         (help @askchoice-help)
  29.         (choices "Install Doc File in same directory"
  30.              "Install Doc File in other directory"
  31.              "Don't install the doc file")
  32.         (default 0)
  33.     )
  34. )
  35.  
  36. (select samedir
  37.     (set pdir @default-dest)
  38.     (set pdir
  39.     (askdir (prompt "Select a directory to copy the docfile to")
  40.         (help @askdir-help)
  41.         (default @default-dest)
  42.         (newpath)
  43.     )
  44.     )
  45.     (set pdir "NIL:")
  46. )
  47.  
  48. (if (<> pdir "NIL:")
  49.     (if (= @pretend 0)
  50.     (copyfiles
  51.         (source "docs/AssignPrefs.guide")
  52.         (dest   pdir)
  53.         (infos)
  54.     )
  55.     )
  56. )
  57.  
  58.  
  59. (set samedir
  60.     (askchoice
  61.         (prompt "What shall I do next?")
  62.         (help @askchoice-help)
  63.         (choices "Install source code in same directory"
  64.              "Install source code in other directory"
  65.              "Don't install the source code")
  66.         (default 0)
  67.     )
  68. )
  69.  
  70. (select samedir
  71.     (set pdir @default-dest)
  72.     (set pdir
  73.     (askdir (prompt "Select a directory to copy the source to")
  74.         (help @askdir-help)
  75.         (default @default-dest)
  76.         (newpath)
  77.     )
  78.     )
  79.     (set pdir "NIL:")
  80. )
  81.  
  82. (if (<> pdir "NIL:")
  83.     (if (= @pretend 0)
  84.     (copyfiles
  85.         (source "source")
  86.         (dest   pdir)
  87.         (infos)
  88.         (all)
  89.     )
  90.     )
  91. )
  92.  
  93. (set commandline (cat @default-dest "assignprefs use"))
  94.  
  95. (set sseq
  96.     (askchoice
  97.     (prompt "Do you want me to edit your startup-sequence")
  98.     (help @askchoice-help)
  99.     (choices    "No, don't touch it"
  100.             "Yes, please")
  101.     (default 0)
  102.     )
  103. )
  104.  
  105. (if (= sseq 1)
  106.     (startup "AssignPrefs"
  107.         (command commandline)
  108.         (help @startup-help)
  109.         (prompt "Are you sure you want me to edit your startup-sequence ?")
  110.     )
  111. )
  112.  
  113.