Retropikzel
/
scheme-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New builds

This commit is contained in:
retropikzel 2026-07-22 20:59:37 +03:00
parent 35fa514296
commit adcaaa5707
2 changed files with 22 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
Jenkinsfile vendored
View File

@ -5,34 +5,29 @@ pipeline {
buildDiscarder(logRotator(numToKeepStr: '10', artifactNumToKeepStr: '10')) buildDiscarder(logRotator(numToKeepStr: '10', artifactNumToKeepStr: '10'))
} }
stages { stages {
steps { stage('chibi') {
script { agent {
stage('init') { docker {
agent { image 'schemers/chibi:head'
docker { reuseNode true
image 'schemers/chibi:head' args:'--user=root'
reuseNode true
args:'--user=root'
}
}
catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
sh 'apt-get update && apt-get install -y git ca-certificates gcc make libffi-dev'
sh 'git clone https://github.com/ashinn/chibi-scheme.git --depth=1'
sh 'make -j8 -C chibi-scheme'
sh 'make -j8 -C chibi-scheme install'
sh 'snow-chibi install retropikzel.compile-r7rs'
}
} }
stage('tap') { }
agent { steps {
docker { script {
image 'schemers/chibi:head' stage('init') {
reuseNode true catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
args:'--user=root' sh 'apt-get update && apt-get install -y git ca-certificates gcc make libffi-dev'
sh 'git clone https://github.com/ashinn/chibi-scheme.git --depth=1'
sh 'make -j8 -C chibi-scheme'
sh 'make -j8 -C chibi-scheme install'
sh 'snow-chibi install retropikzel.compile-r7rs'
} }
} }
catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') { stage('tap') {
sh 'COMPILE_R7RS=chibi compile-r7rs ' catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
sh 'COMPILE_R7RS=chibi compile-r7rs '
}
} }
} }
} }

3
makings.scm
View File

@ -9,7 +9,8 @@
(list (string-append "COMPILE_R7RS=" scheme " compile-r7rs "))))) (list (string-append "COMPILE_R7RS=" scheme " compile-r7rs ")))))
(map (lambda (scheme) (map (lambda (scheme)
`((image ,(string-append "schemers/" scheme ":head")) `((name ,scheme)
(image ,(string-append "schemers/" scheme ":head"))
(stages (stages
(init ,@init) (init ,@init)
(tap ,@(tap scheme))))) (tap ,@(tap scheme)))))