Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 8 Pull Requests Releases Activity

Fixing tests. Adding meevax support

This commit is contained in:
retropikzel 2025-08-21 11:13:19 +03:00
parent 041e152237
commit f1a3cebe4f
4 changed files with 38 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Dockerfile.jenkins
View File

@ -1,6 +1,12 @@
FROM schemers/chibi:head FROM schemers/chibi:head
RUN apt-get update && apt-get install -y \ RUN apt-get update && apt-get install -y \
build-essential ca-certificates git make docker.io libffi-dev build-essential \
ca-certificates \
git \
make \
docker.io \
libffi-dev \
pandoc
RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=1 \ RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=1 \
&& cd chibi-scheme && make -j 16 && make -j 16 install && cd chibi-scheme && make -j 16 && make -j 16 install
WORKDIR /builddir WORKDIR /builddir

3
Dockerfile.test
View File

@ -6,7 +6,8 @@ RUN apt-get update && apt-get install -y \
make \ make \
libffi-dev \ libffi-dev \
ca-certificates \ ca-certificates \
git git \
pandoc
ENV PATH=${PATH}:/usr/local-other/bin ENV PATH=${PATH}:/usr/local-other/bin
ARG SCHEME=chibi ARG SCHEME=chibi
ENV COMPILE_R7RS=${SCHEME} ENV COMPILE_R7RS=${SCHEME}

1
compile-r7rs.scm
View File

@ -29,6 +29,7 @@
kawa kawa
larceny larceny
loko loko
meevax
mit-scheme mit-scheme
mosh mosh
racket racket

36
libs/data.sld
View File

@ -105,7 +105,7 @@
,input-file))))) ,input-file)))))
(cyclone (cyclone
(type . compiler) (type . compiler)
#;(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?) (library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
(apply string-append (apply string-append
`("cyclone" `("cyclone"
" " " "
@ -113,7 +113,9 @@
" " " "
,@(map (lambda (item) (string-append "-I " item " ")) prepend-directories) ,@(map (lambda (item) (string-append "-I " item " ")) prepend-directories)
,@(map (lambda (item) (string-append "-A " item " ")) append-directories) ,@(map (lambda (item) (string-append "-A " item " ")) append-directories)
,library-file)))) ,(search-library-file (append prepend-directories
append-directories)
library-file)))))
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?) (command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(apply string-append (apply string-append
`("cyclone " `("cyclone "
@ -122,12 +124,14 @@
,@(map (lambda (item) (string-append "-I " item " ")) prepend-directories) ,@(map (lambda (item) (string-append "-I " item " ")) prepend-directories)
,@(map (lambda (item) (string-append "-A " item " ")) append-directories) ,@(map (lambda (item) (string-append "-A " item " ")) append-directories)
,input-file ,input-file
" && " ,(if (not (string=? (string-cut-from-end input-file 4) output-file))
"mv " (string-append
,(string-cut-from-end input-file 4) " && "
" " "mv "
,output-file (string-cut-from-end input-file 4)
))))) " "
output-file)
""))))))
(foment (foment
(type . interpreter) (type . interpreter)
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?) (command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
@ -372,6 +376,22 @@
,input-file ,input-file
" " " "
"--eval \"(exit 0)\""))))) "--eval \"(exit 0)\"")))))
(meevax
(type . interpreter)
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(apply string-append
`("meevax"
" "
,(util-getenv "COMPILE_R7RS_MEEVAX")
" "
,@(map (lambda (item)
(string-append "-I" " " item " "))
prepend-directories)
" "
,@(map (lambda (item)
(string-append "-A" " " item " "))
append-directories)
,input-file)))))
(mosh (mosh
(type . interpreter) (type . interpreter)
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?) (command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)