Mercurial > hg > xemacs-beta
view lib-src/fix-perms.sh @ 5066:545ec923b4eb
add documentation on keywords to cl*.el
-------------------- ChangeLog entries follow: --------------------
lisp/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* cl-seq.el:
* cl-seq.el (reduce):
* cl-seq.el (fill):
* cl-seq.el (replace):
* cl-seq.el (remove*):
* cl-seq.el (remove-if):
* cl-seq.el (remove-if-not):
* cl-seq.el (delete*):
* cl-seq.el (delete-if):
* cl-seq.el (delete-if-not):
* cl-seq.el (remove-duplicates):
* cl-seq.el (delete-duplicates):
* cl-seq.el (substitute):
* cl-seq.el (substitute-if):
* cl-seq.el (substitute-if-not):
* cl-seq.el (nsubstitute):
* cl-seq.el (nsubstitute-if):
* cl-seq.el (nsubstitute-if-not):
* cl-seq.el (find):
* cl-seq.el (find-if):
* cl-seq.el (find-if-not):
* cl-seq.el (position):
* cl-seq.el (position-if):
* cl-seq.el (position-if-not):
* cl-seq.el (count):
* cl-seq.el (count-if):
* cl-seq.el (count-if-not):
* cl-seq.el (mismatch):
* cl-seq.el (search):
* cl-seq.el (sort*):
* cl-seq.el (stable-sort):
* cl-seq.el (merge):
* cl-seq.el (member*):
* cl-seq.el (member-if):
* cl-seq.el (member-if-not):
* cl-seq.el (assoc*):
* cl-seq.el (assoc-if):
* cl-seq.el (assoc-if-not):
* cl-seq.el (rassoc*):
* cl-seq.el (rassoc-if):
* cl-seq.el (rassoc-if-not):
* cl-seq.el (union):
* cl-seq.el (nunion):
* cl-seq.el (intersection):
* cl-seq.el (nintersection):
* cl-seq.el (set-difference):
* cl-seq.el (nset-difference):
* cl-seq.el (set-exclusive-or):
* cl-seq.el (nset-exclusive-or):
* cl-seq.el (subsetp):
* cl-seq.el (subst-if):
* cl-seq.el (subst-if-not):
* cl-seq.el (nsubst):
* cl-seq.el (nsubst-if):
* cl-seq.el (nsubst-if-not):
* cl-seq.el (sublis):
* cl-seq.el (nsublis):
* cl-seq.el (tree-equal):
* cl-seq.el (cl-tree-equal-rec):
* cl.el:
* cl.el (pushnew):
* cl.el (adjoin):
* cl.el (subst):
Document the keywords to the various sequence/list functions.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Mon, 22 Feb 2010 21:17:47 -0600 (2010-02-23) |
parents | 4faad22a9fe5 |
children | 308d34e9f07d |
line wrap: on
line source
#!/bin/sh ### fix-perms.sh --- Correct the permissions on XEmacs source/build files # Copyright (C) 2010 Ben Wing. # Author: Ben Wing # Keywords: internal # This file is part of XEmacs. # XEmacs is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # XEmacs is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # You should have received a copy of the GNU General Public License # along with XEmacs; see the file COPYING. If not, write to # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. ### Commentary: # This program sets the executable bit on all scripts and executable files # in the XEmacs source tree, including those that are built. ### Code: # List of executable source files in various directories (root, lib-src, etc) # other than .sh files. Note that we are free to list files in # subdirectories here rather than creating a separate item list" ROOT_EXES="configure config.guess install-sh move-if-change \ modules/canna/configure" LIB_SRC_EXES="ad2c gnuattach gnudoit rcs2log vcdiff *.pl" ETC_EXES="" LIB_SRC_BUILT_EXES="`cd lib-src; ls -1 *.c | sed 's/\.c$//g'`" LIB_SRC_BUILT_EXES="minitar ctags $LIB_SRC_BUILT_EXES" SRC_BUILT_EXES="temacs xemacs" find . -type f -print0 | xargs -0 chmod a-x for dir in . lib-src etc ; do if [ "$dir" = "." ]; then exes="$ROOT_EXES" elif [ "$dir" = "lib-src" ]; then exes="$LIB_SRC_EXES" elif [ "$dir" = "etc" ]; then exes="$ETC_EXES" else echo "Error! Don't know how to handle directory '$dir'"; exit 2 fi pwd=`pwd` cd $dir for x in $exes *.sh ; do if [ ! -f $x ]; then echo "Warning: file '$dir/$x' doesn't exist" else chmod a+x $x fi done cd "$pwd" done # Now do the built executables. Don't warn or anything if we don't find # anything, since they may not be built. for dir in lib-src src ; do if [ "$dir" = "src" ]; then exes="$SRC_BUILT_EXES" elif [ "$dir" = "lib-src" ]; then exes="$LIB_SRC_BUILT_EXES" else echo "Error! Don't know how to handle directory '$dir'"; exit 2 fi pwd=`pwd` cd $dir for x in $exes *.exe ; do if [ -f $x ]; then chmod a+x $x fi done cd "$pwd" done