~ chicken-core (chicken-5) e2036fc1db820e8f971360b1735291c91aa056e4
commit e2036fc1db820e8f971360b1735291c91aa056e4
Author: Mario Domenech Goulart <mario@parenteses.org>
AuthorDate: Fri Dec 5 11:10:38 2025 +0100
Commit: Mario Domenech Goulart <mario@parenteses.org>
CommitDate: Fri Dec 5 11:10:38 2025 +0100
scripts: Remove mini-salmonella.scm
mini-salmonella.scm is for CHICKEN 4, and that is an indication that
it is not being used for CHICKEN 5 and 6.
diff --git a/distribution/manifest b/distribution/manifest
index 4c676f87..7bc17f82 100644
--- a/distribution/manifest
+++ b/distribution/manifest
@@ -395,7 +395,6 @@ scripts/chicken-flymake.bat
scripts/csc-trans
scripts/compile-all
scripts/compare-documentation-exports.scm
-scripts/mini-salmonella.scm
scripts/make-wrapper.scm
scripts/makedist.scm
manual-html/Accessing external objects.html
diff --git a/scripts/README b/scripts/README
index ca845742..a97dcd85 100644
--- a/scripts/README
+++ b/scripts/README
@@ -11,11 +11,4 @@ This directory contains a couple of things that might be useful:
makedist.scm
- Creates a distribution tarball from a chicken svn checkout.
-
- mini-salmonella.scm
-
- A minimalistic version of `salmonella', the egg-test tool. It
- takes a path to a local checkout of the extensions repository
- and compiles each egg from scratch, reporting success or
- failure.
+ Creates a distribution tarball from a chicken-core git checkout.
diff --git a/scripts/mini-salmonella.scm b/scripts/mini-salmonella.scm
deleted file mode 100644
index 45bffee9..00000000
--- a/scripts/mini-salmonella.scm
+++ /dev/null
@@ -1,135 +0,0 @@
-;;;; mini-salmonella.scm - very simple tool to build all eggs
-
-
-(module mini-salmonella ()
-
-(import scheme chicken)
-(import posix file extras data-structures setup-api (chicken process))
-
-(define (usage code)
- (print "usage: mini-salmonella [-h] [-test] [-debug] [-download] [-trunk] EGGDIR [PREFIX]")
- (exit code) )
-
-(define *eggdir* #f)
-(define *debug* #f)
-(define *run-tests* #f)
-(define *download* #f)
-(define *trunk* #f)
-
-(define *prefix* (get-environment-variable "CHICKEN_PREFIX"))
-
-(let loop ((args (command-line-arguments)))
- (when (pair? args)
- (let ((arg (car args)))
- (cond ((string=? "-h" arg) (usage 0))
- ((string=? "-test" arg) (set! *run-tests* #t))
- ((string=? "-debug" arg) (set! *debug* #t))
- ((string=? "-download" arg) (set! *download* #t))
- ((string=? "-trunk" arg) (set! *trunk* #t))
- (*eggdir* (set! *prefix* arg))
- (else (set! *eggdir* arg)))
- (loop (cdr args)))))
-
-(unless *eggdir* (usage 1))
-
-(define-foreign-variable *binary-version* int "C_BINARY_VERSION")
-(define *repository* (make-pathname *prefix* (conc "lib/chicken/" *binary-version*)))
-(define *snapshot* (directory *repository*))
-
-(define (cleanup-repository)
- (for-each
- (lambda (f)
- (let ((f2 (make-pathname *repository* f)))
- (cond ((member f2 *snapshot*))
- ((directory? f2)
- (remove-directory f2))
- (else
- (delete-file f2)))))
- (directory *repository*)))
-
-(define *chicken-install*
- (normalize-pathname (make-pathname *prefix* "bin/chicken-install")))
-
-(define *eggs* (directory *eggdir*))
-
-(define (find-newest egg)
- (let* ((ed (make-pathname *eggdir* egg))
- (tagsdir (directory-exists? (make-pathname ed "tags")))
- (trunkdir (directory-exists? (make-pathname ed "trunk"))))
- (cond ((and *trunk* trunkdir) trunkdir)
- (tagsdir
- (let ((tags (sort (directory tagsdir) version>=?)))
- (if (null? tags)
- (or trunkdir ed)
- (make-pathname ed (string-append "tags/" (car tags))))))
- (else (or trunkdir ed)))))
-
-(define (report egg msg . args)
- (printf "~a..~?~%" (make-string (max 2 (- 32 (string-length egg))) #\.)
- msg args) )
-
-(define *errlogfile* "mini-salmonella.errors.log")
-(define *logfile* "mini-salmonella.log")
-(define *tmplogfile* "mini-salmonella.tmp.log")
-
-(on-exit (lambda () (delete-file* *tmplogfile*)))
-
-(define (copy-log egg file)
- (let ((log (with-input-from-file file read-string)))
- (with-output-to-file *errlogfile*
- (lambda ()
- (print #\newline egg #\:)
- (display log))
- #:append)))
-
-(define *failed* 0)
-(define *succeeded* 0)
-
-(define (install-egg egg dir)
- (let ((command
- (conc
- *chicken-install* " -force "
- (if *run-tests* "-test " "")
- (if *trunk* "-trunk " "")
- (if *download*
- ""
- (string-append "-t local -l " (normalize-pathname *eggdir*) " "))
- egg " "
- (cond ((not *debug*)
- (delete-file* (string-append *logfile* ".out"))
- (sprintf "2>~a >>~a.out" *tmplogfile* *logfile*))
- (else "")))))
- (when *debug*
- (print " " command))
- (let ((status (system command)))
- (cond ((zero? status)
- (report egg "OK")
- (set! *succeeded* (add1 *succeeded*)))
- (else
- (report egg "FAILED")
- (set! *failed* (add1 *failed*))
- (unless *debug* (copy-log egg *tmplogfile*)))))))
-
-(delete-file* *errlogfile*)
-(delete-file* *logfile*)
-
-(for-each
- (lambda (egg)
- (and-let* ((dir (find-newest egg)))
- (if *debug*
- (print "\n\n######################################## " egg "\n")
- (print* egg))
- (cleanup-repository)
- (let ((meta (file-exists? (make-pathname dir egg "meta"))))
- (if meta
- (let ((setup (file-exists? (make-pathname dir egg "setup"))))
- (if setup
- (install-egg egg dir)
- (report egg "<no .setup script>")) )
- (report egg "<no .meta file>")))))
- (sort (directory *eggdir*) string<?))
-
-(print "\nSucceeded: " *succeeded* ", failed: " *failed* ", total: "
- (+ *succeeded* *failed*))
-
-)
Trap