(A-GT-K09373): New abstract node.
[chise/xemacs-chise.git.1] / etc / aliases.ksh
1 ### aliases.ksh --- Useful shortcuts for XEmacs source hackers
2
3 # Copyright (C) 1998 Free Software Foundation, Inc.
4
5 # Author: Steve Baur
6 # Keywords: internal
7
8 # This file is part of XEmacs.
9
10 # XEmacs is free software; you can redistribute it and/or modify it
11 # under the terms of the GNU General Public License as published by
12 # the Free Software Foundation; either version 2, or (at your option)
13 # any later version.
14
15 # XEmacs is distributed in the hope that it will be useful, but
16 # WITHOUT ANY WARRANTY; without even the implied warranty of
17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18 # General Public License for more details.
19
20 # You should have received a copy of the GNU General Public License
21 # along with XEmacs; see the file COPYING.  If not, write to
22 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 # Boston, MA 02111-1307, USA.
24
25 # Shortcuts for sh-derived Unix shells (ksh, zsh, bash)
26
27 # From Steve Baur <steve@xemacs.org>
28 # Run temacs as XEmacs
29 function runtemacs
30 {
31         if [ ! -x temacs ]; then
32                 echo "Must be in temacs source directory to run temacs."
33                 return 1;
34         fi
35
36         ./temacs -batch -l loadup.el run-temacs "$@"
37 }
38
39 # From Adrian Aichner <aichner@ecf.teradyne.com>
40 # Convenience function for running build-report
41 function mak
42 {
43         make "$@" 2>&1 | tee beta.err
44 }
45 # export -f mak
46
47 # From Karl Hegbloom <karlheg@bittersweet.inetarena.com>
48 # igrep from the shell command line
49 function listargs
50 {
51         for arg in "$@"; do
52                 echo " \"$arg\""
53         done
54 }
55
56 function igrep
57 {
58         exp="$1"; shift
59         gnudoit -q "(igrep nil \"$exp\" '($(listargs "$@")))"
60 }