added some files:
sample makefile for building tex-stuff makefile-diplom.scm pkg-def.scm
This commit is contained in:
jottbee
parent
64ca70eed3
commit
f73ab42ff6
|
|
@ -0,0 +1,110 @@
|
||||||
|
#!/usr/bin/scsh -s
|
||||||
|
!#
|
||||||
|
(define targets-prereqs
|
||||||
|
; f : which file to scan
|
||||||
|
; i-dirs : the directories where to look for include files
|
||||||
|
(lambda (f i-dirs)
|
||||||
|
(let ; calling gcc-cmd returns
|
||||||
|
; all dependencies in one entire string
|
||||||
|
((raw-deps (lambda (file dirs)
|
||||||
|
; full command string
|
||||||
|
(let ((gcc-cmd (lambda (my-file ds)
|
||||||
|
; build the include args for gcc e.g.
|
||||||
|
; ("-I." "-I.." "-I/usr/include")
|
||||||
|
(let ((i-args (lambda (d)
|
||||||
|
(let
|
||||||
|
((add-prefix
|
||||||
|
(lambda (p s)
|
||||||
|
(map
|
||||||
|
string-append
|
||||||
|
(circular-list p)
|
||||||
|
s))))
|
||||||
|
(add-prefix "-I" d)))))
|
||||||
|
(append
|
||||||
|
(list "gcc" "-M")
|
||||||
|
(i-args ds)
|
||||||
|
(list my-file))))))
|
||||||
|
(run/string ,(gcc-cmd file dirs)))))
|
||||||
|
; cook-deps returns a list like ("target:" "filename" "otherfile" ...)
|
||||||
|
(cook-deps (lambda (rdeps)
|
||||||
|
(let
|
||||||
|
; merge all \ -separated lines
|
||||||
|
; into one entire line
|
||||||
|
((unbreak-lines (lambda (str)
|
||||||
|
(regexp-substitute/global
|
||||||
|
#f
|
||||||
|
(rx (: (* white)
|
||||||
|
#\\
|
||||||
|
#\newline
|
||||||
|
(* white)))
|
||||||
|
str
|
||||||
|
'pre " " 'post)))
|
||||||
|
; break a string into tokens
|
||||||
|
; "a space delimeted string" ->
|
||||||
|
; ("a" "space" "delimited" "string")
|
||||||
|
(extract-f-l (lambda (s)
|
||||||
|
(string-tokenize s char-set:graphic))))
|
||||||
|
(extract-f-l (unbreak-lines rdeps)))))
|
||||||
|
; splits a list of strings into a target and its prerequisites
|
||||||
|
; by searching for an element with a colon as the last character
|
||||||
|
; returns a pair list and needs the list of dependencies
|
||||||
|
(t-p-pair (lambda (deps-l)
|
||||||
|
(let
|
||||||
|
; deletes the last character colon...
|
||||||
|
((delete-colon (lambda (target)
|
||||||
|
(regexp-substitute/global
|
||||||
|
#f
|
||||||
|
(rx (: #\: eos))
|
||||||
|
target
|
||||||
|
'pre 'post)))
|
||||||
|
; as list-index returns the element no
|
||||||
|
; starting at 0, last-target-element
|
||||||
|
; increases this index by 1
|
||||||
|
(last-target-element
|
||||||
|
(lambda (str-l)
|
||||||
|
; tests if a target-candidate (tc) is a target
|
||||||
|
; a tc is a target if its last character is
|
||||||
|
; a colon...
|
||||||
|
(let ((is-target? (lambda (tc)
|
||||||
|
(regexp-search
|
||||||
|
(rx (: any #\: eos))
|
||||||
|
tc))))
|
||||||
|
(+ 1 (list-index is-target? str-l))))))
|
||||||
|
(cond
|
||||||
|
((null? deps-l) #f)
|
||||||
|
(else
|
||||||
|
(cons
|
||||||
|
; this is a pair list -> the colon can be deleted
|
||||||
|
(map delete-colon
|
||||||
|
(take deps-l (last-target-element deps-l)))
|
||||||
|
(list
|
||||||
|
(drop deps-l (last-target-element deps-l))))))))))
|
||||||
|
(t-p-pair (cook-deps (raw-deps f i-dirs))))))
|
||||||
|
|
||||||
|
(define add-entry
|
||||||
|
(lambda (k d a)
|
||||||
|
(let
|
||||||
|
((tp (lambda (f i)
|
||||||
|
(targets-prereqs f i))))
|
||||||
|
(alist-cons (car (tp k d)) (cdr (tp k d)) a))))
|
||||||
|
|
||||||
|
(define include-dirs
|
||||||
|
(list
|
||||||
|
"./"
|
||||||
|
"/usr/include"
|
||||||
|
"/usr/src/linux/include"))
|
||||||
|
|
||||||
|
(define target-lookup-table
|
||||||
|
(add-entry
|
||||||
|
"./scanme.c"
|
||||||
|
include-dirs
|
||||||
|
'()))
|
||||||
|
|
||||||
|
(define target-lookup-table
|
||||||
|
(add-entry
|
||||||
|
"./it.h"
|
||||||
|
include-dirs
|
||||||
|
target-lookup-table))
|
||||||
|
|
||||||
|
(display target-lookup-table)
|
||||||
|
(newline)
|
||||||
|
|
@ -0,0 +1,101 @@
|
||||||
|
(define-structure makefile
|
||||||
|
(export fix-broken-urls
|
||||||
|
make-all!
|
||||||
|
make-pdf!
|
||||||
|
make-ps!
|
||||||
|
make-clean!
|
||||||
|
make-mrproper!)
|
||||||
|
(open scheme-with-scsh
|
||||||
|
srfi-1
|
||||||
|
srfi-9
|
||||||
|
macros
|
||||||
|
make
|
||||||
|
to-rule-set
|
||||||
|
templates
|
||||||
|
autovars)
|
||||||
|
(begin
|
||||||
|
|
||||||
|
(define clean-files
|
||||||
|
(list "scsh-make.aux" "scsh-make.log" "scsh-make.blg"))
|
||||||
|
|
||||||
|
(define mrproper-files
|
||||||
|
(list "scsh-make.pdf" "scsh-make.ps" "scsh-make.advi"
|
||||||
|
"scsh-make.bbl" "scsh-make.dvi" "fig/mcast.eps"))
|
||||||
|
|
||||||
|
(define (rerun? target prereqs)
|
||||||
|
(let ((re (rx (: "Rerun to get cross-references right."))))
|
||||||
|
(if (file-not-exists? target)
|
||||||
|
#t
|
||||||
|
(if (null? prereqs)
|
||||||
|
#f
|
||||||
|
(let* ((inp (open-input-file (car prereqs)))
|
||||||
|
(str (port->string inp)))
|
||||||
|
(close inp)
|
||||||
|
(regexp-search re str))))))
|
||||||
|
|
||||||
|
;; fix lines with broken wrapped URLs
|
||||||
|
(define (fix-broken-urls fname)
|
||||||
|
(let* ((re (rx (: (submatch (* (- any #\newline "%")))
|
||||||
|
(submatch "%" #\newline))))
|
||||||
|
(inp (open-input-file fname))
|
||||||
|
(s (port->string inp)))
|
||||||
|
(close inp)
|
||||||
|
(with-current-output-port
|
||||||
|
(open-output-file fname)
|
||||||
|
(display (regexp-substitute/global #f re s 'pre 1 'post)))))
|
||||||
|
|
||||||
|
(define rule-set
|
||||||
|
(makefile
|
||||||
|
(common-%
|
||||||
|
(file "fig/%.eps"
|
||||||
|
("fig/%.fig")
|
||||||
|
(run (fig2dev -L "eps" ,($<) ,($@))))
|
||||||
|
(file "png/%.eps"
|
||||||
|
("png/%.png")
|
||||||
|
(run (convert ,($<) ,($@))))
|
||||||
|
(file "jpg/%.eps"
|
||||||
|
("jpg/%.jpg")
|
||||||
|
(run (convert ,($<) ,($@))))
|
||||||
|
(file "%.advi"
|
||||||
|
("%.dvi")
|
||||||
|
(run (dvicopy ,($<) ,($@))))
|
||||||
|
(file "%.pdf"
|
||||||
|
("%.ps")
|
||||||
|
(run (ps2pdf ,"-sPAPERSIZE=a4" ,($<) ,($@))))
|
||||||
|
(file "%.ps"
|
||||||
|
("%.dvi")
|
||||||
|
(run (dvips -o ,($@) ,($<))))
|
||||||
|
(once "%.dvi"
|
||||||
|
("%.aux" "%.aux" "%.aux" "%.aux")
|
||||||
|
#t)
|
||||||
|
(rerun? "%.aux"
|
||||||
|
("%.log")
|
||||||
|
(run (latex ,($*))))
|
||||||
|
(file "scsh-make.log"
|
||||||
|
("scsh-make.tex" "scsh-make.bst"
|
||||||
|
"einleitung.tex" "konzepte.tex" "makefile.tex"
|
||||||
|
"embedded.tex" "jobserver.tex" "zusammenfassung.tex"
|
||||||
|
"fig/mcast.eps" "makefile.scm")
|
||||||
|
(run (latex ,($<)))
|
||||||
|
(run (bibtex ,"scsh-make"))
|
||||||
|
(fix-broken-urls "scsh-make.bbl")
|
||||||
|
(run (latex ,"scsh-make"))))
|
||||||
|
(always "all"
|
||||||
|
("scsh-make.pdf" "scsh-make.ps" "scsh-make.advi")
|
||||||
|
(display ";;; done: building ")
|
||||||
|
(display ($@))
|
||||||
|
(newline))
|
||||||
|
(always "clean"
|
||||||
|
()
|
||||||
|
(for-each (lambda (f) (delete-filesys-object f))
|
||||||
|
clean-files))
|
||||||
|
(always "mrproper"
|
||||||
|
()
|
||||||
|
(for-each (lambda (f) (delete-filesys-object f))
|
||||||
|
mrproper-files))))
|
||||||
|
|
||||||
|
(define (make-all!) (make rule-set (list "all")))
|
||||||
|
(define (make-pdf!) (make rule-set (list "scsh-make.pdf")))
|
||||||
|
(define (make-ps!) (make rule-set (list "scsh-make.ps")))
|
||||||
|
(define (make-clean!) (make rule-set (list "clean")))
|
||||||
|
(define (make-mrproper!) (make rule-set (list "mrproper")))))
|
||||||
|
|
@ -0,0 +1,33 @@
|
||||||
|
(define-package "scsh-make"
|
||||||
|
(0 1)
|
||||||
|
((install-lib-version (1 0)))
|
||||||
|
(write-to-load-script
|
||||||
|
`((config)
|
||||||
|
(load ,(absolute-file-name "packages.scm"
|
||||||
|
(get-directory 'scheme #f)))))
|
||||||
|
(install-file "SYNTAX" 'doc)
|
||||||
|
(install-file "README" 'doc)
|
||||||
|
(install-file "COPYING" 'doc)
|
||||||
|
(install-file "autovars.scm" 'scheme)
|
||||||
|
(install-file "cml-pe.scm" 'scheme)
|
||||||
|
(install-file "collect-channels.scm" 'scheme)
|
||||||
|
(install-file "common-rules.scm" 'scheme)
|
||||||
|
(install-file "dfs.scm" 'scheme)
|
||||||
|
(install-file "gcc-m.scm" 'scheme)
|
||||||
|
(install-file "jobd.scm" 'scheme)
|
||||||
|
(install-file "job.scm" 'scheme)
|
||||||
|
(install-file "macros.scm" 'scheme)
|
||||||
|
(install-file "make-rule-no-cml.scm" 'scheme)
|
||||||
|
(install-file "make-rule.scm" 'scheme)
|
||||||
|
(install-file "make.scm" 'scheme)
|
||||||
|
(install-file "mcast-channels.scm" 'scheme)
|
||||||
|
(install-file "packages.scm" 'scheme)
|
||||||
|
(install-file "rule-cand.scm" 'scheme)
|
||||||
|
(install-file "templates.scm" 'scheme)
|
||||||
|
(install-file "to-rule-set.scm" 'scheme))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue