From bddc6ea95ac109fd51779cda9588ef89877257ea Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Thu, 22 Jan 2026 10:52:08 +0200
Subject: [PATCH] Update SRFI-170 to use latest (foreign c)

---
 srfi/170.scm     | 66 +++++++++++++++++++++++++-----------------------
 srfi/170/VERSION |  2 +-
 2 files changed, 35 insertions(+), 33 deletions(-)

diff --git a/srfi/170.scm b/srfi/170.scm
index 71256dc..03bb257 100644
--- a/srfi/170.scm
+++ b/srfi/170.scm
@@ -176,11 +176,12 @@
   (letrec* ((looper (lambda (c index result)
                       (if (char=? c #\null)
                         (list->string (reverse result))
-                        (looper (c-bytevector-char-ref pointer
-                                                       (+ offset index))
+                        (looper (c-bytevector-ref pointer
+                                                  'char
+                                                  (+ offset index))
                                 (+ index 1)
                                 (cons c result))))))
-    (looper (c-bytevector-char-ref pointer offset) 1 (list))))
+    (looper (c-bytevector-ref pointer 'char offset) 1 (list))))
 
 ; struct dirent d_name offset on linux
 (define d-name-offset 19)
@@ -332,10 +333,10 @@
                  (+ count 1)
                  groups-pointer
                  (append result
-                         (list (c-bytevector-sint-ref groups-pointer
-                                                      (* (c-type-size 'int) count)
-                                                      (native-endianness)
-                                                      (c-type-size 'int)))))))
+                         (list (c-bytevector-ref groups-pointer
+                                                 'int
+                                                 (* (c-type-size 'int) count)
+                                                 ))))))
 
 (define (user-supplementary-gids)
   (let* ((group-count (c-getgroups 0 (make-c-null)))
@@ -357,26 +358,28 @@
   (let ((password-struct (if (number? uid/name)
                            (c-getpwuid uid/name)
                            (c-getpwnam (string->c-utf8 uid/name)))))
-    (make-user-info (c-utf8->string (c-bytevector-pointer-ref password-struct
-                                                              0))
-                    (c-bytevector-sint-ref password-struct
-                                           (* (c-type-size 'pointer) 2)
-                                           (native-endianness)
-                                           (c-type-size 'int))
-                    (c-bytevector-sint-ref password-struct
-                                           (+ (* (c-type-size 'pointer) 2)
-                                              (c-type-size 'int))
-                                           (native-endianness)
-                                           (c-type-size 'int))
-                    (c-utf8->string (c-bytevector-pointer-ref password-struct
-                                                              (+ (* (c-type-size 'pointer) 3)
-                                                                 (* (c-type-size 'int) 2))))
-                    (c-utf8->string (c-bytevector-pointer-ref password-struct
-                                                              (+ (* (c-type-size 'pointer) 4)
-                                                                 (* (c-type-size 'int) 2))))
-                    (c-utf8->string (c-bytevector-pointer-ref password-struct
-                                                              (+ (* (c-type-size 'pointer) 2)
-                                                                 (* (c-type-size 'int) 2)))))))
+    (make-user-info (c-utf8->string (c-bytevector-ref password-struct
+                                                      'pointer
+                                                      0))
+                    (c-bytevector-ref password-struct
+                                      'int
+                                      (* (c-type-size 'pointer) 2))
+                    (c-bytevector-ref password-struct
+                                      'int
+                                      (+ (* (c-type-size 'pointer) 2)
+                                         (c-type-size 'int)))
+                    (c-utf8->string (c-bytevector-ref password-struct
+                                                      'pointer
+                                                      (+ (* (c-type-size 'pointer) 3)
+                                                         (* (c-type-size 'int) 2))))
+                    (c-utf8->string (c-bytevector-ref password-struct
+                                                      'pointer
+                                                      (+ (* (c-type-size 'pointer) 4)
+                                                         (* (c-type-size 'int) 2))))
+                    (c-utf8->string (c-bytevector-ref password-struct
+                                                      'pointer
+                                                      (+ (* (c-type-size 'pointer) 2)
+                                                         (* (c-type-size 'int) 2)))))))
 
 
 (define-record-type <group-info>
@@ -390,11 +393,10 @@
                         (c-getgrgid gid/name)
                         (c-getgrnam (string->c-utf8 gid/name)))))
     (make-group-info
-      (c-utf8->string (c-bytevector-pointer-ref group-struct 0))
-      (c-bytevector-sint-ref group-struct
-                             (* (c-type-size 'pointer) 2)
-                             (native-endianness)
-                             (c-type-size 'int)))))
+      (c-utf8->string (c-bytevector-ref group-struct 'pointer 0))
+      (c-bytevector-ref group-struct
+                        'int
+                        (* (c-type-size 'pointer) 2)))))
 
 (define (set-environment-variable! name value)
   (c-setenv (string->c-utf8 name) (string->c-utf8 value) 1))
diff --git a/srfi/170/VERSION b/srfi/170/VERSION
index 17e51c3..d917d3e 100644
--- a/srfi/170/VERSION
+++ b/srfi/170/VERSION
@@ -1 +1 @@
-0.1.1
+0.1.2