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

Clean up code

This commit is contained in:
retropikzel 2025-07-12 17:31:12 +03:00
parent c967ad0c85
commit 1b49431a3e
4 changed files with 0 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Makefile
View File

@ -138,9 +138,6 @@ gauche:
mv foreign-c-primitives-gauche.so foreign/c/lib/gauche.so mv foreign-c-primitives-gauche.so foreign/c/lib/gauche.so
mv foreign-c-primitives-gauche.o foreign/c/lib/gauche.o mv foreign-c-primitives-gauche.o foreign/c/lib/gauche.o
gerbil:
@echo "Nothing to build for Gerbil"
guile: guile:
@echo "Nothing to build for Guile" @echo "Nothing to build for Guile"

8
foreign/c.sld
View File

@ -50,13 +50,6 @@
(scheme process-context) (scheme process-context)
(gauche base) (gauche base)
(foreign c primitives gauche))) (foreign c primitives gauche)))
#;(gerbil
(import (scheme base)
(scheme write)
(scheme char)
(scheme file)
(scheme inexact)
(scheme process-context)))
(guile (guile
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
@ -363,7 +356,6 @@
;(cyclone (include "c/primitives/cyclone.scm")) ;(cyclone (include "c/primitives/cyclone.scm"))
(gambit (include "c/primitives/gambit.scm")) (gambit (include "c/primitives/gambit.scm"))
(gauche (include "c/primitives/gauche/define-c-procedure.scm")) (gauche (include "c/primitives/gauche/define-c-procedure.scm"))
;(gerbil (include "c/primitives/gerbil.scm"))
(guile (include "./c/primitives/guile.scm")) (guile (include "./c/primitives/guile.scm"))
(kawa (include "c/primitives/kawa.scm")) (kawa (include "c/primitives/kawa.scm"))
(mit-scheme (include "c/primitives/mit-scheme.scm")) (mit-scheme (include "c/primitives/mit-scheme.scm"))

3
foreign/c/Makefile
View File

@ -31,9 +31,6 @@ gauche: primitives/gauche/foreign-c-primitives-gauche.c primitives/gauche/gauche
mv foreign-c-primitives-gauche.o lib/gauche.o mv foreign-c-primitives-gauche.o lib/gauche.o
gerbil:
@echo "Nothing to build for Gerbil"
guile: guile:
@echo "Nothing to build for Guile" @echo "Nothing to build for Guile"

29
foreign/c/primitives/gerbil.scm
View File

@ -1,29 +0,0 @@
(define pffi-type->native-type
(lambda (type)
(error "Not defined")))
(define c-bytevector?
(lambda (object)
(error "Not defined")))
(define-syntax define-c-procedure
(syntax-rules ()
((_ scheme-name shared-object c-name return-type argument-types)
(error "Not defined"))))
(define size-of-type
(lambda (type)
(error "Not defined")))
(define pffi-shared-object-load
(lambda (header path)
(error "Not defined")))
(define pffi-pointer-set!
(lambda (pointer type offset value)
(let ((p pointer))
(error "Not defined"))))
(define pffi-pointer-get
(lambda (pointer type offset)
(error "Not defined")))