35 lines
1.6 KiB
Scheme
35 lines
1.6 KiB
Scheme
;; Routines to locate Go packages in a `<vfs>`.
|
|
(define-library (zilch lang go package)
|
|
(import
|
|
(scheme base)
|
|
(zilch file) (zilch magic)
|
|
(zilch nixpkgs) (zilch zexpr)
|
|
(zilch vfs)
|
|
json
|
|
(chicken foreign)
|
|
(zilch lang go core) (zilch lang go) (zilch lang go vfs) (zilch lang go stdlib))
|
|
|
|
(export find-packages-inside-vfs)
|
|
|
|
(begin
|
|
(foreign-declare "#include \"parser_source.h\"")
|
|
(define go-import-parser
|
|
(go-package-link
|
|
(go-package-compile "main"
|
|
(map go-stdlib-ref '("encoding/json" "fmt" "go/build" "io" "io/fs" "os" "path" "path/filepath" "sort" "strings" "time"))
|
|
(list (cons "main.go" (zfile (foreign-value "parser_source" nonnull-c-string)))))))
|
|
|
|
;; Finds each Go package defined inside this virtual filesystem,
|
|
;; and returns a vector containing pairs, mapping the name of each directory to the
|
|
;; a vector-based structure describing the package defined in said directory.
|
|
(define (find-packages-inside-vfs vfs)
|
|
(define input
|
|
#~,(call-with-port
|
|
(open-output-bytevector)
|
|
(lambda (bv)
|
|
(json-write (vector (cons "GOARCH" (%goarch)) (cons "GOOS" "linux") (cons "files" #$(vfs-to-json (vfs-filter-for-go-package vfs)))) bv)
|
|
(get-output-bytevector bv))))
|
|
(define input-file (zfile input))
|
|
(define store-path (cdar (store-path-for-ca-drv "find-packages" "x86_64-linux" #~(#$go-import-parser #$input-file) '() '("out"))))
|
|
(call-with-port (store-path-open store-path)
|
|
(lambda (p) (json-read p))))))
|