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

Racket on better shape now

This commit is contained in:
retropikzel 2024-05-17 18:46:05 +03:00
parent 75213ab432
commit 2a83156151
10 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Makefile
View File

@ -57,7 +57,7 @@ documentation:
test/import.scm: clean build
${SASH} $@
${GUILE} $@
#${RACKET} $@
${RACKET} $@
${STKLOS} $@
${KAWA} $@
${CYCLONE} $@ && test/import
@ -66,7 +66,8 @@ test/import.scm: clean build
#${GERBIL} $@
test/import.scm: clean build
${GAMBIT} -exe $@ && ./test/import
${RACKET} $@
#${GAMBIT} -exe $@ && ./test/import
test/pffi-define.scm: clean build
${SASH} $@
@ -75,7 +76,8 @@ test/pffi-define.scm: clean build
${CHICKEN} -L -lcurl $@ && ./test/pffi-define
test/pffi-define.scm: clean build
${CYCLONE} -CLNK -lcurl $@ && test/pffi-define
${RACKET} $@
#${CYCLONE} -CLNK -lcurl $@ && test/pffi-define
test/size-of.scm:
${SASH} $@

1
retropikzel/pffi/v0-1-0/compiled/main_rkt.dep Normal file
View File

@ -0,0 +1 @@
("8.12" ta6le ("ef25d0339315600c996485e29d2d36b0be50ef74" . "87ea6db5c29da02402ccf3308ea25984d84f8e9f") (collects #"r7rs" #"base.rkt") (collects #"r7rs" #"file.rkt") (collects #"r7rs" #"lang" #"reader.rkt") (collects #"r7rs" #"main.rkt") (collects #"r7rs" #"process-context.rkt") (collects #"r7rs" #"write.rkt") (collects #"racket" #"base.rkt") (collects #"racket" #"runtime-config.rkt") (collects #"retropikzel" #"pffi" #"v0-1-0" #"racket.rkt"))

BIN
retropikzel/pffi/v0-1-0/compiled/main_rkt.zo Normal file
View File

Binary file not shown.

1
retropikzel/pffi/v0-1-0/compiled/racket_rkt.dep Normal file
View File

@ -0,0 +1 @@
("8.12" ta6le ("213d7907ee3cf2051004e3be2f9a67102c0176ce" . "c6039c9fe52ff5953361b25f7570ae33857df055") (collects #"compatibility" #"mlist.rkt") (collects #"ffi" #"unsafe.rkt") (collects #"r7rs" #"base.rkt") (collects #"r7rs" #"file.rkt") (collects #"r7rs" #"lang" #"reader.rkt") (collects #"r7rs" #"main.rkt") (collects #"r7rs" #"process-context.rkt") (collects #"r7rs" #"write.rkt") (collects #"racket" #"base.rkt") (collects #"racket" #"runtime-config.rkt"))

BIN
retropikzel/pffi/v0-1-0/compiled/racket_rkt.zo Normal file
View File

Binary file not shown.

1
retropikzel/pffi/v0-1-0/main.rkt
View File

@ -22,6 +22,7 @@
(scheme write)
(scheme file)
(scheme process-context)
(only (racket base) system-type)
(retropikzel pffi v0-1-0 racket)))
(stklos
(import (scheme base)

1
retropikzel/pffi/v0-1-0/main.scm
View File

@ -21,6 +21,7 @@
(scheme write)
(scheme file)
(scheme process-context)
(only (racket base) system-type)
(retropikzel pffi v0-1-0 racket)))
(stklos
(import (scheme base)

1
retropikzel/pffi/v0-1-0/main.sld
View File

@ -21,6 +21,7 @@
(scheme write)
(scheme file)
(scheme process-context)
(only (racket base) system-type)
(retropikzel pffi v0-1-0 racket)))
(stklos
(import (scheme base)

12
retropikzel/pffi/v0-1-0/racket.scm → retropikzel/pffi/v0-1-0/racket.rkt
View File

@ -1,10 +1,11 @@
#lang r7rs
(define-library
(retropikzel pffi v0-1-0 racket)
(import (scheme base)
(scheme write)
(scheme file)
(scheme process-context)
(only (racket base) system-type)
(compatibility mlist)
(ffi unsafe))
(export pffi-shared-object-load
@ -85,11 +86,14 @@
(define pffi-pointer->bytevector
(lambda (pointer size)
(pointer->bytevector pointer size)))
#f
;(pointer->bytevector pointer size)
))
(define pffi-shared-object-load
(lambda header path)
(ffi-lib path))
(lambda (header path)
(ffi-lib path)))
(define pffi-pointer-free
(lambda (pointer)

2
test/pffi-define.scm
View File

@ -9,7 +9,7 @@
(display libcurl)
(newline)
(pffi-define 'curl-version libcurl 'curl_version 'string (list))
(pffi-define curl-version libcurl 'curl_version 'string (list))
(display "=================")
(newline)