428
+ − 1 #! /bin/sh
+ − 2 ### gzip-el.sh --- compress superfluous installed source lisp
+ − 3
+ − 4 # Author: Jeff Miller <jmiller@smart.net>
+ − 5 # Author: Hrvoje Niksic <hniksic@xemacs.org>
+ − 6 # Maintainer: Steve Baur <steve@xemacs.org>
+ − 7 # Created: 13 Feb 1997
+ − 8 # Version: 1.0
+ − 9 # Keywords: internal
+ − 10
+ − 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.
+ − 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.
