From bfb48545dd4310c422007dfc1dc3b9eb2897d125 Mon Sep 17 00:00:00 2001
From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Wed, 2 Jun 2021 00:05:11 +1000
Subject: [PATCH] added open-file" and load-file"

---
 compile.asm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/compile.asm b/compile.asm
index d5fee48..fe19b20 100644
--- a/compile.asm
+++ b/compile.asm
@@ -340,3 +340,25 @@ p_evaluate_stream_BAD:
 	mov rax,qword [rax]	; tfa of most recent word
 	mov qword [rax+16],1	; set the flags field to 1
 	next
+
+	WORD p_open_file_quote,'OPEN-FILE"'
+	;; ( "name" -- fd )
+	dq p_double_quote
+	dq p_create
+	dq p_tfa2namez
+	dq p_literal,0
+	dq p_literal,0
+	dq sys_open
+	dq p_exit
+
+	WORD p_load_file_quote,'LOAD-FILE"'
+	;; ( "name" -- )
+	;; Create a word for the nominated file for a stream to,
+	;; and store that stream pointer, then invoke evaluate-stream
+	dq p_open_file_quote ; fd
+	dq p_literal, 15000 ; buffer size
+	dq p_stream
+	dq p_dup
+	dq p_comma
+	dq p_evaluate_stream
+	dq p_exit
-- 
2.39.2