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:
parent
97e30a68ec
commit
6071222b67
5 changed files with 36 additions and 4 deletions
|
|
@ -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"))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue