~ chicken-core (chicken-5) 03cdfdcb723931e1fbdb4a1e0a6b36d6ce90cf9d
commit 03cdfdcb723931e1fbdb4a1e0a6b36d6ce90cf9d
Author: Kristian Lein-Mathisen <kristian@adellica.com>
AuthorDate: Sat May 5 12:33:27 2018 +0200
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Mon May 21 12:35:29 2018 +0200
Add namespaces to procedure-information for various procedures
Signed-off-by: Evan Hanson <evhan@foldling.org>
Signed-off-by: Peter Bex <peter@more-magic.net>
diff --git a/library.scm b/library.scm
index d05d85c2..a8757157 100644
--- a/library.scm
+++ b/library.scm
@@ -5964,7 +5964,8 @@ static C_word C_fcall C_setenv(C_word x, C_word y) {
#:file-error
'current-directory "cannot retrieve current directory"))))
(lambda (dir)
- (##sys#change-directory-hook dir))))
+ (##sys#change-directory-hook dir))
+ "(chicken.process-context#current-directory)"))
;;; Environment access:
@@ -6320,7 +6321,7 @@ static C_word C_fcall C_setenv(C_word x, C_word y) {
(if (null? lst)
(##core#inline "C_i_unpersist_symbol" sym)
(##core#inline "C_i_persist_symbol" sym)))
- "(symbol-plist sym)"))
+ "(chicken.plist#symbol-plist sym)"))
(define (get-properties sym props)
(##sys#check-symbol sym 'get-properties)
diff --git a/lolevel.scm b/lolevel.scm
index c80a7eb6..5db8301f 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -277,61 +277,61 @@ EOF
(getter-with-setter
(lambda (p) (##core#inline "C_u_i_pointer_u8_ref" p))
pointer-u8-set!
- "(pointer-u8-ref p)"))
+ "(chicken.memory#pointer-u8-ref p)"))
(define pointer-s8-ref
(getter-with-setter
(lambda (p) (##core#inline "C_u_i_pointer_s8_ref" p))
pointer-s8-set!
- "(pointer-s8-ref p)"))
+ "(chicken.memory#pointer-s8-ref p)"))
(define pointer-u16-ref
(getter-with-setter
(lambda (p) (##core#inline "C_u_i_pointer_u16_ref" p))
pointer-u16-set!
- "(pointer-u16-ref p)"))
+ "(chicken.memory#pointer-u16-ref p)"))
(define pointer-s16-ref
(getter-with-setter
(lambda (p) (##core#inline "C_u_i_pointer_s16_ref" p))
pointer-s16-set!
- "(pointer-s16-ref p)"))
+ "(chicken.memory#pointer-s16-ref p)"))
(define pointer-u32-ref
(getter-with-setter
(lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_u32_ref" 6) p)) ;XXX hardcoded size
pointer-u32-set!
- "(pointer-u32-ref p)"))
+ "(chicken.memory#pointer-u32-ref p)"))
(define pointer-s32-ref
(getter-with-setter
(lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_s32_ref" 6) p)) ;XXX hardcoded size
pointer-s32-set!
- "(pointer-s32-ref p)"))
+ "(chicken.memory#pointer-s32-ref p)"))
(define pointer-u64-ref
(getter-with-setter
(lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_u64_ref" 7) p)) ;XXX hardcoded size
pointer-u64-set!
- "(pointer-u64-ref p)"))
+ "(chicken.memory#pointer-u64-ref p)"))
(define pointer-s64-ref
(getter-with-setter
(lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_s64_ref" 7) p)) ;XXX hardcoded size
pointer-s64-set!
- "(pointer-s64-ref p)"))
+ "(chicken.memory#pointer-s64-ref p)"))
(define pointer-f32-ref
(getter-with-setter
(lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_f32_ref" 4) p)) ;XXX hardcoded size
pointer-f32-set!
- "(pointer-f32-ref p)"))
+ "(chicken.memory#pointer-f32-ref p)"))
(define pointer-f64-ref
(getter-with-setter
(lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_f64_ref" 4) p)) ;XXX hardcoded size
pointer-f64-set!
- "(pointer-f64-ref p)"))
+ "(chicken.memory#pointer-f64-ref p)"))
;;; pointer vectors
@@ -397,7 +397,7 @@ EOF
(##sys#check-range i 0 (##sys#slot pv 1)) ; len
(pv-buf-ref (##sys#slot pv 2) i)) ; buf
pointer-vector-set!
- "(pointer-vector-ref pv i)"))
+ "(chicken.memory#pointer-vector-ref pv i)"))
(define (pointer-vector-length pv)
(##sys#check-structure pv 'pointer-vector 'pointer-vector-length)
@@ -472,7 +472,7 @@ EOF
(define block-ref
(getter-with-setter
- ##sys#block-ref ##sys#block-set! "(block-ref x i)"))
+ ##sys#block-ref ##sys#block-set! "(chicken.memory.representation#block-ref x i)"))
(define (number-of-slots x)
(##sys#check-generic-vector x 'number-of-slots)
@@ -525,7 +525,7 @@ EOF
(##sys#check-range i 0 (fx- (##sys#size x) 1) 'record-instance-slot)
(##sys#slot x (fx+ i 1)) )
record-instance-slot-set!
- "(record-instance-slot x i)"))
+ "(chicken.memory.representation#record-instance-slot x i)"))
(define (record->vector x)
(##sys#check-generic-structure x 'record->vector)
@@ -594,7 +594,7 @@ EOF
(lambda (loc)
(##core#inline_allocate ("C_a_i_locative_ref" 6) loc))
locative-set!
- "(locative-ref loc)"))
+ "(chicken.locative#locative-ref loc)"))
(define (locative->object x)
(##core#inline "C_i_locative_to_object" x))
diff --git a/posix-common.scm b/posix-common.scm
index 49d801ce..0b675cea 100644
--- a/posix-common.scm
+++ b/posix-common.scm
@@ -281,19 +281,22 @@ EOF
(set! chicken.file.posix#file-owner
(getter-with-setter
(lambda (f) (stat f #f #t 'file-owner) _stat_st_uid)
- chicken.file.posix#set-file-owner!) )
+ chicken.file.posix#set-file-owner!
+ "(chicken.file.posix#file-owner f)") )
(set! chicken.file.posix#file-group
(getter-with-setter
(lambda (f) (stat f #f #t 'file-group) _stat_st_gid)
- chicken.file.posix#set-file-group!) )
+ chicken.file.posix#set-file-group!
+ "(chicken.file.posix#file-group f)") )
(set! chicken.file.posix#file-permissions
(getter-with-setter
(lambda (f)
(stat f #f #t 'file-permissions)
(foreign-value "C_stat_perm" unsigned-int))
- chicken.file.posix#set-file-permissions! ))
+ chicken.file.posix#set-file-permissions!
+ "(chicken.file.posix#file-permissions f)"))
(set! chicken.file.posix#file-type
(lambda (file #!optional link (err #t))
@@ -377,7 +380,7 @@ EOF
(posix-error #:file-error 'file-position "cannot retrieve file position of port" port) )
pos) )
chicken.file.posix#set-file-position! ; doesn't accept WHENCE
- "(file-position port)"))
+ "(chicken.file.posix#file-position port)"))
;;; Using file-descriptors:
@@ -531,7 +534,7 @@ EOF
(lambda (um)
(##sys#check-fixnum um 'file-creation-mode)
(##core#inline "C_umask" um))
- "(file-creation-mode mode)"))
+ "(chicken.file.posix#file-creation-mode mode)"))
;;; Time related things:
@@ -601,7 +604,8 @@ EOF
(lambda (sig)
(##sys#check-fixnum sig 'signal-handler)
(##sys#slot ##sys#signal-vector sig) )
- chicken.process.signal#set-signal-handler!))
+ chicken.process.signal#set-signal-handler!
+ "(chicken.process.signal#signal-handler sig)"))
;;; Processes
diff --git a/posixunix.scm b/posixunix.scm
index a4995598..e569ce97 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -579,7 +579,8 @@ static int set_file_mtime(char *filename, C_word atime, C_word mtime)
(let ([sig (car sigs)])
(loop (cdr sigs)
(if (##core#inline "C_sigismember" sig) (cons sig mask) mask)) ) ) ) )
- chicken.process.signal#set-signal-mask!))
+ chicken.process.signal#set-signal-mask!
+ "(chicken.process.signal#signal-mask)"))
(set! chicken.process.signal#signal-masked?
(lambda (sig)
@@ -613,7 +614,7 @@ static int set_file_mtime(char *filename, C_word atime, C_word mtime)
(when (fx< (##core#inline "C_setuid" id) 0)
(##sys#update-errno)
(##sys#error 'current-user-id!-setter "cannot set user ID" id) ) )
- "(current-user-id)"))
+ "(chicken.process-context.posix#current-user-id)"))
(set! chicken.process-context.posix#current-effective-user-id
(getter-with-setter
@@ -623,7 +624,7 @@ static int set_file_mtime(char *filename, C_word atime, C_word mtime)
(##sys#update-errno)
(##sys#error
'effective-user-id!-setter "cannot set effective user ID" id) ) )
- "(current-effective-user-id)"))
+ "(chicken.process-context.posix#current-effective-user-id)"))
(set! chicken.process-context.posix#current-group-id
(getter-with-setter
@@ -632,7 +633,7 @@ static int set_file_mtime(char *filename, C_word atime, C_word mtime)
(when (fx< (##core#inline "C_setgid" id) 0)
(##sys#update-errno)
(##sys#error 'current-group-id!-setter "cannot set group ID" id) ) )
- "(current-group-id)") )
+ "(chicken.process-context.posix#current-group-id)") )
(set! chicken.process-context.posix#current-effective-group-id
(getter-with-setter
@@ -642,7 +643,7 @@ static int set_file_mtime(char *filename, C_word atime, C_word mtime)
(##sys#update-errno)
(##sys#error
'effective-group-id!-setter "cannot set effective group ID" id) ) )
- "(current-effective-group-id)") )
+ "(chicken.process-context.posix#current-effective-group-id)") )
(define-foreign-variable _user-name nonnull-c-string "C_user->pw_name")
(define-foreign-variable _user-passwd nonnull-c-string "C_user->pw_passwd")
@@ -720,7 +721,7 @@ static int set_file_mtime(char *filename, C_word atime, C_word mtime)
(when (fx< (##core#inline "C_setpgid" pid pgid) 0)
(##sys#update-errno)
(##sys#error 'process-group "cannot set process group ID" pid pgid) ) )
- "(process-group-id pid)"))
+ "(chicken.process-context.posix#process-group-id pid)"))
;;; Hard and symbolic links:
diff --git a/srfi-4.scm b/srfi-4.scm
index 0db91b4e..8480dd72 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -252,7 +252,7 @@ EOF
(check-range i 0 len 'u8vector-ref)
(##core#inline "C_u_i_u8vector_ref" x i)))
u8vector-set!
- "(u8vector-ref v i)"))
+ "(chicken.srfi-4#u8vector-ref v i)"))
(define s8vector-ref
(getter-with-setter
@@ -262,7 +262,7 @@ EOF
(check-range i 0 len 's8vector-ref)
(##core#inline "C_u_i_s8vector_ref" x i)))
s8vector-set!
- "(s8vector-ref v i)"))
+ "(chicken.srfi-4#s8vector-ref v i)"))
(define u16vector-ref
(getter-with-setter
@@ -272,7 +272,7 @@ EOF
(check-range i 0 len 'u16vector-ref)
(##core#inline "C_u_i_u16vector_ref" x i)))
u16vector-set!
- "(u16vector-ref v i)"))
+ "(chicken.srfi-4#u16vector-ref v i)"))
(define s16vector-ref
(getter-with-setter
@@ -282,7 +282,7 @@ EOF
(check-range i 0 len 's16vector-ref)
(##core#inline "C_u_i_s16vector_ref" x i)))
s16vector-set!
- "(s16vector-ref v i)"))
+ "(chicken.srfi-4#s16vector-ref v i)"))
(define u32vector-ref
(getter-with-setter
@@ -292,7 +292,7 @@ EOF
(check-range i 0 len 'u32vector-ref)
(##core#inline_allocate ("C_a_u_i_u32vector_ref" 6) x i)))
u32vector-set!
- "(u32vector-ref v i)"))
+ "(chicken.srfi-4#u32vector-ref v i)"))
(define s32vector-ref
(getter-with-setter
@@ -302,7 +302,7 @@ EOF
(check-range i 0 len 's32vector-ref)
(##core#inline_allocate ("C_a_u_i_s32vector_ref" 6) x i)))
s32vector-set!
- "(s32vector-ref v i)"))
+ "(chicken.srfi-4#s32vector-ref v i)"))
(define u64vector-ref
(getter-with-setter
@@ -312,7 +312,7 @@ EOF
(check-range i 0 len 'u64vector-ref)
(##core#inline_allocate ("C_a_u_i_u64vector_ref" 7) x i)))
u64vector-set!
- "(u64vector-ref v i)"))
+ "(chicken.srfi-4#u64vector-ref v i)"))
(define s64vector-ref
(getter-with-setter
@@ -322,7 +322,7 @@ EOF
(check-range i 0 len 's64vector-ref)
(##core#inline_allocate ("C_a_u_i_s64vector_ref" 7) x i)))
s64vector-set!
- "(s64vector-ref v i)"))
+ "(chicken.srfi-4#s64vector-ref v i)"))
(define f32vector-ref
(getter-with-setter
@@ -332,7 +332,7 @@ EOF
(check-range i 0 len 'f32vector-ref)
(##core#inline_allocate ("C_a_u_i_f32vector_ref" 4) x i)))
f32vector-set!
- "(f32vector-ref v i)"))
+ "(chicken.srfi-4#f32vector-ref v i)"))
(define f64vector-ref
(getter-with-setter
@@ -342,7 +342,7 @@ EOF
(check-range i 0 len 'f64vector-ref)
(##core#inline_allocate ("C_a_u_i_f64vector_ref" 4) x i)))
f64vector-set!
- "(f64vector-ref v i)"))
+ "(chicken.srfi-4#f64vector-ref v i)"))
;;; Basic constructors:
Trap