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

39
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")
nil if (and (string-match ".texi\\(nfo\\)?$" source-file)
"makeinfo" (not (file-exists-p target-file)))
(expand-file-name source-file source-dir) do (ignore-errors
"-o" (pb/run-process
(expand-file-name (concat (file-name-sans-extension dest-file) nil
".info") "makeinfo"
target-dir)))) (expand-file-name source-file source-dir)
"--force"
"-o"
(expand-file-name target-file
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
nil (pb/run-process
"install-info" nil
(concat "--dir=" (expand-file-name "dir" target-dir)) "install-info"
(expand-file-name (concat (file-name-sans-extension dest-file) (concat "--dir=" (expand-file-name "dir" target-dir))
".info") (expand-file-name (concat (file-name-sans-extension dest-file)
target-dir)))) ".info")
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.