From adcaaa5707c0c42168f94773cbcc66972ac4b19f Mon Sep 17 00:00:00 2001 From: retropikzel Date: Wed, 22 Jul 2026 20:59:37 +0300 Subject: [PATCH] New builds --- Jenkinsfile | 45 ++++++++++++++++++++------------------------- makings.scm | 3 ++- 2 files changed, 22 insertions(+), 26 deletions(-) diff --git a/Jenkinsfile b/Jenkinsfile index ec5ab91..ebf5a42 100644 --- a/Jenkinsfile +++ b/Jenkinsfile @@ -5,34 +5,29 @@ pipeline { buildDiscarder(logRotator(numToKeepStr: '10', artifactNumToKeepStr: '10')) } stages { - steps { - script { - stage('init') { - agent { - docker { - image 'schemers/chibi:head' - 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('chibi') { + agent { + docker { + image 'schemers/chibi:head' + reuseNode true + args:'--user=root' } - stage('tap') { - agent { - docker { - image 'schemers/chibi:head' - reuseNode true - args:'--user=root' + } + steps { + script { + stage('init') { + 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' } } - catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') { - sh 'COMPILE_R7RS=chibi compile-r7rs ' + stage('tap') { + catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') { + sh 'COMPILE_R7RS=chibi compile-r7rs ' + } } } } diff --git a/makings.scm b/makings.scm index 294c9d5..87eedbd 100644 --- a/makings.scm +++ b/makings.scm @@ -9,7 +9,8 @@ (list (string-append "COMPILE_R7RS=" scheme " compile-r7rs "))))) (map (lambda (scheme) - `((image ,(string-append "schemers/" scheme ":head")) + `((name ,scheme) + (image ,(string-append "schemers/" scheme ":head")) (stages (init ,@init) (tap ,@(tap scheme)))))