scsh-conservatory
/
scsh-make
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
scsh-make/makefile.scm

47 lines
1.6 KiB
Scheme
Raw Normal View History

makefile.scm: (expand-file-name ...) works now due to s,assq,assoc, in macros.scm and rule-trans-set.scm rule-trans-set.scm: known-rules-update is now really ugly! (but working) will be replaced with topological sort known-rules-update now loops until there are no further changes in the rule-candidates-list (each time). this should really make it work now. makros.scm replaced with macros.scm macros.scm: in make-is-out-of-date? there was no check for file-existence of each prereq
2005-01-20 05:18:07 -05:00
(define scsh-doc-dir (expand-file-name "~/src/scsh-0.6.6/doc/scsh-manual"))
(define work-dir scsh-doc-dir)
(define tex-file (expand-file-name "test.tex" scsh-doc-dir))
(define dvi-file (expand-file-name "test.dvi" scsh-doc-dir))
(define pdf-file (expand-file-name "test.pdf" scsh-doc-dir))
make-rule and make-rule-no-cml work with new interface.\n\nmakros: ?prereqs can be expression
2005-01-17 11:56:59 -05:00
*** empty log message ***
2005-01-18 14:28:50 -05:00
(make
makefile.scm: (expand-file-name ...) works now due to s,assq,assoc, in macros.scm and rule-trans-set.scm rule-trans-set.scm: known-rules-update is now really ugly! (but working) will be replaced with topological sort known-rules-update now loops until there are no further changes in the rule-candidates-list (each time). this should really make it work now. makros.scm replaced with macros.scm macros.scm: in make-is-out-of-date? there was no check for file-existence of each prereq
2005-01-20 05:18:07 -05:00
(makefile
(makefile-rule tex-file
()
(lambda ()
(with-cwd work-dir (display "Top: skills.tex"))))
(makefile-rule pdf-file
(dvi-file)
(lambda ()
(with-cwd work-dir (run (dvipdfm -o ,pdf-file ,dvi-file)))))
(makefile-rule dvi-file
(tex-file)
(lambda ()
(with-cwd work-dir (run (latex ,tex-file))))))
(pdf-file)
"this is an empty init-state")
;;; (make
;;; (makefile
;;; (makefile-rule "/home/johannes/.tmp/skills.tex"
;;; ()
;;; (lambda ()
;;; (with-cwd "/home/johannes/.tmp"
;;; (display "Top: /home/johannes/.tmp/skills.tex"))))
;;; (makefile-rule "/home/johannes/.tmp/skills.dvi"
;;; ("/home/johannes/.tmp/skills.tex")
;;; (lambda ()
;;; (with-cwd "/home/johannes/.tmp"
;;; (run (latex ,"/home/johannes/.tmp/skills.tex")))))
;;; (makefile-rule "/home/johannes/.tmp/skills.pdf"
;;; ("/home/johannes/.tmp/skills.dvi")
;;; (lambda ()
;;; (with-cwd "/home/johannes/.tmp"
;;; (run (dvipdfm -o ,"/home/johannes/.tmp/skills.pdf"
;;; ,"/home/johannes/.tmp/skills.dvi"))))))
;;; ("/home/johannes/.tmp/skills.pdf"
;;; "/home/johannes/.tmp/skills.dvi"
;;; "/home/johannes/.tmp/skills.tex")
;;; "this is an empty init-state...")