|
30
|
1 #! /bin/sh
|
|
|
2 ### gzip-el.sh --- compress superfluous installed source lisp
|
|
|
3
|
|
177
|
4 # Author: Jeff Miller <jmiller@smart.net>
|
|
30
|
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
|
|
181
|
11 # This file is part of XEmacs.
|
|
|
12
|
|
|
13 # XEmacs is free software; you can redistribute it and/or modify it
|
|
|
14 # under the terms of the GNU General Public License as published by
|
|
|
15 # the Free Software Foundation; either version 2, or (at your option)
|
|
|
16 # any later version.
|
|
|
17
|
|
|
18 # XEmacs is distributed in the hope that it will be useful, but
|
|
|
19 # WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
21 # General Public License for more details.
|
|
|
22
|
|
|
23 # You should have received a copy of the GNU General Public License
|
|
|
24 # along with XEmacs; see the file COPYING. If not, write to
|
|
|
25 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
26 # Boston, MA 02111-1307, USA.
|
|
30
|
27
|
|
|
28 #
|
|
|
29 #
|
|
|
30 echo Compressing .el files in "$1"...
|
|
|
31
|
|
|
32 find "$1" -type f -name "*.el" -print |
|
|
|
33 while read file; do
|
|
|
34 [ -s "${file}c" ] && echo "$file" && gzip -f9 "$file"
|
|
|
35 done
|
|
|
36
|
|
|
37 echo Compressing .el files in "$1"...done.
|
