715 lines
38 KiB
Scheme
715 lines
38 KiB
Scheme
(define-library
|
|
(libs data)
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(scheme file)
|
|
(scheme process-context)
|
|
(srfi 170)
|
|
(libs util))
|
|
(export data)
|
|
(begin
|
|
(define data
|
|
`((chezscheme
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(let ((separator (cond-expand (windows ";") (else ":"))))
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" chezscheme "
|
|
,(util-getenv "COMPILE_R7RS_CHEZSCHEME")
|
|
" "
|
|
,(if (and (null? prepend-directories)
|
|
(null? append-directories))
|
|
""
|
|
(apply string-append
|
|
(list "--libdirs "
|
|
"\""
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append item separator))
|
|
(append prepend-directories append-directories)))
|
|
"\"")))
|
|
" --program "
|
|
,script-file
|
|
" "
|
|
,args))))))
|
|
(chibi
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" chibi-scheme "
|
|
,(util-getenv "COMPILE_R7RS_CHIBI")
|
|
,@(map (lambda (item)
|
|
(string-append " -I" " " item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append " -A" " " item " "))
|
|
append-directories)
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(chicken
|
|
(type . compiler)
|
|
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
|
|
(let ((unit (string-append (if (string-starts-with? library-file "srfi")
|
|
(string-replace (string-cut-from-end library-file 4) #\/ #\-)
|
|
(string-replace (string-cut-from-end library-file 4) #\/ #\.))))
|
|
(out (string-append (if (string-starts-with? library-file "srfi")
|
|
(string-replace (string-cut-from-end library-file 4) #\/ #\-)
|
|
(string-replace (string-cut-from-end library-file 4) #\/ #\.))
|
|
".o"))
|
|
(static-out (string-append (if (string-starts-with? library-file "srfi")
|
|
(string-replace (string-cut-from-end library-file 4) #\/ #\-)
|
|
(string-replace (string-cut-from-end library-file 4) #\/ #\.))
|
|
".a")))
|
|
`(,(string-append "csc -R r7rs -X r7rs "
|
|
(util-getenv "COMPILE_R7RS_CHICKEN")
|
|
" -static -c -J -o "
|
|
out
|
|
" "
|
|
(search-library-file (append prepend-directories append-directories) library-file)
|
|
" "
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append "-I " item " "))
|
|
(append append-directories
|
|
prepend-directories)))
|
|
"-unit "
|
|
unit)
|
|
,(string-append "ar rcs " static-out " " out)))))
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
`(,(string-append "csc -R r7rs -X r7rs "
|
|
(util-getenv "COMPILE_R7RS_CHICKEN")
|
|
" -static "
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append " -I " item " "))
|
|
(append append-directories prepend-directories)))
|
|
(apply string-append
|
|
(map (lambda (library-file)
|
|
(string-append " -uses "
|
|
(if (string-starts-with? library-file "srfi")
|
|
(string-replace (string-cut-from-end library-file 4) #\/ #\-)
|
|
(string-replace (string-cut-from-end library-file 4) #\/ #\.))
|
|
" "))
|
|
library-files))
|
|
" -output-file "
|
|
output-file
|
|
" "
|
|
input-file)))))
|
|
(cyclone
|
|
(type . compiler)
|
|
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
|
|
`(,(string-append "cyclone "
|
|
(util-getenv "COMPILE_R7RS_CYCLONE")
|
|
" "
|
|
(apply string-append
|
|
(map (lambda (item) (string-append "-I " item " ")) prepend-directories))
|
|
(apply string-append
|
|
(map (lambda (item) (string-append "-A " item " ")) append-directories))
|
|
(search-library-file (append prepend-directories
|
|
append-directories)
|
|
library-file)))))
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
`(,(string-append "cyclone "
|
|
(util-getenv "COMPILE_R7RS_CYCLONE")
|
|
" "
|
|
(apply string-append
|
|
(map (lambda (item) (string-append "-I " item " ")) prepend-directories))
|
|
(apply string-append
|
|
(map (lambda (item) (string-append "-A " item " ")) append-directories))
|
|
input-file)
|
|
,(string-append (if (not (string=? (string-cut-from-end input-file 4) output-file))
|
|
(string-append
|
|
"mv "
|
|
(string-cut-from-end input-file 4)
|
|
" "
|
|
output-file)
|
|
"sleep 0"))))))
|
|
(foment
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" foment "
|
|
,(util-getenv "COMPILE_R7RS_FOMENT")
|
|
,@(map (lambda (item)
|
|
(string-append " -I" " " item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append " -A" " " item " "))
|
|
append-directories)
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
#;(gambit
|
|
(type . compiler)
|
|
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
|
|
`(,(string-append "gsc "
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append item "/ "))
|
|
(append prepend-directories
|
|
append-directories)))
|
|
(search-library-file (append append-directories
|
|
prepend-directories)
|
|
library-file)))))
|
|
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
|
|
(let ((output-tmp-file (string-append output-file ".tmp")))
|
|
`(,(string-append "echo \"#!/usr/bin/env gsi -:r7rs,search="
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append item "/ "))
|
|
(append prepend-directories
|
|
append-directories)))
|
|
"\" > " output-tmp-file)
|
|
,(string-append "cat " input-file " >> " output-tmp-file)
|
|
,(string-append "gsc "
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append item "/ "))
|
|
(append prepend-directories
|
|
append-directories)))
|
|
" -o " output-file
|
|
" -exe -nopreload "
|
|
output-tmp-file))))))
|
|
(gauche
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
,(if (symbol=? compilation-target 'windows)
|
|
" gosh.exe "
|
|
" gosh ")
|
|
,(util-getenv "COMPILE_R7RS_GAUCHE")
|
|
" -r7 "
|
|
,@(map (lambda (item)
|
|
(string-append " -I" " " item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append " -A" " " item " "))
|
|
append-directories)
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(guile
|
|
(type . interpreter)
|
|
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
|
|
(let ((library-path (search-library-file (append append-directories
|
|
prepend-directories)
|
|
library-file)))
|
|
`(,(string-append "guild compile "
|
|
(if r6rs? " --r6rs -x .sls " " --r7rs -x .sld ")
|
|
" -O0 "
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append "-L" " " item " "))
|
|
(append prepend-directories
|
|
append-directories)))
|
|
" -o "
|
|
(string-append
|
|
(string-cut-from-end library-path 4)
|
|
".go")
|
|
library-path)))))
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" guile "
|
|
,(util-getenv "COMPILE_R7RS_GUILE")
|
|
,(if r6rs? " --r6rs -x .sls " " --r7rs -x .sld ")
|
|
,@(map (lambda (item)
|
|
(string-append " -L " item " "
|
|
" -L " (dirname item) " "))
|
|
(append prepend-directories
|
|
append-directories))
|
|
" -s "
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(ikarus
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs
|
|
compilation-target)
|
|
(apply string-append
|
|
`( "IKARUS_LIBRARY_PATH="
|
|
,@(map (lambda (item) (string-append item ":")) prepend-directories)
|
|
,@(map (lambda (item) (string-append item ":")) append-directories)
|
|
" "
|
|
,exec-cmd
|
|
" ikarus "
|
|
,(util-getenv "COMPILE_R7RS_IKARUS")
|
|
" --r6rs-script "
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(ironscheme
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" ironscheme "
|
|
,(util-getenv "COMPILE_R7RS_IRONSCHEME")
|
|
" "
|
|
,@(map (lambda (item)
|
|
(string-append "-I \"" item "\" "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append "-I \"" item "\" "))
|
|
append-directories)
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(kawa
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`("CLASSPATH="
|
|
,@(map (lambda (item)
|
|
(string-append "${PWD}/" item ":"))
|
|
(append prepend-directories
|
|
append-directories))
|
|
" "
|
|
,exec-cmd
|
|
" kawa -J--add-exports=java.base/jdk.internal.foreign.abi=ALL-UNNAMED -J--add-exports=java.base/jdk.internal.foreign.layout=ALL-UNNAMED -J--add-exports=java.base/jdk.internal.foreign=ALL-UNNAMED -J--enable-native-access=ALL-UNNAMED -J--enable-preview "
|
|
,(util-getenv "COMPILE_R7RS_KAWA")
|
|
" -Dkawa.import.path="
|
|
,@(map (lambda (item)
|
|
(string-append "${PWD}/" item "/*.sld:"))
|
|
(append prepend-directories
|
|
append-directories))
|
|
" -f "
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(larceny
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" larceny -nobanner -quiet -utf8 "
|
|
,(if r6rs? " -r6 " " -r7 ")
|
|
,(util-getenv "COMPILE_R7RS_LARCENY")
|
|
,@(map (lambda (item)
|
|
(string-append " -I " item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append " -A " item " "))
|
|
append-directories)
|
|
" -program "
|
|
,script-file
|
|
" -- "
|
|
,args)))))
|
|
(loko
|
|
(type . compiler)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(let ((out (string-cut-from-end input-file 4)))
|
|
`(,(string-append "LOKO_LIBRARY_PATH="
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append item ":"))
|
|
prepend-directories))
|
|
(apply string-append
|
|
(map (lambda (item)
|
|
(string-append item ":"))
|
|
append-directories))
|
|
" loko "
|
|
(util-getenv "COMPILE_R7RS_LOKO")
|
|
" "
|
|
(if r6rs? "-std=r6rs" "-std=r7rs")
|
|
" "
|
|
"--compile"
|
|
" "
|
|
input-file)
|
|
,(string-append "mv " out " " output-file))))))
|
|
(meevax
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" meevax "
|
|
,(util-getenv "COMPILE_R7RS_MEEVAX")
|
|
,@(map (lambda (item)
|
|
(string-append " -I" " " item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append " -A" " " item " "))
|
|
append-directories)
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(mit-scheme
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" mit-scheme --batch-mode --no-init-file "
|
|
,@(map
|
|
(lambda (item)
|
|
(string-append " --load "
|
|
(search-library-file (append append-directories
|
|
prepend-directories)
|
|
item)
|
|
" "))
|
|
library-files)
|
|
" --load "
|
|
,script-file
|
|
" --eval \"(exit 0)\" "
|
|
" --args "
|
|
,args)))))
|
|
(mosh
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs
|
|
compilation-target)
|
|
(let ((dirs (append append-directories prepend-directories)))
|
|
(apply string-append
|
|
`(,(if (> (length dirs) 0)
|
|
(string-append
|
|
"MOSH_LOADPATH="
|
|
(apply string-append
|
|
(map (lambda (item) (string-append item ":")) dirs)))
|
|
"")
|
|
" "
|
|
,exec-cmd
|
|
" mosh "
|
|
,(util-getenv "COMPILE_R7RS_MOSH")
|
|
,script-file
|
|
" "
|
|
,args))))))
|
|
(racket
|
|
(type . interpreter)
|
|
(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
|
|
(let* ((full-path (search-library-file (append append-directories
|
|
prepend-directories)
|
|
library-file))
|
|
(library-rkt-file (change-file-suffix full-path ".rkt")))
|
|
(if r6rs?
|
|
`("sleep 0") ;`(,(string-append "plt-r6rs --compile " library-file))
|
|
`(,(string-append "printf "
|
|
"'#lang r7rs\\n"
|
|
"(import (except (scheme base) let let-values let*-values string-copy string-copy! string-for-each string-map string-fill! string->list))\\n"
|
|
"(include \"" (path->filename library-file) "\")\\n' > "
|
|
library-rkt-file))))))
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(let ((rkt-input-file (if (string=? input-file "")
|
|
""
|
|
(change-file-suffix input-file ".rkt"))))
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
,(if r6rs?
|
|
" plt-r6rs "
|
|
" racket ")
|
|
,(util-getenv "COMPILE_R7RS_RACKET")
|
|
,(if r6rs? "" " -I r7rs ")
|
|
,@(map (lambda (item)
|
|
(string-append
|
|
(if r6rs? " ++path " " -S ")
|
|
item " "))
|
|
(append prepend-directories
|
|
append-directories))
|
|
,(if r6rs? "" " --script ")
|
|
,script-file
|
|
" "
|
|
,args))))))
|
|
(sagittarius
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
,(if (symbol=? compilation-target 'windows)
|
|
" sash.exe -d "
|
|
" sash -d ")
|
|
,(util-getenv "COMPILE_R7RS_SAGITTARIUS")
|
|
,(if r6rs? " -r6 " " -r7 ")
|
|
,@(map (lambda (item)
|
|
(string-append " -L " item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append " -A " item " "))
|
|
append-directories)
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(skint
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" skint "
|
|
,(util-getenv "COMPILE_R7RS_SKINT")
|
|
" "
|
|
,@(map (lambda (item)
|
|
(string-append "-I " item "/ "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append "-A " item "/ "))
|
|
append-directories)
|
|
" --program="
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(stklos
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" stklos "
|
|
,(util-getenv "COMPILE_R7RS_STKLOS")
|
|
" "
|
|
,@(map (lambda (item)
|
|
(string-append "-I " item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append "-A " item " "))
|
|
append-directories)
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(tr7
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`(" TR7_LIB_PATH="
|
|
,@(map (lambda (item)
|
|
(string-append item ":"))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append item ":"))
|
|
append-directories)
|
|
" "
|
|
,exec-cmd
|
|
" tr7i "
|
|
,(util-getenv "COMPILE_R7RS_TR7")
|
|
,script-file
|
|
" "
|
|
,args)))))
|
|
(vicare
|
|
(type . compiler)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`("vicare "
|
|
,(util-getenv "COMPILE_R7RS_VICARE")
|
|
,@(map (lambda (item)
|
|
(string-append " -I " item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append " -A " item " "))
|
|
append-directories)
|
|
" --compile-program")))))
|
|
(ypsilon
|
|
(type . interpreter)
|
|
(command . ,(lambda (exec-cmd
|
|
script-file
|
|
args
|
|
input-file
|
|
output-file
|
|
prepend-directories
|
|
append-directories
|
|
library-files
|
|
r6rs?
|
|
compilation-target)
|
|
(apply string-append
|
|
`(,exec-cmd
|
|
" ypsilon "
|
|
,(util-getenv "COMPILE_R7RS_YPSILON")
|
|
,(if r6rs? " --r6rs " " --r7rs ")
|
|
" --mute"
|
|
" --quiet "
|
|
,@(map (lambda (item)
|
|
(string-append "--sitelib=" item " "))
|
|
prepend-directories)
|
|
,@(map (lambda (item)
|
|
(string-append "--sitelib=" item " "))
|
|
append-directories)
|
|
" --top-level-program "
|
|
,script-file
|
|
" "
|
|
,args)))))))))
|