;  *** Man installation scipt ***

(set #install-msg
(cat "\n\nMan installation script.\n"
     "This script installs the MAN commodity on your Amiga.\n\n"
     "Read the documentation for\n"
     "more information on the distribution\n"
     "and commercial usage of Man.\n\n"
     "Man © 1993-1995 Markus Hillenbrand\n"
     "All rights reserved."
))

(set #bad-kick         "You must be using Kickstart 2.04 to install using this script!")
(set #copying-reqtools "Copying reqtools.library to Libs:...")

(message #install-msg)
(welcome "Welcome to the Man installation!")

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))    

(if (exists "S:Man.cfg")
(
    (delete "S:Man.cfg")
))

(set reqtoolslib "libs20/reqtools.library")
(set catalogdir  "catalogs/")

(copylib
        (prompt "\n" #copying-reqtools)
        (help @copylib-help)
        (source reqtoolslib)
        (dest "Libs:")
        (confirm)
) 

(if (exists "SYS:WBStartUp/Man") (copylib   (prompt "\nInstalling Man-Commodity\n")
 		   	     	 	    (help @copylib-help)
				 	    (source "Man")
	        		 	    (dest "SYS:WBStartUp")
			         	    (confirm))
				 (copyfiles (prompt "\nInstalling Man-Commodity\n")
                                            (help @copyfile-help)
                                            (source "MAN")
                                            (dest "SYS:WBStartUp")
                                            (infos)
                                            (noposition)
                                            (confirm))
)

(set #which-language "\nWhich languages should be installed?\n(English is default.)") 
(set old_level @user-level)
(set default_lang 1)

(if (exists "SYS:Locale")
(
    (if (exists "LOCALE:")
        (
        (user 1)
        (set lang (askoptions (prompt #which-language)
                              (help   #which-language-help)
                              (choices    "Deutsch"
                                          "Svenska")
                              (default default_lang)
                  )
        )
        (user old_level)
        (set n 0)
        (while (set language (select n "deutsch"
                                       "svenska"
                                       ""))
           (
           (if (IN lang n)
               (
               (if (<> 2 n)
                   (
                   (makedir (cat "LOCALE:Catalogs/" language))
                   (copyfiles (source (cat catalogdir language))
                              (dest (cat "LOCALE:Catalogs/" language))
                              (all)
                   )
               ))
              ))
           (set n (+ n 1))
        ))
     ))
))

(set #which-manpages "\nWhich man pages should be installed?") 
(set #which-manhelp  "Specify the useful man pages")
(set old_level @user-level)
(set manpagedir "Pages/")

(
   ;get destination dir for ManPages
   (set mydest
        (askdir
               (prompt "Select the directory where you want to put the man pages:")
               (help   "The directory where you store the man pages should be on a "
                       "hard drive. A directory will NOT be created!!\n\n"
               )
               (default "Work:")
               (disk)
        )
   )

   (user 1)
   (set lang (askoptions (prompt #which-manpages)
                         (help          #which-manhelp)
                         (choices  "Man"
                                   "Dir"
                                   "DT2IFF"
                                   "List"
                                   "Which"
                                   "Why")
             )
        )
        (user old_level)
        (set n 0)
        (while (set manpage (select n "Man.man"
                                      "Dir.man"
                                      "DT2IFF.man"
                                      "List.man"
                                      "Which.man"
                                      "Why.man"
                                      ""))
        (
        (if (IN lang n)
            (
            (if (<> 200 n)
                (
                (copyfiles (source (cat manpagedir manpage))
                           (dest mydest)
                           (all)
                           )
                ))
            ))
        (set n (+ n 1))
    ))
)