File: prepend.esh

package info (click to toggle)
esh 0.8-7
  • links: PTS
  • area: main
  • in suites: sarge, woody
  • size: 508 kB
  • ctags: 542
  • sloc: ansic: 3,608; lisp: 166; makefile: 72
file content (22 lines) | stat: -rw-r--r-- 443 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 

#
# This script was used to prepend the header notice to every
# source code file.
#

(define prepend
  ~(push (file-read (file-open file (pop))))
  ~(push (squish (pop)
		 (file-read (file-open file (top)))))
  ~(file-write (file-open truncate (rot)) (rot)))


(define prepend-for-each
  ~(if ~(not-null? (rot))
       ~(begin (prepend (rot) (rot))
	       (prepend-for-each (cdr (l-stack))))
       ()))

(prepend-for-each (stack))