30
|
1 #! /bin/sh
|
|
2 ### gzip-el.sh --- compress superfluous installed source lisp
|
|
3
|
|
4 # Author: Jeff Miller <jmiller@bay1.bayserve.net>
|
|
5 # Author: Hrvoje Niksic <hniksic@srce.hr>
|
|
6 # Maintainer: Steve Baur <steve@altair.xemacs.org>
|
|
7 # Created: 13 Feb 1997
|
|
8 # Version: 1.0
|
|
9 # Keywords: internal
|
|
10
|
|
11
|
|
12 #
|
|
13 #
|
|
14 echo Compressing .el files in "$1"...
|
|
15
|
|
16 find "$1" -type f -name "*.el" -print |
|
|
17 while read file; do
|
|
18 [ -s "${file}c" ] && echo "$file" && gzip -f9 "$file"
|
|
19 done
|
|
20
|
|
21 echo Compressing .el files in "$1"...done.
|