![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ksh4.7.tar CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / f / tmp / ksh|
Return to ksh4.7.tar CVS log | Up to [MW Coherent from dump] / coherent / f / tmp / ksh |
1.1 root 1: ./pdksh/ 2755 653 1762 0 5302773755 7360 5 ustar hlu ./pdksh/README 644 653 1762 11455 5243743631 10316 0 ustar hlu Public Domain Korn Shell
2: Version 4.5
3:
4: PD KSH:
5:
6: This is the latest version of the PD ksh (pdksh). It is not
7: intended to be the ultimate shell but rather a usable ksh work
8: alike. For those of us who have to work on multiple systems it
9: is nice to have the same user interface on all. I resisted
10: moving to the ksh on a Bull system at work for nearly a year due
11: to the lack of a ksh on my Sun systems. When I first picked up
12: the 3.2 PD KSH a couple of years ago, it took only a few minutes
13: to convert a C-shell fan to a ksh fan :-) Pdksh is not 100%
14: compatible with the ksh. Having said that, I use it daily
15: beside a real ksh88 and find them virtually indistinguishable.
16:
17: I only run this shell on sun's and only for interactive use. I
18: use it on sun4c, sun3 and sun386 systems. The shell itself has
19: been compiled on each of these both with and without the
20: POSIX/ANSI compatability libraries in ./std. See the file
21: MACHINES for details of systems that the shell has been built
22: on.
23:
24: I have released this version of the shell (with the kind
25: permission of the previous maintainers and major contributors) to
26: ensure that it is available from usenet archive sites. Of
27: course it remains in the Public Domain. Equally obviously
28: neither myself nor any other contributors make any claims of
29: suitability etc. Ie. NO WARRANTY!!! If you make any changes
30: and distribute them, please leave your own finger prints in the
31: source. Its bad enough being flamed for my own bugs let alone
32: anyone elses :-)
33:
34: WHATS NEW:
35:
36: This update includes Job Control for System V (POSIX), many bug
37: fixes and a simple history file mechanism. See sh/ChangeLog.
38:
39: HISTORY:
40:
41: This shell was written by Eric Gisin. It is based on Charles
42: Forsyth's public domain V7 shell, which he later contributed to
43: Minix. John R MacMillan picked up Eric Gisin's version after
44: Eric moved on to other projects (see ReadMe.jrm).
45:
46: Since then there have been many contributors to this shell.
47: Most have left their fingerprints within the source and various
48: ReadMe.xxx and Changes.xxx files reflect their input.
49:
50: This version is basically that known as Eric Gisin's version 3.3
51: alpha which I obtained indirectly from John R MacMillan who is
52: the most recent maintainer. This version has much improved
53: emacs-mode command line editing (my main contribution) plus
54: enough extra emacs-mode features to make it difficult to
55: distinguish from ksh88. Bug fixes from various contributors are
56: the only other changes from John MacMillan's version.
57:
58: I have upped the version number for this release to distinguish
59: it from the original 3.3 version. This version is much improved
60: despite the small number of new features.
61:
62: INSTALLATION:
63:
64: The file INSTALL contains intructions for building and
65: installing the shell.
66:
67: The original instructions indicated that a POSIX compliant
68: environment and possibly an ANSI compiler are required. I have
69: used both gcc and native Sun and the GreenHills ANSI compiler
70: without problems.
71:
72: The POSIX/STDC compatability stuff in ./std seems to cause lots
73: of problems for some systems. This was at least in part because
74: I distributed it with half the librraies disabled :-), in any
75: case the shell itself in ./sh can now be compiled without any of
76: the ./std stuff which makes things much simpler on systems that
77: have a real POSIX environment.
78:
79: Porting to new environemnts can be a real pain. I don't really
80: plan to make a huge effort in this area since I expect that this
81: shell will be mainly required on exotic or obscure systems (the
82: ones that the vendor does not provide a ksh for). Thus the
83: small "market" does not warrant a C-news or X11 style
84: portability effort. Of course if people send patches for
85: various systems I'm happy to try and integrate them.
86:
87: ENVIRONMENT:
88:
89: My main interest in this shell is for Sun workstations. Every
90: other UNIX system I use comes with a real ksh. Being a strictly
91: C-shell environment, some improved profile files are in order on
92: Sun's.
93:
94: The etc directory contains a set of useful environment files.
95: These are the same files I use on several systems (many use a
96: real ksh):
97: ./etc/profile
98: ./etc/sys_config.sh
99: ./etc/ksh.kshrc
100:
101: The first one is obvious. The second, sys_config.sh is sourced
102: by /etc/profile and several other scripts. It is used to
103: determine the system type so that scripts like profile can be
104: used on multiple platforms.
105: The third one is also quite useful, add
106: . /etc/ksh.kshrc
107: to user's ~/.kshrc to simplify alias management.
108:
109: BUGS:
110:
111: Many folk have contributed to this shell.
112: I have attempted to credit (in sh/ChangeLog) the authors of bug
113: fixes received since the previous release.
114: There are surely still plenty of bugs to be found/fixed.
115:
116: There is a template bug report in bug-report [borrowed from the
117: X11R5 mit tree], just fill in the blanks and mail to
118: [email protected].
119:
120: I hope you find this shell as useful as I do...
121:
122: Simon J. Gerraty <[email protected]>
123: ./pdksh/etc/ 2755 653 1762 0 5302550265 10120 5 ustar hlu ./pdksh/etc/profile 644 653 1762 14461 5243743647 11603 0 ustar hlu :
124: # NAME:
125: # profile - global initialization for sh,ksh
126: #
127: # DESCRIPTION:
128: # This file is processed during login by /bin/sh
129: # and /bin/ksh. It is used to setup the default user
130: # environment.
131: #
132: # SEE ALSO:
133: # $HOME/.profile
134: # /etc/ksh.kshrc
135:
136: # RCSid:
137: # $Id: profile,v 1.4 1992/08/10 12:00:11 sjg Exp $
138: #
139: # @(#)Copyright (c) 1991 Simon J. Gerraty
140: #
141: # This file is provided in the hope that it will
142: # be of use. There is absolutely NO WARRANTY.
143: # Permission to copy, redistribute or otherwise
144: # use this file is hereby granted provided that
145: # the above copyright notice and this notice are
146: # left intact.
147:
148: case "$_INIT_" in
149: *env*) ;;
150: *) # do these once
151: _INIT_="$_INIT_"env
152: export _INIT_
153: case `echo -n ""` in
154: -n*)
155: _N_=""; _C_="\c";;
156: *)
157: _N_="-n"; _C_="";;
158: esac
159:
160: if [ -f /unix ]; then
161: # System V
162: [ -z "$TZ" -a -f /etc/TIMEZONE ] && . /etc/TIMEZONE
163:
164: set -- `who -r`
165: case "$3" in
166: S|5|0) SINGLE=y;;
167: *) SINGLE=n;;
168: esac
169: # sys_config.sh should set ARCH,OS,C,N,HOSTNAME,uname
170: # we use these in lots of scripts...
171: [ "$SINGLE" = n -a -f /etc/sys_config.sh ] && . /etc/sys_config.sh
172: else
173: [ -f /etc/sys_config.sh ] && . /etc/sys_config.sh
174: SINGLE=n # doesn't matter so much
175: fi
176: # pick one of the following for the default umask
177: # umask 002 # relaxed -rwxrwxr-x
178: umask 022 # cautious -rwxr-xr-x
179: # umask 027 # uptight -rwxr-x---
180: # umask 077 # paranoid -rwx------
181: # you can override the default umask
182: # for specific groups later...
183:
184: if [ -d /local ]; then
185: LOCAL=/local
186: else
187: LOCAL=/usr/local
188: fi
189:
190: # set system specific things,
191: # eg. set PATH,MANPATH
192: # override default ulimit if desired.
193: # defult ulmit is unlimited on SunOS
194: # and 4Mb for most System V
195: case $OS in
196: SunOS)
197: # On sun's /bin -> /usr/bin so leave it out!
198: PATH=/usr/bin:/usr/ucb:/usr/5bin:.
199: MANPATH=/usr/man
200: defterm=vt220
201: ;;
202: SCO-UNIX)
203: PATH=/bin:/usr/bin:/usr/lbin:/usr/dbin:/usr/ldbin:.
204: MANPATH=/usr/man
205: defterm=ansi
206: ;;
207: B.O.S.)
208: PATH=/bin:/usr/bin:.
209: if [ -d /usr/ucb ]; then
210: PATH=$PATH:/usr/ucb
211: fi
212: MANPATH=/usr/catman
213: defterm=vt220
214: SRC_COMPAT=_SYSV
215: export SRC_COMPAT
216: ;;
217: *)
218: PATH=/bin:/usr/bin:.
219: if [ -d /usr/ucb ]; then
220: PATH=$PATH:/usr/ucb
221: fi
222: MANPATH=/usr/catman
223: defterm=vt220
224: ;;
225: esac
226: if [ -d ${LOCAL}/bin ]; then
227: PATH=$PATH:${LOCAL}/bin
228: fi
229: case "$HOME" in
230: /) ;;
231: ""|/tmp)
232: echo "Using /tmp for HOME"
233: HOME=/tmp; export HOME
234: ;;
235: *)
236: if [ -d $HOME/bin ]; then
237: PATH=$PATH:$HOME/bin
238: fi
239: ;;
240: esac
241: if [ -d ${LOCAL}/man ]; then
242: MANPATH=$MANPATH:${LOCAL}/man
243: fi
244: # make sure these are set at least once
245: LOGNAME=${LOGNAME:-`logname`}
246: USER=${USER:-$LOGNAME}
247:
248: # we expect id to produce output like:
249: # uid=100(sjg) gid=10(staff) groups=10(staff),...
250: S='('
251: E=')'
252: GROUP=`id | cut -d= -f3 | \
253: sed -e "s;^[^${S}][^${S}]*${S}\([^${E}][^${E}]*\)${E}.*$;\1;"`
254: UID=`id | cut -d= -f2 | \
255: sed -e "s;\([^${S}]*\)${S}.*;\1;"`
256: # set some group specific defaults
257: case "$GROUP" in
258: staff) # staff deal with things that non-staff
259: # have no business looking at
260: umask 027
261: ;;
262: extern) # we put external accounts in group "extern"
263: # give them as much privacy as we can...
264: umask 077
265: ulimit 16384 # 8Mb file limit
266: TMOUT=600 # idle timeout
267: ;;
268: esac
269:
270: unset S E GROUP
271: export LOCAL TTY PATH LOGNAME USER
272:
273: if [ -t 1 ]; then
274: # we are interactive
275: TTY=`tty`
276: TTY=`basename $TTY`
277: ORGANIZATION=""
278: COPYRIGHT="Copyright (c) `date +19%y` $ORGANIZATION"
279: export ORGANIZATION COPYRIGHT
280:
281: # set up some env variables
282: MAIL=/usr/spool/mail/$USER
283: MAILPATH=/usr/spool/mail/$USER:/etc/motd
284: EMACSDIR=${LOCAL}/lib/emacs
285: PAGER=${PAGER:-more}
286: export MAIL EMACSDIR MANPATH MAILPATH PAGER
287:
288: CVSROOT=${LOCAL}/src/master
289: EDITOR=emacs
290: FCEDIT=$EDITOR
291: export CVSROOT FCEDIT EDITOR
292: # EMACSLOADPATH=$EMACSDIR/lisp
293: # [ -d $LOCAL/lib/lisp ] && EMACSLOADPATH=$LOCAL/lib/lisp:$EMACSLOADPATH
294: # [ -d $HOME/lisp ] && EMACSLOADPATH=$HOME/lisp:$EMACSLOADPATH
295: case $UID in
296: 0) PROMPT="<$LOGNAME@$HOSTNAME># ";;
297: *) PROMPT="<$LOGNAME@$HOSTNAME>$ ";;
298: esac
299: # PUBDIR=/usr/spool/uucppublic
300: # export PUBDIR EMACSLOADPATH
301: [ -f /etc/profile.TeX ] && . /etc/profile.TeX
302: else
303: TTY=none
304: fi
305:
306: # test (and setup if we are Korn shell)
307: if [ "$RANDOM" != "$RANDOM" ]; then
308: # we are Korn shell
309: SHELL=/bin/ksh
310: ENV=${HOME%/}/.kshrc
311: HISTFILE=${HOME%/}/.ksh_hist
312: case $UID in
313: 0)
314: PROMPT="<$LOGNAME@$HOSTNAME:!># ";;
315: *) PROMPT="<$LOGNAME@$HOSTNAME:!>$ ";;
316: esac
317: export HISTSIZE HISTFILE ENV
318: CDPATH=.:$HOME
319: if [ "$TMOUT" ]; then
320: typeset -r TMOUT
321: fi
322: else
323: SHELL=/bin/sh
324: fi
325: PS1=$PROMPT
326: export SHELL PS1 EDITOR PATH PROMPT HOSTNAME CDPATH
327: ;;
328: esac
329:
330: # login time initialization
331: case "$_INIT_" in
332: *log*) ;;
333: *) _INIT_="$_INIT_"log
334: case "$SINGLE" in
335: y) ;;
336: *)
337: if [ TTY != none -a "$0" != "-su" -a "$LOGNAME" = "`logname`" -a ! -f ~/.hushlogin ]
338: then
339: case $OS in
340: B.O.S.)
341: case $TTY in
342: ttyp*) stty sane # problems with telnetd
343: ;;
344: esac
345: ;;
346: esac
347: # ensure known state
348: stty isig icanon intr '^c' erase '^h' kill '^u' eof '^d'
349: mesg y
350: case $TERM in
351: network|unknown|dialup|"")
352: echo ${_N_} "Enter terminal type [$defterm]: ${_C_}" 1>&2
353: read tmpterm
354: TERM=${tmpterm:-$defterm}
355: ;;
356: esac
357: # not all of the following are appropriate at all sites
358: # Sun's don't need to cat /etc/motd for instance
359: case "$OS" in
360: SunOS) ;;
361: SCO-UNIX)
362: [ -s /etc/motd ] && cat /etc/motd
363: [ -x /usr/bin/mail -a -s "$MAIL" ] &&
364: echo "You have mail."
365: [ -x /usr/bin/news ] && /usr/bin/news -n
366: ;;
367: *)
368: [ -s /etc/motd ] && cat /etc/motd
369: if [ -x /usr/bin/mailx ]; then
370: if mailx -e; then
371: echo "You have mail."
372: # show the the headers, this might
373: # be better done in .profile so they
374: # can override it.
375: # mailx -H
376: fi
377: fi
378: [ -x /usr/bin/news ] && /usr/bin/news -n
379: ;;
380: esac
381: # [ -x /usr/games/fortune ] && /usr/games/fortune -a
382: # remind folk who turned on reply.pl to turn it off.
383: if [ -f $HOME/.forward ]; then
384: echo "Your mail is being forwarded to:"
385: cat $HOME/.forward
386: if [ -f $HOME/.recording ]; then
387: echo "Perhaps you should run \"reply.pl off\""
388: fi
389: fi
390: fi
391: unset tmpterm defterm C N _C_ _N_
392: esac
393: case "$TERM" in
394: network|unknown|"") TERM=vt100;;
395: esac
396: export TERM TTY
397: ;;
398: esac
399: # Handle X-terminals if necessary
400: [ "$SINGLE" = n -a -f /etc/profile.X11 ] && . /etc/profile.X11
401: ./pdksh/etc/ksh.kshrc 644 653 1762 4573 5243743646 12023 0 ustar hlu :
402: # NAME:
403: # ksh.kshrc - global initialization for ksh
404: #
405: # DESCRIPTION:
406: # Each invocation of /bin/ksh processes the file pointed
407: # to by $ENV (usually $HOME/.kshrc).
408: # This file is intended as a global .kshrc file for the
409: # Korn shell. A user's $HOME/.kshrc file simply requires
410: # the line:
411: # . /etc/ksh.kshrc
412: # at or near the start to pick up the defaults in this
413: # file which can then be overridden as desired.
414: #
415: # SEE ALSO:
416: # $HOME/.kshrc
417: #
418:
419: # RCSid:
420: # $Id: ksh.kshrc,v 1.3 1992/08/10 12:00:08 sjg Exp $
421: #
422: # @(#)Copyright (c) 1991 Simon J. Gerraty
423: #
424: # This file is provided in the hope that it will
425: # be of use. There is absolutely NO WARRANTY.
426: # Permission to copy, redistribute or otherwise
427: # use this file is hereby granted provided that
428: # the above copyright notice and this notice are
429: # left intact.
430:
431: case "$-" in
432: *i*) # we are interactive
433: # we may have su'ed so reset these
434: # NOTE: SCO-UNIX doesn't have whoami,
435: # install whoami.sh
436: USER=`whoami`
437: PROMPT="<$USER@$HOSTNAME:!>$ "
438: PPROMPT='<$USER@$HOSTNAME:$PWD:!>$ '
439: PS1=$PPROMPT
440: # $TTY is the tty we logged in on,
441: # $tty is that which we are in now (might by pty)
442: tty=`tty`
443: tty=`basename $tty`
444:
445: set -o $EDITOR
446:
447: alias ls='ls -CF'
448: alias h='fc -l | more'
449: # the PD ksh is not 100% compatible
450: case "$KSH_VERSION" in
451: *PD*) # PD ksh
452: case "$TERM" in
453: xterm*)
454: # bind arrow keys
455: bind '^[['=prefix-2
456: bind '^XA'=up-history
457: bind '^XB'=down-history
458: bind '^XC'=forward-char
459: bind '^XD'=backward-char
460: ;;
461: esac
462: ;;
463: *) # real ksh ?
464: ;;
465: esac
466: case "$TERM" in
467: sun*)
468: # these are not as neat as their csh equivalents
469: if [ "$tty" != console ]; then
470: # ilabel
471: ILS='\033]L'; ILE='\033\\'
472: # window title bar
473: WLS='\033]l'; WLE='\033\\'
474: fi
475: ;;
476: xterm*)
477: ILS='\033]1;'; ILE='\007'
478: WLS='\033]2;xterm: '; WLE='\007'
479: ;;
480: *) ;;
481: esac
482: # do we want window decorations?
483: if [ "$ILS" ]; then
484: wftp () { ilabel "ftp $*"; "ftp" $*;
485: ilabel "$USER@$HOSTNAME"; }
486: wcd () { "cd" $*; eval stripe; }
487: ilabel () { print -n "${ILS}$*${ILE}"; }
488: label () { print -n "${WLS}$*${WLE}"; }
489: alias stripe='label $USER @ $HOSTNAME \($tty\) - $PWD'
490: alias cd=wcd
491: alias ftp=wftp
492: eval stripe
493: eval ilabel "$USER@$HOSTNAME"
494: PS1=$PROMPT
495: fi
496: alias quit=exit
497: alias cls=clear
498: alias logout=exit
499: alias bye=exit
500:
501:
502: # add your favourite aliases here
503: ;;
504: *) # non-interactive
505: ;;
506: esac
507: # commands for both interactive and non-interactive shells
508: ./pdksh/etc/sys_config.sh 644 653 1762 2616 5243743647 12676 0 ustar hlu :
509: # NAME:
510: # sys_config.sh - set system specific variables
511: #
512: # SYNOPSIS:
513: # . /etc/sys_config.sh
514: #
515: # DESCRIPTION:
516: # Source this script into shell scripts that want to handle
517: # various system types.
518: # You may well want to edit this on a particular system replacing
519: # `uname -s` etc with the result. So that the facility will work
520: # even when in single user mode and uname et al are not available.
521: #
522: # SEE ALSO:
523: # /etc/profile
524:
525: # RCSid:
526: # $Id: sys_config.sh,v 1.2 1992/08/10 12:00:14 sjg Exp $
527: #
528: # @(#)Copyright (c) 1991 Simon J. Gerraty
529: #
530: # This file is provided in the hope that it will
531: # be of use. There is absolutely NO WARRANTY.
532: # Permission to copy, redistribute or otherwise
533: # use this file is hereby granted provided that
534: # the above copyright notice and this notice are
535: # left intact.
536: #
537:
538: # determin machine type
539: if [ -f /usr/bin/arch ]; then
540: ARCH=`arch`
541: elif [ -f /usr/bin/uname -o -f /bin/uname ]; then
542: ARCH=`uname -m`
543: fi
544: #
545: case "$ARCH" in
546: sun386) uname=/usr/5bin/uname
547: OS=SunOS
548: ;;
549: *) uname=uname;;
550: esac
551:
552: # set the operating system type
553: # you can't use `uname -s` with SCO UNIX
554: # it returns the same string as `uname -n`
555: # so set it manually
556: # OS=SCO-UNIX
557: # The eval below is a workaround for a bug in the PD ksh.
558: OS=${OS:-`eval $uname -s`}
559: HOSTNAME=${HOSTNAME:-`eval $uname -n`}
560:
561: case `echo -n ""` in
562: -n*) _C_=""; _N_="-n";;
563: *) _C_="\c"; _N_="";;
564: esac
565: N="${_N_}"
566: C="${_C_}"
567: export OS ARCH HOSTNAME uname
568: ./pdksh/sh/ 2755 653 1762 0 5303017545 7757 5 ustar hlu ./pdksh/sh/emacs.c 644 653 1762 106051 5243743654 11326 0 ustar hlu /*
569: * Emacs-like command line editing and history
570: *
571: * created by Ron Natalie at BRL
572: * modified by Doug Kingston, Doug Gwyn, and Lou Salkind
573: * adapted to PD ksh by Eric Gisin
574: */
575:
576: #include "config.h"
577: #ifdef EMACS
578:
579: #ifndef lint
580: static char *RCSid = "$Id: emacs.c,v 1.3 1992/08/10 12:02:31 sjg Exp $";
581: #endif
582:
583: #include "stdh.h"
584: #include <signal.h>
585: #include <sys/stat.h>
586: #include <dirent.h>
587: #include <unistd.h>
588: #include <fcntl.h>
589: #include <ctype.h>
590: #include <errno.h>
591: #include <setjmp.h>
592: #include "sh.h"
593: #include "expand.h"
594: #include "edit.h"
595:
596: #define PUSH_DELETE 1 /* push all deletes of >1 char */
597:
598: static Area aedit;
599: #define AEDIT &aedit /* area for kill ring and macro defns */
600:
601: #undef CTRL /* _BSD brain damage */
602: #define CTRL(x) ((x) == '?' ? 0x7F : (x) & 0x1F) /* ASCII */
603: #define UNCTRL(x) ((x) == 0x7F ? '?' : (x) | 0x40) /* ASCII */
604:
605: #ifndef S_ISDIR
606: #define S_ISDIR(mode) (((mode) & S_IFMT) == S_IFDIR)
607: #endif
608:
609: #ifndef S_ISREG
610: #define S_ISREG(mode) (((mode) & S_IFMT) == S_IFREG)
611: #endif
612:
613: /* values returned by keyboard functions */
614: #define KSTD 0
615: #define KPREF 1 /* ^[, ^X */
616: #define KEOL 2 /* ^M, ^J */
617: #define KINTR 3 /* ^G, ^C */
618: #define KNULL 4
619:
620: struct x_ftab {
621: int (*xf_func)();
622: char *xf_name;
623: char xf_db_tab;
624: char xf_db_char;
625: short xf_flags;
626: };
627:
628: #define XF_ALLOC 2
629: #define XF_NOBIND 4
630:
631: #define iscfs(c) (c == ' ' || c == '\t') /* Separator for completion */
632: #define ismfs(c) (!(isalnum(c)|| c == '$')) /* Separator for motion */
633: #define BEL 0x07
634: #define CMASK 0x7F /* 7-bit ASCII character mask */
635:
636: #define X_TABSZ 128 /* size of keydef tables etc */
637:
638: static int x_prefix1 = CTRL('['), x_prefix2 = CTRL('X');
639: static char **x_histp; /* history position */
640: static char **x_nextcmdp; /* for newline-and-next */
641: static char *xmp; /* mark pointer */
642: static int (*x_last_command)();
643: static struct x_ftab const *(*x_tab)[X_TABSZ] = NULL; /* key definition */
644: static char *(*x_atab)[X_TABSZ] = NULL; /* macro definitions */
645: #define KILLSIZE 20
646: static char *killstack[KILLSIZE];
647: static int killsp, killtp;
648: static int x_curprefix;
649: static char *macroptr;
650: static int x_maxlen; /* to determine column width */
651:
652: static int x_insert ARGS((int c));
653: static int x_ins_string ARGS((int c));
654: static void x_ins ARGS((char *cp));
655: static int x_del_back ARGS((int c));
656: static int x_del_char ARGS((int c));
657: static void x_delete ARGS((int nc));
658: static int x_del_bword ARGS((int c));
659: static int x_mv_bword ARGS((int c));
660: static int x_mv_fword ARGS((int c));
661: static int x_del_fword ARGS((int c));
662: static int x_bword ARGS((void));
663: static int x_fword ARGS((void));
664: static void x_goto ARGS((char *cp));
665: static void x_bs ARGS((int c));
666: static int x_size_str ARGS((char *cp));
667: static int x_size ARGS((int c));
668: static void x_zots ARGS((char *str));
669: static void x_zotc ARGS((int c));
670: static int x_mv_back ARGS((int c));
671: static int x_mv_forw ARGS((int c));
672: static int x_search_char ARGS((int c));
673: static int x_newline ARGS((int c));
674: static int x_end_of_text ARGS((int c));
675: static int x_beg_hist ARGS((int c));
676: static int x_end_hist ARGS((int c));
677: static int x_prev_com ARGS((int c));
678: static int x_next_com ARGS((int c));
679: static void x_load_hist ARGS((char **hp));
680: static int x_nl_next_com ARGS((int c));
681: static int x_eot_del ARGS((int c));
682: static int x_search_hist ARGS((int c));
683: static int x_search ARGS((char *pat, int offset));
684: static int x_match ARGS((char *str, char *pat));
685: static int x_del_line ARGS((int c));
686: static int x_mv_end ARGS((int c));
687: static int x_mv_begin ARGS((int c));
688: static int x_draw_line ARGS((int c));
689: static int x_transpose ARGS((int c));
690: static int x_literal ARGS((int c));
691: static int x_meta1 ARGS((int c));
692: static int x_meta2 ARGS((int c));
693: static int x_kill ARGS((int c));
694: static void x_push ARGS((int nchars));
695: static int x_yank ARGS((int c));
696: static int x_meta_yank ARGS((int c));
697: static int x_abort ARGS((int c));
698: static int x_error ARGS((int c));
699: static int x_stuffreset ARGS((int c));
700: static int x_stuff ARGS((int c));
701: static void x_mapin ARGS((char *cp));
702: static char * x_mapout ARGS((int c));
703: static void x_print ARGS((int prefix, int key));
704: static int x_set_mark ARGS((int c));
705: static int x_kill_region ARGS((int c));
706: static int x_xchg_point_mark ARGS((int c));
707: static int x_copy_arg ARGS((int c));
708: static int x_noop ARGS((int c));
709: #ifdef SILLY
710: static int x_game_of_life ARGS((int c));
711: #endif
712: static void add_stash ARGS((char *dirnam, char *name));
713: static void list_stash ARGS((void));
714: static int x_comp_comm ARGS((int c));
715: static int x_list_comm ARGS((int c));
716: static int x_complete ARGS((int c));
717: static int x_enumerate ARGS((int c));
718: static int x_comp_file ARGS((int c));
719: static int x_list_file ARGS((int c));
720: static int x_comp_list ARGS((int c));
721: static void compl_dec ARGS((int type));
722: static void compl_file ARGS((int type));
723: static void compl_command ARGS((int type));
724: static int strmatch ARGS((char *s1, char *s2));
725: static int x_set_arg ARGS((int c));
726: static int x_prev_histword ARGS((void));
727: static int x_fold_case ARGS((int c));
728:
729: static struct x_ftab const x_ftab[] = {
730: {x_insert, "auto-insert", 0, 0, 0 },
731: {x_error, "error", 0, 0, 0 },
732: {x_ins_string, "macro-string", 0, 0, XF_NOBIND|XF_ALLOC},
733: {x_del_back, "delete-char-backward", 0, CTRL('H'), 0 },
734: {x_eot_del, "eot-or-delete", 0, CTRL('D'), 0 },
735: {x_del_bword, "delete-word-backward", 1, CTRL('H'), 0 },
736: {x_mv_bword, "backward-word", 1, 'b', 0 },
737: {x_del_line, "kill-line", 0, 0, 0 },
738: {x_abort, "abort", 0, 0, 0 },
739: {x_noop, "no-op", 0, 0, 0 },
740: /* Do not move the above! */
741: {x_mv_fword, "forward-word", 1, 'f', 0 },
742: {x_del_char, "delete-char-forward", 0, 0, 0 },
743: {x_del_fword, "delete-word-forward", 1, 'd', 0 },
744: {x_mv_back, "backward-char", 0, CTRL('B'), 0 },
745: {x_mv_forw, "forward-char", 0, CTRL('F'), 0 },
746: {x_search_char, "search-character", 0, CTRL(']'), 0 },
747: {x_newline, "newline", 0, CTRL('M'), 0 },
748: {x_newline, "newline", 0, CTRL('J'), 0 },
749: {x_end_of_text, "eot", 0, CTRL('_'), 0 },
750: {x_abort, "abort", 0, CTRL('G'), 0 },
751: {x_prev_com, "up-history", 0, CTRL('P'), 0},
752: {x_next_com, "down-history", 0, CTRL('N'), 0},
753: {x_search_hist, "search-history", 0, CTRL('R'), 0},
754: {x_beg_hist, "beginning-of-history", 1, '<', 0},
755: {x_end_hist, "end-of-history", 1, '>', 0},
756: {x_mv_end, "end-of-line", 0, CTRL('E'), 0 },
757: {x_mv_begin, "beginning-of-line", 0, CTRL('A'), 0 },
758: {x_draw_line, "redraw", 0, CTRL('L'), 0 },
759: {x_meta1, "prefix-1", 0, CTRL('['), 0 },
760: {x_meta2, "prefix-2", 0, CTRL('X'), 0 },
761: {x_kill, "kill-to-eol", 0, CTRL('K'), 0 },
762: {x_yank, "yank", 0, CTRL('Y'), 0 },
763: {x_meta_yank, "yank-pop", 1, 'y', 0 },
764: {x_literal, "quote", 0, CTRL('^'), 0 },
765: {x_stuffreset, "stuff-reset", 0, 0, 0 },
766: #if defined(BRL) && defined(TIOCSTI)
767: {x_stuff, "stuff", 0, CTRL('T'), 0 },
768: {x_transpose, "transpose-chars", 0, 0, 0 },
769: #else
770: {x_stuff, "stuff", 0, 0, 0 },
771: {x_transpose, "transpose-chars", 0, CTRL('T'), 0 },
772: #endif
773: #ifdef COMPLETE_LIST
774: {x_complete, "complete", 1, 0, 0 },
775: {x_comp_list, "complete-list", 1, CTRL('['), 0 },
776: #else
777: {x_complete, "complete", 1, CTRL('['), 0 },
778: {x_comp_list, "complete-list", 1, 0, 0 },
779: #endif
780: {x_enumerate, "list", 1, '?', 0 },
781: {x_comp_file, "complete-file", 1, CTRL('X'), 0 },
782: {x_comp_comm, "complete-command", 2, CTRL('['), 0 },
783: {x_list_file, "list-file", 0, 0, 0 },
784: {x_list_comm, "list-command", 2, '?', 0 },
785: {x_nl_next_com, "newline-and-next", 0, CTRL('O'), 0 },
786: {x_set_mark, "set-mark-command", 1, ' ', 0 },
787: {x_kill_region, "kill-region", 0, CTRL('W'), 0 },
788: {x_xchg_point_mark, "exchange-point-and-mark", 2, CTRL('X'), 0 },
789: #if 0
790: {x_copy_arg, "copy-last-arg", 1, '_', 0},
791: #endif
792: #ifdef SILLY
793: {x_game_of_life, "play-game-of-life", 0, 0, 0 },
794: #endif
795: #ifdef DEBUG
796: {x_debug_info, "debug-info", 1, CTRL('H'), 0 },
797: #endif
798: {x_prev_histword, "prev-hist-word", 1, '.', 0 },
799: {x_prev_histword, "prev-hist-word", 1, '_', 0 },
800: {x_set_arg, "", 1, '0', 0 },
801: {x_set_arg, "", 1, '1', 0 },
802: {x_set_arg, "", 1, '2', 0 },
803: {x_set_arg, "", 1, '3', 0 },
804: {x_set_arg, "", 1, '4', 0 },
805: {x_set_arg, "", 1, '5', 0 },
806: {x_set_arg, "", 1, '6', 0 },
807: {x_set_arg, "", 1, '7', 0 },
808: {x_set_arg, "", 1, '8', 0 },
809: {x_set_arg, "", 1, '9', 0 },
810: {x_fold_case, "upcase-word", 1, 'U', 0 },
811: {x_fold_case, "downcase-word", 1, 'L', 0 },
812: {x_fold_case, "capitalize-word", 1, 'C', 0 },
813: {x_fold_case, "upcase-word", 1, 'u', 0 },
814: {x_fold_case, "downcase-word", 1, 'l', 0 },
815: {x_fold_case, "capitalize-word", 1, 'c', 0 },
816: { 0 }
817: };
818:
819: #define xft_insert &x_ftab[0]
820: #define xft_error &x_ftab[1]
821: #define xft_ins_string &x_ftab[2]
822: #define xft_erase &x_ftab[3]
823: #define xft_kill &x_ftab[7]
824: #define xft_werase &x_ftab[5]
825: #define xft_intr &x_ftab[8]
826: #define xft_quit &x_ftab[9]
827:
828: int
829: x_emacs(buf, len)
830: char *buf;
831: size_t len;
832: {
833: char c;
834: int i;
835: int (*func)();
836: extern x_insert();
837:
838: xbp = xbuf = buf; xend = buf + len;
839: xlp = xcp = xep = buf;
840: *xcp = 0;
841: xlp_valid = TRUE;
842: xmp = NULL;
843: x_curprefix = 0;
844: macroptr = null;
845: x_histp = histptr + 1;
846:
847: if (x_nextcmdp != NULL) {
848: x_load_hist(x_nextcmdp);
849: x_nextcmdp = NULL;
850: }
851:
852: x_col = promptlen(prompt);
853: x_adj_ok = 1;
854: x_displen = x_cols - 2 - x_col;
855: x_adj_done = 0;
856:
857: while (1) {
858: x_flush();
859: if (*macroptr) {
860: c = *macroptr++;
861: if (*macroptr == 0)
862: macroptr = null;
863: }
864: else {
865: if ((c = x_getc()) < 0)
866: return i;
867: }
868:
869: if (x_curprefix == -1)
870: func = x_insert;
871: else
872: func = x_tab[x_curprefix][c&CMASK]->xf_func;
873: if (func == NULL)
874: func = x_error;
875: i = c | (x_curprefix << 8);
876: x_curprefix = 0;
877: switch (i = (*func)(i)) {
878: case KSTD:
879: x_last_command = func;
880: case KPREF:
881: case KNULL:
882: break;
883: case KEOL:
884: i = xep - xbuf;
885: x_last_command = 0;
886: return i;
887: case KINTR: /* special case for interrupt */
888: errno = EINTR;
889: return -1;
890: }
891: }
892: }
893:
894: static int
895: x_insert(c) {
896: char str[2];
897:
898: /*
899: * Should allow tab and control chars.
900: */
901: if (c == 0) {
902: x_putc(BEL);
903: return KSTD;
904: }
905: str[0] = c;
906: str[1] = 0;
907: x_ins(str);
908: return KSTD;
909: }
910:
911: static int
912: x_ins_string(c)
913: {
914: if (*macroptr) {
915: x_putc(BEL);
916: return KSTD;
917: }
918: macroptr = x_atab[c>>8][c & CMASK];
919: return KSTD;
920: }
921:
922: static void
923: x_ins(cp)
924: char *cp;
925: {
926: int count;
927: register int adj = x_adj_done;
928:
929: count = strlen(cp);
930: if (xep+count >= xend) {
931: x_putc(BEL);
932: return;
933: }
934:
935: if (xcp != xep)
936: memmove(xcp+count, xcp, xep - xcp + 1);
937: else
938: xcp[count] = 0;
939: memmove(xcp, cp, count);
940: /*
941: * x_zots() may result in a call to x_adjust()
942: * we want xcp to reflect the new position.
943: */
944: cp = xcp;
945: xcp += count;
946: xep += count;
947: xlp_valid = FALSE;
948: x_lastcp();
949: x_adj_ok = (xcp >= xlp);
950: x_zots(cp);
951: if (adj == x_adj_done) /* has x_adjust() been called? */
952: {
953: /* no */
954: for (cp = xlp; cp > xcp; )
955: x_bs(*--cp);
956: }
957:
958: x_adj_ok = 1;
959: return;
960: }
961:
962: static int
963: x_del_back(c) {
964: if (xcp == xbuf) {
965: x_putc(BEL);
966: return KSTD;
967: }
968: x_goto(xcp - 1);
969: x_delete(1);
970: return KSTD;
971: }
972:
973: static int
974: x_del_char(c) {
975: if (xcp == xep) {
976: x_putc(BEL);
977: return KSTD;
978: }
979: x_delete(1);
980: return KSTD;
981: }
982:
983: static void
984: x_delete(nc)
985: int nc;
986: {
987: int i,j;
988: char *cp;
989:
990: if (nc == 0)
991: return;
992: if (xmp != NULL) {
993: if (xcp + nc > xmp)
994: xmp = xcp;
995: else if (xmp > xcp)
996: xmp -= nc;
997: }
998: #ifdef PUSH_DELETE
999: /*
1000: * This lets us yank a word we have deleted.
1001: */
1002: if (nc > 1)
1003: x_push(nc);
1004: #endif
1005: xep -= nc;
1006: cp = xcp;
1007: j = 0;
1008: i = nc;
1009: while (i--) {
1010: j += x_size(*cp++);
1011: }
1012: memmove(xcp, xcp+nc, xep - xcp + 1); /* Copies the null */
1013: x_adj_ok = 0; /* don't redraw */
1014: x_zots(xcp);
1015: /*
1016: * if we are already filling the line,
1017: * there is no need to ' ','\b'.
1018: * But if we must, make sure we do the minimum.
1019: */
1020: if ((i = x_cols - 2 - x_col) > 0)
1021: {
1022: j = (j < i) ? j : i;
1023: i = j;
1024: while (i--)
1025: x_putc(' ');
1026: i = j;
1027: while (i--)
1028: x_putc('\b');
1029: }
1030: /*x_goto(xcp);*/
1031: x_adj_ok = 1;
1032: xlp_valid = FALSE;
1033: for (cp = x_lastcp(); cp > xcp; )
1034: x_bs(*--cp);
1035:
1036: return;
1037: }
1038:
1039: static int
1040: x_del_bword(c) {
1041: x_delete(x_bword());
1042: return KSTD;
1043: }
1044:
1045: static int
1046: x_mv_bword(c) {
1047: (void)x_bword();
1048: return KSTD;
1049: }
1050:
1051: static int
1052: x_mv_fword(c) {
1053: x_goto(xcp + x_fword());
1054: return KSTD;
1055: }
1056:
1057: static int
1058: x_del_fword(c) {
1059: x_delete(x_fword());
1060: return KSTD;
1061: }
1062:
1063: static int
1064: x_bword() {
1065: int nc = 0;
1066: register char *cp = xcp;
1067:
1068: if (cp == xbuf) {
1069: x_putc(BEL);
1070: return 0;
1071: }
1072: if (x_last_command != x_set_arg)
1073: x_arg = 1;
1074: while (x_arg--)
1075: {
1076: while (cp != xbuf && ismfs(cp[-1]))
1077: {
1078: cp--;
1079: nc++;
1080: }
1081: while (cp != xbuf && !ismfs(cp[-1]))
1082: {
1083: cp--;
1084: nc++;
1085: }
1086: }
1087: x_goto(cp);
1088: return nc;
1089: }
1090:
1091: static int
1092: x_fword() {
1093: int nc = 0;
1094: register char *cp = xcp;
1095:
1096: if (cp == xep) {
1097: x_putc(BEL);
1098: return 0;
1099: }
1100: if (x_last_command != x_set_arg)
1101: x_arg = 1;
1102: while (x_arg--)
1103: {
1104: while (cp != xep && !ismfs(*cp))
1105: {
1106: cp++;
1107: nc++;
1108: }
1109: while (cp != xep && ismfs(*cp))
1110: {
1111: cp++;
1112: nc++;
1113: }
1114: }
1115: return nc;
1116: }
1117:
1118: static void
1119: x_goto(cp)
1120: register char *cp;
1121: {
1122: if (cp < xbp || cp >= (xbp + x_displen))
1123: {
1124: /* we are heading off screen */
1125: xcp = cp;
1126: x_adjust();
1127: }
1128: else
1129: {
1130: if (cp < xcp) /* move back */
1131: {
1132: while (cp < xcp)
1133: x_bs(*--xcp);
1134: }
1135: else
1136: {
1137: if (cp > xcp) /* move forward */
1138: {
1139: while (cp > xcp)
1140: x_zotc(*xcp++);
1141: }
1142: }
1143: }
1144: }
1145:
1146: static void
1147: x_bs(c) {
1148: register i;
1149: i = x_size(c);
1150: while (i--)
1151: x_putc('\b');
1152: }
1153:
1154: static int
1155: x_size_str(cp)
1156: register char *cp;
1157: {
1158: register size = 0;
1159: while (*cp)
1160: size += x_size(*cp++);
1161: return size;
1162: }
1163:
1164: static int
1165: x_size(c) {
1166: if (c=='\t')
1167: return 4; /* Kludge, tabs are always four spaces. */
1168: if (c < ' ' || c == 0x7F) /* ASCII control char */
1169: return 2;
1170: return 1;
1171: }
1172:
1173: static void
1174: x_zots(str)
1175: register char *str;
1176: {
1177: register int adj = x_adj_done;
1178:
1179: x_lastcp();
1180: while (*str && str < xlp && adj == x_adj_done)
1181: x_zotc(*str++);
1182: }
1183:
1184: static void
1185: x_zotc(c)
1186: int c;
1187: {
1188: if (c == '\t') {
1189: /* Kludge, tabs are always four spaces. */
1190: x_puts(" ");
1191: } else if (c < ' ' || c == 0x7F) { /* ASCII */
1192: x_putc('^');
1193: x_putc(UNCTRL(c));
1194: } else
1195: x_putc(c);
1196: }
1197:
1198: static int
1199: x_mv_back(c) {
1200: if (xcp == xbuf) {
1201: x_putc(BEL);
1202: return KSTD;
1203: }
1204: x_goto(xcp-1);
1205: return KSTD;
1206: }
1207:
1208: static int
1209: x_mv_forw(c) {
1210: if (xcp == xep) {
1211: x_putc(BEL);
1212: return KSTD;
1213: }
1214: x_goto(xcp+1);
1215: return KSTD;
1216: }
1217:
1218: static int
1219: x_search_char(c)
1220: int c;
1221: {
1222: char *cp;
1223:
1224: *xep = '\0';
1225: if ((c = x_getc()) < 0 ||
1226: /* we search forward, I don't know what Korn does */
1227: ((cp = (xcp == xep) ? NULL : strchr(xcp+1, c)) == NULL &&
1228: (cp = strchr(xbuf, c)) == NULL)) {
1229: x_putc(BEL);
1230: return KSTD;
1231: }
1232: x_goto(cp);
1233: return KSTD;
1234: }
1235:
1236: static int
1237: x_newline(c) {
1238: x_putc('\n');
1239: x_flush();
1240: *xep++ = '\n';
1241: return KEOL;
1242: }
1243:
1244: static int
1245: x_end_of_text(c) {
1246: #if 0
1247: x_store_hist();
1248: #endif
1249: return KEOL;
1250: }
1251:
1252: static int x_beg_hist(c) {x_load_hist(history); return KSTD;}
1253:
1254: static int x_end_hist(c) {x_load_hist(histptr); return KSTD;}
1255:
1256: static int x_prev_com(c) {x_load_hist(x_histp-1); return KSTD;}
1257:
1258: static int x_next_com(c) {x_load_hist(x_histp+1); return KSTD;}
1259:
1260: static void
1261: x_load_hist(hp)
1262: register char **hp;
1263: {
1264: int oldsize;
1265:
1266: if (hp < history || hp > histptr) {
1267: x_putc(BEL);
1268: return;
1269: }
1270: x_histp = hp;
1271: oldsize = x_size_str(xbuf);
1272: (void)strcpy(xbuf, *hp);
1273: xbp = xbuf;
1274: xep = xcp = xbuf + strlen(*hp);
1275: xlp_valid = FALSE;
1276: if (xep > x_lastcp())
1277: x_goto(xep);
1278: else
1279: x_redraw(oldsize);
1280: }
1281:
1282: static int
1283: x_nl_next_com(c)
1284: int c;
1285: {
1286: x_nextcmdp = x_histp + 1;
1287: return (x_newline(c));
1288: }
1289:
1290: static int
1291: x_eot_del(c)
1292: int c;
1293: {
1294: if (xep == xbuf)
1295: return (x_end_of_text(c));
1296: else
1297: return (x_del_char(c));
1298: }
1299:
1300: static int x_search(), x_match();
1301:
1302: /* reverse incremental history search */
1303: static int
1304: x_search_hist(c)
1305: int c;
1306: {
1307: int offset = -1; /* offset of match in xbuf, else -1 */
1308: char pat [256+1]; /* pattern buffer */
1309: register char *p = pat;
1310: int (*func)();
1311:
1312: *p = 0;
1313: while (1) {
1314: if (offset < 0) {
1315: x_puts("\nI-search: ");
1316: x_zots(pat);
1317: }
1318: x_flush();
1319: if ((c = x_getc()) < 0)
1320: return KSTD;
1321: func = x_tab[0][c&CMASK]->xf_func;
1322: if (c == CTRL('['))
1323: break;
1324: else if (func == x_search_hist)
1325: offset = x_search(pat, offset);
1326: else if (func == x_del_back)
1327: continue; /* todo */
1328: else if (func == x_insert) {
1329: /* add char to pattern */
1330: *p++ = c, *p = 0;
1331: if (offset >= 0) {
1332: /* already have partial match */
1333: offset = x_match(xbuf, pat);
1334: if (offset >= 0) {
1335: x_goto(xbuf + offset + (p - pat) - (*pat == '^'));
1336: continue;
1337: }
1338: }
1339: offset = x_search(pat, offset);
1340: } else { /* other command */
1341: static char push[2];
1342: push[0] = c;
1343: macroptr = push; /* push command */
1344: break;
1345: }
1346: }
1347: if (offset < 0)
1348: x_redraw(-1);
1349: return KSTD;
1350: }
1351:
1352: /* search backward from current line */
1353: static int
1354: x_search(pat, offset)
1355: char *pat;
1356: int offset;
1357: {
1358: register char **hp;
1359: int i;
1360:
1361: for (hp = x_histp; --hp >= history; ) {
1362: i = x_match(*hp, pat);
1363: if (i >= 0) {
1364: if (offset < 0)
1365: x_putc('\n');
1366: x_load_hist(hp);
1367: x_goto(xbuf + i + strlen(pat) - (*pat == '^'));
1368: return i;
1369: }
1370: }
1371: x_putc(BEL);
1372: x_histp = histptr;
1373: return -1;
1374: }
1375:
1376: /* return position of first match of pattern in string, else -1 */
1377: static int
1378: x_match(str, pat)
1379: char *str, *pat;
1380: {
1381: if (*pat == '^') {
1382: return (strncmp(str, pat+1, strlen(pat+1)) == 0) ? 0 : -1;
1383: } else {
1384: char *q = strstr(str, pat);
1385: return (q == NULL) ? -1 : q - str;
1386: }
1387: }
1388:
1389: static int
1390: x_del_line(c) {
1391: int i, j;
1392:
1393: *xep = 0;
1394: i = xep- xbuf;
1395: j = x_size_str(xbuf);
1396: xcp = xbuf;
1397: x_push(i);
1398: xlp = xbp = xep = xbuf;
1399: xlp_valid = TRUE;
1400: *xcp = 0;
1401: xmp = NULL;
1402: x_redraw(j);
1403: return KSTD;
1404: }
1405:
1406: static int
1407: x_mv_end(c) {
1408: x_goto(xep);
1409: return KSTD;
1410: }
1411:
1412: static int
1413: x_mv_begin(c) {
1414: x_goto(xbuf);
1415: return KSTD;
1416: }
1417:
1418: static int
1419: x_draw_line(c)
1420: {
1421: x_redraw(-1);
1422: return KSTD;
1423:
1424: }
1425:
1426: void
1427: x_redraw(limit)
1428: int limit;
1429: {
1430: int i, j;
1431: char *cp;
1432:
1433: x_adj_ok = 0;
1434: if (limit == -1)
1435: x_putc('\n');
1436: else
1437: x_putc('\r');
1438: x_flush();
1439: if (xbp == xbuf)
1440: {
1441: pprompt(prompt);
1442: x_col = promptlen(prompt);
1443: }
1444: x_displen = x_cols - 2 - x_col;
1445: xlp_valid = FALSE;
1446: cp = x_lastcp();
1447: x_zots(xbp);
1448: if (xbp != xbuf || xep > xlp)
1449: limit = x_cols;
1450: if (limit >= 0)
1451: {
1452: if (xep > xlp)
1453: i = 0; /* we fill the line */
1454: else
1455: i = limit - (xlp - xbp);
1456:
1457: for (j = 0; j < i && x_col < (x_cols - 2); j++)
1458: x_putc(' ');
1459: i = ' ';
1460: if (xep > xlp) /* more off screen */
1461: {
1462: if (xbp > xbuf)
1463: i = '*';
1464: else
1465: i = '>';
1466: }
1467: else
1468: if (xbp > xbuf)
1469: i = '<';
1470: x_putc(i);
1471: j++;
1472: while (j--)
1473: x_putc('\b');
1474: }
1475: for (cp = xlp; cp > xcp; )
1476: x_bs(*--cp);
1477: x_adj_ok = 1;
1478: _D_(x_flush();)
1479: return;
1480: }
1481:
1482: static int
1483: x_transpose(c) {
1484: char tmp;
1485: if (xcp == xbuf) {
1486: x_putc(BEL);
1487: return KSTD;
1488: } else if (xcp == xep) {
1489: if (xcp - xbuf == 1) {
1490: x_putc(BEL);
1491: return KSTD;
1492: }
1493: x_bs(xcp[-1]);
1494: x_bs(xcp[-2]);
1495: x_zotc(xcp[-1]);
1496: x_zotc(xcp[-2]);
1497: tmp = xcp[-1];
1498: xcp[-1] = xcp[-2];
1499: xcp[-2] = tmp;
1500: } else {
1501: x_bs(xcp[-1]);
1502: x_zotc(xcp[0]);
1503: x_zotc(xcp[-1]);
1504: tmp = xcp[-1];
1505: xcp[-1] = xcp[0];
1506: xcp[0] = tmp;
1507: x_bs(xcp[0]);
1508: }
1509: return KSTD;
1510: }
1511:
1512: static int
1513: x_literal(c) {
1514: x_curprefix = -1;
1515: return KSTD;
1516: }
1517:
1518: static int
1519: x_meta1(c) {
1520: x_curprefix = 1;
1521: return KPREF;
1522: }
1523:
1524: static int
1525: x_meta2(c) {
1526: x_curprefix = 2;
1527: return KPREF;
1528: }
1529:
1530: static int
1531: x_kill(c) {
1532: int i;
1533:
1534: i = xep - xcp;
1535: xlp = xcp;
1536: xlp_valid = TRUE;
1537: x_push(i);
1538: x_delete(i);
1539: return KSTD;
1540: }
1541:
1542: static void
1543: x_push(nchars) {
1544: char *cp;
1545: cp = alloc((size_t)(nchars+1), AEDIT);
1546: memmove(cp, xcp, nchars);
1547: cp[nchars] = 0;
1548: if (killstack[killsp])
1549: afree((void *)killstack[killsp], AEDIT);
1550: killstack[killsp] = cp;
1551: killsp = (killsp + 1) % KILLSIZE;
1552: }
1553:
1554: static int
1555: x_yank(c) {
1556: if (killsp == 0)
1557: killtp = KILLSIZE;
1558: else
1559: killtp = killsp;
1560: killtp --;
1561: if (killstack[killtp] == 0) {
1562: x_puts("\nnothing to yank");
1563: x_redraw(-1);
1564: return KSTD;
1565: }
1566: xmp = xcp;
1567: x_ins(killstack[killtp]);
1568: return KSTD;
1569: }
1570:
1571: static int
1572: x_meta_yank(c) {
1573: int len;
1574: if (x_last_command != x_yank && x_last_command != x_meta_yank) {
1575: x_puts("\nyank something first");
1576: x_redraw(-1);
1577: return KSTD;
1578: }
1579: len = strlen(killstack[killtp]);
1580: x_goto(xcp - len);
1581: x_delete(len);
1582: do {
1583: if (killtp == 0)
1584: killtp = KILLSIZE - 1;
1585: else
1586: killtp--;
1587: } while (killstack[killtp] == 0);
1588: x_ins(killstack[killtp]);
1589: return KSTD;
1590: }
1591:
1592: static int
1593: x_abort(c) {
1594: /* x_zotc(c); */
1595: xlp = xep = xcp = xbp = xbuf;
1596: xlp_valid = TRUE;
1597: *xcp = 0;
1598: return KINTR;
1599: }
1600:
1601: static int
1602: x_error(c) {
1603: x_putc(BEL);
1604: return KSTD;
1605: }
1606:
1607: static int
1608: x_stuffreset(c)
1609: {
1610: #ifdef TIOCSTI
1611: (void)x_stuff(c);
1612: return KINTR;
1613: #else
1614: x_zotc(c);
1615: xlp = xcp = xep = xbp = xbuf;
1616: xlp_valid = TRUE;
1617: *xcp = 0;
1618: x_redraw(-1);
1619: return KSTD;
1620: #endif
1621: }
1622:
1623: static int
1624: x_stuff(c)
1625: {
1626: #if 0 || defined TIOCSTI
1627: char ch = c;
1628: bool_t savmode = x_mode(FALSE);
1629:
1630: (void)ioctl(ttyfd, TIOCSTI, &ch);
1631: (void)x_mode(savmode);
1632: x_redraw(-1);
1633: #endif
1634: return KSTD;
1635: }
1636:
1637: static void
1638: x_mapin(cp)
1639: char *cp;
1640: {
1641: char *op;
1642:
1643: op = cp;
1644: while (*cp) {
1645: /* XXX -- should handle \^ escape? */
1646: if (*cp == '^') {
1647: cp++;
1648: if (*cp >= '?') /* includes '?'; ASCII */
1649: *op++ = CTRL(*cp);
1650: else {
1651: *op++ = '^';
1652: cp--;
1653: }
1654: } else
1655: *op++ = *cp;
1656: cp++;
1657: }
1658: *op = 0;
1659: }
1660:
1661: static char *
1662: x_mapout(c)
1663: int c;
1664: {
1665: static char buf[8];
1666: register char *p = buf;
1667:
1668: if (c < ' ' || c == 0x7F) { /* ASCII */
1669: *p++ = '^';
1670: *p++ = (c == 0x7F) ? '?' : (c | 0x40);
1671: } else
1672: *p++ = c;
1673: *p = 0;
1674: return buf;
1675: }
1676:
1677: static void
1678: x_print(prefix, key)
1679: int prefix, key;
1680: {
1681: if (prefix == 1)
1682: shellf("%s", x_mapout(x_prefix1));
1683: if (prefix == 2)
1684: shellf("%s", x_mapout(x_prefix2));
1685: shellf("%s = ", x_mapout(key));
1686: if (x_tab[prefix][key]->xf_func != x_ins_string)
1687: shellf("%s\n", x_tab[prefix][key]->xf_name);
1688: else
1689: shellf("'%s'\n", x_atab[prefix][key]);
1690: }
1691:
1692: void
1693: x_bind(a1, a2, macro)
1694: char *a1, *a2;
1695: int macro; /* bind -m */
1696: {
1697: struct x_ftab const *fp;
1698: int prefix, key;
1699: char *sp = NULL;
1700:
1701: if (x_tab == NULL)
1702: errorf("cannot bind, not a tty\n");
1703:
1704: if (a1 == NULL) {
1705: for (prefix = 0; prefix < 3; prefix++)
1706: for (key = 0; key < 0x80; key++) {
1707: fp = x_tab[prefix][key];
1708: if (fp == NULL ||
1709: fp->xf_func == x_insert || fp->xf_func == x_error)
1710: continue;
1711: x_print(prefix, key);
1712: }
1713: return;
1714: }
1715:
1716: x_mapin(a1);
1717: prefix = key = 0;
1718: for (;; a1++) {
1719: key = *a1;
1720: if (x_tab[prefix][key]->xf_func == x_meta1)
1721: prefix = 1;
1722: else
1723: if (x_tab[prefix][key]->xf_func == x_meta2)
1724: prefix = 2;
1725: else
1726: break;
1727: }
1728:
1729: if (a2 == NULL) {
1730: x_print(prefix, key);
1731: return;
1732: }
1733:
1734: if (*a2 == 0)
1735: fp = xft_insert;
1736: else if (!macro) {
1737: for (fp = x_ftab; fp->xf_func; fp++)
1738: if (strcmp(fp->xf_name, a2) == 0)
1739: break;
1740: if (fp->xf_func == NULL || (fp->xf_flags & XF_NOBIND))
1741: errorf("%s: no such function\n", a2);
1742: if (fp->xf_func == x_meta1)
1743: x_prefix1 = key;
1744: if (fp->xf_func == x_meta2)
1745: x_prefix2 = key;
1746: } else {
1747: fp = xft_ins_string;
1748: x_mapin(a2);
1749: sp = strsave(a2, AEDIT);
1750: }
1751:
1752: if ((x_tab[prefix][key]->xf_flags & XF_ALLOC) && x_atab[prefix][key])
1753: afree((void *)x_atab[prefix][key], AEDIT);
1754: x_tab[prefix][key] = fp;
1755: x_atab[prefix][key] = sp;
1756: }
1757:
1758: void
1759: x_init_emacs()
1760: {
1761: register int i, j;
1762: struct x_ftab const *fp;
1763:
1764: ainit(AEDIT);
1765:
1766: x_tab = (struct x_ftab *(*)[X_TABSZ]) alloc(sizeofN(*x_tab, 3), AEDIT);
1767: for (j = 0; j < 128; j++)
1768: x_tab[0][j] = xft_insert;
1769: for (i = 1; i < 3; i++)
1770: for (j = 0; j < 128; j++)
1771: x_tab[i][j] = xft_error;
1772: for (fp = x_ftab; fp->xf_func; fp++)
1773: if (fp->xf_db_char || fp->xf_db_tab)
1774: x_tab[fp->xf_db_tab][fp->xf_db_char] = fp;
1775:
1776: x_atab = (char *(*)[X_TABSZ]) alloc(sizeofN(*x_atab, 3), AEDIT);
1777: for (i = 1; i < 3; i++)
1778: for (j = 0; j < 128; j++)
1779: x_atab[i][j] = NULL;
1780: }
1781:
1782: void
1783: x_emacs_keys(erase, kill, werase, intr, quit)
1784: int erase, kill, werase, intr, quit;
1785: {
1786: x_tab[0][erase] = xft_erase;
1787: x_tab[0][kill] = xft_kill;
1788: x_tab[0][werase] = xft_werase;
1789: x_tab[0][intr] = xft_intr;
1790: x_tab[0][quit] = xft_quit;
1791: x_tab[1][erase] = xft_werase;
1792: }
1793:
1794: static int
1795: x_set_mark(c) {
1796: xmp = xcp;
1797: return KSTD;
1798: }
1799:
1800: static int
1801: x_kill_region(c) {
1802: int rsize;
1803: char *xr;
1804:
1805: if (xmp == NULL) {
1806: x_putc(BEL);
1807: return KSTD;
1808: }
1809: if (xmp > xcp) {
1810: rsize = xmp - xcp;
1811: xr = xcp;
1812: } else {
1813: rsize = xcp - xmp;
1814: xr = xmp;
1815: }
1816: x_goto(xr);
1817: x_push(rsize);
1818: x_delete(rsize);
1819: xmp = xr;
1820: return KSTD;
1821: }
1822:
1823: static int
1824: x_xchg_point_mark(c) {
1825: char *tmp;
1826:
1827: if (xmp == NULL) {
1828: x_putc(BEL);
1829: return KSTD;
1830: }
1831: tmp = xmp;
1832: xmp = xcp;
1833: x_goto( tmp );
1834: return KSTD;
1835: }
1836:
1837: #if 0
1838: static int
1839: x_copy_arg(c) {
1840: char *last;
1841: if ((last = strval(local("_"))) && *last)
1842: x_ins(last);
1843: return KSTD;
1844: }
1845: #endif
1846:
1847: static int
1848: x_noop(c) {
1849: return KNULL;
1850: }
1851:
1852: #ifdef SILLY
1853: static int
1854: x_game_of_life(c) {
1855: char newbuf [256+1];
1856: register char *ip, *op;
1857: int i, len;
1858:
1859: i = xep - xbuf;
1860: *xep = 0;
1861: len = x_size_str(xbuf);
1862: xcp = xbp = xbuf;
1863: memmove(newbuf+1, xbuf, i);
1864: newbuf[0] = 'A';
1865: newbuf[i] = 'A';
1866: for (ip = newbuf+1, op = xbuf; --i >= 0; ip++, op++) {
1867: /* Empty space */
1868: if (*ip < '@' || *ip == '_' || *ip == 0x7F) {
1869: /* Two adults, make whoopee */
1870: if (ip[-1] < '_' && ip[1] < '_') {
1871: /* Make kid look like parents. */
1872: *op = '`' + ((ip[-1] + ip[1])/2)%32;
1873: if (*op == 0x7F) /* Birth defect */
1874: *op = '`';
1875: }
1876: else
1877: *op = ' '; /* nothing happens */
1878: continue;
1879: }
1880: /* Child */
1881: if (*ip > '`') {
1882: /* All alone, dies */
1883: if (ip[-1] == ' ' && ip[1] == ' ')
1884: *op = ' ';
1885: else /* Gets older */
1886: *op = *ip-'`'+'@';
1887: continue;
1888: }
1889: /* Adult */
1890: /* Overcrowded, dies */
1891: if (ip[-1] >= '@' && ip[1] >= '@') {
1892: *op = ' ';
1893: continue;
1894: }
1895: *op = *ip;
1896: }
1897: *op = 0;
1898: x_redraw(len);
1899: return KSTD;
1900: }
1901: #endif
1902:
1903: /*
1904: * File/command name completion routines
1905: */
1906:
1907: /* type: 0 for list, 1 for completion */
1908:
1909: static XPtrV words;
1910:
1911: static void
1912: add_stash(dirnam, name)
1913: char *dirnam; /* directory name, if file */
1914: char *name;
1915: {
1916: char *cp;
1917: register int type = 0; /* '*' if executable, '/' if directory, else 0 */
1918: register int len = strlen(name);
1919:
1920: /* determine file type */
1921: if (dirnam) {
1922: struct stat statb;
1923: char *buf = alloc((size_t)(strlen(dirnam)+len+2), ATEMP);
1924:
1925: if (strcmp(dirnam, ".") == 0)
1926: *buf = '\0';
1927: else if (strcmp(dirnam, "/") == 0)
1928: (void)strcpy(buf, "/");
1929: else
1930: (void)strcat(strcpy(buf, dirnam), "/");
1931: (void)strcat(buf, name);
1932: if (stat(buf, &statb)==0)
1933: if (S_ISDIR(statb.st_mode))
1934: type = '/';
1935: else if (S_ISREG(statb.st_mode) && access(buf, 01)==0)
1936: type = '*';
1937: if (type)
1938: ++len;
1939: afree((void *)buf, ATEMP);
1940: }
1941:
1942: if (len > x_maxlen)
1943: x_maxlen = len;
1944:
1945: /* stash name for later sorting */
1946: cp = alloc((size_t)(len+1), ATEMP);
1947: (void)strcpy(cp = alloc((size_t)(len+1), ATEMP), name);
1948: if (dirnam && type) { /* append file type indicator */
1949: cp[len-1] = type;
1950: cp[len] = '\0';
1951: }
1952: XPput(words, cp);
1953: }
1954:
1955: static void
1956: list_stash()
1957: {
1958: register char **array, **record;
1959: int items = 0, tabstop, loc, nrows, jump, offset;
1960:
1961: items = XPsize(words);
1962: array = (char**) XPptrv(words);
1963: if (items == 0)
1964: return;
1965: qsortp(XPptrv(words), (size_t)XPsize(words), xstrcmp);
1966:
1967: /* print names */
1968: x_maxlen = (x_maxlen/8 + 1) * 8; /* column width */
1969: nrows = (items-1) / (x_cols/x_maxlen) + 1;
1970: for (offset = 0; offset < nrows; ++offset) {
1971: tabstop = loc = 0;
1972: x_putc('\n');
1973: for (jump = 0; offset+jump < items; jump += nrows) {
1974: if (jump)
1975: while (loc < tabstop) {
1976: x_putc('\t');
1977: loc = (loc/8 + 1) * 8;
1978: }
1979: record = array + (offset + jump);
1980: x_puts(*record);
1981: loc += strlen(*record);
1982: tabstop += x_maxlen; /* next tab stop */
1983: afree((void *)*record, ATEMP);
1984: }
1985: }
1986:
1987: afree((void*)array, ATEMP);
1988: x_redraw(-1);
1989: }
1990:
1991: static int
1992: x_comp_comm(c) {
1993: compl_command(1);
1994: return KSTD;
1995: }
1996: static int
1997: x_list_comm(c) {
1998: compl_command(0);
1999: return KSTD;
2000: }
2001: static int
2002: x_complete(c) {
2003: compl_dec(1);
2004: return KSTD;
2005: }
2006: static int
2007: x_enumerate(c) {
2008: compl_dec(0);
2009: return KSTD;
2010: }
2011: static int
2012: x_comp_file(c) {
2013: compl_file(1);
2014: return KSTD;
2015: }
2016: static int
2017: x_list_file(c) {
2018: compl_file(0);
2019: return KSTD;
2020: }
2021: static int
2022: x_comp_list(c) {
2023: compl_dec(2);
2024: return KSTD;
2025: }
2026:
2027: static void compl_dec(type) { char *cp; cp = xcp;
2028: while (cp != xbuf && !iscfs(*cp))
2029: cp--;
2030: if (cp == xbuf && strchr(cp, '/') == NULL)
2031: compl_command(type);
2032: else
2033: compl_file(type);
2034: }
2035:
2036: static void
2037: compl_file(type)
2038: {
2039: char *str;
2040: register char *cp, *xp;
2041: char *lastp;
2042: char *dirnam;
2043: char buf [256+1];
2044: char bug [256+1];
2045: DIR *dirp;
2046: struct dirent *dp;
2047: long loc = -1;
2048: int len;
2049: int multi = 0;
2050:
2051: /* type == 0 for list, 1 for complete and 2 for complete-list */
2052: str = xcp;
2053: cp = buf;
2054: xp = str;
2055: while (xp != xbuf) {
2056: --xp;
2057: if (iscfs(*xp)) {
2058: xp++;
2059: break;
2060: }
2061: }
2062: if (digit(*xp) && (xp[1] == '<' || xp[1] == '>'))
2063: xp++;
2064: while (*xp == '<' || *xp == '>')
2065: xp++;
2066: if (type) { /* for complete */
2067: while (*xcp && !iscfs(*xcp))
2068: x_zotc(*xcp++);
2069: }
2070: if (type != 1) { /* for list */
2071: x_maxlen = 0;
2072: XPinit(words, 16);
2073: }
2074: while (*xp && !iscfs(*xp))
2075: *cp++ = *xp++;
2076:
2077: *cp = 0;
2078: strcpy(buf, cp = substitute(buf, DOTILDE));
2079: afree((void*)cp, ATEMP);
2080: lastp = strrchr(buf, '/');
2081: if (lastp)
2082: *lastp = 0;
2083:
2084: dirnam = (lastp == NULL) ? "." : (lastp == buf) ? "/" : buf;
2085: dirp = opendir(dirnam);
2086: if (dirp == NULL) {
2087: x_putc(BEL);
2088: return;
2089: }
2090:
2091: if (lastp == NULL)
2092: lastp = buf;
2093: else
2094: lastp++;
2095: len = strlen(lastp);
2096:
2097: while ((dp = readdir(dirp)) != NULL) {
2098: cp = dp->d_name;
2099: if (cp[0] == '.' &&
2100: (cp[1] == '\0' || (cp[1] == '.' && cp[2] == '\0')))
2101: continue; /* always ignore . and .. */
2102: if (strncmp(lastp, cp, len) == 0) {
2103: if (type /* for complete */) {
2104: if (loc == -1) {
2105: (void)strcpy(bug, cp);
2106: loc = strlen(cp);
2107: } else {
2108: multi = 1;
2109: loc = strmatch(bug, cp);
2110: bug[loc] = 0;
2111: }
2112: }
2113: if (type != 1) { /* for list */
2114: add_stash(dirnam, cp);
2115: }
2116: }
2117: }
2118: (void)closedir(dirp);
2119:
2120: if (type) { /* for complete */
2121: if (loc < 0 ||
2122: (loc == 0 && type != 2)) {
2123: x_putc(BEL);
2124: return;
2125: }
2126: cp = bug + len;
2127: x_ins(cp);
2128: if (!multi) {
2129: struct stat statb;
2130: if (lastp == buf)
2131: buf[0] = 0;
2132: else if (lastp == buf + 1) {
2133: buf[1] = 0;
2134: buf[0] = '/';
2135: } else
2136: (void)strcat(buf, "/");
2137: (void)strcat(buf, bug);
2138: if (stat(buf, &statb) == 0 && S_ISDIR(statb.st_mode))
2139: x_ins("/");
2140: else
2141: x_ins(" ");
2142: }
2143: }
2144: if (type == 0 || /* if list */
2145: (type == 2 && multi)) { /* or complete-list and ambiguous */
2146: list_stash();
2147: }
2148: }
2149:
2150: static void
2151: compl_command(type)
2152: {
2153: register struct tbl *tp;
2154: char *str;
2155: char buf [256+1];
2156: char bug [256+1];
2157: char *xp;
2158: char *cp;
2159: int len;
2160: int multi;
2161: int loc;
2162:
2163: /* type == 0 for list, 1 for complete and 2 for complete-list */
2164: str = xcp;
2165: cp = buf;
2166: xp = str;
2167: while (xp != xbuf) {
2168: --xp;
2169: if (iscfs(*xp)) {
2170: xp++;
2171: break;
2172: }
2173: }
2174: if (type) /* for complete */
2175: while (*xcp && !iscfs(*xcp))
2176: x_zotc(*xcp++);
2177: if (type != 1) { /* for list */
2178: x_maxlen = 0;
2179: XPinit(words, 16);
2180: }
2181: while (*xp && !iscfs(*xp))
2182: *cp++ = *xp++;
2183: *cp = 0;
2184:
2185: len = strlen(buf);
2186: loc = -1;
2187: multi = 0;
2188:
2189: for (twalk(&commands); (tp = tnext()) != NULL; ) {
2190: int klen;
2191:
2192: if (!(tp->flag&ISSET))
2193: continue;
2194: klen = strlen(tp->name);
2195: if (klen < len)
2196: continue;
2197: if (strncmp(buf, tp->name, len) ==0) {
2198: if (type) { /* for complete */
2199: if (loc == -1) {
2200: (void)strcpy(bug, tp->name);
2201: loc = klen;
2202: } else {
2203: multi = 1;
2204: loc = strmatch(bug, tp->name);
2205: bug[loc] = 0;
2206: }
2207: }
2208: if (type != 1) { /* for list */
2209: add_stash((char *)0, tp->name);
2210: }
2211: }
2212: }
2213:
2214: if (type) { /* for complete */
2215: if (loc < 0 ||
2216: (loc == 0 && type != 2)) {
2217: x_putc(BEL);
2218: return;
2219: }
2220: cp = bug + len;
2221: x_ins(cp);
2222: if (!multi)
2223: x_ins(" ");
2224: else if (type == 2) /* complete and list rest */
2225: list_stash();
2226: }
2227:
2228: if (type == 0 || /* if list */
2229: (type == 2 && multi)) { /* or complete-list and ambiguous */
2230: list_stash();
2231: }
2232: }
2233:
2234: static int
2235: strmatch(s1, s2)
2236: register char *s1, *s2;
2237: {
2238: register char *p;
2239:
2240: for (p = s1; *p == *s2++ && *p != 0; p++)
2241: ;
2242: return p - s1;
2243: }
2244:
2245:
2246:
2247: /* NAME:
2248: * x_set_arg - set an arg value for next function
2249: *
2250: * DESCRIPTION:
2251: * This is a simple implementation of M-[0-9].
2252: *
2253: * RETURN VALUE:
2254: * KSTD
2255: */
2256:
2257: static int
2258: x_set_arg(c)
2259: int c;
2260: {
2261: if ((x_arg = (c &= CMASK) - '0') < 0 || x_arg > 9)
2262: {
2263: x_arg = 1;
2264: x_putc(BEL);
2265: }
2266: return KSTD;
2267: }
2268:
2269:
2270: /* NAME:
2271: * x_prev_histword - recover word from prev command
2272: *
2273: * DESCRIPTION:
2274: * This function recovers the last word from the previous
2275: * command and inserts it into the current edit line. If a
2276: * numeric arg is supplied then the n'th word from the
2277: * start of the previous command is used.
2278: *
2279: * Bound to M-.
2280: *
2281: * RETURN VALUE:
2282: * KSTD
2283: */
2284:
2285: static int
2286: x_prev_histword()
2287: {
2288: register char *rcp;
2289: char *cp;
2290: char **hp;
2291:
2292: hp = x_histp-1;
2293: if (hp < history || hp > histptr)
2294: {
2295: x_putc(BEL);
2296: return;
2297: }
2298: cp = *hp;
2299: if (x_last_command != x_set_arg)
2300: {
2301: rcp = &cp[strlen(cp) - 1];
2302: /*
2303: * ignore white-space after the last word
2304: */
2305: while (rcp > cp && iscfs(*rcp))
2306: rcp--;
2307: while (rcp > cp && !iscfs(*rcp))
2308: rcp--;
2309: if (iscfs(*rcp))
2310: rcp++;
2311: x_ins(rcp);
2312: }
2313: else
2314: {
2315: int c;
2316:
2317: rcp = cp;
2318: /*
2319: * ignore white-space at start of line
2320: */
2321: while (*rcp && iscfs(*rcp))
2322: rcp++;
2323: while (x_arg-- > 1)
2324: {
2325: while (*rcp && !iscfs(*rcp))
2326: rcp++;
2327: while (*rcp && iscfs(*rcp))
2328: rcp++;
2329: }
2330: cp = rcp;
2331: while (*rcp && !iscfs(*rcp))
2332: rcp++;
2333: c = *rcp;
2334: *rcp = '\0';
2335: x_ins(cp);
2336: *rcp = c;
2337: }
2338: return KSTD;
2339: }
2340:
2341: /* NAME:
2342: * x_fold_case - convert word to UPPER/lower case
2343: *
2344: * DESCRIPTION:
2345: * This function is used to implement M-u,M-l and M-c
2346: * to upper case, lower case or Capitalize words.
2347: *
2348: * RETURN VALUE:
2349: * None
2350: */
2351:
2352: static int
2353: x_fold_case(c)
2354: int c;
2355: {
2356: register char *cp = xcp;
2357:
2358: if (cp == xep)
2359: {
2360: x_putc(BEL);
2361: return 0;
2362: }
2363: c &= 0137; /* strip prefixes and case */
2364: if (x_last_command != x_set_arg)
2365: x_arg = 1;
2366: while (x_arg--)
2367: {
2368: /*
2369: * fisrt skip over any white-space
2370: */
2371: while (cp != xep && ismfs(*cp))
2372: {
2373: cp++;
2374: }
2375: /*
2376: * do the first char on its own since it may be
2377: * a different action than for the rest.
2378: */
2379: if (cp != xep)
2380: {
2381: if (c == 'L') /* M-l */
2382: {
2383: if (isupper(*cp))
2384: *cp = tolower(*cp);
2385: }
2386: else /* M-u or M-c */
2387: {
2388: if (islower(*cp))
2389: *cp = toupper(*cp);
2390: }
2391: cp++;
2392: }
2393: /*
2394: * now for the rest of the word
2395: */
2396: while (cp != xep && !ismfs(*cp))
2397: {
2398: if (c == 'U') /* M-u */
2399: {
2400: if (islower(*cp))
2401: *cp = toupper(*cp);
2402: }
2403: else /* M-l or M-c */
2404: {
2405: if (isupper(*cp))
2406: *cp = tolower(*cp);
2407: }
2408: cp++;
2409: }
2410: }
2411: x_goto(cp);
2412: return 0;
2413: }
2414:
2415: /* NAME:
2416: * x_lastcp - last visible char
2417: *
2418: * SYNOPSIS:
2419: * x_lastcp()
2420: *
2421: * DESCRIPTION:
2422: * This function returns a pointer to that char in the
2423: * edit buffer that will be the last displayed on the
2424: * screen. The sequence:
2425: *
2426: * for (cp = x_lastcp(); cp > xcp; cp)
2427: * x_bs(*--cp);
2428: *
2429: * Will position the cursor correctly on the screen.
2430: *
2431: * RETURN VALUE:
2432: * cp or NULL
2433: */
2434:
2435: char *
2436: x_lastcp()
2437: {
2438: register char *rcp;
2439: register int i;
2440:
2441: if (!xlp_valid)
2442: {
2443: for (i = 0, rcp = xbp; rcp < xep && i < x_displen; rcp++)
2444: i += x_size(*rcp);
2445: xlp = rcp;
2446: }
2447: xlp_valid = TRUE;
2448: return (xlp);
2449: }
2450:
2451: #endif /* EDIT */
2452:
2453: ./pdksh/sh/var.c 644 653 1762 27675 5243743667 11030 0 ustar hlu #ifndef lint
2454: static char *RCSid = "$Id: var.c,v 1.3 1992/08/10 12:03:25 sjg Exp $";
2455: #endif
2456:
2457: #include "stdh.h"
2458: #include <errno.h>
2459: #include <setjmp.h>
2460: #include <time.h>
2461: #include "sh.h"
2462: #include "expand.h"
2463:
2464: /*
2465: * Variables
2466: *
2467: * WARNING: unreadable code, needs a rewrite
2468: *
2469: * if (flag&INTEGER), val.i contains integer value, and type contains base.
2470: * otherwise, (val.s + type) contains string value.
2471: * if (flag&EXPORT), val.s contains "name=value" for E-Z exporting.
2472: */
2473: char null [] = "";
2474: static struct tbl vtemp;
2475: static void export ARGS((struct tbl *vp, char *val));
2476: static int special ARGS((char *name));
2477: static void getspec ARGS((struct tbl *vp));
2478: static void setspec ARGS((struct tbl *vp));
2479:
2480: /*
2481: * create a new block for function calls and simple commands
2482: * assume caller has allocated and set up e.loc
2483: */
2484: void
2485: newblock()
2486: {
2487: register struct block *l = e.loc;
2488: static char *empty[] = {""};
2489:
2490: ainit(&l->area);
2491: l->argc = 0;
2492: l->argv = empty;
2493: l->exit = l->error = NULL;
2494: tinit(&l->vars, &l->area);
2495: tinit(&l->funs, &l->area);
2496: }
2497:
2498: /*
2499: * pop a block handling special variables
2500: */
2501: void
2502: popblock()
2503: {
2504: register struct block *l = e.loc;
2505: register struct tbl *vp, **vpp = l->vars.tbls;
2506: register int i;
2507:
2508: e.loc = l->next; /* pop block */
2509: for (i = l->vars.size; --i >= 0; )
2510: if ((vp = *vpp++) != NULL && (vp->flag&SPECIAL))
2511: setspec(global(vp->name));
2512: afreeall(&l->area);
2513: }
2514:
2515: /*
2516: * Search for variable, if not found create globally.
2517: */
2518: struct tbl *
2519: global(n)
2520: register char *n;
2521: {
2522: register struct block *l = e.loc;
2523: register struct tbl *vp;
2524: register int c;
2525: unsigned h = hash(n);
2526:
2527: c = n[0];
2528: if (digit(c)) {
2529: vp = &vtemp;
2530: lastarea = ATEMP;
2531: vp->flag = (DEFINED|RDONLY);
2532: vp->type = 0;
2533: *vp->name = c; /* should strncpy */
2534: for (c = 0; digit(*n) && c < 1000; n++)
2535: c = c*10 + *n-'0';
2536: if (c <= l->argc)
2537: setstr(vp, l->argv[c]);
2538: return vp;
2539: } else
2540: if (!letter(c)) {
2541: vp = &vtemp;
2542: lastarea = ATEMP;
2543: vp->flag = (DEFINED|RDONLY);
2544: vp->type = 0;
2545: *vp->name = c;
2546: if (n[1] != '\0')
2547: return vp;
2548: vp->flag |= ISSET|INTEGER;
2549: switch (c) {
2550: case '$':
2551: vp->val.i = kshpid;
2552: break;
2553: case '!':
2554: vp->val.i = async;
2555: break;
2556: case '?':
2557: vp->val.i = exstat;
2558: break;
2559: case '#':
2560: vp->val.i = l->argc;
2561: break;
2562: case '-':
2563: vp->flag &= ~ INTEGER;
2564: vp->val.s = getoptions();
2565: break;
2566: default:
2567: vp->flag &= ~(ISSET|INTEGER);
2568: }
2569: return vp;
2570: }
2571: for (l = e.loc; l != NULL; l = l->next) {
2572: vp = tsearch(&l->vars, n, h);
2573: lastarea = &l->area;
2574: if (vp != NULL)
2575: return vp;
2576: if (l->next == NULL)
2577: break;
2578: }
2579: vp = tenter(&l->vars, n, h);
2580: vp->flag |= DEFINED;
2581: if (special(n))
2582: vp->flag |= SPECIAL;
2583: return vp;
2584: }
2585:
2586: /*
2587: * Search for local variable, if not found create locally.
2588: */
2589: struct tbl *
2590: local(n)
2591: register char *n;
2592: {
2593: register struct block *l = e.loc;
2594: register struct tbl *vp;
2595: unsigned h = hash(n);
2596:
2597: if (!letter(*n)) {
2598: vp = &vtemp;
2599: lastarea = ATEMP;
2600: vp->flag = (DEFINED|RDONLY);
2601: vp->type = 0;
2602: return vp;
2603: }
2604: vp = tenter(&l->vars, n, h);
2605: lastarea = &l->area;
2606: vp->flag |= DEFINED;
2607: if (special(n))
2608: vp->flag |= SPECIAL;
2609: return vp;
2610: }
2611:
2612: /* get variable string value */
2613: char *
2614: strval(vp)
2615: register struct tbl *vp;
2616: {
2617: register char *s;
2618: static char strbuf[40];
2619:
2620: if ((vp->flag&SPECIAL))
2621: getspec(vp);
2622: if (!(vp->flag&ISSET))
2623: return null; /* special to dollar() */
2624: if (!(vp->flag&INTEGER)) /* string source */
2625: s = vp->val.s + vp->type;
2626: else { /* integer source */
2627: register unsigned long n;
2628: register int base;
2629:
2630: s = strbuf + sizeof(strbuf);
2631: n = (vp->val.i < 0) ? -vp->val.i : vp->val.i;
2632: base = (vp->type == 0) ? 10 : vp->type;
2633:
2634: *--s = '\0';
2635: do {
2636: *--s = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"[n%base];
2637: n /= base;
2638: } while (n != 0);
2639: /* todo: should we output base# ? */
2640: if (vp->val.i < 0)
2641: *--s = '-';
2642: }
2643: return s;
2644: }
2645:
2646: /* get variable integer value */
2647: long
2648: intval(vp)
2649: register struct tbl *vp;
2650: {
2651: register struct tbl *vq;
2652:
2653: if ((vp->flag&SPECIAL))
2654: getspec(vp);
2655: if ((vp->flag&INTEGER))
2656: return vp->val.i;
2657: vq = &vtemp;
2658: vq->flag = (INTEGER);
2659: vq->type = 0;
2660: if (strint(vq, vp) == NULL)
2661: errorf("%s: bad number\n", vp->val.s);
2662: return vq->val.i;
2663: }
2664:
2665: /* set variable to string value */
2666: void
2667: setstr(vq, s)
2668: register struct tbl *vq;
2669: char *s;
2670: {
2671: if (!(vq->flag&INTEGER)) { /* string dest */
2672: if ((vq->flag&ALLOC))
2673: afree((void*)vq->val.s, lastarea);
2674: vq->flag &= ~ (ISSET|ALLOC);
2675: vq->type = 0;
2676: if ((vq->flag&EXPORT))
2677: export(vq, s);
2678: else
2679: vq->val.s = strsave(s, lastarea);
2680: vq->flag |= ALLOC;
2681: } else { /* integer dest */
2682: register struct tbl *vp = &vtemp;
2683: vp->flag = (DEFINED|ISSET);
2684: vp->type = 0;
2685: vp->val.s = s;
2686: if (strint(vq, vp) == NULL)
2687: errorf("%s: bad number\n", s);
2688: }
2689: vq->flag |= ISSET;
2690: if ((vq->flag&SPECIAL))
2691: setspec(vq);
2692: }
2693:
2694: /* convert variable to integer variable */
2695: struct tbl *
2696: strint(vq, vp)
2697: register struct tbl *vq, *vp;
2698: {
2699: register char *s = vp->val.s + vp->type;
2700: register int c;
2701: int base, neg = 0;
2702:
2703: vq->flag |= INTEGER;
2704: if (!(vp->flag&ISSET) || (s == NULL && !(vp->flag&INTEGER))) {
2705: vq->flag &= ~ ISSET;
2706: return NULL;
2707: }
2708: if ((vp->flag&INTEGER)) {
2709: vq->val.i = vp->val.i;
2710: return vq;
2711: }
2712: vq->val.i = 0;
2713: base = 10;
2714: for (c = *s++; c ; c = *s++)
2715: if (c == '-') {
2716: neg++;
2717: } else if (c == '#') {
2718: base = vq->type = vq->val.i;
2719: vq->val.i = 0;
2720: } else if (letnum(c)) {
2721: if ('0' <= c && c <= '9')
2722: c -= '0';
2723: else if ('a' <= c && c <= 'z') /* fuck EBCDIC */
2724: c -= 'a'-10;
2725: else if ('A' <= c && c <= 'Z')
2726: c -= 'A'-10;
2727: if (c < 0 || c >= base) {
2728: vq->flag &= ~ ISSET;
2729: return NULL;
2730: }
2731: vq->val.i = (vq->val.i*base) + c;
2732: } else
2733: break;
2734: if (neg)
2735: vq->val.i = -vq->val.i;
2736: if (vq->type < 2 || vq->type > 36)
2737: vq->type = 0; /* default base (10) */
2738: return vq;
2739: }
2740:
2741: /* set variable to integer */
2742: void
2743: setint(vq, n)
2744: register struct tbl *vq;
2745: long n;
2746: {
2747: if (!(vq->flag&INTEGER)) {
2748: register struct tbl *vp = &vtemp;
2749: vp->flag = (ISSET|INTEGER);
2750: vp->type = 0;
2751: vp->val.i = n;
2752: setstr(vq, strval(vp)); /* ? */
2753: } else
2754: vq->val.i = n;
2755: vq->flag |= ISSET;
2756: if ((vq->flag&SPECIAL))
2757: setspec(vq);
2758: }
2759:
2760: /* set variable from enviroment */
2761: import(thing)
2762: char *thing;
2763: {
2764: register struct tbl *vp;
2765: register char *val;
2766:
2767: val = strchr(thing, '=');
2768: if (val == NULL)
2769: return 0;
2770: *val = '\0';
2771: vp = local(thing);
2772: *val++ = '=';
2773: vp->flag |= DEFINED|ISSET|EXPORT;
2774: vp->val.s = thing;
2775: vp->type = val - thing;
2776: if ((vp->flag&SPECIAL))
2777: setspec(vp);
2778: return 1;
2779: }
2780:
2781: /*
2782: * make vp->val.s be "name=value" for quick exporting.
2783: */
2784: static void
2785: export(vp, val)
2786: register struct tbl *vp;
2787: char *val;
2788: {
2789: register char *cp, *xp;
2790: char *op = (vp->flag&ALLOC) ? vp->val.s : NULL;
2791:
2792: xp = (char*)alloc(strlen(vp->name) + strlen(val) + 2, lastarea);
2793: vp->flag |= ALLOC;
2794: vp->val.s = xp;
2795: for (cp = vp->name; (*xp = *cp++) != '\0'; xp++)
2796: ;
2797: *xp++ = '=';
2798: vp->type = xp - vp->val.s; /* offset to value */
2799: for (cp = val; (*xp++ = *cp++) != '\0'; )
2800: ;
2801: if (op != NULL)
2802: afree((void*)op, lastarea);
2803: }
2804:
2805: /*
2806: * lookup variable (according to (set&LOCAL)),
2807: * set its attributes (INTEGER, RDONLY, EXPORT, TRACE),
2808: * and optionally set its value if an assignment.
2809: */
2810: struct tbl *
2811: typeset(var, set, clr)
2812: register char *var;
2813: int clr, set;
2814: {
2815: register struct tbl *vp;
2816: register char *val;
2817:
2818: /* check for valid variable name, search for value */
2819: val = var;
2820: if (!letter(*val))
2821: return NULL;
2822: for (val++; *val != '\0'; val++)
2823: if (*val == '=')
2824: break;
2825: else if (letnum(*val))
2826: ;
2827: else
2828: return NULL;
2829: if (*val == '=')
2830: *val = '\0';
2831: else
2832: val = NULL;
2833: vp = (set&LOCAL) ? local(var) : global(var);
2834: set &= ~ LOCAL;
2835: if (val != NULL)
2836: *val++ = '=';
2837:
2838: if (!(vp->flag&ISSET))
2839: vp->flag = (vp->flag & ~clr) | set;
2840: else
2841: if (!(vp->flag&INTEGER) && (set&INTEGER)) {
2842: /* string to integer */
2843: vtemp.flag = (ISSET);
2844: vtemp.type = 0;
2845: vtemp.val.s = vp->val.s + vp->type;
2846: if ((vp->flag&ALLOC))
2847: afree((void*)vp->val.s, lastarea); /* dangerous, used later */
2848: vp->flag &= ~ ALLOC;
2849: vp->flag |= INTEGER;
2850: vp->type = 0;
2851: if (val == NULL && strint(vp, &vtemp) == NULL) {
2852: vp->flag &= ~ ISSET;
2853: errorf("%s: bad number\n", vtemp.val.s);
2854: }
2855: } else
2856: if ((clr&INTEGER) && (vp->flag&INTEGER)) {
2857: /* integer to string */
2858: vtemp.val.s = strval(vp);
2859: vp->flag &= ~ INTEGER;
2860: setstr(vp, vtemp.val.s);
2861: }
2862:
2863: vp->flag = (vp->flag & ~clr) | set;
2864:
2865: if (val != NULL) {
2866: if ((vp->flag&RDONLY))
2867: errorf("cannot set readonly %s\n", var);
2868: if ((vp->flag&INTEGER))
2869: /* setstr should be able to handle this */
2870: (void)evaluate(var);
2871: else
2872: setstr(vp, val);
2873: }
2874:
2875: if ((vp->flag&EXPORT) && !(vp->flag&INTEGER) && vp->type == 0)
2876: export(vp, (vp->flag&ISSET) ? vp->val.s : null);
2877:
2878: return vp;
2879: }
2880:
2881: void
2882: unset(vp)
2883: register struct tbl *vp;
2884: {
2885: if ((vp->flag&ALLOC))
2886: afree((void*)vp->val.s, lastarea);
2887: vp->flag &= SPECIAL; /* Should ``unspecial'' some vars */
2888: }
2889:
2890: int
2891: isassign(s)
2892: register char *s;
2893: {
2894: if (!letter(*s))
2895: return (0);
2896: for (s++; *s != '='; s++)
2897: if (*s == 0 || !letnum(*s))
2898: return (0);
2899: return (1);
2900: }
2901:
2902: /*
2903: * Make the exported environment from the exported names in the dictionary.
2904: */
2905: char **
2906: makenv()
2907: {
2908: struct block *l = e.loc;
2909: XPtrV env;
2910: register struct tbl *vp, **vpp;
2911: register int i;
2912:
2913: XPinit(env, 64);
2914: for (l = e.loc; l != NULL; l = l->next)
2915: for (vpp = l->vars.tbls, i = l->vars.size; --i >= 0; )
2916: if ((vp = *vpp++) != NULL
2917: && (vp->flag&(ISSET|EXPORT)) == (ISSET|EXPORT)) {
2918: register struct block *l2;
2919: register struct tbl *vp2;
2920: unsigned h = hash(vp->name);
2921:
2922: lastarea = &l->area;
2923:
2924: /* unexport any redefined instances */
2925: for (l2 = l->next; l2 != NULL; l2 = l2->next) {
2926: vp2 = tsearch(&l2->vars, vp->name, h);
2927: if (vp2 != NULL)
2928: vp2->flag &= ~ EXPORT;
2929: }
2930: if ((vp->flag&INTEGER)) {
2931: /* integer to string */
2932: char *val;
2933: val = strval(vp);
2934: vp->flag &= ~ INTEGER;
2935: setstr(vp, val);
2936: }
2937: XPput(env, vp->val.s);
2938: }
2939: XPput(env, NULL);
2940: return (char **) XPclose(env);
2941: }
2942:
2943: /*
2944: * handle special variables with side effects - PATH, SECONDS.
2945: */
2946: #define STREQ(a, b) ((*a) == (*b) && strcmp((a), (b)) == 0)
2947: static int
2948: special(name)
2949: register char * name;
2950: {
2951: if (STREQ("PATH", name))
2952: return V_PATH;
2953: if (STREQ("IFS", name))
2954: return V_IFS;
2955: if (STREQ("SECONDS", name))
2956: return V_SECONDS;
2957: if (STREQ("OPTIND", name))
2958: return V_OPTIND;
2959: if (STREQ("MAIL", name))
2960: return V_MAIL;
2961: if (STREQ("MAILPATH", name))
2962: return V_MAILPATH;
2963: if (STREQ("RANDOM", name))
2964: return V_RANDOM;
2965: #ifndef EASY_HISTORY
2966: if (STREQ("HISTSIZE", name))
2967: return V_HISTSIZE;
2968: if (STREQ("HISTFILE", name))
2969: return V_HISTFILE;
2970: #endif
2971: if (STREQ("FCEDIT", name))
2972: return V_FCEDIT;
2973: if (STREQ("COLUMNS", name))
2974: return V_COLUMNS;
2975: return V_NONE;
2976: }
2977:
2978: extern time_t time();
2979: static time_t seconds; /* time SECONDS last set */
2980: #ifdef NOSTDHDRS
2981: extern int rand();
2982: extern void srand();
2983: #endif
2984:
2985: static void
2986: getspec(vp)
2987: register struct tbl *vp;
2988: {
2989: switch (special(vp->name)) {
2990: case V_SECONDS:
2991: vp->flag &= ~ SPECIAL;
2992: setint(vp, time((time_t *)0) - seconds);
2993: vp->flag |= SPECIAL;
2994: break;
2995: case V_RANDOM:
2996: vp->flag &= ~ SPECIAL;
2997: setint(vp, (rand() & 0x7fff));
2998: vp->flag |= SPECIAL;
2999: break;
3000: #ifndef EASY_HISTORY
3001: case V_HISTSIZE:
3002: vp->flag &= ~ SPECIAL;
3003: setint(vp, histsize);
3004: vp->flag |= SPECIAL;
3005: break;
3006: #endif
3007: }
3008: }
3009:
3010: static void
3011: setspec(vp)
3012: register struct tbl *vp;
3013: {
3014: extern void mbset(), mpset();
3015:
3016: switch (special(vp->name)) {
3017: case V_PATH:
3018: path = strval(vp);
3019: flushcom(1); /* clear tracked aliases */
3020: break;
3021: case V_IFS:
3022: setctypes(strval(vp), C_IFS);
3023: break;
3024: case V_SECONDS:
3025: seconds = time((time_t *)0);
3026: break;
3027: case V_OPTIND:
3028: if (intval(vp) == 1)
3029: resetopts();
3030: break;
3031: case V_MAIL:
3032: mbset(strval(vp));
3033: break;
3034: case V_MAILPATH:
3035: mpset(strval(vp));
3036: break;
3037: case V_RANDOM:
3038: vp->flag &= ~ SPECIAL;
3039: srand((unsigned int)intval(vp));
3040: vp->flag |= SPECIAL;
3041: break;
3042: #ifndef EASY_HISTORY
3043: case V_HISTSIZE:
3044: vp->flag &= ~ SPECIAL;
3045: sethistsize(intval(vp));
3046: vp->flag |= SPECIAL;
3047: break;
3048: case V_HISTFILE:
3049: sethistfile(strval(vp));
3050: break;
3051: #endif
3052: case V_FCEDIT:
3053: set_editmode(strval(vp));
3054: break;
3055: case V_COLUMNS:
3056: if ((x_cols = intval(vp)) <= 0)
3057: x_cols=80;
3058: break;
3059: }
3060: }
3061:
3062: ./pdksh/sh/jobs.c 644 653 1762 47556 5302766161 11163 0 ustar hlu /*
3063: * Process and job control
3064: */
3065: #ifndef lint
3066: static char *RCSid = "$Id: jobs.c,v 1.5 1992/08/10 12:02:52 sjg Exp $";
3067: #endif
3068:
3069: /*
3070: * based on version by Ron Natalie, BRL
3071: * modified by Simon J. Gerraty <[email protected]>
3072: *
3073: * TODO:
3074: * change Proc table to Job table, with array of pids.
3075: * make %+ be jobs, %- be jobs->next.
3076: * do not JFREE members of pipeline.
3077: * consider procs[] related critical sections.
3078: */
3079:
3080: #include "stdh.h"
3081: #include <errno.h>
3082: #include <unistd.h>
3083: #include <signal.h>
3084: #include <setjmp.h>
3085: #include <sys/times.h>
3086: #include <sys/wait.h>
3087: #include "sh.h"
3088: #ifdef JOBS
3089: #ifdef _BSDI
3090: #define _BSD
3091: #define WIFCORED(x) WCOREDUMP(x)
3092: #endif
3093: #ifdef _BSD
3094: #include <sys/ioctl.h>
3095: #else
3096: #include "termios.h"
3097: #endif
3098: #endif
3099: #ifdef linux
3100: #include <fcntl.h>
3101: #endif
3102:
3103: #ifdef _BSD
3104: /*
3105: * These macros are for the benefit of SunOS 4.0.2 and 4.0.3
3106: * SunOS 4.1.1 already defines most of them.
3107: * Clearly these are aimed at SunOS, they may work for other
3108: * BSD systems but I can't promise.
3109: */
3110: # ifndef WIFSTOPPED
3111: # define WIFSTOPPED(x) ((x).w_stopval == WSTOPPED)
3112: # endif
3113: # ifndef WIFSIGNALED
3114: # define WIFSIGNALED(x) ((x).w_stopval != WSTOPPED && (x).w_termsig != 0)
3115: # endif
3116: # ifndef WIFEXITED
3117: # define WIFEXITED(x) ((x).w_stopval != WSTOPPED && (x).w_termsig == 0)
3118: # endif
3119: # ifndef WSTOPSIG
3120: # define WSTOPSIG(x) ((x).w_stopsig)
3121: # endif
3122: # ifndef WTERMSIG
3123: # define WTERMSIG(x) ((x).w_termsig)
3124: # endif
3125: # ifndef WIFCORED
3126: # define WIFCORED(x) ((x).w_coredump)
3127: # endif
3128: # ifndef WEXITSTATUS
3129: # define WEXITSTATUS(x) ((x).w_retcode)
3130: # endif
3131: # ifndef HAVE_WAITPID
3132: # define waitpid(pid, sp, opts) wait3(sp, opts, (void*)NULL)
3133: # endif
3134: #else /* not _BSD */
3135: # ifndef WIFCORED
3136: # define WIFCORED(x) (!!((x)&0x80)) /* non-standard */
3137: # endif
3138: #endif
3139:
3140: /* as of P1003.1 Draft 12.3:
3141: * pid_t getpgrp(void); // Get process group id
3142: * pid_t setsid(void); // Create session and Set process group id
3143: * int setpgid(pid_t pid, pid_t pgid); // Set process group id for job control
3144: */
3145:
3146:
3147: #ifdef JOBS
3148: #ifdef _BSD /* _BSD 4.* */
3149: #define setpgid(p, pg) setpgrp(p, pg)
3150: #define getpgid(p) getpgrp(p)
3151: #define tcsetpgrp(fd,p) ioctl(fd, TIOCSPGRP, &(p))
3152: #else /* POSIX-compatible */
3153: #define getpgid(p) getpgrp() /* 1003.1 stupidity */
3154: #define killpg(p, s) kill(-(p), s)
3155: #endif
3156: #endif
3157:
3158:
3159: #ifndef SIGCHLD
3160: #define SIGCHLD SIGCLD
3161: #endif
3162: #ifndef WAIT_T
3163: #ifdef _BSD
3164: #define WAIT_T union wait
3165: #else
3166: #define WAIT_T int
3167: #endif
3168: #ifdef _BSDI
3169: #undef WAIT_T
3170: #define WAIT_T int
3171: #endif
3172: #endif
3173: #ifndef SA_RESTART
3174: #define SA_RESTART 0
3175: #endif
3176:
3177: typedef struct Proc Proc;
3178: struct Proc {
3179: Proc *next; /* `procs' list link */
3180: int job; /* job number: %n */
3181: short volatile state; /* proc state */
3182: short volatile notify; /* proc state has changed */
3183: Proc *prev; /* prev member of pipeline */
3184: pid_t proc; /* process id */
3185: pid_t pgrp; /* process group if flag[FMONITOR] */
3186: short flags; /* execute flags */
3187: WAIT_T status; /* wait status */
3188: clock_t utime, stime; /* user/system time when JDONE */
3189: char com [48]; /* command */
3190: };
3191:
3192: /* proc states */
3193: #define JFREE 0 /* unused proc */
3194: #define JRUN 1 /* foreground */
3195: #define JEXIT 2 /* exit termination */
3196: #define JSIGNAL 3 /* signal termination */
3197: #define JSTOP 4 /* stopped */
3198:
3199: static Proc *procs = NULL; /* job/process table */
3200:
3201: clock_t j_utime, j_stime; /* user and system time for last job a-waited */
3202: #ifdef JOBS
3203: # ifdef USE_SIGACT
3204: sigset_t sm_default, sm_sigchld; /* signal masks */
3205: # else
3206: static int sm_default, sm_sigchld; /* signal masks */
3207: # endif
3208: static int our_pgrp; /* shell's pgrp */
3209: #endif
3210: static Proc *j_lastj; /* last proc created by exchild */
3211: static int j_lastjob = 0; /* last created job */
3212: static int j_current = 0; /* current job */
3213: static int j_previous = 0; /* previous job */
3214:
3215: static int j_waitj ARGS((Proc *aj, int intr));
3216: static void j_print ARGS((Proc *j));
3217: static int j_newjob ARGS((void));
3218: static Proc * j_search ARGS((int job));
3219: static void j_sigchld ARGS((int sig));
3220:
3221: /* initialize job control */
3222: void
3223: j_init()
3224: {
3225: #ifdef JOBS
3226: # if defined(NTTYDISC) && defined(TIOCSETD)
3227: int ldisc = NTTYDISC; /* BSD brain damage */
3228:
3229: if (ttyfd >= 0)
3230: ioctl(ttyfd, TIOCSETD, &ldisc);
3231: # endif
3232: our_pgrp = getpgid(0);
3233: sigchld_caught = 0;
3234: # ifdef USE_SIGACT
3235: sigemptyset(&sm_default);
3236: sigemptyset(&sm_sigchld);
3237: sigaddset(&sm_sigchld, SIGCHLD);
3238: # else
3239: sm_default = 0;
3240: sm_sigchld = sigmask(SIGCHLD);
3241: _TRACE(5, ("j_init: sm_sigchld == 0x%x", sm_sigchld));
3242: # endif
3243: #endif
3244: #ifndef JOBS
3245: # ifdef USE_SIGACT
3246: sigaction(SIGCHLD, &Sigact_dfl, NULL);
3247: # else
3248: # ifdef _SYSV
3249: signal(SIGCHLD, SIG_DFL); /* necessary ??? */
3250: # endif
3251: # endif
3252: #endif
3253: }
3254:
3255: /* job cleanup before shell exit */
3256: void
3257: j_exit()
3258: {
3259: register Proc *j;
3260: int killed = 0;
3261:
3262: #ifdef JOBS
3263: /* kill stopped jobs */
3264: for (j = procs; j != NULL; j = j->next)
3265: if (j->state == JSTOP) {
3266: killed ++;
3267: killpg(j->pgrp, SIGHUP);
3268: killpg(j->pgrp, SIGCONT);
3269: }
3270: if (killed)
3271: sleep(1);
3272: #endif
3273: j_notify();
3274:
3275: #ifdef JOBS
3276: if (flag[FMONITOR]) {
3277: flag[FMONITOR] = 0;
3278: j_change();
3279: }
3280: #endif
3281: }
3282:
3283: #ifdef JOBS
3284: /* turn job control on or off according to flag[FMONITOR] */
3285: void
3286: j_change()
3287: {
3288: #ifdef USE_SIGACT
3289: static struct sigaction old_tstp, old_ttin, old_ttou;
3290: #else
3291: static handler_t old_tstp, old_ttin, old_ttou;
3292: #endif
3293: if (flag[FMONITOR]) {
3294: if (ttyfd < 0) {
3295: flag[FMONITOR] = 0;
3296: shellf("job control requires tty\n");
3297: return;
3298: }
3299: #ifdef USE_SIGACT
3300: Sigact.sa_handler = j_sigchld;
3301: sigemptyset(&Sigact.sa_mask);
3302: Sigact.sa_flags = SA_RESTART;
3303: sigaction(SIGCHLD, &Sigact, NULL);
3304: Sigact.sa_flags = 0;
3305: sigtraps[SIGCHLD].sig_dfl = 1; /* restore on fork */
3306: sigaction(SIGTSTP, &Sigact_ign, &old_tstp);
3307: sigtraps[SIGTSTP].sig_dfl = 1;
3308: sigaction(SIGTTIN, &Sigact_ign, &old_ttin);
3309: sigtraps[SIGTTIN].sig_dfl = 1;
3310: sigaction(SIGTTOU, &Sigact_ign, &old_ttou);
3311: sigtraps[SIGTTOU].sig_dfl = 1;
3312: #else
3313: (void) signal(SIGCHLD, j_sigchld);
3314: sigtraps[SIGCHLD].sig_dfl = 1; /* restore on fork */
3315: old_tstp = signal(SIGTSTP, SIG_IGN);
3316: sigtraps[SIGTSTP].sig_dfl = 1;
3317: old_ttin = signal(SIGTTIN, SIG_IGN);
3318: sigtraps[SIGTTIN].sig_dfl = 1;
3319: old_ttou = signal(SIGTTOU, SIG_IGN);
3320: sigtraps[SIGTTOU].sig_dfl = 1;
3321: #endif
3322: #ifdef USE_SIGACT
3323: sigprocmask(SIG_SETMASK, &sm_default, NULL);
3324: #else
3325: sigsetmask(sm_default);
3326: #endif
3327: tcsetpgrp(ttyfd, our_pgrp);
3328: } else {
3329: #ifdef USE_SIGACT
3330: sigaction(SIGCHLD, &Sigact_dfl, NULL);
3331: sigaction(SIGTSTP, &old_tstp, NULL);
3332: sigtraps[SIGTSTP].sig_dfl = 0;
3333: sigaction(SIGTTIN, &old_ttin, NULL);
3334: sigtraps[SIGTTIN].sig_dfl = 0;
3335: sigaction(SIGTTOU, &old_ttou, NULL);
3336: sigtraps[SIGTTOU].sig_dfl = 0;
3337: #else
3338: (void) signal(SIGCHLD, SIG_DFL);
3339: (void) signal(SIGTSTP, old_tstp);
3340: sigtraps[SIGTSTP].sig_dfl = 0;
3341: (void) signal(SIGTTIN, old_ttin);
3342: sigtraps[SIGTTIN].sig_dfl = 0;
3343: (void) signal(SIGTTOU, old_ttou);
3344: sigtraps[SIGTTOU].sig_dfl = 0;
3345: #endif
3346: }
3347: }
3348: #endif
3349:
3350: /* execute tree in child subprocess */
3351: int
3352: exchild(t, flags)
3353: struct op *t;
3354: int flags;
3355: {
3356: register int i;
3357: register Proc *j;
3358: int rv = 0;
3359: int forksleep;
3360:
3361: flags &= ~XFORK;
3362: if ((flags&XEXEC))
3363: return execute(t, flags);
3364:
3365: /* get free Proc entry */
3366: for (j = procs; j != NULL; j = j->next)
3367: if (j->state == JFREE)
3368: goto Found;
3369: j = (Proc*) alloc(sizeof(Proc), APERM);
3370: j->next = procs;
3371: j->state = JFREE;
3372: procs = j;
3373: Found:
3374:
3375: j->prev = ((flags&XPIPEI)) ? j_lastj : NULL;
3376: j->proc = j->pgrp = 0;
3377: j->flags = flags;
3378: j->job = (flags&XPIPEI) ? j_lastjob : j_newjob();
3379: snptreef(j->com, sizeof(j->com), "%T", t); /* save proc's command */
3380: j->com[sizeof(j->com)-1] = '\0';
3381: j->state = JRUN;
3382:
3383: /* stdio buffer must be flushed and invalidated */
3384: for (i = (flags&XXWHL) ? 1 : 0; i < NUFILE; i++)
3385: flushshf(i);
3386:
3387: /* create child process */
3388: forksleep = 0;
3389: #ifdef JOBS
3390: /* don't allow SIGCHLD until we are ready */
3391:
3392: #ifdef USE_SIGACT
3393: sigprocmask(SIG_SETMASK, &sm_sigchld, NULL);
3394: # else
3395: sigsetmask(sm_sigchld);
3396: # endif
3397: #endif
3398: while ((i = fork()) < 0 && errno == EAGAIN && forksleep < 32) {
3399: if (forksleep) {
3400: sleep(forksleep);
3401: forksleep <<= 1;
3402: } else
3403: forksleep = 1;
3404: }
3405: if (i < 0) {
3406: j->state = JFREE;
3407: errorf("cannot fork - try again\n");
3408: }
3409: j->proc = (i != 0) ? i : getpid();
3410:
3411: #ifdef JOBS
3412: /* job control set up */
3413: if (flag[FMONITOR] && !(flags&XXCOM))
3414: {
3415: j->pgrp = !(flags&XPIPEI) ? j->proc : j_lastj->pgrp;
3416: /* do in both parent and child to avoid fork race condition */
3417: if (!(flags&XBGND))
3418: tcsetpgrp(ttyfd, j->pgrp); /* could be trouble */
3419: setpgid(j->proc, j->pgrp);
3420: }
3421: #endif
3422: j_lastj = j;
3423:
3424: if (i == 0) { /* child */
3425: e.oenv = NULL;
3426: if (flag[FTALKING])
3427: restoresigs();
3428: if ((flags&XBGND) && !flag[FMONITOR])
3429: {
3430: #ifdef USE_SIGACT
3431: sigaction(SIGINT, &Sigact_dfl, NULL);
3432: sigaction(SIGQUIT, &Sigact_dfl, NULL);
3433: if (flag[FTALKING])
3434: sigaction(SIGTERM, &Sigact_dfl, NULL);
3435: #else
3436: signal(SIGINT, SIG_IGN);
3437: signal(SIGQUIT, SIG_IGN);
3438: if (flag[FTALKING])
3439: signal(SIGTERM, SIG_DFL);
3440: #endif
3441: if (!(flags&XPIPEI)) {
3442: i = open("/dev/null", 0);
3443: (void) dup2(i, 0);
3444: close(i);
3445: }
3446: }
3447: for (j = procs; j != NULL; j = j->next)
3448: j->state = JFREE;
3449: ttyfd = -1;
3450: #ifdef JOBS
3451: /* is this needed in the child? */
3452: # ifdef USE_SIGACT
3453: sigprocmask(SIG_SETMASK, &sm_default, NULL);
3454: # else
3455: sigsetmask(sm_default);
3456: # endif
3457: #endif
3458: flag[FMONITOR] = flag[FTALKING] = 0;
3459: cleartraps();
3460: execute(t, flags|XEXEC); /* no return */
3461: /* NOTREACHED */
3462: }
3463:
3464: /* shell (parent) stuff */
3465: if ((flags&XBGND)) { /* async statement */
3466: async = j->proc;
3467: j_previous = j_current;
3468: j_current = j->job;
3469: if (flag[FTALKING])
3470: j_print(j);
3471: }
3472: #ifdef JOBS
3473: # ifdef USE_SIGACT
3474: sigprocmask(SIG_SETMASK, &sm_default, NULL);
3475: # else
3476: sigsetmask(sm_default);
3477: # endif
3478: #endif
3479: if (!(flags&XBGND))
3480: { /* sync statement */
3481: if (!(flags&XPIPE))
3482: rv = j_waitj(j, 0);
3483: }
3484:
3485: return rv;
3486: }
3487:
3488: /* wait for last job: pipeline or $() sub-process */
3489: int
3490: waitlast()
3491: {
3492: return j_waitj(j_lastj, 0);
3493: }
3494:
3495: /* wait for job to complete or change state */
3496: static int
3497: j_waitj(aj, intr)
3498: Proc *aj;
3499: int intr; /* interruptable */
3500: {
3501: register Proc *j;
3502: int rv = 1;
3503: int ttysig = 0;
3504:
3505: #ifdef JOBS
3506: if (flag[FMONITOR])
3507: {
3508: # ifdef USE_SIGACT
3509: sigprocmask(SIG_SETMASK, &sm_sigchld, NULL);
3510: # else
3511: _TRACE(5, ("j_waitj: sigsetmask(sm_sigchld==0x%x)", sm_sigchld));
3512: sigsetmask(sm_sigchld);
3513: # endif
3514: }
3515: #endif
3516: /* wait for all members of pipeline */
3517: for (j = aj; j != NULL; j = j->prev) {
3518: /* wait for job to finish, stop, or ^C of built-in wait */
3519: while (j->state == JRUN) {
3520: #ifdef JOBS
3521: if (flag[FMONITOR])
3522: {
3523: /*
3524: * 91-07-07 <sjg@sun0>
3525: * we don't want to wait for a signal
3526: * that has already arrived :-)
3527: */
3528: if (!sigchld_caught)
3529: {
3530: # ifdef USE_SIGACT
3531: sigsuspend(&sm_default);
3532: # else
3533: _TRACE(4, ("j_waitj: sigpause(%d), sigchld_caught==%d", sm_default, sigchld_caught));
3534: sigpause(sm_default);
3535: _TRACE(4, ("j_waitj: sigpause() returned %d, sigchld_caught==%d", errno, sigchld_caught));
3536: # endif /* USE_SIGACT */
3537: }
3538: }
3539: else
3540: #endif /* JOBS */
3541: j_sigchld(0);
3542: /*
3543: * Children to reap
3544: */
3545: if (sigchld_caught)
3546: j_reapchld();
3547: _TRACE(4, ("j_waitj: j->proc==%d, j->com=='%s', j->state==0x%hx, j->status==0x%x, j->notify==%hd", j->proc, j->com, j->state, j->status, j->notify));
3548:
3549: if (sigtraps[SIGINT].set && intr)
3550: goto Break;
3551: }
3552: if (j->state == JEXIT) { /* exit termination */
3553: if (!(j->flags&XPIPEO))
3554: rv = WEXITSTATUS(j->status);
3555: j->notify = 0;
3556: } else
3557: if (j->state == JSIGNAL) { /* signalled to death */
3558: if (!(j->flags&XPIPEO))
3559: rv = 0x80 + WTERMSIG(j->status);
3560: if (WTERMSIG(j->status) == SIGINT ||
3561: (WTERMSIG(j->status) == SIGPIPE &&
3562: (j->flags&XPIPEO)))
3563: j->notify = 0;
3564: if (WTERMSIG(j->status) == SIGINT ||
3565: WTERMSIG(j->status) == SIGQUIT)
3566: ttysig = 1;
3567: } else
3568: #ifdef JOBS
3569: if (j->state == JSTOP)
3570: if (WSTOPSIG(j->status) == SIGTSTP)
3571: ttysig = 1;
3572: #else
3573: ;
3574: #endif
3575: }
3576:
3577: /* compute total child time for time statement */
3578: for (j = aj; j != NULL; j = j->prev)
3579: j_utime += j->utime, j_stime += j->stime;
3580:
3581: /* find new current job */
3582: #ifdef JOBS
3583: if (aj->state == JSTOP) {
3584: j_previous = j_current;
3585: j_current = aj->job;
3586: } else {
3587: #else
3588: if (1) {
3589: #endif
3590: int hijob = 0;
3591:
3592: /* todo: this needs to be done in j_notify */
3593: /* todo: figure out what to do with j_previous */
3594: j_current = 0;
3595: for (j = procs; j != NULL; j = j->next)
3596: if ((j->state == JRUN || j->state == JSTOP)
3597: && j->job > hijob) {
3598: hijob = j->job;
3599: j_current = j->job;
3600: }
3601: }
3602:
3603: Break:
3604: #ifdef JOBS
3605: if (flag[FMONITOR])
3606: {
3607: /* reset shell job control state */
3608: # ifdef USE_SIGACT
3609: sigprocmask(SIG_SETMASK, &sm_default, NULL);
3610: # else
3611: sigsetmask(sm_default);
3612: # endif
3613: tcsetpgrp(ttyfd, our_pgrp);
3614: }
3615: #endif
3616: if (ttysig)
3617: fputc('\n', shlout);
3618: j_notify();
3619:
3620: return rv;
3621: }
3622:
3623: /* SIGCHLD handler to reap children */
3624: /*
3625: * 91-07-07 <sjg@sun0>
3626: * On the Sun SS2 this appears to get called
3627: * too quickly!
3628: * So just record the event and process later.
3629: */
3630: static void
3631: j_sigchld(sig)
3632: int sig;
3633: {
3634: sigchld_caught++; /* acknowledge it */
3635: }
3636:
3637: /*
3638: * 91-07-07 <sjg@sun0>
3639: * This now gets called when j_sigchld()
3640: * has recorded some signals...
3641: */
3642: j_reapchld()
3643: {
3644: struct tms t0, t1;
3645: #if defined(JOBS)
3646: # ifdef USE_SIGACT
3647: sigset_t sm_old;
3648:
3649: sigprocmask(SIG_SETMASK, NULL, &sm_old);
3650: # else
3651: int sm_old;
3652:
3653: sm_old = sigblock(0); /* just get current mask */
3654: _TRACE(5, ("j_reapchld: sm_old==0x%x, sigchld_caught==%d", sm_old, sigchld_caught));
3655: # endif
3656: #endif
3657: (void) times(&t0);
3658:
3659: do {
3660: register Proc *j;
3661: int pid;
3662: WAIT_T status;
3663: #ifdef JOBS
3664: if (flag[FMONITOR])
3665: pid = waitpid(-1, &status, (WNOHANG|WUNTRACED));
3666: else
3667: #endif
3668: pid = wait(&status);
3669: if (pid < 0 && errno == ECHILD)
3670: {
3671: /* no children - what are we doing here? */
3672: _TRACE(5, ("j_reapchld: no children"));
3673: sigchld_caught = 0;
3674: break;
3675: }
3676: if (pid <= 0) /* return if would block (0) ... */
3677: break; /* ... or no children or interrupted (-1) */
3678: (void) times(&t1);
3679:
3680: _TRACE(5, ("j_reapchld: looking for pid==%d", pid));
3681:
3682: for (j = procs; j != NULL; j = j->next)
3683: {
3684: _TRACE(6, ("j_reapchld: j->proc==%d, j->com=='%s', j->state==0x%hx, j->status==0x%x, j->notify==%hd", j->proc, j->com, j->state, j->status, j->notify));
3685: if (j->state != JFREE && j->proc == pid)
3686: goto Found;
3687: }
3688: _TRACE(5, ("j_reapchld: did not find pid==%d", pid));
3689: continue;
3690: Found:
3691: _TRACE(5, ("j_reapchld: found pid==%d", pid));
3692: j->notify = 1;
3693: j->status = status;
3694: #ifdef JOBS
3695: if (WIFSTOPPED(status))
3696: j->state = JSTOP;
3697: else
3698: #endif
3699: if (WIFEXITED(status))
3700: j->state = JEXIT;
3701: else
3702: if (WIFSIGNALED(status))
3703: j->state = JSIGNAL;
3704:
3705: /* compute child's time */
3706: /* todo: what does a stopped job do? */
3707: j->utime = t1.tms_cutime - t0.tms_cutime;
3708: j->stime = t1.tms_cstime - t0.tms_cstime;
3709: t0 = t1;
3710: #ifdef JOBS
3711: # ifdef USE_SIGACT
3712: sigprocmask(SIG_BLOCK, &sm_sigchld, NULL);
3713: # else
3714: sigblock(sm_sigchld);
3715: # endif
3716: #endif
3717: if (--sigchld_caught < 0) /* reduce the count */
3718: sigchld_caught = 0;
3719: #ifdef JOBS
3720: # ifdef USE_SIGACT
3721: sigprocmask(SIG_SETMASK, &sm_old, NULL);
3722: # else
3723: _TRACE(5, ("j_reapchld: j->proc==%d, j->com=='%s', j->state==0x%hx, j->status==0x%x, j->notify==%hd", j->proc, j->com, j->state, j->status, j->notify));
3724: sigsetmask(sm_old); /* restore old mask */
3725: # endif
3726: #endif
3727:
3728: #ifdef JOBS
3729: } while (flag[FMONITOR]);
3730: #else
3731: } while (0); /* only once if wait()ing */
3732: #endif
3733: /*
3734: * this should be safe
3735: */
3736: #if defined(_SYSV) && !defined(JOBS) && !defined(USE_SIGACT)
3737: signal(SIGCHLD, j_sigchld);
3738: #if 0
3739: /* why was this here??? */
3740: signal(SIGCLD, SIG_DFL);
3741: #endif
3742: #endif
3743: }
3744:
3745: j_reap()
3746: {
3747: if (sigchld_caught)
3748: j_reapchld();
3749: /*
3750: * now done in j_reapchld()
3751: */
3752: #if 0 && defined(_SYSV) && !defined(JOBS) && !defined(USE_SIGACT)
3753: signal(SIGCHLD, j_sigchld);
3754: signal(SIGCLD, SIG_DFL);
3755: #endif
3756: return(0);
3757: }
3758:
3759: /* wait for child, interruptable */
3760: int
3761: waitfor(job)
3762: int job;
3763: {
3764: register Proc *j;
3765:
3766: if (job == 0 && j_current == 0)
3767: errorf("no current job\n");
3768: j = j_search((job == 0) ? j_current : job);
3769: if (j == NULL)
3770: errorf("no such job: %d\n", job);
3771: if (flag[FTALKING])
3772: j_print(j);
3773: if (e.interactive) { /* flush stdout, shlout */
3774: fflush(shf[1]);
3775: fflush(shf[2]);
3776: }
3777: return j_waitj(j, 1);
3778: }
3779:
3780: /* kill (built-in) a job */
3781: void
3782: j_kill(job, sig)
3783: int job;
3784: int sig;
3785: {
3786: register Proc *j;
3787:
3788: j = j_search(job);
3789: if (j == NULL)
3790: errorf("cannot find job\n");
3791: if (j->pgrp == 0) { /* !flag[FMONITOR] */
3792: if (kill(j->proc, sig) < 0) /* todo: all member of pipeline */
3793: errorf("kill: %s\n", strerror(errno));
3794: #ifdef JOBS
3795: } else {
3796: if (sig == SIGTERM || sig == SIGHUP)
3797: (void) killpg(j->pgrp, SIGCONT);
3798: if (killpg(j->pgrp, sig) < 0)
3799: errorf("killpg: %s\n", strerror(errno));
3800: #endif
3801: }
3802: }
3803:
3804: #ifdef JOBS
3805:
3806: /* fg and bg built-ins */
3807: int
3808: j_resume(job, bg)
3809: int job;
3810: int bg;
3811: {
3812: register Proc *j;
3813:
3814: j = j_search((job == 0) ? j_current : job);
3815: if (j == NULL)
3816: errorf("cannot find job\n", job);
3817: if (j->pgrp == 0)
3818: errorf("job not job-controlled\n");
3819:
3820: j->state = JRUN;
3821: j_print(j);
3822: flushshf(2);
3823:
3824: if (!bg)
3825: tcsetpgrp(ttyfd, j->pgrp); /* attach shell to job */
3826: if (killpg(j->pgrp, SIGCONT) < 0)
3827: errorf("cannot continue job %%%d\n", job);
3828: if (!bg)
3829: return j_waitj(j, 0);
3830: return 0;
3831: }
3832:
3833: #endif
3834:
3835: /* list jobs for jobs built-in */
3836: void
3837: j_jobs()
3838: {
3839: register Proc *j;
3840:
3841: for (j = procs; j != NULL; j = j->next)
3842: if (j->state != JFREE)
3843: j_print(j);
3844: }
3845:
3846: /* list jobs for top-level notification */
3847: void
3848: j_notify()
3849: {
3850: register Proc *j;
3851:
3852: /*
3853: * since reaping is no longer done in the signal handler
3854: * we had better try here...
3855: */
3856: if (sigchld_caught)
3857: j_reapchld();
3858:
3859: for (j = procs; j != NULL; j = j->next) {
3860: if (j->state == JEXIT && !flag[FTALKING])
3861: j->notify = 0;
3862: if (j->state != JFREE && j->notify)
3863: j_print(j);
3864: if (j->state == JEXIT || j->state == JSIGNAL)
3865: j->state = JFREE;
3866: j->notify = 0;
3867: }
3868: }
3869:
3870: static void
3871: j_print(j)
3872: register Proc *j;
3873: {
3874: char buf [64], *s = buf;
3875:
3876: switch (j->state) {
3877: case JRUN:
3878: s = "Running";
3879: break;
3880:
3881: #ifdef JOBS
3882: case JSTOP:
3883: strcpy(buf, "Stopped ");
3884: s = strchr(sigtraps[WSTOPSIG(j->status)].mess, '(');
3885: if (s != NULL)
3886: strcat(buf, s);
3887: s = buf;
3888: break;
3889: #endif
3890:
3891: case JEXIT: {
3892: int rv;
3893: rv = WEXITSTATUS(j->status);
3894: sprintf(buf, "Done (%d)", rv);
3895: if (rv == 0)
3896: *strchr(buf, '(') = 0;
3897: j->state = JFREE;
3898: } break;
3899:
3900: case JSIGNAL: {
3901: int sig = WTERMSIG(j->status);
3902: char *n = sigtraps[sig].mess;
3903: if (n != NULL)
3904: sprintf(buf, "%s", n);
3905: else
3906: sprintf(buf, "Signal %d", sig);
3907: if (WIFCORED(j->status))
3908: strcat(buf, " - core dumped");
3909: j->state = JFREE;
3910: } break;
3911:
3912: default:
3913: s = "Hideous job state";
3914: j->state = JFREE;
3915: break;
3916: }
3917: shellf("%%%-2d%c %5d %-20s %s%s\n", j->job,
3918: (j_current==j->job) ? '+' : (j_previous==j->job) ? '-' : ' ',
3919: j->proc, s, j->com, (j->flags&XPIPEO) ? "|" : "");
3920: }
3921:
3922: /* convert % sequence to job number */
3923: int
3924: j_lookup(cp)
3925: char *cp;
3926: {
3927: register Proc *j;
3928: int len, job = 0;
3929:
3930: if (*cp == '%') /* leading % is optional */
3931: cp++;
3932: switch (*cp) {
3933: case '\0':
3934: case '+':
3935: job = j_current;
3936: break;
3937:
3938: case '-':
3939: job = j_previous;
3940: break;
3941:
3942: case '0': case '1': case '2': case '3': case '4':
3943: case '5': case '6': case '7': case '8': case '9':
3944: job = atoi(cp);
3945: break;
3946:
3947: case '?': /* %?string */
3948: for (j = procs; j != NULL; j = j->next)
3949: if (j->state != JFREE && strstr(j->com, cp+1) != NULL)
3950: job = j->job;
3951: break;
3952:
3953: default: /* %string */
3954: len = strlen(cp);
3955: for (j = procs; j != NULL; j = j->next)
3956: if (j->state != JFREE && strncmp(cp, j->com, len) == 0)
3957: job = j->job;
3958: break;
3959: }
3960: if (job == 0)
3961: errorf("%s: no such job\n", cp);
3962: return job;
3963: }
3964:
3965: /* are any stopped jobs ? */
3966: #ifdef JOBS
3967: int
3968: j_stopped()
3969: {
3970: register Proc *j;
3971:
3972: for (j = procs; j != NULL; j = j->next)
3973: if (j->state == JSTOP)
3974: return 1;
3975: return 0;
3976: }
3977: #endif
3978:
3979: /* create new job number */
3980: static int
3981: j_newjob()
3982: {
3983: register Proc *j;
3984: register int max = 0;
3985:
3986: j_lastjob ++;
3987: for (j = procs; j != NULL; j = j->next)
3988: if (j->state != JFREE && j->job)
3989: if (j->job > max)
3990: max = j->job;
3991: if (j_lastjob > max)
3992: j_lastjob = max + 1;
3993: return j_lastjob;
3994: }
3995:
3996: /* search for job by job number */
3997: static Proc *
3998: j_search(job)
3999: int job;
4000: {
4001: register Proc *j;
4002:
4003: for (j = procs; j != NULL; j = j->next)
4004: if (j->state != JFREE && job == j->job && !(j->flags&XPIPEO))
4005: return j;
4006: return NULL;
4007: }
4008:
4009: ./pdksh/sh/trace.c 644 653 1762 6007 5243743615 11271 0 ustar hlu /* NAME:
4010: * trace.c - a simple trace facility
4011: *
4012: * SYNOPSIS:
4013: * TRACE(level, (fmt [, ...]));
4014: *
4015: * DESCRIPTION:
4016: * This module provides a simple trace facility via
4017: * a call to checkpoint() which opens a log file and writes
4018: * an entry and closes the log (so that process crashes
4019: * won't destroy the log :-). checkpoint() takes options
4020: * like printf(). If Trace_log is not initialized then
4021: * stderr is used.
4022: *
4023: * The header file trace.h defines a macro TRACE() which
4024: * is useful in that it allows checkpoint to be called
4025: * based on the value of Trace_level, and the calls can be
4026: * eliminated by undefining USE_TRACE.
4027: *
4028: * RETURN VALUE:
4029: * None.
4030: *
4031: * FILES:
4032: * None.
4033: *
4034: * SEE ALSO:
4035: *
4036: *
4037: * BUGS:
4038: *
4039: *
4040: * AMENDED:
4041: * 91/11/22 22:53:56 (sjg)
4042: *
4043: * RELEASED:
4044: * 91/11/22 22:54:17 v1.2
4045: *
4046: * @(#)Copyright (c) 1990 Simon J. Gerraty.
4047: */
4048: #ifdef USE_TRACE
4049:
4050: #ifndef lint
4051: static char sccs_id[] = "@(#)trace.c 1.2 91/11/22 22:53:56 (sjg)";
4052: #endif
4053:
4054: /* include files */
4055: #include <stdio.h>
4056: #ifdef __STDC__
4057: # include <stdlib.h>
4058: #endif
4059:
4060: #define EXTERN
4061: #include "trace.h"
4062: #undef EXTERN
4063:
4064: /* some useful #defines */
4065: #ifndef ENTRY
4066: # define ENTRY
4067: # define LOCAL static
4068: # define BOOLEAN int
4069: #endif
4070: #ifndef TRUE
4071: # define TRUE 1
4072: # define FALSE 0
4073: #endif
4074: #ifndef ARGS
4075: # if defined(__STDC__) || defined(PROTO)
4076: # define ARGS(p) p
4077: # else
4078: # define ARGS(p) ()
4079: # endif
4080: #endif
4081:
4082:
4083: /* NAME:
4084: * checkpoint - write a logfile entry
4085: *
4086: * SYNOPSIS:
4087: * checkpoint(fmt, ...)
4088: *
4089: * DESCRIPTION:
4090: * This function takes a variable number or args
4091: * like the printf(3S) family of functions.
4092: *
4093: * RETURN VALUE:
4094: * None
4095: */
4096: extern char * _CDECL strdup ARGS((char *s));
4097:
4098: #ifdef __STDC__
4099: # include <stdarg.h>
4100:
4101: ENTRY void _CDECL
4102: checkpoint(fmt)
4103: char *fmt;
4104: {
4105: int c;
4106: va_list arg_ptr;
4107: FILE *fp;
4108: register char *rcp;
4109: char *mode;
4110: static setup;
4111:
4112: va_start(arg_ptr, fmt);
4113: #else /* __STDC__ */
4114: # include <varargs.h>
4115:
4116: ENTRY void _CDECL
4117: checkpoint(va_alist)
4118: va_dcl
4119: {
4120: extern char *getenv ARGS((char *var));
4121: char *fmt;
4122: int c;
4123: va_list arg_ptr;
4124: FILE *fp;
4125: register char *rcp;
4126: char *mode;
4127: static setup;
4128:
4129: va_start(arg_ptr);
4130: fmt = va_arg(arg_ptr, char *);
4131: #endif /* __STDC__ */
4132:
4133: /* 42 is a "magic" number */
4134: if (setup == 42)
4135: mode = "a";
4136: else
4137: {
4138: if (Trace_level == 0 && (rcp = getenv("TRACE_LEVEL")))
4139: Trace_level = atoi(rcp);
4140: if (Trace_log == NULL || *Trace_log == '\0')
4141: {
4142: if (rcp = getenv("TRACE_LOG"))
4143: Trace_log = strdup(rcp);
4144: else
4145: Trace_log = NULL;
4146: }
4147: setup = 42;
4148: mode= "w";
4149: }
4150: if (Trace_log)
4151: fp = fopen(Trace_log, mode);
4152: else
4153: fp = stderr;
4154: if (fp != (FILE *)NULL)
4155: {
4156: vfprintf(fp, fmt, arg_ptr);
4157: fputc('\n', fp);
4158: if (fp == stderr)
4159: fflush(fp);
4160: else
4161: fclose(fp);
4162: }
4163: }
4164:
4165: #endif /* USE_TRACE */
4166:
4167: /* This lot (for GNU-Emacs) goes at the end of the file. */
4168: /*
4169: * Local Variables:
4170: * version-control:t
4171: * comment-column:40
4172: * End:
4173: */
4174: ./pdksh/sh/exec.c 644 653 1762 44176 5243743655 11154 0 ustar hlu /*
4175: * execute command tree
4176: */
4177:
4178: #ifndef lint
4179: static char *RCSid = "$Id: exec.c,v 1.4 1992/08/10 12:02:38 sjg Exp $";
4180: #endif
4181:
4182: #include "stdh.h"
4183: #include <errno.h>
4184: #include <signal.h>
4185: #include <setjmp.h>
4186: #include <unistd.h>
4187: #include <fcntl.h>
4188: #include <sys/stat.h>
4189: #include "sh.h"
4190: #include "edit.h"
4191:
4192: static int comexec ARGS((struct op *t, char **vp, char **ap, int flags));
4193: #ifdef SHARPBANG
4194: static void scriptexec ARGS((struct op *tp, char **ap));
4195: #endif
4196: static void iosetup ARGS((struct ioword *iop));
4197: static int herein ARGS((char *hname, int sub));
4198: static void echo ARGS((char **vp, char **ap));
4199: static char *do_selectargs ARGS((char **ap, char *));
4200: static int selread ARGS((void));
4201:
4202:
4203: /*
4204: * handle systems that don't have F_SETFD
4205: */
4206: #ifndef F_SETFD
4207: # ifndef MAXFD
4208: # define MAXFD 64
4209: # endif
4210: /*
4211: * a bit field would be smaller, but this
4212: * will work
4213: */
4214: static char clexec_tab[MAXFD+1];
4215:
4216: /* this is so that main() can clear it */
4217: void
4218: init_clexec()
4219: {
4220: (void) memset(clexec_tab, 0, sizeof(clexec_tab)-1);
4221: }
4222:
4223: int
4224: fd_clexec(fd)
4225: int fd;
4226: {
4227: if (fd < sizeof(clexec_tab))
4228: {
4229: clexec_tab[fd] = 1;
4230: return 0;
4231: }
4232: return -1;
4233: }
4234: #endif
4235:
4236:
4237: /*
4238: * execute command tree
4239: */
4240: int
4241: execute(t, flags)
4242: register struct op *t;
4243: volatile int flags; /* if XEXEC don't fork */
4244: {
4245: int i;
4246: int volatile rv = 0;
4247: int pv[2];
4248: register char **ap;
4249: char *s, *cp;
4250: struct ioword **iowp;
4251:
4252: if (t == NULL)
4253: return 0;
4254:
4255: if ((flags&XFORK) && !(flags&XEXEC) && t->type != TPIPE)
4256: return exchild(t, flags); /* run in sub-process */
4257:
4258: newenv(E_EXEC);
4259: if (trap)
4260: runtraps();
4261:
4262: if (t->ioact != NULL || t->type == TPIPE) {
4263: e.savefd = (short*) alloc(sizeofN(short, NUFILE), ATEMP);
4264: for (i = 0; i < NUFILE; i++)
4265: e.savefd[i] = 0; /* not redirected */
4266: /* mark fd 0/1 in-use if pipeline */
4267: if (flags&XPIPEI)
4268: e.savefd[0] = -1;
4269: if (flags&XPIPEO)
4270: e.savefd[1] = -1;
4271: }
4272:
4273: /* do redirection, to be restored in quitenv() */
4274: if (t->ioact != NULL)
4275: for (iowp = t->ioact; *iowp != NULL; iowp++)
4276: iosetup(*iowp);
4277:
4278: switch(t->type) {
4279: case TCOM:
4280: e.type = E_TCOM;
4281: rv = comexec(t, eval(t->vars, DOTILDE),
4282: eval(t->args, DOBLANK|DOGLOB|DOTILDE), flags);
4283: break;
4284:
4285: case TPAREN:
4286: exstat = rv = execute(t->left, flags|XFORK);
4287: break;
4288:
4289: case TPIPE:
4290: flags |= XFORK;
4291: flags &= ~XEXEC;
4292: e.savefd[0] = savefd(0);
4293: e.savefd[1] = savefd(1);
4294: flags |= XPIPEO;
4295: (void) dup2(e.savefd[0], 0); /* stdin of first */
4296: while (t->type == TPIPE) {
4297: openpipe(pv);
4298: (void) dup2(pv[1], 1); /* stdout of curr */
4299: exchild(t->left, flags);
4300: (void) dup2(pv[0], 0); /* stdin of next */
4301: closepipe(pv);
4302: flags |= XPIPEI;
4303: t = t->right;
4304: }
4305: flags &= ~ XPIPEO;
4306: (void) dup2(e.savefd[1], 1); /* stdout of last */
4307: exchild(t, flags);
4308: (void) dup2(e.savefd[0], 0); /* close pipe in */
4309: if (!(flags&XBGND))
4310: exstat = rv = waitlast();
4311: break;
4312:
4313: case TLIST:
4314: while (t->type == TLIST) {
4315: execute(t->left, 0);
4316: t = t->right;
4317: }
4318: rv = execute(t, 0);
4319: break;
4320:
4321: case TASYNC:
4322: rv = execute(t->left, flags|XBGND|XFORK);
4323: break;
4324:
4325: case TOR:
4326: case TAND:
4327: rv = execute(t->left, 0);
4328: if (t->right != NULL && (rv == 0) == (t->type == TAND))
4329: rv = execute(t->right, 0);
4330: break;
4331:
4332: case TFOR:
4333: e.type = E_LOOP;
4334: ap = (t->vars != NULL) ?
4335: eval(t->vars, DOBLANK|DOGLOB|DOTILDE) : e.loc->argv + 1;
4336: while ((i = setjmp(e.jbuf)))
4337: if (i == LBREAK)
4338: goto Break1;
4339: while (*ap != NULL) {
4340: setstr(global(t->str), *ap++);
4341: rv = execute(t->left, 0);
4342: }
4343: Break1:
4344: break;
4345:
4346: case TSELECT:
4347: e.type = E_LOOP;
4348: ap = (t->vars != NULL) ?
4349: eval(t->vars, DOBLANK|DOGLOB|DOTILDE) : e.loc->argv + 1;
4350: while ((i = setjmp(e.jbuf)))
4351: if (i == LBREAK)
4352: goto Break1;
4353: signal(SIGINT, trapsig); /* needs change to trapsig */
4354: cp = NULL;
4355: for (;;) {
4356: if ((cp = do_selectargs(ap, cp)) == (char *)1)
4357: break;
4358: setstr(global(t->str), cp);
4359: rv = execute(t->left, 0);
4360: }
4361: break;
4362:
4363: case TWHILE:
4364: case TUNTIL:
4365: e.type = E_LOOP;
4366: while ((i = setjmp(e.jbuf)))
4367: if (i == LBREAK)
4368: goto Break2;
4369: while ((execute(t->left, 0) == 0) == (t->type == TWHILE))
4370: rv = execute(t->right, XXWHL);
4371: Break2:
4372: break;
4373:
4374: case TIF:
4375: case TELIF:
4376: if (t->right == NULL)
4377: break; /* should be error */
4378: rv = execute(t->left, 0) == 0 ?
4379: execute(t->right->left, 0) :
4380: execute(t->right->right, 0);
4381: break;
4382:
4383: case TCASE:
4384: cp = evalstr(t->str, 0);
4385: for (t = t->left; t != NULL && t->type == TPAT; t = t->right)
4386: for (ap = t->vars; *ap; ap++)
4387: if ((s = evalstr(*ap, DOPAT)) && gmatch(cp, s))
4388: goto Found;
4389: break;
4390: Found:
4391: rv = execute(t->left, 0);
4392: break;
4393:
4394: case TBRACE:
4395: rv = execute(t->left, 0);
4396: break;
4397:
4398: case TFUNCT:
4399: rv = define(t->str, t->left);
4400: break;
4401:
4402: case TTIME:
4403: rv = timex(t, flags);
4404: break;
4405:
4406: case TEXEC: /* an eval'd TCOM */
4407: s = t->args[0];
4408: ap = makenv();
4409: #ifndef F_SETFD
4410: for (i = 0; i < sizeof(clexec_tab); i++)
4411: if (clexec_tab[i])
4412: {
4413: close(i);
4414: clexec_tab[i] = 0;
4415: }
4416: #endif
4417: execve(t->str, t->args, ap);
4418: if (errno == ENOEXEC) {
4419: char *shell;
4420: #ifdef SHARPBANG
4421: scriptexec(t, ap);
4422: #else
4423: shell = strval(global("EXECSHELL"));
4424: if (shell && *shell) {
4425: if ((shell = search(shell,path,1)) == NULL)
4426: shell = SHELL;
4427: } else {
4428: shell = SHELL;
4429: }
4430: *t->args-- = t->str;
4431: *t->args = shell;
4432: execve(t->args[0], t->args, ap);
4433: errorf("No shell\n");
4434: #endif /* SHARPBANG */
4435: }
4436: errorf("%s: %s\n", s, strerror(errno));
4437: }
4438:
4439: quitenv(); /* restores IO */
4440: if (e.interactive) { /* flush stdout, shlout */
4441: fflush(shf[1]);
4442: fflush(shf[2]);
4443: }
4444: if ((flags&XEXEC))
4445: exit(rv); /* exit child */
4446: return rv;
4447: }
4448:
4449: /*
4450: * execute simple command
4451: */
4452:
4453: static int
4454: comexec(t, vp, ap, flags)
4455: struct op *t;
4456: register char **ap, **vp;
4457: int flags;
4458: {
4459: int i;
4460: int rv = 0;
4461: register char *cp;
4462: register char **lastp;
4463: register struct tbl *tp = NULL;
4464: register struct block *l;
4465: static struct op texec = {TEXEC};
4466: extern int c_exec(), c_builtin();
4467:
4468: if (flag[FXTRACE])
4469: echo(vp, ap);
4470:
4471: /* snag the last argument for $_ */
4472: if ((lastp = ap) && *lastp) {
4473: while (*++lastp)
4474: ;
4475: setstr(typeset("_",LOCAL,0),*--lastp);
4476: }
4477:
4478: /* create new variable/function block */
4479: l = (struct block*) alloc(sizeof(struct block), ATEMP);
4480: l->next = e.loc; e.loc = l;
4481: newblock();
4482:
4483: Doexec:
4484: if ((cp = *ap) == NULL)
4485: cp = ":";
4486: tp = findcom(cp, flag[FHASHALL]);
4487:
4488: switch (tp->type) {
4489: case CSHELL: /* shell built-in */
4490: while (tp->val.f == c_builtin) {
4491: if ((cp = *++ap) == NULL)
4492: break;
4493: tp = tsearch(&builtins, cp, hash(cp));
4494: if (tp == NULL)
4495: errorf("%s: not builtin\n", cp);
4496: }
4497: if (tp->val.f == c_exec) {
4498: if (*++ap == NULL) {
4499: e.savefd = NULL; /* don't restore redirection */
4500: break;
4501: }
4502: flags |= XEXEC;
4503: goto Doexec;
4504: }
4505: if ((tp->flag&TRACE))
4506: e.loc = l->next; /* no local block */
4507: i = (tp->flag&TRACE) ? 0 : LOCAL;
4508: while (*vp != NULL)
4509: (void) typeset(*vp++, i, 0);
4510: rv = (*tp->val.f)(ap);
4511: break;
4512:
4513: case CFUNC: /* function call */
4514: if (!(tp->flag&ISSET))
4515: errorf("%s: undefined function\n", cp);
4516: l->argv = ap;
4517: for (i = 0; *ap++ != NULL; i++)
4518: ;
4519: l->argc = i - 1;
4520: resetopts();
4521: while (*vp != NULL)
4522: (void) typeset(*vp++, LOCAL, 0);
4523: e.type = E_FUNC;
4524: if (setjmp(e.jbuf))
4525: rv = exstat; /* return # */
4526: else
4527: rv = execute(tp->val.t, 0);
4528: break;
4529:
4530: case CEXEC: /* executable command */
4531: if (!(tp->flag&ISSET)) {
4532: /*
4533: * mlj addition:
4534: *
4535: * If you specify a full path to a file
4536: * (or type the name of a file in .) which
4537: * doesn't have execute priv's, it used to
4538: * just say "not found". Kind of annoying,
4539: * particularly if you just wrote a script
4540: * but forgot to say chmod 755 script.
4541: *
4542: * This should probably be done in eaccess(),
4543: * but it works here (at least I haven't noticed
4544: * changing errno here breaking something
4545: * else).
4546: *
4547: * So, we assume that if the file exists, it
4548: * doesn't have execute privs; else, it really
4549: * is not found.
4550: */
4551: if (access(cp, 0) < 0)
4552: shellf("%s: not found\n", cp);
4553: else
4554: shellf("%s: cannot execute\n", cp);
4555: rv = 1;
4556: break;
4557: }
4558:
4559: /* set $_ to program's full path */
4560: setstr(typeset("_", LOCAL|EXPORT, 0), tp->val.s);
4561: while (*vp != NULL)
4562: (void) typeset(*vp++, LOCAL|EXPORT, 0);
4563:
4564: if ((flags&XEXEC)) {
4565: j_exit();
4566: if (flag[FMONITOR] || !(flags&XBGND))
4567: {
4568: #ifdef USE_SIGACT
4569: sigaction(SIGINT, &Sigact_dfl, NULL);
4570: sigaction(SIGQUIT, &Sigact_dfl, NULL);
4571: #else
4572: signal(SIGINT, SIG_DFL);
4573: signal(SIGQUIT, SIG_DFL);
4574: #endif
4575: }
4576: }
4577:
4578: /* to fork we set up a TEXEC node and call execute */
4579: texec.left = t; /* for tprint */
4580: texec.str = tp->val.s;
4581: texec.args = ap;
4582: rv = exchild(&texec, flags);
4583: break;
4584: }
4585: if (rv != 0 && flag[FERREXIT])
4586: leave(rv);
4587: return (exstat = rv);
4588: }
4589:
4590: #ifdef SHARPBANG
4591: static void
4592: scriptexec(tp, ap)
4593: register struct op *tp;
4594: register char **ap;
4595: {
4596: char line[LINE];
4597: register char *cp;
4598: register int fd, n;
4599: char *shell;
4600:
4601: shell = strval(global("EXECSHELL"));
4602: if (shell && *shell) {
4603: if ((shell = search(shell,path,1)) == NULL)
4604: shell = SHELL;
4605: } else {
4606: shell = SHELL;
4607: }
4608:
4609: *tp->args-- = tp->str;
4610: line[0] = '\0';
4611: if ((fd = open(tp->str,0)) >= 0) {
4612: if ((n = read(fd, line, LINE - 1)) > 0)
4613: line[n] = '\0';
4614: (void) close(fd);
4615: }
4616: if (line[0] == '#' && line[1] == '!') {
4617: cp = &line[2];
4618: while (*cp && (*cp == ' ' || *cp == '\t'))
4619: cp++;
4620: if (*cp && *cp != '\n') {
4621: *tp->args = cp;
4622: while (*cp && *cp != '\n' && *cp != ' ' && *cp != '\t')
4623: cp++;
4624: if (*cp && *cp != '\n') {
4625: *cp++ = '\0';
4626: while (*cp && (*cp == ' ' || *cp == '\t'))
4627: cp++;
4628: if (*cp && *cp != '\n') {
4629: tp->args--;
4630: tp->args[0] = tp->args[1];
4631: tp->args[1] = cp;
4632: while (*cp && *cp != '\n' &&
4633: *cp != ' ' && *cp != '\t')
4634: cp++;
4635: }
4636: }
4637: *cp = '\0';
4638: } else
4639: *tp->args = shell;
4640: } else
4641: *tp->args = shell;
4642:
4643: (void) execve(tp->args[0], tp->args, ap);
4644: errorf( "No shell\n" );
4645: }
4646: #endif /* SHARPBANG */
4647:
4648: int
4649: shcomexec(wp)
4650: register char **wp;
4651: {
4652: register struct tbl *tp;
4653:
4654: tp = tsearch(&builtins, *wp, hash(*wp));
4655: if (tp == NULL)
4656: errorf("%s: shcomexec botch\n", *wp);
4657: return (*tp->val.f)(wp);
4658: }
4659:
4660: /*
4661: * define function
4662: */
4663: int
4664: define(name, t)
4665: char *name;
4666: struct op *t;
4667: {
4668: register struct block *l;
4669: register struct tbl *tp;
4670:
4671: for (l = e.loc; l != NULL; l = l->next) {
4672: lastarea = &l->area;
4673: tp = tsearch(&l->funs, name, hash(name));
4674: if (tp != NULL && (tp->flag&DEFINED))
4675: break;
4676: if (l->next == NULL) {
4677: tp = tenter(&l->funs, name, hash(name));
4678: tp->flag = DEFINED|FUNCT;
4679: tp->type = CFUNC;
4680: }
4681: }
4682:
4683: if ((tp->flag&ALLOC))
4684: tfree(tp->val.t, lastarea);
4685: tp->flag &= ~(ISSET|ALLOC);
4686:
4687: if (t == NULL) { /* undefine */
4688: tdelete(tp);
4689: return 0;
4690: }
4691:
4692: tp->val.t = tcopy(t, lastarea);
4693: tp->flag |= (ISSET|ALLOC);
4694:
4695: return 0;
4696: }
4697:
4698: /*
4699: * add builtin
4700: */
4701: builtin(name, func)
4702: char *name;
4703: int (*func)();
4704: {
4705: register struct tbl *tp;
4706: int flag = DEFINED;
4707:
4708: if (*name == '=') { /* sets keyword variables */
4709: name++;
4710: flag |= TRACE; /* command does variable assignment */
4711: }
4712:
4713: tp = tenter(&builtins, name, hash(name));
4714: tp->flag |= flag;
4715: tp->type = CSHELL;
4716: tp->val.f = func;
4717: }
4718:
4719: /*
4720: * find command
4721: * either function, hashed command, or built-in (in that order)
4722: */
4723: struct tbl *
4724: findcom(name, insert)
4725: char *name;
4726: int insert; /* insert if not found */
4727: {
4728: register struct block *l = e.loc;
4729: unsigned int h = hash(name);
4730: register struct tbl *tp = NULL;
4731: static struct tbl temp;
4732:
4733: if (strchr(name, '/') != NULL) {
4734: tp = &temp;
4735: tp->type = CEXEC;
4736: tp->flag = 0; /* make ~ISSET */
4737: goto Search;
4738: }
4739: for (l = e.loc; l != NULL; l = l->next) {
4740: tp = tsearch(&l->funs, name, h);
4741: if (tp != NULL && (tp->flag&DEFINED))
4742: break;
4743: }
4744: if (tp == NULL) {
4745: tp = tsearch(&commands, name, h);
4746: if (tp != NULL && eaccess(tp->val.s,1) != 0) {
4747: if (tp->flag&ALLOC)
4748: afree(tp->val.s, commands.areap);
4749: tp->type = CEXEC;
4750: tp->flag = DEFINED;
4751: }
4752: }
4753: if (tp == NULL)
4754: tp = tsearch(&builtins, name, h);
4755: if (tp == NULL) {
4756: tp = tenter(&commands, name, h);
4757: tp->type = CEXEC;
4758: tp->flag = DEFINED;
4759: }
4760: Search:
4761: if (tp->type == CEXEC && !(tp->flag&ISSET)) {
4762: if (!insert) {
4763: tp = &temp;
4764: tp->type = CEXEC;
4765: tp->flag = 0; /* make ~ISSET */
4766: }
4767: name = search(name, path, 1);
4768: if (name != NULL) {
4769: tp->val.s = strsave(name,
4770: (tp == &temp) ? ATEMP : APERM);
4771: tp->flag |= ISSET|ALLOC;
4772: }
4773: }
4774: return tp;
4775: }
4776:
4777: /*
4778: * flush executable commands with relative paths
4779: */
4780: flushcom(all)
4781: int all; /* just relative or all */
4782: {
4783: register struct tbl *tp;
4784:
4785: for (twalk(&commands); (tp = tnext()) != NULL; )
4786: if ((tp->flag&ISSET) && (all || tp->val.s[0] != '/')) {
4787: if ((tp->flag&ALLOC))
4788: afree(tp->val.s, commands.areap);
4789: tp->flag = DEFINED; /* make ~ISSET */
4790: }
4791: }
4792:
4793: /*
4794: * search for command with PATH
4795: */
4796: char *
4797: search(name, path, mode)
4798: char *name, *path;
4799: int mode; /* 0: readable; 1: executable */
4800: {
4801: register int i;
4802: register char *sp, *tp;
4803: struct stat buf;
4804:
4805: if (strchr(name, '/'))
4806: return (eaccess(name, mode) == 0) ? name : NULL;
4807:
4808: sp = path;
4809: while (sp != NULL) {
4810: tp = line;
4811: for (; *sp != '\0'; tp++)
4812: if ((*tp = *sp++) == ':') {
4813: --sp;
4814: break;
4815: }
4816: if (tp != line)
4817: *tp++ = '/';
4818: for (i = 0; (*tp++ = name[i++]) != '\0';)
4819: ;
4820: i = eaccess(line, mode);
4821: if (i == 0 && (mode != 1 || (stat(line,&buf) == 0 &&
4822: (buf.st_mode & S_IFMT) == S_IFREG)))
4823: return line;
4824: /* what should we do about EACCES? */
4825: if (*sp++ == '\0')
4826: sp = NULL;
4827: }
4828: return NULL;
4829: }
4830:
4831: /*
4832: * set up redirection, saving old fd's in e.savefd
4833: */
4834: static void
4835: iosetup(iop)
4836: register struct ioword *iop;
4837: {
4838: register int u = -1;
4839: char *cp = iop->name;
4840: extern long lseek();
4841:
4842: if (iop->unit == 0 || iop->unit == 1 || iop->unit == 2)
4843: e.interactive = 0;
4844: #if 0
4845: if (e.savefd[iop->unit] != 0)
4846: errorf("file descriptor %d already redirected\n", iop->unit);
4847: #endif
4848: e.savefd[iop->unit] = savefd(iop->unit);
4849:
4850: if ((iop->flag&IOTYPE) != IOHERE)
4851: cp = evalonestr(cp, DOTILDE|DOGLOB);
4852:
4853: switch (iop->flag&IOTYPE) {
4854: case IOREAD:
4855: u = open(cp, 0);
4856: break;
4857:
4858: case IOCAT:
4859: if ((u = open(cp, 1)) >= 0) {
4860: (void) lseek(u, (long)0, 2);
4861: break;
4862: }
4863: /* FALLTHROUGH */
4864: case IOWRITE:
4865: u = creat(cp, 0666);
4866: break;
4867:
4868: case IORDWR:
4869: u = open(cp, 2);
4870: break;
4871:
4872: case IOHERE:
4873: u = herein(cp, iop->flag&IOEVAL);
4874: /* cp may have wrong name */
4875: break;
4876:
4877: case IODUP:
4878: if (*cp == '-')
4879: close(u = iop->unit);
4880: else
4881: if (digit(*cp))
4882: u = *cp - '0';
4883: else
4884: errorf("%s: illegal >& argument\n", cp);
4885: break;
4886: }
4887: if (u < 0)
4888: errorf("%s: cannot %s\n", cp,
4889: (iop->flag&IOTYPE) == IOWRITE ? "create" : "open");
4890: if (u != iop->unit) {
4891: (void) dup2(u, iop->unit);
4892: if (iop->flag != IODUP)
4893: close(u);
4894: }
4895:
4896: fopenshf(iop->unit);
4897: }
4898:
4899: /*
4900: * open here document temp file.
4901: * if unquoted here, expand here temp file into second temp file.
4902: */
4903: static int
4904: herein(hname, sub)
4905: char *hname;
4906: int sub;
4907: {
4908: int fd;
4909: FILE * volatile f = NULL;
4910:
4911: f = fopen(hname, "r");
4912: if (f == NULL)
4913: return -1;
4914: setvbuf(f, (char *)NULL, _IOFBF, BUFSIZ);
4915:
4916: if (sub) {
4917: char *cp;
4918: struct source *s;
4919: struct temp *h;
4920:
4921: newenv(E_ERRH);
4922: if (setjmp(e.jbuf)) {
4923: if (f != NULL)
4924: fclose(f);
4925: quitenv();
4926: return -1; /* todo: error()? */
4927: }
4928:
4929: /* set up yylex input from here file */
4930: s = pushs(SFILE);
4931: s->u.file = f;
4932: source = s;
4933: if (yylex(ONEWORD) != LWORD)
4934: errorf("exec:herein error\n");
4935: cp = evalstr(yylval.cp, 0);
4936:
4937: /* write expanded input to another temp file */
4938: h = maketemp(ATEMP);
4939: h->next = e.temps; e.temps = h;
4940: if (h == NULL)
4941: error();
4942: f = fopen(h->name, "w+");
4943: if (f == NULL)
4944: error();
4945: setvbuf(f, (char *)NULL, _IOFBF, BUFSIZ);
4946: fputs(cp, f);
4947: rewind(f);
4948:
4949: quitenv();
4950: }
4951: fd = dup(fileno(f));
4952: fclose(f);
4953: return fd;
4954: }
4955:
4956: static void
4957: echo(vp, ap)
4958: register char **vp, **ap;
4959: {
4960: shellf("+");
4961: while (*vp != NULL)
4962: shellf(" %s", *vp++);
4963: while (*ap != NULL)
4964: shellf(" %s", *ap++);
4965: shellf("\n");
4966: }
4967:
4968: /*
4969: * ksh special - the select command processing section
4970: * print the args in column form - assuming that we can
4971: */
4972: #define COLARGS 20
4973:
4974: static char *
4975: do_selectargs(ap, secondtime)
4976: register char **ap;
4977: char *secondtime;
4978: {
4979: char *rv;
4980:
4981: register int i, c;
4982: static char *replybase = NULL;
4983: static int replymax;
4984: static int repct;
4985: static int argct;
4986:
4987: /*
4988: * deal with REPLY variable
4989: */
4990: if (replybase == NULL) {
4991: replybase = alloc(64, APERM);
4992: replymax = 64;
4993: }
4994:
4995: if (!secondtime)
4996: argct = pr_menu(ap, 0);
4997:
4998: /*
4999: * and now ask for an answer
5000: */
5001: retry:
5002: shellf("%s", strval(global("PS3")));
5003: fflush(shlout);
5004: repct = 0;
5005: i = 0;
5006: rv = NULL;
5007: while ((c = selread()) != EOF) {
5008: if (c == -2) {
5009: shellf("Read error\n");
5010: rv = (char*)1;
5011: break;
5012: }
5013: if (repct+1 >= replymax)
5014: { replymax += 64;
5015: replybase = aresize(replybase, replymax, APERM);
5016: }
5017: if (i >= 0 && c >= '0' && c <= '9') {
5018: replybase[repct++] = c;
5019: if (i >= 0)
5020: i = i*10 + (c - '0');
5021: }
5022: else
5023: if (c == '\n') {
5024: if (repct == 0) {
5025: pr_menu(ap, 1);
5026: goto retry;
5027: }
5028:
5029: if (i >= 1 && i <= argct)
5030: rv = ap[i-1];
5031: else rv = "";
5032: break;
5033: } else
5034: i = -1, replybase[repct++] = c;
5035: }
5036: if (rv == NULL) {
5037: shellf("\n");
5038: rv = (char *)1;
5039: }
5040: replybase[repct] = '\0';
5041: setstr(global("REPLY"), replybase);
5042: return rv;
5043: }
5044:
5045: /*
5046: * print a select style menu
5047: */
5048: int
5049: pr_menu(ap, usestored)
5050: register char **ap;
5051: int usestored;
5052: {
5053: register char **pp;
5054: register i, j;
5055: register int ix;
5056: static int argct;
5057: static int nwidth;
5058: static int dwidth;
5059: static int ncols;
5060: static int nrows;
5061:
5062: if (usestored == 0) {
5063: /*
5064: * get dimensions of the list
5065: */
5066: for (argct = 0, nwidth = 0, pp = ap; *pp; argct++, pp++) {
5067: i = strlen(*pp);
5068: nwidth = (i > nwidth) ? i : nwidth;
5069: }
5070: /*
5071: * we will print an index of the form
5072: * %d)
5073: * in front of each entry
5074: * get the max width of this
5075: */
5076: for (i = argct, dwidth = 1; i >= 10; i /= 10)
5077: dwidth++;
5078:
5079: if (argct < COLARGS)
5080: ncols = 1, nrows = argct;
5081: else {
5082: ncols = x_cols/(nwidth+dwidth+3);
5083: nrows = argct/ncols;
5084: if (argct%ncols) nrows++;
5085: if (ncols > nrows)
5086: i = nrows, nrows = ncols, ncols = 1;
5087: }
5088:
5089: }
5090: /*
5091: * display the menu
5092: */
5093: for (i = 0; i < nrows; i++) {
5094: for (j = 0; j < ncols; j++) {
5095: ix = j*nrows + i;
5096: if (ix < argct)
5097: shellf("%*d) %-*.*s ", dwidth, ix+1, nwidth, nwidth, ap[ix]);
5098: }
5099: shellf("\n");
5100: }
5101: return argct;
5102: }
5103:
5104: static int
5105: selread()
5106: { char c;
5107: register int rv;
5108:
5109: switch (read(0, &c, 1)) {
5110: case 1:
5111: rv = c&0xff;
5112: break;
5113: case 0:
5114: rv = EOF;
5115: break;
5116: case -1:
5117: rv = -2;
5118: break;
5119: }
5120: return rv;
5121: }
5122: ./pdksh/sh/vi.c 644 653 1762 75042 5243743671 10640 0 ustar hlu /*
5123: * vi command editing
5124: * written by John Rochester (initially for nsh)
5125: * bludgeoned to fit PD ksh by Larry Bouzane and Eric Gisin
5126: * Further hacked (bugfixes and tweaks) by Mike Jetzer
5127: */
5128:
5129: #include "config.h"
5130: #ifdef VI
5131:
5132: #ifndef lint
5133: static char *RCSid = "$Id: vi.c,v 1.3 1992/08/10 12:03:31 sjg Exp $";
5134: #endif
5135:
5136: #include "stdh.h"
5137: #include <unistd.h>
5138: #include <signal.h>
5139: #include <fcntl.h>
5140: #include <ctype.h>
5141: #include <errno.h>
5142: #include <setjmp.h>
5143: #include "sh.h"
5144: #include "expand.h"
5145: #include "edit.h"
5146:
5147: #define CMDLEN 256
5148: #define Ctrl(c) (c&0x1f)
5149: extern int histN();
5150:
5151: static int nextstate ARGS((int ch));
5152: static int vi_insert ARGS((int ch));
5153: static int vi_cmd ARGS((int argcnt, char *cmd));
5154: static int domove ARGS((int argcnt, char *cmd, int sub));
5155: static int redo_insert ARGS((int count));
5156: static yank_range ARGS((int a, int b));
5157: static int bracktype ARGS((int ch));
5158: static edit_reset ARGS((char *buf, int len));
5159: static int putbuf ARGS((char *buf, int len, int repl));
5160: static stripblanks ARGS((void));
5161: static del_range ARGS((int a, int b));
5162: static int findch ARGS((int ch, int cnt, int forw, int incl));
5163: static int forwword ARGS((int argcnt));
5164: static int backword ARGS((int argcnt));
5165: static int endword ARGS((int argcnt));
5166: static int Forwword ARGS((int argcnt));
5167: static int Backword ARGS((int argcnt));
5168: static int Endword ARGS((int argcnt));
5169: static int grabhist ARGS((int save, int n));
5170: static int grabsearch ARGS((int save, int start, int fwd, char *pat));
5171: static redraw_line ARGS((void));
5172: static refresh ARGS((int leftside));
5173: static int outofwin ARGS((void));
5174: static rewindow ARGS((void));
5175: static int newcol ARGS((int ch, int col));
5176: static display ARGS((char *wb1, char *wb2, int leftside));
5177: static ed_mov_opt ARGS((int col, char *wb));
5178:
5179: #define C_ 0x1
5180: #define M_ 0x2
5181: #define E_ 0x4
5182: #define X_ 0x8
5183: #define U_ 0x10
5184: #define B_ 0x20
5185: #define O_ 0x40
5186: #define S_ 0x80
5187:
5188: #define isbad(c) (classify[c]&B_)
5189: #define iscmd(c) (classify[c]&(M_|E_|C_|U_))
5190: #define ismove(c) (classify[c]&M_)
5191: #define isextend(c) (classify[c]&E_)
5192: #define islong(c) (classify[c]&X_)
5193: #define ismeta(c) (classify[c]&O_)
5194: #define isundoable(c) (!(classify[c]&U_))
5195: #define issrch(c) (classify[c]&S_)
5196:
5197: char classify[128] = {
5198: B_, 0, 0, 0, 0, 0, O_, 0,
5199: #if 1 /* Mike B. changes */
5200: C_|M_, 0, O_, 0, O_, O_, O_, 0,
5201: #else
5202: C_, 0, O_, 0, O_, O_, O_, 0,
5203: #endif
5204: O_, 0, C_|U_, 0, 0, 0, 0, 0,
5205: 0, 0, O_, 0, 0, 0, 0, 0,
5206: #if 1 /* Mike B. changes */
5207: C_|M_, 0, 0, C_, M_, C_, 0, 0,
5208: #else
5209: C_, 0, 0, C_, M_, C_, 0, 0,
5210: #endif
5211: 0, 0, C_, C_, M_, C_, 0, C_|S_,
5212: M_, 0, 0, 0, 0, 0, 0, 0,
5213: 0, 0, 0, M_, 0, C_, 0, C_|S_,
5214: 0, C_, M_, C_, C_, M_, M_|X_, C_,
5215: 0, C_, 0, 0, 0, 0, C_, 0,
5216: C_, 0, C_, C_, M_|X_, 0, 0, M_,
5217: C_, C_, 0, 0, 0, 0, M_, C_,
5218: 0, C_, M_, E_, E_, M_, M_|X_, 0,
5219: M_, C_, C_, C_, M_, 0, C_, 0,
5220: C_, 0, C_, C_, M_|X_, C_|U_, 0, M_,
5221: C_, E_, 0, 0, 0, 0, C_, 0
5222: };
5223:
5224: #define MAXVICMD 3
5225: #define SRCHLEN 40
5226:
5227: #define INSERT 1
5228: #define REPLACE 2
5229:
5230: #define VNORMAL 0
5231: #define VARG1 1
5232: #define VEXTCMD 2
5233: #define VARG2 3
5234: #define VXCH 4
5235: #define VFAIL 5
5236: #define VCMD 6
5237: #define VREDO 7
5238: #define VLIT 8
5239: #define VSEARCH 9
5240: #define VREPLACE1CHAR 10
5241:
5242: struct edstate {
5243: int winleft;
5244: char *cbuf;
5245: int cbufsize;
5246: int linelen;
5247: int cursor;
5248: };
5249:
5250: static char undocbuf[CMDLEN];
5251:
5252: static struct edstate ebuf;
5253: static struct edstate undobuf = { 0, undocbuf, CMDLEN, 0, 0 };
5254:
5255: static struct edstate *es; /* current editor state */
5256: static struct edstate *undo;
5257:
5258: static char ibuf[CMDLEN]; /* input buffer */
5259: static int inslen; /* length of input buffer */
5260: static int srchlen; /* length of current search pattern */
5261: static char ybuf[CMDLEN]; /* yank buffer */
5262: static int yanklen; /* length of yank buffer */
5263: static int fsavecmd = ' '; /* last find command */
5264: static int fsavech; /* character to find */
5265: static char lastcmd[MAXVICMD]; /* last non-move command */
5266: static int lastac; /* argcnt for lastcmd */
5267: static int lastsearch = ' '; /* last search command */
5268: static char srchpat[SRCHLEN]; /* last search pattern */
5269: static int insert; /* non-zero in insert mode */
5270: static int hnum; /* position in history */
5271: static int hlast; /* 1 past last position in history */
5272: static int modified; /* buffer has been "modified" */
5273: static int state;
5274:
5275: #if 0
5276: vi_init()
5277: {
5278: es = (struct edstate *) malloc((unsigned) sizeof(struct edstate));
5279: fsavecmd = ' ';
5280: lastsearch = ' ';
5281: }
5282:
5283: edit_init()
5284: {
5285: wbuf[0] = malloc((unsigned) (x_cols - 3));
5286: wbuf[1] = malloc((unsigned) (x_cols - 3));
5287: }
5288: #endif
5289:
5290: void
5291: vi_reset(buf, len)
5292: char *buf;
5293: int len;
5294: {
5295: state = VNORMAL;
5296: hnum = hlast = histnum(-1) + 1;
5297: insert = INSERT;
5298: yanklen = 0;
5299: inslen = 0;
5300: lastcmd[0] = 'a';
5301: lastac = 1;
5302: modified = 1;
5303: edit_reset(buf, len);
5304: }
5305:
5306: int
5307: vi_hook(ch)
5308: int ch;
5309: {
5310: static char curcmd[MAXVICMD];
5311: static char locpat[SRCHLEN];
5312: static int cmdlen;
5313: static int argc1, argc2;
5314:
5315: if (state != VSEARCH && (ch == '\r' || ch == '\n')) {
5316: x_putc('\r');
5317: x_putc('\n');
5318: x_flush();
5319: return 1;
5320: }
5321:
5322: switch (state) {
5323:
5324: case VREPLACE1CHAR:
5325: curcmd[cmdlen++] = ch;
5326: state = VCMD;
5327: break;
5328:
5329: case VNORMAL:
5330: if (insert != 0) {
5331: if (ch == Ctrl('v')) {
5332: state = VLIT;
5333: ch = '^';
5334: }
5335: if (vi_insert(ch) != 0) {
5336: x_putc(Ctrl('g'));
5337: state = VNORMAL;
5338: } else {
5339: if (state == VLIT) {
5340: es->cursor--;
5341: refresh(0);
5342: } else
5343: refresh(insert != 0);
5344: }
5345: } else {
5346: cmdlen = 0;
5347: argc1 = 0;
5348: if (ch >= '1' && ch <= '9') {
5349: argc1 = ch - '0';
5350: state = VARG1;
5351: } else {
5352: curcmd[cmdlen++] = ch;
5353: state = nextstate(ch);
5354: if (state == VSEARCH) {
5355: save_cbuf();
5356: es->cursor = 0;
5357: es->linelen = 0;
5358: if (ch == '/') {
5359: if (putbuf("/", 1, 0) != 0) {
5360: return -1;
5361: }
5362: } else if (putbuf("?", 1, 0) != 0)
5363: return -1;
5364: refresh(0);
5365: }
5366: }
5367: }
5368: break;
5369:
5370: case VLIT:
5371: if (isbad(ch)) {
5372: del_range(es->cursor, es->cursor + 1);
5373: x_putc(Ctrl('g'));
5374: } else
5375: es->cbuf[es->cursor++] = ch;
5376: refresh(1);
5377: state = VNORMAL;
5378: break;
5379:
5380: case VARG1:
5381: if (isdigit(ch))
5382: argc1 = argc1 * 10 + ch - '0';
5383: else {
5384: curcmd[cmdlen++] = ch;
5385: state = nextstate(ch);
5386: }
5387: break;
5388:
5389: case VEXTCMD:
5390: argc2 = 0;
5391: if (ch >= '1' && ch <= '9') {
5392: argc2 = ch - '0';
5393: state = VARG2;
5394: return 0;
5395: } else {
5396: curcmd[cmdlen++] = ch;
5397: if (ch == curcmd[0])
5398: state = VCMD;
5399: else if (ismove(ch))
5400: state = nextstate(ch);
5401: else
5402: state = VFAIL;
5403: }
5404: break;
5405:
5406: case VARG2:
5407: if (isdigit(ch))
5408: argc2 = argc2 * 10 + ch - '0';
5409: else {
5410: if (argc1 == 0)
5411: argc1 = argc2;
5412: else
5413: argc1 *= argc2;
5414: curcmd[cmdlen++] = ch;
5415: if (ch == curcmd[0])
5416: state = VCMD;
5417: else if (ismove(ch))
5418: state = nextstate(ch);
5419: else
5420: state = VFAIL;
5421: }
5422: break;
5423:
5424: case VXCH:
5425: if (ch == Ctrl('['))
5426: state = VNORMAL;
5427: else {
5428: curcmd[cmdlen++] = ch;
5429: state = VCMD;
5430: }
5431: break;
5432:
5433: case VSEARCH:
5434: switch (ch) {
5435:
5436: /* case Ctrl('['): */
5437: case '\r':
5438: case '\n':
5439: locpat[srchlen] = '\0';
5440: (void) strcpy(srchpat, locpat);
5441: /* redraw_line(); */
5442: state = VCMD;
5443: break;
5444:
5445: case 0x7f:
5446: if (srchlen == 0) {
5447: restore_cbuf();
5448: state = VNORMAL;
5449: } else {
5450: srchlen--;
5451: if (locpat[srchlen] < ' ' ||
5452: locpat[srchlen] == 0x7f) {
5453: es->linelen--;
5454: }
5455: es->linelen--;
5456: es->cursor = es->linelen;
5457: refresh(0);
5458: return 0;
5459: }
5460: refresh(0);
5461: break;
5462:
5463: case Ctrl('u'):
5464: srchlen = 0;
5465: es->linelen = 1;
5466: es->cursor = 1;
5467: refresh(0);
5468: return 0;
5469:
5470: default:
5471: if (srchlen == SRCHLEN - 1)
5472: x_putc(Ctrl('g'));
5473: else {
5474: locpat[srchlen++] = ch;
5475: if (ch < ' ' || ch == 0x7f) {
5476: es->cbuf[es->linelen++] = '^';
5477: es->cbuf[es->linelen++] = ch ^ '@';
5478: } else
5479: es->cbuf[es->linelen++] = ch;
5480: es->cursor = es->linelen;
5481: refresh(0);
5482: }
5483: return 0;
5484: break;
5485: }
5486: break;
5487: }
5488: switch (state) {
5489:
5490: case VCMD:
5491: state = VNORMAL;
5492: switch (vi_cmd(argc1, curcmd)) {
5493: case -1:
5494: x_putc(Ctrl('g'));
5495: break;
5496: case 0:
5497: if (insert != 0)
5498: inslen = 0;
5499: refresh(insert != 0);
5500: break;
5501: case 1:
5502: refresh(0);
5503: x_putc('\r');
5504: x_putc('\n');
5505: x_flush();
5506: return 1;
5507: }
5508: break;
5509:
5510: case VREDO:
5511: state = VNORMAL;
5512: if (argc1 != 0)
5513: lastac = argc1;
5514: switch (vi_cmd(lastac, lastcmd) != 0) {
5515: case -1:
5516: x_putc(Ctrl('g'));
5517: refresh(0);
5518: break;
5519: case 0:
5520: if (insert != 0) {
5521: if (lastcmd[0] == 's' || lastcmd[0] == 'c' ||
5522: lastcmd[0] == 'C') {
5523: if (redo_insert(1) != 0)
5524: x_putc(Ctrl('g'));
5525: } else {
5526: if (redo_insert(lastac) != 0)
5527: x_putc(Ctrl('g'));
5528: }
5529: }
5530: refresh(0);
5531: break;
5532: case 1:
5533: refresh(0);
5534: x_putc('\r');
5535: x_putc('\n');
5536: x_flush();
5537: return 1;
5538: }
5539: break;
5540:
5541: case VFAIL:
5542: state = VNORMAL;
5543: x_putc(Ctrl('g'));
5544: break;
5545: }
5546: return 0;
5547: }
5548:
5549: static int
5550: nextstate(ch)
5551: int ch;
5552: {
5553: /*
5554: * probably could have been done more elegantly than
5555: * by creating a new state, but it works
5556: */
5557: if (ch == 'r')
5558: return VREPLACE1CHAR;
5559: else if (isextend(ch))
5560: return VEXTCMD;
5561: else if (issrch(ch))
5562: return VSEARCH;
5563: else if (islong(ch))
5564: return VXCH;
5565: else if (ch == '.')
5566: return VREDO;
5567: else if (iscmd(ch))
5568: return VCMD;
5569: else
5570: return VFAIL;
5571: }
5572:
5573: static int
5574: vi_insert(ch)
5575: int ch;
5576: {
5577: int tcursor;
5578:
5579: switch (ch) {
5580:
5581: case '\0':
5582: return -1;
5583:
5584: case Ctrl('['):
5585: if (lastcmd[0] == 's' || lastcmd[0] == 'c' ||
5586: lastcmd[0] == 'C')
5587: return redo_insert(0);
5588: else
5589: return redo_insert(lastac - 1);
5590:
5591: case 0x7f: /* delete */
5592: /* tmp fix */
5593: /* general fix is to get stty erase char and use that
5594: */
5595: case Ctrl('H'): /* delete */
5596: if (es->cursor != 0) {
5597: if (inslen > 0)
5598: inslen--;
5599: es->cursor--;
5600: if (insert != REPLACE) {
5601: memmove(&es->cbuf[es->cursor],
5602: &es->cbuf[es->cursor+1],
5603: es->linelen - es->cursor);
5604: es->linelen--;
5605: }
5606: }
5607: break;
5608:
5609: case Ctrl('U'):
5610: if (es->cursor != 0) {
5611: inslen = 0;
5612: memmove(es->cbuf, &es->cbuf[es->cursor],
5613: es->linelen - es->cursor);
5614: es->linelen -= es->cursor;
5615: es->cursor = 0;
5616: }
5617: break;
5618:
5619: case Ctrl('W'):
5620: if (es->cursor != 0) {
5621: tcursor = backword(1);
5622: memmove(&es->cbuf[tcursor], &es->cbuf[es->cursor],
5623: es->linelen - es->cursor);
5624: es->linelen -= es->cursor - tcursor;
5625: if (inslen < es->cursor - tcursor)
5626: inslen = 0;
5627: else
5628: inslen -= es->cursor - tcursor;
5629: es->cursor = tcursor;
5630: }
5631: break;
5632:
5633: default:
5634: if (es->linelen == es->cbufsize - 1)
5635: return -1;
5636: ibuf[inslen++] = ch;
5637: if (insert == INSERT) {
5638: memmove(&es->cbuf[es->cursor+1], &es->cbuf[es->cursor],
5639: es->linelen - es->cursor);
5640: es->linelen++;
5641: }
5642: es->cbuf[es->cursor++] = ch;
5643: if (insert == REPLACE && es->cursor > es->linelen)
5644: es->linelen++;
5645: }
5646: return 0;
5647: }
5648:
5649: static int
5650: vi_cmd(argcnt, cmd)
5651: int argcnt;
5652: char *cmd;
5653: {
5654: int ncursor;
5655: int cur, c1, c2, c3 = 0;
5656: struct edstate *t;
5657:
5658:
5659: if (argcnt == 0) {
5660: if (*cmd == 'G')
5661: argcnt = hlast + 1;
5662: else if (*cmd != '_')
5663: argcnt = 1;
5664: }
5665:
5666: if (ismove(*cmd)) {
5667: if ((cur = domove(argcnt, cmd, 0)) >= 0) {
5668: if (cur == es->linelen && cur != 0)
5669: cur--;
5670: es->cursor = cur;
5671: } else
5672: return -1;
5673: } else {
5674: if (isundoable(*cmd)) {
5675: undo->winleft = es->winleft;
5676: memmove(undo->cbuf, es->cbuf, es->linelen);
5677: undo->linelen = es->linelen;
5678: undo->cursor = es->cursor;
5679: lastac = argcnt;
5680: memmove(lastcmd, cmd, MAXVICMD);
5681: }
5682: switch (*cmd) {
5683:
5684: case Ctrl('r'):
5685: redraw_line();
5686: break;
5687:
5688: case 'a':
5689: modified = 1;
5690: if (es->linelen != 0)
5691: es->cursor++;
5692: insert = INSERT;
5693: break;
5694:
5695: case 'A':
5696: modified = 1;
5697: del_range(0, 0);
5698: es->cursor = es->linelen;
5699: insert = INSERT;
5700: break;
5701:
5702: case 'c':
5703: case 'd':
5704: case 'y':
5705: if (*cmd == cmd[1]) {
5706: c1 = 0;
5707: c2 = es->linelen;
5708: } else if (!ismove(cmd[1]))
5709: return -1;
5710: else {
5711: if ((ncursor = domove(argcnt, &cmd[1], 1)) < 0)
5712: return -1;
5713: if (*cmd == 'c' &&
5714: (cmd[1]=='w' || cmd[1]=='W') &&
5715: !isspace(es->cbuf[es->cursor])) {
5716: while (isspace(es->cbuf[--ncursor]))
5717: ;
5718: ncursor++;
5719: }
5720: if (ncursor > es->cursor) {
5721: c1 = es->cursor;
5722: c2 = ncursor;
5723: } else {
5724: c1 = ncursor;
5725: c2 = es->cursor;
5726: }
5727: }
5728: if (*cmd != 'c' && c1 != c2)
5729: yank_range(c1, c2);
5730: if (*cmd != 'y') {
5731: del_range(c1, c2);
5732: es->cursor = c1;
5733: }
5734: if (*cmd == 'c') {
5735: modified = 1;
5736: insert = INSERT;
5737: }
5738: break;
5739:
5740: case 'p':
5741: modified = 1;
5742: if (es->linelen != 0)
5743: es->cursor++;
5744: while (putbuf(ybuf, yanklen, 0) == 0 && --argcnt > 0)
5745: ;
5746: if (es->cursor != 0)
5747: es->cursor--;
5748: if (argcnt != 0)
5749: return -1;
5750: break;
5751:
5752: case 'P':
5753: modified = 1;
5754: while (putbuf(ybuf, yanklen, 0) == 0 && --argcnt > 0)
5755: ;
5756: if (es->cursor != 0)
5757: es->cursor--;
5758: if (argcnt != 0)
5759: return -1;
5760: break;
5761:
5762: case 'C':
5763: modified = 1;
5764: del_range(es->cursor, es->linelen);
5765: insert = INSERT;
5766: break;
5767:
5768: case 'D':
5769: yank_range(es->cursor, es->linelen);
5770: del_range(es->cursor, es->linelen);
5771: if (es->cursor != 0)
5772: es->cursor--;
5773: break;
5774:
5775: case 'G':
5776: if (grabhist(modified, argcnt - 1) < 0)
5777: return -1;
5778: else {
5779: modified = 0;
5780: hnum = argcnt - 1;
5781: }
5782: break;
5783:
5784: case 'i':
5785: modified = 1;
5786: insert = INSERT;
5787: break;
5788:
5789: case 'I':
5790: modified = 1;
5791: es->cursor = 0;
5792: insert = INSERT;
5793: break;
5794:
5795: case '+':
5796: case 'j':
5797: if (grabhist(modified, hnum + argcnt) < 0)
5798: return -1;
5799: else {
5800: modified = 0;
5801: hnum += argcnt;
5802: }
5803: break;
5804:
5805: case '-':
5806: case 'k':
5807: if (grabhist(modified, hnum - argcnt) < 0)
5808: return -1;
5809: else {
5810: modified = 0;
5811: hnum -= argcnt;
5812: }
5813: break;
5814:
5815: case 'r':
5816: if (es->linelen == 0)
5817: return -1;
5818: modified = 1;
5819: es->cbuf[es->cursor] = cmd[1];
5820: break;
5821:
5822: case 'R':
5823: modified = 1;
5824: insert = REPLACE;
5825: break;
5826:
5827: case 's':
5828: if (es->linelen == 0)
5829: return -1;
5830: modified = 1;
5831: if (es->cursor + argcnt > es->linelen)
5832: argcnt = es->linelen - es->cursor;
5833: del_range(es->cursor, es->cursor + argcnt);
5834: insert = INSERT;
5835: break;
5836:
5837: case 'x':
5838: if (es->linelen == 0)
5839: return -1;
5840: modified = 1;
5841: if (es->cursor + argcnt > es->linelen)
5842: argcnt = es->linelen - es->cursor;
5843: yank_range(es->cursor, es->cursor + argcnt);
5844: del_range(es->cursor, es->cursor + argcnt);
5845: break;
5846:
5847: case 'X':
5848: if (es->cursor > 0) {
5849: modified = 1;
5850: if (es->cursor < argcnt)
5851: argcnt = es->cursor;
5852: yank_range(es->cursor - argcnt, es->cursor);
5853: del_range(es->cursor - argcnt, es->cursor);
5854: es->cursor -= argcnt;
5855: } else
5856: return -1;
5857: break;
5858:
5859: case 'u':
5860: t = es;
5861: es = undo;
5862: undo = t;
5863: break;
5864:
5865: case '?':
5866: hnum = -1;
5867: /* ahhhhhh... */
5868: case '/':
5869: c3 = 1;
5870: srchlen = 0;
5871: lastsearch = *cmd;
5872: /* fall through */
5873: case 'n':
5874: case 'N':
5875: if (lastsearch == ' ')
5876: return -1;
5877: if (lastsearch == '?')
5878: c1 = 1;
5879: else
5880: c1 = 0;
5881: if (*cmd == 'N')
5882: c1 = !c1;
5883: if ((c2 = grabsearch(modified, hnum,
5884: c1, srchpat)) < 0) {
5885: if (c3) {
5886: restore_cbuf();
5887: refresh(0);
5888: }
5889: return -1;
5890: } else {
5891: modified = 0;
5892: hnum = c2;
5893: }
5894: break;
5895: case '_': {
5896: int space;
5897: char *p, *sp;
5898:
5899: (void) histnum(-1);
5900: p = *histpos();
5901: #define issp(c) (isspace((c)) || (c) == '\n')
5902: if (argcnt) {
5903: while (*p && issp(*p))
5904: p++;
5905: while (*p && --argcnt) {
5906: while (*p && !issp(*p))
5907: p++;
5908: while (*p && issp(*p))
5909: p++;
5910: }
5911: if (!*p)
5912: return -1;
5913: sp = p;
5914: } else {
5915: sp = p;
5916: space = 0;
5917: while (*p) {
5918: if (issp(*p))
5919: space = 1;
5920: else if (space) {
5921: space = 0;
5922: sp = p;
5923: }
5924: p++;
5925: }
5926: p = sp;
5927: }
5928: modified = 1;
5929: if (es->linelen != 0)
5930: es->cursor++;
5931: while (*p && !issp(*p)) {
5932: argcnt++;
5933: p++;
5934: }
5935: if (putbuf(" ", 1, 0) != 0)
5936: argcnt = -1;
5937: else if (putbuf(sp, argcnt, 0) != 0)
5938: argcnt = -1;
5939: if (argcnt < 0) {
5940: if (es->cursor != 0)
5941: es->cursor--;
5942: return -1;
5943: }
5944: insert = INSERT;
5945: }
5946: break;
5947:
5948: case '~': {
5949: char *p;
5950:
5951: if (es->linelen == 0)
5952: return -1;
5953: p = &es->cbuf[es->cursor];
5954: if (islower(*p)) {
5955: modified = 1;
5956: *p = toupper(*p);
5957: } else if (isupper(*p)) {
5958: modified = 1;
5959: *p = tolower(*p);
5960: }
5961: if (es->cursor < es->linelen - 1)
5962: es->cursor++;
5963: }
5964: break;
5965:
5966: case '#':
5967: es->cursor = 0;
5968: if (putbuf("#", 1, 0) != 0)
5969: return -1;
5970: return 1;
5971:
5972: case '*':
5973: case '=': {
5974: int rval = 0;
5975: int start, end;
5976: char *toglob = undo->cbuf;
5977: char **ap;
5978: char **ap2;
5979: char **globstr();
5980:
5981: if (isspace(es->cbuf[es->cursor]))
5982: return -1;
5983: start = es->cursor;
5984: while (start > -1 && !isspace(es->cbuf[start]))
5985: start--;
5986: start++;
5987: end = es->cursor;
5988: while (end < es->linelen && !isspace(es->cbuf[end]))
5989: end++;
5990: /* use undo buffer to build word up in */
5991: memmove(toglob, &es->cbuf[start], end-start);
5992: if (toglob[end-start-1] != '*') {
5993: toglob[end-start] = '*';
5994: toglob[end-start+1] = '\0';
5995: } else
5996: toglob[end-start] = '\0';
5997: ap = globstr(toglob);
5998: ap2 = ap;
5999: if (strcmp(ap[0], toglob) == 0 && ap[1] == (char *) 0)
6000: rval = -1;
6001: /* restore undo buffer that we used temporarily */
6002: memmove(toglob, es->cbuf, es->linelen);
6003: if (rval < 0)
6004: return rval;
6005: if (*cmd == '=') {
6006: fputc('\n', shlout);
6007: pr_menu(ap2, 0);
6008: fflush(shlout);
6009: if (es->linelen != 0)
6010: es->cursor++;
6011: redraw_line();
6012: insert = INSERT;
6013: state = VNORMAL;
6014: return 0;
6015: } else {
6016: del_range(start, end);
6017: es->cursor = start;
6018: while (1) {
6019: if (putbuf(*ap, strlen(*ap), 0) != 0) {
6020: rval = -1;
6021: break;
6022: }
6023: if (*++ap == (char *) 0)
6024: break;
6025: if (putbuf(" ", 1, 0) != 0) {
6026: rval = -1;
6027: break;
6028: }
6029:
6030: }
6031: #if 0
6032: /*
6033: * this is definitely wrong
6034: */
6035: for (ap = ap2; *ap; ap++)
6036: free(*ap);
6037:
6038: free(ap2);
6039: #endif
6040:
6041: modified = 1;
6042: insert = INSERT;
6043: refresh(0);
6044: }
6045: if (rval != 0)
6046: return rval;
6047: }
6048: break;
6049: }
6050: if (insert == 0 && es->cursor != 0 && es->cursor >= es->linelen)
6051: es->cursor--;
6052: }
6053: return 0;
6054: }
6055:
6056: static int
6057: domove(argcnt, cmd, sub)
6058: int argcnt;
6059: char *cmd;
6060: int sub;
6061: {
6062: int bcount, i = 0, t; /* = 0 kludge for gcc -W */
6063: int ncursor = 0; /* = 0 kludge for gcc -W */
6064:
6065: switch (*cmd) {
6066:
6067: case 'b':
6068: if (!sub && es->cursor == 0)
6069: return -1;
6070: ncursor = backword(argcnt);
6071: break;
6072:
6073: case 'B':
6074: if (!sub && es->cursor == 0)
6075: return -1;
6076: ncursor = Backword(argcnt);
6077: break;
6078:
6079: case 'e':
6080: if (!sub && es->cursor + 1 >= es->linelen)
6081: return -1;
6082: ncursor = endword(argcnt);
6083: if (sub)
6084: ncursor++;
6085: break;
6086:
6087: case 'E':
6088: if (!sub && es->cursor + 1 >= es->linelen)
6089: return -1;
6090: ncursor = Endword(argcnt);
6091: if (sub)
6092: ncursor++;
6093: break;
6094:
6095: case 'f':
6096: case 'F':
6097: case 't':
6098: case 'T':
6099: fsavecmd = *cmd;
6100: fsavech = cmd[1];
6101: /* drop through */
6102:
6103: case ',':
6104: case ';':
6105: if (fsavecmd == ' ')
6106: return -1;
6107: i = fsavecmd == 'f' || fsavecmd == 'F';
6108: t = fsavecmd > 'a';
6109: if (*cmd == ',')
6110: t = !t;
6111: if ((ncursor = findch(fsavech, argcnt, t, i)) < 0)
6112: return -1;
6113: if (sub && t)
6114: ncursor++;
6115: break;
6116:
6117: case 'h':
6118: /* tmp fix */
6119: case Ctrl('H'):
6120: if (!sub && es->cursor == 0)
6121: return -1;
6122: ncursor = es->cursor - argcnt;
6123: if (ncursor < 0)
6124: ncursor = 0;
6125: break;
6126:
6127: case ' ':
6128: case 'l':
6129: if (!sub && es->cursor + 1 >= es->linelen)
6130: return -1;
6131: if (es->linelen != 0) {
6132: ncursor = es->cursor + argcnt;
6133: if (ncursor >= es->linelen)
6134: ncursor = es->linelen - 1;
6135: }
6136: break;
6137:
6138: case 'w':
6139: if (!sub && es->cursor + 1 >= es->linelen)
6140: return -1;
6141: ncursor = forwword(argcnt);
6142: break;
6143:
6144: case 'W':
6145: if (!sub && es->cursor + 1 >= es->linelen)
6146: return -1;
6147: ncursor = Forwword(argcnt);
6148: break;
6149:
6150: case '0':
6151: ncursor = 0;
6152: break;
6153:
6154: case '^':
6155: ncursor = 0;
6156: while (ncursor < es->linelen - 1 && isspace(es->cbuf[ncursor]))
6157: ncursor++;
6158: break;
6159:
6160: case '$':
6161: if (es->linelen != 0)
6162: ncursor = es->linelen;
6163: else
6164: ncursor = 0;
6165: break;
6166:
6167: case '%':
6168: ncursor = es->cursor;
6169: while (ncursor < es->linelen &&
6170: (i = bracktype(es->cbuf[ncursor])) == 0)
6171: ncursor++;
6172: if (ncursor == es->linelen)
6173: return -1;
6174: bcount = 1;
6175: do {
6176: if (i > 0) {
6177: if (++ncursor >= es->linelen)
6178: return -1;
6179: } else {
6180: if (--ncursor < 0)
6181: return -1;
6182: }
6183: t = bracktype(es->cbuf[ncursor]);
6184: if (t == i)
6185: bcount++;
6186: else if (t == -i)
6187: bcount--;
6188: } while (bcount != 0);
6189: if (sub)
6190: ncursor++;
6191: break;
6192:
6193: default:
6194: return -1;
6195: }
6196: return ncursor;
6197: }
6198:
6199: static int
6200: redo_insert(count)
6201: int count;
6202: {
6203: while (count-- > 0)
6204: if (putbuf(ibuf, inslen, insert==REPLACE) != 0)
6205: return -1;
6206: if (es->cursor > 0)
6207: es->cursor--;
6208: insert = 0;
6209: return 0;
6210: }
6211:
6212: static
6213: yank_range(a, b)
6214: int a, b;
6215: {
6216: yanklen = b - a;
6217: if (yanklen != 0)
6218: memmove(ybuf, &es->cbuf[a], yanklen);
6219: }
6220:
6221: static int
6222: bracktype(ch)
6223: int ch;
6224: {
6225: switch (ch) {
6226:
6227: case '(':
6228: return 1;
6229:
6230: case '[':
6231: return 2;
6232:
6233: case '{':
6234: return 3;
6235:
6236: case ')':
6237: return -1;
6238:
6239: case ']':
6240: return -2;
6241:
6242: case '}':
6243: return -3;
6244:
6245: default:
6246: return 0;
6247: }
6248: }
6249:
6250: /*
6251: * Non user interface editor routines below here
6252: */
6253:
6254: static int cur_col; /* current column on line */
6255: static int pwidth; /* width of prompt */
6256: static int winwidth; /* width of window */
6257: /*static char *wbuf[2]; /* window buffers */
6258: static char wbuf[2][80-3]; /* window buffers */ /* TODO */
6259: static int win; /* window buffer in use */
6260: static char morec; /* more character at right of window */
6261: static int lastref; /* argument to last refresh() */
6262: static char holdbuf[CMDLEN]; /* place to hold last edit buffer */
6263: static int holdlen; /* length of holdbuf */
6264:
6265: save_cbuf()
6266: {
6267: memmove(holdbuf, es->cbuf, es->linelen);
6268: holdlen = es->linelen;
6269: holdbuf[holdlen] = '\0';
6270: }
6271:
6272: restore_cbuf()
6273: {
6274: es->cursor = 0;
6275: es->linelen = holdlen;
6276: memmove(es->cbuf, holdbuf, holdlen);
6277: }
6278:
6279: static
6280: edit_reset(buf, len)
6281: char *buf;
6282: int len;
6283: {
6284: es = &ebuf;
6285: es->cbuf = buf;
6286: es->cbufsize = len;
6287: undo = &undobuf;
6288: undo->cbufsize = len;
6289:
6290: es->linelen = undo->linelen = 0;
6291: es->cursor = undo->cursor = 0;
6292: es->winleft = undo->winleft = 0;
6293:
6294: cur_col = pwidth = promptlen(prompt);
6295: winwidth = x_cols - pwidth - 3;
6296: x_putc('\r');
6297: x_flush();
6298: pprompt(prompt);
6299: /* docap(CLR_EOL, 0); */
6300: win = 0;
6301: morec = ' ';
6302: lastref = 1;
6303: }
6304:
6305: static int
6306: putbuf(buf, len, repl)
6307: char *buf;
6308: int len;
6309: int repl;
6310: {
6311: if (len == 0)
6312: return 0;
6313: if (repl) {
6314: if (es->cursor + len >= es->cbufsize - 1)
6315: return -1;
6316: if (es->cursor + len > es->linelen)
6317: es->linelen = es->cursor + len;
6318: } else {
6319: if (es->linelen + len >= es->cbufsize - 1)
6320: return -1;
6321: memmove(&es->cbuf[es->cursor + len], &es->cbuf[es->cursor],
6322: es->linelen - es->cursor);
6323: es->linelen += len;
6324: }
6325: memmove(&es->cbuf[es->cursor], buf, len);
6326: es->cursor += len;
6327: return 0;
6328: }
6329:
6330: static
6331: stripblanks()
6332: {
6333: int ncursor;
6334:
6335: ncursor = 0;
6336: while (ncursor < es->linelen && isspace(es->cbuf[ncursor]))
6337: ncursor++;
6338: del_range(0, ncursor);
6339: }
6340:
6341: static
6342: del_range(a, b)
6343: int a, b;
6344: {
6345: if (es->linelen != b)
6346: memmove(&es->cbuf[a], &es->cbuf[b], es->linelen - b);
6347: es->linelen -= b - a;
6348: }
6349:
6350: static int
6351: findch(ch, cnt, forw, incl)
6352: int ch;
6353: int forw;
6354: int incl;
6355: {
6356: int ncursor;
6357:
6358: if (es->linelen == 0)
6359: return -1;
6360: ncursor = es->cursor;
6361: while (cnt--) {
6362: do {
6363: if (forw) {
6364: if (++ncursor == es->linelen)
6365: return -1;
6366: } else {
6367: if (--ncursor < 0)
6368: return -1;
6369: }
6370: } while (es->cbuf[ncursor] != ch);
6371: }
6372: if (!incl) {
6373: if (forw)
6374: ncursor--;
6375: else
6376: ncursor++;
6377: }
6378: return ncursor;
6379: }
6380:
6381: #define Isalnum(x) (isalnum(x) || (x == '_'))
6382: static int
6383: forwword(argcnt)
6384: int argcnt;
6385: {
6386: int ncursor;
6387:
6388: ncursor = es->cursor;
6389: while (ncursor < es->linelen && argcnt--) {
6390: if (Isalnum(es->cbuf[ncursor]))
6391: while (Isalnum(es->cbuf[ncursor]) &&
6392: ++ncursor < es->linelen)
6393: ;
6394: else if (!isspace(es->cbuf[ncursor]))
6395: while (!Isalnum(es->cbuf[ncursor]) &&
6396: !isspace(es->cbuf[ncursor]) &&
6397: ++ncursor < es->linelen)
6398: ;
6399: while (isspace(es->cbuf[ncursor]) && ++ncursor < es->linelen)
6400: ;
6401: }
6402: return ncursor;
6403: }
6404:
6405: static int
6406: backword(argcnt)
6407: int argcnt;
6408: {
6409: int ncursor;
6410:
6411: ncursor = es->cursor;
6412: while (ncursor > 0 && argcnt--) {
6413: while (--ncursor > 0 && isspace(es->cbuf[ncursor]))
6414: ;
6415: if (ncursor > 0) {
6416: if (Isalnum(es->cbuf[ncursor]))
6417: while (--ncursor >= 0 &&
6418: Isalnum(es->cbuf[ncursor]))
6419: ;
6420: else
6421: while (--ncursor >= 0 &&
6422: !Isalnum(es->cbuf[ncursor]) &&
6423: !isspace(es->cbuf[ncursor]))
6424: ;
6425: ncursor++;
6426: }
6427: }
6428: return ncursor;
6429: }
6430:
6431: static int
6432: endword(argcnt)
6433: int argcnt;
6434: {
6435: int ncursor;
6436:
6437: ncursor = es->cursor;
6438: while (ncursor < es->linelen && argcnt--) {
6439: while (++ncursor < es->linelen - 1 &&
6440: isspace(es->cbuf[ncursor]))
6441: ;
6442: if (ncursor < es->linelen - 1) {
6443: if (Isalnum(es->cbuf[ncursor]))
6444: while (++ncursor < es->linelen &&
6445: Isalnum(es->cbuf[ncursor]))
6446: ;
6447: else
6448: while (++ncursor < es->linelen &&
6449: !Isalnum(es->cbuf[ncursor]) &&
6450: !isspace(es->cbuf[ncursor]))
6451: ;
6452: ncursor--;
6453: }
6454: }
6455: return ncursor;
6456: }
6457:
6458: static int
6459: Forwword(argcnt)
6460: int argcnt;
6461: {
6462: int ncursor;
6463:
6464: ncursor = es->cursor;
6465: while (ncursor < es->linelen && argcnt--) {
6466: while (!isspace(es->cbuf[ncursor]) && ++ncursor < es->linelen)
6467: ;
6468: while (isspace(es->cbuf[ncursor]) && ++ncursor < es->linelen)
6469: ;
6470: }
6471: return ncursor;
6472: }
6473:
6474: static int
6475: Backword(argcnt)
6476: int argcnt;
6477: {
6478: int ncursor;
6479:
6480: ncursor = es->cursor;
6481: while (ncursor > 0 && argcnt--) {
6482: while (--ncursor >= 0 && isspace(es->cbuf[ncursor]))
6483: ;
6484: while (ncursor >= 0 && !isspace(es->cbuf[ncursor]))
6485: ncursor--;
6486: ncursor++;
6487: }
6488: return ncursor;
6489: }
6490:
6491: static int
6492: Endword(argcnt)
6493: int argcnt;
6494: {
6495: int ncursor;
6496:
6497: ncursor = es->cursor;
6498: while (ncursor < es->linelen - 1 && argcnt--) {
6499: while (++ncursor < es->linelen - 1 &&
6500: isspace(es->cbuf[ncursor]))
6501: ;
6502: if (ncursor < es->linelen - 1) {
6503: while (++ncursor < es->linelen &&
6504: !isspace(es->cbuf[ncursor]))
6505: ;
6506: ncursor--;
6507: }
6508: }
6509: return ncursor;
6510: }
6511:
6512: static int
6513: grabhist(save, n)
6514: int save;
6515: int n;
6516: {
6517: char *hptr;
6518:
6519: if (n < 0 || n > hlast)
6520: return -1;
6521: if (n == hlast) {
6522: restore_cbuf();
6523: return 0;
6524: }
6525: (void) histnum(n);
6526: if ((hptr = *histpos()) == NULL) {
6527: shellf("grabhist: bad history array\n");
6528: return -1;
6529: }
6530: if (save)
6531: save_cbuf();
6532: es->linelen = strlen(hptr);
6533: memmove(es->cbuf, hptr, es->linelen);
6534: es->cursor = 0;
6535: return 0;
6536: }
6537:
6538: static int
6539: grabsearch(save, start, fwd, pat)
6540: int save, start, fwd;
6541: char *pat;
6542: {
6543: char *hptr;
6544:
6545: if ((start == 0 && fwd == 0) || (start >= hlast - 1 && fwd == 1))
6546: return -1;
6547: if ((hptr = findhist(start, fwd, pat)) == NULL) {
6548: /* if (start != 0 && fwd && match(holdbuf, pat) >= 0) { */
6549: if (start != 0 && fwd && strcmp(holdbuf, pat) >= 0) {
6550: restore_cbuf();
6551: return 0;
6552: } else
6553: return -1;
6554: } else if (hptr == (char *)-1) {
6555: return -1;
6556: }
6557: if (save)
6558: save_cbuf();
6559: es->linelen = strlen(hptr);
6560: memmove(es->cbuf, hptr, es->linelen);
6561: es->cursor = 0;
6562: return histN();
6563: }
6564:
6565: static
6566: redraw_line()
6567: {
6568: x_putc('\r');
6569: x_putc('\n');
6570: x_flush();
6571: pprompt(prompt);
6572: cur_col = pwidth;
6573: morec = ' ';
6574: }
6575:
6576: static
6577: refresh(leftside)
6578: int leftside;
6579: {
6580: if (leftside < 0)
6581: leftside = lastref;
6582: else
6583: lastref = leftside;
6584: if (outofwin())
6585: rewindow();
6586: display(wbuf[1 - win], wbuf[win], leftside);
6587: win = 1 - win;
6588: }
6589:
6590: static int
6591: outofwin()
6592: {
6593: int cur, col;
6594:
6595: if (es->cursor < es->winleft)
6596: return 1;
6597: col = 0;
6598: cur = es->winleft;
6599: while (cur < es->cursor)
6600: col = newcol(es->cbuf[cur++], col);
6601: if (col > winwidth)
6602: return 1;
6603: return 0;
6604: }
6605:
6606: static
6607: rewindow()
6608: {
6609: register int tcur, tcol;
6610: int holdcur1, holdcol1;
6611: int holdcur2, holdcol2;
6612:
6613: holdcur1 = holdcur2 = tcur = 0;
6614: holdcol1 = holdcol2 = tcol = 0;
6615: while (tcur < es->cursor) {
6616: if (tcol - holdcol2 > winwidth / 2) {
6617: holdcur1 = holdcur2;
6618: holdcol1 = holdcol2;
6619: holdcur2 = tcur;
6620: holdcol2 = tcol;
6621: }
6622: tcol = newcol(es->cbuf[tcur++], tcol);
6623: }
6624: while (tcol - holdcol1 > winwidth / 2)
6625: holdcol1 = newcol(es->cbuf[holdcur1++], holdcol1);
6626: es->winleft = holdcur1;
6627: }
6628:
6629: static int
6630: newcol(ch, col)
6631: int ch, col;
6632: {
6633: if (ch < ' ' || ch == 0x7f) {
6634: if (ch == '\t')
6635: return (col | 7) + 1;
6636: else
6637: return col + 2;
6638: } else
6639: return col + 1;
6640: }
6641:
6642: static
6643: display(wb1, wb2, leftside)
6644: char *wb1, *wb2;
6645: int leftside;
6646: {
6647: char *twb1, *twb2, mc;
6648: int cur, col, cnt;
6649: int ncol = 0; /* set to 0 kludge for gcc -W */
6650: int moreright;
6651:
6652: col = 0;
6653: cur = es->winleft;
6654: moreright = 0;
6655: twb1 = wb1;
6656: while (col < winwidth && cur < es->linelen) {
6657: if (cur == es->cursor && leftside)
6658: ncol = col + pwidth;
6659: if (es->cbuf[cur] < ' ' || es->cbuf[cur] == 0x7f) {
6660: if (es->cbuf[cur] == '\t') {
6661: do {
6662: *twb1++ = ' ';
6663: } while (++col < winwidth && (col & 7) != 0);
6664: } else {
6665: *twb1++ = '^';
6666: if (++col < winwidth) {
6667: *twb1++ = es->cbuf[cur] ^ '@';
6668: col++;
6669: }
6670: }
6671: } else {
6672: *twb1++ = es->cbuf[cur];
6673: col++;
6674: }
6675: if (cur == es->cursor && !leftside)
6676: ncol = col + pwidth - 1;
6677: cur++;
6678: }
6679: if (cur == es->cursor)
6680: ncol = col + pwidth;
6681: if (col < winwidth) {
6682: while (col < winwidth) {
6683: *twb1++ = ' ';
6684: col++;
6685: }
6686: } else
6687: moreright++;
6688: *twb1 = ' ';
6689:
6690: col = pwidth;
6691: cnt = winwidth;
6692: twb1 = wb1;
6693: twb2 = wb2;
6694: while (cnt--) {
6695: if (*twb1 != *twb2) {
6696: if (cur_col != col)
6697: ed_mov_opt(col, wb1);
6698: x_putc(*twb1);
6699: cur_col++;
6700: }
6701: twb1++;
6702: twb2++;
6703: col++;
6704: }
6705: if (es->winleft > 0 && moreright)
6706: mc = '+';
6707: else if (es->winleft > 0)
6708: mc = '<';
6709: else if (moreright)
6710: mc = '>';
6711: else
6712: mc = ' ';
6713: if (mc != morec) {
6714: ed_mov_opt(x_cols - 2, wb1);
6715: x_putc(mc);
6716: cur_col++;
6717: morec = mc;
6718: }
6719: #if 0
6720: /*
6721: * Hack to fix teh ^r redraw problem, but it redraws way too much.
6722: * Probably unacceptable at low baudrates. Someone please fix this
6723: */
6724: else
6725: {
6726: ed_mov_opt(x_cols - 2, wb1);
6727: }
6728: #endif
6729: if (cur_col != ncol)
6730: ed_mov_opt(ncol, wb1);
6731: }
6732:
6733: static
6734: ed_mov_opt(col, wb)
6735: int col;
6736: char *wb;
6737: {
6738: if (col < cur_col) {
6739: if (col + 1 < cur_col - col) {
6740: x_putc('\r');
6741: x_flush();
6742: pprompt(prompt);
6743: cur_col = pwidth;
6744: while (cur_col++ < col)
6745: x_putc(*wb++);
6746: } else {
6747: while (cur_col-- > col)
6748: x_putc('\b');
6749: }
6750: } else {
6751: wb = &wb[cur_col - pwidth];
6752: while (cur_col++ < col)
6753: x_putc(*wb++);
6754: }
6755: cur_col = col;
6756: }
6757:
6758: int
6759: x_vi(buf, len)
6760: char *buf;
6761: size_t len;
6762: {
6763: int c;
6764:
6765: vi_reset(buf, len > CMDLEN ? CMDLEN : len);
6766: x_flush();
6767: while ((c = getch()) != -1) {
6768: if (vi_hook(c))
6769: break;
6770: x_flush();
6771: }
6772:
6773: if (c == -1)
6774: return -1;
6775:
6776: if (es->cbuf != buf) {
6777: memmove(buf, es->cbuf, es->linelen);
6778: buf[es->linelen] = '\n';
6779: } else
6780: es->cbuf[es->linelen] = '\n';
6781:
6782: es->linelen++;
6783: return es->linelen;
6784: }
6785:
6786: getch()
6787: {
6788: char buf;
6789:
6790: if (read(ttyfd, &buf, 1) != 1)
6791: return -1;
6792: if ((buf & 0x7f) == Ctrl('c')) {
6793: /*
6794: * If you hit ctrl-c, the buffer was left in a
6795: * strange state; the next command typed was
6796: * mucked up. Doing all of this is probably
6797: * overkill, but it works most of the time.
6798: */
6799: memset(es->cbuf, 0, CMDLEN);
6800: es->winleft = 0;
6801: es->cbufsize = 0;
6802: es->linelen = 0;
6803: es->cursor = 0;
6804:
6805: memset(undo->cbuf, 0, CMDLEN);
6806: undo->winleft = 0;
6807: undo->cbufsize = 0;
6808: undo->linelen = 0;
6809: undo->cursor = 0;
6810: x_mode(FALSE);
6811: trapsig(SIGINT);
6812: } else if ((buf & 0x7f) == Ctrl('d'))
6813: return -1;
6814: return buf & 0x7f;
6815: }
6816:
6817:
6818: char **globstr(stuff)
6819: char *stuff;
6820: {
6821: char *vecp[2];
6822:
6823: vecp[0] = stuff;
6824: vecp[1] = NULL;
6825: return(eval(vecp, DOBLANK|DOGLOB|DOTILDE));
6826: }
6827: #endif /* VI */
6828: ./pdksh/sh/c_ksh.c 644 653 1762 26467 5302765310 11306 0 ustar hlu /*
6829: * built-in Korn commands: c_*
6830: */
6831:
6832: #ifndef lint
6833: static char *RCSid = "$Id: c_ksh.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
6834: #endif
6835:
6836: #include "stdh.h"
6837: #include <errno.h>
6838: #include <setjmp.h>
6839: #include <unistd.h>
6840: #include "sh.h"
6841:
6842:
6843: int
6844: c_hash(wp)
6845: register char **wp;
6846: {
6847: register struct tbl *tp, **p;
6848:
6849: wp++;
6850: if (*wp == NULL) {
6851: for (p = tsort(&commands); (tp = *p++) != NULL; )
6852: if ((tp->flag&ISSET))
6853: printf("%s\n", tp->val.s);
6854: return 0;
6855: }
6856:
6857: if (strcmp(*wp, "-r") == 0)
6858: flushcom(1);
6859: while (*wp != NULL)
6860: findcom(*wp++, 1);
6861: return 0;
6862: }
6863:
6864: int
6865: c_cd(wp)
6866: register char **wp;
6867: {
6868: char path [PATH];
6869: char newd [PATH];
6870: register char *cp;
6871: register char *dir;
6872: register char *cdpath;
6873: register char *rep;
6874: register char *pwd = NULL, *oldpwd = NULL;
6875: register int done = 0;
6876: register int prt = 0;
6877: register struct tbl *v_pwd = NULL, *v_oldpwd = NULL;
6878:
6879: if ((dir = wp[1]) == NULL && (dir = strval(global("HOME"))) == NULL)
6880: errorf("no home directory");
6881:
6882: v_pwd = global("PWD");
6883: if ((pwd = strval(v_pwd)) == null) {
6884: setstr(v_pwd, getcwd(path, (size_t)PATH));
6885: pwd = strval(v_pwd);
6886: }
6887:
6888: if (wp[1] != NULL && (rep = wp[2]) != NULL) {
6889: /*
6890: * Two arg version: cd pat rep
6891: */
6892: if (strlen(pwd) - strlen(dir) + strlen(rep) >= PATH)
6893: errorf("substitution too long\n");
6894: cp = strstr(pwd, dir);
6895: if (cp == NULL)
6896: errorf("substitution failed\n");
6897: strncpy(path, pwd, cp - pwd); /* first part */
6898: strcpy(path + (cp - pwd), rep); /* replacement */
6899: strcat(path, cp + strlen(dir)); /* last part */
6900: dir = strsave(path, ATEMP);
6901: prt = 1;
6902: } else if (dir[0] == '-' && dir[1] == '\0') {
6903: /*
6904: * Change to previous dir: cd -
6905: */
6906: dir = strval(v_oldpwd = global("OLDPWD"));
6907: prt = 1;
6908: }
6909: if (dir[0] == '/' || (dir[0] == '.' && (dir[1] == '/' ||
6910: (dir[1] == '.' && dir[2] == '/')))) {
6911: /*
6912: * dir is an explicitly named path, so no CDPATH search
6913: */
6914: cleanpath(pwd, dir, newd);
6915: if (chdir(newd) < 0)
6916: errorf("%s: bad directory\n", newd);
6917: else if (prt)
6918: shellf("%s\n", newd);
6919: flushcom(0);
6920: } else {
6921: /*
6922: * search CDPATH for dir
6923: */
6924: cdpath = strval(global("CDPATH"));
6925: while ( !done && cdpath != NULL ) {
6926: cp = path;
6927: while (*cdpath && *cdpath != ':')
6928: *cp++ = *cdpath++;
6929: if (*cdpath == '\0')
6930: cdpath = NULL;
6931: else
6932: cdpath++;
6933: if (prt = (cp > path)) {
6934: *cp++ = '/';
6935: (void) strcpy( cp, dir );
6936: cp = path;
6937: } else
6938: cp = dir;
6939:
6940: cleanpath(pwd, cp, newd);
6941: if (chdir(newd) == 0)
6942: done = 1;
6943: } while (!done && cdpath != NULL);
6944: if (!done)
6945: errorf("%s: bad directory\n", dir);
6946: if (prt)
6947: shellf("%s\n", newd);
6948: flushcom(0);
6949: }
6950:
6951: /*
6952: * Keep track of OLDPWD and PWD
6953: */
6954: oldpwd = pwd;
6955: pwd = newd;
6956: if (!v_oldpwd)
6957: v_oldpwd = global("OLDPWD");
6958: if (oldpwd && *oldpwd)
6959: setstr(v_oldpwd, oldpwd);
6960: else
6961: unset(v_oldpwd);
6962: if (*pwd)
6963: setstr(v_pwd, pwd);
6964: else
6965: unset(v_pwd);
6966:
6967: return 0;
6968: }
6969:
6970: int
6971: c_print(wp)
6972: register char **wp;
6973: {
6974: int nl = 1;
6975: int expand = 1;
6976: FILE *f = stdout;
6977:
6978: for (wp++; *wp != NULL && **wp == '-'; wp++) {
6979: register char *s = *wp + 1;
6980: if (*s == '\0') {
6981: wp++;
6982: break;
6983: }
6984: while (*s) switch (*s++) {
6985: case 'n':
6986: nl = 0;
6987: break;
6988: case 'e':
6989: expand = 1;
6990: break;
6991: case 'r':
6992: expand = 0;
6993: break;
6994: case 'u':
6995: if (!digit(*s) || (f = shf[*s++-'0']) == NULL)
6996: errorf("bad -u argument\n");
6997: break;
6998: }
6999: }
7000:
7001: while (*wp != NULL) {
7002: register char *s = *wp;
7003: register int c;
7004: while ((c = *s++) != '\0')
7005: if (expand && c == '\\') {
7006: switch ((c = *s++)) {
7007: case 'b': c = '\b'; break;
7008: case 'c': nl = 0; continue; /* AT&T brain damage */
7009: case 'f': c = '\f'; break;
7010: case 'n': c = '\n'; break;
7011: case 'r': c = '\r'; break;
7012: case 't': c = '\t'; break;
7013: case 'v': c = 0x0B; break;
7014: case '0': case '1': case '2': case '3':
7015: case '4': case '5': case '6': case '7':
7016: c = c - '0';
7017: if (*s >= '0' && *s <= '7')
7018: c = 8*c + *s++ - '0';
7019: if (*s >= '0' && *s <= '7')
7020: c = 8*c + *s++ - '0';
7021: break;
7022: case '\\': break;
7023: default:
7024: putc('\\', f);
7025: }
7026: putc(c, f);
7027: } else
7028: putc(c, f);
7029: if (*++wp != NULL)
7030: putc(' ', f);
7031: }
7032: if (nl)
7033: putc('\n', f);
7034: return 0;
7035: }
7036:
7037: /* todo: handle case where id is both lexical and command */
7038: int
7039: c_whence(wp)
7040: register char **wp;
7041: {
7042: register struct tbl *tp;
7043: char *id;
7044: int vflag = 0;
7045: int ret = 0;
7046:
7047: for (wp++; (id = *wp) != NULL && *id == '-'; wp++)
7048: if (id[1] == 'v')
7049: vflag = 1;
7050:
7051: while ((id = *wp++) != NULL) {
7052: tp = tsearch(&lexicals, id, hash(id));
7053: if (tp == NULL)
7054: tp = findcom(id, 0);
7055: if (vflag)
7056: switch ((tp == NULL) ? CNONE : tp->type) {
7057: case CNONE:
7058: printf("%s is unknown\n", id);
7059: ret = 1;
7060: break;
7061: case CSHELL:
7062: printf("%s is a shell builtin\n", id);
7063: break;
7064: case CFUNC:
7065: printf("%s is a function\n", id);
7066: fptreef(stdout, "function %s %T\n", id, tp->val.t);
7067: break;
7068: case CEXEC:
7069: printf("%s is %s\n", id,
7070: (tp->flag&ISSET) ? tp->val.s : "unknown");
7071: if (!(tp->flag&ISSET))
7072: ret = 1;
7073: break;
7074: case CALIAS:
7075: printf("%s is the alias '%s'\n", id, tp->val.s);
7076: break;
7077: case CKEYWD:
7078: printf("%s is a shell keyword\n", id);
7079: break;
7080: default:
7081: printf("%s is *GOK*\n", id);
7082: break;
7083: }
7084: else
7085: switch ((tp == NULL) ? CNONE : tp->type) {
7086: case CNONE:
7087: printf("\n");
7088: ret = 1;
7089: break;
7090: case CSHELL:
7091: printf("builtin %s\n", id);
7092: break;
7093: case CFUNC:
7094: printf("%s\n", id);
7095: break;
7096: case CEXEC:
7097: printf("%s\n", (tp->flag&ISSET) ? tp->val.s : "");
7098: if (!(tp->flag&ISSET))
7099: ret = 1;
7100: break;
7101: case CALIAS:
7102: printf("%s\n", tp->val.s);
7103: break;
7104: case CKEYWD:
7105: printf("%s\n", id);
7106: break;
7107: default:
7108: printf("*GOK*\n");
7109: break;
7110: }
7111: }
7112: return ret;
7113: }
7114:
7115: /* typeset, export, and readonly */
7116: int
7117: c_typeset(wp)
7118: register char **wp;
7119: {
7120: register char *id;
7121: struct block *l = e.loc;
7122: register struct tbl *vp, **p;
7123: int fset = 0, fclr = 0;
7124: int thing = 0, func = 0, local = 0;
7125:
7126: switch (**wp) {
7127: case 'e': /* export */
7128: fset |= EXPORT;
7129: break;
7130: case 'r': /* readonly */
7131: fset |= RDONLY;
7132: break;
7133: case 't': /* typeset */
7134: local = 1;
7135: break;
7136: }
7137:
7138: for (wp++; (id = *wp) != NULL && (*id == '-' || *id == '+'); wp++) {
7139: int flag = 0;
7140: thing = *id;
7141: while (*++id != '\0') switch (*id) {
7142: case 'f':
7143: flag |= FUNCT;
7144: func = 1;
7145: break;
7146: case 'i':
7147: flag |= INTEGER;
7148: break;
7149: case 'r':
7150: flag |= RDONLY;
7151: break;
7152: case 'x':
7153: flag |= EXPORT;
7154: break;
7155: case 't':
7156: flag |= TRACE;
7157: break;
7158: default:
7159: errorf("unknown flag -%c\n", *id);
7160: }
7161: if (flag != 0) { /* + or - with options */
7162: if (thing == '-')
7163: fset |= flag;
7164: else
7165: fclr |= flag;
7166: thing = 0;
7167: }
7168: }
7169:
7170: /* list variables and attributes */
7171: if (*wp == NULL) {
7172: for (l = e.loc; l != NULL; l = l->next) {
7173: for (p = tsort((func==0) ? &l->vars : &l->funs);
7174: (vp = *p++) != NULL; )
7175: if ((vp->flag&ISSET))
7176: if (thing == 0 && fclr == 0 && fset == 0) {
7177: printf("typeset ");
7178: if ((vp->flag&INTEGER))
7179: printf("-i ");
7180: if ((vp->flag&EXPORT))
7181: printf("-x ");
7182: if ((vp->flag&RDONLY))
7183: printf("-r ");
7184: if ((vp->flag&TRACE))
7185: printf("-t ");
7186: printf("%s\n", vp->name);
7187: } else
7188: if (thing == '+' ||
7189: (fclr && (vp->flag&fclr) == fclr)) {
7190: printf("%s\n", vp->name);
7191: } else
7192: if (thing == '-' ||
7193: (fset && (vp->flag&fset) == fset)) {
7194: if (fset&FUNCT)
7195: printf("function %s\n", vp->name);
7196: else
7197: printf("%s=%s\n", vp->name, strval(vp));
7198: }
7199: }
7200: return (0);
7201: }
7202:
7203: if (local)
7204: fset |= LOCAL;
7205: for (; *wp != NULL; wp++)
7206: #if 0
7207: if (func) {
7208: } else
7209: #endif
7210: if (typeset(*wp, fset, fclr) == NULL)
7211: errorf("%s: not identifier\n", *wp);
7212: return 0;
7213: }
7214:
7215: int
7216: c_alias(wp)
7217: register char **wp;
7218: {
7219: register struct table *t = &lexicals;
7220: register struct tbl *ap, **p;
7221: int rv = 0;
7222:
7223: if (*++wp != NULL && strcmp(*wp, "-d") == 0) {
7224: t = &homedirs;
7225: wp++;
7226: }
7227:
7228: if (*wp == NULL)
7229: for (p = tsort(t); (ap = *p++) != NULL; )
7230: if (ap->type == CALIAS && (ap->flag&DEFINED))
7231: printf("%s='%s'\n", ap->name, ap->val.s);
7232:
7233: for (; *wp != NULL; wp++) {
7234: register char *id = *wp;
7235: register char *val = strchr(id, '=');
7236:
7237: if (val == NULL) {
7238: ap = tsearch(t, id, hash(id));
7239: if (ap != NULL && ap->type == CALIAS && (ap->flag&DEFINED))
7240: printf("%s='%s'\n", ap->name, ap->val.s);
7241: else
7242: rv = 1;
7243: } else {
7244: *val++ = '\0';
7245: ap = tenter(t, id, hash(id));
7246: if (ap->type == CKEYWD)
7247: errorf("cannot alias keyword\n");
7248: if ((ap->flag&ALLOC)) {
7249: afree((void*)ap->val.s, APERM);
7250: ap->flag &= ~(ALLOC|ISSET);
7251: }
7252: ap->type = CALIAS;
7253: ap->val.s = strsave(val, APERM);
7254: ap->flag |= DEFINED|ALLOC|ISSET;
7255: }
7256: }
7257: return rv;
7258: }
7259:
7260: int
7261: c_unalias(wp)
7262: register char **wp;
7263: {
7264: register struct table *t = &lexicals;
7265: register struct tbl *ap;
7266:
7267: if (*++wp != NULL && strcmp(*wp, "-d") == 0) {
7268: t = &homedirs;
7269: wp++;
7270: }
7271:
7272: for (; *wp != NULL; wp++) {
7273: ap = tsearch(t, *wp, hash(*wp));
7274: if (ap == NULL || ap->type != CALIAS)
7275: continue;
7276: if ((ap->flag&ALLOC))
7277: afree((void*)ap->val.s, APERM);
7278: ap->flag &= ~(DEFINED|ISSET|ALLOC);
7279: }
7280: return 0;
7281: }
7282:
7283: int
7284: c_let(wp)
7285: char **wp;
7286: {
7287: int rv = 1;
7288:
7289: for (wp++; *wp; wp++)
7290: rv = evaluate(*wp) == 0;
7291: return rv;
7292: }
7293:
7294: int
7295: c_jobs(wp)
7296: char **wp;
7297: {
7298: j_jobs();
7299: return 0;
7300: }
7301:
7302: #ifdef JOBS
7303: int
7304: c_fgbg(wp)
7305: register char **wp;
7306: {
7307: int bg = strcmp(*wp, "bg") == 0;
7308:
7309: if (!flag[FMONITOR])
7310: errorf("Job control not enabled\n");
7311: wp++;
7312: j_resume(j_lookup((*wp == NULL) ? "%" : *wp), bg);
7313: return 0;
7314: }
7315: #endif
7316:
7317: int
7318: c_kill(wp)
7319: register char **wp;
7320: {
7321: register char *cp;
7322: int sig = 15; /* SIGTERM */
7323: int rv = 0;
7324: int n;
7325: int gotsig = FALSE;
7326:
7327: if (*++wp == NULL)
7328: errorf("Usage: kill [-l] [-signal] {pid|job} ...\n");
7329: if (strcmp(*wp, "-l") == 0) {
7330: register struct trap *p = sigtraps;
7331: for (sig = 0; sig < SIGNALS; sig++, p++)
7332: if (p->signal)
7333: printf("%2d %8s %s\n", p->signal, p->name, p->mess);
7334: return 0;
7335: }
7336:
7337: for (; (cp = *wp) != NULL; wp++)
7338: if (*cp == '-' && gotsig == FALSE && *(wp+1) != NULL) {
7339: struct trap *p;
7340: gotsig = FALSE;
7341: if (digit(*(cp+1))) {
7342: if ((n = atoi(cp+1)) < SIGNALS) {
7343: sig = n;
7344: gotsig = TRUE;
7345: } else if (kill(n, sig) < 0) {
7346: shellf("%s: %s\n", cp, strerror(errno));
7347: rv++;
7348: }
7349: } else {
7350: p = gettrap(cp+1);
7351: if (p == NULL)
7352: errorf("bad signal %s\n", cp+1);
7353: sig = p->signal;
7354: gotsig = TRUE;
7355: }
7356: } else {
7357: gotsig = FALSE;
7358: if (digit(*cp) || (*cp == '-' && digit(*(cp+1)))) {
7359: if (kill(atoi(cp), sig) < 0) {
7360: shellf("%s: %s\n", cp, strerror(errno));
7361: rv++;
7362: }
7363: } else
7364: if (*cp == '%')
7365: j_kill(j_lookup(cp), sig);
7366: else
7367: errorf("invalid argument\n");
7368: }
7369: return rv;
7370: }
7371:
7372: #ifdef EMACS
7373: int
7374: c_bind(wp)
7375: register char **wp;
7376: {
7377: int macro = 0;
7378: register char *cp;
7379:
7380: for (wp++; (cp = *wp) != NULL && *cp == '-'; wp++)
7381: if (cp[1] == 'm')
7382: macro = 1;
7383:
7384: if (*wp == NULL) /* list all */
7385: x_bind((char*)NULL, (char*)NULL, 0);
7386:
7387: for (; *wp != NULL; wp++) {
7388: cp = strchr(*wp, '=');
7389: if (cp != NULL)
7390: *cp++ = 0;
7391: x_bind(*wp, cp, macro);
7392: }
7393:
7394: return 0;
7395: }
7396: #endif
7397:
7398: extern c_fc();
7399: extern c_getopts();
7400:
7401: const struct builtin kshbuiltins [] = {
7402: {"cd", c_cd},
7403: {"print", c_print},
7404: {"getopts", c_getopts},
7405: {"=typeset", c_typeset},
7406: {"=export", c_typeset},
7407: {"=readonly", c_typeset},
7408: {"whence", c_whence},
7409: {"=alias", c_alias},
7410: {"unalias", c_unalias},
7411: {"hash", c_hash},
7412: {"let", c_let},
7413: {"fc", c_fc},
7414: {"jobs", c_jobs},
7415: {"kill", c_kill},
7416: #ifdef JOBS
7417: {"fg", c_fgbg},
7418: {"bg", c_fgbg},
7419: #endif
7420: #ifdef EMACS
7421: {"bind", c_bind},
7422: #endif
7423: {NULL, NULL}
7424: };
7425:
7426: ./pdksh/sh/eval.c 644 653 1762 45522 5302633257 11143 0 ustar hlu /*
7427: * Expansion - quoting, separation, substitution, globbing
7428: */
7429:
7430: #ifndef lint
7431: static char *RCSid = "$Id: eval.c,v 1.4 1992/08/12 14:15:28 sjg Exp $";
7432: #endif
7433:
7434: #include "stdh.h"
7435: #include <errno.h>
7436: #include <setjmp.h>
7437: #include <unistd.h>
7438: #include <dirent.h>
7439: #include <pwd.h>
7440: #include "sh.h"
7441: #include "expand.h"
7442:
7443: /*
7444: * string expansion
7445: *
7446: * first pass: quoting, IFS separation, ${} and $() substitution.
7447: * second pass: filename expansion (*?[]~).
7448: */
7449:
7450: /* expansion generator state */
7451: typedef struct Expand {
7452: /* int type; */ /* see expand() */
7453: char *str; /* string */
7454: union {
7455: char **strv; /* string[] */
7456: FILE *file; /* file */
7457: } u; /* source */
7458: short split; /* split "$@"*/
7459: } Expand;
7460:
7461: #define XBASE 0 /* scanning original */
7462: #define XSUB 1 /* expanding ${} string */
7463: #define XARGSEP 2 /* ifs0 between "$@" */
7464: #define XARG 3 /* expanding $*, $@ */
7465: #define XCOM 4 /* expanding $() */
7466:
7467: static void expand ARGS((char *cp, XPtrV *wp, int f));
7468: static int varsub ARGS((Expand *xp, char *sp, int stype));
7469: static int comsub ARGS((Expand *xp, char *cp));
7470: static char * trimsub ARGS((char *str, char *pat, int how));
7471: static void glob ARGS((char *cp, XPtrV *wp));
7472: static void globit ARGS((char *ds, char *dp, char *sp, XPtrV *wp, int check));
7473: static char * debunk ARGS((char *cp));
7474: static char * tilde ARGS((char *acp));
7475: static char * homedir ARGS((char *name));
7476: #ifdef ALTERNATIONS
7477: static int alt_expand ARGS((char *, XPtrV *, int));
7478: static int alt_count ARGS((char *));
7479: static int alt_scan ARGS((char **, char **, char, int));
7480: #endif
7481:
7482: int ifs0 = ' '; /* todo: first char of $IFS */
7483:
7484: /* compile and expand word */
7485: char *
7486: substitute(cp, f)
7487: char const *cp;
7488: int f;
7489: {
7490: struct source *s, *sold;
7491:
7492: sold = source;
7493: s = pushs(SWSTR);
7494: s->str = (char *) cp;
7495: source = s;
7496: if (yylex(ONEWORD) != LWORD)
7497: errorf("eval:substitute error\n");
7498: source = sold;
7499: return evalstr(yylval.cp, f);
7500: }
7501:
7502: /*
7503: * expand arg-list
7504: */
7505: char **
7506: eval(ap, f)
7507: register char **ap;
7508: {
7509: XPtrV w;
7510:
7511: if (*ap == NULL)
7512: return ap;
7513: XPinit(w, 32);
7514: XPput(w, NULL); /* space for shell name */
7515: #ifdef SHARPBANG
7516: XPput(w, NULL); /* and space for one arg */
7517: #endif
7518: while (*ap != NULL)
7519: expand(*ap++, &w, f);
7520: XPput(w, NULL);
7521: #ifdef SHARPBANG
7522: return (char **) XPclose(w) + 2;
7523: #else
7524: return (char **) XPclose(w) + 1;
7525: #endif
7526: }
7527:
7528: /*
7529: * expand string
7530: */
7531: char *
7532: evalstr(cp, f)
7533: register char *cp;
7534: int f;
7535: {
7536: XPtrV w;
7537:
7538: XPinit(w, 1);
7539: expand(cp, &w, f);
7540: cp = (XPsize(w) == 0) ? "" : (char*) *XPptrv(w);
7541: XPfree(w);
7542: return cp;
7543: }
7544:
7545: /*
7546: * expand string - return only one component
7547: * used from iosetup to expand redirection files
7548: */
7549: char *
7550: evalonestr(cp, f)
7551: register char *cp;
7552: int f;
7553: {
7554: XPtrV w;
7555:
7556: XPinit(w, 1);
7557: expand(cp, &w, f);
7558: switch (XPsize(w)) {
7559: case 0:
7560: cp = "";
7561: break;
7562: case 1:
7563: cp = (char*) *XPptrv(w);
7564: break;
7565: default:
7566: cp = evalstr(cp, f&~DOGLOB);
7567: break;
7568: }
7569: XPfree(w);
7570: return cp;
7571: }
7572:
7573: /* for nested substitution: ${var:=$var2} */
7574: typedef struct SubType {
7575: short type; /* [=+-?%#] action after expanded word */
7576: short base; /* begin position of expanded word */
7577: char *name; /* name for ${var=word} */
7578: } SubType;
7579:
7580: static void
7581: expand(cp, wp, f)
7582: char *cp; /* input word */
7583: register XPtrV *wp; /* output words */
7584: int f; /* DO* flags */
7585: {
7586: register int c;
7587: register int type = XBASE; /* expansion type */
7588: register int quote = 0; /* quoted */
7589: int quotestack[11]; /* Keep this bigger than the subtype stack */
7590: register int *qst = quotestack + 11; /* This too, of course */
7591: XString ds; /* destination string */
7592: register char *dp, *sp; /* dest., source */
7593: int fdo, word, combase; /* second pass flags; have word */
7594: Expand x; /* expansion variables */
7595: SubType subtype [10]; /* substitution type stack */
7596: register SubType *st = subtype + 10;
7597: int newlines; /* For trailing newlines in COMSUB */
7598: int trimming = 0; /* flag if expanding ${var#pat} or ${var%pat} */
7599:
7600: if (cp == NULL)
7601: errorf("eval:expand(NULL)\n");
7602: if (flag[FNOGLOB])
7603: f &= ~ DOGLOB;
7604:
7605: #ifdef ALTERNATIONS
7606: #define NOALT BIT(8) /* internal to this file */
7607: /* prevent endless recursion */
7608: /* look for '{' in the input word */
7609: if (((f & NOALT) == 0) && (f & DOGLOB) &&
7610: (dp = strchr(cp, '{')) != NULL &&
7611: (dp[-1] == CHAR) &&
7612: !(dp[1] == CHAR && dp[2] == '}')) {
7613: if (alt_expand(cp, wp, f))
7614: return;
7615: }
7616: f &= ~NOALT;
7617: #endif
7618:
7619: Xinit(ds, dp, 128); /* init dest. string */
7620: type = XBASE;
7621: sp = cp;
7622: fdo = 0;
7623: word = !(f&DOBLANK);
7624:
7625: while (1) {
7626: Xcheck(ds, dp);
7627:
7628: switch (type) {
7629: case XBASE: /* original prefixed string */
7630: c = *sp++;
7631: switch (c) {
7632: case EOS:
7633: c = 0;
7634: break;
7635: case CHAR:
7636: c = *sp++;
7637: break;
7638: case QCHAR:
7639: quote |= 2; /* temporary quote */
7640: c = *sp++;
7641: break;
7642: case OQUOTE:
7643: word = quote = 1;
7644: continue;
7645: case CQUOTE:
7646: quote = 0;
7647: continue;
7648: case COMSUB:
7649: type = comsub(&x, sp);
7650: sp = strchr(sp, 0) + 1;
7651: combase = Xsavepos(ds, dp);
7652: newlines = 0;
7653: continue;
7654: case OSUBST: /* ${var{:}[=+-?]word} */
7655: cp = sp; /* variable */
7656: sp = strchr(sp, 0) + 1; /* skip variable */
7657: c = (*sp == CSUBST) ? 0 : *sp++;
7658: if ((c&0x7F) == '#' || (c&0x7F) == '%') {
7659: if (flag[FNOUNSET] &&
7660: strval(global(cp)) == null)
7661: errorf("%s: unset variable\n", cp);
7662: trimming++;
7663: type = XBASE;
7664: *--qst = quote;
7665: quote = 0;
7666: } else
7667: type = varsub(&x, cp, c);
7668: if (type == XBASE) { /* expand? */
7669: if (st == subtype)
7670: errorf("ridiculous ${} nesting\n");
7671: --st;
7672: st->type = c;
7673: st->base = Xsavepos(ds, dp);
7674: st->name = cp;
7675: } else
7676: sp = wdscan(sp, CSUBST); /* skip word */
7677: continue;
7678: case CSUBST: /* only get here if expanding word */
7679: *dp = 0;
7680: if (f&DOGLOB)
7681: f &= ~DOPAT;
7682: switch (st->type&0x7F) {
7683: case '#':
7684: case '%':
7685: *dp = 0;
7686: dp = Xrestpos(ds, dp, st->base);
7687: quote = *qst++;
7688: x.str = trimsub(strval(global(st->name)),
7689: dp, st->type);
7690: type = XSUB;
7691: trimming--;
7692: continue;
7693: case '=':
7694: #if 0
7695: if ((x.u.vp->flag&RDONLY))
7696: errorf("cannot set readonly %s\n", cp);
7697: #endif
7698: setstr(global(st->name), Xrestpos(ds, dp, st->base));
7699: break;
7700: case '?':
7701: if (dp == Xrestpos(ds, dp, st->base))
7702: errorf("missing value for %s\n", cp);
7703: else
7704: errorf("%s\n", Xrestpos(ds, dp, st->base));
7705: }
7706: st++;
7707: type = XBASE;
7708: continue;
7709: }
7710: break;
7711:
7712: case XSUB:
7713: if ((c = *x.str++) == 0) {
7714: type = XBASE;
7715: continue;
7716: }
7717: break;
7718:
7719: case XARGSEP:
7720: type = XARG;
7721: quote = 1;
7722: case XARG:
7723: if ((c = *x.str++) == 0) {
7724: if ((x.str = *x.u.strv++) == NULL) {
7725: type = XBASE;
7726: continue;
7727: } else if (quote && x.split) {
7728: /* terminate word for "$@" */
7729: type = XARGSEP;
7730: quote = 0;
7731: }
7732: c = ifs0;
7733: }
7734: break;
7735:
7736: case XCOM:
7737: if (newlines) { /* Spit out saved nl's */
7738: c = '\n';
7739: --newlines;
7740: } else {
7741: while ((c = getc(x.u.file)) == '\n')
7742: newlines++; /* Save newlines */
7743: if (newlines && c != EOF) {
7744: ungetc(c, x.u.file);
7745: c = '\n';
7746: --newlines;
7747: }
7748: }
7749: if (c == EOF) {
7750: cp = Xrestpos(ds, sp, combase);
7751: newlines = 0;
7752: fclose(x.u.file);
7753: if (x.split)
7754: waitlast();
7755: type = XBASE;
7756: continue;
7757: }
7758: break;
7759: }
7760:
7761: /* check for end of word or IFS separation */
7762: if (c == 0 || (!quote && (f&DOBLANK) && ctype(c, C_IFS))) {
7763: if (word) {
7764: *dp++ = 0;
7765: cp = Xclose(ds, dp);
7766: if (fdo&DOTILDE)
7767: cp = tilde(cp);
7768: if (fdo&DOGLOB)
7769: glob(cp, wp);
7770: else
7771: {XPput(*wp, cp);}
7772: fdo = word = 0;
7773: if (c != 0)
7774: Xinit(ds, dp, 128);
7775: } else
7776: ; /* ignore IFS */
7777: if (c == 0)
7778: return;
7779: } else {
7780: /* mark any special second pass chars */
7781: if (!quote)
7782: switch (c) {
7783: case '*':
7784: case '?':
7785: case '[':
7786: if (f&(DOPAT|DOGLOB) || trimming) {
7787: fdo |= (f&DOGLOB);
7788: *dp++ = MAGIC;
7789: }
7790: break;
7791: case NOT:
7792: if ((f&(DOPAT|DOGLOB) || trimming) &&
7793: dp[-1] == '[' && dp[-2] == MAGIC) {
7794: *dp++ = MAGIC;
7795: }
7796: break;
7797: case '~':
7798: if (((f&DOTILDE) &&
7799: dp == Xstring(ds, dp)) ||
7800: (!(f&DOBLANK) &&
7801: (dp[-1] == '=' || dp[-1] == ':'))) {
7802: fdo |= DOTILDE;
7803: *dp++ = MAGIC;
7804: }
7805: break;
7806: }
7807: else
7808: quote &= ~2; /* undo temporary */
7809:
7810: word = 1;
7811: *dp++ = c; /* save output char */
7812: }
7813: }
7814: }
7815:
7816: /*
7817: * Prepare to generate the string returned by ${} substitution.
7818: */
7819: static int
7820: varsub(xp, sp, stype)
7821: register Expand *xp;
7822: register char *sp;
7823: int stype;
7824: {
7825: register int c;
7826: int type;
7827:
7828: /* ${#var}, string length or argc */
7829: if (sp[0] == '#' && (c = sp[1]) != 0) {
7830: c = (c == '*' || c == '@') ? e.loc->argc :
7831: strlen(strval(global(sp+1)));
7832: xp->str = strsave(ulton((unsigned long)c, 10), ATEMP);
7833: return XSUB;
7834: }
7835:
7836: c = sp[0];
7837: if (c == '*' || c == '@') {
7838: if (e.loc->argc == 0) {
7839: xp->str = null;
7840: type = XSUB;
7841: } else {
7842: xp->u.strv = e.loc->argv + 1;
7843: xp->str = *xp->u.strv++;
7844: xp->split = c == '@'; /* $@ */
7845: type = XARG;
7846: }
7847: } else {
7848: if ((xp->str = strval(global(sp))) == NULL)
7849: xp->str = null;
7850: type = XSUB;
7851: }
7852:
7853: c = stype&0x7F;
7854: /* test the compiler's code generator */
7855: if (c == '%' || c == '#' ||
7856: (((stype&0x80) ? *xp->str=='\0' : xp->str==null) ? /* undef? */
7857: c == '=' || c == '-' || c == '?' : c == '+'))
7858: type = XBASE; /* expand word instead of variable value */
7859: if (type != XBASE && flag[FNOUNSET] && xp->str == null && c != '+')
7860: errorf("%s: unset variable\n", sp);
7861: return type;
7862: }
7863:
7864: /*
7865: * Run the command in $(...) and read its output.
7866: */
7867: static int
7868: comsub(xp, cp)
7869: register Expand *xp;
7870: char *cp;
7871: {
7872: Source *s;
7873: register struct op *t;
7874: FILE *fi;
7875:
7876: s = pushs(SSTRING);
7877: s->str = cp;
7878: t = compile(s);
7879:
7880: if (t != NULL && t->type == TCOM && /* $(<file) */
7881: *t->args == NULL && *t->vars == NULL && t->ioact != NULL) {
7882: register struct ioword *io = *t->ioact;
7883:
7884: if ((io->flag&IOTYPE) != IOREAD)
7885: errorf("funny $() command\n");
7886: fi = fopen(evalstr(io->name, DOTILDE), "r");
7887: if (fi != NULL)
7888: #ifdef linux
7889: setfileno (fi, savefd(fileno(fi)));
7890: #else
7891: fileno(fi) = savefd(fileno(fi));
7892: #endif
7893: xp->split = 0; /* no waitlast() */
7894: } else {
7895: int ofd1, pv[2];
7896: openpipe(pv);
7897: fi = fdopen(pv[0], "r");
7898: ofd1 = savefd(1);
7899: dup2(pv[1], 1);
7900: close(pv[1]);
7901: #if 0
7902: exchild(t, XXCOM|XPIPEO);
7903: #else
7904: execute(t, XFORK|XXCOM|XPIPEO);
7905: #endif
7906: dup2(ofd1, 1);
7907: close(ofd1);
7908: xp->split = 1; /* waitlast() */
7909: }
7910:
7911: if (fi == NULL)
7912: errorf("cannot open $() input\n");
7913: setvbuf(fi, (char *)NULL, _IOFBF, BUFSIZ);
7914: xp->u.file = fi;
7915: return XCOM;
7916: }
7917:
7918: /*
7919: * perform #pattern and %pattern substitution in ${}
7920: */
7921:
7922: static char *
7923: trimsub(str, pat, how)
7924: register char *str;
7925: char *pat;
7926: int how;
7927: {
7928: register char *end = strchr(str, 0);
7929: register char *p, c, *match;
7930:
7931: switch (how&0xff) { /* UCHAR_MAX maybe? */
7932: case '#': /* shortest at begin */
7933: for (p = str; p <= end; p++) {
7934: c = *p; *p = '\0';
7935: if (gmatch(str, pat)) {
7936: *p = c;
7937: return p;
7938: }
7939: *p = c;
7940: }
7941: break;
7942: case '#'|0x80: /* longest match at begin */
7943: for (p = end; p >= str; p--) {
7944: c = *p; *p = '\0';
7945: if (gmatch(str, pat)) {
7946: *p = c;
7947: return p;
7948: }
7949: *p = c;
7950: }
7951: break;
7952: case '%': /* shortest match at end */
7953: for (p = end; p >= str; p--) {
7954: if (gmatch(p, pat)) {
7955: c = *p; *p = '\0';
7956: match = strsave( str, APERM ); /* APERM? */
7957: *p = c;
7958: return match;
7959: }
7960: }
7961: break;
7962: case '%'|0x80: /* longest match at end */
7963: for (p = str; p <= end; p++) {
7964: if (gmatch(p, pat)) {
7965: c = *p; *p = '\0';
7966: match = strsave( str, ATEMP ); /* APERM? */
7967: *p = c;
7968: return match;
7969: }
7970: }
7971: break;
7972: }
7973:
7974: return str; /* no match, return string */
7975: }
7976:
7977: #ifdef ALTERNATIONS
7978: /* ([email protected])
7979: * I have decided to `fudge' alternations by picking up
7980: * the compiled command tree and working with it recursively
7981: * to generate the set of arguments
7982: * This has the advantage of making a single discrete change
7983: * to the code
7984: *
7985: * This routine calls itself recursively
7986: * a) scan forward looking for { building the output string
7987: * if none found then call expand - and exit
7988: * b) When { found, scan forward finding the end }
7989: * c) add first alternate to output string
7990: * d) scan for the end of the string copying into output
7991: * e) call routine with new string
7992: * Major complication is quoting
7993: */
7994: static int
7995: alt_expand(cp, wp, f)
7996: char *cp; /* input word */
7997: register XPtrV *wp; /* output words */
7998: int f; /* DO* flags */
7999: {
8000: char *srcp = cp;
8001: char *left; /* destination string of left hand side */
8002: char *leftend; /* end of left hand side */
8003: char *alt; /* start of alterate section */
8004: char *altend; /* end of alternate section */
8005: char *ap; /* working pointer */
8006: char *right; /* right hand side */
8007: char *rp; /* used to copy right-hand side */
8008: int maxlen; /* max string length */
8009:
8010: leftend = left = alloc((maxlen = alt_count(cp)), ATEMP);
8011:
8012: if (alt_scan(&srcp, &leftend, '{', 0) == 0) {
8013: expand(cp, wp, f&NOALT);
8014: afree(left, ATEMP);
8015: return;
8016: }
8017:
8018: /*
8019: * we have a alternation section
8020: */
8021: alt = altend = alloc(maxlen, ATEMP);
8022:
8023: srcp += 2;
8024: if (alt_scan(&srcp, &altend, '}', 1) == 0) {
8025: afree(left, ATEMP);
8026: afree(alt, ATEMP);
8027: errorf("Missing }.\n");
8028: }
8029: *altend++ = CHAR;
8030: *altend++ = ',';
8031: *altend = EOS;
8032: /*
8033: * finally we may have a right-hand side
8034: */
8035: right = srcp + 2;
8036:
8037: /*
8038: * glue the bits together making a new string
8039: */
8040: for (srcp = alt; *srcp != EOS;) {
8041:
8042: ap = leftend;
8043:
8044: if (alt_scan(&srcp, &ap, ',', -1) == 0) {
8045: afree(left, ATEMP);
8046: afree(alt, ATEMP);
8047: errorf("Missing comma.\n");
8048: }
8049:
8050: srcp += 2;
8051:
8052: rp = right;
8053: (void) alt_scan(&rp, &ap, EOS, 0);
8054:
8055: alt_expand(left, wp, f);
8056: }
8057: afree(left, ATEMP);
8058: afree(alt, ATEMP);
8059: }
8060:
8061: /*
8062: * see how much space we need to hold this tree
8063: */
8064: static int
8065: alt_count(cp)
8066: register char *cp;
8067: {
8068: register int sum = 0;
8069: register char *sp;
8070:
8071: while (*cp != EOS) {
8072: switch(*cp) {
8073: case CHAR:
8074: case QCHAR:
8075: sum += 2;
8076: cp += 2;
8077: break;
8078: case OQUOTE:
8079: case CQUOTE:
8080: case CSUBST:
8081: sum++;
8082: cp++;
8083: break;
8084: case COMSUB:
8085: case OSUBST:
8086: sp = cp;
8087: cp = strchr(sp, 0) + 1;
8088: sum += cp - sp;
8089: break;
8090: }
8091: }
8092: return ++sum;
8093: }
8094:
8095: #ifdef __STDC__
8096: static int
8097: alt_scan(
8098: char **cpp, /* address of source pointer */
8099: char **dpp, /* address of destination pointer */
8100: char endc, /* last character we are looking for */
8101: int bal)
8102: #else
8103: static int
8104: alt_scan(cpp, dpp, endc, bal)
8105: char **cpp; /* address of source pointer */
8106: char **dpp; /* address of destination pointer */
8107: char endc; /* last character we are looking for */
8108: int bal;
8109: #endif
8110: {
8111: register char *cp, *dp;
8112: int quote = 0;
8113: int balance = 0;
8114: int usebalance = 0;
8115:
8116: if (bal)
8117: { usebalance = 1;
8118: balance = (bal < 1) ? 0 : 1;
8119: }
8120:
8121: cp = *cpp;
8122: dp = *dpp;
8123:
8124: while (*cp != EOS) {
8125: switch (*cp) {
8126: case CHAR:
8127: if (quote == 1) {
8128: if (cp[1] == ']')
8129: quote = 0;
8130: }
8131: else
8132: if (quote == 0) {
8133: if (cp[1] == '[')
8134: quote = 1;
8135: else {
8136: if (usebalance) {
8137: if (cp[1] == '{')
8138: balance++;
8139: if (cp[1] == '}')
8140: balance--;
8141: }
8142: if (cp[1] == endc && balance == 0) {
8143: *dp = EOS;
8144: *dpp = dp;
8145: *cpp = cp;
8146: return 1;
8147: }
8148: }
8149: }
8150: case QCHAR:
8151: *dp++ = *cp++;
8152: copy:
8153: *dp++ = *cp++;
8154: break;
8155:
8156: case OQUOTE:
8157: quote = 1;
8158: goto copy;
8159:
8160: case CQUOTE:
8161: quote = 0;
8162: goto copy;
8163:
8164: case COMSUB:
8165: case OSUBST:
8166: while (*dp++ = *cp++);
8167: break;
8168: }
8169: }
8170: *dp = EOS;
8171: *cpp = cp;
8172: *dpp = dp;
8173: return 0;
8174: }
8175: #endif /* ALTERNATIONS */
8176:
8177: /*
8178: * glob
8179: * Name derived from V6's /etc/glob, the program that expanded filenames.
8180: */
8181:
8182: static char *debunk();
8183:
8184: static void
8185: glob(cp, wp)
8186: char *cp;
8187: register XPtrV *wp;
8188: {
8189: char path [PATH];
8190: register char *sp = cp;
8191: int oldsize;
8192:
8193: oldsize = XPsize(*wp);
8194: globit(path, path, sp, wp, 0);
8195:
8196: if (XPsize(*wp) == oldsize)
8197: {XPput(*wp, debunk(cp));}
8198: else
8199: qsortp(XPptrv(*wp) + oldsize, (size_t)(XPsize(*wp) - oldsize), xstrcmp);
8200: }
8201:
8202: static void
8203: globit(ds, dp, sp, wp, check)
8204: char *ds; /* dest path */
8205: char *dp; /* dest end */
8206: char *sp; /* source path */
8207: register XPtrV *wp; /* output list */
8208: int check; /* check dest existence */
8209: {
8210: register char *np; /* next source component */
8211: register char *tsp, *tdp;
8212:
8213: if (sp == NULL) { /* end of source path */
8214: if (check && eaccess(ds, 0) < 0)
8215: return;
8216: XPput(*wp, strsave(ds, ATEMP));
8217: return;
8218: }
8219:
8220: if (dp > ds)
8221: *dp++ = '/';
8222: while (*sp == '/')
8223: *dp++ = *sp++;
8224: np = strchr(sp, '/');
8225: if (np != NULL)
8226: *np++ = 0;
8227:
8228: *dp = 0;
8229: if (strchr(sp, MAGIC) == NULL) { /* contains no pattern? */
8230: tdp = dp; tsp = sp;
8231: while ((*tdp++ = *tsp++) != 0)
8232: ;
8233: --tdp;
8234: globit(ds, tdp, np, wp, check);
8235: } else {
8236: DIR *dirp;
8237: struct dirent *d;
8238:
8239: /* ToDo:
8240: * should not attemp to open() special files: /dev/ttyd0/*
8241: * opendir should do this check, but Doug Gwyn's does not.
8242: */
8243: dirp = opendir((*ds == 0) ? "." : ds);
8244: if (dirp == NULL)
8245: goto Nodir;
8246: while ((d = readdir(dirp)) != NULL) {
8247: tsp = d->d_name;
8248: if (tsp[0] == '.' &&
8249: (tsp[1] == 0 || (tsp[1] == '.' && tsp[2] == 0)))
8250: continue; /* always ignore . and .. */
8251: if ((*tsp == '.' && *sp != '.') || !gmatch(tsp, sp))
8252: continue;
8253:
8254: tdp = dp;
8255: while ((*tdp++ = *tsp++) != 0)
8256: ;
8257: --tdp;
8258: globit(ds, tdp, np, wp, np != NULL);
8259: }
8260: closedir(dirp);
8261: Nodir:;
8262: }
8263:
8264: if (np != NULL)
8265: *--np = '/';
8266: }
8267:
8268: /* remove MAGIC from string */
8269: static char *
8270: debunk(cp)
8271: char *cp;
8272: {
8273: register char *dp, *sp;
8274:
8275: for (dp = sp = cp; *sp != 0; sp++)
8276: if (*sp != MAGIC)
8277: *dp++ = *sp;
8278: *dp = 0;
8279: return cp;
8280: }
8281:
8282: /*
8283: * tilde expansion
8284: *
8285: * based on a version by Arnold Robbins
8286: */
8287:
8288: static char *homedir();
8289:
8290: static char *
8291: tilde(acp)
8292: char *acp;
8293: {
8294: register int c;
8295: char path [PATH+1];
8296: register char *cp = acp, *wp = path, *dp;
8297: char userid [16+1];
8298:
8299: Again:
8300: while (1) {
8301: if ((c = *cp++) == 0) {
8302: *wp = 0;
8303: afree((void*)acp, ATEMP);
8304: return strsave(path, ATEMP);
8305: } else if (c == MAGIC && *cp == '~')
8306: break;
8307: else
8308: *wp++ = c;
8309: }
8310:
8311: dp = NULL; /* no output substitution */
8312: if (cp[1] == 0 || cp[1] == '/' || cp[1] == ':') /* ~ or ~/ */
8313: dp = strval(global("HOME")), cp += 1;
8314: else if (cp[1] == '+' && (cp[2] == '/' || cp[2] == ':' || cp[2] == 0))
8315: dp = strval(global("PWD")), cp += 2;
8316: else if (cp[1] == '-' && (cp[2] == '/' || cp[2] == ':' || cp[2] == 0))
8317: dp = strval(global("OLDPWD")), cp += 2;
8318: else if (letter(cp[1])) {
8319: char *save = cp;
8320: for (dp = userid, cp++; letnum(*cp) && dp < userid+16; )
8321: *dp++ = *cp++;
8322: *dp = 0;
8323: dp = homedir(userid);
8324: if (dp == NULL)
8325: cp = save;
8326: }
8327: /* substitute */
8328: if (dp != NULL)
8329: while (*dp != 0)
8330: *wp++ = *dp++;
8331: goto Again;
8332: }
8333:
8334: /*
8335: * map userid to user's home directory.
8336: * todo: implement a cache with the "homedirs" table.
8337: * note that 4.3's getpw adds more than 6K to the shell,
8338: * and the YP version probably adds much more.
8339: * we might consider our own version of getpwnam() to keep the size down.
8340: */
8341:
8342: static char *
8343: homedir(name)
8344: char *name;
8345: {
8346: register struct tbl *ap;
8347: register struct passwd *pw;
8348: extern struct passwd *getpwnam();
8349:
8350: ap = tsearch(&homedirs, name, hash(name));
8351: if ((ap != NULL && (ap->flag&ISSET)))
8352: return ap->val.s;
8353: pw = getpwnam(name);
8354: if (pw == NULL)
8355: return NULL;
8356: return pw->pw_dir;
8357: }
8358: ./pdksh/sh/lex.c 644 653 1762 30712 5243743661 11004 0 ustar hlu /*
8359: * lexical analysis and source input
8360: */
8361:
8362: #ifndef lint
8363: static char *RCSid = "$Id: lex.c,v 1.3 1992/08/10 12:02:55 sjg Exp $";
8364: #endif
8365:
8366: #include "stdh.h"
8367: #include <errno.h>
8368: #include <setjmp.h>
8369: #include <unistd.h>
8370: #include <assert.h>
8371: #include "sh.h"
8372: #include "expand.h"
8373:
8374: int ttyfd = -1; /* tty fd for edit and jobs */
8375: #ifdef EASY_HISTORY
8376: char *history[HISTORY]; /* saved commands */
8377: char **histptr = history - 1; /* last history item */
8378: int histpush; /* number of pushed fc commands */
8379: #endif
8380:
8381: /* we set s->str to NULLSTR instead of "", so that ungetsc() works */
8382: static char nullstr [] = {0, 0};
8383: #define NULLSTR (nullstr + 1)
8384:
8385: static int expanding_alias;
8386: static int alias;
8387:
8388: static void readhere ARGS((struct ioword *iop));
8389: static int getsc_ ARGS((void));
8390:
8391: /* optimized getsc_() */
8392: #define getsc() ((*source->str != 0) ? *source->str++ : getsc_())
8393: #define ungetsc() (source->str--)
8394:
8395: /*
8396: * Lexical analyzer
8397: *
8398: * tokens are not regular expressions, they are LL(1).
8399: * for example, "${var:-${PWD}}", and "$(size $(whence ksh))".
8400: * hence the state stack.
8401: */
8402:
8403: int
8404: yylex(cf)
8405: int cf;
8406: {
8407: register int c, state;
8408: char states [64], *statep = states;
8409: XString ws; /* expandable output word */
8410: register char *wp; /* output word pointer */
8411: register char *sp, *dp;
8412: int istate;
8413: int c2;
8414: static int rec_alias_cnt = 0;
8415: static struct tbl *rec_alias_table[20];
8416:
8417:
8418: if (expanding_alias) {
8419: expanding_alias = 0;
8420: while (rec_alias_cnt-- > 0)
8421: rec_alias_table[rec_alias_cnt]->flag &= ~EXPALIAS;
8422: rec_alias_cnt = 0;
8423: }
8424: Again:
8425: Xinit(ws, wp, 64);
8426:
8427: if (cf&ONEWORD)
8428: istate = SWORD;
8429: else if (cf&LETEXPR)
8430: istate = SDPAREN;
8431: else { /* normal lexing */
8432: istate = SBASE;
8433: while ((c = getsc()) == ' ' || c == '\t')
8434: ;
8435: if (c == '#')
8436: while ((c = getsc()) != 0 && c != '\n')
8437: ;
8438: ungetsc();
8439: }
8440: if (alias) { /* trailing ' ' in alias definition */
8441: alias = 0;
8442: cf |= ALIAS;
8443: }
8444:
8445: /* collect non-special or quoted characters to form word */
8446: for (*statep = state = istate;
8447: !((c = getsc()) == 0 || (state == SBASE && ctype(c, C_LEX1))); ) {
8448: Xcheck(ws, wp);
8449: switch (state) {
8450: case SBASE:
8451: Sbase:
8452: switch (c) {
8453: case '\\':
8454: c = getsc();
8455: if (c != '\n')
8456: *wp++ = QCHAR, *wp++ = c;
8457: else
8458: if (wp == Xstring(ws, wp))
8459: goto Again;
8460: break;
8461: case '\'':
8462: *++statep = state = SSQUOTE;
8463: *wp++ = OQUOTE;
8464: break;
8465: case '"':
8466: *++statep = state = SDQUOTE;
8467: *wp++ = OQUOTE;
8468: break;
8469: default:
8470: goto Subst;
8471: }
8472: break;
8473:
8474: Subst:
8475: switch (c) {
8476: case '\\':
8477: c = getsc();
8478: switch (c) {
8479: case '\n':
8480: break;
8481: case '"': case '\\':
8482: case '$': case '`':
8483: *wp++ = QCHAR, *wp++ = c;
8484: break;
8485: default:
8486: Xcheck(ws, wp);
8487: *wp++ = CHAR, *wp++ = '\\';
8488: *wp++ = CHAR, *wp++ = c;
8489: break;
8490: }
8491: break;
8492: case '$':
8493: c = getsc();
8494: if (c == '(') {
8495: *++statep = state = SPAREN;
8496: *wp++ = COMSUB;
8497: } else
8498: if (c == '{') {
8499: *++statep = state = SBRACE;
8500: *wp++ = OSUBST;
8501: c = getsc();
8502: do {
8503: Xcheck(ws, wp);
8504: *wp++ = c;
8505: c = getsc();
8506: } while (ctype(c, C_ALPHA|C_DIGIT));
8507: *wp++ = 0;
8508: /* todo: more compile-time checking */
8509: if (c == '}')
8510: ungetsc();
8511: else if (c == '#' || c == '%') {
8512: /* Korn pattern trimming */
8513: if (getsc() == c)
8514: c |= 0x80;
8515: else
8516: ungetsc();
8517: *wp++ = c;
8518: } else if (c == ':')
8519: *wp++ = 0x80|getsc();
8520: else
8521: *wp++ = c;
8522: } else if (ctype(c, C_ALPHA)) {
8523: *wp++ = OSUBST;
8524: do {
8525: Xcheck(ws, wp);
8526: *wp++ = c;
8527: c = getsc();
8528: } while (ctype(c, C_ALPHA|C_DIGIT));
8529: *wp++ = 0;
8530: *wp++ = CSUBST;
8531: ungetsc();
8532: } else if (ctype(c, C_DIGIT|C_VAR1)) {
8533: Xcheck(ws, wp);
8534: *wp++ = OSUBST;
8535: *wp++ = c;
8536: *wp++ = 0;
8537: *wp++ = CSUBST;
8538: } else {
8539: *wp++ = CHAR, *wp++ = '$';
8540: ungetsc();
8541: }
8542: break;
8543: case '`':
8544: *++statep = state = SBQUOTE;
8545: *wp++ = COMSUB;
8546: break;
8547: default:
8548: *wp++ = CHAR, *wp++ = c;
8549: }
8550: break;
8551:
8552: case SSQUOTE:
8553: if (c == '\'') {
8554: state = *--statep;
8555: *wp++ = CQUOTE;
8556: } else
8557: *wp++ = QCHAR, *wp++ = c;
8558: break;
8559:
8560: case SDQUOTE:
8561: if (c == '"') {
8562: state = *--statep;
8563: *wp++ = CQUOTE;
8564: } else
8565: goto Subst;
8566: break;
8567:
8568: case SPAREN:
8569: if (c == '(')
8570: *++statep = state;
8571: else if (c == ')')
8572: state = *--statep;
8573: if (state == SPAREN)
8574: *wp++ = c;
8575: else
8576: *wp++ = 0; /* end of COMSUB */
8577: break;
8578:
8579: case SBRACE:
8580: if (c == '}') {
8581: state = *--statep;
8582: *wp++ = CSUBST;
8583: } else
8584: goto Sbase;
8585: break;
8586:
8587: case SBQUOTE:
8588: if (c == '`') {
8589: *wp++ = 0;
8590: state = *--statep;
8591: } else if (c == '\\') {
8592: switch (c = getsc()) {
8593: case '\n':
8594: break;
8595: case '\\':
8596: case '$': case '`':
8597: *wp++ = c;
8598: break;
8599: default:
8600: *wp++ = '\\';
8601: *wp++ = c;
8602: break;
8603: }
8604: } else
8605: *wp++ = c;
8606: break;
8607:
8608: case SWORD: /* ONEWORD */
8609: goto Subst;
8610:
8611: case SDPAREN: /* LETEXPR */
8612: if (c == ')') {
8613: if (getsc() == ')') {
8614: c = 0;
8615: goto Done;
8616: } else
8617: ungetsc();
8618: }
8619: goto Subst;
8620: }
8621: }
8622: Done:
8623: Xcheck(ws, wp);
8624: if (state != istate)
8625: yyerror("no closing quote");
8626:
8627: if (c == '<' || c == '>') {
8628: char *cp = Xstring(ws, wp);
8629: if (wp > cp && cp[0] == CHAR && digit(cp[1])) {
8630: wp = cp; /* throw away word */
8631: c2/*unit*/ = cp[1] - '0';
8632: } else
8633: c2/*unit*/ = c == '>'; /* 0 for <, 1 for > */
8634: }
8635:
8636: if (wp == Xstring(ws, wp) && state == SBASE) {
8637: Xfree(ws, sp); /* free word */
8638: /* no word, process LEX1 character */
8639: switch (c) {
8640: default:
8641: return c;
8642:
8643: case '|':
8644: case '&':
8645: case ';':
8646: if (getsc() == c)
8647: c = (c == ';') ? BREAK :
8648: (c == '|') ? LOGOR :
8649: (c == '&') ? LOGAND :
8650: YYERRCODE;
8651: else
8652: ungetsc();
8653: return c;
8654:
8655: case '>':
8656: case '<': {
8657: register struct ioword *iop;
8658:
8659: iop = (struct ioword *) alloc(sizeof(*iop), ATEMP);
8660: iop->unit = c2/*unit*/;
8661:
8662: c2 = getsc();
8663: if (c2 == '>' || c2 == '<') {
8664: iop->flag = c != c2 ? IORDWR : c == '>' ? IOCAT : IOHERE;
8665: c2 = getsc();
8666: } else
8667: iop->flag = c == '>' ? IOWRITE : IOREAD;
8668:
8669: if (iop->flag == IOHERE)
8670: if (c2 == '-')
8671: iop->flag |= IOSKIP;
8672: else
8673: ungetsc();
8674: else
8675: if (c2 == '&')
8676: iop->flag = IODUP;
8677: else if (c2 == '!' && iop->flag == IOWRITE)
8678: iop->flag |= IOCLOB;
8679: else
8680: ungetsc();
8681: yylval.iop = iop;
8682: return REDIR;
8683: }
8684: case '\n':
8685: gethere();
8686: if (cf & CONTIN)
8687: goto Again;
8688: return c;
8689:
8690: case '(':
8691: c2 = getsc();
8692: if (c2 == ')')
8693: c = MPAREN;
8694: else if (c2 == '(')
8695: c = MDPAREN;
8696: else
8697: ungetsc();
8698: case ')':
8699: return c;
8700: }
8701: }
8702:
8703: *wp++ = EOS; /* terminate word */
8704: yylval.cp = Xclose(ws, wp);
8705: if (state == SWORD || state == SDPAREN) /* ONEWORD? */
8706: return LWORD;
8707: ungetsc(); /* unget terminator */
8708:
8709: /* copy word to unprefixed string ident */
8710: for (sp = yylval.cp, dp = ident; dp < ident+IDENT && (c = *sp++) == CHAR; )
8711: *dp++ = *sp++;
8712: /* Make sure the ident array stays '\0' padded */
8713: while (dp <= ident+IDENT)
8714: *dp++ = '\0';
8715: #if 0
8716: if (*ident == '~' || (dp = strchr(ident, '=')) != NULL && dp[1] == '~')
8717: "Tilde expansion";
8718: #endif
8719: if (c != EOS)
8720: *ident = 0; /* word is not unquoted */
8721:
8722: if (*ident != 0 && (cf&(KEYWORD|ALIAS))) {
8723: register struct tbl *p;
8724:
8725: p = tsearch(&lexicals, ident, hash(ident));
8726: if (p != NULL && (p->flag&ISSET))
8727: if (p->type == CKEYWD && (cf&KEYWORD)) {
8728: afree(yylval.cp, ATEMP);
8729: return p->val.i;
8730: } else if (p->type == CALIAS && (cf&ALIAS) &&
8731: !(p->flag&EXPALIAS)) {
8732: register Source *s;
8733:
8734: if (rec_alias_cnt == sizeof(rec_alias_table)/sizeof(rec_alias_table[0]))
8735: yyerror("excessive recusrsive aliasing");
8736: else
8737: rec_alias_table[rec_alias_cnt++] = p;
8738: p->flag |= EXPALIAS;
8739: /* check for recursive aliasing */
8740: for (s = source; s->type == SALIAS; s = s->next)
8741: if (s->u.tblp == p)
8742: return LWORD;
8743: afree(yylval.cp, ATEMP);
8744:
8745: /* push alias expansion */
8746: s = pushs(SALIAS);
8747: s->str = p->val.s;
8748: s->u.tblp = p;
8749: s->next = source;
8750: source = s;
8751: goto Again;
8752: }
8753: }
8754:
8755: return LWORD;
8756: }
8757:
8758: static void readhere();
8759:
8760: gethere()
8761: {
8762: register struct ioword **p;
8763:
8764: for (p = heres; p < herep; p++)
8765: readhere(*p);
8766: herep = heres;
8767: }
8768:
8769: /*
8770: * read "<<word" text into temp file
8771: * todo: set up E_ERR to fclose(f) on unwind
8772: */
8773:
8774: static void
8775: readhere(iop)
8776: register struct ioword *iop;
8777: {
8778: register FILE *f;
8779: struct temp *h;
8780: register int c;
8781: char *eof;
8782: register char *cp;
8783: char line [LINE+1];
8784:
8785: eof = evalstr(iop->name, 0);
8786:
8787: h = maketemp(ATEMP);
8788: h->next = e.temps; e.temps = h;
8789: iop->name = h->name;
8790: f = fopen(h->name, "w");
8791: if (f == NULL)
8792: errorf("Cannot create temporary file\n");
8793: setvbuf(f, (char *)NULL, _IOFBF, BUFSIZ);
8794:
8795: for (;;) {
8796: cp = line;
8797: while ((c = getsc()) != '\n') {
8798: if (c == 0)
8799: errorf("here document `%s' unclosed\n", eof);
8800: if (cp >= line+LINE)
8801: break;
8802: *cp++ = c;
8803: }
8804: ungetsc();
8805: *cp = 0;
8806: for (cp = line; iop->flag&IOSKIP && *cp == '\t'; cp++)
8807: ;
8808: if (strcmp(eof, cp) == 0 || c == 0)
8809: break;
8810: while ((c = *cp++) != '\0')
8811: putc(c, f);
8812: while ((c = getsc()) != '\n') {
8813: if (c == 0)
8814: errorf("here document `%s' unclosed\n", eof);
8815: putc(c, f);
8816: }
8817: putc(c, f);
8818: }
8819: fclose(f);
8820: }
8821:
8822: void
8823: yyerror(msg)
8824: const char *msg;
8825: {
8826: yynerrs++;
8827: while (source->type == SALIAS) /* pop aliases */
8828: source = source->next;
8829: if (source->file != NULL)
8830: shellf("%s[%d]: ", source->file, source->line);
8831: source->str = NULLSTR; /* zap pending input */
8832: errorf("%s\n", msg);
8833: }
8834:
8835: /*
8836: * input for yylex with alias expansion
8837: */
8838:
8839: Source *
8840: pushs(type)
8841: int type;
8842: {
8843: register Source *s;
8844:
8845: s = (Source *) alloc(sizeof(Source), ATEMP);
8846: s->type = type;
8847: s->str = NULLSTR;
8848: s->line = 0;
8849: s->file = NULL;
8850: s->echo = 0;
8851: s->next = NULL;
8852: return s;
8853: }
8854:
8855: static int
8856: getsc_()
8857: {
8858: register Source *s = source;
8859: register int c;
8860: extern void mprint();
8861:
8862: while ((c = *s->str++) == 0) {
8863: s->str = NULL; /* return 0 for EOF by default */
8864: switch (s->type) {
8865: case SEOF:
8866: s->str = NULLSTR;
8867: return 0;
8868:
8869: case STTY:
8870: if (histpush < 0) { /* commands pushed by dofc */
8871: s->type = SHIST;
8872: s->str = NULLSTR;
8873: continue;
8874: }
8875: s->line++;
8876: s->str = line;
8877: line[0] = '\0';
8878: mprint();
8879: pprompt(prompt);
8880: flushshf(1); flushshf(2);
8881: /*
8882: * This allows the arival of a SIGCHLD
8883: * to not disturb us until we are ready.
8884: * BSD and other systems that
8885: * automatically rety a read after an
8886: * interrupt don't need this but it
8887: * doesn't do any harm either.
8888: */
8889: retry:
8890: #ifdef EDIT
8891: #ifdef EMACS
8892: if (flag[FEMACS])
8893: c = x_read(ttyfd, line, LINE);
8894: else
8895: #endif
8896: #ifdef VI
8897: if (flag[FVI])
8898: c = x_read(ttyfd, line, LINE);
8899: else
8900: #endif
8901: #endif
8902: c = read(ttyfd, line, LINE);
8903: if (c < 0 && sigchld_caught)
8904: {
8905: goto retry;
8906: }
8907: if (c < 0) /* read error */
8908: c = 0;
8909: line[c] = '\0';
8910: prompt = strval(global("PS2"));
8911: if (c == 0) { /* EOF */
8912: s->str = NULL;
8913: s->line--;
8914: } else {
8915: c = 0;
8916: while(line[c] && ctype(line[c], C_IFS))
8917: c++;
8918: if (!line[c]) {
8919: s->str = &line[c - 1];
8920: s->line--;
8921: } else {
8922: s->str = &line[c];
8923: #ifdef EASY_HISTORY
8924: histsave(s->str);
8925: #else
8926: histsave(s->line, s->str, 1);
8927: #endif
8928: }
8929: }
8930: break;
8931:
8932: case SHIST:
8933: if (histpush == 0) {
8934: s->type = STTY;
8935: s->str = NULLSTR;
8936: continue;
8937: }
8938: s->line++;
8939: s->str = histptr[++histpush];
8940: #if 0
8941: pprompt("!< "); /* todo: PS9 */
8942: #endif
8943: shellf("%s\n", s->str);
8944: strcpy(line, s->str);
8945: s->str = strchr(line, 0);
8946: *s->str++ = '\n';
8947: *s->str = 0;
8948: s->str = line;
8949: break;
8950:
8951: case SFILE:
8952: s->line++;
8953: s->str = fgets(line, LINE, s->u.file);
8954: if (s->str == NULL)
8955: if (s->u.file != stdin)
8956: fclose(s->u.file);
8957: break;
8958:
8959: case SWSTR:
8960: break;
8961:
8962: case SSTRING:
8963: s->str = "\n";
8964: s->type = SEOF;
8965: break;
8966:
8967: case SWORDS:
8968: s->str = *s->u.strv++;
8969: s->type = SWORDSEP;
8970: break;
8971:
8972: case SWORDSEP:
8973: if (*s->u.strv == NULL) {
8974: s->str = "\n";
8975: s->type = SEOF;
8976: } else {
8977: s->str = " ";
8978: s->type = SWORDS;
8979: }
8980: break;
8981:
8982: case SALIAS:
8983: s->str = s->u.tblp->val.s;
8984: if (s->str[0] != 0) {
8985: c = strchr(s->str, 0)[-1];
8986: if (c == ' ' || c == '\t')
8987: alias = 1; /* trailing ' ' */
8988: }
8989: source = s = s->next;
8990: expanding_alias = 1;
8991: continue;
8992: }
8993: if (s->str == NULL) {
8994: s->type = SEOF;
8995: s->str = NULLSTR;
8996: return 0;
8997: }
8998: if (s->echo)
8999: fputs(s->str, shlout);
9000: }
9001: return c;
9002: }
9003:
9004: pprompt(cp)
9005: register char *cp;
9006: {
9007: while (*cp != 0)
9008: if (*cp != '!')
9009: putc(*cp++, shlout);
9010: else
9011: if (*++cp == '!')
9012: putc(*cp++, shlout);
9013: else
9014: shellf("%d", source->line);
9015: fflush(shlout);
9016: }
9017: ./pdksh/sh/syn.c 644 653 1762 23636 5243743665 11040 0 ustar hlu /*
9018: * shell parser (C version)
9019: */
9020:
9021: #ifndef lint
9022: static char *RCSid = "$Id: syn.c,v 1.3 1992/08/10 12:03:10 sjg Exp $";
9023: #endif
9024:
9025: #include "stdh.h"
9026: #include <errno.h>
9027: #include <setjmp.h>
9028: #include "sh.h"
9029: #include "expand.h"
9030:
9031: static struct op *pipeline ARGS((int cf));
9032: static struct op *andor ARGS((void));
9033: static struct op *c_list ARGS((void));
9034: static struct ioword *synio ARGS((int cf));
9035: static void musthave ARGS((int c, int cf));
9036: static struct op *nested ARGS((int type, int mark));
9037: static struct op *command ARGS((int cf));
9038: static struct op *dogroup ARGS((int onlydone));
9039: static struct op *thenpart ARGS((void));
9040: static struct op *elsepart ARGS((void));
9041: static struct op *caselist ARGS((void));
9042: static struct op *casepart ARGS((void));
9043: static char ** wordlist ARGS((void));
9044: static struct op *block ARGS((int type, struct op *t1, struct op *t2, char **wp));
9045: static struct op *newtp ARGS((int type));
9046: static void zzerr ARGS((void));
9047:
9048: static struct op *outtree; /* yyparse output */
9049:
9050: static int reject; /* token(cf) gets symbol again */
9051: static int symbol; /* yylex value */
9052:
9053: #define REJECT (reject = 1)
9054: #define ACCEPT (reject = 0)
9055: #define token(cf) \
9056: ((reject) ? (ACCEPT, symbol) : (symbol = yylex(cf)))
9057: #define tpeek(cf) \
9058: ((reject) ? (symbol) : (REJECT, symbol = yylex(cf)))
9059:
9060: int
9061: yyparse()
9062: {
9063: ACCEPT;
9064: yynerrs = 0;
9065: if ((tpeek(KEYWORD|ALIAS)) == 0) { /* EOF */
9066: outtree = newtp(TEOF);
9067: return 0;
9068: }
9069: outtree = c_list();
9070: musthave('\n', 0);
9071: return (yynerrs != 0);
9072: }
9073:
9074: static struct op *
9075: pipeline(cf)
9076: int cf;
9077: {
9078: register struct op *t, *p, *tl = NULL;
9079: register int c;
9080:
9081: t = command(cf);
9082: if (t != NULL) {
9083: while ((c = token(0)) == '|') {
9084: if ((p = command(CONTIN)) == NULL)
9085: SYNTAXERR;
9086: if (tl == NULL)
9087: t = tl = block(TPIPE, t, p, NOWORDS);
9088: else
9089: tl = tl->right = block(TPIPE, tl->right, p, NOWORDS);
9090: /*t = block(TPIPE, t, p, NOWORDS);*/
9091: }
9092: REJECT;
9093: }
9094: return (t);
9095: }
9096:
9097: static struct op *
9098: andor()
9099: {
9100: register struct op *t, *p;
9101: register int c;
9102:
9103: t = pipeline(0);
9104: if (t != NULL) {
9105: while ((c = token(0)) == LOGAND || c == LOGOR) {
9106: if ((p = pipeline(CONTIN)) == NULL)
9107: SYNTAXERR;
9108: t = block(c == LOGAND? TAND: TOR, t, p, NOWORDS);
9109: }
9110: REJECT;
9111: }
9112: return (t);
9113: }
9114:
9115: static struct op *
9116: c_list()
9117: {
9118: register struct op *t, *p, *tl = NULL;
9119: register int c;
9120:
9121: t = andor();
9122: if (t != NULL) {
9123: while ((c = token(0)) == ';' || c == '&' ||
9124: ((multiline || source->type == SSTRING
9125: || (source->type == SALIAS)) && c == '\n')) {
9126: if (c == '&') {
9127: if (tl)
9128: tl->right = block(TASYNC, tl->right, NOBLOCK, NOWORDS);
9129: else
9130: t = block(TASYNC, t, NOBLOCK, NOWORDS);
9131: }
9132: if ((p = andor()) == NULL)
9133: return (t);
9134: if (tl == NULL)
9135: t = tl = block(TLIST, t, p, NOWORDS);
9136: else
9137: tl = tl->right = block(TLIST, tl->right, p, NOWORDS);
9138: }
9139: REJECT;
9140: }
9141: return (t);
9142: }
9143:
9144: static struct ioword *
9145: synio(cf)
9146: int cf;
9147: {
9148: register struct ioword *iop;
9149:
9150: if (tpeek(cf) != REDIR)
9151: return NULL;
9152: ACCEPT;
9153: iop = yylval.iop;
9154: musthave(LWORD, 0);
9155: iop->name = yylval.cp;
9156: if ((iop->flag&IOTYPE) == IOHERE) {
9157: if (*ident != 0) /* unquoted */
9158: iop->flag |= IOEVAL;
9159: if (herep >= &heres[HERES])
9160: errorf("too many <<'s\n");
9161: *herep++ = iop;
9162: }
9163: return iop;
9164: }
9165:
9166: static void
9167: musthave(c, cf)
9168: int c, cf;
9169: {
9170: if ((token(cf)) != c)
9171: SYNTAXERR;
9172: }
9173:
9174: static struct op *
9175: nested(type, mark)
9176: int type, mark;
9177: {
9178: register struct op *t;
9179:
9180: multiline++;
9181: t = c_list();
9182: musthave(mark, KEYWORD);
9183: multiline--;
9184: return (block(type, t, NOBLOCK, NOWORDS));
9185: }
9186:
9187: static struct op *
9188: command(cf)
9189: int cf;
9190: {
9191: register struct op *t;
9192: register int c, iopn = 0;
9193: struct ioword *iop, **iops;
9194: XPtrV args, vars;
9195:
9196: iops = (struct ioword **) alloc(sizeofN(struct ioword *, NUFILE+1), ATEMP);
9197: XPinit(args, 16);
9198: XPinit(vars, 16);
9199:
9200: if (multiline)
9201: cf = CONTIN;
9202: cf |= KEYWORD|ALIAS;
9203:
9204: while ((iop = synio(cf)) != NULL) {
9205: if (iopn >= NUFILE)
9206: yyerror("too many redirections");
9207: iops[iopn++] = iop;
9208: cf &=~ CONTIN;
9209: }
9210:
9211: switch (c = token(cf)) {
9212: case 0:
9213: yyerror("unexpected EOF");
9214: return NULL;
9215:
9216: default:
9217: REJECT;
9218: if (iopn == 0)
9219: return NULL; /* empty line */
9220: t = newtp(TCOM);
9221: break;
9222:
9223: case LWORD:
9224: case MDPAREN:
9225: REJECT;
9226: t = newtp(TCOM);
9227: if (c == MDPAREN) {
9228: ACCEPT;
9229: XPput(args,"let");
9230: musthave(LWORD,LETEXPR);
9231: XPput(args,yylval.cp);
9232: }
9233: while (1)
9234: switch (tpeek(0)) {
9235: case REDIR:
9236: if (iopn >= NUFILE)
9237: yyerror("too many redirections");
9238: iops[iopn++] = synio(0);
9239: break;
9240:
9241: case LWORD:
9242: ACCEPT;
9243: if ((XPsize(args) == 0 || flag[FKEYWORD])
9244: && strchr(ident+1, '='))
9245: {XPput(vars, yylval.cp);}
9246: else
9247: {XPput(args, yylval.cp);}
9248: break;
9249:
9250: case MPAREN:
9251: ACCEPT;
9252: if (XPsize(args) != 1)
9253: SYNTAXERR;
9254: if (*ident == 0)
9255: yyerror("invalid function name\n");
9256: t = newtp(TFUNCT);
9257: t->str = strsave(ident, ATEMP);
9258: musthave('{', CONTIN|KEYWORD);
9259: t->left = nested(TBRACE, '}');
9260: return t;
9261:
9262: default:
9263: goto Leave;
9264: }
9265: Leave:
9266: break;
9267:
9268: case '(':
9269: t = nested(TPAREN, ')');
9270: break;
9271:
9272: case '{':
9273: t = nested(TBRACE, '}');
9274: break;
9275:
9276: case FOR:
9277: case SELECT:
9278: t = newtp((c == FOR) ? TFOR: TSELECT);
9279: musthave(LWORD, 0);
9280: t->str = strsave(ident, ATEMP);
9281: multiline++;
9282: t->vars = wordlist();
9283: t->left = dogroup(0);
9284: multiline--;
9285: break;
9286:
9287: case WHILE:
9288: case UNTIL:
9289: multiline++;
9290: t = newtp((c == WHILE) ? TWHILE: TUNTIL);
9291: t->left = c_list();
9292: t->right = dogroup(1);
9293: multiline--;
9294: break;
9295:
9296: case CASE:
9297: t = newtp(TCASE);
9298: musthave(LWORD, 0);
9299: t->str = yylval.cp;
9300: multiline++;
9301: musthave(IN, KEYWORD|CONTIN);
9302: t->left = caselist();
9303: musthave(ESAC, KEYWORD);
9304: multiline--;
9305: break;
9306:
9307: case IF:
9308: multiline++;
9309: t = newtp(TIF);
9310: t->left = c_list();
9311: t->right = thenpart();
9312: musthave(FI, KEYWORD);
9313: multiline--;
9314: break;
9315:
9316: case TIME:
9317: t = pipeline(CONTIN);
9318: t = block(TTIME, t, NOBLOCK, NOWORDS);
9319: break;
9320:
9321: case FUNCTION:
9322: t = newtp(TFUNCT);
9323: musthave(LWORD, 0);
9324: t->str = strsave(ident, ATEMP);
9325: musthave('{', CONTIN|KEYWORD);
9326: t->left = nested(TBRACE, '}');
9327: break;
9328:
9329: #if 0
9330: case MDPAREN:
9331: t = newtp(TCOM);
9332: XPput(args, "let");
9333: musthave(LWORD, LETEXPR);
9334: XPput(args, yylval.cp);
9335: while (tpeek(0) == REDIR) {
9336: if (iopn >= NUFILE)
9337: yyerror("too many redirections");
9338: iops[iopn++] = synio(0);
9339: }
9340: break;
9341: #endif
9342: }
9343:
9344: while ((iop = synio(0)) != NULL) {
9345: if (iopn >= NUFILE)
9346: yyerror("too many redirections");
9347: iops[iopn++] = iop;
9348: }
9349:
9350: if (iopn == 0) {
9351: afree((void*) iops, ATEMP);
9352: t->ioact = NULL;
9353: } else {
9354: iops[iopn++] = NULL;
9355: aresize((void*) iops, sizeofN(struct ioword *, iopn), ATEMP);
9356: t->ioact = iops;
9357: }
9358:
9359: if (t->type == TCOM) {
9360: XPput(args, NULL);
9361: t->args = (char **) XPclose(args);
9362: XPput(vars, NULL);
9363: t->vars = (char **) XPclose(vars);
9364: } else {
9365: XPfree(args);
9366: XPfree(vars);
9367: }
9368:
9369: return t;
9370: }
9371:
9372: static struct op *
9373: dogroup(onlydone)
9374: int onlydone;
9375: {
9376: register int c;
9377: register struct op *list;
9378:
9379: c = token(CONTIN|KEYWORD);
9380: if (c == DONE && onlydone)
9381: return NULL;
9382: if (c != DO)
9383: SYNTAXERR;
9384: list = c_list();
9385: musthave(DONE, KEYWORD);
9386: return list;
9387: }
9388:
9389: static struct op *
9390: thenpart()
9391: {
9392: register int c;
9393: register struct op *t;
9394:
9395: if ((c = token(0)) != THEN) {
9396: REJECT;
9397: return NULL;
9398: }
9399: t = newtp(0);
9400: t->left = c_list();
9401: if (t->left == NULL)
9402: SYNTAXERR;
9403: t->right = elsepart();
9404: return (t);
9405: }
9406:
9407: static struct op *
9408: elsepart()
9409: {
9410: register int c;
9411: register struct op *t;
9412:
9413: switch (c = token(0)) {
9414: case ELSE:
9415: if ((t = c_list()) == NULL)
9416: SYNTAXERR;
9417: return (t);
9418:
9419: case ELIF:
9420: t = newtp(TELIF);
9421: t->left = c_list();
9422: t->right = thenpart();
9423: return (t);
9424:
9425: default:
9426: REJECT;
9427: return NULL;
9428: }
9429: }
9430:
9431: static struct op *
9432: caselist()
9433: {
9434: register struct op *t, *tl;
9435:
9436: t = tl = NULL;
9437: while ((tpeek(CONTIN|KEYWORD)) != ESAC) {
9438: struct op *tc = casepart();
9439: if (tl == NULL)
9440: t = tl = tc, tl->right = NULL;
9441: else
9442: tl->right = tc, tl = tc;
9443: }
9444: return (t);
9445: }
9446:
9447: static struct op *
9448: casepart()
9449: {
9450: register struct op *t;
9451: register int c, cf;
9452: XPtrV ptns;
9453:
9454: XPinit(ptns, 16);
9455: t = newtp(TPAT);
9456: cf = CONTIN|KEYWORD;
9457: c = token(cf);
9458: if (c != '(')
9459: REJECT;
9460: else
9461: cf = 0;
9462: do {
9463: musthave(LWORD, cf);
9464: XPput(ptns, yylval.cp);
9465: cf = 0;
9466: } while ((c = token(0)) == '|');
9467: REJECT;
9468: XPput(ptns, NULL);
9469: t->vars = (char **) XPclose(ptns);
9470: musthave(')', 0);
9471:
9472: t->left = c_list();
9473: if ((tpeek(CONTIN|KEYWORD)) != ESAC)
9474: musthave(BREAK, CONTIN|KEYWORD);
9475: return (t);
9476: }
9477:
9478: static char **
9479: wordlist()
9480: {
9481: register int c;
9482: XPtrV args;
9483:
9484: XPinit(args, 16);
9485: if ((c = token(CONTIN|KEYWORD)) != IN) {
9486: REJECT;
9487: return NULL;
9488: }
9489: while ((c = token(0)) == LWORD)
9490: XPput(args, yylval.cp);
9491: if (c != '\n' && c != ';')
9492: SYNTAXERR;
9493: if (XPsize(args) == 0) {
9494: XPfree(args);
9495: return NULL;
9496: } else {
9497: XPput(args, NULL);
9498: return (char **) XPclose(args);
9499: }
9500: }
9501:
9502: /*
9503: * supporting functions
9504: */
9505:
9506: static struct op *
9507: block(type, t1, t2, wp)
9508: struct op *t1, *t2;
9509: char **wp;
9510: {
9511: register struct op *t;
9512:
9513: t = newtp(type);
9514: t->left = t1;
9515: t->right = t2;
9516: t->vars = wp;
9517: return (t);
9518: }
9519:
9520: const struct res {
9521: char *name;
9522: int val;
9523: } restab[] = {
9524: "for", FOR,
9525: "select", SELECT,
9526: "case", CASE,
9527: "esac", ESAC,
9528: "while", WHILE,
9529: "do", DO,
9530: "done", DONE,
9531: "if", IF,
9532: "in", IN,
9533: "then", THEN,
9534: "else", ELSE,
9535: "elif", ELIF,
9536: "until", UNTIL,
9537: "fi", FI,
9538: "function", FUNCTION,
9539: "time", TIME,
9540: "{", '{',
9541: "}", '}',
9542: 0
9543: };
9544:
9545: keywords()
9546: {
9547: register struct res const *rp;
9548: register struct tbl *p;
9549:
9550: for (rp = restab; rp->name; rp++) {
9551: p = tenter(&lexicals, rp->name, hash(rp->name));
9552: p->flag |= DEFINED|ISSET;
9553: p->type = CKEYWD;
9554: p->val.i = rp->val;
9555: }
9556: }
9557:
9558: static struct op *
9559: newtp(type)
9560: int type;
9561: {
9562: register struct op *t;
9563:
9564: t = (struct op *) alloc(sizeof(*t), ATEMP);
9565: t->type = type;
9566: t->args = t->vars = NULL;
9567: t->ioact = NULL;
9568: t->left = t->right = NULL;
9569: t->str = NULL;
9570: return (t);
9571: }
9572:
9573: static void
9574: zzerr()
9575: {
9576: yyerror("syntax error");
9577: }
9578:
9579: struct op *
9580: compile(s)
9581: Source *s;
9582: {
9583: yynerrs = 0;
9584: multiline = 0;
9585: herep = heres;
9586: source = s;
9587: if (yyparse())
9588: unwind();
9589: if (s->type == STTY || s->type == SFILE || s->type == SHIST)
9590: s->str = null; /* line is not preserved */
9591: return outtree;
9592: }
9593:
9594: ./pdksh/sh/c_sh.c 644 653 1762 21073 5302766212 11121 0 ustar hlu /*
9595: * built-in Bourne commands
9596: */
9597:
9598: #ifndef lint
9599: static char *RCSid = "$Id: c_sh.c,v 1.3 1992/04/25 08:29:52 sjg Exp $";
9600: #endif
9601:
9602: #include "stdh.h"
9603: #include <errno.h>
9604: #include <signal.h>
9605: #include <setjmp.h>
9606: #include <unistd.h> /* getcwd */
9607: #include <sys/times.h>
9608: #ifdef linux
9609: #include <sys/stat.h>
9610: #endif
9611: #include "sh.h"
9612:
9613: static char * clocktos ARGS((clock_t t));
9614:
9615: #ifndef CLK_TCK
9616: #define CLK_TCK 60 /* 60HZ */
9617: #endif
9618:
9619: int
9620: c_label(wp)
9621: char **wp;
9622: {
9623: return 0;
9624: }
9625:
9626: int
9627: c_shift(wp)
9628: register char **wp;
9629: {
9630: register struct block *l = e.loc;
9631: register int n;
9632:
9633: n = wp[1] ? evaluate(wp[1]) : 1;
9634: if (l->argc < n) {
9635: errorf("nothing to shift\n");
9636: return (1);
9637: }
9638: l->argv[n] = l->argv[0];
9639: l->argv += n;
9640: l->argc -= n;
9641: return 0;
9642: }
9643:
9644: int
9645: c_umask(wp)
9646: register char **wp;
9647: {
9648: register int i;
9649: register char *cp;
9650:
9651: if ((cp = wp[1]) == NULL) {
9652: i = umask(0);
9653: umask(i);
9654: printf("%#3.3o\n", i); /* should this be shell output? */
9655: } else {
9656: for (i = 0; *cp>='0' && *cp<='7'; cp++)
9657: i = i*8 + (*cp-'0');
9658: umask(i);
9659: }
9660: return 0;
9661: }
9662:
9663: int
9664: c_dot(wp)
9665: char **wp;
9666: {
9667: char *file, *cp;
9668:
9669: if ((cp = wp[1]) == NULL)
9670: return 0;
9671: file = search(cp, path, 0);
9672: if (file == NULL)
9673: errorf("%s: not found\n", cp);
9674: if (include(file))
9675: return exstat;
9676: return -1;
9677: }
9678:
9679: int
9680: c_wait(wp)
9681: char **wp;
9682: {
9683: register char *cp;
9684:
9685: wp++;
9686: cp = *wp;
9687: if (cp == NULL) cp = "%";
9688: /* todo: print status ? */
9689: return waitfor(j_lookup(cp));
9690: }
9691:
9692: int
9693: c_read(wp)
9694: register char **wp;
9695: {
9696: register int c = 0;
9697: FILE *f = stdin;
9698: int expand = 1;
9699: register char *cp;
9700:
9701: for (wp++; (cp = *wp) != NULL && *cp++ == '-'; wp++) {
9702: while (*cp) switch (*cp++) {
9703: case 'e':
9704: expand = 1;
9705: break;
9706: case 'r':
9707: expand = 0;
9708: break;
9709: case 'u':
9710: if (!digit(*cp) || (f = shf[*cp++-'0']) == NULL)
9711: errorf("bad -u argument\n");
9712: break;
9713: }
9714: }
9715:
9716: if (*wp == NULL)
9717: errorf("missing name\n");
9718: if ((cp = strchr(*wp, '?')) != NULL) {
9719: *cp = 0;
9720: if (flag[FTALKING]) {
9721: shellf("%s ", cp+1);
9722: fflush(shlout);
9723: }
9724: }
9725:
9726: for (; *wp != NULL; wp++) {
9727: for (cp = line; cp <= line+LINE; ) {
9728: if (c == '\n')
9729: break;
9730: c = getc(f);
9731: if (c == EOF)
9732: return 1;
9733: if (expand && c == '\\') {
9734: c = getc(f);
9735: if (c == '\n')
9736: c = 0;
9737: else
9738: *cp++ = c;
9739: continue;
9740: }
9741: if (c == '\n' || (wp[1] && ctype(c, C_IFS)))
9742: break;
9743: *cp++ = c;
9744: }
9745: *cp = 0;
9746: setstr(global(*wp), line);
9747: }
9748: return 0;
9749: }
9750:
9751: int
9752: c_eval(wp)
9753: register char **wp;
9754: {
9755: register struct source *s;
9756:
9757: s = pushs(SWORDS);
9758: s->u.strv = wp+1;
9759: return shell(s);
9760: }
9761:
9762: void setsig ARGS((struct trap *p, handler_t f));
9763:
9764: int
9765: c_trap(wp)
9766: register char **wp;
9767: {
9768: int i;
9769: char *s;
9770: register struct trap *p;
9771:
9772: wp++;
9773: if (*wp == NULL) {
9774: for (p = sigtraps, i = SIGNALS; --i >= 0; p++) {
9775: if (p->trap != NULL)
9776: shellf("%s: %s\n", p->name, p->trap);
9777: }
9778: return 0;
9779: }
9780:
9781: s = (gettrap(*wp) == NULL) ? *wp++ : NULL; /* get command */
9782: if (s != NULL && s[0] == '-' && s[1] == '\0')
9783: s = NULL;
9784:
9785: /* set/clear traps */
9786: while (*wp != NULL) {
9787: p = gettrap(*wp++);
9788: if (p == NULL)
9789: errorf("trap: bad signal %s\n", wp[-1]);
9790: if (p->trap != NULL)
9791: afree((void*)p->trap, APERM);
9792: p->trap = NULL;
9793: if (s != NULL) {
9794: if (strlen(s) != 0) {
9795: p->trap = strsave(s, APERM);
9796: setsig(p, trapsig);
9797: } else
9798: setsig(p, (handler_t)SIG_IGN);
9799: } else
9800: /* todo: restore to orginal value */
9801: setsig(p,
9802: (p->signal==SIGINT || p->signal==SIGQUIT) && flag[FTALKING]
9803: ? (handler_t)SIG_IGN : (handler_t)SIG_DFL);
9804: }
9805: return 0;
9806: }
9807:
9808: void
9809: setsig(p, f)
9810: register struct trap *p;
9811: void (*f)();
9812: {
9813: if (p->signal == 0)
9814: return;
9815: #ifdef USE_SIGACT
9816: sigaction(p->signal, &Sigact_ign, &Sigact);
9817: if (Sigact.sa_handler != SIG_IGN || p->ourtrap)
9818: {
9819: p->ourtrap = 1;
9820: Sigact.sa_handler = f;
9821: sigaction(p->signal, &Sigact, NULL);
9822: sigemptyset(&Sigact.sa_mask);
9823: Sigact.sa_flags = 0;
9824: }
9825: #else
9826: if (signal(p->signal, SIG_IGN) != SIG_IGN || p->ourtrap)
9827: {
9828: p->ourtrap = 1;
9829: signal(p->signal, f);
9830: }
9831: #endif
9832: }
9833:
9834: int
9835: c_return(wp)
9836: char **wp;
9837: {
9838: wp++;
9839: if (*wp != NULL)
9840: exstat = getn(*wp);
9841: quitenv(); /* pop E_TCOM */
9842: while (e.type == E_LOOP || e.type == E_EXEC)
9843: quitenv();
9844: if (e.type == E_FUNC)
9845: longjmp(e.jbuf, 1);
9846: leave(exstat);
9847: }
9848:
9849: int
9850: c_brkcont(wp)
9851: register char **wp;
9852: {
9853: int quit;
9854:
9855: quit = wp[1] == NULL ? 1 : getn(wp[1]);
9856: quitenv(); /* pop E_TCOM */
9857: while (e.type == E_LOOP || e.type == E_EXEC) {
9858: if (e.type == E_LOOP && --quit <= 0)
9859: longjmp(e.jbuf, (*wp[0] == 'b') ? LBREAK : LCONTIN);
9860: quitenv();
9861: }
9862: errorf("cannot %s\n", wp[0]);
9863: }
9864:
9865:
9866: /* 91-05-27 <sjg>
9867: * we are supposed to not exit first try
9868: * if there are stopped jobs.
9869: */
9870: int
9871: c_exit(wp)
9872: char **wp;
9873: {
9874: register char *cp;
9875: static int extry = 0;
9876:
9877: #ifdef JOBS
9878: if (extry++ == 0)
9879: {
9880: if (flag[FMONITOR] && j_stopped()) /* todo: only once */
9881: {
9882: errorf("There are stopped jobs\n");
9883: return 1;
9884: }
9885: }
9886: #endif
9887: e.oenv = NULL;
9888: if ((cp = wp[1]) != NULL)
9889: exstat = getn(cp);
9890: leave(exstat);
9891: }
9892:
9893: int
9894: c_set(wp)
9895: register char **wp;
9896: {
9897: struct block *l = e.loc;
9898: register char **owp = wp;
9899: register char *cp;
9900: int old_fmonitor = flag[FMONITOR];
9901:
9902: if ((cp = *++wp) == NULL) {
9903: static char * const args [] = {"set", "-", NULL};
9904: extern int c_typeset ARGS((char **args));
9905: return c_typeset(args);
9906: }
9907:
9908: for (; (cp = *wp) != NULL && (*cp == '-' || *cp == '+');) {
9909: int i, n = *cp++ == '-'; /* set or clear flag */
9910: wp++;
9911: if (*cp == '\0') {
9912: if (n)
9913: flag[FXTRACE] = flag[FVERBOSE] = 0;
9914: break;
9915: }
9916: if (*cp == '-')
9917: goto setargs;
9918: for (; *cp != '\0'; cp++)
9919: if (*cp == 'o') {
9920: if (*wp == NULL) {
9921: printoptions();
9922: return 0;
9923: }
9924: i = option(*wp++);
9925: if (i == 0)
9926: shellf("%s: unknown option\n", *--wp);
9927: flag[i] = n;
9928: if (i == FEMACS && n)
9929: flag[FVI] = 0;
9930: else if (i == FVI && n)
9931: flag[FEMACS] = 0;
9932: } else if (*cp>='a' && *cp<='z')
9933: flag[FLAG(*cp)] = n;
9934: else
9935: errorf("%c: bad flag\n", *cp);
9936: if (flag[FTALKING])
9937: flag[FERREXIT] = 0;
9938: }
9939:
9940: #ifdef JOBS
9941: if (old_fmonitor != flag[FMONITOR])
9942: j_change();
9943: #endif
9944:
9945: /* set $# and $* */
9946: if (*wp != NULL) {
9947: setargs:
9948: owp = --wp;
9949: wp[0] = l->argv[0]; /* save $0 */
9950: while (*++wp != NULL)
9951: *wp = strsave(*wp, &l->area);
9952: l->argc = wp - owp - 1;
9953: l->argv = (char **) alloc(sizeofN(char *, l->argc+2), &l->area);
9954: for (wp = l->argv; (*wp++ = *owp++) != NULL; )
9955: ;
9956: resetopts();
9957: }
9958: return 0;
9959: }
9960:
9961: int
9962: c_unset(wp)
9963: register char **wp;
9964: {
9965: register char *id;
9966: int flagf = 0;
9967:
9968: for (wp++; (id = *wp) != NULL && *id == '-'; wp++)
9969: if (*++id == 'f')
9970: flagf++;
9971: for (; (id = *wp) != NULL; wp++)
9972: if (!flagf) { /* unset variable */
9973: unset(global(id));
9974: } else { /* unset function */
9975: define(id, (struct op *)NULL);
9976: }
9977: return 0;
9978: }
9979:
9980: int
9981: c_ulimit(wp)
9982: register char **wp;
9983: {
9984: extern int do_ulimit();
9985:
9986: return do_ulimit(wp[1], wp[2]);
9987: }
9988:
9989: int
9990: c_times(wp)
9991: char **wp;
9992: {
9993: struct tms all;
9994:
9995: (void) times(&all);
9996: printf("Shell: ");
9997: printf("%8s user ", clocktos(all.tms_utime));
9998: printf("%8s system\n", clocktos(all.tms_stime));
9999: printf("Kids: ");
10000: printf("%8s user ", clocktos(all.tms_cutime));
10001: printf("%8s system\n", clocktos(all.tms_cstime));
10002:
10003: return 0;
10004: }
10005:
10006: /*
10007: * time pipeline (really a statement, not a built-in comman)
10008: */
10009: int
10010: timex(t, f)
10011: struct op *t;
10012: int f;
10013: {
10014: int rv;
10015: struct tms t0, t1;
10016: clock_t t0t, t1t;
10017: extern clock_t j_utime, j_stime; /* computed by j_wait */
10018:
10019: j_utime = j_stime = 0;
10020: t0t = times(&t0);
10021: rv = execute(t->left, f);
10022: t1t = times(&t1);
10023:
10024: shellf("%8s real ", clocktos(t1t - t0t));
10025: shellf("%8s user ",
10026: clocktos(t1.tms_utime - t0.tms_utime + j_utime));
10027: shellf("%8s system ",
10028: clocktos(t1.tms_stime - t0.tms_stime + j_stime));
10029: shellf("\n");
10030:
10031: return rv;
10032: }
10033:
10034: static char *
10035: clocktos(t)
10036: clock_t t;
10037: {
10038: static char temp[20];
10039: register int i;
10040: register char *cp = temp + sizeof(temp);
10041:
10042: #if CLK_TCK != 100 /* convert to 1/100'ths */
10043: t = (t < 1000000000/CLK_TCK) ?
10044: (t * 100) / CLK_TCK : (t / CLK_TCK) * 100;
10045: #endif
10046:
10047: *--cp = '\0';
10048: *--cp = 's';
10049: for (i = -2; i <= 0 || t > 0; i++) {
10050: if (i == 0)
10051: *--cp = '.';
10052: *--cp = '0' + (char)(t%10);
10053: t /= 10;
10054: }
10055: return cp;
10056: }
10057:
10058: /* dummy function, special case in comexec() */
10059: int
10060: c_exec(wp)
10061: char ** wp;
10062: {
10063: return 0;
10064: }
10065:
10066: /* dummy function, special case in comexec() */
10067: int
10068: c_builtin(wp)
10069: char ** wp;
10070: {
10071: return 0;
10072: }
10073:
10074: extern int c_test(); /* in test.c */
10075:
10076: const struct builtin shbuiltins [] = {
10077: {"=:", c_label},
10078: {"=.", c_dot},
10079: {"[", c_test},
10080: {"=builtin", c_builtin},
10081: {"=exec", c_exec},
10082: {"=shift", c_shift},
10083: {"=wait", c_wait},
10084: {"read", c_read},
10085: {"=eval", c_eval},
10086: {"=trap", c_trap},
10087: {"=break", c_brkcont},
10088: {"=continue", c_brkcont},
10089: {"=exit", c_exit},
10090: {"=return", c_return},
10091: {"=set", c_set},
10092: {"unset", c_unset},
10093: {"umask", c_umask},
10094: {"test", c_test},
10095: {"=times", c_times},
10096: {"ulimit", c_ulimit},
10097: {NULL, NULL}
10098: };
10099:
10100: ./pdksh/sh/c_test.c 644 653 1762 16156 5302766312 11475 0 ustar hlu /*
10101: * test(1); version 7-like -- author Erik Baalbergen
10102: * modified by Eric Gisin to be used as built-in.
10103: * modified by Arnold Robbins to add SVR3 compatibility
10104: * (-x -c -b -p -u -g -k) plus Korn's -L -nt -ot -ef and new -S (socket).
10105: */
10106:
10107: #ifndef lint
10108: static char *RCSid = "$Id: c_test.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
10109: #endif
10110:
10111: #include "stdh.h"
10112: #include <signal.h>
10113: #include <errno.h>
10114: #include <setjmp.h>
10115: #include <unistd.h>
10116: #include <sys/stat.h>
10117: #include "sh.h"
10118:
10119: /* test(1) accepts the following grammar:
10120: oexpr ::= aexpr | aexpr "-o" oexpr ;
10121: aexpr ::= nexpr | nexpr "-a" aexpr ;
10122: nexpr ::= primary ! "!" primary
10123: primary ::= unary-operator operand
10124: | operand binary-operator operand
10125: | operand
10126: | "(" oexpr ")"
10127: ;
10128: unary-operator ::= "-r"|"-w"|"-x"|"-f"|"-d"|"-c"|"-b"|"-p"|
10129: "-u"|"-g"|"-k"|"-s"|"-t"|"-z"|"-n"|"-o"|"-O"|"-G"|"-L"|"-S";
10130:
10131: binary-operator ::= "="|"!="|"-eq"|"-ne"|"-ge"|"-gt"|"-le"|"-lt"|
10132: "-nt"|"-ot"|"-ef";
10133: operand ::= <any legal UNIX file name>
10134: */
10135:
10136: #define EOI 0
10137: #define FILRD 1
10138: #define FILWR 2
10139: #define FILREG 3
10140: #define FILID 4
10141: #define FILGZ 5
10142: #define FILTT 6
10143: #define STZER 7
10144: #define STNZE 8
10145: #define STEQL 9
10146: #define STNEQ 10
10147: #define INTEQ 11
10148: #define INTNE 12
10149: #define INTGE 13
10150: #define INTGT 14
10151: #define INTLE 15
10152: #define INTLT 16
10153: #define UNOT 17
10154: #define BAND 18
10155: #define BOR 19
10156: #define LPAREN 20
10157: #define RPAREN 21
10158: #define OPERAND 22
10159: #define FILEX 23
10160: #define FILCDEV 24
10161: #define FILBDEV 25
10162: #define FILFIFO 26
10163: #define FILSETU 27
10164: #define FILSETG 28
10165: #define FILSTCK 29
10166: #define FILSYM 30
10167: #define FILNT 31
10168: #define FILOT 32
10169: #define FILEQ 33
10170: #define FILSOCK 34
10171: #define FILUID 35
10172: #define FILGID 36
10173: #define OPTION 37
10174:
10175: #define UNOP 1
10176: #define BINOP 2
10177: #define BUNOP 3
10178: #define BBINOP 4
10179: #define PAREN 5
10180:
10181: struct t_op {
10182: char *op_text;
10183: short op_num, op_type;
10184: } const ops [] = {
10185: {"-r", FILRD, UNOP},
10186: {"-w", FILWR, UNOP},
10187: {"-x", FILEX, UNOP},
10188: {"-f", FILREG, UNOP},
10189: {"-d", FILID, UNOP},
10190: {"-c", FILCDEV,UNOP},
10191: {"-b", FILBDEV,UNOP},
10192: {"-p", FILFIFO,UNOP},
10193: {"-u", FILSETU,UNOP},
10194: {"-g", FILSETG,UNOP},
10195: {"-k", FILSTCK,UNOP},
10196: {"-s", FILGZ, UNOP},
10197: {"-t", FILTT, UNOP},
10198: {"-z", STZER, UNOP},
10199: {"-n", STNZE, UNOP},
10200: #if 0 /* conficts with binary -o */
10201: {"-o", OPTION, UNOP},
10202: #endif
10203: {"-U", FILUID, UNOP},
10204: {"-G", FILGID, UNOP},
10205: {"-L", FILSYM, UNOP},
10206: {"-S", FILSOCK,UNOP},
10207: {"=", STEQL, BINOP},
10208: {"!=", STNEQ, BINOP},
10209: {"-eq", INTEQ, BINOP},
10210: {"-ne", INTNE, BINOP},
10211: {"-ge", INTGE, BINOP},
10212: {"-gt", INTGT, BINOP},
10213: {"-le", INTLE, BINOP},
10214: {"-lt", INTLT, BINOP},
10215: {"-nt", FILNT, BINOP},
10216: {"-ot", FILOT, BINOP},
10217: {"-ef", FILEQ, BINOP},
10218: {"!", UNOT, BUNOP},
10219: {"-a", BAND, BBINOP},
10220: {"-o", BOR, BBINOP},
10221: {"(", LPAREN, PAREN},
10222: {")", RPAREN, PAREN},
10223: {0, 0, 0}
10224: };
10225:
10226: char **t_wp;
10227: struct t_op const *t_wp_op;
10228:
10229: static void syntax();
10230:
10231: int
10232: c_test(wp)
10233: char **wp;
10234: {
10235: int res;
10236:
10237: t_wp = wp+1;
10238: if (strcmp(wp[0], "[") == 0) {
10239: while (*wp != NULL)
10240: wp++;
10241: if (strcmp(*--wp, "]") != 0)
10242: errorf("[: missing ]\n");
10243: *wp = NULL;
10244: }
10245: res = *t_wp == NULL || !oexpr(t_lex(*t_wp));
10246:
10247: if (*t_wp != NULL && *++t_wp != NULL)
10248: syntax(*t_wp, "unknown operand");
10249:
10250: return res;
10251: }
10252:
10253: static void
10254: syntax(op, msg)
10255: char *op;
10256: char *msg;
10257: {
10258: if (op && *op)
10259: errorf("test: %s: %s\n", op, msg);
10260: else
10261: errorf("test: %s\n", msg);
10262: }
10263:
10264: oexpr(n)
10265: {
10266: int res;
10267:
10268: res = aexpr(n);
10269: if (t_lex(*++t_wp) == BOR)
10270: return oexpr(t_lex(*++t_wp)) || res;
10271: t_wp--;
10272: return res;
10273: }
10274:
10275: aexpr(n)
10276: {
10277: int res;
10278:
10279: res = nexpr(n);
10280: if (t_lex(*++t_wp) == BAND)
10281: return aexpr(t_lex(*++t_wp)) && res;
10282: t_wp--;
10283: return res;
10284: }
10285:
10286: nexpr(n)
10287: int n; /* token */
10288: {
10289: if (n == UNOT)
10290: return !nexpr(t_lex(*++t_wp));
10291: return primary(n);
10292: }
10293:
10294: primary(n)
10295: int n; /* token */
10296: {
10297: register char *opnd1, *opnd2;
10298: int res;
10299:
10300: if (n == EOI)
10301: syntax(NULL, "argument expected");
10302: if (n == LPAREN) {
10303: res = oexpr(t_lex(*++t_wp));
10304: if (t_lex(*++t_wp) != RPAREN)
10305: syntax(NULL, "closing paren expected");
10306: return res;
10307: }
10308: if (t_wp_op && t_wp_op->op_type == UNOP) {
10309: /* unary expression */
10310: if (*++t_wp == NULL && n != FILTT)
10311: syntax(t_wp_op->op_text, "argument expected");
10312: switch (n) {
10313: case OPTION:
10314: return flag[option(*t_wp)];
10315: case STZER:
10316: return strlen(*t_wp) == 0;
10317: case STNZE:
10318: return strlen(*t_wp) != 0;
10319: case FILTT:
10320: if (!digit(**t_wp))
10321: return filstat("0", n);
10322: default: /* all other FIL* */
10323: return filstat(*t_wp, n);
10324: }
10325: }
10326: opnd1 = *t_wp;
10327: (void) t_lex(*++t_wp);
10328: if (t_wp_op && t_wp_op->op_type == BINOP) {
10329: struct t_op const *op = t_wp_op;
10330:
10331: if ((opnd2 = *++t_wp) == (char *)0)
10332: syntax(op->op_text, "argument expected");
10333:
10334: switch (op->op_num) {
10335: case STEQL:
10336: return strcmp(opnd1, opnd2) == 0;
10337: case STNEQ:
10338: return strcmp(opnd1, opnd2) != 0;
10339: case INTEQ:
10340: return evaluate(opnd1) == evaluate(opnd2);
10341: case INTNE:
10342: return evaluate(opnd1) != evaluate(opnd2);
10343: case INTGE:
10344: return evaluate(opnd1) >= evaluate(opnd2);
10345: case INTGT:
10346: return evaluate(opnd1) > evaluate(opnd2);
10347: case INTLE:
10348: return evaluate(opnd1) <= evaluate(opnd2);
10349: case INTLT:
10350: return evaluate(opnd1) < evaluate(opnd2);
10351: case FILNT:
10352: return newerf (opnd1, opnd2);
10353: case FILOT:
10354: return olderf (opnd1, opnd2);
10355: case FILEQ:
10356: return equalf (opnd1, opnd2);
10357: }
10358: }
10359: t_wp--;
10360: return strlen(opnd1) > 0;
10361: }
10362:
10363: filstat(nm, mode)
10364: char *nm;
10365: {
10366: struct stat s;
10367:
10368: switch (mode) {
10369: case FILRD:
10370: return eaccess(nm, 4) == 0;
10371: case FILWR:
10372: return eaccess(nm, 2) == 0;
10373: case FILEX:
10374: return eaccess(nm, 1) == 0;
10375: case FILREG:
10376: return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFREG;
10377: case FILID:
10378: return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFDIR;
10379: case FILCDEV:
10380: return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFCHR;
10381: case FILBDEV:
10382: return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFBLK;
10383: case FILFIFO:
10384: #ifdef S_IFIFO
10385: return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFIFO;
10386: #else
10387: return 0;
10388: #endif
10389: case FILSETU:
10390: return stat(nm, &s) == 0 && (s.st_mode & S_ISUID) == S_ISUID;
10391: case FILSETG:
10392: return stat(nm, &s) == 0 && (s.st_mode & S_ISGID) == S_ISGID;
10393: case FILSTCK:
10394: return stat(nm, &s) == 0 && (s.st_mode & S_ISVTX) == S_ISVTX;
10395: case FILGZ:
10396: return stat(nm, &s) == 0 && s.st_size > 0L;
10397: case FILTT:
10398: return isatty(getn(nm));
10399: case FILUID:
10400: return stat(nm, &s) == 0 && s.st_uid == geteuid();
10401: case FILGID:
10402: return stat(nm, &s) == 0 && s.st_gid == getegid();
10403: #ifdef S_IFLNK
10404: case FILSYM:
10405: return lstat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFLNK;
10406: #endif
10407: #ifdef S_IFSOCK
10408: case FILSOCK:
10409: return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFSOCK;
10410: #endif
10411: default:
10412: return 1;
10413: }
10414: }
10415:
10416: int
10417: t_lex(s)
10418: register char *s;
10419: {
10420: register struct t_op const *op = ops;
10421:
10422: if (s == 0) {
10423: t_wp_op = (struct t_op *)0;
10424: return EOI;
10425: }
10426: while (op->op_text) {
10427: if (strcmp(s, op->op_text) == 0) {
10428: t_wp_op = op;
10429: return op->op_num;
10430: }
10431: op++;
10432: }
10433: t_wp_op = (struct t_op *)0;
10434: return OPERAND;
10435: }
10436:
10437: newerf (f1, f2)
10438: char *f1, *f2;
10439: {
10440: struct stat b1, b2;
10441:
10442: return (stat (f1, &b1) == 0 &&
10443: stat (f2, &b2) == 0 &&
10444: b1.st_mtime > b2.st_mtime);
10445: }
10446:
10447: olderf (f1, f2)
10448: char *f1, *f2;
10449: {
10450: struct stat b1, b2;
10451:
10452: return (stat (f1, &b1) == 0 &&
10453: stat (f2, &b2) == 0 &&
10454: b1.st_mtime < b2.st_mtime);
10455: }
10456:
10457: equalf (f1, f2)
10458: char *f1, *f2;
10459: {
10460: struct stat b1, b2;
10461:
10462: return (stat (f1, &b1) == 0 &&
10463: stat (f2, &b2) == 0 &&
10464: b1.st_dev == b2.st_dev &&
10465: b1.st_ino == b2.st_ino);
10466: }
10467:
10468: ./pdksh/sh/edit.c 644 653 1762 22023 5243743652 11135 0 ustar hlu /*
10469: * Command line editing - common code
10470: *
10471: */
10472:
10473: #include "config.h"
10474: #if defined(EMACS) || defined(VI)
10475:
10476: #ifndef lint
10477: static char *RCSid = "$Id: edit.c,v 1.5 1992/08/10 12:02:25 sjg Exp $";
10478: #endif
10479:
10480: #include "stdh.h"
10481: #include <unistd.h>
10482: #include <signal.h>
10483: #include <fcntl.h>
10484: #include <errno.h>
10485: #include <setjmp.h>
10486: #ifndef NOSTDHDRS
10487: # include <string.h>
10488: #endif
10489: #include "sh.h"
10490: #include "tty.h"
10491: #define EXTERN
10492: #include "edit.h"
10493: #undef EXTERN
10494:
10495: #ifdef _CRAY2
10496: extern unsigned sleep();
10497: #endif
10498:
10499:
10500: static int x_noecho = 0;
10501:
10502: /*
10503: * read an edited command line
10504: */
10505: int
10506: x_read(fd, buf, len)
10507: int fd; /* not used */
10508: char *buf;
10509: size_t len;
10510: {
10511: static int setup_done = 0;
10512: int i;
10513:
10514: if (setup_done != 42)
10515: {
10516: setup_done = 42; /* these get done once only */
10517: x_do_init = 1;
10518: x_col = 0;
10519: ed_erase = -1, ed_kill = -1, ed_werase = -1, ed_intr = -1, ed_quit = -1;
10520: x_adj_ok = 1;
10521: x_adj_done = 0;
10522: }
10523: if (x_do_init)
10524: x_init();
10525:
10526: if (x_noecho)
10527: return(read(ttyfd, buf, len));
10528:
10529: (void)x_mode(TRUE);
10530: #ifdef EMACS
10531: if (flag[FEMACS])
10532: i = x_emacs(buf, len);
10533: else
10534: #endif
10535: #ifdef VI
10536: if (flag[FVI])
10537: i = x_vi(buf, len);
10538: else
10539: #endif
10540: i = -1; /* internal error */
10541: (void) x_mode(FALSE);
10542: if (i > 4 && strstr(buf, "stty"))
10543: x_do_init = 1;
10544: if (i < 0 && errno == EINTR)
10545: trapsig(SIGINT);
10546: return i;
10547: }
10548:
10549: /* tty I/O */
10550:
10551: int
10552: x_getc()
10553: {
10554: char c;
10555:
10556: /*
10557: * This allows the arival of a SIGCHLD to not disturb us until
10558: * we are ready.
10559: * BSD and other systems that automatically rety a read after
10560: * an interrupt don't need this but it doesn't do any harm
10561: * either.
10562: */
10563: retry:
10564: if (read(ttyfd, &c, 1) != 1)
10565: {
10566: if (sigchld_caught) /* just a SIGCHLD ? */
10567: {
10568: goto retry;
10569: }
10570: return -1;
10571: }
10572: return c & 0x7F;
10573: }
10574:
10575: void
10576: x_flush()
10577: {
10578: fflush(stdout);
10579: }
10580:
10581:
10582: /* NAME:
10583: * x_adjust - redraw the line adjusting starting point etc.
10584: *
10585: * DESCRIPTION:
10586: * This function is called when we have exceeded the bounds
10587: * of the edit window. It increments x_adj_done so that
10588: * functions like x_ins and x_delete know that we have been
10589: * called and can skip the x_bs() stuff which has already
10590: * been done by x_redraw.
10591: *
10592: * RETURN VALUE:
10593: * None
10594: */
10595:
10596: void
10597: x_adjust()
10598: {
10599: x_adj_done++; /* flag the fact that we were called. */
10600: #ifdef EMACS
10601: /*
10602: * we had a promblem if the prompt length > x_cols / 2
10603: */
10604: if ((xbp = xcp - (x_displen / 2)) < xbuf)
10605: xbp = xbuf;
10606: xlp_valid = FALSE;
10607: x_redraw(x_cols);
10608: #endif
10609: x_flush();
10610: }
10611:
10612: void
10613: x_putc(c)
10614: int c;
10615: {
10616: if (c == '\r' || c == '\n')
10617: x_col = 0;
10618: if (x_col < x_cols)
10619: {
10620: putc(c, stdout);
10621: switch(c)
10622: {
10623: case BEL:
10624: break;
10625: case '\r':
10626: case '\n':
10627: break;
10628: case '\b':
10629: x_col--;
10630: break;
10631: default:
10632: x_col++;
10633: break;
10634: }
10635: }
10636: if (x_adj_ok && (x_col < 0 || x_col >= (x_cols - 2)))
10637: {
10638: x_adjust();
10639: }
10640: }
10641:
10642: #ifdef DEBUG
10643: int
10644: x_debug_info()
10645: {
10646: x_flush();
10647: printf("\nksh debug:\n");
10648: printf("\tx_col == %d,\t\tx_cols == %d,\tx_displen == %d\n",
10649: x_col, x_cols, x_displen);
10650: printf("\txcp == 0x%lx,\txep == 0x%lx\n", (long) xcp, (long) xep);
10651: printf("\txbp == 0x%lx,\txbuf == 0x%lx\n", (long) xbp, (long) xbuf);
10652: printf("\txlp == 0x%lx\n", (long) xlp);
10653: printf("\txlp == 0x%lx\n", (long) x_lastcp());
10654: printf("\n");
10655: x_redraw(-1);
10656: return 0;
10657: }
10658: #endif
10659:
10660: void
10661: x_puts(s)
10662: register char *s;
10663: {
10664: register int adj = x_adj_done;
10665:
10666: while (*s && adj == x_adj_done)
10667: x_putc(*s++);
10668: }
10669:
10670: #ifdef _BSD
10671: static struct sgttyb cb, cborig;
10672: #ifdef TIOCGATC
10673: static struct ttychars lchars, lcharsorig;
10674: #else
10675: static struct tchars tchars, tcharsorig;
10676: #ifdef TIOCGLTC
10677: static struct ltchars ltchars, ltcharsorig;
10678: #endif
10679: #endif
10680: #else
10681: #ifdef _POSIX_TERM
10682: static struct termios cb, cborig;
10683: #else
10684: static struct termio cb, cborig;
10685: #endif
10686: #endif
10687:
10688: /* initialize editing mode */
10689: void
10690: x_init()
10691: {
10692: x_do_init = 0;
10693: #ifdef _BSD
10694: (void)ioctl(ttyfd, TIOCGETP, &cborig);
10695: if ((cborig.sg_flags & ECHO) == 0)
10696: x_noecho = 1;
10697: cb = cborig;
10698: ed_erase = cb.sg_erase;
10699: ed_kill = cb.sg_kill;
10700: cb.sg_flags &= ~ECHO;
10701: cb.sg_flags |= CBREAK;
10702: #ifdef TIOCGATC
10703: (void)ioctl(ttyfd, TIOCGATC, &lcharsorig);
10704: lchars = lcharsorig;
10705: ed_werase = lchars.tc_werasc;
10706: lchars.tc_suspc = -1;
10707: lchars.tc_dsuspc = -1;
10708: lchars.tc_lnextc = -1;
10709: lchars.tc_statc = -1;
10710: lchars.tc_intrc = -1;
10711: lchars.tc_quitc = -1;
10712: lchars.tc_rprntc = -1;
10713: #else
10714: (void)ioctl(ttyfd, TIOCGETC, &tcharsorig);
10715: #ifdef TIOCGLTC
10716: (void)ioctl(ttyfd, TIOCGLTC, <charsorig);
10717: #endif
10718: tchars = tcharsorig;
10719: #ifdef TIOCGLTC
10720: ltchars = ltcharsorig;
10721: ed_werase = ltchars.t_werasc;
10722: ltchars = ltcharsorig;
10723: ltchars.t_suspc = -1;
10724: ltchars.t_dsuspc = -1;
10725: ltchars.t_lnextc = -1;
10726: #endif
10727: tchars.t_intrc = -1;
10728: tchars.t_quitc = -1;
10729: #ifdef TIOCGLTC
10730: ltchars.t_rprntc = -1;
10731: #endif
10732: #endif
10733: #else /* !_BSD */
10734: #ifdef _POSIX_TERM
10735: (void) tcgetattr(ttyfd, &cborig);
10736: #else
10737: (void)ioctl(ttyfd, TCGETA, &cborig);
10738: #endif
10739: if ((cborig.c_lflag & ECHO) == 0)
10740: x_noecho = 1;
10741: cb = cborig;
10742: ed_erase = cb.c_cc[VERASE]; /* TODO */
10743: ed_kill = cb.c_cc[VKILL]; /* TODO */
10744: ed_intr = cb.c_cc[VINTR];
10745: ed_quit = cb.c_cc[VQUIT];
10746: #ifdef _CRAY2 /* brain-damaged terminal handler */
10747: cb.c_lflag &= ~(ICANON|ECHO);
10748: /* rely on print routine to map '\n' to CR,LF */
10749: #else
10750: cb.c_iflag &= ~(INLCR|ICRNL);
10751: #ifdef _BSD_SYSV /* need to force CBREAK instead of RAW (need CRMOD on output) */
10752: cb.c_lflag &= ~(ICANON|ECHO);
10753: #else
10754: #ifdef SWTCH /* need CBREAK to handle swtch char */
10755: cb.c_lflag &= ~(ICANON|ECHO);
10756: cb.c_lflag |= ISIG;
10757: cb.c_cc[VINTR] = 0377;
10758: cb.c_cc[VQUIT] = 0377;
10759: #else
10760: cb.c_lflag &= ~(ISIG|ICANON|ECHO);
10761: #endif
10762: #endif
10763: cb.c_cc[VTIME] = 0;
10764: cb.c_cc[VMIN] = 1;
10765: #endif /* _CRAY2 */
10766: #endif
10767: #ifdef EMACS
10768: x_emacs_keys(ed_erase, ed_kill, ed_werase, ed_intr, ed_quit);
10769: #endif
10770: }
10771:
10772: static bool_t x_cur_mode = FALSE;
10773:
10774: /* set/clear tty cbreak mode */
10775:
10776: #ifdef _BSD
10777: bool_t
10778: x_mode(onoff)
10779: bool_t onoff;
10780: {
10781: bool_t prev;
10782:
10783: if (x_cur_mode == onoff) return x_cur_mode;
10784: prev = x_cur_mode;
10785: x_cur_mode = onoff;
10786: if (onoff) {
10787: (void)ioctl(ttyfd, TIOCSETN, &cb);
10788: #ifdef TIOCGATC
10789: (void)ioctl(ttyfd, TIOCSATC, &lchars);
10790: #else
10791: (void)ioctl(ttyfd, TIOCSETC, &tchars);
10792: #ifdef TIOCGLTC
10793: (void)ioctl(ttyfd, TIOCSLTC, <chars);
10794: #endif
10795: #endif
10796: }
10797: else {
10798: (void)ioctl(ttyfd, TIOCSETN, &cborig);
10799: #ifdef TIOCGATC
10800: (void)ioctl(ttyfd, TIOCSATC, &lcharsorig);
10801: #else
10802: (void)ioctl(ttyfd, TIOCSETC, &tcharsorig);
10803: #ifdef TIOCGLTC
10804: (void)ioctl(ttyfd, TIOCSLTC, <charsorig);
10805: #endif
10806: #endif
10807: }
10808: return prev;
10809: }
10810:
10811: #else /* !_BSD */
10812:
10813: bool_t
10814: x_mode(onoff)
10815: bool_t onoff;
10816: {
10817: bool_t prev;
10818:
10819: if (x_cur_mode == onoff) return x_cur_mode;
10820: prev = x_cur_mode;
10821: x_cur_mode = onoff;
10822:
10823: if (onoff) {
10824: #ifdef _POSIX_TERM
10825: (void) tcsetattr(ttyfd, TCSADRAIN, &cb);
10826: #else
10827: #ifndef TCSETAW /* e.g. Cray-2 */
10828: /* first wait for output to drain */
10829: #ifdef TCSBRK
10830: (void)ioctl(ttyfd, TCSBRK, 1);
10831: #else /* the following kludge is minimally intrusive, but sometimes fails */
10832: (void)sleep((unsigned)1); /* fake it */
10833: #endif
10834: #endif
10835: #if defined(_BSD_SYSV) || !defined(TCSETAW)
10836: /* _BSD_SYSV needs to force TIOCSETN instead of TIOCSETP (preserve type-ahead) */
10837: (void)ioctl(ttyfd, TCSETA, &cb);
10838: #else
10839: (void)ioctl(ttyfd, TCSETAW, &cb);
10840: #endif
10841: #endif
10842: }
10843: else {
10844: #ifdef _POSIX_TERM
10845: (void) tcsetattr(ttyfd, TCSADRAIN, &cborig);
10846: #else
10847: #ifndef TCSETAW /* e.g. Cray-2 */
10848: /* first wait for output to drain */
10849: #ifdef TCSBRK
10850: (void)ioctl(ttyfd, TCSBRK, 1);
10851: #else
10852: /* doesn't seem to be necessary when leaving xmode */
10853: /* (void)sleep((unsigned)1); /* fake it */
10854: #endif
10855: #endif
10856: #if defined(_BSD_SYSV) || !defined(TCSETAW)
10857: /* _BSD_SYSV needs to force TIOCSETN instead of TIOCSETP (preserve type-ahead) */
10858: (void)ioctl(ttyfd, TCSETA, &cborig);
10859: #else
10860: (void)ioctl(ttyfd, TCSETAW, &cborig);
10861: #endif
10862: #endif
10863: }
10864: return prev;
10865: }
10866: #endif /* _BSD */
10867:
10868:
10869: /* NAME:
10870: * promptlen - calculate the length of PS1 etc.
10871: *
10872: * DESCRIPTION:
10873: * This function is based on a fix from [email protected]
10874: * It fixes a bug in that if PS1 contains '!', the length
10875: * given by strlen() is probably wrong.
10876: *
10877: * RETURN VALUE:
10878: * length
10879: */
10880:
10881: int
10882: promptlen(cp)
10883: register char *cp;
10884: {
10885: register int count = 0;
10886:
10887: while (*cp)
10888: {
10889: if ( *cp++ != '!' )
10890: count++;
10891: else
10892: if ( *cp == '!' )
10893: {
10894: cp++;
10895: count++;
10896: }
10897: else
10898: {
10899: register int i = source->line;
10900:
10901: do
10902: {
10903: count ++;
10904: }
10905: while( ( i /= 10 ) > 0 );
10906: }
10907: }
10908: return count;
10909: }
10910:
10911:
10912: /*
10913: * this function check the environment
10914: * for FCEDIT,EDITOR or VISUAL
10915: * as a hint to what edit mode is desired.
10916: */
10917: init_editmode()
10918: {
10919: static char *ev[] = { "FCEDIT", "EDITOR", "VISUAL", NULL };
10920: register int i;
10921: register char *rcp;
10922:
10923: for (i = 0; ev[i]; i++)
10924: {
10925: #ifdef DEBUG
10926: (void) fprintf(stderr, "check %s\n", ev[i]);
10927: #endif
10928: if ((rcp = strval(global(ev[i]))) && *rcp)
10929: break;
10930: }
10931: if (ev[i] && rcp)
10932: {
10933: set_editmode(rcp);
10934: }
10935: return 0;
10936: }
10937:
10938: void
10939: set_editmode(ed)
10940: char *ed;
10941: {
10942: register char *rcp;
10943:
10944: #ifdef DEBUG
10945: (void) fprintf(stderr, "set_editmode(%s)\n", ed);
10946: #endif
10947: if (rcp = strrchr(ed, '/'))
10948: ed = ++rcp;
10949: #ifdef EMACS
10950: if (strstr(ed, "emacs"))
10951: {
10952: flag[FVI] = 0;
10953: flag[FEMACS] = 1;
10954: }
10955: #endif
10956: #if defined(EMACS) && defined(VI)
10957: else
10958: #endif
10959: #ifdef VI
10960: if (strstr(ed, "vi"))
10961: {
10962: flag[FVI] = 1;
10963: flag[FEMACS] = 0;
10964: }
10965: #endif
10966: }
10967: #endif
10968: ./pdksh/sh/history.c 644 653 1762 43137 5243743676 11730 0 ustar hlu /*
10969: * command history
10970: *
10971: * only implements in-memory history.
10972: */
10973:
10974: #ifndef lint
10975: static char *RCSid = "$Id: history.c,v 1.4 1992/08/12 14:15:33 sjg Exp $";
10976: #endif
10977: /*
10978: * This file contains
10979: * a) the original in-memory history mechanism
10980: * b) a simple file saving history mechanism done by sjg@zen
10981: * define EASY_HISTORY to get this
10982: * c) a more complicated mechanism done by [email protected]
10983: * that more closely follows the real ksh way of doing
10984: * things. You need to have the mmap system call for this
10985: * to work on your system
10986: */
10987:
10988: #include "config.h"
10989: #include "stdh.h"
10990:
10991: #ifdef EASY_HISTORY
10992:
10993: #include <errno.h>
10994: #include <setjmp.h>
10995: #include "sh.h"
10996:
10997: static FILE *hist_fh = NULL;
10998: static FILE *hist_open ARGS((char *mode));
10999: #ifndef HISTFILE
11000: # define HISTFILE ".pdksh_hist"
11001: #endif
11002:
11003: #else
11004: /* Defines and includes for the complicated case */
11005:
11006: #include <sys/types.h>
11007: #include <sys/stat.h>
11008: #include <sys/file.h>
11009: #include <sys/mman.h>
11010: #include <errno.h>
11011: #include <setjmp.h>
11012: #include "sh.h"
11013:
11014: /*
11015: * variables for handling the data file
11016: */
11017: static char *hname;
11018: static int histfd;
11019: static int hsize;
11020: static int hstarted;
11021:
11022: static int hist_count_lines ARGS((unsigned char *, int));
11023: static int hist_shrink ARGS((unsigned char *, int));
11024: static unsigned char *hist_skip_back ARGS((unsigned char *,int *,int));
11025: static void histload ARGS((Source *, unsigned char *, int));
11026: static void histinsert ARGS((Source *, int, unsigned char *));
11027: static void writehistfile ARGS((int, char *));
11028: static int sprinkle ARGS((int));
11029:
11030: #ifdef MAP_FILE
11031: #define MAP_FLAGS MAP_FILE|MAP_PRIVATE
11032: #else
11033: #define MAP_FLAGS MAP_PRIVATE
11034: #endif
11035:
11036: #endif /* of EASY_HISTORY */
11037:
11038:
11039: char *histrpl();
11040: char **current;
11041: int curpos;
11042:
11043: c_fc(wp)
11044: register char **wp;
11045: {
11046: register char *id;
11047: FILE *f;
11048: struct temp *tf;
11049: register char **hp;
11050: char **hbeg, **hend;
11051: char *p, *cmd = NULL;
11052: int lflag = 0, nflag = 0, sflag = 0, rflag = 0, gflag = 0;
11053: int done = 0;
11054: void histbackup();
11055:
11056: for (wp++; (id = *wp) != NULL && *id++ == '-' && !done; wp++)
11057: while (*id && !done) {
11058: switch (*id++) {
11059: case 'l':
11060: lflag++;
11061: break;
11062: case 'n':
11063: nflag++;
11064: break;
11065: case 'r':
11066: rflag++;
11067: break;
11068: case 'g':
11069: gflag++;
11070: break;
11071: case 'e':
11072: if (++wp && (p = *wp)) {
11073: if (p[0] == '-' && !p[1]) {
11074: sflag++;
11075: } else {
11076: cmd = alloc((size_t)(strlen(p)+4),ATEMP);
11077: strcpy(cmd, p);
11078: strcat(cmd, " $_");
11079: }
11080: } else
11081: errorf("argument expected\n");
11082: id = "";
11083: break;
11084: default:
11085: wp--;
11086: done++;
11087: break;
11088: }
11089: }
11090:
11091: if (sflag) {
11092: char *pat = NULL, *rep = NULL;
11093:
11094: hp = histptr - 1;
11095: while ((id = *wp++) != NULL) {
11096: /* todo: multiple substitutions */
11097: if ((p = strchr(id, '=')) != NULL) {
11098: pat = id;
11099: rep = p;
11100: *rep++ = '\0';
11101: } else
11102: hp = histget(id);
11103: }
11104:
11105: if (hp == NULL || hp < history)
11106: errorf("cannot find history\n");
11107: if (pat == NULL)
11108: strcpy(line, *hp);
11109: else
11110: histrpl(*hp, pat, rep, gflag);
11111: histbackup();
11112: #ifdef EASY_HISTORY
11113: histsave(line);
11114: #else
11115: histsave(source->line+1, line, 1);
11116: #endif
11117: histpush--;
11118: line[0] = '\0';
11119: return 0;
11120: }
11121:
11122: if (*wp != NULL) {
11123: hbeg = histget(*wp++); /* first */
11124: if (*wp != NULL)
11125: hend = histget(*wp++); /* last */
11126: else if (lflag)
11127: hend = histptr;
11128: else
11129: hend = hbeg;
11130: } else {
11131: if (lflag)
11132: hbeg = histptr - 16, hend = histptr;
11133: else
11134: hbeg = hend = histptr - 1;
11135: if (hbeg < history)
11136: hbeg = history;
11137: }
11138: if (hbeg == NULL || hend == NULL)
11139: errorf("can't find history\n");
11140:
11141: if (lflag)
11142: f = stdout;
11143: else {
11144: nflag++;
11145: tf = maketemp(ATEMP);
11146: tf->next = e.temps; e.temps = tf;
11147: f = fopen(tf->name, "w");
11148: if (f == NULL)
11149: errorf("cannot create temp file %s", tf->name);
11150: setvbuf(f, (char *)NULL, _IOFBF, BUFSIZ);
11151: }
11152:
11153: for (hp = (rflag ? hend : hbeg); rflag ? (hp >= hbeg) : (hp <= hend);
11154: rflag ? hp-- : hp++) {
11155: if (!nflag)
11156: fprintf(f, "%3d: ", source->line - (int)(histptr-hp));
11157: fprintf(f, "%s\n", *hp);
11158: }
11159:
11160: if (lflag)
11161: return 0;
11162: else
11163: fclose(f);
11164:
11165: setstr(local("_"), tf->name);
11166: if (cmd) {
11167: command(cmd); /* edit temp file */
11168: afree(cmd, ATEMP);
11169: } else
11170: command("${FCEDIT:-/bin/ed} $_");
11171:
11172: f = fopen(tf->name, "r");
11173: if (f == NULL)
11174: errorf("cannot open temp file %s\n", tf->name);
11175: setvbuf(f, (char *)NULL, _IOFBF, BUFSIZ);
11176: /* we push the editted lines onto the history list */
11177: while (fgets(line, sizeof(line), f) != NULL) {
11178: #ifdef EASY_HISTORY
11179: histsave(line);
11180: #else
11181: histsave(source->line, line, 1);
11182: #endif
11183: histpush--;
11184: }
11185: line[0] = '\0';
11186: fclose(f);
11187:
11188: return 0;
11189: }
11190:
11191: /******************************/
11192: /* Back up over last histsave */
11193: /******************************/
11194: void
11195: histbackup()
11196: {
11197: static int last_line = -1;
11198:
11199: if (histptr > history && last_line != source->line) {
11200: source->line--;
11201: afree((void*)*histptr, APERM);
11202: histptr--;
11203: last_line = source->line;
11204: }
11205: }
11206:
11207: /*
11208: * get pointer to history given pattern
11209: * pattern is a number or string
11210: */
11211: char **
11212: histget(str)
11213: char *str;
11214: {
11215: register char **hp = NULL;
11216:
11217: if (*str == '-')
11218: hp = histptr + getn(str);
11219: else
11220: if (digit(*str))
11221: hp = histptr + (getn(str) - source->line);
11222: else
11223: if (*str == '?') { /* unanchored match */
11224: for (hp = histptr-1; hp >= history; hp--)
11225: if (strstr(*hp, str+1) != NULL)
11226: break;
11227: } else { /* anchored match */
11228: for (hp = histptr; hp >= history; hp--)
11229: if (strncmp(*hp, str, strlen(str)) == 0)
11230: break;
11231: }
11232:
11233: return (history <= hp && hp <= histptr) ? hp : NULL;
11234: }
11235:
11236: char *
11237: histrpl(s, pat, rep, global)
11238: char *s;
11239: char *pat, *rep;
11240: int global;
11241: {
11242: char *s1, *p, *last = NULL;
11243: int len = strlen(pat);
11244:
11245: if (strlen(s) - strlen(pat) + strlen(rep) >= LINE)
11246: errorf("substitution too long\n");
11247: line[0] = '\0';
11248: p = line;
11249: while (s1 = strstr(s, pat)) {
11250: strncpy(p, s, s1 - s); /* first part */
11251: strcpy(p + (s1 - s), rep); /* replacement */
11252: s = s1 + len;
11253: last = s1;
11254: p = strchr(p, 0);
11255: if (!global)
11256: s = "";
11257: }
11258: if (last)
11259: strcpy(p, last + len); /* last part */
11260: else
11261: errorf("substitution failed\n");
11262: return line;
11263: }
11264:
11265: /*
11266: * Return the current position.
11267: */
11268: char **
11269: histpos()
11270: {
11271: return current;
11272: }
11273:
11274: int
11275: histN()
11276: {
11277: return curpos;
11278: }
11279:
11280: int
11281: histnum(n)
11282: {
11283: int last = histptr - history;
11284:
11285: if (n < 0 || n >= last) {
11286: current = histptr;
11287: curpos = last;
11288: return last;
11289: } else {
11290: current = &history[n];
11291: curpos = n;
11292: return n;
11293: }
11294: }
11295:
11296: /*
11297: * This will become unecessary if histget is modified to allow
11298: * searching from positions other than the end, and in either
11299: * direction.
11300: */
11301: char *
11302: findhist(start, fwd, str)
11303: int start;
11304: int fwd;
11305: char *str;
11306: {
11307: int pos = start;
11308: char *line, *last;
11309:
11310: /* XXX check that we are valid after this */
11311: if (fwd)
11312: pos++;
11313: else
11314: pos--;
11315: histnum(pos);
11316: line = *histpos();
11317: do {
11318: last = line;
11319: if (strstr(line, str) != 0) {
11320: /* keep position current */
11321: return (line);
11322: }
11323: if (fwd)
11324: pos++;
11325: else
11326: pos--;
11327: histnum(pos);
11328: line = *histpos();
11329: } while (line && *line && line != last && pos>0);
11330:
11331: histnum(start);
11332: if (pos <= 0)
11333: return (char*)-1; /* TODO */
11334: return NULL;
11335: }
11336:
11337: #ifdef EASY_HISTORY
11338: /*
11339: * save command in history
11340: */
11341: void
11342: histsave(cmd)
11343: char *cmd;
11344: {
11345: register char **hp = histptr;
11346: char *cp;
11347:
11348: if (++hp >= history + HISTORY) { /* remove oldest command */
11349: afree((void*)*history, APERM);
11350: for (hp = history; hp < history + HISTORY - 1; hp++)
11351: hp[0] = hp[1];
11352: }
11353: *hp = strsave(cmd, APERM);
11354: if ((cp = strchr(*hp, '\n')) != NULL)
11355: *cp = '\0';
11356: histptr = hp;
11357: }
11358:
11359: /*
11360: * 92-04-25 <sjg@zen>
11361: * A simple history file implementation.
11362: * At present we only save the history when we exit.
11363: * This can cause problems when there are multiple shells are
11364: * running under the same user-id. The last shell to exit gets
11365: * to save its history.
11366: */
11367: void
11368: hist_init(s)
11369: Source *s;
11370: {
11371: static int once = 0;
11372: FILE *fh;
11373:
11374: if (once++)
11375: return;
11376:
11377: if (fh = hist_open("r"))
11378: {
11379: while (fgets(line, sizeof(line), fh) != NULL)
11380: {
11381: histsave(line);
11382: s->line++;
11383: }
11384: line[0] = '\0';
11385: fclose(fh);
11386: #if 0 /* this might be a good idea? */
11387: hist_fh = hist_open("a");
11388: #endif
11389: }
11390:
11391: }
11392:
11393: void
11394: init_histvec()
11395: { ; }
11396:
11397: /*
11398: * save our history.
11399: * We check that we do not have more than we are allowed.
11400: * If the history file is read-only we do nothing.
11401: * Handy for having all shells start with a useful history set.
11402: */
11403:
11404: void
11405: hist_finish()
11406: {
11407: static int once = 0;
11408: FILE *fh;
11409: register int i, mx;
11410: register char **hp, *mode = "w";
11411:
11412: if (once++)
11413: return;
11414: if ((mx = atoi(strval(global("HISTSIZE")))) > HISTORY || mx <= 0)
11415: mx = HISTORY;
11416: /* check how many we have */
11417: i = histptr - history;
11418: if (i >= mx)
11419: {
11420: hp = &histptr[-mx];
11421: }
11422: else
11423: {
11424: hp = history;
11425: }
11426: if (fh = hist_open(mode))
11427: {
11428: for (i = 0; i < mx && hp[i]; i++)
11429: fprintf(fh, "%s\n", hp[i]);
11430: fclose(fh);
11431: }
11432: }
11433:
11434:
11435: /*
11436: * simply grab the nominated history file.
11437: */
11438: static FILE *
11439: hist_open(mode)
11440: char *mode;
11441: {
11442: register char *rcp;
11443: FILE *fh;
11444: char name[128];
11445:
11446: if ((rcp = strval(global("HISTFILE"))) == NULL || *rcp == '\0')
11447: {
11448: (void) sprintf(name, "%s/%s", strval(global("HOME")), HISTFILE);
11449: rcp = name;
11450: }
11451: return fopen(rcp, mode);
11452: }
11453:
11454: #else /* EASY_HISTORY */
11455:
11456: /*
11457: * Routines added by Peter Collinson BSDI(Europe)/Hillside Systems to
11458: * a) permit HISTSIZE to control number of lines of history stored
11459: * b) maintain a physical history file
11460: *
11461: * It turns out that there is a lot of ghastly hackery here
11462: */
11463:
11464:
11465: /*
11466: * save command in history
11467: */
11468: void
11469: histsave(lno, cmd, dowrite)
11470: int lno;
11471: char *cmd;
11472: int dowrite;
11473: {
11474: register char **hp;
11475: char *cp;
11476:
11477: cmd = strsave(cmd, APERM);
11478: if ((cp = strchr(cmd, '\n')) != NULL)
11479: *cp = '\0';
11480:
11481: if (histfd && dowrite)
11482: writehistfile(lno, cmd);
11483:
11484: hp = histptr;
11485:
11486: if (++hp >= history + histsize) { /* remove oldest command */
11487: afree((void*)*history, APERM);
11488: for (hp = history; hp < history + histsize - 1; hp++)
11489: hp[0] = hp[1];
11490: }
11491: *hp = cmd;
11492: histptr = hp;
11493: }
11494:
11495: /*
11496: * set history
11497: * this means reallocating the dataspace
11498: */
11499: void
11500: sethistsize(n)
11501: int n;
11502: {
11503: int offset;
11504:
11505: if (n != histsize) {
11506: offset = histptr - history;
11507: history = (char **)aresize(history, n*sizeof(char *), APERM);
11508:
11509: if (n < histsize && offset > histsize)
11510: offset = histsize;
11511:
11512: histsize = n;
11513: histptr = history + offset;
11514: }
11515: }
11516:
11517: /*
11518: * set history file
11519: * This can mean reloading/resetting/starting history file
11520: * maintenance
11521: */
11522: void
11523: sethistfile(name)
11524: char *name;
11525: {
11526: /* if not started then nothing to do */
11527: if (hstarted == 0)
11528: return;
11529:
11530: /* if the name is the same as the name we have */
11531: if (hname && strcmp(hname, name) == 0)
11532: return;
11533:
11534: /*
11535: * its a new name - possibly
11536: */
11537: if (histfd) {
11538: /* yes the file is open */
11539: (void) close(histfd);
11540: histfd = 0;
11541: hsize = 0;
11542: afree(hname, APERM);
11543: hname = NULL;
11544: /* let's reset the history */
11545: histptr = history - 1;
11546: source->line = 0;
11547: }
11548:
11549: hist_init(source);
11550: }
11551:
11552: /*
11553: * initialise the history vector
11554: */
11555: void
11556: init_histvec()
11557: {
11558: if (history == (char **)NULL) {
11559: history = (char **)alloc(histsize*sizeof (char *), APERM);
11560: histptr = history-1;
11561: }
11562: }
11563:
11564: /*
11565: * Write history data to a file nominated by HISTFILE
11566: * if HISTFILE is unset then history still happens, but
11567: * the data is not written to a file
11568: * All copies of ksh looking at the file will maintain the
11569: * same history. This is ksh behaviour.
11570: *
11571: * This stuff uses mmap()
11572: * if your system ain't got it - then you'll have to undef HISTORYFILE
11573: */
11574:
11575: /*
11576: * Open a history file
11577: * Format is:
11578: * Bytes 1, 2: HMAGIC - just to check that we are dealing with
11579: * the correct object
11580: * Then follows a number of stored commands
11581: * Each command is
11582: * <command byte><command number(4 bytes)><bytes><null>
11583: */
11584: #define HMAGIC1 0xab
11585: #define HMAGIC2 0xcd
11586: #define COMMAND 0xff
11587:
11588: void
11589: hist_init(s)
11590: Source *s;
11591: {
11592: unsigned char *base;
11593: int lines;
11594: int bytes;
11595:
11596: hstarted = 1;
11597:
11598: if (flag[FTALKING] == 0)
11599: return;
11600:
11601: hname = strval(global("HISTFILE"));
11602: if (hname == NULL)
11603: return;
11604: hname = strsave(hname, APERM);
11605:
11606: retry:
11607: /* we have a file and are interactive */
11608: if ((histfd = open(hname, O_RDWR|O_CREAT|O_APPEND, 0600)) < 0)
11609: return;
11610:
11611: histfd = fcntl(histfd, F_DUPFD, FDBASE);
11612:
11613: (void) fcntl(histfd, F_SETFD, 1); /* close on exec */
11614:
11615: (void) flock(histfd, LOCK_EX);
11616:
11617: hsize = lseek(histfd, 0L, L_XTND);
11618:
11619: if (hsize == 0) {
11620: /* add magic */
11621: if (sprinkle(histfd)) {
11622: hist_finish();
11623: return;
11624: }
11625: }
11626: else if (hsize > 0) {
11627: /*
11628: * we have some data
11629: */
11630: base = (unsigned char *)mmap(0, hsize, PROT_READ, MAP_FLAGS, histfd, 0);
11631: /*
11632: * check on its validity
11633: */
11634: if ((int)base == -1 || *base != HMAGIC1 || base[1] != HMAGIC2) {
11635: if ((int)base != -1)
11636: munmap((caddr_t)base, hsize);
11637: hist_finish();
11638: unlink(hname);
11639: goto retry;
11640: }
11641: if (hsize > 2) {
11642: lines = hist_count_lines(base+2, hsize-2);
11643: if (lines > histsize) {
11644: /* we need to make the file smaller */
11645: if (hist_shrink(base, hsize))
11646: unlink(hname);
11647: munmap((caddr_t)base, hsize);
11648: hist_finish();
11649: goto retry;
11650: }
11651: }
11652: histload(s, base+2, hsize-2);
11653: munmap((caddr_t)base, hsize);
11654: }
11655: (void) flock(histfd, LOCK_UN);
11656: hsize = lseek(histfd, 0L, L_XTND);
11657: }
11658:
11659: typedef enum state {
11660: shdr, /* expecting a header */
11661: sline, /* looking for a null byte to end the line */
11662: sn1, /* bytes 1 to 4 of a line no */
11663: sn2, sn3, sn4,
11664: } State;
11665:
11666: static int
11667: hist_count_lines(base, bytes)
11668: register unsigned char *base;
11669: register int bytes;
11670: {
11671: State state = shdr;
11672: register lines = 0;
11673:
11674: while (bytes--) {
11675: switch (state)
11676: {
11677: case shdr:
11678: if (*base == COMMAND)
11679: state = sn1;
11680: break;
11681: case sn1:
11682: state = sn2; break;
11683: case sn2:
11684: state = sn3; break;
11685: case sn3:
11686: state = sn4; break;
11687: case sn4:
11688: state = sline; break;
11689: case sline:
11690: if (*base == '\0')
11691: lines++, state = shdr;
11692: }
11693: base++;
11694: }
11695: return lines;
11696: }
11697:
11698: /*
11699: * Shrink the history file to histsize lines
11700: */
11701: static int
11702: hist_shrink(oldbase, oldbytes)
11703: unsigned char *oldbase;
11704: int oldbytes;
11705: {
11706: int fd;
11707: char nfile[1024];
11708: struct stat statb;
11709: unsigned char *nbase = oldbase;
11710: int nbytes = oldbytes;
11711:
11712: nbase = hist_skip_back(nbase, &nbytes, histsize);
11713: if (nbase == NULL)
11714: return 1;
11715: if (nbase == oldbase)
11716: return 0;
11717:
11718: /*
11719: * create temp file
11720: */
11721: (void) sprintf(nfile, "%s.%d", hname, getpid());
11722: if ((fd = creat(nfile, 0600)) < 0)
11723: return 1;
11724:
11725: if (sprinkle(fd)) {
11726: close(fd);
11727: unlink(nfile);
11728: return 1;
11729: }
11730: if (write(fd, nbase, nbytes) != nbytes) {
11731: close(fd);
11732: unlink(nfile);
11733: return 1;
11734: }
11735: /*
11736: * worry about who owns this file
11737: */
11738: if (fstat(histfd, &statb) >= 0)
11739: fchown(fd, statb.st_uid, statb.st_gid);
11740: close(fd);
11741:
11742: /*
11743: * rename
11744: */
11745: if (rename(nfile, hname) < 0)
11746: return 1;
11747: return 0;
11748: }
11749:
11750:
11751: /*
11752: * find a pointer to the data `no' back from the end of the file
11753: * return the pointer and the number of bytes left
11754: */
11755: static unsigned char *
11756: hist_skip_back(base, bytes, no)
11757: unsigned char *base;
11758: int *bytes;
11759: int no;
11760: {
11761: register int lines = 0;
11762: register unsigned char *ep;
11763:
11764:
11765:
11766: for (ep = base + *bytes; ep > base; ep--)
11767: {
11768: while (*ep != COMMAND) {
11769: if (--ep == base)
11770: break;
11771: }
11772: if (++lines == no) {
11773: *bytes = *bytes - ((char *)ep - (char *)base);
11774: return ep;
11775: }
11776: }
11777: if (ep > base)
11778: return base;
11779: return NULL;
11780: }
11781:
11782: /*
11783: * load the history structure from the stored data
11784: */
11785: static void
11786: histload(s, base, bytes)
11787: Source *s;
11788: register unsigned char *base;
11789: register int bytes;
11790: {
11791: State state;
11792: int lno;
11793: unsigned char *line;
11794:
11795: for (state = shdr; bytes-- > 0; base++) {
11796: switch (state) {
11797: case shdr:
11798: if (*base == COMMAND)
11799: state = sn1;
11800: break;
11801: case sn1:
11802: lno = (((*base)&0xff)<<24);
11803: state = sn2;
11804: break;
11805: case sn2:
11806: lno |= (((*base)&0xff)<<16);
11807: state = sn3;
11808: break;
11809: case sn3:
11810: lno |= (((*base)&0xff)<<8);
11811: state = sn4;
11812: break;
11813: case sn4:
11814: lno |= (*base)&0xff;
11815: line = base+1;
11816: state = sline;
11817: break;
11818: case sline:
11819: if (*base == '\0') {
11820: /* worry about line numbers */
11821: if (histptr >= history && lno-1 != s->line) {
11822: /* a replacement ? */
11823: histinsert(s, lno, line);
11824: }
11825: else {
11826: s->line = lno;
11827: histsave(lno, (char *)line, 0);
11828: }
11829: state = shdr;
11830: }
11831: }
11832: }
11833: }
11834:
11835: /*
11836: * Insert a line into the history at a specified number
11837: */
11838: static void
11839: histinsert(s, lno, line)
11840: Source *s;
11841: int lno;
11842: unsigned char *line;
11843: {
11844: register char **hp;
11845:
11846: if (lno >= s->line-(histptr-history) && lno <= s->line) {
11847: hp = &histptr[lno-s->line];
11848: if (*hp)
11849: afree((void*)*hp, APERM);
11850: *hp = strsave((char *)line, APERM);
11851: }
11852: }
11853:
11854: /*
11855: * write a command to the end of the history file
11856: * This *MAY* seem easy but it's also necessary to check
11857: * that the history file has not changed in size.
11858: * If it has - then some other shell has written to it
11859: * and we should read those commands to update our history
11860: */
11861: static void
11862: writehistfile(lno, cmd)
11863: int lno;
11864: char *cmd;
11865: {
11866: int sizenow;
11867: unsigned char *base;
11868: unsigned char *new;
11869: int bytes;
11870: char hdr[5];
11871:
11872: (void) flock(histfd, LOCK_EX);
11873: sizenow = lseek(histfd, 0L, L_XTND);
11874: if (sizenow != hsize) {
11875: /*
11876: * Things have changed
11877: */
11878: if (sizenow > hsize) {
11879: /* someone has added some lines */
11880: bytes = sizenow - hsize;
11881: base = (unsigned char *)mmap(0, sizenow, PROT_READ, MAP_FLAGS, histfd, 0);
11882: if ((int)base == -1)
11883: goto bad;
11884: new = base + hsize;
11885: if (*new != COMMAND) {
11886: munmap((caddr_t)base, sizenow);
11887: goto bad;
11888: }
11889: source->line--;
11890: histload(source, new, bytes);
11891: source->line++;
11892: lno = source->line;
11893: munmap((caddr_t)base, sizenow);
11894: hsize = sizenow;
11895: } else {
11896: /* it has shrunk */
11897: /* but to what? */
11898: /* we'll give up for now */
11899: goto bad;
11900: }
11901: }
11902: /*
11903: * we can write our bit now
11904: */
11905: hdr[0] = COMMAND;
11906: hdr[1] = (lno>>24)&0xff;
11907: hdr[2] = (lno>>16)&0xff;
11908: hdr[3] = (lno>>8)&0xff;
11909: hdr[4] = lno&0xff;
11910: (void) write(histfd, hdr, 5);
11911: (void) write(histfd, cmd, strlen(cmd)+1);
11912: hsize = lseek(histfd, 0L, L_XTND);
11913: (void) flock(histfd, LOCK_UN);
11914: return;
11915: bad:
11916: hist_finish();
11917: }
11918:
11919: void
11920: hist_finish()
11921: {
11922: (void) flock(histfd, LOCK_UN);
11923: (void) close(histfd);
11924: histfd = 0;
11925: }
11926:
11927: /*
11928: * add magic to the history file
11929: */
11930: static int
11931: sprinkle(fd)
11932: int fd;
11933: {
11934: static char mag[] = { HMAGIC1, HMAGIC2 };
11935:
11936: return(write(fd, mag, 2) != 2);
11937: }
11938:
11939: #endif
11940: ./pdksh/sh/main.c 644 653 1762 23020 5302634017 11120 0 ustar hlu /*
11941: * startup, main loop, enviroments and error handling
11942: */
11943:
11944: #ifndef lint
11945: static char *RCSid = "$Id: main.c,v 1.6 1992/08/12 14:15:39 sjg Exp $";
11946: #endif
11947:
11948: #define EXTERN /* define EXTERNs in sh.h */
11949:
11950: #include "stdh.h"
11951: #include <unistd.h>
11952: #include <fcntl.h>
11953: #include <signal.h>
11954: #include <errno.h>
11955: #include <setjmp.h>
11956: #include <time.h>
11957: #include "sh.h"
11958:
11959: #if !defined(HAVE_REMOVE) && !defined(remove)
11960: #define remove(x) unlink(x)
11961: #endif
11962:
11963: /*
11964: * global data
11965: */
11966:
11967: Area aperm;
11968:
11969: static void reclaim ARGS((void));
11970:
11971: /*
11972: * shell initialization
11973: */
11974:
11975: static char initifs [] = "IFS= \t\n"; /* must be R/W */
11976:
11977: static const char initsubs [] =
11978: #ifdef sun /* sun's don't have a real /bin */
11979: "${SHELL:=/bin/sh} ${PATH:=/usr/bin:/usr/ucb:.} ${HOME:=/} ${PS1:=$ } ${PS2:=> } ${PS3:=#? } ${MAILCHECK:=600}";
11980: #else
11981: "${SHELL:=/bin/sh} ${PATH:=/bin:/usr/bin:.} ${HOME:=/} ${PS1:=$ } ${PS2:=> } ${PS3:=#? } ${MAILCHECK:=600}";
11982: #endif
11983:
11984: static const char *initcoms [] = {
11985: "cd", ".", NULL, /* set up $PWD */
11986: "typeset", "-x", "SHELL", "PATH", "HOME", NULL,
11987: "typeset", "-r", "PWD", "OLDPWD", NULL,
11988: "typeset", "-i", "SECONDS=0", "OPTIND=1", NULL,
11989: "alias",
11990: "integer=typeset -i", "pwd=print -r \"$PWD\"",
11991: "history=fc -l", "r=fc -e -", "nohup=nohup ",
11992: "login=exec login", "newgrp=exec newgrp",
11993: "type=whence -v", "functions=typeset -f",
11994: "echo=print", "true=:", "false=let", "[=\\[",
11995: #ifdef JOBS
11996: "suspend=kill -STOP $$",
11997: #endif
11998: NULL,
11999:
12000:
12001: NULL
12002: };
12003:
12004: #ifdef USE_TRACE
12005: /*
12006: * use SIGUSR1 to bump up Trace_level
12007: * use SIGUSR2 to clear Trace_level
12008: */
12009: void
12010: set_TraceLev(sig)
12011: int sig;
12012: {
12013: switch(sig)
12014: {
12015: case SIGUSR1:
12016: Trace_level++;
12017: break;
12018: case SIGUSR2:
12019: Trace_level = 0;
12020: break;
12021: }
12022: #if defined(_SYSV) && !defined(USE_SIGACT)
12023: if (sig > 0)
12024: (void) signal(sig, set_TraceLev);
12025: #endif
12026: return;
12027: }
12028: #endif
12029:
12030: main(argc, argv, envp)
12031: int argc;
12032: register char **argv;
12033: char **envp;
12034: {
12035: register int i;
12036: register char *arg;
12037: int cflag = 0, qflag = 0, fflag = 0;
12038: int argi;
12039: char *name;
12040: register Source *s;
12041: register struct block *l = &globals;
12042: register char **wp0, **wp;
12043: extern char ksh_version [];
12044: extern time_t time();
12045:
12046: #ifdef USE_SIGACT
12047: sigemptyset(&Sigact.sa_mask);
12048: sigemptyset(&Sigact_dfl.sa_mask);
12049: sigemptyset(&Sigact_ign.sa_mask);
12050: sigemptyset(&Sigact_trap.sa_mask);
12051: Sigact.sa_flags = 0;
12052: Sigact_dfl.sa_flags = 0;
12053: Sigact_ign.sa_flags = 0;
12054: Sigact_trap.sa_flags = 0;
12055: Sigact_dfl.sa_handler = SIG_DFL;
12056: Sigact_ign.sa_handler = SIG_IGN;
12057: Sigact_trap.sa_handler = trapsig;
12058: #endif
12059: ainit(&aperm); /* initialize permanent Area */
12060:
12061: #ifndef F_SETFD
12062: init_clexec();
12063: #endif
12064: /* set up base enviroment */
12065: e.type = E_NONE;
12066: ainit(&e.area);
12067: e.loc = l;
12068: e.savefd = NULL;
12069: e.oenv = NULL;
12070:
12071: initctypes();
12072:
12073: /* open file streams for fd's 0,1,2 */
12074: fopenshf(0); fopenshf(1); fopenshf(2);
12075:
12076: /* set up variable and command dictionaries */
12077: newblock(); /* set up global l->vars and l->funs */
12078: tinit(&commands, APERM);
12079: tinit(&builtins, APERM);
12080: tinit(&lexicals, APERM);
12081: tinit(&homedirs, APERM);
12082:
12083: init_histvec();
12084:
12085: /* import enviroment */
12086: if (envp != NULL)
12087: for (wp = envp; *wp != NULL; wp++)
12088: import(*wp);
12089:
12090: kshpid = getpid();
12091: typeset(initifs, 0, 0); /* for security */
12092: typeset(ksh_version, 0, 0); /* RDONLY */
12093:
12094: #ifdef USE_TRACE
12095: #ifdef USE_SIGACT
12096: Sigact.sa_handler = set_TraceLev;
12097: sigaction(SIGUSR1, &Sigact, NULL);
12098: sigaction(SIGUSR2, &Sigact, NULL);
12099: #else
12100: (void) signal(SIGUSR1, set_TraceLev);
12101: (void) signal(SIGUSR2, set_TraceLev);
12102: #endif
12103: _TRACE(0, ("Traces enabled.")); /* allow _TRACE to setup */
12104: #endif
12105:
12106: /* define shell keywords */
12107: keywords();
12108:
12109: /* define built-in commands */
12110: for (i = 0; shbuiltins[i].name != NULL; i++)
12111: builtin(shbuiltins[i].name, shbuiltins[i].func);
12112: for (i = 0; kshbuiltins[i].name != NULL; i++)
12113: builtin(kshbuiltins[i].name, kshbuiltins[i].func);
12114:
12115: /* assign default shell variable values */
12116: substitute(initsubs, 0);
12117: setint(typeset("PPID", INTEGER, 0), (long) getppid());
12118: typeset("PPID", RDONLY, 0);
12119: setint(typeset("RANDOM", INTEGER, 0), (long) time((time_t *)0));
12120: /* execute initialization statements */
12121: for (wp0 = (char**) initcoms; *wp0 != NULL; wp0 = wp+1) {
12122: /* copy because the alias initializers are readonly */
12123: for (wp = wp0; *wp != NULL; wp++)
12124: *wp = strsave(*wp, ATEMP);
12125: shcomexec(wp0);
12126: }
12127: afreeall(ATEMP);
12128:
12129: if (geteuid() == 0)
12130: setstr(global("PS1"), "# ");
12131:
12132: s = pushs(SFILE);
12133: s->u.file = stdin;
12134: cflag = 0;
12135: name = *argv;
12136:
12137: /* what a bloody mess */
12138: if ((argi = 1) < argc) {
12139: if (argv[argi][0] == '-' && argv[argi][1] != '\0') {
12140: for (arg = argv[argi++]+1; *arg; arg++) {
12141: switch (*arg) {
12142: case 'c':
12143: cflag = 1;
12144: if (argi < argc) {
12145: s->type = SSTRING;
12146: s->str = argv[argi++];
12147: }
12148: break;
12149:
12150: case 'q':
12151: qflag = 1;
12152: break;
12153:
12154: default:
12155: if (*arg>='a' && *arg<='z')
12156: flag[FLAG(*arg)]++;
12157: }
12158: }
12159: }
12160: if (s->type == SFILE && argi < argc && !flag[FSTDIN]) {
12161: s->file = name = argv[argi++];
12162: if ((s->u.file = fopen(name, "r")) == NULL)
12163: errorf("%s: cannot open\n", name);
12164: fflag = 1;
12165: #ifdef linux
12166: setfileno (s->u.file, savefd(fileno(s->u.file)));
12167: #else
12168: fileno(s->u.file) = savefd(fileno(s->u.file));
12169: #endif
12170: setvbuf(s->u.file, (char *)NULL, _IOFBF, BUFSIZ);
12171: }
12172: }
12173:
12174: if (s->type == SFILE) {
12175: if (fileno(s->u.file) == 0)
12176: flag[FSTDIN] = 1;
12177: if (isatty(0) && isatty(1) && !cflag && !fflag)
12178: flag[FTALKING] = 1;
12179: if (flag[FTALKING] && flag[FSTDIN])
12180: s->type = STTY;
12181: }
12182: if (s->type == STTY) {
12183: ttyfd = fcntl(0, F_DUPFD, FDBASE);
12184: #ifdef F_SETFD
12185: (void) fcntl(ttyfd, F_SETFD, 1);
12186: #else
12187: (void) fd_clexec(ttyfd);
12188: #endif
12189: #ifdef EMACS
12190: x_init_emacs();
12191: #endif
12192: }
12193:
12194: /* initialize job control */
12195: j_init();
12196:
12197: if (!qflag)
12198: ignoresig(SIGQUIT);
12199:
12200: l->argv = &argv[argi];
12201: l->argc = argc - argi;
12202: l->argv[0] = name;
12203: resetopts();
12204:
12205: if (name[0] == '-') {
12206: flag[FTALKING] = 1;
12207: (void) include("/etc/profile");
12208: (void) include(".profile");
12209: }
12210:
12211: /* include $ENV */
12212: arg = substitute(strval(global("ENV")), DOTILDE);
12213: if (*arg != '\0')
12214: (void) include(arg);
12215:
12216: if (flag[FTALKING])
12217: {
12218: #ifdef USE_SIGACT
12219: sigaction(SIGTERM, &Sigact_trap, NULL);
12220: #else
12221: signal(SIGTERM, trapsig);
12222: #endif
12223: ignoresig(SIGINT);
12224: #if defined(EMACS) || defined(VI)
12225: init_editmode();
12226: #endif
12227: } else
12228: flag[FHASHALL] = 1;
12229:
12230: #ifdef JOBS /* todo: could go before includes? */
12231: if (s->type == STTY) {
12232: flag[FMONITOR] = 1;
12233: j_change();
12234: }
12235: #endif
12236: if (flag[FTALKING])
12237: {
12238: hist_init(s);
12239: }
12240: argc = shell(s);
12241: leave(argc);
12242: return 0;
12243: }
12244:
12245: int
12246: include(name)
12247: register char *name;
12248: {
12249: register FILE *f;
12250: register Source *s;
12251:
12252: if (strcmp(name, "-") != 0) {
12253: f = fopen(name, "r");
12254: if (f == NULL)
12255: return 0;
12256: /* todo: the savefd doesn't get popped */
12257: #ifdef linux
12258: setfileno (f, savefd(fileno(f))); /* questionable */
12259: #else
12260: fileno(f) = savefd(fileno(f)); /* questionable */
12261: #endif
12262: setvbuf(f, (char *)NULL, _IOFBF, BUFSIZ);
12263: } else
12264: f = stdin;
12265: s = pushs(SFILE);
12266: s->u.file = f;
12267: s->file = name;
12268: /*return*/ shell(s);
12269: if (f != stdin)
12270: fclose(f);
12271: return 1;
12272: }
12273:
12274: int
12275: command(comm)
12276: register char *comm;
12277: {
12278: register Source *s;
12279:
12280: s = pushs(SSTRING);
12281: s->str = comm;
12282: return shell(s);
12283: }
12284:
12285: /*
12286: * run the commands from the input source, returning status.
12287: */
12288: int
12289: shell(s)
12290: Source *s; /* input source */
12291: {
12292: struct op *t;
12293: volatile int attempts = 13;
12294: volatile int wastty;
12295: volatile int reading = 0;
12296: extern void mcheck();
12297:
12298: newenv(E_PARSE);
12299: e.interactive = 1;
12300: exstat = 0;
12301: if (setjmp(e.jbuf)) {
12302: /*shellf("<unwind>");*/
12303: if (trap) /* pending SIGINT */
12304: shellf("\n");
12305: if (reading && s->type == STTY && s->line)
12306: s->line--;
12307: sigtraps[SIGINT].set = 0;
12308: }
12309:
12310: while (1) {
12311: if (trap)
12312: runtraps();
12313: if (flag[FTALKING])
12314: {
12315: #ifdef USE_SIGACT
12316: sigaction(SIGINT, &Sigact_trap, NULL);
12317: #else
12318: signal(SIGINT, trapsig);
12319: #endif
12320: }
12321:
12322: if (s->next == NULL)
12323: s->echo = flag[FVERBOSE];
12324:
12325: j_notify();
12326:
12327: if ((wastty = (s->type == STTY)) || s->type == SHIST) {
12328: prompt = substitute(strval(global("PS1")), 0);
12329: mcheck();
12330: }
12331:
12332: reading = 1;
12333: t = compile(s);
12334: reading = 0;
12335: j_reap();
12336: if (t != NULL && t->type == TEOF)
12337: if (wastty && flag[FIGNEOF] && --attempts > 0) {
12338: shellf("Use `exit'\n");
12339: s->type = STTY;
12340: continue;
12341: }
12342: else
12343: break;
12344: flushshf(2); /* flush -v output */
12345:
12346: if (!flag[FNOEXEC] || s->type == STTY)
12347: execute(t, 0);
12348:
12349: reclaim();
12350: }
12351: /* Error: */
12352: quitenv();
12353: return exstat;
12354: }
12355:
12356: void
12357: leave(rv)
12358: int rv;
12359: {
12360: if (e.type == E_TCOM && e.oenv != NULL) /* exec'd command */
12361: unwind();
12362: runtrap(&sigtraps[0]);
12363: if (flag[FTALKING])
12364: {
12365: hist_finish();
12366: }
12367: j_exit();
12368: exit(rv);
12369: /* NOTREACHED */
12370: }
12371:
12372: error()
12373: {
12374: if (flag[FERREXIT] || !flag[FTALKING])
12375: leave(1);
12376: unwind();
12377: }
12378:
12379: /* return to closest error handler or shell(), exit if none found */
12380: unwind()
12381: {
12382: while (1)
12383: switch (e.type) {
12384: case E_NONE:
12385: leave(1);
12386: /* NOTREACHED */
12387: case E_PARSE:
12388: longjmp(e.jbuf, 1);
12389: /* NOTREACHED */
12390: case E_ERRH:
12391: longjmp(e.jbuf, 1);
12392: /* NOTREACHED */
12393: default:
12394: quitenv();
12395: break;
12396: }
12397: }
12398:
12399: newenv(type)
12400: {
12401: register struct env *ep;
12402:
12403: ep = (struct env *) alloc(sizeof(*ep), ATEMP);
12404: *ep = e;
12405: ainit(&e.area);
12406: e.type = type;
12407: e.oenv = ep;
12408: e.savefd = NULL;
12409: e.temps = NULL;
12410: }
12411:
12412: quitenv()
12413: {
12414: register struct env *ep;
12415: register int fd;
12416:
12417: if ((ep = e.oenv) == NULL)
12418: exit(exstat); /* exit child */
12419: if (e.loc != ep->loc)
12420: popblock();
12421: if (e.savefd != NULL)
12422: for (fd = 0; fd < NUFILE; fd++)
12423: restfd(fd, e.savefd[fd]);
12424: reclaim();
12425: e = *ep;
12426: afree(ep, ATEMP);
12427: }
12428:
12429: /* remove temp files and free ATEMP Area */
12430: static void
12431: reclaim()
12432: {
12433: register struct temp *tp;
12434:
12435: for (tp = e.temps; tp != NULL; tp = tp->next)
12436: remove(tp->name);
12437: e.temps = NULL;
12438: afreeall(&e.area);
12439: }
12440:
12441: void
12442: aerror(ap, msg)
12443: Area *ap;
12444: const char *msg;
12445: {
12446: errorf("alloc internal error: %s\n", msg);
12447: }
12448:
12449: ./pdksh/sh/tree.c 644 653 1762 22721 5243743617 11155 0 ustar hlu /*
12450: * command tree climbing
12451: */
12452:
12453: #ifndef lint
12454: static char *RCSid = "$Id: tree.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
12455: #endif
12456:
12457: #include "stdh.h"
12458: #include <errno.h>
12459: #include <setjmp.h>
12460:
12461: #ifdef __STDC__
12462: # include <stdarg.h>
12463: #else
12464: # include <varargs.h>
12465: #endif
12466: #include "sh.h"
12467:
12468: #define FSTRING (FILE*)NULL
12469:
12470: static int tputc ARGS((int c, FILE *f));
12471: static void tputC ARGS((int c, FILE *f));
12472: static void tputS ARGS((char *wp, FILE *f));
12473: static struct ioword **iocopy ARGS((struct ioword **iow, Area *ap));
12474: static void iofree ARGS((struct ioword **iow, Area *ap));
12475:
12476: /*
12477: * print a command tree
12478: */
12479:
12480: void
12481: ptree(t, f)
12482: register struct op *t;
12483: register FILE *f;
12484: {
12485: register char **w;
12486: struct ioword **ioact;
12487: struct op *t1;
12488:
12489: Chain:
12490: if (t == NULL)
12491: return;
12492: switch (t->type) {
12493: case TCOM:
12494: for (w = t->vars; *w != NULL; )
12495: fptreef(f, "%S ", *w++);
12496: for (w = t->args; *w != NULL; )
12497: fptreef(f, "%S ", *w++);
12498: break;
12499: case TEXEC:
12500: t = t->left;
12501: goto Chain;
12502: case TPAREN:
12503: fptreef(f, "(%T)", t->left);
12504: break;
12505: case TPIPE:
12506: fptreef(f, "%T| ", t->left);
12507: t = t->right;
12508: goto Chain;
12509: case TLIST:
12510: fptreef(f, "%T", t->left);
12511: fptreef(f, "%;");
12512: t = t->right;
12513: goto Chain;
12514: case TOR:
12515: case TAND:
12516: fptreef(f, "%T", t->left);
12517: fptreef(f, "%s %T", (t->type==TOR) ? "||" : "&&", t->right);
12518: break;
12519: case TFOR:
12520: fptreef(f, "for %s ", t->str);
12521: if (t->vars != NULL) {
12522: fptreef(f, "in ");
12523: for (w = t->vars; *w; )
12524: fptreef(f, "%S ", *w++);
12525: fptreef(f, "%;");
12526: }
12527: fptreef(f, "do %T", t->left);
12528: fptreef(f, "%;done ");
12529: break;
12530: case TCASE:
12531: fptreef(f, "case %S in%;", t->str);
12532: for (t1 = t->left; t1 != NULL; t1 = t1->right) {
12533: fptreef(f, "(");
12534: for (w = t1->vars; *w != NULL; w++) {
12535: fptreef(f, "%S", *w);
12536: fptreef(f, "%c", (w[1] != NULL) ? '|' : ')');
12537: }
12538: fptreef(f, " %T;;%;", t1->left);
12539: }
12540: fptreef(f, "esac ");
12541: break;
12542: case TIF:
12543: fptreef(f, "if %T", t->left);
12544: fptreef(f, "%;");
12545: t = t->right;
12546: if (t->left != NULL) {
12547: fptreef(f, "then %T", t->left);
12548: fptreef(f, "%;");
12549: }
12550: if (t->right != NULL) {
12551: fptreef(f, "else %T", t->right);
12552: fptreef(f, "%;");
12553: }
12554: fptreef(f, "fi ");
12555: break;
12556: case TWHILE:
12557: case TUNTIL:
12558: fptreef(f, "%s %T",
12559: (t->type==TWHILE) ? "while" : "until",
12560: t->left);
12561: fptreef(f, "%;do %T", t->right);
12562: fptreef(f, "%;done ");
12563: break;
12564: case TBRACE:
12565: fptreef(f, "{%;%T", t->left);
12566: fptreef(f, "%;} ");
12567: break;
12568: case TASYNC:
12569: fptreef(f, "%T&", t->left);
12570: break;
12571: case TFUNCT:
12572: fptreef(f, "function %s %T", t->str, t->left);
12573: break;
12574: case TTIME:
12575: fptreef(f, "time %T", t->left);
12576: break;
12577: default:
12578: fptreef(f, "<botch>");
12579: break;
12580: }
12581: if ((ioact = t->ioact) != NULL)
12582: while (*ioact != NULL)
12583: pioact(f, *ioact++);
12584: }
12585:
12586: pioact(f, iop)
12587: register FILE *f;
12588: register struct ioword *iop;
12589: {
12590: register int flag = iop->flag;
12591: if (iop->unit > 1)
12592: fptreef(f, "%c", '0' + iop->unit );
12593:
12594: switch(flag&IOTYPE) {
12595: case IOREAD:
12596: fptreef(f, "< ");
12597: break;
12598: case IOHERE:
12599: if (flag&IOSKIP)
12600: fptreef(f, "<<- ");
12601: else
12602: fptreef(f, "<< ");
12603: if (!(flag&IOEVAL))
12604: fptreef(f, "'");
12605: break;
12606: case IOCAT:
12607: fptreef(f, ">> ");
12608: break;
12609: case IOWRITE:
12610: if (flag&IOCLOB)
12611: fptreef(f, ">! ");
12612: else
12613: fptreef(f, "> ");
12614: break;
12615: case IODUP: /* Needs help */
12616: if (iop->unit == 0)
12617: fptreef(f, "<&");
12618: else
12619: fptreef(f, ">&");
12620: break;
12621: }
12622:
12623: if ((flag&IOTYPE) == IOHERE) {
12624: if (flag&IOEVAL)
12625: fptreef(f, "%s ", iop->name);
12626: else
12627: fptreef(f, "%s' ", iop->name);
12628: } else {
12629: fptreef(f, "%S ", iop->name);
12630: }
12631: }
12632:
12633:
12634: /*
12635: * variants of fputc, fputs for ptreef and snptreef
12636: */
12637:
12638: static char *snpf_s; /* snptreef string */
12639: static int snpf_n; /* snptreef length */
12640:
12641: static int
12642: tputc(c, f)
12643: int c;
12644: register FILE *f;
12645: {
12646: if (f != NULL)
12647: putc(c, f);
12648: else
12649: if (--snpf_n >= 0)
12650: *snpf_s++ = c;
12651: return c;
12652: }
12653:
12654: static void
12655: tputC(c, f)
12656: register int c;
12657: register FILE *f;
12658: {
12659: if ((c&0x60) == 0) { /* C0|C1 */
12660: tputc((c&0x80) ? '$' : '^', f);
12661: tputc(((c&0x7F)|0x40), f);
12662: } else if ((c&0x7F) == 0x7F) { /* DEL */
12663: tputc((c&0x80) ? '$' : '^', f);
12664: tputc('?', f);
12665: } else
12666: tputc(c, f);
12667: }
12668:
12669: static void
12670: tputS(wp, f)
12671: register char *wp;
12672: register FILE *f;
12673: {
12674: register int c, quoted=0;
12675:
12676: while (1)
12677: switch ((c = *wp++)) {
12678: case EOS:
12679: return;
12680: case CHAR:
12681: tputC(*wp++, f);
12682: break;
12683: case QCHAR:
12684: if (!quoted)
12685: tputc('\\', f);
12686: tputC(*wp++, f);
12687: break;
12688: case OQUOTE:
12689: quoted = 1;
12690: tputc('"', f);
12691: break;
12692: case CQUOTE:
12693: quoted = 0;
12694: tputc('"', f);
12695: break;
12696: case OSUBST:
12697: tputc('$', f);
12698: tputc('{', f);
12699: while ((c = *wp++) != 0)
12700: tputc(c, f);
12701: if (*wp != CSUBST)
12702: tputC(*wp++, f);
12703: break;
12704: case CSUBST:
12705: tputc('}', f);
12706: break;
12707: case COMSUB:
12708: tputc('$', f);
12709: tputc('(', f);
12710: while (*wp != 0)
12711: tputC(*wp++, f);
12712: tputc(')', f);
12713: break;
12714: }
12715: }
12716:
12717: /*
12718: * this is the _only_ way to reliably handle
12719: * variable args with an ANSI compiler
12720: */
12721: #ifdef __STDC__
12722: /* VARARGS */ int
12723: fptreef(FILE *f, char *fmt, ...)
12724: {
12725: #else
12726: fptreef(va_alist)
12727: va_dcl
12728: {
12729: FILE *f;
12730: char *fmt;
12731: #endif
12732: va_list va;
12733:
12734: #ifdef __STDC__
12735: va_start(va, fmt);
12736: #else
12737: va_start(va);
12738: f = va_arg(va, FILE *);
12739: fmt = va_arg(va, char *);
12740: #endif
12741:
12742: vfptreef(f, fmt, va);
12743: va_end(va);
12744: return 0;
12745: }
12746:
12747: /* VARARGS */ int
12748: #ifdef __STDC__
12749: snptreef(char *s, int n, char *fmt, ...)
12750: {
12751: #else
12752: snptreef(va_alist)
12753: va_dcl
12754: {
12755: char *s;
12756: int n;
12757: char *fmt;
12758: #endif
12759: va_list va;
12760:
12761: #ifdef __STDC__
12762: va_start(va, fmt);
12763: #else
12764: va_start(va);
12765: s = va_arg(va, char *);
12766: n = va_arg(va, int);
12767: fmt = va_arg(va, char *);
12768: #endif
12769:
12770: snpf_s = s;
12771: snpf_n = n;
12772: vfptreef(FSTRING, fmt, va);
12773: tputc('\0', FSTRING);
12774: va_end(va);
12775: return 0;
12776: }
12777:
12778:
12779: vfptreef(f, fmt, va)
12780: register FILE *f;
12781: register char *fmt;
12782: register va_list va;
12783: {
12784: register int c;
12785:
12786: while ((c = *fmt++))
12787: if (c == '%') {
12788: register long n;
12789: register char *p;
12790: int neg;
12791:
12792: switch ((c = *fmt++)) {
12793: case 'c':
12794: tputc(va_arg(va, int), f);
12795: break;
12796: case 's':
12797: p = va_arg(va, char *);
12798: while (*p)
12799: tputc(*p++, f);
12800: break;
12801: case 'S': /* word */
12802: p = va_arg(va, char *);
12803: tputS(p, f);
12804: break;
12805: case 'd': case 'u': /* decimal */
12806: n = (c == 'd') ? va_arg(va, int) : va_arg(va, unsigned int);
12807: neg = c=='d' && n<0;
12808: p = ulton((neg) ? -n : n, 10);
12809: if (neg)
12810: *--p = '-';
12811: while (*p)
12812: tputc(*p++, f);
12813: break;
12814: case 'T': /* format tree */
12815: ptree(va_arg(va, struct op *), f);
12816: break;
12817: case ';': /* newline or ; */
12818: p = (f == FSTRING) ? "; " : "\n";
12819: while (*p)
12820: tputc(*p++, f);
12821: break;
12822: default:
12823: tputc(c, f);
12824: break;
12825: }
12826: } else
12827: tputc(c, f);
12828: }
12829:
12830: /*
12831: * copy tree (for function definition)
12832: */
12833:
12834: static struct ioword **iocopy();
12835:
12836: struct op *
12837: tcopy(t, ap)
12838: register struct op *t;
12839: Area *ap;
12840: {
12841: register struct op *r;
12842: register char **tw, **rw;
12843:
12844: if (t == NULL)
12845: return NULL;
12846:
12847: r = (struct op *) alloc(sizeof(struct op), ap);
12848:
12849: r->type = t->type;
12850:
12851: /* this will copy function and for identifiers quite accidently */
12852: r->str = (t->str == NULL) ? NULL : wdcopy(t->str, ap);
12853:
12854: if (t->vars == NULL)
12855: r->vars = NULL;
12856: else {
12857: for (tw = t->vars; *tw++ != NULL; )
12858: ;
12859: rw = r->vars = (char **)
12860: alloc((int)(tw - t->vars) * sizeof(*tw), ap);
12861: for (tw = t->vars; *tw != NULL; )
12862: *rw++ = wdcopy(*tw++, ap);
12863: *rw = NULL;
12864: }
12865:
12866: if (t->args == NULL)
12867: r->args = NULL;
12868: else {
12869: for (tw = t->args; *tw++ != NULL; )
12870: ;
12871: rw = r->args = (char **)
12872: alloc((int)(tw - t->args) * sizeof(*tw), ap);
12873: for (tw = t->args; *tw != NULL; )
12874: *rw++ = wdcopy(*tw++, ap);
12875: *rw = NULL;
12876: }
12877:
12878: r->ioact = (t->ioact == NULL) ? NULL : iocopy(t->ioact, ap);
12879:
12880: r->left = tcopy(t->left, ap);
12881: r->right = tcopy(t->right, ap);
12882:
12883: return r;
12884: }
12885:
12886: char *
12887: wdcopy(wp, ap)
12888: char *wp;
12889: Area *ap;
12890: {
12891: size_t len = wdscan(wp, EOS) - wp;
12892: return memcpy(alloc(len, ap), wp, len);
12893: }
12894:
12895: /* return the position of prefix c in wp plus 1 */
12896: char *
12897: wdscan(wp, c)
12898: register char *wp;
12899: register int c;
12900: {
12901: register int nest = 0;
12902:
12903: while (1)
12904: switch (*wp++) {
12905: case EOS:
12906: return wp;
12907: case CHAR:
12908: case QCHAR:
12909: wp++;
12910: break;
12911: case OQUOTE:
12912: case CQUOTE:
12913: break;
12914: case OSUBST:
12915: nest++;
12916: while (*wp++ != 0)
12917: ;
12918: if (*wp != CSUBST)
12919: wp++;
12920: break;
12921: case CSUBST:
12922: if (c == CSUBST && nest == 0)
12923: return wp;
12924: nest--;
12925: break;
12926: case COMSUB:
12927: while (*wp++ != 0)
12928: ;
12929: break;
12930: }
12931: }
12932:
12933: static struct ioword **
12934: iocopy(iow, ap)
12935: register struct ioword **iow;
12936: Area *ap;
12937: {
12938: register struct ioword **ior;
12939: register int i;
12940:
12941: for (ior = iow; *ior++ != NULL; )
12942: ;
12943: ior = (struct ioword **) alloc((int)(ior - iow) * sizeof(*ior), ap);
12944:
12945: for (i = 0; iow[i] != NULL; i++) {
12946: register struct ioword *p, *q;
12947:
12948: p = iow[i];
12949: q = (struct ioword *) alloc(sizeof(*p), ap);
12950: ior[i] = q;
12951: *q = *p;
12952: if (p->name != NULL)
12953: q->name = wdcopy(p->name, ap);
12954: }
12955: ior[i] = NULL;
12956:
12957: return ior;
12958: }
12959:
12960: /*
12961: * free tree (for function definition)
12962: */
12963:
12964: static void iofree();
12965:
12966: void
12967: tfree(t, ap)
12968: register struct op *t;
12969: Area *ap;
12970: {
12971: register char **w;
12972:
12973: if (t == NULL)
12974: return;
12975:
12976: if (t->str != NULL)
12977: afree((void*)t->str, ap);
12978:
12979: if (t->vars != NULL) {
12980: for (w = t->vars; *w != NULL; w++)
12981: afree((void*)*w, ap);
12982: afree((void*)t->vars, ap);
12983: }
12984:
12985: if (t->args != NULL) {
12986: for (w = t->args; *w != NULL; w++)
12987: afree((void*)*w, ap);
12988: afree((void*)t->args, ap);
12989: }
12990:
12991: if (t->ioact != NULL)
12992: iofree(t->ioact, ap);
12993:
12994: tfree(t->left, ap);
12995: tfree(t->right, ap);
12996:
12997: afree((void*)t, ap);
12998: }
12999:
13000: static void
13001: iofree(iow, ap)
13002: struct ioword **iow;
13003: Area *ap;
13004: {
13005: register struct ioword **iop;
13006: register struct ioword *p;
13007:
13008: for (iop = iow; (p = *iop++) != NULL; ) {
13009: if (p->name != NULL)
13010: afree((void*)p->name, ap);
13011: afree((void*)p, ap);
13012: }
13013: }
13014:
13015: ./pdksh/sh/ChangeLog 644 653 1762 23617 5243743674 11634 0 ustar hlu Thu Aug 13 00:00:42 1992 Simon J. Gerraty (sjg@zen)
13016:
13017: * setstr(), varsub(): be robust when given dud args.
13018:
13019: Wed Aug 12 23:56:29 1992 Simon J. Gerraty (sjg@zen)
13020:
13021: * Fixed build problem when COMPLEX_HISTORY is not defined.
13022: * don't make COMPLETE_LIST the default, add
13023: bind '^[^['=complete-list
13024: in .kshrc if desired.
13025:
13026:
13027: Mon Aug 3 22:41:17 1992 Simon J. Gerraty (sjg@zen)
13028:
13029: * emacs.c: correctly bind <ESC><erase>.
13030: * var.c: treat COLUMNS and FCEDIT as special.
13031:
13032: Sat Aug 1 17:17:02 1992 Simon J. Gerraty (sjg@zen)
13033:
13034: * Incorporated massive contribution from Peter Collinson
13035: includes new features (refer to ../Changes.pc) and support for
13036: BSDI's BSD/386.
13037:
13038: * emacs.c: new command complete-list provided by
13039: [email protected] this nicer than the standard ksh
13040: file completion. Define COMPLETE_LIST to bind this to <ESC><ESC>
13041: by default.
13042:
13043: Sat May 30 15:44:56 1992 Simon J. Gerraty (sjg@zen)
13044:
13045: * added flag XXWHL in tree.h, used by execute() when calling
13046: exchild() to indicate that stdin should not be invalidated. This
13047: corrects handling of:
13048: ls | while read f; do ls -l $f; done
13049:
13050: Thanks to Bruce Momjian for tracking down the fault.
13051:
13052: Tue May 12 19:23:17 1992 Simon J. Gerraty (sjg@zen)
13053:
13054: * Fix bug in init_editmode() if EMACS and VI are not both defined.
13055:
13056: Sun May 3 17:47:54 1992 Simon J. Gerraty (sjg@zen)
13057:
13058: * sigact.c: allow force build if USE_* defined.
13059: * main.c: call init_editmode() _after_ processing /etc/profile.
13060: * jobs.c: ensure SA_RESTART is defined.
13061:
13062: Sat Apr 25 00:20:51 1992 Simon J. Gerraty (sjg@zen)
13063:
13064: * Implemented a simple history file.
13065: The default file is "$HOME/.pdksh_hist" but can be changed by
13066: setting HISTFILE in any of /etc/profile,.profile or .kshrc.
13067: The format is trivial - one line per history item.
13068: You can creat a set history file, by making it read-only.
13069: History is only saved during wrap-up and only if the file is
13070: writeable. NOTE: if writeable the file is OVERWRITTEN.
13071:
13072: Fri Apr 24 22:22:04 1992 Simon J Gerraty (sjg@zen)
13073:
13074: * sigact.c: New file.
13075: An implementation of sigaction() and freinds, which simply
13076: interfaces to BSD's setsigmask() et al, BSD4.1's setsig() or plain
13077: old signal(2). It attempts to use the most useful available.
13078: If it thinks the system really has sigaction() it compiles to
13079: noting, and its header sigact.h does nothing.
13080: At present all use of sigaction is bounded by USE_SIGACT, if/when
13081: this approach appears to work, the alternatives will be withdrawn.
13082:
13083: Fri Apr 24 10:42:40 1992 Simon J Gerraty (sjg@taureau)
13084:
13085: * Added support for sigaction and friends!, turns out sigset()
13086: et al just don't handle job control. Define USE_SIGACT if you
13087: have sigaction(). Job control now works on this System V machine
13088: (Bull DPX/2).
13089:
13090: * getsc_(lex.c), x_getc(edit.c): Added goto's! to allow the
13091: read() calls to be retried (on systems that don't do it
13092: automatically) if the read() was interrupted by a SIGCHLD
13093: (sigchld_caught > 0). This was the cause of the problem with an
13094: async child terminating the shell on System V.
13095:
13096: Wed Apr 22 14:57:01 1992 Simon J Gerraty (sjg@taureau)
13097:
13098: * exchild(jobs.c): block SIGCHLD when fork()ing, until safe to
13099: receive.
13100:
13101: * Added support? for sigset() and friends. Allow JOBS to work on
13102: System V machines. This does NOT work right yet.
13103: With JOBS defined, an async process terminates the shell when it
13104: (the child) exits, and ^Z does nothing!
13105:
13106: Tue Apr 21 15:18:08 1992 Simon J. Gerraty (sjg@sun0)
13107:
13108: * removed const qualifyer from setctypes() 1st arg, as gcc-2.1
13109: generates incorrect code for this function. This is a temperary
13110: hack until gcc is fixed.
13111:
13112: * do not install std/stdc/stdarg.h in std/h, any compiler that
13113: will use stdarg.h should have one.
13114:
13115: Sun Apr 19 20:16:32 1992 Simon J. Gerraty (sjg@zen)
13116:
13117: * added support of stdargs to tree.c and _fixed_ the use of
13118: varargs.
13119:
13120: Sat Apr 18 16:35:48 1992 Simon J. Gerraty (sjg@zen)
13121:
13122: * x_read(edit.c): added logic to check $EDITOR etc.
13123:
13124:
13125: Fri, 10 Jan 92 13:13:52 Bullseye Software (sumax!polari!bullseye)
13126:
13127: * alloc.c:afreeall() references memory it has already deallocated.
13128:
13129: Wed, 1 Jan 92 20:03:55 Bert Gijsbers ([email protected])
13130:
13131: * expand(eval.c): PS1='${PWD##/*/}[!]% ' prints also characters
13132: with ascii = 128
13133:
13134: * main(main.c): Testing whether the first letter of argv[0] is a
13135: '-' does not work when ksh reads .kshrc.
13136:
13137: Sun, 29 Dec 91 20:05:02 Bert Gijsbers ([email protected])
13138:
13139: * Support for Minix.
13140:
13141: Wed, 11 Dec 91 12:41:31 Kees J. Bot ([email protected])
13142:
13143: * fixes for sun3 with 4.1.1
13144:
13145: Wed, 4 Dec 91 15:53:43 Reg Quinton ([email protected])
13146:
13147: * fixes for SGI
13148:
13149: Mon Nov 25 12:36:42 1991 Simon J. Gerraty (sjg at zen)
13150:
13151: * stdh.h: make sure FD_CLEXEC is defined if we support F_SETFD.
13152:
13153: * emacs.c: Attempt to make alloc() of x_tab acceptible to more
13154: compilers. Not 100% yet.
13155:
13156: Sat Nov 23 14:31:44 1991 Simon J. Gerraty (sjg at zen)
13157:
13158: * Improved fd_clexec handling for systems that don't have
13159: an F_SETFD fcntl(). The new arrangement will not blow up if an
13160: attempt is made to fd_clexec a fd above MAXFD (64 by default).
13161: main.c:main() and io.c:savefd() now simply call
13162: exec.c:fd_clexec().
13163:
13164: Fri Nov 22 11:24:57 1991 Simon J. Gerraty (sjg at zen)
13165:
13166: * Since many people had problems using the headers and libraries
13167: in std/*, modified sh/* so that they can be compiled in the
13168: absence of std/*. This requires putting in some fixes that I had
13169: left out from my 3.2 version. Particularly, catering for systems
13170: that do not have F_SETFD.
13171:
13172: * exec.c:
13173: Added fd_clexec array for tracking fd's to close in child after
13174: fork(). This is avoid wasting fd's on systems that don't have
13175: F_SETFD.
13176:
13177: * jobs.c:
13178: Allow Sun's and perhaps other BSD systems to define WAIT_T to be
13179: union wait and thus use their native status handling for children.
13180:
13181: * The file sh/MACHINES now tracks systems the shell has been
13182: compiled on.
13183:
13184:
13185: Sat Nov 9 14:57:30 1991 Simon J. Gerraty (sjg at zen)
13186:
13187: * Release version 4.1 as a new base line.
13188:
13189: Thu Nov 7 23:11:25 1991 Simon J. Gerraty (sjg at zen)
13190:
13191: * John R MacMillan suppied a fix for a bug in yylex() that was the
13192: cause of several odd problems such as:
13193: $ foo=echo
13194: $ $foo bar
13195: bar: not found
13196: $ pwd
13197: $ /local/src/pdksh
13198: $ $foo bar
13199: bar
13200: $
13201:
13202: Sun Sep 15 23:19:27 1991 Simon J. Gerraty (sjg at zen)
13203:
13204: * emacs.c:
13205: Added function x_lastcp() which returns a pointer to that char in
13206: the edit buffer that will be the last displayed on the screen.
13207: Thus:
13208:
13209: cp = x_lastcp();
13210: while (cp > xcp)
13211: x_bs(*--cp);
13212:
13213: Will correctly position the cursor on the screen (regardless of
13214: TABs etc in the buffer). The previous method got out of sync if
13215: there were any TABs to display.
13216:
13217: Wed Aug 7 11:26:55 1991 Simon J. Gerraty (sjg at sun0)
13218:
13219: * jobs.c:
13220: The Sun SPARCstation 2 was proving extremely unreliable using ksh.
13221: After puting traces in jobs.c, it turns out the problem was
13222: multiple SIGCHLD events happening too quickly causing the handler
13223: to be interupted and thus not recognise the job that it had just
13224: reaped was one of its own. Having done the waitpid(), but not
13225: adjusted the job table entry, j_waitj() would loop forever waiting
13226: for a job to finnish (that had already done so!)
13227: Solution was to have the SIGCHLD handler simply record the events
13228: by inrcrementing sigchld_caught. The actual reaping is now done
13229: in a new funtion j_reapchld(), which does what the old signal
13230: handler did but blocks SIGCHLD while scanning the job table.
13231: j_waitj() calls j_reapchld() when sigchld_caught is non-zero.
13232: The SS2 is now much more reliable...
13233:
13234: * trace.c:
13235: Added my simple _TRACE facility (used to track the j_waitj
13236: problem). Simply -DUSE_TRACE for it to have effect. If USE_TRACE
13237: is undefined, calls to _TRACE() expand to while(0) which an
13238: optimizer will usually remove. sh.h now includes trace.h
13239:
13240: Mon Jun 10 10:27:14 1991 Simon J. Gerraty (sjg at zen)
13241:
13242: * emacs.c:
13243: A couple of assignments (xbp = xbuf) were not migrated from the
13244: 3.2 version. Caused an anoying bug when retrieving history
13245: commands.
13246:
13247: Mon May 27 12:50:20 1991 Simon J. Gerraty (sjg at sun0)
13248:
13249: * added fixes supplied by Mike Jetzer:
13250: These relate mainly to vi mode. See Changes.mlj
13251:
13252: * c_sh.c c_exit():
13253: Modified behavior to not imediately exit if there are stopped
13254: jobs. A subsequent exit will kill any jobs left and terminate the
13255: shell.
13256:
13257: Fri May 24 15:20:10 1991 Simon J. Gerraty (sjg at sun0)
13258:
13259: * edit.h:
13260: Cleaned up prototypes. Built shell on sun3.
13261: While gcc-1.39 builds the ksh ok on the 386i, on the sun3 jobs
13262: don't work correctly - any non-builtin command gets stopped and
13263: put into the background. Had same problem with 3.2, using
13264: /usr/bin/cc works fine.
13265:
13266: Thu May 23 13:45:20 1991 Simon J. Gerraty (sjg at sun0)
13267:
13268: * migrated my 3.2 edit.c changes to the new shell.
13269: Affects edit.c, emacs.c
13270: Added edit.h which is now included by edit.c,emacs.c and vi.c
13271:
13272: * vi.c:
13273: Fixed handling of '!' in prompt by using pprompt() as in emacs.c
13274:
13275: * std/stdc/vprintf.c:
13276: Fixed bug in output of left '0' padded unsigned numbers was
13277: always padding with ' ' which left a space in ksh's temp file
13278: names. This prevented fc -l from working.
13279:
13280: Here is my 3.2 ChangeLog:
13281: Fri Mar 22 16:50:14 1991 Simon J. Gerraty (sjg at sun0)
13282:
13283: * edit.c:
13284: Added x_set_arg() and x_prev_histword().
13285: x_set_arg() handles 'ESC''0-9' type args which are used by word
13286: related commands.
13287: x_prev_histword() recovers the last (default) or sepcified arg
13288: word from the previous command line. Bound to ESC. and ESC_ to be
13289: compatible with real ksh.
13290:
13291: Tue Feb 26 14:16:17 1991 Simon J. Gerraty (sjg at zen)
13292:
13293: * edit.c:
13294: Changes to handle editing of command lines longer than $COLUMNS in
13295: a manner compatible with real ksh.
13296:
13297: Mon Feb 25 12:20:36 1991 Simon J. Gerraty (sjg at sun0)
13298:
13299: * var.c,table.h:
13300: Implemented $RANDOM
13301: Some scripts use [ "$RANDOM" != "$RANDOM" ] to check for ksh.
13302:
13303: Wed Feb 20 12:20:36 1991 Simon J. Gerraty (sjg at sun0)
13304:
13305: Changes so that shell will compile on sun386i.
13306:
13307: * exec.c,main.c,io.c:
13308: Handle the case where FD_CLEXEC isn't defined.
13309:
13310: * jobs.c:
13311: SunOS has its own ideas about job status etc.
13312:
13313: * tree.c:
13314: Fixed conflict between varargs and stdarg.
13315:
13316:
13317:
13318:
13319: ./pdksh/sh/alloc.c 644 653 1762 11333 5243743566 11310 0 ustar hlu /*
13320: * area-based allocation built on malloc/free
13321: */
13322:
13323: #ifndef lint
13324: static char *RCSid = "$Id: alloc.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
13325: #endif
13326:
13327: #include "stdh.h"
13328: #include <setjmp.h>
13329: #include "sh.h"
13330:
13331: #define ICELLS 100 /* number of Cells in small Block */
13332:
13333: typedef union Cell Cell;
13334: typedef struct Block Block;
13335:
13336: /*
13337: * The Cells in a Block are organized as a set of objects.
13338: * Each object (pointed to by dp) begins with a size in (dp-1)->size,
13339: * followed with "size" data Cells. Free objects are
13340: * linked together via dp->next.
13341: */
13342:
13343: union Cell {
13344: size_t size;
13345: union Cell *next;
13346: struct {int _;} junk; /* alignment */
13347: };
13348:
13349: struct Block {
13350: struct Block *next; /* list of Blocks in Area */
13351: union Cell *free; /* object free list */
13352: union Cell *last; /* &b.cell[size] */
13353: union Cell cell [1]; /* [size] Cells for allocation */
13354: };
13355:
13356: Block aempty = {&aempty, aempty.cell, aempty.cell};
13357:
13358: /* create empty Area */
13359: Area *
13360: ainit(ap)
13361: register Area *ap;
13362: {
13363: ap->free = &aempty;
13364: return ap;
13365: }
13366:
13367: /* free all object in Area */
13368: void
13369: afreeall(ap)
13370: register Area *ap;
13371: {
13372: register Block *bp;
13373: register Block *tmp;
13374:
13375: bp = ap->free;
13376: if (bp != NULL && bp != &aempty) {
13377: do {
13378: tmp = bp->next;
13379: free((void*)bp);
13380: bp = tmp;
13381: } while (bp != ap->free);
13382: ap->free = &aempty;
13383: }
13384: }
13385:
13386: /* allocate object from Area */
13387: void *
13388: alloc(size, ap)
13389: size_t size;
13390: register Area *ap;
13391: {
13392: int cells, split;
13393: register Block *bp;
13394: register Cell *dp, *fp, *fpp;
13395:
13396: if (size <= 0) {
13397: aerror(ap, "allocate bad size");
13398: return NULL;
13399: }
13400: cells = (unsigned)(size - 1) / sizeof(Cell) + 1;
13401:
13402: /* find Cell large enough */
13403: for (bp = ap->free; ; bp = bp->next) {
13404: for (fpp = NULL, fp = bp->free;
13405: fp != bp->last; fpp = fp, fp = fpp->next)
13406: if ((fp-1)->size >= cells)
13407: goto Found;
13408:
13409: /* wrapped around Block list, create new Block */
13410: if (bp->next == ap->free) {
13411: bp = (Block*) malloc(offsetof(Block, cell[ICELLS + cells]));
13412: if (bp == NULL) {
13413: aerror(ap, "cannot allocate");
13414: return NULL;
13415: }
13416: if (ap->free == &aempty)
13417: bp->next = bp;
13418: else {
13419: bp->next = ap->free->next;
13420: ap->free->next = bp;
13421: }
13422: bp->last = bp->cell + ICELLS + cells;
13423: fp = bp->free = bp->cell + 1; /* initial free list */
13424: (fp-1)->size = ICELLS + cells - 1;
13425: fp->next = bp->last;
13426: fpp = NULL;
13427: break;
13428: }
13429: }
13430: Found:
13431: ap->free = bp;
13432: dp = fp; /* allocated object */
13433: split = (dp-1)->size - cells;
13434: if (split < 0)
13435: aerror(ap, "allocated object too small");
13436: if (--split <= 0) { /* allocate all */
13437: fp = fp->next;
13438: } else { /* allocate head, free tail */
13439: (fp-1)->size = cells;
13440: fp += cells + 1;
13441: (fp-1)->size = split;
13442: fp->next = dp->next;
13443: }
13444: if (fpp == NULL)
13445: bp->free = fp;
13446: else
13447: fpp->next = fp;
13448: return (void*) dp;
13449: }
13450:
13451: /* change size of object -- like realloc */
13452: void *
13453: aresize(ptr, size, ap)
13454: register void *ptr;
13455: size_t size;
13456: Area *ap;
13457: {
13458: int cells;
13459: register Cell *dp = (Cell*) ptr;
13460:
13461: if (size <= 0) {
13462: aerror(ap, "allocate bad size");
13463: return NULL;
13464: }
13465: cells = (unsigned)(size - 1) / sizeof(Cell) + 1;
13466:
13467: if (dp == NULL || (dp-1)->size < cells) { /* enlarge object */
13468: register Cell *np;
13469: register int i;
13470: void *optr = ptr;
13471:
13472: ptr = alloc(size, ap);
13473: np = (Cell*) ptr;
13474: if (dp != NULL)
13475: for (i = (dp-1)->size; i--; )
13476: *np++ = *dp++;
13477: afree(optr, ap);
13478: } else { /* shrink object */
13479: int split;
13480:
13481: split = (dp-1)->size - cells;
13482: if (--split <= 0) /* cannot split */
13483: ;
13484: else { /* shrink head, free tail */
13485: (dp-1)->size = cells;
13486: dp += cells + 1;
13487: (dp-1)->size = split;
13488: afree((void*)dp, ap);
13489: }
13490: }
13491: return (void*) ptr;
13492: }
13493:
13494: void
13495: afree(ptr, ap)
13496: void *ptr;
13497: register Area *ap;
13498: {
13499: register Block *bp;
13500: register Cell *fp, *fpp;
13501: register Cell *dp = (Cell*)ptr;
13502:
13503: /* find Block containing Cell */
13504: for (bp = ap->free; ; bp = bp->next) {
13505: if (bp->cell <= dp && dp < bp->last)
13506: break;
13507: if (bp->next == ap->free) {
13508: aerror(ap, "freeing with invalid area");
13509: return;
13510: }
13511: }
13512:
13513: /* find position in free list */
13514: for (fpp = NULL, fp = bp->free; fp < dp; fpp = fp, fp = fpp->next)
13515: ;
13516:
13517: if (fp == dp) {
13518: aerror(ap, "freeing free object");
13519: return;
13520: }
13521:
13522: /* join object with next */
13523: if (dp + (dp-1)->size == fp-1) { /* adjacent */
13524: (dp-1)->size += (fp-1)->size + 1;
13525: dp->next = fp->next;
13526: } else /* non-adjacent */
13527: dp->next = fp;
13528:
13529: /* join previous with object */
13530: if (fpp == NULL)
13531: bp->free = dp;
13532: else if (fpp + (fpp-1)->size == dp-1) { /* adjacent */
13533: (fpp-1)->size += (dp-1)->size + 1;
13534: fpp->next = dp->next;
13535: } else /* non-adjacent */
13536: fpp->next = dp;
13537: }
13538:
13539:
13540: #if TEST_ALLOC
13541:
13542: Area a;
13543:
13544: main(int argc, char **argv) {
13545: int i;
13546: char *p [9];
13547:
13548: ainit(&a);
13549: for (i = 0; i < 9; i++) {
13550: p[i] = alloc(124, &a);
13551: printf("alloc: %x\n", p[i]);
13552: }
13553: for (i = 1; i < argc; i++)
13554: afree(p[atoi(argv[i])], &a);
13555: afreeall(&a);
13556: return 0;
13557: }
13558:
13559: void aerror(Area *ap, const char *msg) {
13560: abort();
13561: }
13562:
13563: #endif
13564:
13565: ./pdksh/sh/expr.c 644 653 1762 11336 5243743574 11176 0 ustar hlu /*
13566: * Korn expression evaluation
13567: */
13568:
13569: #ifndef lint
13570: static char *RCSid = "$Id: expr.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
13571: #endif
13572:
13573: #include "stdh.h"
13574: #include <errno.h>
13575: #include <setjmp.h>
13576: #include "sh.h"
13577:
13578: #define ef else if /* fashion statement */
13579:
13580: #define VAR 0x01
13581: #define LIT 0x02
13582: #define LEQ 0x03
13583: #define LNE 0x04
13584: #define LLE 0x05
13585: #define LGE 0x06
13586:
13587: static const char *expression; /* expression being evaluated */
13588: static const char *tokp; /* lexical position */
13589: static int tok; /* token from token() */
13590: static struct tbl *val; /* value from token() */
13591:
13592: static struct tbl *asn ARGS((void));
13593: static struct tbl *e6 ARGS((void));
13594: static struct tbl *e5 ARGS((void));
13595: static struct tbl *e3 ARGS((void));
13596: static struct tbl *e2 ARGS((void));
13597: static struct tbl *e0 ARGS((void));
13598: static void token ARGS((void));
13599: static struct tbl *tempvar ARGS((void));
13600: static struct tbl *intvar ARGS((struct tbl *vp));
13601:
13602: /*
13603: * parse and evalute expression
13604: */
13605: void
13606: evalerr(err)
13607: char *err;
13608: {
13609: errorf("%s: %s\n", expression, err);
13610: }
13611:
13612: long
13613: evaluate(expr)
13614: const char *expr;
13615: {
13616: struct tbl *v;
13617:
13618: expression = tokp = expr;
13619: token();
13620: v = intvar(asn());
13621: if (!(tok == 0))
13622: evalerr("bad expression");
13623: return v->val.i;
13624: }
13625:
13626: static struct tbl *
13627: asn()
13628: {
13629: register struct tbl *vl, *vr;
13630:
13631: vr = vl = e6();
13632: if ((tok == '=')) {
13633: Area * olastarea = lastarea;
13634: token();
13635: if ((vl->flag&RDONLY)) /* assign to rvalue */
13636: evalerr("bad assignment");
13637: vr = intvar(asn());
13638: lastarea = olastarea;
13639: setint(vl, vr->val.i);
13640: if ((vl->flag&INTEGER) && vl->type == 0) /* default base? */
13641: vl->type = vr->type;
13642: }
13643: return vr;
13644: }
13645:
13646: static struct tbl *
13647: e6()
13648: {
13649: register struct tbl *vl, *vr;
13650:
13651: vl = e5();
13652: while ((tok == LEQ) || (tok == LNE)) {
13653: int op = tok;
13654: token();
13655: vl = intvar(vl);
13656: vr = intvar(e5());
13657: vl->val.i = vl->val.i == vr->val.i;
13658: if (op == LNE)
13659: vl->val.i = ! vl->val.i;
13660: }
13661: return vl;
13662: }
13663:
13664: static struct tbl *
13665: e5()
13666: {
13667: register struct tbl *vl, *vr;
13668:
13669: vl = e3();
13670: while ((tok == LLE) || (tok == '<') || (tok == '>') || (tok == LGE)) {
13671: int op = tok;
13672: token();
13673: vl = intvar(vl);
13674: vr = intvar(e3());
13675: if (op == LLE)
13676: vl->val.i = vl->val.i <= vr->val.i;
13677: ef (op == '<')
13678: vl->val.i = vl->val.i < vr->val.i;
13679: ef (op == LGE)
13680: vl->val.i = vl->val.i >= vr->val.i;
13681: ef (op == '>')
13682: vl->val.i = vl->val.i > vr->val.i;
13683: }
13684: return vl;
13685: }
13686:
13687: static struct tbl *
13688: e3()
13689: {
13690: register struct tbl *vl, *vr;
13691:
13692: vl = e2();
13693: while ((tok == '+') || (tok == '-')) {
13694: int op = tok;
13695: token();
13696: vl = intvar(vl);
13697: vr = intvar(e2());
13698: if (op == '+')
13699: vl->val.i += vr->val.i;
13700: ef (op == '-')
13701: vl->val.i -= vr->val.i;
13702: }
13703: return vl;
13704: }
13705:
13706: static struct tbl *
13707: e2()
13708: {
13709: register struct tbl *vl, *vr;
13710:
13711: vl = e0();
13712: while ((tok == '*') || (tok == '/') || (tok == '%')) {
13713: int op = tok;
13714: token();
13715: vl = intvar(vl);
13716: vr = intvar(e0());
13717: if (op != '*' && vr->val.i == 0)
13718: evalerr("zero divisor");
13719: if (op == '*')
13720: vl->val.i *= vr->val.i;
13721: ef (op == '/')
13722: vl->val.i /= vr->val.i;
13723: ef (op == '%')
13724: vl->val.i %= vr->val.i;
13725: }
13726: return vl;
13727: }
13728:
13729: static struct tbl *
13730: e0()
13731: {
13732: register struct tbl *v;
13733:
13734: if ((tok == '!') || (tok == '-')) {
13735: int op = tok;
13736: token();
13737: v = intvar(e0());
13738: if (op == '!')
13739: v->val.i = !v->val.i;
13740: ef (op == '-')
13741: v->val.i = -v->val.i;
13742: } else
13743: if ((tok == '(')) {
13744: token();
13745: v = asn();
13746: if (!(tok == ')'))
13747: evalerr("missing )");
13748: token();
13749: } else
13750: if ((tok == VAR) || (tok == LIT)) {
13751: v = val;
13752: token();
13753: } else
13754: evalerr("bad expression");
13755: return v;
13756: }
13757:
13758: static void
13759: token()
13760: {
13761: register char *cp = (char *) tokp;
13762: register int c, c2;
13763:
13764: /* skip white space */
13765: do c = *cp++; while (c != '\0' && (c == ' ' || c == '\t'));
13766: tokp = cp-1;
13767:
13768: if (letter(c)) {
13769: for (; letnum(c); c = *cp++)
13770: ;
13771: c = *--cp;
13772: *cp = 0;
13773: val = global(tokp);
13774: *cp = c;
13775: tok = VAR;
13776: } else
13777: if (digit(c)) {
13778: for (; letnum(c) || c == '#'; c = *cp++)
13779: ;
13780: c = *--cp;
13781: *cp = 0;
13782: val = tempvar();
13783: setstr(val, tokp);
13784: val->flag |= RDONLY;
13785: *cp = c;
13786: tok = LIT;
13787: } else {
13788: c2 = *cp++;
13789: if (c == '=' && c2 == '=')
13790: c = LEQ;
13791: ef (c == '!' && c2 == '=')
13792: c = LNE;
13793: ef (c == '<' && c2 == '=')
13794: c = LLE;
13795: ef (c == '>' && c2 == '=')
13796: c = LGE;
13797: else
13798: cp--;
13799: tok = c;
13800: }
13801: tokp = cp;
13802: }
13803:
13804: static struct tbl *
13805: tempvar()
13806: {
13807: register struct tbl *vp;
13808:
13809: vp = (struct tbl*) alloc(sizeof(struct tbl), ATEMP);
13810: lastarea = ATEMP;
13811: vp->flag = ISSET|INTEGER;
13812: vp->type = 0;
13813: vp->name[0] = '\0';
13814: return vp;
13815: }
13816:
13817: /* cast (string) variable to temporary integer variable */
13818: static struct tbl *
13819: intvar(vp)
13820: register struct tbl *vp;
13821: {
13822: register struct tbl *vq;
13823:
13824: vq = tempvar();
13825: vq->type = 10;
13826: if (strint(vq, vp) == NULL) {
13827: if ((vp->flag&ISSET) && vp->val.s && *(vp->val.s)) {
13828: evalerr("bad number");
13829: } else {
13830: vq->flag |= (ISSET|INTEGER);
13831: vq->type = 10;
13832: vq->val.i = 0;
13833: }
13834: }
13835: return vq;
13836: }
13837:
13838: ./pdksh/sh/mail.c 644 653 1762 10267 5302766411 11133 0 ustar hlu /*
13839: * Mailbox checking code by Robert J. Gibson, adapted for PD ksh by
13840: * John R. MacMillan
13841: */
13842: #ifndef lint
13843: static char *RCSid = "$Id: mail.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
13844: #endif
13845:
13846: #include "stdh.h"
13847: #include <signal.h>
13848: #include <errno.h>
13849: #include <setjmp.h>
13850: #include <sys/stat.h>
13851: #include <sys/time.h>
13852: #include "sh.h"
13853:
13854: #define MBMESSAGE "you have mail in $_"
13855:
13856: typedef struct mbox {
13857: struct mbox *mb_next; /* next mbox in list */
13858: char *mb_path; /* path to mail file */
13859: char *mb_msg; /* to announce arrival of new mail */
13860: unsigned int mb_size; /* size of mail file (bytes) */
13861: } mbox_t;
13862:
13863: struct mailmsg {
13864: char *msg; /* Text of message */
13865: struct mailmsg *next; /* Next message */
13866: };
13867:
13868: /*
13869: * $MAILPATH is a linked list of mboxes. $MAIL is a treated as a
13870: * special case of $MAILPATH, where the list has only one node. The
13871: * same list is used for both since they are exclusive.
13872: */
13873:
13874: static mbox_t *mplist = NULL;
13875: static mbox_t mbox = { NULL, NULL, NULL, 0 };
13876: static long mlastchkd = 0; /* when mail was last checked */
13877: static struct mailmsg *mmsgs = NULL; /* Messages to be printed */
13878: #if 0
13879: static void munset(); /* free mlist and mval */
13880: static mbox_t *mballoc(); /* allocate a new mbox */
13881: static void maddmsg();
13882: #endif
13883: static void munset ARGS((mbox_t *mlist));
13884: static mbox_t * mballoc ARGS((char *p, char *m));
13885: static void maddmsg ARGS((mbox_t *mbp));
13886:
13887: void
13888: mcheck()
13889: {
13890: register mbox_t *mbp;
13891: long now;
13892: struct tbl *vp, mailcheck;
13893: struct stat stbuf;
13894:
13895: vp = global("MAILCHECK");
13896: if (!(vp->flag & ISSET) || strint(&mailcheck, vp) == NULL)
13897: return;
13898:
13899: if (mlastchkd == 0)
13900: mlastchkd = time((long *)0);
13901:
13902: if ((now=time((long *)0)) - mlastchkd >= mailcheck.val.i) {
13903: mlastchkd = now;
13904:
13905: vp = global("MAILPATH");
13906: if (vp && (vp->flag & ISSET))
13907: mbp = mplist;
13908: else if ((vp = global("MAIL")) && (vp->flag & ISSET))
13909: mbp = &mbox;
13910: else
13911: mbp = NULL;
13912:
13913: while (mbp) {
13914: if (stat(mbp->mb_path, &stbuf) == 0 &&
13915: (stbuf.st_mode & S_IFMT) == S_IFREG) {
13916: if (mbp->mb_size < stbuf.st_size)
13917: maddmsg( mbp );
13918: mbp->mb_size = stbuf.st_size;
13919: } else {
13920: /*
13921: * Some mail readers remove the mail
13922: * file if all mail is read. If file
13923: * does not exist, assume this is the
13924: * case and set size to zero.
13925: */
13926: mbp->mb_size = 0;
13927: }
13928: mbp = mbp->mb_next;
13929: }
13930: }
13931: }
13932:
13933: void
13934: mbset(p)
13935: register char *p;
13936: {
13937: struct stat stbuf;
13938:
13939: if (mbox.mb_msg)
13940: afree((void *)mbox.mb_msg, APERM);
13941: mbox.mb_path = p;
13942: mbox.mb_msg = NULL;
13943: if (stat(p,&stbuf) == 0 && (stbuf.st_mode & S_IFMT) == S_IFREG)
13944: mbox.mb_size = stbuf.st_size;
13945: else
13946: mbox.mb_size = 0;
13947: }
13948:
13949: void
13950: mpset(mptoparse)
13951: register char *mptoparse;
13952: {
13953: register mbox_t *mbp;
13954: register char *mpath, *mmsg, *mval;
13955:
13956: munset( mplist );
13957: mplist = NULL;
13958: mval = strsave(mptoparse, APERM);
13959: while (mval) {
13960: mpath = mval;
13961: if ((mval = strchr(mval, ':')) != NULL) {
13962: *mval ='\0', mval++;
13963: }
13964: if ((mmsg = strchr(mpath, '?')) != NULL) {
13965: *mmsg = '\0', mmsg++;
13966: }
13967: mbp = mballoc(mpath, mmsg);
13968: mbp->mb_next = mplist;
13969: mplist = mbp;
13970: }
13971: }
13972:
13973: static void
13974: munset(mlist)
13975: register mbox_t *mlist;
13976: {
13977: register mbox_t *mbp;
13978:
13979: while (mlist != NULL) {
13980: mbp = mlist;
13981: mlist = mbp->mb_next;
13982: if (!mlist)
13983: afree((void *)mbp->mb_path, APERM);
13984: afree((void *)mbp, APERM);
13985: }
13986: }
13987:
13988: static mbox_t *
13989: mballoc(p, m)
13990: char *p;
13991: char *m;
13992: {
13993: struct stat stbuf;
13994: register mbox_t *mbp;
13995:
13996: mbp = (mbox_t *)alloc(sizeof(mbox_t), APERM);
13997: mbp->mb_next = NULL;
13998: mbp->mb_path = p;
13999: mbp->mb_msg = m;
14000: if (stat(mbp->mb_path, &stbuf) == 0 &&
14001: (stbuf.st_mode & S_IFMT) == S_IFREG) {
14002: mbp->mb_size = stbuf.st_size;
14003: } else {
14004: mbp->mb_size = 0;
14005: }
14006: return(mbp);
14007: }
14008:
14009: void
14010: mprint()
14011: {
14012: struct mailmsg *mm;
14013:
14014: while ((mm = mmsgs) != NULL) {
14015: shellf( "%s\n", mm->msg );
14016: fflush(shlout);
14017: afree((void *)mm->msg, APERM);
14018: mmsgs = mm->next;
14019: afree((void *)mm, APERM);
14020: }
14021: }
14022:
14023: static void
14024: maddmsg( mbp )
14025: mbox_t *mbp;
14026: {
14027: struct mailmsg *message;
14028: struct tbl *vp;
14029:
14030: message = (struct mailmsg *)alloc(sizeof(struct mailmsg), APERM);
14031: setstr((vp = typeset("_", LOCAL, 0)), mbp->mb_path);
14032:
14033: if (mbp->mb_msg)
14034: message->msg = strsave(substitute(mbp->mb_msg,0),APERM);
14035: else
14036: message->msg = strsave(substitute(MBMESSAGE,0),APERM);
14037:
14038: unset(vp);
14039: message->next = mmsgs;
14040: mmsgs = message;
14041: }
14042: ./pdksh/sh/misc.c 644 653 1762 15541 5302637123 11141 0 ustar hlu /*
14043: * Miscellaneous functions
14044: */
14045:
14046: #ifndef lint
14047: static char *RCSid = "$Id: misc.c,v 1.3 1992/08/12 14:15:42 sjg Exp $";
14048: #endif
14049:
14050: #include "stdh.h"
14051: #include <signal.h>
14052: #include <errno.h>
14053: #include <setjmp.h>
14054: #include "sh.h"
14055: #include "expand.h"
14056: #ifndef NOSTDHDRS
14057: # include <limits.h>
14058: #else
14059: # define UCHAR_MAX 0xFF
14060: #endif
14061:
14062: char ctypes [UCHAR_MAX+1]; /* type bits for unsigned char */
14063:
14064: static char * cclass ARGS((char *p, int sub));
14065:
14066: /*
14067: * Fast character classes
14068: */
14069: void
14070: setctypes(s, t)
14071: register /* const */ char *s;
14072: register int t;
14073: {
14074: register int i;
14075:
14076: if ((t&C_IFS)) {
14077: for (i = 0; i < UCHAR_MAX+1; i++)
14078: ctypes[i] &=~ C_IFS;
14079: ctypes[0] |= C_IFS; /* include \0 in C_IFS */
14080: }
14081: ctypes[(unsigned char) *s++] |= t; /* allow leading \0 in string */
14082: while (*s != 0)
14083: ctypes[(unsigned char) *s++] |= t;
14084: }
14085:
14086: void
14087: initctypes()
14088: {
14089: register int c;
14090:
14091: for (c = 'a'; c <= 'z'; c++)
14092: ctypes[c] |= C_ALPHA;
14093: for (c = 'A'; c <= 'Z'; c++)
14094: ctypes[c] |= C_ALPHA;
14095: ctypes['_'] |= C_ALPHA;
14096: setctypes("0123456789", C_DIGIT);
14097: setctypes("\0 \t\n|&;<>()", C_LEX1);
14098: setctypes("*@#!$-?", C_VAR1);
14099: setctypes("=-+?#%", C_SUBOP);
14100: }
14101:
14102: /* convert unsigned long to base N string */
14103:
14104: char *
14105: ulton(n, base)
14106: register unsigned long n;
14107: int base;
14108: {
14109: register char *p;
14110: static char buf [20];
14111:
14112: p = &buf[sizeof(buf)];
14113: *--p = '\0';
14114: do {
14115: *--p = "0123456789ABCDEF"[n%base];
14116: n /= base;
14117: } while (n != 0);
14118: return p;
14119: }
14120:
14121: char *
14122: strsave(s, ap)
14123: register char *s;
14124: Area *ap;
14125: {
14126: return s ? strcpy((char*) alloc((size_t)strlen(s)+1, ap), s) : NULL;
14127: }
14128:
14129: static struct option {
14130: char *name;
14131: int flag;
14132: } options[] = {
14133: {"allexport", FEXPORT},
14134: {"bgnice", FBGNICE},
14135: #if defined(EDIT) && defined(EMACS)
14136: {"emacs", FEMACS},
14137: #endif
14138: {"errexit", FERREXIT},
14139: {"hashall", FHASHALL},
14140: {"ignoreeof", FIGNEOF},
14141: {"interactive", FTALKING},
14142: {"keyword", FKEYWORD},
14143: {"markdirs", FMARKDIRS},
14144: {"monitor", FMONITOR},
14145: {"noexec", FNOEXEC},
14146: {"noglob", FNOGLOB},
14147: {"nounset", FNOUNSET},
14148: {"privileged", FPRIVILEGED},
14149: {"stdin", FSTDIN},
14150: {"trackall", FHASHALL},
14151: {"verbose", FVERBOSE},
14152: #if defined(EDIT) && defined(VI)
14153: {"vi", FVI},
14154: #endif
14155: {"xtrace", FXTRACE},
14156: {NULL, 0}
14157: };
14158:
14159: /*
14160: * translate -o option into F* constant
14161: */
14162: int
14163: option(n)
14164: const char *n;
14165: {
14166: register struct option *op;
14167:
14168: for (op = options; op->name != NULL; op++)
14169: if (strcmp(op->name, n) == 0)
14170: return op->flag;
14171: return 0;
14172: }
14173:
14174: char *
14175: getoptions()
14176: {
14177: register int c;
14178: char m [26+1];
14179: register char *cp = m;
14180:
14181: for (c = 'a'; c <= 'z'; c++)
14182: if (flag[FLAG(c)])
14183: *cp++ = (char) c;
14184: *cp = 0;
14185: return strsave(m, ATEMP);
14186: }
14187:
14188: void
14189: printoptions()
14190: {
14191: register struct option *op;
14192:
14193: for (op = options; op->name != NULL; op++)
14194: if (flag[op->flag])
14195: shellf("%s ", op->name);
14196: shellf("\n");
14197: }
14198:
14199: /* atoi with error detection */
14200:
14201: getn(as)
14202: char *as;
14203: {
14204: register char *s;
14205: register int n;
14206:
14207: s = as;
14208: if (*s == '-')
14209: s++;
14210: for (n = 0; digit(*s); s++)
14211: n = (n*10) + (*s-'0');
14212: if (*s)
14213: errorf("%s: bad number\n", as);
14214: return (*as == '-') ? -n : n;
14215: }
14216:
14217: #ifndef linux
14218: /*
14219: * stripped down strerror for kill and exec
14220: */
14221: char *
14222: strerror(i)
14223: int i;
14224: {
14225: switch (i) {
14226: case EINVAL:
14227: return "Invalid argument";
14228: case EACCES:
14229: return "Permission denied";
14230: case ESRCH:
14231: return "No such process";
14232: case EPERM:
14233: return "Not owner";
14234: case ENOENT:
14235: return "No such file or directory";
14236: case ENOTDIR:
14237: return "Not a directory";
14238: case ENOEXEC:
14239: return "Exec format error";
14240: case ENOMEM:
14241: return "Not enough memory";
14242: case E2BIG:
14243: return "Argument list too long";
14244: default:
14245: return "Unknown system error";
14246: }
14247: }
14248:
14249: #endif
14250:
14251: /* -------- gmatch.c -------- */
14252:
14253: /*
14254: * int gmatch(string, pattern)
14255: * char *string, *pattern;
14256: *
14257: * Match a pattern as in sh(1).
14258: * pattern character are prefixed with MAGIC by expand.
14259: */
14260:
14261: static char *cclass ARGS((char *, int c));
14262:
14263: int
14264: gmatch(s, p)
14265: register char *s, *p;
14266: {
14267: register int sc, pc;
14268:
14269: if (s == NULL || p == NULL)
14270: return 0;
14271: while ((pc = *p++) != 0) {
14272: sc = *s++;
14273: if (pc == MAGIC)
14274: switch (*p++) {
14275: case '[':
14276: if (sc == 0 || (p = cclass(p, sc)) == NULL)
14277: return (0);
14278: break;
14279:
14280: case '?':
14281: if (sc == 0)
14282: return (0);
14283: break;
14284:
14285: case '*':
14286: s--;
14287: do {
14288: if (*p == '\0' || gmatch(s, p))
14289: return (1);
14290: } while (*s++ != '\0');
14291: return (0);
14292:
14293: default:
14294: if (sc != p[-1])
14295: return 0;
14296: break;
14297: }
14298: else
14299: if (sc != pc)
14300: return 0;
14301: }
14302: return (*s == 0);
14303: }
14304:
14305: static char *
14306: cclass(p, sub)
14307: register char *p;
14308: register int sub;
14309: {
14310: register int c, d, not, found = 0;
14311:
14312: if ((not = (*p == MAGIC && *++p == NOT)))
14313: p++;
14314: do {
14315: if (*p == MAGIC)
14316: p++;
14317: if (*p == '\0')
14318: return NULL;
14319: c = *p;
14320: if (p[1] == '-' && p[2] != ']') {
14321: d = p[2];
14322: p++;
14323: } else
14324: d = c;
14325: if (c == sub || (c <= sub && sub <= d))
14326: found = 1;
14327: } while (*++p != ']');
14328:
14329: return (found != not) ? p+1 : NULL;
14330: }
14331:
14332: /* -------- qsort.c -------- */
14333:
14334: /*
14335: * quick sort of array of generic pointers to objects.
14336: */
14337:
14338: void
14339: qsortp(base, n, f)
14340: void **base; /* base address */
14341: size_t n; /* elements */
14342: int (*f)(); /* compare function */
14343: {
14344: qsort1(base, base + n, f);
14345: }
14346:
14347: #define swap2(a, b) {\
14348: register void *t; t = *(a); *(a) = *(b); *(b) = t;\
14349: }
14350: #define swap3(a, b, c) {\
14351: register void *t; t = *(a); *(a) = *(c); *(c) = *(b); *(b) = t;\
14352: }
14353:
14354: qsort1(base, lim, f)
14355: void **base, **lim;
14356: int (*f)();
14357: {
14358: register void **i, **j;
14359: register void **lptr, **hptr;
14360: size_t n;
14361: int c;
14362:
14363: top:
14364: n = (lim - base) / 2;
14365: if (n == 0)
14366: return;
14367: hptr = lptr = base+n;
14368: i = base;
14369: j = lim - 1;
14370:
14371: for (;;) {
14372: if (i < lptr) {
14373: if ((c = (*f)(*i, *lptr)) == 0) {
14374: lptr --;
14375: swap2(i, lptr);
14376: continue;
14377: }
14378: if (c < 0) {
14379: i += 1;
14380: continue;
14381: }
14382: }
14383:
14384: begin:
14385: if (j > hptr) {
14386: if ((c = (*f)(*hptr, *j)) == 0) {
14387: hptr ++;
14388: swap2(hptr, j);
14389: goto begin;
14390: }
14391: if (c > 0) {
14392: if (i == lptr) {
14393: hptr ++;
14394: swap3(i, hptr, j);
14395: i = lptr += 1;
14396: goto begin;
14397: }
14398: swap2(i, j);
14399: j -= 1;
14400: i += 1;
14401: continue;
14402: }
14403: j -= 1;
14404: goto begin;
14405: }
14406:
14407: if (i == lptr) {
14408: if (lptr-base >= lim-hptr) {
14409: qsort1(hptr+1, lim, f);
14410: lim = lptr;
14411: } else {
14412: qsort1(base, lptr, f);
14413: base = hptr+1;
14414: }
14415: goto top;
14416: }
14417:
14418: lptr -= 1;
14419: swap3(j, lptr, i);
14420: j = hptr -= 1;
14421: }
14422: }
14423:
14424: int
14425: xstrcmp(p1, p2)
14426: void *p1, *p2;
14427: {
14428: return (strcmp((char *)p1, (char *)p2));
14429: }
14430:
14431: void
14432: cleanpath(pwd, dir, clean)
14433: char *pwd, *dir, *clean;
14434: {
14435: register char *s, *d, *p;
14436: char *slash = "/";
14437: register int inslash = 0;
14438:
14439: d = clean;
14440: if (*dir != '/') {
14441: s = pwd;
14442: while (*d++ = *s++)
14443: ;
14444: if (d >= clean + 2 && *(d - 2) == '/')
14445: d--;
14446: else
14447: *(d - 1) = '/';
14448: }
14449:
14450: s = dir;
14451: while (*s) {
14452: if ((*d++ = *s++) == '/' && d > clean + 1) {
14453: if (*(p = d - 2) == '/') {
14454: --d;
14455: } else if (*p == '.') {
14456: if (*--p == '/') {
14457: d -= 2;
14458: } else if (*p == '.' && *--p == '/') {
14459: while (p > clean && *--p != '/')
14460: ;
14461: d = p + 1;
14462: }
14463: }
14464: }
14465: if (!*s && !inslash && *(s - 1) != '/') {
14466: inslash = 1;
14467: s = slash;
14468: }
14469: }
14470:
14471: if (*(d - 1) == '/' && (d - 1) > clean)
14472: d--;
14473: *d = '\0';
14474: }
14475: ./pdksh/sh/sh.h 644 653 1762 16566 5302634513 10635 0 ustar hlu /*
14476: * Public Domain Bourne/Korn shell
14477: */
14478:
14479: /* $Id: sh.h,v 1.5 1992/08/12 14:15:48 sjg Exp $ */
14480:
14481: #include "config.h"
14482:
14483: /* some useful #defines */
14484: #ifdef EXTERN
14485: # define _I_(i) = i
14486: #else
14487: # define _I_(i)
14488: # define EXTERN extern
14489: # define EXTERN_DEFINED
14490: #endif
14491:
14492: #ifndef SHELL
14493: #define SHELL "/bin/sh" /* shell to exec scripts */
14494: #endif
14495:
14496: #ifdef _BSD
14497: #define memmove(dst, src, n) bcopy((src), (dst), (n))
14498: #endif
14499:
14500: /* some people object to this use of __STDC__ */
14501: #ifdef __STDC__
14502: #define ARGS(args) args /* prototype declaration */
14503: #else
14504: #define ARGS(args) () /* K&R declaration */
14505: #ifdef VOID
14506: #define void VOID
14507: #endif
14508: #define const
14509: #define volatile
14510: #endif
14511:
14512: #ifdef _ULTRIX /* Ultrix 2.x gets dup2 wrong */
14513: int dup2 ARGS ((int, int));
14514: /* assumes we don't want dup2 return value */
14515: #define dup2(ofd, nfd) \
14516: (void) ((dup2)(ofd, nfd), fcntl(nfd, F_SETFD, 0))
14517: #endif
14518:
14519: #if defined(EMACS) || defined(VI)
14520: #define EDIT
14521: #endif
14522:
14523: typedef int bool_t;
14524: #define FALSE 0
14525: #define TRUE 1
14526:
14527: #define sizeofN(type, n) (sizeof(type) * (n))
14528: #define BIT(i) (1<<(i)) /* define bit in flag */
14529:
14530: #define NUFILE 10 /* Number of user-accessible files */
14531: #define FDBASE 10 /* First file usable by Shell */
14532:
14533: /* you're not going to run setuid shell scripts, are you? */
14534: #define eaccess(path, mode) access(path, mode)
14535:
14536: #define MAGIC (char)0x80 /* prefix for ~*?[ during expand */
14537: #define NOT '!' /* might use ^ */
14538:
14539: #define LINE 256 /* input line size */
14540: #define PATH 256 /* pathname size */
14541:
14542: EXTERN int kshpid; /* $$, shell pid */
14543: EXTERN int exstat; /* exit status */
14544: EXTERN int async; /* $!, last &'d pid */
14545: EXTERN volatile int sigchld_caught; /* count of dead children */
14546:
14547:
14548: /*
14549: * Area-based allocation built on malloc/free
14550: */
14551:
14552: typedef struct Area {
14553: struct Block *free; /* free list */
14554: } Area;
14555:
14556: extern Area aperm; /* permanent object space */
14557: #define APERM &aperm
14558: #define ATEMP &e.area
14559:
14560: /*
14561: * parsing & execution environment
14562: */
14563: EXTERN struct env {
14564: int type; /* enviroment type - see below */
14565: Area area; /* temporary allocation area */
14566: struct block *loc; /* local variables and functions */
14567: short *savefd; /* original redirected fd's */
14568: struct env *oenv; /* link to previous enviroment */
14569: jmp_buf jbuf; /* long jump back to env creator */
14570: int interactive; /* fd's 0,1,2 are tty */
14571: struct temp *temps; /* temp files */
14572: } e;
14573:
14574: #define E_NONE 0 /* dummy enviroment */
14575: #define E_PARSE 1 /* parsing command # */
14576: #define E_EXEC 2 /* executing command tree */
14577: #define E_LOOP 3 /* executing for/while # */
14578: #define E_TCOM 5 /* executing simple command */
14579: #define E_FUNC 6 /* executing function */
14580: #define E_ERRH 7 /* general error handler # */
14581: /* # indicates env has valid jbuf */
14582:
14583: /*
14584: * flags
14585: */
14586: #define FEXPORT FLAG('a') /* -a: allexport */
14587: #define FERREXIT FLAG('e') /* -e: errexit (quit on error) */
14588: #define FBGNICE 29 /* bgnice */
14589: #define FEMACS 30 /* emacs command editing */
14590: #define FIGNEOF 27 /* ignoreeof (eof does not exit) */
14591: #define FHASHALL FLAG('h') /* -h: trackall, hashall */
14592: #define FTALKING FLAG('i') /* -i: interactive (talking type wireless) */
14593: #define FKEYWORD FLAG('k') /* -k: keyword (name=value anywhere) */
14594: #define FMARKDIRS 28 /* markdirs */
14595: #define FMONITOR FLAG('m') /* -m: monitor */
14596: #define FNOEXEC FLAG('n') /* -n: noexec */
14597: #define FNOGLOB FLAG('f') /* -f: noglob */
14598: #define FPRIVILEGED FLAG('p') /* -p: privileged */
14599: #define FSTDIN FLAG('s') /* -s (invocation): parse stdin */
14600: #define FNOUNSET FLAG('u') /* -u: nounset (unset vars is error) */
14601: #define FVERBOSE FLAG('v') /* -v: verbose (echo input) */
14602: #define FVI 31 /* vi command editing */
14603: #define FXTRACE FLAG('x') /* -x: (execute) xtrace */
14604:
14605: #define FLAG(c) (1 + c - 'a') /* map char to flags index */
14606: #define FLAGS 32
14607: EXTERN char flag [FLAGS];
14608: int option ARGS((const char *name));
14609: char *getoptions ARGS((void));
14610: void printoptions ARGS((void));
14611:
14612: extern char null []; /* null value for variable */
14613:
14614: /*
14615: * other functions
14616: */
14617: char * substitute ARGS((char const *, int));
14618: char *search();
14619: struct tbl *findcom();
14620: char *strsave ARGS((char *, Area *));
14621: char *ulton ARGS((unsigned long n, int base));
14622: int xstrcmp();
14623: void qsortp ARGS((void **base, size_t n, int (*compare)(void *, void *)));
14624: long evaluate ARGS((const char *expr));
14625: void resetopts();
14626: void histsave();
14627: void histlist();
14628: int pr_menu ARGS((char **, int));
14629:
14630: void j_init ARGS((void));
14631: void j_exit ARGS((void));
14632: void j_notify ARGS((void));
14633: void j_kill ARGS((int job, int sig));
14634: #ifdef JOBS
14635: void j_change ARGS((void));
14636: int j_resume ARGS((int job, int bg));
14637: #endif
14638:
14639: /*
14640: * error handling
14641: */
14642: void leave(); /* abort shell (or fail in subshell) */
14643:
14644: /*
14645: * library functions
14646: */
14647: typedef void (*handler_t)(); /* signal handler */
14648:
14649: /* temp/here files. the file is removed when the struct is freed */
14650: struct temp {
14651: struct temp * next;
14652: char *name;
14653: };
14654: struct temp *maketemp ARGS((Area *ap));
14655:
14656: /*
14657: * stdio and our IO routines
14658: */
14659:
14660: #ifdef BUFSIZ /* <stdio.h> included? */
14661: extern FILE * shf [NUFILE]; /* map shell fd to FILE */
14662: #endif
14663: void fopenshf();
14664: void flushshf();
14665:
14666: #undef stdin
14667: #undef stdout
14668:
14669: #define stdin shf[0] /* standard input */
14670: #define stdout shf[1] /* standard output */
14671: #define shlout shf[2] /* shell output */
14672:
14673: int shellf ARGS((const char *fmt, ...)); /* fprintf(shlout, ); */
14674: int errorf ARGS((const char *fmt, ...)); /* fprintf(shlout, ); error(); */
14675:
14676: /*
14677: * IO control
14678: */
14679: extern int ttyfd; /* tty fd (original fd 0) */
14680:
14681: int savefd ARGS((int fd)); /* save user fd */
14682: void restfd ARGS((int fd, int ofd));
14683: void openpipe ARGS((int [2]));
14684: void closepipe ARGS((int [2]));
14685:
14686: /*
14687: * trap handlers
14688: */
14689: typedef struct trap {
14690: int signal; /* signal number */
14691: char *name; /* short name */
14692: char *mess; /* descriptive name */
14693: char *trap; /* trap command */
14694: int volatile set; /* trap pending */
14695: int ourtrap; /* not ignored (?) */
14696: int sig_dfl; /* originally SIG_DFL */
14697: } Trap;
14698:
14699: #ifndef SIGKILL
14700: #include <signal.h>
14701: #endif /* SIGKILL */
14702: #ifdef NSIG
14703: #define SIGNALS NSIG
14704: #else
14705: #ifdef _MINIX
14706: #define SIGNALS (_NSIG+1) /* _NSIG is # of signals used, excluding 0. */
14707: #else
14708: #define SIGNALS 32
14709: #endif /* _MINIX */
14710: #endif /* NSIG */
14711:
14712: #ifdef USE_SIGACT /* always use it? */
14713: #ifndef SA_NOCLDSTOP
14714: # include "sigact.h" /* use sjg's fake sigaction() */
14715: #endif
14716: EXTERN struct sigaction Sigact, Sigact_dfl, Sigact_ign, Sigact_trap;
14717: #endif
14718:
14719: EXTERN int volatile trap; /* traps pending? */
14720: extern Trap sigtraps[SIGNALS];
14721: Trap *gettrap ARGS((char *)); /* search for struct trap by number or name */
14722: void trapsig ARGS((int sig)); /* trap signal handler */
14723:
14724: /*
14725: * fast character classes
14726: */
14727: #define C_ALPHA 0x01 /* a-z_A-Z */
14728: #define C_DIGIT 0x02 /* 0-9 */
14729: #define C_LEX1 0x04 /* \0 \t\n|&;<>() */
14730: #define C_VAR1 0x08 /* *@#!$-? */
14731: #define C_SUBOP 0x40 /* "=-+?#%" */
14732: #define C_IFS 0x80 /* $IFS */
14733:
14734: extern char ctypes [];
14735: #if 0
14736: void initctypes ARGS((void));
14737: void setctypes ARGS((const char*, int type));
14738: #endif
14739: #define ctype(c, t) !!(ctypes[(unsigned char)(c)]&(t))
14740: #define letter(c) ctype(c, C_ALPHA)
14741: #define digit(c) ctype(c, C_DIGIT)
14742: #define letnum(c) ctype(c, C_ALPHA|C_DIGIT)
14743:
14744: #include "table.h"
14745: #include "tree.h"
14746: #include "lex.h"
14747: #include "proto.h"
14748:
14749: /*
14750: * 91-07-06 <sjg@sun0>
14751: * use my simple debug tracing...
14752: */
14753: #include "trace.h"
14754:
14755: #ifdef linux
14756: #include <stdio.h>
14757: #else
14758: #ifndef fileno
14759: /* This is quite outrageous. H.J. */
14760: #define fileno(p) ((p)->_file)
14761: #endif
14762: #endif
14763:
14764: /* be sure not to interfere with anyone else's idea about EXTERN */
14765: #ifdef EXTERN_DEFINED
14766: # undef EXTERN_DEFINED
14767: # undef EXTERN
14768: #endif
14769: #undef _I_
14770: /*
14771: * Local Variables:
14772: * version-control:t
14773: * comment-column:40
14774: * End:
14775: */
14776: ./pdksh/sh/table.c 644 653 1762 7360 5243743614 11264 0 ustar hlu #ifndef lint
14777: static char *RCSid = "$Id: table.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
14778: #endif
14779:
14780: /*
14781: * dynamic hashed associative table for commands and variables
14782: */
14783:
14784: #include "stdh.h"
14785: #include <errno.h>
14786: #include <setjmp.h>
14787: #include "sh.h"
14788:
14789: #define INIT_TBLS 8 /* initial table size (power of 2) */
14790:
14791: static struct tstate {
14792: int left;
14793: struct tbl **next;
14794: } tstate;
14795:
14796: static void texpand ARGS((struct table *tp, int nsize));
14797: static int tnamecmp ARGS((void *p1, void *p2));
14798:
14799:
14800: unsigned int
14801: hash(n)
14802: register char * n;
14803: {
14804: register unsigned int h = 0;
14805:
14806: while (*n != '\0')
14807: h = 2*h + *n++;
14808: return h * 32821; /* scatter bits */
14809: }
14810:
14811: #if 0
14812: phash(s) char *s; {
14813: printf("%2d: %s\n", hash(s)%32, s);
14814: }
14815: #endif
14816:
14817: void
14818: tinit(tp, ap)
14819: register struct table *tp;
14820: register Area *ap;
14821: {
14822: tp->areap = ap;
14823: tp->size = tp->free = 0;
14824: tp->tbls = NULL;
14825: }
14826:
14827: static void
14828: texpand(tp, nsize)
14829: register struct table *tp;
14830: int nsize;
14831: {
14832: register int i;
14833: register struct tbl *tblp, **p;
14834: register struct tbl **ntblp, **otblp = tp->tbls;
14835: int osize = tp->size;
14836:
14837: ntblp = (struct tbl**) alloc(sizeofN(struct tbl *, nsize), tp->areap);
14838: for (i = 0; i < nsize; i++)
14839: ntblp[i] = NULL;
14840: tp->size = nsize;
14841: tp->free = 8*nsize/10; /* table can get 80% full */
14842: tp->tbls = ntblp;
14843: if (otblp == NULL)
14844: return;
14845: for (i = 0; i < osize; i++)
14846: if ((tblp = otblp[i]) != NULL)
14847: if ((tblp->flag&DEFINED)) {
14848: for (p = &ntblp[hash(tblp->name) &
14849: (tp->size-1)];
14850: *p != NULL; p--)
14851: if (p == ntblp) /* wrap */
14852: p += tp->size;
14853: *p = tblp;
14854: tp->free--;
14855: } else {
14856: afree((void*)tblp, tp->areap);
14857: }
14858: afree((void*)otblp, tp->areap);
14859: }
14860:
14861: struct tbl *
14862: tsearch(tp, n, h)
14863: register struct table *tp; /* table */
14864: register char *n; /* name to enter */
14865: unsigned int h; /* hash(n) */
14866: {
14867: register struct tbl **pp, *p;
14868:
14869: if (tp->size == 0)
14870: return NULL;
14871:
14872: /* search for name in hashed table */
14873: for (pp = &tp->tbls[h & (tp->size-1)]; (p = *pp) != NULL; pp--) {
14874: if (*p->name == *n && strcmp(p->name, n) == 0
14875: && (p->flag&DEFINED))
14876: return p;
14877: if (pp == tp->tbls) /* wrap */
14878: pp += tp->size;
14879: }
14880:
14881: return NULL;
14882: }
14883:
14884: struct tbl *
14885: tenter(tp, n, h)
14886: register struct table *tp; /* table */
14887: register char *n; /* name to enter */
14888: unsigned int h; /* hash(n) */
14889: {
14890: register struct tbl **pp, *p;
14891: register char *cp;
14892:
14893: if (tp->size == 0)
14894: texpand(tp, INIT_TBLS);
14895: Search:
14896: /* search for name in hashed table */
14897: for (pp = &tp->tbls[h & (tp->size-1)]; (p = *pp) != NULL; pp--) {
14898: if (*p->name == *n && strcmp(p->name, n) == 0)
14899: return p; /* found */
14900: if (pp == tp->tbls) /* wrap */
14901: pp += tp->size;
14902: }
14903:
14904: if (tp->free <= 0) { /* too full */
14905: texpand(tp, 2*tp->size);
14906: goto Search;
14907: }
14908:
14909: /* create new tbl entry */
14910: for (cp = n; *cp != '\0'; cp++)
14911: ;
14912: p = (struct tbl *) alloc(offsetof(struct tbl, name[(cp-n)+1]), tp->areap);
14913: p->flag = 0;
14914: p->type = 0;
14915: for (cp = p->name; *n != '\0';)
14916: *cp++ = *n++;
14917: *cp = '\0';
14918:
14919: /* enter in tp->tbls */
14920: tp->free--;
14921: *pp = p;
14922: return p;
14923: }
14924:
14925: void
14926: tdelete(p)
14927: register struct tbl *p;
14928: {
14929: p->flag = 0;
14930: }
14931:
14932: void
14933: twalk(tp)
14934: register struct table *tp;
14935: {
14936: tstate.left = tp->size;
14937: tstate.next = tp->tbls;
14938: }
14939:
14940: struct tbl *
14941: tnext()
14942: {
14943: while (--tstate.left >= 0) {
14944: struct tbl *p = *tstate.next++;
14945: if (p != NULL && (p->flag&DEFINED))
14946: return p;
14947: }
14948: return NULL;
14949: }
14950:
14951: static int
14952: tnamecmp(p1, p2)
14953: void *p1, *p2;
14954: {
14955: return strcmp(((struct tbl *)p1)->name, ((struct tbl *)p2)->name);
14956: }
14957:
14958: struct tbl **
14959: tsort(tp)
14960: register struct table *tp;
14961: {
14962: register int i;
14963: register struct tbl **p, **sp, **dp;
14964:
14965: p = (struct tbl **)alloc(sizeofN(struct tbl *, tp->size+1), ATEMP);
14966: sp = tp->tbls; /* source */
14967: dp = p; /* dest */
14968: for (i = 0; i < tp->size; i++)
14969: if ((*dp = *sp++) != NULL && ((*dp)->flag&DEFINED))
14970: dp++;
14971: i = dp - p;
14972: qsortp((void**)p, (size_t)i, tnamecmp);
14973: p[i] = NULL;
14974: return p;
14975: }
14976:
14977: ./pdksh/sh/Makefile 644 653 1762 12705 5303002252 11467 0 ustar hlu # PD Bourne/Korn Shell
14978: # $Id: Makefile,v 1.3 1992/08/10 12:02:18 sjg Exp $
14979:
14980: SHELL = /bin/sh
14981: MAKE = make
14982:
14983: LN = ln -s
14984:
14985: # You _can_ build this shell without the ../std tree if your
14986: # system provides a sufficiently POSIX environment, or if your
14987: # BSD system is a Sun or close. If not try ../std.
14988:
14989: # gcc is good value on most mc68k's and sun386's if nothing else.
14990: # if you don't have gcc cc should do
14991: # CC=gcc -pipe
14992: CC=gcc -pipe
14993: CC=/usr/local/bin/gcc
14994:
14995: # The following are the defintions used (or thereabouts)
14996: # to build ksh without ../std
14997: #
14998: # sun386 SunOS 4.0.2, sun3 SunOS 4.0.3
14999: # CONFIG=-D_BSD
15000: # XOPTS=-DNOSTDHDRS
15001: # copy these from ../std/stdc or ensure they are in libstdc.a
15002: # XOBJS = memmove.o strstr.o
15003: #
15004: # sun3 SunOS 4.1.1
15005: # CONFIG=-D_BSD
15006: # XOPTS=-DNOSTDHDRS
15007: # copy these from ../std/stdc or ensure they are in libstdc.a
15008: # XOBJS = memmove.o
15009: #
15010: # sun4c (sparc) SunOS 4.1.1
15011: # CC=cc -pipe # don't use gcc
15012: # CONFIG=-D_BSD
15013: # XOPTS=-DNOSTDHDRS
15014: # copy these from ../std/stdc or ensure they are in libstdc.a
15015: # XOBJS = memmove.o
15016: #
15017: # Bull DPX/2 B.O.S. 2.00.45
15018: # CC=gcc -ansi
15019: # CONFIG=-D_POSIX_SOURCE
15020: # XOPTS=
15021: # XOBJS=
15022: #
15023: # Minix-386 1.5.10 with estdio
15024: # CONFIG= -D_BSD -D_MINIX -D_POSIX_SOURCE
15025: # XOPTS=
15026: # XOBJS=
15027: #
15028: # BSD/386
15029: # CONFIG= -D_BSDI -D_POSIX_TERM -D_POSIX_SOURCE
15030: # XOPTS=
15031: # XOBJS=
15032:
15033: #CONFIG= -D_SYSV
15034: #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
15035: CONFIG= -D_BSD -DCOMPLEX_HISTORY
15036:
15037:
15038: STD=../std
15039: INCL=$(STD)/h
15040: XINCL=-I$(INCL)
15041: LDOPTS=-L$(STD)
15042: XOBJS=
15043:
15044: # use -O if you trust it :-)
15045: DBG=-g -O
15046: DBG=-O
15047: CFLAGS = $(DBG) $(CONFIG) $(XINCL) $(XOPTS)
15048:
15049: LDFLAGS = $(DBG) $(LDOPTS)
15050:
15051: #COMPATLIBS = -lstdc -lposix
15052: #XLIBS = -lc_s
15053: #XLIBS = -ldirent
15054: LDLIBS = $(COMPATLIBS) $(XLIBS)
15055:
15056: HDRS = sh.h table.h expand.h lex.h tree.h tty.h trace.h
15057: SRCS1 = version.c main.c misc.c trap.c alloc.c io.c \
15058: syn.c lex.c edit.c emacs.c vi.c history.c tree.c
15059: SRCS2 = exec.c jobs.c \
15060: c_sh.c c_ksh.c c_test.c getopts.c do_ulimit.c \
15061: var.c table.c eval.c expr.c mail.c sigact.c trace.c
15062: SRCS = Makefile $(HDRS) $(SRCS1) $(SRCS2)
15063:
15064: OBJS = version.o main.o misc.o \
15065: syn.o lex.o edit.o emacs.o vi.o tree.o \
15066: exec.o jobs.o trap.o \
15067: c_sh.o c_ksh.o c_test.o \
15068: do_ulimit.o getopts.o expr.o history.o \
15069: var.o table.o alloc.o io.o eval.o mail.o sigact.o trace.o $(XOBJS)
15070:
15071: ksh: $(OBJS)
15072: $(CC) $(LDFLAGS) -o $@ $(OBJS) $(LDLIBS)
15073:
15074: clean:
15075: rm -f *.o *.out core
15076:
15077: clobber: clean
15078: rm -f ksh
15079:
15080: link:
15081: ($(SHELL) ../std/mklinks ../std/h stdh.h)
15082:
15083:
15084: depend:
15085: makedepend $(CFLAGS) $(SRCS1) $(SRCS2)
15086:
15087: install:
15088: @echo "Try:"
15089: @echo "cp ksh /bin"
15090: @echo "strip /bin/ksh"
15091: @echo "chmod 555 /bin/ksh"
15092:
15093: .c.s:
15094: $(CC) $(CFLAGS) -S -o $@ $<
15095:
15096: asms: $(OBJS:.o=.s)
15097:
15098:
15099: # DO NOT DELETE THIS LINE -- make depend depends on it.
15100: # If this runs make out of memory, delete /usr/include lines.
15101: alloc.o: alloc.c
15102: alloc.o: config.h
15103: alloc.o: sh.h
15104: alloc.o: stdh.h
15105: alloc.o: trace.h
15106: c_ksh.o: c_ksh.c
15107: c_ksh.o: config.h
15108: c_ksh.o: sh.h
15109: c_ksh.o: stdh.h
15110: c_ksh.o: table.h
15111: c_ksh.o: trace.h
15112: c_sh.o: c_sh.c
15113: c_sh.o: config.h
15114: c_sh.o: lex.h
15115: c_sh.o: sh.h
15116: c_sh.o: stdh.h
15117: c_sh.o: table.h
15118: c_sh.o: trace.h
15119: c_sh.o: tree.h
15120: c_test.o: c_test.c
15121: c_test.o: config.h
15122: c_test.o: sh.h
15123: c_test.o: stdh.h
15124: c_test.o: trace.h
15125: edit.o: config.h
15126: edit.o: edit.c
15127: edit.o: edit.h
15128: edit.o: lex.h
15129: edit.o: sh.h
15130: edit.o: stdh.h
15131: edit.o: trace.h
15132: edit.o: tty.h
15133: emacs.o: config.h
15134: emacs.o: edit.h
15135: emacs.o: emacs.c
15136: emacs.o: expand.h
15137: emacs.o: lex.h
15138: emacs.o: sh.h
15139: emacs.o: stdh.h
15140: emacs.o: table.h
15141: emacs.o: trace.h
15142: emacs.o: tree.h
15143: eval.o: config.h
15144: eval.o: eval.c
15145: eval.o: expand.h
15146: eval.o: lex.h
15147: eval.o: sh.h
15148: eval.o: stdh.h
15149: eval.o: table.h
15150: eval.o: trace.h
15151: eval.o: tree.h
15152: exec.o: config.h
15153: exec.o: exec.c
15154: exec.o: lex.h
15155: exec.o: sh.h
15156: exec.o: stdh.h
15157: exec.o: table.h
15158: exec.o: trace.h
15159: exec.o: tree.h
15160: expr.o: config.h
15161: expr.o: expr.c
15162: expr.o: sh.h
15163: expr.o: stdh.h
15164: expr.o: table.h
15165: expr.o: trace.h
15166: getopts.o: config.h
15167: getopts.o: getopts.c
15168: getopts.o: sh.h
15169: getopts.o: stdh.h
15170: getopts.o: table.h
15171: getopts.o: trace.h
15172: history.o: config.h
15173: history.o: history.c
15174: history.o: lex.h
15175: history.o: sh.h
15176: history.o: stdh.h
15177: history.o: trace.h
15178: io.o: config.h
15179: io.o: io.c
15180: io.o: sh.h
15181: io.o: stdh.h
15182: io.o: trace.h
15183: jobs.o: config.h
15184: jobs.o: jobs.c
15185: jobs.o: sh.h
15186: jobs.o: stdh.h
15187: jobs.o: trace.h
15188: jobs.o: tree.h
15189: lex.o: config.h
15190: lex.o: expand.h
15191: lex.o: lex.c
15192: lex.o: lex.h
15193: lex.o: sh.h
15194: lex.o: stdh.h
15195: lex.o: table.h
15196: lex.o: trace.h
15197: lex.o: tree.h
15198: mail.o: config.h
15199: mail.o: mail.c
15200: mail.o: sh.h
15201: mail.o: stdh.h
15202: mail.o: table.h
15203: mail.o: trace.h
15204: main.o: config.h
15205: main.o: lex.h
15206: main.o: main.c
15207: main.o: sh.h
15208: main.o: stdh.h
15209: main.o: table.h
15210: main.o: trace.h
15211: main.o: tree.h
15212: memmove.o: memmove.c
15213: memmove.o: stdh.h
15214: misc.o: config.h
15215: misc.o: expand.h
15216: misc.o: misc.c
15217: misc.o: sh.h
15218: misc.o: stdh.h
15219: misc.o: trace.h
15220: strstr.o: stdh.h
15221: strstr.o: strstr.c
15222: syn.o: config.h
15223: syn.o: expand.h
15224: syn.o: lex.h
15225: syn.o: sh.h
15226: syn.o: stdh.h
15227: syn.o: syn.c
15228: syn.o: table.h
15229: syn.o: trace.h
15230: syn.o: tree.h
15231: sigact.o: sigact.h sigact.c
15232: table.o: config.h
15233: table.o: sh.h
15234: table.o: stdh.h
15235: table.o: table.c
15236: table.o: table.h
15237: table.o: trace.h
15238: times.o: times.c
15239: trace.o: trace.c
15240: trap.o: config.h
15241: trap.o: sh.h
15242: trap.o: stdh.h
15243: trap.o: trace.h
15244: trap.o: trap.c
15245: tree.o: config.h
15246: tree.o: sh.h
15247: tree.o: stdh.h
15248: tree.o: trace.h
15249: tree.o: tree.c
15250: tree.o: tree.h
15251: do_ulimit.o: config.h
15252: do_ulimit.o: sh.h
15253: do_ulimit.o: stdh.h
15254: do_ulimit.o: trace.h
15255: do_ulimit.o: do_ulimit.c
15256: var.o: config.h
15257: var.o: expand.h
15258: var.o: sh.h
15259: var.o: stdh.h
15260: var.o: table.h
15261: var.o: trace.h
15262: var.o: var.c
15263: version.o: config.h
15264: version.o: sh.h
15265: version.o: stdh.h
15266: version.o: trace.h
15267: version.o: version.c
15268: vi.o: config.h
15269: vi.o: edit.h
15270: vi.o: expand.h
15271: vi.o: lex.h
15272: vi.o: sh.h
15273: vi.o: stdh.h
15274: vi.o: table.h
15275: vi.o: trace.h
15276: vi.o: tree.h
15277: vi.o: vi.c
15278: # WARNING: Put nothing here or make depend will gobble it up!
15279: ./pdksh/sh/ReadMe 644 653 1762 3104 5243742756 11107 0 ustar hlu Public Domain KornShell
15280:
15281: Quick installation notes for PD KornShell
15282:
15283: PD KornShell can be installed on 4.2+ BSD systems, System V, and
15284: POSIX-compatable systems. The makefiles all define _BSD, change
15285: this to _SYSV, or _POSIX. The makefiles also contain CC=gcc,
15286: delete this if you don't have GNU C. The ksh makefile also
15287: contains some options, including JOBS (BSD/POSIX job control)
15288: and EDIT (emacs command editing).
15289:
15290: PD KornShell assumes you have standard C (ANSI) and POSIX header
15291: files and functions. Since you probably don't, they are provided
15292: in the "std" directory.
15293:
15294: The Alpha test version will probably come as two tar files.
15295: std.tar contains standard C and POSIX emulation and must be
15296: extracted into a directory called std. ksh.tar contains the ksh
15297: source and should be extracted into a directory called src or
15298: ksh.
15299:
15300: See std/ReadMe and install it. Only then can you make ksh in the
15301: "src" directory.
15302:
15303: To clear up questions about the origin of this shell, this shell
15304: is NOT based on the "Minix shell". It is based on Charles
15305: Forsyth's public domain V7 shell, which he later contributed to
15306: Minix.
15307:
15308: I have permission directly from Charles Forsyth to use his shell.
15309:
15310: Eric Gisin, [email protected] (or Waterloo.EDU)
15311:
15312: Things to do
15313: - add sxt-based job control (see Brown's contribution on the Usenix 87 tape).
15314: - add arrays and variable attributes.
15315: - add MAILPATH and CDPATH.
15316: - add vi editing mode (apparently someone has a PD version).
15317: - add new features described in Korn's book.
15318:
15319: Machines ported to
15320: VAX, 68000, 80386
15321:
15322: OS's ported to
15323: BSD 4.2, BSD 4.3 (with and without YP and NFS
15324: Sys V.3
15325: ./pdksh/sh/alloc.h 644 653 1762 172 5243743566 11254 0 ustar hlu /*
15326: * area-based allocation built on malloc/free
15327: */
15328:
15329: typedef struct Area {
15330: struct Block *free; /* free list */
15331: } Area;
15332:
15333: ./pdksh/sh/edit.h 644 653 1762 4134 5243743674 11131 0 ustar hlu /* NAME:
15334: * edit.h - globals for edit modes
15335: *
15336: * DESCRIPTION:
15337: * This header defines various global edit objects.
15338: *
15339: * SEE ALSO:
15340: *
15341: *
15342: * RCSid:
15343: * $Id: edit.h,v 1.4 1992/08/12 14:15:25 sjg Exp $
15344: *
15345: */
15346:
15347: /* some useful #defines */
15348: #ifdef EXTERN
15349: # define _I_(i) = i
15350: #else
15351: # define _I_(i)
15352: # define EXTERN extern
15353: # define EXTERN_DEFINED
15354: #endif
15355:
15356: #define BEL 0x07
15357:
15358: /*
15359: * The following are used for my horizontal scrolling stuff
15360: */
15361: EXTERN char *xbuf; /* beg input buffer */
15362: EXTERN char *xend; /* end input buffer */
15363: EXTERN char *xcp; /* current position */
15364: EXTERN char *xep; /* current end */
15365: EXTERN char *xbp; /* start of visible portion of input buffer */
15366: EXTERN char *xlp; /* last char visible on screen */
15367: EXTERN int x_adj_ok;
15368: /*
15369: * we use x_adj_done so that functions can tell
15370: * whether x_adjust() has been called while they are active.
15371: */
15372: EXTERN int x_adj_done;
15373:
15374: EXTERN int x_cols _I_(80); /* default to 80 cols */
15375: EXTERN int x_col;
15376: EXTERN int x_displen;
15377: EXTERN int x_arg; /* general purpose arg */
15378:
15379: EXTERN int x_do_init; /* set up tty modes */
15380: EXTERN int ed_erase, ed_kill, ed_werase, ed_intr, ed_quit;
15381:
15382: #ifdef DEBUG
15383: # define _D_(x) x
15384: #else
15385: # define _D_(x)
15386: #endif
15387:
15388: /**** edit.c ****/
15389: int x_read ARGS((int fd, char *buf, size_t len));
15390: int x_getc ARGS((void));
15391: void x_flush ARGS((void));
15392: void x_adjust ARGS((void));
15393: void x_putc ARGS((int c));
15394: int x_debug_info ARGS((void));
15395: void x_puts ARGS((char *s));
15396: void x_init ARGS((void));
15397: bool_t x_mode ARGS((bool_t onoff));
15398: bool_t x_mode ARGS((bool_t onoff));
15399: int promptlen ARGS((char *cp));
15400:
15401: /**** emacs.c ****/
15402: void x_redraw ARGS((int limit));
15403: char* x_lastcp ARGS((void));
15404: EXTERN int xlp_valid _I_(0);
15405:
15406: /* This lot goes at the END */
15407: /* be sure not to interfere with anyone else's idea about EXTERN */
15408: #ifdef EXTERN_DEFINED
15409: # undef EXTERN_DEFINED
15410: # undef EXTERN
15411: #endif
15412: #undef _I_
15413: /*
15414: * Local Variables:
15415: * version-control:t
15416: * comment-column:40
15417: * End:
15418: */
15419: ./pdksh/sh/expand.h 644 653 1762 4250 5243743574 11461 0 ustar hlu /*
15420: * Expanding strings
15421: */
15422:
15423: #if 0 /* Usage */
15424: XString xs;
15425: char *xp;
15426:
15427: Xinit(xs, xp, 128); /* allocate initial string */
15428: while ((c = generate()) {
15429: Xcheck(xs, xp); /* expand string if neccessary */
15430: Xput(xs, xp, c); /* add character */
15431: }
15432: return Xclose(xs, xp); /* resize string */
15433: #endif
15434:
15435: typedef struct XString {
15436: char *end, *beg; /* end, begin of string */
15437: #if 1
15438: char *oth, *old; /* togo, adjust */
15439: #endif
15440: size_t len; /* length */
15441: } XString;
15442:
15443: typedef char * XStringP;
15444:
15445: /* initialize expandable string */
15446: #define Xinit(xs, xp, length) { \
15447: (xs).len = length; \
15448: (xs).beg = alloc((xs).len + 8, ATEMP); \
15449: (xs).end = (xs).beg + (xs).len; \
15450: xp = (xs).beg; \
15451: }
15452:
15453: /* stuff char into string */
15454: #define Xput(xs, xp, c) *xp++ = (c)
15455:
15456: /* check for overflow, expand string */
15457: #define Xcheck(xs, xp) if (xp >= (xs).end) { \
15458: char *old_beg = (xs).beg; \
15459: (xs).len += (xs).len; /* double size */ \
15460: (xs).beg = aresize((xs).beg, (xs).len + 8, ATEMP); \
15461: (xs).end = (xs).beg + (xs).len; \
15462: xp = (xs).beg + (xp - old_beg); /* adjust pointer */ \
15463: }
15464:
15465: /* free string */
15466: #define Xfree(xs, xp) afree((void*) (xs).beg, ATEMP)
15467:
15468: /* close, return string */
15469: #define Xclose(xs, xp) (char*) aresize((void*)(xs).beg, \
15470: (size_t)(xp - (xs).beg), ATEMP)
15471: /* begin of string */
15472: #define Xstring(xs, xp) ((xs).beg)
15473:
15474: #define Xsavepos(xs, xp) (xp - (xs).beg)
15475: #define Xrestpos(xs, xp, n) ((xs).beg + (n))
15476:
15477: /*
15478: * expandable vector of generic pointers
15479: */
15480:
15481: typedef struct XPtrV {
15482: void **cur; /* next avail pointer */
15483: void **beg, **end; /* begin, end of vector */
15484: } XPtrV;
15485:
15486: #define XPinit(x, n) { \
15487: register void **vp; \
15488: vp = (void**) alloc(sizeofN(void*, n), ATEMP); \
15489: (x).cur = (x).beg = vp; \
15490: (x).end = vp + n; \
15491: }
15492:
15493: #define XPput(x, p) { \
15494: if ((x).cur >= (x).end) { \
15495: int n = XPsize(x); \
15496: (x).beg = (void**) aresize((void*) (x).beg, \
15497: sizeofN(void*, n*2), ATEMP); \
15498: (x).cur = (x).beg + n; \
15499: (x).end = (x).cur + n; \
15500: } \
15501: *(x).cur++ = (p); \
15502: }
15503:
15504: #define XPptrv(x) ((x).beg)
15505: #define XPsize(x) ((x).cur - (x).beg)
15506:
15507: #define XPclose(x) (void**) aresize((void*)(x).beg, \
15508: sizeofN(void*, XPsize(x)), ATEMP)
15509:
15510: #define XPfree(x) afree((void*) (x).beg, ATEMP)
15511:
15512: ./pdksh/sh/getopts.c 644 653 1762 6760 5243743656 11673 0 ustar hlu /*
15513: * Reimplementation of SysVr3 sh builtin command "getopts" for S5R2 shell.
15514: *
15515: * created by Arnold Robbins
15516: * modified by Doug Gwyn
15517: * modified for PD ksh by Eric Gisin
15518: */
15519:
15520: #ifndef lint
15521: static char *RCSid = "$Id: getopts.c,v 1.3 1992/08/10 12:02:41 sjg Exp $";
15522: #endif
15523:
15524: #include "stdh.h"
15525: #include <errno.h>
15526: #include <setjmp.h>
15527: #include "sh.h"
15528:
15529: #ifdef _BSDI
15530: /* internal getopt conflicts with system getopt prototype */
15531: # define getopt local_getopt
15532: #endif
15533:
15534: /*
15535: * The following is derived from getopt() source placed into the public
15536: * domain by AT&T (the only time they're known to have done that).
15537: *
15538: * It has been modified somewhat to fit into the context of the shell.
15539: *
15540: * -D"FASCIST" if you really want to strictly enforce ALL the
15541: * Command Syntax Standard rules (not recommended).
15542: */
15543:
15544: #define GETOPTEOF (-1)
15545: #define ERR(S, C) shellf("%s%c\n", (S), (C))
15546:
15547: static int optind;
15548: static char *optarg;
15549: static int sp;
15550:
15551: static int
15552: getopt(argc, argv, opts)
15553: int argc;
15554: register char **argv, *opts;
15555: {
15556: register int c;
15557: register char *cp;
15558:
15559: if (sp == 1)
15560: if (optind >= argc ||
15561: argv[optind][0] != '-' || argv[optind][1] == '\0')
15562: return(GETOPTEOF);
15563: else if (strcmp(argv[optind], "--") == 0) {
15564: optind++;
15565: return(GETOPTEOF);
15566: }
15567: c = argv[optind][sp];
15568: if (c == ':' || (cp=strchr(opts, c)) == NULL) {
15569: ERR("illegal option -- ", c);
15570: if (argv[optind][++sp] == '\0') {
15571: optind++;
15572: sp = 1;
15573: }
15574: optarg = NULL;
15575: return('?');
15576: }
15577: if (*++cp == ':') {
15578: #ifdef FASCIST
15579: if (sp != 1) {
15580: ERR("option must not be grouped -- ", c );
15581: optind++;
15582: sp = 1;
15583: optarg = NULL;
15584: return('?');
15585: } else
15586: #endif
15587: if (argv[optind][sp+1] != '\0') {
15588: #ifdef FASCIST
15589: ERR("option must be followed by whitespace -- ", c );
15590: optind++;
15591: sp = 1;
15592: optarg = NULL;
15593: return('?');
15594: #else
15595: optarg = &argv[optind++][sp+1];
15596: #endif
15597: } else if (++optind >= argc) {
15598: ERR("option requires an argument -- ", c);
15599: sp = 1;
15600: optarg = NULL;
15601: return('?');
15602: } else
15603: optarg = argv[optind++];
15604: sp = 1;
15605: } else {
15606: if (argv[optind][++sp] == '\0') {
15607: sp = 1;
15608: optind++;
15609: }
15610: optarg = NULL;
15611: }
15612: return(c);
15613: }
15614:
15615: /*
15616: * The following were created by Arnold Robbins.
15617: */
15618:
15619: /* resetopts --- magic code for when OPTIND is reset to 1 */
15620:
15621: void
15622: resetopts ()
15623: {
15624: optind = 1;
15625: sp = 1;
15626: }
15627:
15628: int
15629: c_getopts(wp)
15630: char **wp;
15631: {
15632: int ret;
15633: register int argc;
15634: char temp[2];
15635: char *optstr; /* list of options */
15636: char *name; /* variable to get flag val */
15637: char **argv;
15638:
15639: if ((optstr = *++wp) == NULL || (name = *++wp) == NULL)
15640: errorf("missing arguments\n");
15641:
15642: for (argc = 1; wp[argc] != NULL; argc++)
15643: ;
15644:
15645: if (argc > 1)
15646: ret = getopt(argc, wp, optstr);
15647: else {
15648: if (**(e.loc->argv) == '\0') {
15649: /*
15650: * When c_getopts gets called from comexec() it
15651: * doesn't set up argc/argv in the local block.
15652: * Maybe this should be done in newblock() but
15653: * I'm not sure about the implications, and this
15654: * is the only place I've been bitten so far...
15655: * JRM
15656: */
15657: argc = e.loc->next->argc;
15658: argv = e.loc->next->argv;
15659: } else {
15660: argc = e.loc->argc;
15661: argv = e.loc->argv;
15662: }
15663: ret = getopt(argc+1, argv, optstr);
15664:
15665: }
15666:
15667: /*
15668: * set the OPTIND variable in any case, to handle "--" skipping
15669: * unless it's 1, which would trigger a reset
15670: */
15671:
15672: if (optind != 1)
15673: setint(global("OPTIND"), (long)optind);
15674:
15675: if (ret == GETOPTEOF) /* end of args */
15676: return (1);
15677:
15678: /*
15679: * else, got an arg, set the various shell variables
15680: */
15681:
15682: if (optarg != NULL)
15683: setstr(global("OPTARG"), optarg);
15684:
15685: temp[0] = (char) ret;
15686: temp[1] = '\0';
15687: setstr(global(name), temp);
15688:
15689: return (0);
15690: }
15691: ./pdksh/sh/io.c 644 653 1762 6537 5303016706 10601 0 ustar hlu /*
15692: * shell buffered IO and formatted output
15693: */
15694:
15695: #ifndef lint
15696: static char *RCSid = "$Id: io.c,v 1.3 1992/08/10 12:02:49 sjg Exp $";
15697: #endif
15698:
15699: #include "stdh.h"
15700: #include <errno.h>
15701: #include <unistd.h>
15702: #include <fcntl.h>
15703: #include <signal.h>
15704: #include <setjmp.h>
15705: #ifdef __STDC__
15706: #include <stdarg.h>
15707: #else
15708: #include <varargs.h>
15709: #endif
15710: #include "sh.h"
15711:
15712: #if 0
15713: /* fputc with ^ escaping */
15714: static void
15715: fzotc(c, f)
15716: register int c;
15717: register FILE *f;
15718: {
15719: if ((c&0x60) == 0) { /* C0|C1 */
15720: putc((c&0x80) ? '$' : '^', f);
15721: putc((c&0x7F|0x40), f);
15722: } else if ((c&0x7F) == 0x7F) { /* DEL */
15723: putc((c&0x80) ? '$' : '^', f);
15724: putc('?', f);
15725: } else
15726: putc(c, f);
15727: }
15728: #endif
15729:
15730: /*
15731: * formatted output functions
15732: */
15733:
15734: /* shellf(...); error() */
15735: int
15736: #ifdef __STDC__
15737: errorf(const char *fmt, ...) {
15738: #else
15739: errorf(va_alist) va_dcl
15740: {
15741: char *fmt;
15742: #endif
15743: va_list va;
15744:
15745: #ifdef __STDC__
15746: va_start(va, fmt);
15747: #else
15748: va_start(va);
15749: fmt = va_arg(va, char *);
15750: #endif
15751: vfprintf(shlout, fmt, va);
15752: va_end(va);
15753: /*fflush(shlout);*/
15754: error();
15755: }
15756:
15757: /* printf to shlout (stderr) */
15758: int
15759: #ifdef __STDC__
15760: shellf(const char *fmt, ...) {
15761: #else
15762: shellf(va_alist) va_dcl
15763: {
15764: char *fmt;
15765: #endif
15766: va_list va;
15767:
15768: #ifdef __STDC__
15769: va_start(va, fmt);
15770: #else
15771: va_start(va);
15772: fmt = va_arg(va, char *);
15773: #endif
15774: vfprintf(shlout, fmt, va);
15775: va_end(va);
15776: return 0;
15777: }
15778:
15779: /*
15780: * We have a stdio stream for any open shell file descriptors (0-9)
15781: */
15782: FILE * shf [NUFILE]; /* map shell fd to FILE * */
15783:
15784: /* open stream for shell fd */
15785: void
15786: fopenshf(fd)
15787: int fd;
15788: {
15789: if (shf[fd] != NULL)
15790: return;
15791: #if !defined(_MINIX) && !defined(linux)
15792: if (fd <= 2)
15793: #ifndef _BSDI
15794: _iob[fd]._flag = 0; /* re-use stdin, stdout, stderr */
15795: #else
15796: /* Chris Torek's stdio replacement */
15797: __sF[fd]._flags = 0;
15798: #endif
15799: #endif
15800: shf[fd] = fdopen(fd, "r+");
15801: if (shf[fd] == NULL)
15802: return;
15803: setvbuf(shf[fd], (char*)NULL, _IOFBF, (size_t)BUFSIZ);
15804: }
15805:
15806: /* flush stream assoc with fd */
15807: /* this must invalidate input and output buffers */
15808: void
15809: flushshf(fd)
15810: int fd;
15811: {
15812: if (shf[fd] != NULL) {
15813: #ifndef _BSDI
15814: /* Chris Torek's stdio replacement */
15815: fseek(shf[fd], 0L, 1); /* V7 derived */
15816: #endif
15817: fflush(shf[fd]); /* standard C */
15818: }
15819: }
15820:
15821: /*
15822: * move fd from user space (0<=fd<10) to shell space (fd>=10)
15823: */
15824: int
15825: savefd(fd)
15826: int fd;
15827: {
15828: int nfd;
15829:
15830: if (fd < FDBASE) {
15831: flushshf(fd);
15832: nfd = fcntl(fd, F_DUPFD, FDBASE);
15833: if (nfd < 0)
15834: if (errno == EBADF)
15835: return -1;
15836: else
15837: errorf("too many files open in shell\n");
15838: #ifdef F_SETFD
15839: (void) fcntl(nfd, F_SETFD, 1);
15840: #else
15841: (void) fd_clexec(ttyfd);
15842: #endif
15843: close(fd);
15844: } else
15845: nfd = fd;
15846: return nfd;
15847: }
15848:
15849: void
15850: restfd(fd, ofd)
15851: int fd, ofd;
15852: {
15853: if (ofd == 0) /* not saved (e.savefd) */
15854: return;
15855: flushshf(fd);
15856: close(fd);
15857: if (ofd < 0) /* original fd closed */
15858: return;
15859: (void) fcntl(ofd, F_DUPFD, fd);
15860: close(ofd);
15861: }
15862:
15863: void
15864: openpipe(pv)
15865: register int *pv;
15866: {
15867: if (pipe(pv) < 0)
15868: errorf("can't create pipe - try again\n");
15869: pv[0] = savefd(pv[0]);
15870: pv[1] = savefd(pv[1]);
15871: }
15872:
15873: void
15874: closepipe(pv)
15875: register int *pv;
15876: {
15877: close(pv[0]);
15878: close(pv[1]);
15879: }
15880:
15881: /*
15882: * temporary files
15883: */
15884:
15885: struct temp *
15886: maketemp(ap)
15887: Area *ap;
15888: {
15889: register struct temp *tp;
15890: static unsigned int inc = 0;
15891: char path [PATH];
15892:
15893: sprintf(path, "/tmp/sh%05u%02u", (unsigned)getpid(), inc++);
15894: #if defined(_SYSV) || defined(_BSD)
15895: close(creat(path, 0600)); /* to get appropriate permissions */
15896: #endif
15897: tp = (struct temp *) alloc(sizeof(struct temp), ap);
15898: tp->next = NULL;
15899: tp->name = strsave(path, ap);
15900: return tp;
15901: }
15902: ./pdksh/sh/lex.h 644 653 1762 7106 5243743702 10766 0 ustar hlu /*
15903: * Source input, lexer and parser
15904: */
15905:
15906: /* $Id: lex.h,v 1.4 1992/08/12 14:15:37 sjg Exp $ */
15907:
15908: #define IDENT 64
15909:
15910: typedef struct source Source;
15911: struct source {
15912: char *str; /* input pointer */
15913: int type; /* input type */
15914: union {
15915: char **strv; /* string [] */
15916: FILE *file; /* file */
15917: struct tbl *tblp; /* alias */
15918: } u;
15919: int line; /* line number */
15920: char *file; /* input file name */
15921: int echo; /* echo input to shlout */
15922: Source *next; /* stacked source */
15923: };
15924:
15925: /* Source.type values */
15926: #define SEOF 0 /* input EOF */
15927: #define STTY 1 /* terminal input */
15928: #define SFILE 2 /* file input */
15929: #define SSTRING 4 /* string */
15930: #define SWSTR 3 /* string without \n */
15931: #define SWORDS 5 /* string[] */
15932: #define SWORDSEP 8 /* string[] seperator */
15933: #define SALIAS 6 /* alias expansion */
15934: #define SHIST 7 /* history expansion */
15935:
15936: Source *pushs ARGS((int stype)); /* push Source */
15937: struct op *compile ARGS((Source *s)); /* compile tree */
15938:
15939: /*
15940: * states while lexing word
15941: */
15942: #define SBASE 0 /* outside any lexical constructs */
15943: #define SWORD 6 /* implicit quoting for substitute() */
15944: #define SDPAREN 7 /* inside (( )), implicit quoting */
15945: #define SSQUOTE 1 /* inside '' */
15946: #define SDQUOTE 2 /* inside "" */
15947: #define SBRACE 3 /* inside ${} */
15948: #define SPAREN 4 /* inside $() */
15949: #define SBQUOTE 5 /* inside `` */
15950:
15951: EXTERN int multiline; /* \n changed to ; */
15952:
15953: typedef union {
15954: int i;
15955: char *cp;
15956: char **wp;
15957: struct op *o;
15958: struct ioword *iop;
15959: } YYSTYPE;
15960:
15961: #define LWORD 256
15962: #define LOGAND 257
15963: #define LOGOR 258
15964: #define BREAK 259
15965: #define IF 260
15966: #define THEN 261
15967: #define ELSE 262
15968: #define ELIF 263
15969: #define FI 264
15970: #define CASE 265
15971: #define ESAC 266
15972: #define FOR 267
15973: #define WHILE 268
15974: #define UNTIL 269
15975: #define DO 270
15976: #define DONE 271
15977: #define IN 272
15978: #define FUNCTION 273
15979: #define TIME 274
15980: #define REDIR 275
15981: #define MPAREN 276 /* () */
15982: #define MDPAREN 277 /* (( )) */
15983: #define SELECT 278 /* ksh */
15984: #define YYERRCODE 300
15985:
15986: /* flags to yylex */
15987: #define CONTIN BIT(0) /* skip new lines to complete command */
15988: #define ONEWORD BIT(1) /* single word for substitute() */
15989: #define ALIAS BIT(2) /* recognize alias */
15990: #define KEYWORD BIT(3) /* recognize keywords */
15991: #define LETEXPR BIT(4) /* get expression inside (( )) */
15992:
15993: #define SYNTAXERR zzerr()
15994: #define HERES 10 /* max << in line */
15995:
15996: EXTERN char line [LINE+1]; /* input line */
15997: EXTERN Source *source; /* yyparse/yylex source */
15998: EXTERN YYSTYPE yylval; /* result from yylex */
15999: EXTERN int yynerrs;
16000: EXTERN struct ioword *heres [HERES], **herep;
16001: EXTERN char ident [IDENT+1];
16002:
16003: extern int yylex ARGS((int flags));
16004: extern void yyerror ARGS((const char *msg));
16005:
16006: #define HISTORY 100 /* size of saved history */
16007:
16008: #ifdef EASY_HISTORY
16009: EXTERN char *history [HISTORY]; /* saved commands */
16010: #else
16011: EXTERN char **history; /* saved commands */
16012: EXTERN int histsize _I_(HISTORY); /* history size */
16013: EXTERN char **history; /* saved commands */
16014: #endif
16015: EXTERN char **histptr; /* last history item */
16016: EXTERN int histpush; /* number of pushed fc commands */
16017:
16018: extern char **histget();
16019: extern char **histpos();
16020: extern int histnum();
16021: extern char *findhist();
16022: extern int histN();
16023:
16024: #ifdef EDIT
16025:
16026: extern void x_init ARGS ((void)); /* setup tty modes */
16027: extern void x_init_emacs ARGS ((void));
16028: extern void x_emacs_keys ();
16029: extern void x_bind();
16030:
16031: extern int x_read ARGS ((int fd, char *buf, size_t len));
16032: extern int x_emacs ARGS ((char *buf, size_t len));
16033: extern int x_vi ARGS ((char *buf, size_t len));
16034:
16035: extern bool_t x_mode ARGS ((bool_t)); /* set/clear cbreak mode */
16036: extern int x_getc(); /* get tty char */
16037: extern void x_flush(), x_putc(), x_puts(); /* put tty char */
16038:
16039: extern int x_cols; /* tty columns */
16040:
16041: #endif
16042: ./pdksh/sh/table.h 644 653 1762 7125 5243743701 11265 0 ustar hlu /* $Id: table.h,v 1.4 1992/08/12 14:15:50 sjg Exp $ */
16043:
16044: /*
16045: * generic hashed associative table for commands and variables.
16046: */
16047:
16048: struct table {
16049: Area *areap; /* area to allocate entries */
16050: int size, free; /* hash size (always 2^^n), free entries */
16051: struct tbl **tbls; /* hashed table items */
16052: };
16053:
16054: struct tbl { /* table item */
16055: int flag; /* flags */
16056: int type; /* command type or base, see below */
16057: union {
16058: char *s; /* string */
16059: long i; /* integer */
16060: int (*f) ARGS ((char**)); /* int function */
16061: struct op *t; /* "function" tree */
16062: } val; /* value */
16063: char name[4]; /* name -- variable length */
16064: };
16065:
16066: /* flag bits */
16067: #define ALLOC BIT(0) /* val.s has been allocated */
16068: #define DEFINED BIT(1) /* is defined in block */
16069: #define ISSET BIT(2) /* has value, vp->val.[si] */
16070: #define SPECIAL BIT(3) /* PATH, IFS, SECONDS, etc */
16071: #define INTEGER BIT(4) /* val.i contains integer value */
16072: #define RDONLY BIT(8) /* read-only variable */
16073: #define EXPORT BIT(9) /* exported variable */
16074: #define LOCAL BIT(10) /* for local typeset() */
16075: #define TRACE BIT(11) /* trace (-t) */
16076: #define FUNCT BIT(12) /* function */
16077: #define EXPALIAS BIT(13) /* expanding this alias */
16078:
16079: /* command types */
16080: #define CNONE 0 /* undefined */
16081: #define CSHELL 1 /* built-in */
16082: #define CFUNC 2 /* function */
16083: #define CEXEC 4 /* executable command */
16084: #define CALIAS 5 /* alias */
16085: #define CKEYWD 6 /* keyword */
16086:
16087: void tinit ARGS((struct table *, Area *)); /* initialize table */
16088: unsigned int hash(); /* name hash function */
16089: struct tbl *tsearch(); /* table lookup primative */
16090: struct tbl *tenter(); /* table lookup/enter primative */
16091: void tdelete(); /* mark tbl entry for deletion */
16092: void twalk(); /* initialize walk of table */
16093: struct tbl *tnext(); /* walk table returning table time */
16094: struct tbl **tsort(); /* sort table entries by name */
16095:
16096: /*
16097: * activation record for function blocks
16098: */
16099: struct block {
16100: Area area; /* area to allocate things */
16101: int argc; /* current $# */
16102: char ** argv; /* current $* */
16103: struct table vars; /* local variables */
16104: struct table funs; /* local functions */
16105: #if 1
16106: char * error; /* error handler */
16107: char * exit; /* exit handler */
16108: #else
16109: struct trap error, exit;
16110: #endif
16111: struct block *next; /* enclosing block */
16112: };
16113:
16114: EXTERN struct block globals; /* global variables and functions */
16115: EXTERN struct table commands; /* hashed commands */
16116: EXTERN struct table builtins; /* built-in commands */
16117: EXTERN struct table lexicals; /* keywords and aliases */
16118: EXTERN struct table homedirs; /* homedir() cache */
16119:
16120: struct builtin {
16121: char *name;
16122: int (*func)();
16123: };
16124:
16125: /* these really are externs! Look in table.c for them */
16126:
16127: extern const struct builtin shbuiltins [], kshbuiltins [];
16128:
16129: /* var spec values */
16130: #define V_NONE 0
16131: #define V_PATH 1
16132: #define V_IFS 2
16133: #define V_SECONDS 3
16134: #define V_OPTIND 4
16135: #define V_MAIL 5
16136: #define V_MAILPATH 6
16137: #define V_RANDOM 7
16138: #ifndef EASY_HISTORY
16139: #define V_HISTSIZE 8
16140: #define V_HISTFILE 9
16141: #endif
16142: #define V_FCEDIT 10
16143: #define V_COLUMNS 11
16144:
16145: EXTERN Area *lastarea; /* area of last variable/function looked up */
16146: EXTERN char *path; /* PATH value */
16147: EXTERN char *prompt; /* PS1 or PS2 */
16148:
16149: void newblock();
16150: void popblock();
16151: struct tbl *global(/* char *s */);
16152: struct tbl *local(/* char *s */);
16153: struct tbl *typeset(/* char *var; int set, clr */);
16154: struct tbl *setvar(/* struct tbl *vdst, *vsrc */);
16155: struct tbl *strint(/* struct tbl *vdst, *vsrc */);
16156: long intval(/* struct tbl *vp */);
16157: void setint(/* struct tbl *vp; long n */);
16158: char *strval(/* struct tbl *vp */);
16159: void setstr(/* struct tbl *vp; char *s */);
16160: void unset(/* struct tbl *vp */);
16161: int import(/* char *s */);
16162: char **makenv();
16163: int isassign(/* char *s */);
16164:
16165: ./pdksh/sh/trace.h 644 653 1762 4160 5243743615 11274 0 ustar hlu /* NAME:
16166: * trace.h - definitions for a simple trace facility
16167: *
16168: * SYNOPSIS:
16169: * #include "trace.h"
16170: *
16171: * DESCRIPTION:
16172: * Defines the macro _TRACE().
16173: * Also declares Trace_log and Trace_level.
16174: *
16175: * SEE ALSO:
16176: *
16177: *
16178: * AMENDED:
16179: * 91/11/22 22:53:58 (sjg)
16180: *
16181: * RELEASED:
16182: * 91/11/22 22:54:18 v1.2
16183: *
16184: * SCCSID:
16185: * @(#)trace.h 1.2 91/11/22 22:53:58 (sjg)
16186: *
16187: * @(#)Copyright (c) 1990 Simon J. Gerraty.
16188: */
16189:
16190: /* some useful #defines */
16191: #ifndef EXTERN
16192: # define EXTERN extern
16193: # define EXTERN_DEFINED
16194: #endif
16195:
16196: #ifndef TRUE
16197: # define TRUE 1
16198: # define FALSE 0
16199: #endif
16200: #ifndef ARGS
16201: # if defined(__STDC__) || defined(PROTO)
16202: # define ARGS(p) p
16203: # else
16204: # define ARGS(p) ()
16205: # endif
16206: #endif
16207:
16208: /*
16209: * this garbage is sometimes needed when mixing
16210: * langauges or calling conventions under DOS.
16211: */
16212: #ifndef _CDECL
16213: # if defined(MSDOS) || defined(MSC)
16214: # ifndef NO_EXT_KEYS
16215: # define _CDECL cdecl
16216: # define _NEAR near
16217: # else
16218: # define _CDECL
16219: # define _NEAR
16220: # endif
16221: # else /* not DrOS */
16222: # define _CDECL
16223: # define _NEAR
16224: # endif /* DOS */
16225: #endif /* _CDECL */
16226:
16227: /* manifest constants */
16228:
16229: /* struct / union */
16230:
16231: /* macros */
16232:
16233:
16234: #ifdef USE_TRACE
16235: EXTERN char * _CDECL Trace_log;
16236: EXTERN int _CDECL Trace_level;
16237:
16238: void _CDECL checkpoint ARGS((char *fmt, ...));
16239:
16240: /*
16241: * This macro takes a variabel number of args.
16242: * examples:
16243: * _TRACE(5, ("The current Debug level is %d\n", Debug));
16244: * Note that if more than two args are provided, all but the
16245: * first (which should be an integer indicating the Trace-level
16246: * required for this message to be printed) must be enclosed in
16247: * parenthesis.
16248: */
16249: # define _TRACE(lev, args) if (Trace_level >= lev) checkpoint args
16250: #else /* don't USE_TRACE */
16251: /*
16252: * this macro evaluates to a harmless no entry
16253: * loop that most optimizers will remove all together.
16254: */
16255: # define _TRACE(l, args) while (0)
16256: #endif /* USE_TRACE */
16257:
16258:
16259: /* This lot goes at the END */
16260: /* be sure not to interfere with anyone else's idea about EXTERN */
16261: #ifdef EXTERN_DEFINED
16262: # undef EXTERN_DEFINED
16263: # undef EXTERN
16264: #endif
16265: /*
16266: * Local Variables:
16267: * version-control:t
16268: * comment-column:40
16269: * End:
16270: */
16271: ./pdksh/sh/trap.c 644 653 1762 11410 5302761055 11145 0 ustar hlu /*
16272: * signal handling
16273: */
16274:
16275: #ifndef lint
16276: static char *RCSid = "$Id: trap.c,v 1.3 1992/08/10 12:03:15 sjg Exp $";
16277: #endif
16278:
16279: #include "stdh.h"
16280: #include <errno.h>
16281: #include <signal.h>
16282: #include <setjmp.h>
16283: #include "sh.h"
16284:
16285: Trap sigtraps [SIGNALS] = {
16286: {0, "EXIT", "Signal 0"}, /* todo: belongs in e.loc->exit */
16287: {SIGHUP, "HUP", "Hangup"},
16288: {SIGINT, "INT", "Interrupt"},
16289: {SIGQUIT, "QUIT", "Quit"},
16290: {SIGILL, "ILL", "Illegal instruction"},
16291: {SIGTRAP, "TRAP", "Trace trap"},
16292: #ifdef SIGABRT
16293: {SIGIOT, "ABRT", "Abort"},
16294: #else
16295: {SIGIOT, "IOT", "IOT instruction"},
16296: #endif
16297: #ifdef linux
16298: {SIGUNUSED, "UNUSED", "Unused signal"},
16299: #else
16300: {SIGEMT, "EMT", "EMT trap"},
16301: #endif
16302: {SIGFPE, "FPE", "Floating exception"},
16303: {SIGKILL, "KILL", "Killed"},
16304: #if defined(_MINIX) || defined(linux)
16305: {SIGUSR1, "USR1", "User defined signal 1"},
16306: {SIGSEGV, "SEGV", "Memory fault"},
16307: {SIGUSR2, "USR2", "User defined signal 2"},
16308: #else
16309: {SIGBUS, "BUS", "Bus error"},
16310: {SIGSEGV, "SEGV", "Memory fault"},
16311: {SIGSYS, "SYS", "Bad system call"},
16312: #endif
16313: {SIGPIPE, "PIPE", "Broken pipe"},
16314: {SIGALRM, "ALRM", "Alarm clock"},
16315: {SIGTERM, "TERM", "Terminated"},
16316: #if defined(_MINIX) || defined(linux)
16317: {SIGSTKFLT, "STKFLT", "Stack fault"},
16318: #endif
16319: #ifdef linux
16320: {SIGCHLD, "CHLD", "Child exited"},
16321: {SIGCONT, "CONT", "Continue"},
16322: {SIGSTOP, "STOP", "Stop (signal)"},
16323: {SIGTSTP, "TSTP", "Stop"},
16324: {SIGTTIN, "TTIN", "Stop (tty input)"},
16325: {SIGTTOU, "TTOU", "Stop (tty output)"},
16326: {SIGIO, "IO", "Possible I/O"},
16327: {SIGXCPU, "XCPU", "CPU time limit exceeded"},
16328: {SIGXFSZ, "XFSZ", "File size limit exceeded"},
16329: {SIGVTALRM, "VTALRM", "Virtual time alarm"},
16330: {SIGPROF, "PROF", "Profile signal"},
16331: {SIGWINCH, "WINCH", "Window size changed"},
16332: #ifdef SIGLOST
16333: {SIGLOST, "LOST", "File lock lost"},
16334: #endif
16335: #else
16336: #ifdef _SYSV
16337: {SIGUSR1, "USR1", "User defined signal 1"},
16338: {SIGUSR2, "USR2", "User defined signal 2"},
16339: {SIGCLD, "CLD", "Death of a child"},
16340: {SIGPWR, "PWR", "Power-fail restart"},
16341: #ifdef JOBS /* todo: need to be more portable */
16342: {SIGTSTP, "TSTP", "Stop"},
16343: {SIGTTIN, "TTIN", "Stop (tty input)"},
16344: #ifdef SIGPOLL
16345: {SIGPOLL, "POLL", "Pollable event occured"},
16346: #endif
16347: {SIGSTOP, "STOP", "Stop (signal)"},
16348: {SIGTTOU, "TTOU", "Stop (tty output)"},
16349: {SIGCONT, "CONT", "Continue"},
16350: #endif
16351: #else /* _SYSV */
16352: #ifdef JOBS /* todo: need to be more portable */
16353: {SIGURG, "URG", "Urgent condition"}, /* BSDism */
16354: {SIGSTOP, "STOP", "Stop (signal)"},
16355: {SIGTSTP, "TSTP", "Stop"},
16356: {SIGCONT, "CONT", "Continue"},
16357: {SIGCHLD, "CHLD", "Waiting children"},
16358: {SIGTTIN, "TTIN", "Stop (tty input)"},
16359: {SIGTTOU, "TTOU", "Stop (tty output)"},
16360: #endif
16361: #endif /* _SYSV */
16362: #endif /* linux */
16363: };
16364:
16365: Trap *
16366: gettrap(name)
16367: char *name;
16368: {
16369: int i;
16370: register Trap *p;
16371:
16372: if (digit(*name)) {
16373: i = getn(name);
16374: return (0 <= i && i < SIGNALS) ? &sigtraps[getn(name)] : NULL;
16375: }
16376: #if 0
16377: if (strcmp("ERR", name) == 0)
16378: return &e.loc->err;
16379: if (strcmp("EXIT", name) == 0)
16380: return &e.loc->exit;
16381: #endif
16382: for (p = sigtraps, i = SIGNALS; --i >= 0; p++)
16383: if (p->name != NULL && strcmp(p->name, name) == 0)
16384: return p;
16385: return NULL;
16386: }
16387:
16388: /*
16389: * trap signal handler
16390: */
16391: void
16392: trapsig(i)
16393: int i;
16394: {
16395: trap = sigtraps[i].set = 1;
16396: if (i == SIGINT && (e.type == E_PARSE || e.type == E_LOOP))
16397: /* dangerous but necessary to deal with BSD silly signals */
16398: longjmp(e.jbuf, 1);
16399: #ifdef USE_SIGACT
16400: sigaction(i, &Sigact_trap, NULL);
16401: #else
16402: (void) signal(i, trapsig);
16403: #endif
16404: }
16405:
16406: /*
16407: * run any pending traps
16408: */
16409: runtraps()
16410: {
16411: int i;
16412: register Trap *p;
16413:
16414: for (p = sigtraps, i = SIGNALS; --i >= 0; p++)
16415: if (p->set)
16416: runtrap(p);
16417: trap = 0;
16418: }
16419:
16420: runtrap(p)
16421: Trap *p;
16422: {
16423: char *trapstr;
16424:
16425: p->set = 0;
16426: if ((trapstr = p->trap) == NULL)
16427: if (p->signal == SIGINT)
16428: unwind(); /* return to shell() */
16429: else
16430: return;
16431: if (p->signal == 0) /* ??? */
16432: p->trap = 0;
16433: command(trapstr);
16434: }
16435:
16436: /* restore signals for children */
16437: cleartraps()
16438: {
16439: int i;
16440: register Trap *p;
16441:
16442: if ((p = sigtraps)->trap != NULL) { /* Maybe put in exchild() */
16443: afree((void *)p->trap,APERM); /* Necessary? */
16444: p->trap = NULL;
16445: }
16446: for (i = SIGNALS, p = sigtraps; --i >= 0; p++) {
16447: p->set = 0;
16448: #ifdef USE_SIGACT
16449: if (p->ourtrap)
16450: {
16451: sigaction(p->signal, &Sigact_ign, &Sigact);
16452: if (Sigact.sa_handler != SIG_IGN)
16453: sigaction(p->signal, &Sigact_dfl, NULL);
16454: }
16455: #else
16456: if (p->ourtrap && signal(p->signal, SIG_IGN) != SIG_IGN)
16457: (void) signal(p->signal, SIG_DFL);
16458: #endif
16459: }
16460: }
16461:
16462: ignoresig(i)
16463: int i;
16464: {
16465: #ifdef USE_SIGACT
16466: sigaction(i, &Sigact_ign, &Sigact);
16467: sigemptyset(&Sigact.sa_mask);
16468: Sigact.sa_flags = 0;
16469:
16470: if (Sigact.sa_handler != SIG_IGN)
16471: sigtraps[i].sig_dfl = 1;
16472: #else
16473: if (signal(i, SIG_IGN) != SIG_IGN)
16474: sigtraps[i].sig_dfl = 1;
16475: #endif
16476: }
16477:
16478: restoresigs()
16479: {
16480: int i;
16481: register Trap *p;
16482:
16483: for (p = sigtraps, i = SIGNALS; --i >= 0; p++)
16484: if (p->sig_dfl) {
16485: p->sig_dfl = 0;
16486: #ifdef USE_SIGACT
16487: sigaction(p->signal, &Sigact_dfl, NULL);
16488: #else
16489: (void) signal(p->signal, SIG_DFL);
16490: #endif
16491: }
16492: }
16493:
16494: ./pdksh/sh/tree.h 644 653 1762 7130 5243743666 11143 0 ustar hlu /*
16495: * command trees for compile/execute
16496: */
16497:
16498: /* $Id: tree.h,v 1.3 1992/08/10 12:03:18 sjg Exp $ */
16499:
16500: #define NOBLOCK ((struct op *)NULL)
16501: #define NOWORD ((char *)NULL)
16502: #define NOWORDS ((char **)NULL)
16503:
16504: /*
16505: * Description of a command or an operation on commands.
16506: */
16507: struct op {
16508: int type; /* operation type, see below */
16509: char **args; /* arguments to a command */
16510: char **vars; /* variable assignments */
16511: struct ioword **ioact; /* IO actions (eg, < > >>) */
16512: struct op *left, *right; /* descendents */
16513: char *str; /* identifier for case and for (use vars[0]) */
16514: };
16515:
16516: /* Tree.type values */
16517: #define TEOF 0
16518: #define TCOM 1 /* command */
16519: #define TPAREN 2 /* (c-list) */
16520: #define TPIPE 3 /* a | b */
16521: #define TLIST 4 /* a [&;] b */
16522: #define TOR 5 /* || */
16523: #define TAND 6 /* && */
16524: #define TFOR 7
16525: #define TCASE 9
16526: #define TIF 10
16527: #define TWHILE 11
16528: #define TUNTIL 12
16529: #define TELIF 13
16530: #define TPAT 14 /* pattern in case */
16531: #define TBRACE 15 /* {c-list} */
16532: #define TASYNC 16 /* c & */
16533: #define TFUNCT 17 /* function name { command; } */
16534: #define TTIME 18 /* time pipeline */
16535: #define TEXEC 19 /* fork/exec eval'd TCOM */
16536: #define TSELECT 20 /* select */
16537:
16538: /*
16539: * prefix codes for words in command tree
16540: */
16541: #define EOS 0 /* end of string */
16542: #define CHAR 1 /* unquoted character */
16543: #define QCHAR 2 /* quoted character */
16544: #define COMSUB 3 /* $() substitution (0 terminated) */
16545: #define OQUOTE 4 /* opening " or ' */
16546: #define CQUOTE 5 /* closing " or ' */
16547: #define OSUBST 6 /* opening ${ substitution */
16548: #define CSUBST 7 /* closing } of above */
16549:
16550: /*
16551: * IO redirection
16552: */
16553: struct ioword {
16554: int unit; /* unit affected */
16555: int flag; /* action (below) */
16556: char *name; /* file name */
16557: };
16558:
16559: /* ioword.flag - type of redirection */
16560: #define IOTYPE 0xF /* type: bits 0:3 */
16561: #define IOREAD 0x1 /* < */
16562: #define IOWRITE 0x2 /* > */
16563: #define IORDWR 0x3 /* <>: todo */
16564: #define IOHERE 0x4 /* << (here file) */
16565: #define IOCAT 0x5 /* >> */
16566: #define IODUP 0x6 /* <&/>& */
16567: #define IOEVAL BIT(4) /* expand in << */
16568: #define IOSKIP BIT(5) /* <<-, skip ^\t* */
16569: #define IOCLOB BIT(6) /* >!, override -o noclob */
16570:
16571: /* values for E_LOOP longjmp */
16572: #define LBREAK 1
16573: #define LCONTIN 2
16574:
16575: /* execute/exchild flags */
16576: #define XEXEC BIT(0) /* execute without forking */
16577: #define XFORK BIT(5) /* fork before executing */
16578: #define XBGND BIT(1) /* command & */
16579: #define XPIPEI BIT(2) /* input is pipe */
16580: #define XPIPEO BIT(3) /* output is pipe */
16581: #define XPIPE (XPIPEI|XPIPEO) /* member of pipe */
16582: #define XXCOM BIT(4) /* dup2 xcomfd to 1 */
16583: #define XXWHL BIT(6) /* don't flush stdin before fork */
16584:
16585: /*
16586: * flags to control expansion of words
16587: */
16588: #define DOBLANK BIT(1) /* perform blank interpretation */
16589: #define DOGLOB BIT(2) /* expand [?* */
16590: #define DOPAT BIT(3) /* quote *?[ */
16591: #define DOTILDE BIT(5) /* expand ~ */
16592:
16593: #if 0
16594: /* job.c: job control primatives */
16595: int execute ARGS((struct op *, int flags)); /* execute tree */
16596: int exchild ARGS((struct op *, int flags)); /* execute tree as child */
16597: int waitfor ARGS((int job)); /* wait for job completion */
16598: int waitlast ARGS((void)); /* wait for last job */
16599:
16600: /* eval.c: word expansion */
16601: char **eval ARGS((char **wv, int flag)); /* expand words */
16602: char *evalstr ARGS((char *wp, int flags)); /* expand word */
16603: char *substitute ARGS((const char *s, int flags)); /* compile and expand string */
16604:
16605: /* tree.c: command trees */
16606: void ptree ARGS((struct op *t, FILE *f)); /* print tree */
16607: char *wdscan ARGS((char *wp, int c)); /* scan word for prefix */
16608: char *wdcopy ARGS((char *wp, Area *)); /* copy word */
16609: struct op *tcopy ARGS((struct op *t, Area *)); /* copy tree */
16610: void tfree ARGS((struct op *t, Area *)); /* free tree */
16611: #endif
16612: ./pdksh/sh/Changes 644 653 1762 1124 5243742770 11316 0 ustar hlu Fix echo $$ | cat
16613: #if and config option cleanup
16614: Fix let evaluation of null/unset vars
16615: alloc improvement
16616: Fix accidental SCCS keywords
16617: Fix Xstring overwriting in lex.c
16618: Print here doc temp file when printing I/O actions
16619: Add more slack on end of Xstrings
16620: Fix up test(1) parsing
16621: Run shell scripts with EXECSHELL
16622: Make temp files 0600
16623: Make unset -f work
16624: Make trailing blank or tab in alias work
16625: Fix command completion bug
16626: --------------------------------------------------
16627: Fix "cd / foo"
16628: Fix getopts accidentally resetting itself
16629: --------------------------------------------------
16630: Fix whence exit codes
16631: ./pdksh/sh/config.h 644 653 1762 4140 5302767335 11442 0 ustar hlu /*
16632: * Configuration file for the PD ksh
16633: *
16634: * RCSid: $Id: config.h,v 1.5 1992/08/12 14:15:22 sjg Exp $
16635: */
16636:
16637: #ifndef _CONFIG_H
16638: #define _CONFIG_H
16639:
16640: /*
16641: * Builtin edit modes
16642: */
16643:
16644: #define EMACS /* EMACS-like mode */
16645: #define VI /* vi-like mode */
16646: #define JOBS /* job control */
16647:
16648: #ifndef SIGINT
16649: #include <signal.h>
16650: #endif
16651:
16652: /*
16653: * leave USE_SIGACT defined.
16654: * if you don't have sigaction(2) and the
16655: * implementation in sigact.c doesn't work for your system,
16656: * fix it.
16657: *
16658: * Of course if your system has a real sigaction()
16659: * implementation that is faulty! undef JOBS and add USE_SIGNAL
16660: * or whatever does work. You may find it necessary to undef
16661: * USE_SIGACT, if so please report it.
16662: */
16663: #define USE_SIGACT /* POSIX signal handling */
16664: /*
16665: * These control how sigact.c implements sigaction()
16666: * If you don't define any of them it will try and work it out
16667: * for itself. The are listed in order of preference (usefulness).
16668: */
16669: #if 0
16670: #define USE_SIGMASK /* BSD4.2 ? signal handling */
16671: #define USE_SIGSET /* BSD4.1 ? signal handling */
16672: #define USE_SIGNAL /* plain old signal(2) */
16673: #endif
16674:
16675: #if defined(JOBS) && (!defined(SIGCONT) || (defined(_SYSV) && defined(USE_SIGNAL)))
16676: #undef JOBS
16677: #endif
16678:
16679: #if 0
16680: #define FASCIST /* Fascist getopts */
16681: #endif
16682: #define SHARPBANG /* Hack to handle #! */
16683: #if 0
16684: #define SILLY /* Game of life in EMACS mode */
16685: #define SWTCH /* Handle SWTCH for shl(1) */
16686: #endif
16687:
16688: /*
16689: * better to leave this one out, and let users that
16690: * like it add
16691: * bind '^[^['=complete-list
16692: * to their .kshrc
16693: */
16694: #if 0
16695: #define COMPLETE_LIST /* default to Emacs style completion */
16696: #endif
16697: /*
16698: * ALTERNATIONS is csh not ksh, but it is such a nice feature...
16699: */
16700: #define ALTERNATIONS /* csh {a,b,c} arg expansion */
16701:
16702: #if 0
16703: #define COMPLEX_HISTORY /* Peter Collinson's history */
16704: #endif
16705: /*
16706: * if you don't have mmap() you can't use Peter Collinson's history
16707: * mechanism. If that is the case, then define EASY_HISTORY
16708: */
16709: #if !defined(COMPLEX_HISTORY) || defined(NO_MMAP)
16710: # undef COMPLEX_HISTORY
16711: # ifndef EASY_HISTORY
16712: # define EASY_HISTORY /* sjg's trivial history file */
16713: # endif
16714: #endif
16715:
16716: #endif /* _CONFIG_H */
16717: ./pdksh/sh/tty.h 644 653 1762 1321 5243743667 11021 0 ustar hlu /*
16718: tty.h -- centralized definitions for a variety of terminal interfaces
16719:
16720: created by DPK, Oct. 1986
16721:
16722: last edit: 30-Jul-1987 D A Gwyn
16723: */
16724:
16725: #if _BSD_SYSV /* BRL UNIX System V emulation */
16726: #include <termio.h> /* includes <sys/_ioctl.h> */
16727: #ifndef NTTYDISC
16728: #define TIOCGETD _IOR( 't', 0, int )
16729: #define TIOCSETD _IOW( 't', 1, int )
16730: #define NTTYDISC 2
16731: #endif
16732: #ifndef TIOCSTI
16733: #define TIOCSTI _IOW( 't', 114, char )
16734: #endif
16735: #ifndef TIOCSPGRP
16736: #define TIOCSPGRP _IOW( 't', 118, int )
16737: #endif
16738: #else /* !_BSD_SYSV */
16739: #if _BSD
16740: #ifdef _MINIX
16741: #include <sgtty.h>
16742: #define TIOCSETN TIOCSETP
16743: #else
16744: #include <sys/ioctl.h>
16745: #endif
16746: #else
16747: #ifdef _POSIX_TERM
16748: #include <termios.h>
16749: #else
16750: #include <termio.h>
16751: #endif
16752: #endif
16753: #endif /* _BSD_SYSV */
16754: ./pdksh/sh/version.c 644 653 1762 2302 5243743701 11646 0 ustar hlu /*
16755: * value of $KSH_VERSION
16756: */
16757:
16758: #ifndef lint
16759: static char *RCSid = "$Id: version.c,v 1.6 1992/08/12 14:15:53 sjg Exp $";
16760: #endif
16761:
16762: #include "stdh.h"
16763: #include <setjmp.h>
16764: #include "sh.h"
16765: #include "patchlevel.h"
16766:
16767: char ksh_version [] =
16768: "KSH_VERSION=@(#)PD KSH v4.7 92/08/12";
16769:
16770: /***
16771: $Log: version.c,v $
16772: * Revision 1.6 1992/08/12 14:15:53 sjg
16773: * Patch07: fix some build problems,
16774: * and avoid core dump from arg processing bug.
16775: *
16776: * Revision 1.5 1992/08/10 12:03:29 sjg
16777: * Update for patch06.
16778: * Contributions from Peter Collinson, Neil Smithline and sjg
16779: *
16780: * Revision 1.4 1992/05/12 09:30:37 sjg
16781: * see ChangeLog
16782: *
16783: * Revision 1.3 1992/05/03 08:29:20 sjg
16784: * Update for Patch05
16785: *
16786: * Revision 1.2 1992/04/25 08:33:28 sjg
16787: * Added RCS key.
16788: *
16789: * Revision 1.1 1992/04/18 05:51:48 sjg
16790: * Initial revision
16791: *
16792: Version 4.0 91/11/09 sjg
16793: distribution
16794: Revision 3.3 89/03/27 15:52:29 egisin
16795: distribution
16796:
16797: Revision 3.2 88/12/14 20:10:41 egisin
16798: many fixes
16799:
16800: Revision 3.1 88/11/03 09:18:36 egisin
16801: alpha distribution
16802:
16803: Revision 1.3 88/10/20 17:34:03 egisin
16804: added @(#) to ksh_version
16805:
16806: Revision 1.2 88/09/27 19:01:58 egisin
16807: fix version.c
16808:
16809: Revision 1.1 88/09/27 18:59:06 egisin
16810: Initial revision
16811: ***/
16812:
16813: ./pdksh/sh/stdh.h 644 653 1762 3543 5302634075 11137 0 ustar hlu /* NAME:
16814: * stdh.h - standard headers
16815: *
16816: * SYNOPSIS:
16817: * #include "stdh.h"
16818: *
16819: * DESCRIPTION:
16820: * We use this header to encapsulate all the stddef et al
16821: * inclusion so that most of the source can ignore the
16822: * problems that their lack might cause.
16823: *
16824: * SEE ALSO:
16825: *
16826: *
16827: * AMENDED:
16828: * 91/11/25 13:33:12 (sjg)
16829: *
16830: * RELEASED:
16831: * 91/11/25 13:33:17 v1.3
16832: *
16833: * SCCSID:
16834: * @(#)stdh.h 1.3 91/11/25 13:33:12 (sjg)
16835: *
16836: */
16837:
16838: #ifndef ARGS
16839: # ifdef __STDC__
16840: # define ARGS(args) args
16841: # else
16842: # define ARGS(args) ()
16843: # ifdef VOID
16844: # define void VOID
16845: # endif
16846: # define const
16847: # define volatile
16848: # endif
16849: #endif
16850:
16851: #include <stdio.h>
16852: /* if we have std headers then include them here
16853: * otherwise make allowances
16854: */
16855: #ifdef linux
16856: extern void setfileno ARGS ((FILE *__fp, int __fd));
16857: #endif
16858:
16859: #ifndef NOSTDHDRS
16860: # include <stddef.h>
16861: # include <stdlib.h>
16862: # include <string.h>
16863: # include <memory.h>
16864: # include <sys/types.h>
16865: #else
16866: # ifdef HAVE_SYS_STDTYPES
16867: # include <sys/stdtypes.h>
16868: # else
16869: # include <sys/types.h>
16870: /* just in case they have sys/stdtypes and don't know it
16871: */
16872: # ifndef __sys_stdtypes_h
16873: #define _PID_T
16874: #define _CLOCK_T
16875: typedef int pid_t;
16876: typedef long clock_t;
16877: # endif
16878: # endif
16879: # ifdef _SYSV
16880: # include <string.h>
16881: # else
16882: # include <strings.h>
16883: # define strchr index
16884: # define strrchr rindex
16885: # endif
16886: /* just a useful subset of what stdlib.h would have
16887: */
16888: extern char * getenv ARGS((const char *));
16889: extern void * malloc ARGS((size_t));
16890: extern int free ARGS((void *));
16891: extern int exit ARGS((int));
16892:
16893: /* these _should_ match ANSI */
16894: extern char * strstr ARGS((const char *, const char *));
16895: extern void * memmove ARGS((void *, const void *, size_t));
16896: extern void * memcpy ARGS((void *, const void *, size_t));
16897: #endif /* NOSTDHDRS */
16898:
16899:
16900: #ifndef offsetof
16901: #define offsetof(type,id) ((size_t)&((type*)NULL)->id)
16902: #endif
16903:
16904: ./pdksh/sh/do_ulimit.c 644 653 1762 5523 5302641624 12153 0 ustar hlu /*
16905: ulimit -- handle "ulimit" builtin
16906:
16907: Eric Gisin, September 1988
16908: Adapted to PD KornShell. Removed AT&T code.
16909:
16910: last edit: 06-Jun-1987 D A Gwyn
16911:
16912: This started out as the BRL UNIX System V system call emulation
16913: for 4.nBSD, and was later extended by Doug Kingston to handle
16914: the extended 4.nBSD resource limits. It now includes the code
16915: that was originally under case SYSULIMIT in source file "xec.c".
16916: */
16917:
16918: #ifndef lint
16919: static char *RCSid = "$Id: do_ulimit.c,v 1.3 1992/08/10 12:02:23 sjg Exp $";
16920: #endif
16921:
16922: #if defined(_BSDI) || defined(linux)
16923: #define _BSD 1
16924: #endif
16925:
16926: #include "stdh.h"
16927: #include <errno.h>
16928: #include <signal.h>
16929: #include <setjmp.h>
16930: #if defined(_BSD) || defined(_BSD_SYSV)
16931: #include <sys/time.h>
16932: #include <sys/resource.h>
16933: #else
16934: #define RLIMIT_FSIZE 2
16935: #endif
16936: #include "sh.h"
16937:
16938: #ifndef _BSD
16939: extern long ulimit();
16940: #endif
16941:
16942: int
16943: do_ulimit(a1, a2)
16944: char *a1, *a2;
16945: {
16946: register int c;
16947: long i;
16948: #if defined(_BSD) || defined(_BSD_SYSV)
16949: struct rlimit limit; /* data being gotten/set */
16950: int softonly = 0; /* set => soft limit, clear => hard limit */
16951: int factor = 1024; /* unit scaling (1K or 1) */
16952: #endif
16953: int command = RLIMIT_FSIZE;
16954:
16955: if (a1 && (*a1 == '-')) /* DAG -- Gould added first test */
16956: { c = *++a1; /* DAG */
16957: #if defined(_BSD) || defined(_BSD_SYSV)
16958: if (c >= 'A' && c <= 'Z')
16959: {
16960: ++softonly;
16961: c += 'a' - 'A'; /* DAG -- map to lower-case */
16962: }
16963: #endif
16964: switch(c)
16965: {
16966: #if defined(_BSD) || defined(_BSD_SYSV)
16967: case 'c':
16968: command = RLIMIT_CORE;
16969: break;
16970: case 'd':
16971: command = RLIMIT_DATA;
16972: break;
16973: case 'm':
16974: command = RLIMIT_RSS;
16975: break;
16976: case 's':
16977: command = RLIMIT_STACK;
16978: break;
16979: case 't':
16980: factor = 1;
16981: command = RLIMIT_CPU;
16982: break;
16983: #endif /* _BSD || _BSD_SYSV */
16984: case 'f':
16985: command = RLIMIT_FSIZE;
16986: #if _BSD_SYSV
16987: factor = 512;
16988: #endif
16989: break;
16990: default:
16991: #if _BSD
16992: errorf("Usage: %s [-cdmstf] [limit]\n", "ulimit");
16993: #else
16994: errorf("Usage: %s [-f] [limit]\n", "ulimit");
16995: #endif
16996: }
16997: a1 = a2;
16998: }
16999: if (a1)
17000: {
17001: i = 0;
17002: while ((c = *a1++) >= '0' && c <= '9')
17003: {
17004: i = (i * 10) + (long)(c - '0');
17005: if (i < 0)
17006: goto Error;
17007: }
17008: if (c || i < 0)
17009: goto Error;
17010: }
17011: #if !(defined(_BSD) || defined(_BSD_SYSV))
17012: else
17013: {
17014: i = -1;
17015: command--;
17016: }
17017:
17018: if ((i = ulimit(command, i)) < 0L)
17019: goto Error;
17020:
17021: if (command != RLIMIT_FSIZE)
17022: shellf("%ld\n", i);
17023: #else /* DPK -- generalized for 4.nBSD: */
17024: if (getrlimit(command, &limit))
17025: goto Error; /* errno is already set */
17026:
17027: if (a1)
17028: {
17029: limit.rlim_cur = i * factor;
17030:
17031: if (!softonly)
17032: limit.rlim_max = limit.rlim_cur;
17033:
17034: if (setrlimit(command, &limit))
17035: goto Error;
17036: }
17037: else
17038: {
17039: i = softonly ? limit.rlim_cur : limit.rlim_max;
17040: #if _BSD /* DAG -- System V always prints an integer */
17041: if (i == RLIM_INFINITY)
17042: shellf("unlimited\n");
17043: else
17044: #endif
17045: shellf("%ld\n", i/factor);
17046: }
17047: #endif /* _BSD || _BSD_SYSV */
17048: return 0;
17049:
17050: Error:
17051: errorf("bad ulimit\n");
17052: }
17053:
17054: ./pdksh/sh/patchlevel.h 644 653 1762 162 5243743700 12276 0 ustar hlu /*
17055: * PD KSH
17056: * $Id: patchlevel.h,v 4.7 1992/08/12 14:15:45 sjg Exp $
17057: */
17058: #define VERSION 4
17059: #define PATCHLEVEL 7
17060: ./pdksh/sh/proto.h 644 653 1762 20022 5243743663 11357 0 ustar hlu /*
17061: * prototypes for PD-KSH
17062: * originally generated using "cproto.c 3.5 92/04/11 19:28:01 cthuang "
17063: * $Id: proto.h,v 1.2 1992/08/10 12:03:05 sjg Exp $
17064: */
17065: #ifndef ARGS
17066: #if defined(__STDC__) || defined(__cplusplus)
17067: #define ARGS(s) s
17068: #else
17069: #define ARGS(s) ()
17070: #endif
17071: #endif
17072:
17073: /* alloc.c */
17074: Area * ainit ARGS((Area *ap));
17075: void afreeall ARGS((Area *ap));
17076: void * alloc ARGS((size_t size, Area *ap));
17077: void * aresize ARGS((void *ptr, size_t size, Area *ap));
17078: void afree ARGS((void *ptr, Area *ap));
17079: /* c_ksh.c */
17080: int c_hash ARGS((char **wp));
17081: int c_cd ARGS((char **wp));
17082: int c_print ARGS((char **wp));
17083: int c_whence ARGS((char **wp));
17084: int c_typeset ARGS((char **wp));
17085: int c_alias ARGS((char **wp));
17086: int c_unalias ARGS((char **wp));
17087: int c_let ARGS((char **wp));
17088: int c_jobs ARGS((char **wp));
17089: int c_fgbg ARGS((char **wp));
17090: int c_kill ARGS((char **wp));
17091: int c_bind ARGS((char **wp));
17092: /* c_sh.c */
17093: int c_label ARGS((char **wp));
17094: int c_shift ARGS((char **wp));
17095: int c_umask ARGS((char **wp));
17096: int c_dot ARGS((char **wp));
17097: int c_wait ARGS((char **wp));
17098: int c_read ARGS((char **wp));
17099: int c_eval ARGS((char **wp));
17100: int c_trap ARGS((char **wp));
17101: void setsig ARGS((struct trap *p, void (*f)()));
17102: int c_return ARGS((char **wp));
17103: int c_brkcont ARGS((char **wp));
17104: int c_exit ARGS((char **wp));
17105: int c_set ARGS((char **wp));
17106: int c_unset ARGS((char **wp));
17107: int c_ulimit ARGS((char **wp));
17108: int c_times ARGS((char **wp));
17109: int timex ARGS((struct op *t, int f));
17110: int c_exec ARGS((char **wp));
17111: int c_builtin ARGS((char **wp));
17112: /* c_test.c */
17113: int c_test ARGS((char **wp));
17114: int oexpr ARGS((int n));
17115: int aexpr ARGS((int n));
17116: int nexpr ARGS((int n));
17117: int primary ARGS((int n));
17118: int filstat ARGS((char *nm, int mode));
17119: int t_lex ARGS((char *s));
17120: int newerf ARGS((char *f1, char *f2));
17121: int olderf ARGS((char *f1, char *f2));
17122: int equalf ARGS((char *f1, char *f2));
17123: /* do_ulimit.c */
17124: int do_ulimit ARGS((char *a1, char *a2));
17125: /* edit.c */
17126: int x_read ARGS((int fd, char *buf, size_t len));
17127: int x_getc ARGS((void));
17128: void x_flush ARGS((void));
17129: void x_adjust ARGS((void));
17130: void x_putc ARGS((int c));
17131: void x_puts ARGS((char *s));
17132: void x_init ARGS((void));
17133: bool_t x_mode ARGS((bool_t onoff));
17134: int promptlen ARGS((char *cp));
17135: int init_editmode ARGS((void));
17136: void set_editmode ARGS((char *ed));
17137: /* emacs.c */
17138: int x_emacs ARGS((char *buf, size_t len));
17139: void x_redraw ARGS((int limit));
17140: void x_bind ARGS((char *a1, char *a2, int macro));
17141: void x_init_emacs ARGS((void));
17142: void x_emacs_keys ARGS((int erase, int kill, int werase, int intr, int quit));
17143: char * x_lastcp ARGS((void));
17144: /* eval.c */
17145: char * substitute ARGS((char const *cp, int f));
17146: char ** eval ARGS((char **ap, int f));
17147: char * evalstr ARGS((char *cp, int f));
17148: char * evalonestr ARGS((char *cp, int f));
17149: /* exec.c */
17150: int execute ARGS((struct op *t, volatile int flags));
17151: int shcomexec ARGS((char **wp));
17152: int define ARGS((char *name, struct op *t));
17153: int builtin ARGS((char *name, int (*func)()));
17154: struct tbl * findcom ARGS((char *name, int insert));
17155: int flushcom ARGS((int all));
17156: char * search ARGS((char *name, char *path, int mode));
17157: int pr_menu ARGS((char **ap, int usestored));
17158: /* expr.c */
17159: void evalerr ARGS((char *err));
17160: long evaluate ARGS((const char *expr));
17161: /* getopts.c */
17162: void resetopts ARGS((void));
17163: int c_getopts ARGS((char **wp));
17164: /* history.c */
17165: int c_fc ARGS((register char **wp));
17166: void histbackup ARGS((void));
17167: #ifdef EASY_HISTORY
17168: void histsave ARGS((char *cmd));
17169: #else
17170: void sethistsize ARGS((int n));
17171: void sethistfile ARGS((char *name));
17172: void histsave ARGS((int lno, char *cmd, int dowrite));
17173: #endif
17174: char ** histget ARGS((char *str));
17175: char * histrpl ARGS((char *s, char *pat, char *rep, int global));
17176: void hist_init ARGS((Source *s));
17177: void hist_finish ARGS((void));
17178: char ** histpos ARGS((void));
17179: int histN ARGS((void));
17180: int histnum ARGS((int n));
17181: char * findhist ARGS((int start, int fwd, char *str));
17182: /* io.c */
17183: int errorf ARGS((const char *fmt, ...));
17184: int shellf ARGS((const char *fmt, ...));
17185: void fopenshf ARGS((int fd));
17186: void flushshf ARGS((int fd));
17187: int savefd ARGS((int fd));
17188: void restfd ARGS((int fd, int ofd));
17189: void openpipe ARGS((int *pv));
17190: void closepipe ARGS((int *pv));
17191: struct temp * maketemp ARGS((Area *ap));
17192: /* jobs.c */
17193: void j_init ARGS((void));
17194: void j_exit ARGS((void));
17195: void j_change ARGS((void));
17196: int exchild ARGS((struct op *t, int flags));
17197: int waitlast ARGS((void));
17198: int j_reapchld ARGS((void));
17199: int j_reap ARGS((void));
17200: int waitfor ARGS((int job));
17201: void j_kill ARGS((int job, int sig));
17202: int j_resume ARGS((int job, int bg));
17203: void j_jobs ARGS((void));
17204: void j_notify ARGS((void));
17205: int j_lookup ARGS((char *cp));
17206: int j_stopped ARGS((void));
17207: /* lex.c */
17208: int yylex ARGS((int cf));
17209: int gethere ARGS((void));
17210: void yyerror ARGS((const char *msg));
17211: Source * pushs ARGS((int type));
17212: int pprompt ARGS((char *cp));
17213: /* mail.c */
17214: void mcheck ARGS((void));
17215: void mbset ARGS((char *p));
17216: void mpset ARGS((char *mptoparse));
17217: void mprint ARGS((void));
17218: /* main.c */
17219: int main ARGS((int argc, char **argv, char **envp));
17220: int include ARGS((char *name));
17221: #if 0
17222: int command ARGS((char *comm));
17223: #endif
17224: int shell ARGS((Source *s));
17225: void leave ARGS((int rv));
17226: int error ARGS((void));
17227: int unwind ARGS((void));
17228: int newenv ARGS((int type));
17229: int quitenv ARGS((void));
17230: void aerror ARGS((Area *ap, const char *msg));
17231: /* misc.c */
17232: void setctypes ARGS((/* const */ char *s, int t));
17233: void initctypes ARGS((void));
17234: char * ulton ARGS((unsigned long n, int base));
17235: char * strsave ARGS((char *s, Area *ap));
17236: int option ARGS((const char *n));
17237: char * getoptions ARGS((void));
17238: void printoptions ARGS((void));
17239: int getn ARGS((char *as));
17240: char * strerror ARGS((int i));
17241: int gmatch ARGS((char *s, char *p));
17242: void qsortp ARGS((void **base, size_t n, int (*f)()));
17243: int qsort1 ARGS((void **base, void **lim, int (*f)()));
17244: int xstrcmp ARGS((void *p1, void *p2));
17245: void cleanpath ARGS((char *pwd, char *dir, char *clean));
17246: /* syn.c */
17247: int yyparse ARGS((void));
17248: int keywords ARGS((void));
17249: struct op * compile ARGS((Source *s));
17250: /* table.c */
17251: unsigned int hash ARGS((char *n));
17252: void tinit ARGS((struct table *tp, Area *ap));
17253: struct tbl * tsearch ARGS((struct table *tp, char *n, unsigned int h));
17254: struct tbl * tenter ARGS((struct table *tp, char *n, unsigned int h));
17255: void tdelete ARGS((struct tbl *p));
17256: void twalk ARGS((struct table *tp));
17257: struct tbl * tnext ARGS((void));
17258: struct tbl ** tsort ARGS((struct table *tp));
17259: /* trace.c */
17260: /* trap.c */
17261: Trap * gettrap ARGS((char *name));
17262: void trapsig ARGS((int i));
17263: int runtraps ARGS((void));
17264: int runtrap ARGS((Trap *p));
17265: int cleartraps ARGS((void));
17266: int ignoresig ARGS((int i));
17267: int restoresigs ARGS((void));
17268: /* tree.c */
17269: void ptree ARGS((struct op *t, FILE *f));
17270: int pioact ARGS((FILE *f, struct ioword *iop));
17271: int fptreef ARGS((FILE *f, char *fmt, ...));
17272: int snptreef ARGS((char *s, int n, char *fmt, ...));
17273: struct op * tcopy ARGS((struct op *t, Area *ap));
17274: char * wdcopy ARGS((char *wp, Area *ap));
17275: char * wdscan ARGS((char *wp, int c));
17276: void tfree ARGS((struct op *t, Area *ap));
17277: /* var.c */
17278: void newblock ARGS((void));
17279: void popblock ARGS((void));
17280: struct tbl * global ARGS((char *n));
17281: struct tbl * local ARGS((char *n));
17282: char * strval ARGS((struct tbl *vp));
17283: long intval ARGS((struct tbl *vp));
17284: void setstr ARGS((struct tbl *vq, char *s));
17285: struct tbl * strint ARGS((struct tbl *vq, struct tbl *vp));
17286: void setint ARGS((struct tbl *vq, long n));
17287: int import ARGS((char *thing));
17288: struct tbl * typeset ARGS((char *var, int set, int clr));
17289: void unset ARGS((struct tbl *vp));
17290: int isassign ARGS((char *s));
17291: char ** makenv ARGS((void));
17292: /* version.c */
17293: /* vi.c */
17294: void vi_reset ARGS((char *buf, int len));
17295: int vi_hook ARGS((int ch));
17296: int save_cbuf ARGS((void));
17297: int restore_cbuf ARGS((void));
17298: int x_vi ARGS((char *buf, size_t len));
17299: int getch ARGS((void));
17300: char ** globstr ARGS((char *stuff));
17301:
17302:
17303: ./pdksh/sh/sigact.h 644 653 1762 3662 5243743611 11452 0 ustar hlu /* NAME:
17304: * sigact.h - sigaction et al
17305: *
17306: * SYNOPSIS:
17307: * #include <signal.h>
17308: * #ifndef SA_NOCLDSTOP
17309: * # include "sigact.h"
17310: * #endif
17311: *
17312: * DESCRIPTION:
17313: * This header is the interface to a fake sigaction(2) implementation.
17314: * Do NOT include this header unless your system does not
17315: * have a real sigaction(2) implementation.
17316: */
17317: /*
17318: * $Log: sigact.h,v $
17319: * Revision 1.2 1992/04/24 15:04:11 sjg
17320: * now compiles with cc
17321: *
17322: * Revision 1.1 1992/04/24 12:01:38 sjg
17323: * Initial revision
17324: *
17325: */
17326:
17327: #ifndef _SIGACT_H
17328: #define _SIGACT_H
17329:
17330: #ifndef ARGS
17331: # if defined(__STDC__)
17332: # define ARGS(p) p
17333: # else
17334: # define ARGS(p) ()
17335: # endif
17336: #endif
17337: #ifndef __STDC__
17338: # define volatile /* can change without warning */
17339: # define const /* read only */
17340: #endif
17341:
17342: #ifndef SIGKILL
17343: # include <signal.h>
17344: #endif
17345: #ifndef SA_NOCLDSTOP
17346: /* sa_flags */
17347: #define SA_NOCLDSTOP 0x0001 /* don't send SIGCHLD on child stop */
17348: #define SA_RESTART 0x0002 /* re-start I/O */
17349:
17350: /* sigprocmask flags */
17351: #define SIG_BLOCK 0x0001
17352: #define SIG_UNBLOCK 0x0002
17353: #define SIG_SETMASK 0x0004
17354:
17355: #ifndef __sys_stdtypes_h
17356: typedef int sigset_t;
17357: #endif
17358:
17359: struct sigaction
17360: {
17361: void (*sa_handler)();
17362: sigset_t sa_mask;
17363: int sa_flags;
17364: };
17365:
17366:
17367: int sigaction ARGS(( int sig, struct sigaction *act, struct sigaction *oact ));
17368: int sigaddset ARGS(( sigset_t *mask, int sig ));
17369: int sigdelset ARGS(( sigset_t *mask, int sig ));
17370: int sigemptyset ARGS(( sigset_t *mask ));
17371: int sigfillset ARGS(( sigset_t *mask ));
17372: int sigismember ARGS(( sigset_t *mask, int sig ));
17373: int sigpending ARGS(( sigset_t *set ));
17374: int sigprocmask ARGS(( int how, sigset_t *set, sigset_t *oldset ));
17375: int sigsuspend ARGS(( sigset_t *mask ));
17376:
17377: #ifndef sigmask
17378: #define sigmask(m) (1<<((m)-1)) /* convert SIGnum to mask */
17379: #endif
17380: #if !defined(NSIG) && defined(_NSIG)
17381: # define NSIG _NSIG
17382: #endif
17383: #endif /* ! SA_NOCLDSTOP */
17384: #endif /* _SIGACT_H */
17385: /*
17386: * Local Variables:
17387: * version-control:t
17388: * comment-column:40
17389: * End:
17390: */
17391: ./pdksh/sh/sigact.c 644 653 1762 13042 5243743636 11465 0 ustar hlu /* NAME:
17392: * sigact.c - fake sigaction(2)
17393: *
17394: * SYNOPSIS:
17395: * #include <signal.h>
17396: * #ifndef SA_NOCLDSTOP
17397: * # include "sigact.h"
17398: * #endif
17399: *
17400: * int sigaction(int sig, struct sigaction *act,
17401: * struct sigaction *oact);
17402: * int sigaddset(sigset_t *mask, int sig);
17403: * int sigdelset(sigset_t *mask, int sig);
17404: * int sigemptyset(sigset_t *mask);
17405: * int sigfillset(sigset_t *mask);
17406: * int sigismember(sigset_t *mask, int sig);
17407: * int sigpending(sigset_t *set);
17408: * int sigprocmask(int how, sigset_t *set, sigset_t *oldset);
17409: * int sigsuspend(sigset_t *mask);
17410: *
17411: * DESCRIPTION:
17412: * This is a fake sigaction implementation. It uses
17413: * sigset(2) if available, otherwise it just uses
17414: * signal(2). If it thinks sigaction(2) really exists it
17415: * compiles to almost nothing.
17416: *
17417: * The need for all this is the problems caused by mixing
17418: * signal handling routines in the one process. This
17419: * module allows for a consistent POSIX compliant interface
17420: * to whatever is available.
17421: *
17422: * RETURN VALUE:
17423: * 0==success, -1==failure
17424: *
17425: * FILES:
17426: * None.
17427: *
17428: * SEE ALSO:
17429: *
17430: *
17431: * BUGS:
17432: * Since we fake most of this, don't expect fancy usage to
17433: * work.
17434: *
17435: * COPYRIGHT:
17436: * @(#)Copyright (c) 1992 Simon J. Gerraty
17437: *
17438: * This is free software. It comes with NO WARRANTY.
17439: * Permission to use, modify and distribute this source code
17440: * is granted subject to the following conditions.
17441: * 1/ that that the above copyright notice and this notice
17442: * are preserved in all copies and that due credit be given
17443: * to the author.
17444: * 2/ that any changes to this code are clearly commented
17445: * as such so that the author does get blamed for bugs
17446: * other than his own.
17447: *
17448: * Please send copies of changes and bug-fixes to:
17449: * [email protected]
17450: *
17451: */
17452: #ifndef lint
17453: static char *RCSid = "$Id: sigact.c,v 1.5 1992/05/03 08:29:10 sjg Exp $";
17454: #endif
17455: /*
17456: * $Log: sigact.c,v $
17457: * Revision 1.5 1992/05/03 08:29:10 sjg
17458: * Update for Patch05
17459: *
17460: * Revision 1.4 1992/04/29 06:29:13 sjg
17461: * avoid use of #pragma
17462: *
17463: * Revision 1.3 1992/04/26 11:24:43 sjg
17464: * USE_SIGSET corrected in sigsuspend().
17465: *
17466: * Revision 1.2 1992/04/24 15:04:11 sjg
17467: * now compiles with cc
17468: *
17469: * Revision 1.1 1992/04/24 12:03:58 sjg
17470: * Initial revision
17471: *
17472: */
17473:
17474: #include <signal.h>
17475:
17476: /*
17477: * some systems have a faulty sigaction() implementation!
17478: * Allow us to bypass it.
17479: */
17480: #if !defined(SA_NOCLDSTOP) || defined(USE_SIGNAL) || defined(USE_SIGSET) || defined(USE_SIGMASK)
17481:
17482: /*
17483: * if we haven't been told,
17484: * try and guess what we should implement with.
17485: */
17486: #if !defined(USE_SIGSET) && !defined(USE_SIGMASK) && !defined(USE_SIGNAL)
17487: # if defined(sigmask) || defined(BSD) || defined(_BSD) && !defined(BSD41)
17488: # define USE_SIGMASK
17489: # else
17490: # ifndef NO_SIGSET
17491: # define USE_SIGSET
17492: # else
17493: # define USE_SIGNAL
17494: # endif
17495: # endif
17496: #endif
17497: /*
17498: * if we still don't know, we're in trouble
17499: */
17500: #if !defined(USE_SIGSET) && !defined(USE_SIGMASK) && !defined(USE_SIGNAL)
17501: error must know what to implement with
17502: #endif
17503:
17504: #include "sigact.h"
17505:
17506:
17507:
17508: int
17509: sigaction(sig, act, oact)
17510: int sig;
17511: struct sigaction *act, *oact;
17512: {
17513: void (*oldh)();
17514:
17515: if (act)
17516: {
17517: #ifdef USE_SIGSET
17518: oldh = sigset(sig, act->sa_handler);
17519: #else
17520: oldh = signal(sig, act->sa_handler);
17521: #endif
17522: }
17523: else
17524: {
17525: if (oact)
17526: {
17527: #ifdef USE_SIGSET
17528: oldh = sigset(sig, SIG_IGN);
17529: #else
17530: oldh = signal(sig, SIG_IGN);
17531: #endif
17532: if (oldh != SIG_IGN)
17533: {
17534: #ifdef USE_SIGSET
17535: (void) sigset(sig, oldh);
17536: #else
17537: (void) signal(sig, oldh);
17538: #endif
17539: }
17540: }
17541: }
17542: if (oact)
17543: {
17544: oact->sa_handler = oldh;
17545: }
17546: return 0; /* hey we're faking it */
17547: }
17548:
17549: int
17550: sigaddset(mask, sig)
17551: sigset_t *mask;
17552: int sig;
17553: {
17554: *mask |= sigmask(sig);
17555: return 0;
17556: }
17557:
17558:
17559: int
17560: sigdelset(mask, sig)
17561: sigset_t *mask;
17562: int sig;
17563: {
17564: *mask &= ~(sigmask(sig));
17565: return 0;
17566: }
17567:
17568:
17569: int
17570: sigemptyset(mask)
17571: sigset_t *mask;
17572: {
17573: *mask = 0;
17574: return 0;
17575: }
17576:
17577:
17578: int
17579: sigfillset(mask)
17580: sigset_t *mask;
17581: {
17582: *mask = ~0;
17583: return 0;
17584: }
17585:
17586:
17587: int
17588: sigismember(mask, sig)
17589: sigset_t *mask;
17590: int sig;
17591: {
17592: return ((*mask) & sigmask(sig));
17593: }
17594:
17595:
17596: int
17597: sigpending(set)
17598: sigset_t *set;
17599: {
17600: return 0;
17601: }
17602:
17603:
17604: int
17605: sigprocmask(how, set, oldset)
17606: int how;
17607: sigset_t *set, *oldset;
17608: {
17609: #ifdef USE_SIGSET
17610: register int i;
17611: #endif
17612: sigset_t sm;
17613:
17614: #ifdef USE_SIGMASK
17615: sm = sigblock(0);
17616: #else
17617: sm = 0;
17618: #endif
17619:
17620: if (oldset)
17621: *oldset = sm; /* dangerous ? */
17622: if (set)
17623: {
17624: switch (how)
17625: {
17626: case SIG_BLOCK:
17627: sm |= *set;
17628: break;
17629: case SIG_UNBLOCK:
17630: sm &= ~(*set);
17631: break;
17632: case SIG_SETMASK:
17633: sm = *set;
17634: break;
17635: }
17636: #ifdef USE_SIGMASK
17637: (void) sigsetmask(sm);
17638: #else
17639: # ifdef USE_SIGSET
17640: for (i = 1; i < NSIG; i++)
17641: {
17642: if (how == SIG_UNBLOCK)
17643: {
17644: if (*set & sigmask(i))
17645: sigrelse(i);
17646: }
17647: else
17648: if (sm & sigmask(i))
17649: {
17650: sighold(i);
17651: }
17652: }
17653: # endif
17654: #endif
17655: }
17656: return 0;
17657: }
17658:
17659:
17660: int
17661: sigsuspend(mask)
17662: sigset_t *mask;
17663: {
17664: #ifdef USE_SIGSET
17665: int sig = SIGCHLD; /* our default */
17666:
17667: /*
17668: * add as many tests as you think sensible, but
17669: * SIGALRM, and SIGCHLD are probably the most
17670: * common.
17671: */
17672: if (*mask & sigmask(SIGALRM))
17673: sig = SIGALRM;
17674: else
17675: if (*mask & sigmask(SIGPIPE))
17676: sig = SIGPIPE;
17677: sigpause(sig);
17678: #else
17679: # ifdef USE_SIGMASK
17680: sigpause(mask);
17681: # else
17682: pause();
17683: # endif
17684: #endif
17685: return 0;
17686: }
17687:
17688: #endif /* ! SA_NOCLDSTOP */
17689:
17690:
17691: /* This lot (for GNU-Emacs) goes at the end of the file. */
17692: /*
17693: * Local Variables:
17694: * version-control:t
17695: * comment-column:40
17696: * End:
17697: */
17698: ./pdksh/sh/trap.c.new 644 653 1762 7771 5302640172 11730 0 ustar hlu /*
17699: * signal handling
17700: */
17701:
17702: #ifndef lint
17703: static char *RCSid = "$Id: trap.c,v 1.3 1992/08/10 12:03:15 sjg Exp $";
17704: #endif
17705:
17706: #include "stdh.h"
17707: #include <errno.h>
17708: #include <signal.h>
17709: #include <setjmp.h>
17710: #include "sh.h"
17711:
17712: Trap sigtraps [SIGNALS] = {
17713: {0, "EXIT", "Signal 0"}, /* todo: belongs in e.loc->exit */
17714: {SIGHUP, "HUP", "Hangup"},
17715: {SIGINT, "INT", "Interrupt"},
17716: {SIGQUIT, "QUIT", "Quit"},
17717: {SIGILL, "ILL", "Illegal instruction"},
17718: {SIGTRAP, "TRAP", "Trace trap"},
17719: #ifdef SIGABRT
17720: {SIGIOT, "ABRT", "Abort"},
17721: #else
17722: {SIGIOT, "IOT", "IOT instruction"},
17723: #endif
17724: #ifdef SIGEMT
17725: {SIGEMT, "EMT", "EMT trap"},
17726: #endif
17727: {SIGFPE, "FPE", "Floating exception"},
17728: {SIGKILL, "KILL", "Killed"},
17729: #ifdef SIGUSR1
17730: {SIGUSR1, "USR1", "User defined signal 1"},
17731: #endif
17732: {SIGSEGV, "SEGV", "Memory fault"},
17733: #ifdef SIGUSR2
17734: {SIGUSR2, "USR2", "User defined signal 2"},
17735: #endif
17736: #ifdef SIGBUS
17737: {SIGBUS, "BUS", "Bus error"},
17738: #endif
17739: #ifdef SIGSYS
17740: {SIGSYS, "SYS", "Bad system call"},
17741: #endif
17742: {SIGPIPE, "PIPE", "Broken pipe"},
17743: {SIGALRM, "ALRM", "Alarm clock"},
17744: {SIGTERM, "TERM", "Terminated"},
17745: #ifdef SIGSTKFLT
17746: {SIGSTKFLT, "STKFLT", "Stack fault"},
17747: #endif
17748: #ifdef SIGCHLD
17749: {SIGCHLD, "CHLD", "Waiting children"},
17750: #else
17751: {SIGCLD, "CLD", "Death of a child"},
17752: #endif
17753: #ifdef SIGPWR
17754: {SIGPWR, "PWR", "Power-fail restart"},
17755: #endif
17756: #ifdef SIGTSTP /* todo: need to be more portable */
17757: {SIGTSTP, "TSTP", "Stop"},
17758: #endif
17759: {SIGTTIN, "TTIN", "Stop (tty input)"},
17760: #ifdef SIGPOLL
17761: {SIGPOLL, "POLL", "Pollable event occured"},
17762: #endif
17763: #ifdef SIGSTOP
17764: {SIGSTOP, "STOP", "Stop (signal)"},
17765: #endif
17766: #ifdef SIGTTOU
17767: {SIGTTOU, "TTOU", "Stop (tty output)"},
17768: #endif
17769: #ifdef SIGCONT
17770: {SIGCONT, "CONT", "Continue"},
17771: #endif
17772: #if defined(SIGURG) && (SIGURG != SIGPOLL)
17773: {SIGURG, "URG", "Urgent condition"}, /* BSDism */
17774: #endif
17775: #ifdef SIGWINCH
17776: {SIGWINCH, "WINCH", "Window changed"},
17777: #endif
17778: };
17779:
17780: Trap *
17781: gettrap(name)
17782: char *name;
17783: {
17784: int i;
17785: register Trap *p;
17786:
17787: if (digit(*name)) {
17788: i = getn(name);
17789: return (0 <= i && i < SIGNALS) ? &sigtraps[getn(name)] : NULL;
17790: }
17791: #if 0
17792: if (strcmp("ERR", name) == 0)
17793: return &e.loc->err;
17794: if (strcmp("EXIT", name) == 0)
17795: return &e.loc->exit;
17796: #endif
17797: for (p = sigtraps, i = SIGNALS; --i >= 0; p++)
17798: if (p->name != NULL && strcmp(p->name, name) == 0)
17799: return p;
17800: return NULL;
17801: }
17802:
17803: /*
17804: * trap signal handler
17805: */
17806: void
17807: trapsig(i)
17808: int i;
17809: {
17810: trap = sigtraps[i].set = 1;
17811: if (i == SIGINT && (e.type == E_PARSE || e.type == E_LOOP))
17812: /* dangerous but necessary to deal with BSD silly signals */
17813: longjmp(e.jbuf, 1);
17814: #ifdef USE_SIGACT
17815: sigaction(i, &Sigact_trap, NULL);
17816: #else
17817: (void) signal(i, trapsig);
17818: #endif
17819: }
17820:
17821: /*
17822: * run any pending traps
17823: */
17824: runtraps()
17825: {
17826: int i;
17827: register Trap *p;
17828:
17829: for (p = sigtraps, i = SIGNALS; --i >= 0; p++)
17830: if (p->set)
17831: runtrap(p);
17832: trap = 0;
17833: }
17834:
17835: runtrap(p)
17836: Trap *p;
17837: {
17838: char *trapstr;
17839:
17840: p->set = 0;
17841: if ((trapstr = p->trap) == NULL)
17842: if (p->signal == SIGINT)
17843: unwind(); /* return to shell() */
17844: else
17845: return;
17846: if (p->signal == 0) /* ??? */
17847: p->trap = 0;
17848: command(trapstr);
17849: }
17850:
17851: /* restore signals for children */
17852: cleartraps()
17853: {
17854: int i;
17855: register Trap *p;
17856:
17857: if ((p = sigtraps)->trap != NULL) { /* Maybe put in exchild() */
17858: afree((void *)p->trap,APERM); /* Necessary? */
17859: p->trap = NULL;
17860: }
17861: for (i = SIGNALS, p = sigtraps; --i >= 0; p++) {
17862: p->set = 0;
17863: #ifdef USE_SIGACT
17864: if (p->ourtrap)
17865: {
17866: sigaction(p->signal, &Sigact_ign, &Sigact);
17867: if (Sigact.sa_handler != SIG_IGN)
17868: sigaction(p->signal, &Sigact_dfl, NULL);
17869: }
17870: #else
17871: if (p->ourtrap && signal(p->signal, SIG_IGN) != SIG_IGN)
17872: (void) signal(p->signal, SIG_DFL);
17873: #endif
17874: }
17875: }
17876:
17877: ignoresig(i)
17878: int i;
17879: {
17880: #ifdef USE_SIGACT
17881: sigaction(i, &Sigact_ign, &Sigact);
17882: sigemptyset(&Sigact.sa_mask);
17883: Sigact.sa_flags = 0;
17884:
17885: if (Sigact.sa_handler != SIG_IGN)
17886: sigtraps[i].sig_dfl = 1;
17887: #else
17888: if (signal(i, SIG_IGN) != SIG_IGN)
17889: sigtraps[i].sig_dfl = 1;
17890: #endif
17891: }
17892:
17893: restoresigs()
17894: {
17895: int i;
17896: register Trap *p;
17897:
17898: for (p = sigtraps, i = SIGNALS; --i >= 0; p++)
17899: if (p->sig_dfl) {
17900: p->sig_dfl = 0;
17901: #ifdef USE_SIGACT
17902: sigaction(p->signal, &Sigact_dfl, NULL);
17903: #else
17904: (void) signal(p->signal, SIG_DFL);
17905: #endif
17906: }
17907: }
17908:
17909: ./pdksh/sh/makefile.linux 644 653 1762 13043 5302764171 12677 0 ustar hlu # PD Bourne/Korn Shell
17910: # $Id: Makefile,v 1.3 1992/08/10 12:02:18 sjg Exp $
17911:
17912: SHELL = /bin/sh
17913: MAKE = make
17914:
17915: LN = ln -s
17916:
17917: # You _can_ build this shell without the ../std tree if your
17918: # system provides a sufficiently POSIX environment, or if your
17919: # BSD system is a Sun or close. If not try ../std.
17920:
17921: # gcc is good value on most mc68k's and sun386's if nothing else.
17922: # if you don't have gcc cc should do
17923: # CC=gcc -pipe
17924: CC=gcc -V ss-921113 -b i386-linux
17925:
17926: # The following are the defintions used (or thereabouts)
17927: # to build ksh without ../std
17928: #
17929: # sun386 SunOS 4.0.2, sun3 SunOS 4.0.3
17930: # CONFIG=-D_BSD
17931: # XOPTS=-DNOSTDHDRS
17932: # copy these from ../std/stdc or ensure they are in libstdc.a
17933: # XOBJS = memmove.o strstr.o
17934: #
17935: # sun3 SunOS 4.1.1
17936: # CONFIG=-D_BSD
17937: # XOPTS=-DNOSTDHDRS
17938: # copy these from ../std/stdc or ensure they are in libstdc.a
17939: # XOBJS = memmove.o
17940: #
17941: # sun4c (sparc) SunOS 4.1.1
17942: # CC=cc -pipe # don't use gcc
17943: # CONFIG=-D_BSD
17944: # XOPTS=-DNOSTDHDRS
17945: # copy these from ../std/stdc or ensure they are in libstdc.a
17946: # XOBJS = memmove.o
17947: #
17948: # Bull DPX/2 B.O.S. 2.00.45
17949: # CC=gcc -ansi
17950: # CONFIG=-D_POSIX_SOURCE
17951: # XOPTS=
17952: # XOBJS=
17953: #
17954: # Minix-386 1.5.10 with estdio
17955: # CONFIG= -D_BSD -D_MINIX -D_POSIX_SOURCE
17956: # XOPTS=
17957: # XOBJS=
17958: #
17959: # BSD/386
17960: # CONFIG= -D_BSDI -D_POSIX_TERM -D_POSIX_SOURCE
17961: # XOPTS=
17962: # XOBJS=
17963:
17964: # Linux, mmap () is not complete.
17965: CONFIG= -D_SYSV -D_POSIX_TERM -DNO_MMAP
17966: #CONFIG= -D_SYSV
17967: #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
17968: #CONFIG= -D_BSD -DCOMPLEX_HISTORY
17969:
17970:
17971: STD=../std
17972: INCL=$(STD)/h
17973: XINCL=-I$(INCL)
17974: LDOPTS=-L$(STD)
17975: XOBJS=
17976:
17977: # use -O if you trust it :-)
17978: DBG=-Wall -O2 -fomit-frame-pointer -s
17979: CFLAGS = $(DBG) $(CONFIG) $(XINCL) $(XOPTS)
17980:
17981: LDFLAGS = $(DBG) $(LDOPTS)
17982:
17983: #COMPATLIBS = -lstdc -lposix
17984: #XLIBS = -lc_s
17985: #XLIBS = -ldirent
17986: LDLIBS = $(COMPATLIBS) $(XLIBS)
17987:
17988: HDRS = sh.h table.h expand.h lex.h tree.h tty.h trace.h
17989: SRCS1 = version.c main.c misc.c trap.c alloc.c io.c \
17990: syn.c lex.c edit.c emacs.c vi.c history.c tree.c
17991: SRCS2 = exec.c jobs.c \
17992: c_sh.c c_ksh.c c_test.c getopts.c do_ulimit.c \
17993: var.c table.c eval.c expr.c mail.c sigact.c trace.c
17994: SRCS = Makefile $(HDRS) $(SRCS1) $(SRCS2)
17995:
17996: OBJS = version.o main.o misc.o \
17997: syn.o lex.o edit.o emacs.o vi.o tree.o \
17998: exec.o jobs.o trap.o \
17999: c_sh.o c_ksh.o c_test.o \
18000: do_ulimit.o getopts.o expr.o history.o \
18001: var.o table.o alloc.o io.o eval.o mail.o sigact.o trace.o $(XOBJS)
18002:
18003: ksh: $(OBJS)
18004: $(CC) $(LDFLAGS) -o $@ $(OBJS) $(LDLIBS)
18005:
18006: clean:
18007: rm -f *.o *.out core
18008:
18009: clobber: clean
18010: rm -f ksh
18011:
18012: link:
18013: ($(SHELL) ../std/mklinks ../std/h stdh.h)
18014:
18015:
18016: depend:
18017: makedepend $(CFLAGS) $(SRCS1) $(SRCS2)
18018:
18019: install:
18020: @echo "Try:"
18021: @echo "cp ksh /bin"
18022: @echo "strip /bin/ksh"
18023: @echo "chmod 555 /bin/ksh"
18024:
18025: .c.s:
18026: $(CC) $(CFLAGS) -S -o $@ $<
18027:
18028: asms: $(OBJS:.o=.s)
18029:
18030:
18031: # DO NOT DELETE THIS LINE -- make depend depends on it.
18032: # If this runs make out of memory, delete /usr/include lines.
18033: alloc.o: alloc.c
18034: alloc.o: config.h
18035: alloc.o: sh.h
18036: alloc.o: stdh.h
18037: alloc.o: trace.h
18038: c_ksh.o: c_ksh.c
18039: c_ksh.o: config.h
18040: c_ksh.o: sh.h
18041: c_ksh.o: stdh.h
18042: c_ksh.o: table.h
18043: c_ksh.o: trace.h
18044: c_sh.o: c_sh.c
18045: c_sh.o: config.h
18046: c_sh.o: lex.h
18047: c_sh.o: sh.h
18048: c_sh.o: stdh.h
18049: c_sh.o: table.h
18050: c_sh.o: trace.h
18051: c_sh.o: tree.h
18052: c_test.o: c_test.c
18053: c_test.o: config.h
18054: c_test.o: sh.h
18055: c_test.o: stdh.h
18056: c_test.o: trace.h
18057: edit.o: config.h
18058: edit.o: edit.c
18059: edit.o: edit.h
18060: edit.o: lex.h
18061: edit.o: sh.h
18062: edit.o: stdh.h
18063: edit.o: trace.h
18064: edit.o: tty.h
18065: emacs.o: config.h
18066: emacs.o: edit.h
18067: emacs.o: emacs.c
18068: emacs.o: expand.h
18069: emacs.o: lex.h
18070: emacs.o: sh.h
18071: emacs.o: stdh.h
18072: emacs.o: table.h
18073: emacs.o: trace.h
18074: emacs.o: tree.h
18075: eval.o: config.h
18076: eval.o: eval.c
18077: eval.o: expand.h
18078: eval.o: lex.h
18079: eval.o: sh.h
18080: eval.o: stdh.h
18081: eval.o: table.h
18082: eval.o: trace.h
18083: eval.o: tree.h
18084: exec.o: config.h
18085: exec.o: exec.c
18086: exec.o: lex.h
18087: exec.o: sh.h
18088: exec.o: stdh.h
18089: exec.o: table.h
18090: exec.o: trace.h
18091: exec.o: tree.h
18092: expr.o: config.h
18093: expr.o: expr.c
18094: expr.o: sh.h
18095: expr.o: stdh.h
18096: expr.o: table.h
18097: expr.o: trace.h
18098: getopts.o: config.h
18099: getopts.o: getopts.c
18100: getopts.o: sh.h
18101: getopts.o: stdh.h
18102: getopts.o: table.h
18103: getopts.o: trace.h
18104: history.o: config.h
18105: history.o: history.c
18106: history.o: lex.h
18107: history.o: sh.h
18108: history.o: stdh.h
18109: history.o: trace.h
18110: io.o: config.h
18111: io.o: io.c
18112: io.o: sh.h
18113: io.o: stdh.h
18114: io.o: trace.h
18115: jobs.o: config.h
18116: jobs.o: jobs.c
18117: jobs.o: sh.h
18118: jobs.o: stdh.h
18119: jobs.o: trace.h
18120: jobs.o: tree.h
18121: lex.o: config.h
18122: lex.o: expand.h
18123: lex.o: lex.c
18124: lex.o: lex.h
18125: lex.o: sh.h
18126: lex.o: stdh.h
18127: lex.o: table.h
18128: lex.o: trace.h
18129: lex.o: tree.h
18130: mail.o: config.h
18131: mail.o: mail.c
18132: mail.o: sh.h
18133: mail.o: stdh.h
18134: mail.o: table.h
18135: mail.o: trace.h
18136: main.o: config.h
18137: main.o: lex.h
18138: main.o: main.c
18139: main.o: sh.h
18140: main.o: stdh.h
18141: main.o: table.h
18142: main.o: trace.h
18143: main.o: tree.h
18144: memmove.o: memmove.c
18145: memmove.o: stdh.h
18146: misc.o: config.h
18147: misc.o: expand.h
18148: misc.o: misc.c
18149: misc.o: sh.h
18150: misc.o: stdh.h
18151: misc.o: trace.h
18152: strstr.o: stdh.h
18153: strstr.o: strstr.c
18154: syn.o: config.h
18155: syn.o: expand.h
18156: syn.o: lex.h
18157: syn.o: sh.h
18158: syn.o: stdh.h
18159: syn.o: syn.c
18160: syn.o: table.h
18161: syn.o: trace.h
18162: syn.o: tree.h
18163: sigact.o: sigact.h sigact.c
18164: table.o: config.h
18165: table.o: sh.h
18166: table.o: stdh.h
18167: table.o: table.c
18168: table.o: table.h
18169: table.o: trace.h
18170: times.o: times.c
18171: trace.o: trace.c
18172: trap.o: config.h
18173: trap.o: sh.h
18174: trap.o: stdh.h
18175: trap.o: trace.h
18176: trap.o: trap.c
18177: tree.o: config.h
18178: tree.o: sh.h
18179: tree.o: stdh.h
18180: tree.o: trace.h
18181: tree.o: tree.c
18182: tree.o: tree.h
18183: do_ulimit.o: config.h
18184: do_ulimit.o: sh.h
18185: do_ulimit.o: stdh.h
18186: do_ulimit.o: trace.h
18187: do_ulimit.o: do_ulimit.c
18188: var.o: config.h
18189: var.o: expand.h
18190: var.o: sh.h
18191: var.o: stdh.h
18192: var.o: table.h
18193: var.o: trace.h
18194: var.o: var.c
18195: version.o: config.h
18196: version.o: sh.h
18197: version.o: stdh.h
18198: version.o: trace.h
18199: version.o: version.c
18200: vi.o: config.h
18201: vi.o: edit.h
18202: vi.o: expand.h
18203: vi.o: lex.h
18204: vi.o: sh.h
18205: vi.o: stdh.h
18206: vi.o: table.h
18207: vi.o: trace.h
18208: vi.o: tree.h
18209: vi.o: vi.c
18210: # WARNING: Put nothing here or make depend will gobble it up!
18211: ./pdksh/std/ 2755 653 1762 0 5302550313 10131 5 ustar hlu ./pdksh/std/posix/ 2755 653 1762 0 5302550303 11272 5 ustar hlu ./pdksh/std/posix/io.h 644 653 1762 3017 5243743535 12130 0 ustar hlu /* POSIX IO functions */
18212: /* $Id: io.h,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18213:
18214: /*
18215: * the incomplete type "struct stat"
18216: * will get warnings from GCC,
18217: * errors from Turbo C. Too bad.
18218: */
18219:
18220: /* include <unistd.h> to get this */
18221:
18222: #if ! _IO_H
18223: #define _IO_H 1
18224:
18225: #include <unistd.h>
18226:
18227: #if _ST /* dLibs hack */
18228: #define unlink remove
18229: #endif
18230:
18231: struct stat; /* create global incompletely-typed structure */
18232:
18233: int chdir ARGS ((const char *path));
18234: #ifndef sparc
18235: int umask ARGS ((int mode));
18236: #endif
18237:
18238: int open ARGS ((const char *path, int flags, ... /*mode*/));
18239: int creat ARGS ((const char *path, int mode));
18240: int pipe ARGS ((int pv[2]));
18241: int close ARGS ((int fd));
18242:
18243: int fcntl ARGS ((int fd, int cmd, int arg));
18244: int dup ARGS ((int fd));
18245: int dup2 ARGS ((int ofd, int nfd));
18246:
18247: int link ARGS ((const char *opath, const char *npath));
18248: int unlink ARGS ((const char *path));
18249: int rename ARGS ((const char *opath, const char *npath));
18250: int mkdir ARGS ((const char *path, int mode));
18251:
18252: long lseek ARGS ((int fd, long off, int how));
18253: int read ARGS ((int fd, char *buf, unsigned len));
18254: int write ARGS ((int fd, char *buf, unsigned len));
18255:
18256: int access ARGS ((const char *path, int mode));
18257: int stat ARGS ((const char *path, struct stat *sp));
18258: int fstat ARGS ((int fd, struct stat *sp));
18259:
18260: int chmod ARGS ((const char *path, int mode));
18261: int chown ARGS ((const char *path, int uid));
18262: int chgrp ARGS ((const char *path, int gid));
18263: int utime ARGS ((const char *path, long tv[2]));
18264:
18265: #if _BSD || _V7
18266: int ioctl ARGS ((int fd, int cmd, void *argp)); /* BSD is "uns long cmd" */
18267: #endif
18268:
18269: #endif
18270: ./pdksh/std/posix/Makefile 644 653 1762 1760 5243743532 13010 0 ustar hlu # POSIX P1003.1 compatability
18271: # $Id: Makefile,v 1.2 1992/04/25 08:22:14 sjg Exp $
18272:
18273: SHELL = /bin/sh
18274: MAKE = make
18275:
18276: #CONFIG = -D_SYSV
18277: CONFIG = -D_BSD
18278:
18279: LN = ln
18280: RANLIB = ranlib # For BSD systems
18281: #RANLIB = echo Updated
18282:
18283: LIB = ../libposix.a
18284: INCL = ../h
18285:
18286: CFLAGS = $(CCOPTS) -I$(INCL) $(CONFIG)
18287:
18288: MISC = Makefile
18289: HDRS = io.h unistd.h fcntl.h dirent.h
18290: SYSHDRS = wait.h time.h times.h
18291:
18292: SRCS = unistd.c fcntl.c times.c dup2.c
18293: OBJS = $(LIB)(unistd.o) \
18294: $(LIB)(fcntl.o) \
18295: $(LIB)(times.o) \
18296: $(LIB)(dup2.o)
18297:
18298: all: $(LIB)
18299:
18300: link: $(HDRS)
18301: [ -d $(INCL) ] || mkdir $(INCL)
18302: [ -d $(INCL)/sys ] || mkdir $(INCL)/sys
18303: ($(SHELL) ../mklinks $(INCL) $(HDRS))
18304: ($(SHELL) ../mklinks $(INCL)/sys $(SYSHDRS))
18305: -if [ -r /usr/include/unistd.h ]; then $(RM) $(INCL)/unistd.h; fi
18306:
18307: $(LIB): $(OBJS)
18308: # if you make doesn't know how to put objects in libraries
18309: # then simply make all the .o's and use the following line
18310: # ar r $@ $?
18311: $(RANLIB) $@
18312:
18313: clean:
18314: -rm -f *.o *.out
18315:
18316: clobber: clean
18317: -rm -f $(LIB)
18318:
18319: fcntl.o: fcntl.h
18320:
18321: times.o: times.h
18322: ./pdksh/std/posix/dirent.C 644 653 1762 2105 5243743532 12733 0 ustar hlu /*
18323: * simple implementation of directory(3) routines for V7 and Minix.
18324: * completly untested. not designed to be efficient.
18325: * missing telldir and seekdir.
18326: */
18327: /* $Id: dirent.C,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18328:
18329: #include <sys/types.h>
18330: #include <dirent.h>
18331:
18332: char *malloc();
18333:
18334: #define DIRSIZ 14
18335: struct direct_v7
18336: {
18337: unsigned short d_ino;
18338: char d_name[DIRSIZ];
18339: };
18340:
18341: DIR *opendir(filename)
18342: char *filename;
18343: {
18344: DIR *dirp;
18345:
18346: dirp = (DIR *) malloc(sizeof(DIR));
18347: if (dirp == NULL)
18348: return NULL;
18349: dirp->fd = open(filename, 0);
18350: if (dirp->fd < 0) {
18351: free((char *) dirp);
18352: return NULL;
18353: }
18354: return dirp;
18355: }
18356:
18357: struct dirent *readdir(dirp)
18358: register DIR *dirp;
18359: {
18360: static struct direct_v7 ent;
18361:
18362: while (read(dirp->fd, (char *)&ent, (int)sizeof(ent)) == sizeof(ent))
18363: if (ent.d_ino != 0)
18364: goto found;
18365: return (struct dirent *) NULL;
18366: found:
18367: dirp->ent.d_ino = ent.d_ino;
18368: strncpy(dirp->ent.d_name, ent.d_name, DIRSIZ);
18369: return &dirp->ent;
18370: }
18371:
18372: void rewinddir(dirp)
18373: DIR *dirp;
18374: {
18375: lseek(dirp->fd, 0L, 0);
18376: }
18377:
18378: closedir(dirp)
18379: DIR *dirp;
18380: {
18381: close(dirp->fd);
18382: dirp->fd = -1;
18383: free((char *) dirp);
18384: return 0;
18385: }
18386: ./pdksh/std/posix/dirent.H 644 653 1762 1650 5243743533 12745 0 ustar hlu /*
18387: <sys/dirent.h> -- file system independent directory entry (SVR3)
18388:
18389: last edit: 25-Apr-1987 D A Gwyn
18390: last hack: 14-Aug-1987 Eric Gisin
18391:
18392: prerequisite: <sys/types.h>
18393: */
18394: /* $Id: dirent.H,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18395:
18396: #define MAXNAMLEN 16 /* maximum filename length */
18397:
18398: struct dirent /* data from getdents()/readdir() */
18399: {
18400: long d_ino; /* inode number of entry */
18401: off_t d_off; /* offset of disk directory entry */
18402: unsigned short d_reclen; /* length of this record */
18403: char d_name[MAXNAMLEN]; /* name of file */
18404: };
18405:
18406: #ifndef NAME_MAX
18407: #define NAME_MAX (MAXNAMLEN - 1) /* DAG -- added for POSIX */
18408: #endif
18409:
18410: typedef struct { /* returned by opendir() */
18411: int fd;
18412: struct dirent ent;
18413: } DIR;
18414:
18415: extern DIR *opendir();
18416: extern struct dirent *readdir();
18417: extern off_t telldir();
18418: extern void seekdir();
18419: extern void rewinddir();
18420: extern int closedir();
18421:
18422: #ifndef NULL
18423: #define NULL 0 /* DAG -- added for convenience */
18424: #endif
18425: ./pdksh/std/posix/fcntl.c 644 653 1762 745 5243743534 12606 0 ustar hlu /* fcntl emulation */
18426: /* $Id: fcntl.c,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18427:
18428: #include <errno.h>
18429: #include <sys/types.h>
18430: #include <unistd.h>
18431: #include <fcntl.h>
18432:
18433: #if _V7
18434:
18435: #include <sgtty.h>
18436:
18437: int
18438: fcntl(fd, cmd, arg)
18439: int fd, cmd, arg;
18440: {
18441: switch (cmd) {
18442: case F_SETFD: /* set fd flags */
18443: ioctl(fd, (arg&FD_CLEXEC) ? FIOCLEX : FIONCLEX, (char *)NULL);
18444: break;
18445: case F_DUPFD: /* dup fd */
18446: /* this one is fun. find an unused fd >= arg and dup2 */
18447: break;
18448: }
18449: return 0;
18450: }
18451:
18452: #endif
18453:
18454: ./pdksh/std/posix/fcntl.h 644 653 1762 753 5243743534 12612 0 ustar hlu /* P1003.1 fcntl/open definitions */
18455: /* Based on a version by Terrence W. Holm */
18456: /* for fcntl(2) */
18457: /* $Id: fcntl.h,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18458:
18459: #define F_DUPFD 0
18460: #define F_GETFD 1
18461: #define F_SETFD 2
18462: #define F_GETFL 3
18463: #define F_SETFL 4
18464:
18465: #define FD_CLEXEC 1 /* fcntl F_SETFD close on exec mode */
18466:
18467: /* for open(2) */
18468:
18469: #define O_RDONLY 0
18470: #define O_WRONLY 1
18471: #define O_RDWR 2
18472:
18473: #if _BSD
18474: #undef O_RDONLY
18475: #undef O_WRONLY
18476: #undef O_RDWR
18477: #include "/./usr/include/fcntl.h"
18478: #endif
18479:
18480: ./pdksh/std/posix/fixincludes 644 653 1762 1437 5243742777 13623 0 ustar hlu # Install modified versions of certain ANSI-incompatible system header files
18481: # which are fixed to work correctly with ANSI C
18482: # and placed in a directory that GNU C will search.
18483: # This works properly on a Sun in system version 3.4;
18484: # for other versions, you had better check.
18485:
18486: mkdir /usr/local/lib/gcc-include
18487: mkdir /usr/local/lib/gcc-include/sys
18488: cp /usr/include/sys/ioctl.h /usr/local/lib/gcc-include/sys/ioctl.h
18489: chmod +w /usr/local/lib/gcc-include/sys/ioctl.h
18490: ex /usr/local/lib/gcc-include/sys/ioctl.h <<\EOF
18491: g/_IO/s/(\(.\),/('\1',/
18492: g/#define._IO/s/'x'/x/g
18493: wq
18494: EOF
18495:
18496: cp /usr/include/sys/ttychars.h /usr/local/lib/gcc-include/sys/ttychars.h
18497: chmod +w /usr/local/lib/gcc-include/sys/ttychars.h
18498: ex /usr/local/lib/gcc-include/sys/ttychars.h <<\EOF
18499: g/CTRL/s/(\(.\))/('\1')/
18500: g/#define.CTRL/s/'c'/c/g
18501: wq
18502: EOF
18503: ./pdksh/std/posix/times.c 644 653 1762 2235 5243743536 12637 0 ustar hlu /* P1003.1 times emulation */
18504: /* $Id: times.c,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18505:
18506: #include <sys/times.h>
18507:
18508: #if _BSD
18509:
18510: #include <sys/time.h>
18511: #include <sys/resource.h>
18512:
18513: static long base_tv_sec = 0;
18514:
18515: clock_t
18516: times(tmsp)
18517: register struct tms *tmsp;
18518: {
18519: struct timeval tv;
18520: struct rusage ru;
18521:
18522: getrusage(RUSAGE_SELF, &ru);
18523: tmsp->tms_utime = ru.ru_utime.tv_sec*CLK_TCK
18524: + (long)ru.ru_utime.tv_usec*CLK_TCK/1000000;
18525: tmsp->tms_stime = ru.ru_stime.tv_sec*CLK_TCK
18526: + (long)ru.ru_stime.tv_usec*CLK_TCK/1000000;
18527: getrusage(RUSAGE_CHILDREN, &ru);
18528: tmsp->tms_cutime = ru.ru_utime.tv_sec*CLK_TCK
18529: + (long)ru.ru_utime.tv_usec*CLK_TCK/1000000;
18530: tmsp->tms_cstime = ru.ru_stime.tv_sec*CLK_TCK
18531: + (long)ru.ru_stime.tv_usec*CLK_TCK/1000000;
18532:
18533: gettimeofday(&tv, (struct timezone *)NULL);
18534: if (base_tv_sec == 0)
18535: base_tv_sec = tv.tv_sec;
18536: tv.tv_sec -= base_tv_sec; /* prevent clock_t overflow */
18537: return tv.tv_sec*CLK_TCK + (long)tv.tv_usec*CLK_TCK/1000000;
18538: }
18539:
18540: #endif
18541:
18542: #if _V7
18543:
18544: clock_t
18545: times(tmsp)
18546: struct tms *tmsp;
18547: {
18548: struct timeb tb;
18549:
18550: #undef times /* access real times() */
18551: times(tmsp);
18552: #define times times_
18553: ftime(&tb);
18554: return tb.time*CLK_TCK + (long)tb.millitm*CLK_TCK/1000;
18555: }
18556:
18557: #endif
18558:
18559: ./pdksh/std/posix/times.h 644 653 1762 632 5243743536 12623 0 ustar hlu /*
18560: * sys/times.h: POSIX times()
18561: */
18562: /* $Id: times.h,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18563:
18564: #if ! _TIMES_H
18565: #define _TIMES_H 1
18566:
18567: #include <time.h> /* defines CLK_TCK */
18568:
18569: #if __STDC__
18570: #define ARGS(args) args
18571: #else
18572: #define ARGS(args) ()
18573: #endif
18574:
18575: struct tms {
18576: clock_t tms_utime, tms_stime;
18577: clock_t tms_cutime, tms_cstime;
18578: };
18579:
18580: #if _V7
18581: #define times times_
18582: #endif
18583:
18584: clock_t times ARGS((struct tms *tmsp));
18585:
18586: #endif
18587:
18588: ./pdksh/std/posix/unistd.c 644 653 1762 1032 5243743537 13017 0 ustar hlu /* misc. POSIX emulation */
18589:
18590: #ifndef lint
18591: static char *RCSid = "$Id: unistd.c,v 1.2 1992/04/25 08:22:14 sjg Exp $";
18592: #endif
18593:
18594: #include <string.h>
18595: #include <errno.h>
18596: #include <sys/types.h>
18597: #include <unistd.h>
18598:
18599: #if _V7 || _BSD
18600:
18601: char *
18602: getcwd(buf, len)
18603: char *buf;
18604: size_t len;
18605: {
18606: char cwd [1024];
18607: extern char *getwd();
18608: if (getwd(cwd) == NULL)
18609: return NULL;
18610: if (strlen(cwd)+1 >= len) {
18611: errno = ERANGE;
18612: return NULL;
18613: }
18614: return strcpy(buf, cwd);
18615: }
18616:
18617: #endif
18618:
18619: #if _V7
18620:
18621: long
18622: ulimit(cmd, limit)
18623: int cmd;
18624: long limit;
18625: {
18626: return 0;
18627: }
18628:
18629: #endif
18630:
18631: ./pdksh/std/posix/unistd.h 644 653 1762 1506 5243743537 13032 0 ustar hlu /* unistd.h: misc. P1003.1 definitions */
18632: /* Based on a version by Terrence W. Holm */
18633: /* $Id: unistd.h,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18634:
18635: #if ! _UNISTD_H
18636: #define _UNISTD_H 1
18637:
18638: #include <stddef.h>
18639:
18640: /* doesn't really belong here, but the library function need it */
18641: /* todo: use _ARGS, _void, _const */
18642: #if __STDC__
18643: #define ARGS(args) args
18644: #define void void
18645: #define const const
18646: #else
18647: #define ARGS(args) ()
18648: #define void char
18649: #define const
18650: #endif
18651:
18652: #include <io.h> /* POSIX IO functions */
18653:
18654: /* for access(2) */
18655:
18656: #define R_OK 4
18657: #define W_OK 2
18658: #define X_OK 1
18659: #define F_OK 0
18660:
18661: /* for lockf(2) */
18662:
18663: #define F_ULOCK 0
18664: #define F_LOCK 1
18665: #define F_TLOCK 2
18666: #define F_TEST 3
18667:
18668: /* for lseek(2) */
18669:
18670: #define SEEK_SET 0
18671: #define SEEK_CUR 1
18672: #define SEEK_END 2
18673:
18674: #define IN_PATH "/usr/include"
18675:
18676: char *getcwd ARGS ((char *buf, size_t len));
18677:
18678: #endif
18679:
18680: ./pdksh/std/posix/wait.h 644 653 1762 2231 5243743540 12456 0 ustar hlu /*
18681: * POSIX <sys/wait.h>
18682: */
18683: /* $Id: wait.h,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18684: #if __STDC__
18685: #define ARGS(args) args
18686: #else
18687: #define ARGS(args) ()
18688: #endif
18689:
18690: #ifdef HAVE_SYS_STDTYPES
18691: # include <sys/stdtypes.h>
18692: #else
18693: # ifndef _PID_T
18694: # define _PID_T
18695: typedef int pid_t; /* belong in sys/types.h */
18696: # endif
18697: #endif
18698:
18699: #ifdef sun
18700: # include "/./usr/include/sys/wait.h"
18701: #else
18702:
18703: #define WAIT_T int
18704:
18705: /* waitpid options */
18706: #define WNOHANG 1 /* don't hang in wait */
18707: #define WUNTRACED 2 /* tell about stopped, untraced children */
18708:
18709: #define WSTOPPED 0x7F /* process is stopped */
18710:
18711: #define WIFSTOPPED(x) (((x)&0xFF) == 0x7F)
18712: #define WIFSIGNALED(x) (((x)&0xFF) != 0x7F && ((x)&0x7F) != 0)
18713: #define WIFEXITED(x) (((x)&0xFF) != 0x7F && ((x)&0x7F) == 0)
18714: #define WIFCORED(x) (!!((x)&0x80)) /* non-standard */
18715: #define WEXITSTATUS(x) ((x)>>8&0xFF)
18716: #define WTERMSIG(x) ((x)&0x7F)
18717: #define WSTOPSIG(x) ((x)>>8&0xFF)
18718:
18719: pid_t wait ARGS((int *statp));
18720: #if _BSD
18721: pid_t wait3 ARGS((int *statp, int options, void *));
18722: /* todo: does not emulate pid argument */
18723: #define waitpid(pid, sp, opts) wait3(sp, opts, (void*)NULL)
18724: #else
18725: pid_t waitpid ARGS((pid_t pid, int *statp, int options));
18726: #endif
18727:
18728: #endif /* sparc */
18729: ./pdksh/std/posix/dirent.h 644 653 1762 127 5243743024 12756 0 ustar hlu /* <dirent.h> based on BSD <sys/dir.h> */
18730:
18731: #include <sys/dir.h>
18732: #define dirent direct
18733:
18734: ./pdksh/std/posix/dup2.c 644 653 1762 514 5243743533 12343 0 ustar hlu /*
18735: * Cheap imitation of BSD dup2()
18736: */
18737: /* $Id: dup2.c,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18738:
18739: #include <fcntl.h>
18740:
18741: #if _SYSV
18742: int
18743: dup2( oldd, newd )
18744: int oldd, newd;
18745: {
18746: int fd;
18747:
18748: if (fcntl( oldd, F_GETFL, 0 ) < 0)
18749: return( -1 );
18750:
18751: (void) close( newd );
18752: fd = fcntl( oldd, F_DUPFD, newd );
18753:
18754: return( (fd > newd) ? -1 : fd );
18755: }
18756: #endif
18757: ./pdksh/std/posix/time.h 644 653 1762 510 5243743536 12433 0 ustar hlu /*
18758: * Replacement for BSD <sys/time.h>
18759: * because Ultrix screws it up.
18760: */
18761: /* $Id: time.h,v 1.2 1992/04/25 08:22:14 sjg Exp $ */
18762:
18763: struct timeval {
18764: long tv_sec; /* time_t */
18765: long tv_usec; /* microsex */
18766: };
18767:
18768: struct timezone {
18769: int tz_minuteswest; /* of Greenwinch */
18770: int tz_dsttime; /* type of dst correction to apply */
18771: };
18772: ./pdksh/std/posix/ChangeLog 644 653 1762 305 5243743531 13073 0 ustar hlu Sat Apr 25 14:51:33 1992 Simon J. Gerraty (sjg@zen)
18773:
18774: * Added RCS keys to sources.
18775:
18776: Mon Nov 25 13:17:04 1991 Simon J. Gerraty (sjg at zen)
18777:
18778: * wait.h: use "/./usr/include/sys/wait.h for sun's
18779:
18780: ./pdksh/std/stdc/ 2755 653 1762 0 5302550312 11065 5 ustar hlu ./pdksh/std/stdc/stdio.c 644 653 1762 616 5243743550 12410 0 ustar hlu /*
18781: * Emulation of misc. ANSI C stdio functions
18782: */
18783:
18784: /* $Id: stdio.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
18785:
18786: #include <stdio.h>
18787:
18788: #ifndef __STDC__
18789: #define const
18790: #define volatile
18791: #endif
18792:
18793: #if 1
18794: int
18795: remove(name)
18796: const char *name;
18797: {
18798: return unlink(name);
18799: }
18800: #endif
18801:
18802: #if _V7
18803: int
18804: rename(oname, nname)
18805: const char *oname, *nname;
18806: {
18807: return link(oname, nname) == 0 && unlink(oname) == 0 ? 0 : -1;
18808: }
18809: #endif
18810:
18811: ./pdksh/std/stdc/vprintf.c 644 653 1762 12004 5243743642 13012 0 ustar hlu #ifndef lint
18812: static char *RCSid = "$Id: vprintf.c,v 1.3 1992/05/12 09:31:03 sjg Exp $";
18813: #endif
18814: #ifdef __STDC__
18815: #include <stdarg.h>
18816: #else
18817: #include <varargs.h>
18818: #endif
18819: #include <stdio.h>
18820:
18821: #define BUF 40 /* buffer for int -> string conversion */
18822:
18823: int
18824: #ifdef __STDC__
18825: vprintf(const char *fmt, va_list va) {
18826: #else
18827: vprintf(fmt, va) char *fmt; va_list va; {
18828: #endif
18829: return vfprintf(stdout, fmt, va);
18830: }
18831:
18832: int
18833: #ifdef __STDC__
18834: vfprintf(register FILE *f, register const char *fmt, register va_list va) {
18835: #else
18836: vfprintf(f, fmt, va) register FILE *f; register char *fmt; register va_list va; {
18837: #endif
18838: register int c;
18839: int pos = 0; /* todo: implement */
18840:
18841: while ((c = *fmt++))
18842: if (c == '%') {
18843: long n;
18844: register unsigned long u;
18845: char buf [BUF+1];
18846: register char *p = buf + BUF;
18847: register enum {
18848: FF_ALT = 0x01, /* #, alternate format */
18849: FF_SHORT = 0x02, /* h, short arg */
18850: FF_LONG = 0x04, /* l, long arg */
18851: FF_ZERO = 0x08, /* 0, zero fill */
18852: FF_LEFT = 0x10, /* -, left adjust */
18853: FF_PREC = 0x20, /* .*, precision */
18854: FF_NEG = 0x40, /* signed arg */
18855: FF_PUTS = 0x80, /* fputs(p, f) */
18856: FF_DEFAULT = 0
18857: } flags = FF_DEFAULT;
18858: int sign = '-'; /* sign: [ +-] */
18859: int width = 0, prec = 0; /* width, precision */
18860:
18861: *p = 0;
18862:
18863: /* scan flag characters */
18864: for (c = *fmt++; ; c = *fmt++) switch (c) {
18865: case '0':
18866: flags |= FF_ZERO;
18867: break;
18868:
18869: case '#': /* alternate format */
18870: flags |= FF_ALT;
18871: break;
18872:
18873: case ' ': /* blank sign */
18874: sign = ' ';
18875: break;
18876: case '+': /* +/- sign */
18877: sign = '+';
18878: break;
18879:
18880: case '-': /* left just. */
18881: flags |= FF_LEFT;
18882: break;
18883:
18884: default:
18885: goto Frogs;
18886: }
18887: Frogs:
18888:
18889: /* scan width */
18890: if (c == '*') { /* width from arg list */
18891: width = va_arg(va, int);
18892: c = *fmt++;
18893: } else
18894: while ('0' <= c && c <= '9') {
18895: width = width*10 + (c-'0');
18896: c = *fmt++;
18897: }
18898:
18899: if (c == '.') { /* scan precision */
18900: flags |= FF_PREC;
18901: c = *fmt++;
18902: if (c == '*') { /* precision from arg list */
18903: prec = va_arg(va, int);
18904: c = *fmt++;
18905: } else
18906: while ('0' <= c && c <= '9') {
18907: prec = prec*10 + (c-'0');
18908: c = *fmt++;
18909: }
18910: }
18911:
18912: /* length modifiers */
18913: if (c == 'h') {
18914: flags |= FF_SHORT;
18915: c = *fmt++;
18916: } else if (c == 'l') {
18917: flags |= FF_LONG;
18918: c = *fmt++;
18919: }
18920:
18921: /* do conversion */
18922: switch (c) {
18923: case '%': /* %% -> % */
18924: putc(c, f);
18925: pos ++;
18926: break;
18927:
18928: case 'p': /* pointer */
18929: *--p = '}';
18930: u = (unsigned long) va_arg(va, void*);
18931: do {
18932: *--p = "0123456789ABCDEF"[u%16];
18933: u /= 16;
18934: } while (u != 0);
18935: *--p = '{';
18936: flags |= FF_PUTS;
18937: break;
18938:
18939: case 'n': /* save position */
18940: *va_arg(va, int*) = pos;
18941: break;
18942:
18943: case 'c': /* character */
18944: u = (flags&FF_SHORT) ? va_arg(va, unsigned short)
18945: : (flags&&FF_LONG) ? va_arg(va, unsigned long)
18946: : va_arg(va, unsigned int);
18947: *--p = u;
18948: flags |= FF_PUTS;
18949: break;
18950:
18951: case 's': /* string */
18952: if ((p = va_arg(va, char *)) == NULL)
18953: p = "";
18954: if ((flags&FF_PREC) && strlen(p) > prec) {
18955: pos += prec;
18956: while (--prec >= 0)
18957: {
18958: c = *p++;
18959: putc(c, f);
18960: }
18961: break;
18962: }
18963: flags |= FF_PUTS;
18964: break;
18965:
18966: case 'i': case 'd': case 'u': /* decimal */
18967: if (c != 'u') { /* signed */
18968: n = (flags&FF_SHORT) ? va_arg(va, short)
18969: : (flags&&FF_LONG) ? va_arg(va, long)
18970: : va_arg(va, int);
18971: if (n < 0)
18972: flags |= FF_NEG;
18973: u = (n < 0) ? -n : n;
18974: } else
18975: u = (flags&FF_SHORT) ? va_arg(va, unsigned short)
18976: : (flags&&FF_LONG) ? va_arg(va, unsigned long)
18977: : va_arg(va, unsigned int);
18978: do {
18979: *--p = '0' + u%10;
18980: u /= 10;
18981: } while (u != 0);
18982: prec -= buf+BUF - p;
18983: while (--prec >= 0)
18984: *--p = '0';
18985: if (flags&FF_NEG)
18986: *--p = '-';
18987: else
18988: if (sign != '-')
18989: *--p = (sign == '+') ? '+' : ' ';
18990: flags |= FF_PUTS;
18991: break;
18992:
18993: case 'x': case 'X': /* hex, Hex */
18994: u = (flags&FF_SHORT) ? va_arg(va, unsigned short)
18995: : (flags&&FF_LONG) ? va_arg(va, unsigned long)
18996: : va_arg(va, unsigned int);
18997: do {
18998: *--p = "0123456789ABCDEF"[u%16];
18999: u /= 16;
19000: } while (u != 0);
19001: prec -= buf+BUF - p;
19002: while (--prec >= 0)
19003: *--p = '0';
19004: if (flags&&FF_ALT)
19005: *--p = 'x', *--p = '0';
19006: flags |= FF_PUTS;
19007: break;
19008:
19009: case 'o': /* octal */
19010: u = (flags&FF_SHORT) ? va_arg(va, unsigned short)
19011: : (flags&&FF_LONG) ? va_arg(va, unsigned long)
19012: : va_arg(va, unsigned int);
19013: do {
19014: *--p = '0' + u%8;
19015: u /= 8;
19016: } while (u != 0);
19017: prec -= buf+BUF - p;
19018: while (--prec >= 0)
19019: *--p = '0';
19020: if (flags&&FF_ALT && *p != '0')
19021: *--p = '0';
19022: flags |= FF_PUTS;
19023: break;
19024:
19025: default: /* todo: error */
19026: putc('%', f);
19027: putc(c, f);
19028: pos += 2;
19029: break;
19030: }
19031:
19032: /* copy adjusted string "p" to output */
19033: if (flags&FF_PUTS) {
19034: int len = strlen(p);
19035: int pad = width - len;
19036: if (!(flags&FF_LEFT))
19037: while (--pad >= 0)
19038: putc((flags&FF_ZERO) ? '0' : ' ', f);
19039: while (c = *p++)
19040: putc(c, f);
19041: if ((flags&FF_LEFT))
19042: while (--pad >= 0)
19043: putc(' ', f);
19044: pos += (len < width) ? width : len;
19045: }
19046: } else { /* ordinary character */
19047: putc(c, f);
19048: pos ++;
19049: }
19050: return pos;
19051: }
19052:
19053: ./pdksh/std/stdc/stdio.h_std 644 653 1762 4356 5243743642 13316 0 ustar hlu /*
19054: * ANSI stream IO
19055: *
19056: * Heavily dependent on /usr/include/stdio.h being AT&T derived.
19057: * todo: needs L_* constants.
19058: */
19059:
19060: /* $Id: stdio.h_std,v 1.1 1992/05/02 13:29:18 sjg Exp $ */
19061:
19062: #if ! _STDIO_H
19063: #define _STDIO_H 1
19064:
19065: #include <stddef.h>
19066:
19067: /* system stdio.h goes here ... %%% */
19068: /* ... end system stdio.h */
19069: #line 15 "stdio.h"
19070:
19071: #ifndef _IOFBF
19072: #define _IOFBF 00000
19073: #endif
19074: #ifndef _IOLBF
19075: #define _IOLBF 00000 /* same as _IOFBF */
19076: #endif
19077:
19078: #define SEEK_SET 0
19079: #define SEEK_CUR 1
19080: #define SEEK_END 2
19081:
19082: #if _SYSV
19083: #define _EXTERN extern
19084: #else
19085: #define _EXTERN
19086: #endif
19087:
19088: _EXTERN int remove ARGS((const char *name));
19089: _EXTERN int rename ARGS((const char *oname, const char *nname));
19090: _EXTERN FILE *tmpfile ARGS((void));
19091: _EXTERN char *tmpnam ARGS((char *s));
19092:
19093: _EXTERN FILE *fopen ARGS((const char *name, const char *mode));
19094: _EXTERN FILE *freopen ARGS((const char *name, const char *mode, FILE *f));
19095: _EXTERN FILE *fdopen ARGS((int fd, const char *mode));
19096: _EXTERN int fflush ARGS((FILE *f));
19097: _EXTERN int fclose ARGS((FILE *f));
19098: _EXTERN void setbuf ARGS((FILE *f, char *buf));
19099: _EXTERN int setvbuf ARGS((FILE *f, char *buf, int flags, size_t len));
19100:
19101: _EXTERN int fseek ARGS((FILE *f, long off, int how));
19102: _EXTERN long ftell ARGS((FILE *f));
19103: _EXTERN void rewind ARGS((FILE *f));
19104:
19105: _EXTERN int printf ARGS((const char *fmt, ...));
19106: _EXTERN int fprintf ARGS((FILE *f, const char *fmt, ...));
19107: _EXTERN int sprintf ARGS((char *s, const char *fmt, ...));
19108: /* we do not include <stdarg.h> to prevent <varargs.h> conflicts */
19109: _EXTERN int vprintf ARGS((const char *fmt, Void *va));
19110: _EXTERN int vfprintf ARGS((FILE *f, const char *fmt, Void *va));
19111: _EXTERN int vsprintf ARGS((char *s, const char *fmt, Void *va));
19112: _EXTERN int scanf ARGS((const char *fmt, ...));
19113: _EXTERN int fscanf ARGS((FILE *f, const char *fmt, ...));
19114: _EXTERN int sscanf ARGS((const char *s, const char *fmt, ...));
19115:
19116: _EXTERN size_t fread ARGS((void *ptr, size_t size, size_t n, FILE *f));
19117: _EXTERN size_t frwrite ARGS((const void *ptr, size_t size, size_t n, FILE *f));
19118: _EXTERN int fgetc ARGS((FILE *f));
19119: _EXTERN int fputc ARGS((int c, FILE *f));
19120: _EXTERN char *fgets ARGS((char *s, int len, FILE *f));
19121: _EXTERN int fputs ARGS((const char *s, FILE *f));
19122: _EXTERN char *gets ARGS((char *s));
19123: _EXTERN int puts ARGS((const char *s));
19124:
19125: #endif
19126:
19127: ./pdksh/std/stdc/Makefile 644 653 1762 4401 5243743640 12576 0 ustar hlu # Standard C (ANSI) compatabilaty
19128: # $Id: Makefile,v 1.3 1992/05/03 08:30:08 sjg Exp $
19129:
19130: # edit this makefile such that only the functions that
19131: # your systems doesn't have are provided.
19132:
19133: SHELL = /bin/sh
19134: MAKE = make
19135:
19136: #CONFIG = -D_SYSV
19137: CONFIG = -D_BSD
19138:
19139: LN = ln
19140: RANLIB = ranlib # For BSD systems
19141: #RANLIB = echo Updated
19142:
19143: LIB = ../libstdc.a
19144: INCL = ../h
19145:
19146: CFLAGS = $(CCOPTS) -I$(INCL) $(CONFIG)
19147:
19148: MISC = Makefile #stdio.h_std
19149: HDRS = limits.h stddef.h stdlib.h string.h time.h #stdarg.h
19150: SYSHDRS = types.h
19151:
19152: SRCS = strstr.c memmove.c stdio.c clock.c fprintf.c memchr.c \
19153: memcmp.c memcpy.c memset.c setvbuf.c sprintf.c \
19154: stdio.c strcat.c strchr.c strcmp.c strcpy.c strcspn.c \
19155: strerror.c strlen.c strncat.c strncmp.c strncpy.c \
19156: strpbrk.c strrchr.c strspn.c strtok.c vprintf.c
19157:
19158: # only add to this list the modules that you _need_
19159: # some of these are untested!
19160: OBJS = $(LIB)(strstr.o) \
19161: $(LIB)(memmove.o) \
19162: $(LIB)(clock.o) \
19163: # $(LIB)(vprintf.o) \
19164: # $(LIB)(fprintf.o) \
19165: # $(LIB)(sprintf.o) \
19166: # $(LIB)(strtok.o) \
19167: # $(LIB)(memchr.o) \
19168: # $(LIB)(memcmp.o) \
19169: # $(LIB)(memcpy.o) \
19170: # $(LIB)(memset.o) \
19171: # $(LIB)(setvbuf.o) \
19172: # $(LIB)(strcat.o) \
19173: # $(LIB)(strchr.o) \
19174: # $(LIB)(strcmp.o) \
19175: # $(LIB)(strcpy.o) \
19176: # $(LIB)(strcspn.o) \
19177: # $(LIB)(strerror.o) \
19178: # $(LIB)(strlen.o) \
19179: # $(LIB)(strncat.o) \
19180: # $(LIB)(strncmp.o) \
19181: # $(LIB)(strncpy.o) \
19182: # $(LIB)(strpbrk.o) \
19183: # $(LIB)(strrchr.o) \
19184: # $(LIB)(strspn.o) \
19185: # $(LIB)(stdio.o)
19186: #
19187:
19188:
19189:
19190: all: $(LIB)
19191:
19192: link: $(HDRS) #stdio.h
19193: [ -d $(INCL) ] || mkdir $(INCL)
19194: [ -d $(INCL)/sys ] || mkdir $(INCL)/sys
19195: ($(SHELL) ../mklinks $(INCL) $(HDRS))
19196: ($(SHELL) ../mklinks $(INCL)/sys $(SYSHDRS))
19197: # ($(SHELL) ../mklinks $(INCL) stdio.h)
19198:
19199: $(LIB): $(OBJS)
19200: # if you make doesn't know how to put objects in libraries
19201: # then simply make all the .o's and use the following line
19202: # ar r $@ $?
19203: $(RANLIB) $@
19204:
19205: stdio.h: stdio.h_std stdio.sed /usr/include/stdio.h
19206: sed -f stdio.sed </usr/include/stdio.h >stdio.hacked
19207: sed <stdio.h_std >stdio.h -e '/%%%/ r stdio.hacked'
19208: rm stdio.hacked
19209:
19210: clean:
19211: -rm -f *.o *.out stdio.hacked
19212:
19213: clobber: clean
19214: -rm -f $(LIB) stdio.h
19215:
19216: string.h: stddef.h
19217:
19218: stdlib.h: stddef.h
19219:
19220: stdio.h: stddef.h
19221:
19222: time.h: stddef.h
19223:
19224: stdio.o: stdio.h
19225:
19226: setvbuf.o: stdlib.h stdio.h
19227:
19228: fprintf.o: stdarg.h stdio.h
19229:
19230: sprintf.o: stdarg.h stdio.h
19231:
19232: vprintf.o: stdarg.h stdio.h
19233:
19234: strstr.o: string.h
19235:
19236: ./pdksh/std/stdc/clock.c 644 653 1762 1337 5243743003 12373 0 ustar hlu /* clock() */
19237:
19238: #include <time.h>
19239:
19240: #if _BSD
19241:
19242: #include <sys/time.h>
19243: #include <sys/resource.h>
19244:
19245: clock_t
19246: clock()
19247: {
19248: struct timeval tv;
19249: struct rusage ru;
19250:
19251: getrusage(RUSAGE_SELF, &ru);
19252: tv.tv_sec = ru.ru_utime.tv_sec + ru.ru_stime.tv_sec;
19253: tv.tv_usec = ru.ru_utime.tv_usec + ru.ru_stime.tv_usec;
19254: return tv.tv_sec*CLK_TCK + (long)tv.tv_usec*CLK_TCK/1000000;
19255: }
19256:
19257: #endif
19258:
19259: #if _V7 || _SYSV
19260:
19261: #include <sys/times.h>
19262:
19263: clock_t
19264: clock()
19265: {
19266: struct tms tms;
19267:
19268: (void) times(&tms);
19269: return tms.tms_utime + tms.tms_stime;
19270: }
19271:
19272: #endif
19273:
19274: #if _ST
19275:
19276: #include <osbind.h>
19277:
19278: clock_t
19279: clock()
19280: {
19281: long save;
19282: clock_t c;
19283:
19284: /* access the ST's 200 HZ system clock in protected memory */
19285: save = Super(0L);
19286: c = *((long *)0x04BA);
19287: (void)Super(save);
19288: return c;
19289: }
19290:
19291: #endif
19292:
19293: ./pdksh/std/stdc/fprintf.c 644 653 1762 1426 5243743640 12756 0 ustar hlu /*
19294: * printf and fprintf
19295: */
19296:
19297: /* $Id: fprintf.c,v 1.3 1992/05/12 09:30:58 sjg Exp $ */
19298:
19299: #ifdef __STDC__
19300: #include <stdarg.h>
19301: #else
19302: #include <varargs.h>
19303: #endif
19304: #include <stdio.h>
19305:
19306: #if _V7 || _BSD
19307:
19308: /* printf to stdout */
19309: int
19310: #ifdef __STDC__
19311: printf(const char *fmt, ...) {
19312: #else
19313: printf(va_alist) va_dcl
19314: {
19315: char *fmt;
19316: #endif
19317: va_list va;
19318:
19319: #ifdef __STDC__
19320: va_start(va, fmt);
19321: #else
19322: va_start(va);
19323: fmt = va_arg(va, char *);
19324: #endif
19325: vfprintf(stdout, fmt, va);
19326: va_end(va);
19327: return 0;
19328: }
19329:
19330: int
19331: #ifdef __STDC__
19332: fprintf(FILE *f, const char *fmt, ...) {
19333: #else
19334: fprintf(va_alist) va_dcl
19335: {
19336: FILE *f;
19337: char *fmt;
19338: #endif
19339: va_list va;
19340:
19341: #ifdef __STDC__
19342: va_start(va, fmt);
19343: #else
19344: va_start(va);
19345: f = va_arg(va, FILE *);
19346: fmt = va_arg(va, char *);
19347: #endif
19348: vfprintf(f, fmt, va);
19349: va_end(va);
19350: return 0;
19351: }
19352:
19353: #endif
19354: ./pdksh/std/stdc/limits.h 644 653 1762 1727 5243743004 12612 0 ustar hlu /* Implementation-defined limits */
19355:
19356: #if __STDC__
19357: #define Signed signed
19358: #else
19359: #define Signed
19360: #endif
19361:
19362: #define CHAR_BIT 8
19363:
19364: #define _S_MIN(type) (-(Signed type)((unsigned type) ~0 >> 1) - 1)
19365: #define _S_MAX(type) ((Signed type)((unsigned type) ~0 >> 1))
19366:
19367: #define UCHAR_MIN ((unsigned char) 0)
19368: #define UCHAR_MAX ((unsigned char) ~0)
19369: #define SCHAR_MIN _S_MIN(char)
19370: #define SCHAR_MAX _S_MAX(char)
19371:
19372: /* some PCC compilers don't like the "elegant" definition of _UCHAR */
19373: /* let the poor user provide -D_UCHAR=0 or 1 */
19374: #ifndef _UCHAR
19375: #define _UCHAR ((char) ~0 == (unsigned char) ~0)
19376: #endif
19377: #define CHAR_MIN (_UCHAR ? UCHAR_MIN : SCHAR_MIN)
19378: #define CHAR_MAX (_UCHAR ? UCHAR_MAX : SCHAR_MAX)
19379:
19380: #define USHRT_MAX ((unsigned short) ~0)
19381: #define SHRT_MIN _S_MIN(short)
19382: #define SHRT_MAX _S_MAX(short)
19383:
19384: #define UINT_MAX ((unsigned int) ~0)
19385: #define INT_MIN _S_MIN(int)
19386: #define INT_MAX _S_MAX(int)
19387:
19388: #define ULONG_MAX ((unsigned long) ~0)
19389: #define LONG_MIN _S_MIN(long)
19390: #define LONG_MAX _S_MAX(long)
19391:
19392: ./pdksh/std/stdc/memcmp.c 644 653 1762 617 5243743544 12550 0 ustar hlu /* $Id: memcmp.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19393:
19394: #include <string.h>
19395:
19396: int
19397: memcmp(dap, sap, n)
19398: const void *dap;
19399: const void *sap;
19400: register size_t n;
19401: {
19402: register const unsigned char *dp = (unsigned char const *) dap;
19403: register const unsigned char *sp = (unsigned char const *) sap;
19404:
19405: if (n++ > 0)
19406: while (--n > 0)
19407: if (*dp++ != *sp++)
19408: return *--dp - *--sp; /* (int)? */
19409: return 0;
19410: }
19411:
19412: ./pdksh/std/stdc/memmove.c 644 653 1762 570 5243743545 12736 0 ustar hlu /* $Id: memmove.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19413:
19414: #include "stdh.h"
19415:
19416: void *
19417: memmove(dap, sap, n)
19418: void *dap;
19419: const void *sap;
19420: register size_t n;
19421: {
19422: register char *dp = dap, *sp = (void*) sap;
19423:
19424: if (n <= 0)
19425: ;
19426: else if (dp < sp)
19427: do *dp++ = *sp++; while (--n > 0);
19428: else if (dp > sp) {
19429: dp += n;
19430: sp += n;
19431: do *--dp = *--sp; while (--n > 0);
19432: }
19433: return dap;
19434: }
19435:
19436:
19437: ./pdksh/std/stdc/setvbuf.c 644 653 1762 2077 5243743546 12774 0 ustar hlu /*
19438: * PD ksh needs an ANSI-compatible setvbuf.
19439: * if (buf == NULL) it must also allocate a buffer
19440: * and arrange for fclose to deallocate it.
19441: * the reason for doing setvbuf(f, (char *)NULL, _IOFBF, BUFSIZ)
19442: * in the shell is to avoid 4/8K buffers on BSD like systems.
19443: */
19444:
19445: /* $Id: setvbuf.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19446:
19447: #include <stdlib.h>
19448: #include <stdio.h>
19449:
19450: #if _BSD || _SYSV
19451: int
19452: setvbuf(f, buf, type, size)
19453: register FILE *f;
19454: char *buf;
19455: int type;
19456: size_t size;
19457: {
19458: if ((f->_flag&_IOMYBUF) && f->_base != NULL)
19459: free(f->_base);
19460: f->_flag &= ~(_IOMYBUF|_IONBF|_IOFBF|_IOLBF);
19461: switch (type) {
19462: case _IONBF:
19463: size = 0;
19464: buf = NULL;
19465: break;
19466: case _IOLBF:
19467: case _IOFBF:
19468: if (size == 0)
19469: size = BUFSIZ;
19470: #if _V7
19471: else if (size != BUFSIZ)
19472: return -1;
19473: #endif
19474: if (buf == NULL) {
19475: buf = malloc(size);
19476: if (buf == NULL)
19477: return -1;
19478: f->_flag |= _IOMYBUF;
19479: }
19480: break;
19481: default:
19482: return -1;
19483: }
19484: f->_flag |= type;
19485: f->_base = f->_ptr = buf;
19486: f->_cnt = 0;
19487: #if _BSD
19488: f->_bufsiz = size;
19489: #endif
19490: #if _SYSV
19491: _bufend(f) = buf + size;
19492: #endif
19493: return 0;
19494: }
19495: #endif
19496:
19497: ./pdksh/std/stdc/sprintf.c 644 653 1762 1522 5243743641 12771 0 ustar hlu /*
19498: * sprintf and vsprintf
19499: */
19500:
19501: /* $Id: sprintf.c,v 1.3 1992/05/12 09:31:01 sjg Exp $ */
19502:
19503: #ifdef __STDC__
19504: #include <stdarg.h>
19505: #else
19506: #include <varargs.h>
19507: #endif
19508: #include <stdio.h>
19509:
19510: #if _V7 || _BSD
19511:
19512: int
19513: #ifdef __STDC__
19514: sprintf(char *s, const char *fmt, ...) {
19515: #else
19516: sprintf(va_alist) va_dcl
19517: {
19518: char *s;
19519: char *fmt;
19520: #endif
19521: register va_list va;
19522: int n;
19523:
19524: #ifdef __STDC__
19525: va_start(va, fmt);
19526: #else
19527: va_start(va);
19528: s = va_arg(va, char *);
19529: fmt = va_arg(va, char *);
19530: #endif
19531: n = vsprintf(s, fmt, va);
19532: va_end(va);
19533: return n;
19534: }
19535:
19536: int
19537: #ifdef __STDC__
19538: vsprintf(char *s, const char *fmt, va_list va) {
19539: #else
19540: vsprintf(s, fmt, va)
19541: char *s;
19542: char *fmt;
19543: va_list va;
19544: {
19545: #endif
19546: int n;
19547: static FILE siob;
19548:
19549: siob._flag = _IOWRT;
19550: siob._base = siob._ptr = s;
19551: siob._cnt = BUFSIZ;
19552: siob._file = -1;
19553:
19554: n = vfprintf(&siob, fmt, va);
19555: *siob._ptr = 0;
19556: return n;
19557: }
19558:
19559: #endif
19560:
19561: ./pdksh/std/stdc/stdarg.h 644 653 1762 1331 5243743547 12600 0 ustar hlu /* $Id: stdarg.h,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19562: /* DON'T USE THIS IF YOUR COMPILER HAS ITS OWN!!! */
19563:
19564: #ifndef _STDARG_H
19565: #define _STDARG_H
19566:
19567: typedef char *va_list;
19568:
19569: /* Amount of space required in an argument list for an arg of type TYPE.
19570: TYPE may alternatively be an expression whose type is used. */
19571:
19572: #define __va_rounded_size(TYPE) \
19573: (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
19574:
19575: #define va_start(AP, LASTARG) \
19576: (AP = ((char *) &(LASTARG) + __va_rounded_size (LASTARG)))
19577:
19578: void va_end (va_list); /* Defined in gnulib */
19579: #define va_end(AP)
19580:
19581: #define va_arg(AP, TYPE) \
19582: (AP += __va_rounded_size (TYPE), \
19583: *((TYPE *) (AP - __va_rounded_size (TYPE))))
19584:
19585: #endif /* _STDARG_H */
19586: ./pdksh/std/stdc/stddef.h 644 653 1762 1347 5243743547 12574 0 ustar hlu /* ANSI common definitions */
19587:
19588: /* $Id: stddef.h,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19589:
19590: #ifndef NULL
19591: #if __STDC__
19592: #define NULL (void*)0
19593: #else
19594: #define NULL 0
19595: #endif
19596: #endif
19597:
19598: #ifndef _STDDEF_H
19599: #define _STDDEF_H
19600:
19601: /* doesn't really belong here, but the library function need it */
19602: #ifndef ARGS
19603: # ifdef __STDC__
19604: # define ARGS(args) args
19605: # else
19606: # define ARGS(args) ()
19607: # ifdef VOID
19608: # define void VOID
19609: # endif
19610: # define const
19611: # define volatile
19612: # endif
19613: #endif
19614:
19615: #ifdef HAVE_SYS_STDTYPES
19616: # include <sys/stdtypes.h>
19617: #else
19618: typedef unsigned size_t; /* may need long */
19619: typedef int ptrdiff_t;
19620: #endif /* HAVE_SYS_STDTYPES */
19621: #define offsetof(type,id) ((size_t)&((type*)NULL)->id)
19622:
19623: extern int errno; /* really belongs in <errno.h> */
19624:
19625: #endif
19626:
19627: ./pdksh/std/stdc/stdio.sed 644 653 1762 1324 5243743011 12746 0 ustar hlu /^#[ ]*include/d
19628: /^#[ ]*define[ ]*NULL/d
19629: /remove[ ]*([ ]*)/d
19630: /rename[ ]*([ ]*)/d
19631: /tmpfile[ ]*([ ]*)/d
19632: /tmpnam[ ]*([ ]*)/d
19633: /fopen[ ]*([ ]*)/d
19634: /freopen[ ]*([ ]*)/d
19635: /fdopen[ ]*([ ]*)/d
19636: /fflush[ ]*([ ]*)/d
19637: /fclose[ ]*([ ]*)/d
19638: /setbuf[ ]*([ ]*)/d
19639: /setvbuf[ ]*([ ]*)/d
19640: /fseek[ ]*([ ]*)/d
19641: /ftell[ ]*([ ]*)/d
19642: /rewind[ ]*([ ]*)/d
19643: /printf[ ]*([ ]*)/d
19644: /fprintf[ ]*([ ]*)/d
19645: /sprintf[ ]*([ ]*)/d
19646: /vprintf[ ]*([ ]*)/d
19647: /vfprintf[ ]*([ ]*)/d
19648: /vsprintf[ ]*([ ]*)/d
19649: /scanf[ ]*([ ]*)/d
19650: /fscanf[ ]*([ ]*)/d
19651: /sscanf[ ]*([ ]*)/d
19652: /fread[ ]*([ ]*)/d
19653: /frwrite[ ]*([ ]*)/d
19654: /fgetc[ ]*([ ]*)/d
19655: /fputc[ ]*([ ]*)/d
19656: /fgets[ ]*([ ]*)/d
19657: /fputs[ ]*([ ]*)/d
19658: /gets[ ]*([ ]*)/d
19659: /puts[ ]*([ ]*)/d
19660: ./pdksh/std/stdc/stdlib.h 644 653 1762 2110 5243743550 12563 0 ustar hlu /* ANSI utility functions */
19661:
19662: /* $Id: stdlib.h,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19663:
19664: #if ! _STDLIB_H
19665: #define _STDLIB_H 1
19666:
19667: #include <stddef.h>
19668:
19669: double atof ARGS((const char *s));
19670: int atoi ARGS((const char *s));
19671: long atol ARGS((const char *s));
19672: double strtod ARGS((const char *s, char **));
19673: long strtol ARGS((const char *s, char **, int base));
19674: unsigned long strtoul ARGS((const char *s, char **, int base));
19675: int rand ARGS((void));
19676: void srand ARGS((unsigned int seed));
19677: void *malloc ARGS((size_t size));
19678: void *realloc ARGS((void *ptr, size_t size));
19679: void *calloc ARGS((size_t n, size_t size));
19680: void free ARGS((void *ptr));
19681: void abort ARGS((void));
19682: int atexit ARGS((void (*func)(void)));
19683: void exit ARGS((int status));
19684: char *getenv ARGS((const char *name));
19685: int system ARGS((const char *cmd));
19686: void *bsearch ARGS ((const void *key, const void *base, size_t n, size_t size,
19687: int (*compar)(const void *, const void *)));
19688: void *qsort ARGS ((const void *base, size_t n, size_t size,
19689: int (*compar)(const void *, const void *)));
19690: #define abs(a) ((a) < 0 : -(a) : (a))
19691:
19692: #endif
19693:
19694: ./pdksh/std/stdc/strchr.c 644 653 1762 737 5243743551 12600 0 ustar hlu #include <string.h>
19695: /* $Id: strchr.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19696:
19697: /*
19698: * strchr - find first occurrence of a character in a string
19699: */
19700:
19701: char * /* found char, or NULL if none */
19702: strchr(s, charwanted)
19703: const char *s;
19704: register char charwanted;
19705: {
19706: register const char *scan;
19707:
19708: /*
19709: * The odd placement of the two tests is so NUL is findable.
19710: */
19711: for (scan = s; *scan != charwanted;) /* ++ moved down for opt. */
19712: if (*scan++ == '\0')
19713: return(NULL);
19714: return(scan);
19715: }
19716: ./pdksh/std/stdc/strcmp.c 644 653 1762 1456 5243743552 12623 0 ustar hlu #include <string.h>
19717: /* $Id: strcmp.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19718:
19719: /* Modified by Eric Gisin */
19720:
19721: /*
19722: * strcmp - compare string s1 to s2
19723: */
19724:
19725: int /* <0 for <, 0 for ==, >0 for > */
19726: strcmp(s1, s2)
19727: const char *s1;
19728: const char *s2;
19729: {
19730: register const char *scan1;
19731: register const char *scan2;
19732: #if 0 /* some machines prefer int to char */
19733: register int c1, c2;
19734: #else
19735: register char c1, c2;
19736: #endif
19737:
19738: scan1 = s1;
19739: scan2 = s2;
19740: while ((c1 = *scan1++) == (c2 = *scan2++) && c1 != 0)
19741: ;
19742:
19743: /*
19744: * The following case analysis is necessary so that characters
19745: * which look negative collate low against normal characters but
19746: * high against the end-of-string NUL.
19747: */
19748: if (c1 == '\0' && c2 == '\0')
19749: return(0);
19750: else if (c1 == '\0')
19751: return(-1);
19752: else if (c2 == '\0')
19753: return(1);
19754: else
19755: return(c1 - c2);
19756: }
19757: ./pdksh/std/stdc/strcspn.c 644 653 1762 1014 5243743554 12777 0 ustar hlu #include <string.h>
19758: /* $Id: strcspn.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19759:
19760: /*
19761: * strcspn - find length of initial segment of s consisting entirely
19762: * of characters not from reject
19763: */
19764:
19765: size_t
19766: strcspn(s, reject)
19767: const char *s;
19768: const char *reject;
19769: {
19770: register const char *scan;
19771: register const char *rscan;
19772: register size_t count;
19773:
19774: count = 0;
19775: for (scan = s; *scan != '\0'; scan++) {
19776: for (rscan = reject; *rscan != '\0';) /* ++ moved down. */
19777: if (*scan == *rscan++)
19778: return(count);
19779: count++;
19780: }
19781: return(count);
19782: }
19783: ./pdksh/std/stdc/string.h 644 653 1762 2401 5243743555 12620 0 ustar hlu /* ANSI string handling (missing wide char stuff) */
19784: /* $Id: string.h,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19785:
19786: #if ! _STRING_H
19787: #define _STRING_H 1
19788:
19789: #include <stddef.h> /* define NULL and size_t */
19790:
19791: #ifndef __GNUC__
19792: void *memcpy ARGS((void *s1, const void *s2, size_t));
19793: int memcmp ARGS((const void *s1, const void *s2, size_t));
19794: size_t strlen ARGS((const char *s));
19795: #endif
19796: void *memmove ARGS((void *s1, const void *s2, size_t));
19797: void *memchr ARGS((const void *s, int c, size_t));
19798: void *memset ARGS((void *s, int c, size_t));
19799: char *strcpy ARGS((char *s1, const char *s2));
19800: char *strncpy ARGS((char *s1, const char *s2, size_t));
19801: char *strcat ARGS((char *s1, const char *s2));
19802: char *strncat ARGS((char *s1, const char *s2, size_t));
19803: int strcmp ARGS((const char *s1, const char *s2));
19804: int strncmp ARGS((const char *s1, const char *s2, size_t));
19805: char *strchr ARGS((const char *s1, int c));
19806: char *strrchr ARGS((const char *s1, int c));
19807: size_t strspn ARGS((const char *s1, const char *s2));
19808: size_t strcspn ARGS((const char *s1, const char *s2));
19809: char *strpbrk ARGS((const char *s1, const char *s2));
19810: char *strstr ARGS((const char *s1, const char *s2));
19811: char *strtok ARGS((char *s1, const char *s2));
19812: char *strerror ARGS((int errno));
19813:
19814: #endif /* _STRING_H */
19815:
19816: ./pdksh/std/stdc/strncat.c 644 653 1762 744 5243743556 12754 0 ustar hlu #include <string.h>
19817: /* $Id: strncat.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19818:
19819: /*
19820: * strncat - append at most n characters of string src to dst
19821: */
19822: char * /* dst */
19823: strncat(dst, src, n)
19824: char *dst;
19825: const char *src;
19826: size_t n;
19827: {
19828: register char *dscan;
19829: register const char *sscan;
19830: register size_t count;
19831:
19832: for (dscan = dst; *dscan != '\0'; dscan++)
19833: continue;
19834: sscan = src;
19835: count = n;
19836: while (*sscan != '\0' && --count >= 0)
19837: *dscan++ = *sscan++;
19838: *dscan++ = '\0';
19839: return(dst);
19840: }
19841: ./pdksh/std/stdc/strncmp.c 644 653 1762 1503 5243743556 12776 0 ustar hlu #include <string.h>
19842: /* $Id: strncmp.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19843:
19844: /*
19845: * strncmp - compare at most n characters of string s1 to s2
19846: */
19847:
19848: int /* <0 for <, 0 for ==, >0 for > */
19849: strncmp(s1, s2, n)
19850: const char *s1;
19851: const char *s2;
19852: size_t n;
19853: {
19854: register const char *scan1;
19855: register const char *scan2;
19856: register size_t count;
19857:
19858: scan1 = s1;
19859: scan2 = s2;
19860: count = n;
19861: while (--count >= 0 && *scan1 != '\0' && *scan1 == *scan2) {
19862: scan1++;
19863: scan2++;
19864: }
19865: if (count < 0)
19866: return(0);
19867:
19868: /*
19869: * The following case analysis is necessary so that characters
19870: * which look negative collate low against normal characters but
19871: * high against the end-of-string NUL.
19872: */
19873: if (*scan1 == '\0' && *scan2 == '\0')
19874: return(0);
19875: else if (*scan1 == '\0')
19876: return(-1);
19877: else if (*scan2 == '\0')
19878: return(1);
19879: else
19880: return(*scan1 - *scan2);
19881: }
19882: ./pdksh/std/stdc/strncpy.c 644 653 1762 723 5243743557 12776 0 ustar hlu #include <string.h>
19883: /* $Id: strncpy.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19884:
19885: /*
19886: * strncpy - copy at most n characters of string src to dst
19887: */
19888: char * /* dst */
19889: strncpy(dst, src, n)
19890: char *dst;
19891: const char *src;
19892: size_t n;
19893: {
19894: register char *dscan;
19895: register const char *sscan;
19896: register size_t count;
19897:
19898: dscan = dst;
19899: sscan = src;
19900: count = n;
19901: while (--count >= 0 && (*dscan++ = *sscan++) != '\0')
19902: continue;
19903: while (--count >= 0)
19904: *dscan++ = '\0';
19905: return(dst);
19906: }
19907: ./pdksh/std/stdc/strpbrk.c 644 653 1762 744 5243743560 12760 0 ustar hlu #include <string.h>
19908: /* $Id: strpbrk.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19909:
19910: /*
19911: * strpbrk - find first occurrence of any char from breakat in s
19912: */
19913:
19914: char * /* found char, or NULL if none */
19915: strpbrk(s, breakat)
19916: const char *s;
19917: const char *breakat;
19918: {
19919: register const char *sscan;
19920: register const char *bscan;
19921:
19922: for (sscan = s; *sscan != '\0'; sscan++) {
19923: for (bscan = breakat; *bscan != '\0';) /* ++ moved down. */
19924: if (*sscan == *bscan++)
19925: return(sscan);
19926: }
19927: return(NULL);
19928: }
19929: ./pdksh/std/stdc/strrchr.c 644 653 1762 730 5243743560 12753 0 ustar hlu #include <string.h>
19930: /* $Id: strrchr.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19931:
19932: /*
19933: * strrchr - find last occurrence of a character in a string
19934: */
19935:
19936: char * /* found char, or NULL if none */
19937: strrchr(s, charwanted)
19938: const char *s;
19939: register char charwanted;
19940: {
19941: register const char *scan;
19942: register const char *place;
19943:
19944: place = NULL;
19945: for (scan = s; *scan != '\0'; scan++)
19946: if (*scan == charwanted)
19947: place = scan;
19948: if (charwanted == '\0')
19949: return(scan);
19950: return(place);
19951: }
19952: ./pdksh/std/stdc/time.h 644 653 1762 2020 5243743562 12243 0 ustar hlu /* time, time/date conversion */
19953: /* $Id: time.h,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
19954:
19955: #if ! _TIME_H
19956: #define _TIME_H 1
19957:
19958: #include <stddef.h> /* need size_t */
19959:
19960: #ifndef HAVE_SYS_STDTYPES
19961: #ifndef _TIME_T
19962: typedef long time_t;
19963: #endif
19964: typedef long clock_t; /* seconds/CLK_TCK */
19965: #endif
19966:
19967: #if _V7 || _SYSV
19968: #define CLK_TCK 60 /* todo: get from <sys/param.h> */
19969: #endif
19970:
19971: #if _BSD
19972: #define CLK_TCK 100
19973: #endif
19974:
19975: #if _ST
19976: #define CLK_TCK 200 /* ST system clock */
19977: #endif
19978:
19979: struct tm {
19980: int tm_sec, tm_min, tm_hour;
19981: int tm_mday, tm_mon, tm_year, tm_wday, tm_yday;
19982: int tm_isdst;
19983: long tm_gmtoff; /* BSD */
19984: char *tm_zone; /* BSD */
19985: };
19986:
19987: clock_t clock ARGS((void));
19988: time_t time ARGS((time_t *tp));
19989: #define difftime(t1, t2) (double)((t2)-(t1))
19990: time_t mktime ARGS((struct tm *tmp));
19991: char *asctime ARGS((const struct tm *tmp));
19992: char *ctime ARGS((const time_t *tp));
19993: struct tm *gmtime ARGS((const time_t *tp));
19994: struct tm *localtime ARGS((const time_t *tp));
19995: size_t strftime ARGS((char *buf, size_t len, const char *fmt, const struct tm *tmp));
19996:
19997: #endif
19998:
19999: ./pdksh/std/stdc/strspn.c 644 653 1762 1033 5243743560 12632 0 ustar hlu #include <string.h>
20000: /* $Id: strspn.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20001:
20002: /*
20003: * strspn - find length of initial segment of s consisting entirely
20004: * of characters from accept
20005: */
20006:
20007: size_t
20008: strspn(s, accept)
20009: const char *s;
20010: const char *accept;
20011: {
20012: register const char *sscan;
20013: register const char *ascan;
20014: register size_t count;
20015:
20016: count = 0;
20017: for (sscan = s; *sscan != '\0'; sscan++) {
20018: for (ascan = accept; *ascan != '\0'; ascan++)
20019: if (*sscan == *ascan)
20020: break;
20021: if (*ascan == '\0')
20022: return(count);
20023: count++;
20024: }
20025: return(count);
20026: }
20027: ./pdksh/std/stdc/strstr.c 644 653 1762 1260 5243743561 12645 0 ustar hlu #ifndef lint
20028: static char *RCSid = "$Id: strstr.c,v 1.2 1992/04/25 00:58:50 sjg Exp $";
20029: #endif
20030:
20031: #include "stdh.h"
20032:
20033: /*
20034: * strstr - find first occurrence of wanted in s
20035: */
20036:
20037: char * /* found string, or NULL if none */
20038: strstr(s, wanted)
20039: const char *s;
20040: const char *wanted;
20041: {
20042: register const char *scan;
20043: register size_t len;
20044: register char firstc;
20045:
20046: /*
20047: * The odd placement of the two tests is so "" is findable.
20048: * Also, we inline the first char for speed.
20049: * The ++ on scan has been moved down for optimization.
20050: */
20051: firstc = *wanted;
20052: len = strlen(wanted);
20053: for (scan = s; *scan != firstc || strncmp(scan, wanted, len) != 0; )
20054: if (*scan++ == '\0')
20055: return(NULL);
20056: return(scan);
20057: }
20058: ./pdksh/std/stdc/strtok.c 644 653 1762 2214 5243743561 12632 0 ustar hlu #include <string.h>
20059: /* $Id: strtok.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20060:
20061: /*
20062: * Get next token from string s (NULL on 2nd, 3rd, etc. calls),
20063: * where tokens are nonempty strings separated by runs of
20064: * chars from delim. Writes NULs into s to end tokens. delim need not
20065: * remain constant from call to call.
20066: */
20067:
20068: static char *scanpoint = NULL;
20069:
20070: char * /* NULL if no token left */
20071: strtok(s, delim)
20072: char *s;
20073: register const char *delim;
20074: {
20075: register char *scan;
20076: char *tok;
20077: register const char *dscan;
20078:
20079: if (s == NULL && scanpoint == NULL)
20080: return(NULL);
20081: if (s != NULL)
20082: scan = s;
20083: else
20084: scan = scanpoint;
20085:
20086: /*
20087: * Scan leading delimiters.
20088: */
20089: for (; *scan != '\0'; scan++) {
20090: for (dscan = delim; *dscan != '\0'; dscan++)
20091: if (*scan == *dscan)
20092: break;
20093: if (*dscan == '\0')
20094: break;
20095: }
20096: if (*scan == '\0') {
20097: scanpoint = NULL;
20098: return(NULL);
20099: }
20100:
20101: tok = scan;
20102:
20103: /*
20104: * Scan token.
20105: */
20106: for (; *scan != '\0'; scan++) {
20107: for (dscan = delim; *dscan != '\0';) /* ++ moved down. */
20108: if (*scan == *dscan++) {
20109: scanpoint = scan+1;
20110: *scan = '\0';
20111: return(tok);
20112: }
20113: }
20114:
20115: /*
20116: * Reached end of string.
20117: */
20118: scanpoint = NULL;
20119: return(tok);
20120: }
20121: ./pdksh/std/stdc/types.h 644 653 1762 652 5243743562 12442 0 ustar hlu /* work around multiple typedefs in stddef.h and sys/types.h */
20122: /* $Id: types.h,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20123:
20124: #include <stddef.h> /* defines size_t and ptrdiff_t */
20125: #include <time.h> /* defines time_t and clock_t */
20126:
20127: /* "inhibit" the typedefs in sys/types.h */
20128: #define size_t _size_t
20129: #define time_t _time_t
20130: #define clock_t _clock_t
20131: #include "/./usr/include/sys/types.h"
20132: #undef size_t
20133: #undef time_t
20134: #undef clock_t
20135:
20136: ./pdksh/std/stdc/memchr.c 644 653 1762 412 5243743544 12536 0 ustar hlu /* $Id: memchr.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20137:
20138: #include <string.h>
20139:
20140: void *
20141: memchr(ap, c, n)
20142: const void *ap;
20143: register int c;
20144: register size_t n;
20145: {
20146: register char *p = ap;
20147:
20148: if (n++ > 0)
20149: while (--n > 0)
20150: if (*p++ == c)
20151: return --p;
20152: return NULL;
20153: }
20154:
20155: ./pdksh/std/stdc/memcpy.c 644 653 1762 415 5243743545 12561 0 ustar hlu /* $Id: memcpy.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20156:
20157: #include <string.h>
20158:
20159: void *
20160: memcpy(dap, sap, n)
20161: void *dap;
20162: const void *sap;
20163: register size_t n;
20164: {
20165: register char *dp = dap, *sp = (void*) sap;
20166:
20167: if (n++ > 0)
20168: while (--n > 0)
20169: *dp++ = *sp++;
20170: return dap;
20171: }
20172:
20173: ./pdksh/std/stdc/memset.c 644 653 1762 355 5243743545 12564 0 ustar hlu /* $Id: memset.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20174:
20175: #include <string.h>
20176:
20177: void *
20178: memset(ap, c, n)
20179: void *ap;
20180: register int c;
20181: register size_t n;
20182: {
20183: register char *p = ap;
20184:
20185: if (n++ > 0)
20186: while (--n > 0)
20187: *p++ = c;
20188: return ap;
20189: }
20190:
20191: ./pdksh/std/stdc/strcat.c 644 653 1762 572 5243743551 12570 0 ustar hlu #include <string.h>
20192: /* $Id: strcat.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20193:
20194: /*
20195: * strcat - append string src to dst
20196: */
20197: char * /* dst */
20198: strcat(dst, src)
20199: char *dst;
20200: const char *src;
20201: {
20202: register char *dscan;
20203: register const char *sscan;
20204:
20205: for (dscan = dst; *dscan != '\0'; dscan++)
20206: continue;
20207: sscan = src;
20208: while ((*dscan++ = *sscan++) != '\0')
20209: continue;
20210: return(dst);
20211: }
20212: ./pdksh/std/stdc/strcpy.c 644 653 1762 516 5243743553 12614 0 ustar hlu #include <string.h>
20213: /* $Id: strcpy.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20214:
20215: /*
20216: * strcpy - copy string src to dst
20217: */
20218: char * /* dst */
20219: strcpy(dst, src)
20220: char *dst;
20221: const char *src;
20222: {
20223: register char *dscan;
20224: register const char *sscan;
20225:
20226: dscan = dst;
20227: sscan = src;
20228: while ((*dscan++ = *sscan++) != '\0')
20229: continue;
20230: return(dst);
20231: }
20232: ./pdksh/std/stdc/strerror.c 644 653 1762 600 5243743554 13145 0 ustar hlu #include <string.h>
20233: /* $Id: strerror.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20234:
20235: /*
20236: * strerror - map error number to descriptive string
20237: *
20238: * This version is obviously somewhat Unix-specific.
20239: */
20240: char *
20241: strerror(errno)
20242: int errno;
20243: {
20244: extern int sys_nerr;
20245: extern char *sys_errlist[];
20246:
20247: if (errno > 0 && errno < sys_nerr)
20248: return(sys_errlist[errno]);
20249: else
20250: return("unknown error");
20251: }
20252: ./pdksh/std/stdc/strlen.c 644 653 1762 451 5243743555 12577 0 ustar hlu #include <string.h>
20253: /* $Id: strlen.c,v 1.2 1992/04/25 08:19:26 sjg Exp $ */
20254:
20255: /*
20256: * strlen - length of string (not including NUL)
20257: */
20258: size_t
20259: strlen(s)
20260: const char *s;
20261: {
20262: register const char *scan;
20263: register size_t count;
20264:
20265: count = 0;
20266: scan = s;
20267: while (*scan++ != '\0')
20268: count++;
20269: return(count);
20270: }
20271: ./pdksh/std/stdc/ChangeLog 644 653 1762 644 5243743637 12703 0 ustar hlu Thu May 7 20:36:40 1992 Simon J. Gerraty (sjg@zen)
20272:
20273: * fprintf.c: avoid use of #if __STDC__ some compilers don't handle it.
20274:
20275: * vprintf.c: avoid side effects from putc() macro!
20276:
20277: Sat Apr 25 14:52:01 1992 Simon J. Gerraty (sjg@zen)
20278:
20279: * Added RCS keys to sources.
20280:
20281: Mon Nov 25 13:19:01 1991 Simon J. Gerraty (sjg at zen)
20282:
20283: * Added all source modules to Makefile, but most remain commented
20284: out as they are untested.
20285:
20286: ./pdksh/std/Makefile 644 653 1762 1563 5243743530 11645 0 ustar hlu #
20287: # Makefile for the compatibility libraries
20288: #
20289: # $Id: Makefile,v 1.2 1992/04/25 08:18:26 sjg Exp $
20290: #
20291:
20292: SHELL = /bin/sh
20293: MAKE = make
20294:
20295: #CONFIG = -D_SYSV
20296: CONFIG = -D_BSD
20297:
20298: LN = ln
20299:
20300: libs: h libstdc.a libposix.a
20301:
20302: h:
20303: mkdir h
20304: ( cd stdc ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' 'LN=$(LN)' clobber link )
20305: ( cd posix ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' 'LN=$(LN)' clobber link )
20306: ( cd ../sh ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' 'LN=$(LN)' link )
20307:
20308: libstdc.a: FORCED
20309: ( cd stdc ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' all )
20310:
20311: libposix.a: FORCED
20312: ( cd posix ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' all )
20313:
20314: clean:
20315: -rm -f *.out
20316: ( cd stdc ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' $@ )
20317: ( cd posix ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' $@ )
20318:
20319: clobber:
20320: -rm -rf h *.a
20321: ( cd stdc ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' $@ )
20322: ( cd posix ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' $@ )
20323:
20324: FORCED:
20325: ./pdksh/std/mklinks 644 653 1762 231 5243743473 11555 0 ustar hlu :
20326: # Make links
20327: # we do it this way so that we can support symlinks
20328: # easily.
20329:
20330: src=`pwd`
20331: cd $1
20332: shift
20333: LN="${LN:-ln}"
20334:
20335: for f in $*
20336: do
20337: $LN $src/$f .
20338: done
20339: ./pdksh/PATCHDATES 644 653 1762 167 5243743672 10744 0 ustar hlu # PD ksh Version 4
20340: 09-Nov-91
20341: 10-Nov-91
20342: 25-Nov-91
20343: 25-Apr-92
20344: 26-Apr-92
20345: 27-Apr-92
20346: 12-May-92
20347: 02-Aug-92
20348: 12-Aug-92
20349: 25-Apr-92
20350: ./pdksh/ksh.1 644 653 1762 101151 5243743650 10317 0 ustar hlu .\" $Id: ksh.1,v 1.2 1992/08/10 11:59:15 sjg Exp $
20351: .nr OJ 1 \" Job Control
20352: .nr OE 1 \" Command Editing
20353: .nr OB 1 \" BSD enhanced ulimit options
20354: .ds OK [\|
20355: .ds CK \|]
20356: .TH KSH 1 "July 1992"
20357: .SH NAME
20358: ksh \- Bourne / Korn Shell (Public Domain)
20359: .SH SYNOPSIS
20360: \fBksh\fP
20361: [\fB\-st\fP] [\fB\-c\fP \fIcommand\fP]
20362: [\fIfile\fP [\fIargument ...\fP]]
20363: .SH INTRODUCTION
20364: This document only summarizes the System V, release 2 shell features.
20365: All of the System V features except for ``restricted mode''
20366: are implemented.
20367: See also the BUGS section.
20368: .LP
20369: Features of the Korn shell are described in more detail.
20370: Only a subset of the Korn shell features are currently implemented.
20371: .SH DESCRIPTION
20372: .SS Command syntax
20373: The ``#'' character begins a one-line comment,
20374: unless the ``#'' occurs inside a word.
20375: The tokens ``;'', ``|'', ``&'', ``;;'', ``||'', ``&&'', ``('', and ``)''
20376: stand by themselves.
20377: A \fIword\fP is a sequence of any other non-whitespace characters,
20378: which may also contain quoted strings
20379: (quote character are ``\''', ``"'', ``\`'',
20380: or a matching ``${ }'' or ``$( )'' pair).
20381: A \fIname\fP is an unquoted word made up of letters, digits, or ``_''.
20382: Any number of whitespace characters (space and tab) may separate words and tokens.
20383: .LP
20384: In the following syntax, { ... }? indicates an optional thing,
20385: { ... }* indicates zero or more repetitions, { ... | ... } indicates alternatives.
20386: .de S
20387: .br
20388: \\$1
20389: .br
20390: ..
20391: .IP statement:
20392: .S "\fB(\fP list \fB)\fP"
20393: .S "\fB{\fP list \fB;\fP \fB}\fP"
20394: .S "\fBfor\fP name { \fBin\fP { word }* }? \fBdo\fP list \fB;\fP \fBdone\fP"
20395: .S "\fBselect\fP name { \fBin\fP { word }* }? \fBdo\fP list \fB;\fP \fBdone\fP"
20396: .S "{ \fBwhile\fP | \fBuntil\fP } list \fB;\fP \fBdo\fP list \fB;\fP \fBdone\fP"
20397: .S "\fBif\fP list \fB;\fP \fBthen\fP list \fB;\fP { \fBelif\fP list \fB;\fP \fBthen\fP list \fB;\fP }* { \fBelse\fP list \fB;\fP }?\fBfi\fP"
20398: .S "\fBcase\fP name \fBin\fP { \fB(\fP word { \fB|\fP word } \fB)\fP list \fB;;\fP }* \fBesac\fP"
20399: .S "\fBfunction\fP name \fB{\fP list \fB;\fP \fB}\fP"
20400: .S "name \fB() {\fP list \fB;\fP \fB}\fP"
20401: .S "\fBtime\fP pipe"
20402: The opening parenthesis of the pattern is optional.
20403: Redirection may occur at the beginning or end of a statement.
20404: .IP command:
20405: .S "{ name=word }* { word }*"
20406: Redirection may occur anywhere in a command.
20407: .IP list:
20408: .S "cond"
20409: .S "cond \fB;\fP list"
20410: .S "cond \fB&\fP list"
20411: .IP cond:
20412: .S "pipe"
20413: .S "pipe \fB&&\fP cond"
20414: .S "pipe \fB||\fP cond"
20415: .IP pipe:
20416: .S "statement { \fB|\fP statement }*"
20417: .SS The select statement
20418: The \fBselect\fP statement provides an automatic method of presenting the
20419: user with a menu selection from several options.
20420: The \fIwords\fP given in the list are printed on standard error, each
20421: preceded by a number.
20422: Typing the number on standard input sets the variable \fIname\fP to the
20423: word that was selected.
20424: The data that was typed is preserved in a variable called REPLY.
20425: The contents of the loop are then executed using the selected value.
20426: A new prompt PS3 is used to indicate that a number should be typed in
20427: to choose a value from the menu.
20428: .LP
20429: Menus will continue to be presented until an interrupt is received or
20430: end-of-file is typed on input.
20431: .SS Alias expansion
20432: Alias expansion occurs when the first word of a
20433: statement is a defined alias,
20434: except when that alias is already being expanded.
20435: It also occurs after the expansion of an alias whose
20436: definition ends with a space.
20437: .SS Alternation
20438: Csh provides a filename expansion method known as alternation.
20439: This has been added into this version of ksh.
20440: When performing filename subsitution, you can get the shell to create
20441: a set of strings for you. For example, `exampl{a,b,c,d,e}' will expand
20442: to ``exampla examplb examplc exampld example''.
20443: A comma separated set of strings in curly braces
20444: will be expanded into a set of strings that are passed into the command.
20445: The strings are not sorted.
20446: .SS Shell variables
20447: The following standard special variables exist:
20448: \fB!\fP, \fB#\fP, \fB$\fP, \fB\-\fP, \fB?\fP.
20449: .IP "_"
20450: In interactive use this parameter is set to the last word of
20451: the previous command. When a command is executed this parameter
20452: is set to the full path of the command and placed in the environment
20453: for the command. See also \fBMAILPATH\fP.
20454: .IP CDPATH
20455: The search path for the \fIcd\fP command.
20456: .IP ENV
20457: If this variable is set at start-up
20458: (after any profile files are executed),
20459: the expanded value is used as shell start-up file.
20460: It typically contains function and alias definitions.
20461: .IP FCEDIT
20462: The editor used by the \fIfc\fP command.
20463: During startup the shell checks the value of \fBFCEDIT\fP,
20464: \fBEDITOR\fP and finally \fBVISUAL\fP to try and determin what
20465: command line edit mode to use. Note that this is not strictly
20466: ksh compatible behaviour.
20467: .IP COLUMNS
20468: The width to use for the commandline editing (emacs mode only).
20469: .IP HISTFILE
20470: The name of the file used to store history.
20471: If defined, history will be loaded from this file on startup.
20472: Also, several invocations of the shell running on the same machine
20473: will share history if their HISTFILE variables all point at the same file.
20474: .IP HISTSIZE
20475: The number of commands normally stored for history, default 128.
20476: .IP HOME
20477: The default directory for the \fIcd\fP command.
20478: .IP IFS
20479: \fIInternal field separator\fP,
20480: used during substitution and the \fIread\fP command.
20481: .IP MAIL
20482: If set, the user will be informed of the arrival of mail
20483: in the named file. This variable is ignored if
20484: the \fBMAILPATH\fP variable is set.
20485: .IP MAILCHECK
20486: How often, in seconds, the shell will check for mail in the
20487: file(s) specified by \fBMAIL\fP or \fBMAILPATH\fP. If 0,
20488: the shell checks before each prompt. The default is 600
20489: seconds.
20490: .IP MAILPATH
20491: A list of files to be checked for mail. The list is colon
20492: separated, and each file may be followed by a \fB?\fP and
20493: a message to be printed if new mail has arrived. Command
20494: and parameter substitution is performed on the message, and
20495: the parameter \fB$_\fP is set to the name of the file.
20496: The default message is ``you have mail in $_''.
20497: .IP PATH
20498: The search path for executable commands and \fB.\fP'd files.
20499: .IP PPID
20500: The process number of the parent of the shell.
20501: .IP "PS1 PS2"
20502: \fBPS1\fP is the primary prompt for interactive shells.
20503: Dollar substitution is performed, and \fB!\fP is replaced
20504: with the command number (see \fIfc\fP).
20505: .IP "PWD OLDPWD"
20506: The current and previous working directories.
20507: .IP RANDOM
20508: A random integer. The random number generator may be seeded
20509: by assigning an integer value to this variable.
20510: .IP SECONDS
20511: The number of seconds since the shell timer was started or
20512: reset. Assigning an integer value to this variable resets
20513: the timer.
20514: .SS Substitution
20515: In addition to the System Vr2 substitutions,
20516: the following are available.
20517: .IP "$(command)"
20518: Like `command`, but no escapes are recognized.
20519: .IP "$(<file)"
20520: Equivalent to $(cat file), but without forking.
20521: .IP "${#var}"
20522: The length of the string value of \fIvar\fP,
20523: or the number of arguments if \fIvar\fP is \fB*\fP or \fB@\fP.
20524: .IP "${var#pattern} ${var##pattern}"
20525: If \fIpattern\fP matches the beginning of the value of \fIvar\fP,
20526: the matched text is deleted from the result of substitution.
20527: A single \fB#\fP results in the shortest match,
20528: two \fB#\fP's results in the longest match.
20529: .IP "${var%pattern} ${var%%pattern}"
20530: Like \fB#\fP substition, but deleting from the end of the value.
20531: .SS Expressions
20532: Expressions can be used with the \fBlet\fP command,
20533: as numeric arguments to the \fBtest\fP command,
20534: and as the value of an assignment to an integer variable.
20535: .LP
20536: Expression may contain alpha-numeric variable identifiers and integer constants
20537: and may be combined with the following operators:
20538: .IP "== != <= < > >= + - * / % ! ( )"
20539: .SS Command execution
20540: After evaluation of keyword assignments and arguments,
20541: the type of command is determined.
20542: A command may execute a shell function, a shell built-in,
20543: or an executable file.
20544: .LP
20545: Any keyword assignments are then performed according to
20546: the type of command.
20547: In function calls assignments are local to the function.
20548: Assignments in built-in commands marked with a \(dg persist,
20549: otherwise they are temporary.
20550: Assignments in executable commands are exported to the sub-process
20551: executing the command.
20552: .LP
20553: Even on systems where the exec() family does not support #!
20554: notation for scripts, ksh can be configured to fake it.
20555: .LP
20556: There are several built-in commands.
20557: .IP ":"
20558: Only expansion and assignment are performed.
20559: This is the default if a command has no arguments.
20560: .IP ". \fIfile\fP"
20561: Execute the commands in \fIfile\fP without forking.
20562: The file is searched in the directories of $PATH.
20563: Passing arguments is not implemented.
20564: .IP "alias [\fIname\fB=\fIvalue\fI ...]\fR"
20565: Without arguments, \fBalias\fP lists all aliases and their values.
20566: For any name without a value, its value is listed.
20567: Any name with a value defines an alias, see "Alias Expansion" above.
20568: Korn's tracked aliases are not implemented,
20569: but System V command hashing is (see "hash").
20570: .IP "alias -d [\fIname\fB=\fIvalue\fI ...]\fR"
20571: Directory aliases for tilde expansion, eg.
20572: .br
20573: alias -d fac=/usr/local/usr/facilities
20574: .br
20575: cd ~fac/bin
20576: .IP "break [\fIlevels\fP]"
20577: .IP "builtin \fIcommand arg ...\fP"
20578: \fICommand\fP is executed as a built-in command.
20579: .IP "cd [\fIpath\fP]"
20580: Set the working directory to \fIpath\fP. If the parameter
20581: CDPATH is set, it lists the search path for the directory
20582: containing \fIpath\fP. A null path means the current directory.
20583: If \fIpath\fP is missing, the home directory ($HOME) is used.
20584: If \fIpath\fP is \fB\-\fP, the previous working directory is used.
20585: If \fIpath\fP is \fB..\fP, the shell changes directory to the
20586: parent directory, as determined from the value of PWD.
20587: The PWD and OLDPWD variables are reset.
20588: .IP "cd \fIold new\fP"
20589: The string \fInew\fP is substituted for \fIold\fP in the current
20590: directory, and the shell attempts to change to the new directory.
20591: .IP "continue [\fIlevels\fP]"
20592: .IP "echo ..."
20593: \fIEcho\fP is replaced with the alias echo='print' in the Korn shell.
20594: .IP "eval \fIcommand ...\fP"
20595: .IP "exec \fIcommand arg ...\fP"
20596: The executable command is executed without forking.
20597: If no arguments are given, any IO redirection is permanent.
20598: .IP "exit [\fIstatus\fP]"
20599: .IP "fc [\fB\-e\fP \fIeditor\fP] [\fB\-lnr\fP] [\fIfirst\fP [\fIlast\fP]]"
20600: \fIFirst\fP and \fIlast\fP select commands.
20601: Commands can be selected by history number,
20602: or a string specifing the most recent command starting with that string.
20603: The \fB\-l\fP option lists the command on stdout,
20604: and \fB\-n\fP inhibits the default command numbers.
20605: The \fB\-r\fP option reverses the order of the list.
20606: Without \fB\-l\fP, the selected commands can be edited by
20607: the editor specified with the \fB\-e\fP option, or if no \fB\-e\fP
20608: is specified,
20609: the \fB$FCEDIT\fP editor, then executed by the shell.
20610: .IP "fc \fB\-e \-\fP [\fB\-g\fP] [\fIold\fB=\fInew\fR] [\fIcommand\fP]"
20611: Re-execute the selected command (the previous command by default)
20612: after performing the optional substitution of \fIold\fP with \fInew\fP.
20613: If \fB\-g\fP is specified, all occurrences of \fIold\fP are
20614: replaced with \fInew\fP.
20615: This command is usually accessed with the predefined alias
20616: r=``fc \-e \-''.
20617: .IP "getopts"
20618: See the attached manual page.
20619: .IP "hash [\fB\-r\fP] [\fIname ...\fP]"
20620: Without arguments, any hashed executable command pathnames are listed.
20621: The \fB\-r\fP flag causes all hashed commands to be removed.
20622: Each \fIname\fP is searched as if it were a command name
20623: and added to the hash table if it is an executable command.
20624: .IP "kill [\fB\-\fIsignal\fR] \fIprocess\fP ..."
20625: Send a signal (TERM by default) to the named process.
20626: The signal may be specified as a number or a mnemonic from <signal.h>
20627: with the SIG prefix removed.
20628: .IP "let [\fIexpression ...\fP]"
20629: Each expression is evaluated, see "Expressions" above.
20630: A zero status is returned if the last expression evaluates
20631: to a non-zero value, otherwise a non-zero status is returned.
20632: Since may expressions need to be quoted, \fI(( expr ))\fP is
20633: syntactic sugar for \fIlet "expr"\fP.
20634: .IP "print [\fB\-nreu\fIn\fR] [\fIargument ...\fP]"
20635: \fBPrint\fP prints its arguments on the standard output,
20636: separated by spaces, and terminated with a newline.
20637: The \fB\-n\fP option eliminates the newline.
20638: .IP
20639: By default, certain C escapes are translated.
20640: These include \eb, \ef, \en, \er, \et, \ev, and \e### (# is an octal digit).
20641: \ec is equivalent to the \fB\-n\fP option.
20642: This expansion may be inhibitted with the \fB\-r\fP option,
20643: and may be re-enabled with the addition of the \fB\-e\fP option.
20644: .IP "read [\fB\-ru\fIn\fR] \fIname ...\fP"
20645: The first variable name may be of the form \fIname\fB?\fIprompt\fR.
20646: .IP "readonly [\fIname ...\fP]"
20647: .IP "return [\fIstatus\fP]"
20648: .ta 5n 10n 30n
20649: .de O
20650: .br
20651: \t\\$1\t\\$2\t\\$3
20652: ..
20653: .IP "set [\fB\(+-\fP\fI[a-z]\fP] [\fB\(+-o\fP \fIkeyword\fP] ..."
20654: Set (\fB\-\fP) or clear (\fB+\fP) a shell option:
20655: .O \-a allexport "all new variable are created with export attribute"
20656: .O \-e errexit "exit on non-zero status [incorrect]"
20657: .O "" bgnice "background jobs are run with lower priority"
20658: .if \n(OE \{
20659: .O "" emacs "BRL emacs-like line editing"\}
20660: .O "" ignoreeof "shell will not exit of EOF, must use \fIexit\fP"
20661: .O \-k keyword "variable assignments are recognized anywhere in command"
20662: .O "" markdirs "[not implemented]"
20663: .O \-m monitor "job control enabled (default for interactive shell)"
20664: .O \-n noexec "compile input but do not execute (ignored if interactive)"
20665: .O \-f noglob "don't expand filenames"
20666: .O \-u nounset "dollar expansion of unset variables is an error"
20667: .O \-v verbose "echo shell commands on stdout when compiling"
20668: .O \-h trackall "add command pathnames to hash table"
20669: .O "" vi "VI-like line editing"
20670: .O \-x xtrace "echo simple commands while executing"
20671: .IP "set [\fB\-\-\fP] \fIarg ...\fP"
20672: Set shell arguments.
20673: .IP "shift [\fInumber\fP]"
20674: .IP "test"
20675: See the attached manual page.
20676: .IP "times"
20677: .IP "trap [\fIhandler\fP] [\fIsignal ...\fP]"
20678: .IP "typeset [\fB\(+-irtx\fP] [\fIname\fP[\fB=\fIvalue\fR] ...]"
20679: If no arguments are given, lists all variables and their attributes.
20680: .PP
20681: If options but no names are given, lists variables with specified
20682: attributes, and their values if unless ``+'' is used.
20683: .PP
20684: If names are given, set the attributes of the named variables.
20685: Variables may also be assigned a value.
20686: If used inside a function, the created variable are local to the function.
20687: .PP
20688: The attributes are as follows.
20689: .ta 5n 10n
20690: \t\-i\tThe variable's value is stored as an integer.
20691: .br
20692: \t\-x\tThe variable is exported to the enviroment.
20693: .br
20694: \t\-r\tThe variable is read-only cannot be reassigned a value.
20695: .br
20696: \t\-t\tTrace (not implemented).
20697: .br
20698: \t\-f\tList functions instead of variable.
20699: .\".IP "ulimit [\fB\-f\fP] [\fIvalue\fP]"
20700: .ds OZ <OZ>
20701: .IP "\fBulimit\fP \*(OK \fB\-\*(OZ\fP \*(CK \*(OK \fIn\fP \*(CK"
20702: .RS
20703: .TP "\w'\fB\-\-\ \ \ 'u"
20704: .if \n(OB \{.B \-c
20705: Impose a size limit of
20706: .I n\^
20707: blocks on the size of core dumps.
20708: .TP
20709: .B \-d
20710: Impose a size limit of
20711: .I n\^
20712: blocks on the size of the data area.\}
20713: .TP
20714: .B \-f
20715: Impose a size limit of
20716: .I n
20717: blocks on files written by the shell
20718: and its child processes (files of any size may be read).
20719: .if \n(OB \{.TP
20720: .B \-m
20721: Impose a soft limit of
20722: .I n\^
20723: blocks on the size of physical memory.
20724: .TP
20725: .B \-t
20726: Impose a time limit of
20727: .I n\^
20728: seconds to be used by each process.\}
20729: .PP
20730: If no option is given,
20731: .B \-f
20732: is assumed.
20733: If
20734: .I n
20735: is omitted, the current limit is printed.
20736: As far as
20737: .B ulimit
20738: is concerned, a ``block'' is 512 bytes.
20739: .PP
20740: You may lower your own resource limit,
20741: but only a super-user (see
20742: .IR su (1M))
20743: can raise a limit.
20744: .RE
20745: .IP "umask [\fIvalue\fP]"
20746: .IP "unalias \fIname ...\fP"
20747: The aliases for the given names are removed.
20748: .IP "unset [\fB\-f\fP] \fIname ...\fP"
20749: .IP "wait [\fIprocess-id\fP]"
20750: .IP "whence [\fB\-v\fP] name ..."
20751: For each name, the type of command is listed.
20752: The \fB\-v\fP flag causes function and alias values to be listed.
20753: .SS Job Control
20754: Job control features are enabled by the
20755: \fB\-m\fP or \fB\-o monitor\fP flags.
20756: When job control is enabled, and the system supports job control,
20757: background commands and foreground commands that have been stopped
20758: (usually by a
20759: .SM SIGTSTP
20760: signal generated by typing
20761: .IR ^Z\^ )
20762: are placed into separate individual
20763: .IR "process groups" .
20764: The following commands are used to manipulate these process groups:
20765: .PP
20766: .PD 0
20767: .TP "\w'\fBkill\fP \*(OK \fIjob\fP \*(CK\ \ \ 'u"
20768: \fBjobs\fP
20769: Display information about the controlled jobs.
20770: The job number is given preceeded by a percent sign,
20771: followed by a plus sign if it is the ``current job'',
20772: or by a minus sign if it is the ``previous job'',
20773: then the process group number for the job,
20774: then the command.
20775: .TP
20776: \fBkill\fP [\fB\-\fIsignal\fR] \fIjob\fP ...
20777: Send a signal (TERM by default) to the named job process group.
20778: .TP
20779: \fBfg\fP \*(OK \fIjob\fP \*(CK
20780: Resume the stopped foreground job in the foreground.
20781: If the process group
20782: .I n
20783: is not specified then the ``current job'' is resumed.
20784: .TP
20785: \fBbg\fP \*(OK \fIjob\fP \*(CK
20786: Resume the stopped foreground job in the background.
20787: If the process group
20788: .I n
20789: is not specified then the ``current job'' is resumed.
20790: .PD
20791: .PP
20792: The \fBfg\fP, \fBbg\fP, \fBkill\fP, and \fBwait\fP commands
20793: may refer to jobs with the following ``percent'' sequences.
20794: The percent sign is optional with the fg and bg commands.
20795: .PP
20796: .PD 0
20797: .TP "\w'\fBbg\fP \*(OK \fIn\fP \*(CK\ \ \ 'u"
20798: .BR %+ ( %\- )
20799: If there is a ``current job'' (``previous job''),
20800: then that job is selected.
20801: .TP
20802: .BI % n
20803: If the specified job number is one of the known jobs,
20804: then that job is selected.
20805: .TP
20806: .BI % string
20807: If the string matches the initial part of a job's command,
20808: then that job is selected.
20809: .TP
20810: .BI %? string
20811: As above, but the string may match any portion of the command.
20812: .sp
20813: .PP
20814: If the system does not support job control, monitor mode enables
20815: job reporting. The jobs and kill commands
20816: functions as above, and you will
20817: be informed when background jobs complete. Fg and bg are not
20818: availiable.
20819: .PD
20820: .br
20821: .SS "Interactive Input Line Editing"
20822: When the
20823: .B emacs
20824: option is set,
20825: interactive input line editing is enabled.
20826: This mode is slightly different from the emacs mode in AT&T's KornShell.
20827: In this mode various
20828: .I "editing commands"
20829: (typically bound to one or more control characters)
20830: cause immediate actions without waiting for a new-line.
20831: Several
20832: .I "editing commands"
20833: are bound to particular control characters
20834: when the shell is invoked;
20835: these bindings can be changed using the following commands:
20836: .br
20837: .PP
20838: .PD 0
20839: .TP 2i
20840: \fBbind\fP
20841: The current bindings are listed.
20842: .TP
20843: \fBbind\fP \*(OK \fIstring\fP \*(CK = \*(OK \fIediting-command\fP \*(CK
20844: The specified
20845: .I "editing command\^"
20846: is bound to the given
20847: .IR string ,
20848: which should consist of a control character
20849: (which may be written using ``caret notation'' \fB^\fP\fIx\fP\|),
20850: optionally preceded by one of the two prefix characters.
20851: Future input of the
20852: .I string
20853: will cause the
20854: .I "editing command\^"
20855: to be immediately invoked.
20856: .br
20857: Note that although only two prefix characters (normal ESC and ^X)
20858: are supported, some multi-character sequences can be supported:
20859: .br
20860: bind '^[['=prefix-2
20861: .br
20862: bind '^XA'=up-history
20863: .br
20864: bind '^XB'=down-history
20865: .br
20866: bind '^XC'=forward-char
20867: .br
20868: bind '^XD'=backward-char
20869: .br
20870: will bind the arrow keys on an ANSI terminal, or xterm. Of course some escape
20871: sequences won't work out quite that nicely.
20872: .TP
20873: \fBbind -m\fP \*(OK \fIstring\fP \*(CK = \*(OK \fIsubstitute\fP \*(CK
20874: The specified input
20875: .I string
20876: will afterwards be immediately replaced by the given
20877: .I substitute
20878: string,
20879: which may contain
20880: .IR "editing commands" .
20881: .PD
20882: .PP
20883: The following
20884: .I "editing commands"
20885: are available;
20886: first the command name is given
20887: followed by its default binding (if any)
20888: using caret notation
20889: (note that the ASCII
20890: .SM ESC
20891: character is written as \s-1^[\s0\|),
20892: then the editing function performed is decribed.
20893: Note that
20894: .I "editing command"
20895: names are used only with the
20896: .B bind
20897: command.
20898: Furthermore,
20899: many
20900: .I "editing commands"
20901: are useful only on terminals with a visible cursor.
20902: The default bindings were chosen to resemble corresponding EMACS key bindings.
20903: The users tty characters (eg. erase) are bound to reasonable
20904: substitutes.
20905: .br
20906: .PP
20907: .PD 0
20908: .TP "\w'\fBdelete-word-backward\ \ ^[\|ERASE\fP\ \ \ 'u"
20909: \fBabort\ \ ^G\fP
20910: Useful as a response to a request for a
20911: .B search-history
20912: pattern in order to abort the search.
20913: .br
20914: .TP
20915: \fBauto-insert\fP
20916: Simply causes the character to appear as literal input.
20917: (Most ordinary characters are bound to this.)
20918: .br
20919: .TP
20920: \fBbackward-char\ \ ^B\fP
20921: Moves the cursor backward one character.
20922: .br
20923: .TP
20924: \fBbackward-word\ \ ^[\|b\fP
20925: Moves the cursor backward to the beginning of a word.
20926: .br
20927: .TP
20928: \fBbeginning-of-line\ \ ^A\fP
20929: Moves the cursor to the beginning of the input line
20930: (after the prompt string).
20931: .br
20932: .TP
20933: \fBcomplete\ \ ^[\|^[\fP
20934: Automatically completes as much as is unique of the hashed command name
20935: or the file name containing the cursor.
20936: If the entire remaining command or file name is unique
20937: a space is printed after its completion,
20938: unless it is a directory name in which case
20939: .B /
20940: is postpended.
20941: If there is no hashed command or file name with the current partial word
20942: as its prefix,
20943: a bell character is output (usually causing a ``beep'').
20944: .br
20945: .TP
20946: \fBcomplete-command\ \ ^X^[\fP
20947: Automatically completes as much as is unique of the hashed command name
20948: having the partial word up to the cursor as its prefix,
20949: as in the
20950: .B complete
20951: command described above.
20952: Only command and function names seen since the last
20953: .B "hash \-r"
20954: command are available for completion;
20955: the
20956: .B "hash"
20957: command may be used to register additional names.
20958: .br
20959: .TP
20960: \fBcomplete-file\ \ ^[\|^X\fP
20961: Automatically completes as much as is unique of the file name
20962: having the partial word up to the cursor as its prefix,
20963: as in the
20964: .B complete
20965: command described above.
20966: .br
20967: .TP
20968: \fBcopy-last-arg\ \ ^[\|_\fP
20969: The last word of the previous command is inserted at the
20970: cursor. Note I/O redirections do not count as words of
20971: the command.
20972: .br
20973: .TP
20974: \fBdelete-char-backward\ \ ERASE\fP
20975: Deletes the character before the cursor.
20976: .br
20977: .TP
20978: \fBdelete-char-forward\fP
20979: Deletes the character after the cursor.
20980: .br
20981: .TP
20982: \fBdelete-word-backward\ \ ^[\|ERASE\fP
20983: Deletes characters before the cursor back to the beginning of a word.
20984: .br
20985: .TP
20986: \fBdelete-word-forward\ \ ^[\|d\fP
20987: Deletes characters after the cursor up to the end of a word.
20988: .br
20989: .TP
20990: \fBdown-history\ \ ^N\fP
20991: Scrolls the history buffer forward one line (later).
20992: Each input line originally starts just after
20993: the last entry in the history buffer,
20994: so
20995: .B down-history
20996: is not useful until either
20997: .B search-history
20998: or
20999: .B up-history
21000: has been performed.
21001: .br
21002: .TP
21003: \fBend-of-line\ \ ^E\fP
21004: Moves the cursor to the end of the input line.
21005: .br
21006: .TP
21007: \fBeot\ \ ^_\fP
21008: Acts as an end-of-file;
21009: this is useful because edit-mode input
21010: disables normal terminal input canonicalization.
21011: .br
21012: .TP
21013: \fBeot-or-delete\ \ ^D\fP
21014: Acts as eot if alone on a line;
21015: otherwise acts as delete-char-forward.
21016: .br
21017: .TP
21018: \fBexchange-point-and-mark\ \ ^X\|^X\fP
21019: Places the cursor where the mark is, and sets the
21020: mark to where the cursor was.
21021: .br
21022: .TP
21023: \fBforward-char\ \ ^F\fP
21024: Moves the cursor forward one position.
21025: .br
21026: .TP
21027: \fBforward-word\ \ ^[\|f\fP
21028: Moves the cursor forward to the end of a word.
21029: .br
21030: .TP
21031: \fBkill-line\ \ KILL\fP
21032: Deletes the entire input line.
21033: .br
21034: .TP
21035: \fBkill-to-eol\ \ ^K\fP
21036: Deletes the input from the cursor to the end of the line.
21037: .br
21038: .TP
21039: \fBkill-region\ \ ^W\fP
21040: Deletes the input between the cursor and the mark.
21041: .br
21042: .TP
21043: \fBlist\ \ ^[\|?\fP
21044: Prints a sorted, columnated list of hashed command names or file names
21045: (if any) that can complete the partial word containing the cursor.
21046: Directory names have
21047: .B /
21048: postpended to them,
21049: and executable file names are followed by
21050: .BR \(** .
21051: .br
21052: .TP
21053: \fBlist-command\ \ ^X\|?\fP
21054: Prints a sorted, columnated list of hashed command names
21055: (if any) that can complete the partial word containing the cursor.
21056: .br
21057: .TP
21058: \fBlist-file\fP
21059: Prints a sorted, columnated list of file names
21060: (if any) that can complete the partial word containing the cursor.
21061: File type indicators are postpended as described under
21062: .B list
21063: above.
21064: .br
21065: .TP
21066: \fBnewline\ \ ^J\ \fP\fIand\^\fP\fB\ ^M\fP
21067: Causes the current input line to be processed by the shell.
21068: (The current cursor position may be anywhere on the line.)
21069: .br
21070: .TP
21071: \fBnewline-and-next\ \ ^O\fP
21072: Causes the current input line to be processed by the shell, and
21073: the next line from history becomes the current line. This is
21074: only useful after an up-history or search-history.
21075: .br
21076: .TP
21077: \fBno-op\ \ QUIT\fP
21078: Does nothing.
21079: .br
21080: .TP
21081: \fBprefix-1\ \ ^[\fP
21082: Introduces a 2-character command sequence.
21083: .br
21084: .TP
21085: \fBprefix-2\ \ ^X\fP
21086: Introduces a 2-character command sequence.
21087: .br
21088: .TP
21089: \fBquote\ \ ^^\fP
21090: The following character is taken literally
21091: rather than as an
21092: .IR "editing command" .
21093: .br
21094: .TP
21095: \fBredraw\ \ ^L\fP
21096: Reprints the prompt string and the current input line.
21097: .br
21098: .TP
21099: \fBsearch-character\ \ ^]\fP
21100: Search forward in the current line for the next keyboard character.
21101: .br
21102: .TP
21103: \fBsearch-history\ \ ^R\fP
21104: Enter incremental search mode.
21105: The internal history list is searched backwards for commands matching the input.
21106: An initial ``^'' in the search string anchors the search.
21107: The escape key will leave search mode.
21108: Other commands will be executed after leaving search mode (unless
21109: of course they are prefixed by escape, in which case they will
21110: almost certainly do the wrong thing).
21111: Successive
21112: .B search-history
21113: commands continue searching backward
21114: to the next previous occurrence of the pattern.
21115: The history buffer retains only a finite number of lines;
21116: the oldest are discarded as necessary.
21117: .br
21118: .TP
21119: \fBset-mark-command\ \ ^]\|<space>\fP
21120: Search forward in the current line for the next keyboard character.
21121: .br
21122: .ie \n(OX \{.TP
21123: \fBstuff\ \ ^T\fP\}
21124: .el \{.TP
21125: \fBstuff\fP\}
21126: On systems supporting it,
21127: pushes the bound character back onto the terminal input
21128: where it may receive special processing by the terminal handler.
21129: .if \n(OX \{This is useful for the BRL
21130: .B ^T
21131: ``mini-systat'' feature,
21132: for example.\}
21133: .br
21134: .TP
21135: \fBstuff-reset\fP
21136: Acts like
21137: .BR stuff\^ ,
21138: then aborts input the same as an interrupt.
21139: .br
21140: .ie \n(OX \{.TP
21141: \fBtranspose-chars\fP\}
21142: .el \{.TP
21143: \fBtranspose-chars\ \ ^T\fP\}
21144: Exchanges the two characters on either side of the cursor, or
21145: the two previous characters if the cursor is at end of line.
21146: .br
21147: .TP
21148: \fBup-history\ \ ^P\fP
21149: Scrolls the history buffer backward one line (earlier).
21150: .br
21151: .TP
21152: \fByank\ \ ^Y\fP
21153: Inserts the most recently killed text string at the current cursor position.
21154: .br
21155: .TP
21156: \fByank-pop\ \ ^[\|y\fP
21157: Immediately after a
21158: .BR yank ,
21159: replaces the inserted text string with the
21160: next previous killed text string.
21161: .PD
21162: .br
21163: .SH FILES
21164: ~/.profile
21165: .br
21166: /etc/profile
21167: .SH SEE ALSO
21168: Sh(1) on System V or Sun OS.
21169: .LP
21170: .I "UNIX Shell Programming,"
21171: Stephan G. Kochan,
21172: Patrick H. Wood,
21173: Hayden.
21174: .LP
21175: .I "KornShell: Command and Programming Language (not yet published),"
21176: Morris Bolsky and David Korn.
21177: .SH AUTHORS
21178: Based on the public domain 7th edition Bourne shell.
21179: .LP
21180: System V and Korn modifications by Eric Gisin,
21181: with contributions by
21182: Ron Natalie, Arnold Robbins, Doug Gwyn, Erik Baalbergen, AT&T (getopt(3)),
21183: John McMillan, Simon Gerraty and Peter Collinson.
21184: .SH DIFFERENCES FROM AT&T VERSION
21185: Csh-style alternations are implemented.
21186: Variable arrays are not implemented.
21187: Variable attributes other than integer are not implemented.
21188: The \fBERR\fP and \fBEXIT\fP traps are not implemented for functions.
21189: Alias expansion is inhibited at the beginning of an alias definition
21190: in the AT&T version.
21191: Korn evaluates expressions differently [elaborate].
21192: .SH BUGS
21193: Interactive shells may occasionally hang while waiting for a job
21194: in the BSD version.
21195: .LP
21196: The 8th bit is stripped in emacs mode.
21197: .LP
21198: Quoting double-quote (") characters inside back-quote (`) inside
21199: double-quotes does not behave properly. Why are you doing this?
21200: .LP
21201: The emacs mode can ``lose'' stty command done by the user.
21202: .LP
21203: Unsetting special variables
21204: may cause unexpected results.
21205: .LP
21206: Functions declared as having local scope really have global scope.
21207: .LP
21208: Here documents inside functions do not work correctly.
21209: .LP
21210: Exit on error (\fBset \-e\fP or \fBset -o errexit\fP) does not work
21211: correctly.
21212: .TH TEST 1 "January 1988" "Korn shell"
21213: .ta 30n
21214: .de X
21215: .br
21216: \\$1\t\\$2
21217: ..
21218: .SH NAME
21219: test \- test condition (Korn and 8th edition)
21220: .SH SYNOPSIS
21221: \fBtest\fP \fIexpression\fP
21222: .br
21223: \fB[\fP \fIexpression\fP \fB]\fP
21224: .SH DESCRIPTION
21225: \fBTest\f evalutates the \fIexpression\fP and returns zero status if true,
21226: and non-zero status otherwise.
21227: It is normally used as the controlling command of the \fBif\fP and \fBwhile\fP statements.
21228: .LP
21229: The following basic expressions are available.
21230: .IP
21231: .X "-r file" "file exists and is readable"
21232: .X "-w file" "file exists and is writable"
21233: .X "-x file" "file exists and is executable"
21234: .X "-f file" "file is a regular file"
21235: .X "-d file" "file is a directory"
21236: .X "-c file" "file is a character special device"
21237: .X "-b file" "file is a block special device"
21238: .X "-p file" "file is a named pipe"
21239: .X "-u file" "file mode has setuid bit"
21240: .X "-g file" "file mode has setgid bit"
21241: .X "-k file" "file mode has sticky bit"
21242: .X "-s file" "file is not empty"
21243: .X "-L file" "file is a symbolic link"
21244: .X "-S file" "file is a socket"
21245: .X "file -nt file" "first file is newer than second file"
21246: .X "file -ot file" "first file is older than second file"
21247: .X "file -ef file" "first file is the same file as second file"
21248: .X "-t filedes" "file descriptor is a tty device"
21249: .IP
21250: .X "string" "string is not null"
21251: .X "-z string" "string is null"
21252: .X "-n string" "string is not null"
21253: .X "string = string" "strings are equal"
21254: .X "string != string" "strings are not equal"
21255: .IP
21256: .X "number -eq number" "numbers compare equal"
21257: .X "number -ne number" "numbers compare not equal"
21258: .X "number -ge number" "numbers compare greater than or equal"
21259: .X "number -gt number" "numbers compare greater than"
21260: .X "number -le number" "numbers compare less than or equal"
21261: .X "number -lt number" "numbers compare less than"
21262: .LP
21263: The above basic expressions may be combined with the following operators.
21264: .IP
21265: .X "expr -o expr" "logical or"
21266: .X "expr -a expr" "logical and"
21267: .X "! expr" "logical not"
21268: .X "( expr )" "grouping"
21269: .SH AUTHOR
21270: Erik Baalbergen. Modified by Arnold Robbins.
21271: .rn LP P
21272: .TH GETOPTS 1 "January 1988" "Korn shell"
21273: .SH NAME
21274: getopts \- parse command options
21275: .SH SYNOPSIS
21276: .B getopts
21277: optstring name [arg ...]
21278: .SH DESCRIPTION
21279: .I getopts
21280: is used by shell procedures
21281: to parse positional parameters and to check for legal options.
21282: It supports all applicable rules of the command syntax standard
21283: (see Rules 3-10,
21284: .IR intro (1)).
21285: It should be used in place of the
21286: .IR getopt (1)
21287: command.
21288: (See the
21289: .BR \s-1WARNING\s0 ,
21290: below.)
21291: .PP
21292: .I optstring
21293: must contain the option letters the command using
21294: .I getopts
21295: will recognize;
21296: if a letter is followed by a colon,
21297: the option is expected to have an argument
21298: which should be separated from it by white space.
21299: .PP
21300: Each time it is invoked,
21301: .I getopts
21302: will place the next option in the shell variable
21303: .I name
21304: and the index of the next argument to be processed in the shell variable
21305: .BR \s-1OPTIND\s0 .
21306: Whenever the shell or a shell procedure is invoked,
21307: .B \s-1OPTIND\s0
21308: is initialized to
21309: .BR 1 .
21310: .PP
21311: When an option requires an option-argument,
21312: .I getopts
21313: places it in the shell variable
21314: .BR \s-1OPTARG\s0 .
21315: .P
21316: If an illegal option is encountered,
21317: .B ?\&
21318: will be placed in
21319: .IR name .
21320: .P
21321: When the end of the options is encountered,
21322: .I getopts
21323: exits with a non-zero exit status.
21324: The special option
21325: .RB `` \-\- ''
21326: may be used to delimit the end of the options.
21327: .P
21328: By default,
21329: .I getopts
21330: parses the positional parameters.
21331: If extra arguments
21332: .RI ( arg
21333: \&...) are given on the
21334: .I getopts
21335: command line,
21336: .I getopts
21337: will parse them instead.
21338: .PP
21339: So all new commands will adhere to the command syntax standard described in
21340: .IR intro (1),
21341: they should use
21342: .IR getopts (1)
21343: or
21344: .IR getopt (3C)
21345: to parse positional parameters
21346: and check for options that are legal for that command
21347: (see
21348: .BR \s-1WARNINGS\s0 ,
21349: below).
21350: .SH EXAMPLE
21351: The following fragment of a shell program
21352: shows how one might process the arguments
21353: for a command that can take the options
21354: .B a
21355: or
21356: .BR b ,
21357: as well as the option
21358: .BR o ,
21359: which requires an option-argument:
21360: .PP
21361: .RS
21362: .nf
21363: .ss 18
21364: .ta +.5i +1i
21365: \fBwhile getopts abo: c
21366: do
21367: case $c in
21368: a\(bvb) FLAGS=$FLAGS$c;;
21369: o) OARG=$OPTARG;;
21370: \e?) echo $USAGE 1>&2
21371: exit 2;;
21372: esac
21373: done
21374: shift OPTIND\-1\fP
21375: .fi
21376: .ta
21377: .ss 12
21378: .RE
21379: .PP
21380: This code will accept any of the following as equivalent:
21381: .PP
21382: .RS
21383: .nf
21384: .ss 18
21385: \fBcmd \-a \-b \-o "xxx z yy" file
21386: cmd \-a \-b \-o "xxx z yy" \-\- file
21387: cmd \-ab \-o "xxx z yy" file
21388: cmd \-ab \-o "xxx z yy" \-\- file\fP
21389: .fi
21390: .ss 12
21391: .RE
21392: .SH SEE ALSO
21393: intro(1),
21394: sh(1).
21395: .br
21396: getopt(3C)
21397: in the
21398: .IR "Programmer's Reference Manual" .
21399: .br
21400: .IR "UNIX System V Release 3.0 Release Notes" .
21401: .SH WARNING
21402: Although the following command syntax rule (see
21403: .IR intro (1))
21404: relaxations are permitted under the current implementation,
21405: they should not be used because they may not be supported
21406: in future releases of the system.
21407: As in the
21408: .B \s-1EXAMPLE\s0
21409: section above,
21410: .B a
21411: and
21412: .B b
21413: are options,
21414: and the option
21415: .B o
21416: requires an option-argument:
21417: .PP
21418: .RS
21419: .nf
21420: .ta +1i +1.5i
21421: \fBcmd \-aboxxx file\fP (Rule 5 violation: options with
21422: option-arguments must not be grouped with other options)
21423: \fBcmd \-ab \-oxxx file\fP (Rule 6 violation: there must be
21424: white space after an option that takes an option-argument)
21425: .fi
21426: .ta
21427: .RE
21428: .PP
21429: Changing the value of the shell variable
21430: .B \s-1OPTIND\s0
21431: or parsing different sets of arguments
21432: may lead to unexpected results.
21433: .SH DIAGNOSTICS
21434: .I getopts
21435: prints an error message on the standard error output
21436: when it encounters an option letter not included in
21437: .IR optstring .
21438: ./pdksh/INSTALL 644 653 1762 11466 5243743523 10471 0 ustar hlu BUILDING THE PD KSH
21439: ===================
21440:
21441: The PD KSH can be built in two ways. The default method uses
21442: the POSIX/ANSI compatability libraries in ./std. The
21443: alternative method is to build the ksh in ./sh without the ./std
21444: tree. The second method should be used only if a) you have a
21445: real POSIX environemnt or b) you have major difficulties with
21446: building the ./std tree.
21447:
21448: I have modified the source slightly to make standalone building
21449: simpler. Using -DNOSTDHDRS avoids attempts to include ANSI
21450: headers that may be lacking. I have built the shell this way on
21451: all Sun platforms and on a Bull DPX/2 (which has good POSIX
21452: support). The config file defines USE_SIGACT so that the shell
21453: will use the XPG3 signalaction() and friends. You should leave
21454: USE_SIGACT defined, sh/sigact.c contains an implementation for
21455: systems that lack this facility.
21456:
21457: It is recommended that you try using the ./std tree first. This
21458: avoids problems like BSD times() calls that do not return an
21459: indication of elapsed time and so on.
21460:
21461: Using ./std:
21462: ------------
21463:
21464: If you are on a Sun building it quite simple:
21465:
21466: make CONFIG=-D_BSD
21467:
21468: will do it. If you have a sun386 or sun3 and have gcc, it is
21469: worth using, just add CC="gcc -pipe" to the above command line.
21470: If you have SunOS 4.1 or later you probably need to add
21471: -DHAVE_SYS_STDTYPES
21472:
21473: Building on other systems may well be more difficult.
21474: Apparently the creating of the ./std/h tree causes problems on
21475: some systems.
21476:
21477:
21478: Notes on ./std:
21479: ---------------
21480:
21481: I have updated the Makefiles in ./std/stdc and ./tsd/posix to
21482: maintain the objects within the libraries. Ie.
21483: libstdc.a(strstr.o) If your make(1) doesn't know how to do this
21484: then you will need to modify the makefiles accordingly.
21485:
21486: In ReadMe.jrm, John MacMillan recommends being cautious of
21487: std/libstdc.a and using only those routines which your system
21488: lacks. Please note that I have tested virtually none of
21489: ./std/stdc. The Makefile contains target lines for most modules
21490: but most are commented out. I suggest you uncomment _only_
21491: those that you need.
21492:
21493: On the other hand std/libposix.a seems quite safe, and
21494: indeed provides a better times() call for BSD systems.
21495:
21496: Read ReadMe.jrm for more...
21497:
21498:
21499: Building without ./std:
21500: -----------------------
21501:
21502: On some systems it might be worth forgetting about ./std/lib*
21503: either because they proved too difficult to build or they seem
21504: unnecessary. As previously indicated I have done this on Sun's
21505: and on a Bull system. On Sun's it is perhaps not a great idea
21506: as you then get the system's times() call which does not behave
21507: the way the shell wants.
21508:
21509: In anycase to build without ./std, you simply cd to ./sh and
21510: either edit the Makefile accordingly, or use an appropriate
21511: command line. For instance:
21512:
21513: Sun with SunOS 4.0:
21514:
21515: cd ./sh
21516: ln -s ../std/stdc/strstr.c .
21517: ln -s ../std/stdc/memmove.c .
21518: make CFLAGS="-D_BSD -DNOSTDHDRS" \
21519: XOBJS="strstr.o memmove.o" LDLIBS="" LDFLAGS=""
21520:
21521: Note that we still need a couple of functions from ./std/stdc
21522:
21523: On the Bull system which is a POSIX compliant System V machine:
21524:
21525: cd ./sh
21526: make CFLAGS="-D_SYSV" LDLIBS="-lc_s" LDFLAGS=""
21527: make CC=gcc CFLAGS="-D_POSIX_SOURCE" LDLIBS="-lc_s" LDFLAGS=""
21528:
21529: INSTALLING:
21530: ===========
21531:
21532: This is quite simple.
21533:
21534: # cp ./ksh /bin
21535: # chmod 555 /bin/ksh
21536:
21537: The above assumes of course that you don't already have a
21538: /bin/ksh :-)
21539: The manual page ksh.1 should be copied to an appropriate
21540: location.
21541: BSD:
21542: # cp ksh.1 /usr/man/man1
21543: SYSV:
21544: # nroff -man ksh.1 > /usr/catman/u_man/man1/ksh.1
21545: # pack /usr/catman/u_man/man1/ksh.1
21546:
21547: Or something similar. For systems such as Sun's that really
21548: only ship with a C-shell environment, the ./etc directory
21549: contains a useful /etc/profile and /etc/ksh.kshrc file to
21550: provide a suitable environemnt for /bin/sh and /bin/ksh users,
21551: they should work, they are straight of my system and I use them
21552: on Sun,Bull and even an SCO system.
21553:
21554:
21555: PROBLEMS:
21556: =========
21557:
21558: Clearly building will not be so simple on all systems.
21559: Apparently some of the enum manipulations border on ilegal and
21560: cause some compilers problems. Curiously both gcc -ansi and the
21561: GreenHills compiler on the Bull system are quite picky and did
21562: not complain. Note if you want to use gcc -ansi you may well
21563: need to add some definitions, for instance the following all
21564: work on the sun386:
21565:
21566: CC=cc
21567: CC=gcc
21568: CC=gcc -ansi -Dsun -Di386 -Dsun386
21569:
21570: The last three items on the last line are normally all defined
21571: automatically, but this is disabled when -ansi is used. The
21572: system headers do not work unless they know what architecture is
21573: in use.
21574:
21575: On the Bull DPX/2 I used gcc-2.1, my gcc port will be available
21576: as of release 2.2. To save effort I found it necessary to copy
21577: stdio.h and stdlib.h to gcc's private include directory and edit
21578: them to remove unnecessary #ifdef's and unwanted #include's.
21579:
21580: If you find and fix a problem please fill in a copy of
21581: ./bug-report and e-mail it to [email protected]
21582:
21583: Enjoy!
21584:
21585: Simon J. Gerraty <[email protected]>
21586:
21587: ./pdksh/Changes.mlj 644 653 1762 3361 5243742730 11466 0 ustar hlu I got the pd-ksh from John MacMillan after he indicated that he
21588: had a version of it that had vi editing (I'd seen various versions
21589: with emacs-editing, but none with vi).
21590:
21591: It had a few bugs and areas which were not quite complete. I fixed
21592: (or at least tried) to fix several; there are still some things
21593: which I plan on doing (or at least looking into).
21594:
21595: Bugs fixed (or at least abated):
21596:
21597: vi-mode changes:
21598: - Changed memcpy() to memmove(), which fixed the trashing of
21599: the end of the edit buffer while inserting in the middle
21600: of a line or with use of '#'
21601: - using 'r' replacing the current character with ^@
21602: - typing ctrl-c resulting in next command being garbled
21603: - lack of support for '-' and '+' (pretty trivial)
21604: - finish adding support for '*' (not entirely sure I'm freeing
21605: malloc'ed memory correctly here, but I haven't had any problems)
21606: - treats '_' as end of a word
21607:
21608: general changes:
21609: - reporting "not found" when a file actually doesn't have
21610: the appropriate execute bit set (now says "cannot execute"
21611: or "not found", as appropriate)
21612:
21613:
21614: Still to do:
21615:
21616: vi changes:
21617: - fix ctrl-r (I've come up with a hack, but it involves
21618: redrawing the screen a lot when it isn't necessary; I
21619: really wouldn't consider this a fix)
21620: - add support for 'v'
21621:
21622: general changes:
21623: - seems to be a memory leak when executing shells in the
21624: current shell; repeatedly executing ". /etc/profile"
21625: increased the size of the program as reported in the
21626: "SZ" field of "ps -l"
21627: - don't give a file its complete pathname in argv[0]; only
21628: its filename (religious issue?)
21629: - history recall should start at the previous command, not
21630: the current one (typing "r r" causes an infinite loop)
21631: ./pdksh/ChangeLog 644 653 1762 2332 5243743644 11166 0 ustar hlu Sat Aug 1 17:11:24 1992 Simon J. Gerraty (sjg@zen)
21632:
21633: * Incorporated massive contribution from Peter Collinson
21634: Refer to Changes.pc
21635:
21636: * Incorporated Emacs-style completion provided by
21637: [email protected] this a bit nicer than the standard ksh
21638: file completion.
21639:
21640: Sun May 3 17:50:03 1992 Simon J. Gerraty (sjg@zen)
21641:
21642: * Updated MACHINES.
21643: * Placed source under CVS. This should help with processing fixes
21644: from the field.
21645:
21646: Sat Apr 25 10:53:20 1992 Simon J. Gerraty (sjg@zen)
21647:
21648: * Getting ready for 4.3 release.
21649:
21650: Fri Nov 22 22:24:29 1991 Simon J. Gerraty (sjg at zen)
21651:
21652: * Cleaned up the build process slightly. Makefiles in ./std tree
21653: now maintain objects within the libraries rather than simply
21654: building the .o's and archiving them. Of course the make(1) used
21655: must know how to maintain libraries :-)
21656:
21657: * Added bug.report as a template for bug reporting.
21658:
21659: * Source in ./sh can be built independently of ./std tree if
21660: desired. See comments in ./sh/Makefile.
21661:
21662: * As originally distributed some of libstdc.a was not used and
21663: libposix.a was not used at all. On Sun's this highlighted a bug
21664: (incompatibility) in the times() call. Now the ./std/libs are
21665: used fully, and the supplied times() call functions as expected.
21666:
21667: ./pdksh/MACHINES 644 653 1762 3150 5243743645 10526 0 ustar hlu This file documents some the machines that pdksh has been build
21668: on and notes that apply.
21669:
21670: Notes:
21671: (1) Built and tested by me (sjg), seems ok :-)
21672: (2) Reported ok (may mean earlier version)
21673: (3) Reported no good
21674: (4) Built with ./std/lib*
21675: (5) Built without ./std/lib*
21676: (6) No job control
21677:
21678: If you succesfully build this shell on another system please let
21679: me know.
21680:
21681: System, OS Notes Compiler/Flags
21682: -------------------------- ----- --------------
21683: sun386, SunOS 4.0.2 1,4 {cc,gcc} -D_BSD
21684: sun4c, SunOS 4.1.1 1,4 {cc,gcc-2.1} -ansi -D_BSD -DHAVE_SYS_STDTYPES
21685: sun3, SunOS 4.0.3 1,4 {cc,gcc} -D_BSD
21686: sun3, SunOS 4.1.1 1,4 {cc,gcc} -ansi -D_BSD -DHAVE_SYS_STDTYPES
21687: Bull DPX/2, B.O.S. 2.00.45 1,5 {cc,gcc-2.1} -ansi -D_POSIX_SOURCE
21688: Bull XPS-100 1,6 cc -D_SYSV -DUSE_SIGNAL
21689: i386, BSDI BSD/386 2
21690:
21691: NOTES:
21692: The table above sumarizes the config used. {cc,gcc} indicates
21693: either compiler can be used. If gcc-2.1 rather than gcc is
21694: indicated then gcc < 2 may not work. This is at least true of
21695: sun4c (sparc) systems.
21696:
21697: Bull DPX/2:
21698:
21699: pdksh is not needed on this system. It is simply used as a
21700: System V / POSIX test bed. Build without ./std tree. I only
21701: tried with gcc-2.1. -D_SYSV must be left out of CFLAGS for POSIX
21702: functions such as sigaction() to be used.
21703:
21704: Bull XPS-100:
21705:
21706: Be sure to rm std/h/dirent.h std/h/sys/types.h and undef JOBS as
21707: the kernel does not support it. This machine has a sigaction()
21708: implementation that appears to be faulty. A SIGINT terminates
21709: the shell, when using the system's sigaction(). Undefining
21710: USE_SIGACT does the trick. sigact.c can now be forced to build
21711: by defining USE_SIGNAL, but this is not tested on the XPS.
21712:
21713: ./pdksh/ReadMe.jrm 644 653 1762 11527 5243742743 11310 0 ustar hlu BUILDING THE PD KSH
21714: ===================
21715:
21716: As usual, there are differences between BSD and System V
21717: versions. Ideally, all you have to do is edit the Makefile in
21718: this directory to set the CONFIG macro to the appropriate value.
21719: (Actually, you may wish to change the CONFIG macro in all
21720: Makefiles; if you always invoke make(1) from here, CONFIG will
21721: be passed down, but if you invoke make(1) from a subdirectory
21722: you'll want the appropriate definition in that Makefile.)
21723:
21724: Of course it's not quite that simple. You may, however, take
21725: solace in the knowledge that it used to be worse.
21726:
21727: The Compatibility Libraries
21728: ---------------------------
21729:
21730: Eric Gisin wrote this shell using ANSI C and POSIX as
21731: portability guidlines. Realizing that nobody had a POSIX
21732: system and almost no one had an ANSI C environment, he provided
21733: minimal compatibility libraries.
21734:
21735: There are two libraries, one for POSIX (libposix.a) and one for
21736: ANSI C (libstdc.a).
21737:
21738: Libposix.a is pretty simple. Nothing in it has ever broken on
21739: me, so I'd just leave it. It provides a version of dup2() for
21740: System V systems.
21741:
21742: Libstdc.a is a bit hairy. I recommend looking at the routines
21743: provided and, and editing the std/stdc Makefile and only
21744: including objects that have routines your system libc.a is
21745: lacking. Various of the provided routines are just plain
21746: flaky, but only when they're not really needed. The other
21747: hairy thing he does is craft an ANSI stdio.h from the system
21748: supplied one and one of his own. Again, it's better than it
21749: used to be, but it's still a hack, and you may have to modify
21750: it by hand.
21751:
21752: You will also need a POSIX compatible set of directory reading
21753: routines. System V.3 systems have this in libc.a. The
21754: std/posix directory provides a something for BSD systems. I
21755: use a slightly modified version of Doug Gwyn's PD version.
21756:
21757: (The ``slightly modified'' is to work around a bug in Gwyn's version.
21758: The POSIX routines are documented as returning failure if the file for
21759: opendir(3) is not a directory. Gwyn attempts to open(2) the file, and
21760: then stats it to see if the file is a directory. However, if the file
21761: is a special file, and the open(2) doesn't return, you're screwed. My
21762: change was to open the file with the O_NDELAY flag, but Gwyn didn't
21763: feel this was portable (true, but I only do it where it works) and
21764: that stat-ing before the open would be too slow (true). The upshot is
21765: if you use his routines unmodified, don't ever do an "ls -l /dev/*/*".)
21766:
21767: The Shell Source
21768: ----------------
21769:
21770: The source for the shell itself is in the sh directory. There you
21771: will want to edit config.h to determine the configuration options. Vi
21772: mode is in kind of rough shape, but does work. DIRSTACK routines
21773: aren't implemented yet, so again, why bother. SWTCH is a bit arcane,
21774: but it you use shl(1) and you define EMACS or VI you want to define
21775: this. JOBS is really only useful on BSD systems. It might work on
21776: systems that have POSIX job control, but I wouldn't bet on it.
21777: SHARPBANG is only useful on systems where the exec() family don't
21778: honour the #!/prog/path convention.
21779:
21780: This is where the shell gets built so you may wish to change
21781: the OTHERLIBS macro in the Makefile to point to your POSIX
21782: directory routines, or to use -lc_s, or whatever.
21783:
21784: Miscellaneous
21785: -------------
21786:
21787: The Makefiles that actually compile things use the macro
21788: CCOPTS, so you can change it in individual Makefiles or specify
21789: it on the command line, eg. "make CCOPTS=-O OTHERLIBS=-lc_s".
21790: LDOPTS is used in the Makefile where the ksh is actually built.
21791:
21792: The very first time on a new system, do a "make clobber"
21793:
21794: Good luck.
21795:
21796: Documentation
21797: -------------
21798:
21799: The ksh.1 is a man page for the PD ksh, although it lags
21800: somewhat behind the code. You get what you pay for.
21801:
21802: The ksh88.1 is a man page for AT&T's ksh88 (the latest version)
21803: provided for comparison.
21804:
21805: History
21806: -------
21807:
21808: Much of the shell was written by Eric Gisin at the University
21809: of Waterloo, using some pieces of other stuff, notably Charles
21810: Forsythe's V7 shell, and some enhancements from the BRL shell.
21811: He placed it (in a alpha test state) into the public domain
21812: while I was at UW. I snarfed a copy, and got it running on my
21813: UNIXpc, and later some machines at work. I sent Gisin some bug
21814: reports, but he seems to have lost interest in the project.
21815: This may be because he now does some work for MKS, who produce a
21816: commercial version of the ksh for MS-DOS machines, so there may
21817: be a conflict of interest.
21818:
21819: So I gave up on getting future versions, and adopted it. I've
21820: made some enhancements, and quite a few bug fixes, and various
21821: people at work have contributed as well. It remains in the
21822: public domain, although I imagine the people involved would
21823: appreciate leaving their names attached (I'm exempt; I haven't
21824: actually included my name anywhere but here).
21825:
21826: The README in the sh directory is Gisin's, and tells a bit of
21827: the story from his point of view. Note that his compilation
21828: instructions don't really apply anymore.
21829:
21830: John R. MacMillan
21831: ./pdksh/MANIFEST 644 653 1762 10307 5243743645 10567 0 ustar hlu File Name Archive # Description
21832: -----------------------------------------------------------
21833: ChangeLog 1 Current change history
21834: Changes.jrm 1
21835: Changes.pc 1
21836: Changes.mlj 1
21837: INSTALL 1 Installation notes
21838: MACHINES 1 Systems the shell has been built on
21839: MANIFEST 1 This shipping list
21840: Makefile 1
21841: PATCHDATES 1 C-News style patch tracking
21842: README 1 Please read
21843: ReadMe.jrm 1 General info and Install instructions
21844: ReadMe.sjg 1
21845: ReadMe.vimode 1
21846: bug-report 1 Bug report template
21847: etc 1
21848: etc/ksh.kshrc 1 global .kshrc
21849: etc/profile 1
21850: etc/sys_config.sh 1
21851: ksh.1 2 Manual page
21852: sh 1 ksh source
21853: sh/ChangeLog 2 Current change list
21854: sh/Changes 1
21855: sh/Makefile 2
21856: sh/ReadMe 1 Original ReadMe (out of date)
21857: sh/alloc.c 2
21858: sh/alloc.h 1
21859: sh/c_ksh.c 3
21860: sh/c_sh.c 3
21861: sh/c_test.c 3
21862: sh/config.h 1
21863: sh/edit.c 3
21864: sh/edit.h 3
21865: sh/emacs.c 4
21866: sh/eval.c 4
21867: sh/exec.c 5
21868: sh/expand.h 3
21869: sh/expr.c 3
21870: sh/getopts.c 5
21871: sh/history.c 5
21872: sh/io.c 5
21873: sh/jobs.c 6
21874: sh/lex.c 5
21875: sh/lex.h 5
21876: sh/mail.c 6
21877: sh/main.c 6
21878: sh/misc.c 6
21879: sh/patchlevel.h 6 version/patch level.
21880: sh/proto.h 1 Prototypes for ANSI compilers.
21881: sh/sh.h 6
21882: sh/sigact.h 6 Header for sigaction() implementation.
21883: sh/sigact.c 6 sigaction() implementation.
21884: sh/stdh.h 6 Centralise std header inclusion.
21885: sh/syn.c 7
21886: sh/table.c 7
21887: sh/table.h 7
21888: sh/trace.c 7 Simple trace facilty
21889: sh/trace.h 7
21890: sh/trap.c 7
21891: sh/tree.c 7
21892: sh/tree.h 7
21893: sh/tty.h 1
21894: sh/do_ulimit.c 7
21895: sh/var.c 8
21896: sh/version.c 3
21897: sh/vi.c 8
21898: std 1 libraries
21899: std/Makefile 3
21900: std/mklinks 1 make symlinks
21901: std/posix 2
21902: std/posix 4 posix lib source
21903: std/posix/ChangeLog 4 change history
21904: std/posix/Makefile 5
21905: std/posix/dirent.C 7
21906: std/posix/dirent.H 7
21907: std/posix/dirent.h 7
21908: std/posix/dup2.c 7
21909: std/posix/fcntl.c 7
21910: std/posix/fcntl.h 7
21911: std/posix/fixincludes 8
21912: std/posix/io.h 8
21913: std/posix/time.h 8
21914: std/posix/times.c 8
21915: std/posix/times.h 8
21916: std/posix/unistd.c 9
21917: std/posix/unistd.h 9
21918: std/posix/wait.h 9
21919: std/stdc 5 stdc lib source
21920: std/stdc/ChangeLog 7 change history
21921: std/stdc/Makefile 9
21922: std/stdc/clock.c 9
21923: std/stdc/fprintf.c 9
21924: std/stdc/limits.h 9
21925: std/stdc/memchr.c 8
21926: std/stdc/memcmp.c 9
21927: std/stdc/memcpy.c 9
21928: std/stdc/memmove.c 9
21929: std/stdc/memset.c 9
21930: std/stdc/setvbuf.c 9
21931: std/stdc/sprintf.c 9
21932: std/stdc/stdarg.h 9
21933: std/stdc/stddef.h 9
21934: std/stdc/stdio.c 9
21935: std/stdc/stdio.h_std 9
21936: std/stdc/stdio.sed 9
21937: std/stdc/stdlib.h 9
21938: std/stdc/strcat.c 9
21939: std/stdc/strchr.c 9
21940: std/stdc/strcmp.c 9
21941: std/stdc/strcpy.c 9
21942: std/stdc/strcspn.c 9
21943: std/stdc/strerror.c 9
21944: std/stdc/string.h 9
21945: std/stdc/strlen.c 9
21946: std/stdc/strncat.c 9
21947: std/stdc/strncmp.c 9
21948: std/stdc/strncpy.c 9
21949: std/stdc/strpbrk.c 9
21950: std/stdc/strrchr.c 9
21951: std/stdc/strspn.c 9
21952: std/stdc/strstr.c 9
21953: std/stdc/strtok.c 9
21954: std/stdc/time.h 9
21955: std/stdc/types.h 9
21956: std/stdc/vprintf.c 9
21957: ./pdksh/Changes.jrm 644 653 1762 4477 5243742753 11512 0 ustar hlu Changes to the PD ksh since last time:
21958:
21959: - clean up the option configuration stuff. Options in config.h should
21960: now just be #define'd or not, not #define'd to 1 if you want them
21961: and 0 if you don't
21962:
21963: - ksh now uses the shell specified by the variable EXECSHELL to run
21964: shell scripts. If EXECSHELL is unset or null it defaults to
21965: /bin/sh. It does a path lookup on the value, so if you set it to
21966: ``ksh'' the ksh will run all scripts that don't start with #!. It
21967: seems to run most sh scripts fine (now). I'd be very interested to
21968: hear your experiences if you try this out, as for my next trick I'd
21969: like to make ksh just fork itself to run scripts, which would speed
21970: things up, and allow exportable functions and aliases (like he real
21971: ksh). Just to assure you that it can do some hairy sh scripts, both
21972: CC and coco work with ksh.
21973:
21974: EXECSHELL won't work if the system's exec(2) call runs scripts...
21975:
21976: - the ``let'' builtin now evaluates null or unset vars to 0, as per
21977: The Book
21978:
21979: - Various memory allocation/use problems were cleaned up. Hopefully
21980: you'll never see the ``freeing free object'' error again (if you've
21981: ever seen it).
21982:
21983: - the ``test'' builtin is now much more tolerant in parsing its
21984: arguments. This was to make it like the /bin/sh test.
21985:
21986: - Temp files (for here documents or ``fc'') are now mode 0600
21987:
21988: - Some format strings in the tree printing routines got ``expanded''
21989: into SCCS keywords, so the results of``type <function>'' were
21990: gave you interesting things like the time I last checked in the
21991: file. This has been fixed.
21992:
21993: - ``unset -f'' now really does unset functions.
21994:
21995: - the ``trailing blank or tab in alias definition'' feature now works.
21996:
21997: - A bug in command completion was fixed. Note command completion only
21998: works on commands that have been hashed, so you want to ``set -h''
21999: in your .kshrc, and you may wish to force hashing of some common
22000: commands with the ``hash'' builtin.
22001:
22002: - ``echo $$ | cat'' now works as in /bin/sh
22003:
22004: Not new features, but newly discovered bugs:
22005:
22006: - Local functions don't work correctly. This shouldn't be much
22007: problem, since sh doesn't have them.
22008:
22009: - Here documents in functions don't work. This is a problem with the
22010: temp file allocation that requires more work to fix than I've gotten
22011: around to doing. So avoid things like:
22012:
22013: foo() {
22014: cat <<- HereDoc
22015: This is a test
22016: HereDoc
22017: }
22018: ./pdksh/ReadMe.sjg 644 653 1762 5273 5243742753 11265 0 ustar hlu HORIZONTAL SCROLLING
22019: ====================
22020:
22021: I have migrated my 3.2 ksh edit.c mods into the 3.3 ksh
22022: This file describes the mods in general and really only applies
22023: (at this stage) to emacs-mode. I have not touched vi-mode apart
22024: from making it use pprompt() so that '!' is correctly expanded
22025: as in emacs-mode.
22026:
22027: I would prefer to see both vi.c and emacs.c use a common set of
22028: primatives in edit.c - but that looks like a lot of work.
22029:
22030: Basically my mods affect the functions that move the cursor
22031: about and redraw the edit line.
22032:
22033: The input buffer "buf" is pointed to by "xbuf" and its end is
22034: pointed to by "xend". The current position in "xbuf" and end of
22035: the edit line are pointed to by "xcp" and "xep" respectively.
22036: I have added "xbp" which points to the start of a display window
22037: within "xbuf".
22038:
22039: [A] starting position
22040:
22041: buf
22042: |<-------- $COLUMNS --------->|
22043: | |<---- x_displen ------->|
22044: | PS1|
22045: +==========+==============--------+.......+
22046: |\ \ \ \
22047: xbuf xbp xcp xep xend
22048:
22049: [B] scrolled
22050:
22051: buf
22052: | |<----- COLUMNS -------->|
22053: | |<----- x_displen ------>|
22054: |
22055: +-----------+==========+==============--------+.......+
22056: \ \ \ \ \
22057: xbuf xbp xcp xep xend
22058:
22059: In the above -------- represents the current edit line while
22060: ===== represents that portion which is visible on the screen.
22061: Note that initially xbp == xbuf and PS1 is displayed.
22062: PS1 uses some of the screen width and thus "x_displen" is less
22063: than $COLUMNS.
22064:
22065: Any time that "xcp" moves outside the region bounded by "xbp"
22066: and "xbp" + "x_displen", the function x_adjust() is called to
22067: relocate "xbp" appropriately and redraw the line.
22068:
22069: Excessive I/O is avoided where possible. x_goto() for instance
22070: calculates whether the destination is outside the visible
22071: region, and if so simply adjusts "xcp" and calls x_adjust()
22072: directly. Normally though x_adjust() is called from x_putc().
22073:
22074: The above mechanism has be updated to use a function x_lastcp()
22075: that returns a pointer that accurately reflects the last
22076: visible char in the edit buffer. That is a more accurate
22077: version of xbp + x_displen which does not account for TABS.
22078:
22079: Other changes
22080: =============
22081:
22082: I have also added some emacs mode functions.
22083: M-[0-9]
22084: Set a numeric arg (positive only).
22085: Used by all word related commands.
22086: M-_
22087: M-.
22088: Retrieve word from previous command (default is last
22089: word). Use M-[1-9] to select word.
22090: M-u
22091: M-l
22092: M-c
22093: UPPER,lower,Capitalize word.
22094:
22095:
22096: Commands like delete-word now push the deleted text so that it
22097: may be yanked back into place.
22098:
22099: BUGS?
22100: =====
22101:
22102: There are bound to be some. Please report same to me:
22103:
22104: Simon J. Gerraty <[email protected]>
22105:
22106: ./pdksh/Makefile 644 653 1762 1420 5243743646 11053 0 ustar hlu # PD Bourne/Korn Shell
22107: # $Id: Makefile,v 1.3 1992/08/10 11:59:10 sjg Exp $
22108:
22109: SHELL = /bin/sh
22110: MAKE = make
22111: CC=gcc -pipe -g -O
22112: LN=ln -s
22113: #LN=ln
22114: #CONFIG= -D_SYSV
22115: CONFIG= -D_BSD
22116: #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
22117: #CONFIG= -D_V7
22118: #CONFIG= -D_ST # Atari ST
22119: #CONFIG= -D_BSDI -D_POSIX_TERM # BSD/386
22120: MANPAGES = ksh.1
22121: #MANDIR=/usr/catman/u_man/man1
22122: #MANDIR=/usr/man/man1
22123:
22124: #INSTALL=bsdinstall
22125: INSTALL=install
22126:
22127: all: ksh
22128:
22129: ksh: libs
22130: ( cd sh ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' $@ )
22131:
22132: libs:
22133: ( cd std ; $(MAKE) 'CC=$(CC)' 'CONFIG=$(CONFIG)' 'LN=$(LN)' libs )
22134:
22135: install: sh/ksh
22136: ( cd sh ; $(INSTALL) -s ksh $(DESTDIR)/bin )
22137:
22138: sh/ksh: ksh
22139:
22140: inst-man: $(MANPAGES)
22141: $(INSTALL) -c -m 444 $(MANPAGES) $(MANDESTDIR)/man1
22142:
22143: clean clobber:
22144: ( cd std ; $(MAKE) $@ )
22145: ( cd sh ; $(MAKE) $@ )
22146: -rm -f *.out
22147:
22148: ./pdksh/ReadMe.vimode 644 653 1762 2445 5243742767 11770 0 ustar hlu
22149: The changes I have made are all relevant to the VI edit mode. The vi-edit
22150: source seems mostly complete, so these changes are minimal. What is available
22151: now is pretty useful. I will make further fixes as I notice the bugs (or
22152: anyone else does).
22153:
22154: A summary of changes follows:
22155:
22156: 1) two changes to turn on the vi-editing feature.
22157: 2) motion edit fix: back space and space bar now do something: have
22158: the same behaviour as the 'h' and 'l' keys.
22159: 3) input edit fix: backspace key now works.
22160:
22161: Known bugs (not fixed yet):
22162:
22163: a) proviso on 1) and 2) above: the backspace key was hardwired to the
22164: <delete> key. I have temporarily extended it to include the '^H' or
22165: <backspace> key. I will generalize this to use whatever key is defined
22166: as the erase character by stty.
22167:
22168: b) the interrupt key does not clear the edit buffer. This means the next
22169: edit command after an interrupt will be garbage.
22170:
22171: c) Same sort of thing as b) occurs for the <EOF> key.
22172:
22173: d) insertions near the beginning of an edit buffer seem to screw up the rest
22174: of the buffer.
22175:
22176: Known missing features:
22177:
22178: a) search edit commands: [count]-, [count]+
22179: b) text modification edit commands: P, p, *
22180: c) r (replace) doesn't seem to work too well.
22181: d) tilde does not do anything (should reverse upper to lower and vice versa)
22182:
22183: e) ! in prompt doesn't get expanded to history number
22184: ./pdksh/bug-report 644 653 1762 2037 5243743673 11431 0 ustar hlu To: [email protected]
22185: Subject: [area]: [synopsis] [replace with actual area and short description]
22186:
22187: VERSION:
22188: PD KSH: 4.7 12-Aug-92
22189: [Official patches will edit this line to indicate the patch level]
22190:
22191: MACHINE and OPERATING SYSTEM:
22192: [e.g. Sparc/SunOS 4.1.1, DECstation 3100/Ultrix 4.2, ...]
22193:
22194: COMPILER:
22195: [e.g. native cc, native ANSI cc, gcc 1.40, ...]
22196:
22197: AREA:
22198: [Area of the source tree affected,
22199: e.g., std/posix, std/stdc, sh]
22200:
22201: SYNOPSIS:
22202: [Brief description of the problem and where it is located]
22203:
22204: DESCRIPTION:
22205: [Detailed description of problem. Please provide as much detail
22206: as you can manage. The more information we have the more likely
22207: a fix]
22208:
22209: SAMPLE FIX:
22210: [Preferred, but not necessary. Please send context diffs (diff -c)
22211: name old file first. eg. diff -c file.c.old file.c]
22212:
22213: [PLEASE make your Subject: line as descriptive as possible.
22214: Subjects like "pdksh bug" or "bug report" are not helpful!]
22215: [Remove all the explanatory text in brackets before mailing.]
22216: [Send to [email protected]]
22217: ./pdksh/Changes.pc 644 653 1762 2110 5243743644 11302 0 ustar hlu Changes by Peter Collinson - Hillside Systems/BSDI - July 1992
22218:
22219:
22220: a) Add select command - this cannot be ksh without that.
22221: (It NEEDS typedefs too)
22222: b) Remove all the bcopys from vi.c
22223: add
22224: #define memmove in sh.h for BSD systems
22225: c) Add <Esc>* command to vi mode - expands to a list of files
22226: using the menu printing routine
22227: d) Add my version of history, that works much like the `proper' ksh
22228: storing data in a file that is shared between different invocations
22229: of the shell.
22230: e) Add the ability to redirect to am expansion... ie
22231:
22232: ls > o*
22233: if o* is unique then it puts it into the file that matches
22234: otherwise it puts it to a file called o*... this is current
22235: behaviour.
22236: f) Add alternations, from Csh.d) This is not part of ksh but is something
22237: that csh users really miss from the Bourne shell derivatives. The idea
22238: is that lists inside curly braces expand to arguments. ie.
22239: exampl{a,b,c,d,e}
22240: will expand to 5 arguments
22241: exampla examplb examplc exampld example
22242: Recursive lists are permitted.
22243: g) Add suspend as a built-in alias.
22244: h) Port to BSD/386 - add _POSIX_TERM and _BSDI as defines.
22245: ./pdksh/ksh 755 653 1762 262000 5302770105 10153 0 ustar hlu & P& X ��C& �- � ̀�\ `�-: �D$�4 `�: P� `[�& ̀��r $Id: version.c,v 1.6 1992/08/12 14:15:53 sjg Exp $ $Id: main.c,v 1.6 1992/08/12 14:15:39 sjg Exp $ ${SHELL:=/bin/sh} ${PATH:=/bin:/usr/bin:.} ${HOME:=/} ${PS1:=$ } ${PS2:=> } ${PS3:=#? } ${MAILCHECK:=600} cd . typeset -x SHELL PATH HOME -r PWD OLDPWD -i SECONDS=0 OPTIND=1 alias integer=typeset -i pwd=print -r "$PWD" history=fc -l r=fc -e - nohup=nohup login=exec login newgrp=exec newgrp type=whence -v functions=typeset -f echo=print true=: false=let [=\[ suspend=kill -STOP $$ PPID RANDOM # PS1 r %s: cannot open
22246: /etc/profile .profile ENV ��UWVS�\$,�D@& �D$ �D$ �<_& ��^& ��^& �(_& �@_& ��^& ��^& �,_& ��^& �|^& & �$_& �� h�b& � & ����^& h�^& � & ����^& d& ��^& ��^& � j � !& ��j&�!& ��j�!& ����
22247: & h�b& h _& �& ��h�b& hb& �& ��h�b& h�^& �& ��h�b& h�`& �& ��� & ��t�; t���3�&& �����; u��m `�t^& j j h0P& ��& �� j j hP& ��& �� �i! 1��=�� t!��� ��� �t��3��� ����F�; u�1��=�� t!��� ��� �t��3�ͦ ����F�; u�j h� �}"& ����& `Pj jh# �^& �� P��& ��j h & h# �A& �� j ��
22248: `��Pj jh( �%& �� P�& ���8P& �=8P& t6�����; t�h�^& �3�� ������; u�V� � ���s�{ u�h�^& �& ���{ `f��uh/ h2 � & ��P�
& ��j�/ ���Ë=`b& �{1�L$(�9�|$�& �|$$&�& �A�8-uq�x& tk�QB� �: t]���L$����<ct<qt&�0�& 9t$$~6�C �L$�9�;�D$F� ���D$ & �����<w ����c& B�: u��{�� 9t$$~}�=d& ut�L$(�<��|$�{Fh6 �t$�c��_���C��u�t$h8 �� & ���D$& �s� ��_��P� & ��P�s�� `��h j j �s� `���{u]�s����_����u�d& &j �A& `����t j&�3& `����t��u�|$ u� d& &�= d& t�=d& t�C& �{&u%j
22249: j j ���_�� �tQ& j&jP���_�� �:R 荮 �|$ u
22250: j�'� ���L$(���(d& �|$$)��=$d& �(d& �L$���� �|$�?-u!� d& &hI � ��hV � ��j h_ �z& ��P�e
22251: & ��P�` & ���: t R� ���= d& t$j h$_& j�v `�� j�� ���T5 � ���d& &�{&u �
d& &�g� �= d& t S�x& ��S�� ���D$$�t$$� ��1�[^_]���- UWVS�l$�� � �� �tMh6 U�B��_����u 1�[^_]�S���_��P� & ��PS�� `��h j j S� `���� `b& j�G, ���X�hP�L ��9 `b& t S�K��_���& [^_]� S�\$j� , ���P� ��[�
22252: Use `exit'
22253: �� VS�t$�D$
�D$ j&�8 ����^& & � a& h�^& ���_����t8�$b& ��t
h� � & ���D$��t�~&u �~ t�N ��R& ��$b& ��t�� �= d& tj h$_& j� `�� �~ u
22254: �d& �V�g� �~&��%� �D$ ��u�~u+j h2 �%& ��P�& ��P� & ���_& �4& �D$& V� �����D$ �f� ��tB�; u=�D$ ��te�=d& t\�D$H�D$�D$��~Kh� �
& ���F& ������j�Q& ���=d& t�~&u j S�� ���& ��������& � a& [^�� Ã=�^& u�=�^& t�Q h�R& �۽ ���= d& t�& ��� �t$���_����=d& u �= d& u
22255: j&������� � ��^& ��&t ��t �.����t�%�j&�u�����j&h�^& �n��_��j&h�^& �`��_�[ 빐WVSh�^& j4��& ���É߾�^& ��
�h�^& �?& ���L$�
�^& � �^& ��^& ��^& [^_�UWVS�-�^& ��u�5 a& �/��_����M9
�^& t��& �=�^& t 1ې��^& �XPS�& ��C�� ~��" ��^& ����
�h�^& U�4& ��[^_]�S� �^& ��t��s�� `�����u���^& h�^& �w& ��[�alloc internal error: %s
22256: �t$h6 �& ��� $Id: misc.c,v 1.3 1992/08/12 14:15:42 sjg Exp $ S�T$�\$ ��}�a& �b& �� @9�~��
a& ����a& B�: u�[�0123456789
22257: |&;<>() *@#!$-? =-+?#% �ea& �~a& ���&@9�~��Ea& �^a& ���&@9�~��
ca& &jh� �e�����jh� �V�����jh� �G�����j@h� �8������0123456789ABCDEF S�D$�\$ ��V& ��V& ���I1���`
���u��[� ��W�L$ ��u1�_��ÐQ�t$0҉ψ���������щL$ �t$ �:& ���D$�t$�6 `���D$�D$_���allexport bgnice emacs errexit hashall ignoreeof interactive keyword markdirs monitor noexec noglob nounset privileged stdin trackall verbose vi xtrace VS�t$ ��P& �=�P& t V�3�`��_����u �C[^Ð�����; u�1�[^� �� ��a �����c& t�Ј&AB��z~��& h�^& �D$P�������� �%s
22258: S��P& �=�P& t$��C�� d& t�3h �& �����; u�h
��& ��[�%s: bad number
22259: VS�t$ ��>-u�N&1�� ����\B�A�&��a& $u�9 tVhR �|& ���>-u��[^� VS�t$ �\$��t>��u~�8�F���uo�C<?t$<*t*�T<[uP��tRS�q ���Å�uL�����uD1�[^Ð��N����; tSV��������t �& [^Ð�F��u��ϐ���C�9�t��9�u��C���x����> ��%� [^� WVS�T$�|$1�1ۀ:�u
22260: B�:!����tB��:�u&B�: t=�
22261: �z&-u�z]t
22262: �BB������9�t 9��& B�:]u�9�t�B&[^_Ð�1�[^_Ð�1�[^_� �T$�t$ �L$ �� &�PR� �� �UWVS�D$+D$������ &����"& �L$�<����t$�l$�����9�s,�3�6�L$$�у���u����� ���ސ���}���Ӑ��9�vd�u �7�L$$�у���u����M ��E �ې����~49�u����M � ��M �����븋�M ��E ������s���������뛐��9�uT��+T$���D$)���9�| �t$ �t$ �GP� ����� �\$�&�����t$ S�t$ ������� ���|$������������E ��M � �������������[^_]� �t$�t$����_���/ UWVS�|$�\$ �Q 1��ڀ?/t&�L$���&�AB��u��C9�r �z�/uJ����B�/���9 ti��&�AB</uC�C&9�v<�z�/uJ�3���z�.u+�z�/u���� ����z�.u�B��z�/u�9�vH�8/u��P&�9 u���u��y�/t��& ��땐���z�/u �B�9�v��� [^_]� $Id: syn.c,v 1.3 1992/08/10 12:03:10 sjg Exp $ ��V& �,b& ��V& & j �G ����V& ��uj � ����V& 1�Ð�g& ��V& j j
22263: �& ���=,b& ��%� � WVS1��t$� ���Dž��� ��=�V& t��V& ��V& ���j �� ����V& ��|uHj&�Q ���Å�u�� ��uj SWj�$ ���lj�룐��j S�vj� ���F��뉐��V& & ��[^_�WVSj �R������Dž��� ��=�V& t��V& �5�V& ��j �! ����V& �Ɓ�&& t��& u;j&� ������Å�u�. j SW� ��&& u� P�j ����닐����V& & ��[^_�VS1��W����ƅ��� ��=�V& t��V& ��V& ���j � ����V& ��;t%��&t%�=L_& u��`& �zt�zu|��
22264: uw��&u+��tj j �sj�� ���C�j j Vj� �����������u��[^Ð��uj PVj� ���Ɖ��Q����j P�sj� ���C���6�������V& & ��[^�too many <<'s
22265: S�=�V& t
22266: ��V& � �����V& & �t$� ����V& =& t1�[���V& � P_& j h & �P ���P_& �S�C����u4�=�b& t�K�=\b& \b& r
h� �
& ���\b& ��\b& ��[� �=�V& t��V& ��V& ����t$�� ����V& 9D$t� � WVS�|$�\$�L_& ������jS�������
L_& j j VW�8
��[^_�too many redirections unexpected EOF let invalid function name
22267: �� UWVS�|$01�h�^& j,� & ���D$h�^& j@� & ���D$$�D$ ��@�D$(h�^& j@�n & ���D$�D$��@�D$ �=L_& t�& �� �t$���W�&�������t �� ~
h �~ ��� ��E����ԃ=�V& t��V& � �V& ��W� ����V& �Á� & �� J��{�� ��t��(�z � ���& �| �� & �� �l�� & � �^����& �� ��
& F� ���& td��& �f �(��& �$ ���h1 � ��1�[^_]�� ��V& & ��u
22268: 1�[^_]�� �j&� �����~ �����V& & j&� ���ǁ�& �� ��V& �T$(9T$ r9�\$ +\$$��h�^& �� P�t$,�
& �� �D$$����&T$ &Ӊ\$(�D$ � @ �D$ jh & �������T$(9T$ r9�\$ +\$$��h�^& �� P�t$,�& �� �D$$����&T$ &Ӊ\$(�D$ �P_& ��D$ �T$�4��=�V& t��V& ���V& & j � ����V& =& t = & t;�U ��=& �& �C �� ~
h � ��j ���������E���V& �D$ +D$$��t �= d& tlj=h�b& �x��_����tY�T$ 9T$r9�\$+\$��h�^& �� P�t$ �& �� �D$����&T$&Ӊ\$ �D$�P_& ��D$� ����T$(9T$ r9�\$ +\$$��h�^& �� P�t$,�Q& �� �D$$����&T$ &Ӊ\$(�D$ �P_& ��D$ ���������V& �D$ +D$$����&t�
22269: �=�b& u
hD �� ��j�
22270: ����h�^& h�b& �������Gj j{�������j}j�)������G��[^_]�� Ðj)j���j}j���������& �� �� & u� P� ����j h & ������h�^& h�b& �������G�L_& � �Gj �� ���G�
L_& �8& ��L_& � �� & u� P�: ���������Gj&� ���G�
L_& �� �j �
����j h & ��������P_& �W�L_& j h& �������� �Gjh
22271: & �+���L_& j
22272: � ����� ����G� �Gjh& �������
L_& �n���j&��������j j Wj� �����L�j�e ����j h & �T�����h�^& h�b& �B������Gj j{�3�����j}j�c������G�T$�4���j �i�������t �� ~
h �� ��� ��E����u h�^& �t$�b& ���G �-���T$�� h�^& �� P�t$�s& �� �T$�W �?&�� �T$(9T$ r9�\$ +\$$��h�^& �� P�t$,�5& �� �D$$����&T$ &Ӊ\$(�D$ � �D$ h�^& �D$$+D$($�P�t$,��& �� �G�T$ 9T$r9�\$+\$��h�^& �� P�t$ ��& �� �D$����&T$&Ӊ\$ �D$� �D$h�^& �D$+D$ $�P�t$ �& �� �G�"h�^& �t$(�.& ��h�^& �t$ � & ����[^_]�� �S�=�V& t��V& ��V& ��j �y ����V& =& u�|$ t1�[Ð��=& t� ������jh& �)�������[� S�=�V& t��V& ��V& ��j � ����V& =& t��V& & 1�[�j �� �����'����C��u� �
22273: �C��[� S�=�V& t��V& ��V& ��j � ����V& =& t
22274: =& t�5��������u%� � ��j
�] ���������C�+����C��[���V& & 1�[� VS1�1����=�V& t��V& ���V& & j � ����V& =
22275: & t �# ��u�É��F 뺐��C��뱐��[^� �� VSh�^& j@�3 & ���D$ �D$��@�D$j� ���ƻ �=�V& t��V& ��V& ���j � ����V& ��(t ��V& & �1ې�Sh & �U������T$9T$r9�\$+\$ ��h�^& �� P�t$�� & �� �D$ ����&T$&Ӊ\$�D$�P_& ��D$1ۃ=�V& t��V& ��V& ���j �� ����V& ��|�h�����V& & �T$9T$r9�\$+\$ ��h�^& �� P�t$�[ & �� �D$ ����&T$&Ӊ\$�D$� �D$h�^& �D$ +D$$�P�t$� & �� �Fj j)�D����������F�=�V& t��V& ����V& & j �+ ����V& =
22276: & tj h& ���������[^�� � �� Sh�^& j@�P� ���D$�D$��@�D$ �=�V& t��V& ��V& �j �� ����V& =& t��V& & 1�[�� Ð�=�V& t��V& ��V& ���j �} ����V& = & uZ�T$ 9T$r9�\$+\$��h�^& �� P�t$��� �� �D$����&T$&Ӊ\$ �D$�P_& ��D$�u������
22277: t
22278: ��;t�A �D$+D$����uh�^& �t$ �\� ��1�[�� Ð��T$ 9T$r4h�^& �� P�t$�p� �� �D$�� ��T$�T$&ЉD$ �D$� �D$h�^& �D$+D$ $�P�t$�*� �� [�� � WVS�\$�t$�|$ �t$�@& ���X�p�x[^_�for select case esac while do done if in then else elif until fi function time { } t$ & x$ & $ & �$
22279: & �$ & �$ & �$ & �$ & �$ & �$ & �$ & �$ & �$
& �$ & �$ & �$ & �$ { �$ } S��$ �=�$ t3��3�� ��P�3h�^& �5� �� ��@ �S�P���; u�[�S�\$h�^& j �_� ����@ �@ �@ �@ �@ �@ [�syntax error h�% �n ��� S�\$�,b& �L_& �\b& 4b& � �`& ������t�����CH��&v�{u�TV& ��V& [� $Id: lex.c,v 1.3 1992/08/10 12:02:55 sjg Exp $ no closing quote excessive recusrsive aliasing ��dUWVS�l$4�=PW& tC�PW& ��Q& �
�Q& ��~ �����Q& �� W& � �����
�Q& �����Q& �D$0@ h�^& jH��� ���D$$��L$0�L$ �ƊD$x$t
22280: �D$ �s�D$x$t �D$ �a���D$ ��`& ��8 t�8���
�ǃ� t��� tۃ�#u&����`& ��8 t�8���_
�Dž�t��
22281: uܡ�`& ��=TW& t�TW& �L$x�L$�L$ �L$ �M ����`& ��8 t�8���
�Dž��� �|$ u����%� ��a& $�e 9t$ w:�\$$�L$0&L$0h�^& �D$4��PS�"� �� �D$$��L$0�L$ ��)؉�t$$� 9D$ �p����L$ �$��( ��( l, x, �, �, �, ) P- ��'tK ��"tT�j����\uh��`& ��8 t
22282: �8��
22283: ����7 �ǃ�
22284: t��` 9t$$�%���������E�D$ & �E &��E�D$ �E �F���������\t#��\��$�� � ��`� � ����`& ��8 t�8��� �ǃ�$�t�����
22285: �u�����"�`��������\�S�����`�J���9t$ w:�\$$�L$0&L$0h�^& �D$4��PS�� �� �D$$��L$0�L$ ��)؉�t$$�&F�\F�&�b ����`& ��8 t�8��� �ǃ�(uE�D$ �E �O ����{�'& E�D$ �E �F��`& ��8 t �8��
22286: ���
22287: �ǐ9t$ w:�\$$�L$0&L$0h�^& �D$4��PS��� �� �D$$��L$0�L$ ��)؉�t$$���ȈF��`& ��8 t�8����[
22288: �lj�����a& $u�� F��}�{& ��#t��%u5��`& ��8 t� ����
22289: 9�u �π �A ��`& ��5 ��:u+��F��`& ��8 t � ���
22290: ����� ���������F�������L$�ъ�a& $&�� �F�9t$ w:�\$$�L$0&L$0h�^& �D$4��PS��� �� �D$$��L$0�L$ ��)؉�t$$���ȈF��`& ��8 t�8����G �lj���%� ��a& $u�� F��h���a&
22291: tW9t$ w:�\$$�L$0&L$0h�^& �D$4��PS�^� �� �D$$��L$0�L$ ��)؉�t$$�F�L$�F� F� ����&F�$F��`& �����E�D$ �E �F�z�������'t�b�������"�����M�M �L$ �F�Q������(u E�L$ �M ����)u M�M �L$ �|$ �� � F� �������}�����M�M �L$ �F�&������`u� FM�M �L$ ��������\u@��`& ��8 t
22292: �8��
22293: ����� �ǃ�\t ��
22294: �������$t
�����`t�\F���ȈF���������)�������`& ��8 t
22295: � ������ ��)t��`& �������1�9t$ w:�\$$�L$0&L$0h�^& �D$4��PS�� �� �D$$��L$0�L$ ��)؉�t$$�L$9L$ t
h�& � ����<t��>u8�T$$9�v!�:&u �B&��a& $t���F&���������>��%� �D$9t$$�' �|$ � h�^& V��� ����;t=��(��& %��
22296: �& ��&t"���>tk ��<td�����|t ��[^_]��d��`& ��8 t� ���g 9���& ��;t ��|t�,& ��&u�&& �
�& ���& ��먐��h�^& j �0� ���ËL$� ��`& ��8 t � �D$��
22297: ��� �D$�|$>t�|$<uM9|$u��>u
22298: �C ���C �
22299: ����C ��`& ��8 t � �D$��$�� �D$����>u �C � ���C& �{u�|$-u4�C$ �2����|$&u �C � �|$!u�{u �CB � ����`& �� P_& �& [^_]��d��' �D$x$&� ����
22300: [^_]��d���`& ��8 t � �D$�� �� �D$�|$)u �& �K������|$(u
�& �8��������`& ��)���� Fh�^& ��+D$(P�t$,��� �� �P_& �D$ �����&w� & [^_]��d���`& ��P_& ��b& ����
22301: @B���b& s�8@��&t������ B���b& v��t��b& �=�b& �& �D$x �
& h�b& ��� ��Ph�b& h�^& �8� �� ���� �$�� �{u'�D$x$t h�^& �5P_& ��� ���C[^_]��d�{�� �D$x$�� f�f% �� �=�Q& uh�& �� ������Q& � � W& ��Q& � ��`& �xu�9X������@�xt�h�^& �5P_& �Z� ��j�� ���K��X�
�`& �H��`& ������� & [^_]��d� S�4b& 9 \b& v���3�Y ����9 \b& w��\b& 4b& [�w Cannot create temporary file
22302: here document `%s' unclosed
22303: ��& UWVSj ��$ & �r�� ����h�^& �r� ���
�^& ���^& �H��$ & �Jh=2 �p���_���Dž�u
h?2 �9� ��h j j W���_���t$��`& �T$��8 t�����& ��
22304: t$��uUh]2 ��� ����$& 9�s�؈F븡�`& �� �t$��$ & �A$ t�|$ u �F��t�> t�VU���_������ ���� �&���W9Wr��%� PW����_��� ��G��G� F��uԋ5�`& ��8 t����3& �Ã�
22305: t<��uUh]2 �1� ���O9Or��%� PW���_��볐���G��G릐��W9Wr��%� PW�b��_����������G��G�������W���_��[^_]��& �%s[%d]: %s
22306: �,b& ��@��`& ��`& �xt���`& �x t�p �ph\4 �� �� ��`& � }Q& �t$he4 �^� ��� S�\$h�^& j �?� ���X� }Q& �@ �@ �@ �@ [�PS2
22307: VS�5�`& � ���� � 9F�� �F�$�85 ��\5 h5 <7 8 �7 �7 �7 �6 �7 �}Q& 1�[^Ð�=�b& }�F �}Q& � ��F ��b& ��b& �w & �5_& � ��j&��� ��j��� ���= d& th & h�b& �5tQ& �3 �6��= d& th & h�b& �5tQ& � �h & h�b& �5tQ& ����_�� �Å�} �4_& ��u�1�ƃ�b& h�4 �� ��P�� ���_& ��u� �N �& ���1ۀ=�b& t1��b& ��a& }��b& BC�: t���a& |퀻�b& u���b& � �N �\& ���b& �P�.� ���F& ���=�b& u�F& �}Q& �S& ��F ��b& ��b& �xQ& ����6he4 �;� ���6h�b& ���_��j h�b& ����_����
22308: ��� ��b& �� ����F �vh & h�b& ����_�� ����� �
`b& 9N�� �v�s��_��� ����F� ��F�F �p�F�8 u�5 �F �Y��5 �F �I��F�@���8 t#j P�5��_���X��� t�� u
22309: �TW& & �v�5�`& �PW& & �+��> u�F �G�������~ t�5hb& �6�m��_��������������[^�%d S�\$�; tr�;!t)�hb& �J9Jr�PCR� ��_�L���B� ��)���C�;!u&�hb& �J9Jr j!CR����_� ��B� !C�B롡�`& �p hB8 �~� ��느�5hb& �Q��_��[�$Id: edit.c,v 1.5 1992/08/10 12:02:25 sjg Exp $ stty VS�t$�\$�=�Q& *td��Q& * ��b& & ��c& ��^& �����b& �����H_& �����b& ������`& ������^& & ��^& �=�b& t� �=�Q& tSV�5tQ& �1��_�� [^Ð��j&� ���= d& t SV�� ��= d& tSV�U �����������j �x ����~ h9 V���_����t
22310: ��b& & ��}�=< `u
22311: j�ȍ ����[^Ã�j&�D$P�5tQ& ���_�� ��&u �D$����á4_& ��uҸ������� �5db& ���_��� ��^& ��^& �� �^& ����c& )У�c& 9(b& v �(b& ��c& ��Q& �5�Q& �� ������� S�\$��
t��
22312: u
22313: ��c& �
�Q& 9
�c& }S�db& �J9Jr��%� PR�y��_����B��B��t ��t �����
22314: t��
u
22315: ��
�c& ���c& �=�^& t �=�c& |��Q& ���9�c& |����[� VS�\$ �5�^& �; t ����PC�>������; t95�^& t�[^� ��WVS��b& h|W& �5tQ& �D��_����W& $u
22316: ��Q& & �XW& �|W& �� �� kW& � �^& �
lW& �L$ �
b& �iW& �b& �jW& ��`& �%XW& �����%dW& ��nW& �oW& &PR�5H_& �t$S� ��[^_��� S�D$9�Q& t.� �Q& ��Q& ��thXW& ��h|W& j&�5tQ& ���_�� ��[� WVS�L$1ۀ9 t4�5�`& �&A<!tC� ���9!uAC�����F �C�
22317: ������9 u҉�[^_�FCEDIT EDITOR VISUAL VS1��=�Q& tC��Q& ���3�� ��P�� ����t�8 u ��F�; uۃ<��Q& t
��t P� ��1�[^�emacs vi S�\$j/S���_����t�X&h]= S���_����t� d& � d& &[��hc= S����_����t� d& &� d& [� $Id: emacs.c,v 1.3 1992/08/10 12:02:31 sjg Exp $ auto-insert error macro-string delete-char-backward eot-or-delete delete-word-backward backward-word kill-line abort no-op forward-word delete-char-forward delete-word-forward backward-char forward-char search-character newline eot up-history down-history search-history beginning-of-history end-of-history end-of-line beginning-of-line redraw prefix-1 prefix-2 kill-to-eol yank yank-pop quote stuff-reset stuff transpose-chars complete complete-list list complete-file complete-command list-file list-command newline-and-next set-mark-command kill-region exchange-point-and-mark prev-hist-word upcase-word downcase-word capitalize-word TE �= �U > �E > �F > �M -> �H ;> & �H P> &b �O ^> \U h> $[ n> �H t> &f G �> �H �> &d �K �> �K �> L �> |L �>
|L �>
22318: �L �> \U h> �L �> �L �> �M �> �L ? &< �L ? &> lP ,? �P 8? & �P J? 8S Q? HS Z? XS c? T o? �T t? &y (S }? �U �? �U �? 8R �? �^ �? & _ �? & �^ �? &? �^ �? & �^ �? �^ �? �^ �? ? �M �? dZ @ & tZ @ �Z %@ Le =@ &. Le =@ &_ e L@ &0 e L@ &1 e L@ &2 e L@ &3 e L@ &4 e L@ &5 e L@ &6 e L@ &7 e L@ &8 e L@ &9 Tf M@ &U Tf Y@ &L Tf g@ &C Tf M@ &u Tf Y@ &l Tf g@ &c WVS�D$�T$�(b& ��c& & b& ��c& ��c& ��c& � ��Q& & ��W& �X& � X& TV& �=xQ& ���=�W& �=�W& t�5�W& �� ����W& �5_& �z�������c& ��^& & ��c& ���=�Q& )lj=�^& ��^& ����� X& �8 u��������}"��[^_� X& � X& �8 u
22319: � X& TV& �=X& �u�TE ��ȃ��X& �� �Q& �����u��U ���X& ���� ��X& V�Ӄ��Ƹ 9��c����$�E E `D $E @E `D � �W& �=�����5�c& +5(b& ��W& ��[^_��< ` �����[^_� ���D$��t%�D$f�T$f�T$�D$P�X ��1���Ð��j�I�����1���ËT$� X& �8 u �������� �Q& ��� X& 1�Ðj�
�����1�� WVS�\$�5�^& 0������������Ѝx����c& 9 b& wj�������[^_Ð���c& 9�c& t&��+�c& @P�5�c& ���c& P���_�� � �����c& � WS�5�c& ���_�� � �c& &=�c& &=�c& ��Q& �&! ��c& 9�c& ����&��^& S� ��95�^& u$� �c& 9 �c& s�K�P�� ��9 �c& r���^& & [^_� �(b& 9�c& t ��c& HP�" ��j&�D ��1�Ð�j�������1�� ��c& 9�c& tj&� ��1�Ðj������1�� UWVS�l$���5& �=�W& t3���c& 9�W& s��c& ��W& ����c& 9�W& v)-�W& ��&~ U�� ��)-�c& �5�c& 1��]����t�PF�: ��&�K���u��c& +�c& @P���c& P�5�c& ����_�� ��^& �5�c& � ����c& ��� �Q& )Å�~79�~�ߍ_����t�j ������K���u��_����tj������K���u���^& & ��Q& �; ��95�c& s�N�P�& ��95�c& r�[^_]� �C P������1�� �/ 1���� �c& P�[& ��1�� � P�u�����1�� S1ۋ�c& 9(b& uj�������1�[Ð�=�W& e t
22320: ��c& & �
�c& �=�c& �tP�
`����JC9(b& t,�B��A u�z�$u���B��A u�z�$u
22321: JC9(b& u��
�c& �=�c& �u�R� ����[� S1ɋ�c& 9�c& uj�@�����1�[Ð�=�W& e t
22322: ��c& & �
�c& �=�c& �tR� `�9�c& t4��C u�:$uBA9�c& u����BA9�c& t��C u�:$u��
�c& �=�c& �u���[� S�\$9 �c& w��c& �^& 9�r� �c& �=���[��9 �c& v(vQ���
�c& ��c& � P�@ ��9 �c& w�[��9 �c& s#s!����c& � P��c& �� ��9 �c& r�[� S�t$�J �����
���j������K���u�[� VS�\$ 1��; t����PC� ��&ƀ; u��[^� �D$�� u� Ð�� ~��u� ø& � VS�\$ �5�^& �s ���PC�" ���; t9 �c& v95�^& t�[^� S�\$�� uhYK ������[Ð���� ~��u&j^�G������? ��t�� @P�0�����[Ð��S�� �(b& 9�c& t��c& HP�N�����1��j�������1�� ��c& 9�c& t��c& @P� �����1��j�������1�� S��c& � �����Å�|9��c& 9�c& tS��c& @P����_���1���u"S�5(b& ���_����uj�p�����1�[ÐP������1�[� j
22323: �Q������������c& �
22324: ��c& � � � � hT_& �B ��1���5xQ& �1 ��1�� ��W& ���P� ��1�á�W& ��P� ��1��WS�|$ ��T_& r9=xQ& sj�������[_Ð�=�W& �5(b& ���������7�5(b& ����_���(b& ��c& 0��?����������H(b& ��c& ��c& ��Q& �* 9�c& v�5�c& ������[_ÐS�
22325: ��[_ËD$��W& ����W& P�������� �D$�(b& 9�c& t
22326: P�@������P�������
22327: I-search: ��& WVS������t$ �D$ �������}h�M �Z�����W��������=������������}1�[^_��& Ð��ȃ���Q& ��� ��t=�M tT=�F t�=TE uZ�ȈF� ��|:W�5(b& �
22328: & ���Å�|%��(b& ��)�&Ѐ|$ ^u&HP�i������Y����SW�9 �����G�������
�W& � X& �W& ��}
22329: j��& ��1�[^_��& � UWVS�t$�l$�=�W& �\V�7� ����|K��}
22330: j
22331: ������W���������(b& 0������������ЍD��>^u&HP��������[^_]Ð������T_& s�j�Z������xQ& ��W& �����[^_]� WS�\$ �D$�8^u1�P&0�������������HPRS衾�_�� ����%� ��[_Ð��PS赾�_����t)�[_Ð�����[_�VS��c& � � �c& + (b& �5(b& �������Ƌ(b& ��c& S�l ���(b& ��c& ��c& ��c& ��Q& & ��c& � ��W& V�C ��1�[^� �5�c& ������1�� �5(b& ������1�� j�� ��1�� VS�\$ ��^& ���uj
22332: ����j
�
����������(b& 9�c& u!�5_& �`������5_& ��������c& ��c& ����Q& )�^& ��Q& � �5�c& ��������(b& 9�c& u��c& 9�c& v� �Q& ���� ��c& 9�c& v1�������c& +�c& ��)�1�� �j �I�����C9�}��Q& ���9�c& |� ��c& 9�c& v�> �(b& 9�c& v�* ��(b& 9�c& v�< V����������t���j�������K���u�� �c& 9 �c& s��K�P������9 �c& r���^& & [^� �
(b& 9
�c& uj������1��
�c& 9
�c& un��c& +(b& ��&tԡ�c& �@�P�#�������c& �@�P��������c& �@�P��������c& �@�P��������c& �P��H��H��P��X�����c& �@�P���������c& � P�p�������c& �@�P�^�������c& �P���H����c& � P������1���X& ����1�� �X& & �& ��X& �& �S� �c& + �c& ��c& ��c& ��Q& & S� ��S������1�[� VS�\$ h�W& �C&P�l� ����S�5�c& V�&��_�� �3 �X& �<��W& th�W& �4��W& �K� ���X& �4��W& �X& @� ����X& [^�
22333: nothing to yank �=X& u�X& �����X& �X& �
X& �X& �<��W& t ��c& ��W& �4��W& �g�����1�ÐhT �������j�� �����1��
22334: yank something first ��WS�=�W& T t+�=�W& �T t h�T ������j��������1�[_���0ҡX& �<��W& ������������K��c& )�P������S�5��������=X& u�X& � ����
X& �X& �<��W& t��4��W& ������1�[_��� �(b& ��c& ��c& ��c& ��c& ��Q& & � � �j�E�����1�� �t$�������(b& ��c& ��c& ��c& ��c& ��Q& & � j��������1�� 1�� VS�T$ �Ѐ: t6����8^u#@�8>~��B��8?t��� �����^BH����B@�8 u�� [^� �D$�� ~��u"��W& ^��W& �?��t��@��W& �
����W& ��W& �& ��W& �%s %s = %s
22335: '%s'
22336: VS�\$ �t$��&u �5�Q& ������PhlV �� ����u �5�Q& �m�����PhlV �s� ��V�V�����PhoV �\� ��� � ���� ���Q& ��8�E t�phuV �-� ��[^�����Q& �4hyV ��cannot bind, not a tty
22337: %s: no such function
22338: ��UWVS�\$ �l$ �D$ �=�Q& u
h*W �� ����uG1��1������� �Q& � ���t�;TE t�;�U t
22339: VW�������F��~�G��~�[^_]���S������1���Q& ����3���� &Ћ��88S u�& �
�8HS u� C�ԅ�uVW�e�����[^_]��Ð��} u
22340: �x@ � �|$$ ua�x@ �=x@ t'���U�s践�_����t�� �; u�; t�C
22341: $tUhBW �� ���;8S u�5�Q& �;HS u(�5�Q& � ��@ U�1�����h�W& U�������D$�� ���� ���Q& ��@
22342: $t ���Q& �< th�W& �4�3� ���� ���� ��
�Q& �L$� &�Q& �L$� [^_]���Sh�W& �e� ��h�W& h ��� ����Q& � �& �� x@ ���Jy��& � �Q& �� ����ڸ�& ���@ ���y�� A��~�x@ �=x@ t%� �Q& f�y t�A�Q �� &؉ ��� �9 u�h�W& h �6� ����Q& �& ��& ���� ���y� A��~�[� WVS�|$�T$�L$�\$ �t$ ��Q& ���@ ���@ ���@ ���@ ���@ DŽ� �@ [^_� ��c& ��W& 1�� VS�=�W& uj�N�����1�[^Ð���c& 9�W& v� �W& + �c& �5�c& ���� �c& + �W& �5�W& V�L�����S������S�f������5�W& 1�[^Ã=�W& t ��W& ��c& ��W& P� �����1�Ð�j������1�� � �. / ��HUWVS�D$ 0ҋ|$`����������щ�M�|$\ �� h�^& �|$`��������щL$�D$�D&�D$�t$�� ���Ët$\�*[ � �� �u� �=���t$\�,[ � �� �u f�,[ f��h,[ �t$`S�E��_��P� ��_���t$`S���_���D$PS�ٱ�_����u<f�T$ f�� �f�� @u
�D$/ �(���f�� �uj&S�5��_����u�D$* �|$ t&Eh�^& S��� ��9- X& }�- X& h�^& �]&S�� ���t$`h�^& S�� ����V菱�_���|$\ t�|$ t
�D$�D.��D5 �,X& 9$X& rN� $X& + (X& ��h�^& �� �D$�t$�5(X& �� �� �(X& ����(X& �$X& &É ,X& �$X& �0�$X& [^_]��HÃ� UWVS�$X& +(X& ���T$(�(X& �D$,�Y& h@ �t$,�t$4�}����� �
X& ��}������ʃ�� X& �t$(N�
�Q& �ș�= X& �É�����A�L$ �D$ 9L$�� ���1��D$$ j
22343: �������D$ �D$(9D$�� �l$���|$ t,9t$$~&���j ����������}�N���4� 9t$$T$,� ��3�W�������\$0ɋ|$����������щL$�t�� X& &T$$h�^& �t$��� ��l$ �D$ &D$ 9l$(�k����D$�T$ 9T$�)���h�^& �t$0�� ��j�������[^_]�� � j&� ��1�� j �& ��1�� j&�I ��1�� j �9 ��1�� j&�} ��1�� j �m ��1�� j� ��1�� S�\$��c& �&H9(b& t�8 t�8 u�9(b& u j/P轮�_����uS�l ��[Ð��S�
22344: ��[� ��\ UWVS�D$�����D$ ��$h& � �c& 9 (b& t K�; t�; u�C���a& $t
�{&<t�{&>u&C�;<t��;>t���$p t)��� P��c& �u�������c& �8 t
22345: �8 t�8 uڃ�$p &t6� X& h�^& j@��� ���(X& �$X& ��@�,X& � �����CF�; t
22346: �; t�; u�� j ��$l& S�u� ����VS豭�_��h�^& V�� ��j/S���_���Ņ�t�E �,[ 9�t�؉D$ �
22347: ���D$ *[ �t$ ����_���D$ �|$ uj������[^_]��\ Å�u ��$h& ����E0�������������H�D$�\$d���t$ �ϩ�_������ �p
22348: �x
22349: .u�x t݀x .u�x t��t$VU� ��_�� ��u���$p tD�|$�u"VS迬�_��0�������������H�D$� ��D$& VS�e ���D$�Dd ��$p &�c���V�t$$�������Q�����t$ 藠�_����$p �� �|$ �����u��$p ������T$�tdV��������|$ �� ��$h& 9�u Ƅ$h& �0����$i& 9�uƄ$i& Ƅ$h& /����h,[ Q赫�_���D$dP��$l& S蠫�_���D$$PS�j��_����uf�D$,f% �f= @uh,[ ��hk_ �:�������$p t��$p u �|$ t�g���[^_]��\ Á� UWVS��$ & �=�c& 9=(b& t O�? t�? u�G��$( t)��� P��c& �U�������c& �8 t
22350: �8 t�8 uڃ�$( &t6� X& h�^& j@�ҽ ���(X& �$X& ��@�,X& � �����GC�? t
22351: �? t�? u�� 0���$ & ����������H�D$������D$ h _& ��� ���T$ �T$��� �ƅ��� �$t�^ 0������������Ѝx�9|$��t$S��$(& P�m��_�� ��u���$( t4���uS�t$�
��_����� ���D$& S�t$�� �����D, ��$( &�j����F Pj ��������W��������$( tx��| u ��$( tj�W�����[^_]�� Ð�T$�\ S�6������|$ uhk_ �"���������$( u�]�����$( t��$( u �|$ t�=���[^_]�� � S�\$�L$ �؊A8u��t��@�A8u��u�)�[ËD$����У�c& x �=�c& ~��c& & j������1�� WVS��W& ���=T_& r9xQ& sj�g�����[^_Ë�=�W& e tV0������������Ѝt�9�v%���> t�> u N9�w�����N9�v
22352: �> t�> u�> t�> u&FV� ������x����ր> t9��> t�> u.F�> u��&��F�> t �> t�> u��
���> t�> uF�> u��c& �
�c& ��&͉��&F�> t
22353: �> t�> u�� � R������� 1�[^_� VS�t$ � �c& 9 �c& uj�e�����1�[^��_�=�W& e �� ��c& & �� ��9 �c& �� �� `��C9 �c& �� ��B u�;$u�9 �c& �� ��Lu �� `�P$&�� ����9�ul�n���� `�P$th����9�uP� `�R��� `�P u�;$uM��Uu �P$t8��%� 9�u � `�� ����P$&t����9�t��� � `�&�C9 �c& u��
�c& �=�c& �� ���S������1�[^� VS�=�Q& u21�� �c& �����P�3�����&�C9 �c& v95�^& � �c& ��Q& & ��c& [^� $Id: vi.c,v 1.3 1992/08/10 12:03:31 sjg Exp $ VS�t$ �\$��[& j��͢ ��@��[& ��[& ��[& & ��[& ��Z& ��[& a��[& & ��[& & SV� ��[^�/ ? VS�\$ �=�[& t-��
t��
22354: u#j
� �����j
22355: �����������& [^��
22356: 9�[& �G ��[& �$��h ��� i �j �j $k �k ,m ,m ,m 4j �k �k �=�[& t_��u��[& �^ S�� ����tj�����"& ���=�[& u�|Y& �H�& ���=�[& ��%� P� ����\X& �`X& �Cσ�w��Љ `X& ��[& & �p � 0X& �\X& & S�� ����[& �=�[& �E �T �|Y& �@ �@ ��/u$j j&h�h �^ �� ���w �����[^Ð��j j&h�h �ڐ���Q& $ t"�|Y& �B@P�r� ��j�y�������|Y& �H�P�
22357: �@j&�d ����[& � ��� `�X$t�`X& ���DCУ`X& �~ ���\X& ��0X& �\X& �� ���dX& �Cσ�w��Љ dX& ��[& 1�[^Ð��\X& ��0X& �\X& �0X& 9��� ���Q& $uw� �� `�X$t�dX& ���DCУdX& ��& ���=`X& u �5dX& �����5`X& �5dX& �5`X& �\X& ��0X& �\X& �0X& 9�tR���Q& $tS� ����[& �& ��[& �u& ���u��[& �`& �\X& ��0X& �\X& ��[& �@& ��
t#
��
22358: t �� ������� ��t&� ���Z& ƀ4X& h4X& h�[& ���_��멃=�Z& u�2 ��[& �F���
�Z& ��Z& ��4X& ~ ��4X& u�|Y& �H �|Y& �H �p �pj �R ��1�[^Ð�j �A ��� ���Z& �|Y& �@ & �@& ����=�Z& 'u j� ���봐���Z& ��4X& ��Z& �� ~��u �|Y& �H�P �
22359: ^�@ �H�P ��@� �|Y& �H�P �
22360: �@ �|Y& �R������[& ��t"���G& �V& ������ �F& ����[& h0X& �5`X& � ����t ����& �& �����&t7�& ���=�[& t
22361: ��Z& �=�[& ��%� P� �� ���j �
����������[& �=`X& t �5`X& �5�[& h�[& �5�[& �! ������%� ��t �n������uyj������j � �c���=�[& t;�=�[& st�=�[& ct �=�[& Cuj&��5�[& �� ����t
22362: j�[�����j �Y ������[& j�;�����1�[^� �T$��ru�
22363: Ð���Q& $t� À��Q& }� Ð���Q& $t� Ã�.u� Ð���Q& u� Ð� � VS�\$ ���� ����& ��t^�u& ���t ���� �_& �����t;�R& ���=�[& st�=�[& ct �=�[& Cu
j �� ��[^á�[& HP�쐐��|Y& �z ��& �=�Z& ~�
�Z& �J�=�[& �k& �B +BP�B@BP�BBP���_�� �|Y& �H �@& ���|Y& �z �.& ��Z& �B +BP�BBP�r�И�_�� �|Y& �p)p �@ �� ���|Y& �x �� j&�j ���á|Y& �P +PR�PPR��p��P�y��_�� �|Y& �P)�)P �@)�9�Z& } ��Z& �)�Z& �|Y& �X�~�|Y& �BH9B u �����[^Ð��Z& ���Y& ��Z& �=�[& &u&�B +BP�BBP�B@BP���_�� �|Y& �@ �
|Y& �Q�A� �A�=�[& u �q 9q~�A 1�[^� # ��UWVS�\$,1��u!�t$0�>Gu
22364: � �[& C���|$0�?_t�& �D$0����Q& $t5j �t$4S�� �� �
��� �|Y& 9P u��t&J�|Y& �P�� ���Q& $uZ��Y& �5|Y& �t$ �>�:�v �D$ �p�r���_�� ��Y& �5|Y& �~ �z �F�B� �[& j�t$4h�[& �ߖ�_�� �t$0���Ѓ�l�( �$� r ��s @} @} @} @} @} @} @} @} @} @} @} @} @} @} @} @} �z @} @} @} @} @} @} { hv @} �v @} 6x @} @} @} @} @} @} @} @} @} @} @} @} @} { @} ,x @} �s @} �u �u @} @} v @} Lv @} @} @} @} Rx @} �u @} w @} @} @} @} @} �w @} @} @} @} @} @} �x @} �s @} 0t 0t @} @} @} @} <v hv �v @} @} Rx @} $u @} �v w @} x @} @} `w 0t @} @} @} @} Dz �� �b ����[& & �|Y& �z t(�B�#���[& & j j �E ���=|Y& �G �G��[& & � ����t$0�8F&u1ۡ|Y& �P � ���D$0�x&���Q& $�& j&�D$4@PS�� �� �
��� �t$0�>cu7�~&wt�~&Wu+�|Y& �X�@��
`�A$u��J��A$u�B�
|Y& 9Q}�Y�����ӋQ�|$0�?ct9�tRS�T$��
���T$�D$0�8ytRS�P ���|Y& �X�t$0�>c�$ �& �����[& & �|Y& �z t�B���j �5�[& h�Z& � �� ��uK���|Y& �z t�J���� �����[^_]�����[& & ��j �5�[& h�Z& �� �� ��u�K������[& & �|Y& �p �p�& ���|Y& �p �p�� ���|Y& �p �p�e ���|Y& �z �> �J�6 ��KS�5�[& �' �����Q�����[& � �[& � �����[& & ��������[& & �|Y& �@ ��������[& P�5�[& �� �����������[& & �[& � ��[& )�P�5�[& � �����������[& ) �[& �q ��
|Y& �y �������[& & �Q�I�L$ �t$0�F&��= ���[& & ��[& �# ����|Y& �z �E�����[& & ��B9B }�Z +Z��BP�r��
�������|Y& �z ������[& & ��B9B }�Z +Z��BP�r� ���|Y& ��BP�r�
��� ��|Y& �z �������[& & 9Z}�Z�r�B)�P��
22365: ���|Y& �p�@)�P�V
���|Y& )X�2 ���=|Y& ��Y& �|Y& �=�Y& � ���[& �����& ��Z& �t$0�>�=\R& �=\R& �����=\R& ?���؋t$0�>Nu��4&��h�[& S�5�[& �5�[& �Q ���
�} ���������
22366: j �, ��������[& ��[& �s ���j��5� ��� � ����� �: ������
`��A$u�:
22367: uB�: u�: �_���KtP�
`����B�: �G�����A$u�:
22368: u�: �/�������A$u�:
22369: uB�: u�: ����Ku��: �������B����1ɀ} t4�= `�|$��Ƌ|$�w$u�:
22370: u�& ���t1ɉ�B�: u։���[& & �
|Y& �y t�A�: t$��
`�
���CB�: t��A$u�:
22371: u�j j&h#q �h
22372: �� ��u j SU�X
22373: �� ��t�������������|Y& �z �9����J�1����|Y& �z �!����ZZ� � `�J$t ��[& & �����9�u.� `�#��J$&t!��[& & �����9�u � `�&��|Y& �B H9B�} �B�u ��|Y& �@ j j&h%q � �� ��������& [^_]��Ð��D$$ ��Y& �h�|Y& �B�J�&� `�C$�D����L$�|$�~!�щ��L$�|$�~�A�|$�4�r$t��D$�|Y& �r�t$9r ~4�z�>�D$ �
`�t$ ����D$�|$9z ~�B�4�q$t�\$+\$S�|$�5|Y& ~�|$ �t$ U���_�� �| �*t �+*�D & ��+ U� ���É\$ U�3���_����u�{ u�D$$�����|Y& �p �pU迌�_�� �|$$ }
�D$$[^_]���D$0�8=u_�5hb& j
22374: �B��_��j �t$$� 7 ���5hb& 趇�_���|Y& �z t�B� ��[& & ��[& 1�[^_]��Ð�t$�t$� ���t$�=|Y& �w���j ��D$ �T$ ��0�����������JR�t$$� �� �D$ ��u ���; t j j&h#q �h �� ��t��D$$������[& & ��[& & j �
���|$$ ������=�[& u�|Y& �z t �B 9B|�J1�[^_]��� ��UWVS�t$ �l$$�D$ 1ۋ|$ ���иo 9��e �$��} �� � � � � � � � � � � � � � � � � � � � � � � � �� � � � �� �� � � � � � � � � � � �� � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � H� � � � d � � � � � �� � � � �� � � � � � � � � � � � ��u�|Y& �x �� V�/ �& ����u�|Y& �x �k V�� �& ����u�|Y& �B@9B �G V�{ �����x ���u�|Y& �B@9B � V�� �����P ��L$ �9�=XR& �y&�=�[& �=XR& ��& �D$ �=XR& ft �=XR& Fu�D$& �=XR& a���ЋL$ �9,u��4&���t$RV�5�[& �T$$�( ���ËT$����& ����& ����& �& ����u�|Y& �x �[& �|Y& �X)���& 1��& ����u�|Y& �B@9B �+& �|Y& �x �b& ��X9X �T& �X K�K& �����u�|Y& �B@9B �� V�� � ���u�|Y& �B@9B �� V�� �����&& �1ۋ-|Y& �u N9��� �E� � `�B$�� �C9��� �E��B$u�� �|Y& �x �����X � ��|Y& �X9X ~)����@�P�& ���D$�|$ u C�|Y& 9X ڡ|Y& 9X t�& ����|$ ~C�|Y& 9X �����[^_]��ÐKx�|Y& �@�P� ����9T$uF� ��D$��9�u&N��u���t&C��[^_]��� S�\$�1��=�[& ��%� P�5�Z& h�Y& ��& �� ��t �����[Ð���K��ɡ|Y& �x ~�H��[& 1�[� �T$�D$)У�[& tP�|Y& P��Ph�Z& � ��_�� � �D$��[t/
��(t ��)t3�I���{t# ��]t,�:����}t+�1��& Ð�� Ð�� Ð������Ð������Ð������Ð�1�� �|Y& �p �ph�\& 苅�_�� �|Y& �@ ��]& ��]& ƀ�\& � �|Y& �@ ��]& �P �5�]& h�\& �p�D��_�� ËD$�T$�|Y& hY& �lY& �pY& ��Y& DR& �LR& �PR& �tY& �TR& �xY& �DR& �hY& �5_& 蔸������[& ��[& ��Q& +�[& �����[& j
虶�����)����5_& ���������\& ��\& ��\& & � VS�\$��u1�[^Ð�|$ t)�|Y& ��J�BH9�|
22375: �����[^�9J }A�J �<���
|Y& ��Q �AH9�}A +AP�AAP��AAP�&��_�� �|Y& &X S�t$�|Y& �pp��P�ރ�_�� �|Y& &X1�[^� S1ҋ
|Y& 9Q ~"�A� � `�
B9Q ~�A��C$u�Rj � ��[� VS�t$ �\$�|Y& 9Z t�B )�P��BP��BP�`��_�� �|Y& ��)�)B [^� WVS�|$�L$�t$�|Y& �x t�PI���t-�����tB9S u
�����[^_ÐJx�C�9�u�I���u|$ u
22376: ��tJ���B��[^_� UWVS�|$�|Y& �H9H �� O����� �Ëk�5 `���)�F u�<)_u ��S�����F u�:_u2BA9K ��)��F$u!��S��F u�:_t�F$uBA9K �S���F$tA9K �9K ~O���u���[^_]� UWVS�|$�|Y& �H��~tO���tn�ŋ5 `��I��~_�]��V$u��V u�<_u Ix7� �����F u�:_u#JIy�� Ix�E�&�V u
�<&_t�V$t�A��~O���u���[^_]� ��UWVS�l$ �|Y& �P9P �� M����� �Ƌ^ K�\$�= `��B9T$~n�^�\$� �O$u�F H9�}T�O u�<_u'B9V ~A��L$����&�G u�9_u*AB9V ��!�B9V ~�F� �O u
�<_t�O$t�J9V ~M���u���[^_]��� UWVS�t$�|Y& �P9P ~CN���t=���i�= `���*�G$uB9Q �Y��G$tB9Q �9Q ~N���uЉ�[^_]� VS�L$ �|Y& �P��~>I���t8�Ƌ `Jx"�F��C$u�Jx�F��C$t�B��~I���uЉ�[^� WVS�\$�|Y& �P�p N9�}LK���tF�����5 `�B9�}6�A��F$u�A H9�} �B9Q ~�A��F$t�J9�}K���uʼn�[^_�grabhist: bad history array
22377: ��WS�T$��|89�[& |0u
����1�[_���R袁 ��芁 ���uh!� 躚 �������[_��Ã|$ t�����|Y& �D$0҉߈�����������J�D$�P RS�D$�p��_�� �|Y& �@ 1�[_���UWVS�|$�t$ �l$ ��u��t��[& H9�|��&u
�����[^_]Ð��UVW�0� �� �Å�u'��tޅ�t�Uh�\& �ԃ�_����|��,���1�[^_]Ð���t��|$ t������|Y& 0�������������H�B PS�r�[~�_�� �|Y& �@ �k� [^_]� j
�-�����j
22378: �#�����賯���5_& 脭������[& ��[& ��\& � S�\$��} � �\& � ���� �\& �Y ��t� S��\& ����)Ѝ���[& P�& +�\& ����)Ѝ���[& P�U& �� �& +
�\& �
�\& [� S�|Y& �9H}�& [�1ҋ9X~&���R�|Y& �@�PC�� ���¡|Y& 9X�9�[& |1�[Ð�& [� ��UWVS1��D$ 1�1��D$ 1��|Y& 9h~m�����+T$��[& �� �[& ��9�~�l$�|$�\$�t$V�|Y& �@�PC�V ���ơ|Y& 9X���W�|Y& �@�D PE�/ ���lj�)���[& �� �[& ��9�Ρ|Y& �([^_]��� �T$�D$�� ~��u�� u @Ð���@� ��UWVS�|$$�D$ 1ۡ|Y& ��D$ �t$ �L$9
�[& �� 9P �� ���9Pu��t ��
�[& �L$�|Y& �@�< ~�<u;�< u�� FC9 �[& ~.��$u��&����^FC9 �[& ~�|Y& �@�4@���FC�|Y& 9Pu��u��
�[& �L$�L$B9 �[& ~�|Y& 9P �`����|Y& 9Pu ��
�[& �L$9 �[& ~~� FC9 �[& ����D$� � �[& �t$ �l$ �=�[& �4����8M t'9 �[& t
�t$ S� ���P��������[& FECO���uɡ|Y& �8 ~�|$ t�+��8 ~�<����� �|$ t�>8 �\& t-�t$ ��Q& ���P�? ����P臬������[& � �\& �L$9
�[& t�t$ �t$� ��[^_]���VS�t$ �\$95�[& �� �V&��[& )�9�}Xj
�)�����蹫���5_& 芩�����
�[& �
�[& ��[& ��[& 9�}x�PC��������[& ��[& 9�|��Z����[& �
�[& 9�~I�j���������[& �
�[& 9���-���[& +�[& &����PC蒫������[& ��[& 9�|�5�[& [^� S�\$�D$ = & v� & PS�����������S ���tP��������u
�␐������[Ð�|Y& 9Xt�p �pS�"y�_�� �|Y& �@ �
22379: �|Y& �@ �@ [� ��j&�D$P�5tQ& ��z�_�� ��&u�D$$<t<�� ��������h & j �|Y& �p��x�_�� �|Y& � �@ �@ �@ h & j ��Y& �p�x�_�� ��Y& � �@ �@ �@ j �߫����j�]7 ���D$����� ���T$ �$�D$ j&�D$P�n� ����� $Id: tree.c,v 1.2 1992/04/25 08:33:28 sjg Exp $ %S (%T) %T| %T %; || && %s %T for %s in do %T %;done case %S in%; ( %S %c %T;;%; esac if %T then %T else %T fi while until %;do %T {%;%T %;} %T& function %s %T time %T <botch> UWVS�|$�l$���o �J� 9��0 �$�� �0� �� �� �� ؒ ؒ � � |� � �� �� � � �� Ԕ �� �� |� �_�; t�3��h�� U�� �� �; u�_�; �� �3��h�� U� �� �; u�� �����@����wh � �o ����wh� U�~ �� ���������wh
22380: � U�b �� h
� U�T ����������wh
22381: � U�: �� �w�� �?u�� Ph� ��& ���wh � U�
22382: �� � t?h$� U�� ���_�; t����3��h�� U�� �� �; u�h
� U�� ���wh(� U� �� h.� �& ����wh6� U� �� �w��tghC� U� ���^�; t9���3hE� U�g �� �) �{ t�| PhH� U�H �� ���; u��vhK� U�/ �� �v��u�hS� � & ����whY� U�
22383: �� h
� U�� ���� t �wh_� U�� �� h
� U�� ��� t �whg� U� �� h
� U� ��ho� � ���w�y� �? u�s� Ph� U� ���wh� U�q �� h.� �X����wh�� U�V �� h�� �=�wh�� �"���w�wh�� U�/ ���$���wh�� U� �� ��h�� U� ���_ ��t�; t���3��U�5 ���; u�[^_]�< <<- << ' >> >! > <& >& %s %s' WVS�\$�|$�w�?&~���0PhH� S� �� �����P�� 9��� �$��� �ĕ � 2� ̕ �� � h@� �^���$ t
22384: hC� ����hH� S�9 ����$uBhL� �2�hN� �*���$@t
22385: hR� � ���hV� ���? uhY� �h\� S��& ��������u(��$t�wh_� S��& �� [^_Ð�whc� �萐�wh�� �� S�\$�T$ ��t'�J9Jr��%� PR��i�_���!�B��B����
�]& x
��]& ���]& ��[� VS�\$ �t$��`u-V�^ ��}�$ P������V�� @P�{�����[^Ð����u V�^ ��}�$ P�U�����Vj?�͐VS��WVS�\$�t$1�����C� 9�r��$�L� � × l� �� �� �� �� ؗ ��uSVj\��������F����& Vj"� ���1�Vj"�w�Vj$�������Vj{�VR��������C��u�;�u���V�PC��������b�����Vj}�1���Vj$������Vj(�}�������V�PC�������; u�Vj)�]������ ����[^_ÍD$ P�t$ �t$ �F �� 1��S�D$ �L$�T$�\$� �]& ��]& RQj � �� j j ������1�[�;
22386: UWVS�l$�|$ � �����%��& �U �Z�E�: 9���& �$��� ���P� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ܙ <� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� � �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� � �t$���w��� ����_��; �� ��t$�PC�������; u�� ����t$�w��=���� ���G�1���du���� j
22387: ��t��P�ds������tK�-�; tk���t$�PC�>������; u��Q�t$���w��m����=����s� �|$ u�p� �; t'���t$�PC��������; u��
�t$R��������U E�������[^_]� UWVS�|$��u1�[^_]Ð�t$j �U� ���ŋ�U � t�t$�w�& ���1��E� u �E �Q�_������u��t$��+G$�P�� ���E�Ƌ_�; t ���t$�3��� ������; u�� � u �E �Q�_������u��t$��+G$�P袅 ���E�Ƌ_�; t ���t$�3���Z ������; u�� � t�t$�w �� ���1��E �t$�w��������E�t$�w��������E��[^_]�WVS�t$�|$j V�% ����)�WS�� ����SVW�l�_�� ��[^_� VS�T$ �t$1��
22388: B� 9�r��$�D� �� t� t� �� 0� 0� d� x� C����B��u��:t�B빐��u ��u��[^Ð�K륐�B��u�뛐����UWVS�\$ �ݐ���E ����u��t$ ��)�$�P�R� �����D$ �; tY�߉l$���7�t$ j �+� ���ËT$����V�S�V�S�~ t�t$ �v��������C���D$�D$�? u��T$�D� ��[^_]��� WVS�t$�|$���� �~ t W�v�ƅ ���~ t(�^�; t�W�3謅 �����; u�W�v蘅 ���~ t*�^�; t���W�3�|� �����; u�W�v�h� ���~ t W�v �* ��W�v�b�����W�v�V�����WV�4� ��[^_� WVS�|$�t$� ����{ t W�s�
� ��WS�� ��� ����u�[^_� $Id: exec.c,v 1.4 1992/08/10 12:02:38 sjg Exp $ %s: %s
22389: �� UWVS�|$ �D$ ��u
1�[^_]�� Ð���D$$$ t$�D$$$&u �?t�t$$W�� ��[^_]�� Ð�j�el�����$b& ��t�p) � u�?uOh�^& j�!� ����^& 1Ґ����^& f�P B�� ~�D$$$t
22390: ��^& f� ���D$$$t ��^& f�@��� t�_ �; t�3�� �����; u�J� 9��
�$�p� ����� �� � 4� \� \� �� s� �� D� ܢ ܢ D� s� �� H� � � (� 8� ��^& �t$$j&�w�X� ��Pj �w�J� ��PW� ���D$�w �D$$ P�w�i������& ��D$$ �D$$�D$$$��D$$j 轄 ����^& f�j&誄 ����^& f�B�D$$ �D$$j ��^& � P��b�_���?uV�\$���S�2� ��j&�t$�b�_���t$$�w� ��j �t$�b�_��S�:� ���D$$ �D$$��?t��D$$$��D$$j&��^& �@P�Vb�_���t$$W�� ��j ��^& � P�6b�_���D$$$�b � �D$� a& �O j �w�F�������?t�j W�3����� ���D$$ "P�w� ����� j �w�������D$� �� �D$�����Ѓ?��%� 9��� j �w������y �����^& � tj&�w�n� ����������^& �X���h�^& ��^�_���
�t
��&� �␐�; �r ����3���w��l ��P�p ��j �w�M������D$�; u��; ��^& � tj&�w�ބ ����������^& �X���h�^& �N^�_���
�t
��&��& �␐h�� j��j�_��1퐐�US�% ���Ń�&��& U�w�&l ��P��o ��j �w�������D$�Ð����^& ��h�^& ��]�_���
�t
��&�o& �␐j �w�b����������Ѓ? ��%� 9��C& j@�w�:������D$�Ő� �%& j �w� �������u
j �G�p� ���j �G�p������ ��j �w�"� ���ŋ���� �?�� ��_�; t(j�3��� ���ƅ�tVU��k������u ���; u؋���� �?t�� ���j �w�~����&j �w�r�����w�w�A �
����t$$W�/ ���D$�L��G�0�s ��S�w�w�_�_�� �=< `u
22391: SW� ���5< `��i�_��PVhl� � �� �g���=�^& t �5db& �_�_���5hb& �_�_���D$$$&t �t$�"_�_���D$[^_]�� �_ : %s: not builtin
22392: %s: undefined function
22393: %s: not found
22394: %s: cannot execute
22395: ��UWVS�t$ �|$$�D$ �=d& t
22396: WV� ������t0�? t+������8 u��p�j h h�� �pp �� P�Sm ��h�^& j8�{ ���D$�
�^& �H4��^& �h � ��u��� �d& PS� ���ŋE����
22397: ��&tJ�S ���_& �E ����� ��t5S�w ��PShb& �Nx �� �Ņ�uSh�� �~ ���} � t} � u%���? u��^& ��& ���L$(&�P�����f�E f% t
�T$�J4�
�^& f�E f% ��%� �؉Á� �> t��j S�6���Go �� �> u�W�E�Ѓ��x& ��E $uShѤ �j} ���T$�z1��&C�����u�K�L$�Y�1U �> tj h �6����n �� �> u���^& h�^& �Y�_����t� a& �T$�� �j �u�J����� ��E $u5j S�)Z�_����}
22398: Sh� ���Sh�� ��| ���D$& � ��uj h h�� �Pn �� P�3k ���> t ���j h �6���+n �� �> u�D$($&t8��
�=
d& u�D$($u"j h�^& j�?e�_�� j h�^& j�.e�_�� �L$ �
xR& �m�-�R& �=lR& �t$(hhR& � ���D$�|$ t�=d& t �t$�Lb�����T$� a& �D$[^_]���EXECSHELL /bin/sh No shell
22399: �� & WVS��$& hM� �Zf ��P�Ei ���ƅ�t �> tj&�5�b& V�e �� �ƅ�u�W� �G�O��G��D$ j �w��`�_���Å�|%h� �D$PS��a�_�� ��~�D S�QY�_���|$ #�� �|$
!�� �T$�|$ �� ��: t�: uB�: u��: �� �:
22400: t~�G�����B�: tg�:
22401: t
22402: �: t�: u�: tS�:
22403: tN� B�: tE�: t�: uB�: u��: t0�:
22404: t+�G��G�H��G�P���B�: t�:
22405: t
22406: �: t�: u�� ����G�0��$& �w�G�0��Y�_�� h_� �2z ��[^_�� & �%s: shcomexec botch
22407: VS�t$ �6��r ��P�6hb& �t �� �Å�u�6h�� ��y ��V�C�Ѓ�[^� UWVS�l$�5�^& ��t[���5 b& U�r ��PU�~ W��s �� �Å�t�$u0�~4 u#U�_r ��PUW�t �� ��� �C �v4��u��$&t�5 b& �s�s������#��|$ t"�5 b& �t$ �������C� 1�[^_]Ð��S�t ��1�[^_]�VS�\$ � �;=uC� S��q ��PShb& �s �� 0�@& �T$�P[^� UWVS�|$W�q ����1�j/W�b�_����t ��]& ��]& ��]& � ��� �^& ��t#��UW�C P�r �� �ƅ�t�$u�[4��u߅��� UWh _& �kr �� �ƅ�t9j&�v�|U�_����t$�$&t�5 _& �v�%w ���F � ��u3UWhb& � r �� �ƅ�u UWh _& �r �� ���F � �~u_�$uY�|$ u��]& ��]& ��]& j&�5�b& W� �� �Dž�t"��b& ���]& u��^& PW��`�����F���[^_]� VS�t$ h _& ��r �����r �Å�t1�$t��u�C�8/t�$&t�5 _& �s�+v ��� ��[^� ��@WVS�t$P�|$Xj/V��`�_����t WV�4T�_������%� ��!�[^_��@Ë\$T���� ��b& �; t����C<:twB�; u���b& t�/B���& ����1�AB��u�Wh�b& ��S�_������u=��&u%�D$ Ph�b& �`�_����u"f�D$f% �f= �u��b& [^_��@Ð��K댐�C���]���1�1�[^_��@�%s: illegal >& argument
22408: create open %s: cannot %s
22409: WVS�|$������w�?&v�?u
22410: ��^& �7�v �����^& f�J�G����t
j$V�z ���ƋG���P�� 9��� �$��� ���� � �� � Ȯ � j V��Z�_�K��j&V��Z�_���Å�|jj S�Y�_�� �jh�& V�}S�_� ���jV�Z�_����G��PV� �����:�>-u� S�+S�_���(�����a& $t ��X�����Vh�� ��t ����}$�G��� � ��u�� RVh#� �t �� 9 t�7S�S�_���t S�R�_���7�t ��[^_�r exec:herein error
22411: w+ ��VS�D$�D$ h�� P�T�_���D$�D$��u
�����[^��Ð�h j j �t$��\�_���|$ � & j�[����h�^& �P�_����t%�D$��t �t$�S�_���<[�������[^��Ðj�e������T$�P��`& j�Cv����= & t
h�� �s ��j �5P_& �x ����h�^& �pu ����^& �� �^& ��u� Z��h�� �s�S�_���D$�D$��u��Y��h j j �t$�\�_���t$V�S�_���t$�hZ�_���pZ���t$�7S�_��P�R�_�����t$�R�_����[^���+ %s
22412: VS�\$ �t$hC� ��r ���; t.�3��hE� ��r ���; u������6��hE� �r ���> u�hI� �r ��[^�PS3 %s Read error
22413: REPLY UWVS�l$�=�R& u h�b& j@�/o ����R& ��]& @ �|$ uj U�r& ����]& h�� ��\ ��P�_ ��Ph�� �
r ���5hb& ��Q�_����]& 1�1���� �Ã���� ���u h�� �� ���]& @9�]& &��]& ��@��]& h�b& P�5�R& ��o �� ��R& ��|(�CЃ� w ��R& ��]& � ��]& ���tC�냐����
22414: u3�=�]& uj&U� ��� �������� ��~/95�]& |'�|���!��������R& ��]& � ��]& �*�������uhI� �q ���& ��R& ��]& � Ph�� �[ ��P�[_ ����[^_]�%*d) %-*.*s ��UWVS�l$�|$ �& ��]& ��]& ��} t7���:0���������щ�K��9
�]& ~�
�]& �
�]& ��]& ���: uˋ �]& ��]& & �� ~����]& �ؾ
22415: ����Ã� �=�]& ��]& & ��]& ��]& �c���5�]& 5�]& ���t$��Q& �Й�����
�]& ��]& �Й���É �]& ��t��]& �5�]& 95�]& ~�
�]& ��]& & 1�9 �]& ~g�1�9=�]& ~F������]& �9�]& ~'�t� �5�]& �5�]& �B&P�5�]& hk� �\o ��G9=�]& �hI� �Fo ��C9 �]& ���]& [^_]��� ��Sj&�D$ Pj �U�_�� ��t ���t�����&u�\$�
��������������[���$Id: jobs.c,v 1.5 1992/08/10 12:02:52 sjg Exp $ �P�_��]& �4_& � _& �_& & � VS1�� �R& ��t3��f�Cf��u!Fj&�C��P�PR�_��j�C��P�@R�_�����uυ�t
22416: j&�W�_����
22417: �=
d& t �
d& � [^�job control requires tty
22418: �=
d& �� �=tQ& }�
d& h � ��m ��Ð�8_& Լ �<_& �@_& j h8_& j�V�_�� �@_& ��T& & h�]& h|^& j�`V�_�� ��T& & h�]& h|^& j�BV�_�� �U& & h�]& h|^& j�$V�_�� � U& & j h _& j�iV�_�� �5�]& �5tQ& �
X�_��Ðj h�^& j��U�_�� j h�]& j��U�_�� ��T& j h�]& j�U�_�� �U& j h�]& j�U�_�� � U& �%T cannot fork - try again
22419: /dev/null ��UWVS�D$ �l$ ��߉�$&tU�t$ ������[^_]��Ð���5�R& ��t��f�Ff��t+�6��u�h�b& jX�i ���Ƌ�R& �f�F �5�R& ��$t��]& �V �
22420: ����F �F �F f�n��$t
��R& �V�
22421: ���+ �F�t$h�� j0�F(P�������FW f�F& ������&�� ��W��k ��G�� ~�1�j h_& j�T�_�� ���K�_�Dž�}@�=< ` u �� ��tS�T�_��&����& �͐��}f�F h�� �k ����t�~��M�_�F�=
d& tG��$uA��$u �V�V������]& �@�F��$u�v�5tQ& ��U�_���v�v�S�_���5�]& ���� ��^& �= d& t�� ��$tp�=
d& ugj h�^& j�eS�_�� j h�^& j�TS�_�� �= d& tj h�^& j�:S�_�� ��$u%j h�� �O�_����j W�8I�_��W�GH�_���5�R& ��t��f�F �6��u��tQ& ����j h _& j�<S�_�� � d& �
d& �b �� &P�t$ ��������$t0�V�0b& ��R& ��R& �V��R& �= d& t V�F ��j h _& j��R�_�� ��$u���� uj V�) ���D$�D$[^_]��� j �5�]& � ��� UWVS�l$�& 1��=
d& tj h_& j�jR�_�� ����� �O����=
d& t�4_& ��uh _& �TR�_� ��j �& ���4_& ��t�& ��R& ��t �|$ �& f�Cf��&t�f�Cf��u�C$u�{ f�C
22422: �a�f�Cf��u>�S��u �C ����� �C ����t ��
u
22423: ��tf�C
22424: �C �������&w�f�Cf��u�C ��u�& �[ ���m������t ����K &
�c& �K$&
x^& �[ ��u�f�Ef��u�
�R& �
�R& �m�-�R& �B��1���R& � �R& ��t*��f�Cf��&t
22425: f�Cf��u9S~ �S��R& ���u=
d& t%j h _& j��P�_�� �5�]& �5tQ& �R�_����t�5hb& j
22426: ��G�_���1 ��[^_]� �4_& @�4_& �(S�D$Pj j�P�_�� �D$ P�R�_���=
d& tj�D$Pj��S�_�� ����D$P�~S�_����}�=< `
22427: u�4_& [��(���& �D$ P�"R�_����R& ��t�f�Bf��t9Zt���u�=
d& u�[��(�f�B
22428: & �L$�J �D$��u f�B �(��|$ u f�B ���D$H%�� =� wf�B �L$+L$$�J �L$+L$(�J$�L$ �L$ �L$�L$ �L$�L$$�L$�L$(j h_& j �]O�_�� �4_& H�4_& �4_& ��}
22429: �4_& j �D$ Pj�.O�_�� �=
d& �����[��(� �4_& ��t�r���1��no current job
22430: no such job: %d
22431: VS�t$ ��u�=�R& u
hq� �ke ������u��R& P� ����uVh�� �Ce ���= d& t S�� ���=�^& t �5db& � E�_���5hb& �E�_��j&S�������[^�cannot find job
22432: kill: %s
22433: killpg: %s
22434: VS�t$�t$ � ����u
h!� �d ���{ u1V�s�H�_����}j�5< `�N�_��Ph2� �d ��[^���t��&uj�C��P�mH�_��V�C��P�^H�_����} �5< `�\N�_��Ph<� �2d ��[^�job not job-controlled
22435: cannot continue job %%%d
22436: WVS�t$�|$����u��R& P� ����uVh!� ��c ���{ u
h� �c ��f�C& S�f& ��j�d ����u�s�5tQ& �N�_��j�C��P�G�_����}Vh� �ec ����t1�[^_�j S� �����[^_� S� �R& ��t�f�Cf��t S�� �����u�[� S�4_& ��t������ �R& ��t]���f�Cf��u�= d& uf�C
22437: f�Cf��tf�C
22438: f��t S� ��f�Cf��t
22439: f�Cf��uf�C f�C
22440: ���u�[�Running Stopped Done (%d) %s Signal %d - core dumped Hideous job state | %%%-2d%c %5d %-20s %s%s
22441: ��@WVS�|$P�t$ f�Gf���� f��&t �� ���f���� f��t�� ����t� �� ����
|� �L$ �
�� �L$�
�� �L$j(�W �� )��4��R& �K�_���ƅ�t
22442: VS�K�_����� ����_ Sh�� V� K�_�� ��ufj(V�eK�_��� �V��W ���� )Ћ��R& ��t
22443: Ph�� ���Rh�� V��J�_�� � } h�� �D$P� K�_��������� f�G �G$��� ��t��� R�G(PV�w�O9
�R& t� 9
�R& u�- ����+ P�wh�� ��` �� [^_��@�%s: no such job
22444: UWVS�t$1�>%u&F�<9<0}6<+t��t�v��<-t�n��<?t0�f���-�R& � ��-�R& � �j
22445: j V��J�_�� ������� �R& ��tr�~&���f�Cf��tW�C(P�J�_����t�k���u��G���0������������Ѝx�� �R& ��t'���f�Cf��tW�C(PV� J�_�� ��u�k���u܅�uVha� �_ ����[^_]� ��R& ��t��f�Bf��u�& Ë��u�1�� 1���R& ��R& ��t ��f�Bf��t�z t9J~�J���u�9
�R& ~A�
�R& ��R& � �L$��R& ��t ��f�Bf��t9Ju
22446: �B$u��Ë��u�1�� $Id: trap.c,v 1.3 1992/08/10 12:03:15 sjg Exp $ EXIT Signal 0 HUP Hangup INT Interrupt QUIT Quit ILL Illegal instruction TRAP Trace trap ABRT Abort UNUSED Unused signal FPE Floating exception KILL Killed USR1 User defined signal 1 SEGV Memory fault USR2 User defined signal 2 PIPE Broken pipe ALRM Alarm clock TERM Terminated STKFLT Stack fault CHLD Child exited CONT Continue STOP Stop (signal) TSTP Stop TTIN Stop (tty input) TTOU Stop (tty output) IO Possible I/O XCPU CPU time limit exceeded XFSZ File size limit exceeded VTALRM Virtual time alarm PROF Profile signal WINCH Window size changed WVS�|$���a& $t@W��G�����ƃ� w W��G������ )Ѝ��R& [^_Ð1�[^_Ð���[^_Ð���R& � ���{ tW�s�5F�_����tփ� Ny�1�[^_� �T$�� )���ǀ�R& & �$b& & ��u �=�^& &t �=�^& u
j&h�^& �Q8�_�j h$_& R��D�_�� � VS��R& � �C��t S� ���� Ny��$b& [^� VS�\$ �C �s ��u
22447: �;u�NB���; u�C V� @����[^� VS��R& �=�R& t h�b& �5�R& �XZ ����R& � ���C �{ t.h8_& h|^& �3�D�_�� �=8_& &tj h�^& �3��C�_�� �� Ny�[^�S�\$h8_& h|^& S��C�_�� �<_& �@_& �=8_& &t�� )����R& & [� VS��R& � �{ t�C j h�^& �3�yC�_�� �� Ny�[^� $Id: c_sh.c,v 1.3 1992/04/25 08:29:52 sjg Exp $ 1��nothing to shift
22448: S�D$� �^& �x t�p�3 ������& 9S|�C�� ��� &C)S1�[Ðh�� ��Y ���& [�%#3.3o
22449: S�D$�P��u(j �E�_����S�}E�_��ShL� �?�_��� ��1����\��B��<v�S�NE�_��1�[�%s: not found
22450: VS�D$ �X��u1�[^Ð�j �5�b& S�6����� �ƅ�uSh�� �.Y ��V�=������u
22451: �����[^�� a& [^�% �D$��� ��u�� P�H�����P�_������bad -u argument
22452: missing name
22453: %s ��UWVS1ҋ5`b& �& �|$�\���C<rt<et �F�<ut�?���& �6�1��1���a& $t��4��a& C��uh9� �T$�VX ���T$�; u���� ��t�C<-t�? uhJ� �T$�'X ���T$j?�7�T$��A�_���ËT$��� & � �= d& � & �C&PhX� �T$� X ���5hb& ��7�_���� ����b& ���c& �� ��
22454: �� �N9NrV�l4�_�����t �F��F����������u�& [^_]����t<��\u7�N9NrV�)4�_�����t
�F��F����������
22455: u%1��t��������
22456: t#� t��%� ��a& |
�ЈC�L������� h�b& �7�T$�A ��P�E �����T$�? ����1�[^_]��� S�\$j�lg�������XP�q;����[�%s: %s
22457: trap: bad signal %s
22458: UWVS�t$���> u4��R& � ���{ t�s �shl� �~V �� �� Oy�1�[^_]��6��������u
22459: �.������1���� �} -�� �}& �� 1�� ����6���R������Å�u�v�ht� ��U ���{ th�b& �s ��T ���C ��t00�������������Hth�b& U�2?�����C h�� � �j&�����1҃�&w
�= d& ����RS� ���> �`���1�[^_]� S�\$�; tYh8_& h|^& �3�E>�_�� �=8_& &u�{ t6�C& �T$ �8_& j h8_& �3�>�_�� �<_& �@_& [� �D$���8 t�0�1@����� a& ��G<����^& �����&v�=�^& u
j&h�^& �%1�_��5 a& �;�����cannot %s
22460: VS�t$ �~ t�v��?�������5��& �-��=�^& u#K�� �� �8bu�& Rh�^& �0�_���;����^& �����&v��6hs� �.T ��[^�There are stopped jobs
22461: S�\$�$V& �=$V& &u(�=
d& t �B�����th�� ��S ���& [���^& �C��tP�?����� a& �5 a& �:����[�set - w� {� %s: unknown option
22462: %c: bad flag
22463: ��UWVS�-�^& �
d& �L$�|$ ���7��u'h�� �� ��[^_]��Ð�� >��1�[^_]��Ð�>-t �>+�� �F<-���Ѓ��> u���� �d& �d& �� �>-�� �> �� ���>oug�? t��7���T$�0=�����ËT$��u����7h�� �T$�R ���T$�� d& �� u��t
22464: � d& �B��� u<��t8� d& �/����<w ����c& ���Ph�� �T$�>R ���T$F�> �]����= d& t�d& �7��������
d& 9D$t� ����? tW������E� � U�7�p;��������? u��)���H�EU����P�N ���E�ǐ����������u��) 1�[^_]��� VS1��\$ � ��@�8fu&F�����t.�8-t��'���uP�.< ��P��D ��� j P�����������u�1�[^� �D$�p�p�q% ���Shell: %8s user %8s system
22465: Kids: ����P�]<�_��h�� ��6�_���4$�U& ��Ph�� �6�_���t$�;& ��Ph&� �6�_��h
� �6�_���t$�& ��Ph�� �v6�_���t$ �� ��Ph&� �\6�_��1����%8s real %8s system
22466: �� WVS�t$0�\$4�x^& ��c& �D$ P�;�_����S�v�r������ÍD$ P�o;�_��)�P�t ��Ph�� �P ���D$ +D$ �c& P�O ��Ph�� ��O ���D$+D$ x^& P�* ��Ph�� ��O ��h�� �O ����[^_�� � ��UWVS�|$�^& ��)P� � � ����ؾ< ����������< ����Ǎ�Ǎ � ��I�& I�&s�������uI�&.I���
22467: ����ŀ�0���C��~݅�ى�[^_]��� 1�� 1��=: =. [ =builtin =exec =shift =wait read =eval =trap =break =continue =exit =return =set unset umask test =times ulimit #� �� &� �� )� � +� � 4� � :� �� A� � G� \� L� L� R� �� X� �� _� �� i� � o� � w� �� |� �� �� T� �� � �� � �� �� $Id: c_ksh.c,v 1.2 1992/04/25 08:33:28 sjg Exp $ %s
22468: -r WVS�\$���; u9h _& �gI ������$t�rhu� �Q3�_�������u�1�[^_���3�y� � �� �u j&���������j&�3���d������; u�1�[^_�HOME no home directory PWD substitution too long
22469: substitution failed
22470: OLDPWD %s: bad directory
22471: CDPATH ��( UWVS��$< �D$, 1��D$$ �k��u)h�� �D7 ��P�/: ���Ņ�u
h� �dL ��h� �7 ���D$(�t$(��9 ���D$0�|$0TV& u2h & ��$<& P�p-�_��P�t$,�: ���t$(��9 ���D$0�{ �� �[�\$4�|$4 �� �\$0��0���������щL$�����������щL$�T$)ʉT$�\$4����������щL$�D
22472: �=� v
h� �K ��U�t$4��5�_���D$�|$ u
h0� �hK ���\$+\$0S�t$4��$@& V�5�_�� �t$4&�S�@5�_�����0���������щL$�T$�D
22473: �PV��4�_��h�^& V�4�����,����} -u*�}& u$hE� �5 ���D$$�t$$�8 ���ž& �} /t�} .uT�}&/t �}&.uH�}/uB�\$8SU�t$8��8���� S�(�_����}ShL� �J �#& ������& S�& ��h_� �*5 ��P�8 ���Ã|$, �� ���� ��$8& �|$ �T$8�T$ ����$8& �D$������D$�C�D$�; t
22474: �;:u�; u1��&C�|$ 9|$�����t!�D$� /�D$U�t$��3�_���|$�����l$�t$ �t$�t$8��7���� �t$ �'�_����u�D$,& �|$, u ���]�����|$, u��u�UhL� �vI ����t�D$8Phu� �I ��j ��������\$0�|$8�|$0�|$$ uhE� ��3 ���D$$��t�; tS�t$(�7 �������t$$�o< ���T$0�: t�t$0�t$,�7 ���
��t$(�G< ��1�[^_]��( �bad -u argument
22475: ��UWVS�D$& �D$& �5db& �l$ ���] C�; �� ����C<nt<et�Z�<rt <ut(�O���D$ �C���D$& �7���D$ �+�����a& $t��4��a& C��u
hI� �&H ���; u����} �` �E �8-�i����E �} � �|$ ��& ��\��& � �S�G�F 9���& �$�T� ��� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� p� |� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� � � ���D$ � ���� �j��
22476: �b��
�Z�� �R�� �J���Њ�<w>��\��G��<w.��\��G�$����N9Nrj\V�"�_��� ����F� \�F�N9Ns � ��N9Nr��%� PV�r"�_��� ��F��F� G����������} t*�N9Nrj V�?"�_��� ���F� �F�} ������|$ t'�N9Nrj
22477: V�"�_�������Ԑ���F�
22478: �F1�[^_]���%s is unknown
22479: %s is a shell builtin
22480: %s is a function
22481: function %s %T
22482: unknown %s is %s
22483: %s is the alias '%s'
22484: %s is a shell keyword
22485: %s is *GOK*
22486:
22487: builtin %s
22488: *GOK*
22489: ��UWVS�D$ 1�|$���~&vu�D$& ���7����& �>-t���& ���V�b= ��PVh�^& �> �� ��u
j V�������Ã|$ �� 1҅�t�S� 9��� �$��� � � � $� �� P� t� �� Vh�� ��)�_���& �5& Vh�� �& �Vh�� ��)�_���sVh�� �5db& �ڷ������ ���$��� ��t�SRVh�� �)�_�� � �sVh�� �~)�_�� �� ��Vh� � �Vh*� � �1҅�t�S� 9��� �$��� ����� �� 0� @� �� (� 0� h7� �)�_���& �YVh9� �:�$�E� ��t�SRhu� ��(�_���$u-�& �&��s����Vhu� ��(�_���
hF� �(�_���7�����6�����[^_]���unknown flag -%c
22490: typeset -i -x -r -t function %s
22491: %s=%s
22492: %s: not identifier
22493: ��UWVS�|$$1��D$ �D$ �D$ �D$ �� <rt# <et� & <tt �& ���� �
22494: & ��� & �� ���D$& �� ����>-t �>+�� 1���L$� ���и 9��� �$�d� ��� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ���D$& �4������,�����&�$������ ����������Phd� �.A ��F�> �M�����t�|$-u ���� \$ �D$ ���7�������? �R& �=�^& ���7& �|$ u�G ��G P�< ����� & ��$�� �|$ u{�|$ ut��uphv� �~&�_���$t
h� �k&�_��f�f% t
h�� �U&�_��f�f% &t
h�� �?&�_��f�f% t
h�� �)&�_���C Phu� �N����|$+t�|$ t�D$ #9D$ u�C Phu� �&����|$-t ��t@��#9�u8f�� t�C Ph�� ��%�_��� ���S�- ��P�C Ph�� �%�_�� � ����������4�������1�[^_]�����|$ t.�� �&��t$ U�7�41 �� ��u�7h�� �m? �����? u�1�[^_]���-d %s='%s'
22495: cannot alias keyword
22496: ��UWVS�D$�^& �D$ �l$ ���} t%�u ��� � �� �u �D$�`& ���} uG�t$��: �����#����{u�$t�s�C Ph�� �$�_�� � ����u׃} �� ��] j=S�(�_���ƅ�uLS�f7 ��PS�t$ �8 �� �Å�t#�{u �$t�s�C Ph�� �:$�_�� �q��D$& �f��� FS�7 ��PS�t$ ��8 �� �Ã{u
h�� �> ���$&th�b& �s�= ���#��C h�b& V�q'�����C� ���} �/����D$[^_]��� ��UWVS��^& �T$���: ts���� � ���� �uY��`& �O�2�T$�a6 ��P�T$�2U�7 �� �ËT$��t'�{u!�$&th�b& �s�T$�[< ���T$�#����: u�1�[^_]��� S�& �\$��3� ������%� ���; u�[� ����1��bg Job control not enabled
22497: % UWVS�l$�u �$� � �� ����=
d& u
h'� �< ��S�E��u�@� P�������P������1�[^_]�Usage: kill [-l] [-signal] {pid|job} ...
22498: -l %2d %8s %s
22499: %s: %s
22500: bad signal %s
22501: invalid argument
22502: �� UWVS� �D$ �D$ �T$ ���T$�: u
h�� ��; ���T$�2��� � �� ��J& ��R& 1퐃; t�s�s�3h�� �!�_��E�� �� ~�1�[^_]�� Ð���;-uw�|$ up�T$�z tf�C&��a& $t(j
22503: j �C&P��%�_�� �� ���D$& �� U�g��s&V��������uVh�� �#; ���+�D$& � ��D$ ���a& $u�;-uN�C&��a& $t@Uj
22504: j S�i%�_�� P�� �_����}N�5< `��$�_��PSh�� ��: �� �D$�+���;%uUS�������P���������h�� �: ���D$�T$���������D$[^_]�� �VS1��\$ �
���x&mu�& �����t�8-t�; uj j j �gm���� �; t+���j=�3�$�_����t� @VP�3�?m���� ���; u�1�[^�cd print getopts =typeset =export =readonly whence =alias unalias hash let fc jobs kill fg bind )� h� ,� \� 2� @� :� �� C� �� K� �� U� P� \� �� c� X� k� |� p� �� t� �& w� � |� � �� D� $� D� �� �� $Id: c_test.c,v 1.2 1992/04/25 08:33:28 sjg Exp $ -r -w -x -f -d -c -b -p -u -g -k -s -t -z -n -U -G -L -S = != -eq -ne -ge -gt -le -lt -nt -ot -ef ! -a -o ( ) N� & & Q� & T� & W� & Z� & ]� & `� & c� & f� & i� & l� & o� & r� & u� & x� & {� # & ~� $ & �� & �� " & �� ��
22505: �� �� ��
�� �� �� �� �� �� ! �� �� �� �� �� [ ] [: missing ]
22506: unknown operand WVS�\$�ڃ���c& �3��� � �� �u8�; t
22507: �����; u�����3��� � �� �t
h�� ��6 ��� 1ۡ�c& �8 t�0� ��P� ����u�& ��c& �8 t ��c& ��c& �8 th�� �0�$ ����[^_�test: %s: %s
22508: test: %s
22509: �D$�T$��t�8 tRPh�� �/6 �� Ð��Rh�� � 6 ��� VS�t$ �a ���ƃ�c& ��c& �0�M ����u51ۃ�c& ��c& �0�0 ��P��������u��t�& ��[^Ð���c& ���[^�VS�t$ �a ���ƃ�c& ��c& �0�� ����u51ۃ�c& ��c& �0�� ��P��������t�����؉�[^Ð����c& ���[^ËD$��t P�] ��Ð��c& ��c& �0�q ��P�����������%� �argument expected closing paren expected 0 ��WVS�\$��uh� j �n�������uV��c& ��c& �0�� ��P�~������Ã�c& ��c& �0�� ����th,� j � �������[^_��Ð��=_& �� �_& f�z&�� ��c& ��c& �8 u��th� �2���������t<���� � ��tW��%�� ��c& �0�b ������ d& [^_��Ð0ҡ�c& �8����������щ�H��%� �D$ �D$ [^_��Ð0ҡ�c& �8����������щ�H���ΐ����c& � � ��a& $ujhC� � ��[^_��Ð�S��c& �0�吐��c& ���c& ��c& �0� ���=_& � �5_& f�~� ��c& ��c& �8��uh� �6������f�Ff����и 9���& �$�H� ��� �� �� � 4� \� �� �� � � � � � � � � � � � � � � �� �� �� WS�] �_������%� [^_��ÐWS�A �_������%� [^_��ÐS� ����W� ��9���%� [^_��Ð��S� ����W� ��9���%� [^_��Ð��S�n ����W�c ��9���%� [^_��Ð��S�F ����W�; ��9���%� [^_��Ð��S� ����W� ��9���%� [^_��Ð��S��
22510: ����W��
22511: ��9���%� [^_����WS�& ��[^_����WS�A ��[^_����WS� ��[^_������c& �0�������������H��%� [^_��� ��@S�L$H�T$LJ�# 9�� �$�\� ����� � � @� p� �� h� h� h� h� h� h� h� h� h� h� h� h� h� h� h� h� � h� �� �� �� � D� � h� h� h� 8� �� �� jQ�t
�_������%� [��@Ð�j��j&��1ۍD$PQ��_����uf�D$ f% �f= ����؉�[��@Ð�1ۍD$PQ��_����u�f�D$ f% �f= @���ΐ�1ۍD$PQ�c�_����u�f�D$ f% �f= ��릐�1ۍD$PQ�;�_����u�f�D$ f% �f= `���{������1ۍD$PQ��_�����c���f�D$ f% �f= ���K������1ۍD$PQ���_�����3���f�D$ f% ��� ������1ۍD$PQ��_��������f�D$ f% ����������1ۍD$PQ��_���������f�D$ f% ����������1ۍD$PQ�[�_����������|$ ���������Q������P�!�_��[��@Ð1ۍD$PQ��_�����o�����_f9D$���Z�����1ۍD$PQ���_�����C�����_f9D$���.�����1ۍD$PQ�{�_��������f�D$ f% �f= �����������1ۍD$PQ��_���������f�D$ f% �f= ������������& [��@� VS�t$ ��� ��u!�_& 1�[^Ð�� _& �C[^Ð���=�� t����3V�X�_����tՃ��; u��_& � [^� �� S1ۍD$DP��$� ���_����u&�D$P��$� ���_����u�T$,9T$l���؉�[�Ā � �� S1ۍD$DP��$� ��_����u&�D$P��$� �v�_����u�T$,9T$l���؉�[�Ā � �� S1ۍD$DP��$� �:�_����u2�D$P��$� �"�_����uf�T$f9T$Du�T$9T$H���؉�[�Ā � $Id: do_ulimit.c,v 1.3 1992/08/10 12:02:23 sjg Exp $ ulimit Usage: %s [-cdmstf] [limit]
22512: unlimited
22513: %ld
22514: bad ulimit
22515: ��UWVS�\$$�D$ �D$ �& ���� �;-�� �S&�B���w�D$�� �� 9��� �$��� � � � 4� ,� 4� 4� 4� 4� 4� 4� � 4� 4� 4� 4� 4� � � � �?�� �7�� �/�� �'��D$& 1���& ��h� h � ��* ���\$(��t31�������tBЅ��� �C��/~��9~���� ���� �l$UW�� �_����uy��t)���D$�D$�|$ u�D$ UW� �_����uQ�D����|$ t �t$�����t$ �����uh=� �V* �������|$PhH� �>* ��1�[^_]��ÐhM� �* ��[^_]��� $Id: getopts.c,v 1.3 1992/08/10 12:02:41 sjg Exp $ -- illegal option -- %s%c
22516: option requires an argument -- UWVS�l$�\$�= ^& &u?9-^& },�^& ���8-u �x& t�ƿW� � �� �u�^& �����[^_]Ð�^& ��� ^& �4��:tV�t$ � �_����uQVhZ� hm� � ) �� �^& � ^& ��� ^& �< u�^& � ^& & �^& �? [^_]Ð@�8:uf�^& � ^& ��x& t� ^& @��/����^& 9-^& |Vhs� hm� �( �� 떐�^& ���^& �^& � ^& & �4��^& � ^& ��� ^& �< u� ^& & �^& �^& ��[^_]� �^& & � ^& & �missing arguments
22517: OPTIND OPTARG ��WVS�\$���3��t ���;��u
h � �' ���& �{ t
�C���B�8 u���&~VSR�(���^& �Z��8 u �B4�P�@���R��VP�B&P������� �Ã=^& &t �5^& h0� �
22518: ��P� �����u
�& [^_���=^& t �5^& h7� �� ��P� ���\$f�L$f�L$�D$PW� ��P� ��1�[^_���$Id: expr.c,v 1.2 1992/04/25 08:33:28 sjg Exp $ %s: %s
22519: �t$�5 ^& hx� �& �� �bad expression S�D$�$^& � ^& � �7 P�� ���Ã=(^& t
h�� �������C[�bad assignment WVS�h �Éރ=(^& =uU�= b& �$ f�f% &t
h�� �U����������P� ���É= b& �sV� ���$t �~ u�S�V��[^_�VS�] ���E�� (^& � V�7 �����= P�' ���@9F��%� �F��u
22520: 4&��&�V�(^& �����&v���[^� VS� ���k��5(^& �Y S�� ����� P�� ����u �@9C���.��<u �@9C��� ��u �@9C�����>u�@9C����&�S�=(^& t��=(^& <t��=(^& >�w����=(^& �j�����[^� VS�i ���@��5(^& �& S�+ �����I P� ����+u �@&C������-u�@)C�=(^& +t��=(^& -t���[^�zero divisor WVS� ���k�=(^& �A& V� ����� P� ����*u
�N�K�N�4��{ u
h�� �H�������/u �F��{�F���%u
22521: �F��{�V�=(^& *t��=(^& /t��=(^& %�v�����[^_�missing ) VS�=(^& !t �=(^& -u@�5(^& � �����P� ���Ã�!u�{ ����&�S�d�����-u\�[�W���=(^& (u'�N �����Ã=(^& )t#h� & �x����������(^& H��&w
� ,^& � �
h�� �N�������[^� VS�5$^& � F��t
22522: �� t�� t��I�
$^& ���Њ�a& $&tJ��a& ���� F��%� ��a& $u�N� � �5$^& �A
���,^& � �(^& & �� ��a& $t^��a& ���� F��%� ��a& $u��#t�N� � � �,^& �5$^& P� ���,^& � & � �(^& �\��F��=u��=u
22523: � �@�����!u��=u
22524: � �,�����<u��=u
22525: � ������>u��=u
22526: � ����N� (^& �5$^& [^�h�^& j� ��� b& �^& � �@ �@ �bad number VS�t$ �������C
22527: VS� ����u7�$t �~ t�F�8 th�& ����������� �C
22528: �C ��[^� $Id: history.c,v 1.4 1992/08/12 14:15:33 sjg Exp $ $_ argument expected
22529: cannot find history
22530: can't find history
22531: w cannot create temp file %s %3d: %s
22532: _ ${FCEDIT:-/bin/ed} $_ r cannot open temp file %s
22533: ��$UWVS�D$, �D$( �D$$ �D$ �D$ �D$ 1�t$8���>���/& �G<-�$& �� ������G�
9��� �$�d& �& @& �& @& @& @& @& �& @& �& @& @& @& �& �D$(� ����D$$� ����D$ � ����D$�~����t_� ��tY�;-u �{& u�D$ �Uh�^& 0������������Ѓ�P� ���D$,S�t$0�
�_��hO& �t$0���_������hS& �� ���f& ����E�? t����������>��t �G<-u��t߃|$ �� �D$ �D$ �-xQ& ����0�j=W�t�_���Å�t�|$�\$� �D$�
��W� ���ŋ>����uȅ�t��T_& s
hg& �B ���|$ u�u h�b& �/�_������t$�t$�t$ �u �� ���t h�b& �� ���
�b& ��b& 1�[^_]��$Ã> t7�6��� ���ǃ> t�6�x �����E����|$( t;�5xQ& �3����|$( t�=xQ& ����5xQ& � �=xQ& �������T_& s�T_& ��t��u
h|& �f ���|$( t� db& �b�D$$h�^& �B ���D$0��^& ���^& h�& �L$4�q�u��_���Å�u�T$0�rh�& � ��h j j S���_�����|$ t���W�9�wV�|$$ u$��`& �xQ& )����@ )�Ph�& S�$��_�� �u h�& S���_�� �|$ t�������|$ t�9�s��|$( t 1�[^_]��$ÐS�>��_���L$0�qh�& �v ��P��
22534: ���|$, t �t$,�� ����h�^& �t$0�A ���
h�& � ����h�& �T$4�r�b��_����u�L$0�qh�& �� ��h j j S���_�����Sh&& h�b& � ��_�� ��th�b& � ���
�b& ����b& S�o��_��1�[^_]��$� �=xQ& T_& v;��`& �P 9DV& t+�H h�b& �xQ& �0�t ���xQ& ���`& �@ �DV& �WVS�t$�>-u
V������!�����a& $t V�e������`& +B ���� xQ& �t�>?u/� xQ& �����T_& r^F�V�3�X�_����uM�����T_& s��@� xQ& ��T_& r2����0���������щ�HPV�3���_�� �D$ ��t �����T_& sиT_& 9�w9 xQ& r ��[^_��Ð�1�[^_���substitution too long
22535: substitution failed
22536: �� UWVS�l$ �D$ 0ۋ|$$����������щ�H�D$������������ҋ|$$��������щL$)ʋ|$(��������щL$�T
22537: ��T$��� v
h� & �� ����b& ��b& ��t$$U��_���ƅ�tE��)�SUW���_�� �t$(&�S��_���D$�,0�t$j W�X�_���ǃ|$, u��f& 멐�|$ t�D$D$PW�F�_����h� & �2 ����b& [^_]�� � � _& � ��`& � �T$�xQ& -T_& ����|9�|�
xQ& �
_& ��`& ��T_& � _& ��`& ��� UWVS�l$�t$��tF��NV�����������������t$ S� �_����uE��tF���NV�q������Y������t
�; t9�t����t$�M�������~1�[^_]����[^_]�����[^_]� S� xQ& �����`& r2h�b& �5T_& �& ���T_& ���`& s���S������`& r�h�b& �t$ �n&�����j
22538: P��&�_����t� � xQ& [� VS�t$ �HV& �=HV& &uOh�& �1& ���Å�t<Sh&& h�b& ����_�� ��th�b& �C������F �א����b& S�/��_��[^� �HISTSIZE WVS�LV& �=LV& &�� j
22539: j h� & ��& ��P�� ��P�&�_�� �ƃ�d���d �xQ& -T_& ��9�|�� � xQ& )����T_& h�& �a ���Dž�t1��~$�; t �4��3h�& W� ��_�� ��9�}�; u�W�j��_��[^_�HISTFILE .pdksh_hist HOME %s/%s �� Sh�
& �'& ��P� ����t�8 u0h�
& h�
& �& ��P�� ��Ph�
& �\$S���_������$� P�e��_��[�Ā � $Id: var.c,v 1.3 1992/08/10 12:03:25 sjg Exp $ S� �^& S�G ���C �CXV& �C, �C0 S�C P� ��S�� S� ��[�WVS�=�^& �w�O4�
�^& �_�&�������t�$t�B P� ��P�� ��Ky�W�� ��[^_�UWVS�|$�5�^& W�& ������L$�\$��a& $tz�X^& � b& �^& �X^& & �\^& �
d^& 1����a& $t"������LB�G���a& $t��� ~�9N|�F�4�S�? ����[^_]��Ð���a& $&�6& �X^& � b& �^& �X^& & �\^& �T$�d^& �& t�X^& [^_]��Ð��X^& & ��߸ 9��� �$� & ����& �& �& |& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �& �t^& �S��������0b& �S�������� a& �S��������v�s�������#������C�����#������5�^& ��t-��UW�F P�]
�� �É5 b& ��������~4 t�v4��u�UW�F P�
�� �À W� ����t� ��[^_]���WVS�t$�=�^& V� �������a& $&u'� b& �^& �X^& & �\^& �X^& [^_�RV�G P�1
�� �É= b& � V�- ����t� ��[^_�0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ VS�t$ �$t V�Z ���$u �TV& [^Ð�$u
22540: �NN�A���F��}�؋^��u�
22541: �W^& �W^& ���I1��& ���u�~ }I�&-��[^�%s: bad number
22542: S�\$�$t S�� ���$t�C[�X^& �\^& ShX^& �� ����u�shL& �m ���`^& [� VS�\$ �t$�$uP�$&t�5 b& �s�L ���#��C f�f% tVS� ������5 b& V�������C� &�;��X^& �\^& �5`^& hX^& S�+ ����uVhL& �� ��� �$t S�/ ��[^� WVS�L$�T$�ZZ1�� �$t
22543: ��u�$u�!�1�[^_�$t�R�Q��[^_��A �
22544: �x����-uG�n��#u�A�A���A �X����%� ��a& $tM�BЃ� w��� ����B���w�©�����B���w��Ʌ��o���9��g������A&ЉA�C��u���t�Y�A�����"v�A ��[^_� S�\$�T$ �$u5�X^& �\^& �`^& hX^& �A�����PS� ���������S� �$t S�� ��[� VS�t$ j=V�>��_���Å�u1�[^�� V�S��������=C�
22545: �r)�Z�$t R� ���& [^� ��UWVS�\$�l$ �$&1���t�s�5 b& 0ҍ{ ����������щL$������������T$R� ����� &�K�C �&�S
��t ��A��&B��u��&=A��+C�C���&BA��u���t�5 b& V�
��[^_]���cannot set readonly %s
22546: UWVS�l$�|$�����a& $&u1�[^_]��>=t���a& $t�F�> u�>=u� ���1���f% t
22547: U� ������U�������Á�������t�=F�$u�D$ ��# ��� �$uv��$tp�X^& �\^& �KK�
`^& �$&t�5 b& �s� ���#�� �C ��uVhX^& S��������uD�#��5`^& hL& �G
�,��D$ $t&�$t S��������`^& �#��5`^& S�������D$ ��# ����t4f�f% &tUh�& �� ���$t
U�o������ ��VS�u������% = u �{ u�$�TV& ��t�SRS��������[^_]� S�\$�$&t�5 b& �s� ���#[� �T$���a& $&u1�À: t����a& $t�B�:=u�& � �� UWVSh�^& h & �& ���D$$�D$ & �D$(��^& �T$ ���& �L$ �Q�T$�i�� ��L$�9�D$���� �% = �� �w V� ���D$�T$ � b& �Z4��t$���t$V�C P�� �� ��t� �����[4��uފ$tW�6������'�PW�������L$(9L$ r9�\$ +\$$��h�^& �� P�t$,� �� �D$$����&T$ &Ӊ\$(�D$ ��8�D$ M�"����L$ �I4�L$ ��������T$(9T$ r9�\$ +\$$��h�^& �� P�t$,�( �� �D$$����&��L$ &ˉ\$(�D$ � �D$ h�^& �D$$+D$($�P�t$,�� �� [^_]�� �PATH IFS SECONDS OPTIND MAIL MAILPATH RANDOM FCEDIT COLUMNS WV�D$ ��& 8u ��& �ǹ �� �u �& ^_Ð��& 8u ��& �ǹ �� �u � ^_Ð����& 8u ��& �ǹ �� �u � ^_Ð����& 8u ��& �ǹ �� �u � ^_Ð����& 8u ��& �ǹ �� �u � ^_Ð����& 8u ��& �ǹ �� �u � ^_Ð����& 8u ��& �ǹ �� �u � ^_Ð����& 8u ��& �ǹ �� �u �
22548: ^_Ð����& 8u ��& �ǹ �� �u � ^_Ð��1�^_� S�\$�C P�~�������t
22549: ��t)[���#�j ���_��+h^& PS�������� [��#��$��_%� �� S�\$�C P�*������P��
22550: 9�� & �$��& �& & & 4 & L & ` & t & � & � & � & � & S���������b& j&运����[Ð�h� S�������P�|�����[Ð��j �Q��_���h^& [Ð��S�"�������&u~�����[Ð��S������P� # ��[�S�n�����P�}# ��[Ã#�S�������P�Z��_��� [Ð�S�>�����P�� ����[�S��������Q& ��
22551: ��Q& P [� $Id: table.c,v 1.2 1992/04/25 08:33:28 sjg Exp $ �T$1ɀ: t
��� HB�: u���� &���)ȍ���� �D$�T$��@ �@ �@ Ã� UWVS�|$ �\$$�w �t$�O�L$�7�� P� ����1�9�}�ꐐ�� ��@9�|�_�� �
22552: ����G�o �|$ �� �|$ ~u�L$�L$�t$� ��tM�$t<�C P� ������WJ!ЍT� �: t�9�u �O�� &���: u��O� ��7S� ���D$�t$�L$��9D$|��7�t$ �� ��[^_]�� � UWVS�|$�l$� u1�[^_]Ð����[^_]Ð�GH#D$ ����w �5���S 8U uU�C P���_����u�$u�9w u �W�� &ƃ��� ��u�1�[^_]�UWVS�l$�t$�} u jU�n������EH#D$ ����} �-��S 8uV�C P���_����t09} u �U�� &ǃ��� ��u} �U�U P럐����[^_]Ð���8 t�@�8 u��u )���
P�& ����� �C �C �> t
����F@�> u�� �M� ��[^_]� �D$� � �D$�P�l^& �@ �p^& � � ���p^& ��p^& ��t
22553: �$t���
l^& y�1�� �D$�� P�D$�� P���_��� WVS�|$h�^& �G@��P�� ���ƋO ��1�9_~ ���&�����t � $t��C9_��)�����h� & SV������ �� ��[^_� $Id: alloc.c,v 1.2 1992/04/25 08:33:28 sjg Exp $ �D$� dV& � VS�t$ ���t =dV& t��P����_����9u��dV& [^�allocate bad size cannot allocate allocated object too small ��UWVS�D$ ��u h� & �t$$� �����1�[^_]��Ð�H���P&�t$ � �,� ���& ���D$ �C9Ct9P��� �D$� 9Cu�L$ �193un���& ��u�& P�T$����_���ËT$���� �L$ �9dV& u���t$ �� ���&߉{�C�C�у�c�K �s�s�D$ � �����]�����L$ ��ŋ}�)�yh� & �t$$�T$ �/������T$O���E ����U��D��x��u �0�|$ u�C��h� & ��������L$�&��[^_]���UWVS�t$�T$�|$ ���uh� & W�������1�[^_]Ð�B���@��t9F�s0��WR�c������Ɖ��t�C��
���� �
22554: ����H���u�WU��V�)�J��~�F��\��S�WS�9 ����[^_]�freeing with invalid area freeing free object ��UWVS�l$ �\$�u �
�U 9�� �6�F 9�w�9^v�1��N9�s
22555: ���ϋ9�r�9�uh#& U�������[^_]��Ð��S��� &؍Q�9�u �C�@A��C�� � ��u �^[^_]��ËW��� &��S�9�u �G�@C��G��� [^_]��Ð��h�"& 느$Id: io.c,v 1.3 1992/08/10 12:02:49 sjg Exp $ �D$P�t$�5hb& �(��_�� ����� �D$P�t$�5hb& ���_�� 1��r+ S�\$�<�`b& u+hV$& S���_����`b& ��th j j P�u��_��[�S�\$�<�`b& t"j&j �4�`b& � ��_�� �4�`b& �Z��_��[�too many files open in shell
22556: VS�t$ �� UV������j
22557: j V����_�� ��} �=< ` u�����[^�h�$& �������j&jS���_�� V� ��_���������[^� VS�\$ �t$��t+S�0�����S����_����|Sj V�o��_�� V����_��[^�can't create pipe - try again
22558: S�\$S�5��_����}
h�%& �P������3��������s� ������C[� S�\$�3�X��_���s�M��_��[�/tmp/sh%05u%02u �� & WVS��$& �5xV& �xV& ����_Ph&& �t$V�g��_��h�& V���_��P����_��Wj��������� WV�'������C��[^_�� & � $Id: eval.c,v 1.4 1992/08/12 14:15:28 sjg Exp $ eval:substitute error
22559: VS�\$ �5�`& j��
�������`& j������= & t
h�&& � ������5�`& �t$�5P_& �& ��[^� �� WVS�t$ �|$ �> u ��[^_�� �h�^& h� �������T$�T$ �с�� �L$9L$ r6�\$ +\$��h�^& �� PR������� �D$����&��L$ &ˉ\$�D$ � �D$ �L$9L$ r9�\$ +\$��h�^& �� P�t$������ �D$����&��L$ &ˉ\$�D$ � �D$ �> t�\$ ��WS�6����& �� �> u�L$9L$ r9�\$ +\$��h�^& �� P�t$������ �D$����&��L$ &ˉ\$�D$ � �D$ h�^& �D$+D$$�P�t$������� ��[^_�� � �� VS�t$�\$ h�^& j�O������D$ �D$���D$S�D$ PV� & �� �D$+D$ ��t �D$ �0����(& h�^& �t$� �������[^�� � �� VS�\$�t$ h�^& j��������D$ �D$���D$V�D$ PS� �� �D$+D$ ��t ��&t �����(& ���D$ ����$�PS�%�������h�^& �t$��������[^�� �eval:expand(NULL)
22560: %s: unset variable
22561: ridiculous ${} nesting
22562: missing value for %s
22563: %s
22564: ��� UWVS�D$, ��$� �T$(��$� �L$�D$ ��$� u
h�)& ��������=d& t��$� �f��$� f% &uY��$� $tNj{��$� ���_���ƅ�t7�~�&u1�~&&u�~}t%��$� ��$� ��$� �� �� ���i ��$� ����DŽ$� � h�^& h� �0�������$� ���$� ��$� ���D$0 ��$� �D$$ ��$� ��L$ �d$ &�t$ &��9�$� wR��$� ��$� &�$� h�^& ��$� ��PS������ ��$� ���$� ��$� ��)؉��$� � 9D$0�Z �T$0�$��+& ����+& �.& �.& �.& @/& �} E� 9��& �$��+& ����+& ,& ,& 8,& ,& (,& x,& �-& 1��) ��L$,�} E�� ��D$,& �D$ & � �������D$, ��������U��$� P� ���D$0j U���_���h&��+�$� �L$ �D$ ���������$� j ��$� �{��_���h&�x&t �x&�h���1�������#t��%uc�=d& t3��$� ������P�&�����=TV& u��$� h�)& �.������D$�D$0 �D$(��L$,�T$(�
22565: �D$, � ��W��$� ��$� P� �� �D$0�|$0 uA�D$49D$u
h�)& ��������D$��T$f�:��f+�$� f�J��$� �J�����jU�n������������� ��$� $t��$� ��T$f�f��f��%t% f��#t �� f��=tzf��?�� �� ���� �L$�A���$� �T$(�
22566: �L$,�D$(�T$�PV�L$ �q�������P������P�� �� ��$� �D$0& �L$���������T$�B�$� P�L$ �q������P�S����0��T$�B�$� 9�u��$� h�)& � ���Ph�)& �������D$�D$0 ������$� �8��$� ���/& �ؐ�D$0 �D$,& ��$� �8��$� ���& ��$� � ��$� ��$� ��t��|$, tf��$� t�D$0 �D$, �=�V& � ���|$ u]���$� �H9HrP���_�����t��$� �P�:�@���������
22567: u�D$���|$ t ���t ��$� W�g��_���
22568: �L$���uB�T$ �$� ��$� �D$ ��$� ���_��f��$� ���������������t0�|$, � ��$� $�J& ����%� ��a& �4& �|$ �& � Fh�^& ��+�$� P��$� ������ ��$� �D$$$ t��$� �� ����$� �D$$$t��$� ��$� � ���e����$� �J9
22569: r@�+Z��h�^& �� P��$� �r������ ��$� �A����Q��Y��$� �&��$� ��&�D$ �D$$ ���& DŽ$� � h�^& h� ���������$� ���$� ��$� �ƅ��� ��������|$, �� ��?t$��!tA��*t� �����[t ��~tJ� ���$� u�|$ tp��$� �� D$$�S�����$� u�|$ tL�~�[uF�~��u@�1���$� $ t 9�$� t��$� $u �~�=t�~�:u�L$$ ��F����d$,��D$ & ���ЈF� ������[^_]��� � ��WVS�\$�t$�>#�� �V&��ty��*t��@u ��^& �P�;�F�t$ �t$ �j������D$ �t$ �N������D$ 0ҋ|$ ����������щ�Jh�^& j
22570: R�������P���������& [^_�������*t��@u7�=�^& � tC����|$ �{�� �C��@��f��&f�C� �$�V�������P���������u�TV& �& �T$ ����%t6��#t1�|$ } ��8 u ��;TV& u��=t��-t��?t
22571: �
22572: �����+u1���t$�=d& t�;TV& u��+tVh�)& ��������[^_���funny $() command
22573: r cannot open $() input
22574: ��UWVS�l$ �\$ j�� �����P�������ƅ�t~�>&uy�F�8 uq�F�8 ui�~ tc�F ��C����&t
h�3& �������h�3& j �s�g�����P�"��_���Dž�t W����_��P������PW���_��f�E �l��D$P�*�����h�3& �t$�i��_����j&�I�������j&�t$���_���t$���_��j8V�i����j&S�c��_��S�r��_��f�E& ��u
h�3& �'�����h j j W�&��_���}� [^_]��� ��UWVS�|$�l$ �\$ j W����_������%��
22575: ��#t �& =� tE=� �� �� ���9��� ����T$� UW�(�������ue�T$�C9�v�� ���9��� ����T$� UW���������u1�T$�K9�s�� ���9�r}��US���������uK9�s��f����T$���[^_]��Ê�T$� h�b& W�������T$�[^_]��Ð����T$� h�^& �։�9�w��US�e�������u�C9�v��[^_]���Missing }.
22576: Missing comma.
22577: ��UWVS�|$(�|$ h�^& W�& ����V�o������É\$ j j{�D$$P�l$,U��& ����u0�D$0% & P�t$0W�$����� h�^& S�B�����[^_]��Ð��h�^& V�������D$�|$�D$ j&j}�D$ PU�j& ����u)h�^& S�������h�^& W�������ha6& ��������D$� &�D$�D$� ,�D$�D$� �l$ ���|$ �? �� �t$��T$ �T$j�j,V�D$,P�� ����u)h�^& S�{�����h�^& W�m�����hm6& �P������D$ �l$j j V�D$ P� ���t$0�t$0S������ �D$ �8 u�h�^& S� �����h�^& W����� VS�T$ 1��: tW����ȸ 9�r��$�D8& `8& `8& l8& h8& h8& l8& h8& ������FB뼉�j S���_���P&��)�&��F��[^� ��UWVS�L$$�L$�D$(1�1�1��t E�������L$ ��L$ ��: �� ������D$� 9D$w�L$�$��8& 9& `9& �9& t9& |9& �9& ��&u �z&]uU1��Q���uL�z&[u
22578: �& �?�����t�z&{u&G�z&}u&O�L$8J&u!��u � �L$ ��L$ ��& [^_]���
22579: � BC�
22580: � BC�M�������& ��1����BC��u��/����� �L$ ��L$ �1�[^_]��� �� & WVS��$& ��$& �+C����j SW�D$PP� ���+C��9�uQ�K9 r.h�^& �� P�s�e����� �C�� ��K� &ȉCW� �����[^_�� & Ð�h@ )�P�� CP������ [^_�� & �. ��UWVS�t$ ���� �|$( tj �t$ ����_������& �|$$�O9r:� +_��h�^& �� P�|$,�w������ �L$$�A����y�9�Yh�^& �t$ �������L$$���&[^_]��Ð���|$9|$ v�L$ �&/�
22581: ���|$ �F�D$ �>/t�j/V����_���Ņ�t�E E�L$ �& j�V���_����u.�T$ ���CB��u�J�t$(�t$(UR�t$(�������� ���a:& �|$�? t�D$P���_���D$�|$ t~���t$�/��_����t`�X
22582: �x
22583: .u�x t�x .u�x tՀ>.u�VS���������tT$ ����CB��u�J����%� P�t$(UR�t$(�S�����뒐��t$�7��_����t�E�/[^_]���S�D$���8 t���:�t��AB�: u��& [�HOME PWD OLDPWD �� & UWVS��$0& ��t$(��C��� & ���u�;~t�F��1Ҁ{& t �{&/t�{&:u hY<& �"�����P�
�������C� ���{&+u�{/t �{:t�{ uh^<& � ��{&-u2�{/t �{:t�{ u hb<& �������P���������d����C&��a& $&tS�ߍT$C���a& $t'�L$$�L$9�s��� �
22584: CB���a& $t9T$w�� �D$P�^ ���
�u
22585: ����������: ��������
22586: �BF�: u������� h�^& U�n�����h�^& �D$,P�������[^_]�� & � S�\$S�
�����PSh�`& �J����� �
�t
�$t�B[�S�b��_����t�@[�1�[�$Id: mail.c,v 1.2 1992/04/25 08:33:28 sjg Exp $ MAILCHECK MAILPATH MAIL ��PShX>& �b������$�� R�D$HP����������� �=�V& uj ����_����V& j ���_����+�V& 9D$L�� ��V& hb>& ��������
�t�$t
22587: � �V& �o��hk>& ���������1ۅ�tX�$tR��V& �K���D$P�s���_����u,f�D$ f% �f= �u �L$9K s S�& ���L$�K � ���C ���u�[��P� ��@S�\$H�=�V& th�b& �5�V& ������� �V& ��V& �D$PS�!��_����u f�D$ f% �f= �u�T$��V& [��@���V& [��@� VS�\$ �5�V& �k ����V& h�b& S�������Å�tG����j:V����_���Å�t� Cj?V����_����t� @PV�S ����V& ���V& ��u�[^�VS�\$ ��t,���ދ��uh�b& �v������h�b& V��������u�[^� ��@WVS�\$P�t$Th�b& j�V�������� �_�w�D$ P�w����_����uf�D$f% �f= �u
22588: �T$ �W ���G ��[^_��@�%s
22589: S�D��3h A& � ������5hb& ����_��h�b& �3��������S��V& h�b& S�������� �V& ��u�[�_ you have mail in $_ WVS�t$h�b& j���������vj h hcA& �(����� ��W� ������~ t h�b& j �v� h�b& j heA& �������P��������W��������V& �S� �V& [^_� $Id: sigact.c,v 1.5 1992/05/03 08:29:10 sjg Exp $ U��VS��^& ���u 1҃<��^& t��^& �����B�8 u��Ӆ�t�4��^& ����Ѓ��Ku��e�[^�� U��S��^& �=�^& t������Ѓ; u�h8B& ���_�]��� U��=�V& u��V& & ������ �V& �V& �V& S� �\$�L$ �T$̀��} �أ�V& �����[� VS�t$ �\$�T$��t'���Ѐ: t�@�8 u�)�PRV������ ���S���u�[^�'
22590: : can't load library ' Incompatible version.
22591: Too many libraries.
22592: No such library.
22593: Permission denied.
22594: Exec format error.
22595: Unspecified error.
22596: )
22597: ( ��UWVS�l$ �|$ ��& ��V& �=�V& � ��P�>�V � ̀����}
�ى
�V& ��������� ��5�V& j hHC& �0hLC& �u j������� 9��� �$�tD& ���D& E& �D& E& E& E& E& E& E& E& E& E& E& �D& E& E& E& E& E& E& E& E& �D& j hcC& �:���j hzC& �.���j h�C& �"���j h�C& ����j h�C& �
22598: ���j h�C& j��������& �� ̀���T$�H �� t
9L$�����6��D$ �T$�� ���% �9�u �T$��9�}�D$& �T$��t;�j hHC& �0hLC& �u j�m�����j hcC& j�\����& �� ̀���> �D���[^_]��þ�V& �=�V& t.��j h�C& ��ph�C& �0h�C& j&� ����� ���> u��& 1�̀���[^_]��üV& �V& �V& /lib/libc.so.4 Jump table 4.2 �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& �V& @ KSH_VERSION=@(#)PD KSH v4.7 92/08/12 t IFS=
22599: & & & & & $& )& & .& 1& 5& & <& ?& I& R& X& k& & �& �& �& �& �& �& �& �& �&
d �
& ! + 7 ? H
P W ^ f q w � � � X& ����P_& �8 P �< �< �< �= �g @ @ @@@ @ @ && &&& � & � &&&
22600: & & & & &&
22601: && & &
22602: &&& & & &&
22603: & & hX& & ̐ <� T� � D� I� & R� V� ]� a� k� p� u� y� �� �� �� �� �� �� �� �� �� ��
22604: �� �� �� �
� �
(� -� 9� >� J� O� Z� a� m� r� � �� �� �� �� �� �� �� �� �� �� �� �� �� � � "� )� <� A� P� V� �� D� � �� $� H� & ���� & G& � & h & dV& pV& pV& �#& �&& (>& B& �V& 0F& ?F& ` �O& �V&
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.