From: Phil Burk <philburk@mobileer.com>
Date: Thu, 5 Jan 2017 02:32:48 +0000 (-0800)
Subject: Merge pull request #33 from ellerh/implement-resize-file
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/e0d21c12cf924ad826eb0e73a10c5167f0195f65?hp=-c

Merge pull request #33 from ellerh/implement-resize-file

Implement RESIZE-FILE
---

e0d21c12cf924ad826eb0e73a10c5167f0195f65
diff --combined fth/t_file.fth
index 10f434f,e6ba0bd..388008c
--- a/fth/t_file.fth
+++ b/fth/t_file.fth
@@@ -74,7 -74,6 +74,6 @@@ true value verbos
  : $" state IF postpone s" else ['] s" execute THEN ; immediate
  
  \ FIXME: stubs for missing definitions
- : resize-file drop 2drop -1 ;
  : file-status 2drop 0 -1 ;
  
  TESTING File Access word set
@@@ -215,12 -214,12 +214,12 @@@ T{ FN2 R/W BIN OPEN-FILE SWAP DROP 0= -
  T{ FN2 DELETE-FILE 0= -> FALSE }T
  
  \ ----------------------------------------------------------------------------
 -\ TESTING multi-line ( comments
 -\ 
 -\ T{ ( 1 2 3
 -\ 4 5 6
 -\ 7 8 9 ) 11 22 33 -> 11 22 33 }T
 -\ 
 +TESTING multi-line ( comments
 +
 +T{ ( 1 2 3
 +4 5 6
 +7 8 9 ) 11 22 33 -> 11 22 33 }T
 +
  \ ----------------------------------------------------------------------------
  TESTING SOURCE-ID (can only test it does not return 0 or -1)