It would be better if it was more general,
and consistent with append if it took the
same datatypes as append [series! port!].
I would suggest renaming the below function
to prepend-file, since it is for a specific
case.
Anton.
> Here's a function based on Gregg's code. Do you see any way to
> improve it?
>
> rebol[]
>
> prepend: func [
> {
> Inserts a value to the head of a file and returns the head.
> Usage: prepend file value-to-prepend
> }
> file [file!]
> value [any-type!]
> ][
> close insert open file value
> ]
>
> prepend %pig.txt newline
> prepend %pig.txt " day!"
> prepend %pig.txt "Have a good"
> prepend %pig.txt reduce ["Another line." newline]
> prepend %pig.txt reduce [now newline]
> print read %pig.txt
>
>
>
> At 11:54 AM 8/15/2002 +0200, you wrote:
> >or watch out the %values.r of Andrew Martin for the PUSH function..
> >
> >
> >----- Original Message -----
> >From: "Gregg Irwin" <[EMAIL PROTECTED]>
> >To: <[EMAIL PROTECTED]>
> >Sent: Thursday, August 15, 2002 7:03 AM
> >Subject: [REBOL] Re: Reverse append refinement for write
> >
> >
> > > Hi Louis
> > >
> > > << How can I append a string to the beginning of a file
> instead of to its
> > > end? >>
> > >
> > > How about this?
> > >
> > > close insert open %test.txt reduce [now newline]
> > >
> > > --Gregg
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
