home *** CD-ROM | disk | FTP | other *** search
- ; 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)
- )
-
-
-