Make work from only url with clean folder.

Add hard depencies definitions for version.scm that prevented building on some systems.
This commit is contained in:
Cor Legemaat 2025-08-14 18:42:05 +02:00
commit 6071222b67
5 changed files with 36 additions and 4 deletions

View file

@ -48,7 +48,14 @@
(newline))
(lambda ()
(repository-discover path)))))
(let ((repo-root (dirname repo-orig)))
(let ((repo-root ;;(dirname repo-orig)
(string-join (take-while
(lambda (file)
(not (string=? file ".git")))
(string-split repo-orig
(car (string->list
file-name-separator-string))))
file-name-separator-string)))
(if (>= verbosity verbosity-notice)
(begin (display "Using repository: ")
(display repo-root)
@ -66,7 +73,13 @@
(define-public repo-clone
(lambda (url folder)
""
(clone url folder)))
(clone url folder)
(chdir folder)
(system* "/usr/bin/git" "submodule" "update" "--init" "--recursive")
;; (chdir (string-join (list folder "autogen")
;; file-name-separator-string))
;; (system* "/usr/bin/git" "checkout" "main")
(chdir folder)))
(define-public repo-update-src
(lambda (path)
@ -121,7 +134,8 @@
(finish (lambda ()
(if (string-suffix? ".ebuild" file-dst)
(system* "ebuild"
(string-join (list folder-dst
(string-join (list repo
folder-dst
file-dst)
file-name-separator-string)
"manifest"))