Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding getpwuid_r/getpwnam_r interface

Browse source
This commit is contained in:
Alex Shinn 2011-04-04 23:39:37 +09:00
parent 6c8ea93655
commit 262522d435
2 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/system.module
View file

@ -1,6 +1,6 @@
(define-module (chibi system) (define-module (chibi system)
(export user-information user-name user-password (export user-information user? user-name user-password
user-id user-group-id user-gecos user-home user-shell user-id user-group-id user-gecos user-home user-shell
current-user-id current-group-id current-user-id current-group-id
current-effective-user-id current-effective-group-id current-effective-user-id current-effective-group-id
@ -10,6 +10,4 @@
set-root-directory!) set-root-directory!)
(import-immutable (scheme)) (import-immutable (scheme))
(include-shared "system") (include-shared "system")
;;(include "system.scm") (include "system.scm"))
)

9
lib/chibi/system.stub
View file

@ -28,7 +28,10 @@
(define-c errno (set-root-directory! "chroot") (string)) (define-c errno (set-root-directory! "chroot") (string))
;; (define-c errno getpwuid_r (define-c errno getpwuid_r
;; (uid_t (result passwd) (result (array char arg3)) (uid_t (result passwd) (result (array char arg3))
;; (value 256 int) (result pointer passwd))) (value 1024 int) (result pointer passwd)))
(define-c errno getpwnam_r
(string (result passwd) (result (array char arg3))
(value 1024 int) (result pointer passwd)))