From 7245f598240fcc172a3c8bd737c713f8086e493d Mon Sep 17 00:00:00 2001 From: retropikzel Date: Tue, 11 Mar 2025 12:52:58 +0200 Subject: [PATCH] Build Gauche shared object into library directory --- Makefile | 1 + retropikzel/pffi/gauche.scm | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/Makefile b/Makefile index da5c856..0cacdd7 100644 --- a/Makefile +++ b/Makefile @@ -21,6 +21,7 @@ gauche: --cflags="-I." \ --libs=-lffi \ retropikzel-pffi-gauche pffi.c gauchelib.scm + mv retropikzel-pffi-gauche.so retropikzel/pffi/ jenkinsfile: gosh -r7 -I ./snow build.scm diff --git a/retropikzel/pffi/gauche.scm b/retropikzel/pffi/gauche.scm index 45e111b..9193291 100644 --- a/retropikzel/pffi/gauche.scm +++ b/retropikzel/pffi/gauche.scm @@ -12,7 +12,7 @@ pffi-pointer->string pffi-define)) (select-module retropikzel.pffi.gauche) -(dynamic-load "retropikzel-pffi-gauche") +(dynamic-load "retropikzel/pffi/retropikzel-pffi-gauche") (define size-of-type (lambda (type) @@ -160,6 +160,9 @@ (if (equal? return-type 'void) 0 (size-of-type return-type))))) + (display "Calling function: ") + (display c-name) + (newline) (internal-ffi-call (length argument-types) (pffi-type->libffi-type return-type) (map pffi-type->libffi-type argument-types)