scsh-make/makefile.scm

43 lines
1.4 KiB
Scheme

;;; (define d (expand-file-name "~/.tmp"))
;;;
;;; (makefile
;;; (makefile-rule (expand-file-name "skills.tex" d)
;;; ()
;;; (lambda ()
;;; (with-cwd d (display "Top: skills.tex"))))
;;; (makefile-rule (expand-file-name "skills.dvi" d)
;;; (expand-file-name "skills.tex" d)
;;; (lambda ()
;;; (with-cwd d
;;; (run (latex ,(expand-file-name "skills.tex" d))))))
;;; (makefile-rule (expand-file-name "skills.pdf" d)
;;; (expand-file-name "skills.dvi" d)
;;; (lambda ()
;;; (with-cwd d (run
;;; (dvipdfm -o
;;; ,(expand-file-name "skills.pdf" d)
;;; ,(expand-file-name "skills.dvi" d)))))))
;;;
;;; (make (expand-file-name "skills.pdf" d) "this is an empty init-state")
(makefile
(makefile-rule "/home/bruegman/.tmp/skills.tex"
()
(lambda ()
(with-cwd "/home/bruegman/.tmp"
(display "Top: /home/bruegman/.tmp/skills.tex"))))
(makefile-rule "/home/bruegman/.tmp/skills.dvi"
("/home/bruegman/.tmp/skills.tex")
(lambda ()
(with-cwd "/home/bruegman/.tmp"
(run (latex ,"/home/bruegman/.tmp/skills.tex")))))
(makefile-rule "/home/bruegman/.tmp/skills.pdf"
("/home/bruegman/.tmp/skills.dvi")
(lambda ()
(with-cwd "/home/bruegman/.tmp"
(run (dvipdfm -o ,"/home/bruegman/.tmp/skills.pdf"
,"/home/bruegman/.tmp/skills.dvi"))))))
(make "/home/bruegman/.tmp/skills.pdf" "this is an empty init-state...")