;------------------------------------------------------------------------------
;
;   File    :   SongPlayer-Install
;
;   Author  :   Stéphane TAVENARD
;
;   (C) Copyright 1996-1997 Stéphane TAVENARD
;       All Rights Reserved
;
;   #Rev|   Date   |                      Comment
;   ----|----------|--------------------------------------------------------
;   0   |05/01/1997| Initial revision                                     ST
;   1   |24/08/1997| Generic CPU version / no more SONGPLAYER: assign     ST
;
;   ------------------------------------------------------------------------
;
;   SongPlayer Intall script
;
;------------------------------------------------------------------------------

(complete 0)

; Français
;------------------------------------------------------------------------------
(if (= @language "français")
(

(set #guide "SongPlayer.fr.Guide" )

(set #destdir
   (cat "Choisisez un repertoire de destination pour SongPlayer.\n"
        "Un Tiroir nommé 'SongPlayer' y sera créé."
    )
)

(set #copying "Copie des fichiers en cours.")

)

; Language is english by default
;------------------------------------------------------------------------------
(

(set #guide "SongPlayer.en.Guide" )

(set #destdir
   (cat "Please select a place for SongPlayer.\n"
        "A drawer called 'SongPlayer' will be created.")
   )
)

(set #copying "Files copy in progress.")

)


; Search for old SONGPLAYER directory
;------------------------------------------------------------------------------
(complete 10)

(if (<> (exists "SONGPLAYER:" (noreq)) 0)
(
   (set @default-dest (expandpath "SONGPLAYER:/"))
   (set songplayerdir (tackon @default-dest "SongPlayer"))
))

; Ask for destination directory
;------------------------------------------------------------------------------
(complete 20)

(set @default-dest
   (askdir
      (prompt #destdir)
      (help @askdir-help)
      (default @default-dest)
   )
)

(set @default-dest (expandpath @default-dest))
(set destination (tackon @default-dest "SongPlayer"))

; Create dir if doesn't exist
;------------------------------------------------------------------------------
(complete 30)

(if (= (exists destination) 0 )
(
   (makedir destination (help @makedir-help))
))


; Copy Main files now
;------------------------------------------------------------------------------
(complete 40)

(copyfiles
   (prompt #copying)
   (source "")
   (files)
   (choices "SongPlayer")
   (dest destination)
   (infos)
   (noposition)
   (help @copyfiles-help)
)

; Copy Help file now
;------------------------------------------------------------------------------
(complete 50)
(copyfiles
   (prompt #copying)
   (source #guide)
   (dest destination)
   (newname "SongPlayer.Guide")
   (infos)
)

; Copy Images files now
;------------------------------------------------------------------------------
(complete 60)

(copyfiles
   (prompt #copying)
   (source "")
   (pattern "Images")
   (dest destination)
   (infos)
   (help @copyfiles-help)
)

; Copy Utilities files now
;------------------------------------------------------------------------------
(complete 80)

(copyfiles
   (prompt #copying)
   (source "")
   (pattern "Utils")
   (dest destination)
   (infos)
   (help @copyfiles-help)
)

; End
;------------------------------------------------------------------------------
(complete 100)