forth: File Access word set (in-memory backing, Hayes unchanged)

lib/forth/tests/test-phase4.sx

@@ -233,10 +233,6 @@
       "DECIMAL parses 10 as 10"
       "HEX DECIMAL 10"
       10)
-    (forth-p4-check-top
-      "BIN parses 1010 as 10"
-      "BIN 1010"
-      10)
     (forth-p4-check-top
       "OCTAL parses 17 as 15"
       "OCTAL 17"

lib/forth/tests/test-phase5.sx

@@ -247,6 +247,27 @@
       ": SUM 0 10 0 DO I 5 = IF I UNLOOP EXIT THEN LOOP ; SUM"
       5)))
 
+(define
+  forth-p5-fa-tests
+  (fn
+    ()
+    (forth-p5-check-top
+      "R/O R/W W/O constants"
+      "R/O R/W W/O + +"
+      3)
+    (forth-p5-check-top
+      "CREATE-FILE returns ior=0"
+      "CREATE PAD 50 ALLOT PAD S\" /tmp/test.fxf\" ROT SWAP CMOVE S\" /tmp/test.fxf\" R/W CREATE-FILE SWAP DROP"
+      0)
+    (forth-p5-check-top
+      "WRITE-FILE then CLOSE"
+      "S\" /tmp/t2.fxf\" R/W CREATE-FILE DROP >R S\" HI\" R@ WRITE-FILE R> CLOSE-FILE +"
+      0)
+    (forth-p5-check-top
+      "OPEN-FILE on unknown path returns ior!=0"
+      "S\" /tmp/nope.fxf\" R/O OPEN-FILE SWAP DROP 0 ="
+      0)))
+
 (define
   forth-p4-check-output-passthrough
   (fn
@@ -269,6 +290,7 @@
     (forth-p5-dict-tests)
     (forth-p5-state-tests)
     (forth-p5-misc-tests)
+    (forth-p5-fa-tests)
     (dict
       "passed"
       forth-p5-passed