From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Tue, 1 Jun 2021 14:05:11 +0000 (+1000)
Subject: added open-file" and load-file"
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=bfb48545dd4310c422007dfc1dc3b9eb2897d125;p=rrq%2Frrqforth.git

added open-file" and load-file"
---

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