github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-24 19:19:52 +00:00
Code Issues Projects Releases Packages Wiki Activity

force build info files and ignore errors

Browse source 
some files will not build but we try to generate the info anyways,
despite errors.
This commit is contained in:
Donald Curtis 2013-05-26 13:21:35 -05:00
parent b7bb3be63b
commit c59e177fba
1 changed files with 22 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
package-build.el
View file

@ -678,28 +678,33 @@ file path and DEST is the relative path to which it should be copied."
(defun pb/generate-info-files (files source-dir target-dir) (defun pb/generate-info-files (files source-dir target-dir)
"Create .info files from any .texi files listed in FILES in SOURCE-DIR in TARGET-DIR." "Create .info files from any .texi files listed in FILES in SOURCE-DIR in TARGET-DIR."
(cl-loop for (source-file . dest-file) in files (cl-loop for (source-file . dest-file) in files
if (string-match ".texi$" source-file) for target-file = (concat (file-name-sans-extension dest-file)
do (pb/run-process ".info")
if (and (string-match ".texi\\(nfo\\)?$" source-file)
(not (file-exists-p target-file)))
do (ignore-errors
(pb/run-process
nil nil
"makeinfo" "makeinfo"
(expand-file-name source-file source-dir) (expand-file-name source-file source-dir)
"--force"
"-o" "-o"
(expand-file-name (concat (file-name-sans-extension dest-file) (expand-file-name target-file
".info") target-dir)))))
target-dir))))
(defun pb/generate-dir-file (files target-dir) (defun pb/generate-dir-file (files target-dir)
"Create dir file from any .info files listed in FILES in TARGET-DIR." "Create dir file from any .info files listed in FILES in TARGET-DIR."
(cl-loop for (source-file . dest-file) in files (cl-loop for (source-file . dest-file) in files
if (or (string-match ".info$" source-file) if (or (string-match ".info$" source-file)
(string-match ".texi$" source-file)) (string-match ".texi\\(nfo\\)?$" source-file))
do (pb/run-process do (ignore-errors
(pb/run-process
nil nil
"install-info" "install-info"
(concat "--dir=" (expand-file-name "dir" target-dir)) (concat "--dir=" (expand-file-name "dir" target-dir))
(expand-file-name (concat (file-name-sans-extension dest-file) (expand-file-name (concat (file-name-sans-extension dest-file)
".info") ".info")
target-dir)))) target-dir)))))
(defun pb/copy-package-files (files source-dir target-dir) (defun pb/copy-package-files (files source-dir target-dir)
"Copy FILES from SOURCE-DIR to TARGET-DIR. "Copy FILES from SOURCE-DIR to TARGET-DIR.