home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / misc / SP_ProjectMan.lha / sp-projectman / sp-projectman.install < prev    next >
Encoding:
Text File  |  1996-12-24  |  6.6 KB  |  162 lines
  1. ; $VER: SP-ProjectMan.install 0.7 (05.08.96)
  2. ; Install script for SP-ProjectMan
  3.  
  4. (complete 0)
  5. (set ProgAssign "SP-ProjectMan")
  6. (set ProgramAssign (cat ProgAssign ":"))
  7. (set ProgramDir "SP-ProjectMan")
  8. (set ProgramName "SP-ProjectMan")
  9. (set EnvVarName "SP-ProjectMan")
  10. (set MUIEnvDir "ENVARC:mui")
  11.  
  12. (set @language (getenv "language"))
  13.  
  14. (complete 1)
  15. (if (= @language "français")
  16.  (
  17.   (set DestDirPrompt (cat "Spécifiez le répertoire où installer " ProgramName ".\nLe répertoire \"" ProgramDir "\" sera créé si nécessaire."))
  18.   (set DestDirHelp (cat "Tous les fichiers de l'application seront copiés dans le répertoire .../" ProgramDir " ainsi créé."
  19.             " Si le répertoire existe déja, les fichiers seront remplacés en fonction de leur numéro de version."))
  20.   (set CopyProgramPrompt (cat "Copie du fichier \"" ProgramName "\":"))
  21.   (set CopyProgramHelp "Il s'agit du programme exécutable.")
  22.   (set DestDirFileMess "Le nom de répertoire spécifié est déja utilisé par un fichier.")
  23.   (set SameVersionMess "Cette version (%ld.%ld) du programme a déjà été installée. Faut-il quand même le réinstaller?")
  24.   (set SameVersionHelp (cat "En principe, il est inutile de réinstaller la même version du programme. "
  25.                 "Toutefois, il se peut que suite à une manipulation erronée ou quelque autre circonstance malencontreuse,"
  26.                 " l'un ou l'autre des fichiers ait été corrompu. Dans ce cas, une réinstallation peut etre utile."))
  27.   (set ProjectsDirPrompt "Spécifiez le répertoire où installer la liste des projets.\nLe répertoire \"Projects\" sera créé.")
  28.   (set ProjectsDirHelp "Ce répertoire regroupe les fichiers contenant les paramètres des projets.")
  29.  )
  30.  (
  31.   (set DestDirPrompt (cat "Specify the directory where to install " ProgramName ".\nThe \"" ProgramDir "\" directory will be created if needed."))
  32.   (set DestDirHelp (cat "All the application files will be copied in the created .../" ProgramDir " directory."
  33.             " If the directory already exists, the file will be replaced depending of their version number."))
  34.   (set CopyProgramPrompt (cat "Copy file \"" ProgramName "\":"))
  35.   (set CopyProgramHelp "This is the executable program file.")
  36.   (set DestDirFileMess "The specified directory name is already used by a file.")
  37.   (set SameVersionMess "The same version (%ld.%ld) of the program is already installed. Reinstall it anyway?")
  38.   (set SameVersionHelp (cat "By principle, there is no need to reinstall the same version of the program."
  39.                   " However, it's possible that following some wrong operation or any unfortunate circumstance,"
  40.                   " one or another file was corrupted. Insuch a case, a reinstallation may be useful."))
  41.   (set ProjectsDirPrompt "Specify the directory where to install the projects list.\nThe \"Projects\" directory will be created.")
  42.   (set ProjectsDirHelp "This directory stores the files containing the projects parameters.")
  43.  )
  44. )
  45. (complete 2)
  46.  
  47. (if (exists ProgramAssign (noreq))
  48.  (set @default-dest (pathonly (expandpath ProgramAssign)))
  49. )
  50.  
  51. (set DestDir (askdir (prompt DestDirPrompt) (help DestDirHelp) (default @default-dest) (disk)))
  52.  
  53. (set @default-dest (tackon DestDir ProgramDir))
  54.  
  55. (if (= 1 (exists @default-dest (noreq)))
  56.  (
  57.   (abort DestDirFileMess)
  58.  )
  59. )
  60. (complete 3)
  61.  
  62. (if (= 0 (exists @default-dest (noreq)))
  63.  (makedir @default-dest (infos))
  64. )
  65.  
  66. (complete 10)
  67. (set FontDir     (tackon @default-dest "Fonts"))
  68. (set ClassesDir  (tackon @default-dest "Classes"))
  69. (set CatalogsDir (tackon @default-dest "Catalogs"))
  70. (set RexxDir     (tackon @default-dest "Rexx"))
  71. (set ProjectsDir (tackon @default-dest "Projects"))
  72. (set DocsDir     (tackon @default-dest "Docs"))
  73.  
  74. (set VersionDest   (getversion (tackon @default-dest ProgramName)))
  75. (set VersionSource (getversion ProgramName))
  76. (set Version  (/ VersionSource 65536))
  77. (set Revision (- VersionSource (* Version 65536)))
  78.  
  79. (if (= VersionDest VersionSource)
  80.  (
  81.   (set InstallProg (askbool (prompt (SameVersionMess Version Revision)) (help SameVersionHelp)))
  82.  )
  83.  (set InstallProg 1)
  84. )
  85.  
  86. (complete 20)
  87. (if (= 1 InstallProg)
  88.  (
  89. (complete 21)
  90.   (if (= VersionDest VersionSource)
  91.    (
  92. (complete 22)
  93.     (copyfiles (source ProgramName) (dest @default-dest) (infos) (optional "force"))
  94. (complete 23)
  95.    )
  96.    (
  97. (complete 24)
  98.     (copylib (source ProgramName) (dest @default-dest) (infos) (optional "askuser") (confirm) (prompt CopyProgramPrompt) (help CopyProgramHelp))
  99. (complete 25)
  100.    )
  101.   )
  102. (complete 40)
  103.   (set VersionDest   (getversion (tackon @default-dest ProgramName)))
  104. (complete 45)
  105.   (if (= VersionDest VersionSource)
  106.    (
  107. (complete 50)
  108.     (copyfiles (source "Fonts") (dest FontDir) (all) (infos) (fonts) (optional "force"))
  109. (complete 60)
  110.     (copyfiles (source "Classes") (dest ClassesDir) (all) (infos) (optional "force"))
  111. (complete 70)
  112.     (copyfiles (source "Catalogs") (dest CatalogsDir) (all) (infos) (optional "force"))
  113. (complete 75)
  114.     (copyfiles (source "Rexx") (dest RexxDir) (all) (infos) (optional "force"))
  115. (complete 80)
  116.     (copyfiles (source "Docs") (dest DocsDir) (all) (infos) (optional "force"))
  117. (complete 85)
  118.     (copyfiles (source "Env") (dest MUIEnvDir) (all) (infos) (optional "force"))
  119. (complete 90)
  120.     (if (NOT (exists (tackon "ENV:" EnvVarName)))
  121.      (
  122. (complete 90)
  123.       (set ProjectsDir (askdir (prompt ProjectsDirPrompt) (help ProjectsDirHelp) (default ProjectsDir) (newpath)))
  124. (complete 91)
  125.       (if (= 0 (exists ProjectsDir (noreq)))
  126.        (
  127. (complete 92)
  128.         (makedir ProjectsDir (infos))
  129. (complete 93)
  130.     (textfile (dest (tackon "ENV:" EnvVarName)) (append ProjectsDir))
  131. (complete 94)
  132.     (textfile (dest (tackon "ENVARC:" EnvVarName)) (append ProjectsDir))
  133. (complete 95)
  134.        )
  135.       )
  136.      )
  137.     )
  138.    )
  139.   )
  140.   (if (= @language "français")
  141.    (
  142.     (set StartupPrompt (cat "L'installation va maintenant inclure les assignations suivantes dans le fichier s:user-startup:\n\n\"assign "
  143.                              ProgramAssign " " @default-dest "\"\n\n\"assign REXX: " RexxDir " add\""))
  144.     (set StartupHelp (cat "Ces assignations permettent de retrouver automatiquement les fichiers associée à l'application \"" ProgramName
  145.                           "\""))
  146.    )
  147.    (
  148.     (set StartupPrompt (cat "The installer will now include the following assigns in the s:user-startup file:\n\n\"assign "
  149.                              ProgramAssign " " @default-dest "\"\n\n\"assign REXX: " RexxDir " add\""))
  150.     (set StartupHelp (cat "This assign enables automatic retrieval of the files assocaited to the \"" ProgramName "\ application."))
  151.    )
  152.   )
  153.   (makeassign ProgAssign @default-dest)
  154.   (makeassign "Rexx" RexxDir)
  155.   (startup ProgramName (prompt StartupPrompt) (help StartupHelp)
  156.    (command (cat "assign " ProgramAssign " " @default-dest "\n"))
  157.    (command (cat "assign Rexx: " RexxDir " add"))
  158.   )
  159.  )
  160. )
  161. (complete 100)
  162.