\ INSTALL.SEQ   Installation file for F-PC             by Tom Zimmer

comment:

  Installation utility for F-PC.  This program sets the Path to be used
for viewing file sources. A deferred word INSTALLSTUFF can be used in a
definitions as follows to add a function to the installation list.

        : MYINSTALLFUNC ( --- )
                        DEFERS INSTALLSTUFF
                        .. MY INSTALLATION FUNCTION .. ;

        ' MYINSTALLFUNC IS INSTALLSTUFF

  This allows several install functions to be chained as needed by each
program segment which needs an installation function.

  Similarly a deferred word UNINSTALLSTUFF is provided to allow you to
clear or set things when the system is un-installed.

comment;

: install       ( --- )
                dark
                cr tab tab tab >rev ."  F-PC Installation Program " >norm
                tab ." by Tom Zimmer"
                installstuff
                cr ." ******" cr
." F-PC will now create the executable program file on disk." cr
." Enter the name of the EXE file to make, like F.EXE."
                installed on
                cr ." [default name is F.EXE] ->" query
                >in @ span @ 1- >
                if      " F.EXE" ">$ $>TIB
                then
                fsave cr cr tab
." Created " >rev exehcb count type >norm
                bye ;

: uninstall     ( --- )
                installed off        \ turn off installed flag.
                viewpath clr-hcb     \ look in current directory for views.
                uninstallstuff       \ do what the user wants to un-install.
                cr ." System Un-installed." cr ;