From 470d13dd98327a5e0af25964481e7d8e9f0ea1af Mon Sep 17 00:00:00 2001
From: Andrew Whatson <whatson@gmail.com>
Date: Sun, 17 Jul 2022 00:23:47 +1000
Subject: [PATCH] Stub remaining prescheme interface symbols

---
 language/prescheme/core.scm | 35 +++++++++++++++++++++++++++++++++--
 prescheme/memory.scm        | 21 ++++++++++++++++++++-
 prescheme/prescheme.scm     | 22 +++++++++++++++++++++-
 prescheme/scheme48.scm      | 17 ++++++++++++++++-
 4 files changed, 90 insertions(+), 5 deletions(-)

diff --git a/language/prescheme/core.scm b/language/prescheme/core.scm
index 0c5c758..8562a83 100644
--- a/language/prescheme/core.scm
+++ b/language/prescheme/core.scm
@@ -13,7 +13,8 @@
   #:use-module (prescheme ps-defenum)
   #:use-module (prescheme memory)
   #:re-export
-  (if begin lambda letrec quote set!
+  (;; prescheme-interface
+   if begin lambda letrec quote set!
    define define-syntax let-syntax letrec-syntax
    and cond case do let let* or
    quasiquote
@@ -71,4 +72,34 @@
    bitwise-and bitwise-ior bitwise-xor bitwise-not
    unspecific
    error
-   ))
+
+   ;; ps-memory-interface
+   allocate-memory
+   deallocate-memory
+
+   unsigned-byte-ref unsigned-byte-set!
+   word-ref word-set!
+   flonum-ref flonum-set!
+
+   address?
+   null-address null-address?
+
+   address+ address- address-difference
+   address= address< address<= address> address>=
+   address->integer integer->address
+
+   copy-memory! memory-equal?
+
+   char-pointer->string char-pointer->nul-terminated-string
+
+   read-block write-block
+
+   ;; ps-flonums-interface
+   fl+ fl- fl* fl/ fl= fl< fl> fl<= fl>=
+
+   ;; ps-unsigned-integers-interface
+   un+ un- un* unquotient unremainder un= un< un> un<= un>=
+   unsigned->integer integer->unsigned
+
+   ;; ps-receive-interface
+   receive))
diff --git a/prescheme/memory.scm b/prescheme/memory.scm
index a3f7a15..26cd0ec 100644
--- a/prescheme/memory.scm
+++ b/prescheme/memory.scm
@@ -28,7 +28,26 @@
 (define-module (prescheme memory)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-9 gnu)
-  #:use-module (prescheme scheme48))
+  #:use-module (prescheme scheme48)
+  #:export (allocate-memory
+            deallocate-memory
+
+            unsigned-byte-ref unsigned-byte-set!
+            word-ref word-set!
+            flonum-ref flonum-set!
+
+            address?
+            null-address null-address?
+
+            address+ address- address-difference
+            address= address< address<= address> address>=
+            address->integer integer->address
+
+            copy-memory! memory-equal?
+
+            char-pointer->string char-pointer->nul-terminated-string
+
+            read-block write-block))
 
 (define-record-type :address
   (make-address index)
diff --git a/prescheme/prescheme.scm b/prescheme/prescheme.scm
index 8082106..894f21f 100644
--- a/prescheme/prescheme.scm
+++ b/prescheme/prescheme.scm
@@ -32,7 +32,11 @@
 
             goto
             external
-            ))
+
+            fl+ fl- fl* fl/ fl= fl< fl> fl<= fl>=
+
+            un+ un- un* unquotient unremainder un= un< un> un<= un>=
+            unsigned->integer integer->unsigned))
 
 (define shift-left arithmetic-shift)
 
@@ -159,3 +163,19 @@
         (cadddr exp))))
 
 (define current-error-port current-output-port)
+
+;; ps-flonums
+(define fl+ +) (define fl- -) (define fl* *) (define fl/ /)
+(define fl= =)
+(define fl< <) (define fl> >)
+(define fl<= <=) (define fl>= >=)
+
+;; ps-unsigned-integers
+(define un+ +) (define un- -) (define un* *)
+(define unquotient quotient)
+(define unremainder remainder)
+(define un= =)
+(define un< <) (define un> >)
+(define un<= <=) (define un>= >=)
+(define (unsigned->integer x) x)
+(define (integer->unsigned x) x)
diff --git a/prescheme/scheme48.scm b/prescheme/scheme48.scm
index a45d335..999309c 100644
--- a/prescheme/scheme48.scm
+++ b/prescheme/scheme48.scm
@@ -4,11 +4,21 @@
 ;;;
 
 (define-module (prescheme scheme48)
+  #:use-module (srfi srfi-8)
+  #:use-module (srfi srfi-60)
   #:export (arithmetic-shift
             define-enumeration
             enum
             name->enumerand
-            enumerand->name))
+            enumerand->name
+            ascii->char
+            char->ascii
+            unspecific)
+  #:re-export (bitwise-and
+               bitwise-ior
+               bitwise-xor
+               bitwise-not
+               receive))
 
 (define arithmetic-shift ash)
 
@@ -19,3 +29,8 @@
 (define enum (const #f))
 (define name->enumerand (const #f))
 (define enumerand->name (const #f))
+
+(define ascii->char (const #f))
+(define char->ascii (const #f))
+
+(define unspecific (const #f))