Small fixes. Implementing some pointer address and deref procedures

retropikzel/r7rs-pffi.sld

@@ -76,6 +76,7 @@
           pffi-size-of
           pffi-pointer-allocate
           pffi-pointer-address
+          pffi-pointer-dereference
           pffi-pointer-null
           pffi-string->pointer
           pffi-pointer->string

retropikzel/r7rs-pffi/chicken.scm

@@ -148,8 +148,11 @@
 
 (define pffi-pointer-address
   (lambda (pointer)
-    ;; TODO
-    pointer))
+    (pointer->address pointer)))
+
+(define pffi-pointer-dereference
+  (lambda (pointer)
+    (pointer->address pointer)))
 
 (define pffi-pointer-null
   (lambda ()

retropikzel/r7rs-pffi/guile.scm

@@ -54,8 +54,11 @@
 
 (define pffi-pointer-address
   (lambda (pointer)
-    ;; TODO
-    pointer))
+    (pointer-address pointer)))
+
+(define pffi-pointer-dereference
+  (lambda (pointer)
+    (dereference-pointer pointer)))
 
 (define pffi-pointer-null
   (lambda ()

retropikzel/r7rs-pffi/kawa.scm

@@ -135,8 +135,11 @@
 
 (define pffi-pointer-address
   (lambda (pointer)
-    ;; TODO
-    pointer))
+    (invoke pointer 'get (invoke (static-field java.lang.foreign.ValueLayout 'ADDRESS) 'withByteAlignment 1) 0)))
+
+(define pffi-pointer-dereference
+  (lambda (pointer)
+    (invoke pointer 'get (invoke (static-field java.lang.foreign.ValueLayout 'ADDRESS) 'withByteAlignment 1) 0)))
 
 (define pffi-pointer-null
   (lambda ()

retropikzel/r7rs-pffi/sagittarius.scm

@@ -77,6 +77,10 @@
   (lambda (pointer)
     (address pointer)))
 
+(define pffi-pointer-dereference
+  (lambda (pointer)
+    (deref pointer 0)))
+
 (define pffi-pointer-null
   (lambda ()
     (empty-pointer)))
@@ -95,6 +99,10 @@
       (looper 0)
       pointer)))
 
+(define pffi-string->pointer
+  (lambda (string-content)
+    string-content))
+
 (define pffi-pointer->string
   (lambda (pointer)
       (pointer->string pointer)))