; installation script for SWOS Editor V1.21
;
; script version 1.4
;
; 1.4 initial release
;
(set #Swosname
(cat "/SWOSEdit"
))

(set #fontname
(cat "/SwosEdit/fonts"
))

(set #libname
(cat "/SwosEdit/libs"
))



(set my_help
   (cat
      "Performing this installation will create a new drawer named \"SWOSED\" in the specified path.\n\n"
      @askdir-help
   )
)

(message
   "You will now be asked to give a path in which to install SWOS Editor v1.4.\n\n"
   "The installation utility will create a new drawer named \"SwosEditor\""
   "in the specified path.\n\n"
   "It will then copy all of its required files into this new drawer.\n\n"
)

; Get the path from the user

(set dest_pp
   (askdir
      (prompt "Where should the SwosEditor drawer be created/installed?")
      (help my_help)
      (default @default-dest)
   )
)

; Tell the Installer program where the user wants the data

(set @default-dest dest_pp)


(set dest_pp
   (tackon dest_pp "SwosEditor")
)

(makedir dest_pp
   (infos)
)

(working)

(copyfiles
   (infos)
   (help @copyfiles-help)
   (source #swosname)
   (pattern "#?")
   (files)
   (dest dest_pp)
)

(copyfiles
   (infos)
   (help @copyfiles-help)
   (source #fontname)
   (dest "FONTS:")
   (pattern "SwosEditor#?")
   (fonts)
)


(copylib (prompt copybblib)
         (help @copylib-help)
         (source #libname)
         (dest "LIBS:")
         (optional nofail askuser)
)