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

Switch to new compile-r7rs

This commit is contained in:
retropikzel 2025-06-25 08:29:50 +03:00
parent c4b685df89
commit 3183946989
2 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
dockerfiles/Dockerfile.test
View File

@ -1,9 +1,3 @@
ARG COMPILE_R7RS=chibi
FROM schemers/sagittarius AS build
RUN apt-get update && apt-get install -y wget build-essential make cmake libgc-dev zlib1g-dev libffi-dev libssl-dev
RUN wget https://github.com/ktakashi/sagittarius-scheme/releases/download/v0.9.13/sagittarius-0.9.13.tar.gz && tar -xf sagittarius-0.9.13.tar.gz
RUN cd sagittarius-0.9.13 && ./dist.sh gen && cmake -DCMAKE_INSTALL_PREFIX=/usr/local-other && make && make install
FROM schemers/${COMPILE_R7RS}
RUN apt-get update && apt-get install -y \
build-essential \
@ -15,9 +9,8 @@ RUN apt-get update && apt-get install -y \
libuv1 \
build-essential \
libffi-dev \
libmbedtls-dev
COPY --from=build /usr/local-other /usr/local-other
ENV PATH=${PATH}:/usr/local-other/bin
libmbedtls-dev \
chicken-bin
RUN git clone https://gitea.scheme.org/Retropikzel/compile-r7rs.git --depth=1
RUN cd compile-r7rs && make && make install

11
foreign/c/libc.scm
View File

@ -1,10 +1,13 @@
(cond-expand
(windows (define-c-library libc '("stdio.h" "string.h") "ucrtbase" '()))
(windows (define-c-library libc
'("stdlib.h" "stdio.h" "string.h")
"ucrtbase"
'()))
(else
;(define c-library "c")
#;(when (get-environment-variable "BE_HOST_CPU")
(define c-library "c")
(when (get-environment-variable "BE_HOST_CPU")
(set! c-library "root"))
(define-c-library libc
'("stdio.h" "string.h")
'("stdlib.h" "stdio.h" "string.h")
"c"
'((additional-versions ("0" "6"))))))