File: make-depends.lisp

package info (click to toggle)
maxima 5.10.0-6
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 44,268 kB
  • ctags: 17,987
  • sloc: lisp: 152,894; fortran: 14,667; perl: 14,204; tcl: 10,103; sh: 3,376; makefile: 2,202; ansic: 471; awk: 7
file content (18 lines) | stat: -rw-r--r-- 814 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
(in-package :mk)
(defvar *oos-dependency-stream* t
  "Output stream for list-dependencies-operation")
(defvar *oos-dependency-target* "target"
  "Output target for list-dependencies-operation")
(defun list-dependencies-operation (component force)
  (format *oos-dependency-stream* "~A : ~A.~A~%"
	  *oos-dependency-target*
	  (component-source-pathname component)
	  (component-source-extension component)))
(component-operation :list-dependencies 'list-dependencies-operation)
(defun create-dependency-file (target file)
  (setq dependency-file (open file :direction :output :if-exists :supersede))
  (setq *oos-dependency-target* target)
  (setq *oos-dependency-stream* dependency-file)
  (setq oos-output (operate-on-system 'maxima :list-dependencies))
  (format dependency-file "~%")
  (close dependency-file))