add new file words to rre/windows

FossilOrigin-Name: d3131dad409e220ec5f0c47973e76619fb43a8fada9a10a26c3117611f522953
This commit is contained in:
crc 2018-07-14 15:13:20 +00:00
parent f2b56a78a3
commit fecaaee99c

View file

@ -149,6 +149,18 @@ Given a file name, return `TRUE` if it exists or `FALSE` otherwise.
[ drop FALSE ] choose ;
~~~
~~~
:file:open<for-reading> (s-nn)
file:R file:open dup file:size swap ;
:file:open<for-append> (s-nn)
file:A file:open dup file:size swap ;
:file:open<for-writing> (s-n)
file:W file:open ;
~~~
With that out of the way, we can begin building higher level functionality.
The first of these reads a line from the file. This is read to `here`; move