Update to new STklos ffi

.gitignore

@@ -2,6 +2,8 @@
 !include/pffi-gauche.h
 !include/libtest.h
 *.c
+!tests/c-src/*.c
+!tests/c-include/*.h
 !src/libtest.c
 !src/gauche/pffi.c
 *.swp
@@ -39,10 +41,7 @@ dockerfiles/build
 .scheme_testrunner
 core
 testfile.test
-tests/compliance
-tests/retropikzel
 *.rkt
 testfile.test
-tests/testfile.test
 snow
 foreign/c/lib

dockerfiles/build-chibi

@@ -1,2 +0,0 @@
-FROM schemers/chibi
-RUN apt-get update && apt-get install -y build-essential

dockerfiles/jenkins

@@ -1,2 +0,0 @@
-FROM debian:trixie
-RUN apt update && apt install -y docker.io make bash curl zip unzip openjdk-22-jdk build-essential

foreign/c.sld

@@ -143,44 +143,8 @@
                     cpointer-null?
                     cpointer-data
                     cpointer-data-set!
-                    ;c-bytevector-s8-set!
+                    cpointer-set!
-                    ;c-bytevector-s8-set!
+                    cpointer-ref
-                    cpointer-set-int8!
-                    cpointer-ref-int8
-                    cpointer-set-uint8!
-                    cpointer-ref-uint8
-                    cpointer-set-int16!
-                    cpointer-ref-int16
-                    cpointer-set-uint16!
-                    cpointer-ref-uint16
-                    cpointer-set-int32!
-                    cpointer-ref-int32
-                    cpointer-set-uint32!
-                    cpointer-ref-uint32
-                    cpointer-set-int64!
-                    cpointer-ref-int64
-                    cpointer-set-uint64!
-                    cpointer-ref-uint64
-                    cpointer-set-char!
-                    cpointer-ref-char
-                    cpointer-set-short!
-                    cpointer-ref-short
-                    cpointer-set-unsigned-short!
-                    cpointer-ref-unsigned-short
-                    cpointer-set-int!
-                    cpointer-ref-int
-                    cpointer-set-unsigned-int!
-                    cpointer-ref-unsigned-int
-                    cpointer-set-long!
-                    cpointer-ref-long
-                    cpointer-set-unsigned-long!
-                    cpointer-ref-unsigned-long
-                    cpointer-set-float!
-                    cpointer-ref-float
-                    cpointer-set-double!
-                    cpointer-ref-double
-                    cpointer-set-pointer!
-                    cpointer-ref-pointer
                     void?))
       (export ; calculate-struct-size-and-offsets
               ;struct-make

foreign/c/primitives/stklos.scm

@@ -93,10 +93,21 @@
           ((equal? type 'double) 8)
           ((equal? type 'pointer) 8))))
 
-(define c-bytevector-u8-set! cpointer-set-uint8!)
+(define c-bytevector-u8-set!
-(define c-bytevector-u8-ref cpointer-ref-uint8)
+  (lambda (pointer offset value)
-(define c-bytevector-pointer-set! cpointer-set-pointer!)
+  (cpointer-set! pointer :uint8 value offset)))
-(define c-bytevector-pointer-ref cpointer-ref-pointer)
+
+(define c-bytevector-u8-ref
+  (lambda (pointer offset)
+    (cpointer-ref pointer :uint8 offset)))
+
+(define c-bytevector-pointer-set!
+  (lambda (pointer offset value)
+    (cpointer-set! pointer :pointer value offset)))
+
+(define c-bytevector-pointer-ref
+  (lambda (pointer offset)
+    (cpointer-ref pointer :pointer offset)))
 
 #;(define pffi-pointer-set!
   (lambda (pointer type offset value)