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
(kawa #t) ; FIXME
(chibi #t)
(gauche (define c-null? pointer-null?))
(else (define c-null?
(lambda (pointer)
(display "HERE123: ")
(write pointer)
(newline)
(if (c-bytevector? pointer)
#t ;(= (c-memset-pointer->address pointer 0 0) 0)
#t (= (c-memset-pointer->address pointer 0 0) 0)
#f)))))
#;(define c-bytevector->address

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

@ -6,7 +6,7 @@
c-bytevector-pointer-set!
c-bytevector-pointer-ref
;pointer-null
;pointer-null?
pointer-null?
;make-c-bytevector
;pointer-address
c-bytevector?
@ -17,8 +17,7 @@
define-c-callback
dlerror
dlsym
internal-ffi-call
))
internal-ffi-call))
(select-module foreign.c.primitives.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) {
if(!Scm_TypeP(pointer, SCM_CLASS_FOREIGN_POINTER)) {
return SCM_FALSE;
@ -71,7 +70,6 @@ ScmObj is_pointer_null(ScmObj pointer) {
return SCM_FALSE;
}
}
*/
/*
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 shared_object_load(ScmString* path, ScmObj options);
//extern ScmObj pointer_null();
//extern ScmObj is_pointer_null();
extern ScmObj is_pointer_null();
//extern ScmObj pointer_allocate(int size);
//extern ScmObj pointer_address(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 shared-object-load (path::<string> options) shared_object_load)
;(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-address (object) pointer_address)
(define-cproc pointer? (pointer) is_pointer)