>From 8729bc4de7d8faebfad60766b5302fe807607f99 Mon Sep 17 00:00:00 2001 From: Kristian Lein-Mathisen Date: Sat, 5 May 2018 12:33:27 +0200 Subject: [PATCH] Add namespaces to procedure-information for various procedures Signed-off-by: Evan Hanson --- library.scm | 5 +++-- lolevel.scm | 28 ++++++++++++++-------------- posix-common.scm | 16 ++++++++++------ posixunix.scm | 13 +++++++------ srfi-4.scm | 20 ++++++++++---------- 5 files changed, 44 insertions(+), 38 deletions(-) diff --git a/library.scm b/library.scm index 47648ea3..63ed10f3 100644 --- a/library.scm +++ b/library.scm @@ -5965,7 +5965,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: @@ -6324,7 +6325,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 6b22a54b..761d61aa 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: @@ -525,7 +528,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: @@ -595,7 +598,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: -- 2.11.0