Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing Gauche

This commit is contained in:
retropikzel 2025-07-26 09:01:39 +03:00
parent 2c9db098e6
commit f18a54aab4
5 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
foreign/c/pointer.scm
View File

@ -100,13 +100,14 @@
(chicken #t) ; FIXME (chicken #t) ; FIXME
(kawa #t) ; FIXME (kawa #t) ; FIXME
(chibi #t) (chibi #t)
(gauche (define c-null? pointer-null?))
(else (define c-null? (else (define c-null?
(lambda (pointer) (lambda (pointer)
(display "HERE123: ") (display "HERE123: ")
(write pointer) (write pointer)
(newline) (newline)
(if (c-bytevector? pointer) (if (c-bytevector? pointer)
#t ;(= (c-memset-pointer->address pointer 0 0) 0) #t (= (c-memset-pointer->address pointer 0 0) 0)
#f))))) #f)))))
#;(define c-bytevector->address #;(define c-bytevector->address

5
foreign/c/primitives/gauche.scm
View File

@ -6,7 +6,7 @@
c-bytevector-pointer-set! c-bytevector-pointer-set!
c-bytevector-pointer-ref c-bytevector-pointer-ref
;pointer-null ;pointer-null
;pointer-null? pointer-null?
;make-c-bytevector ;make-c-bytevector
;pointer-address ;pointer-address
c-bytevector? c-bytevector?
@ -17,8 +17,7 @@
define-c-callback define-c-callback
dlerror dlerror
dlsym dlsym
internal-ffi-call internal-ffi-call))
))
(select-module foreign.c.primitives.gauche) (select-module foreign.c.primitives.gauche)
(dynamic-load "foreign/c/lib/gauche") (dynamic-load "foreign/c/lib/gauche")

2
foreign/c/primitives/gauche/foreign-c-primitives-gauche.c
View File

@ -60,7 +60,6 @@ ScmObj pointer_null() {
} }
*/ */
/*
ScmObj is_pointer_null(ScmObj pointer) { ScmObj is_pointer_null(ScmObj pointer) {
if(!Scm_TypeP(pointer, SCM_CLASS_FOREIGN_POINTER)) { if(!Scm_TypeP(pointer, SCM_CLASS_FOREIGN_POINTER)) {
return SCM_FALSE; return SCM_FALSE;
@ -71,7 +70,6 @@ ScmObj is_pointer_null(ScmObj pointer) {
return SCM_FALSE; return SCM_FALSE;
} }
} }
*/
/* /*
ScmObj pointer_allocate(int size) { ScmObj pointer_allocate(int size) {

2
foreign/c/primitives/gauche/foreign-c-primitives-gauche.h
View File

@ -21,7 +21,7 @@ extern ScmObj size_of_pointer();
extern ScmObj size_of_void(); extern ScmObj size_of_void();
extern ScmObj shared_object_load(ScmString* path, ScmObj options); extern ScmObj shared_object_load(ScmString* path, ScmObj options);
//extern ScmObj pointer_null(); //extern ScmObj pointer_null();
//extern ScmObj is_pointer_null(); extern ScmObj is_pointer_null();
//extern ScmObj pointer_allocate(int size); //extern ScmObj pointer_allocate(int size);
//extern ScmObj pointer_address(ScmObj pointer); //extern ScmObj pointer_address(ScmObj pointer);
extern ScmObj is_pointer(ScmObj pointer); extern ScmObj is_pointer(ScmObj pointer);

2
foreign/c/primitives/gauche/gauchelib.scm
View File

@ -25,7 +25,7 @@
(define-cproc size-of-void () size_of_void) (define-cproc size-of-void () size_of_void)
(define-cproc shared-object-load (path::<string> options) shared_object_load) (define-cproc shared-object-load (path::<string> options) shared_object_load)
;(define-cproc pointer-null () pointer_null) ;(define-cproc pointer-null () pointer_null)
;(define-cproc pointer-null? (pointer) is_pointer_null) (define-cproc pointer-null? (pointer) is_pointer_null)
;(define-cproc pointer-allocate (size::<int>) pointer_allocate) ;(define-cproc pointer-allocate (size::<int>) pointer_allocate)
;(define-cproc pointer-address (object) pointer_address) ;(define-cproc pointer-address (object) pointer_address)
(define-cproc pointer? (pointer) is_pointer) (define-cproc pointer? (pointer) is_pointer)