Thank you!
You are indeed civic minded :)
regards
Tim
[EMAIL PROTECTED] wrote:
> Following inline is my %user.r, followed by my %utilities.r script.
>
> All of the functions listed in utilities are then available to me
> during the session.
>
> *****************start user.r****************************
>
> REBOL [
> Title: "User Preferences"
> Date: 28-Aug-2000
> ]
>
> protect-system ;protect system words from redefinition with all of my
> utilities
>
> set-net-cases: [
> 1 [[EMAIL PROTECTED] smtp.netzero.net pop.netzero.net none none
> none ]
> 2 [[EMAIL PROTECTED] smtp.mail.yahoo.com pop.mail.yahoo.com none
> none none]
> ]
>
> print "Which net account do you want to use?"
> foreach [number case] set-net-cases [
> print [number tab case]
> ]
> set-net account: select set-net-cases choice: to-integer ask "Enter
> your number choice here :>> "
>
>
>
> system/console/prompt: "REBOL:>> "
> system/console/result: "REBOL:== "
>
>
>
> ;--------utilities to do each time----------------
> ; keep the utilities folder as a subfolder of where the executable is
> i.e. %./utilities
>
> ;----------------------------greeting-------------------
> print
> "***************************************************************"
> Print "Hello, Alan!"
> print ["It is" now/date "at" now/time "."]
> print ["You are currently in the" what-dir "directory." newline]
> print ["The following are your scripts loaded with utilities.r"
> newline]
>
> do %./utilities/utilities.r ; put utilities in utilities folder and
> call them in %utilities.r
>
> *****************end of
> user.r**************************************************
>
> *****************start
> utilities.r**************************************************
>
> REBOL[
> title: "My Utilities"
> file: %utilities.r
> purpose: "Things I want available."
> date: "22-May-2000/10:43:36-4:00"
> ]
>
>
>
> ; scripts I want available
>
> ;--------make 'symlinks' to directory
> functions------------------------
> list: :list-dir
> pwd: :what-dir
> cd: :change-dir
> md: :make-dir
>
> ;-----a few simple shortcuts-------
> cls: does [prin ["^(1B)[J"]] ; this clears the screen
>
> ;---------my utilities--------------
> do %../utilities/ls.r
> do %../utilities/mail.r
> do %../utilities/convert-lines.r
> do %../utilities/makehead.r
> do %../utilities/s-swap.r
>
> ***********end user.r***************************
>
> Hope this helps.
>
> [EMAIL PROTECTED] wrote:
>
>
> Hi:
> How may I load function definitions at startup?
> As an experiment, I added the following function def
> to both user.r and rebol.r:
> import: func[{"do" a file (IMPORT function def}f[string!]]
> [do make file! f]
>
> However, upon starting rebol, rebol does not recognize
> it.
>
> I note also, that set-user is not recognized.
>
> Just curious...
> TIA
> Tim
>
