44 lines
1.2 KiB
Scheme
44 lines
1.2 KiB
Scheme
|
(import (chicken process-context)
|
||
|
|
(chicken format)
|
||
|
|
(chicken string))
|
||
|
|
|
||
|
|
(define env-var get-environment-variable)
|
||
|
|
(define ref alist-ref)
|
||
|
|
|
||
|
|
(define egg (read))
|
||
|
|
|
||
|
|
(printf "[~A]\n" (env-var "EGG_NAME"))
|
||
|
|
|
||
|
|
(define dependencies
|
||
|
|
(map (lambda (dep)
|
||
|
|
(->string (if (list? dep)
|
||
|
|
(car dep)
|
||
|
|
dep)))
|
||
|
|
(append
|
||
|
|
(ref 'dependencies egg eqv? '())
|
||
|
|
;; TODO separate this into `buildInputs` and `propagatedBuildInputs`
|
||
|
|
(ref 'build-dependencies egg eqv? '()))))
|
||
|
|
(printf "dependencies = [~A]\n"
|
||
|
|
(string-intersperse (map (lambda (dep) (sprintf "~S" dep))
|
||
|
|
dependencies)
|
||
|
|
", "))
|
||
|
|
|
||
|
|
(define license (ref 'license egg))
|
||
|
|
(printf "license = ~S\n"
|
||
|
|
(if (not license)
|
||
|
|
""
|
||
|
|
(string-translate (->string (car license))
|
||
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZ "
|
||
|
|
"abcdefghijklmnopqrstuvwxyz-")))
|
||
|
|
|
||
|
|
(printf "sha256 = ~S\n" (env-var "EGG_SHA256"))
|
||
|
|
|
||
|
|
(define synopsis (ref 'synopsis egg))
|
||
|
|
(printf "synopsis = ~S\n"
|
||
|
|
(if (not synopsis)
|
||
|
|
""
|
||
|
|
(car synopsis)))
|
||
|
|
|
||
|
|
(printf "version = ~S\n" (env-var "EGG_VERSION"))
|
||
|
|
(print)
|