Retropikzel
/
r7rs-tests
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More builds now work

This commit is contained in:
retropikzel 2024-10-05 13:05:39 +03:00
parent c8583aafea
commit ef93a7ab72
4 changed files with 119 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Jenkinsfile vendored
View File

@ -98,7 +98,7 @@ pipeline {
sh 'find . -name "*.so" -delete'
sh 'find . -name "*.o" -delete'
sh 'find . -name "*.o" -delete'
sh ' ls && cp snow/chibi/term/ansi.sld snow.chibi.term.ansi.sld && csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J snow.chibi.term.ansi.sld && cp snow/chibi/optional.sld snow.chibi.optional.sld && csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J snow.chibi.optional.sld && cp snow/chibi/diff.sld snow.chibi.diff.sld && csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J snow.chibi.diff.sld && cp snow/chibi/test.sld snow.chibi.test.sld && csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J snow.chibi.test.sld'
sh ' ls && cp snow/chibi/term/ansi.sld snow.chibi.term.ansi.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.term.ansi.sld && cp snow/chibi/optional.sld snow.chibi.optional.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.optional.sld && cp snow/chibi/diff.sld snow.chibi.diff.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.diff.sld && cp snow/chibi/test.sld snow.chibi.test.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.test.sld'
sh 'csc -include-path ./snow/chibi -X r7rs -R r7rs r7rs-tests.scm && ./r7rs-test && rm r7rs-test'
sh 'for f in *.log; do cp -- "$f" "reports/chicken-$f"; done'
sh 'ls reports'
@ -259,7 +259,7 @@ pipeline {
sh 'find . -name "*.o" -delete'
sh 'find . -name "*.o" -delete'
sh 'kawa --r7rs -Dkawa.import.path=..:../snow:*.sld:./snow/chibi/*.sld:./snow/chibi/term/*.sld r7rs-tests.scm'
sh 'kawa --r7rs -Dkawa.import.path=./snow/chibi/*.sld:./snow/srfi/*.sld r7rs-tests.scm'
sh 'for f in *.log; do cp -- "$f" "reports/kawa-$f"; done'
sh 'ls reports'
stash name: 'reports', includes: 'reports/*'
@ -387,7 +387,7 @@ pipeline {
sh 'find . -name "*.o" -delete'
sh 'find . -name "*.o" -delete'
sh 'stklos -I . r7rs-tests.scm'
sh 'stklos -I ./snow r7rs-tests.scm'
sh 'for f in *.log; do cp -- "$f" "reports/stklos-$f"; done'
sh 'ls reports'
stash name: 'reports', includes: 'reports/*'

6
Makefile
View File

@ -4,7 +4,7 @@ test-chibi-r7rs-test:
test-chicken-r7rs-test:
docker run -it -v ${PWD}:/workdir:z schemers/chicken bash -c "cd workdir && ls && cp snow/chibi/term/ansi.sld snow.chibi.term.ansi.sld && csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J snow.chibi.term.ansi.sld && cp snow/chibi/optional.sld snow.chibi.optional.sld && csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J snow.chibi.optional.sld && cp snow/chibi/diff.sld snow.chibi.diff.sld && csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J snow.chibi.diff.sld && cp snow/chibi/test.sld snow.chibi.test.sld && csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J snow.chibi.test.sld"
docker run -it -v ${PWD}:/workdir:z schemers/chicken bash -c "cd workdir && ls && cp snow/chibi/term/ansi.sld snow.chibi.term.ansi.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.term.ansi.sld && cp snow/chibi/optional.sld snow.chibi.optional.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.optional.sld && cp snow/chibi/diff.sld snow.chibi.diff.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.diff.sld && cp snow/chibi/test.sld snow.chibi.test.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.test.sld"
docker run -it -v ${PWD}:/workdir:z schemers/chicken bash -c "cd workdir && csc -include-path ./snow/chibi -X r7rs -R r7rs r7rs-tests.scm && ./r7rs-test && rm r7rs-test"
@ -30,7 +30,7 @@ test-guile-r7rs-test:
test-kawa-r7rs-test:
docker run -it -v ${PWD}:/workdir:z schemers/kawa bash -c "cd workdir && kawa --r7rs -Dkawa.import.path=..:../snow:*.sld:./snow/chibi/*.sld:./snow/chibi/term/*.sld r7rs-tests.scm"
docker run -it -v ${PWD}:/workdir:z schemers/kawa bash -c "cd workdir && kawa --r7rs -Dkawa.import.path=./snow/chibi/*.sld:./snow/srfi/*.sld r7rs-tests.scm"
test-loko-r7rs-test:
@ -50,7 +50,7 @@ test-sagittarius-r7rs-test:
test-stklos-r7rs-test:
docker run -it -v ${PWD}:/workdir:z schemers/stklos bash -c "cd workdir && stklos -I . r7rs-tests.scm"
docker run -it -v ${PWD}:/workdir:z schemers/stklos bash -c "cd workdir && stklos -I ./snow r7rs-tests.scm"
test-skint-r7rs-test:

110
chibi.term.ansi.import.scm Normal file
View File

@ -0,0 +1,110 @@
;;;; chibi.term.ansi.import.scm - GENERATED BY CHICKEN 5.4.0 -*- Scheme -*-
(##sys#with-environment
(lambda ()
(scheme#eval
'(import-syntax
(only r7rs
begin
cond-expand
export
import
import-for-syntax
include
include-ci
syntax-rules)
scheme.base
scheme.write
scheme.process-context))
(import
(only r7rs
begin
cond-expand
export
import
import-for-syntax
include
include-ci
syntax-rules))
(##sys#register-compiled-module
'chibi.term.ansi
'chibi.term.ansi
(scheme#list
'(make-wrap-procedure . chibi.term.ansi#make-wrap-procedure)
'(make-simple-escape-procedure
.
chibi.term.ansi#make-simple-escape-procedure))
'((black-escape . chibi.term.ansi#black-escape)
(red-escape . chibi.term.ansi#red-escape)
(yellow-escape . chibi.term.ansi#yellow-escape)
(green-escape . chibi.term.ansi#green-escape)
(blue-escape . chibi.term.ansi#blue-escape)
(cyan-escape . chibi.term.ansi#cyan-escape)
(magenta-escape . chibi.term.ansi#magenta-escape)
(white-escape . chibi.term.ansi#white-escape)
(rgb-escape . chibi.term.ansi#rgb-escape)
(gray-escape . chibi.term.ansi#gray-escape)
(rgb24-escape . chibi.term.ansi#rgb24-escape)
(reset-color-escape . chibi.term.ansi#reset-color-escape)
(black-background-escape . chibi.term.ansi#black-background-escape)
(red-background-escape . chibi.term.ansi#red-background-escape)
(yellow-background-escape . chibi.term.ansi#yellow-background-escape)
(green-background-escape . chibi.term.ansi#green-background-escape)
(blue-background-escape . chibi.term.ansi#blue-background-escape)
(cyan-background-escape . chibi.term.ansi#cyan-background-escape)
(magenta-background-escape . chibi.term.ansi#magenta-background-escape)
(white-background-escape . chibi.term.ansi#white-background-escape)
(rgb-background-escape . chibi.term.ansi#rgb-background-escape)
(gray-background-escape . chibi.term.ansi#gray-background-escape)
(rgb24-background-escape . chibi.term.ansi#rgb24-background-escape)
(reset-background-color-escape
.
chibi.term.ansi#reset-background-color-escape)
(black . chibi.term.ansi#black)
(red . chibi.term.ansi#red)
(yellow . chibi.term.ansi#yellow)
(green . chibi.term.ansi#green)
(blue . chibi.term.ansi#blue)
(cyan . chibi.term.ansi#cyan)
(magenta . chibi.term.ansi#magenta)
(white . chibi.term.ansi#white)
(black-background . chibi.term.ansi#black-background)
(red-background . chibi.term.ansi#red-background)
(yellow-background . chibi.term.ansi#yellow-background)
(green-background . chibi.term.ansi#green-background)
(blue-background . chibi.term.ansi#blue-background)
(cyan-background . chibi.term.ansi#cyan-background)
(magenta-background . chibi.term.ansi#magenta-background)
(white-background . chibi.term.ansi#white-background)
(bold . chibi.term.ansi#bold)
(underline . chibi.term.ansi#underline)
(negative . chibi.term.ansi#negative)
(italic . chibi.term.ansi#italic)
(strikethrough . chibi.term.ansi#strikethrough)
(rgb . chibi.term.ansi#rgb)
(rgb-background . chibi.term.ansi#rgb-background)
(gray . chibi.term.ansi#gray)
(gray-background . chibi.term.ansi#gray-background)
(rgb24 . chibi.term.ansi#rgb24)
(rgb24-background . chibi.term.ansi#rgb24-background)
(bold-escape . chibi.term.ansi#bold-escape)
(reset-bold-escape . chibi.term.ansi#reset-bold-escape)
(underline-escape . chibi.term.ansi#underline-escape)
(reset-underline-escape . chibi.term.ansi#reset-underline-escape)
(negative-escape . chibi.term.ansi#negative-escape)
(reset-negative-escape . chibi.term.ansi#reset-negative-escape)
(italic-escape . chibi.term.ansi#italic-escape)
(reset-italic-escape . chibi.term.ansi#reset-italic-escape)
(strikethrough-escape . chibi.term.ansi#strikethrough-escape)
(reset-strikethrough-escape
.
chibi.term.ansi#reset-strikethrough-escape)
(ansi-escapes-enabled? . chibi.term.ansi#ansi-escapes-enabled?))
(scheme#list
(scheme#cons
'|\x04r7rschibi.term.ansi|
(##sys#er-transformer (##core#lambda (x r c) (##core#undefined)))))
(scheme#list)
(scheme#list))))
;; END OF FILE

6
implementations.scm
View File

@ -3,7 +3,7 @@
'(((name . chibi) (command . "chibi-scheme -I ./snow/chibi"))
((name . chicken)
(command . "csc -include-path ./snow/chibi -X r7rs -R r7rs")
(library-command . "csc -include-path ./snow/chibi -X r7rs -R r7rs -s -J"))
(library-command . "csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J"))
((name . cyclone)
(command . "cyclone -A .")
(library-command . "cyclone -A ."))
@ -12,7 +12,7 @@
(library-command . "gsc ."))
((name . gauche) (command . "gosh -r7 -A ./snow"))
((name . guile) (command . "guile --fresh-auto-compile --r7rs -L . -L ./snow"))
((name . kawa) (command . "kawa --r7rs -Dkawa.import.path=..:../snow:*.sld:./snow/chibi/*.sld:./snow/chibi/term/*.sld"))
((name . kawa) (command . "kawa --r7rs -Dkawa.import.path=./snow/chibi/*.sld:./snow/srfi/*.sld"))
((name . loko)
(docker-image . "schemers/loko:head")
(command . "LOKO_LIBRARY_PATH=./snow loko -std=r7rs --compile")
@ -20,6 +20,6 @@
(library-command . "ls"))
((name . mit-scheme) (command . "mit-scheme --load"))
((name . sagittarius) (command . "sash -r7 -L ./snow"))
((name . stklos) (command . "stklos -I ."))
((name . stklos) (command . "stklos -I ./snow"))
((name . skint) (command . "skint --program"))
((name . tr7) (command . "tr7i"))))