;;; along with SOD; if not, write to the Free Software Foundation,
;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-(cl:defpackage #:sod-frontend
- (:use #:common-lisp #:sod-utilities #:optparse #:sod #:sod-parser)
- (:shadowing-import-from #:optparse #:int))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (handler-bind ((warning #'muffle-warning))
+ (cl:defpackage #:sod-frontend
+ (:use #:common-lisp #:sod-utilities #:optparse #:sod #:sod-parser))))
(cl:in-package #:sod-frontend)
(backtracep nil)
(builtinsp nil)
(stdoutp nil)
+ (track-deps-p nil)
(args nil))
;; Option definitions.
:print nil))))
(error (error)
(option-parse-error "~A" error))))))
+ (#\M "track-dependencies"
+ "Write make(1) fragments recording dependencies."
+ (set track-deps-p))
(#\p "stdout"
("Write output files to standard output.")
(set stdoutp))
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
- (output-module module reason stream))))
+ (output-module module reason stream))
+
+ (when track-deps-p
+ (write-dependency-file module reason
+ output-path))))
;; Error recovery.
(continue ()