diff options
| author | cvs2svn <cvs2svn@FreeBSD.org> | 2000-05-02 20:00:08 +0000 |
|---|---|---|
| committer | cvs2svn <cvs2svn@FreeBSD.org> | 2000-05-02 20:00:08 +0000 |
| commit | abd27882715cd47fa98e91e7d5e157cb7d597735 (patch) | |
| tree | e0a6bfe61ea936f664e45ecebb8a7094ab8eb34f | |
| parent | 078e45bc3d534f10b552d23e25da63880bcfa478 (diff) | |
| download | src-test2-vendor/tcsh/6.09.01-fix-history.tar.gz src-test2-vendor/tcsh/6.09.01-fix-history.zip | |
This commit was manufactured by cvs2svn to create tagvendor/tcsh/6.09.01-fix-history
'tcsh-vendor-tcsh_6_09_01_fix_history'.
328 files changed, 0 insertions, 78424 deletions
diff --git a/contrib/tcsh/FAQ b/contrib/tcsh/FAQ deleted file mode 100644 index 86fea4a3e5d6..000000000000 --- a/contrib/tcsh/FAQ +++ /dev/null @@ -1,211 +0,0 @@ - -Last Updated: -Fri Mar 12 12:53:43 EST 1999 - -This is for people who do not read the manual! - -So far people who don't read manuals don't read this either... I may -call it README.*PLEASE* in the future, but then the same people won't -be able to get ftp it... :-) - -1. Why is the meta key broken in tcsh-5.20 and up? - - On some machines the tty is not set up to pass 8 bit characters by default. - Tcsh 5.19 used to try to determine if pass8 should be set by looking at - the terminal's meta key. Unfortunately there is no good way of determining - if the terminal can really pass 8 characters or not. Consider if you are - logged in through a modem line with 7 bits and parity and your terminal - has a meta key. Then tcsh 5.19 would set wrongly set pass8. - - If you did like the previous behavior you can add in /etc/csh.login, or - in .login: - - if ( $?tcsh && $?prompt ) then - if ( "`echotc meta`" == "yes" ) then - stty pass8 - endif - endif - - If you don't have pass8, maybe something like - - stty -parity -evenp -oddp cs8 -istrip (rs6000) - or - stty -parenb -istrip cs8 - - would work.. - -2. I ran 'dbxtool &' and 'shelltool &' from tcsh, and they end up in cbreak - and no echo mode? - - These programs are broken. Background jobs should not try to look at the - tty. What happens is that dbxtool looks in stderr to inherit the tty - setups, but tcsh sets up the tty in cbreak and -echo modes, so that it - can do line editing. This cannot be fixed because tcsh cannot give away - the tty. A work-around is: - - dbxtool < /dev/null >& /dev/null & - or - /usr/etc/setsid dbxtool & - - If that does not work, for dbxtool at least you can add "sh stty sane" - in your .dbxinit - -3. I tried to compile tcsh and it cannot find <locale.h>? - - Your system does not support NLS. Undefine NLS in config_f.h and it - should work fine. - -4. Where can I get csh sources? - - Csh sources are now available with the 4.4BSD networking distributions. - You don't need csh sources to compile tcsh-6.0x. - -5. I just made tcsh my login shell, and I cannot ftp any more? - - Newer versions of the ftp daemon check for the validity of the - user's shell before they allow logins. The list of valid login - shells is either hardcoded or it is usually in a file called - /etc/shells. If it is hard-coded, then you are out of luck and - your best bet is to get a newer version of ftpd. Otherwise add - tcsh to the list of shells. [For AIX this file is called - /etc/security/login.cfg]. Remember that the full path is required. - If there is no /etc/shells, and you are creating one, remember to - add /bin/csh, /bin/sh, and any other valid shells for your system, - so that other people can ftp too :-) - -6. I am using SunView/OpenWindows and editing is screwed up. In - particular my arrow keys and backspace don't work right. What - am I doing wrong? - - Well, cmdtool tries to do its own command line editing and the - effect you get is one of using an editor inside an editor. Both - try to interpret the arrow key sequences and cmdtool wins since - it gets them first. The solutions are in my order of preference: - - 1 Don't use suntools - 2 Use shelltool instead of cmdtool. - 3 Unset edit in tcsh. - -6b. On a SPARCstation running Solaris 2.x and OpenWindows 3.1, - inside a cmdtool, the short-cut key sequence to clear log - (i.e. Meta-e or Diamond-e) doesn't work: it just echos 'e' - -6c. On a SPARCstation running Solaris 2.x and OpenWindows 3.1, - maketool (within SPARCworks) doesn't work: it just does - a `cd' to the working directory then stops. - - The workaround for 6b and 6c is doing "unset edit." - Using shelltool instead of cmdtool doesn't fix 6c. - -7. I rlogin to another machine, and then no matter what I tell 'stty' - I cannot get it to pass 8 bit characters? - - Maybe you need to use 'rlogin -8' to tell rlogin to pass 8 - bit characters. - -8. Where do I get the public domain directory library? - - Anonymous ftp to prep.ai.mit.edu:/pub/gnu/dirent.tar.Z - -9. I compiled tcsh using gcc, and when I start up it says: - tcsh: Warning no access to tty (Invalid Argument). - Thus no job control in this shell - - Your <sys/ioctl.h> file is not ansi compliant. You have one of 3 choices: - a. Run fixincludes from the gcc distribution. - b. Add -traditional to the gcc flags. - c. Compile with cc. - -10. I compiled tcsh with the SunOS unbundled compiler and now things - get echo'ed twice. - - It is a bug in the unbundled optimizer. Lower the optimization level. - -11. How can I use the arrow keys with hpterm? - Hp terminals use the arrow keys internally. You can tell hpterm not - to do that, by sending it the termcap sequence smkx. Since this - has to be done all the time, the easiest thing is to put it as an - alias for precmd, or inside the prompt: - - if ($term == "hp") then - set prompt="%{`echotc smkx`%}$prompt" - endif - - Note that by doing that you cannot use pgup and pgdn to scroll... - Also if you are using termcap, replace "smkx" with "ks"... - -12. On POSIX machines ^C and ^Z will do not work when tcsh is a login - shell? - Make sure that the interrupt character is set to ^C and suspend - is set to ^Z; 'stty -a' will show you the current stty settings; - 'stty intr ^C susp ^Z' will set them to ^C and ^Z respectively. - -13. I am trying to compile tcsh and I am getting compile errors that - look like: - - >sh.c:???: `STR???' undeclared, outside of functions [gcc] - or - >"sh.c", line ???: STR??? undefined [cc] - - You interrupted make, while it was making the automatically - generated headers. Type 'make clean; make' - -14. On the cray, sometimes the CR/LF mapping gets screwed up. - - You are probably logged in to the cray via telnet. Cray's - telnetd implements line mode selection the telnet client - you are using does not implement telnet line mode. - This cause the Cray's telnetd to try to use KLUDGELINEMODE. - You can turn off telnet line mode from the cray side by - doing a "stty -extproc", or you can get the Cray AIC to build - a telnetd without KLUDGELINEMODE, or you can compile - a new telnet client (from the BSD net2 tape), or at least - on the suns use: 'mode character'. - - -15. On AU/X, I made tcsh my startup shell, but the mac desktop is not - starting up (no X11 or Finder), and I only get console emulation. - - This is another manifestation of item 5. Just add the pathname - to tcsh in /etc/shells and everything should work fine. - -16. On machines that use YP (NIS) tilde expansion might end up in /dev/null - If this happens complain to your vendor, to get a new version of NIS. - You can fix that in tcsh by defining YPBUGS in config.h - -17. Script on SGI 4.0.5 does not give us a tty, so we cannot have job - control. Their csh does not have job control either. Try: - % script - % cat > /dev/tty - -18. I start tcsh and it takes a couple of minutes to get the prompt. - You have defined REMOTEHOST and your DNS is not responding. Either - undefine REMOTEHOST and recompile or fix your DNS. - -19. If you need help generating your .cshrc file, check out: - http://www.imada.ou.dk/~blackie/dotfile/ - -20. On POSIX systems the kernel will send hup signals to all the processes - in the foreground process group if 'stty hupcl' is set. For example - ./tcsh - echo $$ - 591 - ./tcsh - kill -6 591 - - Will kill everything, since hup will be sent to all tcsh processes. - To avoid that you can set stty -hupcl, but it is not recommended. - -21. When I rsh the meta key stops working on the remote machine. - - Try using rsh -8; this option is undocumented on some systems, - but it works. If that does not work, get and use ssh/sshd. You'll - be better off from a security point of view anyway. - -22. Tcsh compiled under hp/ux-10.x does not pass resource limits correctly - when ran on hp/ux-11.x systems. This is a problem with lack of ABI - compatibility between the two systems. The only solution is to recompile. - -christos - -Everything else is a bug :-( diff --git a/contrib/tcsh/Fixes b/contrib/tcsh/Fixes deleted file mode 100644 index 303963ca19d4..000000000000 --- a/contrib/tcsh/Fixes +++ /dev/null @@ -1,1452 +0,0 @@ - 78. V6.09.01 - 20000114 - 79. Circumvent IRIX4D ESTALE bug by exiting. - 78. IRIS4D de-linting. - 77. Finnish nls catalogs (Jukka A. Ukkonen) - 76. Even more multibyte fixes (Taga Nayuta) - 75. Patches to statically link tcsh under solaris-2.6 (John Hawkinson) - 74. Manual page typos (R. Bernstein) - 73. HP/UX-11 (9000/800) HP/UX-10.20 (9000/820) (Haflidi Sigtryggur Magnusson) - 72. Color-ls fixes (Luis Francisco Gonzalez) - 71. Don't re-use time0 to compare to stat's st_mtime, cause it could be - the value returned from times(2) which is the ticks since system - startup (Frank van der Linden) - 70. Time percentage wrap fix (Simon Burge) - 69. EUCKR support (HyunChul Kim) - 68. Grammar and typo fixes for tcsh.man (Steve Kelem) - 67. More multibyte fixes (Rodney Ruddock) - 66. Change 6.08 -> 6.09 where I missed it; update for utlrix 4.5 (Simon Burge) - 65. V6.09.00 - 19990816 - 64. Add csh emacs mode (Dan Harkless) - 63. Make sure the the glob buffer matches the word buffer size (Brian Biswas) - 62. Fix periodic to work without tperiod set (Kenny McCormack) - 61. V6.08.07 - 19990813 - 60. Fix e_dabbrev_expand (Bjorn Knutsson) - 59. Make \builtin work again (by calling the command not the builtin) - 58. Add NLS_BUGS for OS's that keep file descriptors open for NLS (Ian Dowse) - 57. Make NONLSREBIND work after tcsh starts up. - 56. Fix AIX stupid exit bug. (Dan Harkless) - 55. More irix fixes (Kaveh) - 54. V6.08.06 - 19990701 - 53. module command completion (Dan Nicolaescu) - 52. Man command completion enhancement (Tom) - 51. Fixes for irix configuration (Kaveh) - 50. Support \a and \e in echo command. From (Keith Thompson) - 49. Alpha configure nit from Kaveh - 48. V6.08.05 - 19990511 - 47. In some system, when a builtin fails immediately after we start - tcsh and before we print any messages, NLS messages fail (some - descriptor might be closed) [FreeBSD, HP/UX?]. So we force reading - the NLS catalogs in errinit() (Yoshiyuki Sakakibara) - 46. typos in ja/set1 and ja/set29 (Yoshiyuki Sakakibara) - 45. "dspmbyte autoset trap" support to HP-UX 10.20. (Yoshiyuki Sakakibara) - 44. misnumbered NLS message in tw.help.c (Yoshiyuki Sakakibara) - 43. colorcat variable for NLS color messages (Yoshiyuki Sakakibara) - 42. autoconf fixes from Kaveh (and if it broke, me) - 41. SGI irix fixes from Glenn Coombs. - 40. Don't spin writing the history file when quota is exceeded (Rob McMahon) - 39. V6.08.04 - 19990419 - 38. complete additions (John Gotts) - 37. Port to amiga with geek gadgets (Arto Huusko) - 36. Ignore case in setenv for windows (amol) - 35. Bug fixes for NT unc stuff (amol) - 34. Hash spell check (amol) - 33. V6.08.03 - 19990211 - 32. Helpcommand documentation (Vladimir Alexiev) - 31. small Y2K fix [%y in prompt would be formatted as 10 not 00 at year 2000], - and new Itoa() code (Chris Torek) - 30. OpenBSD m68k patches (Paul DuBois) - 29. Avoid redefinition of getpeername on Solaris-2.7 - 28. fix problems with savedups=erase, savehist=merge (Randy Gobbel) - 27. Don't set $shell to csh, if we were invoked as tcsh (Tomas Persson) - 26. added $_ - 25. added postcmd - 24. V6.08.02 - 19981124 - 23. document continue and continue_args - 22. wrong test in slowexec made NT optimization a noop (Amol) - 21. Rhapsody fixes + separate CFLAGS/CPPFLAGS (Wilfredo Sanchez) - 20. literals in both prompt at rprompt did not work properly (Taga Nayuta) - 19. multibyte deletion fixes (Yoshiyuki.Sakakibara) - 18. clean up key binding stuff for NT by moving the nt dependent code to - the NT source (amol) - 17. dspmbyte fixes for AIX, typos in man page and nls (Yoshiyuki Sakakibara) - 16. Convex fixes (Ron Echeverri) - 15. V6.08.01 - 19981025 - 14. SX4 port; this adds many casts for machines where ptrdiff_t is 64 bits. - (Andreas Schott) - 13. U/Win port; does not work properly with U/Win 1.6, wait for the next - version (Chris Jones) - 12. Sgi does not need gethostname prototype (John Bogan) - 11. Logic in sh.dir.c was wrong for NT (Amol) - 10. HP_CXD_SPP stat64 fixes (Scott Garee) - 9. Documentation spelling fixes (Keith Thompson) - 8. Documentation fix for savedirs (Amol) - 7. Siemens OSD_POSIX fixes (Martin Kraemer) - 6. include <errno.h> for all the BSD's (Trevor Johnson) - 5. Multibyte display fixes for gnu ls (Taga Nayuta) - 4. Configure/Makefile hesiod and bindir fixes (Dan Winship) - 3. Use winnt not win32 in tc.os.h (Amol) - 2. Cygwin32 port (Raj Menon) - 1. Ported Fixes (Tom) - - 95. V6.08.00 - 19981002 - 94. where builtin nt fix (Amol) - 93. V6.07.13 - 19980926 - 96. NT multibyte fixes (Amol) - 95. NeXT needs getcwd. - 94. fix new bug introduced by strncpy'fication in sh.dir.c (Taga Nayuta) - 93. V6.07.12 - 19980918 - 92. add cray in configure script (Tom) - 91. nls fixes - 90. Avoid buffer overflows in directory code (kim) - 89. Add multibyte character display support (Yoshiyuki Sakakibara) - 88. Make tcsh use getcwd instead of getwd and supply a getcwd. - 87. Fix remotehost again (kim) - 86. V6.07.11 - 19980913 - 85. Leave remotehost ip addresses alone (don't try to resolve them) (Kim) - 84. Read vs. force_read fixes (Amol) - 83. Make colorls if color is set before the first LS_COLORS setenv - (Taga Nayuta) - 82. Use _PATH_DEFPATH on BSD4_4 systems. (Jim Bernard) - 81. Cursor bounds checks (Michael Schroeder) - 80. Syntax error nits (Michael Schroeder) - 79. configure fixes (Michael Schroeder) - 78. V6.07.10 - 19980904 - 77. Off by one error in NO_ERRORS... - 76. Japanese NLS messages (Yoshiyuki Sakakibara) - 75. Add ENXIO and EBADF in the test for write failures for Irix Zombies - (Ralf W. Grosse-Kunstleve) - 74. Missed a test for NOSTRCOLL in glob.c (Michael Liepelt) - 73. Another ABSOLUTEP change (Amol) - 72. Italian NLS messages (Massimo Bertozzi) - 71. WIN32 fixes for ntslowexec and color_ls literal printing in prompt (Amol) - 70. a few missed WIN32 merges (Amol) - 69. defined YPBUGS for sgi (Kaveh) - 68. V6.07.09 - 19980707 - 67. Separate the nt builtins (Amol) - 66. completion fixes (Tom) - 65. color ls fixes (Taga Nayuta) - 64. V6.07.08 - 19980629 - 63. add config.h.in (Kaveh) - 62. win32 updates (Amol) - 61. warning and portability cleanups on the new changes (Kaveh) - 60. V6.07.07 - 19980628 - 59. Fast execute by-pass for win32 (Amol Deshpande) - 58. Clean up const usage a bit, and fix gcc 2.8.1 warnings. - 57. Use @bindir@ for DESTBIN in Makefile.in (Edgar Hoch) - 56. Avoid overflow in time builtin computation (Nobue Adachi) - 55. Color ls additions (Taga Nayuta) - 54. unsigned char vs. char warning fixes (Kaveh) - 53. Solaris 64 bit fixes (fix directory offset bug) (Thomas-Martin Kruel) - 52. More win32 patches (Amol) - 51. autoconf lossage from (Kaveh) - 50. V6.07.06 - 04/08/98 - 49. Collation fix for globbing (Andrey A. Chernov) - 48. We might have NLS_CATALOGS and not LC_MESSAGES (Andrey A. Chernov) - 47. 4.4BSD header fixes (Andrey A. Chernov) - 46. Signed char prompt fixes (Andrey A. Chernov) - 45. Pattern match fix for directory searches (Mike Patnode) - 44. Pentium DGUX fixes (Miko Nahum) - 43. Spanish nls message catalogs (Luis Francisco Gonzalez) - 42. Fix trailing whitespace parsing in HASHBANG code (Martin Kraemer) - 41. Remove stray debuggin message from unmatched substitutions. - (from Amol Deshpande) - 40. Fix reversed arguments in Usagae message. (from Amol Deshpande) - 39. Fix bug introduced at tcsh-7.06.03 [expdollar] that affected %.n prompt - format. - 38. Fix typos introduced in last batch of changes. - 37. Fix interrupted script using onintr, exiting parent shell problem. - 36. Cleanup prototypes. - 35. V6.07.05 - 10/28/97 - 34. Integrate Amol Deshpande's WINNT fixes to the tcsh source. Note that - this is not complete yet; we are missing the NT glue code and the message - catalogs. - 33. Fix ^T at the first character in the line (Chuck Silvers) - 32. Eliminate xsprintf and xvsprintf - 31. Qmail patch from (Matthew Zahorik) - 30. Added missing linux signals (Vadim Vygonets) - 29. fixed problem where complete complete 'p/*/t:*.txt/' would not honor - the pattern. - 28. Port to an EBCDIC machine: BS2000 by Siemens Nixdorf that has an - IBM/390 compatible processor (Martin.Kraemer) - 27. Detect when we have errors writing to stdout (Vadim Vygonets) - 26. Ignore quotes in the comparisons for builtins, so that \builtin works - (Amol Deshpande). - 25. HPUX, portability fixes; make sure that we have the right config file - (Jonathan Kamens) - 24. Don't do lookups for x displays and figure out ttys properly - (Leonard N. Zubkoff) - 23. make print_by_columns print in a single column when the output is not a tty - 22. use rlim_t for Solaris2 (Casper Dik) - 21. V6.07.04 - 05/04/97 - 20. set -f -l patch (Michael Veksler) - 19. SGI patches (Tomasz J. Cholewo). Also fix completion code to take into - account aliases that start with a period. - 18. SCO patches (Boyd Lynn Gerber) - 17. Fujitsu patches (Toshiaki Nomura) - 16. autoconf patches (Kaveh Ghazi) - 15. BSDI patches (Paul Vixie) - 14. %Q formatting character addition. - 13. Fix set=#123; echo $i:s/#// (Quoting problem) - 12. V6.07.03 - 02/23/97 - 11. Understand %$variable in the prompt. - 10. Quote directory names properly in .cshdirs - 9. USE_ACCESS and autoconfig patches from (Larry Schwimmer) - 8. Pyramid att config file (Andrew Lister) - 7. $rprompt code (Luke Mewburn) - 6. Kanji patches (Huw Rogers) - 5. Cray T3E port (Jorn Amundsen) - 4. Avoid html redirects in tcsh.man2html (from Kimmo) - 3. HP/UX 10.0 fix for filesize resource limit; don't scale by 512 anymore. - 2. Workaround for TIOCSTAT for NetBSD from lukem@netbsd.org - 1. Return exit status from 0..255 not -128...127, as POSIX mandates. - -V6.07.02, 10/27/96 - 58. More configure fixes from Kaveh. - 57. Fix histdup=erase again: Don't renumber events, or access uninitialized - storage. - 56. 6.07.01 - 10/19/96 - 55. Fix histdup=erase, where after some repetitions, we would get negative - history events (kim@gw.com) - 54. NLS fixes and typo in sh.err.c (Martin.Kraemer@deejai.mch.sni.de) - 53. Output history in raw format in the history file (mveksler@VNET.IBM.COM) - 52. Fix possible core dump when !:<tab> in autoexpand mode (rbrown@ERA.COM) - 51. 6.07.00 - 10/11/96 - 50. Avoid stdio.h inclusion problem in SCO (gethost.c). - 49. A bit of housekeeping in host.defs - 48. 6.06.04 - 10/05/96 - 47. Fix tellmewhat() code to return true if found. - 46. Change register foo to register int foo to avoid compiler warnings. - 45. Fix problem with sticky non editing mode from Casper Dik. - 44. history lex fix from Martin Kraemer; history events that ended with 0 - were not properly parsed. - 43. SNI fixes from Martin Kraemer. - 42. SGI fixes from Ralf W. Grosse-Kunstleve. - 41. BSDI2.1 fixes from Paul Vixie. - 40. 6.06.03 - 09/24/96 - 39. undef TIOCGLTC for HP/UX 10.0 from Michael Shroeder - 38. Sinix fixes - 37. 6.06.02 - 06/22/96 - 36. Added implicitcd - 35. Added configure.in and Makefile.in from Kaveh. - 34. unset path, unsetenv PATH, ./foo did not work. - 33. Add VAR_NOGLOB, and use it to avoid globbing directory names when - cd'ing into them. - 32. Fix bug introduced in the new tty parsing code. - 31. Avoid pushing string back to the parsing string in ${ errors. - 30. Patches for the manual page from Dave. - 29. 6.06.01 - 05/24/96 - 28. Use sysconf to get NCARGS if available Robert Daniel Kennedy - <kennedy@b0ru01.fnal.gov> - 27. Grab the program name and use that instead of tcsh in error messages. - 26. Fix histdup, so that it does not leave gaps in the event sequence. - 25. HP/UX v10.0 fixes: Don't use bsdtty.h and avoid clobbering memory - since SIGRT??? is defined as -1. - 24. Avoid coredumps when $TERMCAP exceeds 1024 characters - Michael Schroeder <Michael.Schroeder@informatik.uni-erlangen.de> - 23. Fix memory clobbering when SHORT_STRINGS is not defined. - Todd J Derr <infidel+@pitt.edu> - 22. Only restart stopped editors. Robert Webb <robertw@wormald.com.au> - 21. Recognize pts sysv ptys when checking to set autologout Bob Myers - <bob@intelenet.net> - 20. Magic space incomplete modified core dump fix. Chris Metcalf - <metcalf@catfish.lcs.mit.edu>, Bradley White <bww@fore.com> - 19. Linux nls fixes Rik Faith <faith@cs.unc.edu> - 18. SGI RS8000, Ported notes. Ralf W. Grosse-Kunstleve - <rwgk@laplace.csb.yale.edu> - 17. Greek nls messages. Aggelos P. Varvitsiotis <avarvit@cc.ece.ntua.gr> - 16. Imakefile linux and libcrypt fixes. Jonathan Kamens <jik@cam.ov.com> - 15. FreeBSD fixes Jukka Ukkonen <jau@jau.csc.fi> - 14. Expand the environment space for path Steve Kelem <steve.kelem@xilinx.com> - 13. Don't overwrite the environment randomly Steve Kelem - <steve.kelem@xilinx.com> - 12. Don't turn the editor on when we have dumb or unknown terminals. This - breaks emacs when compiled with terminfo Jonathan Kamens <jik@cam.ov.com> - 11. Fix F- parsing in tc.bind.c <bob@intelnet.net> (Bob Meyers) - 10. Added -T option in history to force timestamp printing. -h alone does - not print timestamps anymore for compatibility with csh. - 9. Typo in tc.bind.c [with -DOBSOLETE] (misplaced parenthesis) - 8. Recognize convex models properly. - 7. suppress the DING! option using the noding variable. - 6. negative nice values did not work. - 5. Harris CX/UX 7.x support. - 4. ERR_DMMODE was used on the crays but not defined. I changed the error - messages in tc.os.c to use ERR_STRING instead, and fixed a missing error - message in the catalogs. Someone will need to retranslate #30 and #31 - in set23. - 3. Bug setting listflags... Workaround: set listflags=(A /bin/ls) - 2. Typo in Imakefile (# comment instead of c comment) - 1. Typo in ma.setp.c (missing parenthesis) - - -V6.06.00, 05/13/95 - 88. Cleanup off-by-one error ed.defns.c. - 87. 6.05.09 - 05/06/95 - 86. Small memory leak in dosetenv() - 85. Make sure that the number of editing functions defined is correct - and abort otherwise. - 84. Completion Fixes from Tom - 83. Don't add yp stuff in the tilde cache [names that start with + or -] - 82. Don't let children catclose() in xexit(), because the parent will lose - access to the nls catalogs. From Michael. - 81. 6.05.08 - 04/29/95 - 80. Update to the newest csh sh.file.c - 79. More completions from Tom. - 78. Fix the Imakefile to use XCOMM - 77. Update for AIX 3.2. - 76. French catalog from J.M.Vansteene@frcl.bull.fr (fwd Michael Schmidt) - 75. Nls fixes and small typos from Michael - 74. PDP11 BSD type fixes. - 73. More manual page fixes. - 72. 6.05.07 - 04/19/95 - 71. More NLS catalog fixes. - 70. Bruce's jumbo patch. - 69. 6.05.06 - 03/15/95 - 68. make clean does not clobber config.h if Makefile.std is used. - make veryclean does. - 67. New config define NISPLUS. Reportedly fixes vanishing output of ~expansion - on solaris 2.4. - 66. showdots has been removed; use listflags instead. [handles -x too] - 65. more nls catalog fixes. - 64. set histchars=,. did not have any effect in .cshrc - 63. fix "-c command" new core dump. - 62. more completions from Tom - 61. call catclose() before exiting, so that svr4 cleans up the symlinks before - exiting. - 60. Per's fix for insert-last-word - 59. Per's emacs abbreviation mode. - 58. Makefile fixes for catalog stuff. - 57. fixed again complete-word-raw and list-word-raw - 56. 6.05.05 - 03/11/95 - 55. Made %?str work again - 54. IRIX sigalarm problem should be fixed - 53. complete-word-raw and list-word-raw should work - 52. nls catalogs complete reworking. - 51. sh.init.c: Signal complete rewrite. - 50. Signal fixes from Bruce. - 49. Added promptchars, like histchars; affect %# in the prompt. The first - char is for the user and the second is for root. - 48. 6.05.04 - 03/03/95 - 47. Add NODOT config, $command [that holds the command passed with -c] - $GROUP and $group - 46. AFS fixes from Larry Schwimmer <rosebud@cyclone.Stanford.EDU> - 45. Real NLS catalogs from Michael Schmidt <michael@muc.de> - 44. patch to allow ^? binding. - 43. completion patch from Paul DuBois. - 42. Don't spell check in here docs. - 41. Incorrect normalization of usec in sh.time.c - 40. directory printing and option parsing fixes [from Paul DuBois] - 39. realloc_searchlen should be static to avoid conflicts with OS's that - use the same malloc package. - 38. LOGINFIRST now applies to /etc/csh.login - 37. Fixes in bind compatibility code to bindkey. - 36. 6.05.03 - 01/17/95 - 35. Don't print the whole watchlist on startup. One can use explicitly - the log builtin for that. - 34. Don't display the $watch value in the log command. - 33. Don't delete the unmatched portion if we try to complete a spelling error. - 32. Solaris 2.4 workaround for isprint('\t') lossage (From Casper) - 31. Fixed csh bug: [Reported by Jaap] - set test="one\ - two\ - three" - echo "$test:q" - 30. Fixed the lossage in setting the looking mode in tw.parse.c before - calling t_search; $x/$y will not append the right suffix. - 29. Another attempt at the gethost timeout code. - 28. Cray dmmode and filetests -m -k [need documentation!] - 27. More manual patches. - 26. Don't glob the path; security problem and core-dump. [from beto] - 25. Avoid waiting for jobs that failed to restart, thus hanging the shell. - eg, run job in background, attach to debugger; kill it inside the - debugger. Get out of the debugger and you are stuck if you fg that job. - 24. 6.05.02 - 09/04/94 - 23. remhost code could pass the wrong length to getpeername() - 22. too eager sed'ing broke convex getwarpbyvalue() to getwarpbyvarval() - 21. Fixed new bindings bug. - 20. Fixed bug in newgrp code; execv was called incorrectly. - 19. Take into account programmable completion hints when spell checking. - 18. Unconditionally change stty modes in Rawmode() - 17. Change date in $version to be ISO 8601 per Keith's suggestion - 16. Fixed portability problems in the new counted-strings codes (From Kaveh) - 15. Fixed binding problem with the new counted-strings code [all key bindings - ended up in the extended map] - 14. 6.05.01 - 07/08/94 - 13. Changed key bindings to use counted strings instead of Null terminated - strings, so that binding ^@ works. - 12. Fix parsing bug, where words that contained keywords caused incorrect - word breaks: - switch (iftagd) - case iftagd: - echo It works - breaksw - default: - echo It is broken. - endsw - 11. Fix sh.c for systems with no job control. [the new hup builtin sends - SIGCONT]. - 10. Don't add the suffix character when all completions fail, from michael - 9. Added histdup=erase, that deletes the oldest duplicate instead of - the newest. - 8. Don't call .logout recursively if we receive more than one hup, - and don't process hangups when we execute the .logout. - 7. $logout was set to a static string. - 6. Non printable binding listing was broken. - 5. Recursive sourced scripts would get mangled up because of input buffer - confusion (thanks michael) - 4. M-space should not be counted as a space. Leads to infinite loop in - word splitting. - 3. Pyramid fixes. - 2. Fixed '\' in sysv echo (from Mika) - 1. Missed fix_yp_bugs() when setting REMOTEHOST (From Casper) - - -V6.05.00, 06/19/94 -113. 6.04.17 06/18/94 -112. Realloc debug fix from John. -111. Completion fixes from Bruce. -110. Added -b option to bind. -109. Added tcsh.man2html from Dave. Looks great! -108. 6.04.16 06/06/94 -107. Allow multi word glob in "`foo`" expressions. - > if ("`ls`" == "a b c") then -106. Michaels lex() buffer patch version 2. - the previous version core-dumped with - > sleep | echo -105. Fix seg fault in find_cmd, when path is unset. -104. 6.04.15 05/28/94 -103. the previous =~ fix, was a bit broken. -102. 6.04.14 05/25/94 -101. expression parser fix for !~ and =~. - if (foo =~ *) echo ok - the * was taken for a multiply and parsed as 0 * 0 returning 0. - and asked to match "foo" with "0" -100. Michael's lex() buffer patch. - 99. Bruce's Jumbo cleanup - 98. fixed Imakefile for X11R6 - 97. fixed argument parsing in source command. - 96. added $sched to format scheduled events. - 95. 6.04.13 05/07/94 - 94. added expand-command - 93. Alpha OSF-2.0 fixes - 92. 6.04.12 04/28/94 - 91. Ignoreeof patch from Bruce. - 90. Dan's completion fix. - 89. 6.04.11 04/12/94 - 88. Don't source .logout when killed with -HUP unless we are a login shell. - [ actually $loginsh controls the behavior now ] - 87. ISC-4.0 posix exec() bug workaround - (from Jonathan Broome <jon@wilbur.uucp>) - 86. Dan's patch for complete=enhance - 85. Kaveh's patches for memset, host.defs, _{U,G}ID_T - 84. 6.04.10 03/29/94 - 83. Pathname completion bug fixes... - 82. Completion pathname(p) changes: Completion 'C' -> 'X'. - Replaced 'p' with 'F' and added D,T,C. - 81. Next NLS fixes - (From Paul Nevai <nevai@ops.mps.ohio-state.edu>) - 80. make spelling correction obey the current histchars setting. - 79. Fix rounding in limits so that 0 is a true 0. - (From Ken Lalonde <ken@cs.berkeley.edu>) - 78. 6.04.09 03/12/94 - 77. Alarm race with remotehost. - 76. If you have in your .cshrc - set savehist=(100 merge) - and execute - #!./tcsh - exec ps - you get no output; [fixed] - 75. setenv SHLVL -1; tcsh = Segmentation fault [fixed] - 74. 6.04.08 02/10/94 - 73. new machtype, ostype, vendor - 72. execute .logout on hangup. - 71. more man page fixes. - 70. 6.04.07 02/04/94 - 69. Dynamic hash changes, globbing for which command from Michael. - 68. INBUFSIZE fixes for history. - 67. printenv returns 1 when a variable is not found, like the non builtin one - 66. Add quotes to the mismatch array so that: - > touch foo - > mail "oo bar" - does not get corrected. The right fix would be to do correct parsing - and quote the space... - 65. NULL terminate mismatch[] array in ed.inputl.c, since it is used in - Strchr(). - 64. renamed stat to filetest - 63. Afs and Hesiod patches. - 62. More manual page patches. - 61. 6.04.06 12/19/93 - 60. Alarm for resolver timeouts (untested) - 59. Fixes for Henry Spenser's regex in the Makefiles - 58. Modifiers now work with $< and $< does not do :q by default. - [incompatibility with csh] and $< can be interrupted. - 57. Added $histdup. - 56. source /etc/.login for Solaris 2.x - 55. don't remove trailing spaces in history searches. - 54. dirs -L and dirs -S spurious warning elimination. - 53. man page fixes from David. - 52. Kimmo's patch [makefile, gcc warning, netdb.h include] - 51. 6.04.05 12/12/93 - 50. rewrote srcunit() to use st_save and st_restore. The code was - too messy to be useful before. - 49. recdirs and rechist patches again! - 48. Harris hck port, and ISC imake update - 47. Eliminate the x windows :display.screen before looking for the - hostname in REMOTEHOST - 46. Patch for CDF filetype() recognition (hpux) - 45. 6.04.04 11/12/93 - 44. Made =x obey nonomatch. - 43. Fixed rechist and recdirs not to depend on savehist and savedirs - 42. Removed aliases, bind, linedit builtins [ifdef'ed out as OBSOLETE] - 41. change REMHOST to REMOTEHOST for compatibility with SGI. - 40. $owd was not working correctly. - 39. Debugging printf elimination (from Kimmo) - 38. Typos in the new hup code in sh.c (from Matt) - 37. Imakefile fix for sequent (from Jaap) - 36. 6.04.03, 10/30/93 - 35. New manual page in place. - 34. Fixed Makefile sed RE to work with gnu sed. - 33. Added hup builtin. - 32. Added $REMHOST in config_f.h - 31. Fixed random parsing bug in sh.exp.c in isa(). It checked cp[1] - without checking cp[0] first... (should propagate to 4.4BSD) - 30. More sh.exp.c fixes from Bruce - 29. Always exit when the user types exit. - cat | tcsh -f -s - exit - ls - 28. savedirs fix and readlink() null termination fix from Peter. - 27. Added -p flag (force dirs printing in all directory functions and $owd - variable - 26. Let $dirstack work by default without needing to be set. - 25. Fixed history -h to work with other history flags. - 24. Renamed ed-functions more consistently (dcs) - 23. Added missing filetests (dcs) - 22. Added NEWGRP define in config_f.h (dcs) - 21. More fixes for non blocking io recovery from Bruce - 20. 6.04.02, 10/08/93 - 19. changed default prompt to %# - 18. New group 'g' completion. - 17. removed IIASA defs. - 16. fix for history -SL and dirs -SL to work when savedirs and savehist are - not set. - 15. fix magic-space to understand :p - 14. make :u,:l work for history. - 13. Fixes for non-blocking i/o recovery. trap all non blocking styles under - sunos. - 12. 6.04.01, 08/10/93 - 11. Vi mode word moves [they work like vi and don't obey wordchars anymore]. - 10. New file operators and stat builtin - 9. David's FIONREAD patch for SVR4 - 8. Bruce's ignoreeof=n patch - 7. Dan's complete/correct enhancement - 6. Abort corrections patch. - 5. Print_by_columns, now does not use the rightmost column. - 4. Renamed config/config.$i to $i to avoid once and for all filename length - problems. - 3. bbn butterfly config - 2. Beto's proc fixes - 1. Bruce's bug fix for ed.chared.c, signals - - -V6.04.00, 07/03/93 - 92. Alpha prototypes, for gcc -Wall clean compile. - 91. Fixed alpha hashing. Did not work for directories > 31, Thanks to - Dan Mosedale <mosedale@genome.Stanford.EDU> for all the help! - 90. Added USE(a) for unused parameters, to avoid compiler warnings. - 89. 6.03.10, 06/25/93 - 88. Makefile and lint patches from Bruce. - 87. Posixsig patch from Peter for svr4 - 86. 6.03.09, 06/11/93 - 85. signal handling broke with the last job control patch... - > (does-not-compute;) - would hang. - 84. don't quit after the first modifier fails: - > set i=aabbcc - > echo $i:s/a/A/:s/b/B/ - AaBbcc - > echo $i:s/x/A/:s/b/B/ - aabbcc - 83. Imakefile fixes for sequents from Jaap. - 82. Move past the bottom of input when we hit ^C, so that multi-line - input commands don't get trashed. - 81. Look only at the first word in ${EDITOR,VISUAL} to determine the - editor name. - 80. Last patch broke listmax. - 79. Remove extra sandbagging in exitstat(). Not needed anymore as value() - will never return NULL. - 78. Save $status before calling aliasrun() otherwise: - > alias precmd 'cd .' - > true - > echo $status - 0 - > false - > echo $status - 0 - 77. 6.03.08, 06/07/93 - 76. missing prototypes/unused variables under SYSV4. - 75. savedirs should glob the filename argument. - 74. 6.03.07, 06/05/93 - 73. Changed _Q, _Q1 macros in sh.lex.c, sh.dol.c, sh.char.? to _QF and _QB - because today 4.4BSD <ctype.h> defined _Q to be ``Phonetics'' - 72. listmaxrows variable. - 71. set -r would not make existing variables readonly. - 70. print usernames with ~user where possible in dirs and job cwd's - 69. Mika's fixes (missing args in sh.c set(), linux Makefile, SIGCHLD) - 68. FIONREAD argument is int everywhere except on SunOS where it is long. - Tcsh used to think that it was long, and so it broke on the alpha where - sizeof(int) != sizeof(long) - 67. 6.03.06 05/16/93 - 66. Pipeline fixes. This should get rid of the dreaded Stopped tty output - message. - 65. Michael's fix for history buffer cleanup: - > alias foo 'echo \!:1:h' - > foo a/b - a - > ^P [nothing happens] - 64. Unsigned long rlimit type for 64 bit machines (alpha) - 63. Fixed Imakefile for alpha - 62. tilde expansion now obeys $nonomatch - 61. readonly veriables. 'set -r x=3' will set x to a very sticky 3... - 60. Fixed bug in the new tab'ed completion that interfered with old listing. - 59. Fixed entry -> item in tw.parse.c - 58. Added -f option to unlimit - 57. Define __STDC__ in Imakefile for Irix - 56. Static redeclarations in tw.parse.c - 55. 6.03.05 04/26/93 - 54. Don't echo history expansion in loops: - > alias junk 'foreach i (\!:2*) \ - foreach? echo \!:1 $i; \ - foreach? end' - > junk a b c d - echo a $i ; - a b - echo a $i ; - a c - echo a $i ; - a d - 53. Added complete-word-fwd and complete-word-back that scroll through - the list of possible completions... Neat addition from - jfink@csugrad.cs.vt.edu (Jeff "$DOTDIR" Fink) - 52. Workaround hpux9.01 broken optimizer in sh.glob.c where 'ls *' breaks. - 51. Michael's editor fix. With "magic margins" and 80 char width, try: - > set prompt= - <ESC>20a<CTRL>a<ESC>76b<CTRL>ac - 50. Reverted fix that does not glob the expanded back-quote text again. - 49. > cd /., echo $cwd - /. - Eliminate the . in this case... - 48. Matt's optimization in glob.c [retracted] - 47. Fixed bug with -S - 46. Renamed Makefile Makefile.std, and fixed the readme file - 45. 6.03.04 04/07/93 - 44. Changed -s == !-z and -S == socket - 43. Fixed typo in sh.c, in phup [shpgrp != pr->pgrp] - 42. Multi-line aliases are not entered into the history when executed. - 41. Changed f_seek to a union to avoid gcc warnings on 4.4BSD - 40. Fixed 'unset home; dirs' bug - 39. fixed $HOME->$home memory problem. - 38. $?0 returns false now on interactive shells for csh compatibility. - 37. Default watch inteval was 10 hours not 10 minutes as advertized in the - manual! - 36. Fixed clobbered veriable warning from gcc-1.39 in tw.parse.c - 35. Fixed typo with INVPTR in sh.lex.c - 34. 6.03.03 03/04/93 - 33. Eliminate 'Reset tty pgrp error message'. It is normal for the - walking process group stuff. Check about the killpg() above? - 32. More portability for 64 bit machines. - 31. Improved completion error messages. - 30. Fix bug with double globbing expansion on mirrored variables: - > setenv TERM '?vt100' - 29. Avoid hanging when writing to pipes etc. (From Paul Close) - 28. Typo in the $HOME->$home mirroring. - 27. %p %P 'p'recise time formats that include seconds for prompt strings. - 26. Signal list fixes from Paul Close. nsig is now a variable. - 25. 6.03.02 02/12/93 - 24. NEC SX3 "entry" is a reserved word!, changed entry to item... - [this is as bad as cray typedefining "word" to int. Next thing I know, - I'll have to prefix all the variables with tcsh_!] - 23. xxx - 22. Protected all include files to avoid warnings from lcc. - 21. Finally resolved the job control problems with linux and ISC (from Beto) - 20. More HUP,XFSZ,XCPU fixes. (with Beto) - 19. Dcanon would not canonicalize correctly in case where dnormalize() - failed to find a directory, but the directory existed when not - crossing the symbolic link. - 18. sh.init.c fixes; give 65 signals for all POSIX machines. - 17. AMS mail fixes and cmu wm handling. - 16. Setenv would not ignore trim quoted names... - > alias foo 'setenv "\!:1" bar' - > setenv FOO 123 - > foo FOO - > printenv - ... - FOO=123 - FOO=bar - ... - 15. 6.03.01 08/01/93 - 14. #undef SHORT_STRINGS gcc warning fixes... - 13. csh bug fix in foreach [quoteing problem] - > foreach i ("*") - > echo $i:q - > end - Should print * - 12. ls-F obeys showdots... - 11. After scheduled commands get executed, the editor could stay disabled - until the first enter. - 10. sigset() bug in ed.init.c; ^C could get disabled sometimes. - 9. Don't glob in dowhich(); otherwise \pat does not work if pat is aliased. - 8. When completion patterns are used $ and ~ expansion did not work right. - 7. Printenv builtin and long backquote expansion fix from Harald. - 6. $:-1, $:-0 enhancement from Paul and Michael. - 5. Lynx/OS patches - 4. Apollo bugs [Setenv -> tsetenv, typedef in pid_t] - 3. ^@ did not work correctly in bindkey. - 2. Fix vms/posix ifdefs in tc.alloc.c - 1. Elide gcc-2.3.1 warnings - - -V6.03.00, 11/20/92 -102. Solaris2 patches, renamed sunosX to sosX to fit in 14 character filenames. -101. 6.02.12 11/12/92 -100. Decreased BUFSIZE to 1K... -99. Don't use sbrk() in tc.alloc.c on VMS -98. EINTR error handling from Michael -97. Overwrite mode takes effect immediately, not delayed by a command. -96. Emx fixes. -95. SIGHUP gain... -94. Coherent times()/ <sys/file.h> fixes. -93. 6.02.11 10/27/92 -92. Mach setpath fixes. -91. Which now globs its arguments -90. Again POSIX SIGHUP fixes... Maybe we got it right this time... -89. Increased BUFSIZE to 4K. Smaller machines may want to decrease this. - [ Now one can edit up to 4K of buffer! ]. From Harald. -88. : is now a true builtin that does nothing, instead of being treated like - the last character of a label. This is so it can take args. From Harald. -87. More fixes for hpux limits from Harald. -86. Login shell if ppid == 1 and argc == 1 for VMS. -85. Typo in sh.exec.c from Harry. -84. Per's editor fixes. -83. 6.02.10 10/17/92 -82. Don't free STRNULL in freelex(). Update linked list in copylex() to - do the same insert as in lex(). -81. Fixed spurious tilde printing in %c prompt. -80. Fixed dumb wild free in AddXKey... - (thanks Harald for the complex bindings! :-) - > bindkey "\e10z" expand-line # Any editor command will do - > bindkey -[cs] "\e10z" "foo" # Any string or command will do - Free(%x) .... -79. coherent additions. -78. fixes for hpux8 resource limits [Thanks Harald] -77. 6.02.09 10/10/92 -76. More vms cleanups. -75. Removed #include CONFIGH from sh.h. There was no way to make it work - under VMS/POSIX -74. Added t completion (Gray Watson) -73. Memory leaks in sh.dir.c and sh.glob.c [thanks purify :-)] -72. IRIX 5.0 patches (from Paul Close) -71. BSD resource limits for hpux8.0 (From Andreas Stolcke) -70. NGROUPS_MAX fixes (from Matt Day) -69. 6.02.08 10/04/92 -68. VMS port additions. -67. Added $%var, which == strlen(var) -66. Added ^X^I and ^X^D to override programmable listing+completion -65. Added case insensitive globbing for OS/2 -64. FIOCLEX and FIONCLEX are only used if we don't have FD_CLOEXEC. -63. Added emx termio support, and emx pathsep support; emx compiles and runs: - needs job-debugging and finishing touches. -62. Horrible bug with the lex linked list; from Loic Grenie, grenie@ens.fr - > echo a !# - echoed 'echo a echo a echo'! -61. Shell -w,-x were incompatible with the same for test [POSIX] (beto) -60. builtin newgrp did not accept the - argument. -59. FIOCLEX for the masses (POSIX FD_CLOEXEC addition) -58. Old style csh completion bug fix [not used] (beto) -57. A background process waiting for input from tty - blocks when being foregrounded doesn't read its input and - doesn't get <cntl-c> and <cntl-z> signals. - It can only be killed from another session. (beto) - > cat > foo - #!/bin/csh -f - echo ">>>>>>" - set x = $< - echo $x - ^D - > chmod +x foo - > foo & - > fg - ^Z,^C # Nothing happens -56. history > 1000 fix (beto) -55. 6.02.07 9/18/92 -54. Added e_stuff_char() to put back a character in cooked mode in - the input stream... Useful for status (^T) -53. $? == $status and $# == $#argv like in the bourne shell. -52. Added $dirstack. Problems: off by one since =0 == $cwd, but - $dirstack[1] == $cwd... Suggestions welcome. -51. Leading spaces would confuse the run-help function. -50. Don't expand imported environment variables: - > setenv HOME \* - > tcsh - > echo "$home" - > echo "$HOME" -49. %C0n displays the number of directories omitted as /usr/local/bin /<2>bin/ -48. Added POSIXSIGS as a configuration option. -47. Per's fixes for history format and arrow key binding. -46. Expand-variables expands array variables too -45. 6.02.06 8/14/92 -44. Separated limit stuff from BSDTIMES and added BSDLIMIT -43. History searching inconsistent with HistLit: - > echo foo - foo - > ^foo^bar - bar - > ec[M-p] - echo foo -42. 6.02.05 8/8/92 -41. sourcing a script that contains 'onintr -; onintr' would disable - interrupts on the command line -40. cd ../... with symlinks=ignore would work !@#!@ -39. No more BACKPIPE for POSIX machines... -38. SUNOS NLS bug workarounds... -37. New HASHBANG define for #! emulation... even 386BSD does not have it - yet... -36. Added new -b -c file operators from SGI csh. -35. 6.02.04 7/23/92 -34. Walking process group fixes. -33. $0 contains now argv[0] when we are not executing a shell script. -32. New Getwd() was broken. -31. 6.02.03 7/17/92 -30. We kill our last foreground process group on HUP, for POSIX systems. -29. Walking process group fix. -28. $shlvl gets reset to 1 for login shells. -27. Macros can now involve multiple commands, i.e. - bindkey -s "^[OP" "ls\n^P" -26. 6.02.02 7/6/92 -25. nostat accepts now a list shell patterns. -24. Avoid print_exit_value in if ( { foo } ) -23. Symbolic key names for bindkey [arrow keys]. -22. Smarter getwd() that avoids some of the NFS hangs... -21. Use memmove() where possible. -20. 6.02.01 6/16/92 -19. Fix automatic correction to work with the new completion. -18. Globbing bug with brace expansion, when arguments need to be realloced... - e.g. echo 134{6,7}{0,1,2,3,4,5,6,7,8,9}{0,1,2,3,4,5,6,7,8,9} -17. shift and left operators update variables correcly ('shift path' did not - work) -16. apollo fixes for cd. -15. STRNULL <-> NULL bug fixes. -14. %S in xprintf for short strings. -13. history -LSc, dirs -LSc additions, builtins builtin [oxymoron] -12. history formatting string, who formatting string, prompt formatting - all use tprintf() now. -11. $history accepts a second formatting argument.. -10. History timestamps preserved in .history -9. Backquotes were broken: echo hi | cat > `echo foo` -8. SGI -t operator problem. -7. Dnix fixes. -6. Fix history file writing bug when autologout. -5. Change from TCSETA to TCSETAW, since we affect the output. -4. Per's fixes for display margin bugs. -3. Linux fixes. -2. Collapse adjacent stars in glob.c to avoid exponential behavior. -1. Fixed parseescape to put ^ literally if not followed by alpha. - - -V6.02.00, 5/15/92 -94. Default echo_style was not being set correctly. -93. $< did not work correctly with NLS chars. -92. 6.01.15 (5/11/92) -91. Minor cleanups in refresh code. -90. 6.01.14 (5/8/92) -89. Print \n in the right margin always to be consistent. -88. Linux patches. -87. 6.01.13 (5/2/92) -86. Fixes in listing and completion of non-unique commands. -85. Fix =stack entries > 9... from Bill Petro -84. Fix for last character at margin. [on terminals that have am & xm move - the cursor manually to the next line] -83. Fix for complete completions -82. small typo in tc.alloc.c from Mark Moraes. -81. small typo in tw.parse.c from Richard. -80. Man page fixes from Per. -79. 6.01.12 (4/24/92) [release version for 6.02] -78. Autosuffix was not getting reset all the time. -77. Don't limit completion patterns to 1K. -76. Naming changes in ed.screen.c from Justin. -75. 6.01.11 (4/10/92) -74. Fixed magic-space ! expand bug: - > echo a b123 45.{6,7} - > echo !:2!:3[magic-space] -73. Work-around for apollo optimizer in tc.bind.c -72. Problem with setjmp in tw.parse.c -71. symlinks=expand from Yumin. -70. tenematch() fixes from Michael; -69. 6.01.10 (4/3/92) -68. Fixed Gnmatch. -67. Removed ignore_symlinks and chase_symlinks. Replaced by symlinks variable. -66. Backquote from completion was broken for machines with no dup2() -65. No $printexitvalue for `` jobs. -64. Added ultrix stuff for PW_AUTH [from Mike Potter mpotter@lampf.lanl.gov] -63. Fixed bug in Gnmatch(), added 'N' command 'x' completion. -62. Fixed fg_proc_entry() so autologout gets disabled when a process - is foregrounded. -61. 6.01.09 (3/26/92) -60. source builtin takes arguments now that are passed in the script e.g.: - > ./tcsh -i a b c - > cat test - echo $argv - > echo $argv - a b c - > source test 1 2 3 - 1 2 3 - > echo $argv - a b c -59. Eliminate $margin_bug, add more intelligent margin code [from Justin] -58. expand_symlinks variable Urgh... -57. SGI CONTROL() fixes... -56. new dnormalize(), expand_symlinks flag. -55. interrupting completion restores the current line. [from Marc] -54. 6.01.08 (3/20/92) -53. inputmode affects the first line too. -52. Searches in vi do not destroy the current line. -51. -drwX test enhancement. -50. Generalized completion syntax and added more completion builtins. -49. Don't print '\n' on the right margin if we can avoid it. -48. 6.01.07 (3/9/92) -47. New completion style. [[<pattern>[ ]],=<completion action>] -46. 6.01.06 (3/7/92) -45. complete styles are ignored after shell metachars eg. - > complete mail =u - > mail christos < [tab] - completes filenames. -44. $echo_style is initialized to the default style of the machine. -43. SGI 4.0 CTRL() macro is busted. So we ignore it. -42. Fixed bug with the new margin code (thanks justin) -41. Fixed mirroring of variables. Now set and setenv affect - HOME, TERM, PATH, SHLVL, USER and their csh counterparts. Unset affects - affects only the csh copies of the variables, and unsetenv only the - environment variables. -40. Fixed gcc-2.0 warnings in sh.sem.c (needed for vfork() -O2 optimization) -39. 6.01.05 (2/21/92) -38. signal masking for BSD machines was still wrong in tw.init.c -37. Added $margin_bug, and now the editor outputs on the rightmost - column by default. This should fix the xterm cut-n-paste problem. -36. AU/X 2.0 and SGI compiles with POSIX as a default now. -35. sysv_echo is gone too. Now we have a variable called echo_style - which can be set to "none", "bsd", "sysv", "both" that defines - the builtin echo_style. The default is "bsd" for systems with - SYSVREL == 0, "sysv" otherwise. This can be overriden in config.h - by defining ECHO_STYLE ro be BSD_ECHO, SYSV_ECHO, BOTH_ECHO, - or NONE_ECHO. -34. asynchronous notification in run-fg-editor would try to change the - tty settings and print an extra prompt. - > set notify - > sleep 10 & - > vi^Z - > ^[^Z -33. alias x /bin/true - x<esc>? - reported .//bin/true instead of /bin/true -32. 6.01.04 (2/12/92) -31. fixed vi_substitute_line -30. binding completion addition. -29. showdots=-A addition -28. sysv_echo addition; deleted bsd_echo which is now the default. -27. dunique could crash. -26. Don't clear lines after an asynchronous notification, because it - might erase the message. -25. 6.01.03 (1/29/92) -24. `` were not working correctly when tcsh is started with 0,1,2 closed. -23. Correction was picking up the wrong thing in cases like .rhosts hosts -22. Correction with names with quoted spaces was broken. -21. Added sysv_echo and bsd_echo. -20. Added and documented the complete builtin. -19. Added dunique and cd -. -18. Per's fix for alarm functions. Things would break if time went backwards. -17. Realloc bug fix (copy min of old and new size) -16. Fix for csh compatible braces. -15. Brace globbing and negation globbing for Gmatch. -14. 6.01.02 (1/16/92) -13. Completion builtin, new tw* files. -12. 6.01.01 (1/6/92) -11. Changed w_ fields in tc.who.c to who_ to avoid redefinitions in - <sys/wait.h> in some os's. -10. Setting savehist to an empty string makes savehist use the value - in $history. -9. echotc did not use the internal termcap descriptions. -8. echotc did not work right for single argument termcap strings. -7. DGUX needs SAVESIGVEC, updated type protection, and disabled CSWTCH. -6. Changed SVID to SYSVREL, since there is no SVID == 4 (yet). -5. Typo in tc.sig.h: UNRELSIGS was not getting defined. -4. Globbing bug fix. tglob() should ignore globbing characters inside - backquotes otherwise things get expanded twice: - % echo 'bar?' > 'foo?' - % echo `cat foo\?` - echo: No match. -3. Mach setpath fix. -2. Alliant process group fix. -1. Xenix fixes for broken vi and help path with no suffixes. - - -V6.01.00, 12/19/91 [for comp.sources.unix] -22. Restore the original prompt in automatic correction when the user - asks to re-edit the command. -21. Better error for unreadable files in tw.parse.c -20. Sequent patches. -19. (V6.00.08 beta 12/14/91) -18. Filenames containing # were spelled/expanded incorrectly. -17. Stellar/stellix port. -16. Hpux 8.0 has SIGWINDOW but we cannot get the window size. Protect - against window changes updating $LINES and $COLUMNS. -15. Mach setpath did not work right. -14. Mach does not need setenv in lib; in fact that does not work right. -13. shell level gets decremented when we exec. -12. restart_fg_editor picked the wrong editor if arg contained a slash. - e.g vi ~/.cshrc -11. (V6.00.07 beta 12/08/91) -10. Allow use of vfork() on systems that do not have job control. -9. Avoid NUMCC from being defined twice. -8. (V6.00.06 beta 12/05/91) -7. SunOS3's FIOCLEX dups... -6. Yet another globbing bug fix from Michael (echo .[^.]) -5. Ultrix now wants __ before cpp symbols. -4. Workaround sun's header files inconsistency so tcsh can be compiled - with #undef POSIX -3. Fixed limit stuff so that large values don't cause errors. -2. Fixed =1 and ~user error messages (Per) -1. (beta-5 6.00.04 == 6.00.05) - -$#* -$#* New numbering scheme (The last 2 digits are reserved for beta releases -$#* from now on. So we start at 6.00.06 which is 6.00.04 beta 6, and we are -$#* going to release 6.01.00... -$#* - -V6.00.04, (never released) -34. (beta-5 11/25/91) -33. Simplify code in BindArrowKeys() -32. Get rid of the PNULL's -31. Support for shadow password in locking code. (From Kimmo) -30. Normalize-path editor function. -29. (beta-4 11/21/91) -28. minix additions -27. bindkey fixes (-c addition, casting cleanups) -26. (beta-3 11/16/91) -25. Prompt length checking. -24. Michael's fixes for the watching code. Tcsh could core dump when using - a corrupted utmp. -23. overwrite mode flag, and autologout locking code. -22. overwrite mode would still insert digits! -21. Get the value of _POSIX_VDISABLE from pathconf... -20. Hpux 8.0 fixes. Sigstack botches with shared libraries. Ansi mode - static initialization of structures with prototyped function pointers - gives spurious warnings... -19. Onintr in /etc rc files is disabled. -18. (beta-2 11/03/91) -17. Multi-line aliases with `` bug fix. -16. Sticky emacs overwrite mode. -15. Autolist option. -14. Fix for redirection with wildcard filanames. -13. No error correction for multi-line commands. -12. Esix-4 re-defines p_pid. Argh... -11. (beta-1 10/28/91) -10. Foreach loops were broken again. -9. SUNOS localtime() bug does not only happen on the 8th byte. [Michael] -8. sh.dir.c, memory corruption in dinit(). Thanks Michael. -7. uts broken <sys/stat.h> work-around, and has a wait3() -6. SGI (-t filename) extension, returns true when filename is a tty. -5. 'default:' addition in all switch() statements. -4. oflag was not being updated correctly in Rawmode() -3. missing 'break;' in prompt code '%y'. -2. infinite loop in :a<mod> code. -1. hashstat was not reporting hits+misses - - -V6.00.03, 10/21/91 -31. watch code now accepts shell patterns. -30. new hashing code portability fixes. -29. $foo:gs/:/ / fix and 'a' modifier addition. -28. Added $! (the pid of the last background job forked) -27. exec does not kill the shell when it fails. -26. Irix4.0 decls. -25. SVR4 uthost fixes from Kimmo Suominen -24. Imake addition from marc -23. New i-search from Per. -22. ibmesa fixes -21. convex fixes. -20. t command for vi. -19. SVR4 fixes (reverse pipeline and sigaction()) from David Dawes. -18. New hashing from Marc -17. Added : to the ~name separators so ~foo:~bar works. -16. New ed.init.c. Added ed.term.c -15. Still can't get the history exactly csh-like... !-2$ was broken... -14. vi character searches. -13. -Dvar=name command line option for the apollos. -12. Prompt format changes for date/directory. -11. Vi searches. -10. Emacs i-search. [currently not bound] -9. Vi additions ([dc]-{w,$,f<c>},Undo) -8. tcsh -n parses now builtin structures. -7. seek to the end on errors in loops. -6. echotc -s was broken -5. Better !event parsing. !foo;!bar was broken. -4. foreach loops and if statements in aliases. -3. .cshdirs would corrupt the heap if some directories were not there. -2. System V echo was broken with \ -1. Fixed echo '!-1', history would eat the quote. - -V6.00.02, 08/05/91 [For comp.sources.unix] -8. tcsh will always set $LOGNAME and $USER if not already set in the - environment. -7. added $histfile. -6. echo `echo` * and echo ~ {} were broken -5. setty builtin addition -4. Multiple : modifiers [experimental, disabled with -DCOMPAT] -3. 7 bit fixes, and hp9000s500. -2. #undef DEBUG in tc.alloc.c, so we continue if we get a bad free() -1. getn() is now protected against NULL strings. - -V6.00.01, 07/16/91 -17. added beepcmd, and fixed small tenematch bugs. -16. Renamed DUP2 flag to HAVEDUP2 cause AIXPS2 defines DUP2 already. -15. More ANSI fixes, and mit additions (load-average) -14. don't clear ECHOE, background programs might need it. -13. Refresh bug fix... -12. getpwent() should not be interrupted (yellow pages), cause it might - leave dangling pointers, that endpwent() will trash. -11. ChangeSize is now responsible to set the screen size to something - sane, but it should not affect the environment if the information - it received is not valid -10. Find out if we are running under emacs using $TERM. It is more - reliable. -9. tcsh was broken if SHORT_STRINGS was not defined (glob() problem) -8. If GetSize() fails it should always return reasonable screen sizes. -7. globbing should not fail if one or more patterns match. -6. increased the number of aliases in the loop detection code. -5. DGUX has size_t and pid_t defined now... -4. ESIX does not have EWOULDBLOCK or EAGAIN & POSIX... That was not handled - correctly. -3. rs6000 needs BSDWAIT. -2. Hpux susp key could not be changed. -1. Apollo fixes. - -V6.00.00, 07/04/91 -45. Fixed quoting of VSTART/VSTOP on termios -44. Memory leak every time you pipe in or out. -43. echo {foo bar.[ch]}. Did not check for end of word. -42. ANSI prototypes -41. dmove() would leave the source descriptor open when using dup2() - e.g. - while (1) - echo foo >>! bar - end - runs out of file descriptors -40. recursive `` expanded via aliases would abort. -39. set home=../relative-path-name was broken. - e.g. - set home=../..; cd ..; - <abort> -38. Incorrect error when changing to directory: - e.g. - mkdir not-in-cd-path; chmod -x not-in-cd-path; cd not-in-cd-path; - echoed: - not-in-cd-path: No such file or directory. - it should have said - not-in-cd-path: Permission denied. -37. if ( \! =~ [\!] ) echo ok, did not echo ok. Quoting inside [] pattern. -36. More than 127 jobs caused job # to go negative -35. unsetenv <pattern> ... Added support for more than one pattern. -34. More background process status report fixes. -33. Apollo builtin support. -32. Glob fix. echo '*' * was not handled properly. -31. Glob fix. setenv FOO `sleep 1` would either cause a segmentation fault. - or print ambiguous. -30. Glob fix. Quoted characters inside [] were not handled properly. -29. Removed TELL and VMUNIX defines. I think we cannot compile on V6 anyway -28. Overflow check for expansions. -27. Added matchbeep, shell pattern history searching. -26. Added code to handle /dev/std{in,out,err} -25. Fixed POSIX speed handling in raw mode. -24. Fixed a flushing bug in the filec code in sh.file.c -23. Compiled and added hp9000s700 to the list of hosts. -22. Fixed horrible bug in gmatch() - switch (4) - case [a-z]: - echo bug; - breaksw; - case 4: - echo ok; - breaksw; - endsw -21. Fixes for _SEQUENT_ ut_host. -20. FLUSHO added -19. mkdir foo\`bar; cd foo\`bar; was broken -18. EWOULDBLOCK == EAGAIN on RENO check for that too. -17. Dword() simplified and removed the gotos. -16. Hpux now compiles with POSIX. Moved the local chars modes in ed.init.c - after the tty modes. -15. Process group fixes for POSIX -14. We need <sys/filio.h> on the suns for FIOCLEX!!! We did not close - our file descriptors before... -13. A/UX fixes. -12. History events that start with a number are not necessarily numeric: - > !3d - 3d: Event not fount -11. History loop detection added. - > alias a \!# - > b; a -10. Alias loop detection code was ineffective on eager optimizers. - 9. All errors should now go through our table. Next step we should - add nls error messages. - 8. Unsetenv now globs its arguments! Before it did not... - 7. Added tilde cache and -l flag. - 6. Added autocorrect - 5. Fixed for so that background jobs in scripts get process groups - 4. Fixed amazing memory leak in setenv()... - 3. Added short2qstr() so that we can form quoted strings to be used with glob() - 2. str2short and short2str allocate space dynamically. - 1. Fixed bug related to the is*() routines called with shorts. - [only if NLS and SHORT_STRINGS are defined]. - (The _ctype_ was getting indexed with shorts...) - 0. Complete overhaul. Brought in the 4.4 csh stuff. Separated most - tcsh and csh code except where I would have to add more global - variables. Compiled correctly with both lint and gcc -Wall on - a sparc running 4.1 - -V5.20.03, 03/20/91. - Never released -25. Kanji, SXA additions. -24. (exec foo) should not fail if they are suspended jobs. -23. Support kernel paging stuff on aix 370. -22. Now we handle correctly the environment variables LINES, COLUMNS, - TERMCAP for window size changes... -21. Tcsh 5.18c+ had broken NULL chars on scripts. - > cat > foo - #!/usr/local/bin/tcsh -f - echo "foo" - echo "^V^@" - echo "bar" - ^D - > chmod +x foo; foo - foo -20. Posix has EAGAIN and not EWOULDBLOCK -19. Don't set ECHOK; makes kill ^U ugly. -18. $shell is SHELLPATH and not $SHELL any more. -17. Added -n flag to cd, pushd, popd and dirs. Documented -l and -v - flags. -16. Documented and fixed chase_symlinks and ignore_symlinks. -15. Call endpwent() when you get interrupted... - cd ~chri<tab>^C - cd ~christos/<enter> - <stuck> -14. Exec when you have suspended jobs asks for verification. -13. Variable length fixes: - >set abcdefghijklmnopqrstuvwxyz=1 - >echo $abcdefghijklmnopqrstuvwxyz - abcdefghijklmnopqrs: Undefined variable - Now we have better messages too... -12. Icon fixes... -11. Quote expanded glob and history chars too. -10. If someone sets SHIN to O_NDELAY we died... Now we set it back... - 9. unset path; unsetenv PATH; ls-F; (poof) fixed... - 8. Patches for masscomp, and ${var123} lexical analysis fix... - 7. Patch for sunview bug: A partially covered suntool sends SIGWINCH every - time the text is scrolled, causing annoying redraw effects. Now tcsh - checks if the size really changed before doing anything. - 6. Interrupt in the middle of cwdcmd, and periodic does not remove the - aliases. - 5. prompt2 and prompt3 fixes: - Prompt2 now prints the status of the parser by default. - Prompt3 can now have the standard prompt escape sequences. - 4. eval file descriptor re-direction fix. - >set p='w | tail +3' - >eval $p - (originally | tail +3 was ignored) - 3. $edit != emacs anymore; it was misleading, 'set edit' enables editing - 'unset edit' disables it. - 2. PERROR define fix. - 1. irix3.3.1 line discipline fix. - -V5.20.02, 12/15/90. -32. /etc/Logout added and merged with /etc/Login flag. -31. Fixed tty chars in ed.init.c. Some of them were not handled correctly. -30. Command execution does not leak memory any more, and doing - ~ four times does not core-dump. -29. Fixed the notorious csh 'if(' bug (part of the convex fixes) -28. Intelligent getwd() on startup, and canonicalization. -27. Intelligent directory stack. Gets updated when $HOME changes. -26. Directory stack/save-restore additions -25. Convex Fixes. -24. Fixed onlret, and echonl getting stuck on svid. -23. Shouldn't leave tty in raw mode at auto-logout (e.g. when su'ing from a - csh, this is annoying). -22. Some users had environment EMACS set to something, and with my bad fix - at pl 1 found that they didn't have echo... (of course, even before my - "fix", they didn't have editing...). Anyway, refined the check to be - for EMACS=t, which is what emacs sets when running a subshell. -21. kill -CONT %job, would not update the status of the job, but it would - just restart it. -20. Sequent fixes. -19. AIX370 signal and TCF fixes. -18. fixed ls-F -l, SIGINT problem. -17. aix on the ps2 does not have strcoll() either. -16. Bind [A - [D and OA to OD in vi mode to the arrow key functions - so that they work from insert mode. -15. %~ was not working correctly for /home/news and /home/newsbin... -14. Removed Rcs Log -13. ISC unix fixes. -12. sunos3.x wants <sys/dir.h> not <dirent.h> -11. Remove precmd's, cwdcmd's and periodic cmds that had errors. -10. Compile sunos4.1 using termio. - 9. Rs6000 line discipline fixes. - 8. T_Tabs was wrong for termio machines. - 7. Don't bind single keystroke arrow keys, when they are already bound! - 6. Test for newline and tab before deciding not to send shell scripts - to the bourne shell. - 5. Added LITERAL prompt stuff. - 4. Fixed gethostname() in sh.rest.c to return the nodename. - 3. Do not quote spell checked stuff. This is not very intelligent but - works better than before. - 2. Fixes for relative path components. (paths that start with a .) - 1. Fixed so that Rawmode() is not called when we are not editing - (breaks running under emacs) - -V5.20.01, 11/15/90. -12. Recognize environment variables too. -11. Always start in Rawmode() -10. don't try to execute binary files using the bourne shell. - 9. Vi change to end of line updates correctly now. - 8. Prompt in continuation lines. - 7. Prompt in if statements fix. - 6. System V ^C works right now. - 5. ^Z works correctly in bindings - 4. Better error messages for variables. - 3. dinit() now is more robust. - 2. Added aux2.0 patches. - 1. Fixed bug with arrow key bindings in ed.screen.c. All the keys - were bound to up-history! - -V5.20.00, 11/10/90. -26. Fixed system V and POSIX time reporting. -25. Fixed ed.screen.c so that it does not use malloc(). -24. Fixed SIGWINCH on the iris -23. Fixed ed.screen.c, so that settc works correcly. It used to set - the termcap with a string that was allocated from the stack! -22. Fixed listing of commands, where the last command was not checked. -21. Fixed which command. It did not work for - \<command>, if command was aliased. -20. Eliminated CSH4.3 define. You've had enough time to upgrade from 4.2 -19. Fixed GotTermCaps to be called only once. -18. Added bindkey -r -17. Attributes were not getting reset correctly. -16. history -t does not print the time-stamp. -15. AddXkey, works now for single character xkeys. -14. filetype() knows better about symlinks. -13. ls-F works with filenames that have metachars -12. Completion/spelling works with quoted things. -11. Fixed refresh bug. Repeat by: - On an intelligent terminal that has insert and delete chars (xterm) - > orphan - > vi orphan.c - > ^P^P -10. Fixed so that if we don't have a tty on stdin editing is disabled. - 9. Check for nested process forking, to avoid loops such as: - > alias foo 'set bar=`foo`' - > foo - 8. Fix setting of AsciiOnly (Per) - 7. tw.spell.c, defined F_OK for systems that don't have it. - 6. ourwait.h had typo in ifdef. - 5. BSD compilers need a cast to int for enums used in - switches (Matthew Day) - 4. Found the cause for the core-dump in long backquote - expansions (Mark Davies) - 3. Some externs in ed.h needed to be truly externs... - reported by Mark Davies, bug appeared only on hp9000s800. - 2. Changed $tcsh, and $version strings. - 1. Added internal sprintf function, renamed putchar to CSHputchar, - printf to CSHprintf, sprintf to CSHsprintf. - -V5.19.02, 10/23/90. -36. Added /etc/cshrc for the SGI irises. -35. Added expand-variables function. -34. Documented $time in tcsh.man -33. Shell variables are now 'recognized' when expanding/listing things. -32. ls-F does not eat the last slash on the / directory! -31. Strings bound to keys are printed inside double quotes. -30. History now remembers the exact line, not just an unparsed version of - the tokens. -29. Renamed itoa to Itoa(), so things in libc that use itoa() don't break. -28. Ported to IBM aix/ps2. -27. Fixed eval so that it forks when the output is piped - Repeat by: - > who | grep $user - > eval who | grep $user -26. Fixed so that 'nice <builtin changing the working directory>' does not - nice or fork. - Consider doing: - nice cd /tmp && rm *.c (don't try it!!!) - [what actually happens is that nice has to fork, then the child executes - chdir, and the parent stays where it was] -25. Added Dan's patches (nls, builtin bindkey, fixes to the editor). -24. Added aix370, migrate, getspath, getspath, getxvers, setxvers -23. Added builtin echotc, removed sl and el. -22. Ported to 4.4 BSD. This involved changing the way lots of flags worked, - cleanup of the SVID stuff, and addition of more compilation flags. - Now POSIX can work whed BSD is defined... -21. Fixed so that el, sl work. Actually they are to be removed soon and - be replaced with echotc. -20. Avoid the Quoted Space hack for alias when printing jobs! - [aliases to the same name avoid further alias expansion, by - inserting a quoted space in front of the command. In SHORT_STRINGS - QUOTE is the 15th bit so print ignores it thinking it is the - end of the string. So we just skip the Quoted Space....] - Repeat by: - > set notify - > alias ls ls -F - > (ls) & - Prints Exit 0 ( - Should print: Exit 0 ( ls -F ) -19. Fixed so that "", '', ``, all produce ': Command not found', - and not the spurious messages. - Repeat by: - > set path = (/bin /usr/bin .... .) - > "" - /some/path/name/: Command not found -18. Enable the use of <ctype.h> macros if they exist and NLS is defined. - NLS code is not ready yet. -17. Fixed rmstar and continue_jobs code, so that they are not compile - options, but shell variables. Now you need to 'set rmstar' to get - enable rmstar. -16. Fixed SIGWINCH, SIGWINDOW, and setting of li, co, that broke - suntools, and others. - Repeat by: - Start a shelltool of size other than 80x34 - > telltc - > stty -a - do not report the same number of lines and columns. -15. More fixes to tw.parse.c, and tw.spell.c. -14. More fixes to sh.char.c. -13. Fixed coredump caused by ``. -12. Fixed spell-line code.. -11. Trapped SIGCHLD in sh.sem.c, while forking. Still there is a small - race, but the probability of happening is smaller! -10. Fixed sh.char.c to be ISO compliant. - 9. Added expand-glob - 8. Fixed ourwait.h for little endians. - 7. Fixed that foreach i (^D expands correctly. - 6. Fixed so that listmax is ignored in ls-F. - 5. Fixed spelling correction so that single letter words and words that - contain globbing chars do not get spell checked. - 4. Changed NeXT HOSTTYPE to next, since all HOSTTYPE's are lower case. - 3. Fixed symmetry, and changed symmetry HOSTTYPE from sequent to symmetry. - 2. Added boldfacing, underlining chars. - 1. Added IRIX3.3.1 support. - -V5.19.01, 9/26/90. - 7. Brought the README file up-to-date, and changed the bug report - address to point to me. - 6. sh.lex.c. In addla(), overflow computation was wrong. - 5. Fixed SHELLPATH, to be set correctly when $SHELL is not set. - 4. Fixed print statement in sh.proc.c that contained \215. - 3. Fixed the Makefile and MAKEDIFFS so that a tahoe diff can be made. - 2. RS6000: hacked around execv bug, and ed.init.c warning. - 1. Editor should not be enabled when we don't have a tty. diff --git a/contrib/tcsh/Imakefile b/contrib/tcsh/Imakefile deleted file mode 100644 index 0af87e91c964..000000000000 --- a/contrib/tcsh/Imakefile +++ /dev/null @@ -1,622 +0,0 @@ -XCOMM -XCOMM $Id: Imakefile,v 1.77 2000/01/14 22:57:25 christos Exp $ -XCOMM -XCOMM Imakefile for tcsh 6.09 -XCOMM Marc Horowitz, MIT SIPB -XCOMM - -#ifdef DestDir -#undef DestDir -#endif -#ifdef ManSuffix -#undef ManSuffix -#endif - -/* All config options go in a separate file. */ - -#include "imake.config" - -#ifndef HasGcc -# define HasGcc 0 -#endif - -#ifndef HasGcc2 -# define HasGcc2 0 -#endif - -/* This is a giant conditional block. It should be set up right for -platforms which are in here, but it may need to be changed for new -ones. Please send in your fixes and additions! */ - -/**** tcsh configuration defines ****/ - -/* specific platforms */ - -#ifndef ConfigH -# ifdef UltrixArchitecture -# define ConfigH ultrix -# endif - -# ifdef UxpArchitecture -# define ConfigH sysv4 -# endif - -# ifdef LinuxArchitecture -# define ConfigH linux -# endif - -# ifdef AlphaArchitecture -# ifndef LinuxArchitecture -# define ConfigH decosf1 -# endif -# if !HasGcc -# define MyCflags -std1 -Olimit 2000 -# else -# define NoCombineRegs -# endif -# endif - -# if defined(VaxArchitecture) && !defined(UltrixArchitecture) -# define ConfigH bsd -# endif - -# ifdef NeXTArchitecture -# define ConfigH mach -# endif - -# if defined(SunArchitecture) -# if (OSMajorVersion == 3) -# define ConfigH sunos35 -# else -# if (OSMajorVersion == 4) -# if (OSMinorVersion == 0) -# define ConfigH sunos40 -# else /* OSMinorVersion == 1 */ -# if (OSTeenyVersion == 3) -# define ConfigH sunos413 -# else /* OsTeenyVersion in [0,1,2] */ -# define ConfigH sunos41 -# endif -# endif -# define NoCombineRegs -# else /* OSMajorVersion == 5 */ -# if (OSMinorVersion < 3) -# if (OSMinorVersion < 2) -# define ConfigH sol2 -# else -# define ConfigH sol22 -# endif -# else -# if (OSMinorVersion < 4) -# define ConfigH sol23 -# else -# if (OSMinorVersion < 6) -# define ConfigH sol24 -# else -# define ConfigH sol26 -# endif -# endif -# endif -# define NoCombineRegs -# endif -# endif -# endif - -# ifdef HPArchitecture -/* For some stupid reason makedepend on HP requires this */ -DEPENDFLAGS = -o.o -# if (OSMajorVersion >= 8) -# define ConfigH hpux8 -# else -# define ConfigH hpux7 -# endif -# endif - -# ifdef CrayArchitecture -# define ConfigH cray -# endif - -# ifdef SGIArchitecture -# define ConfigH irix -# define UseLibBSD -# if (OSMajorVersion < 5) -# ifdef you_are_using_yp -# define UseSunLib -# endif -# if !HasGCC -# define MyStdc -D__STDC__ -# if SGICompilerMajorVersion < 4 -CCOPTIONS=-float # We don't want -cckr and -prototypes -# endif -# endif -# endif -# if (OSMajorVersion == 6) -# if (OSMinorVersion >= 2) -# undef UseLibBSD -# define ConfigH irix62 -# endif -# endif -# endif - -# ifdef IBMArchitecture -# undef UseLibBSD -# if (SystemV == YES) -# define ConfigH aix -# if OSMajorVersion < 3 -# if OSMinorVersion < 2 -# define UseLibBSD -# endif -# endif -# else -# define ConfigH bsd -# define AOSArchitecture -# endif -# endif - - -#ifdef AOSArchitecture -#define MyStdc -U__STDC__ -#endif - -# if defined(MipsBsdArchitecture) || defined(MipsSysvArchitecture) -# define ConfigH mips -# endif - -# ifdef DguxArchitecture -# define ConfigH dgux -# endif - -# ifdef ConvexArchitecture -# define ConfigH convex -# endif - -# if defined(SQNTArchitecture) || defined(SequentArchitecture) -# define ConfigH sequent -# endif - -# ifdef MacIIArchitecture -# define ConfigH mac2 -# endif - -# ifdef MinixArchitecture -/* Maybe conditional on MACH? */ -SYSSRCS=mi.termios.c mi.wait.h mi.varargs.h -SYSOBJS=mi.termios.${SUF} -EXTF=ma.setp.c vms.termcap.c -# else -/* Maybe conditional on MACH? */ -SYSSRCS=ma.setp.c -SYSOBJS=ma.setp.${SUF} -EXTF=mi.termios.c mi.wait.h mi.varargs.h vms.termcap.c -# endif - -# ifdef i386Isc -# if IscVersion != 202 -# define ConfigH isc -# define UseLibCposix -# else -# define ConfigH isc202 -# endif -# endif /* i386Isc */ - -# ifdef OpenBSDArchitecture -# define ConfigH bsd4.4 -# endif /* OpenBsdArchitecture */ - -# ifdef NetBSDArchitecture -# define ConfigH bsd4.4 -# endif /* NetBsdArchitecture */ - -# ifdef FreeBSDArchitecture -# define ConfigH bsd4.4 -# endif /* FreeBsdArchitecture */ - -# ifdef i386SVR4Architecture -# define ConfigH sysv4 -# ifdef DELL -# define NoCombineRegs -# endif -# endif - -#endif /* !ConfigH */ - -/* generic os's */ - -#ifndef ConfigH - -#if (SystemV == YES) -#define ConfigH sysv3 -#else -/* why this as a default? Why not? */ -#define ConfigH bsd -#endif - -#endif /* !ConfigH */ - -/**** libraries ****/ - -#if (SystemV == NO) || defined(HPArchitecture) || \ - defined(SQNTArchitecture) || defined(SequentArchitecture) || \ - defined(MacIIArchitecture) || defined(UseLibTermcap) -LIBTERMCAP = -ltermcap -#else -LIBTERMCAP = -#endif - -#if defined(SQNTArchitecture) || defined(SequentArchitecture) -LIBSQNT=-lsocket -linet -lnsl -lseq -#endif - -/* This may not be good enough - I don't have access to enough systems -to really test it. */ -#if (SystemV == YES) || defined(UseLibCurses) && !defined(HPArchitecture) -LIBCURSES = -lcurses -#else -LIBCURSES = -#endif - -#if defined(UseLibNet) -LIBNET = -lnet -#else -LIBNET = -#endif - -#if defined(UseLibSocket) -LIBSOCKET = -lsocket -#else -LIBSOCKET = -#endif - -#if defined(UseLibBSD) -LIBBSD = -lbsd -#else -LIBBSD = -#endif - -#if (defined(SGIArchitecture) && \ - (OSMajorVersion == 3) && (OSMinorVersion == 3)) || \ - defined(UseLibC_S) -LIBC_S = -lc_s -#else -LIBC_S = -#endif - -#if defined(UseLibSun) -LIBSUN = -lsun -#else -LIBSUN = -#endif - -#if defined(UseLibCposix) -LIBCPOSIX = -lcposix -#else -LIBCPOSIX = -#endif - -#if defined(UseLibInet) -LIBINET = -linet -#else -LIBINET = -#endif - -#if defined(UseLibDir) -LIBDIRECT = -ldir -#else -LIBDIRECT = -#endif - -#if defined(UseLibX) -LIBX = -lx -#else -LIBX = -#endif - -#if defined(UseLibIntl) -LIBINTL = -lintl -#else -LIBINTL = -#endif - -#if (HasLibCrypt == YES) -LIBCRYPT = -lcrypt -#else -LIBCRYPT = -#endif - -#if defined(MacIIArchitecture) || defined(UseLibPosix) -LIBPOSIX = -lposix -#else -LIBPOSIX = -#endif - -#if defined(ATTArchitecture) || defined(UseLibDirent) -LIBDIRECTENT = -ldirent -#else -LIBDIRECTENT = -#endif - -/* The order here is significant. Although nothing uses all of these, -some platforms which use more than one do care about the order. */ - -SYSLIBS = $(LIBPOSIX) $(LIBDIRECTENT) $(LIBTERMCAP) $(LIBCURSES) \ - $(LIBNET) $(LIBINTL) $(LIBSOCKET) $(LIBSUN) $(LIBBSD) $(LIBCPOSIX) \ - $(LIBINET) $(LIBDIRECT) $(LIBX) $(LIBC_S) $(LIBSQNT) $(LIBCRYPT) - -/* Past here, nothing should need to be changed to compile on a different -platform, unless you have a really weird architecture. */ - -#ifdef MyCC -CC = MyCC -#else -# if HasGcc -# if HasGcc2 -CC = gcc -# else -# ifdef NoCombineRegs -CC = gcc -finline-functions -fstrength-reduce -# else -CC = gcc -fcombine-regs -finline-functions -fstrength-reduce -# endif -# endif -# else -CC = cc -# endif -#endif - -#ifdef HESIOD -HESLIB = -L/usr/athena/lib -lhesiod -/* it seems to me that the -I shouldn't be necessary, but there seems -to be a bug in the Imake stuff, so here it is. */ -HESDEF = -DHESIOD -I/usr/athena/include -#else -HESLIB = -HESDEF = -#endif - -#ifdef AFS -#ifndef AFSDIR -AFSDIR = /usr/afsws -#endif -#ifdef AFS33 -#define AFS33LIB -laudit -#else -#define AFS33LIB -#endif -/* Auxilliary libs needed for AFS */ -/* Both HPUX and Solaris need the BSD libraries. We need -lc before - * the bsd library to avoid using any more of it than is necessary. - */ -#if defined(HPArchitecture) -#define AFSAUXLIB -lc -lBSD -/* This is probably a kludge, but so is imake. */ -#else -#if defined(SunArchitecture) && (OSMajorVersion == 5) -#define AFSAUXLIB -lsocket -lnsl -lc -lucb -#else -#define AFSAUXLIB -#endif -#endif /* AFSAUXLIB */ -AFSLIB = -L$(AFSDIR)/lib -L$(AFSDIR)/lib/afs -lkauth -lprot -lubik\ - -lauth -lrxkad -lsys -ldes -lrx -llwp -lcom_err\ - $(AFSDIR)/lib/afs/util.a AFS33LIB AFSAUXLIB -AFSDEF = -DAFS -I$(AFSDIR)/include -#else -AFSLIB = -AFSDEF = -#endif - -/* This is encore specific, but I don't know what encore's #define is, -and it shouldn't hurt to have it here, so here it is */ -PARALLEL=12 # Make the multi-max run fast. - -#ifndef TcshTop -#define TcshTop /usr/local -#endif -TCSHTOP = TcshTop - -#ifndef ManSuffix -#define ManSuffix 1 -#endif -MANSUFFIX = ManSuffix - -#ifdef TcshPath -PATH_TCSHELL = TcshPath -TCSHPATH = -D_PATH_TCSHELL='"$(PATH_TCSHELL)"' -#else -TCSHPATH = -#endif - -#ifdef DestBin -TCSH_BINDIR = DestBin -#else -TCSH_BINDIR = $(TCSHTOP)/bin -#endif -#ifdef DestMan -TCSH_MANDIR = DestMan -#else -TCSH_MANDIR = $(TCSHTOP)/man/man$(MANSUFFIX) -#endif - -LOCALLIBS = - -#ifndef MyCflags -#define MyCflags -#endif - -#ifndef MyDefines -#define MyDefines -#endif - -#ifndef MyIncludes -#define MyIncludes -#endif - -#ifndef MyStdc -#define MyStdc -#endif - -#ifdef CDebugFlags -CDEBUGFLAGS = CDebugFlags -#else -# if HasGcc2 -CDEBUGFLAGS = -O2 -# else -CDEBUGFLAGS = -O -# endif -#endif - - -#ifdef HostType -HOSTTYPE=HostType -HTDEF = -DHOSTTYPE='"$(HOSTTYPE)"' -#else -HTDEF = -#endif - -DEFINES = $(TCSHPATH) $(HESDEF) $(AFSDEF) $(HTDEF) MyDefines MyCflags MyStdc -INCLUDES = -I. MyIncludes -#ifdef MyLibs -LDLIBS = MyLibs -#endif - -SUF = o -VERSION = 6.09 - -SHSRCS= sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \ - sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \ - sh.lex.c sh.misc.c sh.parse.c sh.print.c sh.proc.c sh.sem.c \ - sh.set.c sh.time.c sh.char.h sh.dir.h sh.proc.h sh.h \ - sh.decls.h glob.c glob.h ${SYSSRCS} -SHOBJS= sh.${SUF} sh.dir.${SUF} sh.dol.${SUF} sh.err.${SUF} sh.exec.${SUF} \ - sh.char.${SUF} sh.exp.${SUF} sh.func.${SUF} sh.glob.${SUF} \ - sh.hist.${SUF} sh.init.${SUF} sh.lex.${SUF} sh.misc.${SUF} \ - sh.parse.${SUF} sh.print.${SUF} sh.proc.${SUF} sh.sem.${SUF} \ - sh.set.${SUF} sh.time.${SUF} glob.${SUF} ${SYSOBJS} - -TWSRCS= tw.decls.h tw.h tw.help.c tw.init.c tw.parse.c tw.spell.c \ - tw.comp.c tw.color.c -TWOBJS= tw.help.${SUF} tw.init.${SUF} tw.parse.${SUF} tw.spell.${SUF} \ - tw.comp.${SUF} tw.color.${SUF} - -EDSRCS= ed.chared.c ed.decls.h ed.defns.c ed.h ed.init.c ed.inputl.c \ - ed.refresh.c ed.screen.c ed.xmap.c ed.term.c ed.term.h -EDOBJS= ed.chared.${SUF} ed.refresh.${SUF} ed.screen.${SUF} ed.init.${SUF} \ - ed.inputl.${SUF} ed.defns.${SUF} ed.xmap.${SUF} ed.term.${SUF} - -TCSRCS= tc.alloc.c tc.bind.c tc.const.c tc.decls.h tc.disc.c \ - tc.func.c tc.os.c tc.os.h tc.printf.c tc.prompt.c \ - tc.sched.c tc.sig.c tc.sig.h tc.str.c sh.types.h tc.vers.c tc.wait.h \ - tc.who.c tc.h -TCOBJS= tc.alloc.${SUF} tc.bind.${SUF} tc.const.${SUF} tc.defs.${SUF} \ - tc.disc.${SUF} tc.func.${SUF} tc.os.${SUF} tc.printf.${SUF} \ - tc.prompt.${SUF} tc.sched.${SUF} tc.sig.${SUF} tc.str.${SUF} \ - tc.vers.${SUF} tc.who.${SUF} - -MISCF = Makefile.std Fixes MAKEDIFFS MAKESHAR NewThings README FAQ \ - WishList config_f.h eight-bit.me glob.3 patchlevel.h \ - pathnames.h tcsh.man Ported src.desc Imakefile imake.config \ - README.imake complete.tcsh vmsreadme.txt Makefile.vms termcap.vms \ - snames.h host.defs gethost.c tcsh.man2html Makefile.in configure.in \ - Makefile.win32 -CONFSRCS=config/[a-z]* - - -SRCS = $(SHSRCS) $(TWSRCS) $(EDSRCS) $(TCSRCS) -OBJS = $(SHOBJS) $(TWOBJS) $(EDOBJS) $(TCOBJS) - -ALLSRCS= $(MISCF) $(SRCS) $(EXTF) - -AllTarget(tcsh) - -ed.defns.h: config.h ed.defns.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_ed_defns' >> $@ - @echo '#define _h_ed_defns' >> $@ - egrep '[FV]_' ed.defns.c | egrep '^#define' >> $@ - @echo '#endif /* _h_ed_defns */' >> $@ - -sh.err.h: config.h sh.err.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_sh_err' >> $@ - @echo '#define _h_sh_err' >> $@ - egrep 'ERR_' sh.err.c | egrep '^#define' >> $@ - @echo '#endif /* _h_sh_err */' >> $@ - -tc.const.h: config.h tc.const.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_tc_const' >> $@ - @echo '#define _h_tc_const' >> $@ - ${CC} -E $(INCLUDES) ${DEFINES} -D_h_tc_const tc.const.c | \ - grep 'Char STR' | \ - sed -e 's/Char \([a-zA-Z0-9_]*\)\[\].*/extern Char \1[];/' | \ - sort >> $@ - @echo '#endif /* _h_tc_const */' >> $@ - -config.h: config_f.h - cp config/ConfigH config.h - -$(OBJS): sh.err.h tc.const.h ed.defns.h - -tar.Z: - rm -f tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - -tar.gz: - rm -f tcsh-${VERSION}.tar.gz - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | gzip > tcsh-${VERSION}.tar.gz - rm -rf tcsh-${VERSION} - -shar: - rm -f tcsh-*.shar - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - MAKESHAR -v -n tcsh-${VERSION} tcsh-${VERSION} \ - tcsh-${VERSION}/?* tcsh-${VERSION}/config/?* \ - tcsh-${VERSION}/?*/set?* - rm -rf tcsh-${VERSION} - -catalogs: - @(cd nls; make catalogs) - -world: - $(MAKE) clean ; $(MAKE) depend ; $(MAKE) tcsh ; $(MAKE) install - -clean:: - rm -f ed.defns.h sh.err.h tc.const.h config.h tc.defs.* - rm -f tcsh.*.m tcsh.*.cat - -depend:: config.h ed.defns.h sh.err.h tc.const.h $(SRCS) tc.defs.c - -tc.defs.${SUF}: tc.defs.c sh.h - -tc.defs.c: gethost host.defs - @rm -f $@ - @echo "/* Do not edit this file, make creates it */" > $@ - ./gethost host.defs >> $@ - -ALIB=$(HESLIB) $(AFSLIB) $(SYSLIBS) -AINC=ed.defns.h sh.err.h tc.const.h sh.h - -NormalProgramTarget(tcsh, $(OBJS), $(AINC), $(LOCALLIBS), $(ALIB)) -NormalProgramTarget(gethost, gethost.${SUF}, $(AINC), $(LOCALLIBS), $(ALIB)) - -InstallProgram(tcsh,$(TCSH_BINDIR)) -InstallManPage(tcsh,$(TCSH_MANDIR)) -DependTarget() diff --git a/contrib/tcsh/MAKEDIFFS b/contrib/tcsh/MAKEDIFFS deleted file mode 100755 index 3b87683c5d5f..000000000000 --- a/contrib/tcsh/MAKEDIFFS +++ /dev/null @@ -1,41 +0,0 @@ -#!/bin/sh -# -# MAKEDIFFS.sh: Make context diffs for the csh sources -# -# $Id: MAKEDIFFS,v 3.0 1991/07/04 21:57:47 christos Exp $ -XINUDIR=/usr/share/src/mtXinu/bin/csh -BSDDIR=/usr/share/src/mtXinu/BSD/bin/csh -TAHOEDIR=/usr/share/src/mtXinu/TAHOE/bin/csh -RENODIR=/usr/share/src/mtXinu/RENO/bin/csh -TCSHDIR=`pwd` -case "x$1" in -xxinu) - CSHDIR=$XINUDIR;; -xbsd) - CSHDIR=$BSDDIR;; -xtahoe) - CSHDIR=$TAHOEDIR;; -xreno) - CSHDIR=$RENODIR;; -x*) - echo "Usage: `basename $0` [bsd|tahoe|xinu|reno]";exit 1;; -esac -DIFF1='sh.c sh.char.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.exp.c sh.file.c' -DIFF2='sh.func.c sh.glob.c sh.hist.c sh.init.c sh.lex.c sh.misc.c sh.parse.c sh.print.c' -DIFF3='sh.proc.c sh.sem.c sh.set.c sh.time.c sh.char.h sh.dir.h sh.h sh.local.h sh.proc.h' - -for i in $DIFF1 -do - diff -c $CSHDIR/$i $TCSHDIR/$i -done > DIFFS.1 - -for i in $DIFF2 -do - diff -c $CSHDIR/$i $TCSHDIR/$i -done > DIFFS.2 - -for i in $DIFF3 -do - diff -c $CSHDIR/$i $TCSHDIR/$i -done > DIFFS.3 -exit 0 diff --git a/contrib/tcsh/MAKESHAR b/contrib/tcsh/MAKESHAR deleted file mode 100755 index 691690f081d1..000000000000 --- a/contrib/tcsh/MAKESHAR +++ /dev/null @@ -1,121 +0,0 @@ -#!/bin/sh -# -# MAKESHAR.sh: Make a shar file for the sources -# -# $Id: MAKESHAR,v 3.1 1992/05/09 04:03:53 christos Exp $ - -AWK=/usr/bin/nawk # Must be nawk or gawk cause of 2D arrays -WC=/usr/ucb/wc -GREP=/usr/bin/egrep -SORT=/usr/bin/sort -SH=/bin/sh - -dirs= -name=kit -files= -verbose=0 -size=45000 - -for i -do - case $i in - -n) - name=;; - -v) - verbose=1;; - -d) - SH=/bin/cat;; - -s) - size=$1;; - *) - if [ -z "$name" ] - then - name=$i - elif [ -d $i ] - then - dirs="$dirs $i" - elif [ -f $i ] - then - files="$files $i" - else - echo "$0: File `$i' not found." 1>&2 - exit 1 - fi;; - esac -done - -if [ \( -z "$files" \) -a \( -z "$dirs" \) ] -then - echo "Usage: $0 [-n name] [-s size] [-vd] <files>." 1>&2 - exit 1 -fi - -$WC $files | $GREP -v total | $SORT +2 | $AWK ' - BEGIN { - i = 0; - seq = 1; - size = 0; - name = 1; - used = 2; - verbose='"$verbose"'; - tty = "/dev/tty"; - maxsize = '"$size"'; - dirs = "'"$dirs"'"; - }; - { - a[i, size] = $3; - a[i, name] = $4; - a[i, used] = 0; - i++; - }; - END { - for (maxi = i--; i >= 0; i--) { - idx = 0; - if (a[i, used] == 0) { - if (verbose && a[i, size] > maxsize) - printf("Warning: File %s is %d > %d\n", - a[i, name], a[i, size], maxsize) > tty; - s = a[i, size]; - a[i, used] = 1; - kit[seq, idx++] = i; - j = 0; - while (j < maxi) { - # Find the greatest file we can add - j = maxi; - for (k = 0; k < maxi; k++) - if (a[k, used] == 0 && a[k, size] + s < maxsize) - j = k; - if (j < maxi) { - s += a[j, size]; - a[j, used] = 1; - kit[seq, idx++] = j; - } - } - sizes[seq] = s; - kit[seq++, idx] = -1; - } - } - for (i = 1; i < seq; i++) { - printf("shar -n%d -e%d %s ", i, seq - 1, dirs); - if (verbose) { - printf("%3d of %3d: ", i, seq - 1) > tty; - len = 12; - } - for (j = 0; kit[i, j] != -1; j++) { - s = a[kit[i, j], name]; - if (verbose) { - clen = length(s) + 1; - len += clen; - if (len > 70) { - printf("\n ") > tty; - len = 12 + clen; - } - printf("%s ", s) > tty; - } - printf("%s ", s); - } - printf("> '"$name"'-%d.shar;", i); - if (verbose) - printf("= %5d\n", sizes[i]) > tty; - } - }' | $SH diff --git a/contrib/tcsh/Makefile.in b/contrib/tcsh/Makefile.in deleted file mode 100644 index 683433ac55fa..000000000000 --- a/contrib/tcsh/Makefile.in +++ /dev/null @@ -1,639 +0,0 @@ -# $Id: Makefile.in,v 3.13 2000/01/14 22:57:25 christos Exp $ -# Makefile.in 4.3 6/11/83 -# -# C Shell with process control; VM/UNIX VAX Makefile -# Bill Joy UC Berkeley; Jim Kulp IIASA, Austria -# -# With an input editor, command completion, etc. and ported to all sorts of -# things; Paul Placeway, CIS Dept., Ohio State University -# -SHELL=/bin/sh -VERSION=6.09 -BUILD=tcsh -VPATH=@srcdir@ -srcdir=@srcdir@ - -################################################################ -## CFLAGS. For various -D things, see config.h -################################################################ -# -# These are the default suffixes from .c to .o and -c to get there -# but to use the global optimizer on the mips boxes, see below -# -SUF=o -CF=-c - -CPPFLAGS=-I. -I$(srcdir) - -LFLAGS= -#LFLAGS= -Zn10000 # hpux lint - - -CFLAGS = @CFLAGS@ # This is set by autoconf. -#CFLAGS= -g # debug -#CFLAGS= -O # production -#CFLAGS= # Broken optimizers.... - -#CFLAGS= -g -pg -DPROF -#CFLAGS= -O -pg -DPROF - -# gcc 1.00-1.37 -#CFLAGS= -O -finline-functions -fstrength-reduce - -# gcc 1.37-1.40 -#CFLAGS= -O -fcombine-regs -finline-functions -fstrength-reduce -# add -msoft-float for 68881 machines. - -# gcc 2.0 -# On the sparc, don't use -O2; it breaks setjmp() and vfork() -#CFLAGS= -O - -# gcc-2.1+ -#CFLAGS= -O2 - -# lucid c on suns -#CFLAGS= -O5 - -# gcc 2.1 on linux -#CFLAGS= -O6 -fomit-frame-pointer - -# HP/UX 8.0, 9.0 -#CFLAGS= +O3 -Aa - -# Ultrix 4.2a -#CFLAGS= -O -Olimit 2000 - -# Intel Paragon OSF/1 with PGI compilers -#CFLAGS= -O -Mnodebug -Mnoperfmon - -# DEC Alpha OSF/1 -#CFLAGS= -O2 -Olimit 2000 ## Normal Optimization -#CFLAGS= -O3 -Olimit 2000 ## Full Optimization - may not work -#CF=-j -#SUF=u -#.SUFFIXES: .u - -# for silicon graphics (and other mips compilers) -- use the -# global optimizer! (-O3). -# On SGI 4.0+ you need to add -D__STDC__ too. -#CFLAGS= -O3 -#CFLAGS= -O3 -Olimit 2000 ## Ultrix 4.2a -#CF=-j -#SUF=u -#.SUFFIXES: .u ## Ultrix and gnu-make need that - -# mips systems -# CFLAGS= -O -systype bsd43 -Wf,-XNd5000 -Wf,-XNp6000 -Olimit 2000 - -# for at&t machines -#CFLAGS= -O -Ksd - -# Stardent Titan -#CFLAGS = -O -43 - -# Stardent Stellar or sunos4 /bin/cc or Solaris2.1 /opt/SUNWspro/bin/cc -#CFLAGS = -O4 - -# Intergraph clipper CLIX 3.1 -#CFLAGS= -w -O2 - -# Dnix 5.3 -#CFLAGS = -O -X7 - -# Pyramid OS/x -#CFLAGS = -OG - -# Multiflow (5M binary... if you choose -O5!) -#CFLAGS = -O5 -sb_trace 0 - -# DDE Supermax Unix SYSV Rel III. -# CFLAGS= -O3 - -# SINIX RMx00 -#CFLAGS= -O # -D_POSIX_SOURCE # -kansi - -# Apollo's with cc [apollo builtins don't work with gcc] -# and apollo should not define __STDC__ if it does not have -# the standard header files. RT's (aos4.3) need that too; -# you might want to skip the -O on the rt's... Not very wise. -# AIX/ESA needs -D_IBMESA on command line (this may disappear by GA) -#DFLAGS=-U__STDC__ -#DFLAGS=-D_IBMESA -# On aix2.2.1 we need more compiler space. -#DFLAGS=-Nd4000 -Nn3000 -# AU/X 2.0 needs a flag for POSIX (read the config file) -#DFLAGS=-Zp -# Tektronix 4300 running UTek 4.0 (BSD 4.2) needs: -#DFLAGS = -DUTek -DBSD -# VMS_POSIX needs: -#DFLAGS=-D_VMS_POSIX -# Multiflow and PCC compilers don't like void typedefs. -# You may also need -U__STDC__ if you use pcc (i.e. ibmrt aos4.3). -#DFLAGS=-DMULTIFLOW -#DFLAGS=-DPCC -# DELL SVR4 -#DFLAGS=-DDELL -#DFLAGS= -#DFLAGS=-D_PATH_TCSHELL='"${DESTBIN}/tcsh"' -## The following is set by autoconf. -DFLAGS = -D_PATH_TCSHELL='"${DESTBIN}/tcsh"' @DFLAGS@ @CPPFLAGS@ - - -################################################################ -## LDFLAGS. Define something here if you need to -################################################################ -LDFLAGS= @LDFLAGS@ ## This is set by autoconf. -#LDFLAGS= ## The simplest, suitable for all. -#LDFLAGS= -s ## Stripped. Takes less space on disk. -#LDFLAGS= -s -n ## Pure executable. Spares paging over -# ## the network for machines with local -# ## swap but external /usr/local/bin . -#LDFLAGS= -s -n -Bstatic ## Without dynamic linking. (SunOS/cc) -#LDFLAGS= -s -n -static ## Without dynamic linking. (SunOS/gcc) -#LDFLAGS= -Wl,-s,-n ## Stripped, shared text (Unicos) -#LDFLAGS= -s -static ## Link statically. (linux) -#LDFLAGS= -s -N ## Impure executable (linux) - -################################################################ -## SBINLDFLAGS. Flags to build a tcsh suitable for installation in -## in /sbin under Solaris with gcc. See the "tcsh.sbin" -## target. -################################################################ -SBINLDFLAGS=-Wl,-R/etc/lib,-I/etc/lib/ld.so.1,-ldl,-Bstatic - -################################################################ -## LIBES. Pick one, or roll your own. -################################################################ -LIBES= @LIBS@ ## This is set by autoconf. -#LIBES= -ltermcap ## BSD style things -#LIBES= -ltermcap ## SunOS, HP-UX, pyramid -#LIBES= -ltermcap ## Linux -#LIBES= -ltermcap -lshadow ## Linux with PW_SHADOW -#LIBES= -ltermcap -lsec ## Tek XD88/10 (UTekV) with PW_SHADOW -#LIBES= -ltermcap -lsec ## Motorola MPC (sysV88) with PW_SHADOW -#LIBES= -ltermcap -lcs ## Mach -#LIBES= -ltermcap -lbsd ## DEC osf1 on the alpha -#LIBES= -ltermcap -lbsd ## Intel paragon -#LIBES= -ltermcap -lbsd ## Clipper intergraph -#LIBES= -ltermcap -lseq ## Sequent's Dynix -#LIBES= -ltermcap -lauth ## Ultrix with Enhanced Security -#LIBES= -ltermcap -ldir -lx ## Xenix 386 style things -#LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0 -#LIBES= -lcurses ## AIX on the rt -#LIBES= -lcurses ## TitanOS on the stellar -#LIBES= -ltermlib -lsocket -lnsl ## SysV4 w/o BSDTIMES or Solaris 2 -#LIBES= -lcurses ## SysV3 w/o networking -#LIBES= -lcurses -lnet ## SysV3 with networking -#LIBES= -lcurses -ldir ## SysV2 w/o networking & dirlib -#LIBES= -lcurses -ldir -lnet ## SysV2 with networking & dirlib -#LIBES= -lcurses -lbsd ## AIX on the IBM 370 or rs6000 or ps2 -#LIBES= -lcurses -lbsd ## ETA10 -#LIBES= -lcurses -lbsd ## Irix3.1 on the SGI-IRIS4D -#LIBES= -lcurses -lbsd -lc_s ## Irix3.3 on the SGI-IRIS4D w/o yp -#LIBES= -lcurses -lsun -lbsd -lc_s ## Irix3.3 on the SGI-IRIS4D with yp -#LIBES= -lcurses -lsocket -lbsd ## Amdahl UTS 2.1 -#LIBES= -lcurses -lsocket ## Intel's hypercube. -#LIBES= -lcurses -lsocket ## ns32000 based Opus. -#LIBES= -lcurses -lcposix ## ISC 2.2 without networking -#LIBES= -lcposix -lc_s -lcurses -linet ## ISC 2.2 with networking -#LIBES= -lcurses -lsec -lc_s ## ISC 2.0.2 without networking -#LIBES= -lcurses -linet -lsec -lc_s ## ISC 2.0.2 with networking -#LIBES= -lcurses -lintl -lcrypt ## SCO SysVR3.2v2.0 -#LIBES= -lcurses -lintl -lsocket -lcrypt ## SCO+ODT1.1 -#LIBES= -lposix -ltermcap ## A/UX 2.0 -#LIBES= -lposix -ltermcap -lc_s ## A/UX 3.0 -#LIBES= -ldirent -lcurses ## att3b1 cc w/o shared lib & dirlib -#LIBES= -shlib -ldirent -lcurses ## att3b1 gcc with shared lib & dirlib -#LIBES= -ltermlib -lsocket -lnsl -lc /usr/ucblib/libucb.a ## SysV4 with BSDTIMES -#LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra -#LIBES= -ltermc ## emx under OS/2 -#LIBES= ## Minix, VMS_POSIX -#LIBES= -ltermcap -lcrypt ## Multiflow -#LIBES= -ltermcap -lcrypt ## NetBSD -#LIBES= -lcurses ## DDE Supermax - -################################################################ -## EXTRAFLAGS and EXTRALIBS -################################################################ -# Compiling for AFS with kerberos authentication -#AFSLIBDIR = /usr/afsws/lib -#AFSDEF = -DAFS -I/usr/afsws/include -#AFS33LIB = -laudit -# -#Solaris and HPUX require the BSD libraries with AFS. -#We use -lc to use only what we require. -#AFSAUXLIB = -lsocket -lnsl -lc -lucb # Solaris -#AFSAUXLIB = -lc -lBSD # HPUX -# -#AFSLIB = -L$(AFSLIBDIR) -L$(AFSLIBDIR)/afs -lkauth -lprot -lubik\ -# -lauth -lrxkad -lsys -ldes -lrx -llwp -lcom_err\ -# $(AFSLIBDIR)/afs/util.a $(AFS33LIB) $(AFSAUXLIB) -# - -EXTRAFLAGS = @HESDEF@ $(AFSDEF) -EXTRALIBS = @HESLIB@ $(AFSLIB) - - -# The difficult choice of a c-compiler... -# First, you should try your own c-compiler. -# Gcc -traditional is also a safe choice. -# If you think that you have good include files try gcc -Wall... -# If you want to take out -traditional, make sure that your sys/ioctl.h -# is fixed correctly, otherwise you'll be stopped for tty input, or you -# will lose the editor and job control. - -# This is for setting your C preprocessor value. -CPP = @CPP@ # This is set by autoconf. -# The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which -# on the suns does not know how to make dynamically linked binaries. -CC = @CC@ # This is set by autoconf. -#CC= gcc -Wall -pipe -B/bin/ # -ansi -pedantic -#CC= gcc -m486 -pipe -Wall # Generate code for Intel 486 (linux) -#CC= shlicc # BSDI2.1 w/ shared libraries -#CC= cc -#CC= occ -#CC= acc -#CC= pcc -#CC= hc -w -#CC= c89 # For VMS/POSIX -#CC= /bin/cc # For suns, w/o gcc and SVR4 -#CC= /usr/lib/sun.compile/cc # FPS 500 (+FPX) with Sun C compiler -#CC= /opt/SUNWspro/bin/cc # Solaris 2.1 -#CC= scc # Alliant fx2800 -#CC= cc -h0,ansi,novector,float0 # for NEC SX-4 -#CC= lcc -wa -ED= ed -AS= as -RM= rm -CXREF= /usr/ucb/cxref -VGRIND= csh /usr/ucb/vgrind -CTAGS= /usr/ucb/ctags -#XSTR= /usr/ucb/xstr -SCCS= /usr/local/sccs -PARALLEL=12 # Make the multi-max run fast. -#P=& # Use Sequent's parallel make -P= -prefix=@prefix@ -exec_prefix=@exec_prefix@ -bindir=@bindir@ -mandir=@mandir@ -MANSECT=1 -DESTBIN=${DESTDIR}${bindir} -DESTMAN=${DESTDIR}${mandir}/man${MANSECT} -# DESTMAN=${DESTDIR}/catman/man${MANSECT} # A/UX -# DESTMAN=${DESTDIR}/usr/share/man/man${MANSECT} # Stardent Vistra (SysVR4) -# DESTMAN=/usr/catman/1l # Amiga unix (SysVR4) -FTPAREA=/usr/spool/ftp - -ASSRCS= sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \ - sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \ - sh.lex.c sh.misc.c sh.parse.c sh.print.c sh.proc.c sh.sem.c \ - sh.set.c sh.time.c sh.char.h sh.dir.h sh.proc.h sh.h \ - tw.color.c -PSSRCS= sh.decls.h glob.c glob.h mi.termios.c mi.wait.h mi.varargs.h ma.setp.c \ - vms.termcap.c -SHSRCS= ${ASSRCS} ${PSSRCS} -SHOBJS= sh.${SUF} sh.dir.${SUF} sh.dol.${SUF} sh.err.${SUF} sh.exec.${SUF} \ - sh.char.${SUF} sh.exp.${SUF} sh.func.${SUF} sh.glob.${SUF} \ - sh.hist.${SUF} sh.init.${SUF} sh.lex.${SUF} sh.misc.${SUF} \ - sh.parse.${SUF} sh.print.${SUF} sh.proc.${SUF} sh.sem.${SUF} \ - sh.set.${SUF} sh.time.${SUF} glob.${SUF} mi.termios.${SUF} \ - ma.setp.${SUF} vms.termcap.${SUF} - -TWSRCS= tw.decls.h tw.h tw.help.c tw.init.c tw.parse.c tw.spell.c \ - tw.comp.c tw.color.c -TWOBJS= tw.help.${SUF} tw.init.${SUF} tw.parse.${SUF} tw.spell.${SUF} \ - tw.comp.${SUF} tw.color.${SUF} - -EDSRCS= ed.chared.c ed.decls.h ed.defns.c ed.h ed.init.c ed.inputl.c \ - ed.refresh.c ed.screen.c ed.xmap.c ed.term.c ed.term.h -EDOBJS= ed.chared.${SUF} ed.refresh.${SUF} ed.screen.${SUF} ed.init.${SUF} \ - ed.inputl.${SUF} ed.defns.${SUF} ed.xmap.${SUF} ed.term.${SUF} - -TCSRCS= tc.alloc.c tc.bind.c tc.const.c tc.decls.h tc.disc.c \ - tc.func.c tc.os.c tc.os.h tc.printf.c tc.prompt.c \ - tc.sched.c tc.sig.c tc.sig.h tc.str.c sh.types.h tc.vers.c tc.wait.h \ - tc.who.c tc.h -TCOBJS= tc.alloc.${SUF} tc.bind.${SUF} tc.const.${SUF} tc.defs.${SUF} \ - tc.disc.${SUF} tc.func.${SUF} tc.os.${SUF} tc.printf.${SUF} \ - tc.prompt.${SUF} tc.sched.${SUF} tc.sig.${SUF} tc.str.${SUF} \ - tc.vers.${SUF} tc.who.${SUF} - -PVSRCS= Makefile.std Makefile.vms Makefile.in Makefile.win32 -AVSRCS= Fixes MAKEDIFFS MAKESHAR NewThings README FAQ \ - WishList config_f.h eight-bit.me glob.3 patchlevel.h \ - pathnames.h tcsh.man Ported src.desc Imakefile imake.config \ - README.imake complete.tcsh vmsreadme.txt termcap.vms snames.h \ - host.defs gethost.c tcsh.man2html configure.in configure config.h.in - -VHSRCS=${PVSRCS} ${AVSRCS} - -CONFSRCS=config/* - -ALLSRCS= ${SHSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${VHSRCS} -DISTSRCS= ${PSSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${AVSRCS} - - -OBJS= ${SHOBJS} ${TWOBJS} ${EDOBJS} ${TCOBJS} - - -all: ${BUILD} - -tcsh:$(P) ${OBJS} - rm -f tcsh core - ${CC} -o tcsh ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS} - -tcsh.sbin:$(P) ${OBJS} - rm -f tcsh.sbin core - ${CC} -o tcsh.sbin ${SBINLDFLAGS} ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS} - -# Purify -pure:$(P) ${OBJS} - rm -f tcsh core - purify `echo ${CC} | sed -e s,-B/bin/,,` -o tcsh ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS} -# OS/2 -tcsh.exe: tcsh - emxbind tcsh - -gethost: gethost.c sh.err.h tc.const.h sh.h - rm -f gethost - ${CC} -o gethost ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} $(srcdir)/gethost.c ${LIBES} ${EXTRALIBS} - -tc.defs.c: gethost host.defs - @rm -f $@ - @echo "/* Do not edit this file, make creates it */" > $@ - ./gethost $(srcdir)/host.defs >> $@ - -tcsh.ps: tcsh.man - rm -f tcsh.ps - -ptroff -t -man $(srcdir)/tcsh.man > tcsh.ps - - -.c.${SUF}: - ${CC} ${CF} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ${EXTRAFLAGS} $< - -# _VMS_POSIX #module addition -#.c.${SUF}: -# @(echo '#module '`echo $< | sed -e 's/\./_/g'`; cat $<) > $*..c -# @echo ${CC} ${CF} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*.c -# @${CC} ${CF} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*..c -# @mv $*..o $*.o -# @rm -f $*..c - - -# Don't do any special massaging of C files for sharing of strings!! -# it causes weird segmentation faults on some systems. -#.c.o: -# ${CPP} ${CFLAGS} ${CPPFLAGS} $*.c | ${XSTR} -c - -# ${CC} ${CF} ${CFLAGS} ${CPPFLAGS} x.c -# mv -f x.o $*.o -# rm -f x.c - -#ed.init.o: ed.init.c -# ${CPP} ${CFLAGS} ${CPPFLAGS} $*.c | ${XSTR} -c - -# ${CC} -R ${CF} ${CFLAGS} ${CPPFLAGS} x.c -# mv -f x.o $*.o -# rm -f x.c - -#strings.o: strings -# ${XSTR} -# ${CC} -c -R xs.c -# mv -f xs.o strings.o -# rm -f xs.c - -##.DEFAULT: -## ${SCCS} get $< - -##.DEFAULT: -## co $< - -ed.defns.h: ed.defns.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_ed_defns' >> $@ - @echo '#define _h_ed_defns' >> $@ - grep '[FV]_' $(srcdir)/ed.defns.c | grep '^#define' >> $@ - @echo '#endif /* _h_ed_defns */' >> $@ - -sh.err.h: sh.err.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_sh_err' >> $@ - @echo '#define _h_sh_err' >> $@ - grep 'ERR_' $(srcdir)/sh.err.c | grep '^#define' >> $@ - @echo '#endif /* _h_sh_err */' >> $@ - -tc.const.h: tc.const.c sh.char.h config.h config_f.h sh.types.h sh.err.h - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_tc_const' >> $@ - @echo '#define _h_tc_const' >> $@ - ${CPP} $(CPPFLAGS) ${DFLAGS} ${EXTRAFLAGS} -D_h_tc_const\ - $(srcdir)/tc.const.c | grep 'Char STR' | \ - sed -e 's/Char \([a-zA-Z0-9_]*\)\[\].*/extern Char \1[];/' | \ - sort >> $@ - @echo '#endif /* _h_tc_const */' >> $@ - -csh.prof: ${OBJS} sh.prof.${SUF} mcrt0.${SUF} - rm -f csh.prof - ld -X mcrt0.${SUF} ${OBJS} -o csh.prof ${LIBES} -lc - -sh.prof.${SUF}: - cp sh.c sh.prof.c - ${CC} ${CF} ${CFLAGS} ${CPPFLAGS} -DPROF sh.prof.c - -lint: tc.const.h ed.defns.h - lint ${DFLAGS} ${CPPFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES} - -alint: tc.const.h ed.defns.h - alint ${DFLAGS} ${CPPFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES} - -print: - @pr READ_ME - @pr makefile makefile.* - @(size -l a.out; size *.${SUF}) | pr -h SIZES - @${CXREF} sh*.c | pr -h XREF - @ls -l | pr - @pr sh*.h [a-rt-z]*.h sh*.c alloc.c - -vprint: - @pr -l84 READ_ME TODO - @pr -l84 makefile makefile.* - @(size -l a.out; size *.${SUF}) | pr -l84 -h SIZES - @${CXREF} sh*.c | pr -l84 -h XREF - @ls -l | pr -l84 - @${CXREF} sh*.c | pr -l84 -h XREF - @pr -l84 sh*.h [a-rt-z]*.h sh*.c alloc.c - -vgrind: - @cp /dev/null index - @for i in *.h; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done - @for i in *.c; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done - @vgrind -t -x -h Index index >/crp/bill/csh/index.t - -install-strip: install - -install: tcsh - mkdir -p ${DESTBIN} - -mv -f ${DESTBIN}/tcsh ${DESTBIN}/tcsh.old - cp tcsh ${DESTBIN}/tcsh - -strip ${DESTBIN}/tcsh - chmod 555 ${DESTBIN}/tcsh - -install.man: tcsh.man - mkdir -p ${DESTMAN} - -rm -f ${DESTMAN}/tcsh.${MANSECT} - cp $(srcdir)/tcsh.man ${DESTMAN}/tcsh.${MANSECT} - chmod 444 ${DESTMAN}/tcsh.${MANSECT} - -# Amiga Unix -#install.man: tcsh.man -# compress tcsh.man -# cp tcsh.man.Z ${DESTMAN}/tcsh.Z -# chmod 444 ${DESTMAN}/tcsh.Z - -# Apple A/UX -#install.man: tcsh.man -# -rm -f ${DESTMAN}/tcsh.${MANSECT}.Z -# nroff -man tcsh.man | compress > ${DESTMAN}/tcsh.${MANSECT}.Z -# chmod 444 ${DESTMAN}/tcsh.${MANSECT}.Z - -clean: - ${RM} -f a.out strings x.c xs.c tcsh tcsh.a _MAKE_LOG core gethost - ${RM} -f *.${SUF} sh.prof.c ed.defns.h tc.const.h sh.err.h tc.defs.c - ${RM} -f tcsh.*.m tcsh.*.cat - -veryclean: clean - ${RM} -f config.h config.status config.cache config.log Makefile tcsh.ps - ${RM} -f *~ #* - -distclean: veryclean - -tags: /tmp - ${CTAGS} sh*.c - -tar.Z: - rm -f tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - -tar.gz: - rm -f tcsh-${VERSION}.tar.gz - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | gzip > tcsh-${VERSION}.tar.gz - rm -rf tcsh-${VERSION} - -shar: - rm -f tcsh-*.shar - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - MAKESHAR -v -n tcsh-${VERSION} tcsh-${VERSION} \ - tcsh-${VERSION}/?* tcsh-${VERSION}/config/?* \ - tcsh-${VERSION}/?*/set?* - rm -rf tcsh-${VERSION} - -catalogs: - @(cd nls; make catalogs) - -tcsh-${VERSION}.tar.Z: - rm -rf tcsh-${VERSION} - rm -f tcsh-${VERSION}.tar tcsh-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh-${VERSION} - ./MAKEDIFFS bsd - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh-${VERSION} - cp ${DISTSRCS} tcsh-${VERSION} - mkdir tcsh-${VERSION}/config - cp ${CONFSRCS} tcsh-${VERSION}/config - cp Makefile tcsh-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - -tcsh.tahoe-${VERSION}.tar.Z: - rm -rf tcsh.tahoe-${VERSION} - rm -f tcsh.tahoe-${VERSION}.tar tcsh.tahoe-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh.tahoe-${VERSION} - ./MAKEDIFFS tahoe - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.tahoe-${VERSION} - cp ${DISTSRCS} tcsh.tahoe-${VERSION} - mkdir tcsh.tahoe-${VERSION}/config - cp ${CONFSRCS} tcsh.tahoe-${VERSION}/config - cp Makefile tcsh.tahoe-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh.tahoe-${VERSION} | compress > tcsh.tahoe-${VERSION}.tar.Z - rm -rf tcsh.tahoe-${VERSION} - -tcsh.reno-${VERSION}.tar.Z: - rm -rf tcsh.reno-${VERSION} - rm -f tcsh.reno-${VERSION}.tar tcsh.reno-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh.reno-${VERSION} - ./MAKEDIFFS reno - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.reno-${VERSION} - cp ${DISTSRCS} tcsh.reno-${VERSION} - mkdir tcsh.reno-${VERSION}/config - cp ${CONFSRCS} tcsh.reno-${VERSION}/config - cp Makefile tcsh.reno-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh.reno-${VERSION} | compress > tcsh.reno-${VERSION}.tar.Z - rm -rf tcsh.reno-${VERSION} - -ftp: tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z - cp tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z ${FTPAREA} - cp tcsh.man ${FTPAREA} - -autoconfigure: $(srcdir)/configure $(srcdir)/config.h.in - -$(srcdir)/configure: $(srcdir)/configure.in - cd $(srcdir) && autoconf - -$(srcdir)/config.h.in: $(srcdir)/stamp-h.in -$(srcdir)/stamp-h.in: $(srcdir)/configure.in - cd $(srcdir) && autoheader - @echo timestamp > $(srcdir)/stamp-h.in - -# -# Dependencies -# -config.h: config_f.h - -TCH=tc.h tc.const.h tc.decls.h tc.os.h tc.sig.h -SHH=sh.h sh.types.h sh.char.h sh.err.h sh.dir.h sh.proc.h pathnames.h \ - sh.decls.h ${TCH} -TWH=tw.h tw.decls.h -EDH=ed.h ed.decls.h - -# EDH -EDINC=sh.${SUF} sh.func.${SUF} sh.lex.${SUF} sh.print.${SUF} sh.proc.${SUF} \ - sh.set.${SUF} tc.bind.${SUF} tc.os.${SUF} tc.prompt.${SUF} \ - tc.sched.${SUF} tw.parse.${SUF} tw.color.${SUF} -${EDOBJS} ${EDINC} : ${EDH} - -# SHH -${OBJS}: config.h ${SHH} - -# TWH -TWINC=ed.chared.${SUF} ed.inputl.${SUF} sh.exec.${SUF} sh.func.${SUF} \ - sh.set.${SUF} tc.func.${SUF} tw.color.${SUF} -${TWOBJS} ${TWINC}: ${TWH} - -# glob.h -glob.${SUF} sh.glob.${SUF}: glob.h - -# ed.defns.h -EDDINC=tc.bind.${SUF} tc.func.${SUF} tc.os.${SUF} -${EDOBJS} ${EDDINC}: ed.defns.h - -# tc.defs.o -tc.defs.${SUF}: tc.defs.c sh.h diff --git a/contrib/tcsh/Makefile.std b/contrib/tcsh/Makefile.std deleted file mode 100644 index 33a6f022cb4b..000000000000 --- a/contrib/tcsh/Makefile.std +++ /dev/null @@ -1,625 +0,0 @@ -# $Id: Makefile.std,v 1.89 2000/01/14 22:57:25 christos Exp $ -# Makefile.std 4.3 6/11/83 -# -# C Shell with process control; VM/UNIX VAX Makefile -# Bill Joy UC Berkeley; Jim Kulp IIASA, Austria -# -# With an input editor, command completion, etc. and ported to all sorts of -# things; Paul Placeway, CIS Dept., Ohio State University -# -SHELL=/bin/sh -VERSION=6.09 -BUILD=tcsh -srcdir=. - -################################################################ -## CFLAGS. For various -D things, see config.h -################################################################ -# -# These are the default suffixes from .c to .o and -c to get there -# but to use the global optimizer on the mips boxes, see below -# -SUF=o -CF=-c - -INCLUDES=-I. -I$(srcdir) - -LFLAGS=$(INCLUDES) -#LFLAGS=$(INCLUDES) -Zn10000 # hpux lint - - -#CFLAGS= $(INCLUDES) -g # debug -#CFLAGS= $(INCLUDES) -O # production -#CFLAGS= $(INCLUDES) # Broken optimizers.... - -#CFLAGS= -g -pg $(INCLUDES) -DPROF -#CFLAGS= -O -pg $(INCLUDES) -DPROF - -# gcc 1.00-1.37 -#CFLAGS=-O $(INCLUDES) -finline-functions -fstrength-reduce - -# gcc 1.37-1.40 -#CFLAGS=-O $(INCLUDES) -fcombine-regs -finline-functions -fstrength-reduce -# add -msoft-float for 68881 machines. - -# gcc 2.0 -# On the sparc, don't use -O2; it breaks setjmp() and vfork() -#CFLAGS=-O $(INCLUDES) - -# gcc-2.1+ -CFLAGS=-O2 $(INCLUDES) - -# lucid c on suns -#CFLAGS=-O5 $(INCLUDES) - -# gcc 2.1 on linux -#CFLAGS=-O6 -fomit-frame-pointer $(INCLUDES) - -# HP/UX 8.0, 9.0 -#CFLAGS= $(INCLUDES) +O3 -Aa - -# Ultrix 4.2a -#CFLAGS= $(INCLUDES) -O -Olimit 2000 - -# Intel Paragon OSF/1 with PGI compilers -#CFLAGS=-O -Mnodebug -Mnoperfmon $(INCLUDES) - -# DEC Alpha OSF/1 -#CFLAGS= -O2 $(INCLUDES) -Olimit 2000 ## Normal Optimization -#CFLAGS= -O3 $(INCLUDES) -Olimit 2000 ## Full Optimization - may not work -#CF=-j -#SUF=u -#.SUFFIXES: .u - -# for silicon graphics (and other mips compilers) -- use the -# global optimizer! (-O3). -# On SGI 4.0+ you need to add -D__STDC__ too. -#CFLAGS= -O3 $(INCLUDES) -#CFLAGS= -O3 $(INCLUDES) -Olimit 2000 ## Ultrix 4.2a -#CF=-j -#SUF=u -#.SUFFIXES: .u ## Ultrix and gnu-make need that - -# mips systems -# CFLAGS= $(INCLUDES) -O -systype bsd43 -Wf,-XNd5000 -Wf,-XNp6000 -Olimit 2000 - -# for at&t machines -#CFLAGS= -O -Ksd $(INCLUDES) - -# Stardent Titan -#CFLAGS = $(INCLUDES) -O -43 - -# Stardent Stellar or sunos4 /bin/cc or Solaris2.1 /opt/SUNWspro/bin/cc -#CFLAGS = $(INCLUDES) -O4 - -# Intergraph clipper CLIX 3.1 -#CFLAGS= -w -O2 $(INCLUDES) - -# Dnix 5.3 -#CFLAGS = -O -X7 - -# Pyramid OS/x -#CFLAGS = -OG - -# Multiflow (5M binary... if you choose -O5!) -#CFLAGS = -O5 -sb_trace 0 - -# DDE Supermax Unix SYSV Rel III. -# CFLAGS= -O3 - -# SINIX RMx00 -#CFLAGS= -O # -D_POSIX_SOURCE # -kansi - -# Apollo's with cc [apollo builtins don't work with gcc] -# and apollo should not define __STDC__ if it does not have -# the standard header files. RT's (aos4.3) need that too; -# you might want to skip the -O on the rt's... Not very wise. -# AIX/ESA needs -D_IBMESA on command line (this may disappear by GA) -#DFLAGS=-U__STDC__ -#DFLAGS=-D_IBMESA -# On aix2.2.1 we need more compiler space. -#DFLAGS=-Nd4000 -Nn3000 -# AU/X 2.0 needs a flag for POSIX (read the config file) -#DFLAGS=-Zp -# Tektronix 4300 running UTek 4.0 (BSD 4.2) needs: -#DFLAGS = -DUTek -DBSD -# VMS_POSIX needs: -#DFLAGS=-D_VMS_POSIX -# Multiflow and PCC compilers don't like void typedefs. -# You may also need -U__STDC__ if you use pcc (i.e. ibmrt aos4.3). -#DFLAGS=-DMULTIFLOW -#DFLAGS=-DPCC -# DELL SVR4 -#DFLAGS=-DDELL -# SCO_SV -#DFLAGS=-D_SPEED_T -DSCO -DFLAGS= -#DFLAGS=-D_PATH_TCSHELL='"${DESTBIN}/tcsh"' - - -################################################################ -## LDFLAGS. Define something here if you need to -################################################################ -LDFLAGS= ## The simplest, suitable for all. -#LDFLAGS= -s ## Stripped. Takes less space on disk. -#LDFLAGS= -s -n ## Pure executable. Spares paging over -# ## the network for machines with local -# ## swap but external /usr/local/bin . -#LDFLAGS= -s -n -Bstatic ## Without dynamic linking. (SunOS/cc) -#LDFLAGS= -s -n -static ## Without dynamic linking. (SunOS/gcc) -#LDFLAGS= -Wl,-s,-n ## Stripped, shared text (Unicos) -#LDFLAGS= -s -static ## Link statically. (linux) -#LDFLAGS= -s -N ## Impure executable (linux) -#LDFLAGS= -Bdynamic -dy ## SCO_SV - -################################################################ -## LIBES. Pick one, or roll your own. -################################################################ -LIBES= -ltermcap ## BSD style things -#LIBES= -ltermcap ## SunOS, HP-UX, pyramid -#LIBES= -ltermcap ## Linux -#LIBES= -ltermcap -lshadow ## Linux with PW_SHADOW -#LIBES= -ltermcap -lsec ## Tek XD88/10 (UTekV) with PW_SHADOW -#LIBES= -ltermcap -lsec ## Motorola MPC (sysV88) with PW_SHADOW -#LIBES= -ltermcap -lcs ## Mach -#LIBES= -ltermcap -lbsd ## DEC osf1 on the alpha -#LIBES= -ltermcap -lbsd ## Intel paragon -#LIBES= -ltermcap -lbsd ## Clipper intergraph -#LIBES= -ltermcap -lseq ## Sequent's Dynix -#LIBES= -ltermcap -lauth ## Ultrix with Enhanced Security -#LIBES= -ltermcap -ldir -lx ## Xenix 386 style things -#LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0 -#LIBES= -lcurses ## AIX on the rt -#LIBES= -lcurses ## TitanOS on the stellar -#LIBES= -ltermlib -lsocket -lnsl ## SysV4 w/o BSDTIMES or Solaris 2 -#LIBES= -lcurses ## SysV3 w/o networking -#LIBES= -lcurses -lnet ## SysV3 with networking -#LIBES= -lcurses -ldir ## SysV2 w/o networking & dirlib -#LIBES= -lcurses -ldir -lnet ## SysV2 with networking & dirlib -#LIBES= -lcurses -lbsd ## AIX on the IBM 370 or rs6000 or ps2 -#LIBES= -lcurses -lbsd ## ETA10 -#LIBES= -lcurses -lbsd ## Irix3.1 on the SGI-IRIS4D -#LIBES= -lcurses -lbsd -lc_s ## Irix3.3 on the SGI-IRIS4D w/o yp -#LIBES= -lcurses -lsun -lbsd -lc_s ## Irix3.3 on the SGI-IRIS4D with yp -#LIBES= -lcurses -lsocket -lbsd ## Amdahl UTS 2.1 -#LIBES= -lcurses -lsocket ## Intel's hypercube. -#LIBES= -lcurses -lsocket ## ns32000 based Opus. -#LIBES= -lcurses -lcposix ## ISC 2.2 without networking -#LIBES= -lcposix -lc_s -lcurses -linet ## ISC 2.2 with networking -#LIBES= -lcurses -lsec -lc_s ## ISC 2.0.2 without networking -#LIBES= -lcurses -linet -lsec -lc_s ## ISC 2.0.2 with networking -#LIBES= -lcurses -lintl -lcrypt ## SCO SysVR3.2v2.0 -#LIBES= -lcurses -lintl -lsocket -lcrypt ## SCO+ODT1.1 -#LIBES= -lcurses -lsocket -lcrypt ## SCO_SV -#LIBES= -lposix -ltermcap ## A/UX 2.0 -#LIBES= -lposix -ltermcap -lc_s ## A/UX 3.0 -#LIBES= -ldirent -lcurses ## att3b1 cc w/o shared lib & dirlib -#LIBES= -shlib -ldirent -lcurses ## att3b1 gcc with shared lib & dirlib -#LIBES= -ltermlib -lsocket -lnsl -lc /usr/ucblib/libucb.a ## SysV4 with BSDTIMES -#LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra -#LIBES= -ltermc ## emx under OS/2 -#LIBES= ## Minix, VMS_POSIX -#LIBES= -ltermcap -lcrypt ## Multiflow -#LIBES= -ltermcap -lcrypt ## NetBSD -#LIBES= -lcurses ## DDE Supermax - -################################################################ -## EXTRAFLAGS and EXTRALIBS -################################################################ -# Compiling for HESIOD -#HESDEF = -DHESIOD -I/usr/athena/include -#HESLIB = -L/usr/athena/lib -lhesiod -# -# Compiling for AFS with kerberos authentication -#AFSLIBDIR = /usr/afsws/lib -#AFSDEF = -DAFS -I/usr/afsws/include -#AFS33LIB = -laudit -# -#Solaris and HPUX require the BSD libraries with AFS. -#We use -lc to use only what we require. -#AFSAUXLIB = -lsocket -lnsl -lc -lucb # Solaris -#AFSAUXLIB = -lc -lBSD # HPUX -# -#AFSLIB = -L$(AFSLIBDIR) -L$(AFSLIBDIR)/afs -lkauth -lprot -lubik\ -# -lauth -lrxkad -lsys -ldes -lrx -llwp -lcom_err\ -# $(AFSLIBDIR)/afs/util.a $(AFS33LIB) $(AFSAUXLIB) -# - -EXTRAFLAGS = $(HESDEF) $(AFSDEF) -EXTRALIBS = $(HESLIB) $(AFSLIB) - - -# The difficult choice of a c-compiler... -# First, you should try your own c-compiler. -# Gcc -traditional is also a safe choice. -# If you think that you have good include files try gcc -Wall... -# If you want to take out -traditional, make sure that your sys/ioctl.h -# is fixed correctly, otherwise you'll be stopped for tty input, or you -# will lose the editor and job control. - -# This is for setting your C preprocessor value. -CPP = ${CC} -E -# The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which -# on the suns does not know how to make dynamically linked binaries. -CC= gcc -Wall -pipe -B/bin/ # -ansi -pedantic -#CC= gcc -m486 -pipe -Wall # Generate code for Intel 486 (linux) -#CC= shlicc # BSDI2.1 w/ shared libraries -#CC= cc -#CC= occ -#CC= acc -#CC= pcc -#CC= hc -w -#CC= c89 # For VMS/POSIX -#CC= /bin/cc # For suns, w/o gcc and SVR4 -#CC= /usr/lib/sun.compile/cc # FPS 500 (+FPX) with Sun C compiler -#CC= /opt/SUNWspro/bin/cc # Solaris 2.1 -#CC= scc # Alliant fx2800 -#CC= lcc -wa -#CC= cc -b elf -Kpic # SCO_SV -ED= ed -AS= as -RM= rm -CXREF= /usr/ucb/cxref -#CXREF= /bin/cxref # SCO_SV -VGRIND= csh /usr/ucb/vgrind -CTAGS= /usr/ucb/ctags -#CTAGS= /usr/bin/ctags # SCO_SV -#XSTR= /usr/ucb/xstr -#XSTR= /usr/bin/xstr # SCO_SV -SCCS= /usr/local/sccs -PARALLEL=12 # Make the multi-max run fast. -#P=& # Use Sequent's parallel make -P= -DESTDIR=/usr/local -#DESTDIR=/usr/contrib -MANSECT=1 -DESTBIN=${DESTDIR}/bin -DESTMAN=${DESTDIR}/man/man${MANSECT} -# DESTMAN=${DESTDIR}/catman/man${MANSECT} # A/UX -# DESTMAN=${DESTDIR}/usr/share/man/man${MANSECT} # Stardent Vistra (SysVR4) -# DESTMAN=/usr/catman/1l # Amiga unix (SysVR4) -FTPAREA=/usr/spool/ftp - -ASSRCS= sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \ - sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \ - sh.lex.c sh.misc.c sh.parse.c sh.print.c sh.proc.c sh.sem.c \ - sh.set.c sh.time.c sh.char.h sh.dir.h sh.proc.h sh.h -PSSRCS= sh.decls.h glob.c glob.h mi.termios.c mi.wait.h mi.varargs.h ma.setp.c \ - vms.termcap.c -SHSRCS= ${ASSRCS} ${PSSRCS} -SHOBJS= sh.${SUF} sh.dir.${SUF} sh.dol.${SUF} sh.err.${SUF} sh.exec.${SUF} \ - sh.char.${SUF} sh.exp.${SUF} sh.func.${SUF} sh.glob.${SUF} \ - sh.hist.${SUF} sh.init.${SUF} sh.lex.${SUF} sh.misc.${SUF} \ - sh.parse.${SUF} sh.print.${SUF} sh.proc.${SUF} sh.sem.${SUF} \ - sh.set.${SUF} sh.time.${SUF} glob.${SUF} mi.termios.${SUF} \ - ma.setp.${SUF} vms.termcap.${SUF} - -TWSRCS= tw.decls.h tw.h tw.help.c tw.init.c tw.parse.c tw.spell.c \ - tw.comp.c tw.color.c -TWOBJS= tw.help.${SUF} tw.init.${SUF} tw.parse.${SUF} tw.spell.${SUF} \ - tw.comp.${SUF} tw.color.${SUF} - -EDSRCS= ed.chared.c ed.decls.h ed.defns.c ed.h ed.init.c ed.inputl.c \ - ed.refresh.c ed.screen.c ed.xmap.c ed.term.c ed.term.h -EDOBJS= ed.chared.${SUF} ed.refresh.${SUF} ed.screen.${SUF} ed.init.${SUF} \ - ed.inputl.${SUF} ed.defns.${SUF} ed.xmap.${SUF} ed.term.${SUF} - -TCSRCS= tc.alloc.c tc.bind.c tc.const.c tc.decls.h tc.disc.c \ - tc.func.c tc.os.c tc.os.h tc.printf.c tc.prompt.c \ - tc.sched.c tc.sig.c tc.sig.h tc.str.c sh.types.h tc.vers.c tc.wait.h \ - tc.who.c tc.h -TCOBJS= tc.alloc.${SUF} tc.bind.${SUF} tc.const.${SUF} tc.defs.${SUF} \ - tc.disc.${SUF} tc.func.${SUF} tc.os.${SUF} tc.printf.${SUF} \ - tc.prompt.${SUF} tc.sched.${SUF} tc.sig.${SUF} tc.str.${SUF} \ - tc.vers.${SUF} tc.who.${SUF} - -PVSRCS= Makefile.std Makefile.vms Makefile.in Makefile.win32 -AVSRCS= Fixes MAKEDIFFS MAKESHAR NewThings README FAQ \ - WishList config_f.h eight-bit.me glob.3 patchlevel.h \ - pathnames.h tcsh.man Ported src.desc Imakefile imake.config \ - README.imake complete.tcsh vmsreadme.txt termcap.vms snames.h \ - host.defs gethost.c tcsh.man2html configure.in configure config.h.in - -VHSRCS=${PVSRCS} ${AVSRCS} - -CONFSRCS=config/* - -ALLSRCS= ${SHSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${VHSRCS} -DISTSRCS= ${PSSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${AVSRCS} - - -OBJS= ${SHOBJS} ${TWOBJS} ${EDOBJS} ${TCOBJS} - - -all: ${BUILD} - -tcsh:$(P) ${OBJS} - rm -f tcsh core - ${CC} -o tcsh ${LDFLAGS} ${CFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS} - -# Purify -pure:$(P) ${OBJS} - rm -f tcsh core - purify `echo ${CC} | sed -e s,-B/bin/,,` -o tcsh ${LDFLAGS} ${CFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS} -# OS/2 -tcsh.exe: tcsh - emxbind tcsh - -gethost: gethost.c sh.err.h tc.const.h sh.h - rm -f gethost - ${CC} -o gethost ${LDFLAGS} ${CFLAGS} ${DFLAGS} $(srcdir)/gethost.c ${LIBES} ${EXTRALIBS} - -tc.defs.c: gethost host.defs - @rm -f $@ - @echo "/* Do not edit this file, make creates it */" > $@ - ./gethost $(srcdir)/host.defs >> $@ - -tcsh.ps: tcsh.man - rm -f tcsh.ps - -ptroff -t -man $(srcdir)/tcsh.man > tcsh.ps - - -.c.${SUF}: - ${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $< - -# _VMS_POSIX #module addition -#.c.${SUF}: -# @(echo '#module '`echo $< | sed -e 's/\./_/g'`; cat $<) > $*..c -# @echo ${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*.c -# @${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*..c -# @mv $*..o $*.o -# @rm -f $*..c - - -# Don't do any special massaging of C files for sharing of strings!! -# it causes weird segmentation faults on some systems. -#.c.o: -# ${CPP} ${CFLAGS} $*.c | ${XSTR} -c - -# ${CC} ${CF} ${CFLAGS} x.c -# mv -f x.o $*.o -# rm -f x.c - -#ed.init.o: ed.init.c -# ${CPP} ${CFLAGS} $*.c | ${XSTR} -c - -# ${CC} -R ${CF} ${CF} x.c -# mv -f x.o $*.o -# rm -f x.c - -#strings.o: strings -# ${XSTR} -# ${CC} -c -R xs.c -# mv -f xs.o strings.o -# rm -f xs.c - -##.DEFAULT: -## ${SCCS} get $< - -##.DEFAULT: -## co $< - -ed.defns.h: ed.defns.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_ed_defns' >> $@ - @echo '#define _h_ed_defns' >> $@ - grep '[FV]_' $(srcdir)/ed.defns.c | grep '^#define' >> $@ - @echo '#endif /* _h_ed_defns */' >> $@ - -sh.err.h: sh.err.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_sh_err' >> $@ - @echo '#define _h_sh_err' >> $@ - grep 'ERR_' $(srcdir)/sh.err.c | grep '^#define' >> $@ - @echo '#endif /* _h_sh_err */' >> $@ - -tc.const.h: tc.const.c sh.char.h config.h config_f.h sh.types.h sh.err.h - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '#ifndef _h_tc_const' >> $@ - @echo '#define _h_tc_const' >> $@ - ${CPP} $(INCLUDES) ${DFLAGS} ${EXTRAFLAGS} -D_h_tc_const\ - $(srcdir)/tc.const.c | grep 'Char STR' | \ - sed -e 's/Char \([a-zA-Z0-9_]*\)\[\].*/extern Char \1[];/' | \ - sort >> $@ - @echo '#endif /* _h_tc_const */' >> $@ - -csh.prof: ${OBJS} sh.prof.${SUF} mcrt0.${SUF} - rm -f csh.prof - ld -X mcrt0.${SUF} ${OBJS} -o csh.prof ${LIBES} -lc - -sh.prof.${SUF}: - cp sh.c sh.prof.c - ${CC} ${CF} ${CFLAGS} -DPROF sh.prof.c - -lint: tc.const.h ed.defns.h - lint ${DFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES} - -alint: tc.const.h ed.defns.h - alint ${DFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES} - -print: - @pr READ_ME - @pr makefile makefile.* - @(size -l a.out; size *.${SUF}) | pr -h SIZES - @${CXREF} sh*.c | pr -h XREF - @ls -l | pr - @pr sh*.h [a-rt-z]*.h sh*.c alloc.c - -vprint: - @pr -l84 READ_ME TODO - @pr -l84 makefile makefile.* - @(size -l a.out; size *.${SUF}) | pr -l84 -h SIZES - @${CXREF} sh*.c | pr -l84 -h XREF - @ls -l | pr -l84 - @${CXREF} sh*.c | pr -l84 -h XREF - @pr -l84 sh*.h [a-rt-z]*.h sh*.c alloc.c - -vgrind: - @cp /dev/null index - @for i in *.h; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done - @for i in *.c; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done - @vgrind -t -x -h Index index >/crp/bill/csh/index.t - -install: tcsh - -mv -f ${DESTBIN}/tcsh ${DESTBIN}/tcsh.old - cp tcsh ${DESTBIN}/tcsh - -strip ${DESTBIN}/tcsh - chmod 555 ${DESTBIN}/tcsh - -install.man: tcsh.man - -rm -f ${DESTMAN}/tcsh.${MANSECT} - cp $(srcdir)/tcsh.man ${DESTMAN}/tcsh.${MANSECT} - chmod 444 ${DESTMAN}/tcsh.${MANSECT} - -# Amiga Unix -#install.man: tcsh.man -# compress tcsh.man -# cp tcsh.man.Z ${DESTMAN}/tcsh.Z -# chmod 444 ${DESTMAN}/tcsh.Z - -# Apple A/UX -#install.man: tcsh.man -# -rm -f ${DESTMAN}/tcsh.${MANSECT}.Z -# nroff -man tcsh.man | compress > ${DESTMAN}/tcsh.${MANSECT}.Z -# chmod 444 ${DESTMAN}/tcsh.${MANSECT}.Z - -clean: - ${RM} -f a.out strings x.c xs.c tcsh tcsh.a _MAKE_LOG core gethost - ${RM} -f *.${SUF} sh.prof.c ed.defns.h tc.const.h sh.err.h tc.defs.c - ${RM} -f tcsh.*.m tcsh.*.cat - -veryclean: clean - ${RM} -f config.h config.status config.cache config.log Makefile tcsh.ps - ${RM} -f *~ #* - -distclean: veryclean - -tags: /tmp - ${CTAGS} sh*.c - -tar.Z: - rm -f tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - -tar.gz: - rm -f tcsh-${VERSION}.tar.gz - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | gzip > tcsh-${VERSION}.tar.gz - rm -rf tcsh-${VERSION} - -shar: - rm -f tcsh-*.shar - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - MAKESHAR -v -n tcsh-${VERSION} tcsh-${VERSION} \ - tcsh-${VERSION}/?* tcsh-${VERSION}/config/?* \ - tcsh-${VERSION}/?*/set?* - rm -rf tcsh-${VERSION} - -catalogs: - @(cd nls; make catalogs) - -tcsh-${VERSION}.tar.Z: - rm -rf tcsh-${VERSION} - rm -f tcsh-${VERSION}.tar tcsh-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh-${VERSION} - ./MAKEDIFFS bsd - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh-${VERSION} - cp ${DISTSRCS} tcsh-${VERSION} - mkdir tcsh-${VERSION}/config - cp ${CONFSRCS} tcsh-${VERSION}/config - cp Makefile tcsh-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - -tcsh.tahoe-${VERSION}.tar.Z: - rm -rf tcsh.tahoe-${VERSION} - rm -f tcsh.tahoe-${VERSION}.tar tcsh.tahoe-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh.tahoe-${VERSION} - ./MAKEDIFFS tahoe - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.tahoe-${VERSION} - cp ${DISTSRCS} tcsh.tahoe-${VERSION} - mkdir tcsh.tahoe-${VERSION}/config - cp ${CONFSRCS} tcsh.tahoe-${VERSION}/config - cp Makefile tcsh.tahoe-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh.tahoe-${VERSION} | compress > tcsh.tahoe-${VERSION}.tar.Z - rm -rf tcsh.tahoe-${VERSION} - -tcsh.reno-${VERSION}.tar.Z: - rm -rf tcsh.reno-${VERSION} - rm -f tcsh.reno-${VERSION}.tar tcsh.reno-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh.reno-${VERSION} - ./MAKEDIFFS reno - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.reno-${VERSION} - cp ${DISTSRCS} tcsh.reno-${VERSION} - mkdir tcsh.reno-${VERSION}/config - cp ${CONFSRCS} tcsh.reno-${VERSION}/config - cp Makefile tcsh.reno-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh.reno-${VERSION} | compress > tcsh.reno-${VERSION}.tar.Z - rm -rf tcsh.reno-${VERSION} - -ftp: tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z - cp tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z ${FTPAREA} - cp tcsh.man ${FTPAREA} - -autoconfigure: $(srcdir)/configure $(srcdir)/config.h.in - -$(srcdir)/configure: $(srcdir)/configure.in - cd $(srcdir) && autoconf - -$(srcdir)/config.h.in: $(srcdir)/stamp-h.in -$(srcdir)/stamp-h.in: $(srcdir)/configure.in - cd $(srcdir) && autoheader - @echo timestamp > $(srcdir)/stamp-h.in - -# -# Dependencies -# -config.h: config_f.h - -TCH=tc.h tc.const.h tc.decls.h tc.os.h tc.sig.h -SHH=sh.h sh.types.h sh.char.h sh.err.h sh.dir.h sh.proc.h pathnames.h \ - sh.decls.h ${TCH} -TWH=tw.h tw.decls.h -EDH=ed.h ed.decls.h - -# EDH -EDINC=sh.${SUF} sh.func.${SUF} sh.lex.${SUF} sh.print.${SUF} sh.proc.${SUF} \ - sh.set.${SUF} tc.bind.${SUF} tc.os.${SUF} tc.prompt.${SUF} \ - tc.sched.${SUF} tw.parse.${SUF} tw.color.${SUF} -${EDOBJS} ${EDINC} : ${EDH} - -# SHH -${OBJS}: config.h ${SHH} - -# TWH -TWINC=ed.chared.${SUF} ed.inputl.${SUF} sh.exec.${SUF} sh.func.${SUF} \ - sh.set.${SUF} tc.func.${SUF} tw.color.${SUF} -${TWOBJS} ${TWINC}: ${TWH} - -# glob.h -glob.${SUF} sh.glob.${SUF}: glob.h - -# ed.defns.h -EDDINC=tc.bind.${SUF} tc.func.${SUF} tc.os.${SUF} -${EDOBJS} ${EDDINC}: ed.defns.h - -# tc.defs.o -tc.defs.${SUF}: tc.defs.c sh.h diff --git a/contrib/tcsh/Makefile.vms b/contrib/tcsh/Makefile.vms deleted file mode 100644 index 791aa1e852d6..000000000000 --- a/contrib/tcsh/Makefile.vms +++ /dev/null @@ -1,594 +0,0 @@ -# $Id: Makefile.vms,v 1.33 2000/01/14 22:57:25 christos Exp $ -# Makefile.vms 4.3 6/11/83 -# -# C Shell with process control; VM/UNIX VAX Makefile -# Bill Joy UC Berkeley; Jim Kulp IIASA, Austria -# -# With an input editor, command completion, etc. and ported to all sorts of -# things; Paul Placeway, CIS Dept., Ohio State University -# -SHELL=/bin/sh -VERSION=6.09 -BUILD=tcsh - -################################################################ -## CFLAGS. For various -D things, see config.h -################################################################ -# -# These are the default suffixes from .c to .o and -c to get there -# but to use the global optimizer on the mips boxes, see below -# -SUF=o -CF=-c - -INCLUDES=-I. -I.. - -LFLAGS=$(INCLUDES) -#LFLAGS=$(INCLUDES) -Zn10000 # hpux lint - - -#CFLAGS= $(INCLUDES) -g # debug -#CFLAGS= $(INCLUDES) -O # production -#CFLAGS= $(INCLUDES) # Broken optimizers.... - -#CFLAGS= -g -pg $(INCLUDES) -DPROF -#CFLAGS= -O -pg $(INCLUDES) -DPROF - -# gcc 1.00-1.37 -#CFLAGS=-O $(INCLUDES) -finline-functions -fstrength-reduce - -# gcc 1.37-1.40 -#CFLAGS=-O $(INCLUDES) -fcombine-regs -finline-functions -fstrength-reduce -# add -msoft-float for 68881 machines. - -# gcc 2.0 -# On the sparc, don't use -O2; it breaks setjmp() and vfork() -#CFLAGS=-O $(INCLUDES) - -# gcc-2.1+ -#CFLAGS=-O2 $(INCLUDES) - -# lucid c on suns -#CFLAGS=-O5 $(INCLUDES) - -# gcc 2.1 on linux -#CFLAGS=-O6 -fomit-frame-pointer $(INCLUDES) - -# HP/UX 8.0, 9.0 -#CFLAGS= $(INCLUDES) +O3 -Aa - -# Ultrix 4.2a -#CFLAGS= $(INCLUDES) -O -Olimit 2000 - -# Intel Paragon OSF/1 with PGI compilers -#CFLAGS=-O -Mnodebug -Mnoperfmon $(INCLUDES) - -# DEC Alpha OSF/1 -#CFLAGS= -O2 $(INCLUDES) -Olimit 2000 ## Normal Optimization -#CFLAGS= -O3 $(INCLUDES) -Olimit 2000 ## Full Optimization - may not work -#CF=-j -#SUF=u -#.SUFFIXES: .u - -# for silicon graphics (and other mips compilers) -- use the -# global optimizer! (-O3). -# On SGI 4.0+ you need to add -D__STDC__ too. -#CFLAGS= -O3 $(INCLUDES) -#CFLAGS= -O3 $(INCLUDES) -Olimit 2000 ## Ultrix 4.2a -#CF=-j -#SUF=u -#.SUFFIXES: .u ## Ultrix and gnu-make need that - -# mips systems -# CFLAGS= $(INCLUDES) -O -systype bsd43 -Wf,-XNd5000 -Wf,-XNp6000 -Olimit 2000 - -# for at&t machines -#CFLAGS= -O -Ksd $(INCLUDES) - -# Stardent Titan -#CFLAGS = $(INCLUDES) -O -43 - -# Stardent Stellar or sunos4 /bin/cc or Solaris2.1 /opt/SUNWspro/bin/cc -#CFLAGS = $(INCLUDES) -O4 - -# Intergraph clipper CLIX 3.1 -#CFLAGS= -w -O2 $(INCLUDES) - -# Dnix 5.3 -#CFLAGS = -O -X7 - -# Pyramid OS/x -#CFLAGS = -OG - -# Multiflow (5M binary... if you choose -O5!) -#CFLAGS = -O5 -sb_trace 0 - -# DDE Supermax Unix SYSV Rel III. -# CFLAGS= -O3 - -# Apollo's with cc [apollo builtins don't work with gcc] -# and apollo should not define __STDC__ if it does not have -# the standard header files. RT's (aos4.3) need that too; -# you might want to skip the -O on the rt's... Not very wise. -# AIX/ESA needs -D_IBMESA on command line (this may disappear by GA) -#DFLAGS=-U__STDC__ -#DFLAGS=-D_IBMESA -# On aix2.2.1 we need more compiler space. -#DFLAGS=-Nd4000 -Nn3000 -# AU/X 2.0 needs a flag for POSIX (read the config file) -#DFLAGS=-Zp -# Tektronix 4300 running UTek 4.0 (BSD 4.2) needs: -#DFLAGS = -DUTek -DBSD -# VMS_POSIX needs: -#DFLAGS=-D_VMS_POSIX -# Multiflow -#DFLAGS=-DMULTIFLOW -# DELL SVR4 -#DFLAGS=-DDELL -DFLAGS= -#DFLAGS=-D_PATH_TCSHELL='"${DESTBIN}/tcsh"' - - -################################################################ -## LDFLAGS. Define something here if you need to -################################################################ -LDFLAGS= ## The simplest, suitable for all. -#LDFLAGS= -s ## Stripped. Takes less space on disk. -#LDFLAGS= -s -n ## Pure executable. Spares paging over -# ## the network for machines with local -# ## swap but external /usr/local/bin . -#LDFLAGS= -s -n -Bstatic ## Without dynamic links. (SunOS) -#LDFLAGS= -Wl,-s,-n ## Stripped, shared text (Unicos) -#LDFLAGS= -s -static ## Link statically. (linux) -#LDFLAGS= -s -N ## Impure executable (linux) - -################################################################ -## LIBES. Pick one, or roll your own. -################################################################ -#LIBES= -ltermcap ## BSD style things -#LIBES= -ltermcap ## SunOS, HP-UX, pyramid -#LIBES= -ltermcap ## Linux -#LIBES= -ltermcap -lshadow ## Linux with PW_SHADOW -#LIBES= -ltermcap -lsec ## Tek XD88/10 (UTekV) with PW_SHADOW -#LIBES= -ltermcap -lsec ## Motorola MPC (sysV88) with PW_SHADOW -#LIBES= -ltermcap -lcs ## Mach -#LIBES= -ltermcap -lbsd ## DEC osf1 on the alpha -#LIBES= -ltermcap -lbsd ## Intel paragon -#LIBES= -ltermcap -lbsd ## Clipper intergraph -#LIBES= -ltermcap -lseq ## Sequent's Dynix -#LIBES= -ltermcap -lauth ## Ultrix with Enhanced Security -#LIBES= -ltermcap -ldir -lx ## Xenix 386 style things -#LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0 -#LIBES= -lcurses ## AIX on the rt -#LIBES= -lcurses ## TitanOS on the stellar -#LIBES= -ltermlib -lsocket -lnsl ## SysV4 w/o BSDTIMES or Solaris 2 -#LIBES= -lcurses ## SysV3 w/o networking -#LIBES= -lcurses -lnet ## SysV3 with networking -#LIBES= -lcurses -ldir ## SysV2 w/o networking & dirlib -#LIBES= -lcurses -ldir -lnet ## SysV2 with networking & dirlib -#LIBES= -lcurses -lbsd ## AIX on the IBM 370 or rs6000 or ps2 -#LIBES= -lcurses -lbsd ## ETA10 -#LIBES= -lcurses -lbsd ## Irix3.1 on the SGI-IRIS4D -#LIBES= -lcurses -lbsd -lc_s ## Irix3.3 on the SGI-IRIS4D w/o yp -#LIBES= -lcurses -lsun -lbsd -lc_s ## Irix3.3 on the SGI-IRIS4D with yp -#LIBES= -lcurses -lsocket -lbsd ## Amdahl UTS 2.1 -#LIBES= -lcurses -lsocket ## Intel's hypercube. -#LIBES= -lcurses -lsocket ## ns32000 based Opus. -#LIBES= -lcurses -lcposix ## ISC 2.2 without networking -#LIBES= -lcposix -lc_s -lcurses -linet ## ISC 2.2 with networking -#LIBES= -lcurses -lsec -lc_s ## ISC 2.0.2 without networking -#LIBES= -lcurses -linet -lsec -lc_s ## ISC 2.0.2 with networking -#LIBES= -lcurses -lintl -lcrypt ## SCO SysVR3.2v2.0 -#LIBES= -lcurses -lintl -lsocket -lcrypt ## SCO+ODT1.1 -#LIBES= -lposix -ltermcap ## A/UX 2.0 -#LIBES= -lposix -ltermcap -lc_s ## A/UX 3.0 -#LIBES= -ldirent -lcurses ## att3b1 cc w/o shared lib & dirlib -#LIBES= -shlib -ldirent -lcurses ## att3b1 gcc with shared lib & dirlib -#LIBES= -ltermlib -lsocket -lnsl -lc /usr/ucblib/libucb.a ## SysV4 with BSDTIMES -#LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra -#LIBES= -ltermc ## emx under OS/2 -LIBES= ## Minix, VMS_POSIX -#LIBES= -ltermcap -lcrypt ## Multiflow -#LIBES= -ltermcap -lcrypt ## NetBSD -#LIBES= -lcurses ## DDE Supermax - -################################################################ -## EXTRAFLAGS and EXTRALIBS -################################################################ -# Compiling for HESIOD -#HESDEF = -DHESIOD -I/usr/athena/include -#HESLIB = -L/usr/athena/lib -lhesiod -# -# Compiling for AFS with kerberos authentication -#AFSLIBDIR = /usr/afsws/lib -#AFSDEF = -DAFS -I/usr/afsws/include -#AFS33LIB = -laudit -# -#Solaris and HPUX require the BSD libraries with AFS. -#We use -lc to use only what we require. -#AFSAUXLIB = -lsocket -lnsl -lc -lucb # Solaris -#AFSAUXLIB = -lc -lBSD # HPUX -# -#AFSLIB = -L$(AFSLIBDIR) -L$(AFSLIBDIR)/afs -lkauth -lprot -lubik\ -# -lauth -lrxkad -lsys -ldes -lrx -llwp -lcom_err\ -# $(AFSLIBDIR)/afs/util.a $(AFS33LIB) $(AFSAUXLIB) -# - -EXTRAFLAGS = $(HESDEF) $(AFSDEF) -EXTRALIBS = $(HESLIB) $(AFSLIB) - - -# The difficult choice of a c-compiler... -# First, you should try your own c-compiler. -# Gcc -traditional is also a safe choice. -# If you think that you have good include files try gcc -Wall... -# If you want to take out -traditional, make sure that your sys/ioctl.h -# is fixed correctly, otherwise you'll be stopped for tty input, or you -# will lose the editor and job control. - -# The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which -# on the suns does not know how to make dynamically linked binaries. -#CC= gcc -Wall -pipe -B/bin/ # -ansi -pedantic -#CC= gcc -m486 -pipe -Wall # Generate code for Intel 486 (linux) -#CC= cc -#CC= occ -#CC= acc -#CC= pcc -#CC= hc -w -CC= c89 # For VMS/POSIX -#CC= /bin/cc # For suns, w/o gcc and SVR4 -#CC= /usr/lib/sun.compile/cc # FPS 500 (+FPX) with Sun C compiler -#CC= /opt/SUNWspro/bin/cc # Solaris 2.1 -#CC= scc # Alliant fx2800 -#CC= lcc -wa -ED= ed -AS= as -RM= rm -CXREF= /usr/ucb/cxref -VGRIND= csh /usr/ucb/vgrind -CTAGS= /usr/ucb/ctags -#XSTR= /usr/ucb/xstr -SCCS= /usr/local/sccs -PARALLEL=12 # Make the multi-max run fast. -#P=& # Use Sequent's parallel make -P= -DESTDIR=/usr/local -MANSECT=1 -DESTBIN=${DESTDIR}/bin -DESTMAN=${DESTDIR}/man/man${MANSECT} -# DESTMAN=${DESTDIR}/catman/man${MANSECT} # A/UX -# DESTMAN=${DESTDIR}/usr/share/man/man${MANSECT} # Stardent Vistra (SysVR4) -# DESTMAN=/usr/catman/1l # Amiga unix (SysVR4) -FTPAREA=/usr/spool/ftp - -ASSRCS= sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \ - sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \ - sh.lex.c sh.misc.c sh.parse.c sh.print.c sh.proc.c sh.sem.c \ - sh.set.c sh.time.c sh.char.h sh.dir.h sh.proc.h sh.h -PSSRCS= sh.decls.h glob.c glob.h mi.termios.c mi.wait.h mi.varargs.h ma.setp.c \ - vms.termcap.c -SHSRCS= ${ASSRCS} ${PSSRCS} -SHOBJS= sh.${SUF} sh.dir.${SUF} sh.dol.${SUF} sh.err.${SUF} sh.exec.${SUF} \ - sh.char.${SUF} sh.exp.${SUF} sh.func.${SUF} sh.glob.${SUF} \ - sh.hist.${SUF} sh.init.${SUF} sh.lex.${SUF} sh.misc.${SUF} \ - sh.parse.${SUF} sh.print.${SUF} sh.proc.${SUF} sh.sem.${SUF} \ - sh.set.${SUF} sh.time.${SUF} glob.${SUF} mi.termios.${SUF} \ - ma.setp.${SUF} vms.termcap.${SUF} - -TWSRCS= tw.decls.h tw.h tw.help.c tw.init.c tw.parse.c tw.spell.c \ - tw.comp.c tw.color.c -TWOBJS= tw.help.${SUF} tw.init.${SUF} tw.parse.${SUF} tw.spell.${SUF} \ - tw.comp.${SUF} tw.color.${SUF} - -EDSRCS= ed.chared.c ed.decls.h ed.defns.c ed.h ed.init.c ed.inputl.c \ - ed.refresh.c ed.screen.c ed.xmap.c ed.term.c ed.term.h -EDOBJS= ed.chared.${SUF} ed.refresh.${SUF} ed.screen.${SUF} ed.init.${SUF} \ - ed.inputl.${SUF} ed.defns.${SUF} ed.xmap.${SUF} ed.term.${SUF} - -TCSRCS= tc.alloc.c tc.bind.c tc.const.c tc.decls.h tc.disc.c \ - tc.func.c tc.os.c tc.os.h tc.printf.c tc.prompt.c \ - tc.sched.c tc.sig.c tc.sig.h tc.str.c sh.types.h tc.vers.c tc.wait.h \ - tc.who.c tc.h -TCOBJS= tc.alloc.${SUF} tc.bind.${SUF} tc.const.${SUF} tc.defs.${SUF} \ - tc.disc.${SUF} tc.func.${SUF} tc.os.${SUF} tc.printf.${SUF} \ - tc.prompt.${SUF} tc.sched.${SUF} tc.sig.${SUF} tc.str.${SUF} \ - tc.vers.${SUF} tc.who.${SUF} - -PVSRCS= Makefile.std Makefile.vms Makefile.in Makefile.win32 -AVSRCS= Fixes MAKEDIFFS MAKESHAR NewThings README FAQ \ - WishList config_f.h eight-bit.me glob.3 patchlevel.h \ - pathnames.h tcsh.man Ported src.desc Imakefile imake.config \ - README.imake complete.tcsh vmsreadme.txt termcap.vms snames.h \ - host.defs gethost.c tcsh.man2html configure.in - -VHSRCS=${PVSRCS} ${AVSRCS} - -CONFSRCS=config/* - -ALLSRCS= ${SHSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${VHSRCS} -DISTSRCS= ${PSSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${AVSRCS} - - -OBJS= ${SHOBJS} ${TWOBJS} ${EDOBJS} ${TCOBJS} - - -all: ${BUILD} - -tcsh:$(P) ${OBJS} - rm -f tcsh core - ${CC} -o tcsh ${LDFLAGS} ${CFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS} - -# Purify -pure:$(P) ${OBJS} - rm -f tcsh core - purify `echo ${CC} | sed -e s,-B/bin/,,` -o tcsh ${LDFLAGS} ${CFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS} -# OS/2 -tcsh.exe: tcsh - emxbind tcsh - -gethost: gethost.c sh.err.h tc.const.h sh.h - rm -f gethost - ${CC} -o gethost ${LDFLAGS} ${CFLAGS} ${DFLAGS} gethost.c ${LIBES} ${EXTRALIBS} - -tc.defs.c: gethost host.defs - @rm -f $@ - @echo "/* Do not edit this file, make creates it */" > $@ - ./gethost host.defs >> $@ - -tcsh.ps: tcsh.man - rm -f tcsh.ps - -ptroff -man tcsh.man > tcsh.ps - - -#.c.${SUF}: -# ${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $< - -# _VMS_POSIX #module addition -.c.${SUF}: - @(echo '\#module '`echo $< | sed -e 's/\./_/g'`; cat $<) > $*..c - @echo ${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*.c - @${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*..c - @mv $*..o $*.o - @rm -f $*..c - - -# Don't do any special massaging of C files for sharing of strings!! -# it causes weird segmentation faults on some systems. -#.c.o: -# ${CC} -E ${CFLAGS} $*.c | ${XSTR} -c - -# ${CC} ${CF} ${CFLAGS} x.c -# mv -f x.o $*.o -# rm -f x.c - -#ed.init.o: ed.init.c -# ${CC} -E ${CFLAGS} $*.c | ${XSTR} -c - -# ${CC} -R ${CF} ${CF} x.c -# mv -f x.o $*.o -# rm -f x.c - -#strings.o: strings -# ${XSTR} -# ${CC} -c -R xs.c -# mv -f xs.o strings.o -# rm -f xs.c - -##.DEFAULT: -## ${SCCS} get $< - -##.DEFAULT: -## co $< - -ed.defns.h: ed.defns.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '\#ifndef _h_ed_defns' >> $@ - @echo '\#define _h_ed_defns' >> $@ - grep '[FV]_' ed.defns.c | grep '^\#define' >> $@ - @echo '\#endif /* _h_ed_defns */' >> $@ - -sh.err.h: sh.err.c - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '\#ifndef _h_sh_err' >> $@ - @echo '\#define _h_sh_err' >> $@ - grep 'ERR_' sh.err.c | grep '^#define' >> $@ - @echo '\#endif /* _h_sh_err */' >> $@ - -tc.const.h: tc.const.c sh.char.h config.h config_f.h sh.types.h sh.err.h - @rm -f $@ - @echo '/* Do not edit this file, make creates it. */' > $@ - @echo '\#ifndef _h_tc_const' >> $@ - @echo '\#define _h_tc_const' >> $@ - ${CC} -E $(INCLUDES) ${DFLAGS} -D_h_tc_const tc.const.c | \ - grep 'Char STR' | \ - sed -e 's/Char \([a-zA-Z0-9_]*\)\[\].*/extern Char \1[];/' | \ - sort >> $@ - @echo '\#endif /* _h_tc_const */' >> $@ - -csh.prof: ${OBJS} sh.prof.${SUF} mcrt0.${SUF} - rm -f csh.prof - ld -X mcrt0.${SUF} ${OBJS} -o csh.prof ${LIBES} -lc - -sh.prof.${SUF}: - cp sh.c sh.prof.c - ${CC} ${CF} ${CFLAGS} -DPROF sh.prof.c - -lint: tc.const.h ed.defns.h - lint ${DFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES} - -alint: tc.const.h ed.defns.h - alint ${DFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES} - -print: - @pr READ_ME - @pr makefile makefile.* - @(size -l a.out; size *.${SUF}) | pr -h SIZES - @${CXREF} sh*.c | pr -h XREF - @ls -l | pr - @pr sh*.h [a-rt-z]*.h sh*.c alloc.c - -vprint: - @pr -l84 READ_ME TODO - @pr -l84 makefile makefile.* - @(size -l a.out; size *.${SUF}) | pr -l84 -h SIZES - @${CXREF} sh*.c | pr -l84 -h XREF - @ls -l | pr -l84 - @${CXREF} sh*.c | pr -l84 -h XREF - @pr -l84 sh*.h [a-rt-z]*.h sh*.c alloc.c - -vgrind: - @cp /dev/null index - @for i in *.h; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done - @for i in *.c; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done - @vgrind -t -x -h Index index >/crp/bill/csh/index.t - -install: tcsh - -mv -f ${DESTBIN}/tcsh ${DESTBIN}/tcsh.old - cp tcsh ${DESTBIN}/tcsh - -strip ${DESTBIN}/tcsh - chmod 555 ${DESTBIN}/tcsh - -install.man: tcsh.man - -rm -f ${DESTMAN}/tcsh.${MANSECT} - cp tcsh.man ${DESTMAN}/tcsh.${MANSECT} - chmod 444 ${DESTMAN}/tcsh.${MANSECT} - -# Amiga Unix -#install.man: tcsh.man -# compress tcsh.man -# cp tcsh.man.Z ${DESTMAN}/tcsh.Z -# chmod 444 ${DESTMAN}/tcsh.Z - -# Apple A/UX -#install.man: tcsh.man -# -rm -f ${DESTMAN}/tcsh.${MANSECT}.Z -# nroff -man tcsh.man | compress > ${DESTMAN}/tcsh.${MANSECT}.Z -# chmod 444 ${DESTMAN}/tcsh.${MANSECT}.Z - -clean: - ${RM} -f a.out strings x.c xs.c tcsh tcsh.a _MAKE_LOG core gethost - ${RM} -f *.${SUF} sh.prof.c ed.defns.h tc.const.h sh.err.h tc.defs.c - ${RM} -f tcsh.*.m tcsh.*.cat - -veryclean: clean - ${RM} -f config.h - ${RM} -f *~ #* - -tags: /tmp - ${CTAGS} sh*.c - -tar.Z: - rm -f tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - -tar.gz: - rm -f tcsh-${VERSION}.tar.gz - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | gzip > tcsh-${VERSION}.tar.gz - rm -rf tcsh-${VERSION} - -shar: - rm -f tcsh-*.shar - rm -rf tcsh-${VERSION} - mkdir tcsh-${VERSION} tcsh-${VERSION}/config - cp ${ALLSRCS} tcsh-${VERSION} - cp ${CONFSRCS} tcsh-${VERSION}/config - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - MAKESHAR -v -n tcsh-${VERSION} tcsh-${VERSION} \ - tcsh-${VERSION}/?* tcsh-${VERSION}/config/?* \ - tcsh-${VERSION}/?*/set?* - rm -rf tcsh-${VERSION} - -catalogs: - @(cd nls; make catalogs) - -tcsh-${VERSION}.tar.Z: - rm -rf tcsh-${VERSION} - rm -f tcsh-${VERSION}.tar tcsh-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh-${VERSION} - ./MAKEDIFFS bsd - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh-${VERSION} - cp ${DISTSRCS} tcsh-${VERSION} - mkdir tcsh-${VERSION}/config - cp ${CONFSRCS} tcsh-${VERSION}/config - cp Makefile tcsh-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - -tcsh.tahoe-${VERSION}.tar.Z: - rm -rf tcsh.tahoe-${VERSION} - rm -f tcsh.tahoe-${VERSION}.tar tcsh.tahoe-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh.tahoe-${VERSION} - ./MAKEDIFFS tahoe - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.tahoe-${VERSION} - cp ${DISTSRCS} tcsh.tahoe-${VERSION} - mkdir tcsh.tahoe-${VERSION}/config - cp ${CONFSRCS} tcsh.tahoe-${VERSION}/config - cp Makefile tcsh.tahoe-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh.tahoe-${VERSION} | compress > tcsh.tahoe-${VERSION}.tar.Z - rm -rf tcsh.tahoe-${VERSION} - -tcsh.reno-${VERSION}.tar.Z: - rm -rf tcsh.reno-${VERSION} - rm -f tcsh.reno-${VERSION}.tar tcsh.reno-${VERSION}.tar.Z DIFFS.[123] - mkdir tcsh.reno-${VERSION} - ./MAKEDIFFS reno - mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.reno-${VERSION} - cp ${DISTSRCS} tcsh.reno-${VERSION} - mkdir tcsh.reno-${VERSION}/config - cp ${CONFSRCS} tcsh.reno-${VERSION}/config - cp Makefile tcsh.reno-${VERSION}/Makefile.new - tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -) - tar cvf - tcsh.reno-${VERSION} | compress > tcsh.reno-${VERSION}.tar.Z - rm -rf tcsh.reno-${VERSION} - -ftp: tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z - cp tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z ${FTPAREA} - cp tcsh.man ${FTPAREA} - -# -# Dependencies -# -config.h: config_f.h - -TCH=tc.h tc.const.h tc.decls.h tc.os.h tc.sig.h -SHH=sh.h sh.types.h sh.char.h sh.err.h sh.dir.h sh.proc.h pathnames.h \ - sh.decls.h ${TCH} -TWH=tw.h tw.decls.h -EDH=ed.h ed.decls.h - -# EDH -EDINC=sh.${SUF} sh.func.${SUF} sh.lex.${SUF} sh.print.${SUF} sh.proc.${SUF} \ - sh.set.${SUF} tc.bind.${SUF} tc.os.${SUF} tc.prompt.${SUF} \ - tc.sched.${SUF} tw.parse.${SUF} -${EDOBJS} ${EDINC} : ${EDH} - -# SHH -${OBJS}: config.h ${SHH} - -# TWH -TWINC=ed.chared.${SUF} ed.inputl.${SUF} sh.exec.${SUF} sh.func.${SUF} \ - sh.set.${SUF} tc.func.${SUF} -${TWOBJS} ${TWINC}: ${TWH} - -# glob.h -glob.${SUF} sh.glob.${SUF}: glob.h - -# ed.defns.h -EDDINC=tc.bind.${SUF} tc.func.${SUF} tc.os.${SUF} -${EDOBJS} ${EDDINC}: ed.defns.h - -# tc.defs.o -tc.defs.${SUF}: tc.defs.c sh.h diff --git a/contrib/tcsh/NewThings b/contrib/tcsh/NewThings deleted file mode 100644 index a372fbb22805..000000000000 --- a/contrib/tcsh/NewThings +++ /dev/null @@ -1,169 +0,0 @@ -This file contains visible (incompatible) changes to the users. -This version of tcsh has the following new things: - -6.08 -* %$variables are now expanded in the prompt. -* print_by_columns prints in a single column if the output is not a tty. -* REMOTEHOST contains only the IP address, not the host name of the machine. -* names in .cshdirs are quoted. -* exit value from 0..255 not -128..127 as posix mandates. - -6.07 -* Implicit cd when the variable implicitcd is set or set to verbose - -6.06 -* NLS Message Catalog support. - -6.05 -* The bind, aliases, linedit builtins are not used anymore; they are - #ifdef'ed OBSOLETE and will be really removed in the next version -* new filetest builtin -* new hup builtin -* =x obeys nonomatch -* tcsh.man2html nroff to HTML converter for the tcsh manpage -* prompt is now %# by default. -* $REMOTEHOST contains the name of the remote host (optional) -* $HOSTTYPE is going away. New variables $OSTYPE, $MACHTYPE, $VENDOR similar - to the gnu ones. -* $< can be interrupted and takes modifiers. Does not quote args by default - like csh. - -6.04 -* Variable modifiers do not stop processing after the first one fails - > set i=aabbcc - > echo $i:s/a/A/:s/b/B/ - AaBbcc - > echo $i:s/x/A/:s/b/B/ - aabbcc -* set -r makes variables readonly -* set nonomatch, echo ~notaser returns ~notauser instead of an error -* file operators: Changed -s == !-z and -S == socket -* $?0 returns false now on interactive shells for csh compatibility. -* %p%P include seconds in prompt strings. - -6.03 -* $%var contains the number of characters in $var. -* Shell -w -x are now POSIX compliant on POSIX machines. -* Imported environment variables are not globbed. -* $dirstack can be used to set and examine the directory stack. -* $? == $status and $# == $#argv like in the bourne shell. -* expand variables expands arrays too (but not array elements yet). -* $0 contains argv[0] on interactive shells. -* new -b -c etc file operators from SGI csh. -* nostat takes a list of shell patterns. -* symbolic names for arrow key bindings [left, right, up, down] -* shift, left operators update variables correctly. -* builtins builtin. -* history and dirs accept now -LSc flags. -* $history accepts an optional second argument, that can change the - history builtin output similar to the $time format. -* History timestamps preserved in .history. The history file contains - now the timestamps as csh comments. - - -6.02 -* ignore_symlinks and chase_symlinks are replaced with symlinks=ignore - and symlinks=chase; symlinks=expand addition -* complete and uncomplete builtins; user-programmable completion additions. -* Tcsh now uses the rightmost column of the terminal, allowing cut-and-paste - operations in terminal emulators that work [xterm R5 not R4] -* echo_style controls now the behaviour of the builtin echo; the default - should match the builtin echo of /bin/csh; if your system does not - come with csh, then the default echo should match /bin/echo. -* cd -; changes to the previous directory. -* setting dunique variable pushes only unique directories on the directory - stack. -* source builtin allows additional arguments that get passed in $argv in - the sourced script. -* tcsh now mirrors correctly all exported csh variables [term=TERM,path=PATH - etc.] -* showdots=-A makes listing behave like ls -A. -* directory stack access =<num> allows for entries > 9. -* $a:u uppercase the first character in $a, $a:l downcases the first - character in $a. -* Shorthand for file tests in 'if' expressions ( -dx file ) is the - same as ( -d file && -x file ) - -6.01 -* Nothing new. - -6.00 PL3 -* %d in the prompt is the week-day and no longer $cwd; use %/ instead. -* changes in the prompt format. Date changes to accomodate people from - down under. -* vi insert mode to command mode transition does not move the cursor. - -6.00 PL2 -* setty builtin - This is used to specify what tcsh modes can be altered using stty, - Modes that should be set are specified as +<mode>, modes that should - be cleared are specified as -<mode>, and the ones that should be - untouched are specified as <mode>. setty with no arguments prints - the modes that are affected by tcsh, and setty -a prints all modes. -* multiple : modifiers in variables and ! escapes. Things like: - > set prompt="$host:r:$cwd>" - don't work any more, they should be replaced with - > set prompt="${host:r}:$cwd>" - or - > set prompt="$host:r"":$cwd>" - the reason is that now you can - > set foo=/usr/local/a.b.c - > echo $foo:t:r:e - b - If for some reason you don't like this change you can disable it with - -DCOMPAT. -DCOMPAT may go away in future tcsh versions and the way tcsh - works now is the way the 4.4BSD csh works. - -6.00 PL1 -* There is no more config.iris4d, use config.sgi instead - -6.00 -* History searching searches using shell patterns too. -* The autolist values that controlled beeping are not supported any more; - used matchbeep instead. -* /etc/Login and /etc/Logout were renamed to /etc/csh.login /etc/csh.logout - and /etc/csh.cshrc was added -* prompt2 and prompt3 can have prompt escapes. -* eval pipes work -* ignore_symlinks works - -5.20 PL2 -* %{..%} escapes in prompt - -5.20 PL0 -* bindkey -r -* history -t -* shell variables in paths expand correctly. -* variable expansion -* quoted expansions now work. -* new version and tcsh variable format - -5.19 PL2 -* NLS support -* New bindkey and echotc builtins -* Underline and Bold in the prompt; additions and changes to the prompt and - who syntax (%u is now %n, so that %u can be used to turn undeline off, - and %n is now \n). -* rmstar needs to be set to protect from accidental removal -* Fixed editor, and spell line. -* Glob-expand, on arguments. -* Added process migration builtins for aix370 - -5.19 PL1 -* Maintainance release for mainly the rs6000 - -5.19 PL0 -* 8 bit clean code, by using 16 bit strings. -* Mostly shared strings (a side-effect) -* Highlights everywhere (and in ls-F) filenames that contain characters - with the eighth bit set (or passes them unchanged depending on the - variable 'nometa') -* Newline in the prompt via %n. -* dirs takes also a -v flag for `vertical display' -* There is a new variable `listjobs' which controls if and how jobs - are displayed when a new job is suspended. [Idea from the mtXinu - code, very useful for novice users who hit control-Z 10 times on - the same job!] - set listjobs=long, jobs -l is executed every time a job is suspended. - set listjobs=short, jobs is executed every time a job is suspended. -* Passes lint... At least on a sun. diff --git a/contrib/tcsh/Ported b/contrib/tcsh/Ported deleted file mode 100644 index f5aee5986a32..000000000000 --- a/contrib/tcsh/Ported +++ /dev/null @@ -1,1028 +0,0 @@ - -Hello, - -This file contains a list of machines used, libraries compiler etc. If you -find it out-of-date, or you have additions or changes, please let me know. - -christos - - -VENDOR : sun -MODELS : sun3, sun4, sun386i -COMPILER: cc, gcc, acc -CFLAGS : normal -LIBES : -ltermcap -OS : sunos 3.5, 4.0, 4.1, 4.1.1, 4.1.2, 4.1.3, 4.1.4 -CONFIG : sunos* -ENVIRON : n/a -NOTES : Don't compile with /usr/5bin/cc -VERSION : 6.08 - -VENDOR : sun -MODELS : sun4, ultra -COMPILER: cc, gcc -CFLAGS : normal -LIBES : -lcurses -lsocket -lnsl -OS : solaris 2.1, 2.2, 2.3, 2.4, 2.5, 2.5.1 -CONFIG : sol* -ENVIRON : n/a -NOTES : The sunpro compiler cannot compile tcsh with -O, it crashes - : on some files. In any case do not use -O with any of the - : tcsh files, because the optimized code assumes that the - : floating point is already initialized and does not do the - : necessary initializations. This results in weird floating - : point failures of programs exec'ed from tcsh. -VERSION : 6.08 - -VENDOR : sun -MODELS : ultra -COMPILER: WorkShop cc -CFLAGS : normal -LIBES : -lcurses -lsocket -lnsl -OS : solaris 2.6 -CONFIG : sol26 -ENVIRON : n/a -NOTES : none -VERSION : 6.08 - -VENDOR : sun -MODELS : i386 -COMPILER: cc, gcc -CFLAGS : -D__STDC__=0 -LIBES : -lcurses -lsocket -lnsl -OS : solaris 2.1 -CONFIG : sol2 -ENVIRON : n/a -NOTES : n/a -VERSION : 6.04.13 - -VENDOR : sun -MODELS : sun4 -COMPILER: gcc -CFLAGS : normal -LIBES : -ltermcap -OS : linux 2.0.x, 2.1.x -CONFIG : linux -ENVIRON : n/a -NOTES : none -VERSION : 6.07.03 - -VENDOR : hp -MODELS : apollo -COMPILER: cc -CFLAGS : -U__STDC__ -I. -O -LIBES : -ltermcap -OS : domain 10.4.3 -CONFIG : bsd -ENVIRON : bsd4.3 -NOTES : Don't use gcc; breaks tc.os.c -VERSION : 6.01.00 - -VENDOR : hp -MODELS : hp9000s300, hp9000s700, hp9000s800 -COMPILER: cc, gcc -CFLAGS : normal (-Aa -O3 hpux 8.0, 8.07, 9.05) -LIBES : -ltermcap -OS : hpux 6.5, 7.0.x, 8.0, 9.05 -CONFIG : hpux{7,8} -ENVIRON : n/a -NOTES : Don't use -lBSD; breaks getpgrp(). Config.hp-3.2 obsolete? - : Some versions of the compiler are broken with -O3. Try 'ls *' - : If it does not work, lower the optimization level... -VERSION : 6.05.06 - -VENDOR : hp -MODELS : hp9000s700 -COMPILER: cc, c89, gcc -CFLAGS : +O3 -Aa (cc), +O3 (c89), normal (gcc) -LIBES : -ltermcap -OS : hpux 10.00, 10.01 -CONFIG : hpux8 -ENVIRON : n/a -NOTES : Carl-Olof Almbladh (coa@teorfys.lu.se) - : To make a statically linked version: in config_f.h, #undef NLS - : and use these LDFLAGS in the Makefile: LDFLAGS= -Wl,-a,archive - : [orban@kato.den.csci.csc.com (Tom Orban) -VERSION : 6.08 - -VENDOR : hp -MODELS : SPP-1200 SPP-1600 S-2X00 X-2X00 -COMPILER: cc -CFLAGS : -Ae -LIBES : -ltermcap -OS : SPP-UX 5.X -CONFIG : hpux8 -ENVIRON : n/a -NOTES : n/a -VERSION : 6.07.02 - -VENDOR : hp -MODELS : hp9000s500 -COMPILER: cc -CFLAGS : -I. -O -LIBES : -ltermcap -OS : hpux 5.2 -CONFIG : hp-5.2 -ENVIRON : n/a -NOTES : very slow in executing commands (I think the reason is -NOTES : a very slow fork) -VERSION : 6.00.01 - -VENDOR : digital -MODELS : vax -COMPILER: cc, gcc -CFLAGS : normal -LIBES : -ltermcap -OS : bsd4.3, bsd4.4 -CONFIG : bsd* -ENVIRON : n/a -NOTES : cc broken: typedef void sigret_t; typedef void pret_t; -VERSION : 6.00.03 - -VENDOR : digital -MODELS : vax -COMPILER: cc, gcc -CFLAGS : normal -LIBES : -ltermcap -OS : mtXinu 4.3 -CONFIG : mtxinu -ENVIRON : n/a -NOTES : cc broken: typedef void sigret_t; typedef void pret_t; -VERSION : 6.03.09 - -VENDOR : digital -MODELS : vax, DECstation -COMPILER: cc, gcc -CFLAGS : -O -Olimit 2000 (cc), normal (gcc) -LIBES : -ltermcap -OS : ultrix 3.0 (vax), 4.0, 4.1, 4.2, 4.3, 4.4, 4.5 -CONFIG : ultrix -ENVIRON : n/a -NOTES : pcc broken: typedef void sigret_t (vax); -NOTES : mips compiler on ultrix 3.5 needs -Dvoid=int -NOTES : vax compiler on ultrix 3.0 needs -Dvoid=int -NOTES : Does Ultrix 4.x still need YPBUGS? -NOTES : Ultrix4.2 may need NAMEI_BUG -VERSION : 6.09.00 - -VENDOR : apple -MODELS : macII -COMPILER: cc -CFLAGS : normal (-ZP) -LIBES : -ltermcap (-lposix -ltermcap) -OS : aux 2.0 -CONFIG : mac2 (-DPOSIX -DPOSIXJOBS) -ENVIRON : n/a -NOTES : Tcsh can compile both in non POSIX and POSIX mode. The -NOTES : default configuration is non POSIX. The flags in parentheses -NOTES : are the changes that are needed to compile in POSIX mode -VERSION : 6.00.01 - -VENDOR : ibm -MODELS : ps/2, rs6000, ibm370, ibmESA -COMPILER: cc -CFLAGS : normal -LIBES : -lcurses -lbsd [No -lbsd for 4.1] -OS : aix 3.1,3.2,4.1 (rs6000) aix 1.1 (ps/2) aix G9.9 (ibm370) - : aix (ibmESA) -CONFIG : aix -ENVIRON : n/a -NOTES : aix G9.9 sfname() frees bad pointers. Use TCF with care! -NOTES : aix 3.2 may need NAMEI_BUG -NOTES : aix 3.2 may need _BSD_INCLUDES defined in h -NOTES : aix 4.1 does not need -lbsd anymore. -VERSION : 6.06.00 (rs6000) - -VENDOR : ibm -MODELS : rt -COMPILER: hc, gcc -CFLAGS : -I. -U__STDC__ -LIBES : -ltermcap -OS : aos 4.3 -CONFIG : bsd -ENVIRON : n/a -NOTES : Old versions of the compiler break with -O. No ansi include -NOTES : files so we have to undef __STDC__ -VERSION : 6.05.06 - -VENDOR : ibm -MODELS : rt -COMPILER: pcc -CFLAGS : -I. -U__STDC__ -DPCC -LIBES : -ltermcap -OS : aos 4.3 -CONFIG : bsd -ENVIRON : n/a -NOTES : Old versions of the compiler break with -O. No ansi include -NOTES : files so we have to undef __STDC__ -NOTES : pcc broken: typedef void sigret_t; typedef void pret_t; -VERSION : 6.05.06 - -VENDOR : ibm -MODELS : rt -COMPILER: cc -CFLAGS : -I. -Nd4000 -Nn3000 -LIBES : -lcurses -OS : aix 2.2.1 -CONFIG : aix -ENVIRON : n/a -NOTES : Stacksize limit is 1K off? -VERSION : 6.00.03 - -VENDOR : sequent -MODELS : balance, symmetry -COMPILER: cc -CFLAGS : normal -LIBES : -ltermcap -lseq -OS : Dynix 3.1, 3.2, ptx 1.2 -CONFIG : sequent -ENVIRON : universe on Dynix 3.1, 3.2: ucb -NOTES : none -VERSION : 6.04.00 - -VENDOR : sequent -MODELS : symmetry -COMPILER: gcc 2.6.2 -CFLAGS : -m486 -LIBES : -ltermcap -lseq -lsocket -linet -lnsl -OS : DYNIX/ptx 2.1.0, 4.1.3 -CONFIG : sequent -ENVIRON : -NOTES : Didn't work for me with Sequent's /bin/cc -NOTES : 4.1.3 does not need libinet anymore. -VERSION : 6.05.00 - -VENDOR : encore -MODELS : multimax -COMPILER: gcc -CFLAGS : normal -LIBES : -ltermcap -OS : umax 4.2 -CONFIG : bsd -ENVIRON : n/a -NOTES : none -VERSION : 6.00.00 - -VENDOR : sony -MODELS : news 1850, 1750 -COMPILER: gcc -CFLAGS : normal -LIBES : -ltermcap -OS : bsd 4.3, news-os 3.3,4.1C -CONFIG : bsd -ENVIRON : n/a -NOTES : none -VERSION : 6.05.06 - -VENDOR : ibm + compatibles -MODELS : i386,i286 -COMPILER: cc -CFLAGS : normal -LIBES : -ltermcap -ldir -lx -OS : xenix -CONFIG : xenix -ENVIRON : n/a -NOTES : none -VERSION : 6.00.01 - -VENDOR : hp -MODELS : hp300 -COMPILER: cc, gcc -CFLAGS : normal -LIBES : -ltermcap -OS : MORE/bsd 4.3+ -CONFIG : mtxinu -ENVIRON : n/a -NOTES : none -VERSION : 6.05.06 - -VENDOR : hp, motorola -MODELS : hp300, m68k -COMPILER: gcc -CFLAGS : normal -LIBES : -ltermcap -lcrypt -OS : NetBSD 1.0A -CONFIG : bsd4.4 -ENVIRON : n/a -NOTES : none -VERSION : 6.05.06 - -VENDOR : digital -MODELS : vax -COMPILER: gcc -CFLAGS : normal -LIBES : -ltermcap -OS : bsd 4.3reno -CONFIG : bsdreno -NOTES : ttyname() is buggy. calls closedir() twice. See README -ENVIRON : n/a -VERSION : 6.00.04 - -VENDOR : Cray Research -MODELS : Y-MP -COMPILER: cc -CFLAGS : normal -LIBES : -ltermcap -OS : Unicos 6.0 -CONFIG : cray -ENVIRON : n/a -NOTES : none -VERSION : 6.00.01 - -VENDOR : Cray Research -MODELS : C90 -COMPILER: cc -CFLAGS : normal -LIBES : -ltermcap -OS : Unicos 9.0.2.1 -CONFIG : cray -ENVIRON : n/a -NOTES : none -VERSION : 6.08 - -VENDOR : pyramid -MODELS : MIS4/2T -COMPILER: cc -CFLAGS : -OG -LIBES : -ltermcap -OS : OSx5.1,6.4 -CONFIG : pyr -ENVIRON : n/a -NOTES : If there are problems with the global optimizer, use -OP -NOTES : If you only have the AT&T universe, use the pyratt config -NOTES : file and define -D_PID_T -Dpyr. -VERSION : 6.06.00 - -VENDOR : next -MODELS : any -COMPILER: gcc or cc -arch m68k -arch i386 -CFLAGS : -O2 -g -LIBES : -ltermcap # [-lcs 2.0] -OS : next os 2.x, 3.x -CONFIG : mach -ENVIRON : n/a -NOTES : NeXTSTeP 3.3 on intel defines speed_t so compile with -D_SPEED_T -NOTES : NeXT's cc -E adds spaces before and after array brackets! -NOTES : You'll need to change the sed expression in the Makefile to -NOTES : something like: -NOTES : 's/Char \([a-zA-Z0-9_]*\) *\[ *\].*/extern Char \1[];/' -VERSION : 6.04.00 - -VENDOR : Apple -MODELS : any -COMPILER: cc -CFLAGS : -O3 -pipe -g -arch ppc -arch i386 -UNeXT -OS : Rhapsody 5 -CONFIG : rhapsody -ENVIRON : n/a -NOTES : CFLAGS="-O3 -pipe -g -arch ppc -arch i386 -UNeXT" configure && make -VERSION : 6.08.00 - -VENDOR : Heurikon -MODELS : HK68 -COMPILER: gcc (Green Hills C-68000) -CFLAGS : -ga -X138 -X25 -I. -LDFLAGS : -n -LIBES : -lcurses -ltermcap -ldirent -OS : UniPlus+ 5.0 -CONFIG : hk68 -ENVIRON : n/a -NOTES : Need Doug Gwyn's POSIX directory library (libdirent.a) -VERSION : 6.00.01 - -VENDOR : Amdahl -MODELS : n/a -COMPILER: cc/gcc -CFLAGS : normal -LIBES : -lcurses -lsocket -lbsd -CONFIG : amdahl -ENVIRON : n/a -VERSION : 6.00.01 - -VENDOR : prime -MODELS : exl 300 series -COMPILER: cc -CFLAGS : -O -s -I. -LIBES : -lcurses -lstcp -OS : system v.3.1.2 -CONFIG : sysv -ENVIRON : sysv -NOTES : Is libstcp.a on all exl 300s? -VERSION : 6.00.01 - -VENDOR : convex -MODELS : c220 -COMPILER: cc -CFLAGS : normal -LIBES : -ltermcap -OS : 9.0.6 (bsd 4.3) -CONFIG : convex -ENVIRON : n/a -NOTES : Dont use the -pcc flag. - : Use setty to fix the default tty settings. -VERSION : 6.00.01 - -VENDOR : Norsk Data -MODELS : nd5000 -COMPILER: cc -CFLAGS : normal -LIBES : -ltermcap -OS : Ndix Version C -CONFIG : bsd -ENVIRON : n/a -NOTES : The -O option makes the compiler run for ages! -VERSION : 6.00.03 - -VENDOR : SGI -MODELS : 4D, 3000 -COMPILER: cc -CFLAGS : -D__STDC__ -LIBES : -lcurses -lsun -lbsd -lc_s -OS : IRIX (3.?) 3.2 3.3 4.0 -CONFIG : sgi -ENVIRON : n/a -NOTES : AUTOLOGOUT is probably best undef'ed -NOTES : For 4.0, the NLS define in h can be enabled. -NOTES : 4.0.5a cc does not have -O3 anymore. -NOTES : If you don't like -lbsd, you can define POSIXJOBS in -NOTES : config.h and omit it. -VERSION : 6.06.00 - -VENDOR : SGI -MODELS : R8000 PowerIndigo2 -COMPILER: cc -n32 -CFLAGS : -D__STDC__ -LIBES : -lcurses -lsun -lbsd -lc_s -OS : IRIX 6.2 -CONFIG : sgi -ENVIRON : n/a -NOTES : CCOPTIONS=-OPT:fold_arith_limit=4000 -NOTES : SHLIBDIR=/usr/lib32 -NOTES : LDPOSTLIB = -nostdlib -L$(ROOT)$(SHLIBDIR)/mips3 \ -NOTES : -L$(ROOT)$(SHLIBDIR) -NOTES : In config.h #undef NLS and #undef NLS_CATALOGS -VERSION : 6.06.00 - -VENDOR : SGI -MODELS : Onyx R10000 -COMPILER: gcc-2.7.2.1 configured for mips-sgi-irix5.3 -CFLAGS : none -LIBES : -ltermcap -lbsd -OS : IRIX 6.2 -CONFIG : sgi -ENVIRON : n/a -VERSION : 6.07.02 - -VENDOR : ibm + compatibles -MODELS : i386,i486 -COMPILER: /bin/cc -CFLAGS : normal -LIBES : -ltermlib -lsocket -lnsl (without BSDTIMES) -LIBES : -ltermlib -lsocket -lnsl -lc /usr/ucblib/libucb.a (BSDTIMES) -OS : SVR4 (DELL, ESIX, ISC, UHC) -CONFIG : sysv4 -ENVIRON : n/a -NOTES : none -VERSION : 6.05.06 - -VENDOR : ibm + compatibles -MODELS : i386,i486 -COMPILER: gcc -CFLAGS : normal -LIBES : -ltermcap -OS : linux 0.8x, 0.9x, 1.x -CONFIG : linux -ENVIRON : n/a -NOTES : none -VERSION : 6.05.06 - -VENDOR : ibm + compatibles -MODELS : i386,i486 -COMPILER: gcc -CFLAGS : normal -LIBES : -lcurses -lc_s [for crypt] -OS : SVR3.2.2 [SCO] -CONFIG : sco32v2 -ENVIRON : n/a -NOTES : none -VERSION : 6.03.00 - -VENDOR : stardent -MODELS : gs2600 -COMPILER: /bin/cc -CFLAGS : -O -LIBES : -lcurses -OS : stellix -CONFIG : stellar -ENVIRON : n/a -NOTES : works but not worth compiling with -O4... -NOTES : setpgrp() and SIGCHLD work the BSD way, not the way documented. -NOTES : we need to define BACKPIPE -VERSION : 6.00.04 - -VENDOR : stardent -MODELS : titan 3000 series -COMPILER: /bin/cc -CFLAGS : -O -43 -LIBES : -ltermcap -OS : OS 3.0.3 -CONFIG : bsd -ENVIRON : n/a -NOTES : Kernel bug with SIGTTIN, Try vi, ^Z, bg, fg.... -VERSION : 6.01.01 - -VENDOR : stardent -MODELS : titan 1500 series -COMPILER: cc -CFLAGS : -O -43 -LIBES : -ltermcap -OS : OS 2.5 -CONFIG : bsd -ENVIRON : n/a -NOTES : Kernel bug with SIGTTIN, Try vi, ^Z, bg, fg.... -NOTES : You can add -w to the CFLAGS to suppress the warnings. -VERSION : 6.02.07 - -VENDOR : SGI -MODELS : INDIGO -COMPILER: cc -CFLAGS : -D__STDC__ -LIBES : -lcurses -lsun -lbsd -lc_s -OS : IRIX (3.?) 3.2 3.3 4.0 -CONFIG : sgi -ENVIRON : n/a -NOTES : AUTOLOGOUT is probably best undef'ed -NOTES : For 4.0, the NLS define in h can be enabled. -VERSION : 6.01 - -VENDOR : SGI -MODELS : INDY -COMPILER: cc -CFLAGS : -LIBES : -lcurses -lbsd -OS : IRIX 5.1 -CONFIG : sgi -ENVIRON : n/a -NOTES : it will build without -lbsd but then job control -NOTES : won't actually work. -VERSION : 6.04.00 - -VENDOR : alliant -MODELS : FX/2800 series -COMPILER: scc -CFLAGS : normal -LIBES : -ltermcap -OS : Alliant Concentrix 2800 2.2.00 -CONFIG : bsd -ENVIRON : n/a -NOTES : For a newer version of the operating system try defining - : NEW_OS in alliant [or better find a way to tell - : them apart. -VERSION : 6.03.00 - -VENDOR : stardent -MODELS : Vistra 800 -COMPILER: /bin/cc -CFLAGS : -O -LIBES : -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a -OS : SYSVR4 -CONFIG : sysv4 -ENVIRON : n/a -NOTES : Works like a charm -VERSION : 6.01 - -VENDOR : Evans & Sutherland -MODELS : ESV -COMPILER: cc -CFLAGS : mips systems -LIBES : -ltermcap -OS : ES/os 2.2 (UMIPS mips ATT_V3_0) -CONFIG : mips -ENVIRON : bsd4.3 -NOTES : would it be preferable to have HOSTTYPE of -NOTES : "esv" instead of "mips"? -VERSION : 6.01.00 - -VENDOR : masscomp -MODELS : Masscomp 6000 -COMPILER: cc -CFLAGS : production -LIBES : -ltermcap -OS : RTU 5.0 -CONFIG : masscomp -ENVIRON : Link in the "bsd" universe as opposed to "att". -NOTES : For pre RTU 6.0, remember to remove the #define RTU6 in the -NOTES : masscomp file. -NOTES : As of tcsh v6.02.07, try putting "bindkey ^t stuff-char" -NOTES : in your /etc/csh.cshrc for masscomp kernel (ctrl-t) status. -VERSION : 6.02.07 - -VENDOR : masscomp -MODELS : Masscomp 5400 -COMPILER: cc -CFLAGS : normal -LIBES : -ltermcap -lndir -lsocket -ljobs -OS : RTU 6.0 -CONFIG : masscomp -ENVIRON : Link in the "bsd" universe as opposed to "att". -NOTES : n/a -VERSION : 6.01.00 - -VENDOR : Cray Computer -MODELS : CRAY-2 & CRAY-3 -COMPILER: cc -CFLAGS : normal -LIBES : -lcurses -lnet -OS : CSOS 1.0 -CONFIG : csos -ENVIRON : n/a -NOTES : none -VERSION : 6.02 - -VENDOR : Motorola -MODELS : Delta 3000/Delta 4000 -COMPILER: cc -CFLAGS : normal -LIBES : -lcurses -OS : System V/68 R3V6.2, R3V7 -CONFIG : sysV68 -ENVIRON : n/a -NOTES : none -VERSION : 6.01.00, 6.02.00 - -VENDOR : Motorola -MODELS : MPC 3062 -COMPILER: cc -CFLAGS : Broken optimizers... -LIBES : -lcurses -lsec -OS : System V/88 R32V2 -CONFIG : sysV88 -ENVIRON : n/a -NOTES : If you're using the bundled Greenhills compiler, don't use -O. -NOTES : One error -O causes is failure to exec scripts with /bin/sh -NOTES : if they don't have a #! header on top. -VERSION : 6.02.07 - -VENDOR : alliant -MODELS : FX/8X series -COMPILER: pcc -CFLAGS : normal -LIBES : -ltermcap -OS : Concentrix 6.0.00 beta -CONFIG : bsd -ENVIRON : n/a -NOTES : Needs to define DIRENT in h -VERSION : 6.02.00 - -VENDOR : alliant -MODELS : FX/8X series -COMPILER: pcc -CFLAGS : normal -LIBES : -ltermcap -OS : Concentrix 5.7.00 -CONFIG : bsd -ENVIRON : n/a -NOTES : n/a -VERSION : 6.00.01 - -VENDOR : gould (encore) -MODELS : NP1 -COMPILER: cc -CFLAGS : production -LIBES : -ltermcap -OS : UTX/32 3.1A -CONFIG : bsd -ENVIRON : n/a -NOTES : n/a -VERSION : 6.02.00 - -VENDOR : gould (encore) -MODELS : 9050 -COMPILER: cc -CFLAGS : production -LIBES : -ltermcap -OS : UTX/32 2.1A -CONFIG : bsd -ENVIRON : n/a -NOTES : n/a -VERSION : 6.02.00 - -VENDOR : ibm & compatible -MODELS : i386 -COMPILER: cc -CFLAGS : production -LIBES : -lcurses -lcposix -OS : 3.2 -CONFIG : isc -ENVIRON : ISC386 -NOTES : n/a -VERSION : 6.02.00 - -VENDOR : att -MODELS : 3b2-600GR (RISC) -COMPILER: cc -CFLAGS : production -LIBES : -lcurses -OS : SystemV R4.0 -CONFIG : sysv4 -ENVIRON : n/a -NOTES : n/a -VERSION : 6.02.00 - -VENDOR : att -MODELS : 3b2-600G -COMPILER: cc -CFLAGS : production -LIBES : -lcurses -OS : SystemV R3.2.3 -CONFIG : sysv3 -ENVIRON : n/a -NOTES : n/a -VERSION : 6.02.00 - -VENDOR : tektronix -MODELS : XD88/10 -COMPILER: cc -CFLAGS : Broken optimizers... -LIBES : -ltermcap -lsec -OS : UTekV 3.2e -CONFIG : tekXD88 -ENVIRON : n/a -NOTES : If you're using the bundled Greenhills compiler, don't use -O. -NOTES : One error -O causes is failure to exec scripts with /bin/sh -NOTES : if they don't have a #! header on top. -VERSION : 6.02.07 - -VENDOR : tektronix -MODELS : 4300 -COMPILER: cc -CFLAGS : production -LIBES : -ltermcap -OS : UTek 4.0 (BSD 4.2) -CONFIG : bsd -ENVIRON : n/a -NOTES : set DFLAGS = -DUTek -DBSD in the Makefile -VERSION : 6.02.07 - -VENDOR : BBN -MODELS : butterfly gp1000 -COMPILER: cc -CFLAGS : production -LIBES : -ltermcap -OS : Mach 1000 version 2.5 -CONFIG : mach -ENVIRON : n/a -NOTES : n/a -VERSION : 6.02.07 - -VENDOR : sony -MODELS : news 3700 -COMPILER: cc -CFLAGS : -O -Wf,-XNp15000,-XNd15000,-XNh15000 -LIBES : -lcurses -lc /usr/ucblib/libucb.a -OS : sysvr4, news-os 5.02 -CONFIG : sysv4 -ENVIRON : n/a -NOTES : Use /usr/bin/cc, not /usr/ucb/cc. -VERSION : 6.00.03 - -VENDOR : ibm & compatible -MODELS : i386, i486 -COMPILER: cc -CFLAGS : production -LIBES : -lterm -OS : Coherent 4.0 -CONFIG : coh3 -ENVIRON : gnu tools (see below) -NOTES : The standard make, /bin/sh and sed that come with Coherent are -NOTES : not quite up to the makefile. Either use gnu make or change -NOTES : occurances of '# to '\# since Coherent's make takes all '#'s to -NOTES : be a comment, even when quoted, except when escaped by '\'. -NOTES : Coherent's /bin/sh does not allow you to set VERSION, etc. -NOTES : since they are hard-wired internal variables. Either use -NOTES : /usr/bin/ksh, another sh or change the name of the offending -NOTES : variables. Coherent's sed, unfortunately, is broken beyond a -NOTES : workaround. Either get gnu sed or run that portion of the -NOTES : makefile on a machine with a full sed and import the output. -VERSION : 6.02.08 - -VENDOR : Control Data Systems -MODELS : CD4680 -COMPILER: cc, cc2.20 (mips) -CFLAGS : mips systems, DFLAGS=-DCDC -LIBES : -ltermcap -OS : EP/IX 1.4.3 (RiscOS based) -CONFIG : mips -ENVIRON : bsd4.3 (if sysv, need "set path=(/usr/bsd43/bin $path)" ) -NOTES : n/a -VERSION : 6.02.00 - -VENDOR : alliant -MODELS : FX/8X series -COMPILER: pcc -CFLAGS : normal -LIBES : -ltermcap -lresolv -OS : Concentrix 6.0.00 beta -CONFIG : alliant (see NOTES) -ENVIRON : n/a -NOTES : Needs to define DIRENT and BSDLIMIT in h. The -NOTES : beta release of the Concentrix 6.0.00 has some errors -NOTES : in the system header files, namely, /usr/include/sys/dir.h. -VERSION : 6.03.00 - -VENDOR : hp -MODELS : hp9000s700 -COMPILER: cc -CFLAGS : No -O here!!! Breaks quoting! Try echo 'foo | bar'... -LIBES : -ltermcap -OS : HP OSF/1 1.0 -CONFIG : hposf1 -ENVIRON : n/a -NOTES : n/a -VERSION : 6.03.00 - -VENDOR : digital -MODELS : DEC 3000/400 (alpha) -COMPILER: cc -CFLAGS : -call_shared -I. -I.. -O -Olimit 2000 -std1 -LIBES : -lcurses -OS : OSF1 1.2 -CONFIG : decosf1 -ENVIRON : n/a -NOTES : none -VERSION : 6.03 - -VENDOR : digital -MODELS : DEC 3000/400 (alpha) -COMPILER: cc -CFLAGS : -O2 -I. -I.. -Olimit 2000 -LIBES : -lcurses -OS : OSF1 (Digital Unix) 1.3, 2.0, 3.0, 3.2, 4.0 -CONFIG : decosf1 -ENVIRON : n/a -NOTES : none -VERSION : 6.07.11 - -VENDOR : Intel -MODELS : Paragon -COMPILER: icc -CFLAGS : -O2 -LIBES : -ltermcap -OS : Paragon OSF/1 Release 1.0.1 Server 1.0 R1.0 -CONFIG : parosf1 -ENVIRON : n/a -NOTES : I have gotten two different config files that both seem to - : work! -VERSION : 6.03.00 - -VENDOR : Data General -MODELS : AViiON mc88000 -COMPILER: cc -CFLAGS : -O2 -LIBES : -lcurses -OS : DGUX 5.4R2.01 -CONFIG : dgux5.4 -ENVIRON : n/a -NOTES : n/a -VERSION : 6.04.00 - -VENDOR : Data General -MODELS : Aviion -COMPILER: gcc 2.5.8 -CFLAGS : -g -O2 -msvr4 -LIBES : -ltermcap -OS : DGUX 5.4.1 -CONFIG : dgux5.4 -ENVIRON : sde m88kdguxelf -VERSION : 6.05.00 - -VENDOR : Harris -MODELS : Tahoe -COMPILER: cc, gcc 1.42 -CFLAGS : -O -LIBES : -ltermcap -OS : CX/UX 5.1 CX/UX 7.1 -CONFIG : hcx -ENVIRON : universe bsd -NOTES : n/a -VERSION : 6.06.01 - -VENDOR : Multiflow -MODELS : multiflow -COMPILER: cc -CFLAGS : -O5 -sb_trace 0 -DMULTIFLOW -LIBES : -ltermcap -lcrypt -OS : 4.3 BSD TRACE/UNIX -CONFIG : bsd -ENVIRON : n/a -NOTES : Lower the optimization or you'll get a 5M binary! -NOTES : cc broken: typedef void sigret_t; typedef void pret_t; -VERSION : 6.04.00 - -VENDOR : Unixware -MODELS : all -COMPILER: cc -CFLAGS : normal -LIBES : -lcrypt -ltermlib -lsocket -lnsl -lgen -OS : Unixware 2.03 (4.2MP) -CONFIG : svr4 -ENVIRON : n/a -NOTES : Remove PW_SHADOW from config file, or add -lgen for getspnam -VERSION : 6.07.00 - -VENDOR : Intergraph -MODELS : clipper -COMPILER: cc -CFLAGS : n/a -LIBES : -ltermcap -lbsd -OS : clix 7.1.3 -CONFIG : clipper -ENVIRON : n/a -NOTES : n/a -VERSION : 6.05.00 - -VENDOR : SNI (Siemens Nixdorf Information Systems) -MODELS : rm400 (R4000 mips) -COMPILER: /usr/bin/cc -CFLAGS : -kansi; xmkmf (=> -DSVR4 -DSNI -DSMSINFO -DR3000) -LIBES : -ltermcap -lc -L/usr/ucblib -lucb -OS : SINIX 5.42 -CONFIG : sysv4 -ENVIRON : -NOTES : This is a POSIX (XPG-4) system. -NOTES : Make sure that -lucb is included _last_ (even after -lc) -NOTES : so use: -ltermcap -lc -L/usr/ucblib -lucb -NOTES : In config.h, set HAVEUTMPX und unset BSDSIGS and BSDTIMES -NOTES : -VERSION : 6.06.03 - -VENDOR : U/WIN -MODELS : i386 -COMPILER: cc -CFLAGS : -O -LIBES : -lcurses -OS : Windows NT with U/WIN -CONFIG : uwin -ENVIRON : -NOTES : Needs POSIX.DLL from U/WIN version later than 1.6 -NOTES : Did not function correctly when using #define SYSMALLOC -VERSION : 6.07.02 - -VENDOR : SNI (Siemens Nixdorf Information Systems) -MODELS : rm600 (R4000 mips) -COMPILER: /usr/bin/cc -CFLAGS : -kansi -DSVR4 -DSNI -DSMSINFO -DR3000 -LIBES : -ltermcap -lsocket -lxnet -lc -L/usr/ucblib -lucb -OS : SINIX 5.43 -CONFIG : sysv4 -ENVIRON : -NOTES : In config.h, set HAVEUTMPX und unset BSDSIGS, -NOTES : BSDTIMES, and BSDLIMIT, since otherwise resource.h -NOTES : is falsely searched in /usr/ucbinclude/sys/ -NOTES : -VERSION : 6.07.02 - -VENDOR : FUJITSU -MODELS : ds90 -COMPILER: cc -CFLAGS : -O -I. -DSVR4 -DANSICPP -LIBES : -lsocket -lnsl -ltermcap -OS : UXP/DS V20L10(SVR4.2) -CONFIG : sysv4 -ENVIRON : n/a -NOTES : n/a -VERSION : 6.07.02 - -VENDOR : Fujitsu ICL -MODELS : SuperServer Intel based -COMPILER: gcc 2.7.2 -CFLAGS : normal for gcc 2.1+ .... -O2 $(INCLUDES) -LIBES : -ltermlib -lsocket -lnsl -lcrypt -lgen -OS : SCO UnixWare 2.1 SysVR4.2 i386 x86at -CONFIG : sysv4 -ENVIRON : n/a -NOTES : none -VERSION : 6.06.00 - -VENDOR : NEC -MODELS : SX-4, SX-5 -COMPILER: cc -CFLAGS : -h0,ansi,novector,float0 # for NEC SX-4 -LIBES : -Gsmall -OS : NEC's -CONFIG : superux8 -ENVIRON : n/a -NOTES : none -VERSION : 6.08.01 - -VENDOR : Unixware 7.1.0 -MODELS : all -COMPILER: gcc -CFLAGS : normal -LIBES : -ltermlib -lsocket -lgen -OS : Unixware 7.1.0 -CONFIG : svr5 -ENVIRON : n/a -NOTES : none -VERSION : 6.09.00 - diff --git a/contrib/tcsh/README b/contrib/tcsh/README deleted file mode 100644 index 13a2cddebafa..000000000000 --- a/contrib/tcsh/README +++ /dev/null @@ -1,207 +0,0 @@ -This is tcsh version 6.09. Tcsh is a version of the Berkeley -C-Shell, with the addition of: a command line editor, command and file -name completion, listing, etc. and a bunch of small additions to the -shell itself. - -Tcsh has been ported to most unix variants, and can be tinkered to work -in unix systems that it has not ported yet. See the Ported file for -a more complete list of ported systems and in the config directory for -a configuration file that matches your system. -Tcsh also runs under VMS/POSIX and OS/2+emx; the OS/2 port is not -complete yet. - -Feel free to use it. These changes to csh may only be included in a -commercial product if the inclusion or exclusion does not change the -purchase price, level of support, etc. Please respect the individual -authors by giving credit where credit is due (in other words, don't -claim that you wrote portions that you haven't, and don't delete the -names of the authors from the source code or documentation). - -To install tcsh: - -0) Try running "configure". If that works, goto step 6. - If you are using imake, try xmkmf and goto step 3. - If imake does not work, copy Makefile.std to Makefile. - -1) Look at the Makefile and make sure that you are using the right - compilation flags. - -2) Copy the appropriate for your machine and OS config file from the - config subdirectory into config.h. Consult the file "Ported" for - settings known to work on various machines. If you are trying to - compile tcsh on a machine for which there is no config file yet, - you will need to create a config file using as a template one of - the supplied ones. If you get tcsh working on a new machine, I'd - appreciate a copy of the config file plus additional information - about the architecture/OS. If you are creating a new config file, - look very hard at BSDJOBS, BSDSIGS, and BSDTIMES if you are running - a non-BSD machine. For vanila SysV, these would all be #undef-ed, - but others may vary (such as A/UX or HPUX). On a pyramid, compile - in the UCB universe even if you are running under the ATT universe - usually; it will work anyway, and you get job control for free. - -3) Look at config_f.h, and enable or disable any features you want. - It is configured the way I like it, but you may disagree. - If you do not have NLS, then locale.h will not be found. Undefine it - and things should work ok. On the other hand, if you have NLS you - might as well use it... - -4) Look at host.defs to make sure that you have the right defines to set - the environment variables "HOSTTYPE", "MACHTYPE", "OSTYPE" and - "VENDOR" correctly. If you need to make changes, PLEASE SEND THEM - BACK TO ME. - -5) You may want to adjust the TCSH_BINDIR and TCSH_MANDIR entries in - the Makefile. These are the directories that tcsh, and the tcsh.1 - man entry will be placed in when you do a "make install" and "make - install.man" respectively. If you decide to install tcsh somewhere - other than in /usr/local/bin/tcsh, you should #define _PATH_TCSHELL - "/your/installation/directory/tcsh" in pathnames.h. - -6) make - -7) Read the documentation while you are waiting. The file tcsh.man - is in standard [nt]roff -man format. If you like, you can run the - tcsh.man2html script (requires Perl) to generate an HTML version of - the manpage which you can read with Mosaic, lynx or other HTML browser. - -8) Test tcsh by typing ./tcsh to see that it has compiled correctly. - The history command should give a time stamp on every entry. - Typing normal characters should echo each exactly once. Control-A - should put the cursor at the beginning of the input line, but after - the prompt. Typing characters after that should insert them into - the line. If you have job control make sure that stopping and - restarting jobs works. Make sure you can ^C in the middle of the - input line. Also make sure that pipelines work correctly and there - are no races. Try 'echo | cat | cat | cat | cat | more' a couple of - times. If you have job control, try this command in the background - and bring it in the foreground when it stops for tty output. Also - make sure that the ioctl() modes are preserved. Get into vi, enter - and exit input mode and suspend it, background it and foreground it - again. After all that, lastly make sure that the tty process group - manipulation is happening correctly. Try ftp to some host. If your - passwd appears on the screen, you have lost /dev/tty. Otherwise - everything is fine. - -9) Once satisfied that tcsh is working correctly, complete the installation - by typing "make install" to install the binary, and "make install.man" to - install the documentation. Don't forget to look at complete.tcsh for - useful completions... - -10) Enjoy. - -11) PLEASE send any bug reports (and fixes), code for new features, - comments, questions, etc. (even flames) to: - - The tcsh mailing list - tcsh@mx.gw.com - -Various: - -*************************************************************************** - -On sysv versions < 3.0 (not hpux) Doug Gwyn's public domain directory -manipulation library has to be installed. This library is available -for anonymous ftp from prep.ai.mit.edu:/pub/gnu/dirent.tar.Z -If the network is not installed, then there is a gethostname() -routine is tc.os.c, enabled by defining NEEDgethostname - -*************************************************************************** - -On BSDreno, in ttyname() closedir() is called twice and so the same -pointer gets free'd twice. tcsh's malloc is picky and it prints an -error message to that effect. If you don't like the message: - -1. Apply the following patch: - -*** /usr/src/lib/libc/gen/ttyname.c.orig Fri Jun 1 17:17:15 1990 ---- /usr/src/lib/libc/gen/ttyname.c Tue Oct 29 16:33:12 1991 -*************** -*** 51,57 **** - if (stat(buf, &sb2) < 0 || sb1.st_dev != sb2.st_dev || - sb1.st_ino != sb2.st_ino) - continue; -- closedir(dp); - rval = buf; - break; - } ---- 51,56 ---- - -Or: Comment the error printing out in tc.alloc.c -Or: Compile -DSYSMALLOC - - -*************************************************************************** - -From: Scott Krotz <krotz@honey.rtsg.mot.com> - -Tcsh has been ported to minix by Scott Krotz (krotz@honey.rtsg.mot.com). -Unfortunately the minix sed is broken, so you'll have to find a way to -make tc.const.h, sh.err.h, ed.defns.h which are automatically generated. -The easiest way to create them is to make a copy from unix, copying -minix to config.h, and then 'make sh.err.h tc.const.h ed.defns.h' - -The OS/dependent files are in mi.termios.h, mi.wait.h, mi.varargs.h - -You will get some warnings, but dont worry about them, just ignore -them. After tcsh has compiled and the gcc binary is converted to a -minix binary, remember to chmem it to give it more memory - it will -need it! How much you need depends on how many aliases you have, etc.. -Add at least 50000 to it. - -One last thing. You might have to make some links for include files so -that they are in the directories that tcsh is expecting while compiling. -I forget if I had to do this or not, but it should be fairly easy to sort -out. If it cant find any include files this is probably the reason. - -If you have any problems, please tell me. I can be contacted through -e-mail at: - -krotz@honey.rtsg.mot.com - -I also read comp.os.minix on a regular basis, so a note there will get -my attention also. - -Have fun! - -ps. The termios functions are provided by Magnus Doell and Bruce Evans. - Thanks, guys! - - -From: Bob Byrnes <byrnes@ee.cornell.edu> - -This is for minix 1.5 (straight out of the box from P-H) plus the i386 -patches from Bruce Evans. - -I cross-compiled on a Sun using gcc 2.1 with a target of i386-bsd -(using the minix include files instead of the bsd versions), and then -linked the resulting object files with similarly compiled crtso.o and -libc.a on vax (little endian) using a hacked version of ld which I put -together to generate minix executables instead of bsd a.out format. -What a kludge ... - -I compiled with -O2 -Wall ... So far I haven't noticed any problems -with the optimizer. - -In case anyone is contemplating compiling tcsh with bcc (Bruce Evan's -i386 compiler that comes with the minix386 upgrade package), don't bother. -It is some serious bugs that kill tcsh when compiled for 16-bit characters. -I can provide more details of bugs that I noticed for brave souls who want -to try, but it would be hard (and why bother if you can get gcc?). - -I can make the binary available to anyone who wants it (for example people -who can't get access to a cross-compiling environment, and who don't yet -have gcc running under minix). - - -*************************************************************************** - -If your compiler cannot handle long symbol names, add - -#include "snames.h" - -to your config.h file - - -- Christos Zoulas - christos@zoulas.com - diff --git a/contrib/tcsh/README.imake b/contrib/tcsh/README.imake deleted file mode 100644 index dfe2e2fdc095..000000000000 --- a/contrib/tcsh/README.imake +++ /dev/null @@ -1,9 +0,0 @@ - -If you have imake running on your machine, you may skip steps 1 and 2 -described in the README file and try instead the process described here. -Note that imake is not supported for all the platforms yet, so this -might not work on your machine. If that is the case please let us know. -If you can send a patch that fixes the problem we would appreciate it. - -1. edit imake.config and modify the configurable parameters to your liking. -2. 'xmkmf; make depend; make' diff --git a/contrib/tcsh/WishList b/contrib/tcsh/WishList deleted file mode 100644 index a849b188449d..000000000000 --- a/contrib/tcsh/WishList +++ /dev/null @@ -1,40 +0,0 @@ -* Fix memory leak related to aliasrun(). Precmd, Cwdcmd etc. leak memory. - -* Fix migrate -site $$... Seems to hang... (aix370) - -* Fix history in loops. - -* New idea. - Lots of people seem to like the idea to be able to do sed type - operations on shell variables. Maybe we can extend the syntax - of the variable editing to understand string operations. - So I would like to be able to use: - > set a="this is a STRING" - > echo $a:[3-] - is is a STRING - > echo $a:[#] - 16 - > echo $a:[6-7] - is - > echo $a:[-2] - ng - > echo $a:[-20] - Subscript out of bounds. - > echo $a:[2-20] - Subscript out of bounds. - > echo $a:[1-1]:u$a:[2-]. - This is a string. - -* Fix pipelines that contain builtins so that they behave correctly. - I tried to fix that (most of the code is in sh.sem.c, but it works - only for non POSIX machines cause otherwise the setpgid() I added - fails). - -* Fix the correct code... How to do that involves A.I.... - -* Rewrite the whole thing. It has taken to much beating over the years... - -* Add another hook like precmd to be executed after the prompt but before the - command. - -* Add instructions for using configure in the README file. diff --git a/contrib/tcsh/Y2K b/contrib/tcsh/Y2K deleted file mode 100644 index daf6cd099393..000000000000 --- a/contrib/tcsh/Y2K +++ /dev/null @@ -1,10 +0,0 @@ -The tcsh code has been tested on a solaris-2.6 machine and a -NetBSD-1.3H machine running before, and after the year 2000. The -code has been also visually inspected for Y2K compliance problems. -Tcsh does not use time functions for anything but display purposes, -so its operation should not be affected assuming that the time -related functions of the c library work properly. - -Note: Since the last audit, tcsh-6.08.00 has been found to have -a minor problem with %y in the prompt (it will print 10 instead -of 00 in y2k). This has been fixed in tcsh-6.09.00. diff --git a/contrib/tcsh/complete.tcsh b/contrib/tcsh/complete.tcsh deleted file mode 100644 index f8e0ab9805b2..000000000000 --- a/contrib/tcsh/complete.tcsh +++ /dev/null @@ -1,708 +0,0 @@ -# -# $Id: complete.tcsh,v 1.32 1999/06/09 19:09:12 christos Exp $ -# example file using the new completion code -# - -onintr - -if (! $?prompt) goto end - -if ($?tcsh) then - if ($tcsh != 1) then - set rev=$tcsh:r - set rel=$rev:e - set pat=$tcsh:e - set rev=$rev:r - endif - if ($rev > 5 && $rel > 1) then - set complete=1 - endif - unset rev rel pat -endif - -if ($?complete) then - set noglob - set hosts - foreach f ($HOME/.hosts /usr/local/etc/csh.hosts $HOME/.rhosts /etc/hosts.equiv) - if ( -r $f ) then - set hosts = ($hosts `grep -v "+" $f | tr -s " " " " | cut -f 1`) - endif - end - if ( -r $HOME/.netrc ) then - set f=`awk '/machine/ { print $2 }' < $HOME/.netrc` >& /dev/null - set hosts=($hosts $f) - endif - unset f - if ( ! $?hosts ) then - set hosts=(hyperion.ee.cornell.edu phaeton.ee.cornell.edu \ - guillemin.ee.cornell.edu vangogh.cs.berkeley.edu \ - ftp.uu.net prep.ai.mit.edu export.lcs.mit.edu \ - labrea.stanford.edu sumex-aim.stanford.edu \ - tut.cis.ohio-state.edu) - endif - - complete ywho n/*/\$hosts/ # argument from list in $hosts - complete rsh p/1/\$hosts/ c/-/"(l n)"/ n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/ - complete ssh p/1/\$hosts/ c/-/"(l n)"/ n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/ - complete xrsh p/1/\$hosts/ c/-/"(l 8 e)"/ n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/ - complete rlogin p/1/\$hosts/ c/-/"(l 8 e)"/ n/-l/u/ - complete telnet p/1/\$hosts/ p/2/x:'<port>'/ n/*/n/ - - complete cd p/1/d/ # Directories only - complete chdir p/1/d/ - complete pushd p/1/d/ - complete popd p/1/d/ - complete pu p/1/d/ - complete po p/1/d/ - complete complete p/1/X/ # Completions only - complete uncomplete n/*/X/ - complete exec p/1/c/ # Commands only - complete trace p/1/c/ - complete strace p/1/c/ - complete which n/*/c/ - complete where n/*/c/ - complete skill p/1/c/ - complete dde p/1/c/ - complete adb c/-I/d/ n/-/c/ N/-/"(core)"/ p/1/c/ p/2/"(core)"/ - complete sdb p/1/c/ - complete dbx c/-I/d/ n/-/c/ N/-/"(core)"/ p/1/c/ p/2/"(core)"/ - complete xdb p/1/c/ - complete gdb n/-d/d/ n/*/c/ - complete ups p/1/c/ - complete set 'c/*=/f/' 'p/1/s/=' 'n/=/f/' - complete unset n/*/s/ - complete alias p/1/a/ # only aliases are valid - complete unalias n/*/a/ - complete xdvi n/*/f:*.dvi/ # Only files that match *.dvi - complete dvips n/*/f:*.dvi/ - complete tex n/*/f:*.tex/ # Only files that match *.tex - complete latex n/*/f:*.{tex,ltx}/ - complete su c/--/"(login fast preserve-environment command shell \ - help version)"/ c/-/"(f l m p c s -)"/ \ - n/{-c,--command}/c/ \ - n@{-s,--shell}@'`cat /etc/shells`'@ n/*/u/ - complete cc c/-[IL]/d/ \ - c@-l@'`\ls -1 /usr/lib/lib*.a | sed s%^.\*/lib%%\;s%\\.a\$%%`'@ \ - c/-/"(o l c g L I D U)"/ n/*/f:*.[coasi]/ - complete acc c/-[IL]/d/ \ - c@-l@'`\ls -1 /usr/lang/SC1.0/lib*.a | sed s%^.\*/lib%%\;s%\\.a\$%%`'@ \ - c/-/"(o l c g L I D U)"/ n/*/f:*.[coasi]/ - complete gcc c/-[IL]/d/ \ - c/-f/"(caller-saves cse-follow-jumps delayed-branch \ - elide-constructors expensive-optimizations \ - float-store force-addr force-mem inline \ - inline-functions keep-inline-functions \ - memoize-lookups no-default-inline \ - no-defer-pop no-function-cse omit-frame-pointer \ - rerun-cse-after-loop schedule-insns \ - schedule-insns2 strength-reduce \ - thread-jumps unroll-all-loops \ - unroll-loops syntax-only all-virtual \ - cond-mismatch dollars-in-identifiers \ - enum-int-equiv no-asm no-builtin \ - no-strict-prototype signed-bitfields \ - signed-char this-is-variable unsigned-bitfields \ - unsigned-char writable-strings call-saved-reg \ - call-used-reg fixed-reg no-common \ - no-gnu-binutils nonnull-objects \ - pcc-struct-return pic PIC shared-data \ - short-enums short-double volatile)"/ \ - c/-W/"(all aggregate-return cast-align cast-qual \ - comment conversion enum-clash error format \ - id-clash-len implicit missing-prototypes \ - no-parentheses pointer-arith return-type shadow \ - strict-prototypes switch uninitialized unused \ - write-strings)"/ \ - c/-m/"(68000 68020 68881 bitfield fpa nobitfield rtd \ - short c68000 c68020 soft-float g gnu unix fpu \ - no-epilogue)"/ \ - c/-d/"(D M N)"/ \ - c/-/"(f W vspec v vpath ansi traditional \ - traditional-cpp trigraphs pedantic x o l c g L \ - I D U O O2 C E H B b V M MD MM i dynamic \ - nodtdlib static nostdinc undef)"/ \ - c/-l/f:*.a/ \ - n/*/f:*.{c,C,cc,o,a,s,i}/ - complete g++ n/*/f:*.{C,cc,o,s,i}/ - complete CC n/*/f:*.{C,cc,o,s,i}/ - complete rm c/--/"(directory force interactive verbose \ - recursive help version)"/ c/-/"(d f i v r R -)"/ \ - n/*/f:^*.{c,cc,C,h,in}/ # Protect precious files - complete vi n/*/f:^*.[oa]/ - complete bindkey N/-a/b/ N/-c/c/ n/-[ascr]/'x:<key-sequence>'/ \ - n/-[svedlr]/n/ c/-[vedl]/n/ c/-/"(a s k c v e d l r)"/\ - n/-k/"(left right up down)"/ p/2-/b/ \ - p/1/'x:<key-sequence or option>'/ - - complete find n/-fstype/"(nfs 4.2)"/ n/-name/f/ \ - n/-type/"(c b d f p l s)"/ n/-user/u/ n/-group/g/ \ - n/-exec/c/ n/-ok/c/ n/-cpio/f/ n/-ncpio/f/ n/-newer/f/ \ - c/-/"(fstype name perm prune type user nouser \ - group nogroup size inum atime mtime ctime exec \ - ok print ls cpio ncpio newer xdev depth \ - daystart follow maxdepth mindepth noleaf version \ - anewer cnewer amin cmin mmin true false uid gid \ - ilname iname ipath iregex links lname empty path \ - regex used xtype fprint fprint0 fprintf \ - print0 printf not a and o or)"/ \ - n/*/d/ - - complete -%* c/%/j/ # fill in the jobs builtin - complete {fg,bg,stop} c/%/j/ p/1/"(%)"// - - complete limit c/-/"(h)"/ n/*/l/ - complete unlimit c/-/"(h)"/ n/*/l/ - - complete -co* p/0/"(compress)"/ # make compress completion - # not ambiguous - complete zcat n/*/f:*.Z/ - complete nm n/*/f:^*.{h,C,c,cc}/ - - complete finger c/*@/\$hosts/ n/*/u/@ - complete ping p/1/\$hosts/ - complete traceroute p/1/\$hosts/ - - complete {talk,ntalk,phone} p/1/'`users | tr " " "\012" | uniq`'/ \ - n/*/\`who\ \|\ grep\ \$:1\ \|\ awk\ \'\{\ print\ \$2\ \}\'\`/ - - complete ftp c/-/"(d i g n v)"/ n/-/\$hosts/ p/1/\$hosts/ n/*/n/ - - # this one is simple... - #complete rcp c/*:/f/ C@[./\$~]*@f@ n/*/\$hosts/: - # From Michael Schroeder <mlschroe@immd4.informatik.uni-erlangen.de> - # This one will rsh to the file to fetch the list of files! - complete rcp 'c%*@*:%`set q=$:-0;set q="$q:s/@/ /";set q="$q:s/:/ /";set q=($q " ");rsh $q[2] -l $q[1] ls -dp $q[3]\*`%' 'c%*:%`set q=$:-0;set q="$q:s/:/ /";set q=($q " ");rsh $q[1] ls -dp $q[2]\*`%' 'c%*@%$hosts%:' 'C@[./$~]*@f@' 'n/*/$hosts/:' - - complete dd c/--/"(help version)"/ c/[io]f=/f/ \ - c/conv=*,/"(ascii ebcdic ibm block unblock \ - lcase notrunc ucase swab noerror sync)"/,\ - c/conv=/"(ascii ebcdic ibm block unblock \ - lcase notrunc ucase swab noerror sync)"/,\ - c/*=/x:'<number>'/ \ - n/*/"(if of conv ibs obs bs cbs files skip file seek count)"/= - - complete nslookup p/1/x:'<host>'/ p/2/\$hosts/ - - complete ar c/[dmpqrtx]/"(c l o u v a b i)"/ p/1/"(d m p q r t x)"// \ - p/2/f:*.a/ p/*/f:*.o/ - - # these should be merged with the MH completion hacks below - jgotts - complete {sprev,snext} \ - c@+@F:$HOME/Mail/@ - - # these and interrupt handling from Jaap Vermeulen <jaap@sequent.com> - complete {rexec,rxexec,rxterm,rmterm} \ - 'p/1/$hosts/' 'c/-/(l L E)/' 'n/-l/u/' 'n/-L/f/' \ - 'n/-E/e/' 'n/*/c/' - complete kill 'c/-/S/' 'c/%/j/' \ - 'n/*/`ps -u $LOGNAME | awk '"'"'{print $1}'"'"'`/' - - # these from Marc Horowitz <marc@cam.ov.com> - complete attach 'n/-mountpoint/d/' 'n/-m/d/' 'n/-type/(afs nfs rvd ufs)/' \ - 'n/-t/(afs nfs rvd ufs)/' 'n/-user/u/' 'n/-U/u/' \ - 'c/-/(verbose quiet force printpath lookup debug map \ - nomap remap zephyr nozephyr readonly write \ - mountpoint noexplicit explicit type mountoptions \ - nosetuid setuid override skipfsck lock user host)/' \ - 'n/-e/f/' 'n/*/()/' - complete hesinfo 'p/1/u/' \ - 'p/2/(passwd group uid grplist pcap pobox cluster \ - filsys sloc service)/' - - # these from E. Jay Berkenbilt <ejb@ERA.COM> - # = isn't always followed by a filename or a path anymore - jgotts - complete ./configure 'c/--*=/f/' 'c/--{cache-file,prefix,exec-prefix,\ - bindir,sbindir,libexecdir,datadir,\ - sysconfdir,sharedstatedir,localstatedir,\ - libdir,includedir,oldincludedir,infodir,\ - mandir,srcdir}/(=)//' \ - 'c/--/(cache-file verbose prefix exec-prefix bindir \ - sbindir libexecdir datadir sysconfdir \ - sharedstatedir localstatedir libdir \ - includedir oldincludedir infodir mandir \ - srcdir)//' - complete gs 'c/-sDEVICE=/(x11 cdjmono cdj550 epson eps9high epsonc \ - dfaxhigh dfaxlow laserjet ljet4 sparc pbm \ - pbmraw pgm pgmraw ppm ppmraw bit)/' \ - 'c/-sOutputFile=/f/' 'c/-s/(DEVICE OutputFile)/=' \ - 'c/-d/(NODISPLAY NOPLATFONTS NOPAUSE)/' 'n/*/f/' - complete perl 'n/-S/c/' - complete printenv 'n/*/e/' - complete sccs p/1/"(admin cdc check clean comb deledit delget \ - delta diffs edit enter fix get help info \ - print prs prt rmdel sccsdiff tell unedit \ - unget val what)"/ - complete setenv 'p/1/e/' 'c/*:/f/' - - # these and method of setting hosts from Kimmo Suominen <kim@tac.nyc.ny.us> - if ( -f $HOME/.mh_profile && -x "`which folders`" ) then - - if ( ! $?FOLDERS ) setenv FOLDERS "`folders -fast -recurse`" - if ( ! $?MHA ) setenv MHA "`ali | sed -e '/^ /d' -e 's/:.*//'`" - - set folders = ( $FOLDERS ) - set mha = ( $MHA ) - - complete ali \ - 'c/-/(alias nolist list nonormalize normalize nouser user help)/' \ - 'n,-alias,f,' - - complete anno \ - 'c/-/(component noinplace inplace nodate date text help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete burst \ - 'c/-/(noinplace inplace noquiet quiet noverbose verbose help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete comp \ - 'c/-/(draftfolder draftmessage nodraftfolder editor noedit file form nouse use whatnowproc nowhatnowproc help)/' \ - 'c,+,$folders,' \ - 'n,-whatnowproc,c,' \ - 'n,-file,f,'\ - 'n,-form,f,'\ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete dist \ - 'c/-/(noannotate annotate draftfolder draftmessage nodraftfolder editor noedit form noinplace inplace whatnowproc nowhatnowproc help)/' \ - 'c,+,$folders,' \ - 'n,-whatnowproc,c,' \ - 'n,-form,f,'\ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete folder \ - 'c/-/(all nofast fast noheader header nopack pack noverbose verbose norecurse recurse nototal total noprint print nolist list push pop help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete folders \ - 'c/-/(all nofast fast noheader header nopack pack noverbose verbose norecurse recurse nototal total noprint print nolist list push pop help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete forw \ - 'c/-/(noannotate annotate draftfolder draftmessage nodraftfolder editor noedit filter form noformat format noinplace inplace digest issue volume whatnowproc nowhatnowproc help)/' \ - 'c,+,$folders,' \ - 'n,-whatnowproc,c,' \ - 'n,-filter,f,'\ - 'n,-form,f,'\ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete inc \ - 'c/-/(audit file noaudit nochangecur changecur file form format nosilent silent notruncate truncate width help)/' \ - 'c,+,$folders,' \ - 'n,-audit,f,'\ - 'n,-form,f,' - - complete mark \ - 'c/-/(add delete list sequence nopublic public nozero zero help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete mhmail \ - 'c/-/(body cc from subject help)/' \ - 'n,-cc,$mha,' \ - 'n,-from,$mha,' \ - 'n/*/$mha/' - - complete mhpath \ - 'c/-/(help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete msgchk \ - 'c/-/(nodate date nonotify notify help)/' - - complete msh \ - 'c/-/(prompt noscan scan notopcur topcur help)/' - - complete next \ - 'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \ - 'c,+,$folders,' \ - 'n,-moreproc,c,' \ - 'n,-showproc,c,' \ - 'n,-form,f,' - - complete packf \ - 'c/-/(file help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete pick \ - 'c/-/(and or not lbrace rbrace cc date from search subject to othercomponent after before datefield sequence nopublic public nozero zero nolist list help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete prev \ - 'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \ - 'c,+,$folders,' \ - 'n,-moreproc,c,' \ - 'n,-showproc,c,' \ - 'n,-form,f,' - - complete prompter \ - 'c/-/(erase kill noprepend prepend norapid rapid nodoteof doteof help)/' - - complete refile \ - 'c/-/(draft nolink link nopreserve preserve src file help)/' \ - 'c,+,$folders,' \ - 'n,-file,f,'\ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete rmf \ - 'c/-/(nointeractive interactive help)/' \ - 'c,+,$folders,' - - complete rmm \ - 'c/-/(help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete scan \ - 'c/-/(noclear clear form format noheader header width noreverse reverse file help)/' \ - 'c,+,$folders,' \ - 'n,-form,f,'\ - 'n,-file,f,'\ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete send \ - 'c/-/(alias draft draftfolder draftmessage nodraftfolder filter nofilter noformat format noforward forward nomsgid msgid nopush push noverbose verbose nowatch watch width help)/' \ - 'n,-alias,f,'\ - 'n,-filter,f,' - - complete show \ - 'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \ - 'c,+,$folders,' \ - 'n,-moreproc,c,' \ - 'n,-showproc,c,' \ - 'n,-form,f,'\ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete sortm \ - 'c/-/(datefield textfield notextfield limit nolimit noverbose verbose help)/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete vmh \ - 'c/-/(prompt vmhproc novmhproc help)/' \ - 'n,-vmhproc,c,' - - complete whatnow \ - 'c/-/(draftfolder draftmessage nodraftfolder editor noedit prompt help)/' - - complete whom \ - 'c/-/(alias nocheck check draft draftfolder draftmessage nodraftfolder help)/' \ - 'n,-alias,f,' - - complete plum \ - 'c/-/()/' \ - 'c,+,$folders,' \ - 'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,' - - complete mail \ - 'c/-/()/' \ - 'n/*/$mha/' - - endif - - #from Dan Nicolaescu <dann@ics.uci.edu> - if ( $?MODULESHOME ) then - - alias Compl_module ' set q = "$MODULEPATH:as/:/ /" ; find $q -name .version -o -name .modulea\* -prune -o -print | sed `echo "-e s@"$MODULEPATH:as%:%/\*@@g -e s@%"/\*@@g"`' - - complete module 'p%1%(add load unload switch display avail use unuse update purge list clear help initadd initrm initswitch initlist initclear)%' \ - 'n%unload%`echo "$LOADEDMODULES:as/:/ /"`%' \ - 'n%{lo*,sw*,di*,he*,inita*,initr*,inits*}%`eval Compl_module`%' \ - 'N%{sw*,initsw*}%`eval Compl_module`%' 'C%-%(-append)%' 'n%{use,unu*,av*}%d%' 'n%-append%d%' \ - 'C%[^-]*%`eval Compl_module`%' - endif - - # these from Tom Warzeka <waz@quahog.npt.nuwc.navy.mil> - # you may need to set the following variables for your host - set _elispdir = /usr/local/share/emacs/20.2/lisp # GNU Emacs lisp directory - set _maildir = /var/spool/mail # Post Office: /var/spool/mail or /usr/mail - set _ypdir = /var/yp # directory where NIS (YP) maps are kept - set _domain = "`domainname`" - - # this one works but is slow and doesn't descend into subdirectories - # complete cd C@[./\$~]*@d@ \ - # p@1@'`\ls -1F . $cdpath | grep /\$ | sort -u`'@ n@*@n@ - - if ( -r /etc/shells ) then - complete setenv p@1@e@ n@DISPLAY@\$hosts@: n@SHELL@'`cat /etc/shells`'@ - else - complete setenv p@1@e@ n@DISPLAY@\$hosts@: - endif - complete unsetenv n/*/e/ - - if (-r $HOME/.mailrc) then - complete mail c/-/"(e i f n s u v)"/ c/*@/\$hosts/ \ - c@+@F:$HOME/Mail@ C@[./\$~]@f@ n/-s/x:'<subject>'/ \ - n@-u@T:$_maildir@ n/-f/f/ \ - n@*@'`sed -n s/alias//p $HOME/.mailrc | tr -s " " " " | cut -f 2`'@ - else - complete mail c/-/"(e i f n s u v)"/ c/*@/\$hosts/ \ - c@+@F:$HOME/Mail@ C@[./\$~]@f@ n/-s/x:'<subject>'/ \ - n@-u@T:$_maildir@ n/-f/f/ n/*/u/ - endif - - complete man n@1@'`\ls -1 /usr/man/man1 | sed s%\\.1.\*\$%%`'@ \ - n@2@'`\ls -1 /usr/man/man2 | sed s%\\.2.\*\$%%`'@ \ - n@3@'`\ls -1 /usr/man/man3 | sed s%\\.3.\*\$%%`'@ \ - n@4@'`\ls -1 /usr/man/man4 | sed s%\\.4.\*\$%%`'@ \ - n@5@'`\ls -1 /usr/man/man5 | sed s%\\.5.\*\$%%`'@ \ - n@6@'`\ls -1 /usr/man/man6 | sed s%\\.6.\*\$%%`'@ \ - n@7@'`\ls -1 /usr/man/man7 | sed s%\\.7.\*\$%%`'@ \ - n@8@'`\ls -1 /usr/man/man8 | sed s%\\.8.\*\$%%`'@ \ - n@9@'`[ -r /usr/man/man9 ] && \ls -1 /usr/man/man9 | sed s%\\.9.\*\$%%`'@ \ - n@0@'`[ -r /usr/man/man0 ] && \ls -1 /usr/man/man0 | sed s%\\.0.\*\$%%`'@ \ - n@new@'`[ -r /usr/man/mann ] && \ls -1 /usr/man/mann | sed s%\\.n.\*\$%%`'@ \ - n@old@'`[ -r /usr/man/mano ] && \ls -1 /usr/man/mano | sed s%\\.o.\*\$%%`'@ \ -n@local@'`[ -r /usr/man/manl ] && \ls -1 /usr/man/manl | sed s%\\.l.\*\$%%`'@ \ -n@public@'`[ -r /usr/man/manp ]&& \ls -1 /usr/man/manp | sed s%\\.p.\*\$%%`'@ \ - c/-/"(- f k M P s t)"/ n/-f/c/ n/-k/x:'<keyword>'/ n/-[MP]/d/ \ - N@-[MP]@'`\ls -1 $:-1/man? | sed s%\\..\*\$%%`'@ n/*/c/ - - complete ps c/-t/x:'<tty>'/ c/-/"(a c C e g k l S t u v w x)"/ \ - n/-k/x:'<kernel>'/ N/-k/x:'<core_file>'/ n/*/x:'<PID>'/ - complete compress c/-/"(c f v b)"/ n/-b/x:'<max_bits>'/ n/*/f:^*.Z/ - complete uncompress c/-/"(c f v)"/ n/*/f:*.Z/ - - complete xhost c/[+-]/\$hosts/ n/*/\$hosts/ - - # these conform to the latest GNU versions available at press time ... - # updates by John Gotts <jgotts@engin.umich.edu> - - complete emacs c/-/"(batch d f funcall i insert kill l load \ - no-init-file nw q t u user)"/ c/+/x:'<line_number>'/ \ - n/-d/x:'<display>'/ n/-f/x:'<lisp_function>'/ n/-i/f/ \ - n@-l@F:$_elispdir@ n/-t/x:'<terminal>'/ \ - n/-u/u/ n/*/f:^*[\#~]/ - - complete gzcat c/--/"(force help license quiet version)"/ \ - c/-/"(f h L q V -)"/ n/*/f:*.{gz,Z,z,zip}/ - complete gzip c/--/"(stdout to-stdout decompress uncompress \ - force help list license no-name quiet recurse \ - suffix test verbose version fast best)"/ \ - c/-/"(c d f h l L n q r S t v V 1 2 3 4 5 6 7 8 9 -)"/\ - n/{-S,--suffix}/x:'<file_name_suffix>'/ \ - n/{-d,--{de,un}compress}/f:*.{gz,Z,z,zip,taz,tgz}/ \ - N/{-d,--{de,un}compress}/f:*.{gz,Z,z,zip,taz,tgz}/ \ - n/*/f:^*.{gz,Z,z,zip,taz,tgz}/ - complete {gunzip,ungzip} c/--/"(stdout to-stdout force help list license \ - no-name quiet recurse suffix test verbose version)"/ \ - c/-/"(c f h l L n q r S t v V -)"/ \ - n/{-S,--suffix}/x:'<file_name_suffix>'/ \ - n/*/f:*.{gz,Z,z,zip,taz,tgz}/ - complete zgrep c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\ - c/-/"(A b B c C e f h i l n s v V w x)"/ \ - p/1/x:'<limited_regular_expression>'/ N/-*e/f/ \ - n/-*e/x:'<limited_regular_expression>'/ n/-*f/f/ n/*/f/ - complete zegrep c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\ - c/-/"(A b B c C e f h i l n s v V w x)"/ \ - p/1/x:'<full_regular_expression>'/ N/-*e/f/ \ - n/-*e/x:'<full_regular_expression>'/ n/-*f/f/ n/*/f/ - complete zfgrep c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\ - c/-/"(A b B c C e f h i l n s v V w x)"/ \ - p/1/x:'<fixed_string>'/ N/-*e/f/ \ - n/-*e/x:'<fixed_string>'/ n/-*f/f/ n/*/f/ - complete znew c/-/"(f t v 9 P K)"/ n/*/f:*.Z/ - complete zmore n/*/f:*.{gz,Z,z,zip}/ - complete zfile n/*/f:*.{gz,Z,z,zip,taz,tgz}/ - complete ztouch n/*/f:*.{gz,Z,z,zip,taz,tgz}/ - complete zforce n/*/f:^*.{gz,tgz}/ - - complete grep c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\ - c/--/"(extended-regexp fixed-regexp basic-regexp \ - regexp file ignore-case word-regexp line-regexp \ - no-messages revert-match version help byte-offset \ - line-number with-filename no-filename quiet silent \ - text directories recursive files-without-match \ - files-with-matches count before-context after-context \ - context binary unix-byte-offsets)"/ \ - c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \ - v w x)"/ \ - p/1/x:'<limited_regular_expression>'/ N/-*e/f/ \ - n/-*e/x:'<limited_regular_expression>'/ n/-*f/f/ n/*/f/ - complete egrep c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\ - c/--/"(extended-regexp fixed-regexp basic-regexp \ - regexp file ignore-case word-regexp line-regexp \ - no-messages revert-match version help byte-offset \ - line-number with-filename no-filename quiet silent \ - text directories recursive files-without-match \ - files-with-matches count before-context after-context \ - context binary unix-byte-offsets)"/ \ - c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \ - v w x)"/ \ - p/1/x:'<full_regular_expression>'/ N/-*e/f/ \ - n/-*e/x:'<full_regular_expression>'/ n/-*f/f/ n/*/f/ - complete fgrep c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\ - c/--/"(extended-regexp fixed-regexp basic-regexp \ - regexp file ignore-case word-regexp line-regexp \ - no-messages revert-match version help byte-offset \ - line-number with-filename no-filename quiet silent \ - text directories recursive files-without-match \ - files-with-matches count before-context after-context \ - context binary unix-byte-offsets)"/ \ - c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \ - v w x)"/ \ - p/1/x:'<fixed_string>'/ N/-*e/f/ \ - n/-*e/x:'<fixed_string>'/ n/-*f/f/ n/*/f/ - - complete users c/--/"(help version)"/ p/1/x:'<accounting_file>'/ - complete who c/--/"(heading idle count mesg message writable help \ - version)"/ c/-/"(H i m q s T w u -)"/ \ - p/1/x:'<accounting_file>'/ n/am/"(i)"/ n/are/"(you)"/ - - complete chown c/--/"(changes dereference no-dereference silent \ - quiet reference recursive verbose help version)"/ \ - c/-/"(c f h R v -)"/ C@[./\$~]@f@ c/*[.:]/g/ \ - n/-/u/. p/1/u/. n/*/f/ - complete chgrp c/--/"(changes no-dereference silent quiet reference \ - recursive verbose help version)"/ \ - c/-/"(c f h R v -)"/ n/-/g/ p/1/g/ n/*/f/ - complete chmod c/--/"(changes silent quiet verbose reference \ - recursive help version)"/ c/-/"(c f R v)"/ - complete df c/--/"(all block-size human-readable si inodes \ - kilobytes local megabytes no-sync portability sync \ - type print-type exclude-type help version)"/ \ - c/-/"(a H h i k l m P T t v x)"/ - complete du c/--/"(all block-size bytes total dereference-args \ - human-readable si kilobytes count-links dereference \ - megabytes separate-dirs summarize one-file-system \ - exclude-from exclude max-depth help version"/ \ - c/-/"(a b c D H h k L l m S s X x)"/ - - complete cat c/--/"(number-nonblank number squeeze-blank show-all \ - show-nonprinting show-ends show-tabs help version)"/ \ - c/-/"(A b E e n s T t u v -)"/ n/*/f/ - complete mv c/--/"(backup force interactive update verbose suffix \ - version-control help version)"/ \ - c/-/"(b f i S u V v -)"/ \ - n/{-S,--suffix}/x:'<suffix>'/ \ - n/{-V,--version-control}/"(t numbered nil existing \ - never simple)"/ n/-/f/ N/-/d/ p/1/f/ p/2/d/ n/*/f/ - complete cp c/--/"(archive backup no-dereference force \ - interactive link preserve parents sparse recursive \ - symbolic-link suffix update verbose version-control \ - one-file-system help version)"/ \ - c/-/"(a b d f i l P p R r S s u V v x -)"/ \ - n/-*r/d/ n/{-S,--suffix}/x:'<suffix>'/ \ - n/{-V,--version-control}/"(t numbered nil existing \ - never simple)"/ n/-/f/ N/-/d/ p/1/f/ p/2/d/ n/*/f/ - complete ln c/--/"(backup directory force no-dereference \ - interactive symbolic suffix verbose version-control \ - help version)"/ \ - c/-/"(b d F f i n S s V v -)"/ \ - n/{-S,--suffix}/x:'<suffix>'/ \ - n/{-V,--version-control}/"(t numbered nil existing \ - never simple)"/ n/-/f/ N/-/x:'<link_name>'/ \ - p/1/f/ p/2/x:'<link_name>'/ - complete touch c/--/"(date reference time help version)"/ \ - c/-/"(a c d f m r t -)"/ \ - n/{-d,--date}/x:'<date_string>'/ \ - c/--time/"(access atime mtime modify use)"/ \ - n/{-r,--file}/f/ n/-t/x:'<time_stamp>'/ n/*/f/ - complete mkdir c/--/"(mode parents verbose help version)"/ \ - c/-/"(p m -)"/ \ - n/{-m,--mode}/x:'<mode>'/ n/*/d/ - complete rmdir c/--/"(ignore-fail-on-non-empty parents verbose help \ - version)"/ c/-/"(p -)"/ n/*/d/ - - complete tar c/-[Acru]*/"(b B C f F g G h i l L M N o P \ - R S T v V w W X z Z)"/ \ - c/-[dtx]*/"( B C f F g G i k K m M O p P \ - R s S T v w x X z Z)"/ \ - p/1/"(A c d r t u x -A -c -d -r -t -u -x \ - --catenate --concatenate --create --diff --compare \ - --delete --append --list --update --extract --get \ - --help --version)"/ \ - c/--/"(catenate concatenate create diff compare \ - delete append list update extract get atime-preserve \ - block-size read-full-blocks directory checkpoint file \ - force-local info-script new-volume-script incremental \ - listed-incremental dereference ignore-zeros \ - ignore-failed-read keep-old-files starting-file \ - one-file-system tape-length modification-time \ - multi-volume after-date newer old-archive portability \ - to-stdout same-permissions preserve-permissions \ - absolute-paths preserve record-number remove-files \ - same-order preserve-order same-owner sparse \ - files-from null totals verbose label version \ - interactive confirmation verify exclude exclude-from \ - compress uncompress gzip ungzip use-compress-program \ - block-compress help version)"/ \ - c/-/"(b B C f F g G h i k K l L m M N o O p P R s S \ - T v V w W X z Z 0 1 2 3 4 5 6 7 -)"/ \ - n/-c*f/x:'<new_tar_file, device_file, or "-">'/ \ - n/{-[Adrtux]*f,--file}/f:*.tar/ \ - N/{-x*f,--file}/'`tar -tf $:-1`'/ \ - n/--use-compress-program/c/ \ - n/{-b,--block-size}/x:'<block_size>'/ \ - n/{-V,--label}/x:'<volume_label>'/ \ - n/{-N,--{after-date,newer}}/x:'<date>'/ \ - n/{-L,--tape-length}/x:'<tape_length_in_kB>'/ \ - n/{-C,--directory}/d/ \ - N/{-C,--directory}/'`\ls $:-1`'/ \ - n/-[0-7]/"(l m h)"/ - - # SVR4 filesystems - #complete mount c/-/"(a F m o O p r v V)"/ n/-p/n/ n/-v/n/ \ - # n/-o/x:'<FSType_options>'/ \ - # n@-F@'`\ls -1 /usr/lib/fs`'@ \ - # n@*@'`grep -v "^#" /etc/vfstab | tr -s " " " " | cut -f 3`'@ - #complete umount c/-/"(a o V)"/ n/-o/x:'<FSType_options>'/ \ - # n/*/'`mount | cut -d " " -f 1`'/ - #complete mountall c/-/"(F l r)"/ n@-F@'`\ls -1 /usr/lib/fs`'@ - #complete umountall c/-/"(F h k l r s)"/ n@-F@'`\ls -1 /usr/lib/fs`'@ \ - # n/-h/'`df -k | cut -s -d ":" -f 1 | sort -u`'/ - # BSD 4.3 filesystems - complete mount c/-/"(a r t v)"/ n/-t/"(4.2 nfs)"/ \ - n@*@'`grep -v "^#" /etc/fstab | tr -s " " " " | cut -f 2`'@ - complete umount c/-/"(a h t v)"/ n/-t/"(4.2 nfs)"/ \ - n/-h/'`df | cut -s -d ":" -f 1 | sort -u`'/ \ - n/*/'`mount | cut -d " " -f 3`'/ - # BSD 4.2 filesystems - #complete mount c/-/"(a r t v)"/ n/-t/"(ufs nfs)"/ \ - # n@*@'`cut -d ":" -f 2 /etc/fstab`'@ - #complete umount c/-/"(a h t v)"/ n/-t/"(ufs nfs)"/ \ - # n/-h/'`df | cut -s -d ":" -f 1 | sort -u`'/ \ - # n/*/'`mount | cut -d " " -f 3`'/ - - # these deal with NIS (formerly YP); if it's not running you don't need 'em - complete domainname p@1@D:$_ypdir@" " n@*@n@ - complete ypcat c@-@"(d k t x)"@ n@-x@n@ n@-d@D:$_ypdir@" " \ - N@-d@\`\\ls\ -1\ $_ypdir/\$:-1\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@ \ - n@*@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@ - complete ypmatch c@-@"(d k t x)"@ n@-x@n@ n@-d@D:$_ypdir@" " \ - N@-d@x:'<key ...>'@ n@-@x:'<key ...>'@ p@1@x:'<key ...>'@ \ - n@*@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@ - complete ypwhich c@-@"(d m t x V1 V2)"@ n@-x@n@ n@-d@D:$_ypdir@" " \ - n@-m@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@ \ - N@-m@n@ n@*@\$hosts@ - - # there's no need to clutter the user's shell with these - unset _elispdir _maildir _ypdir _domain - - complete make \ - 'n/-f/f/' \ - 'c/*=/f/' \ - 'n@*@`cat -s GNUmakefile Makefile makefile |& sed -n -e "/No such file/d" -e "/^[^ #].*:/s/:.*//p"`@' - - if ( -f /etc/printcap ) then - set printers=(`sed -n -e "/^[^ #].*:/s/:.*//p" /etc/printcap`) - - complete lpr 'c/-P/$printers/' - complete lpq 'c/-P/$printers/' - complete lprm 'c/-P/$printers/' - complete lpquota 'p/1/(-Qprlogger)/' 'c/-P/$printers/' - complete dvips 'c/-P/$printers/' 'n/-o/f:*.{ps,PS}/' 'n/*/f:*.dvi/' - endif - - unset noglob - unset complete -endif - -end: - onintr diff --git a/contrib/tcsh/config.h.in b/contrib/tcsh/config.h.in deleted file mode 100644 index 61025bcef7b5..000000000000 --- a/contrib/tcsh/config.h.in +++ /dev/null @@ -1 +0,0 @@ -/* config.h.in. Generated automatically from configure.in by autoheader. */ diff --git a/contrib/tcsh/config_f.h b/contrib/tcsh/config_f.h deleted file mode 100644 index 4a8401ce52fa..000000000000 --- a/contrib/tcsh/config_f.h +++ /dev/null @@ -1,193 +0,0 @@ -/* $Header: /src/pub/tcsh/config_f.h,v 3.22 1999/05/11 13:07:42 christos Exp $ */ -/* - * config_f.h -- configure various defines for tcsh - * - * This is included by config.h. - * - * Edit this to match your particular feelings; this is set up to the - * way I like it. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_config_f -#define _h_config_f - -/* - * SHORT_STRINGS Use 16 bit characters instead of 8 bit chars - * This fixes up quoting problems and eases implementation - * of nls... - * - */ -#define SHORT_STRINGS - -/* - * NLS: Use Native Language System - * Routines like setlocale() are needed - * if you don't have <locale.h>, you don't want - * to define this. - */ -#define NLS - -/* - * NLS_CATALOGS:Use Native Language System catalogs for - * international messages. - * Routines like catopen() are needed - * if you don't have <nl_types.h>, you don't want - * to define this. - */ -#undef NLS_CATALOGS - -/* - * LOGINFIRST Source ~/.login before ~/.cshrc - */ -#undef LOGINFIRST - -/* - * VIDEFAULT Make the VI mode editor the default - */ -#undef VIDEFAULT - -/* - * KAI use "bye" command and rename "log" to "watchlog" - */ -#undef KAI - -/* - * TESLA drops DTR on logout. Historical note: - * tesla.ee.cornell.edu was a vax11/780 with a develcon - * switch that sometimes would not hang up. - */ -#undef TESLA - -/* - * DOTLAST put "." last in the default path, for security reasons - */ -#define DOTLAST - -/* - * NODOT Don't put "." in the default path, for security reasons - */ -#undef NODOT - -/* - * AUTOLOGOUT tries to determine if it should set autologout depending - * on the name of the tty, and environment. - * Does not make sense in the modern window systems! - */ -#define AUTOLOGOUT - -/* - * SUSPENDED Newer shells say 'Suspended' instead of 'Stopped'. - * Define to get the same type of messages. - */ -#define SUSPENDED - -/* - * KANJI Ignore meta-next, and the ISO character set. Should - * be used with SHORT_STRINGS - * - */ -#undef KANJI - -/* - * DSPMBYTE add variable "dspmbyte" and display multi-byte string at - * only output, when "dspmbyte" is set. Should be used with - * KANJI - */ -#undef DSPMBYTE - -/* - * MBYTEDEBUG when "dspmbyte" is changed, set multi-byte checktable to - * variable "mbytemap". - * (use for multi-byte table check) - */ -#undef MBYTEDEBUG - -/* - * NEWGRP Provide a newgrp builtin. - */ -#undef NEWGRP - -/* - * SYSMALLOC Use the system provided version of malloc and friends. - * This can be much slower and no memory statistics will be - * provided. - */ -#if defined(__MACHTEN__) || defined(PURIFY) || defined(MALLOC_TRACE) || defined(_OSD_POSIX) -# define SYSMALLOC -#else -# undef SYSMALLOC -#endif - -/* - * USE_ACCESS Use access(2) rather than stat(2) when POSIX is defined. - * POSIX says to use stat, but stat(2) is less accurate - * than access(2) for determining file access. - */ -#undef USE_ACCESS - -/* - * REMOTEHOST Try to determine the remote host that we logged in from - * using first getpeername, and then the utmp file. If - * successful, set $REMOTEHOST to the name or address of the - * host - */ -#define REMOTEHOST - -/* - * COLOR_LS_F Do you want to use builtin color ls-F ? - * - */ -#define COLOR_LS_F - -/* - * COLORCAT Do you want to colorful message ? - * - */ -#undef COLORCAT - -/* - * RCSID This defines if we want rcs strings in the binary or not - * - */ -#if !defined(lint) && !defined(SABER) && !defined(__CLCC__) -# ifndef __GNUC__ -# define RCSID(id) static char *rcsid = (id); -# else -# define RCSID(id) static char *rcsid(const char *a) { return rcsid(a = id); } -# endif /* !__GNUC__ */ -#else -# define RCSID(id) /* Nothing */ -#endif /* !lint && !SABER */ - -#endif /* _h_config_f */ diff --git a/contrib/tcsh/csh-mode.el b/contrib/tcsh/csh-mode.el deleted file mode 100644 index 20fee71287fc..000000000000 --- a/contrib/tcsh/csh-mode.el +++ /dev/null @@ -1,935 +0,0 @@ -;; csh-mode.el --- csh (and tcsh) script editing mode for Emacs. -;; -;; Version: 1.2 -;; Date: April 2, 1999 -;; Maintainer: Dan Harkless <dan@wave.eng.uci.edu> -;; -;; Description: -;; csh and tcsh script editing mode for Emacs. -;; -;; Installation: -;; Put csh-mode.el in some directory in your load-path and load it. -;; -;; Usage: -;; This major mode assists shell script writers with indentation -;; control and control structure construct matching in much the same -;; fashion as other programming language modes. Invoke describe-mode -;; for more information. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; Author key: -;; DH - Dan Harkless <dan@wave.eng.uci.edu> -;; CM - Carlo Migliorini <migliorini@sodalia.it> -;; JR - Jack Repenning <jackr@sgi.com> -;; GE - Gary Ellison <Gary.F.Ellison@att.com> -;; -;; *** REVISION HISTORY *** -;; -;; DATE MOD. BY REASON FOR MODIFICATION -;; --------- -- -------------------------------------------------------------- -;; 2 Apr 99 DH 1.2: Noticed an out-of-date comment referencing .bashrc etc. -;; 11 Dec 96 DH 1.1: ksh-mode just indented continuation lines by 1 space. -;; csh-mode looks at the first line and indents properly to line -;; up under the open-paren, quote, or command. -;; 11 Dec 96 DH Added fontification for history substitutions. -;; 10 Dec 96 DH Added indentation and fontification for labels. Added -;; fontification for variables and backquoted strings. -;; 9 Dec 96 DH 1.0: Brought csh-mode up to the level of functionality of -;; the original ksh-mode. -;; 7 Oct 96 CM 0.1: Hacked ksh-mode.el into minimally functional csh-mode.el -;; by doing search-and-replace and some keyword changes. -;; 8 Aug 96 JR (Last modification to ksh-mode 2.6.) -;; [...] -;; 19 Jun 92 GE (Conception of ksh-mode.) -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - - -(defconst csh-mode-version "1.2" - "*Version number of this version of csh-mode") - -(defvar csh-mode-hook - '(lambda () - (auto-fill-mode 1)) - "Hook to run each time csh-mode is entered.") - - -;; -;; -------------------------------------------> Variables controlling completion -;; -(defvar csh-completion-list '()) -(make-variable-buffer-local 'csh-completion-list) -(set-default 'csh-completion-list '()) -;; -;; -type- : type number, 0:misc, 1:variable, 2:function -;; -regexp-: regexp used to parse the script -;; -match- : used by match-beginning/end to pickup target -;; -(defvar csh-completion-type-misc 0) -(defvar csh-completion-regexp-var "\\([A-Za-z_0-9]+\\)=") -(defvar csh-completion-type-var 1) -(defvar csh-completion-match-var 1) -(defvar csh-completion-regexp-var2 "\\$\\({\\|{#\\)?\\([A-Za-z_0-9]+\\)[#%:}]?") -(defvar csh-completion-match-var2 2) -(defvar csh-completion-regexp-function - "\\(function\\)?[ \t]*\\([A-Za-z_0-9]+\\)[ \t]*([ \t]*)") -(defvar csh-completion-type-function 2) -(defvar csh-completion-match-function 2) - - -;; -;; ------------------------------------> Variables controlling indentation style -;; -(defvar csh-indent 4 - "*Indentation of csh statements with respect to containing block. A value -of nil indicates compound list keyword \(\"do\" and \"then\"\) alignment.") - -(defvar csh-case-item-offset csh-indent - "*Additional indentation for case items within a case statement.") -(defvar csh-case-indent nil - "*Additional indentation for statements under case items.") -(defvar csh-comment-regexp "^\\s *#" - "*Regular expression used to recognize comments. Customize to support -csh-like languages.") -(defvar csh-match-and-tell t - "*If non-nil echo in the minibuffer the matching compound command -for the \"breaksw\", \"end\", or \"endif\".") -(defvar csh-tab-always-indent t - "*Controls the operation of the TAB key. If t (the default), always -reindent the current line. If nil, indent the current line only if -point is at the left margin or in the line's indentation; otherwise -insert a tab.") - - -;; -;; ----------------------------------------> Constants containing syntax regexps -;; -(defconst csh-case-default-re - "^\\s *\\(case\\|default\\)\\b" - "Regexp used to locate grouping keywords case and default" ) - -(defconst csh-case-item-re "^\\s *\\(case .*\\|default\\):" - "Regexp used to match case-items") - -(defconst csh-end-re "^\\s *end\\b" - "Regexp used to match keyword: end") - -(defconst csh-endif-re "^\\s *endif\\b" - "Regexp used to match keyword: endif") - -(defconst csh-endsw-re "^\\s *endsw\\b" - "Regexp used to match keyword: endsw") - -(defconst csh-else-re "^\\s *\\belse\\(\\b\\|$\\)" - "Regexp used to match keyword: else") - -(defconst csh-else-if-re "^\\s *\\belse if\\(\\b\\|$\\)" - "Regexp used to match keyword pair: else if") - -(defconst csh-if-re "^\\s *if\\b.+\\(\\\\\\|\\bthen\\b\\)" - "Regexp used to match non-one-line if statements") - -(defconst csh-iteration-keywords-re "^[^#\n]*\\s\"*\\b\\(while\\|foreach\\)\\b" - "Match one of the keywords: while, foreach") - -(defconst csh-keywords-re - "^\\s *\\(else\\b\\|foreach\\b\\|if\\b.+\\(\\\\\\|\\bthen\\b\\)\\|switch\\b\\|while\\b\\)" - "Regexp used to detect compound command keywords: else, if, foreach, while") - -(defconst csh-label-re "^\\s *[^!#$\n ]+:" - "Regexp used to match flow-control labels") - -(defconst csh-multiline-re "^.*\\\\$" - "Regexp used to match a line with a statement using more lines.") - -(defconst csh-switch-re "^\\s *switch\\b" - "Regexp used to match keyword: switch") - - -;; -;; ----------------------------------------> Variables controlling fontification -;; -(defvar csh-keywords '("@" "alias" "bg" "break" "breaksw" "case" "cd" "chdir" - "continue" "default" "dirs" "echo" "else" "end" "endif" - "endsw" "eval" "exec" "exit" "fg" "foreach" "glob" "goto" - "hashstat" "history" "if" "jobs" "kill" "limit" "login" - "logout" "limit" "notify" "onintr" "popd" "printenv" - "pushd" "rehash" "repeat" "set" "setenv" "shift" "source" - "stop" "suspend" "switch" "then" "time" "umask" "unalias" - "unhash" "unlimit" "unset" "unsetenv" "wait" "while" - ;; tcsh-keywords - "alloc" "bindkey" "builtins" "complete" "echotc" - "filetest" "hup" "log" "ls-F" "nice" "nohup" "sched" - "settc" "setty" "telltc" "uncomplete" "where" "which")) - -(require 'font-lock) ; need to do this before referring to font-lock-* below - -(defconst csh-font-lock-keywords - ;; NOTE: The order of some of the items in this list is significant. Do not - ;; alphabetize or otherwise blindly rearrange. - (list - ;; Comments on line 1, which are missed by syntactic fontification. - '("^#.*" 0 font-lock-comment-face) - - ;; Label definitions (1 means first parenthesized exp in regexp). - '("^\\s *\\([^!#$\n ]+\\):" 1 font-lock-function-name-face) - - ;; Label references. - '("\\b\\(goto\\|onintr\\)\\b\\s +\\([^!#$ \n\t]+\\)" - 2 font-lock-function-name-face) - - ;; Variable settings. - '("\\(@\\|set\\|setenv\\)\\s +\\([0-9A-Za-z_]+\\b\\)" - 2 font-lock-variable-name-face) - - ;; Variable references not inside of strings. - '("\\$[][0-9A-Za-z_#:?]+" 0 font-lock-variable-name-face) - - ;; Backquoted strings. 'keep' means to just fontify non-fontified text. - '("`\\(.*\\)`" 1 font-lock-reference-face keep) - - ;; NOTE: The following variables need to be anchored to the beginning of - ;; line to prevent re-fontifying text in comments. Due to this, we - ;; can only catch a finite number of occurrences. More can be added. - ;; The 't' means to override previous fontification. - ;; - ;; Variable references inside of " strings. - '("^[^#\n]*\".*\\(\\$[][0-9A-Za-z_#:?]+\\).*\"" - 1 font-lock-variable-name-face t) ; 1 - '("^[^#\n]*\".*\\(\\$[][0-9A-Za-z_#:?]+\\).*\\$[][0-9A-Za-z_#:?]+.*\"" - 1 font-lock-variable-name-face t) ; 2 - (cons (concat "^[^#\n]*\".*\\(\\$[][0-9A-Za-z_#:?]+\\).*" - "\\$[][0-9A-Za-z_#:?]+.*\\$[][0-9A-Za-z_#:?]+.*\"") - (list 1 font-lock-variable-name-face t)) ; 3 - ;; - ;; History substitutions. - '("^![^~= \n\t]+" 0 font-lock-reference-face t) ; BOL - '("^[^#\n]*[^#\\\n]\\(![^~= \n\t]+\\)" 1 font-lock-reference-face t) ; 1 - '("^[^#\n]*[^#\\\n]\\(![^~= \n\t]+\\).*![^~= \n\t]+" - 1 font-lock-reference-face t) ; 2 - - ;; Keywords. - (cons (concat - "\\(\\<" - (mapconcat 'identity csh-keywords "\\>\\|\\<") - "\\>\\)") - 1) - )) - -(put 'csh-mode 'font-lock-keywords 'csh-font-lock-keywords) - - -;; -;; -------------------------------------------------------> Mode-specific tables -;; -(defvar csh-mode-abbrev-table nil - "Abbrev table used while in csh mode.") -(define-abbrev-table 'csh-mode-abbrev-table ()) - -(defvar csh-mode-map nil - "Keymap used in csh mode") -(if csh-mode-map - () - (setq csh-mode-map (make-sparse-keymap)) -;;(define-key csh-mode-map "\177" 'backward-delete-char-untabify) - (define-key csh-mode-map "\C-c\t" 'csh-completion-init-and-pickup) - (define-key csh-mode-map "\C-j" 'reindent-then-newline-and-indent) - (define-key csh-mode-map "\e\t" 'csh-complete-symbol) - (define-key csh-mode-map "\n" 'reindent-then-newline-and-indent) - (define-key csh-mode-map '[return] 'reindent-then-newline-and-indent) - (define-key csh-mode-map "\t" 'csh-indent-command) -;;(define-key csh-mode-map "\t" 'csh-indent-line) - ) - -(defvar csh-mode-syntax-table nil - "Syntax table used while in csh mode.") -(if csh-mode-syntax-table - ;; If it's already set up, don't change it. - () - ;; Else, create it from the standard table and modify entries that need to be. - (setq csh-mode-syntax-table (make-syntax-table)) - (modify-syntax-entry ?& "." csh-mode-syntax-table) ; & -punctuation - (modify-syntax-entry ?* "." csh-mode-syntax-table) ; * -punctuation - (modify-syntax-entry ?- "." csh-mode-syntax-table) ; - -punctuation - (modify-syntax-entry ?= "." csh-mode-syntax-table) ; = -punctuation - (modify-syntax-entry ?+ "." csh-mode-syntax-table) ; + -punctuation - (modify-syntax-entry ?| "." csh-mode-syntax-table) ; | -punctuation - (modify-syntax-entry ?< "." csh-mode-syntax-table) ; < -punctuation - (modify-syntax-entry ?> "." csh-mode-syntax-table) ; > -punctuation - (modify-syntax-entry ?/ "." csh-mode-syntax-table) ; / -punctuation - (modify-syntax-entry ?\' "\"" csh-mode-syntax-table) ; ' -string quote - (modify-syntax-entry ?. "w" csh-mode-syntax-table) ; . -word constituent - (modify-syntax-entry ?? "w" csh-mode-syntax-table) ; ? -word constituent - - ;; \n - comment ender, first character of 2-char comment sequence - (modify-syntax-entry ?\n "> 1" csh-mode-syntax-table) ; # -word constituent - - ;; - whitespace, first character of 2-char comment sequence - (modify-syntax-entry ? " 1" csh-mode-syntax-table) ; - - ;; \t - whitespace, first character of 2-char comment sequence - (modify-syntax-entry ?\t " 1" csh-mode-syntax-table) ; # -word constituent - - ;; # - word constituent, second character of 2-char comment sequence - (modify-syntax-entry ?# "w 2" csh-mode-syntax-table) ; # -word constituent - ) - - -;; -;; ------------------------------------------------------------------> Functions -;; -(defun csh-current-line () - "Return the vertical position of point in the buffer. -Top line is 1." - (+ (count-lines (point-min) (point)) - (if (= (current-column) 0) 1 0)) - ) - -(defun csh-get-compound-level - (begin-re end-re anchor-point &optional balance-list) - "Determine how much to indent this structure. Return a list (level line) -of the matching compound command or nil if no match found." - (let* - (;; Locate the next compound begin keyword bounded by point-min - (match-point (if (re-search-backward begin-re (point-min) t) - (match-beginning 0) 0)) - (nest-column (if (zerop match-point) - 1 - (progn - (goto-char match-point) - (current-indentation)))) - (nest-list (cons 0 0)) ;; sentinel cons since cdr is >= 1 - ) - (if (zerop match-point) - nil ;; graceful exit from recursion - (progn - (if (nlistp balance-list) - (setq balance-list (list))) - ;; Now search forward from matching start keyword for end keyword - (while (and (consp nest-list) (zerop (cdr nest-list)) - (re-search-forward end-re anchor-point t)) - (if (not (memq (point) balance-list)) - (progn - (setq balance-list (cons (point) balance-list)) - (goto-char match-point) ;; beginning of compound cmd - (setq nest-list - (csh-get-compound-level begin-re end-re - anchor-point balance-list)) - ))) - - (cond ((consp nest-list) - (if (zerop (cdr nest-list)) - (progn - (goto-char match-point) - (cons nest-column (csh-current-line))) - nest-list)) - (t nil) - ) - ) - ) - ) - ) - -(defun csh-get-nest-level () - "Return a 2 element list (nest-level nest-line) describing where the -current line should nest." - (let ((case-fold-search) - (level)) - (save-excursion - (forward-line -1) - (while (and (not (bobp)) - (null level)) - (if (and (not (looking-at "^\\s *$")) - (not (save-excursion - (forward-line -1) - (beginning-of-line) - (looking-at csh-multiline-re))) - (not (looking-at csh-comment-regexp))) - (setq level (cons (current-indentation) - (csh-current-line))) - (forward-line -1) - );; if - );; while - (if (null level) - (cons (current-indentation) (csh-current-line)) - level) - ) - ) - ) - -(defun csh-get-nester-column (nest-line) - "Return the column to indent to with respect to nest-line taking -into consideration keywords and other nesting constructs." - (save-excursion - (let ((fence-post) - (case-fold-search) - (start-line (csh-current-line))) - ;; - ;; Handle case item indentation constructs for this line - (cond ((looking-at csh-case-item-re) - ;; This line is a case item... - (save-excursion - (goto-line nest-line) - (let ((fence-post (save-excursion (end-of-line) (point)))) - (cond ((re-search-forward csh-switch-re fence-post t) - ;; If this is the first case under the switch, indent. - (goto-char (match-beginning 0)) - (+ (current-indentation) csh-case-item-offset)) - - ((re-search-forward csh-case-item-re fence-post t) - ;; If this is another case right under a previous case - ;; without intervening code, stay at the same - ;; indentation. - (goto-char (match-beginning 0)) - (current-indentation)) - - (t - ;; Else, this is a new case. Outdent. - (- (current-indentation) csh-case-item-offset)) - ) - ))) - (t;; Not a case-item. What to do relative to the nest-line? - (save-excursion - (goto-line nest-line) - (setq fence-post (save-excursion (end-of-line) (point))) - (save-excursion - (cond - ;; - ;; Check if we are in a continued statement - ((and (looking-at csh-multiline-re) - (save-excursion - (goto-line (1- start-line)) - (looking-at csh-multiline-re))) - (if (looking-at ".*[\'\"]\\\\") - ;; If this is a continued string, indent under - ;; opening quote. - (progn - (re-search-forward "[\'\"]") - (forward-char -1)) - (if (looking-at ".*([^\)\n]*\\\\") - ;; Else if this is a continued parenthesized - ;; list, indent after paren. - (re-search-forward "(" fence-post t) - ;; Else, indent after whitespace after first word. - (re-search-forward "[^ \t]+[ \t]+" fence-post t))) - (current-column)) - - ;; In order to locate the column of the keyword, - ;; which might be embedded within a case-item, - ;; it is necessary to use re-search-forward. - ;; Search by literal case, since shell is - ;; case-sensitive. - ((re-search-forward csh-keywords-re fence-post t) - (goto-char (match-beginning 1)) - (if (looking-at csh-switch-re) - (+ (current-indentation) csh-case-item-offset) - (+ (current-indentation) - (if (null csh-indent) - 2 csh-indent) - ))) - - ((re-search-forward csh-case-default-re fence-post t) - (if (null csh-indent) - (progn - (goto-char (match-end 1)) - (+ (current-indentation) 1)) - (progn - (goto-char (match-beginning 1)) - (+ (current-indentation) csh-indent)) - )) - - ;; - ;; Now detect first statement under a case item - ((looking-at csh-case-item-re) - (if (null csh-case-indent) - (progn - (re-search-forward csh-case-item-re fence-post t) - (goto-char (match-end 1)) - (+ (current-column) 1)) - (+ (current-indentation) csh-case-indent))) - - ;; - ;; If this is the first statement under a control-flow - ;; label, indent one level. - ((csh-looking-at-label) - (+ (current-indentation) csh-indent)) - - ;; This is hosed when using current-column - ;; and there is a multi-command expression as the - ;; nester. - (t (current-indentation))) - ) - ));; excursion over - );; Not a case-item - );;let - );; excursion - );; defun - -(defun csh-indent-command () - "Indent current line relative to containing block and allow for -csh-tab-always-indent customization" - (interactive) - (let (case-fold-search) - (cond ((save-excursion - (skip-chars-backward " \t") - (bolp)) - (csh-indent-line)) - (csh-tab-always-indent - (save-excursion - (csh-indent-line))) - (t (insert-tab)) - )) - ) - -(defun csh-indent-line () - "Indent current line as far as it should go according -to the syntax/context" - (interactive) - (let (case-fold-search) - (save-excursion - (beginning-of-line) - (if (bobp) - nil - ;; - ;; Align this line to current nesting level - (let* - ( - (level-list (csh-get-nest-level)) ; Where to nest against - ;; (last-line-level (car level-list)) - (this-line-level (current-indentation)) - (nester-column (csh-get-nester-column (cdr level-list))) - (struct-match (csh-match-structure-and-reindent)) - ) - (if struct-match - (setq nester-column struct-match)) - (if (eq nester-column this-line-level) - nil - (beginning-of-line) - (let ((beg (point))) - (back-to-indentation) - (delete-region beg (point))) - (indent-to nester-column)) - );; let* - );; if - );; excursion - ;; - ;; Position point on this line - (let* - ( - (this-line-level (current-indentation)) - (this-bol (save-excursion - (beginning-of-line) - (point))) - (this-point (- (point) this-bol)) - ) - (cond ((> this-line-level this-point);; point in initial white space - (back-to-indentation)) - (t nil) - );; cond - );; let* - );; let - );; defun - -(defun csh-indent-region (start end) - "From start to end, indent each line." - ;; The algorithm is just moving through the region line by line with - ;; the match noise turned off. Only modifies nonempty lines. - (save-excursion - (let (csh-match-and-tell - (endmark (copy-marker end))) - - (goto-char start) - (beginning-of-line) - (setq start (point)) - (while (> (marker-position endmark) start) - (if (not (and (bolp) (eolp))) - (csh-indent-line)) - (forward-line 1) - (setq start (point))) - - (set-marker endmark nil) - ) - ) - ) - -(defun csh-line-to-string () - "From point, construct a string from all characters on -current line" - (skip-chars-forward " \t") ;; skip tabs as well as spaces - (buffer-substring (point) - (progn - (end-of-line 1) - (point)))) - -(defun csh-looking-at-label () - "Return true if current line is a label (not the default: case label)." - (and - (looking-at csh-label-re) - (not (looking-at "^\\s *default:")))) - -(defun csh-match-indent-level (begin-re end-re) - "Match the compound command and indent. Return nil on no match, -indentation to use for this line otherwise." - (interactive) - (let* ((case-fold-search) - (nest-list - (save-excursion - (csh-get-compound-level begin-re end-re (point)) - )) - ) ;; bindings - (if (null nest-list) - (progn - (if csh-match-and-tell - (message "No matching compound command")) - nil) ;; Propagate a miss. - (let* ( - (nest-level (car nest-list)) - (match-line (cdr nest-list)) - ) ;; bindings - (if csh-match-and-tell - (save-excursion - (goto-line match-line) - (message "Matched ... %s" (csh-line-to-string)) - ) ;; excursion - ) ;; if csh-match-and-tell - nest-level ;;Propagate a hit. - ) ;; let* - ) ;; if - ) ;; let* - ) ;; defun csh-match-indent-level - -(defun csh-match-structure-and-reindent () - "If the current line matches one of the indenting keywords -or one of the control structure ending keywords then reindent. Also -if csh-match-and-tell is non-nil the matching structure will echo in -the minibuffer" - (interactive) - (let (case-fold-search) - (save-excursion - (beginning-of-line) - (cond ((looking-at csh-else-re) - (csh-match-indent-level csh-if-re csh-endif-re)) - ((looking-at csh-else-if-re) - (csh-match-indent-level csh-if-re csh-endif-re)) - ((looking-at csh-endif-re) - (csh-match-indent-level csh-if-re csh-endif-re)) - ((looking-at csh-end-re) - (csh-match-indent-level csh-iteration-keywords-re csh-end-re)) - ((looking-at csh-endsw-re) - (csh-match-indent-level csh-switch-re csh-endsw-re)) - ((csh-looking-at-label) - ;; Flush control-flow labels left since they don't nest. - 0) - ;; - (t nil) - );; cond - ) - )) - -;;;###autoload -(defun csh-mode () - "csh-mode 2.0 - Major mode for editing csh and tcsh scripts. -Special key bindings and commands: -\\{csh-mode-map} -Variables controlling indentation style: -csh-indent - Indentation of csh statements with respect to containing block. - Default value is 4. -csh-case-indent - Additional indentation for statements under case items. - Default value is nil which will align the statements one position - past the \")\" of the pattern. -csh-case-item-offset - Additional indentation for case items within a case statement. - Default value is 2. -csh-tab-always-indent - Controls the operation of the TAB key. If t (the default), always - reindent the current line. If nil, indent the current line only if - point is at the left margin or in the line's indentation; otherwise - insert a tab. -csh-match-and-tell - If non-nil echo in the minibuffer the matching compound command - for the \"done\", \"}\", \"fi\", or \"endsw\". Default value is t. - -csh-comment-regexp - Regular expression used to recognize comments. Customize to support - csh-like languages. Default value is \"\^\\\\s *#\". - -Style Guide. - By setting - (setq csh-indent default-tab-width) - - The following style is obtained: - - if [ -z $foo ] - then - bar # <-- csh-group-offset is additive to csh-indent - foo - fi - - By setting - (setq csh-indent default-tab-width) - (setq csh-group-offset (- 0 csh-indent)) - - The following style is obtained: - - if [ -z $foo ] - then - bar - foo - fi - - By setting - (setq csh-case-item-offset 1) - (setq csh-case-indent nil) - - The following style is obtained: - - case x in * - foo) bar # <-- csh-case-item-offset - baz;; # <-- csh-case-indent aligns with \")\" - foobar) foo - bar;; - endsw - - By setting - (setq csh-case-item-offset 1) - (setq csh-case-indent 6) - - The following style is obtained: - - case x in * - foo) bar # <-- csh-case-item-offset - baz;; # <-- csh-case-indent - foobar) foo - bar;; - endsw - - -Installation: - Put csh-mode.el in some directory in your load-path. - Put the following forms in your .emacs file. - - (setq auto-mode-alist - (append auto-mode-alist - (list - '(\"\\\\.csh$\" . csh-mode) - '(\"\\\\.login\" . csh-mode)))) - - (setq csh-mode-hook - (function (lambda () - (font-lock-mode 1) ;; font-lock the buffer - (setq csh-indent 8) - (setq csh-tab-always-indent t) - (setq csh-match-and-tell t) - (setq csh-align-to-keyword t) ;; Turn on keyword alignment - )))" - (interactive) - (kill-all-local-variables) - (use-local-map csh-mode-map) - (setq major-mode 'csh-mode) - (setq mode-name "Csh") - (setq local-abbrev-table csh-mode-abbrev-table) - (set-syntax-table csh-mode-syntax-table) - (make-local-variable 'indent-line-function) - (setq indent-line-function 'csh-indent-line) - (make-local-variable 'indent-region-function) - (setq indent-region-function 'csh-indent-region) - (make-local-variable 'comment-start) - (setq comment-start "# ") - (make-local-variable 'comment-end) - (setq comment-end "") - (make-local-variable 'comment-column) - (setq comment-column 32) - (make-local-variable 'comment-start-skip) - (setq comment-start-skip "#+ *") - ;; - ;; config font-lock mode - (make-local-variable 'font-lock-keywords) - (setq font-lock-keywords csh-font-lock-keywords) - ;; - ;; Let the user customize - (run-hooks 'csh-mode-hook) - ) ;; defun - -;; -;; Completion code supplied by Haavard Rue <hrue@imf.unit.no>. -;; -;; -;; add a completion with a given type to the list -;; -(defun csh-addto-alist (completion type) - (setq csh-completion-list - (append csh-completion-list - (list (cons completion type))))) - -(defun csh-bol-point () - (save-excursion - (beginning-of-line) - (point))) - -(defun csh-complete-symbol () - "Perform completion." - (interactive) - (let* ((case-fold-search) - (end (point)) - (beg (unwind-protect - (save-excursion - (backward-sexp 1) - (while (= (char-syntax (following-char)) ?\') - (forward-char 1)) - (point)))) - (pattern (buffer-substring beg end)) - (predicate - ;; - ;; ` or $( mark a function - ;; - (save-excursion - (goto-char beg) - (if (or - (save-excursion - (backward-char 1) - (looking-at "`")) - (save-excursion - (backward-char 2) - (looking-at "\\$("))) - (function (lambda (sym) - (equal (cdr sym) csh-completion-type-function))) - ;; - ;; a $, ${ or ${# mark a variable - ;; - (if (or - (save-excursion - (backward-char 1) - (looking-at "\\$")) - (save-excursion - (backward-char 2) - (looking-at "\\${")) - (save-excursion - (backward-char 3) - (looking-at "\\${#"))) - (function (lambda (sym) - (equal (cdr sym) - csh-completion-type-var))) - ;; - ;; don't know. use 'em all - ;; - (function (lambda (sym) t)))))) - ;; - (completion (try-completion pattern csh-completion-list predicate))) - ;; - (cond ((eq completion t)) - ;; - ;; oops, what is this ? - ;; - ((null completion) - (message "Can't find completion for \"%s\"" pattern)) - ;; - ;; insert - ;; - ((not (string= pattern completion)) - (delete-region beg end) - (insert completion)) - ;; - ;; write possible completion in the minibuffer, - ;; use this instead of a seperate buffer (usual) - ;; - (t - (let ((list (all-completions pattern csh-completion-list predicate)) - (string "")) - (while list - (progn - (setq string (concat string (format "%s " (car list)))) - (setq list (cdr list)))) - (message string)))))) - -;; -;; init the list and pickup all -;; -(defun csh-completion-init-and-pickup () - (interactive) - (let (case-fold-search) - (csh-completion-list-init) - (csh-pickup-all))) - -;; -;; init the list -;; -(defun csh-completion-list-init () - (interactive) - (setq csh-completion-list - (list - (cons "break" csh-completion-type-misc) - (cons "breaksw" csh-completion-type-misc) - (cons "case" csh-completion-type-misc) - (cons "continue" csh-completion-type-misc) - (cons "endif" csh-completion-type-misc) - (cons "exit" csh-completion-type-misc) - (cons "foreach" csh-completion-type-misc) - (cons "if" csh-completion-type-misc) - (cons "while" csh-completion-type-misc)))) - -(defun csh-eol-point () - (save-excursion - (end-of-line) - (point))) - -(defun csh-pickup-all () - "Pickup all completions in buffer." - (interactive) - (csh-pickup-completion-driver (point-min) (point-max) t)) - -(defun csh-pickup-completion (regexp type match pmin pmax) - "Pickup completion in region and addit to the list, if not already -there." - (let ((i 0) kw obj) - (save-excursion - (goto-char pmin) - (while (and - (re-search-forward regexp pmax t) - (match-beginning match) - (setq kw (buffer-substring - (match-beginning match) - (match-end match)))) - (progn - (setq obj (assoc kw csh-completion-list)) - (if (or (equal nil obj) - (and (not (equal nil obj)) - (not (= type (cdr obj))))) - (progn - (setq i (1+ i)) - (csh-addto-alist kw type)))))) - i)) - -(defun csh-pickup-completion-driver (pmin pmax message) - "Driver routine for csh-pickup-completion." - (if message - (message "pickup completion...")) - (let* ( - (i1 - (csh-pickup-completion csh-completion-regexp-var - csh-completion-type-var - csh-completion-match-var - pmin pmax)) - (i2 - (csh-pickup-completion csh-completion-regexp-var2 - csh-completion-type-var - csh-completion-match-var2 - pmin pmax)) - (i3 - (csh-pickup-completion csh-completion-regexp-function - csh-completion-type-function - csh-completion-match-function - pmin pmax))) - (if message - (message "pickup %d variables and %d functions." (+ i1 i2) i3)))) - -(defun csh-pickup-this-line () - "Pickup all completions in current line." - (interactive) - (csh-pickup-completion-driver (csh-bol-point) (csh-eol-point) nil)) - - -(provide 'csh-mode) -;;; csh-mode.el ends here diff --git a/contrib/tcsh/ed.chared.c b/contrib/tcsh/ed.chared.c deleted file mode 100644 index 7703bbe77fdf..000000000000 --- a/contrib/tcsh/ed.chared.c +++ /dev/null @@ -1,4005 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.chared.c,v 3.59 1999/08/13 16:34:57 christos Exp $ */ -/* - * ed.chared.c: Character editing functions. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -/* - Bjorn Knutsson @ Thu Jun 24 19:02:17 1999 - - e_dabbrev_expand() did not do proper completion if quoted spaces were present - in the string being completed. Exemple: - - # echo hello\ world - hello world - # echo h<press key bound to dabbrev-expande> - # echo hello\<cursor> - - Correct behavior is: - # echo h<press key bound to dabbrev-expande> - # echo hello\ world<cursor> - - The same problem occured if spaces were present in a string withing quotation - marks. Example: - - # echo "hello world" - hello world - # echo "h<press key bound to dabbrev-expande> - # echo "hello<cursor> - - The former problem could be solved with minor modifications of c_preword() - and c_endword(). The latter, however, required a significant rewrite of - c_preword(), since quoted strings must be parsed from start to end to - determine if a given character is inside or outside the quotation marks. - - Compare the following two strings: - - # echo \"" 'foo \' bar\" - " 'foo \' bar\ - # echo '\"" 'foo \' bar\" - \"" foo ' bar" - - The only difference between the two echo lines is in the first character - after the echo command. The result is either one or three arguments. - - */ - -#include "sh.h" - -RCSID("$Id: ed.chared.c,v 3.59 1999/08/13 16:34:57 christos Exp $") - -#include "ed.h" -#include "tw.h" -#include "ed.defns.h" - -/* #define SDEBUG */ - -#define TCSHOP_NOP 0x00 -#define TCSHOP_DELETE 0x01 -#define TCSHOP_INSERT 0x02 -#define TCSHOP_CHANGE 0x04 - -#define CHAR_FWD 0 -#define CHAR_BACK 1 - -/* - * vi word treatment - * from: Gert-Jan Vons <vons@cesar.crbca1.sinet.slb.com> - */ -#define C_CLASS_WHITE 1 -#define C_CLASS_ALNUM 2 -#define C_CLASS_OTHER 3 - -static Char *InsertPos = InputBuf; /* Where insertion starts */ -static Char *ActionPos = 0; /* Where action begins */ -static int ActionFlag = TCSHOP_NOP; /* What delayed action to take */ -/* - * Word search state - */ -static int searchdir = F_UP_SEARCH_HIST; /* Direction of last search */ -static Char patbuf[INBUFSIZE]; /* Search target */ -static int patlen = 0; -/* - * Char search state - */ -static int srch_dir = CHAR_FWD; /* Direction of last search */ -static Char srch_char = 0; /* Search target */ - -/* all routines that start with c_ are private to this set of routines */ -static void c_alternativ_key_map __P((int)); -static void c_insert __P((int)); -static void c_delafter __P((int)); -static void c_delbefore __P((int)); -static int c_to_class __P((int)); -static Char *c_prev_word __P((Char *, Char *, int)); -static Char *c_next_word __P((Char *, Char *, int)); -static Char *c_number __P((Char *, int *, int)); -static Char *c_expand __P((Char *)); -static void c_excl __P((Char *)); -static void c_substitute __P((void)); -static void c_delfini __P((void)); -static int c_hmatch __P((Char *)); -static void c_hsetpat __P((void)); -#ifdef COMMENT -static void c_get_word __P((Char **, Char **)); -#endif -static Char *c_preword __P((Char *, Char *, int)); -static Char *c_nexword __P((Char *, Char *, int)); -static Char *c_endword __P((Char *, Char *, int)); -static Char *c_eword __P((Char *, Char *, int)); -static CCRETVAL c_get_histline __P((void)); -static CCRETVAL c_search_line __P((Char *, int)); -static CCRETVAL v_repeat_srch __P((int)); -static CCRETVAL e_inc_search __P((int)); -static CCRETVAL v_search __P((int)); -static CCRETVAL v_csearch_fwd __P((int, int, int)); -static CCRETVAL v_action __P((int)); -static CCRETVAL v_csearch_back __P((int, int, int)); - -#if defined(DSPMBYTE) -static void e_charfwd_mbyte __P((int)); -static void e_charback_mbyte __P((int)); -static int extdel; -static int extins = 0; -#endif - -static void -c_alternativ_key_map(state) - int state; -{ - switch (state) { - case 0: - CurrentKeyMap = CcKeyMap; - break; - case 1: - CurrentKeyMap = CcAltMap; - break; - default: - return; - } - - AltKeyMap = (Char) state; -} - -static void -c_insert(num) - register int num; -{ - register Char *cp; - - if (LastChar + num >= InputLim) - return; /* can't go past end of buffer */ - - if (Cursor < LastChar) { /* if I must move chars */ - for (cp = LastChar; cp >= Cursor; cp--) - cp[num] = *cp; - } - LastChar += num; -} - -static void -c_delafter(num) - register int num; -{ - register Char *cp, *kp = NULL; - -#if defined(DSPMBYTE) - Char *wkcp; - - extdel = 0; -#endif - - if (num > LastChar - Cursor) - num = (int) (LastChar - Cursor); /* bounds check */ - - if (num > 0) { /* if I can delete anything */ -#if defined(DSPMBYTE) - /* check for code of deleted character */ - if (_enable_mbdisp) { - for (wkcp = Cursor ; wkcp < Cursor + num; wkcp++) { - if (extdel == 0) - extdel = Ismbyte1(*wkcp); /* check to 1st. byte */ - else - extdel = 0; /* if 2nd. byte, force set to 0 */ - } - } -#endif - if (VImode) { - kp = UndoBuf; /* Set Up for VI undo command */ - UndoAction = TCSHOP_INSERT; - UndoSize = num; - UndoPtr = Cursor; - for (cp = Cursor; cp <= LastChar; cp++) { - *kp++ = *cp; /* Save deleted chars into undobuf */ - *cp = cp[num]; - } - } - else - for (cp = Cursor; cp <= LastChar; cp++) - *cp = cp[num]; - LastChar -= num; -#if defined(DSPMBYTE) - if (_enable_mbdisp && extdel && Ismbyte2(*Cursor)) { - if( VImode ) { - UndoSize++; - *kp++ = *Cursor; /* Save deleted chars into undobuf */ - } - for (cp = Cursor; cp <= LastChar; cp++) - *cp = cp[1]; - LastChar--; - e_redisp( 1 ); - } - else - extdel = 0; -#endif - } -#ifdef notdef - else { - /* - * XXX: We don't want to do that. In emacs mode overwrite should be - * sticky. I am not sure how that affects vi mode - */ - inputmode = MODE_INSERT; - } -#endif /* notdef */ -} - -static void -c_delbefore(num) /* delete before dot, with bounds checking */ - register int num; -{ - register Char *cp, *kp = NULL; - -#if defined(DSPMBYTE) - Char *nowcur, *wkcp; - Char delc; - - extdel = 0; -#endif - - if (num > Cursor - InputBuf) - num = (int) (Cursor - InputBuf); /* bounds check */ - - if (num > 0) { /* if I can delete anything */ -#if defined(DSPMBYTE) - nowcur = Cursor - num; - delc = *nowcur; -#endif - if (VImode) { - kp = UndoBuf; /* Set Up for VI undo command */ - UndoAction = TCSHOP_INSERT; - UndoSize = num; - UndoPtr = Cursor - num; - for (cp = Cursor - num; cp <= LastChar; cp++) { - *kp++ = *cp; - *cp = cp[num]; - } - } - else - for (cp = Cursor - num; cp <= LastChar; cp++) - *cp = cp[num]; - LastChar -= num; -#if defined(DSPMBYTE) - if (_enable_mbdisp) { - for (wkcp = InputBuf; wkcp < nowcur; wkcp++) { - if(extdel == 0) - extdel = Ismbyte1(*wkcp); /* check to 1st. byte */ - else - extdel = 0; /* if 2nd. byte, force set to 0 */ - } - if (extdel && Ismbyte2(delc)) { - if( VImode ) { - UndoSize++; - UndoPtr--; - *kp++ = *(nowcur-1); - /* Save deleted chars into undobuf */ - } - for (cp = nowcur - 1; cp <= LastChar; cp++) - *cp = cp[1]; - LastChar--; - } - } - else - extdel = 0; -#endif - } -} - -static Char * -c_preword(p, low, n) - register Char *p, *low; - register int n; -{ - while (n--) { - register Char *prev = low; - register Char *new; - - while (prev < p) { /* Skip initial spaces */ - if (!Isspace(*prev) || (Isspace(*prev) && *(prev-1) == (Char)'\\')) - break; - prev++; - } - - new = prev; - - while (new < p) { - prev = new; - new = c_endword(prev-1, p, 1); /* Skip to next space */ - new++; /* Step away from end of word */ - while (new <= p) { /* Skip trailing spaces */ - if (!Isspace(*new) || (Isspace(*new) && *(new-1) == (Char)'\\')) - break; - new++; - } - } - - p = prev; /* Set to previous word start */ - - } - if (p < low) - p = low; - return (p); -} - -/* - * c_to_class() returns the class of the given character. - * - * This is used to make the c_prev_word() and c_next_word() functions - * work like vi's, which classify characters. A word is a sequence of - * characters belonging to the same class, classes being defined as - * follows: - * - * 1/ whitespace - * 2/ alphanumeric chars, + underscore - * 3/ others - */ -static int -c_to_class(ch) -register int ch; -{ - if (Isspace(ch)) - return C_CLASS_WHITE; - - if (Isdigit(ch) || Isalpha(ch) || ch == '_') - return C_CLASS_ALNUM; - - return C_CLASS_OTHER; -} - -static Char * -c_prev_word(p, low, n) - register Char *p, *low; - register int n; -{ - p--; - - if (!VImode) { - while (n--) { - while ((p >= low) && !isword(*p)) - p--; - while ((p >= low) && isword(*p)) - p--; - } - - /* cp now points to one character before the word */ - p++; - if (p < low) - p = low; - /* cp now points where we want it */ - return(p); - } - - while (n--) { - register int c_class; - - if (p < low) - break; - - /* scan until beginning of current word (may be all whitespace!) */ - c_class = c_to_class(*p); - while ((p >= low) && c_class == c_to_class(*p)) - p--; - - /* if this was a non_whitespace word, we're ready */ - if (c_class != C_CLASS_WHITE) - continue; - - /* otherwise, move back to beginning of the word just found */ - c_class = c_to_class(*p); - while ((p >= low) && c_class == c_to_class(*p)) - p--; - } - - p++; /* correct overshoot */ - - return (p); -} - -static Char * -c_next_word(p, high, n) - register Char *p, *high; - register int n; -{ - if (!VImode) { - while (n--) { - while ((p < high) && !isword(*p)) - p++; - while ((p < high) && isword(*p)) - p++; - } - if (p > high) - p = high; - /* p now points where we want it */ - return(p); - } - - while (n--) { - register int c_class; - - if (p >= high) - break; - - /* scan until end of current word (may be all whitespace!) */ - c_class = c_to_class(*p); - while ((p < high) && c_class == c_to_class(*p)) - p++; - - /* if this was all whitespace, we're ready */ - if (c_class == C_CLASS_WHITE) - continue; - - /* if we've found white-space at the end of the word, skip it */ - while ((p < high) && c_to_class(*p) == C_CLASS_WHITE) - p++; - } - - p--; /* correct overshoot */ - - return (p); -} - -static Char * -c_nexword(p, high, n) - register Char *p, *high; - register int n; -{ - while (n--) { - while ((p < high) && !Isspace(*p)) - p++; - while ((p < high) && Isspace(*p)) - p++; - } - - if (p > high) - p = high; - /* p now points where we want it */ - return(p); -} - -/* - * Expand-History (originally "Magic-Space") code added by - * Ray Moody <ray@gibbs.physics.purdue.edu> - * this is a neat, but odd, addition. - */ - -/* - * c_number: Ignore character p points to, return number appearing after that. - * A '$' by itself means a big number; "$-" is for negative; '^' means 1. - * Return p pointing to last char used. - */ - -/* - * dval is the number to subtract from for things like $-3 - */ - -static Char * -c_number(p, num, dval) - register Char *p; - register int *num; - register int dval; -{ - register int i; - register int sign = 1; - - if (*++p == '^') { - *num = 1; - return(p); - } - if (*p == '$') { - if (*++p != '-') { - *num = NCARGS; /* Handle $ */ - return(--p); - } - sign = -1; /* Handle $- */ - ++p; - } - for (i = 0; *p >= '0' && *p <= '9'; i = 10 * i + *p++ - '0') - continue; - *num = (sign < 0 ? dval - i : i); - return(--p); -} - -/* - * excl_expand: There is an excl to be expanded to p -- do the right thing - * with it and return a version of p advanced over the expanded stuff. Also, - * update tsh_cur and related things as appropriate... - */ - -static Char * -c_expand(p) - register Char *p; -{ - register Char *q; - register struct Hist *h = Histlist.Hnext; - register struct wordent *l; - int i, from, to, dval; - bool all_dig; - bool been_once = 0; - Char *op = p; - Char buf[INBUFSIZE]; - Char *bend = buf; - Char *modbuf, *omodbuf; - - if (!h) - goto excl_err; -excl_sw: - switch (*(q = p + 1)) { - - case '^': - bend = expand_lex(buf, INBUFSIZE, &h->Hlex, 1, 1); - break; - - case '$': - if ((l = (h->Hlex).prev) != 0) - bend = expand_lex(buf, INBUFSIZE, l->prev->prev, 0, 0); - break; - - case '*': - bend = expand_lex(buf, INBUFSIZE, &h->Hlex, 1, NCARGS); - break; - - default: - if (been_once) { /* unknown argument */ - /* assume it's a modifier, e.g. !foo:h, and get whole cmd */ - bend = expand_lex(buf, INBUFSIZE, &h->Hlex, 0, NCARGS); - q -= 2; - break; - } - been_once = 1; - - if (*q == ':') /* short form: !:arg */ - --q; - - if (*q != HIST) { - /* - * Search for a space, tab, or colon. See if we have a number (as - * in !1234:xyz). Remember the number. - */ - for (i = 0, all_dig = 1; - *q != ' ' && *q != '\t' && *q != ':' && q < Cursor; q++) { - /* - * PWP: !-4 is a valid history argument too, therefore the test - * is if not a digit, or not a - as the first character. - */ - if ((*q < '0' || *q > '9') && (*q != '-' || q != p + 1)) - all_dig = 0; - else if (*q == '-') - all_dig = 2;/* we are sneeky about this */ - else - i = 10 * i + *q - '0'; - } - --q; - - /* - * If we have a number, search for event i. Otherwise, search for - * a named event (as in !foo). (In this case, I is the length of - * the named event). - */ - if (all_dig) { - if (all_dig == 2) - i = -i; /* make it negitive */ - if (i < 0) /* if !-4 (for example) */ - i = eventno + 1 + i; /* remember: i is < 0 */ - for (; h; h = h->Hnext) { - if (h->Hnum == i) - break; - } - } - else { - for (i = (int) (q - p); h; h = h->Hnext) { - if ((l = &h->Hlex) != 0) { - if (!Strncmp(p + 1, l->next->word, (size_t) i)) - break; - } - } - } - } - if (!h) - goto excl_err; - if (q[1] == ':' || q[1] == '-' || q[1] == '*' || - q[1] == '$' || q[1] == '^') { /* get some args */ - p = q[1] == ':' ? ++q : q; - /* - * Go handle !foo:* - */ - if ((q[1] < '0' || q[1] > '9') && - q[1] != '-' && q[1] != '$' && q[1] != '^') - goto excl_sw; - /* - * Go handle !foo:$ - */ - if (q[1] == '$' && (q[2] != '-' || q[3] < '0' || q[3] > '9')) - goto excl_sw; - /* - * Count up the number of words in this event. Store it in dval. - * Dval will be fed to number. - */ - dval = 0; - if ((l = h->Hlex.prev) != 0) { - for (l = l->prev; l != h->Hlex.next; l = l->prev, dval++) - continue; - } - if (!dval) - goto excl_err; - if (q[1] == '-') - from = 0; - else - q = c_number(q, &from, dval); - if (q[1] == '-') { - ++q; - if ((q[1] < '0' || q[1] > '9') && q[1] != '$') - to = dval - 1; - else - q = c_number(q, &to, dval); - } - else if (q[1] == '*') { - ++q; - to = NCARGS; - } - else { - to = from; - } - if (from < 0 || to < from) - goto excl_err; - bend = expand_lex(buf, INBUFSIZE, &h->Hlex, from, to); - } - else { /* get whole cmd */ - bend = expand_lex(buf, INBUFSIZE, &h->Hlex, 0, NCARGS); - } - break; - } - - /* - * Apply modifiers, if any. - */ - if (q[1] == ':') { - *bend = '\0'; - modbuf = omodbuf = buf; - while (q[1] == ':' && modbuf != NULL) { - switch (q[2]) { - case 'r': - case 'e': - case 'h': - case 't': - case 'q': - case 'x': - case 'u': - case 'l': - if ((modbuf = domod(omodbuf, (int) q[2])) != NULL) { - if (omodbuf != buf) - xfree((ptr_t) omodbuf); - omodbuf = modbuf; - } - ++q; - break; - - case 'a': - case 'g': - /* Not implemented; this needs to be done before expanding - * lex. We don't have the words available to us anymore. - */ - ++q; - break; - - case 'p': - /* Ok */ - ++q; - break; - - case '\0': - break; - - default: - ++q; - break; - } - if (q[1]) - ++q; - } - if (omodbuf != buf) { - (void) Strcpy(buf, omodbuf); - xfree((ptr_t) omodbuf); - bend = Strend(buf); - } - } - - /* - * Now replace the text from op to q inclusive with the text from buf to - * bend. - */ - q++; - - /* - * Now replace text non-inclusively like a real CS major! - */ - if (LastChar + (bend - buf) - (q - op) >= InputLim) - goto excl_err; - (void) memmove((ptr_t) (q + (bend - buf) - (q - op)), (ptr_t) q, - (size_t) ((LastChar - q) * sizeof(Char))); - LastChar += (bend - buf) - (q - op); - Cursor += (bend - buf) - (q - op); - (void) memmove((ptr_t) op, (ptr_t) buf, - (size_t) ((bend - buf) * sizeof(Char))); - *LastChar = '\0'; - return(op + (bend - buf)); -excl_err: - SoundBeep(); - return(op + 1); -} - -/* - * c_excl: An excl has been found at point p -- back up and find some white - * space (or the beginning of the buffer) and properly expand all the excl's - * from there up to the current cursor position. We also avoid (trying to) - * expanding '>!' - */ - -static void -c_excl(p) - register Char *p; -{ - register int i; - register Char *q; - - /* - * if />[SPC TAB]*![SPC TAB]/, back up p to just after the >. otherwise, - * back p up to just before the current word. - */ - if ((p[1] == ' ' || p[1] == '\t') && - (p[-1] == ' ' || p[-1] == '\t' || p[-1] == '>')) { - for (q = p - 1; q > InputBuf && (*q == ' ' || *q == '\t'); --q) - continue; - if (*q == '>') - ++p; - } - else { - while (*p != ' ' && *p != '\t' && p > InputBuf) - --p; - } - - /* - * Forever: Look for history char. (Stop looking when we find the cursor.) - * Count backslashes. Of odd, skip history char. Return if all done. - * Expand if even number of backslashes. - */ - for (;;) { - while (*p != HIST && p < Cursor) - ++p; - for (i = 1; (p - i) >= InputBuf && p[-i] == '\\'; i++) - continue; - if (i % 2 == 0) - ++p; - if (p >= Cursor) - return; - if (i % 2 == 1) - p = c_expand(p); - } -} - - -static void -c_substitute() -{ - register Char *p; - - /* - * Start p out one character before the cursor. Move it backwards looking - * for white space, the beginning of the line, or a history character. - */ - for (p = Cursor - 1; - p > InputBuf && *p != ' ' && *p != '\t' && *p != HIST; --p) - continue; - - /* - * If we found a history character, go expand it. - */ - if (*p == HIST) - c_excl(p); - Refresh(); -} - -static void -c_delfini() /* Finish up delete action */ -{ - register int Size; - - if (ActionFlag & TCSHOP_INSERT) - c_alternativ_key_map(0); - - ActionFlag = TCSHOP_NOP; - - if (ActionPos == 0) - return; - - UndoAction = TCSHOP_INSERT; - - if (Cursor > ActionPos) { - Size = (int) (Cursor-ActionPos); - c_delbefore(Size); - Cursor = ActionPos; -#if defined(DSPMBYTE) - if (_enable_mbdisp && extdel) { - Cursor--; - e_redisp(1); - } -#endif - RefCursor(); - } - else if (Cursor < ActionPos) { - Size = (int)(ActionPos-Cursor); - c_delafter(Size); - } - else { - Size = 1; - c_delafter(Size); - } - UndoPtr = Cursor; - UndoSize = Size; -} - -static Char * -c_endword(p, high, n) - register Char *p, *high; - register int n; -{ - register int inquote = 0; - p++; - - while (n--) { - while (p < high) { /* Skip spaces */ - if (!Isspace(*p) || (Isspace(*p) && *(p-1) == (Char)'\\')) - break; - p++; - } - while (p < high) { /* Skip string */ - if ((*p == (Char)'\'' || *p == (Char)'"')) { /* Quotation marks? */ - if ((!inquote && *(p-1) != (Char)'\\') || inquote) { /* Should it be honored? */ - if (inquote == 0) inquote = *p; - else if (inquote == *p) inquote = 0; - } - } - if (!inquote && (Isspace(*p) && *(p-1) != (Char)'\\')) /* Break if unquoted space */ - break; - p++; - } - } - - p--; - return(p); -} - - -static Char * -c_eword(p, high, n) - register Char *p, *high; - register int n; -{ - p++; - - while (n--) { - while ((p < high) && Isspace(*p)) - p++; - - if (Isalnum(*p)) - while ((p < high) && Isalnum(*p)) - p++; - else - while ((p < high) && !(Isspace(*p) || Isalnum(*p))) - p++; - } - - p--; - return(p); -} - -static CCRETVAL -c_get_histline() -{ - struct Hist *hp; - int h; - - if (Hist_num == 0) { /* if really the current line */ - copyn(InputBuf, HistBuf, INBUFSIZE); - LastChar = InputBuf + (LastHist - HistBuf); - -#ifdef KSHVI - if (VImode) - Cursor = InputBuf; - else -#endif /* KSHVI */ - Cursor = LastChar; - - return(CC_REFRESH); - } - - hp = Histlist.Hnext; - if (hp == NULL) - return(CC_ERROR); - - for (h = 1; h < Hist_num; h++) { - if ((hp->Hnext) == NULL) { - Hist_num = h; - return(CC_ERROR); - } - hp = hp->Hnext; - } - - if (HistLit && hp->histline) { - copyn(InputBuf, hp->histline, INBUFSIZE); - CurrentHistLit = 1; - } - else { - (void) sprlex(InputBuf, sizeof(InputBuf), &hp->Hlex); - CurrentHistLit = 0; - } - LastChar = InputBuf + Strlen(InputBuf); - - if (LastChar > InputBuf) { - if (LastChar[-1] == '\n') - LastChar--; -#if 0 - if (LastChar[-1] == ' ') - LastChar--; -#endif - if (LastChar < InputBuf) - LastChar = InputBuf; - } - -#ifdef KSHVI - if (VImode) - Cursor = InputBuf; - else -#endif /* KSHVI */ - Cursor = LastChar; - - return(CC_REFRESH); -} - -static CCRETVAL -c_search_line(pattern, dir) -Char *pattern; -int dir; -{ - Char *cp; - int len; - - len = (int) Strlen(pattern); - - if (dir == F_UP_SEARCH_HIST) { - for (cp = Cursor; cp >= InputBuf; cp--) - if (Strncmp(cp, pattern, (size_t) len) == 0 || - Gmatch(cp, pattern)) { - Cursor = cp; - return(CC_NORM); - } - return(CC_ERROR); - } else { - for (cp = Cursor; *cp != '\0' && cp < InputLim; cp++) - if (Strncmp(cp, pattern, (size_t) len) == 0 || - Gmatch(cp, pattern)) { - Cursor = cp; - return(CC_NORM); - } - return(CC_ERROR); - } -} - -static CCRETVAL -e_inc_search(dir) - int dir; -{ - static Char STRfwd[] = { 'f', 'w', 'd', '\0' }, - STRbck[] = { 'b', 'c', 'k', '\0' }; - static Char pchar = ':'; /* ':' = normal, '?' = failed */ - static Char endcmd[2]; - Char ch, *cp, - *oldCursor = Cursor, - oldpchar = pchar; - CCRETVAL ret = CC_NORM; - int oldHist_num = Hist_num, - oldpatlen = patlen, - newdir = dir, - done, redo; - - if (LastChar + sizeof(STRfwd)/sizeof(Char) + 2 + patlen >= InputLim) - return(CC_ERROR); - - for (;;) { - - if (patlen == 0) { /* first round */ - pchar = ':'; - patbuf[patlen++] = '*'; - } - done = redo = 0; - *LastChar++ = '\n'; - for (cp = newdir == F_UP_SEARCH_HIST ? STRbck : STRfwd; - *cp; *LastChar++ = *cp++) - continue; - *LastChar++ = pchar; - for (cp = &patbuf[1]; cp < &patbuf[patlen]; *LastChar++ = *cp++) - continue; - *LastChar = '\0'; - Refresh(); - - if (GetNextChar(&ch) != 1) - return(e_send_eof(0)); - - switch (CurrentKeyMap[(unsigned char) ch]) { - case F_INSERT: - case F_DIGIT: - case F_MAGIC_SPACE: - if (patlen > INBUFSIZE - 3) - SoundBeep(); - else { - patbuf[patlen++] = ch; - *LastChar++ = ch; - *LastChar = '\0'; - Refresh(); - } - break; - - case F_INC_FWD: - newdir = F_DOWN_SEARCH_HIST; - redo++; - break; - - case F_INC_BACK: - newdir = F_UP_SEARCH_HIST; - redo++; - break; - - case F_DELPREV: - if (patlen > 1) - done++; - else - SoundBeep(); - break; - - default: - switch (ch) { - case 0007: /* ^G: Abort */ - ret = CC_ERROR; - done++; - break; - - case 0027: /* ^W: Append word */ - /* No can do if globbing characters in pattern */ - for (cp = &patbuf[1]; ; cp++) - if (cp >= &patbuf[patlen]) { - Cursor += patlen - 1; - cp = c_next_word(Cursor, LastChar, 1); - while (Cursor < cp && *Cursor != '\n') { - if (patlen > INBUFSIZE - 3) { - SoundBeep(); - break; - } - patbuf[patlen++] = *Cursor; - *LastChar++ = *Cursor++; - } - Cursor = oldCursor; - *LastChar = '\0'; - Refresh(); - break; - } else if (isglob(*cp)) { - SoundBeep(); - break; - } - break; - - default: /* Terminate and execute cmd */ - endcmd[0] = ch; - PushMacro(endcmd); - /*FALLTHROUGH*/ - - case 0033: /* ESC: Terminate */ - ret = CC_REFRESH; - done++; - break; - } - break; - } - - while (LastChar > InputBuf && *LastChar != '\n') - *LastChar-- = '\0'; - *LastChar = '\0'; - - if (!done) { - - /* Can't search if unmatched '[' */ - for (cp = &patbuf[patlen - 1], ch = ']'; cp > patbuf; cp--) - if (*cp == '[' || *cp == ']') { - ch = *cp; - break; - } - - if (patlen > 1 && ch != '[') { - if (redo && newdir == dir) { - if (pchar == '?') { /* wrap around */ - Hist_num = newdir == F_UP_SEARCH_HIST ? 0 : 0x7fffffff; - if (c_get_histline() == CC_ERROR) - /* Hist_num was fixed by first call */ - (void) c_get_histline(); - Cursor = newdir == F_UP_SEARCH_HIST ? - LastChar : InputBuf; - } else - Cursor += newdir == F_UP_SEARCH_HIST ? -1 : 1; - } - patbuf[patlen++] = '*'; - patbuf[patlen] = '\0'; - if (Cursor < InputBuf || Cursor > LastChar || - (ret = c_search_line(&patbuf[1], newdir)) == CC_ERROR) { - LastCmd = (KEYCMD) newdir; /* avoid c_hsetpat */ - ret = newdir == F_UP_SEARCH_HIST ? - e_up_search_hist(0) : e_down_search_hist(0); - if (ret != CC_ERROR) { - Cursor = newdir == F_UP_SEARCH_HIST ? - LastChar : InputBuf; - (void) c_search_line(&patbuf[1], newdir); - } - } - patbuf[--patlen] = '\0'; - if (ret == CC_ERROR) { - SoundBeep(); - if (Hist_num != oldHist_num) { - Hist_num = oldHist_num; - if (c_get_histline() == CC_ERROR) - return(CC_ERROR); - } - Cursor = oldCursor; - pchar = '?'; - } else { - pchar = ':'; - } - } - - ret = e_inc_search(newdir); - - if (ret == CC_ERROR && pchar == '?' && oldpchar == ':') { - /* break abort of failed search at last non-failed */ - ret = CC_NORM; - } - - } - - if (ret == CC_NORM || (ret == CC_ERROR && oldpatlen == 0)) { - /* restore on normal return or error exit */ - pchar = oldpchar; - patlen = oldpatlen; - if (Hist_num != oldHist_num) { - Hist_num = oldHist_num; - if (c_get_histline() == CC_ERROR) - return(CC_ERROR); - } - Cursor = oldCursor; - if (ret == CC_ERROR) - Refresh(); - } - if (done || ret != CC_NORM) - return(ret); - - } - -} - -static CCRETVAL -v_search(dir) - int dir; -{ - Char ch; - Char tmpbuf[INBUFSIZE]; - Char oldbuf[INBUFSIZE]; - Char *oldlc, *oldc; - int tmplen; - - copyn(oldbuf, InputBuf, INBUFSIZE); - oldlc = LastChar; - oldc = Cursor; - tmplen = 0; - tmpbuf[tmplen++] = '*'; - - InputBuf[0] = '\0'; - LastChar = InputBuf; - Cursor = InputBuf; - searchdir = dir; - - c_insert(2); /* prompt + '\n' */ - *Cursor++ = '\n'; - *Cursor++ = dir == F_UP_SEARCH_HIST ? '?' : '/'; - Refresh(); - for (ch = 0;ch == 0;) { - if (GetNextChar(&ch) != 1) - return(e_send_eof(0)); - switch (ASC(ch)) { - case 0010: /* Delete and backspace */ - case 0177: - if (tmplen > 1) { - *Cursor-- = '\0'; - LastChar = Cursor; - tmpbuf[tmplen--] = '\0'; - } - else { - copyn(InputBuf, oldbuf, INBUFSIZE); - LastChar = oldlc; - Cursor = oldc; - return(CC_REFRESH); - } - Refresh(); - ch = 0; - break; - - case 0033: /* ESC */ -#ifndef _OSD_POSIX - case '\r': /* Newline */ - case '\n': -#else - case '\012': /* Newline */ - case '\015': /* Return */ -#endif - break; - - default: - if (tmplen >= INBUFSIZE) - SoundBeep(); - else { - tmpbuf[tmplen++] = ch; - *Cursor++ = ch; - LastChar = Cursor; - } - Refresh(); - ch = 0; - break; - } - } - - if (tmplen == 1) { - /* - * Use the old pattern, but wild-card it. - */ - if (patlen == 0) { - InputBuf[0] = '\0'; - LastChar = InputBuf; - Cursor = InputBuf; - Refresh(); - return(CC_ERROR); - } - if (patbuf[0] != '*') { - (void) Strcpy(tmpbuf, patbuf); - patbuf[0] = '*'; - (void) Strcpy(&patbuf[1], tmpbuf); - patlen++; - patbuf[patlen++] = '*'; - patbuf[patlen] = '\0'; - } - } - else { - tmpbuf[tmplen++] = '*'; - tmpbuf[tmplen] = '\0'; - (void) Strcpy(patbuf, tmpbuf); - patlen = tmplen; - } - LastCmd = (KEYCMD) dir; /* avoid c_hsetpat */ - Cursor = LastChar = InputBuf; - if ((dir == F_UP_SEARCH_HIST ? e_up_search_hist(0) : - e_down_search_hist(0)) == CC_ERROR) { - Refresh(); - return(CC_ERROR); - } - else { - if (ch == 0033) { - Refresh(); - *LastChar++ = '\n'; - *LastChar = '\0'; - PastBottom(); - return(CC_NEWLINE); - } - else - return(CC_REFRESH); - } -} - -/* - * semi-PUBLIC routines. Any routine that is of type CCRETVAL is an - * entry point, called from the CcKeyMap indirected into the - * CcFuncTbl array. - */ - -/*ARGSUSED*/ -CCRETVAL -v_cmd_mode(c) - int c; -{ - USE(c); - InsertPos = 0; - ActionFlag = TCSHOP_NOP; /* [Esc] cancels pending action */ - ActionPos = 0; - DoingArg = 0; - if (UndoPtr > Cursor) - UndoSize = (int)(UndoPtr - Cursor); - else - UndoSize = (int)(Cursor - UndoPtr); - - inputmode = MODE_INSERT; - c_alternativ_key_map(1); -#ifdef notdef - /* - * We don't want to move the cursor, because all the editing - * commands don't include the character under the cursor. - */ - if (Cursor > InputBuf) - Cursor--; -#endif - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_unassigned(c) - int c; -{ /* bound to keys that arn't really assigned */ - USE(c); - SoundBeep(); - flush(); - return(CC_NORM); -} - -CCRETVAL -e_insert(c) - register int c; -{ - register int i; -#if defined(DSPMBYTE) - CCRETVAL ret; - static Char savec; - static int exterr = 0; -#endif -#ifndef SHORT_STRINGS - c &= ASCII; /* no meta chars ever */ -#endif -#if defined(DSPMBYTE) - ret = (CCRETVAL) CC_NORM; -#endif - - if (!c) - return(CC_ERROR); /* no NULs in the input ever!! */ - - if (LastChar + Argument >= InputLim) - return(CC_ERROR); /* end of buffer space */ - - if (Argument == 1) { /* How was this optimized ???? */ - -#if defined(DSPMBYTE) - if(_enable_mbdisp && extins && exterr && Ismbyte2(c)) { - extins = 0; - exterr = 0; - return(CC_ERROR); - } -#endif - if (inputmode != MODE_INSERT) { - UndoBuf[UndoSize++] = *Cursor; - UndoBuf[UndoSize] = '\0'; - c_delafter(1); /* Do NOT use the saving ONE */ - } - - c_insert(1); - -#if defined(DSPMBYTE) - /* 1st. byte is store to special buffer, and replace space */ - if(_enable_mbdisp && extins == 0 && Ismbyte1(c)) { - extins++; - savec = (Char) c; - *Cursor++ = (Char) ' '; - } - else if (_enable_mbdisp && extins && Ismbyte2(c)) { - *(Cursor-1) = savec; - *Cursor++ = (Char) c; - extins = 0; - e_redisp(1); - Refresh(); - ret = CC_REFRESH; - } - else - *Cursor++ = (Char) c; - DoingArg = 0; /* just in case */ - if (ret != CC_REFRESH) - RefPlusOne(); /* fast refresh for one char. */ -#else - *Cursor++ = (Char) c; - DoingArg = 0; /* just in case */ - RefPlusOne(); /* fast refresh for one char. */ -#endif - } - else { -#if defined(DSPMBYTE) - /* Cannot use ESC-(number) for multi-byte */ - if (_enable_mbdisp && extins == 0 && Ismbyte1(c)) { - extins++; - exterr++; - return(CC_ERROR); - } - else if (_enable_mbdisp && extins && exterr && Ismbyte2(c)) - { - extins = 0; - exterr = 0; - return(CC_ERROR); - } -#endif - if (inputmode != MODE_INSERT) { - - for(i=0;i<Argument;i++) - UndoBuf[UndoSize++] = *(Cursor+i); - - UndoBuf[UndoSize] = '\0'; - c_delafter(Argument); /* Do NOT use the saving ONE */ - } - - c_insert(Argument); - - while (Argument--) - *Cursor++ = (Char) c; - Refresh(); - } - - if (inputmode == MODE_REPLACE_1) - (void) v_cmd_mode(0); - -#if defined(DSPMBYTE) - return(ret); -#else - return(CC_NORM); -#endif -} - -int -InsertStr(s) /* insert ASCIZ s at cursor (for complete) */ - Char *s; -{ - register int len; - - if ((len = (int) Strlen(s)) <= 0) - return -1; - if (LastChar + len >= InputLim) - return -1; /* end of buffer space */ - - c_insert(len); - while (len--) - *Cursor++ = *s++; - return 0; -} - -void -DeleteBack(n) /* delete the n characters before . */ - int n; -{ - if (n <= 0) - return; - if (Cursor >= &InputBuf[n]) { - c_delbefore(n); /* delete before dot */ - if (n > Cursor - InputBuf) - Cursor = InputBuf; /* bounds check */ - else - Cursor -= n; -#if defined(DSPMBYTE) - if(_enable_mbdisp && extdel && Cursor > InputBuf) { - Cursor--; - e_redisp(1); - } -#endif - } -} - -CCRETVAL -e_digit(c) /* gray magic here */ - register int c; -{ - if (!Isdigit(c)) - return(CC_ERROR); /* no NULs in the input ever!! */ - - if (DoingArg) { /* if doing an arg, add this in... */ - if (LastCmd == F_ARGFOUR) /* if last command was ^U */ - Argument = c - '0'; - else { - if (Argument > 1000000) - return CC_ERROR; - Argument = (Argument * 10) + (c - '0'); - } - return(CC_ARGHACK); - } - else { - if (LastChar + 1 >= InputLim) - return CC_ERROR; /* end of buffer space */ - - if (inputmode != MODE_INSERT) { - UndoBuf[UndoSize++] = *Cursor; - UndoBuf[UndoSize] = '\0'; - c_delafter(1); /* Do NOT use the saving ONE */ - } - c_insert(1); - *Cursor++ = (Char) c; - DoingArg = 0; /* just in case */ - RefPlusOne(); /* fast refresh for one char. */ - } - return(CC_NORM); -} - -CCRETVAL -e_argdigit(c) /* for ESC-n */ - register int c; -{ - c &= ASCII; - - if (!Isdigit(c)) - return(CC_ERROR); /* no NULs in the input ever!! */ - - if (DoingArg) { /* if doing an arg, add this in... */ - if (Argument > 1000000) - return CC_ERROR; - Argument = (Argument * 10) + (c - '0'); - } - else { /* else starting an argument */ - Argument = c - '0'; - DoingArg = 1; - } - return(CC_ARGHACK); -} - -CCRETVAL -v_zero(c) /* command mode 0 for vi */ - register int c; -{ - if (DoingArg) { /* if doing an arg, add this in... */ - if (Argument > 1000000) - return CC_ERROR; - Argument = (Argument * 10) + (c - '0'); - return(CC_ARGHACK); - } - else { /* else starting an argument */ - Cursor = InputBuf; - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - RefCursor(); /* move the cursor */ - return(CC_NORM); - } -} - -/*ARGSUSED*/ -CCRETVAL -e_newline(c) - int c; -{ /* always ignore argument */ - USE(c); - /* PastBottom(); NOW done in ed.inputl.c */ - *LastChar++ = '\n'; /* for the benefit of CSH */ - *LastChar = '\0'; /* just in case */ - if (VImode) - InsertPos = InputBuf; /* Reset editing position */ - return(CC_NEWLINE); -} - -/*ARGSUSED*/ -CCRETVAL -e_send_eof(c) - int c; -{ /* for when ^D is ONLY send-eof */ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_EOF); -} - -/*ARGSUSED*/ -CCRETVAL -e_complete(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE); -} - -/*ARGSUSED*/ -CCRETVAL -e_complete_back(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE_BACK); -} - -/*ARGSUSED*/ -CCRETVAL -e_complete_fwd(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE_FWD); -} - -/*ARGSUSED*/ -CCRETVAL -e_complete_all(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE_ALL); -} - -/*ARGSUSED*/ -CCRETVAL -v_cm_complete(c) - int c; -{ - USE(c); - if (Cursor < LastChar) - Cursor++; - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE); -} - -/*ARGSUSED*/ -CCRETVAL -e_toggle_hist(c) - int c; -{ - struct Hist *hp; - int h; - - USE(c); - *LastChar = '\0'; /* just in case */ - - if (Hist_num <= 0) { - return CC_ERROR; - } - - hp = Histlist.Hnext; - if (hp == NULL) { /* this is only if no history */ - return(CC_ERROR); - } - - for (h = 1; h < Hist_num; h++) - hp = hp->Hnext; - - if (!CurrentHistLit) { - if (hp->histline) { - copyn(InputBuf, hp->histline, INBUFSIZE); - CurrentHistLit = 1; - } - else { - return CC_ERROR; - } - } - else { - (void) sprlex(InputBuf, sizeof(InputBuf), &hp->Hlex); - CurrentHistLit = 0; - } - - LastChar = InputBuf + Strlen(InputBuf); - if (LastChar > InputBuf) { - if (LastChar[-1] == '\n') - LastChar--; - if (LastChar[-1] == ' ') - LastChar--; - if (LastChar < InputBuf) - LastChar = InputBuf; - } - -#ifdef KSHVI - if (VImode) - Cursor = InputBuf; - else -#endif /* KSHVI */ - Cursor = LastChar; - - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_up_hist(c) - int c; -{ - Char beep = 0; - - USE(c); - UndoAction = TCSHOP_NOP; - *LastChar = '\0'; /* just in case */ - - if (Hist_num == 0) { /* save the current buffer away */ - copyn(HistBuf, InputBuf, INBUFSIZE); - LastHist = HistBuf + (LastChar - InputBuf); - } - - Hist_num += Argument; - - if (c_get_histline() == CC_ERROR) { - beep = 1; - (void) c_get_histline(); /* Hist_num was fixed by first call */ - } - - Refresh(); - if (beep) - return(CC_ERROR); - else - return(CC_NORM); /* was CC_UP_HIST */ -} - -/*ARGSUSED*/ -CCRETVAL -e_down_hist(c) - int c; -{ - USE(c); - UndoAction = TCSHOP_NOP; - *LastChar = '\0'; /* just in case */ - - Hist_num -= Argument; - - if (Hist_num < 0) { - Hist_num = 0; - return(CC_ERROR); /* make it beep */ - } - - return(c_get_histline()); -} - - - -/* - * c_hmatch() return True if the pattern matches the prefix - */ -static int -c_hmatch(str) -Char *str; -{ - if (Strncmp(patbuf, str, (size_t) patlen) == 0) - return 1; - return Gmatch(str, patbuf); -} - -/* - * c_hsetpat(): Set the history seatch pattern - */ -static void -c_hsetpat() -{ - if (LastCmd != F_UP_SEARCH_HIST && LastCmd != F_DOWN_SEARCH_HIST) { - patlen = (int) (Cursor - InputBuf); - if (patlen >= INBUFSIZE) patlen = INBUFSIZE -1; - if (patlen >= 0) { - (void) Strncpy(patbuf, InputBuf, (size_t) patlen); - patbuf[patlen] = '\0'; - } - else - patlen = (int) Strlen(patbuf); - } -#ifdef SDEBUG - xprintf("\nHist_num = %d\n", Hist_num); - xprintf("patlen = %d\n", patlen); - xprintf("patbuf = \"%S\"\n", patbuf); - xprintf("Cursor %d LastChar %d\n", Cursor - InputBuf, LastChar - InputBuf); -#endif -} - -/*ARGSUSED*/ -CCRETVAL -e_up_search_hist(c) - int c; -{ - struct Hist *hp; - int h; - bool found = 0; - - USE(c); - ActionFlag = TCSHOP_NOP; - UndoAction = TCSHOP_NOP; - *LastChar = '\0'; /* just in case */ - if (Hist_num < 0) { -#ifdef DEBUG_EDIT - xprintf("%s: e_up_search_hist(): Hist_num < 0; resetting.\n", progname); -#endif - Hist_num = 0; - return(CC_ERROR); - } - - if (Hist_num == 0) - { - copyn(HistBuf, InputBuf, INBUFSIZE); - LastHist = HistBuf + (LastChar - InputBuf); - } - - - hp = Histlist.Hnext; - if (hp == NULL) - return(CC_ERROR); - - c_hsetpat(); /* Set search pattern !! */ - - for (h = 1; h <= Hist_num; h++) - hp = hp->Hnext; - - while (hp != NULL) { - Char sbuf[INBUFSIZE], *hl; - if (hp->histline == NULL) { - hp->histline = Strsave(sprlex(sbuf, sizeof(sbuf), &hp->Hlex)); - } - hl = HistLit ? hp->histline : sprlex(sbuf, sizeof(sbuf), &hp->Hlex); -#ifdef SDEBUG - xprintf("Comparing with \"%S\"\n", hl); -#endif - if ((Strncmp(hl, InputBuf, (size_t) (LastChar - InputBuf)) || - hl[LastChar-InputBuf]) && c_hmatch(hl)) { - found++; - break; - } - h++; - hp = hp->Hnext; - } - - if (!found) { -#ifdef SDEBUG - xprintf("not found\n"); -#endif - return(CC_ERROR); - } - - Hist_num = h; - - return(c_get_histline()); -} - -/*ARGSUSED*/ -CCRETVAL -e_down_search_hist(c) - int c; -{ - struct Hist *hp; - int h; - bool found = 0; - - USE(c); - ActionFlag = TCSHOP_NOP; - UndoAction = TCSHOP_NOP; - *LastChar = '\0'; /* just in case */ - - if (Hist_num == 0) - return(CC_ERROR); - - hp = Histlist.Hnext; - if (hp == 0) - return(CC_ERROR); - - c_hsetpat(); /* Set search pattern !! */ - - for (h = 1; h < Hist_num && hp; h++) { - Char sbuf[INBUFSIZE], *hl; - if (hp->histline == NULL) { - hp->histline = Strsave(sprlex(sbuf, sizeof(sbuf), &hp->Hlex)); - } - hl = HistLit ? hp->histline : sprlex(sbuf, sizeof(sbuf), &hp->Hlex); -#ifdef SDEBUG - xprintf("Comparing with \"%S\"\n", hl); -#endif - if ((Strncmp(hl, InputBuf, (size_t) (LastChar - InputBuf)) || - hl[LastChar-InputBuf]) && c_hmatch(hl)) - found = h; - hp = hp->Hnext; - } - - if (!found) { /* is it the current history number? */ - if (!c_hmatch(HistBuf)) { -#ifdef SDEBUG - xprintf("not found\n"); -#endif - return(CC_ERROR); - } - } - - Hist_num = found; - - return(c_get_histline()); -} - -/*ARGSUSED*/ -CCRETVAL -e_helpme(c) - int c; -{ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_HELPME); -} - -/*ARGSUSED*/ -CCRETVAL -e_correct(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_CORRECT); -} - -/*ARGSUSED*/ -CCRETVAL -e_correctl(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_CORRECT_L); -} - -/*ARGSUSED*/ -CCRETVAL -e_run_fg_editor(c) - int c; -{ - register struct process *pp; - extern bool tellwhat; - - USE(c); - if ((pp = find_stop_ed()) != NULL) { - /* save our editor state so we can restore it */ - tellwhat = 1; - copyn(WhichBuf, InputBuf, INBUFSIZE); - LastWhich = WhichBuf + (LastChar - InputBuf); - CursWhich = WhichBuf + (Cursor - InputBuf); - HistWhich = Hist_num; - Hist_num = 0; /* for the history commands */ - - /* put the tty in a sane mode */ - PastBottom(); - (void) Cookedmode(); /* make sure the tty is set up correctly */ - - /* do it! */ - fg_proc_entry(pp); - - (void) Rawmode(); /* go on */ - Refresh(); - tellwhat = 0; - } - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_list_choices(c) - int c; -{ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_LIST_CHOICES); -} - -/*ARGSUSED*/ -CCRETVAL -e_list_all(c) - int c; -{ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_LIST_ALL); -} - -/*ARGSUSED*/ -CCRETVAL -e_list_glob(c) - int c; -{ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_LIST_GLOB); -} - -/*ARGSUSED*/ -CCRETVAL -e_expand_glob(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_EXPAND_GLOB); -} - -/*ARGSUSED*/ -CCRETVAL -e_normalize_path(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_NORMALIZE_PATH); -} - -/*ARGSUSED*/ -CCRETVAL -e_normalize_command(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_NORMALIZE_COMMAND); -} - -/*ARGSUSED*/ -CCRETVAL -e_expand_vars(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_EXPAND_VARS); -} - -/*ARGSUSED*/ -CCRETVAL -e_which(c) - int c; -{ /* do a fast command line which(1) */ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_WHICH); -} - -/*ARGSUSED*/ -CCRETVAL -e_last_item(c) - int c; -{ /* insert the last element of the prev. cmd */ - register Char *cp; - register struct Hist *hp; - register struct wordent *wp, *firstp; - register int i; - Char buf[INBUFSIZE]; - - USE(c); - if (Argument <= 0) - return(CC_ERROR); - - hp = Histlist.Hnext; - if (hp == NULL) { /* this is only if no history */ - return(CC_ERROR); - } - - wp = (hp->Hlex).prev; - - if (wp->prev == (struct wordent *) NULL) - return(CC_ERROR); /* an empty history entry */ - - firstp = (hp->Hlex).next; - - /* back up arg words in lex */ - for (i = 0; i < Argument && wp != firstp; i++) { - wp = wp->prev; - } - - cp = expand_lex(buf, INBUFSIZE, wp->prev, 0, i - 1); - *cp = '\0'; - if (InsertStr(buf)) - return(CC_ERROR); - - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_dabbrev_expand(c) - int c; -{ /* expand to preceding word matching prefix */ - register Char *cp, *ncp, *bp; - register struct Hist *hp; - register int arg = 0, len = 0, i; /* len = 0 to shut up gcc -Wall */ - register bool found = 0; - Char hbuf[INBUFSIZE]; - static int oldevent, hist, word; - static Char *start, *oldcursor; - - USE(c); - if (Argument <= 0) - return(CC_ERROR); - - cp = c_preword(Cursor, InputBuf, 1); - if (cp == Cursor || Isspace(*cp)) - return(CC_ERROR); - - hp = Histlist.Hnext; - bp = InputBuf; - if (Argument == 1 && eventno == oldevent && cp == start && - Cursor == oldcursor && patlen > 0 && Strncmp(patbuf, cp, patlen) == 0){ - /* continue previous search - go to last match (hist/word) */ - if (hist != 0) { /* need to move up history */ - for (i = 1; i < hist && hp != NULL; i++) - hp = hp->Hnext; - if (hp == NULL) /* "can't happen" */ - return(CC_ERROR); - cp = expand_lex(hbuf, INBUFSIZE, &hp->Hlex, 0, NCARGS); - *cp = '\0'; - bp = hbuf; - hp = hp->Hnext; - } - cp = c_preword(cp, bp, word); - } else { /* starting new search */ - oldevent = eventno; - start = cp; - patlen = (int) (Cursor - cp); - (void) Strncpy(patbuf, cp, patlen); - hist = 0; - word = 0; - } - - while (!found) { - ncp = c_preword(cp, bp, 1); - if (ncp == cp || Isspace(*ncp)) { /* beginning of line */ - hist++; - word = 0; - if (hp == NULL) - return(CC_ERROR); - cp = expand_lex(hbuf, INBUFSIZE, &hp->Hlex, 0, NCARGS); - *cp = '\0'; - bp = hbuf; - hp = hp->Hnext; - continue; - } else { - word++; - len = (int) (c_endword(ncp-1, cp, 1) - ncp + 1); - cp = ncp; - } - if (len > patlen && Strncmp(cp, patbuf, patlen) == 0) { - /* We don't fully check distinct matches as Gnuemacs does: */ - if (Argument > 1) { /* just count matches */ - if (++arg >= Argument) - found++; - } else { /* match if distinct from previous */ - if (len != Cursor - start || Strncmp(cp, start, len) != 0) - found++; - } - } - } - - if (LastChar + len - (Cursor - start) >= InputLim) - return(CC_ERROR); /* no room */ - DeleteBack(Cursor - start); - c_insert(len); - while (len--) - *Cursor++ = *cp++; - oldcursor = Cursor; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_yank_kill(c) - int c; -{ /* almost like GnuEmacs */ - register Char *kp, *cp; - - USE(c); - if (LastKill == KillBuf) /* if zero content */ - return(CC_ERROR); - - if (LastChar + (LastKill - KillBuf) >= InputLim) - return(CC_ERROR); /* end of buffer space */ - - /* else */ - Mark = Cursor; /* set the mark */ - cp = Cursor; /* for speed */ - - c_insert((int)(LastKill - KillBuf)); /* open the space, */ - for (kp = KillBuf; kp < LastKill; kp++) /* copy the chars */ - *cp++ = *kp; - - if (Argument == 1) /* if an arg, cursor at beginning */ - Cursor = cp; /* else cursor at end */ - - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_delprev(c) /* Backspace key in insert mode */ - int c; -{ - int rc; - - USE(c); - rc = CC_ERROR; - - if (InsertPos != 0) { - if (Argument <= Cursor - InsertPos) { - c_delbefore(Argument); /* delete before */ - Cursor -= Argument; -#if defined(DSPMBYTE) - if (_enable_mbdisp && extdel) { - Cursor--; - e_redisp(c); - } -#endif - rc = CC_REFRESH; - } - } - return(rc); -} /* v_delprev */ - -/*ARGSUSED*/ -CCRETVAL -e_delprev(c) - int c; -{ - USE(c); - if (Cursor > InputBuf) { - c_delbefore(Argument); /* delete before dot */ - if (Argument > Cursor - InputBuf) - Cursor = InputBuf; /* bounds check */ - else - Cursor -= Argument; -#if defined(DSPMBYTE) - if (_enable_mbdisp && extdel && Cursor > InputBuf) { - Cursor--; - e_redisp(c); - } -#endif - return(CC_REFRESH); - } - else { - return(CC_ERROR); - } -} - -/*ARGSUSED*/ -CCRETVAL -e_delwordprev(c) - int c; -{ - register Char *cp, *p, *kp; - - USE(c); - if (Cursor == InputBuf) - return(CC_ERROR); - /* else */ - - cp = c_prev_word(Cursor, InputBuf, Argument); - - for (p = cp, kp = KillBuf; p < Cursor; p++) /* save the text */ - *kp++ = *p; - LastKill = kp; - - c_delbefore((int)(Cursor - cp)); /* delete before dot */ - Cursor = cp; - if (Cursor < InputBuf) - Cursor = InputBuf; /* bounds check */ - return(CC_REFRESH); -} - -/* DCS <dcs@neutron.chem.yale.edu>, 9 Oct 93 - * - * Changed the names of some of the ^D family of editor functions to - * correspond to what they actually do and created new e_delnext_list - * for completeness. - * - * Old names: New names: - * - * delete-char delete-char-or-eof - * F_DELNEXT F_DELNEXT_EOF - * e_delnext e_delnext_eof - * edelnxt edelnxteof - * delete-char-or-eof delete-char - * F_DELNEXT_EOF F_DELNEXT - * e_delnext_eof e_delnext - * edelnxteof edelnxt - * delete-char-or-list delete-char-or-list-or-eof - * F_LIST_DELNEXT F_DELNEXT_LIST_EOF - * e_list_delnext e_delnext_list_eof - * edellsteof - * (no old equivalent) delete-char-or-list - * F_DELNEXT_LIST - * e_delnext_list - * e_delnxtlst - */ - -/* added by mtk@ari.ncl.omron.co.jp (920818) */ -/* rename e_delnext() -> e_delnext_eof() */ -/*ARGSUSED*/ -CCRETVAL -e_delnext(c) - int c; -{ - USE(c); - if (Cursor == LastChar) {/* if I'm at the end */ - if (!VImode) { - return(CC_ERROR); - } - else { - if (Cursor != InputBuf) - Cursor--; - else - return(CC_ERROR); - } - } - c_delafter(Argument); /* delete after dot */ - if (Cursor > LastChar) - Cursor = LastChar; /* bounds check */ - return(CC_REFRESH); -} - - -/*ARGSUSED*/ -CCRETVAL -e_delnext_eof(c) - int c; -{ - USE(c); - if (Cursor == LastChar) {/* if I'm at the end */ - if (!VImode) { - if (Cursor == InputBuf) { - /* if I'm also at the beginning */ - so_write(STReof, 4);/* then do a EOF */ - flush(); - return(CC_EOF); - } - else - return(CC_ERROR); - } - else { - if (Cursor != InputBuf) - Cursor--; - else - return(CC_ERROR); - } - } - c_delafter(Argument); /* delete after dot */ - if (Cursor > LastChar) - Cursor = LastChar; /* bounds check */ - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_delnext_list(c) - int c; -{ - USE(c); - if (Cursor == LastChar) { /* if I'm at the end */ - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_LIST_CHOICES); - } - else { - c_delafter(Argument); /* delete after dot */ - if (Cursor > LastChar) - Cursor = LastChar; /* bounds check */ - return(CC_REFRESH); - } -} - -/*ARGSUSED*/ -CCRETVAL -e_delnext_list_eof(c) - int c; -{ - USE(c); - if (Cursor == LastChar) { /* if I'm at the end */ - if (Cursor == InputBuf) { /* if I'm also at the beginning */ - so_write(STReof, 4);/* then do a EOF */ - flush(); - return(CC_EOF); - } - else { - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_LIST_CHOICES); - } - } - else { - c_delafter(Argument); /* delete after dot */ - if (Cursor > LastChar) - Cursor = LastChar; /* bounds check */ - return(CC_REFRESH); - } -} - -/*ARGSUSED*/ -CCRETVAL -e_list_eof(c) - int c; -{ - CCRETVAL rv; - - USE(c); - if (Cursor == LastChar && Cursor == InputBuf) { - so_write(STReof, 4); /* then do a EOF */ - flush(); - rv = CC_EOF; - } - else { - PastBottom(); - *LastChar = '\0'; /* just in case */ - rv = CC_LIST_CHOICES; - } - return rv; -} - -/*ARGSUSED*/ -CCRETVAL -e_delwordnext(c) - int c; -{ - register Char *cp, *p, *kp; - - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - cp = c_next_word(Cursor, LastChar, Argument); - - for (p = Cursor, kp = KillBuf; p < cp; p++) /* save the text */ - *kp++ = *p; - LastKill = kp; - - c_delafter((int)(cp - Cursor)); /* delete after dot */ - if (Cursor > LastChar) - Cursor = LastChar; /* bounds check */ - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_toend(c) - int c; -{ - USE(c); - Cursor = LastChar; - if (VImode) - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - RefCursor(); /* move the cursor */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tobeg(c) - int c; -{ - USE(c); - Cursor = InputBuf; - - if (VImode) { - while (Isspace(*Cursor)) /* We want FIRST non space character */ - Cursor++; - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - } - - RefCursor(); /* move the cursor */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_killend(c) - int c; -{ - register Char *kp, *cp; - - USE(c); - cp = Cursor; - kp = KillBuf; - while (cp < LastChar) - *kp++ = *cp++; /* copy it */ - LastKill = kp; - LastChar = Cursor; /* zap! -- delete to end */ - return(CC_REFRESH); -} - - -/*ARGSUSED*/ -CCRETVAL -e_killbeg(c) - int c; -{ - register Char *kp, *cp; - - USE(c); - cp = InputBuf; - kp = KillBuf; - while (cp < Cursor) - *kp++ = *cp++; /* copy it */ - LastKill = kp; - c_delbefore((int)(Cursor - InputBuf)); - Cursor = InputBuf; /* zap! */ - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_killall(c) - int c; -{ - register Char *kp, *cp; - - USE(c); - cp = InputBuf; - kp = KillBuf; - while (cp < LastChar) - *kp++ = *cp++; /* copy it */ - LastKill = kp; - LastChar = InputBuf; /* zap! -- delete all of it */ - Cursor = InputBuf; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_killregion(c) - int c; -{ - register Char *kp, *cp; - - USE(c); - if (!Mark) - return(CC_ERROR); - - if (Mark > Cursor) { - cp = Cursor; - kp = KillBuf; - while (cp < Mark) - *kp++ = *cp++; /* copy it */ - LastKill = kp; - c_delafter((int)(cp - Cursor)); /* delete it - UNUSED BY VI mode */ - } - else { /* mark is before cursor */ - cp = Mark; - kp = KillBuf; - while (cp < Cursor) - *kp++ = *cp++; /* copy it */ - LastKill = kp; - c_delbefore((int)(cp - Mark)); - Cursor = Mark; - } - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_copyregion(c) - int c; -{ - register Char *kp, *cp; - - USE(c); - if (!Mark) - return(CC_ERROR); - - if (Mark > Cursor) { - cp = Cursor; - kp = KillBuf; - while (cp < Mark) - *kp++ = *cp++; /* copy it */ - LastKill = kp; - } - else { /* mark is before cursor */ - cp = Mark; - kp = KillBuf; - while (cp < Cursor) - *kp++ = *cp++; /* copy it */ - LastKill = kp; - } - return(CC_NORM); /* don't even need to Refresh() */ -} - -/*ARGSUSED*/ -CCRETVAL -e_charswitch(cc) - int cc; -{ - register Char c; - - USE(cc); - - /* do nothing if we are at beginning of line or have only one char */ - if (Cursor == &InputBuf[0] || LastChar == &InputBuf[1]) { - return(CC_ERROR); - } - - if (Cursor < LastChar) { - Cursor++; - } - c = Cursor[-2]; - Cursor[-2] = Cursor[-1]; - Cursor[-1] = c; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_gcharswitch(cc) - int cc; -{ /* gosmacs style ^T */ - register Char c; - - USE(cc); - if (Cursor > &InputBuf[1]) {/* must have at least two chars entered */ - c = Cursor[-2]; - Cursor[-2] = Cursor[-1]; - Cursor[-1] = c; - return(CC_REFRESH); - } - else { - return(CC_ERROR); - } -} - -#if defined(DSPMBYTE) /* BY TAGA Nayuta VERY THANKS */ -/*ARGSUSED*/ -static void -e_charback_mbyte(argument) - int argument; -{ - if (!_enable_mbdisp) { - if (Argument > Cursor - InputBuf) - Cursor = InputBuf; - else - Cursor -= Argument; - } - else { - while (0 < argument && Cursor > InputBuf) { - if (Cursor - 1 != InputBuf && - Ismbyte1(*(Cursor - 2)) && Ismbyte2(*(Cursor - 1))) { - Cursor--; - } - Cursor--; - argument--; - } - } -} -#endif - -/*ARGSUSED*/ -CCRETVAL -e_charback(c) - int c; -{ - USE(c); - if (Cursor > InputBuf) { -#if defined(DSPMBYTE) /* BY TAGA Nayuta VERY THANKS */ - e_charback_mbyte(Argument); -#else - if (Argument > Cursor - InputBuf) - Cursor = InputBuf; - else - Cursor -= Argument; -#endif - - if (VImode) - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); - } - else { - return(CC_ERROR); - } -} - -/*ARGSUSED*/ -CCRETVAL -v_wordback(c) - int c; -{ - USE(c); - if (Cursor == InputBuf) - return(CC_ERROR); - /* else */ - - Cursor = c_preword(Cursor, InputBuf, Argument); /* bounds check */ - - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_wordback(c) - int c; -{ - USE(c); - if (Cursor == InputBuf) - return(CC_ERROR); - /* else */ - - Cursor = c_prev_word(Cursor, InputBuf, Argument); /* bounds check */ - - if (VImode) - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -#if defined(DSPMBYTE) /* BY TAGA Nayuta VERY THANKS */ -/*ARGSUSED*/ -static void -e_charfwd_mbyte(argument) - int argument; -{ - if (!_enable_mbdisp) - Cursor += argument; - else - while (0 < argument && Cursor < LastChar) { - if (Cursor + 1 != LastChar && - Ismbyte1(*Cursor) && Ismbyte2(*(Cursor + 1))) { - Cursor++; - } - Cursor++; - argument--; - } -} -#endif - -/*ARGSUSED*/ -CCRETVAL -e_charfwd(c) - int c; -{ - USE(c); - if (Cursor < LastChar) { -#if defined(DSPMBYTE) /* BY TAGA Nayuta VERY THANKS */ - e_charfwd_mbyte(Argument); -#else - Cursor += Argument; -#endif - if (Cursor > LastChar) - Cursor = LastChar; - - if (VImode) - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); - } - else { - return(CC_ERROR); - } -} - -/*ARGSUSED*/ -CCRETVAL -e_wordfwd(c) - int c; -{ - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - Cursor = c_next_word(Cursor, LastChar, Argument); - - if (VImode) - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_wordfwd(c) - int c; -{ - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - Cursor = c_nexword(Cursor, LastChar, Argument); - - if (VImode) - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_wordbegnext(c) - int c; -{ - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - Cursor = c_next_word(Cursor, LastChar, Argument); - if (Cursor < LastChar) - Cursor++; - - if (VImode) - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -static CCRETVAL -v_repeat_srch(c) - int c; -{ - CCRETVAL rv = CC_ERROR; -#ifdef SDEBUG - xprintf("dir %d patlen %d patbuf %S\n", - c, patlen, patbuf); -#endif - - LastCmd = (KEYCMD) c; /* Hack to stop c_hsetpat */ - LastChar = InputBuf; - switch (c) { - case F_DOWN_SEARCH_HIST: - rv = e_down_search_hist(0); - break; - case F_UP_SEARCH_HIST: - rv = e_up_search_hist(0); - break; - default: - break; - } - return rv; -} - -static CCRETVAL -v_csearch_back(ch, count, tflag) - int ch, count, tflag; -{ - Char *cp; - - cp = Cursor; - while (count--) { - if (*cp == ch) - cp--; - while (cp > InputBuf && *cp != ch) - cp--; - } - - if (cp < InputBuf || (cp == InputBuf && *cp != ch)) - return(CC_ERROR); - - if (*cp == ch && tflag) - cp++; - - Cursor = cp; - - if (ActionFlag & TCSHOP_DELETE) { - Cursor++; - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -static CCRETVAL -v_csearch_fwd(ch, count, tflag) - int ch, count, tflag; -{ - Char *cp; - - cp = Cursor; - while (count--) { - if(*cp == ch) - cp++; - while (cp < LastChar && *cp != ch) - cp++; - } - - if (cp >= LastChar) - return(CC_ERROR); - - if (*cp == ch && tflag) - cp--; - - Cursor = cp; - - if (ActionFlag & TCSHOP_DELETE) { - Cursor++; - c_delfini(); - return(CC_REFRESH); - } - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -static CCRETVAL -v_action(c) - int c; -{ - register Char *cp, *kp; - - if (ActionFlag == TCSHOP_DELETE) { - ActionFlag = TCSHOP_NOP; - ActionPos = 0; - - UndoSize = 0; - kp = UndoBuf; - for (cp = InputBuf; cp < LastChar; cp++) { - *kp++ = *cp; - UndoSize++; - } - - UndoAction = TCSHOP_INSERT; - UndoPtr = InputBuf; - LastChar = InputBuf; - Cursor = InputBuf; - if (c & TCSHOP_INSERT) - c_alternativ_key_map(0); - - return(CC_REFRESH); - } -#ifdef notdef - else if (ActionFlag == TCSHOP_NOP) { -#endif - ActionPos = Cursor; - ActionFlag = c; - return(CC_ARGHACK); /* Do NOT clear out argument */ -#ifdef notdef - } - else { - ActionFlag = 0; - ActionPos = 0; - return(CC_ERROR); - } -#endif -} - -#ifdef COMMENT -/* by: Brian Allison <uiucdcs!convex!allison@RUTGERS.EDU> */ -static void -c_get_word(begin, end) - Char **begin; - Char **end; -{ - Char *cp; - - cp = &Cursor[0]; - while (Argument--) { - while ((cp <= LastChar) && (isword(*cp))) - cp++; - *end = --cp; - while ((cp >= InputBuf) && (isword(*cp))) - cp--; - *begin = ++cp; - } -} -#endif /* COMMENT */ - -/*ARGSUSED*/ -CCRETVAL -e_uppercase(c) - int c; -{ - Char *cp, *end; - - USE(c); - end = c_next_word(Cursor, LastChar, Argument); - - for (cp = Cursor; cp < end; cp++) /* PWP: was cp=begin */ - if (Islower(*cp)) - *cp = Toupper(*cp); - - Cursor = end; - if (Cursor > LastChar) - Cursor = LastChar; - return(CC_REFRESH); -} - - -/*ARGSUSED*/ -CCRETVAL -e_capitolcase(c) - int c; -{ - Char *cp, *end; - - USE(c); - end = c_next_word(Cursor, LastChar, Argument); - - cp = Cursor; - for (; cp < end; cp++) { - if (Isalpha(*cp)) { - if (Islower(*cp)) - *cp = Toupper(*cp); - cp++; - break; - } - } - for (; cp < end; cp++) - if (Isupper(*cp)) - *cp = Tolower(*cp); - - Cursor = end; - if (Cursor > LastChar) - Cursor = LastChar; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_lowercase(c) - int c; -{ - Char *cp, *end; - - USE(c); - end = c_next_word(Cursor, LastChar, Argument); - - for (cp = Cursor; cp < end; cp++) - if (Isupper(*cp)) - *cp = Tolower(*cp); - - Cursor = end; - if (Cursor > LastChar) - Cursor = LastChar; - return(CC_REFRESH); -} - - -/*ARGSUSED*/ -CCRETVAL -e_set_mark(c) - int c; -{ - USE(c); - Mark = Cursor; - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_exchange_mark(c) - int c; -{ - register Char *cp; - - USE(c); - cp = Cursor; - Cursor = Mark; - Mark = cp; - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_argfour(c) - int c; -{ /* multiply current argument by 4 */ - USE(c); - if (Argument > 1000000) - return CC_ERROR; - DoingArg = 1; - Argument *= 4; - return(CC_ARGHACK); -} - -/*ARGSUSED*/ -CCRETVAL -e_quote(c) - int c; -{ - Char ch; - int num; - - USE(c); - QuoteModeOn(); - num = GetNextChar(&ch); - QuoteModeOff(); - if (num == 1) - return e_insert(ch); - else - return e_send_eof(0); -} - -/*ARGSUSED*/ -CCRETVAL -e_metanext(c) - int c; -{ - USE(c); - MetaNext = 1; - return(CC_ARGHACK); /* preserve argument */ -} - -#ifdef notdef -/*ARGSUSED*/ -CCRETVAL -e_extendnext(c) - int c; -{ - CurrentKeyMap = CcAltMap; - return(CC_ARGHACK); /* preserve argument */ -} - -#endif - -/*ARGSUSED*/ -CCRETVAL -v_insbeg(c) - int c; -{ /* move to beginning of line and start vi - * insert mode */ - USE(c); - Cursor = InputBuf; - InsertPos = Cursor; - - UndoPtr = Cursor; - UndoAction = TCSHOP_DELETE; - - RefCursor(); /* move the cursor */ - c_alternativ_key_map(0); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_replone(c) - int c; -{ /* vi mode overwrite one character */ - USE(c); - c_alternativ_key_map(0); - inputmode = MODE_REPLACE_1; - UndoAction = TCSHOP_CHANGE; /* Set Up for VI undo command */ - UndoPtr = Cursor; - UndoSize = 0; - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_replmode(c) - int c; -{ /* vi mode start overwriting */ - USE(c); - c_alternativ_key_map(0); - inputmode = MODE_REPLACE; - UndoAction = TCSHOP_CHANGE; /* Set Up for VI undo command */ - UndoPtr = Cursor; - UndoSize = 0; - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_substchar(c) - int c; -{ /* vi mode substitute for one char */ - USE(c); - c_delafter(Argument); - c_alternativ_key_map(0); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_substline(c) - int c; -{ /* vi mode replace whole line */ - USE(c); - (void) e_killall(0); - c_alternativ_key_map(0); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_chgtoend(c) - int c; -{ /* vi mode change to end of line */ - USE(c); - (void) e_killend(0); - c_alternativ_key_map(0); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_insert(c) - int c; -{ /* vi mode start inserting */ - USE(c); - c_alternativ_key_map(0); - - InsertPos = Cursor; - UndoPtr = Cursor; - UndoAction = TCSHOP_DELETE; - - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_add(c) - int c; -{ /* vi mode start adding */ - USE(c); - c_alternativ_key_map(0); - if (Cursor < LastChar) - { - Cursor++; - if (Cursor > LastChar) - Cursor = LastChar; - RefCursor(); - } - - InsertPos = Cursor; - UndoPtr = Cursor; - UndoAction = TCSHOP_DELETE; - - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_addend(c) - int c; -{ /* vi mode to add at end of line */ - USE(c); - c_alternativ_key_map(0); - Cursor = LastChar; - - InsertPos = LastChar; /* Mark where insertion begins */ - UndoPtr = LastChar; - UndoAction = TCSHOP_DELETE; - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_change_case(cc) - int cc; -{ - char c; - - USE(cc); - if (Cursor < LastChar) { -#ifndef WINNT - c = *Cursor; -#else - c = CHAR & *Cursor; -#endif /* WINNT */ - if (Isupper(c)) - *Cursor++ = Tolower(c); - else if (Islower(c)) - *Cursor++ = Toupper(c); - else - Cursor++; - RefPlusOne(); /* fast refresh for one char */ - return(CC_NORM); - } - return(CC_ERROR); -} - -/*ARGSUSED*/ -CCRETVAL -e_expand(c) - int c; -{ - register Char *p; - extern bool justpr; - - USE(c); - for (p = InputBuf; Isspace(*p); p++) - continue; - if (p == LastChar) - return(CC_ERROR); - - justpr++; - Expand++; - return(e_newline(0)); -} - -/*ARGSUSED*/ -CCRETVAL -e_startover(c) - int c; -{ /* erase all of current line, start again */ - USE(c); - ResetInLine(0); /* reset the input pointers */ - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_redisp(c) - int c; -{ - USE(c); - ClearLines(); - ClearDisp(); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_cleardisp(c) - int c; -{ - USE(c); - ClearScreen(); /* clear the whole real screen */ - ClearDisp(); /* reset everything */ - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_int(c) - int c; -{ - USE(c); -#if defined(_MINIX) || defined(WINNT) - /* SAK PATCH: erase all of current line, start again */ - ResetInLine(0); /* reset the input pointers */ - xputchar('\n'); - ClearDisp(); - return (CC_REFRESH); -#else /* !_MINIX && !WINNT */ - /* do no editing */ - return (CC_NORM); -#endif /* _MINIX || WINNT */ -} - -/* - * From: ghazi@cesl.rutgers.edu (Kaveh R. Ghazi) - * Function to send a character back to the input stream in cooked - * mode. Only works if we have TIOCSTI - */ -/*ARGSUSED*/ -CCRETVAL -e_stuff_char(c) - int c; -{ -#ifdef TIOCSTI - extern int Tty_raw_mode; - int was_raw = Tty_raw_mode; - char ch = (char) c; - - if (was_raw) - (void) Cookedmode(); - - (void) write(SHIN, "\n", 1); - (void) ioctl(SHIN, TIOCSTI, (ioctl_t) &ch); - - if (was_raw) - (void) Rawmode(); - return(e_redisp(c)); -#else /* !TIOCSTI */ - return(CC_ERROR); -#endif /* !TIOCSTI */ -} - -/*ARGSUSED*/ -CCRETVAL -e_insovr(c) - int c; -{ - USE(c); - inputmode = (inputmode == MODE_INSERT ? MODE_REPLACE : MODE_INSERT); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_dsusp(c) - int c; -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_flusho(c) - int c; -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_quit(c) - int c; -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_tsusp(c) - int c; -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_stopo(c) - int c; -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_expand_history(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - c_substitute(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_magic_space(c) - int c; -{ - USE(c); - *LastChar = '\0'; /* just in case */ - c_substitute(); - return(e_insert(' ')); -} - -/*ARGSUSED*/ -CCRETVAL -e_inc_fwd(c) - int c; -{ - USE(c); - patlen = 0; - return e_inc_search(F_DOWN_SEARCH_HIST); -} - - -/*ARGSUSED*/ -CCRETVAL -e_inc_back(c) - int c; -{ - USE(c); - patlen = 0; - return e_inc_search(F_UP_SEARCH_HIST); -} - -/*ARGSUSED*/ -CCRETVAL -e_copyprev(c) - int c; -{ - register Char *cp, *oldc, *dp; - - USE(c); - if (Cursor == InputBuf) - return(CC_ERROR); - /* else */ - - oldc = Cursor; - /* does a bounds check */ - cp = c_prev_word(Cursor, InputBuf, Argument); - - c_insert((int)(oldc - cp)); - for (dp = oldc; cp < oldc && dp < LastChar; cp++) - *dp++ = *cp; - - Cursor = dp; /* put cursor at end */ - - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_starto(c) - int c; -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_load_average(c) - int c; -{ - USE(c); - PastBottom(); -#ifdef TIOCSTAT - /* - * Here we pass &c to the ioctl because some os's (NetBSD) expect it - * there even if they don't use it. (lukem@netbsd.org) - */ - if (ioctl(SHIN, TIOCSTAT, (ioctl_t) &c) < 0) -#endif - xprintf(CGETS(5, 1, "Load average unavailable\n")); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_chgmeta(c) - int c; -{ - USE(c); - /* - * Delete with insert == change: first we delete and then we leave in - * insert mode. - */ - return(v_action(TCSHOP_DELETE|TCSHOP_INSERT)); -} - -/*ARGSUSED*/ -CCRETVAL -v_delmeta(c) - int c; -{ - USE(c); - return(v_action(TCSHOP_DELETE)); -} - - -/*ARGSUSED*/ -CCRETVAL -v_endword(c) - int c; -{ - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - Cursor = c_endword(Cursor, LastChar, Argument); - - if (ActionFlag & TCSHOP_DELETE) - { - Cursor++; - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_eword(c) - int c; -{ - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - Cursor = c_eword(Cursor, LastChar, Argument); - - if (ActionFlag & TCSHOP_DELETE) { - Cursor++; - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_char_fwd(c) - int c; -{ - Char ch; - - USE(c); - if (GetNextChar(&ch) != 1) - return e_send_eof(0); - - srch_dir = CHAR_FWD; - srch_char = ch; - - return v_csearch_fwd(ch, Argument, 0); - -} - -/*ARGSUSED*/ -CCRETVAL -v_char_back(c) - int c; -{ - Char ch; - - USE(c); - if (GetNextChar(&ch) != 1) - return e_send_eof(0); - - srch_dir = CHAR_BACK; - srch_char = ch; - - return v_csearch_back(ch, Argument, 0); -} - -/*ARGSUSED*/ -CCRETVAL -v_charto_fwd(c) - int c; -{ - Char ch; - - USE(c); - if (GetNextChar(&ch) != 1) - return e_send_eof(0); - - return v_csearch_fwd(ch, Argument, 1); - -} - -/*ARGSUSED*/ -CCRETVAL -v_charto_back(c) - int c; -{ - Char ch; - - USE(c); - if (GetNextChar(&ch) != 1) - return e_send_eof(0); - - return v_csearch_back(ch, Argument, 1); -} - -/*ARGSUSED*/ -CCRETVAL -v_rchar_fwd(c) - int c; -{ - USE(c); - if (srch_char == 0) - return CC_ERROR; - - return srch_dir == CHAR_FWD ? v_csearch_fwd(srch_char, Argument, 0) : - v_csearch_back(srch_char, Argument, 0); -} - -/*ARGSUSED*/ -CCRETVAL -v_rchar_back(c) - int c; -{ - USE(c); - if (srch_char == 0) - return CC_ERROR; - - return srch_dir == CHAR_BACK ? v_csearch_fwd(srch_char, Argument, 0) : - v_csearch_back(srch_char, Argument, 0); -} - -/*ARGSUSED*/ -CCRETVAL -v_undo(c) - int c; -{ - register int loop; - register Char *kp, *cp; - Char temp; - int size; - - USE(c); - switch (UndoAction) { - case TCSHOP_DELETE|TCSHOP_INSERT: - case TCSHOP_DELETE: - if (UndoSize == 0) return(CC_NORM); - cp = UndoPtr; - kp = UndoBuf; - for (loop=0; loop < UndoSize; loop++) /* copy the chars */ - *kp++ = *cp++; /* into UndoBuf */ - - for (cp = UndoPtr; cp <= LastChar; cp++) - *cp = cp[UndoSize]; - - LastChar -= UndoSize; - Cursor = UndoPtr; - - UndoAction = TCSHOP_INSERT; - break; - - case TCSHOP_INSERT: - if (UndoSize == 0) return(CC_NORM); - cp = UndoPtr; - Cursor = UndoPtr; - kp = UndoBuf; - c_insert(UndoSize); /* open the space, */ - for (loop = 0; loop < UndoSize; loop++) /* copy the chars */ - *cp++ = *kp++; - - UndoAction = TCSHOP_DELETE; - break; - - case TCSHOP_CHANGE: - if (UndoSize == 0) return(CC_NORM); - cp = UndoPtr; - Cursor = UndoPtr; - kp = UndoBuf; - size = (int)(Cursor-LastChar); /* NOT NSL independant */ - if (size < UndoSize) - size = UndoSize; - for(loop = 0; loop < size; loop++) { - temp = *kp; - *kp++ = *cp; - *cp++ = temp; - } - break; - - default: - return(CC_ERROR); - } - - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_ush_meta(c) - int c; -{ - USE(c); - return v_search(F_UP_SEARCH_HIST); -} - -/*ARGSUSED*/ -CCRETVAL -v_dsh_meta(c) - int c; -{ - USE(c); - return v_search(F_DOWN_SEARCH_HIST); -} - -/*ARGSUSED*/ -CCRETVAL -v_rsrch_fwd(c) - int c; -{ - USE(c); - if (patlen == 0) return(CC_ERROR); - return(v_repeat_srch(searchdir)); -} - -/*ARGSUSED*/ -CCRETVAL -v_rsrch_back(c) - int c; -{ - USE(c); - if (patlen == 0) return(CC_ERROR); - return(v_repeat_srch(searchdir == F_UP_SEARCH_HIST ? - F_DOWN_SEARCH_HIST : F_UP_SEARCH_HIST)); -} - -#ifndef WINNT -/* Since ed.defns.h is generated from ed.defns.c, these empty - functions will keep the F_NUM_FNS consistent - */ -CCRETVAL -e_copy_to_clipboard(c) - int c; -{ - USE(c); - return CC_ERROR; -} - -CCRETVAL -e_paste_from_clipboard(c) - int c; -{ - USE(c); - return (CC_ERROR); -} - -CCRETVAL -e_dosify_next(c) - int c; -{ - USE(c); - return (CC_ERROR); -} -CCRETVAL -e_dosify_prev(c) - int c; -{ - USE(c); - return (CC_ERROR); -} -#else /* WINNT */ -/*ARGSUSED*/ -CCRETVAL -e_dosify_next(c) - int c; -{ - register Char *cp, *p, *kp; - - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - cp = Cursor; - while( cp < LastChar) { - if ( (*cp & CHAR == ' ') && (cp[-1] & CHAR != '\\') ) - break; - cp++; - } - - for (p = Cursor, kp = KillBuf; p < cp; p++) {/* save the text */ - if ( ( *p & CHAR ) == '/') { - *kp++ = '\\'; - *kp++ = '\\'; - } - else - *kp++ = *p; - } - LastKill = kp; - - c_delafter((int)(cp - Cursor)); /* delete after dot */ - if (Cursor > LastChar) - Cursor = LastChar; /* bounds check */ - return (e_yank_kill(c)); -} -/*ARGSUSED*/ -CCRETVAL -e_dosify_prev(c) - int c; -{ - register Char *cp, *p, *kp; - - USE(c); - if (Cursor == InputBuf) - return(CC_ERROR); - /* else */ - - cp = Cursor-1; - /* Skip trailing spaces */ - while ((cp > InputBuf) && ( (*cp & CHAR) == ' ')) - cp--; - - while (cp > InputBuf) { - if ( ((*cp & CHAR) == ' ') && ((cp[-1] & CHAR) != '\\') ) - break; - cp--; - } - - for (p = cp, kp = KillBuf; p < Cursor; p++) {/* save the text */ - if ( ( *p & CHAR ) == '/') { - *kp++ = '\\'; - *kp++ = '\\'; - } - else - *kp++ = *p; - } - LastKill = kp; - - c_delbefore((int)(Cursor - cp)); /* delete before dot */ - Cursor = cp; - if (Cursor < InputBuf) - Cursor = InputBuf; /* bounds check */ - return(e_yank_kill(c)); -} -#endif /* !WINNT */ - -#ifdef notdef -void -MoveCursor(n) /* move cursor + right - left char */ - int n; -{ - Cursor = Cursor + n; - if (Cursor < InputBuf) - Cursor = InputBuf; - if (Cursor > LastChar) - Cursor = LastChar; - return; -} - -Char * -GetCursor() -{ - return(Cursor); -} - -int -PutCursor(p) - Char *p; -{ - if (p < InputBuf || p > LastChar) - return 1; /* Error */ - Cursor = p; - return 0; -} -#endif diff --git a/contrib/tcsh/ed.decls.h b/contrib/tcsh/ed.decls.h deleted file mode 100644 index 4b96d6d05075..000000000000 --- a/contrib/tcsh/ed.decls.h +++ /dev/null @@ -1,274 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.decls.h,v 3.28 1998/09/04 21:16:38 christos Exp $ */ -/* - * ed.decls.h: Editor external definitions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_ed_decls -#define _h_ed_decls - -/* - * ed.chared.c - */ -extern int InsertStr __P((Char *)); -extern void DeleteBack __P((int)); - -/* - * ed.init.c - */ -#ifdef SIG_WINDOW -extern void check_window_size __P((int)); -extern sigret_t window_change __P((int)); -#endif /* SIG_WINDOW */ -extern int ed_Setup __P((int)); -extern void ed_Init __P((void)); -extern int Cookedmode __P((void)); -extern int Rawmode __P((void)); -extern void ed_set_tty_eight_bit __P((void)); - -extern void QuoteModeOn __P((void)); -extern void QuoteModeOff __P((void)); -extern void ResetInLine __P((int)); -extern int Load_input_line __P((void)); - -/* - * ed.term.c: - */ -extern void dosetty __P((Char **, struct command *)); -extern int tty_getty __P((int, ttydata_t *)); -extern int tty_setty __P((int, ttydata_t *)); -extern void tty_getchar __P((ttydata_t *, unsigned char *)); -extern void tty_setchar __P((ttydata_t *, unsigned char *)); -extern speed_t tty_getspeed __P((ttydata_t *)); -extern int tty_gettabs __P((ttydata_t *)); -extern int tty_geteightbit __P((ttydata_t *)); -extern int tty_cooked_mode __P((ttydata_t *)); -#ifdef _IBMR2 -extern void tty_setdisc __P((int, int)); -#endif /* _IBMR2 */ - -/* - * ed.screen.c - */ -extern void terminit __P((void)); -extern void SetAttributes __P((int)); -extern void so_write __P((Char *, int)); -extern void ClearScreen __P((void)); -extern void MoveToLine __P((int)); -extern void MoveToChar __P((int)); -extern void ClearEOL __P((int)); -extern void Insert_write __P((Char *, int)); -extern void DeleteChars __P((int)); -extern void TellTC __P((char *)); -extern void SetTC __P((char *, char *)); -extern void EchoTC __P((Char **)); -extern int SetArrowKeys __P((CStr *, XmapVal *, int)); -extern int IsArrowKey __P((Char *)); -extern void ResetArrowKeys __P((void)); -extern void DefaultArrowKeys __P((void)); -extern int ClearArrowKeys __P((CStr *)); -extern void PrintArrowKeys __P((CStr *)); -extern void BindArrowKeys __P((void)); -extern void SoundBeep __P((void)); -extern int CanWeTab __P((void)); -extern void ChangeSize __P((int, int)); -#ifdef SIG_WINDOW -extern int GetSize __P((int *, int *)); -#endif /* SIG_WINDOW */ -extern void ClearToBottom __P((void)); -extern void GetTermCaps __P((void)); - -/* - * ed.defns.c - */ -extern void editinit __P((void)); -extern void ed_InitNLSMaps __P((void)); -#ifdef DEBUG_EDIT -extern void CheckMaps __P((void)); -#endif -extern void ed_InitMaps __P((void)); -extern void ed_InitEmacsMaps __P((void)); -extern void ed_InitVIMaps __P((void)); - -extern CCRETVAL e_unassigned __P((int)); -extern CCRETVAL e_insert __P((int)); -extern CCRETVAL e_newline __P((int)); -extern CCRETVAL e_delprev __P((int)); -extern CCRETVAL e_delnext __P((int)); -/* added by mtk@ari.ncl.omron.co.jp (920818) */ -extern CCRETVAL e_delnext_eof __P((int)); -extern CCRETVAL e_delnext_list __P((int)); -extern CCRETVAL e_delnext_list_eof __P((int)); /* for ^D */ -extern CCRETVAL e_toend __P((int)); -extern CCRETVAL e_tobeg __P((int)); -extern CCRETVAL e_charback __P((int)); -extern CCRETVAL e_charfwd __P((int)); -extern CCRETVAL e_quote __P((int)); -extern CCRETVAL e_startover __P((int)); -extern CCRETVAL e_redisp __P((int)); -extern CCRETVAL e_wordback __P((int)); -extern CCRETVAL e_wordfwd __P((int)); -extern CCRETVAL v_wordbegnext __P((int)); -extern CCRETVAL e_uppercase __P((int)); -extern CCRETVAL e_lowercase __P((int)); -extern CCRETVAL e_capitolcase __P((int)); -extern CCRETVAL e_cleardisp __P((int)); -extern CCRETVAL e_complete __P((int)); -extern CCRETVAL e_correct __P((int)); -extern CCRETVAL e_correctl __P((int)); -extern CCRETVAL e_up_hist __P((int)); -extern CCRETVAL e_down_hist __P((int)); -extern CCRETVAL e_up_search_hist __P((int)); -extern CCRETVAL e_down_search_hist __P((int)); -extern CCRETVAL e_helpme __P((int)); -extern CCRETVAL e_list_choices __P((int)); -extern CCRETVAL e_delwordprev __P((int)); -extern CCRETVAL e_delwordnext __P((int)); -extern CCRETVAL e_digit __P((int)); -extern CCRETVAL e_argdigit __P((int)); -extern CCRETVAL v_zero __P((int)); -extern CCRETVAL e_killend __P((int)); -extern CCRETVAL e_killbeg __P((int)); -extern CCRETVAL e_metanext __P((int)); -#ifdef notdef -extern CCRETVAL e_extendnext __P((int)); -#endif -extern CCRETVAL e_send_eof __P((int)); -extern CCRETVAL e_charswitch __P((int)); -extern CCRETVAL e_gcharswitch __P((int)); -extern CCRETVAL e_which __P((int)); -extern CCRETVAL e_yank_kill __P((int)); -extern CCRETVAL e_tty_dsusp __P((int)); -extern CCRETVAL e_tty_flusho __P((int)); -extern CCRETVAL e_tty_quit __P((int)); -extern CCRETVAL e_tty_tsusp __P((int)); -extern CCRETVAL e_tty_stopo __P((int)); -extern CCRETVAL e_tty_starto __P((int)); -extern CCRETVAL e_argfour __P((int)); -extern CCRETVAL e_set_mark __P((int)); -extern CCRETVAL e_exchange_mark __P((int)); -extern CCRETVAL e_last_item __P((int)); -extern CCRETVAL v_cmd_mode __P((int)); -extern CCRETVAL v_insert __P((int)); -extern CCRETVAL v_replmode __P((int)); -extern CCRETVAL v_replone __P((int)); -extern CCRETVAL v_substline __P((int)); -extern CCRETVAL v_substchar __P((int)); -extern CCRETVAL v_add __P((int)); -extern CCRETVAL v_addend __P((int)); -extern CCRETVAL v_insbeg __P((int)); -extern CCRETVAL v_chgtoend __P((int)); -extern CCRETVAL e_killregion __P((int)); -extern CCRETVAL e_killall __P((int)); -extern CCRETVAL e_copyregion __P((int)); -extern CCRETVAL e_tty_int __P((int)); -extern CCRETVAL e_run_fg_editor __P((int)); -extern CCRETVAL e_list_eof __P((int)); -extern CCRETVAL e_expand_history __P((int)); -extern CCRETVAL e_magic_space __P((int)); -extern CCRETVAL e_list_glob __P((int)); -extern CCRETVAL e_expand_glob __P((int)); -extern CCRETVAL e_insovr __P((int)); -extern CCRETVAL v_cm_complete __P((int)); -extern CCRETVAL e_copyprev __P((int)); -extern CCRETVAL v_change_case __P((int)); -extern CCRETVAL e_expand __P((int)); -extern CCRETVAL e_expand_vars __P((int)); -extern CCRETVAL e_toggle_hist __P((int)); -extern CCRETVAL e_load_average __P((int)); -extern CCRETVAL v_delprev __P((int)); -extern CCRETVAL v_delmeta __P((int)); -extern CCRETVAL v_wordfwd __P((int)); -extern CCRETVAL v_wordback __P((int)); -extern CCRETVAL v_endword __P((int)); -extern CCRETVAL v_eword __P((int)); -extern CCRETVAL v_undo __P((int)); -extern CCRETVAL v_ush_meta __P((int)); -extern CCRETVAL v_dsh_meta __P((int)); -extern CCRETVAL v_rsrch_fwd __P((int)); -extern CCRETVAL v_rsrch_back __P((int)); -extern CCRETVAL v_char_fwd __P((int)); -extern CCRETVAL v_char_back __P((int)); -extern CCRETVAL v_chgmeta __P((int)); -extern CCRETVAL e_inc_fwd __P((int)); -extern CCRETVAL e_inc_back __P((int)); -extern CCRETVAL v_rchar_fwd __P((int)); -extern CCRETVAL v_rchar_back __P((int)); -extern CCRETVAL v_charto_fwd __P((int)); -extern CCRETVAL v_charto_back __P((int)); -extern CCRETVAL e_normalize_path __P((int)); -extern CCRETVAL e_normalize_command __P((int)); -extern CCRETVAL e_stuff_char __P((int)); -extern CCRETVAL e_list_all __P((int)); -extern CCRETVAL e_complete_all __P((int)); -extern CCRETVAL e_complete_fwd __P((int)); -extern CCRETVAL e_complete_back __P((int)); -extern CCRETVAL e_dabbrev_expand __P((int)); -extern CCRETVAL e_copy_to_clipboard __P((int)); -extern CCRETVAL e_paste_from_clipboard __P((int)); -extern CCRETVAL e_dosify_next __P((int)); -extern CCRETVAL e_dosify_prev __P((int)); - -/* - * ed.inputl.c - */ -extern int Inputl __P((void)); -extern int GetNextChar __P((Char *)); -extern void PushMacro __P((Char *)); - -/* - * ed.refresh.c - */ -extern void ClearLines __P((void)); -extern void ClearDisp __P((void)); -extern void Refresh __P((void)); -extern void RefCursor __P((void)); -extern void RefPlusOne __P((void)); -extern void PastBottom __P((void)); - -/* - * ed.xmap.c - */ -extern XmapVal *XmapStr __P((CStr *)); -extern XmapVal *XmapCmd __P((int)); -extern void AddXkey __P((CStr *, XmapVal *, int)); -extern void ClearXkey __P((KEYCMD *, CStr *)); -extern int GetXkey __P((CStr *, XmapVal *)); -extern void ResetXmap __P((void)); -extern int DeleteXkey __P((CStr *)); -extern void PrintXkey __P((CStr *)); -extern int printOne __P((CStr *, XmapVal *, int)); -extern int parseescape __P((const Char **)); -extern unsigned char *unparsestring __P((CStr *, unsigned char *, Char *)); - -#endif /* _h_ed_decls */ diff --git a/contrib/tcsh/ed.defns.c b/contrib/tcsh/ed.defns.c deleted file mode 100644 index 41d79929202f..000000000000 --- a/contrib/tcsh/ed.defns.c +++ /dev/null @@ -1,1949 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.defns.c,v 3.33 1998/11/24 18:17:18 christos Exp $ */ -/* - * ed.defns.c: Editor function definitions and initialization - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: ed.defns.c,v 3.33 1998/11/24 18:17:18 christos Exp $") - -#include "ed.h" - -static void ed_InitMetaBindings __P((void)); - -PFCmd CcFuncTbl[] = { /* table of available commands */ - e_unassigned, -/* no #define here -- this is a dummy to detect initing of the key map */ - e_unassigned, -#define F_UNASSIGNED 1 - e_insert, -#define F_INSERT 2 - e_newline, -#define F_NEWLINE 3 - e_delprev, -#define F_DELPREV 4 - e_delnext, -#define F_DELNEXT 5 - e_toend, -#define F_TOEND 6 - e_tobeg, -#define F_TOBEG 7 - e_charback, -#define F_CHARBACK 8 - e_charfwd, -#define F_CHARFWD 9 - e_quote, -#define F_QUOTE 10 - e_startover, -#define F_STARTOVER 11 - e_redisp, -#define F_REDISP 12 - e_tty_int, -#define F_TTY_INT 13 - e_wordback, -#define F_WORDBACK 14 - e_wordfwd, -#define F_WORDFWD 15 - e_cleardisp, -#define F_CLEARDISP 16 - e_complete, -#define F_COMPLETE 17 - e_correct, -#define F_CORRECT 18 - e_up_hist, -#define F_UP_HIST 19 - e_down_hist, -#define F_DOWN_HIST 20 - e_up_search_hist, -#define F_UP_SEARCH_HIST 21 - e_down_search_hist, -#define F_DOWN_SEARCH_HIST 22 - e_helpme, -#define F_HELPME 23 - e_list_choices, -#define F_LIST_CHOICES 24 - e_delwordprev, -#define F_DELWORDPREV 25 - e_delwordnext, -#define F_DELWORDNEXT 26 - e_digit, -#define F_DIGIT 27 - e_killend, -#define F_KILLEND 28 - e_killbeg, -#define F_KILLBEG 29 - e_metanext, -#define F_METANEXT 30 - e_send_eof, -#define F_SEND_EOF 31 - e_charswitch, -#define F_CHARSWITCH 32 - e_which, -#define F_WHICH 33 - e_yank_kill, -#define F_YANK_KILL 34 - e_tty_dsusp, -#define F_TTY_DSUSP 35 - e_tty_flusho, -#define F_TTY_FLUSHO 36 - e_tty_quit, -#define F_TTY_QUIT 37 - e_tty_tsusp, -#define F_TTY_TSUSP 38 - e_tty_stopo, -#define F_TTY_STOPO 39 - e_tty_starto, -#define F_TTY_STARTO 40 - e_argfour, -#define F_ARGFOUR 41 - e_set_mark, -#define F_SET_MARK 42 - e_exchange_mark, -#define F_EXCHANGE_MARK 43 - e_last_item, -#define F_LAST_ITEM 44 - e_delnext_list_eof, -#define F_DELNEXT_LIST_EOF 45 - v_cmd_mode, -#define V_CMD_MODE 46 - v_insert, -#define V_INSERT 47 - e_argdigit, -#define F_ARGDIGIT 48 - e_killregion, -#define F_KILLREGION 49 - e_copyregion, -#define F_COPYREGION 50 - e_gcharswitch, -#define F_GCHARSWITCH 51 - e_run_fg_editor, -#define F_RUN_FG_EDITOR 52 - e_unassigned, /* place holder for sequence lead in character */ -#define F_XKEY 53 - e_uppercase, -#define F_CASEUPPER 54 - e_lowercase, -#define F_CASELOWER 55 - e_capitolcase, -#define F_CASECAPITAL 56 - v_zero, -#define V_ZERO 57 - v_add, -#define V_ADD 58 - v_addend, -#define V_ADDEND 59 - v_wordbegnext, -#define V_WORDBEGNEXT 60 - e_killall, -#define F_KILLALL 61 - e_unassigned, -/* F_EXTENDNEXT removed */ - v_insbeg, -#define V_INSBEG 63 - v_replmode, -#define V_REPLMODE 64 - v_replone, -#define V_REPLONE 65 - v_substline, -#define V_SUBSTLINE 66 - v_substchar, -#define V_SUBSTCHAR 67 - v_chgtoend, -#define V_CHGTOEND 68 - e_list_eof, -#define F_LIST_EOF 69 - e_list_glob, -#define F_LIST_GLOB 70 - e_expand_history, -#define F_EXPAND_HISTORY 71 - e_magic_space, -#define F_MAGIC_SPACE 72 - e_insovr, -#define F_INSOVR 73 - v_cm_complete, -#define V_CM_COMPLETE 74 - e_copyprev, -#define F_COPYPREV 75 - e_correctl, -#define F_CORRECT_L 76 - e_expand_glob, -#define F_EXPAND_GLOB 77 - e_expand_vars, -#define F_EXPAND_VARS 78 - e_toggle_hist, -#define F_TOGGLE_HIST 79 - v_change_case, -#define V_CHGCASE 80 - e_expand, -#define F_EXPAND 81 - e_load_average, -#define F_LOAD_AVERAGE 82 - v_delprev, -#define V_DELPREV 83 - v_delmeta, -#define V_DELMETA 84 - v_wordfwd, -#define V_WORDFWD 85 - v_wordback, -#define V_WORDBACK 86 - v_endword, -#define V_ENDWORD 87 - v_eword, -#define V_EWORD 88 - v_undo, -#define V_UNDO 89 - v_ush_meta, -#define V_USH_META 90 - v_dsh_meta, -#define V_DSH_META 91 - v_rsrch_fwd, -#define V_RSRCH_FWD 92 - v_rsrch_back, -#define V_RSRCH_BACK 93 - v_char_fwd, -#define V_CHAR_FWD 94 - v_char_back, -#define V_CHAR_BACK 95 - v_chgmeta, -#define V_CHGMETA 96 - e_inc_fwd, -#define F_INC_FWD 97 - e_inc_back, -#define F_INC_BACK 98 - v_rchar_fwd, -#define V_RCHAR_FWD 99 - v_rchar_back, -#define V_RCHAR_BACK 100 - v_charto_fwd, -#define V_CHARTO_FWD 101 - v_charto_back, -#define V_CHARTO_BACK 102 - e_normalize_path, -#define F_PATH_NORM 103 - e_delnext_eof, /* added by mtk@ari.ncl.omron.co.jp (920818) */ -#define F_DELNEXT_EOF 104 - e_stuff_char, -#define F_STUFF_CHAR 105 - e_complete_all, -#define F_COMPLETE_ALL 106 - e_list_all, -#define F_LIST_ALL 107 - e_complete_fwd, -#define F_COMPLETE_FWD 108 - e_complete_back, -#define F_COMPLETE_BACK 109 - e_delnext_list, -#define F_DELNEXT_LIST 110 - e_normalize_command, -#define F_COMMAND_NORM 111 - e_dabbrev_expand, -#define F_DABBREV_EXPAND 112 - e_copy_to_clipboard, -#define F_COPY_CLIP 113 - e_paste_from_clipboard, -#define F_PASTE_CLIP 114 - e_dosify_next, -#define F_DOSIFY_NEXT 115 - e_dosify_prev, -#define F_DOSIFY_PREV 116 - 0 /* DUMMY VALUE */ -#define F_NUM_FNS 117 - -}; - -KEYCMD NumFuns = F_NUM_FNS; - -KEYCMD CcKeyMap[NT_NUM_KEYS]; /* the real key map */ -KEYCMD CcAltMap[NT_NUM_KEYS]; /* the alternative key map */ -#define F_NUM_FUNCNAMES (F_NUM_FNS + 2) -struct KeyFuncs FuncNames[F_NUM_FUNCNAMES]; - -#ifdef WINNT -extern KEYCMD CcEmacsMap[]; -extern KEYCMD CcViMap[]; -extern KEYCMD CcViCmdMap[]; -#else /* !WINNT*/ -KEYCMD CcEmacsMap[] = { -/* keymap table, each index into above tbl; should be 256*sizeof(KEYCMD) - bytes long */ - - F_SET_MARK, /* ^@ */ - F_TOBEG, /* ^A */ - F_CHARBACK, /* ^B */ - F_TTY_INT, /* ^C */ - F_DELNEXT_LIST_EOF, /* ^D */ - F_TOEND, /* ^E */ - F_CHARFWD, /* ^F */ - F_UNASSIGNED, /* ^G */ - F_DELPREV, /* ^H */ - F_COMPLETE, /* ^I */ - F_NEWLINE, /* ^J */ - F_KILLEND, /* ^K */ - F_CLEARDISP, /* ^L */ - F_NEWLINE, /* ^M */ - F_DOWN_HIST, /* ^N */ - F_TTY_FLUSHO, /* ^O */ - F_UP_HIST, /* ^P */ - F_TTY_STARTO, /* ^Q */ - F_REDISP, /* ^R */ - F_TTY_STOPO, /* ^S */ - F_CHARSWITCH, /* ^T */ - F_KILLALL, /* ^U */ - F_QUOTE, /* ^V */ - F_KILLREGION, /* ^W */ - F_XKEY, /* ^X */ - F_YANK_KILL, /* ^Y */ - F_TTY_TSUSP, /* ^Z */ - F_METANEXT, /* ^[ */ - F_TTY_QUIT, /* ^\ */ - F_TTY_DSUSP, /* ^] */ - F_UNASSIGNED, /* ^^ */ - F_UNASSIGNED, /* ^_ */ - F_INSERT, /* SPACE */ - F_INSERT, /* ! */ - F_INSERT, /* " */ - F_INSERT, /* # */ - F_INSERT, /* $ */ - F_INSERT, /* % */ - F_INSERT, /* & */ - F_INSERT, /* ' */ - F_INSERT, /* ( */ - F_INSERT, /* ) */ - F_INSERT, /* * */ - F_INSERT, /* + */ - F_INSERT, /* , */ - F_INSERT, /* - */ - F_INSERT, /* . */ - F_INSERT, /* / */ - F_DIGIT, /* 0 */ - F_DIGIT, /* 1 */ - F_DIGIT, /* 2 */ - F_DIGIT, /* 3 */ - F_DIGIT, /* 4 */ - F_DIGIT, /* 5 */ - F_DIGIT, /* 6 */ - F_DIGIT, /* 7 */ - F_DIGIT, /* 8 */ - F_DIGIT, /* 9 */ - F_INSERT, /* : */ - F_INSERT, /* ; */ - F_INSERT, /* < */ - F_INSERT, /* = */ - F_INSERT, /* > */ - F_INSERT, /* ? */ - F_INSERT, /* @ */ - F_INSERT, /* A */ - F_INSERT, /* B */ - F_INSERT, /* C */ - F_INSERT, /* D */ - F_INSERT, /* E */ - F_INSERT, /* F */ - F_INSERT, /* G */ - F_INSERT, /* H */ - F_INSERT, /* I */ - F_INSERT, /* J */ - F_INSERT, /* K */ - F_INSERT, /* L */ - F_INSERT, /* M */ - F_INSERT, /* N */ - F_INSERT, /* O */ - F_INSERT, /* P */ - F_INSERT, /* Q */ - F_INSERT, /* R */ - F_INSERT, /* S */ - F_INSERT, /* T */ - F_INSERT, /* U */ - F_INSERT, /* V */ - F_INSERT, /* W */ - F_INSERT, /* X */ - F_INSERT, /* Y */ - F_INSERT, /* Z */ - F_INSERT, /* [ */ - F_INSERT, /* \ */ - F_INSERT, /* ] */ - F_INSERT, /* ^ */ - F_INSERT, /* _ */ - F_INSERT, /* ` */ - F_INSERT, /* a */ - F_INSERT, /* b */ - F_INSERT, /* c */ - F_INSERT, /* d */ - F_INSERT, /* e */ - F_INSERT, /* f */ - F_INSERT, /* g */ - F_INSERT, /* h */ - F_INSERT, /* i */ - F_INSERT, /* j */ - F_INSERT, /* k */ - F_INSERT, /* l */ - F_INSERT, /* m */ - F_INSERT, /* n */ - F_INSERT, /* o */ - F_INSERT, /* p */ - F_INSERT, /* q */ - F_INSERT, /* r */ - F_INSERT, /* s */ - F_INSERT, /* t */ - F_INSERT, /* u */ - F_INSERT, /* v */ - F_INSERT, /* w */ - F_INSERT, /* x */ - F_INSERT, /* y */ - F_INSERT, /* z */ - F_INSERT, /* { */ - F_INSERT, /* | */ - F_INSERT, /* } */ - F_INSERT, /* ~ */ - F_DELPREV, /* ^? */ - F_UNASSIGNED, /* M-^@ */ - F_UNASSIGNED, /* M-^A */ - F_UNASSIGNED, /* M-^B */ - F_UNASSIGNED, /* M-^C */ - F_LIST_CHOICES, /* M-^D */ - F_UNASSIGNED, /* M-^E */ - F_UNASSIGNED, /* M-^F */ - F_UNASSIGNED, /* M-^G */ - F_DELWORDPREV, /* M-^H */ - F_COMPLETE, /* M-^I */ - F_UNASSIGNED, /* M-^J */ - F_UNASSIGNED, /* M-^K */ - F_CLEARDISP, /* M-^L */ - F_UNASSIGNED, /* M-^M */ - F_UNASSIGNED, /* M-^N */ - F_UNASSIGNED, /* M-^O */ - F_UNASSIGNED, /* M-^P */ - F_UNASSIGNED, /* M-^Q */ - F_UNASSIGNED, /* M-^R */ - F_UNASSIGNED, /* M-^S */ - F_UNASSIGNED, /* M-^T */ - F_UNASSIGNED, /* M-^U */ - F_UNASSIGNED, /* M-^V */ - F_UNASSIGNED, /* M-^W */ - F_UNASSIGNED, /* M-^X */ - F_UNASSIGNED, /* M-^Y */ - F_RUN_FG_EDITOR, /* M-^Z */ - F_COMPLETE, /* M-^[ */ - F_UNASSIGNED, /* M-^\ */ - F_UNASSIGNED, /* M-^] */ - F_UNASSIGNED, /* M-^^ */ - F_COPYPREV, /* M-^_ */ - F_EXPAND_HISTORY, /* M-SPACE */ - F_EXPAND_HISTORY, /* M-! */ - F_UNASSIGNED, /* M-" */ - F_UNASSIGNED, /* M-# */ - F_CORRECT_L, /* M-$ */ - F_UNASSIGNED, /* M-% */ - F_UNASSIGNED, /* M-& */ - F_UNASSIGNED, /* M-' */ - F_UNASSIGNED, /* M-( */ - F_UNASSIGNED, /* M-) */ - F_UNASSIGNED, /* M-* */ - F_UNASSIGNED, /* M-+ */ - F_UNASSIGNED, /* M-, */ - F_UNASSIGNED, /* M-- */ - F_UNASSIGNED, /* M-. */ - F_DABBREV_EXPAND, /* M-/ */ - F_ARGDIGIT, /* M-0 */ - F_ARGDIGIT, /* M-1 */ - F_ARGDIGIT, /* M-2 */ - F_ARGDIGIT, /* M-3 */ - F_ARGDIGIT, /* M-4 */ - F_ARGDIGIT, /* M-5 */ - F_ARGDIGIT, /* M-6 */ - F_ARGDIGIT, /* M-7 */ - F_ARGDIGIT, /* M-8 */ - F_ARGDIGIT, /* M-9 */ - F_UNASSIGNED, /* M-: */ - F_UNASSIGNED, /* M-; */ - F_UNASSIGNED, /* M-< */ - F_UNASSIGNED, /* M-= */ - F_UNASSIGNED, /* M-> */ - F_WHICH, /* M-? */ - F_UNASSIGNED, /* M-@ */ - F_UNASSIGNED, /* M-A */ - F_WORDBACK, /* M-B */ - F_CASECAPITAL, /* M-C */ - F_DELWORDNEXT, /* M-D */ - F_UNASSIGNED, /* M-E */ - F_WORDFWD, /* M-F */ - F_UNASSIGNED, /* M-G */ - F_HELPME, /* M-H */ - F_UNASSIGNED, /* M-I */ - F_UNASSIGNED, /* M-J */ - F_UNASSIGNED, /* M-K */ - F_CASELOWER, /* M-L */ - F_UNASSIGNED, /* M-M */ - F_DOWN_SEARCH_HIST, /* M-N */ - F_XKEY, /* M-O *//* extended key esc PWP Mar 88 */ - F_UP_SEARCH_HIST, /* M-P */ - F_UNASSIGNED, /* M-Q */ - F_TOGGLE_HIST, /* M-R */ - F_CORRECT, /* M-S */ - F_UNASSIGNED, /* M-T */ - F_CASEUPPER, /* M-U */ - F_UNASSIGNED, /* M-V */ - F_COPYREGION, /* M-W */ - F_UNASSIGNED, /* M-X */ - F_UNASSIGNED, /* M-Y */ - F_UNASSIGNED, /* M-Z */ - F_XKEY, /* M-[ *//* extended key esc -mf Oct 87 */ - F_UNASSIGNED, /* M-\ */ - F_UNASSIGNED, /* M-] */ - F_UNASSIGNED, /* M-^ */ - F_LAST_ITEM, /* M-_ */ - F_UNASSIGNED, /* M-` */ - F_UNASSIGNED, /* M-a */ - F_WORDBACK, /* M-b */ - F_CASECAPITAL, /* M-c */ - F_DELWORDNEXT, /* M-d */ - F_UNASSIGNED, /* M-e */ - F_WORDFWD, /* M-f */ - F_UNASSIGNED, /* M-g */ - F_HELPME, /* M-h */ - F_UNASSIGNED, /* M-i */ - F_UNASSIGNED, /* M-j */ - F_UNASSIGNED, /* M-k */ - F_CASELOWER, /* M-l */ - F_UNASSIGNED, /* M-m */ - F_DOWN_SEARCH_HIST, /* M-n */ - F_UNASSIGNED, /* M-o */ - F_UP_SEARCH_HIST, /* M-p */ - F_UNASSIGNED, /* M-q */ - F_TOGGLE_HIST, /* M-r */ - F_CORRECT, /* M-s */ - F_UNASSIGNED, /* M-t */ - F_CASEUPPER, /* M-u */ - F_UNASSIGNED, /* M-v */ - F_COPYREGION, /* M-w */ - F_UNASSIGNED, /* M-x */ - F_UNASSIGNED, /* M-y */ - F_UNASSIGNED, /* M-z */ - F_UNASSIGNED, /* M-{ */ - F_UNASSIGNED, /* M-| */ - F_UNASSIGNED, /* M-} */ - F_UNASSIGNED, /* M-~ */ - F_DELWORDPREV /* M-^? */ -}; - -/* - * keymap table for vi. Each index into above tbl; should be - * 256 entries long. Vi mode uses a sticky-extend to do command mode: - * insert mode characters are in the normal keymap, and command mode - * in the extended keymap. - */ -static KEYCMD CcViMap[] = { -#ifdef KSHVI - F_UNASSIGNED, /* ^@ */ - F_INSERT, /* ^A */ - F_INSERT, /* ^B */ - F_INSERT, /* ^C */ - F_INSERT, /* ^D */ - F_INSERT, /* ^E */ - F_INSERT, /* ^F */ - F_INSERT, /* ^G */ - V_DELPREV, /* ^H */ /* BackSpace key */ - F_COMPLETE, /* ^I */ /* Tab Key */ - F_NEWLINE, /* ^J */ - F_INSERT, /* ^K */ - F_INSERT, /* ^L */ - F_NEWLINE, /* ^M */ - F_INSERT, /* ^N */ - F_INSERT, /* ^O */ - F_INSERT, /* ^P */ - F_TTY_STARTO, /* ^Q */ - F_INSERT, /* ^R */ - F_INSERT, /* ^S */ - F_INSERT, /* ^T */ - F_INSERT, /* ^U */ - F_QUOTE, /* ^V */ - F_DELWORDPREV, /* ^W */ /* Only until start edit pos */ - F_INSERT, /* ^X */ - F_INSERT, /* ^Y */ - F_INSERT, /* ^Z */ - V_CMD_MODE, /* ^[ */ /* [ Esc ] key */ - F_TTY_QUIT, /* ^\ */ - F_INSERT, /* ^] */ - F_INSERT, /* ^^ */ - F_INSERT, /* ^_ */ -#else /* !KSHVI */ - F_UNASSIGNED, /* ^@ */ /* NOTE: These mapping do NOT */ - F_TOBEG, /* ^A */ /* Correspond well to the KSH */ - F_CHARBACK, /* ^B */ /* VI editting assignments */ - F_TTY_INT, /* ^C */ /* On the other hand they are */ - F_LIST_EOF, /* ^D */ /* convenient any many people */ - F_TOEND, /* ^E */ /* have gotten used to them */ - F_CHARFWD, /* ^F */ - F_LIST_GLOB, /* ^G */ - F_DELPREV, /* ^H */ /* BackSpace key */ - F_COMPLETE, /* ^I */ /* Tab Key */ - F_NEWLINE, /* ^J */ - F_KILLEND, /* ^K */ - F_CLEARDISP, /* ^L */ - F_NEWLINE, /* ^M */ - F_DOWN_HIST, /* ^N */ - F_TTY_FLUSHO, /* ^O */ - F_UP_HIST, /* ^P */ - F_TTY_STARTO, /* ^Q */ - F_REDISP, /* ^R */ - F_TTY_STOPO, /* ^S */ - F_CHARSWITCH, /* ^T */ - F_KILLBEG, /* ^U */ - F_QUOTE, /* ^V */ - F_DELWORDPREV, /* ^W */ - F_EXPAND, /* ^X */ - F_TTY_DSUSP, /* ^Y */ - F_TTY_TSUSP, /* ^Z */ - V_CMD_MODE, /* ^[ */ - F_TTY_QUIT, /* ^\ */ - F_UNASSIGNED, /* ^] */ - F_UNASSIGNED, /* ^^ */ - F_UNASSIGNED, /* ^_ */ -#endif /* KSHVI */ - F_INSERT, /* SPACE */ - F_INSERT, /* ! */ - F_INSERT, /* " */ - F_INSERT, /* # */ - F_INSERT, /* $ */ - F_INSERT, /* % */ - F_INSERT, /* & */ - F_INSERT, /* ' */ - F_INSERT, /* ( */ - F_INSERT, /* ) */ - F_INSERT, /* * */ - F_INSERT, /* + */ - F_INSERT, /* , */ - F_INSERT, /* - */ - F_INSERT, /* . */ - F_INSERT, /* / */ - F_INSERT, /* 0 */ - F_INSERT, /* 1 */ - F_INSERT, /* 2 */ - F_INSERT, /* 3 */ - F_INSERT, /* 4 */ - F_INSERT, /* 5 */ - F_INSERT, /* 6 */ - F_INSERT, /* 7 */ - F_INSERT, /* 8 */ - F_INSERT, /* 9 */ - F_INSERT, /* : */ - F_INSERT, /* ; */ - F_INSERT, /* < */ - F_INSERT, /* = */ - F_INSERT, /* > */ - F_INSERT, /* ? */ - F_INSERT, /* @ */ - F_INSERT, /* A */ - F_INSERT, /* B */ - F_INSERT, /* C */ - F_INSERT, /* D */ - F_INSERT, /* E */ - F_INSERT, /* F */ - F_INSERT, /* G */ - F_INSERT, /* H */ - F_INSERT, /* I */ - F_INSERT, /* J */ - F_INSERT, /* K */ - F_INSERT, /* L */ - F_INSERT, /* M */ - F_INSERT, /* N */ - F_INSERT, /* O */ - F_INSERT, /* P */ - F_INSERT, /* Q */ - F_INSERT, /* R */ - F_INSERT, /* S */ - F_INSERT, /* T */ - F_INSERT, /* U */ - F_INSERT, /* V */ - F_INSERT, /* W */ - F_INSERT, /* X */ - F_INSERT, /* Y */ - F_INSERT, /* Z */ - F_INSERT, /* [ */ - F_INSERT, /* \ */ - F_INSERT, /* ] */ - F_INSERT, /* ^ */ - F_INSERT, /* _ */ - F_INSERT, /* ` */ - F_INSERT, /* a */ - F_INSERT, /* b */ - F_INSERT, /* c */ - F_INSERT, /* d */ - F_INSERT, /* e */ - F_INSERT, /* f */ - F_INSERT, /* g */ - F_INSERT, /* h */ - F_INSERT, /* i */ - F_INSERT, /* j */ - F_INSERT, /* k */ - F_INSERT, /* l */ - F_INSERT, /* m */ - F_INSERT, /* n */ - F_INSERT, /* o */ - F_INSERT, /* p */ - F_INSERT, /* q */ - F_INSERT, /* r */ - F_INSERT, /* s */ - F_INSERT, /* t */ - F_INSERT, /* u */ - F_INSERT, /* v */ - F_INSERT, /* w */ - F_INSERT, /* x */ - F_INSERT, /* y */ - F_INSERT, /* z */ - F_INSERT, /* { */ - F_INSERT, /* | */ - F_INSERT, /* } */ - F_INSERT, /* ~ */ - F_DELPREV, /* ^? */ - F_UNASSIGNED, /* M-^@ */ - F_UNASSIGNED, /* M-^A */ - F_UNASSIGNED, /* M-^B */ - F_UNASSIGNED, /* M-^C */ - F_UNASSIGNED, /* M-^D */ - F_UNASSIGNED, /* M-^E */ - F_UNASSIGNED, /* M-^F */ - F_UNASSIGNED, /* M-^G */ - F_UNASSIGNED, /* M-^H */ - F_UNASSIGNED, /* M-^I */ - F_UNASSIGNED, /* M-^J */ - F_UNASSIGNED, /* M-^K */ - F_UNASSIGNED, /* M-^L */ - F_UNASSIGNED, /* M-^M */ - F_UNASSIGNED, /* M-^N */ - F_UNASSIGNED, /* M-^O */ - F_UNASSIGNED, /* M-^P */ - F_UNASSIGNED, /* M-^Q */ - F_UNASSIGNED, /* M-^R */ - F_UNASSIGNED, /* M-^S */ - F_UNASSIGNED, /* M-^T */ - F_UNASSIGNED, /* M-^U */ - F_UNASSIGNED, /* M-^V */ - F_UNASSIGNED, /* M-^W */ - F_UNASSIGNED, /* M-^X */ - F_UNASSIGNED, /* M-^Y */ - F_UNASSIGNED, /* M-^Z */ - F_UNASSIGNED, /* M-^[ */ - F_UNASSIGNED, /* M-^\ */ - F_UNASSIGNED, /* M-^] */ - F_UNASSIGNED, /* M-^^ */ - F_UNASSIGNED, /* M-^_ */ - F_UNASSIGNED, /* M-SPACE */ - F_UNASSIGNED, /* M-! */ - F_UNASSIGNED, /* M-" */ - F_UNASSIGNED, /* M-# */ - F_UNASSIGNED, /* M-$ */ - F_UNASSIGNED, /* M-% */ - F_UNASSIGNED, /* M-& */ - F_UNASSIGNED, /* M-' */ - F_UNASSIGNED, /* M-( */ - F_UNASSIGNED, /* M-) */ - F_UNASSIGNED, /* M-* */ - F_UNASSIGNED, /* M-+ */ - F_UNASSIGNED, /* M-, */ - F_UNASSIGNED, /* M-- */ - F_UNASSIGNED, /* M-. */ - F_UNASSIGNED, /* M-/ */ - F_UNASSIGNED, /* M-0 */ - F_UNASSIGNED, /* M-1 */ - F_UNASSIGNED, /* M-2 */ - F_UNASSIGNED, /* M-3 */ - F_UNASSIGNED, /* M-4 */ - F_UNASSIGNED, /* M-5 */ - F_UNASSIGNED, /* M-6 */ - F_UNASSIGNED, /* M-7 */ - F_UNASSIGNED, /* M-8 */ - F_UNASSIGNED, /* M-9 */ - F_UNASSIGNED, /* M-: */ - F_UNASSIGNED, /* M-; */ - F_UNASSIGNED, /* M-< */ - F_UNASSIGNED, /* M-= */ - F_UNASSIGNED, /* M-> */ - F_UNASSIGNED, /* M-? */ - F_UNASSIGNED, /* M-@ */ - F_UNASSIGNED, /* M-A */ - F_UNASSIGNED, /* M-B */ - F_UNASSIGNED, /* M-C */ - F_UNASSIGNED, /* M-D */ - F_UNASSIGNED, /* M-E */ - F_UNASSIGNED, /* M-F */ - F_UNASSIGNED, /* M-G */ - F_UNASSIGNED, /* M-H */ - F_UNASSIGNED, /* M-I */ - F_UNASSIGNED, /* M-J */ - F_UNASSIGNED, /* M-K */ - F_UNASSIGNED, /* M-L */ - F_UNASSIGNED, /* M-M */ - F_UNASSIGNED, /* M-N */ - F_UNASSIGNED, /* M-O */ - F_UNASSIGNED, /* M-P */ - F_UNASSIGNED, /* M-Q */ - F_UNASSIGNED, /* M-R */ - F_UNASSIGNED, /* M-S */ - F_UNASSIGNED, /* M-T */ - F_UNASSIGNED, /* M-U */ - F_UNASSIGNED, /* M-V */ - F_UNASSIGNED, /* M-W */ - F_UNASSIGNED, /* M-X */ - F_UNASSIGNED, /* M-Y */ - F_UNASSIGNED, /* M-Z */ - F_UNASSIGNED, /* M-[ */ - F_UNASSIGNED, /* M-\ */ - F_UNASSIGNED, /* M-] */ - F_UNASSIGNED, /* M-^ */ - F_UNASSIGNED, /* M-_ */ - F_UNASSIGNED, /* M-` */ - F_UNASSIGNED, /* M-a */ - F_UNASSIGNED, /* M-b */ - F_UNASSIGNED, /* M-c */ - F_UNASSIGNED, /* M-d */ - F_UNASSIGNED, /* M-e */ - F_UNASSIGNED, /* M-f */ - F_UNASSIGNED, /* M-g */ - F_UNASSIGNED, /* M-h */ - F_UNASSIGNED, /* M-i */ - F_UNASSIGNED, /* M-j */ - F_UNASSIGNED, /* M-k */ - F_UNASSIGNED, /* M-l */ - F_UNASSIGNED, /* M-m */ - F_UNASSIGNED, /* M-n */ - F_UNASSIGNED, /* M-o */ - F_UNASSIGNED, /* M-p */ - F_UNASSIGNED, /* M-q */ - F_UNASSIGNED, /* M-r */ - F_UNASSIGNED, /* M-s */ - F_UNASSIGNED, /* M-t */ - F_UNASSIGNED, /* M-u */ - F_UNASSIGNED, /* M-v */ - F_UNASSIGNED, /* M-w */ - F_UNASSIGNED, /* M-x */ - F_UNASSIGNED, /* M-y */ - F_UNASSIGNED, /* M-z */ - F_UNASSIGNED, /* M-{ */ - F_UNASSIGNED, /* M-| */ - F_UNASSIGNED, /* M-} */ - F_UNASSIGNED, /* M-~ */ - F_UNASSIGNED /* M-^? */ -}; - -KEYCMD CcViCmdMap[] = { - F_UNASSIGNED, /* ^@ */ - F_TOBEG, /* ^A */ - F_UNASSIGNED, /* ^B */ - F_TTY_INT, /* ^C */ - F_LIST_CHOICES, /* ^D */ - F_TOEND, /* ^E */ - F_UNASSIGNED, /* ^F */ - F_LIST_GLOB, /* ^G */ - F_CHARBACK, /* ^H */ - V_CM_COMPLETE, /* ^I */ - F_NEWLINE, /* ^J */ - F_KILLEND, /* ^K */ - F_CLEARDISP, /* ^L */ - F_NEWLINE, /* ^M */ - F_DOWN_HIST, /* ^N */ - F_TTY_FLUSHO, /* ^O */ - F_UP_HIST, /* ^P */ - F_TTY_STARTO, /* ^Q */ - F_REDISP, /* ^R */ - F_TTY_STOPO, /* ^S */ - F_UNASSIGNED, /* ^T */ - F_KILLBEG, /* ^U */ - F_UNASSIGNED, /* ^V */ - F_DELWORDPREV, /* ^W */ - F_EXPAND, /* ^X */ - F_UNASSIGNED, /* ^Y */ - F_UNASSIGNED, /* ^Z */ - F_METANEXT, /* ^[ */ - F_TTY_QUIT, /* ^\ */ - F_UNASSIGNED, /* ^] */ - F_UNASSIGNED, /* ^^ */ - F_UNASSIGNED, /* ^_ */ - F_CHARFWD, /* SPACE */ - F_EXPAND_HISTORY, /* ! */ - F_UNASSIGNED, /* " */ - F_UNASSIGNED, /* # */ - F_TOEND, /* $ */ - F_UNASSIGNED, /* % */ - F_UNASSIGNED, /* & */ - F_UNASSIGNED, /* ' */ - F_UNASSIGNED, /* ( */ - F_UNASSIGNED, /* ) */ - F_EXPAND_GLOB, /* * */ - F_DOWN_HIST, /* + */ - V_RCHAR_BACK, /* , */ - F_UP_HIST, /* - */ - F_UNASSIGNED, /* . */ - V_DSH_META, /* / */ - V_ZERO, /* 0 */ - F_ARGDIGIT, /* 1 */ - F_ARGDIGIT, /* 2 */ - F_ARGDIGIT, /* 3 */ - F_ARGDIGIT, /* 4 */ - F_ARGDIGIT, /* 5 */ - F_ARGDIGIT, /* 6 */ - F_ARGDIGIT, /* 7 */ - F_ARGDIGIT, /* 8 */ - F_ARGDIGIT, /* 9 */ - F_UNASSIGNED, /* : */ - V_RCHAR_FWD, /* ; */ - F_UNASSIGNED, /* < */ - F_UNASSIGNED, /* = */ - F_UNASSIGNED, /* > */ - V_USH_META, /* ? */ - F_UNASSIGNED, /* @ */ - V_ADDEND, /* A */ - V_WORDBACK, /* B */ - V_CHGTOEND, /* C */ - F_KILLEND, /* D */ - V_ENDWORD, /* E */ - V_CHAR_BACK, /* F */ - F_UNASSIGNED, /* G */ - F_UNASSIGNED, /* H */ - V_INSBEG, /* I */ - F_DOWN_SEARCH_HIST, /* J */ - F_UP_SEARCH_HIST, /* K */ - F_UNASSIGNED, /* L */ - F_UNASSIGNED, /* M */ - V_RSRCH_BACK, /* N */ - F_XKEY, /* O */ - F_UNASSIGNED, /* P */ - F_UNASSIGNED, /* Q */ - V_REPLMODE, /* R */ - V_SUBSTLINE, /* S */ - V_CHARTO_BACK, /* T */ - F_UNASSIGNED, /* U */ - F_EXPAND_VARS, /* V */ - V_WORDFWD, /* W */ - F_DELPREV, /* X */ - F_UNASSIGNED, /* Y */ - F_UNASSIGNED, /* Z */ - F_XKEY, /* [ */ - F_UNASSIGNED, /* \ */ - F_UNASSIGNED, /* ] */ - F_TOBEG, /* ^ */ - F_UNASSIGNED, /* _ */ - F_UNASSIGNED, /* ` */ - V_ADD, /* a */ - F_WORDBACK, /* b */ - V_CHGMETA, /* c */ - V_DELMETA, /* d */ - V_EWORD, /* e */ - V_CHAR_FWD, /* f */ - F_UNASSIGNED, /* g */ - F_CHARBACK, /* h */ - V_INSERT, /* i */ - F_DOWN_HIST, /* j */ - F_UP_HIST, /* k */ - F_CHARFWD, /* l */ - F_UNASSIGNED, /* m */ - V_RSRCH_FWD, /* n */ - F_UNASSIGNED, /* o */ - F_UNASSIGNED, /* p */ - F_UNASSIGNED, /* q */ - V_REPLONE, /* r */ - V_SUBSTCHAR, /* s */ - V_CHARTO_FWD, /* t */ - V_UNDO, /* u */ - F_EXPAND_VARS, /* v */ - V_WORDBEGNEXT, /* w */ - F_DELNEXT_EOF, /* x */ - F_UNASSIGNED, /* y */ - F_UNASSIGNED, /* z */ - F_UNASSIGNED, /* { */ - F_UNASSIGNED, /* | */ - F_UNASSIGNED, /* } */ - V_CHGCASE, /* ~ */ - F_DELPREV, /* ^? */ - F_UNASSIGNED, /* M-^@ */ - F_UNASSIGNED, /* M-^A */ - F_UNASSIGNED, /* M-^B */ - F_UNASSIGNED, /* M-^C */ - F_UNASSIGNED, /* M-^D */ - F_UNASSIGNED, /* M-^E */ - F_UNASSIGNED, /* M-^F */ - F_UNASSIGNED, /* M-^G */ - F_UNASSIGNED, /* M-^H */ - F_UNASSIGNED, /* M-^I */ - F_UNASSIGNED, /* M-^J */ - F_UNASSIGNED, /* M-^K */ - F_UNASSIGNED, /* M-^L */ - F_UNASSIGNED, /* M-^M */ - F_UNASSIGNED, /* M-^N */ - F_UNASSIGNED, /* M-^O */ - F_UNASSIGNED, /* M-^P */ - F_UNASSIGNED, /* M-^Q */ - F_UNASSIGNED, /* M-^R */ - F_UNASSIGNED, /* M-^S */ - F_UNASSIGNED, /* M-^T */ - F_UNASSIGNED, /* M-^U */ - F_UNASSIGNED, /* M-^V */ - F_UNASSIGNED, /* M-^W */ - F_UNASSIGNED, /* M-^X */ - F_UNASSIGNED, /* M-^Y */ - F_UNASSIGNED, /* M-^Z */ - F_UNASSIGNED, /* M-^[ */ - F_UNASSIGNED, /* M-^\ */ - F_UNASSIGNED, /* M-^] */ - F_UNASSIGNED, /* M-^^ */ - F_UNASSIGNED, /* M-^_ */ - F_UNASSIGNED, /* M-SPACE */ - F_UNASSIGNED, /* M-! */ - F_UNASSIGNED, /* M-" */ - F_UNASSIGNED, /* M-# */ - F_UNASSIGNED, /* M-$ */ - F_UNASSIGNED, /* M-% */ - F_UNASSIGNED, /* M-& */ - F_UNASSIGNED, /* M-' */ - F_UNASSIGNED, /* M-( */ - F_UNASSIGNED, /* M-) */ - F_UNASSIGNED, /* M-* */ - F_UNASSIGNED, /* M-+ */ - F_UNASSIGNED, /* M-, */ - F_UNASSIGNED, /* M-- */ - F_UNASSIGNED, /* M-. */ - F_UNASSIGNED, /* M-/ */ - F_UNASSIGNED, /* M-0 */ - F_UNASSIGNED, /* M-1 */ - F_UNASSIGNED, /* M-2 */ - F_UNASSIGNED, /* M-3 */ - F_UNASSIGNED, /* M-4 */ - F_UNASSIGNED, /* M-5 */ - F_UNASSIGNED, /* M-6 */ - F_UNASSIGNED, /* M-7 */ - F_UNASSIGNED, /* M-8 */ - F_UNASSIGNED, /* M-9 */ - F_UNASSIGNED, /* M-: */ - F_UNASSIGNED, /* M-; */ - F_UNASSIGNED, /* M-< */ - F_UNASSIGNED, /* M-= */ - F_UNASSIGNED, /* M-> */ - F_HELPME, /* M-? */ - F_UNASSIGNED, /* M-@ */ - F_UNASSIGNED, /* M-A */ - F_UNASSIGNED, /* M-B */ - F_UNASSIGNED, /* M-C */ - F_UNASSIGNED, /* M-D */ - F_UNASSIGNED, /* M-E */ - F_UNASSIGNED, /* M-F */ - F_UNASSIGNED, /* M-G */ - F_UNASSIGNED, /* M-H */ - F_UNASSIGNED, /* M-I */ - F_UNASSIGNED, /* M-J */ - F_UNASSIGNED, /* M-K */ - F_UNASSIGNED, /* M-L */ - F_UNASSIGNED, /* M-M */ - F_UNASSIGNED, /* M-N */ - F_XKEY, /* M-O *//* extended key esc PWP Mar 88 */ - F_UNASSIGNED, /* M-P */ - F_UNASSIGNED, /* M-Q */ - F_UNASSIGNED, /* M-R */ - F_UNASSIGNED, /* M-S */ - F_UNASSIGNED, /* M-T */ - F_UNASSIGNED, /* M-U */ - F_UNASSIGNED, /* M-V */ - F_UNASSIGNED, /* M-W */ - F_UNASSIGNED, /* M-X */ - F_UNASSIGNED, /* M-Y */ - F_UNASSIGNED, /* M-Z */ - F_XKEY, /* M-[ *//* extended key esc -mf Oct 87 */ - F_UNASSIGNED, /* M-\ */ - F_UNASSIGNED, /* M-] */ - F_UNASSIGNED, /* M-^ */ - F_UNASSIGNED, /* M-_ */ - F_UNASSIGNED, /* M-` */ - F_UNASSIGNED, /* M-a */ - F_UNASSIGNED, /* M-b */ - F_UNASSIGNED, /* M-c */ - F_UNASSIGNED, /* M-d */ - F_UNASSIGNED, /* M-e */ - F_UNASSIGNED, /* M-f */ - F_UNASSIGNED, /* M-g */ - F_UNASSIGNED, /* M-h */ - F_UNASSIGNED, /* M-i */ - F_UNASSIGNED, /* M-j */ - F_UNASSIGNED, /* M-k */ - F_UNASSIGNED, /* M-l */ - F_UNASSIGNED, /* M-m */ - F_UNASSIGNED, /* M-n */ - F_UNASSIGNED, /* M-o */ - F_UNASSIGNED, /* M-p */ - F_UNASSIGNED, /* M-q */ - F_UNASSIGNED, /* M-r */ - F_UNASSIGNED, /* M-s */ - F_UNASSIGNED, /* M-t */ - F_UNASSIGNED, /* M-u */ - F_UNASSIGNED, /* M-v */ - F_UNASSIGNED, /* M-w */ - F_UNASSIGNED, /* M-x */ - F_UNASSIGNED, /* M-y */ - F_UNASSIGNED, /* M-z */ - F_UNASSIGNED, /* M-{ */ - F_UNASSIGNED, /* M-| */ - F_UNASSIGNED, /* M-} */ - F_UNASSIGNED, /* M-~ */ - F_UNASSIGNED /* M-^? */ -}; -#endif /* WINNT */ - - -void -editinit() -{ - struct KeyFuncs *f; - -#if defined(NLS_CATALOGS) || defined(WINNT) - int i; - - for (i = 0; i < F_NUM_FUNCNAMES; i++) - xfree((ptr_t) FuncNames[i].desc); -#endif - - f = FuncNames; - f->name = "backward-char"; - f->func = F_CHARBACK; - f->desc = CSAVS(3, 1, "Move back a character"); - - f++; - f->name = "backward-delete-char"; - f->func = F_DELPREV; - f->desc = CSAVS(3, 2, "Delete the character behind cursor"); - - f++; - f->name = "backward-delete-word"; - f->func = F_DELWORDPREV; - f->desc = CSAVS(3, 3, - "Cut from beginning of current word to cursor - saved in cut buffer"); - - f++; - f->name = "backward-kill-line"; - f->func = F_KILLBEG; - f->desc = CSAVS(3, 4, - "Cut from beginning of line to cursor - save in cut buffer"); - - f++; - f->name = "backward-word"; - f->func = F_WORDBACK; - f->desc = CSAVS(3, 5, "Move to beginning of current word"); - - f++; - f->name = "beginning-of-line"; - f->func = F_TOBEG; - f->desc = CSAVS(3, 6, "Move to beginning of line"); - - f++; - f->name = "capitalize-word"; - f->func = F_CASECAPITAL; - f->desc = CSAVS(3, 7, - "Capitalize the characters from cursor to end of current word"); - - f++; - f->name = "change-case"; - f->func = V_CHGCASE; - f->desc = CSAVS(3, 8, - "Vi change case of character under cursor and advance one character"); - - f++; - f->name = "change-till-end-of-line"; - f->func = V_CHGTOEND; /* backward compat. */ - f->desc = CSAVS(3, 9, "Vi change to end of line"); - - f++; - f->name = "clear-screen"; - f->func = F_CLEARDISP; - f->desc = CSAVS(3, 10, "Clear screen leaving current line on top"); - - f++; - f->name = "complete-word"; - f->func = F_COMPLETE; - f->desc = CSAVS(3, 11, "Complete current word"); - - f++; - f->name = "complete-word-fwd"; - f->func = F_COMPLETE_FWD; - f->desc = CSAVS(3, 12, "Tab forward through files"); - - f++; - f->name = "complete-word-back"; - f->func = F_COMPLETE_BACK; - f->desc = CSAVS(3, 13, "Tab backward through files"); - - f++; - f->name = "complete-word-raw"; - f->func = F_COMPLETE_ALL; - f->desc = CSAVS(3, 14, - "Complete current word ignoring programmable completions"); - - f++; - f->name = "copy-prev-word"; - f->func = F_COPYPREV; - f->desc = CSAVS(3, 15, "Copy current word to cursor"); - - f++; - f->name = "copy-region-as-kill"; - f->func = F_COPYREGION; - f->desc = CSAVS(3, 16, "Copy area between mark and cursor to cut buffer"); - - f++; - f->name = "dabbrev-expand"; - f->func = F_DABBREV_EXPAND; - f->desc = CSAVS(3, 17, - "Expand to preceding word for which this is a prefix"); - - f++; - f->name = "delete-char"; - f->func = F_DELNEXT; - f->desc = CSAVS(3, 18, "Delete character under cursor"); - - f++; - f->name = "delete-char-or-eof"; - f->func = F_DELNEXT_EOF; - f->desc = CSAVS(3, 19, - "Delete character under cursor or signal end of file on an empty line"); - - f++; - f->name = "delete-char-or-list"; - f->func = F_DELNEXT_LIST; - f->desc = CSAVS(3, 20, - "Delete character under cursor or list completions if at end of line"); - - f++; - f->name = "delete-char-or-list-or-eof"; - f->func = F_DELNEXT_LIST_EOF; - f->desc = CSAVS(3, 21, - "Delete character under cursor, list completions or signal end of file"); - - f++; - f->name = "delete-word"; - f->func = F_DELWORDNEXT; - f->desc = CSAVS(3, 22, - "Cut from cursor to end of current word - save in cut buffer"); - - f++; - f->name = "digit"; - f->func = F_DIGIT; - f->desc = CSAVS(3, 23, "Adds to argument if started or enters digit"); - - f++; - f->name = "digit-argument"; - f->func = F_ARGDIGIT; - f->desc = CSAVS(3, 24, "Digit that starts argument"); - - f++; - f->name = "down-history"; - f->func = F_DOWN_HIST; - f->desc = CSAVS(3, 25, "Move to next history line"); - - f++; - f->name = "downcase-word"; - f->func = F_CASELOWER; - f->desc = CSAVS(3, 26, - "Lowercase the characters from cursor to end of current word"); - - f++; - f->name = "end-of-file"; - f->func = F_SEND_EOF; - f->desc = CSAVS(3, 27, "Indicate end of file"); - - f++; - f->name = "end-of-line"; - f->func = F_TOEND; - f->desc = CSAVS(3, 28, "Move cursor to end of line"); - - f++; - f->name = "exchange-point-and-mark"; - f->func = F_EXCHANGE_MARK; - f->desc = CSAVS(3, 29, "Exchange the cursor and mark"); - - f++; - f->name = "expand-glob"; - f->func = F_EXPAND_GLOB; - f->desc = CSAVS(3, 30, "Expand file name wildcards"); - - f++; - f->name = "expand-history"; - f->func = F_EXPAND_HISTORY; - f->desc = CSAVS(3, 31, "Expand history escapes"); - - f++; - f->name = "expand-line"; - f->func = F_EXPAND; - f->desc = CSAVS(3, 32, "Expand the history escapes in a line"); - - f++; - f->name = "expand-variables"; - f->func = F_EXPAND_VARS; - f->desc = CSAVS(3, 33, "Expand variables"); - - f++; - f->name = "forward-char"; - f->func = F_CHARFWD; - f->desc = CSAVS(3, 34, "Move forward one character"); - - f++; - f->name = "forward-word"; - f->func = F_WORDFWD; - f->desc = CSAVS(3, 35, "Move forward to end of current word"); - - f++; - f->name = "gosmacs-transpose-chars"; - f->func = F_GCHARSWITCH; - f->desc = CSAVS(3, 36, "Exchange the two characters before the cursor"); - - f++; - f->name = "history-search-backward"; - f->func = F_UP_SEARCH_HIST; - f->desc = CSAVS(3, 37, - "Search in history backward for line beginning as current"); - - f++; - f->name = "history-search-forward"; - f->func = F_DOWN_SEARCH_HIST; - f->desc = CSAVS(3, 38, - "Search in history forward for line beginning as current"); - - f++; - f->name = "insert-last-word"; - f->func = F_LAST_ITEM; - f->desc = CSAVS(3, 39, "Insert last item of previous command"); - - f++; - f->name = "i-search-fwd"; - f->func = F_INC_FWD; - f->desc = CSAVS(3, 40, "Incremental search forward"); - - f++; - f->name = "i-search-back"; - f->func = F_INC_BACK; - f->desc = CSAVS(3, 41, "Incremental search backward"); - - f++; - f->name = "keyboard-quit"; - f->func = F_STARTOVER; - f->desc = CSAVS(3, 42, "Clear line"); - - f++; - f->name = "kill-line"; - f->func = F_KILLEND; - f->desc = CSAVS(3, 43, "Cut to end of line and save in cut buffer"); - - f++; - f->name = "kill-region"; - f->func = F_KILLREGION; - f->desc = CSAVS(3, 44, - "Cut area between mark and cursor and save in cut buffer"); - - f++; - f->name = "kill-whole-line"; - f->func = F_KILLALL; - f->desc = CSAVS(3, 45, "Cut the entire line and save in cut buffer"); - - f++; - f->name = "list-choices"; - f->func = F_LIST_CHOICES; - f->desc = CSAVS(3, 46, "List choices for completion"); - - f++; - f->name = "list-choices-raw"; - f->func = F_LIST_ALL; - f->desc = CSAVS(3, 47, - "List choices for completion overriding programmable completion"); - - f++; - f->name = "list-glob"; - f->func = F_LIST_GLOB; - f->desc = CSAVS(3, 48, "List file name wildcard matches"); - - f++; - f->name = "list-or-eof"; - f->func = F_LIST_EOF; - f->desc = CSAVS(3, 49, - "List choices for completion or indicate end of file if empty line"); - - f++; - f->name = "load-average"; - f->func = F_LOAD_AVERAGE; - f->desc = CSAVS(3, 50, "Display load average and current process status"); - - f++; - f->name = "magic-space"; - f->func = F_MAGIC_SPACE; - f->desc = CSAVS(3, 51, "Expand history escapes and insert a space"); - - f++; - f->name = "newline"; - f->func = F_NEWLINE; - f->desc = CSAVS(3, 52, "Execute command"); - - f++; - f->name = "normalize-path"; - f->func = F_PATH_NORM; - f->desc = CSAVS(3, 53, - "Expand pathnames, eliminating leading .'s and ..'s"); - - f++; - f->name = "normalize-command"; - f->func = F_COMMAND_NORM; - f->desc = CSAVS(3, 54, - "Expand commands to the resulting pathname or alias"); - - f++; - f->name = "overwrite-mode"; - f->func = F_INSOVR; - f->desc = CSAVS(3, 55, - "Switch from insert to overwrite mode or vice versa"); - - f++; - f->name = "prefix-meta"; - f->func = F_METANEXT; - f->desc = CSAVS(3, 56, "Add 8th bit to next character typed"); - - f++; - f->name = "quoted-insert"; - f->func = F_QUOTE; - f->desc = CSAVS(3, 57, "Add the next character typed to the line verbatim"); - - f++; - f->name = "redisplay"; - f->func = F_REDISP; - f->desc = CSAVS(3, 58, "Redisplay everything"); - - f++; - f->name = "run-fg-editor"; - f->func = F_RUN_FG_EDITOR; - f->desc = CSAVS(3, 59, "Restart stopped editor"); - - f++; - f->name = "run-help"; - f->func = F_HELPME; - f->desc = CSAVS(3, 60, "Look for help on current command"); - - f++; - f->name = "self-insert-command"; - f->func = F_INSERT; - f->desc = CSAVS(3, 61, "This character is added to the line"); - - f++; - f->name = "sequence-lead-in"; - f->func = F_XKEY; - f->desc = CSAVS(3, 62, - "This character is the first in a character sequence"); - - f++; - f->name = "set-mark-command"; - f->func = F_SET_MARK; - f->desc = CSAVS(3, 63, "Set the mark at cursor"); - - f++; - f->name = "spell-word"; - f->func = F_CORRECT; - f->desc = CSAVS(3, 64, "Correct the spelling of current word"); - - f++; - f->name = "spell-line"; - f->func = F_CORRECT_L; - f->desc = CSAVS(3, 65, "Correct the spelling of entire line"); - - f++; - f->name = "stuff-char"; - f->func = F_STUFF_CHAR; - f->desc = CSAVS(3, 66, "Send character to tty in cooked mode"); - - f++; - f->name = "toggle-literal-history"; - f->func = F_TOGGLE_HIST; - f->desc = CSAVS(3, 67, - "Toggle between literal and lexical current history line"); - - f++; - f->name = "transpose-chars"; - f->func = F_CHARSWITCH; - f->desc = CSAVS(3, 68, - "Exchange the character to the left of the cursor with the one under"); - - f++; - f->name = "transpose-gosling"; - f->func = F_GCHARSWITCH; - f->desc = CSAVS(3, 69, "Exchange the two characters before the cursor"); - - f++; - f->name = "tty-dsusp"; - f->func = F_TTY_DSUSP; - f->desc = CSAVS(3, 70, "Tty delayed suspend character"); - - f++; - f->name = "tty-flush-output"; - f->func = F_TTY_FLUSHO; - f->desc = CSAVS(3, 71, "Tty flush output character"); - - f++; - f->name = "tty-sigintr"; - f->func = F_TTY_INT; - f->desc = CSAVS(3, 72, "Tty interrupt character"); - - f++; - f->name = "tty-sigquit"; - f->func = F_TTY_QUIT; - f->desc = CSAVS(3, 73, "Tty quit character"); - - f++; - f->name = "tty-sigtsusp"; - f->func = F_TTY_TSUSP; - f->desc = CSAVS(3, 74, "Tty suspend character"); - - f++; - f->name = "tty-start-output"; - f->func = F_TTY_STARTO; - f->desc = CSAVS(3, 75, "Tty allow output character"); - - f++; - f->name = "tty-stop-output"; - f->func = F_TTY_STOPO; - f->desc = CSAVS(3, 76, "Tty disallow output character"); - - f++; - f->name = "undefined-key"; - f->func = F_UNASSIGNED; - f->desc = CSAVS(3, 77, "Indicates unbound character"); - - f++; - f->name = "universal-argument"; - f->func = F_ARGFOUR; - f->desc = CSAVS(3, 78, "Emacs universal argument (argument times 4)"); - - f++; - f->name = "up-history"; - f->func = F_UP_HIST; - f->desc = CSAVS(3, 79, "Move to previous history line"); - - f++; - f->name = "upcase-word"; - f->func = F_CASEUPPER; - f->desc = CSAVS(3, 80, - "Uppercase the characters from cursor to end of current word"); - - f++; - f->name = "vi-beginning-of-next-word"; - f->func = V_WORDBEGNEXT; - f->desc = CSAVS(3, 81, "Vi goto the beginning of next word"); - - f++; - f->name = "vi-add"; - f->func = V_ADD; - f->desc = CSAVS(3, 82, "Vi enter insert mode after the cursor"); - - f++; - f->name = "vi-add-at-eol"; - f->func = V_ADDEND; - f->desc = CSAVS(3, 83, "Vi enter insert mode at end of line"); - - f++; - f->name = "vi-chg-case"; - f->func = V_CHGCASE; - f->desc = CSAVS(3, 84, - "Vi change case of character under cursor and advance one character"); - - f++; - f->name = "vi-chg-meta"; - f->func = V_CHGMETA; - f->desc = CSAVS(3, 85, "Vi change prefix command"); - - f++; - f->name = "vi-chg-to-eol"; - f->func = V_CHGTOEND; - f->desc = CSAVS(3, 86, "Vi change to end of line"); - - f++; - f->name = "vi-cmd-mode"; - f->func = V_CMD_MODE; - f->desc = CSAVS(3, 87, - "Enter vi command mode (use alternative key bindings)"); - - f++; - f->name = "vi-cmd-mode-complete"; - f->func = V_CM_COMPLETE; - f->desc = CSAVS(3, 88, "Vi command mode complete current word"); - - f++; - f->name = "vi-delprev"; - f->func = V_DELPREV; - f->desc = CSAVS(3, 89, "Vi move to previous character (backspace)"); - - f++; - f->name = "vi-delmeta"; - f->func = V_DELMETA; - f->desc = CSAVS(3, 90, "Vi delete prefix command"); - - f++; - f->name = "vi-endword"; - f->func = V_ENDWORD; - f->desc = CSAVS(3, 91, - "Vi move to the end of the current space delimited word"); - - f++; - f->name = "vi-eword"; - f->func = V_EWORD; - f->desc = CSAVS(3, 92, "Vi move to the end of the current word"); - - f++; - f->name = "vi-char-back"; - f->func = V_CHAR_BACK; - f->desc = CSAVS(3, 93, "Vi move to the character specified backward"); - - f++; - f->name = "vi-char-fwd"; - f->func = V_CHAR_FWD; - f->desc = CSAVS(3, 94, "Vi move to the character specified forward"); - - f++; - f->name = "vi-charto-back"; - f->func = V_CHARTO_BACK; - f->desc = CSAVS(3, 95, "Vi move up to the character specified backward"); - - f++; - f->name = "vi-charto-fwd"; - f->func = V_CHARTO_FWD; - f->desc = CSAVS(3, 96, "Vi move up to the character specified forward"); - - f++; - f->name = "vi-insert"; - f->func = V_INSERT; - f->desc = CSAVS(3, 97, "Enter vi insert mode"); - - f++; - f->name = "vi-insert-at-bol"; - f->func = V_INSBEG; - f->desc = CSAVS(3, 98, "Enter vi insert mode at beginning of line"); - - f++; - f->name = "vi-repeat-char-fwd"; - f->func = V_RCHAR_FWD; - f->desc = CSAVS(3, 99, - "Vi repeat current character search in the same search direction"); - - f++; - f->name = "vi-repeat-char-back"; - f->func = V_RCHAR_BACK; - f->desc = CSAVS(3, 100, - "Vi repeat current character search in the opposite search direction"); - - f++; - f->name = "vi-repeat-search-fwd"; - f->func = V_RSRCH_FWD; - f->desc = CSAVS(3, 101, - "Vi repeat current search in the same search direction"); - - f++; - f->name = "vi-repeat-search-back"; - f->func = V_RSRCH_BACK; - f->desc = CSAVS(3, 102, - "Vi repeat current search in the opposite search direction"); - - f++; - f->name = "vi-replace-char"; - f->func = V_REPLONE; - f->desc = CSAVS(3, 103, - "Vi replace character under the cursor with the next character typed"); - - f++; - f->name = "vi-replace-mode"; - f->func = V_REPLMODE; - f->desc = CSAVS(3, 104, "Vi replace mode"); - - f++; - f->name = "vi-search-back"; - f->func = V_USH_META; - f->desc = CSAVS(3, 105, "Vi search history backward"); - - f++; - f->name = "vi-search-fwd"; - f->func = V_DSH_META; - f->desc = CSAVS(3, 106, "Vi search history forward"); - - f++; - f->name = "vi-substitute-char"; - f->func = V_SUBSTCHAR; - f->desc = CSAVS(3, 107, - "Vi replace character under the cursor and enter insert mode"); - - f++; - f->name = "vi-substitute-line"; - f->func = V_SUBSTLINE; - f->desc = CSAVS(3, 108, "Vi replace entire line"); - - f++; - f->name = "vi-word-back"; - f->func = V_WORDBACK; - f->desc = CSAVS(3, 109, "Vi move to the previous word"); - - f++; - f->name = "vi-word-fwd"; - f->func = V_WORDFWD; - f->desc = CSAVS(3, 110, "Vi move to the next word"); - - f++; - f->name = "vi-undo"; - f->func = V_UNDO; - f->desc = CSAVS(3, 111, "Vi undo last change"); - - f++; - f->name = "vi-zero"; - f->func = V_ZERO; - f->desc = CSAVS(3, 112, "Vi goto the beginning of line"); - - f++; - f->name = "which-command"; - f->func = F_WHICH; - f->desc = CSAVS(3, 113, "Perform which of current command"); - - f++; - f->name = "yank"; - f->func = F_YANK_KILL; - f->desc = CSAVS(3, 114, "Paste cut buffer at cursor position"); - - f++; - f->name = "e_copy_to_clipboard"; - f->func = F_COPY_CLIP; - f->desc = CSAVS(3, 115, "(win32 only)Copy cut buffer to system clipboard"); - f++; - f->name = "e_paste_from_clipboard"; - f->func = F_PASTE_CLIP; - f->desc = CSAVS(3, 116, "(win32 only)Paste clipboard buffer at cursor position"); - f++; - f->name = "e_dosify_next"; - f->func = F_DOSIFY_NEXT; - f->desc = CSAVS(3, 117, "(win32 only)Convert each '/' in next word to '\\\\'"); - f++; - f->name = "e_dosify_prev"; - f->func = F_DOSIFY_PREV; - f->desc = CSAVS(3, 118, "(win32 only)Convert each '/' in previous word to '\\\\'"); - - f++; - f->name = NULL; - f->func = 0; - f->desc = NULL; - - f++; - if (f - FuncNames != F_NUM_FUNCNAMES) - abort(); -} - -#ifdef DEBUG_EDIT -void -CheckMaps() -{ /* check the size of the key maps */ - int c1 = (NT_NUM_KEYS * sizeof(KEYCMD)); - - if ((sizeof(CcKeyMap)) != c1) - xprintf("CcKeyMap should be %d entries, but is %d.\r\n", - NT_NUM_KEYS, sizeof(CcKeyMap) / sizeof(KEYCMD))); - - if ((sizeof(CcAltMap)) != c1) - xprintf("CcAltMap should be %d entries, but is %d.\r\n", - NT_NUM_KEYS, (sizeof(CcAltMap) / sizeof(KEYCMD))); - - if ((sizeof(CcEmacsMap)) != c1) - xprintf("CcEmacsMap should be %d entries, but is %d.\r\n", - NT_NUM_KEYS, (sizeof(CcEmacsMap) / sizeof(KEYCMD))); - - if ((sizeof(CcViMap)) != c1) - xprintf("CcViMap should be %d entries, but is %d.\r\n", - NT_NUM_KEYS, (sizeof(CcViMap) / sizeof(KEYCMD))); - - if ((sizeof(CcViCmdMap)) != c1) - xprintf("CcViCmdMap should be %d entries, but is %d.\r\n", - NT_NUM_KEYS, (sizeof(CcViCmdMap) / sizeof(KEYCMD))); -} - -#endif - -bool MapsAreInited = 0; -bool NLSMapsAreInited = 0; -bool NoNLSRebind; - -void -ed_InitNLSMaps() -{ - register int i; - - if (AsciiOnly) - return; - if (NoNLSRebind) - return; - for (i = 0200; i <= 0377; i++) { - if (Isprint(i)) { - CcKeyMap[i] = F_INSERT; - } - } - NLSMapsAreInited = 1; -} - -static void -ed_InitMetaBindings() -{ - Char buf[3]; - int i; - CStr cstr; - KEYCMD *map; - - map = CcKeyMap; - for (i = 0; i <= 0377 && CcKeyMap[i] != F_METANEXT; i++) - continue; - if (i > 0377) { - for (i = 0; i <= 0377 && CcAltMap[i] != F_METANEXT; i++) - continue; - if (i > 0377) { - i = CTL_ESC('\033'); - if (VImode) - map = CcAltMap; - } - else { - map = CcAltMap; - } - } - buf[0] = (Char) i; - buf[2] = 0; - cstr.buf = buf; - cstr.len = 2; - for (i = 0200; i <= 0377; i++) { - if (map[i] != F_INSERT && map[i] != F_UNASSIGNED && map[i] != F_XKEY) { -#ifndef _OSD_POSIX - buf[1] = i & ASCII; -#else - buf[1] = _toebcdic[_toascii[i] & ASCII]; -#endif - AddXkey(&cstr, XmapCmd((int) map[i]), XK_CMD); - } - } - map[buf[0]] = F_XKEY; -} - -void -ed_InitVIMaps() -{ - register int i; - - VImode = 1; - ResetXmap(); - for (i = 0; i < NT_NUM_KEYS; i++) { - CcKeyMap[i] = CcViMap[i]; - CcAltMap[i] = CcViCmdMap[i]; - } - ed_InitMetaBindings(); - ed_InitNLSMaps(); - ResetArrowKeys(); - BindArrowKeys(); -} - -void -ed_InitEmacsMaps() -{ - int i; - Char buf[3]; - CStr cstr; - cstr.buf = buf; - cstr.len = 2; - - VImode = 0; - ResetXmap(); - for (i = 0; i < NT_NUM_KEYS; i++) { - CcKeyMap[i] = CcEmacsMap[i]; - CcAltMap[i] = F_UNASSIGNED; - } - ed_InitMetaBindings(); - ed_InitNLSMaps(); - buf[0] = CTL_ESC('\030'); - buf[2] = 0; - buf[1] = CTL_ESC('\030'); - AddXkey(&cstr, XmapCmd(F_EXCHANGE_MARK), XK_CMD); - buf[1] = '*'; - AddXkey(&cstr, XmapCmd(F_EXPAND_GLOB), XK_CMD); - buf[1] = '$'; - AddXkey(&cstr, XmapCmd(F_EXPAND_VARS), XK_CMD); - buf[1] = 'G'; - AddXkey(&cstr, XmapCmd(F_LIST_GLOB), XK_CMD); - buf[1] = 'g'; - AddXkey(&cstr, XmapCmd(F_LIST_GLOB), XK_CMD); - buf[1] = 'n'; - AddXkey(&cstr, XmapCmd(F_PATH_NORM), XK_CMD); - buf[1] = 'N'; - AddXkey(&cstr, XmapCmd(F_PATH_NORM), XK_CMD); - buf[1] = '?'; - AddXkey(&cstr, XmapCmd(F_COMMAND_NORM), XK_CMD); - buf[1] = '\t'; - AddXkey(&cstr, XmapCmd(F_COMPLETE_ALL), XK_CMD); - buf[1] = CTL_ESC('\004'); /* ^D */ - AddXkey(&cstr, XmapCmd(F_LIST_ALL), XK_CMD); - ResetArrowKeys(); - BindArrowKeys(); -} - -void -ed_InitMaps() -{ - if (MapsAreInited) - return; -#ifdef _OSD_POSIX - /* This machine has an EBCDIC charset. The assumptions made for the - * initialized keymaps therefore don't hold, since they are based on - * ASCII (or ISO8859-1). - * Here, we do a one-time transformation to EBCDIC environment - * for the key initializations. - */ - { - KEYCMD temp[NT_NUM_KEYS]; - static KEYCMD *const list[3] = { CcEmacsMap, CcViMap, CcViCmdMap }; - register int i, table; - - for (table=0; table<3; ++table) - { - /* copy ASCII ordered map to temp table */ - for (i = 0; i < NT_NUM_KEYS; i++) { - temp[i] = list[table][i]; - } - /* write back as EBCDIC ordered map */ - for (i = 0; i < NT_NUM_KEYS; i++) { - list[table][_toebcdic[i]] = temp[i]; - } - } - } -#endif /* _OSD_POSIX */ - -#ifdef VIDEFAULT - ed_InitVIMaps(); -#else - ed_InitEmacsMaps(); -#endif - - MapsAreInited = 1; -} diff --git a/contrib/tcsh/ed.h b/contrib/tcsh/ed.h deleted file mode 100644 index 659a0a66aa5e..000000000000 --- a/contrib/tcsh/ed.h +++ /dev/null @@ -1,254 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.h,v 3.28 1998/11/24 18:17:21 christos Exp $ */ -/* - * ed.h: Editor declarations and globals - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_ed -#define _h_ed - -#ifndef EXTERN -# define EXTERN extern -#endif - -#define TABSIZE 8 /* usually 8 spaces/tab */ -#define MAXMACROLEVELS 10 /* max number of nested kbd macros */ - -#ifndef WINNT -# define NT_NUM_KEYS 256 -#endif /* WINNT */ - -extern int errno; - -/****************************************************************************/ -/* stuff for the different states returned by the character editor routines */ -/****************************************************************************/ - -#define CCRETVAL char /* size needed for the different char editor */ - /* return values */ - -#define KEYCMD unsigned char /* size needed to index into CcFuncTbl */ - /* Must be unsigned */ - -typedef CCRETVAL(*PFCmd) __P((int)); /* pointer to function returning CCRETVAL */ - -struct KeyFuncs { /* for the "bind" shell command */ - char *name; /* function name for bind command */ - int func; /* function numeric value */ - char *desc; /* description of function */ -}; - -extern PFCmd CcFuncTbl[]; /* table of available commands */ -extern KEYCMD CcKeyMap[]; /* keymap table, each index into above tbl */ -extern KEYCMD CcAltMap[]; /* Alt keymap table */ -extern KEYCMD CcEmacsMap[]; /* keymap table for Emacs default bindings */ -extern KEYCMD CcViCmdMap[]; /* for Vi command mode defaults */ -extern struct KeyFuncs FuncNames[]; /* string names vs. CcFuncTbl indices */ - -extern KEYCMD NumFuns; /* number of KEYCMDs in above table */ - -#define CC_ERROR 100 /* there should NOT be 100 different... */ -#define CC_FATAL 101 /* fatal error: inconsistant, must - * reset */ -#define CC_NORM 0 -#define CC_NEWLINE 1 -#define CC_EOF 2 -#define CC_COMPLETE 3 -#define CC_LIST_CHOICES 4 -#define CC_LIST_GLOB 5 -#define CC_EXPAND_GLOB 6 -#define CC_HELPME 9 -#define CC_CORRECT 10 -#define CC_WHICH 11 -#define CC_ARGHACK 12 -#define CC_CORRECT_L 13 -#define CC_REFRESH 14 -#define CC_EXPAND_VARS 15 -#define CC_NORMALIZE_PATH 16 -#define CC_LIST_ALL 17 -#define CC_COMPLETE_ALL 18 -#define CC_COMPLETE_FWD 19 -#define CC_COMPLETE_BACK 20 -#define CC_NORMALIZE_COMMAND 21 - -typedef struct { - Char *buf; - int len; -} CStr; - -typedef union Xmapval { /* value passed to the Xkey routines */ - KEYCMD cmd; - CStr str; -} XmapVal; - -#define XK_NOD -1 /* Internal tree node */ -#define XK_CMD 0 /* X-key was an editor command */ -#define XK_STR 1 /* X-key was a string macro */ -#define XK_EXE 2 /* X-key was a unix command */ - -/****************************/ -/* Editor state and buffers */ -/****************************/ - -EXTERN KEYCMD *CurrentKeyMap; /* current command key map */ -EXTERN int inputmode; /* insert, replace, replace1 mode */ -EXTERN Char GettingInput; /* true if getting an input line (mostly) */ -EXTERN Char NeedsRedraw; /* for editor and twenex error messages */ -EXTERN Char InputBuf[INBUFSIZE]; /* the real input data */ -EXTERN Char *LastChar, *Cursor; /* point to the next open space */ -EXTERN Char *InputLim; /* limit of size of InputBuf */ -EXTERN Char MetaNext; /* flags for ^V and ^[ functions */ -EXTERN Char AltKeyMap; /* Using alternative command map (for vi mode) */ -EXTERN Char VImode; /* true if running in vi mode (PWP 6-27-88) */ -EXTERN Char *Mark; /* the emacs "mark" (dot is Cursor) */ -EXTERN Char DoingArg; /* true if we have an argument */ -EXTERN int Argument; /* "universal" argument value */ -EXTERN KEYCMD LastCmd; /* previous command executed */ -EXTERN Char KillBuf[INBUFSIZE]; /* kill buffer */ -EXTERN Char *LastKill; /* points to end of kill buffer */ - -EXTERN Char UndoBuf[INBUFSIZE]; -EXTERN Char *UndoPtr; -EXTERN int UndoSize; -EXTERN int UndoAction; - -EXTERN Char HistBuf[INBUFSIZE]; /* history buffer */ -EXTERN Char *LastHist; /* points to end of history buffer */ -EXTERN int Hist_num; /* what point up the history we are at now. */ -EXTERN Char WhichBuf[INBUFSIZE]; /* buffer for which command */ -EXTERN Char *LastWhich; /* points to end of which buffer */ -EXTERN Char *CursWhich; /* points to the cursor point in which buf */ -EXTERN int HistWhich; /* Hist_num is saved in this */ -EXTERN char Expand; /* true if we are expanding a line */ -extern Char HistLit; /* true if history lines are shown literal */ -EXTERN Char CurrentHistLit; /* Literal status of current show history line */ - -/* - * These are truly extern - */ -extern int MacroLvl; - -EXTERN Char *KeyMacro[MAXMACROLEVELS]; - -EXTERN Char **Display; /* display buffer seed vector */ -EXTERN int CursorV, /* real cursor vertical (line) */ - CursorH, /* real cursor horisontal (column) */ - TermV, /* number of real screen lines - * (sizeof(DisplayBuf) / width */ - TermH; /* screen width */ -EXTERN Char **Vdisplay; /* new buffer */ - -/* Variables that describe terminal ability */ -EXTERN int T_Lines, T_Cols; /* Rows and Cols of the terminal */ -EXTERN Char T_CanIns; /* true if I can insert characters */ -EXTERN Char T_CanDel; /* dito for delete characters */ -EXTERN Char T_Tabs; /* true if tty interface is passing tabs */ -EXTERN Char T_Margin; -#define MARGIN_AUTO 1 /* term has auto margins */ -#define MARGIN_MAGIC 2 /* concept glitch */ -EXTERN speed_t T_Speed; /* Tty input Baud rate */ -EXTERN Char T_CanCEOL; /* true if we can clear to end of line */ -EXTERN Char T_CanUP; /* true if this term can do reverse linefeen */ -EXTERN Char T_HasMeta; /* true if we have a meta key */ - -/* note the extra characters in the Strchr() call in this macro */ -#define isword(c) (Isalpha(c)||Isdigit(c)||Strchr(word_chars,c)) -#define min(x,y) (((x)<(y))?(x):(y)) -#define max(x,y) (((x)>(y))?(x):(y)) - -/* - * Terminal dependend data structures - */ -typedef struct { -#ifdef WINNT - int dummy; -#else /* !WINNT */ -# if defined(POSIX) || defined(TERMIO) -# ifdef POSIX - struct termios d_t; -# else - struct termio d_t; -# endif /* POSIX */ -# else /* SGTTY */ -# ifdef TIOCGETP - struct sgttyb d_t; -# endif /* TIOCGETP */ -# ifdef TIOCGETC - struct tchars d_tc; -# endif /* TIOCGETC */ -# ifdef TIOCGPAGE - struct ttypagestat d_pc; -# endif /* TIOCGPAGE */ -# ifdef TIOCLGET - int d_lb; -# endif /* TIOCLGET */ -# endif /* POSIX || TERMIO */ -# ifdef TIOCGLTC - struct ltchars d_ltc; -# endif /* TIOCGLTC */ -#endif /* WINNT */ -} ttydata_t; - -#define MODE_INSERT 0 -#define MODE_REPLACE 1 -#define MODE_REPLACE_1 2 - -#define EX_IO 0 /* while we are executing */ -#define ED_IO 1 /* while we are editing */ -#define TS_IO 2 /* new mode from terminal */ -#define QU_IO 2 /* used only for quoted chars */ -#define NN_IO 3 /* The number of entries */ - -#if defined(POSIX) || defined(TERMIO) -# define M_INPUT 0 -# define M_OUTPUT 1 -# define M_CONTROL 2 -# define M_LINED 3 -# define M_CHAR 4 -# define M_NN 5 -#else /* GSTTY */ -# define M_CONTROL 0 -# define M_LOCAL 1 -# define M_CHAR 2 -# define M_NN 3 -#endif /* TERMIO */ -typedef struct { - char *t_name; - int t_setmask; - int t_clrmask; -} ttyperm_t[NN_IO][M_NN]; - -extern ttyperm_t ttylist; -#include "ed.decls.h" - -#endif /* _h_ed */ diff --git a/contrib/tcsh/ed.init.c b/contrib/tcsh/ed.init.c deleted file mode 100644 index e03fef6f1247..000000000000 --- a/contrib/tcsh/ed.init.c +++ /dev/null @@ -1,737 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.init.c,v 3.42 2000/01/14 22:57:26 christos Exp $ */ -/* - * ed.init.c: Editor initializations - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTS_ION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: ed.init.c,v 3.42 2000/01/14 22:57:26 christos Exp $") - -#include "ed.h" -#include "ed.term.h" -#include "tc.h" -#include "ed.defns.h" - -/* ed.init.c -- init routines for the line editor */ -/* #define DEBUG_TTY */ - -int Tty_raw_mode = 0; /* Last tty change was to raw mode */ -int MacroLvl = -1; /* pointer to current macro nesting level; */ - /* (-1 == none) */ -static int Tty_quote_mode = 0; /* Last tty change was to quote mode */ -static unsigned char vdisable; /* The value of _POSIX_VDISABLE from - * pathconf(2) */ - -int Tty_eight_bit = -1; /* does the tty handle eight bits */ - -extern bool GotTermCaps; - -static ttydata_t extty, edtty, tstty; -#define qutty tstty - -extern int insource; -#define SHTTY (insource ? OLDSTD : SHIN) - -#define uc unsigned char -static unsigned char ttychars[NN_IO][C_NCC] = { - { - (uc)CINTR, (uc)CQUIT, (uc)CERASE, (uc)CKILL, - (uc)CEOF, (uc)CEOL, (uc)CEOL2, (uc)CSWTCH, - (uc)CDSWTCH, (uc)CERASE2, (uc)CSTART, (uc)CSTOP, - (uc)CWERASE, (uc)CSUSP, (uc)CDSUSP, (uc)CREPRINT, - (uc)CDISCARD, (uc)CLNEXT, (uc)CSTATUS, (uc)CPAGE, - (uc)CPGOFF, (uc)CKILL2, (uc)CBRK, (uc)CMIN, - (uc)CTIME - }, - { - CINTR, CQUIT, CERASE, CKILL, - _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, - _POSIX_VDISABLE, CERASE2, CSTART, CSTOP, - _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, - CDISCARD, _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, - _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, 1, - 0 - }, - { - 0, 0, 0, 0, - 0, 0, 0, 0, - 0, 0, 0, 0, - 0, 0, 0, 0, - 0, 0, 0, 0, - 0, 0, 0, 0, - 0 - } -}; - -#ifdef SIG_WINDOW -void -check_window_size(force) - int force; -{ -#ifdef BSDSIGS - sigmask_t omask; -#endif /* BSDSIGS */ - int lins, cols; - - /* don't want to confuse things here */ -#ifdef BSDSIGS - omask = sigblock(sigmask(SIG_WINDOW)) & ~sigmask(SIG_WINDOW); -#else /* BSDSIGS */ - (void) sighold(SIG_WINDOW); -#endif /* BSDSIGS */ - /* - * From: bret@shark.agps.lanl.gov (Bret Thaeler) Avoid sunview bug, where a - * partially hidden window gets a SIG_WINDOW every time the text is - * scrolled - */ - if (GetSize(&lins, &cols) || force) { - if (GettingInput) { - ClearLines(); - ClearDisp(); - MoveToLine(0); - MoveToChar(0); - ChangeSize(lins, cols); - Refresh(); - } - else - ChangeSize(lins, cols); - } -#ifdef BSDSIGS - (void) sigsetmask(omask); /* can change it again */ -#else /* BSDSIGS */ - (void) sigrelse(SIG_WINDOW); -#endif /* BSDSIGS */ -} - -sigret_t -/*ARGSUSED*/ -window_change(snum) -int snum; -{ - USE(snum); -#ifdef UNRELSIGS - /* If we were called as a signal handler, restore it. */ - if (snum > 0) - sigset(snum, window_change); -#endif /* UNRELSIGS */ - check_window_size(0); -#ifndef SIGVOID - return (snum); -#endif -} - -#endif /* SIG_WINDOW */ - -void -ed_set_tty_eight_bit() -{ - if (tty_getty(SHTTY, &extty) == -1) { -#ifdef DEBUG_TTY - xprintf("ed_set_tty_eight_bit: tty_getty: %s\n", strerror(errno)); -#endif /* DEBUG_TTY */ - return; - } - Tty_eight_bit = tty_geteightbit(&extty); -} - - -int -ed_Setup(rst) - int rst; -{ - static int havesetup = 0; - struct varent *imode; - - if (havesetup) /* if we have never been called */ - return(0); - -#if defined(POSIX) && defined(_PC_VDISABLE) && !defined(BSD4_4) && \ - !defined(WINNT) - { - long pcret; - - if ((pcret = fpathconf(SHTTY, _PC_VDISABLE)) == -1L) - vdisable = (unsigned char) _POSIX_VDISABLE; - else - vdisable = (unsigned char) pcret; - if (vdisable != (unsigned char) _POSIX_VDISABLE && rst != 0) - for (rst = 0; rst < C_NCC; rst++) { - if (ttychars[ED_IO][rst] == (unsigned char) _POSIX_VDISABLE) - ttychars[ED_IO][rst] = vdisable; - if (ttychars[EX_IO][rst] == (unsigned char) _POSIX_VDISABLE) - ttychars[EX_IO][rst] = vdisable; - } - } -#else /* ! POSIX || !_PC_VDISABLE || BSD4_4 || WINNT */ - vdisable = (unsigned char) _POSIX_VDISABLE; -#endif /* POSIX && _PC_VDISABLE && !BSD4_4 && !WINNT */ - - if ((imode = adrof(STRinputmode)) != NULL) { - if (!Strcmp(*(imode->vec), STRinsert)) - inputmode = MODE_INSERT; - else if (!Strcmp(*(imode->vec), STRoverwrite)) - inputmode = MODE_REPLACE; - } - else - inputmode = MODE_INSERT; - ed_InitMaps(); - Hist_num = 0; - Expand = 0; - -#ifndef WINNT - if (tty_getty(SHTTY, &extty) == -1) { -# ifdef DEBUG_TTY - xprintf("ed_Setup: tty_getty: %s\n", strerror(errno)); -# endif /* DEBUG_TTY */ - return(-1); - } - - tstty = edtty = extty; - - T_Speed = tty_getspeed(&extty); - T_Tabs = tty_gettabs(&extty); - Tty_eight_bit = tty_geteightbit(&extty); - -# if defined(POSIX) || defined(TERMIO) - extty.d_t.c_iflag &= ~ttylist[EX_IO][M_INPUT].t_clrmask; - extty.d_t.c_iflag |= ttylist[EX_IO][M_INPUT].t_setmask; - - extty.d_t.c_oflag &= ~ttylist[EX_IO][M_OUTPUT].t_clrmask; - extty.d_t.c_oflag |= ttylist[EX_IO][M_OUTPUT].t_setmask; - - extty.d_t.c_cflag &= ~ttylist[EX_IO][M_CONTROL].t_clrmask; - extty.d_t.c_cflag |= ttylist[EX_IO][M_CONTROL].t_setmask; - - extty.d_t.c_lflag &= ~ttylist[EX_IO][M_LINED].t_clrmask; - extty.d_t.c_lflag |= ttylist[EX_IO][M_LINED].t_setmask; - -# if defined(IRIX3_3) && SYSVREL < 4 - extty.d_t.c_line = NTTYDISC; -# endif /* IRIX3_3 && SYSVREL < 4 */ - -# else /* GSTTY */ /* V7, Berkeley style tty */ - - if (T_Tabs) { /* order of &= and |= is important to XTABS */ - extty.d_t.sg_flags &= ~(ttylist[EX_IO][M_CONTROL].t_clrmask|XTABS); - extty.d_t.sg_flags |= ttylist[EX_IO][M_CONTROL].t_setmask; - } - else { - extty.d_t.sg_flags &= ~ttylist[EX_IO][M_CONTROL].t_clrmask; - extty.d_t.sg_flags |= (ttylist[EX_IO][M_CONTROL].t_setmask|XTABS); - } - - extty.d_lb &= ~ttylist[EX_IO][M_LOCAL].t_clrmask; - extty.d_lb |= ttylist[EX_IO][M_LOCAL].t_setmask; - -# endif /* GSTTY */ - /* - * Reset the tty chars to reasonable defaults - * If they are disabled, then enable them. - */ - if (rst) { - if (tty_cooked_mode(&tstty)) { - tty_getchar(&tstty, ttychars[TS_IO]); - /* - * Don't affect CMIN and CTIME for the editor mode - */ - for (rst = 0; rst < C_NCC - 2; rst++) - if (ttychars[TS_IO][rst] != vdisable && - ttychars[ED_IO][rst] != vdisable) - ttychars[ED_IO][rst] = ttychars[TS_IO][rst]; - for (rst = 0; rst < C_NCC; rst++) - if (ttychars[TS_IO][rst] != vdisable && - ttychars[EX_IO][rst] != vdisable) - ttychars[EX_IO][rst] = ttychars[TS_IO][rst]; - } - tty_setchar(&extty, ttychars[EX_IO]); - if (tty_setty(SHTTY, &extty) == -1) { -# ifdef DEBUG_TTY - xprintf("ed_Setup: tty_setty: %s\n", strerror(errno)); -# endif /* DEBUG_TTY */ - return(-1); - } - } - else - tty_setchar(&extty, ttychars[EX_IO]); - -# ifdef SIG_WINDOW - (void) sigset(SIG_WINDOW, window_change); /* for window systems */ -# endif -#else /* WINNT */ -# ifdef DEBUG - if (rst) - xprintf("rst received in ed_Setup() %d\n", rst); -# endif -#endif /* WINNT */ - havesetup = 1; - return(0); -} - -void -ed_Init() -{ - ResetInLine(1); /* reset the input pointers */ - GettingInput = 0; /* just in case */ - LastKill = KillBuf; /* no kill buffer */ - -#ifdef DEBUG_EDIT - CheckMaps(); /* do a little error checking on key maps */ -#endif - - if (ed_Setup(0) == -1) - return; - - /* - * if we have been called before but GotTermCaps isn't set, our TERM has - * changed, so get new termcaps and try again - */ - - if (!GotTermCaps) - GetTermCaps(); /* does the obvious, but gets term type each - * time */ - -#ifndef WINNT -# if defined(TERMIO) || defined(POSIX) - edtty.d_t.c_iflag &= ~ttylist[ED_IO][M_INPUT].t_clrmask; - edtty.d_t.c_iflag |= ttylist[ED_IO][M_INPUT].t_setmask; - - edtty.d_t.c_oflag &= ~ttylist[ED_IO][M_OUTPUT].t_clrmask; - edtty.d_t.c_oflag |= ttylist[ED_IO][M_OUTPUT].t_setmask; - - edtty.d_t.c_cflag &= ~ttylist[ED_IO][M_CONTROL].t_clrmask; - edtty.d_t.c_cflag |= ttylist[ED_IO][M_CONTROL].t_setmask; - - edtty.d_t.c_lflag &= ~ttylist[ED_IO][M_LINED].t_clrmask; - edtty.d_t.c_lflag |= ttylist[ED_IO][M_LINED].t_setmask; - - -# if defined(IRIX3_3) && SYSVREL < 4 - edtty.d_t.c_line = NTTYDISC; -# endif /* IRIX3_3 && SYSVREL < 4 */ - -# else /* GSTTY */ - - if (T_Tabs) { /* order of &= and |= is important to XTABS */ - edtty.d_t.sg_flags &= ~(ttylist[ED_IO][M_CONTROL].t_clrmask | XTABS); - edtty.d_t.sg_flags |= ttylist[ED_IO][M_CONTROL].t_setmask; - } - else { - edtty.d_t.sg_flags &= ~ttylist[ED_IO][M_CONTROL].t_clrmask; - edtty.d_t.sg_flags |= (ttylist[ED_IO][M_CONTROL].t_setmask | XTABS); - } - - edtty.d_lb &= ~ttylist[ED_IO][M_LOCAL].t_clrmask; - edtty.d_lb |= ttylist[ED_IO][M_LOCAL].t_setmask; -# endif /* POSIX || TERMIO */ - - tty_setchar(&edtty, ttychars[ED_IO]); -#endif /* WINNT */ -} - -/* - * Check and re-init the line. set the terminal into 1 char at a time mode. - */ -int -Rawmode() -{ - if (Tty_raw_mode) - return (0); - -#ifdef WINNT - do_nt_raw_mode(); -#else /* !WINNT */ -# ifdef _IBMR2 - tty_setdisc(SHTTY, ED_IO); -# endif /* _IBMR2 */ - - if (tty_getty(SHTTY, &tstty) == -1) { -# ifdef DEBUG_TTY - xprintf("Rawmode: tty_getty: %s\n", strerror(errno)); -# endif /* DEBUG_TTY */ - return(-1); - } - - /* - * We always keep up with the eight bit setting and the speed of the - * tty. But only we only believe changes that are made to cooked mode! - */ -# if defined(POSIX) || defined(TERMIO) - Tty_eight_bit = tty_geteightbit(&tstty); - T_Speed = tty_getspeed(&tstty); - -# ifdef POSIX - /* - * Fix from: Steven (Steve) B. Green <xrsbg@charney.gsfc.nasa.gov> - * Speed was not being set up correctly under POSIX. - */ - if (tty_getspeed(&extty) != T_Speed || tty_getspeed(&edtty) != T_Speed) { - (void) cfsetispeed(&extty.d_t, T_Speed); - (void) cfsetospeed(&extty.d_t, T_Speed); - (void) cfsetispeed(&edtty.d_t, T_Speed); - (void) cfsetospeed(&edtty.d_t, T_Speed); - } -# endif /* POSIX */ -# else /* GSTTY */ - - T_Speed = tty_getspeed(&tstty); - Tty_eight_bit = tty_geteightbit(&tstty); - - if (extty.d_t.sg_ispeed != tstty.d_t.sg_ispeed) { - extty.d_t.sg_ispeed = tstty.d_t.sg_ispeed; - edtty.d_t.sg_ispeed = tstty.d_t.sg_ispeed; - } - - if (extty.d_t.sg_ospeed != tstty.d_t.sg_ospeed) { - extty.d_t.sg_ospeed = tstty.d_t.sg_ospeed; - edtty.d_t.sg_ospeed = tstty.d_t.sg_ospeed; - } -# endif /* POSIX || TERMIO */ - - if (tty_cooked_mode(&tstty)) { - /* - * re-test for some things here (like maybe the user typed - * "stty -tabs" - */ - if (tty_gettabs(&tstty) == 0) - T_Tabs = 0; - else - T_Tabs = CanWeTab(); - -# if defined(POSIX) || defined(TERMIO) - extty.d_t.c_cflag = tstty.d_t.c_cflag; - extty.d_t.c_cflag &= ~ttylist[EX_IO][M_CONTROL].t_clrmask; - extty.d_t.c_cflag |= ttylist[EX_IO][M_CONTROL].t_setmask; - - edtty.d_t.c_cflag = tstty.d_t.c_cflag; - edtty.d_t.c_cflag &= ~ttylist[ED_IO][M_CONTROL].t_clrmask; - edtty.d_t.c_cflag |= ttylist[ED_IO][M_CONTROL].t_setmask; - - extty.d_t.c_lflag = tstty.d_t.c_lflag; - extty.d_t.c_lflag &= ~ttylist[EX_IO][M_LINED].t_clrmask; - extty.d_t.c_lflag |= ttylist[EX_IO][M_LINED].t_setmask; - - edtty.d_t.c_lflag = tstty.d_t.c_lflag; - edtty.d_t.c_lflag &= ~ttylist[ED_IO][M_LINED].t_clrmask; - edtty.d_t.c_lflag |= ttylist[ED_IO][M_LINED].t_setmask; - - extty.d_t.c_iflag = tstty.d_t.c_iflag; - extty.d_t.c_iflag &= ~ttylist[EX_IO][M_INPUT].t_clrmask; - extty.d_t.c_iflag |= ttylist[EX_IO][M_INPUT].t_setmask; - - edtty.d_t.c_iflag = tstty.d_t.c_iflag; - edtty.d_t.c_iflag &= ~ttylist[ED_IO][M_INPUT].t_clrmask; - edtty.d_t.c_iflag |= ttylist[ED_IO][M_INPUT].t_setmask; - - extty.d_t.c_oflag = tstty.d_t.c_oflag; - extty.d_t.c_oflag &= ~ttylist[EX_IO][M_OUTPUT].t_clrmask; - extty.d_t.c_oflag |= ttylist[EX_IO][M_OUTPUT].t_setmask; - - edtty.d_t.c_oflag = tstty.d_t.c_oflag; - edtty.d_t.c_oflag &= ~ttylist[ED_IO][M_OUTPUT].t_clrmask; - edtty.d_t.c_oflag |= ttylist[ED_IO][M_OUTPUT].t_setmask; - -# else /* GSTTY */ - - extty.d_t.sg_flags = tstty.d_t.sg_flags; - - extty.d_t.sg_flags &= ~ttylist[EX_IO][M_CONTROL].t_clrmask; - extty.d_t.sg_flags |= ttylist[EX_IO][M_CONTROL].t_setmask; - - if (T_Tabs) /* order of &= and |= is important to XTABS */ - extty.d_t.sg_flags &= ~XTABS; - else - extty.d_t.sg_flags |= XTABS; - - extty.d_lb = tstty.d_lb; - extty.d_lb &= ~ttylist[EX_IO][M_LOCAL].t_clrmask; - extty.d_lb |= ttylist[EX_IO][M_LOCAL].t_setmask; - - edtty.d_t.sg_flags = extty.d_t.sg_flags; - if (T_Tabs) { /* order of &= and |= is important to XTABS */ - edtty.d_t.sg_flags &= - ~(ttylist[ED_IO][M_CONTROL].t_clrmask|XTABS); - edtty.d_t.sg_flags |= ttylist[ED_IO][M_CONTROL].t_setmask; - } - else { - edtty.d_t.sg_flags &= ~ttylist[ED_IO][M_CONTROL].t_clrmask; - edtty.d_t.sg_flags |= - (ttylist[ED_IO][M_CONTROL].t_setmask|XTABS); - } - - edtty.d_lb = tstty.d_lb; - edtty.d_lb &= ~ttylist[ED_IO][M_LOCAL].t_clrmask; - edtty.d_lb |= ttylist[ED_IO][M_LOCAL].t_setmask; - -# endif /* TERMIO || POSIX */ - - { - extern int didsetty; - int i; - - tty_getchar(&tstty, ttychars[TS_IO]); - /* - * Check if the user made any changes. - * If he did, then propagate the changes to the - * edit and execute data structures. - */ - for (i = 0; i < C_NCC; i++) - if (ttychars[TS_IO][i] != ttychars[EX_IO][i]) - break; - - if (i != C_NCC || didsetty) { - didsetty = 0; - /* - * Propagate changes only to the unprotected chars - * that have been modified just now. - */ - for (i = 0; i < C_NCC; i++) { - if (!((ttylist[ED_IO][M_CHAR].t_setmask & C_SH(i))) && - (ttychars[TS_IO][i] != ttychars[EX_IO][i])) - ttychars[ED_IO][i] = ttychars[TS_IO][i]; - if (ttylist[ED_IO][M_CHAR].t_clrmask & C_SH(i)) - ttychars[ED_IO][i] = vdisable; - } - tty_setchar(&edtty, ttychars[ED_IO]); - - for (i = 0; i < C_NCC; i++) { - if (!((ttylist[EX_IO][M_CHAR].t_setmask & C_SH(i))) && - (ttychars[TS_IO][i] != ttychars[EX_IO][i])) - ttychars[EX_IO][i] = ttychars[TS_IO][i]; - if (ttylist[EX_IO][M_CHAR].t_clrmask & C_SH(i)) - ttychars[EX_IO][i] = vdisable; - } - tty_setchar(&extty, ttychars[EX_IO]); - } - - } - } - if (tty_setty(SHTTY, &edtty) == -1) { -# ifdef DEBUG_TTY - xprintf("Rawmode: tty_setty: %s\n", strerror(errno)); -# endif /* DEBUG_TTY */ - return(-1); - } -#endif /* WINNT */ - Tty_raw_mode = 1; - flush(); /* flush any buffered output */ - return (0); -} - -int -Cookedmode() -{ /* set tty in normal setup */ -#ifdef WINNT - do_nt_cooked_mode(); -#else - signalfun_t orig_intr; - -# ifdef _IBMR2 - tty_setdisc(SHTTY, EX_IO); -# endif /* _IBMR2 */ - - if (!Tty_raw_mode) - return (0); - - /* hold this for reseting tty */ -# ifdef BSDSIGS - orig_intr = (signalfun_t) signal(SIGINT, SIG_IGN); -# else -# ifdef SIG_HOLD - /* - * sigset doesn't return the previous handler if the signal is held, - * it will return SIG_HOLD instead. So instead of restoring the - * the signal we would end up installing a blocked SIGINT with a - * SIG_IGN signal handler. This is what happened when Cookedmode - * was called from sched_run, disabling interrupt for the rest - * of your session. - * - * This is what we do: - * - if the signal is blocked, keep it that way - * - else set it to SIG_IGN - * - * Casper Dik (casper@fwi.uva.nl) - */ - orig_intr = (signalfun_t) sigset(SIGINT, SIG_HOLD); - if (orig_intr != SIG_HOLD) - (void) sigset(SIGINT, SIG_IGN); /* returns SIG_HOLD */ -# else /* !SIG_HOLD */ - /* - * No SIG_HOLD; probably no reliable signals as well. - */ - orig_intr = (signalfun_t) sigset(SIGINT, SIG_IGN); -# endif /* SIG_HOLD */ -# endif /* BSDSIGS */ - if (tty_setty(SHTTY, &extty) == -1) { -# ifdef DEBUG_TTY - xprintf("Cookedmode: tty_setty: %s\n", strerror(errno)); -# endif /* DEBUG_TTY */ - return -1; - } -# ifdef BSDSIGS - (void) signal(SIGINT, orig_intr); /* take these again */ -# else - (void) sigset(SIGINT, orig_intr); /* take these again */ -# endif /* BSDSIGS */ -#endif /* WINNT */ - - Tty_raw_mode = 0; - return (0); -} - -void -ResetInLine(macro) - int macro; -{ - Cursor = InputBuf; /* reset cursor */ - LastChar = InputBuf; - InputLim = &InputBuf[INBUFSIZE - 2]; - Mark = InputBuf; - MetaNext = 0; - CurrentKeyMap = CcKeyMap; - AltKeyMap = 0; - Hist_num = 0; - DoingArg = 0; - Argument = 1; -#ifdef notdef - LastKill = KillBuf; /* no kill buffer */ -#endif - LastCmd = F_UNASSIGNED; /* previous command executed */ - if (macro) - MacroLvl = -1; /* no currently active macros */ -} - -static Char *Input_Line = NULL; -int -Load_input_line() -{ -#ifdef SUNOS4 - long chrs = 0; -#else /* !SUNOS4 */ - /* - * *Everyone* else has an int, but SunOS wants long! - * This breaks where int != long (alpha) - */ - int chrs = 0; -#endif /* SUNOS4 */ - - if (Input_Line) - xfree((ptr_t) Input_Line); - Input_Line = NULL; - - if (Tty_raw_mode) - return 0; - -#if defined(FIONREAD) && !defined(OREO) - (void) ioctl(SHIN, FIONREAD, (ioctl_t) &chrs); - if (chrs > 0) { - char buf[BUFSIZE]; - - chrs = read(SHIN, buf, (size_t) min(chrs, BUFSIZE - 1)); - if (chrs > 0) { - buf[chrs] = '\0'; - Input_Line = Strsave(str2short(buf)); - PushMacro(Input_Line); - } -#ifdef convex - /* need to print errno message in case file is migrated */ - if (chrs < 0) - stderror(ERR_SYSTEM, progname, strerror(errno)); -#endif - } -#endif /* FIONREAD && !OREO */ - return chrs > 0; -} - -/* - * Bugfix (in Swedish) by: - * Johan Widen - * SICS, PO Box 1263, S-163 13 SPANGA, SWEDEN - * {mcvax,munnari,cernvax,diku,inria,prlb2,penet,ukc,unido}!enea!sics.se!jw - * Internet: jw@sics.se - * - * (via Hans J Albertsson (thanks)) - */ -void -QuoteModeOn() -{ - if (MacroLvl >= 0) - return; - -#ifndef WINNT - qutty = edtty; - -#if defined(TERMIO) || defined(POSIX) - qutty.d_t.c_iflag &= ~ttylist[QU_IO][M_INPUT].t_clrmask; - qutty.d_t.c_iflag |= ttylist[QU_IO][M_INPUT].t_setmask; - - qutty.d_t.c_oflag &= ~ttylist[QU_IO][M_OUTPUT].t_clrmask; - qutty.d_t.c_oflag |= ttylist[QU_IO][M_OUTPUT].t_setmask; - - qutty.d_t.c_cflag &= ~ttylist[QU_IO][M_CONTROL].t_clrmask; - qutty.d_t.c_cflag |= ttylist[QU_IO][M_CONTROL].t_setmask; - - qutty.d_t.c_lflag &= ~ttylist[QU_IO][M_LINED].t_clrmask; - qutty.d_t.c_lflag |= ttylist[QU_IO][M_LINED].t_setmask; -#else /* GSTTY */ - qutty.d_t.sg_flags &= ~ttylist[QU_IO][M_CONTROL].t_clrmask; - qutty.d_t.sg_flags |= ttylist[QU_IO][M_CONTROL].t_setmask; - qutty.d_lb &= ~ttylist[QU_IO][M_LOCAL].t_clrmask; - qutty.d_lb |= ttylist[QU_IO][M_LOCAL].t_setmask; - -#endif /* TERMIO || POSIX */ - if (tty_setty(SHTTY, &qutty) == -1) { -#ifdef DEBUG_TTY - xprintf("QuoteModeOn: tty_setty: %s\n", strerror(errno)); -#endif /* DEBUG_TTY */ - return; - } -#endif /* !WINNT */ - Tty_quote_mode = 1; - return; -} - -void -QuoteModeOff() -{ - if (!Tty_quote_mode) - return; - Tty_quote_mode = 0; - if (tty_setty(SHTTY, &edtty) == -1) { -#ifdef DEBUG_TTY - xprintf("QuoteModeOff: tty_setty: %s\n", strerror(errno)); -#endif /* DEBUG_TTY */ - return; - } - return; -} diff --git a/contrib/tcsh/ed.inputl.c b/contrib/tcsh/ed.inputl.c deleted file mode 100644 index 2842d7db78ea..000000000000 --- a/contrib/tcsh/ed.inputl.c +++ /dev/null @@ -1,903 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.inputl.c,v 3.47 1999/04/20 07:48:39 christos Exp $ */ -/* - * ed.inputl.c: Input line handling. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: ed.inputl.c,v 3.47 1999/04/20 07:48:39 christos Exp $") - -#include "ed.h" -#include "ed.defns.h" /* for the function names */ -#include "tw.h" /* for twenex stuff */ - -#define OKCMD (INBUFSIZE+INBUFSIZE) - -/* ed.inputl -- routines to get a single line from the input. */ - -extern bool tellwhat; -extern bool MapsAreInited; -extern bool Tty_raw_mode; - -/* mismatched first character */ -static Char mismatch[] = - {'!', '^' , '\\', '-', '%', '\0', '"', '\'', '`', '\0' }; - -static int Repair __P((void)); -static int GetNextCommand __P((KEYCMD *, Char *)); -static int SpellLine __P((int)); -static int CompleteLine __P((void)); -static void RunCommand __P((Char *)); -static void doeval1 __P((Char **)); - -static bool rotate = 0; - - -static int -Repair() -{ - if (NeedsRedraw) { - ClearLines(); - ClearDisp(); - NeedsRedraw = 0; - } - Refresh(); - Argument = 1; - DoingArg = 0; - curchoice = -1; - return (int) (LastChar - InputBuf); -} - -/* CCRETVAL */ -int -Inputl() -{ - CCRETVAL retval; - KEYCMD cmdnum = 0; - extern KEYCMD NumFuns; - unsigned char tch; /* the place where read() goes */ - Char ch; - int num; /* how many chars we have read at NL */ - int expnum; - struct varent *crct = inheredoc ? NULL : adrof(STRcorrect); - struct varent *autol = adrof(STRautolist); - struct varent *matchbeep = adrof(STRmatchbeep); - struct varent *imode = adrof(STRinputmode); - Char *SaveChar, *CorrChar; - Char Origin[INBUFSIZE], Change[INBUFSIZE]; - int matchval; /* from tenematch() */ - COMMAND fn; - int curlen = 0; - int newlen; - int idx; - - if (!MapsAreInited) /* double extra just in case */ - ed_InitMaps(); - - ClearDisp(); /* reset the display stuff */ - ResetInLine(0); /* reset the input pointers */ - if (GettingInput) - MacroLvl = -1; /* editor was interrupted during input */ - - if (imode) { - if (!Strcmp(*(imode->vec), STRinsert)) - inputmode = MODE_INSERT; - else if (!Strcmp(*(imode->vec), STRoverwrite)) - inputmode = MODE_REPLACE; - } - -#if defined(FIONREAD) && !defined(OREO) - if (!Tty_raw_mode && MacroLvl < 0) { -# ifdef SUNOS4 - long chrs = 0; -# else /* !SUNOS4 */ - /* - * *Everyone* else has an int, but SunOS wants long! - * This breaks where int != long (alpha) - */ - int chrs = 0; -# endif /* SUNOS4 */ - - (void) ioctl(SHIN, FIONREAD, (ioctl_t) & chrs); - if (chrs == 0) { - if (Rawmode() < 0) - return 0; - } - } -#endif /* FIONREAD && !OREO */ - - GettingInput = 1; - NeedsRedraw = 0; - - if (tellwhat) { - copyn(InputBuf, WhichBuf, INBUFSIZE); - LastChar = InputBuf + (LastWhich - WhichBuf); - Cursor = InputBuf + (CursWhich - WhichBuf); - tellwhat = 0; - Hist_num = HistWhich; - } - if (Expand) { - (void) e_up_hist(0); - Expand = 0; - } - Refresh(); /* print the prompt */ - - for (num = OKCMD; num == OKCMD;) { /* while still editing this line */ -#ifdef DEBUG_EDIT - if (Cursor > LastChar) - xprintf("Cursor > LastChar\r\n"); - if (Cursor < InputBuf) - xprintf("Cursor < InputBuf\r\n"); - if (Cursor > InputLim) - xprintf("Cursor > InputLim\r\n"); - if (LastChar > InputLim) - xprintf("LastChar > InputLim\r\n"); - if (InputLim != &InputBuf[INBUFSIZE - 2]) - xprintf("InputLim != &InputBuf[INBUFSIZE-2]\r\n"); - if ((!DoingArg) && (Argument != 1)) - xprintf("(!DoingArg) && (Argument != 1)\r\n"); - if (CcKeyMap[0] == 0) - xprintf("CcKeyMap[0] == 0 (maybe not inited)\r\n"); -#endif - - /* if EOF or error */ - if ((num = GetNextCommand(&cmdnum, &ch)) != OKCMD) { - break; - } - - if (cmdnum >= NumFuns) {/* BUG CHECK command */ -#ifdef DEBUG_EDIT - xprintf(CGETS(6, 1, "ERROR: illegal command from key 0%o\r\n"), ch); -#endif - continue; /* try again */ - } - - /* now do the real command */ - retval = (*CcFuncTbl[cmdnum]) (ch); - - /* save the last command here */ - LastCmd = cmdnum; - - /* make sure fn is initialized */ - fn = (retval == CC_COMPLETE_ALL) ? LIST_ALL : LIST; - - /* use any return value */ - switch (retval) { - - case CC_REFRESH: - Refresh(); - /*FALLTHROUGH*/ - case CC_NORM: /* normal char */ - Argument = 1; - DoingArg = 0; - /*FALLTHROUGH*/ - case CC_ARGHACK: /* Suggested by Rich Salz */ - /* <rsalz@pineapple.bbn.com> */ - curchoice = -1; - curlen = (int) (LastChar - InputBuf); - break; /* keep going... */ - - case CC_EOF: /* end of file typed */ - curchoice = -1; - curlen = (int) (LastChar - InputBuf); - num = 0; - break; - - case CC_WHICH: /* tell what this command does */ - tellwhat = 1; - copyn(WhichBuf, InputBuf, INBUFSIZE); - LastWhich = WhichBuf + (LastChar - InputBuf); - CursWhich = WhichBuf + (Cursor - InputBuf); - *LastChar++ = '\n'; /* for the benifit of CSH */ - HistWhich = Hist_num; - Hist_num = 0; /* for the history commands */ - num = (int) (LastChar - InputBuf); /* number characters read */ - break; - - case CC_NEWLINE: /* normal end of line */ - curlen = 0; - curchoice = -1; - matchval = 1; - if (crct && (!Strcmp(*(crct->vec), STRcmd) || - !Strcmp(*(crct->vec), STRall))) { - PastBottom(); - copyn(Origin, InputBuf, INBUFSIZE); - SaveChar = LastChar; - if (SpellLine(!Strcmp(*(crct->vec), STRcmd)) == 1) { - PastBottom(); - copyn(Change, InputBuf, INBUFSIZE); - *Strchr(Change, '\n') = '\0'; - CorrChar = LastChar; /* Save the corrected end */ - LastChar = InputBuf; /* Null the current line */ - SoundBeep(); - printprompt(2, short2str(Change)); - Refresh(); - if (read(SHIN, (char *) &tch, 1) < 0) -#ifdef convex - /* - * need to print error message in case file - * is migrated - */ - if (errno && errno != EINTR) - stderror(ERR_SYSTEM, progname, strerror(errno)); -#else - break; -#endif - ch = tch; - if (ch == 'y' || ch == ' ') { - LastChar = CorrChar; /* Restore the corrected end */ - xprintf(CGETS(6, 2, "yes\n")); - } - else { - copyn(InputBuf, Origin, INBUFSIZE); - LastChar = SaveChar; - if (ch == 'e') { - xprintf(CGETS(6, 3, "edit\n")); - *LastChar-- = '\0'; - Cursor = LastChar; - printprompt(3, NULL); - ClearLines(); - ClearDisp(); - Refresh(); - break; - } - else if (ch == 'a') { - xprintf(CGETS(6, 4, "abort\n")); - LastChar = InputBuf; /* Null the current line */ - Cursor = LastChar; - printprompt(0, NULL); - Refresh(); - break; - } - xprintf(CGETS(6, 5, "no\n")); - } - flush(); - } - } else if (crct && !Strcmp(*(crct->vec), STRcomplete)) { - if (LastChar > InputBuf && LastChar[-1] == '\n') { - LastChar[-1] = '\0'; - LastChar--; - Cursor = LastChar; - } - match_unique_match = 1; /* match unique matches */ - matchval = CompleteLine(); - match_unique_match = 0; - curlen = (int) (LastChar - InputBuf); - if (matchval != 1) { - PastBottom(); - } - if (matchval == 0) { - xprintf(CGETS(6, 6, "No matching command\n")); - } else if (matchval == 2) { - xprintf(CGETS(6, 7, "Ambiguous command\n")); - } - if (NeedsRedraw) { - ClearLines(); - ClearDisp(); - NeedsRedraw = 0; - } - Refresh(); - Argument = 1; - DoingArg = 0; - if (matchval == 1) { - PastBottom(); - *LastChar++ = '\n'; - *LastChar = '\0'; - } - curlen = (int) (LastChar - InputBuf); - } - else - PastBottom(); - - if (matchval == 1) { - tellwhat = 0; /* just in case */ - Hist_num = 0; /* for the history commands */ - /* return the number of chars read */ - num = (int) (LastChar - InputBuf); - /* - * For continuation lines, we set the prompt to prompt 2 - */ - printprompt(1, NULL); - } - break; - - case CC_CORRECT: - if (tenematch(InputBuf, Cursor - InputBuf, SPELL) < 0) - SoundBeep(); /* Beep = No match/ambiguous */ - curlen = Repair(); - break; - - case CC_CORRECT_L: - if (SpellLine(FALSE) < 0) - SoundBeep(); /* Beep = No match/ambiguous */ - curlen = Repair(); - break; - - - case CC_COMPLETE: - case CC_COMPLETE_ALL: - case CC_COMPLETE_FWD: - case CC_COMPLETE_BACK: - switch (retval) { - case CC_COMPLETE: - fn = RECOGNIZE; - curlen = (int) (LastChar - InputBuf); - curchoice = -1; - rotate = 0; - break; - case CC_COMPLETE_ALL: - fn = RECOGNIZE_ALL; - curlen = (int) (LastChar - InputBuf); - curchoice = -1; - rotate = 0; - break; - case CC_COMPLETE_FWD: - fn = RECOGNIZE_SCROLL; - curchoice++; - rotate = 1; - break; - case CC_COMPLETE_BACK: - fn = RECOGNIZE_SCROLL; - curchoice--; - rotate = 1; - break; - default: - abort(); - } - if (InputBuf[curlen] && rotate) { - newlen = (int) (LastChar - InputBuf); - for (idx = (int) (Cursor - InputBuf); - idx <= newlen; idx++) - InputBuf[idx - newlen + curlen] = - InputBuf[idx]; - LastChar = InputBuf + curlen; - Cursor = Cursor - newlen + curlen; - } - curlen = (int) (LastChar - InputBuf); - - - if (adrof(STRautoexpand)) - (void) e_expand_history(0); - /* - * Modified by Martin Boyer (gamin@ireq-robot.hydro.qc.ca): - * A separate variable now controls beeping after - * completion, independently of autolisting. - */ - expnum = (int) (Cursor - InputBuf); - switch (matchval = tenematch(InputBuf, Cursor-InputBuf, fn)){ - case 1: - if (non_unique_match && matchbeep && - (Strcmp(*(matchbeep->vec), STRnotunique) == 0)) - SoundBeep(); - break; - case 0: - if (matchbeep) { - if (Strcmp(*(matchbeep->vec), STRnomatch) == 0 || - Strcmp(*(matchbeep->vec), STRambiguous) == 0 || - Strcmp(*(matchbeep->vec), STRnotunique) == 0) - SoundBeep(); - } - else - SoundBeep(); - break; - default: - if (matchval < 0) { /* Error from tenematch */ - curchoice = -1; - SoundBeep(); - break; - } - if (matchbeep) { - if ((Strcmp(*(matchbeep->vec), STRambiguous) == 0 || - Strcmp(*(matchbeep->vec), STRnotunique) == 0)) - SoundBeep(); - } - else - SoundBeep(); - /* - * Addition by David C Lawrence <tale@pawl.rpi.edu>: If an - * attempted completion is ambiguous, list the choices. - * (PWP: this is the best feature addition to tcsh I have - * seen in many months.) - */ - if (autol && (Strcmp(*(autol->vec), STRambiguous) != 0 || - expnum == Cursor - InputBuf)) { - PastBottom(); - fn = (retval == CC_COMPLETE_ALL) ? LIST_ALL : LIST; - (void) tenematch(InputBuf, Cursor-InputBuf, fn); - } - break; - } - if (NeedsRedraw) { - PastBottom(); - ClearLines(); - ClearDisp(); - NeedsRedraw = 0; - } - Refresh(); - Argument = 1; - DoingArg = 0; - break; - - case CC_LIST_CHOICES: - case CC_LIST_ALL: - if (InputBuf[curlen] && rotate) { - newlen = (int) (LastChar - InputBuf); - for (idx = (int) (Cursor - InputBuf); - idx <= newlen; idx++) - InputBuf[idx - newlen + curlen] = - InputBuf[idx]; - LastChar = InputBuf + curlen; - Cursor = Cursor - newlen + curlen; - } - curlen = (int) (LastChar - InputBuf); - if (curchoice >= 0) - curchoice--; - - fn = (retval == CC_LIST_ALL) ? LIST_ALL : LIST; - /* should catch ^C here... */ - if (tenematch(InputBuf, Cursor - InputBuf, fn) < 0) - SoundBeep(); - Refresh(); - Argument = 1; - DoingArg = 0; - break; - - - case CC_LIST_GLOB: - if (tenematch(InputBuf, Cursor - InputBuf, GLOB) < 0) - SoundBeep(); - curlen = Repair(); - break; - - case CC_EXPAND_GLOB: - if (tenematch(InputBuf, Cursor - InputBuf, GLOB_EXPAND) <= 0) - SoundBeep(); /* Beep = No match */ - curlen = Repair(); - break; - - case CC_NORMALIZE_PATH: - if (tenematch(InputBuf, Cursor - InputBuf, PATH_NORMALIZE) <= 0) - SoundBeep(); /* Beep = No match */ - curlen = Repair(); - break; - - case CC_EXPAND_VARS: - if (tenematch(InputBuf, Cursor - InputBuf, VARS_EXPAND) <= 0) - SoundBeep(); /* Beep = No match */ - curlen = Repair(); - break; - - case CC_NORMALIZE_COMMAND: - if (tenematch(InputBuf, Cursor - InputBuf, COMMAND_NORMALIZE) <= 0) - SoundBeep(); /* Beep = No match */ - curlen = Repair(); - break; - - case CC_HELPME: - xputchar('\n'); - /* should catch ^C here... */ - (void) tenematch(InputBuf, LastChar - InputBuf, PRINT_HELP); - Refresh(); - Argument = 1; - DoingArg = 0; - curchoice = -1; - curlen = (int) (LastChar - InputBuf); - break; - - case CC_FATAL: /* fatal error, reset to known state */ -#ifdef DEBUG_EDIT - xprintf(CGETS(7, 8, "*** editor fatal ERROR ***\r\n\n")); -#endif /* DEBUG_EDIT */ - /* put (real) cursor in a known place */ - ClearDisp(); /* reset the display stuff */ - ResetInLine(1); /* reset the input pointers */ - Refresh(); /* print the prompt again */ - Argument = 1; - DoingArg = 0; - curchoice = -1; - curlen = (int) (LastChar - InputBuf); - break; - - case CC_ERROR: - default: /* functions we don't know about */ - DoingArg = 0; - Argument = 1; - SoundBeep(); - flush(); - curchoice = -1; - curlen = (int) (LastChar - InputBuf); - break; - } - } - (void) Cookedmode(); /* make sure the tty is set up correctly */ - GettingInput = 0; - flush(); /* flush any buffered output */ - return num; -} - -void -PushMacro(str) - Char *str; -{ - if (str != NULL && MacroLvl + 1 < MAXMACROLEVELS) { - MacroLvl++; - KeyMacro[MacroLvl] = str; - } - else { - SoundBeep(); - flush(); - } -} - -/* - * Like eval, only using the current file descriptors - */ -static Char **gv = NULL, **gav = NULL; - -static void -doeval1(v) - Char **v; -{ - Char **oevalvec; - Char *oevalp; - int my_reenter; - Char **savegv; - jmp_buf_t osetexit; - - oevalvec = evalvec; - oevalp = evalp; - savegv = gv; - gav = v; - - - gflag = 0, tglob(gav); - if (gflag) { - gv = gav = globall(gav); - gargv = 0; - if (gav == 0) - stderror(ERR_NOMATCH); - gav = copyblk(gav); - } - else { - gv = NULL; - gav = copyblk(gav); - trim(gav); - } - - getexit(osetexit); - - /* PWP: setjmp/longjmp bugfix for optimizing compilers */ -#ifdef cray - my_reenter = 1; /* assume non-zero return val */ - if (setexit() == 0) { - my_reenter = 0; /* Oh well, we were wrong */ -#else /* !cray */ - if ((my_reenter = setexit()) == 0) { -#endif /* cray */ - evalvec = gav; - evalp = 0; - process(0); - } - - evalvec = oevalvec; - evalp = oevalp; - doneinp = 0; - - if (gv) - blkfree(gv); - - gv = savegv; - resexit(osetexit); - if (my_reenter) - stderror(ERR_SILENT); -} - -static void -RunCommand(str) - Char *str; -{ - Char *cmd[2]; - - xputchar('\n'); /* Start on a clean line */ - - cmd[0] = str; - cmd[1] = NULL; - - (void) Cookedmode(); - GettingInput = 0; - - doeval1(cmd); - - (void) Rawmode(); - GettingInput = 1; - - ClearLines(); - ClearDisp(); - NeedsRedraw = 0; - Refresh(); -} - -static int -GetNextCommand(cmdnum, ch) - KEYCMD *cmdnum; - register Char *ch; -{ - KEYCMD cmd = 0; - int num; - - while (cmd == 0 || cmd == F_XKEY) { - if ((num = GetNextChar(ch)) != 1) { /* if EOF or error */ - return num; - } -#ifdef KANJI - if (!adrof(STRnokanji) && (*ch & META)) { - MetaNext = 0; - cmd = F_INSERT; - break; - } - else -#endif /* KANJI */ - if (MetaNext) { - MetaNext = 0; - *ch |= META; - } - /* XXX: This needs to be fixed so that we don't just truncate - * the character, we unquote it. - */ - if (*ch < NT_NUM_KEYS) - cmd = CurrentKeyMap[*ch]; - else - cmd = CurrentKeyMap[(unsigned char) *ch]; - if (cmd == F_XKEY) { - XmapVal val; - CStr cstr; - cstr.buf = ch; - cstr.len = Strlen(ch); - switch (GetXkey(&cstr, &val)) { - case XK_CMD: - cmd = val.cmd; - break; - case XK_STR: - PushMacro(val.str.buf); - break; - case XK_EXE: - RunCommand(val.str.buf); - break; - default: - abort(); - break; - } - } - if (!AltKeyMap) - CurrentKeyMap = CcKeyMap; - } - *cmdnum = cmd; - return OKCMD; -} - -int -GetNextChar(cp) - register Char *cp; -{ - register int num_read; - int tried = 0; - unsigned char tcp; - - for (;;) { - if (MacroLvl < 0) { - if (!Load_input_line()) - break; - } - if (*KeyMacro[MacroLvl] == 0) { - MacroLvl--; - continue; - } - *cp = *KeyMacro[MacroLvl]++ & CHAR; - if (*KeyMacro[MacroLvl] == 0) { /* Needed for QuoteMode On */ - MacroLvl--; - } - return (1); - } - - if (Rawmode() < 0) /* make sure the tty is set up correctly */ - return 0; /* oops: SHIN was closed */ - -#ifdef WINNT - __nt_want_vcode = 1; -#endif /* WINNT */ - while ((num_read = read(SHIN, (char *) &tcp, 1)) == -1) { - if (errno == EINTR) - continue; - if (!tried && fixio(SHIN, errno) != -1) - tried = 1; - else { -#ifdef convex - /* need to print error message in case the file is migrated */ - if (errno != EINTR) - stderror(ERR_SYSTEM, progname, strerror(errno)); -#endif /* convex */ -#ifdef WINNT - __nt_want_vcode = 0; -#endif /* WINNT */ - *cp = '\0'; - return -1; - } - } -#ifdef WINNT - if (__nt_want_vcode == 2) - *cp = __nt_vcode; - else - *cp = tcp; - __nt_want_vcode = 0; -#else - *cp = tcp; -#endif /* WINNT */ - return num_read; -} - -/* - * SpellLine - do spelling correction on the entire command line - * (which may have trailing newline). - * If cmdonly is set, only check spelling of command words. - * Return value: - * -1: Something was incorrectible, and nothing was corrected - * 0: Everything was correct - * 1: Something was corrected - */ -static int -SpellLine(cmdonly) - int cmdonly; -{ - int endflag, matchval; - Char *argptr, *OldCursor, *OldLastChar; - - OldLastChar = LastChar; - OldCursor = Cursor; - argptr = InputBuf; - endflag = 1; - matchval = 0; - do { - while (ismetahash(*argptr) || iscmdmeta(*argptr)) - argptr++; - for (Cursor = argptr; - *Cursor != '\0' && ((Cursor != argptr && Cursor[-1] == '\\') || - (!ismetahash(*Cursor) && !iscmdmeta(*Cursor))); - Cursor++) - continue; - if (*Cursor == '\0') { - Cursor = LastChar; - if (LastChar[-1] == '\n') - Cursor--; - endflag = 0; - } - /* Obey current history character settings */ - mismatch[0] = HIST; - mismatch[1] = HISTSUB; - if (!Strchr(mismatch, *argptr) && - (!cmdonly || starting_a_command(argptr, InputBuf))) { -#ifdef WINNT - /* - * This hack avoids correcting drive letter changes - */ - if((Cursor - InputBuf) != 2 || (char)InputBuf[1] != ':') -#endif /* WINNT */ - { -#ifdef HASH_SPELL_CHECK - Char save; - size_t len = Cursor - InputBuf; - - save = InputBuf[len]; - InputBuf[len] = '\0'; - if (find_cmd(InputBuf, 0) != 0) { - InputBuf[len] = save; - argptr = Cursor; - continue; - } - InputBuf[len] = save; -#endif /* HASH_SPELL_CHECK */ - switch (tenematch(InputBuf, Cursor - InputBuf, SPELL)) { - case 1: /* corrected */ - matchval = 1; - break; - case -1: /* couldn't be corrected */ - if (!matchval) - matchval = -1; - break; - default: /* was correct */ - break; - } - } - if (LastChar != OldLastChar) { - if (argptr < OldCursor) - OldCursor += (LastChar - OldLastChar); - OldLastChar = LastChar; - } - } - argptr = Cursor; - } while (endflag); - Cursor = OldCursor; - return matchval; -} - -/* - * CompleteLine - do command completion on the entire command line - * (which may have trailing newline). - * Return value: - * 0: No command matched or failure - * 1: One command matched - * 2: Several commands matched - */ -static int -CompleteLine() -{ - int endflag, tmatch; - Char *argptr, *OldCursor, *OldLastChar; - - OldLastChar = LastChar; - OldCursor = Cursor; - argptr = InputBuf; - endflag = 1; - do { - while (ismetahash(*argptr) || iscmdmeta(*argptr)) - argptr++; - for (Cursor = argptr; - *Cursor != '\0' && ((Cursor != argptr && Cursor[-1] == '\\') || - (!ismetahash(*Cursor) && !iscmdmeta(*Cursor))); - Cursor++) - continue; - if (*Cursor == '\0') { - Cursor = LastChar; - if (LastChar[-1] == '\n') - Cursor--; - endflag = 0; - } - if (!Strchr(mismatch, *argptr) && starting_a_command(argptr, InputBuf)) { - tmatch = tenematch(InputBuf, Cursor - InputBuf, RECOGNIZE); - if (tmatch <= 0) { - return 0; - } else if (tmatch > 1) { - return 2; - } - if (LastChar != OldLastChar) { - if (argptr < OldCursor) - OldCursor += (LastChar - OldLastChar); - OldLastChar = LastChar; - } - } - argptr = Cursor; - } while (endflag); - Cursor = OldCursor; - return 1; -} - diff --git a/contrib/tcsh/ed.refresh.c b/contrib/tcsh/ed.refresh.c deleted file mode 100644 index 46333c996a1c..000000000000 --- a/contrib/tcsh/ed.refresh.c +++ /dev/null @@ -1,1317 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.refresh.c,v 3.25 1998/11/24 18:17:22 christos Exp $ */ -/* - * ed.refresh.c: Lower level screen refreshing functions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: ed.refresh.c,v 3.25 1998/11/24 18:17:22 christos Exp $") - -#include "ed.h" -/* #define DEBUG_UPDATE */ -/* #define DEBUG_REFRESH */ -/* #define DEBUG_LITERAL */ - -/* refresh.c -- refresh the current set of lines on the screen */ - -Char *litptr[256]; -static int vcursor_h, vcursor_v; -static int rprompt_h, rprompt_v; - -static void Draw __P((int)); -static void Vdraw __P((int)); -static void RefreshPromptpart __P((Char *)); -static void update_line __P((Char *, Char *, int)); -static void str_insert __P((Char *, int, int, Char *, int)); -static void str_delete __P((Char *, int, int, int)); -static void str_cp __P((Char *, Char *, int)); -static void PutPlusOne __P((int)); -static void cpy_pad_spaces __P((Char *, Char *, int)); -#if defined(DSPMBYTE) -static Char *update_line_fix_mbyte_point __P((Char *, Char *, int)); -#endif -#if defined(DEBUG_UPDATE) || defined(DEBUG_REFRESH) || defined(DEBUG_LITERAL) -static void dprintf __P((char *, ...)); -#ifdef DEBUG_UPDATE -static void dprintstr __P((char *, Char *, Char *)); - -static void -dprintstr(str, f, t) -char *str; -Char *f, *t; -{ - dprintf("%s:\"", str); - while (f < t) - dprintf("%c", *f++ & ASCII); - dprintf("\"\r\n"); -} -#endif /* DEBUG_UPDATE */ - -/* dprintf(): - * Print to $DEBUGTTY, so that we can test editing on one pty, and - * print debugging stuff on another. Don't interrupt the shell while - * debugging cause you'll mangle up the file descriptors! - */ -static void -#ifdef FUNCPROTO -dprintf(char *fmt, ...) -#else -dprintf(va_list) - va_dcl -#endif /* __STDC__ */ -{ - static int fd = -1; - char *dtty; - - if ((dtty = getenv("DEBUGTTY"))) { - int o; - va_list va; -#ifdef FUNCPROTO - va_start(va, fmt); -#else - char *fmt; - va_start(va); - fmt = va_arg(va, char *); -#endif /* __STDC__ */ - - if (fd == -1) - fd = open(dtty, O_RDWR); - o = SHOUT; - flush(); - SHOUT = fd; - xvprintf(fmt, va); - va_end(va); - flush(); - SHOUT = o; - } -} -#endif /* DEBUG_UPDATE || DEBUG_REFRESH || DEBUG_LITERAL */ - -static void -Draw(c) /* draw c, expand tabs, ctl chars */ - register int c; -{ - register Char ch = c & CHAR; - - if (Isprint(ch)) { - Vdraw(c); - return; - } - /* from wolman%crltrx.DEC@decwrl.dec.com (Alec Wolman) */ - if (ch == '\n') { /* expand the newline */ - /* - * Don't force a newline if Vdraw does it (i.e. we're at end of line) - * - or we will get two newlines and possibly garbage in between - */ - int oldv = vcursor_v; - - Vdraw('\0'); /* assure end of line */ - if (oldv == vcursor_v) { - vcursor_h = 0; /* reset cursor pos */ - vcursor_v++; - } - return; - } - if (ch == '\t') { /* expand the tab */ - for (;;) { - Vdraw(' '); - if ((vcursor_h & 07) == 0) - break; /* go until tab stop */ - } - } - else if (Iscntrl(ch)) { -#ifndef _OSD_POSIX - Vdraw('^'); - if (ch == CTL_ESC('\177')) { - Vdraw('?'); - } - else { - /* uncontrolify it; works only for iso8859-1 like sets */ - Vdraw((c | 0100)); -#else /*_OSD_POSIX*/ - if (ch == CTL_ESC('\177')) { - Vdraw('^'); - Vdraw('?'); - } - else { - if (Isupper(_toebcdic[_toascii[c]|0100]) - || strchr("@[\\]^_", _toebcdic[_toascii[c]|0100]) != NULL) - { - Vdraw('^'); - Vdraw(_toebcdic[_toascii[c]|0100]); - } - else - { - Vdraw('\\'); - Vdraw(((c >> 6) & 7) + '0'); - Vdraw(((c >> 3) & 7) + '0'); - Vdraw((c & 7) + '0'); - } -#endif /*_OSD_POSIX*/ - } - } -#ifdef KANJI - else if (!adrof(STRnokanji)) { - Vdraw(c); - return; - } -#endif - else { - Vdraw('\\'); - Vdraw(((c >> 6) & 7) + '0'); - Vdraw(((c >> 3) & 7) + '0'); - Vdraw((c & 7) + '0'); - } -} - -static void -Vdraw(c) /* draw char c onto V lines */ - register int c; -{ -#ifdef DEBUG_REFRESH -# ifdef SHORT_STRINGS - dprintf("Vdrawing %6.6o '%c'\r\n", c, c & ASCII); -# else - dprintf("Vdrawing %3.3o '%c'\r\n", c, c); -# endif /* SHORT_STRNGS */ -#endif /* DEBUG_REFRESH */ - - Vdisplay[vcursor_v][vcursor_h] = (Char) c; - vcursor_h++; /* advance to next place */ - if (vcursor_h >= TermH) { - Vdisplay[vcursor_v][TermH] = '\0'; /* assure end of line */ - vcursor_h = 0; /* reset it. */ - vcursor_v++; -#ifdef DEBUG_REFRESH - if (vcursor_v >= TermV) { /* should NEVER happen. */ - dprintf("\r\nVdraw: vcursor_v overflow! Vcursor_v == %d > %d\r\n", - vcursor_v, TermV); - abort(); - } -#endif /* DEBUG_REFRESH */ - } -} - -/* - * RefreshPromptpart() - * draws a prompt element, expanding literals (we know it's ASCIZ) - */ -static void -RefreshPromptpart(buf) - Char *buf; -{ - register Char *cp; - static unsigned int litnum = 0; - if (buf == NULL) - { - litnum = 0; - return; - } - - for (cp = buf; *cp; cp++) { - if (*cp & LITERAL) { - if (litnum < (sizeof(litptr) / sizeof(litptr[0]))) { - litptr[litnum] = cp; -#ifdef DEBUG_LITERAL - dprintf("litnum = %d, litptr = %x:\r\n", - litnum, litptr[litnum]); -#endif /* DEBUG_LITERAL */ - } - while (*cp & LITERAL) - cp++; - if (*cp) - Vdraw((int) (litnum++ | LITERAL)); - else { - /* - * XXX: This is a bug, we lose the last literal, if it is not - * followed by a normal character, but it is too hard to fix - */ - break; - } - } - else - Draw(*cp); - } -} - -/* - * Refresh() - * draws the new virtual screen image from the current input - * line, then goes line-by-line changing the real image to the new - * virtual image. The routine to re-draw a line can be replaced - * easily in hopes of a smarter one being placed there. - */ -static int OldvcV = 0; -void -Refresh() -{ - register int cur_line; - register Char *cp; - int cur_h, cur_v = 0, new_vcv; - int rhdiff; - Char oldgetting; - -#ifdef DEBUG_REFRESH - dprintf("PromptBuf = :%s:\r\n", short2str(PromptBuf)); - dprintf("InputBuf = :%s:\r\n", short2str(InputBuf)); -#endif /* DEBUG_REFRESH */ - oldgetting = GettingInput; - GettingInput = 0; /* avoid re-entrance via SIGWINCH */ - - /* reset the Vdraw cursor, temporarily draw rprompt to calculate its size */ - vcursor_h = 0; - vcursor_v = 0; - RefreshPromptpart(NULL); - RefreshPromptpart(RPromptBuf); - rprompt_h = vcursor_h; - rprompt_v = vcursor_v; - - /* reset the Vdraw cursor, draw prompt */ - vcursor_h = 0; - vcursor_v = 0; - RefreshPromptpart(NULL); - RefreshPromptpart(PromptBuf); - cur_h = -1; /* set flag in case I'm not set */ - - /* draw the current input buffer */ - for (cp = InputBuf; (cp < LastChar); cp++) { - if (cp == Cursor) { - cur_h = vcursor_h; /* save for later */ - cur_v = vcursor_v; - } - Draw(*cp); - } - - if (cur_h == -1) { /* if I haven't been set yet, I'm at the end */ - cur_h = vcursor_h; - cur_v = vcursor_v; - } - - rhdiff = TermH - vcursor_h - rprompt_h; - if (rprompt_h != 0 && rprompt_v == 0 && vcursor_v == 0 && rhdiff > 1) { - /* - * have a right-hand side prompt that will fit on - * the end of the first line with at least one - * character gap to the input buffer. - */ - while (--rhdiff > 0) /* pad out with spaces */ - Draw(' '); - RefreshPromptpart(RPromptBuf); - } - else { - rprompt_h = 0; /* flag "not using rprompt" */ - rprompt_v = 0; - } - - new_vcv = vcursor_v; /* must be done BEFORE the NUL is written */ - Vdraw('\0'); /* put NUL on end */ - -#ifdef DEBUG_REFRESH - dprintf("TermH=%d, vcur_h=%d, vcur_v=%d, Vdisplay[0]=\r\n:%80.80s:\r\n", - TermH, vcursor_h, vcursor_v, short2str(Vdisplay[0])); -#endif /* DEBUG_REFRESH */ - -#ifdef DEBUG_UPDATE - dprintf("updating %d lines.\r\n", new_vcv); -#endif /* DEBUG_UPDATE */ - for (cur_line = 0; cur_line <= new_vcv; cur_line++) { - /* NOTE THAT update_line MAY CHANGE Display[cur_line] */ - update_line(Display[cur_line], Vdisplay[cur_line], cur_line); -#ifdef WINNT - flush(); -#endif /* WINNT */ - - /* - * Copy the new line to be the current one, and pad out with spaces - * to the full width of the terminal so that if we try moving the - * cursor by writing the character that is at the end of the - * screen line, it won't be a NUL or some old leftover stuff. - */ - cpy_pad_spaces(Display[cur_line], Vdisplay[cur_line], TermH); -#ifdef notdef - (void) Strncpy(Display[cur_line], Vdisplay[cur_line], (size_t) TermH); - Display[cur_line][TermH] = '\0'; /* just in case */ -#endif - } -#ifdef DEBUG_REFRESH - dprintf("\r\nvcursor_v = %d, OldvcV = %d, cur_line = %d\r\n", - vcursor_v, OldvcV, cur_line); -#endif /* DEBUG_REFRESH */ - if (OldvcV > new_vcv) { - for (; cur_line <= OldvcV; cur_line++) { - update_line(Display[cur_line], STRNULL, cur_line); - *Display[cur_line] = '\0'; - } - } - OldvcV = new_vcv; /* set for next time */ -#ifdef DEBUG_REFRESH - dprintf("\r\nCursorH = %d, CursorV = %d, cur_h = %d, cur_v = %d\r\n", - CursorH, CursorV, cur_h, cur_v); -#endif /* DEBUG_REFRESH */ -#ifdef WINNT - flush(); -#endif /* WINNT */ - MoveToLine(cur_v); /* go to where the cursor is */ - MoveToChar(cur_h); - SetAttributes(0); /* Clear all attributes */ - flush(); /* send the output... */ - GettingInput = oldgetting; /* reset to old value */ -} - -#ifdef notdef -GotoBottom() -{ /* used to go to last used screen line */ - MoveToLine(OldvcV); -} - -#endif - -void -PastBottom() -{ /* used to go to last used screen line */ - MoveToLine(OldvcV); - (void) putraw('\r'); - (void) putraw('\n'); - ClearDisp(); - flush(); -} - - -/* insert num characters of s into d (in front of the character) at dat, - maximum length of d is dlen */ -static void -str_insert(d, dat, dlen, s, num) - register Char *d; - register int dat, dlen; - register Char *s; - register int num; -{ - register Char *a, *b; - - if (num <= 0) - return; - if (num > dlen - dat) - num = dlen - dat; - -#ifdef DEBUG_REFRESH - dprintf("str_insert() starting: %d at %d max %d, d == \"%s\"\n", - num, dat, dlen, short2str(d)); - dprintf("s == \"%s\"n", short2str(s)); -#endif /* DEBUG_REFRESH */ - - /* open up the space for num chars */ - if (num > 0) { - b = d + dlen - 1; - a = b - num; - while (a >= &d[dat]) - *b-- = *a--; - d[dlen] = '\0'; /* just in case */ - } -#ifdef DEBUG_REFRESH - dprintf("str_insert() after insert: %d at %d max %d, d == \"%s\"\n", - num, dat, dlen, short2str(d)); - dprintf("s == \"%s\"n", short2str(s)); -#endif /* DEBUG_REFRESH */ - - /* copy the characters */ - for (a = d + dat; (a < d + dlen) && (num > 0); num--) - *a++ = *s++; - -#ifdef DEBUG_REFRESH - dprintf("str_insert() after copy: %d at %d max %d, d == \"%s\"\n", - num, dat, dlen, d, short2str(s)); - dprintf("s == \"%s\"n", short2str(s)); -#endif /* DEBUG_REFRESH */ -} - -/* delete num characters d at dat, maximum length of d is dlen */ -static void -str_delete(d, dat, dlen, num) - register Char *d; - register int dat, dlen, num; -{ - register Char *a, *b; - - if (num <= 0) - return; - if (dat + num >= dlen) { - d[dat] = '\0'; - return; - } - -#ifdef DEBUG_REFRESH - dprintf("str_delete() starting: %d at %d max %d, d == \"%s\"\n", - num, dat, dlen, short2str(d)); -#endif /* DEBUG_REFRESH */ - - /* open up the space for num chars */ - if (num > 0) { - b = d + dat; - a = b + num; - while (a < &d[dlen]) - *b++ = *a++; - d[dlen] = '\0'; /* just in case */ - } -#ifdef DEBUG_REFRESH - dprintf("str_delete() after delete: %d at %d max %d, d == \"%s\"\n", - num, dat, dlen, short2str(d)); -#endif /* DEBUG_REFRESH */ -} - -static void -str_cp(a, b, n) - register Char *a, *b; - register int n; -{ - while (n-- && *b) - *a++ = *b++; -} - - -#if defined(DSPMBYTE) /* BY TAGA Nayuta VERY THANKS */ -static Char * -update_line_fix_mbyte_point(start, target, d) - Char *start, *target; - int d; -{ - if (_enable_mbdisp) { - while (*start) { - if (target == start) - break; - if (target < start) - return target + d; - if (Ismbyte1(*start) && Ismbyte2(*(start + 1))) - start++; - start++; - } - } - return target; -} -#endif - -/* **************************************************************** - update_line() is based on finding the middle difference of each line - on the screen; vis: - - /old first difference - /beginning of line | /old last same /old EOL - v v v v -old: eddie> Oh, my little gruntle-buggy is to me, as lurgid as -new: eddie> Oh, my little buggy says to me, as lurgid as - ^ ^ ^ ^ - \beginning of line | \new last same \new end of line - \new first difference - - all are character pointers for the sake of speed. Special cases for - no differences, as well as for end of line additions must be handled. -**************************************************************** */ - -/* Minimum at which doing an insert it "worth it". This should be about - * half the "cost" of going into insert mode, inserting a character, and - * going back out. This should really be calculated from the termcap - * data... For the moment, a good number for ANSI terminals. - */ -#define MIN_END_KEEP 4 - -static void /* could be changed to make it smarter */ -update_line(old, new, cur_line) - register Char *old, *new; - int cur_line; -{ - register Char *o, *n, *p, c; - Char *ofd, *ols, *oe, *nfd, *nls, *ne; - Char *osb, *ose, *nsb, *nse; - int fx, sx; - - /* - * find first diff - */ - for (o = old, n = new; *o && (*o == *n); o++, n++) - continue; - ofd = o; - nfd = n; - - /* - * Find the end of both old and new - */ - while (*o) - o++; - /* - * Remove any trailing blanks off of the end, being careful not to - * back up past the beginning. - */ - while (ofd < o) { - if (o[-1] != ' ') - break; - o--; - } - oe = o; - *oe = (Char) 0; - - while (*n) - n++; - - /* remove blanks from end of new */ - while (nfd < n) { - if (n[-1] != ' ') - break; - n--; - } - ne = n; - *ne = (Char) 0; - - /* - * if no diff, continue to next line of redraw - */ - if (*ofd == '\0' && *nfd == '\0') { -#ifdef DEBUG_UPDATE - dprintf("no difference.\r\n"); -#endif /* DEBUG_UPDATE */ - return; - } - - /* - * find last same pointer - */ - while ((o > ofd) && (n > nfd) && (*--o == *--n)) - continue; - ols = ++o; - nls = ++n; - - /* - * find same begining and same end - */ - osb = ols; - nsb = nls; - ose = ols; - nse = nls; - - /* - * case 1: insert: scan from nfd to nls looking for *ofd - */ - if (*ofd) { - for (c = *ofd, n = nfd; n < nls; n++) { - if (c == *n) { - for (o = ofd, p = n; p < nls && o < ols && *o == *p; o++, p++) - continue; - /* - * if the new match is longer and it's worth keeping, then we - * take it - */ - if (((nse - nsb) < (p - n)) && (2 * (p - n) > n - nfd)) { - nsb = n; - nse = p; - osb = ofd; - ose = o; - } - } - } - } - - /* - * case 2: delete: scan from ofd to ols looking for *nfd - */ - if (*nfd) { - for (c = *nfd, o = ofd; o < ols; o++) { - if (c == *o) { - for (n = nfd, p = o; p < ols && n < nls && *p == *n; p++, n++) - continue; - /* - * if the new match is longer and it's worth keeping, then we - * take it - */ - if (((ose - osb) < (p - o)) && (2 * (p - o) > o - ofd)) { - nsb = nfd; - nse = n; - osb = o; - ose = p; - } - } - } - } -#ifdef notdef - /* - * If `last same' is before `same end' re-adjust - */ - if (ols < ose) - ols = ose; - if (nls < nse) - nls = nse; -#endif - - /* - * Pragmatics I: If old trailing whitespace or not enough characters to - * save to be worth it, then don't save the last same info. - */ - if ((oe - ols) < MIN_END_KEEP) { - ols = oe; - nls = ne; - } - - /* - * Pragmatics II: if the terminal isn't smart enough, make the data dumber - * so the smart update doesn't try anything fancy - */ - - /* - * fx is the number of characters we need to insert/delete: in the - * beginning to bring the two same begins together - */ - fx = (int) ((nsb - nfd) - (osb - ofd)); - /* - * sx is the number of characters we need to insert/delete: in the end to - * bring the two same last parts together - */ - sx = (int) ((nls - nse) - (ols - ose)); - - if (!T_CanIns) { - if (fx > 0) { - osb = ols; - ose = ols; - nsb = nls; - nse = nls; - } - if (sx > 0) { - ols = oe; - nls = ne; - } - if ((ols - ofd) < (nls - nfd)) { - ols = oe; - nls = ne; - } - } - if (!T_CanDel) { - if (fx < 0) { - osb = ols; - ose = ols; - nsb = nls; - nse = nls; - } - if (sx < 0) { - ols = oe; - nls = ne; - } - if ((ols - ofd) > (nls - nfd)) { - ols = oe; - nls = ne; - } - } - - /* - * Pragmatics III: make sure the middle shifted pointers are correct if - * they don't point to anything (we may have moved ols or nls). - */ - /* if the change isn't worth it, don't bother */ - /* was: if (osb == ose) */ - if ((ose - osb) < MIN_END_KEEP) { - osb = ols; - ose = ols; - nsb = nls; - nse = nls; - } - - /* - * Now that we are done with pragmatics we recompute fx, sx - */ - fx = (int) ((nsb - nfd) - (osb - ofd)); - sx = (int) ((nls - nse) - (ols - ose)); - -#ifdef DEBUG_UPDATE - dprintf("\n"); - dprintf("ofd %d, osb %d, ose %d, ols %d, oe %d\n", - ofd - old, osb - old, ose - old, ols - old, oe - old); - dprintf("nfd %d, nsb %d, nse %d, nls %d, ne %d\n", - nfd - new, nsb - new, nse - new, nls - new, ne - new); - dprintf("xxx-xxx:\"00000000001111111111222222222233333333334\"\r\n"); - dprintf("xxx-xxx:\"01234567890123456789012345678901234567890\"\r\n"); - dprintstr("old- oe", old, oe); - dprintstr("new- ne", new, ne); - dprintstr("old-ofd", old, ofd); - dprintstr("new-nfd", new, nfd); - dprintstr("ofd-osb", ofd, osb); - dprintstr("nfd-nsb", nfd, nsb); - dprintstr("osb-ose", osb, ose); - dprintstr("nsb-nse", nsb, nse); - dprintstr("ose-ols", ose, ols); - dprintstr("nse-nls", nse, nls); - dprintstr("ols- oe", ols, oe); - dprintstr("nls- ne", nls, ne); -#endif /* DEBUG_UPDATE */ - - /* - * CursorV to this line cur_line MUST be in this routine so that if we - * don't have to change the line, we don't move to it. CursorH to first - * diff char - */ - MoveToLine(cur_line); - -#if defined(DSPMBYTE) /* BY TAGA Nayuta VERY THANKS */ - ofd = update_line_fix_mbyte_point(old, ofd, -1); - osb = update_line_fix_mbyte_point(old, osb, 1); - ose = update_line_fix_mbyte_point(old, ose, -1); - ols = update_line_fix_mbyte_point(old, ols, 1); - nfd = update_line_fix_mbyte_point(new, nfd, -1); - nsb = update_line_fix_mbyte_point(new, nsb, 1); - nse = update_line_fix_mbyte_point(new, nse, -1); - nls = update_line_fix_mbyte_point(new, nls, 1); -#endif - - /* - * at this point we have something like this: - * - * /old /ofd /osb /ose /ols /oe - * v.....................v v..................v v........v - * eddie> Oh, my fredded gruntle-buggy is to me, as foo var lurgid as - * eddie> Oh, my fredded quiux buggy is to me, as gruntle-lurgid as - * ^.....................^ ^..................^ ^........^ - * \new \nfd \nsb \nse \nls \ne - * - * fx is the difference in length between the the chars between nfd and - * nsb, and the chars between ofd and osb, and is thus the number of - * characters to delete if < 0 (new is shorter than old, as above), - * or insert (new is longer than short). - * - * sx is the same for the second differences. - */ - - /* - * if we have a net insert on the first difference, AND inserting the net - * amount ((nsb-nfd) - (osb-ofd)) won't push the last useful character - * (which is ne if nls != ne, otherwise is nse) off the edge of the screen - * (TermH - 1) else we do the deletes first so that we keep everything we - * need to. - */ - - /* - * if the last same is the same like the end, there is no last same part, - * otherwise we want to keep the last same part set p to the last useful - * old character - */ - p = (ols != oe) ? oe : ose; - - /* - * if (There is a diffence in the beginning) && (we need to insert - * characters) && (the number of characters to insert is less than the term - * width) We need to do an insert! else if (we need to delete characters) - * We need to delete characters! else No insert or delete - */ - if ((nsb != nfd) && fx > 0 && ((p - old) + fx < TermH)) { -#ifdef DEBUG_UPDATE - dprintf("first diff insert at %d...\r\n", nfd - new); -#endif /* DEBUG_UPDATE */ - /* - * Move to the first char to insert, where the first diff is. - */ - MoveToChar(nfd - new); - /* - * Check if we have stuff to keep at end - */ - if (nsb != ne) { -#ifdef DEBUG_UPDATE - dprintf("with stuff to keep at end\r\n"); -#endif /* DEBUG_UPDATE */ - /* - * insert fx chars of new starting at nfd - */ - if (fx > 0) { -#ifdef DEBUG_UPDATE - if (!T_CanIns) - dprintf(" ERROR: cannot insert in early first diff\n"); -#endif /* DEBUG_UPDATE */ - Insert_write(nfd, fx); - str_insert(old, (int) (ofd - old), TermH, nfd, fx); - } - /* - * write (nsb-nfd) - fx chars of new starting at (nfd + fx) - */ - so_write(nfd + fx, (nsb - nfd) - fx); - str_cp(ofd + fx, nfd + fx, (int) ((nsb - nfd) - fx)); - } - else { -#ifdef DEBUG_UPDATE - dprintf("without anything to save\r\n"); -#endif /* DEBUG_UPDATE */ - so_write(nfd, (nsb - nfd)); - str_cp(ofd, nfd, (int) (nsb - nfd)); - /* - * Done - */ - return; - } - } - else if (fx < 0) { -#ifdef DEBUG_UPDATE - dprintf("first diff delete at %d...\r\n", ofd - old); -#endif /* DEBUG_UPDATE */ - /* - * move to the first char to delete where the first diff is - */ - MoveToChar(ofd - old); - /* - * Check if we have stuff to save - */ - if (osb != oe) { -#ifdef DEBUG_UPDATE - dprintf("with stuff to save at end\r\n"); -#endif /* DEBUG_UPDATE */ - /* - * fx is less than zero *always* here but we check for code - * symmetry - */ - if (fx < 0) { -#ifdef DEBUG_UPDATE - if (!T_CanDel) - dprintf(" ERROR: cannot delete in first diff\n"); -#endif /* DEBUG_UPDATE */ - DeleteChars(-fx); - str_delete(old, (int) (ofd - old), TermH, -fx); - } - /* - * write (nsb-nfd) chars of new starting at nfd - */ - so_write(nfd, (nsb - nfd)); - str_cp(ofd, nfd, (int) (nsb - nfd)); - - } - else { -#ifdef DEBUG_UPDATE - dprintf("but with nothing left to save\r\n"); -#endif /* DEBUG_UPDATE */ - /* - * write (nsb-nfd) chars of new starting at nfd - */ - so_write(nfd, (nsb - nfd)); -#ifdef DEBUG_REFRESH - dprintf("cleareol %d\n", (oe - old) - (ne - new)); -#endif /* DEBUG_UPDATE */ -#ifndef WINNT - ClearEOL((oe - old) - (ne - new)); -#else - /* - * The calculation above does not work too well on NT - */ - ClearEOL(TermH - CursorH); -#endif /*WINNT*/ - /* - * Done - */ - return; - } - } - else - fx = 0; - - if (sx < 0) { -#ifdef DEBUG_UPDATE - dprintf("second diff delete at %d...\r\n", (ose - old) + fx); -#endif /* DEBUG_UPDATE */ - /* - * Check if we have stuff to delete - */ - /* - * fx is the number of characters inserted (+) or deleted (-) - */ - - MoveToChar((ose - old) + fx); - /* - * Check if we have stuff to save - */ - if (ols != oe) { -#ifdef DEBUG_UPDATE - dprintf("with stuff to save at end\r\n"); -#endif /* DEBUG_UPDATE */ - /* - * Again a duplicate test. - */ - if (sx < 0) { -#ifdef DEBUG_UPDATE - if (!T_CanDel) - dprintf(" ERROR: cannot delete in second diff\n"); -#endif /* DEBUG_UPDATE */ - DeleteChars(-sx); - } - - /* - * write (nls-nse) chars of new starting at nse - */ - so_write(nse, (nls - nse)); - } - else { - int olen = (int) (oe - old + fx); - if (olen > TermH) - olen = TermH; -#ifdef DEBUG_UPDATE - dprintf("but with nothing left to save\r\n"); -#endif /* DEBUG_UPDATE */ - so_write(nse, (nls - nse)); -#ifdef DEBUG_REFRESH - dprintf("cleareol %d\n", olen - (ne - new)); -#endif /* DEBUG_UPDATE */ -#ifndef WINNT - ClearEOL(olen - (ne - new)); -#else - /* - * The calculation above does not work too well on NT - */ - ClearEOL(TermH - CursorH); -#endif /*WINNT*/ - } - } - - /* - * if we have a first insert AND WE HAVEN'T ALREADY DONE IT... - */ - if ((nsb != nfd) && (osb - ofd) <= (nsb - nfd) && (fx == 0)) { -#ifdef DEBUG_UPDATE - dprintf("late first diff insert at %d...\r\n", nfd - new); -#endif /* DEBUG_UPDATE */ - - MoveToChar(nfd - new); - /* - * Check if we have stuff to keep at the end - */ - if (nsb != ne) { -#ifdef DEBUG_UPDATE - dprintf("with stuff to keep at end\r\n"); -#endif /* DEBUG_UPDATE */ - /* - * We have to recalculate fx here because we set it - * to zero above as a flag saying that we hadn't done - * an early first insert. - */ - fx = (int) ((nsb - nfd) - (osb - ofd)); - if (fx > 0) { - /* - * insert fx chars of new starting at nfd - */ -#ifdef DEBUG_UPDATE - if (!T_CanIns) - dprintf(" ERROR: cannot insert in late first diff\n"); -#endif /* DEBUG_UPDATE */ - Insert_write(nfd, fx); - str_insert(old, (int) (ofd - old), TermH, nfd, fx); - } - - /* - * write (nsb-nfd) - fx chars of new starting at (nfd + fx) - */ - so_write(nfd + fx, (nsb - nfd) - fx); - str_cp(ofd + fx, nfd + fx, (int) ((nsb - nfd) - fx)); - } - else { -#ifdef DEBUG_UPDATE - dprintf("without anything to save\r\n"); -#endif /* DEBUG_UPDATE */ - so_write(nfd, (nsb - nfd)); - str_cp(ofd, nfd, (int) (nsb - nfd)); - } - } - - /* - * line is now NEW up to nse - */ - if (sx >= 0) { -#ifdef DEBUG_UPDATE - dprintf("second diff insert at %d...\r\n", nse - new); -#endif /* DEBUG_UPDATE */ - MoveToChar(nse - new); - if (ols != oe) { -#ifdef DEBUG_UPDATE - dprintf("with stuff to keep at end\r\n"); -#endif /* DEBUG_UPDATE */ - if (sx > 0) { - /* insert sx chars of new starting at nse */ -#ifdef DEBUG_UPDATE - if (!T_CanIns) - dprintf(" ERROR: cannot insert in second diff\n"); -#endif /* DEBUG_UPDATE */ - Insert_write(nse, sx); - } - - /* - * write (nls-nse) - sx chars of new starting at (nse + sx) - */ - so_write(nse + sx, (nls - nse) - sx); - } - else { -#ifdef DEBUG_UPDATE - dprintf("without anything to save\r\n"); -#endif /* DEBUG_UPDATE */ - so_write(nse, (nls - nse)); - - /* - * No need to do a clear-to-end here because we were doing - * a second insert, so we will have over written all of the - * old string. - */ - } - } -#ifdef DEBUG_UPDATE - dprintf("done.\r\n"); -#endif /* DEBUG_UPDATE */ -} - - -static void -cpy_pad_spaces(dst, src, width) - register Char *dst, *src; - register int width; -{ - register int i; - - for (i = 0; i < width; i++) { - if (*src == (Char) 0) - break; - *dst++ = *src++; - } - - while (i < width) { - *dst++ = ' '; - i++; - } - *dst = (Char) 0; -} - -void -RefCursor() -{ /* only move to new cursor pos */ - register Char *cp, c; - register int h, th, v; - - /* first we must find where the cursor is... */ - h = 0; - v = 0; - th = TermH; /* optimize for speed */ - - for (cp = PromptBuf; *cp; cp++) { /* do prompt */ - if (*cp & LITERAL) - continue; - c = *cp & CHAR; /* extra speed plus strip the inverse */ - h++; /* all chars at least this long */ - - /* from wolman%crltrx.DEC@decwrl.dec.com (Alec Wolman) */ - /* lets handle newline as part of the prompt */ - - if (c == '\n') { - h = 0; - v++; - } - else { - if (c == '\t') { /* if a tab, to next tab stop */ - while (h & 07) { - h++; - } - } - else if (Iscntrl(c)) { /* if control char */ - h++; - if (h > th) { /* if overflow, compensate */ - h = 1; - v++; - } - } - else if (!Isprint(c)) { - h += 3; - if (h > th) { /* if overflow, compensate */ - h = h - th; - v++; - } - } - } - - if (h >= th) { /* check, extra long tabs picked up here also */ - h = 0; - v++; - } - } - - for (cp = InputBuf; cp < Cursor; cp++) { /* do input buffer to Cursor */ - c = *cp & CHAR; /* extra speed plus strip the inverse */ - h++; /* all chars at least this long */ - - if (c == '\n') { /* handle newline in data part too */ - h = 0; - v++; - } - else { - if (c == '\t') { /* if a tab, to next tab stop */ - while (h & 07) { - h++; - } - } - else if (Iscntrl(c)) { /* if control char */ - h++; - if (h > th) { /* if overflow, compensate */ - h = 1; - v++; - } - } - else if (!Isprint(c)) { - h += 3; - if (h > th) { /* if overflow, compensate */ - h = h - th; - v++; - } - } - } - - if (h >= th) { /* check, extra long tabs picked up here also */ - h = 0; - v++; - } - } - - /* now go there */ - MoveToLine(v); - MoveToChar(h); - flush(); -} - -static void -PutPlusOne(c) - int c; -{ - (void) putraw(c); - Display[CursorV][CursorH++] = (Char) c; - if (CursorH >= TermH) { /* if we must overflow */ - CursorH = 0; - CursorV++; - OldvcV++; - if (T_Margin & MARGIN_AUTO) { - if (T_Margin & MARGIN_MAGIC) { - (void) putraw(' '); - (void) putraw('\b'); - } - } - else { - (void) putraw('\r'); - (void) putraw('\n'); - } - } -} - -void -RefPlusOne() -{ /* we added just one char, handle it fast. - * assumes that screen cursor == real cursor */ - register Char c, mc; - - c = Cursor[-1] & CHAR; /* the char we just added */ - - if (c == '\t' || Cursor != LastChar) { - Refresh(); /* too hard to handle */ - return; - } - - if (rprompt_h != 0 && (TermH - CursorH - rprompt_h < 3)) { - Refresh(); /* clear out rprompt if less than one char gap*/ - return; - } /* else (only do at end of line, no TAB) */ - - if (Iscntrl(c)) { /* if control char, do caret */ -#ifndef _OSD_POSIX - mc = (c == '\177') ? '?' : (c | 0100); - PutPlusOne('^'); - PutPlusOne(mc); -#else /*_OSD_POSIX*/ - if (_toascii[c] == '\177' || Isupper(_toebcdic[_toascii[c]|0100]) - || strchr("@[\\]^_", _toebcdic[_toascii[c]|0100]) != NULL) - { - mc = (_toascii[c] == '\177') ? '?' : _toebcdic[_toascii[c]|0100]; - PutPlusOne('^'); - PutPlusOne(mc); - } - else - { - PutPlusOne('\\'); - PutPlusOne(((c >> 6) & 7) + '0'); - PutPlusOne(((c >> 3) & 7) + '0'); - PutPlusOne((c & 7) + '0'); - } -#endif /*_OSD_POSIX*/ - } - else if (Isprint(c)) { /* normal char */ - PutPlusOne(c); - } -#ifdef KANJI - else if (!adrof(STRnokanji)) { - PutPlusOne(c); - } -#endif - else { - PutPlusOne('\\'); - PutPlusOne(((c >> 6) & 7) + '0'); - PutPlusOne(((c >> 3) & 7) + '0'); - PutPlusOne((c & 7) + '0'); - } - flush(); -} - -/* clear the screen buffers so that new new prompt starts fresh. */ - -void -ClearDisp() -{ - register int i; - - CursorV = 0; /* clear the display buffer */ - CursorH = 0; - for (i = 0; i < TermV; i++) - (void) memset(Display[i], 0, TermH * sizeof(Display[0][0])); - OldvcV = 0; -} - -void -ClearLines() -{ /* Make sure all lines are *really* blank */ - register int i; - - if (T_CanCEOL) { - /* - * Clear the lines from the bottom up so that if we try moving - * the cursor down by writing the character that is at the end - * of the screen line, we won't rewrite a character that shouldn't - * be there. - */ - for (i = OldvcV; i >= 0; i--) { /* for each line on the screen */ - MoveToLine(i); - MoveToChar(0); - ClearEOL(TermH); - } - } - else { - MoveToLine(OldvcV); /* go to last line */ - (void) putraw('\r'); /* go to BOL */ - (void) putraw('\n'); /* go to new line */ - } -} diff --git a/contrib/tcsh/ed.screen.c b/contrib/tcsh/ed.screen.c deleted file mode 100644 index 2d4be8ad3a6c..000000000000 --- a/contrib/tcsh/ed.screen.c +++ /dev/null @@ -1,1706 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.screen.c,v 3.46 1999/02/06 15:18:56 christos Exp $ */ -/* - * ed.screen.c: Editor/termcap-curses interface - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: ed.screen.c,v 3.46 1999/02/06 15:18:56 christos Exp $") - -#include "ed.h" -#include "tc.h" -#include "ed.defns.h" - -#ifndef POSIX -/* - * We don't prototype these, cause some systems have them wrong! - */ -extern int tgetent __P(()); -extern char *tgetstr __P(()); -extern int tgetflag __P(()); -extern int tgetnum __P(()); -extern char *tgoto __P(()); -# define PUTPURE putpure -# define PUTRAW putraw -#else -extern int tgetent __P((char *, char *)); -extern char *tgetstr __P((char *, char **)); -extern int tgetflag __P((char *)); -extern int tgetnum __P((char *)); -extern char *tgoto __P((char *, int, int)); -extern void tputs __P((char *, int, void (*)(int))); -# define PUTPURE ((void (*)__P((int))) putpure) -# define PUTRAW ((void (*)__P((int))) putraw) -#endif - - -/* #define DEBUG_LITERAL */ - -/* - * IMPORTANT NOTE: these routines are allowed to look at the current screen - * and the current possition assuming that it is correct. If this is not - * true, then the update will be WRONG! This is (should be) a valid - * assumption... - */ - -#define TC_BUFSIZE 2048 - -#define GoodStr(a) (tstr[a].str != NULL && tstr[a].str[0] != '\0') -#define Str(a) tstr[a].str -#define Val(a) tval[a].val - -static struct { - char *b_name; - int b_rate; -} baud_rate[] = { - -#ifdef B0 - { "0", B0 }, -#endif -#ifdef B50 - { "50", B50 }, -#endif -#ifdef B75 - { "75", B75 }, -#endif -#ifdef B110 - { "110", B110 }, -#endif -#ifdef B134 - { "134", B134 }, -#endif -#ifdef B150 - { "150", B150 }, -#endif -#ifdef B200 - { "200", B200 }, -#endif -#ifdef B300 - { "300", B300 }, -#endif -#ifdef B600 - { "600", B600 }, -#endif -#ifdef B900 - { "900", B900 }, -#endif -#ifdef B1200 - { "1200", B1200 }, -#endif -#ifdef B1800 - { "1800", B1800 }, -#endif -#ifdef B2400 - { "2400", B2400 }, -#endif -#ifdef B3600 - { "3600", B3600 }, -#endif -#ifdef B4800 - { "4800", B4800 }, -#endif -#ifdef B7200 - { "7200", B7200 }, -#endif -#ifdef B9600 - { "9600", B9600 }, -#endif -#ifdef EXTA - { "19200", EXTA }, -#endif -#ifdef B19200 - { "19200", B19200 }, -#endif -#ifdef EXTB - { "38400", EXTB }, -#endif -#ifdef B38400 - { "38400", B38400 }, -#endif - { NULL, 0 } -}; - -#define T_al 0 -#define T_bl 1 -#define T_cd 2 -#define T_ce 3 -#define T_ch 4 -#define T_cl 5 -#define T_dc 6 -#define T_dl 7 -#define T_dm 8 -#define T_ed 9 -#define T_ei 10 -#define T_fs 11 -#define T_ho 12 -#define T_ic 13 -#define T_im 14 -#define T_ip 15 -#define T_kd 16 -#define T_kl 17 -#define T_kr 18 -#define T_ku 19 -#define T_md 20 -#define T_me 21 -#define T_nd 22 -#define T_se 23 -#define T_so 24 -#define T_ts 25 -#define T_up 26 -#define T_us 27 -#define T_ue 28 -#define T_vb 29 -#define T_DC 30 -#define T_DO 31 -#define T_IC 32 -#define T_LE 33 -#define T_RI 34 -#define T_UP 35 -#define T_str 36 -static struct termcapstr { - char *name; - char *long_name; - char *str; -} tstr[T_str + 1]; - - -#define T_am 0 -#define T_pt 1 -#define T_li 2 -#define T_co 3 -#define T_km 4 -#define T_xn 5 -#define T_val 6 -static struct termcapval { - char *name; - char *long_name; - int val; -} tval[T_val + 1]; - -void -terminit() -{ -#ifdef NLS_CATALOGS - int i; - - for (i = 0; i < T_str + 1; i++) - xfree((ptr_t) tstr[i].long_name); - - for (i = 0; i < T_val + 1; i++) - xfree((ptr_t) tval[i].long_name); -#endif - - tstr[T_al].name = "al"; - tstr[T_al].long_name = CSAVS(4, 1, "add new blank line"); - - tstr[T_bl].name = "bl"; - tstr[T_bl].long_name = CSAVS(4, 2, "audible bell"); - - tstr[T_cd].name = "cd"; - tstr[T_cd].long_name = CSAVS(4, 3, "clear to bottom"); - - tstr[T_ce].name = "ce"; - tstr[T_ce].long_name = CSAVS(4, 4, "clear to end of line"); - - tstr[T_ch].name = "ch"; - tstr[T_ch].long_name = CSAVS(4, 5, "cursor to horiz pos"); - - tstr[T_cl].name = "cl"; - tstr[T_cl].long_name = CSAVS(4, 6, "clear screen"); - - tstr[T_dc].name = "dc"; - tstr[T_dc].long_name = CSAVS(4, 7, "delete a character"); - - tstr[T_dl].name = "dl"; - tstr[T_dl].long_name = CSAVS(4, 8, "delete a line"); - - tstr[T_dm].name = "dm"; - tstr[T_dm].long_name = CSAVS(4, 9, "start delete mode"); - - tstr[T_ed].name = "ed"; - tstr[T_ed].long_name = CSAVS(4, 10, "end delete mode"); - - tstr[T_ei].name = "ei"; - tstr[T_ei].long_name = CSAVS(4, 11, "end insert mode"); - - tstr[T_fs].name = "fs"; - tstr[T_fs].long_name = CSAVS(4, 12, "cursor from status line"); - - tstr[T_ho].name = "ho"; - tstr[T_ho].long_name = CSAVS(4, 13, "home cursor"); - - tstr[T_ic].name = "ic"; - tstr[T_ic].long_name = CSAVS(4, 14, "insert character"); - - tstr[T_im].name = "im"; - tstr[T_im].long_name = CSAVS(4, 15, "start insert mode"); - - tstr[T_ip].name = "ip"; - tstr[T_ip].long_name = CSAVS(4, 16, "insert padding"); - - tstr[T_kd].name = "kd"; - tstr[T_kd].long_name = CSAVS(4, 17, "sends cursor down"); - - tstr[T_kl].name = "kl"; - tstr[T_kl].long_name = CSAVS(4, 18, "sends cursor left"); - - tstr[T_kr].name = "kr"; - tstr[T_kr].long_name = CSAVS(4, 19, "sends cursor right"); - - tstr[T_ku].name = "ku"; - tstr[T_ku].long_name = CSAVS(4, 20, "sends cursor up"); - - tstr[T_md].name = "md"; - tstr[T_md].long_name = CSAVS(4, 21, "begin bold"); - - tstr[T_me].name = "me"; - tstr[T_me].long_name = CSAVS(4, 22, "end attributes"); - - tstr[T_nd].name = "nd"; - tstr[T_nd].long_name = CSAVS(4, 23, "non destructive space"); - - tstr[T_se].name = "se"; - tstr[T_se].long_name = CSAVS(4, 24, "end standout"); - - tstr[T_so].name = "so"; - tstr[T_so].long_name = CSAVS(4, 25, "begin standout"); - - tstr[T_ts].name = "ts"; - tstr[T_ts].long_name = CSAVS(4, 26, "cursor to status line"); - - tstr[T_up].name = "up"; - tstr[T_up].long_name = CSAVS(4, 27, "cursor up one"); - - tstr[T_us].name = "us"; - tstr[T_us].long_name = CSAVS(4, 28, "begin underline"); - - tstr[T_ue].name = "ue"; - tstr[T_ue].long_name = CSAVS(4, 29, "end underline"); - - tstr[T_vb].name = "vb"; - tstr[T_vb].long_name = CSAVS(4, 30, "visible bell"); - - tstr[T_DC].name = "DC"; - tstr[T_DC].long_name = CSAVS(4, 31, "delete multiple chars"); - - tstr[T_DO].name = "DO"; - tstr[T_DO].long_name = CSAVS(4, 32, "cursor down multiple"); - - tstr[T_IC].name = "IC"; - tstr[T_IC].long_name = CSAVS(4, 33, "insert multiple chars"); - - tstr[T_LE].name = "LE"; - tstr[T_LE].long_name = CSAVS(4, 34, "cursor left multiple"); - - tstr[T_RI].name = "RI"; - tstr[T_RI].long_name = CSAVS(4, 35, "cursor right multiple"); - - tstr[T_UP].name = "UP"; - tstr[T_UP].long_name = CSAVS(4, 36, "cursor up multiple"); - - tstr[T_str].name = NULL; - tstr[T_str].long_name = NULL; - - - tval[T_am].name = "am"; - tval[T_am].long_name = CSAVS(4, 37, "Has automatic margins"); - - tval[T_pt].name = "pt"; - tval[T_pt].long_name = CSAVS(4, 38, "Can use physical tabs"); - - tval[T_li].name = "li"; - tval[T_li].long_name = CSAVS(4, 39, "Number of lines"); - - tval[T_co].name = "co"; - tval[T_co].long_name = CSAVS(4, 40, "Number of columns"); - - tval[T_km].name = "km"; - tval[T_km].long_name = CSAVS(4, 41, "Has meta key"); - - tval[T_xn].name = "xn"; - tval[T_xn].long_name = CSAVS(4, 42, "Newline ignored at right margin"); - - tval[T_val].name = NULL; - tval[T_val].long_name = NULL; -} - -/* - * A very useful table from justin@crim.ca (Justin Bur) :-) - * (Modified by per@erix.ericsson.se (Per Hedeland) - * - first (and second:-) case fixed) - * - * Description Termcap variables tcsh behavior - * am xn UseRightmost SendCRLF - * -------------- ------- ------- ------------ ------------ - * Automargins yes no yes no - * Magic Margins yes yes yes no - * No Wrap no -- yes yes - */ - -static bool me_all = 0; /* does two or more of the attributes use me */ - -static void ReBufferDisplay __P((void)); -static void TCalloc __P((struct termcapstr *, char *)); - - -static void -TCalloc(t, cap) - struct termcapstr *t; - char *cap; -{ - static char termcap_alloc[TC_BUFSIZE]; - char termbuf[TC_BUFSIZE]; - struct termcapstr *ts; - static int tloc = 0; - int tlen, clen; - - if (cap == NULL || *cap == '\0') { - t->str = NULL; - return; - } - else - clen = strlen(cap); - - if (t->str == NULL) - tlen = 0; - else - tlen = strlen(t->str); - - /* - * New string is shorter; no need to allocate space - */ - if (clen <= tlen) { - (void) strcpy(t->str, cap); - return; - } - - /* - * New string is longer; see if we have enough space to append - */ - if (tloc + 3 < TC_BUFSIZE) { - (void) strcpy(t->str = &termcap_alloc[tloc], cap); - tloc += clen + 1; /* one for \0 */ - return; - } - - /* - * Compact our buffer; no need to check compaction, cause we know it - * fits... - */ - tlen = 0; - for (ts = tstr; ts->name != NULL; ts++) - if (t != ts && ts->str != NULL && ts->str[0] != '\0') { - char *ptr; - - for (ptr = ts->str; *ptr != '\0'; termbuf[tlen++] = *ptr++) - continue; - termbuf[tlen++] = '\0'; - } - (void) memmove((ptr_t) termcap_alloc, (ptr_t) termbuf, (size_t) TC_BUFSIZE); - tloc = tlen; - if (tloc + 3 >= TC_BUFSIZE) { - stderror(ERR_NAME | ERR_TCNOSTR); - return; - } - (void) strcpy(t->str = &termcap_alloc[tloc], cap); - tloc += clen + 1; /* one for \0 */ - return; -} - - -/*ARGSUSED*/ -void -TellTC(what) - char *what; -{ - struct termcapstr *t; - - USE(what); - xprintf(CGETS(7, 1, "\n\tTcsh thinks your terminal has the\n")); - xprintf(CGETS(7, 2, "\tfollowing characteristics:\n\n")); - xprintf(CGETS(7, 3, "\tIt has %d columns and %d lines\n"), - Val(T_co), Val(T_li)); - xprintf(CGETS(7, 4, "\tIt has %s meta key\n"), T_HasMeta ? - CGETS(7, 5, "a") : CGETS(7, 6, "no")); - xprintf(CGETS(7, 7, "\tIt can%s use tabs\n"), T_Tabs ? - "" : CGETS(7, 8, " not")); - xprintf(CGETS(7, 9, "\tIt %s automatic margins\n"), - (T_Margin&MARGIN_AUTO)? - CGETS(7, 10, "has"): - CGETS(7, 11, "does not have")); - if (T_Margin & MARGIN_AUTO) - xprintf(CGETS(7, 12, "\tIt %s magic margins\n"), - (T_Margin & MARGIN_MAGIC) ? - CGETS(7, 10, "has"): - CGETS(7, 11, "does not have")); - - for (t = tstr; t->name != NULL; t++) - xprintf("\t%36s (%s) == %s\n", t->long_name, t->name, - t->str && *t->str ? t->str : CGETS(7, 13, "(empty)")); - xputchar('\n'); -} - - -static void -ReBufferDisplay() -{ - register int i; - Char **b; - Char **bufp; - - b = Display; - Display = NULL; - if (b != NULL) { - for (bufp = b; *bufp != NULL; bufp++) - xfree((ptr_t) * bufp); - xfree((ptr_t) b); - } - b = Vdisplay; - Vdisplay = NULL; - if (b != NULL) { - for (bufp = b; *bufp != NULL; bufp++) - xfree((ptr_t) * bufp); - xfree((ptr_t) b); - } - TermH = Val(T_co); - TermV = (INBUFSIZE * 4) / TermH + 1; - b = (Char **) xmalloc((size_t) (sizeof(Char *) * (TermV + 1))); - for (i = 0; i < TermV; i++) - b[i] = (Char *) xmalloc((size_t) (sizeof(Char) * (TermH + 1))); - b[TermV] = NULL; - Display = b; - b = (Char **) xmalloc((size_t) (sizeof(Char *) * (TermV + 1))); - for (i = 0; i < TermV; i++) - b[i] = (Char *) xmalloc((size_t) (sizeof(Char) * (TermH + 1))); - b[TermV] = NULL; - Vdisplay = b; -} - -void -SetTC(what, how) - char *what, *how; -{ - struct termcapstr *ts; - struct termcapval *tv; - - /* - * Do the strings first - */ - setname("settc"); - for (ts = tstr; ts->name != NULL; ts++) - if (strcmp(ts->name, what) == 0) - break; - if (ts->name != NULL) { - TCalloc(ts, how); - /* - * Reset variables - */ - if (GoodStr(T_me) && GoodStr(T_ue)) - me_all = (strcmp(Str(T_me), Str(T_ue)) == 0); - else - me_all = 0; - if (GoodStr(T_me) && GoodStr(T_se)) - me_all |= (strcmp(Str(T_me), Str(T_se)) == 0); - - T_CanCEOL = GoodStr(T_ce); - T_CanDel = GoodStr(T_dc) || GoodStr(T_DC); - T_CanIns = GoodStr(T_im) || GoodStr(T_ic) || GoodStr(T_IC); - T_CanUP = GoodStr(T_up) || GoodStr(T_UP); - return; - } - - /* - * Do the numeric ones second - */ - for (tv = tval; tv->name != NULL; tv++) - if (strcmp(tv->name, what) == 0) - break; - - if (tv->name != NULL) { - if (tv == &tval[T_pt] || tv == &tval[T_km] || - tv == &tval[T_am] || tv == &tval[T_xn]) { - if (strcmp(how, "yes") == 0) - tv->val = 1; - else if (strcmp(how, "no") == 0) - tv->val = 0; - else { - stderror(ERR_SETTCUS, tv->name); - return; - } - T_Tabs = (Char) Val(T_pt); - T_HasMeta = (Char) Val(T_km); - T_Margin = (Char) Val(T_am) ? MARGIN_AUTO : 0; - T_Margin |= (Char) Val(T_xn) ? MARGIN_MAGIC : 0; - if (tv == &tval[T_am] || tv == &tval[T_xn]) - ChangeSize(Val(T_li), Val(T_co)); - return; - } - else { - tv->val = atoi(how); - T_Cols = (Char) Val(T_co); - T_Lines = (Char) Val(T_li); - if (tv == &tval[T_co] || tv == &tval[T_li]) - ChangeSize(Val(T_li), Val(T_co)); - return; - } - } - stderror(ERR_NAME | ERR_TCCAP, what); - return; -} - - -/* - * Print the termcap string out with variable substitution - */ -void -EchoTC(v) - Char **v; -{ - char *cap, *scap, cv[BUFSIZE]; - int arg_need, arg_cols, arg_rows; - int verbose = 0, silent = 0; - char *area; - static char *fmts = "%s\n", *fmtd = "%d\n"; - struct termcapstr *t; - char buf[TC_BUFSIZE]; - - area = buf; - - setname("echotc"); - - tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else - v = gargv = saveblk(v); - trim(v); - - if (!*v || *v[0] == '\0') - return; - if (v[0][0] == '-') { - switch (v[0][1]) { - case 'v': - verbose = 1; - break; - case 's': - silent = 1; - break; - default: - stderror(ERR_NAME | ERR_TCUSAGE); - break; - } - v++; - } - if (!*v || *v[0] == '\0') - return; - (void) strcpy(cv, short2str(*v)); - if (strcmp(cv, "tabs") == 0) { - xprintf(fmts, T_Tabs ? CGETS(7, 14, "yes") : - CGETS(7, 15, "no")); - flush(); - return; - } - else if (strcmp(cv, "meta") == 0) { - xprintf(fmts, Val(T_km) ? CGETS(7, 14, "yes") : - CGETS(7, 15, "no")); - flush(); - return; - } - else if (strcmp(cv, "xn") == 0) { - xprintf(fmts, T_Margin & MARGIN_MAGIC ? CGETS(7, 14, "yes") : - CGETS(7, 15, "no")); - flush(); - return; - } - else if (strcmp(cv, "am") == 0) { - xprintf(fmts, T_Margin & MARGIN_AUTO ? CGETS(7, 14, "yes") : - CGETS(7, 15, "no")); - flush(); - return; - } - else if (strcmp(cv, "baud") == 0) { - int i; - - for (i = 0; baud_rate[i].b_name != NULL; i++) - if (T_Speed == baud_rate[i].b_rate) { - xprintf(fmts, baud_rate[i].b_name); - flush(); - return; - } - xprintf(fmtd, 0); - flush(); - return; - } - else if (strcmp(cv, "rows") == 0 || strcmp(cv, "lines") == 0) { - xprintf(fmtd, Val(T_li)); - flush(); - return; - } - else if (strcmp(cv, "cols") == 0) { - xprintf(fmtd, Val(T_co)); - flush(); - return; - } - - /* - * Try to use our local definition first - */ - scap = NULL; - for (t = tstr; t->name != NULL; t++) - if (strcmp(t->name, cv) == 0) { - scap = t->str; - break; - } - if (t->name == NULL) - scap = tgetstr(cv, &area); - if (!scap || scap[0] == '\0') { - if (tgetflag(cv)) { - xprintf(CGETS(7, 14, "yes\n")); - return; - } - if (silent) - return; - else - stderror(ERR_NAME | ERR_TCCAP, cv); - } - - /* - * Count home many values we need for this capability. - */ - for (cap = scap, arg_need = 0; *cap; cap++) - if (*cap == '%') - switch (*++cap) { - case 'd': - case '2': - case '3': - case '.': - case '+': - arg_need++; - break; - case '%': - case '>': - case 'i': - case 'r': - case 'n': - case 'B': - case 'D': - break; - default: - /* - * hpux has lot's of them... - */ - if (verbose) - stderror(ERR_NAME | ERR_TCPARM, *cap); - /* This is bad, but I won't complain */ - break; - } - - switch (arg_need) { - case 0: - v++; - if (*v && *v[0]) { - if (silent) - return; - else - stderror(ERR_NAME | ERR_TCARGS, cv, arg_need); - } - (void) tputs(scap, 1, PUTRAW); - break; - case 1: - v++; - if (!*v || *v[0] == '\0') - stderror(ERR_NAME | ERR_TCNARGS, cv, 1); - arg_cols = 0; - arg_rows = atoi(short2str(*v)); - v++; - if (*v && *v[0]) { - if (silent) - return; - else - stderror(ERR_NAME | ERR_TCARGS, cv, arg_need); - } - (void) tputs(tgoto(scap, arg_cols, arg_rows), 1, PUTRAW); - break; - default: - /* This is wrong, but I will ignore it... */ - if (verbose) - stderror(ERR_NAME | ERR_TCARGS, cv, arg_need); - /*FALLTHROUGH*/ - case 2: - v++; - if (!*v || *v[0] == '\0') { - if (silent) - return; - else - stderror(ERR_NAME | ERR_TCNARGS, cv, 2); - } - arg_cols = atoi(short2str(*v)); - v++; - if (!*v || *v[0] == '\0') { - if (silent) - return; - else - stderror(ERR_NAME | ERR_TCNARGS, cv, 2); - } - arg_rows = atoi(short2str(*v)); - v++; - if (*v && *v[0]) { - if (silent) - return; - else - stderror(ERR_NAME | ERR_TCARGS, cv, arg_need); - } - (void) tputs(tgoto(scap, arg_cols, arg_rows), arg_rows, PUTRAW); - break; - } - flush(); - if (gargv) { - blkfree(gargv); - gargv = 0; - } -} - -bool GotTermCaps = 0; - -static struct { - Char *name; - int key; - XmapVal fun; - int type; -} arrow[] = { -#define A_K_DN 0 - { STRdown, T_kd }, -#define A_K_UP 1 - { STRup, T_ku }, -#define A_K_LT 2 - { STRleft, T_kl }, -#define A_K_RT 3 - { STRright, T_kr } -}; - - -void -ResetArrowKeys() -{ - arrow[A_K_DN].fun.cmd = F_DOWN_HIST; - arrow[A_K_DN].type = XK_CMD; - - arrow[A_K_UP].fun.cmd = F_UP_HIST; - arrow[A_K_UP].type = XK_CMD; - - arrow[A_K_LT].fun.cmd = F_CHARBACK; - arrow[A_K_LT].type = XK_CMD; - - arrow[A_K_RT].fun.cmd = F_CHARFWD; - arrow[A_K_RT].type = XK_CMD; - -} - -void -DefaultArrowKeys() -{ - static Char strA[] = {033, '[', 'A', '\0'}; - static Char strB[] = {033, '[', 'B', '\0'}; - static Char strC[] = {033, '[', 'C', '\0'}; - static Char strD[] = {033, '[', 'D', '\0'}; - static Char stOA[] = {033, 'O', 'A', '\0'}; - static Char stOB[] = {033, 'O', 'B', '\0'}; - static Char stOC[] = {033, 'O', 'C', '\0'}; - static Char stOD[] = {033, 'O', 'D', '\0'}; - - CStr cs; -#ifdef _OSD_POSIX - if (strA[0] == 033) - { - strA[0] = CTL_ESC('\033'); - strB[0] = CTL_ESC('\033'); - strC[0] = CTL_ESC('\033'); - strD[0] = CTL_ESC('\033'); - stOA[0] = CTL_ESC('\033'); - stOB[0] = CTL_ESC('\033'); - stOC[0] = CTL_ESC('\033'); - stOD[0] = CTL_ESC('\033'); - } -#endif - - cs.len = 3; - - cs.buf = strA; AddXkey(&cs, &arrow[A_K_UP].fun, arrow[A_K_UP].type); - cs.buf = strB; AddXkey(&cs, &arrow[A_K_DN].fun, arrow[A_K_DN].type); - cs.buf = strC; AddXkey(&cs, &arrow[A_K_RT].fun, arrow[A_K_RT].type); - cs.buf = strD; AddXkey(&cs, &arrow[A_K_LT].fun, arrow[A_K_LT].type); - cs.buf = stOA; AddXkey(&cs, &arrow[A_K_UP].fun, arrow[A_K_UP].type); - cs.buf = stOB; AddXkey(&cs, &arrow[A_K_DN].fun, arrow[A_K_DN].type); - cs.buf = stOC; AddXkey(&cs, &arrow[A_K_RT].fun, arrow[A_K_RT].type); - cs.buf = stOD; AddXkey(&cs, &arrow[A_K_LT].fun, arrow[A_K_LT].type); - - if (VImode) { - cs.len = 2; - cs.buf = &strA[1]; AddXkey(&cs, &arrow[A_K_UP].fun, arrow[A_K_UP].type); - cs.buf = &strB[1]; AddXkey(&cs, &arrow[A_K_DN].fun, arrow[A_K_DN].type); - cs.buf = &strC[1]; AddXkey(&cs, &arrow[A_K_RT].fun, arrow[A_K_RT].type); - cs.buf = &strD[1]; AddXkey(&cs, &arrow[A_K_LT].fun, arrow[A_K_LT].type); - cs.buf = &stOA[1]; AddXkey(&cs, &arrow[A_K_UP].fun, arrow[A_K_UP].type); - cs.buf = &stOB[1]; AddXkey(&cs, &arrow[A_K_DN].fun, arrow[A_K_DN].type); - cs.buf = &stOC[1]; AddXkey(&cs, &arrow[A_K_RT].fun, arrow[A_K_RT].type); - cs.buf = &stOD[1]; AddXkey(&cs, &arrow[A_K_LT].fun, arrow[A_K_LT].type); - } -} - - -int -SetArrowKeys(name, fun, type) - CStr *name; - XmapVal *fun; - int type; -{ - int i; - for (i = 0; i < 4; i++) - if (Strcmp(name->buf, arrow[i].name) == 0) { - arrow[i].fun = *fun; - arrow[i].type = type; - return 0; - } - return -1; -} - -int -IsArrowKey(name) - Char *name; -{ - int i; - for (i = 0; i < 4; i++) - if (Strcmp(name, arrow[i].name) == 0) - return 1; - return 0; -} - -int -ClearArrowKeys(name) - CStr *name; -{ - int i; - for (i = 0; i < 4; i++) - if (Strcmp(name->buf, arrow[i].name) == 0) { - arrow[i].type = XK_NOD; - return 0; - } - return -1; -} - -void -PrintArrowKeys(name) - CStr *name; -{ - int i; - - for (i = 0; i < 4; i++) - if (name->len == 0 || Strcmp(name->buf, arrow[i].name) == 0) - if (arrow[i].type != XK_NOD) { - CStr cs; - cs.buf = arrow[i].name; - cs.len = Strlen(cs.buf); - (void) printOne(&cs, &arrow[i].fun, arrow[i].type); - } -} - - -void -BindArrowKeys() -{ - KEYCMD *map, *dmap; - int i, j; - char *p; - CStr cs; - - if (!GotTermCaps) - return; - map = VImode ? CcAltMap : CcKeyMap; - dmap = VImode ? CcViCmdMap : CcEmacsMap; - - DefaultArrowKeys(); - - for (i = 0; i < 4; i++) { - p = tstr[arrow[i].key].str; - if (p && *p) { - j = (unsigned char) *p; - cs.buf = str2short(p); - cs.len = Strlen(cs.buf); - /* - * Assign the arrow keys only if: - * - * 1. They are multi-character arrow keys and the user - * has not re-assigned the leading character, or - * has re-assigned the leading character to be F_XKEY - * 2. They are single arrow keys pointing to an unassigned key. - */ - if (arrow[i].type == XK_NOD) { - ClearXkey(map, &cs); - } - else { - if (p[1] && (dmap[j] == map[j] || map[j] == F_XKEY)) { - AddXkey(&cs, &arrow[i].fun, arrow[i].type); - map[j] = F_XKEY; - } - else if (map[j] == F_UNASSIGNED) { - ClearXkey(map, &cs); - if (arrow[i].type == XK_CMD) - map[j] = arrow[i].fun.cmd; - else - AddXkey(&cs, &arrow[i].fun, arrow[i].type); - } - } - } - } -} - -static Char cur_atr = 0; /* current attributes */ - -void -SetAttributes(atr) - int atr; -{ - atr &= ATTRIBUTES; - if (atr != cur_atr) { - if (me_all && GoodStr(T_me)) { - if (((cur_atr & BOLD) && !(atr & BOLD)) || - ((cur_atr & UNDER) && !(atr & UNDER)) || - ((cur_atr & STANDOUT) && !(atr & STANDOUT))) { - (void) tputs(Str(T_me), 1, PUTPURE); - cur_atr = 0; - } - } - if ((atr & BOLD) != (cur_atr & BOLD)) { - if (atr & BOLD) { - if (GoodStr(T_md) && GoodStr(T_me)) { - (void) tputs(Str(T_md), 1, PUTPURE); - cur_atr |= BOLD; - } - } - else { - if (GoodStr(T_md) && GoodStr(T_me)) { - (void) tputs(Str(T_me), 1, PUTPURE); - if ((cur_atr & STANDOUT) && GoodStr(T_se)) { - (void) tputs(Str(T_se), 1, PUTPURE); - cur_atr &= ~STANDOUT; - } - if ((cur_atr & UNDER) && GoodStr(T_ue)) { - (void) tputs(Str(T_ue), 1, PUTPURE); - cur_atr &= ~UNDER; - } - cur_atr &= ~BOLD; - } - } - } - if ((atr & STANDOUT) != (cur_atr & STANDOUT)) { - if (atr & STANDOUT) { - if (GoodStr(T_so) && GoodStr(T_se)) { - (void) tputs(Str(T_so), 1, PUTPURE); - cur_atr |= STANDOUT; - } - } - else { - if (GoodStr(T_se)) { - (void) tputs(Str(T_se), 1, PUTPURE); - cur_atr &= ~STANDOUT; - } - } - } - if ((atr & UNDER) != (cur_atr & UNDER)) { - if (atr & UNDER) { - if (GoodStr(T_us) && GoodStr(T_ue)) { - (void) tputs(Str(T_us), 1, PUTPURE); - cur_atr |= UNDER; - } - } - else { - if (GoodStr(T_ue)) { - (void) tputs(Str(T_ue), 1, PUTPURE); - cur_atr &= ~UNDER; - } - } - } - } -} - -/* PWP 6-27-88 -- if the tty driver thinks that we can tab, we ask termcap */ -int -CanWeTab() -{ - return (Val(T_pt)); -} - -void -MoveToLine(where) /* move to line <where> (first line == 0) */ - int where; /* as efficiently as possible; */ -{ - int del; - - if (where == CursorV) - return; - - if (where > TermV) { -#ifdef DEBUG_SCREEN - xprintf("MoveToLine: where is ridiculous: %d\r\n", where); - flush(); -#endif /* DEBUG_SCREEN */ - return; - } - - del = where - CursorV; - -#ifndef WINNT - if (del > 0) { - while (del > 0) { - if ((T_Margin & MARGIN_AUTO) && Display[CursorV][0] != '\0') { - /* move without newline */ - MoveToChar(TermH - 1); - so_write(&Display[CursorV][CursorH], 1); /* updates CursorH/V*/ - del--; - } - else { - if ((del > 1) && GoodStr(T_DO)) { - (void) tputs(tgoto(Str(T_DO), del, del), del, PUTPURE); - del = 0; - } - else { - for ( ; del > 0; del--) - (void) putraw('\n'); - CursorH = 0; /* because the \n will become \r\n */ - } - } - } - } - else { /* del < 0 */ - if (GoodStr(T_UP) && (-del > 1 || !GoodStr(T_up))) - (void) tputs(tgoto(Str(T_UP), -del, -del), -del, PUTPURE); - else { - int i; - if (GoodStr(T_up)) - for (i = 0; i < -del; i++) - (void) tputs(Str(T_up), 1, PUTPURE); - } - } -#else /* WINNT */ - NT_MoveToLineOrChar(del, 1); -#endif /* !WINNT */ - CursorV = where; /* now where is here */ -} - -void -MoveToChar(where) /* move to character position (where) */ - int where; -{ /* as efficiently as possible */ -#ifndef WINNT - int del; - -mc_again: -#endif /* WINNT */ - if (where == CursorH) - return; - - if (where >= TermH) { -#ifdef DEBUG_SCREEN - xprintf("MoveToChar: where is riduculous: %d\r\n", where); - flush(); -#endif /* DEBUG_SCREEN */ - return; - } - - if (!where) { /* if where is first column */ - (void) putraw('\r'); /* do a CR */ - CursorH = 0; - return; - } - -#ifndef WINNT - del = where - CursorH; - - if ((del < -4 || del > 4) && GoodStr(T_ch)) - /* go there directly */ - (void) tputs(tgoto(Str(T_ch), where, where), where, PUTPURE); - else { - int i; - if (del > 0) { /* moving forward */ - if ((del > 4) && GoodStr(T_RI)) - (void) tputs(tgoto(Str(T_RI), del, del), del, PUTPURE); - else { - if (T_Tabs) { /* if I can do tabs, use them */ - if ((CursorH & 0370) != (where & 0370)) { - /* if not within tab stop */ - for (i = (CursorH & 0370); i < (where & 0370); i += 8) - (void) putraw('\t'); /* then tab over */ - CursorH = where & 0370; - /* Note: considering that we often want to go to - TermH - 1 for the wrapping, it would be nice to - optimize this case by tabbing to the last column - - but this doesn't work for all terminals! */ - } - } - /* it's usually cheaper to just write the chars, so we do. */ - - /* NOTE THAT so_write() WILL CHANGE CursorH!!! */ - so_write(&Display[CursorV][CursorH], where - CursorH); - - } - } - else { /* del < 0 := moving backward */ - if ((-del > 4) && GoodStr(T_LE)) - (void) tputs(tgoto(Str(T_LE), -del, -del), -del, PUTPURE); - else { /* can't go directly there */ - /* if the "cost" is greater than the "cost" from col 0 */ - if (T_Tabs ? (-del > ((where >> 3) + (where & 07))) - : (-del > where)) { - (void) putraw('\r'); /* do a CR */ - CursorH = 0; - goto mc_again; /* and try again */ - } - for (i = 0; i < -del; i++) - (void) putraw('\b'); - } - } - } -#else /* WINNT */ - NT_MoveToLineOrChar(where, 0); -#endif /* !WINNT */ - CursorH = where; /* now where is here */ -} - -void -so_write(cp, n) - register Char *cp; - register int n; -{ - if (n <= 0) - return; /* catch bugs */ - - if (n > TermH) { -#ifdef DEBUG_SCREEN - xprintf("so_write: n is riduculous: %d\r\n", n); - flush(); -#endif /* DEBUG_SCREEN */ - return; - } - - do { - if (*cp & LITERAL) { - extern Char *litptr[]; - Char *d; - -#ifdef DEBUG_LITERAL - xprintf("so: litnum %d, litptr %x\r\n", - *cp & CHAR, litptr[*cp & CHAR]); -#endif /* DEBUG_LITERAL */ -#if defined(WINNT) && !defined(COLOR_LS_F) - { - char buf[256], *ptr = &buf[0]; - for (d = litptr[*cp++ & CHAR]; *d & LITERAL; d++) - *ptr++ = (*d & CHAR); - flush(); - set_cons_attr(buf); - } -#else /* !WINNT || COLOR_LS_F */ - for (d = litptr[*cp++ & CHAR]; *d & LITERAL; d++) - (void) putraw(*d & CHAR); -#endif /* WINNT && !COLOR_LS_F */ - (void) putraw(*d); - - } - else - (void) putraw(*cp++); - CursorH++; - } while (--n); - - if (CursorH >= TermH) { /* wrap? */ - if (T_Margin & MARGIN_AUTO) { /* yes */ - CursorH = 0; - CursorV++; - if (T_Margin & MARGIN_MAGIC) { - /* force the wrap to avoid the "magic" situation */ - Char c; - if ((c = Display[CursorV][CursorH]) != '\0') - so_write(&c, 1); - else - (void) putraw(' '); - CursorH = 1; - } - } - else /* no wrap, but cursor stays on screen */ - CursorH = TermH - 1; - } -} - - -void -DeleteChars(num) /* deletes <num> characters */ - int num; -{ - if (num <= 0) - return; - - if (!T_CanDel) { -#ifdef DEBUG_EDIT - xprintf(CGETS(7, 16, "ERROR: cannot delete\r\n")); -#endif /* DEBUG_EDIT */ - flush(); - return; - } - - if (num > TermH) { -#ifdef DEBUG_SCREEN - xprintf(CGETS(7, 17, "DeleteChars: num is riduculous: %d\r\n"), num); - flush(); -#endif /* DEBUG_SCREEN */ - return; - } - - if (GoodStr(T_DC)) /* if I have multiple delete */ - if ((num > 1) || !GoodStr(T_dc)) { /* if dc would be more expen. */ - (void) tputs(tgoto(Str(T_DC), num, num), num, PUTPURE); - return; - } - - if (GoodStr(T_dm)) /* if I have delete mode */ - (void) tputs(Str(T_dm), 1, PUTPURE); - - if (GoodStr(T_dc)) /* else do one at a time */ - while (num--) - (void) tputs(Str(T_dc), 1, PUTPURE); - - if (GoodStr(T_ed)) /* if I have delete mode */ - (void) tputs(Str(T_ed), 1, PUTPURE); -} - -void -Insert_write(cp, num) /* Puts terminal in insert character mode, */ - register Char *cp; - register int num; /* or inserts num characters in the line */ -{ - if (num <= 0) - return; - if (!T_CanIns) { -#ifdef DEBUG_EDIT - xprintf(CGETS(7, 18, "ERROR: cannot insert\r\n")); -#endif /* DEBUG_EDIT */ - flush(); - return; - } - - if (num > TermH) { -#ifdef DEBUG_SCREEN - xprintf(CGETS(7, 19, "StartInsert: num is riduculous: %d\r\n"), num); - flush(); -#endif /* DEBUG_SCREEN */ - return; - } - - if (GoodStr(T_IC)) /* if I have multiple insert */ - if ((num > 1) || !GoodStr(T_ic)) { /* if ic would be more expen. */ - (void) tputs(tgoto(Str(T_IC), num, num), num, PUTPURE); - so_write(cp, num); /* this updates CursorH/V */ - return; - } - - if (GoodStr(T_im) && GoodStr(T_ei)) { /* if I have insert mode */ - (void) tputs(Str(T_im), 1, PUTPURE); - - CursorH += num; - do - (void) putraw(*cp++); - while (--num); - - if (GoodStr(T_ip)) /* have to make num chars insert */ - (void) tputs(Str(T_ip), 1, PUTPURE); - - (void) tputs(Str(T_ei), 1, PUTPURE); - return; - } - - do { - if (GoodStr(T_ic)) /* have to make num chars insert */ - (void) tputs(Str(T_ic), 1, PUTPURE); /* insert a char */ - - (void) putraw(*cp++); - - CursorH++; - - if (GoodStr(T_ip)) /* have to make num chars insert */ - (void) tputs(Str(T_ip), 1, PUTPURE);/* pad the inserted char */ - - } while (--num); - -} - -void -ClearEOL(num) /* clear to end of line. There are num */ - int num; /* characters to clear */ -{ - register int i; - - if (num <= 0) - return; - - if (T_CanCEOL && GoodStr(T_ce)) - (void) tputs(Str(T_ce), 1, PUTPURE); - else { - for (i = 0; i < num; i++) - (void) putraw(' '); - CursorH += num; /* have written num spaces */ - } -} - -void -ClearScreen() -{ /* clear the whole screen and home */ - if (GoodStr(T_cl)) - /* send the clear screen code */ - (void) tputs(Str(T_cl), Val(T_li), PUTPURE); - else if (GoodStr(T_ho) && GoodStr(T_cd)) { - (void) tputs(Str(T_ho), Val(T_li), PUTPURE); /* home */ - /* clear to bottom of screen */ - (void) tputs(Str(T_cd), Val(T_li), PUTPURE); - } - else { - (void) putraw('\r'); - (void) putraw('\n'); - } -} - -void -SoundBeep() -{ /* produce a sound */ - beep_cmd (); - if (adrof(STRnobeep)) - return; - - if (GoodStr(T_vb) && adrof(STRvisiblebell)) - (void) tputs(Str(T_vb), 1, PUTPURE); /* visible bell */ - else if (GoodStr(T_bl)) - /* what termcap says we should use */ - (void) tputs(Str(T_bl), 1, PUTPURE); - else -#ifndef WINNT - (void) putraw(CTL_ESC('\007')); /* an ASCII bell; ^G */ -#else /* WINNT */ - MessageBeep(MB_ICONQUESTION); -#endif /* !WINNT */ -} - -void -ClearToBottom() -{ /* clear to the bottom of the screen */ - if (GoodStr(T_cd)) - (void) tputs(Str(T_cd), Val(T_li), PUTPURE); - else if (GoodStr(T_ce)) - (void) tputs(Str(T_ce), Val(T_li), PUTPURE); -} - -void -GetTermCaps() -{ /* read in the needed terminal capabilites */ - register int i; - char *ptr; - char buf[TC_BUFSIZE]; - static char bp[TC_BUFSIZE]; - char *area; - struct termcapstr *t; - - -#ifdef SIG_WINDOW -# ifdef BSDSIGS - sigmask_t omask; -# endif /* BSDSIGS */ - int lins, cols; - - /* don't want to confuse things here */ -# ifdef BSDSIGS - omask = sigblock(sigmask(SIG_WINDOW)) & ~sigmask(SIG_WINDOW); -# else /* BSDSIGS */ - (void) sighold(SIG_WINDOW); -# endif /* BSDSIGS */ -#endif /* SIG_WINDOW */ - area = buf; - - GotTermCaps = 1; - - setname("gettermcaps"); - ptr = getenv("TERM"); - -#ifdef apollo - /* - * If we are on a pad, we pretend that we are dumb. Otherwise the termcap - * library will put us in a weird screen mode, thinking that we are going - * to use curses - */ - if (isapad()) - ptr = "dumb"; -#endif /* apollo */ - - if (!ptr || !ptr[0] || !strcmp(ptr, "wm") || !strcmp(ptr,"dmx")) - ptr = "dumb"; - - setzero(bp, TC_BUFSIZE); - - i = tgetent(bp, ptr); - if (i <= 0) { - if (i == -1) { -#if (SYSVREL == 0) || defined(IRIS3D) - xprintf(CGETS(7, 20, "%s: Cannot open /etc/termcap.\n"), progname); - } - else if (i == 0) { -#endif /* SYSVREL */ - xprintf(CGETS(7, 21, - "%s: No entry for terminal type \"%s\"\n"), progname, - getenv("TERM")); - } - xprintf(CGETS(7, 22, "%s: using dumb terminal settings.\n"), progname); - Val(T_co) = 80; /* do a dumb terminal */ - Val(T_pt) = Val(T_km) = Val(T_li) = 0; - for (t = tstr; t->name != NULL; t++) - TCalloc(t, NULL); - } - else { - /* Can we tab */ - Val(T_pt) = tgetflag("pt") && !tgetflag("xt"); - /* do we have a meta? */ - Val(T_km) = (tgetflag("km") || tgetflag("MT")); - Val(T_am) = tgetflag("am"); - Val(T_xn) = tgetflag("xn"); - Val(T_co) = tgetnum("co"); - Val(T_li) = tgetnum("li"); - for (t = tstr; t->name != NULL; t++) - TCalloc(t, tgetstr(t->name, &area)); - } - if (Val(T_co) < 2) - Val(T_co) = 80; /* just in case */ - if (Val(T_li) < 1) - Val(T_li) = 24; - - T_Cols = (Char) Val(T_co); - T_Lines = (Char) Val(T_li); - if (T_Tabs) - T_Tabs = (Char) Val(T_pt); - T_HasMeta = (Char) Val(T_km); - T_Margin = (Char) Val(T_am) ? MARGIN_AUTO : 0; - T_Margin |= (Char) Val(T_xn) ? MARGIN_MAGIC : 0; - T_CanCEOL = GoodStr(T_ce); - T_CanDel = GoodStr(T_dc) || GoodStr(T_DC); - T_CanIns = GoodStr(T_im) || GoodStr(T_ic) || GoodStr(T_IC); - T_CanUP = GoodStr(T_up) || GoodStr(T_UP); - if (GoodStr(T_me) && GoodStr(T_ue)) - me_all = (strcmp(Str(T_me), Str(T_ue)) == 0); - else - me_all = 0; - if (GoodStr(T_me) && GoodStr(T_se)) - me_all |= (strcmp(Str(T_me), Str(T_se)) == 0); - - -#ifdef DEBUG_SCREEN - if (!T_CanUP) { - xprintf(CGETS(7, 23, "%s: WARNING: Your terminal cannot move up.\n", - progname)); - xprintf(CGETS(7, 24, "Editing may be odd for long lines.\n")); - } - if (!T_CanCEOL) - xprintf(CGETS(7, 25, "no clear EOL capability.\n")); - if (!T_CanDel) - xprintf(CGETS(7, 26, "no delete char capability.\n")); - if (!T_CanIns) - xprintf(CGETS(7, 27, "no insert char capability.\n")); -#endif /* DEBUG_SCREEN */ - - - -#ifdef SIG_WINDOW - (void) GetSize(&lins, &cols); /* get the correct window size */ - ChangeSize(lins, cols); - -# ifdef BSDSIGS - (void) sigsetmask(omask); /* can change it again */ -# else /* BSDSIGS */ - (void) sigrelse(SIG_WINDOW); -# endif /* BSDSIGS */ -#else /* SIG_WINDOW */ - ChangeSize(Val(T_li), Val(T_co)); -#endif /* SIG_WINDOW */ - - BindArrowKeys(); -} - -#ifdef SIG_WINDOW -/* GetSize(): - * Return the new window size in lines and cols, and - * true if the size was changed. This can fail if SHIN - * is not a tty, but it will work in most cases. - */ -int -GetSize(lins, cols) - int *lins, *cols; -{ - *cols = Val(T_co); - *lins = Val(T_li); - -#ifdef TIOCGWINSZ -# define KNOWsize -# ifndef lint - { - struct winsize ws; /* from 4.3 */ - - if (ioctl(SHIN, TIOCGWINSZ, (ioctl_t) &ws) != -1) { - if (ws.ws_col) - *cols = ws.ws_col; - if (ws.ws_row) - *lins = ws.ws_row; - } - } -# endif /* !lint */ -#else /* TIOCGWINSZ */ -# ifdef TIOCGSIZE -# define KNOWsize - { - struct ttysize ts; /* from Sun */ - - if (ioctl(SHIN, TIOCGSIZE, (ioctl_t) &ts) != -1) { - if (ts.ts_cols) - *cols = ts.ts_cols; - if (ts.ts_lines) - *lins = ts.ts_lines; - } - } -# endif /* TIOCGSIZE */ -#endif /* TIOCGWINSZ */ - - return (Val(T_co) != *cols || Val(T_li) != *lins); -} - -#endif /* SIGWINDOW */ - -void -ChangeSize(lins, cols) - int lins, cols; -{ - /* - * Just in case - */ - Val(T_co) = (cols < 2) ? 80 : cols; - Val(T_li) = (lins < 1) ? 24 : lins; - -#ifdef WINNT - nt_set_size(lins,cols); -#endif /* WINNT */ -#ifdef KNOWsize - /* - * We want to affect the environment only when we have a valid - * setup, not when we get bad settings. Consider the following scenario: - * We just logged in, and we have not initialized the editor yet. - * We reset termcap with tset, and not $TERMCAP has the right - * terminal size. But since the editor is not initialized yet, and - * the kernel's notion of the terminal size might be wrong we arrive - * here with lines = columns = 0. If we reset the environment we lose - * our only chance to get the window size right. - */ - if (Val(T_co) == cols && Val(T_li) == lins) { - Char buf[10]; - char *tptr; - - if (getenv("COLUMNS")) { - (void) Itoa(Val(T_co), buf, 0, 0); - tsetenv(STRCOLUMNS, buf); - } - - if (getenv("LINES")) { - (void) Itoa(Val(T_li), buf, 0, 0); - tsetenv(STRLINES, buf); - } - - if ((tptr = getenv("TERMCAP")) != NULL) { - /* Leave 64 characters slop in case we enlarge the termcap string */ - Char termcap[1024+64], backup[1024+64], *ptr; - int i; - - ptr = str2short(tptr); - (void) Strncpy(termcap, ptr, 1024); - termcap[1023] = '\0'; - - /* update termcap string; first do columns */ - buf[0] = 'c'; - buf[1] = 'o'; - buf[2] = '#'; - buf[3] = '\0'; - if ((ptr = Strstr(termcap, buf)) == NULL) { - (void) Strcpy(backup, termcap); - } - else { - i = (int) (ptr - termcap + Strlen(buf)); - (void) Strncpy(backup, termcap, (size_t) i); - backup[i] = '\0'; - (void) Itoa(Val(T_co), buf, 0, 0); - (void) Strcat(backup + i, buf); - ptr = Strchr(ptr, ':'); - (void) Strcat(backup, ptr); - } - - /* now do lines */ - buf[0] = 'l'; - buf[1] = 'i'; - buf[2] = '#'; - buf[3] = '\0'; - if ((ptr = Strstr(backup, buf)) == NULL) { - (void) Strcpy(termcap, backup); - } - else { - i = (int) (ptr - backup + Strlen(buf)); - (void) Strncpy(termcap, backup, (size_t) i); - termcap[i] = '\0'; - (void) Itoa(Val(T_li), buf, 0, 0); - (void) Strcat(termcap, buf); - ptr = Strchr(ptr, ':'); - (void) Strcat(termcap, ptr); - } - /* - * Chop the termcap string at 1024 characters to avoid core-dumps - * in the termcap routines - */ - termcap[1023] = '\0'; - tsetenv(STRTERMCAP, termcap); - } - } -#endif /* KNOWsize */ - - ReBufferDisplay(); /* re-make display buffers */ - ClearDisp(); -} diff --git a/contrib/tcsh/ed.term.c b/contrib/tcsh/ed.term.c deleted file mode 100644 index 9e730643f97f..000000000000 --- a/contrib/tcsh/ed.term.c +++ /dev/null @@ -1,1150 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.term.c,v 1.24 1999/08/12 14:19:23 christos Exp $ */ -/* - * ed.term.c: Low level terminal interface - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" -#ifndef WINNT - -RCSID("$Id: ed.term.c,v 1.24 1999/08/12 14:19:23 christos Exp $") - -#include "ed.h" -#include "ed.term.h" - -int didsetty = 0; -ttyperm_t ttylist = { - { -#if defined(POSIX) || defined(TERMIO) - { "iflag:", ICRNL, (INLCR|IGNCR) }, - { "oflag:", (OPOST|ONLCR), ONLRET }, - { "cflag:", 0, 0 }, - { "lflag:", (ISIG|ICANON|ECHO|ECHOE|ECHOCTL|IEXTEN), - (NOFLSH|ECHONL|EXTPROC|FLUSHO|IDEFAULT) }, -#else /* GSTTY */ - { "nrmal:", (ECHO|CRMOD|ANYP), (CBREAK|RAW|LCASE|VTDELAY|ALLDELAY) }, - { "local:", (LCRTBS|LCRTERA|LCRTKIL), (LPRTERA|LFLUSHO) }, -#endif /* POSIX || TERMIO */ - { "chars:", 0, 0 }, - }, - { -#if defined(POSIX) || defined(TERMIO) - { "iflag:", (INLCR|ICRNL), IGNCR }, - { "oflag:", (OPOST|ONLCR), ONLRET }, - { "cflag:", 0, 0 }, - { "lflag:", ISIG, - (NOFLSH|ICANON|ECHO|ECHOK|ECHONL|EXTPROC|IEXTEN|FLUSHO| - IDEFAULT) }, -#else /* GSTTY */ - { "nrmal:", (CBREAK|CRMOD|ANYP), (RAW|ECHO|LCASE|VTDELAY|ALLDELAY) }, - { "local:", (LCRTBS|LCRTERA|LCRTKIL), (LPRTERA|LFLUSHO) }, -#endif /* POSIX || TERMIO */ - { "chars:", (C_SH(C_MIN)|C_SH(C_TIME)|C_SH(C_SWTCH)|C_SH(C_DSWTCH)| - C_SH(C_WERASE)|C_SH(C_REPRINT)|C_SH(C_SUSP)|C_SH(C_DSUSP)| - C_SH(C_EOF)|C_SH(C_EOL)|C_SH(C_DISCARD)|C_SH(C_PGOFF)| - C_SH(C_KILL2)|C_SH(C_PAGE)|C_SH(C_STATUS)|C_SH(C_LNEXT)), - 0 } - }, - { -#if defined(POSIX) || defined(TERMIO) - { "iflag:", 0, IXON | IXOFF }, - { "oflag:", 0, 0 }, - { "cflag:", 0, 0 }, - { "lflag:", 0, ISIG | IEXTEN }, -#else /* GSTTY */ - { "nrmal:", RAW, CBREAK }, - { "local:", 0, 0 }, -#endif /* POSIX || TERMIO */ - { "chars:", 0, 0 }, - } -}; - -static struct tcshmodes { - char *m_name; -#ifdef SOLARIS2 - unsigned long m_value; -#else /* !SOLARIS2 */ - int m_value; -#endif /* SOLARIS2 */ - int m_type; -} modelist[] = { -#if defined(POSIX) || defined(TERMIO) - -# ifdef IGNBRK - { "ignbrk", IGNBRK, M_INPUT }, -# endif /* IGNBRK */ -# ifdef BRKINT - { "brkint", BRKINT, M_INPUT }, -# endif /* BRKINT */ -# ifdef IGNPAR - { "ignpar", IGNPAR, M_INPUT }, -# endif /* IGNPAR */ -# ifdef PARMRK - { "parmrk", PARMRK, M_INPUT }, -# endif /* PARMRK */ -# ifdef INPCK - { "inpck", INPCK, M_INPUT }, -# endif /* INPCK */ -# ifdef ISTRIP - { "istrip", ISTRIP, M_INPUT }, -# endif /* ISTRIP */ -# ifdef INLCR - { "inlcr", INLCR, M_INPUT }, -# endif /* INLCR */ -# ifdef IGNCR - { "igncr", IGNCR, M_INPUT }, -# endif /* IGNCR */ -# ifdef ICRNL - { "icrnl", ICRNL, M_INPUT }, -# endif /* ICRNL */ -# ifdef IUCLC - { "iuclc", IUCLC, M_INPUT }, -# endif /* IUCLC */ -# ifdef IXON - { "ixon", IXON, M_INPUT }, -# endif /* IXON */ -# ifdef IXANY - { "ixany", IXANY, M_INPUT }, -# endif /* IXANY */ -# ifdef IXOFF - { "ixoff", IXOFF, M_INPUT }, -# endif /* IXOFF */ -# ifdef IMAXBEL - { "imaxbel",IMAXBEL,M_INPUT }, -# endif /* IMAXBEL */ -# ifdef IDELETE - { "idelete",IDELETE,M_INPUT }, -# endif /* IDELETE */ - -# ifdef OPOST - { "opost", OPOST, M_OUTPUT }, -# endif /* OPOST */ -# ifdef OLCUC - { "olcuc", OLCUC, M_OUTPUT }, -# endif /* OLCUC */ -# ifdef ONLCR - { "onlcr", ONLCR, M_OUTPUT }, -# endif /* ONLCR */ -# ifdef OCRNL - { "ocrnl", OCRNL, M_OUTPUT }, -# endif /* OCRNL */ -# ifdef ONOCR - { "onocr", ONOCR, M_OUTPUT }, -# endif /* ONOCR */ -# ifdef ONOEOT - { "onoeot", ONOEOT, M_OUTPUT }, -# endif /* ONOEOT */ -# ifdef ONLRET - { "onlret", ONLRET, M_OUTPUT }, -# endif /* ONLRET */ -# ifdef OFILL - { "ofill", OFILL, M_OUTPUT }, -# endif /* OFILL */ -# ifdef OFDEL - { "ofdel", OFDEL, M_OUTPUT }, -# endif /* OFDEL */ -# ifdef NLDLY - { "nldly", NLDLY, M_OUTPUT }, -# endif /* NLDLY */ -# ifdef CRDLY - { "crdly", CRDLY, M_OUTPUT }, -# endif /* CRDLY */ -# ifdef TABDLY - { "tabdly", TABDLY, M_OUTPUT }, -# endif /* TABDLY */ -# ifdef XTABS - { "xtabs", XTABS, M_OUTPUT }, -# endif /* XTABS */ -# ifdef BSDLY - { "bsdly", BSDLY, M_OUTPUT }, -# endif /* BSDLY */ -# ifdef VTDLY - { "vtdly", VTDLY, M_OUTPUT }, -# endif /* VTDLY */ -# ifdef FFDLY - { "ffdly", FFDLY, M_OUTPUT }, -# endif /* FFDLY */ -# ifdef PAGEOUT - { "pageout",PAGEOUT,M_OUTPUT }, -# endif /* PAGEOUT */ -# ifdef WRAP - { "wrap", WRAP, M_OUTPUT }, -# endif /* WRAP */ - -# ifdef CIGNORE - { "cignore",CIGNORE,M_CONTROL }, -# endif /* CBAUD */ -# ifdef CBAUD - { "cbaud", CBAUD, M_CONTROL }, -# endif /* CBAUD */ -# ifdef CSTOPB - { "cstopb", CSTOPB, M_CONTROL }, -# endif /* CSTOPB */ -# ifdef CREAD - { "cread", CREAD, M_CONTROL }, -# endif /* CREAD */ -# ifdef PARENB - { "parenb", PARENB, M_CONTROL }, -# endif /* PARENB */ -# ifdef PARODD - { "parodd", PARODD, M_CONTROL }, -# endif /* PARODD */ -# ifdef HUPCL - { "hupcl", HUPCL, M_CONTROL }, -# endif /* HUPCL */ -# ifdef CLOCAL - { "clocal", CLOCAL, M_CONTROL }, -# endif /* CLOCAL */ -# ifdef LOBLK - { "loblk", LOBLK, M_CONTROL }, -# endif /* LOBLK */ -# ifdef CIBAUD - { "cibaud", CIBAUD, M_CONTROL }, -# endif /* CIBAUD */ -# ifdef CRTSCTS -# ifdef CCTS_OFLOW - { "ccts_oflow",CCTS_OFLOW,M_CONTROL }, -# else - { "crtscts",CRTSCTS,M_CONTROL }, -# endif /* CCTS_OFLOW */ -# endif /* CRTSCTS */ -# ifdef CRTS_IFLOW - { "crts_iflow",CRTS_IFLOW,M_CONTROL }, -# endif /* CRTS_IFLOW */ -# ifdef MDMBUF - { "mdmbuf", MDMBUF, M_CONTROL }, -# endif /* MDMBUF */ -# ifdef RCV1EN - { "rcv1en", RCV1EN, M_CONTROL }, -# endif /* RCV1EN */ -# ifdef XMT1EN - { "xmt1en", XMT1EN, M_CONTROL }, -# endif /* XMT1EN */ - -# ifdef ISIG - { "isig", ISIG, M_LINED }, -# endif /* ISIG */ -# ifdef ICANON - { "icanon", ICANON, M_LINED }, -# endif /* ICANON */ -# ifdef XCASE - { "xcase", XCASE, M_LINED }, -# endif /* XCASE */ -# ifdef ECHO - { "echo", ECHO, M_LINED }, -# endif /* ECHO */ -# ifdef ECHOE - { "echoe", ECHOE, M_LINED }, -# endif /* ECHOE */ -# ifdef ECHOK - { "echok", ECHOK, M_LINED }, -# endif /* ECHOK */ -# ifdef ECHONL - { "echonl", ECHONL, M_LINED }, -# endif /* ECHONL */ -# ifdef NOFLSH - { "noflsh", NOFLSH, M_LINED }, -# endif /* NOFLSH */ -# ifdef TOSTOP - { "tostop", TOSTOP, M_LINED }, -# endif /* TOSTOP */ -# ifdef ECHOCTL - { "echoctl",ECHOCTL,M_LINED }, -# endif /* ECHOCTL */ -# ifdef ECHOPRT - { "echoprt",ECHOPRT,M_LINED }, -# endif /* ECHOPRT */ -# ifdef ECHOKE - { "echoke", ECHOKE, M_LINED }, -# endif /* ECHOKE */ -# ifdef DEFECHO - { "defecho",DEFECHO,M_LINED }, -# endif /* DEFECHO */ -# ifdef FLUSHO - { "flusho", FLUSHO, M_LINED }, -# endif /* FLUSHO */ -# ifdef PENDIN - { "pendin", PENDIN, M_LINED }, -# endif /* PENDIN */ -# ifdef IEXTEN - { "iexten", IEXTEN, M_LINED }, -# endif /* IEXTEN */ -# ifdef NOKERNINFO - { "nokerninfo",NOKERNINFO,M_LINED }, -# endif /* NOKERNINFO */ -# ifdef ALTWERASE - { "altwerase",ALTWERASE,M_LINED }, -# endif /* ALTWERASE */ -# ifdef EXTPROC - { "extproc",EXTPROC,M_LINED }, -# endif /* EXTPROC */ -# ifdef IDEFAULT - { "idefault",IDEFAULT,M_LINED }, -# endif /* IDEFAULT */ - -#else /* GSTTY */ - -# ifdef TANDEM - { "tandem", TANDEM, M_CONTROL }, -# endif /* TANDEM */ -# ifdef CBREAK - { "cbreak", CBREAK, M_CONTROL }, -# endif /* CBREAK */ -# ifdef LCASE - { "lcase", LCASE, M_CONTROL }, -# endif /* LCASE */ -# ifdef ECHO - { "echo", ECHO, M_CONTROL }, -# endif /* ECHO */ -# ifdef CRMOD - { "crmod", CRMOD, M_CONTROL }, -# endif /* CRMOD */ -# ifdef RAW - { "raw", RAW, M_CONTROL }, -# endif /* RAW */ -# ifdef ODDP - { "oddp", ODDP, M_CONTROL }, -# endif /* ODDP */ -# ifdef EVENP - { "evenp", EVENP, M_CONTROL }, -# endif /* EVENP */ -# ifdef ANYP - { "anyp", ANYP, M_CONTROL }, -# endif /* ANYP */ -# ifdef NLDELAY - { "nldelay",NLDELAY,M_CONTROL }, -# endif /* NLDELAY */ -# ifdef TBDELAY - { "tbdelay",TBDELAY,M_CONTROL }, -# endif /* TBDELAY */ -# ifdef XTABS - { "xtabs", XTABS, M_CONTROL }, -# endif /* XTABS */ -# ifdef CRDELAY - { "crdelay",CRDELAY,M_CONTROL }, -# endif /* CRDELAY */ -# ifdef VTDELAY - { "vtdelay",VTDELAY,M_CONTROL }, -# endif /* VTDELAY */ -# ifdef BSDELAY - { "bsdelay",BSDELAY,M_CONTROL }, -# endif /* BSDELAY */ -# ifdef CRTBS - { "crtbs", CRTBS, M_CONTROL }, -# endif /* CRTBS */ -# ifdef PRTERA - { "prtera", PRTERA, M_CONTROL }, -# endif /* PRTERA */ -# ifdef CRTERA - { "crtera", CRTERA, M_CONTROL }, -# endif /* CRTERA */ -# ifdef TILDE - { "tilde", TILDE, M_CONTROL }, -# endif /* TILDE */ -# ifdef MDMBUF - { "mdmbuf", MDMBUF, M_CONTROL }, -# endif /* MDMBUF */ -# ifdef LITOUT - { "litout", LITOUT, M_CONTROL }, -# endif /* LITOUT */ -# ifdef TOSTOP - { "tostop", TOSTOP, M_CONTROL }, -# endif /* TOSTOP */ -# ifdef FLUSHO - { "flusho", FLUSHO, M_CONTROL }, -# endif /* FLUSHO */ -# ifdef NOHANG - { "nohang", NOHANG, M_CONTROL }, -# endif /* NOHANG */ -# ifdef L001000 - { "l001000",L001000,M_CONTROL }, -# endif /* L001000 */ -# ifdef CRTKIL - { "crtkil", CRTKIL, M_CONTROL }, -# endif /* CRTKIL */ -# ifdef PASS8 - { "pass8", PASS8, M_CONTROL }, -# endif /* PASS8 */ -# ifdef CTLECH - { "ctlech", CTLECH, M_CONTROL }, -# endif /* CTLECH */ -# ifdef PENDIN - { "pendin", PENDIN, M_CONTROL }, -# endif /* PENDIN */ -# ifdef DECCTQ - { "decctq", DECCTQ, M_CONTROL }, -# endif /* DECCTQ */ -# ifdef NOFLSH - { "noflsh", NOFLSH, M_CONTROL }, -# endif /* NOFLSH */ - -# ifdef LCRTBS - { "lcrtbs", LCRTBS, M_LOCAL }, -# endif /* LCRTBS */ -# ifdef LPRTERA - { "lprtera",LPRTERA,M_LOCAL }, -# endif /* LPRTERA */ -# ifdef LCRTERA - { "lcrtera",LCRTERA,M_LOCAL }, -# endif /* LCRTERA */ -# ifdef LTILDE - { "ltilde", LTILDE, M_LOCAL }, -# endif /* LTILDE */ -# ifdef LMDMBUF - { "lmdmbuf",LMDMBUF,M_LOCAL }, -# endif /* LMDMBUF */ -# ifdef LLITOUT - { "llitout",LLITOUT,M_LOCAL }, -# endif /* LLITOUT */ -# ifdef LTOSTOP - { "ltostop",LTOSTOP,M_LOCAL }, -# endif /* LTOSTOP */ -# ifdef LFLUSHO - { "lflusho",LFLUSHO,M_LOCAL }, -# endif /* LFLUSHO */ -# ifdef LNOHANG - { "lnohang",LNOHANG,M_LOCAL }, -# endif /* LNOHANG */ -# ifdef LCRTKIL - { "lcrtkil",LCRTKIL,M_LOCAL }, -# endif /* LCRTKIL */ -# ifdef LPASS8 - { "lpass8", LPASS8, M_LOCAL }, -# endif /* LPASS8 */ -# ifdef LCTLECH - { "lctlech",LCTLECH,M_LOCAL }, -# endif /* LCTLECH */ -# ifdef LPENDIN - { "lpendin",LPENDIN,M_LOCAL }, -# endif /* LPENDIN */ -# ifdef LDECCTQ - { "ldecctq",LDECCTQ,M_LOCAL }, -# endif /* LDECCTQ */ -# ifdef LNOFLSH - { "lnoflsh",LNOFLSH,M_LOCAL }, -# endif /* LNOFLSH */ - -#endif /* POSIX || TERMIO */ -# if defined(VINTR) || defined(TIOCGETC) - { "intr", C_SH(C_INTR), M_CHAR }, -# endif /* VINTR */ -# if defined(VQUIT) || defined(TIOCGETC) - { "quit", C_SH(C_QUIT), M_CHAR }, -# endif /* VQUIT */ -# if defined(VERASE) || defined(TIOCGETP) - { "erase", C_SH(C_ERASE), M_CHAR }, -# endif /* VERASE */ -# if defined(VKILL) || defined(TIOCGETP) - { "kill", C_SH(C_KILL), M_CHAR }, -# endif /* VKILL */ -# if defined(VEOF) || defined(TIOCGETC) - { "eof", C_SH(C_EOF), M_CHAR }, -# endif /* VEOF */ -# if defined(VEOL) - { "eol", C_SH(C_EOL), M_CHAR }, -# endif /* VEOL */ -# if defined(VEOL2) - { "eol2", C_SH(C_EOL2), M_CHAR }, -# endif /* VEOL2 */ -# if defined(VSWTCH) - { "swtch", C_SH(C_SWTCH), M_CHAR }, -# endif /* VSWTCH */ -# if defined(VDSWTCH) - { "dswtch", C_SH(C_DSWTCH), M_CHAR }, -# endif /* VDSWTCH */ -# if defined(VERASE2) - { "erase2", C_SH(C_ERASE2), M_CHAR }, -# endif /* VERASE2 */ -# if defined(VSTART) || defined(TIOCGETC) - { "start", C_SH(C_START), M_CHAR }, -# endif /* VSTART */ -# if defined(VSTOP) || defined(TIOCGETC) - { "stop", C_SH(C_STOP), M_CHAR }, -# endif /* VSTOP */ -# if defined(VWERASE) || defined(TIOCGLTC) - { "werase", C_SH(C_WERASE), M_CHAR }, -# endif /* VWERASE */ -# if defined(VSUSP) || defined(TIOCGLTC) - { "susp", C_SH(C_SUSP), M_CHAR }, -# endif /* VSUSP */ -# if defined(VDSUSP) || defined(TIOCGLTC) - { "dsusp", C_SH(C_DSUSP), M_CHAR }, -# endif /* VDSUSP */ -# if defined(VREPRINT) || defined(TIOCGLTC) - { "reprint", C_SH(C_REPRINT),M_CHAR }, -# endif /* WREPRINT */ -# if defined(VDISCARD) || defined(TIOCGLTC) - { "discard", C_SH(C_DISCARD),M_CHAR }, -# endif /* VDISCARD */ -# if defined(VLNEXT) || defined(TIOCGLTC) - { "lnext", C_SH(C_LNEXT), M_CHAR }, -# endif /* VLNEXT */ -# if defined(VSTATUS) || defined(TIOCGPAGE) - { "status", C_SH(C_STATUS), M_CHAR }, -# endif /* VSTATUS */ -# if defined(VPAGE) || defined(TIOCGPAGE) - { "page", C_SH(C_PAGE), M_CHAR }, -# endif /* VPAGE */ -# if defined(VPGOFF) || defined(TIOCGPAGE) - { "pgoff", C_SH(C_PGOFF), M_CHAR }, -# endif /* VPGOFF */ -# if defined(VKILL2) - { "kill2", C_SH(C_KILL2), M_CHAR }, -# endif /* VKILL2 */ -# if defined(VBRK) || defined(TIOCGETC) - { "brk", C_SH(C_BRK), M_CHAR }, -# endif /* VBRK */ -# if defined(VMIN) - { "min", C_SH(C_MIN), M_CHAR }, -# endif /* VMIN */ -# if defined(VTIME) - { "time", C_SH(C_TIME), M_CHAR }, -# endif /* VTIME */ - { NULL, 0, -1 }, -}; - -/* - * If EAGAIN and/or EWOULDBLOCK are defined, we can't just return -1 in all - * situations where ioctl() does. - * - * On AIX 4.1.5 (and presumably some other versions and OSes), as you - * perform the manual test suite in the README, if you 'bg' vi immediately - * after suspending it, all is well, but if you wait a few seconds, - * usually ioctl() will return -1, which previously caused tty_setty() to - * return -1, causing Rawmode() to return -1, causing Inputl() to return - * 0, causing bgetc() to return -1, causing readc() to set doneinp to 1, - * causing process() to break out of the main loop, causing tcsh to exit - * prematurely. - * - * If ioctl()'s errno is EAGAIN/EWOULDBLOCK ("Resource temporarily - * unavailable"), apparently the tty is being messed with by the OS and we - * need to try again. In my testing, ioctl() was never called more than - * twice in a row. - * - * -- Dan Harkless <dan@wave.eng.uci.edu> - * - * So, I retry all ioctl's in case others happen to fail too (christos) - */ - -#if defined(EAGAIN) && defined(EWOULDBLOCK) && (EWOULDBLOCK != EAGAIN) -# define OKERROR(e) (((e) == EAGAIN) || ((e) == EWOULDBLOCK) || ((e) == EINTR)) -#elif defined(EGAIN) -# define OKERROR(e) (((e) == EAGAIN) || ((e) == EINTR)) -#elif defined(EWOULDBLOCK) -# define OKERROR(e) (((e) == EWOULDBLOCK) || ((e) == EINTR)) -#else -# define OKERROR(e) ((e) == EINTR) -#endif - -/* Retry a system call */ -#define RETRY(x) \ - for (;;) \ - if ((x) == -1) { \ - if (OKERROR(errno)) \ - continue; \ - else \ - return -1; \ - } \ - else \ - break \ - -/*ARGSUSED*/ -void -dosetty(v, t) - Char **v; - struct command *t; -{ - struct tcshmodes *m; - char x, *d; - int aflag = 0; - Char *s; - int z = EX_IO; - char cmdname[BUFSIZE]; - - USE(t); - setname(strcpy(cmdname, short2str(*v++))); - - while (v && *v && v[0][0] == '-' && v[0][2] == '\0') - switch (v[0][1]) { - case 'a': - aflag++; - v++; - break; - case 'd': - v++; - z = ED_IO; - break; - case 'x': - v++; - z = EX_IO; - break; - case 'q': - v++; - z = QU_IO; - break; - default: - stderror(ERR_NAME | ERR_SYSTEM, short2str(v[0]), - CGETS(8, 1, "Unknown switch")); - break; - } - - didsetty = 1; - if (!v || !*v) { - int i = -1; - int len = 0, st = 0, cu; - for (m = modelist; m->m_name; m++) { - if (m->m_type != i) { - xprintf("%s%s", i != -1 ? "\n" : "", - ttylist[z][m->m_type].t_name); - i = m->m_type; - st = len = strlen(ttylist[z][m->m_type].t_name); - } - - x = (ttylist[z][i].t_setmask & m->m_value) ? '+' : '\0'; - x = (ttylist[z][i].t_clrmask & m->m_value) ? '-' : x; - - if (x != '\0' || aflag) { - cu = strlen(m->m_name) + (x != '\0') + 1; - if (len + cu >= T_Cols) { - xprintf("\n%*s", st, ""); - len = st + cu; - } - else - len += cu; - if (x != '\0') - xprintf("%c%s ", x, m->m_name); - else - xprintf("%s ", m->m_name); - } - } - xputchar('\n'); - return; - } - while (v && (s = *v++)) { - switch (*s) { - case '+': - case '-': - x = *s++; - break; - default: - x = '\0'; - break; - } - d = short2str(s); - for (m = modelist; m->m_name; m++) - if (strcmp(m->m_name, d) == 0) - break; - if (!m->m_name) - stderror(ERR_NAME | ERR_SYSTEM, d, CGETS(8, 2, "Invalid argument")); - - switch (x) { - case '+': - ttylist[z][m->m_type].t_setmask |= m->m_value; - ttylist[z][m->m_type].t_clrmask &= ~m->m_value; - break; - case '-': - ttylist[z][m->m_type].t_setmask &= ~m->m_value; - ttylist[z][m->m_type].t_clrmask |= m->m_value; - break; - default: - ttylist[z][m->m_type].t_setmask &= ~m->m_value; - ttylist[z][m->m_type].t_clrmask &= ~m->m_value; - break; - } - } -} /* end dosetty */ - -int -tty_getty(fd, td) - int fd; - ttydata_t *td; -{ -#ifdef POSIX - RETRY(tcgetattr(fd, &td->d_t)); -#else /* TERMIO || GSTTY */ -# ifdef TERMIO - RETRY(ioctl(fd, TCGETA, (ioctl_t) &td->d_t)); -# else /* GSTTY */ -# ifdef TIOCGETP - RETRY(ioctl(fd, TIOCGETP, (ioctl_t) &td->d_t)); -# endif /* TIOCGETP */ -# ifdef TIOCGETC - RETRY(ioctl(fd, TIOCGETC, (ioctl_t) &td->d_tc)); -# endif /* TIOCGETC */ -# ifdef TIOCGPAGE - RETRY(ioctl(fd, TIOCGPAGE, (ioctl_t) &td->d_pc)); -# endif /* TIOCGPAGE */ -# ifdef TIOCLGET - RETRY(ioctl(fd, TIOCLGET, (ioctl_t) &td->d_lb)); -# endif /* TIOCLGET */ -# endif /* TERMIO */ -#endif /* POSIX */ - -#ifdef TIOCGLTC - RETRY(ioctl(fd, TIOCGLTC, (ioctl_t) &td->d_ltc)); -#endif /* TIOCGLTC */ - - return 0; -} - -int -tty_setty(fd, td) - int fd; - ttydata_t *td; -{ -#ifdef POSIX - RETRY(tcsetattr(fd, TCSADRAIN, &td->d_t)); -#else -# ifdef TERMIO - RETRY(ioctl(fd, TCSETAW, (ioctl_t) &td->d_t)); -# else -# ifdef TIOCSETN - RETRY(ioctl(fd, TIOCSETN, (ioctl_t) &td->d_t)); -# endif /* TIOCSETN */ -# ifdef TIOCGETC - RETRY(ioctl(fd, TIOCSETC, (ioctl_t) &td->d_tc)); -# endif /* TIOCGETC */ -# ifdef TIOCGPAGE - RETRY(ioctl(fd, TIOCSPAGE, (ioctl_t) &td->d_pc)); -# endif /* TIOCGPAGE */ -# ifdef TIOCLGET - RETRY(ioctl(fd, TIOCLSET, (ioctl_t) &td->d_lb)); -# endif /* TIOCLGET */ -# endif /* TERMIO */ -#endif /* POSIX */ - -#ifdef TIOCGLTC - RETRY(ioctl(fd, TIOCSLTC, (ioctl_t) &td->d_ltc)); -#endif /* TIOCGLTC */ - - return 0; -} - -void -tty_getchar(td, s) - ttydata_t *td; - unsigned char *s; -{ -#ifdef TIOCGLTC - { - struct ltchars *n = &td->d_ltc; - - s[C_SUSP] = n->t_suspc; - s[C_DSUSP] = n->t_dsuspc; - s[C_REPRINT] = n->t_rprntc; - s[C_DISCARD] = n->t_flushc; - s[C_WERASE] = n->t_werasc; - s[C_LNEXT] = n->t_lnextc; - } -#endif /* TIOCGLTC */ - -#if defined(POSIX) || defined(TERMIO) - { -# ifdef POSIX - struct termios *n = &td->d_t; -# else - struct termio *n = &td->d_t; -# endif /* POSIX */ - -# ifdef VINTR - s[C_INTR] = n->c_cc[VINTR]; -# endif /* VINTR */ -# ifdef VQUIT - s[C_QUIT] = n->c_cc[VQUIT]; -# endif /* VQUIT */ -# ifdef VERASE - s[C_ERASE] = n->c_cc[VERASE]; -# endif /* VERASE */ -# ifdef VKILL - s[C_KILL] = n->c_cc[VKILL]; -# endif /* VKILL */ -# ifdef VEOF - s[C_EOF] = n->c_cc[VEOF]; -# endif /* VEOF */ -# ifdef VEOL - s[C_EOL] = n->c_cc[VEOL]; -# endif /* VEOL */ -# ifdef VEOL2 - s[C_EOL2] = n->c_cc[VEOL2]; -# endif /* VEOL2 */ -# ifdef VSWTCH - s[C_SWTCH] = n->c_cc[VSWTCH]; -# endif /* VSWTCH */ -# ifdef VDSWTCH - s[C_DSWTCH] = n->c_cc[VDSWTCH]; -# endif /* VDSWTCH */ -# ifdef VERASE2 - s[C_ERASE2] = n->c_cc[VERASE2]; -# endif /* VERASE2 */ -# ifdef VSTART - s[C_START] = n->c_cc[VSTART]; -# endif /* VSTART */ -# ifdef VSTOP - s[C_STOP] = n->c_cc[VSTOP]; -# endif /* VSTOP */ -# ifdef VWERASE - s[C_WERASE] = n->c_cc[VWERASE]; -# endif /* VWERASE */ -# ifdef VSUSP - s[C_SUSP] = n->c_cc[VSUSP]; -# endif /* VSUSP */ -# ifdef VDSUSP - s[C_DSUSP] = n->c_cc[VDSUSP]; -# endif /* VDSUSP */ -# ifdef VREPRINT - s[C_REPRINT] = n->c_cc[VREPRINT]; -# endif /* WREPRINT */ -# ifdef VDISCARD - s[C_DISCARD] = n->c_cc[VDISCARD]; -# endif /* VDISCARD */ -# ifdef VLNEXT - s[C_LNEXT] = n->c_cc[VLNEXT]; -# endif /* VLNEXT */ -# ifdef VSTATUS - s[C_STATUS] = n->c_cc[VSTATUS]; -# endif /* VSTATUS */ -# ifdef VPAGE - s[C_PAGE] = n->c_cc[VPAGE]; -# endif /* VPAGE */ -# ifdef VPGOFF - s[C_PGOFF] = n->c_cc[VPGOFF]; -# endif /* VPGOFF */ -# ifdef VKILL2 - s[C_KILL2] = n->c_cc[VKILL2]; -# endif /* KILL2 */ -# ifdef VMIN - s[C_MIN] = n->c_cc[VMIN]; -# endif /* VMIN */ -# ifdef VTIME - s[C_TIME] = n->c_cc[VTIME]; -# endif /* VTIME */ - } - -#else /* SGTTY */ - -# ifdef TIOCGPAGE - { - struct ttypagestat *n = &td->d_pc; - - s[C_STATUS] = n->tps_statc; - s[C_PAGE] = n->tps_pagec; - s[C_PGOFF] = n->tps_pgoffc; - } -# endif /* TIOCGPAGE */ - -# ifdef TIOCGETC - { - struct tchars *n = &td->d_tc; - - s[C_INTR] = n->t_intrc; - s[C_QUIT] = n->t_quitc; - s[C_START] = n->t_startc; - s[C_STOP] = n->t_stopc; - s[C_EOF] = n->t_eofc; - s[C_BRK] = n->t_brkc; - } -# endif /* TIOCGETC */ - -# ifdef TIOCGETP - { - struct sgttyb *n = &td->d_t; - - s[C_ERASE] = n->sg_erase; - s[C_KILL] = n->sg_kill; - } -# endif /* TIOCGETP */ -#endif /* !POSIX || TERMIO */ - -} /* tty_getchar */ - - -void -tty_setchar(td, s) - ttydata_t *td; - unsigned char *s; -{ -#ifdef TIOCGLTC - { - struct ltchars *n = &td->d_ltc; - - n->t_suspc = s[C_SUSP]; - n->t_dsuspc = s[C_DSUSP]; - n->t_rprntc = s[C_REPRINT]; - n->t_flushc = s[C_DISCARD]; - n->t_werasc = s[C_WERASE]; - n->t_lnextc = s[C_LNEXT]; - } -#endif /* TIOCGLTC */ - -#if defined(POSIX) || defined(TERMIO) - { -# ifdef POSIX - struct termios *n = &td->d_t; -# else - struct termio *n = &td->d_t; -# endif /* POSIX */ - -# ifdef VINTR - n->c_cc[VINTR] = s[C_INTR]; -# endif /* VINTR */ -# ifdef VQUIT - n->c_cc[VQUIT] = s[C_QUIT]; -# endif /* VQUIT */ -# ifdef VERASE - n->c_cc[VERASE] = s[C_ERASE]; -# endif /* VERASE */ -# ifdef VKILL - n->c_cc[VKILL] = s[C_KILL]; -# endif /* VKILL */ -# ifdef VEOF - n->c_cc[VEOF] = s[C_EOF]; -# endif /* VEOF */ -# ifdef VEOL - n->c_cc[VEOL] = s[C_EOL]; -# endif /* VEOL */ -# ifdef VEOL2 - n->c_cc[VEOL2] = s[C_EOL2]; -# endif /* VEOL2 */ -# ifdef VSWTCH - n->c_cc[VSWTCH] = s[C_SWTCH]; -# endif /* VSWTCH */ -# ifdef VDSWTCH - n->c_cc[VDSWTCH] = s[C_DSWTCH]; -# endif /* VDSWTCH */ -# ifdef VERASE2 - n->c_cc[VERASE2] = s[C_ERASE2]; -# endif /* VERASE2 */ -# ifdef VSTART - n->c_cc[VSTART] = s[C_START]; -# endif /* VSTART */ -# ifdef VSTOP - n->c_cc[VSTOP] = s[C_STOP]; -# endif /* VSTOP */ -# ifdef VWERASE - n->c_cc[VWERASE] = s[C_WERASE]; -# endif /* VWERASE */ -# ifdef VSUSP - n->c_cc[VSUSP] = s[C_SUSP]; -# endif /* VSUSP */ -# ifdef VDSUSP - n->c_cc[VDSUSP] = s[C_DSUSP]; -# endif /* VDSUSP */ -# ifdef VREPRINT - n->c_cc[VREPRINT] = s[C_REPRINT]; -# endif /* WREPRINT */ -# ifdef VDISCARD - n->c_cc[VDISCARD] = s[C_DISCARD]; -# endif /* VDISCARD */ -# ifdef VLNEXT - n->c_cc[VLNEXT] = s[C_LNEXT]; -# endif /* VLNEXT */ -# ifdef VSTATUS - n->c_cc[VSTATUS] = s[C_STATUS]; -# endif /* VSTATUS */ -# ifdef VPAGE - n->c_cc[VPAGE] = s[C_PAGE]; -# endif /* VPAGE */ -# ifdef VPGOFF - n->c_cc[VPGOFF] = s[C_PGOFF]; -# endif /* VPGOFF */ -# ifdef VKILL2 - n->c_cc[VKILL2] = s[C_KILL2]; -# endif /* VKILL2 */ -# ifdef VMIN - n->c_cc[VMIN] = s[C_MIN]; -# endif /* VMIN */ -# ifdef VTIME - n->c_cc[VTIME] = s[C_TIME]; -# endif /* VTIME */ - } - -#else /* GSTTY */ - -# ifdef TIOCGPAGE - { - struct ttypagestat *n = &td->d_pc; - - n->tps_length = 0; - n->tps_lpos = 0; - n->tps_statc = s[C_STATUS]; - n->tps_pagec = s[C_PAGE]; - n->tps_pgoffc = s[C_PGOFF]; - n->tps_flag = 0; - } -# endif /* TIOCGPAGE */ - -# ifdef TIOCGETC - { - struct tchars *n = &td->d_tc; - n->t_intrc = s[C_INTR]; - n->t_quitc = s[C_QUIT]; - n->t_startc = s[C_START]; - n->t_stopc = s[C_STOP]; - n->t_eofc = s[C_EOF]; - n->t_brkc = s[C_BRK]; - } -# endif /* TIOCGETC */ - -# ifdef TIOCGETP - { - struct sgttyb *n = &td->d_t; - - n->sg_erase = s[C_ERASE]; - n->sg_kill = s[C_KILL]; - } -# endif /* TIOCGETP */ -#endif /* !POSIX || TERMIO */ - -} /* tty_setchar */ - -speed_t -tty_getspeed(td) - ttydata_t *td; -{ - speed_t spd; - -#ifdef POSIX - if ((spd = cfgetispeed(&td->d_t)) == 0) - spd = cfgetospeed(&td->d_t); -#else /* ! POSIX */ -# ifdef TERMIO -# ifdef CBAUD - spd = td->d_t.c_cflag & CBAUD; -# else - spd = 0; -# endif -# else /* SGTTY */ - spd = td->d_t.sg_ispeed; -# endif /* TERMIO */ -#endif /* POSIX */ - - return spd; -} /* end tty_getspeed */ - -int -tty_gettabs(td) - ttydata_t *td; -{ -#if defined(POSIX) || defined(TERMIO) - return ((td->d_t.c_oflag & TAB3) == TAB3) ? 0 : 1; -#else /* SGTTY */ - return (td->d_t.sg_flags & XTABS) == XTABS ? 0 : 1; -#endif /* POSIX || TERMIO */ -} /* end tty_gettabs */ - -int -tty_geteightbit(td) - ttydata_t *td; -{ -#if defined(POSIX) || defined(TERMIO) - return (td->d_t.c_cflag & CSIZE) == CS8; -#else /* SGTTY */ - return td->d_lb & (LPASS8 | LLITOUT); -#endif /* POSIX || TERMIO */ -} /* end tty_geteightbit */ - -int -tty_cooked_mode(td) - ttydata_t *td; -{ -#if defined(POSIX) || defined(TERMIO) - return (td->d_t.c_lflag & ICANON); -#else /* SGTTY */ - return !(td->d_t.sg_flags & (RAW | CBREAK)); -#endif /* POSIX || TERMIO */ -} /* end tty_cooked_mode */ - -#ifdef _IBMR2 -void -tty_setdisc(fd, dis) - int fd; - int dis; -{ - static bool edit_discipline = 0; - static union txname tx_disc; - extern char strPOSIX[]; - - switch (dis) { - case EX_IO: - if (edit_discipline) { - if (ioctl(fd, TXSETLD, (ioctl_t) & tx_disc) == -1) - return; - edit_discipline = 0; - } - return; - - case ED_IO: - tx_disc.tx_which = 0; - if (ioctl(fd, TXGETLD, (ioctl_t) & tx_disc) == -1) - return; - if (strcmp(tx_disc.tx_name, strPOSIX) != 0) { - edit_discipline = 1; - if (ioctl(fd, TXSETLD, (ioctl_t) strPOSIX) == -1) - return; - } - return; - - default: - return; - } -} /* end tty_setdisc */ -#endif /* _IBMR2 */ - -#ifdef DEBUG_TTY -static void -tty_printchar(s) - unsigned char *s; -{ - struct tcshmodes *m; - int i; - - for (i = 0; i < C_NCC; i++) { - for (m = modelist; m->m_name; m++) - if (m->m_type == M_CHAR && C_SH(i) == m->m_value) - break; - if (m->m_name) - xprintf("%s ^%c ", m->m_name, s[i] + 'A' - 1); - if (i % 5 == 0) - xputchar('\n'); - } - xputchar('\n'); -} -#endif /* DEBUG_TTY */ -#else /* WINNT */ -int -tty_cooked_mode(td) - void *td; -{ - return do_nt_check_cooked_mode(); -} -#endif /* !WINNT */ diff --git a/contrib/tcsh/ed.term.h b/contrib/tcsh/ed.term.h deleted file mode 100644 index bcd000be96f2..000000000000 --- a/contrib/tcsh/ed.term.h +++ /dev/null @@ -1,492 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.term.h,v 1.13 1996/09/24 16:57:20 christos Exp $ */ -/* - * ed.term.h: Local terminal header - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_ed_term -#define _h_ed_term - -#define TO_CONTROL(A) ((A) & 037) - -#if defined(TERMIO) || defined(POSIX) -/* - * Aix compatible names - */ -# if defined(VWERSE) && !defined(VWERASE) -# define VWERASE VWERSE -# endif /* VWERSE && !VWERASE */ - -# if defined(VDISCRD) && !defined(VDISCARD) -# define VDISCARD VDISCRD -# endif /* VDISCRD && !VDISCARD */ - -# if defined(VFLUSHO) && !defined(VDISCARD) -# define VDISCARD VFLUSHO -# endif /* VFLUSHO && VDISCARD */ - -# if defined(VSTRT) && !defined(VSTART) -# define VSTART VSTRT -# endif /* VSTRT && ! VSTART */ - -# if defined(VSTAT) && !defined(VSTATUS) -# define VSTATUS VSTAT -# endif /* VSTAT && ! VSTATUS */ - -# ifndef ONLRET -# define ONLRET 0 -# endif /* ONLRET */ - -# ifndef TAB3 -# ifdef OXTABS -# define TAB3 OXTABS -# else -# define TAB3 0 -# endif /* OXTABS */ -# endif /* !TAB3 */ - -# if defined(OXTABS) && !defined(XTABS) -# define XTABS OXTABS -# endif /* OXTABS && !XTABS */ - -# ifndef ONLCR -# define ONLCR 0 -# endif /* ONLCR */ - -# ifndef IEXTEN -# define IEXTEN 0 -# endif /* IEXTEN */ - -/* - * emx garbage - */ -# ifndef IDEFAULT -# define IDEFAULT 0 -# endif /* IDEFAULT */ - -# ifndef IDELETE -# define IDELETE 0 -# endif /* IDELETE */ - -# ifndef ECHOCTL -# define ECHOCTL 0 -# endif /* ECHOCTL */ - -# ifndef PARENB -# define PARENB 0 -# endif /* PARENB */ - -# ifndef EXTPROC -# define EXTPROC 0 -# endif /* EXTPROC */ - -# ifndef FLUSHO -# define FLUSHO 0 -# endif /* FLUSHO */ - - -# if defined(VDISABLE) && !defined(_POSIX_VDISABLE) -# define _POSIX_VDISABLE VDISABLE -# endif /* VDISABLE && ! _POSIX_VDISABLE */ - -/* - * Work around ISC's definition of IEXTEN which is - * XCASE! - */ -# ifdef ISC -# if defined(IEXTEN) && defined(XCASE) -# if IEXTEN == XCASE -# undef IEXTEN -# define IEXTEN 0 -# endif /* IEXTEN == XCASE */ -# endif /* IEXTEN && XCASE */ -# if defined(IEXTEN) && !defined(XCASE) -# define XCASE IEXTEN -# undef IEXTEN -# define IEXTEN 0 -# endif /* IEXTEN && !XCASE */ -# endif /* ISC */ - -/* - * Work around convex weirdness where turning off IEXTEN makes us - * lose all postprocessing! - */ -#ifdef convex -# if defined(IEXTEN) && IEXTEN != 0 -# undef IEXTEN -# define IEXTEN 0 -# endif /* IEXTEN != 0 */ -#endif /* convex */ - - -# else /* SGTTY */ - -# ifndef LPASS8 -# define LPASS8 0 -# endif /* LPASS8 */ - -#endif /* TERMIO || POSIX */ - -#ifndef _POSIX_VDISABLE -# define _POSIX_VDISABLE ((unsigned char) -1) -#endif /* _POSIX_VDISABLE */ - - -#if !defined(CREPRINT) && defined(CRPRNT) -# define CREPRINT CRPRNT -#endif /* !CREPRINT && CRPRNT */ -#if !defined(CDISCARD) && defined(CFLUSH) -# define CDISCARD CFLUSH -#endif /* !CDISCARD && CFLUSH */ -#if !defined(CDISCARD) && defined(CFLUSHO) -# define CDISCARD CFLUSHO -#endif /* !CDISCARD && CFLUSHO */ - -/* - * IRIX4.0 control macro is broken! - * Ignore and undef all default tty chars defined and redefine only - * the ones that are different in the IRIX file. - */ -#if __STDC__ && defined(IRIS4D) -# undef CINTR -# define CINTR 0177 /* ^? */ -# undef CQUIT -# undef CERASE -# define CERASE TO_CONTROL('h') -# undef CKILL -# undef CEOF -# undef CEOL -# undef CEOL2 -# undef CSWTCH -# define CSWTCH TO_CONTROL('z') -# undef CDSWTCH -# undef CERASE2 -# undef CSTART -# undef CSTOP -# undef CWERASE -# undef CSUSP -# undef CDSUSP -# undef CREPRINT -# undef CDISCARD -# undef CLNEXT -# undef CSTATUS -# undef CPAGE -# undef CPGOFF -# undef CKILL2 -# undef CBRK -# undef CMIN -# undef CTIME -#endif /* __STDC__ && IRIS4D */ - - -#ifndef CINTR -# define CINTR TO_CONTROL('c') -#endif /* CINTR */ -#ifndef CQUIT -# define CQUIT 034 /* ^\ */ -#endif /* CQUIT */ -#ifndef CERASE -# define CERASE 0177 /* ^? */ -#endif /* CERASE */ -#ifndef CKILL -# define CKILL TO_CONTROL('u') -#endif /* CKILL */ -#ifndef CEOF -# define CEOF TO_CONTROL('d') -#endif /* CEOF */ -#ifndef CEOL -# define CEOL _POSIX_VDISABLE -#endif /* CEOL */ -#ifndef CEOL2 -# define CEOL2 _POSIX_VDISABLE -#endif /* CEOL2 */ -#ifndef CSWTCH -# define CSWTCH _POSIX_VDISABLE -#endif /* CSWTCH */ -#ifndef CDSWTCH -# define CDSWTCH _POSIX_VDISABLE -#endif /* CDSWTCH */ -#ifndef CERASE2 -# define CERASE2 _POSIX_VDISABLE -#endif /* CERASE2 */ -#ifndef CSTART -# define CSTART TO_CONTROL('q') -#endif /* CSTART */ -#ifndef CSTOP -# define CSTOP TO_CONTROL('s') -#endif /* CSTOP */ -#ifndef CSUSP -# define CSUSP TO_CONTROL('z') -#endif /* CSUSP */ -#ifndef CDSUSP -# define CDSUSP TO_CONTROL('y') -#endif /* CDSUSP */ - -#ifdef hpux - -# ifndef CREPRINT -# define CREPRINT _POSIX_VDISABLE -# endif /* CREPRINT */ -# ifndef CDISCARD -# define CDISCARD _POSIX_VDISABLE -# endif /* CDISCARD */ -# ifndef CLNEXT -# define CLNEXT _POSIX_VDISABLE -# endif /* CLNEXT */ -# ifndef CWERASE -# define CWERASE _POSIX_VDISABLE -# endif /* CWERASE */ - -#else /* !hpux */ - -# ifndef CREPRINT -# define CREPRINT TO_CONTROL('r') -# endif /* CREPRINT */ -# ifndef CDISCARD -# define CDISCARD TO_CONTROL('o') -# endif /* CDISCARD */ -# ifndef CLNEXT -# define CLNEXT TO_CONTROL('v') -# endif /* CLNEXT */ -# ifndef CWERASE -# define CWERASE TO_CONTROL('w') -# endif /* CWERASE */ - -#endif /* hpux */ - -#ifndef CSTATUS -# define CSTATUS TO_CONTROL('t') -#endif /* CSTATUS */ -#ifndef CPAGE -# define CPAGE ' ' -#endif /* CPAGE */ -#ifndef CPGOFF -# define CPGOFF TO_CONTROL('m') -#endif /* CPGOFF */ -#ifndef CKILL2 -# define CKILL2 _POSIX_VDISABLE -#endif /* CKILL2 */ -#ifndef CBRK -# ifndef masscomp -# define CBRK 0377 -# else -# define CBRK '\0' -# endif /* masscomp */ -#endif /* CBRK */ -#ifndef CMIN -# define CMIN CEOF -#endif /* CMIN */ -#ifndef CTIME -# define CTIME CEOL -#endif /* CTIME */ - -/* - * Fix for sun inconsistency. On termio VSUSP and the rest of the - * ttychars > NCC are defined. So we undefine them. - */ -#if defined(TERMIO) || defined(POSIX) -# if defined(POSIX) && defined(NCCS) -# define NUMCC NCCS -# else -# ifdef NCC -# define NUMCC NCC -# endif /* NCC */ -# endif /* POSIX && NCCS */ -# ifdef NUMCC -# ifdef VINTR -# if NUMCC <= VINTR -# undef VINTR -# endif /* NUMCC <= VINTR */ -# endif /* VINTR */ -# ifdef VQUIT -# if NUMCC <= VQUIT -# undef VQUIT -# endif /* NUMCC <= VQUIT */ -# endif /* VQUIT */ -# ifdef VERASE -# if NUMCC <= VERASE -# undef VERASE -# endif /* NUMCC <= VERASE */ -# endif /* VERASE */ -# ifdef VKILL -# if NUMCC <= VKILL -# undef VKILL -# endif /* NUMCC <= VKILL */ -# endif /* VKILL */ -# ifdef VEOF -# if NUMCC <= VEOF -# undef VEOF -# endif /* NUMCC <= VEOF */ -# endif /* VEOF */ -# ifdef VEOL -# if NUMCC <= VEOL -# undef VEOL -# endif /* NUMCC <= VEOL */ -# endif /* VEOL */ -# ifdef VEOL2 -# if NUMCC <= VEOL2 -# undef VEOL2 -# endif /* NUMCC <= VEOL2 */ -# endif /* VEOL2 */ -# ifdef VSWTCH -# if NUMCC <= VSWTCH -# undef VSWTCH -# endif /* NUMCC <= VSWTCH */ -# endif /* VSWTCH */ -# ifdef VDSWTCH -# if NUMCC <= VDSWTCH -# undef VDSWTCH -# endif /* NUMCC <= VDSWTCH */ -# endif /* VDSWTCH */ -# ifdef VERASE2 -# if NUMCC <= VERASE2 -# undef VERASE2 -# endif /* NUMCC <= VERASE2 */ -# endif /* VERASE2 */ -# ifdef VSTART -# if NUMCC <= VSTART -# undef VSTART -# endif /* NUMCC <= VSTART */ -# endif /* VSTART */ -# ifdef VSTOP -# if NUMCC <= VSTOP -# undef VSTOP -# endif /* NUMCC <= VSTOP */ -# endif /* VSTOP */ -# ifdef VWERASE -# if NUMCC <= VWERASE -# undef VWERASE -# endif /* NUMCC <= VWERASE */ -# endif /* VWERASE */ -# ifdef VSUSP -# if NUMCC <= VSUSP -# undef VSUSP -# endif /* NUMCC <= VSUSP */ -# endif /* VSUSP */ -# ifdef VDSUSP -# if NUMCC <= VDSUSP -# undef VDSUSP -# endif /* NUMCC <= VDSUSP */ -# endif /* VDSUSP */ -# ifdef VREPRINT -# if NUMCC <= VREPRINT -# undef VREPRINT -# endif /* NUMCC <= VREPRINT */ -# endif /* VREPRINT */ -# ifdef VDISCARD -# if NUMCC <= VDISCARD -# undef VDISCARD -# endif /* NUMCC <= VDISCARD */ -# endif /* VDISCARD */ -# ifdef VLNEXT -# if NUMCC <= VLNEXT -# undef VLNEXT -# endif /* NUMCC <= VLNEXT */ -# endif /* VLNEXT */ -# ifdef VSTATUS -# if NUMCC <= VSTATUS -# undef VSTATUS -# endif /* NUMCC <= VSTATUS */ -# endif /* VSTATUS */ -# ifdef VPAGE -# if NUMCC <= VPAGE -# undef VPAGE -# endif /* NUMCC <= VPAGE */ -# endif /* VPAGE */ -# ifdef VPGOFF -# if NUMCC <= VPGOFF -# undef VPGOFF -# endif /* NUMCC <= VPGOFF */ -# endif /* VPGOFF */ -# ifdef VKILL2 -# if NUMCC <= VKILL2 -# undef VKILL2 -# endif /* NUMCC <= VKILL2 */ -# endif /* VKILL2 */ -# ifdef VBRK -# if NUMCC <= VBRK -# undef VBRK -# endif /* NUMCC <= VBRK */ -# endif /* VBRK */ -# ifdef VMIN -# if NUMCC <= VMIN -# undef VMIN -# endif /* NUMCC <= VMIN */ -# endif /* VMIN */ -# ifdef VTIME -# if NUMCC <= VTIME -# undef VTIME -# endif /* NUMCC <= VTIME */ -# endif /* VTIME */ -# endif /* NUMCC */ -#endif /* !POSIX */ - -/* - * fix for hpux10 inconsistency: it has VWERASE, but TIOCSLTC returns - * EINVAL if one tries to change it - */ -#if defined(hpux) && defined(VSUSP) && defined(VDSUSP) && defined(VWERASE) && d -efined(VLNEXT) -# undef TIOCGLTC /* not really needed */ -# undef TIOCSLTC -#endif - -#define C_INTR 0 -#define C_QUIT 1 -#define C_ERASE 2 -#define C_KILL 3 -#define C_EOF 4 -#define C_EOL 5 -#define C_EOL2 6 -#define C_SWTCH 7 -#define C_DSWTCH 8 -#define C_ERASE2 9 -#define C_START 10 -#define C_STOP 11 -#define C_WERASE 12 -#define C_SUSP 13 -#define C_DSUSP 14 -#define C_REPRINT 15 -#define C_DISCARD 16 -#define C_LNEXT 17 -#define C_STATUS 18 -#define C_PAGE 19 -#define C_PGOFF 20 -#define C_KILL2 21 -#define C_BRK 22 -#define C_MIN 23 -#define C_TIME 24 -#define C_NCC 25 -#define C_SH(A) (1 << (A)) - -#endif /* _h_ed_term */ diff --git a/contrib/tcsh/ed.xmap.c b/contrib/tcsh/ed.xmap.c deleted file mode 100644 index d4d9bd657665..000000000000 --- a/contrib/tcsh/ed.xmap.c +++ /dev/null @@ -1,844 +0,0 @@ -/* $Header: /src/pub/tcsh/ed.xmap.c,v 3.21 1999/06/01 20:01:32 christos Exp $ */ -/* - * ed.xmap.c: This module contains the procedures for maintaining - * the extended-key map. - * - * An extended-key (Xkey) is a sequence of keystrokes - * introduced with an sequence introducer and consisting - * of an arbitrary number of characters. This module maintains - * a map (the Xmap) to convert these extended-key sequences - * into input strings (XK_STR), editor functions (XK_CMD), or - * unix commands (XK_EXE). It contains the - * following externally visible functions. - * - * int GetXkey(ch,val); - * CStr *ch; - * XmapVal *val; - * - * Looks up *ch in map and then reads characters until a - * complete match is found or a mismatch occurs. Returns the - * type of the match found (XK_STR, XK_CMD, or XK_EXE). - * Returns NULL in val.str and XK_STR for no match. - * The last character read is returned in *ch. - * - * void AddXkey(Xkey, val, ntype); - * CStr *Xkey; - * XmapVal *val; - * int ntype; - * - * Adds Xkey to the Xmap and associates the value in val with it. - * If Xkey is already is in Xmap, the new code is applied to the - * existing Xkey. Ntype specifies if code is a command, an - * out string or a unix command. - * - * int DeleteXkey(Xkey); - * CStr *Xkey; - * - * Delete the Xkey and all longer Xkeys staring with Xkey, if - * they exists. - * - * Warning: - * If Xkey is a substring of some other Xkeys, then the longer - * Xkeys are lost!! That is, if the Xkeys "abcd" and "abcef" - * are in Xmap, adding the key "abc" will cause the first two - * definitions to be lost. - * - * void ResetXmap(); - * - * Removes all entries from Xmap and resets the defaults. - * - * void PrintXkey(Xkey); - * CStr *Xkey; - * - * Prints all extended keys prefixed by Xkey and their associated - * commands. - * - * Restrictions: - * ------------- - * 1) It is not possible to have one Xkey that is a - * substring of another. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: ed.xmap.c,v 3.21 1999/06/01 20:01:32 christos Exp $") - -#include "ed.h" -#include "ed.defns.h" - -#ifndef NULL -#define NULL 0 -#endif - -/* Internal Data types and declarations */ - -/* The Nodes of the Xmap. The Xmap is a linked list of these node - * elements - */ -typedef struct Xmapnode { - Char ch; /* single character of Xkey */ - int type; - XmapVal val; /* command code or pointer to string, if this - * is a leaf */ - struct Xmapnode *next; /* ptr to next char of this Xkey */ - struct Xmapnode *sibling; /* ptr to another Xkey with same prefix */ -} XmapNode; - -static XmapNode *Xmap = NULL; /* the current Xmap */ -#define MAXXKEY 100 /* max length of a Xkey for print putposes */ -static Char printbuf[MAXXKEY]; /* buffer for printing */ - - -/* Some declarations of procedures */ -static int TraverseMap __P((XmapNode *, CStr *, XmapVal *)); -static int TryNode __P((XmapNode *, CStr *, XmapVal *, int)); -static XmapNode *GetFreeNode __P((CStr *)); -static void PutFreeNode __P((XmapNode *)); -static int TryDeleteNode __P((XmapNode **, CStr *)); -static int Lookup __P((CStr *, XmapNode *, int)); -static int Enumerate __P((XmapNode *, int)); -static int unparsech __P((int, Char *)); - - -XmapVal * -XmapCmd(cmd) - int cmd; -{ - static XmapVal xm; - xm.cmd = (KEYCMD) cmd; - return &xm; -} - -XmapVal * -XmapStr(str) - CStr *str; -{ - static XmapVal xm; - xm.str.len = str->len; - xm.str.buf = str->buf; - return &xm; -} - -/* ResetXmap(): - * Takes all nodes on Xmap and puts them on free list. Then - * initializes Xmap with arrow keys - */ -void -ResetXmap() -{ - PutFreeNode(Xmap); - Xmap = NULL; - - DefaultArrowKeys(); - return; -} - - -/* GetXkey(): - * Calls the recursive function with entry point Xmap - */ -int -GetXkey(ch, val) - CStr *ch; - XmapVal *val; -{ - return (TraverseMap(Xmap, ch, val)); -} - -/* TraverseMap(): - * recursively traverses node in tree until match or mismatch is - * found. May read in more characters. - */ -static int -TraverseMap(ptr, ch, val) - XmapNode *ptr; - CStr *ch; - XmapVal *val; -{ - Char tch; - - if (ptr->ch == *(ch->buf)) { - /* match found */ - if (ptr->next) { - /* Xkey not complete so get next char */ - if (GetNextChar(&tch) != 1) { /* if EOF or error */ - val->cmd = F_SEND_EOF; - return XK_CMD;/* PWP: Pretend we just read an end-of-file */ - } - *(ch->buf) = tch; - return (TraverseMap(ptr->next, ch, val)); - } - else { - *val = ptr->val; - if (ptr->type != XK_CMD) - *(ch->buf) = '\0'; - return ptr->type; - } - } - else { - /* no match found here */ - if (ptr->sibling) { - /* try next sibling */ - return (TraverseMap(ptr->sibling, ch, val)); - } - else { - /* no next sibling -- mismatch */ - val->str.buf = NULL; - val->str.len = 0; - return XK_STR; - } - } -} - -void -AddXkey(Xkey, val, ntype) - CStr *Xkey; - XmapVal *val; - int ntype; -{ - CStr cs; - cs.buf = Xkey->buf; - cs.len = Xkey->len; - if (Xkey->len == 0) { - xprintf(CGETS(9, 1, "AddXkey: Null extended-key not allowed.\n")); - return; - } - - if (ntype == XK_CMD && val->cmd == F_XKEY) { - xprintf(CGETS(9, 2, "AddXkey: sequence-lead-in command not allowed\n")); - return; - } - - if (Xmap == NULL) - /* tree is initially empty. Set up new node to match Xkey[0] */ - Xmap = GetFreeNode(&cs); /* it is properly initialized */ - - /* Now recurse through Xmap */ - (void) TryNode(Xmap, &cs, val, ntype); - return; -} - -static int -TryNode(ptr, str, val, ntype) - XmapNode *ptr; - CStr *str; - XmapVal *val; - int ntype; -{ - /* - * Find a node that matches *string or allocate a new one - */ - if (ptr->ch != *(str->buf)) { - XmapNode *xm; - - for (xm = ptr; xm->sibling != NULL; xm = xm->sibling) - if (xm->sibling->ch == *(str->buf)) - break; - if (xm->sibling == NULL) - xm->sibling = GetFreeNode(str); /* setup new node */ - ptr = xm->sibling; - } - - str->buf++; - str->len--; - if (str->len == 0) { - /* we're there */ - if (ptr->next != NULL) { - PutFreeNode(ptr->next); /* lose longer Xkeys with this prefix */ - ptr->next = NULL; - } - - switch (ptr->type) { - case XK_STR: - case XK_EXE: - if (ptr->val.str.buf != NULL) - xfree((ptr_t) ptr->val.str.buf); - ptr->val.str.len = 0; - break; - case XK_NOD: - case XK_CMD: - break; - default: - abort(); - break; - } - - switch (ptr->type = ntype) { - case XK_CMD: - ptr->val = *val; - break; - case XK_STR: - case XK_EXE: - ptr->val.str.len = (val->str.len + 1) * sizeof(Char); - ptr->val.str.buf = (Char *) xmalloc((size_t) ptr->val.str.len); - (void) memmove((ptr_t) ptr->val.str.buf, (ptr_t) val->str.buf, - (size_t) ptr->val.str.len); - ptr->val.str.len = val->str.len; - break; - default: - abort(); - break; - } - } - else { - /* still more chars to go */ - if (ptr->next == NULL) - ptr->next = GetFreeNode(str); /* setup new node */ - (void) TryNode(ptr->next, str, val, ntype); - } - return (0); -} - -void -ClearXkey(map, in) - KEYCMD *map; - CStr *in; -{ - unsigned char c = (unsigned char) *(in->buf); - if ((map[c] == F_XKEY) && - ((map == CcKeyMap && CcAltMap[c] != F_XKEY) || - (map == CcAltMap && CcKeyMap[c] != F_XKEY))) - (void) DeleteXkey(in); -} - -int -DeleteXkey(Xkey) - CStr *Xkey; -{ - if (Xkey->len == 0) { - xprintf(CGETS(9, 3, "DeleteXkey: Null extended-key not allowed.\n")); - return (-1); - } - - if (Xmap == NULL) - return (0); - - (void) TryDeleteNode(&Xmap, Xkey); - return (0); -} - -static int -TryDeleteNode(inptr, str) - XmapNode **inptr; - CStr *str; -{ - XmapNode *ptr; - XmapNode *prev_ptr = NULL; - - ptr = *inptr; - /* - * Find a node that matches *string or allocate a new one - */ - if (ptr->ch != *(str->buf)) { - XmapNode *xm; - - for (xm = ptr; xm->sibling != NULL; xm = xm->sibling) - if (xm->sibling->ch == *(str->buf)) - break; - if (xm->sibling == NULL) - return (0); - prev_ptr = xm; - ptr = xm->sibling; - } - - str->buf++; - str->len--; - - if (str->len == 0) { - /* we're there */ - if (prev_ptr == NULL) - *inptr = ptr->sibling; - else - prev_ptr->sibling = ptr->sibling; - ptr->sibling = NULL; - PutFreeNode(ptr); - return (1); - } - else if (ptr->next != NULL && TryDeleteNode(&ptr->next, str) == 1) { - if (ptr->next != NULL) - return (0); - if (prev_ptr == NULL) - *inptr = ptr->sibling; - else - prev_ptr->sibling = ptr->sibling; - ptr->sibling = NULL; - PutFreeNode(ptr); - return (1); - } - else { - return (0); - } -} - -/* PutFreeNode(): - * Puts a tree of nodes onto free list using free(3). - */ -static void -PutFreeNode(ptr) - XmapNode *ptr; -{ - if (ptr == NULL) - return; - - if (ptr->next != NULL) { - PutFreeNode(ptr->next); - ptr->next = NULL; - } - - PutFreeNode(ptr->sibling); - - switch (ptr->type) { - case XK_CMD: - case XK_NOD: - break; - case XK_EXE: - case XK_STR: - if (ptr->val.str.buf != NULL) - xfree((ptr_t) ptr->val.str.buf); - break; - default: - abort(); - break; - } - xfree((ptr_t) ptr); -} - - -/* GetFreeNode(): - * Returns pointer to an XmapNode for ch. - */ -static XmapNode * -GetFreeNode(ch) - CStr *ch; -{ - XmapNode *ptr; - - ptr = (XmapNode *) xmalloc((size_t) sizeof(XmapNode)); - ptr->ch = ch->buf[0]; - ptr->type = XK_NOD; - ptr->val.str.buf = NULL; - ptr->val.str.len = 0; - ptr->next = NULL; - ptr->sibling = NULL; - return (ptr); -} - - -/* PrintXKey(): - * Print the binding associated with Xkey key. - * Print entire Xmap if null - */ -void -PrintXkey(key) - CStr *key; -{ - CStr cs; - - if (key) { - cs.buf = key->buf; - cs.len = key->len; - } - else { - cs.buf = STRNULL; - cs.len = 0; - } - /* do nothing if Xmap is empty and null key specified */ - if (Xmap == NULL && cs.len == 0) - return; - - printbuf[0] = '"'; - if (Lookup(&cs, Xmap, 1) <= -1) - /* key is not bound */ - xprintf(CGETS(9, 4, "Unbound extended key \"%S\"\n"), cs.buf); - return; -} - -/* Lookup(): - * look for the string starting at node ptr. - * Print if last node - */ -static int -Lookup(str, ptr, cnt) - CStr *str; - XmapNode *ptr; - int cnt; -{ - int ncnt; - - if (ptr == NULL) - return (-1); /* cannot have null ptr */ - - if (str->len == 0) { - /* no more chars in string. Enumerate from here. */ - (void) Enumerate(ptr, cnt); - return (0); - } - else { - /* If match put this char into printbuf. Recurse */ - if (ptr->ch == *(str->buf)) { - /* match found */ - ncnt = unparsech(cnt, &ptr->ch); - if (ptr->next != NULL) { - /* not yet at leaf */ - CStr tstr; - tstr.buf = str->buf + 1; - tstr.len = str->len - 1; - return (Lookup(&tstr, ptr->next, ncnt + 1)); - } - else { - /* next node is null so key should be complete */ - if (str->len == 1) { - CStr pb; - printbuf[ncnt + 1] = '"'; - printbuf[ncnt + 2] = '\0'; - pb.buf = printbuf; - pb.len = ncnt + 2; - (void) printOne(&pb, &ptr->val, ptr->type); - return (0); - } - else - return (-1);/* mismatch -- string still has chars */ - } - } - else { - /* no match found try sibling */ - if (ptr->sibling) - return (Lookup(str, ptr->sibling, cnt)); - else - return (-1); - } - } -} - -static int -Enumerate(ptr, cnt) - XmapNode *ptr; - int cnt; -{ - int ncnt; - - if (cnt >= MAXXKEY - 5) { /* buffer too small */ - printbuf[++cnt] = '"'; - printbuf[++cnt] = '\0'; - xprintf(CGETS(9, 5, - "Some extended keys too long for internal print buffer")); - xprintf(" \"%S...\"\n", printbuf); - return (0); - } - - if (ptr == NULL) { -#ifdef DEBUG_EDIT - xprintf(CGETS(9, 6, "Enumerate: BUG!! Null ptr passed\n!")); -#endif - return (-1); - } - - ncnt = unparsech(cnt, &ptr->ch); /* put this char at end of string */ - if (ptr->next == NULL) { - CStr pb; - /* print this Xkey and function */ - printbuf[++ncnt] = '"'; - printbuf[++ncnt] = '\0'; - pb.buf = printbuf; - pb.len = ncnt; - (void) printOne(&pb, &ptr->val, ptr->type); - } - else - (void) Enumerate(ptr->next, ncnt + 1); - - /* go to sibling if there is one */ - if (ptr->sibling) - (void) Enumerate(ptr->sibling, cnt); - return (0); -} - - -/* PrintOne(): - * Print the specified key and its associated - * function specified by val - */ -int -printOne(key, val, ntype) - CStr *key; - XmapVal *val; - int ntype; -{ - struct KeyFuncs *fp; - unsigned char unparsbuf[200]; - static char *fmt = "%s\n"; - - xprintf("%-15S-> ", key->buf); - if (val != NULL) - switch (ntype) { - case XK_STR: - case XK_EXE: - xprintf(fmt, unparsestring(&val->str, unparsbuf, - ntype == XK_STR ? STRQQ : STRBB)); - break; - case XK_CMD: - for (fp = FuncNames; fp->name; fp++) - if (val->cmd == fp->func) - xprintf(fmt, fp->name); - break; - default: - abort(); - break; - } - else - xprintf(fmt, key, CGETS(9, 7, "no input")); - return (0); -} - -static int -unparsech(cnt, ch) - int cnt; - Char *ch; -{ - if (ch == 0) { - printbuf[cnt++] = '^'; - printbuf[cnt] = '@'; - return cnt; - } - - if (Iscntrl(*ch)) { -#ifndef _OSD_POSIX - printbuf[cnt++] = '^'; - if (*ch == CTL_ESC('\177')) - printbuf[cnt] = '?'; - else - printbuf[cnt] = *ch | 0100; -#else /*_OSD_POSIX*/ - if (*ch == CTL_ESC('\177')) - { - printbuf[cnt++] = '^'; - printbuf[cnt] = '?'; - } - else if (Isupper(_toebcdic[_toascii[*ch]|0100]) - || strchr("@[\\]^_", _toebcdic[_toascii[*ch]|0100]) != NULL) - { - printbuf[cnt++] = '^'; - printbuf[cnt] = _toebcdic[_toascii[*ch]|0100]; - } - else - { - printbuf[cnt++] = '\\'; - printbuf[cnt++] = ((*ch >> 6) & 7) + '0'; - printbuf[cnt++] = ((*ch >> 3) & 7) + '0'; - printbuf[cnt] = (*ch & 7) + '0'; - } -#endif /*_OSD_POSIX*/ - } - else if (*ch == '^') { - printbuf[cnt++] = '\\'; - printbuf[cnt] = '^'; - } - else if (*ch == '\\') { - printbuf[cnt++] = '\\'; - printbuf[cnt] = '\\'; - } - else if (*ch == ' ' || (Isprint(*ch) && !Isspace(*ch))) { - printbuf[cnt] = *ch; - } - else { - printbuf[cnt++] = '\\'; - printbuf[cnt++] = ((*ch >> 6) & 7) + '0'; - printbuf[cnt++] = ((*ch >> 3) & 7) + '0'; - printbuf[cnt] = (*ch & 7) + '0'; - } - return cnt; -} - -int -parseescape(ptr) - const Char **ptr; -{ - const Char *p; - Char c; - - p = *ptr; - - if ((p[1] & CHAR) == 0) { - xprintf(CGETS(9, 8, "Something must follow: %c\n"), *p); - return -1; - } - if ((*p & CHAR) == '\\') { - p++; - switch (*p & CHAR) { - case 'a': - c = CTL_ESC('\007'); /* Bell */ - break; - case 'b': - c = CTL_ESC('\010'); /* Backspace */ - break; - case 'e': - c = CTL_ESC('\033'); /* Escape */ - break; - case 'f': - c = CTL_ESC('\014'); /* Form Feed */ - break; - case 'n': - c = CTL_ESC('\012'); /* New Line */ - break; - case 'r': - c = CTL_ESC('\015'); /* Carriage Return */ - break; - case 't': - c = CTL_ESC('\011'); /* Horizontal Tab */ - break; - case 'v': - c = CTL_ESC('\013'); /* Vertical Tab */ - break; - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - { - register int cnt, val, ch; - - for (cnt = 0, val = 0; cnt < 3; cnt++) { - ch = *p++ & CHAR; - if (ch < '0' || ch > '7') { - p--; - break; - } - val = (val << 3) | (ch - '0'); - } - if ((val & 0xffffff00) != 0) { - xprintf(CGETS(9, 9, - "Octal constant does not fit in a char.\n")); - return 0; - } -#ifdef _OSD_POSIX - if (CTL_ESC(val) != val && adrof(STRwarnebcdic)) - xprintf(/*CGETS(9, 9, no NLS-String yet!*/ - "Warning: Octal constant \\%3.3o is interpreted as EBCDIC value.\n", val/*)*/); -#endif - c = (Char) val; - --p; - } - break; - default: - c = *p; - break; - } - } - else if ((*p & CHAR) == '^' && (Isalpha(p[1] & CHAR) || - strchr("@^_?\\|[{]}", p[1] & CHAR))) { - p++; -#ifndef _OSD_POSIX - c = ((*p & CHAR) == '?') ? CTL_ESC('\177') : ((*p & CHAR) & 0237); -#else /*_OSD_POSIX*/ - c = ((*p & CHAR) == '?') ? CTL_ESC('\177') : _toebcdic[_toascii[*p & CHAR] & 0237]; - if (adrof(STRwarnebcdic)) - xprintf(/*CGETS(9, 9, no NLS-String yet!*/ - "Warning: Control character ^%c may be interpreted differently in EBCDIC.\n", *p & CHAR /*)*/); -#endif /*_OSD_POSIX*/ - } - else - c = *p; - *ptr = p; - return (c); -} - - -unsigned char * -unparsestring(str, buf, sep) - CStr *str; - unsigned char *buf; - Char *sep; -{ - unsigned char *b; - Char p; - int l; - - b = buf; - if (sep[0]) -#ifndef WINNT - *b++ = sep[0]; -#else /* WINNT */ - *b++ = CHAR & sep[0]; -#endif /* !WINNT */ - - for (l = 0; l < str->len; l++) { - p = str->buf[l]; - if (Iscntrl(p)) { -#ifndef _OSD_POSIX - *b++ = '^'; - if (p == CTL_ESC('\177')) - *b++ = '?'; - else - *b++ = (unsigned char) (p | 0100); -#else /*_OSD_POSIX*/ - if (_toascii[p] == '\177' || Isupper(_toebcdic[_toascii[p]|0100]) - || strchr("@[\\]^_", _toebcdic[_toascii[p]|0100]) != NULL) - { - *b++ = '^'; - *b++ = (_toascii[p] == '\177') ? '?' : _toebcdic[_toascii[p]|0100]; - } - else - { - *b++ = '\\'; - *b++ = ((p >> 6) & 7) + '0'; - *b++ = ((p >> 3) & 7) + '0'; - *b++ = (p & 7) + '0'; - } -#endif /*_OSD_POSIX*/ - } - else if (p == '^' || p == '\\') { - *b++ = '\\'; - *b++ = (unsigned char) p; - } - else if (p == ' ' || (Isprint(p) && !Isspace(p))) { - *b++ = (unsigned char) p; - } - else { - *b++ = '\\'; - *b++ = ((p >> 6) & 7) + '0'; - *b++ = ((p >> 3) & 7) + '0'; - *b++ = (p & 7) + '0'; - } - } - if (sep[0] && sep[1]) -#ifndef WINNT - *b++ = sep[1]; -#else /* WINNT */ - *b++ = CHAR & sep[1]; -#endif /* !WINNT */ - *b++ = 0; - return buf; /* should check for overflow */ -} diff --git a/contrib/tcsh/eight-bit.me b/contrib/tcsh/eight-bit.me deleted file mode 100644 index 466f0116d9c8..000000000000 --- a/contrib/tcsh/eight-bit.me +++ /dev/null @@ -1,143 +0,0 @@ -.\" $Id: eight-bit.me,v 3.1 1991/09/12 09:25:57 christos Exp $ -How to use 8 bit characters -by -Johan Widen -(jw@sics.se) -and -Per Hedeland -(per@erix.ericsson.se) - -.pp -(Disclaimer: This is really a sketch of an approach rather -than a "how-to" document. -Also, it is mostly relevant to Swedish X Window users...) - -.pp -The way I use this facility at present is to add lines such as the following -to my .cshrc: - -.nf -setenv NOREBIND -setenv LC_CTYPE iso_8859_1 -foreach key ( \\\\304 \\\\305 \\\\326 \\\\344 \\\\345 \\\\366 ) - bindkey $key self-insert-command -end -.fi - -.pp -Note that if I used a system with a reasonably complete NLS -(and a tcsh compiled to use it), -all of the above could be replaced with simply setting the LANG environment -variable to an appropriate value - the NLS would then indicate exactly which -characters should be considered printable, and tcsh would do the rebinding -of these automatically. The above works for tcsh's simulated NLS and for -the NLS in SunOS 4.1 - without the NOREBIND setting, all of the -Meta-<non-control-character> bindings would be undone in these cases. - -.pp -These keybindings are the codes for my national characters, but the bindings -(M-d, M-e etc) are not conveniently placed. -They are however consistent with what other programs will see. - -.pp -Now: I actually want the character \\304 to be inserted when I press say '{' -together with a modifier key. I want the behavior to be the same not only -in tcsh but in say cat, an editor and all other programs. I fix this by -performing a keyboard remapping with the -.i xmodmap -program (I use X Windows). - -.pp -I give xmodmap an input something like the following: - -.nf -keycode 26 = Mode_switch -add mod2 = Mode_switch -! if you want Mode_switch to toggle, at the expense of losing -! Caps- or whatever Lock you currently have, add the two lines below -! clear Lock -! add Lock = Mode_switch -! Binds swedish characters on ][\\ -! -keycode 71 = bracketleft braceleft adiaeresis Adiaeresis -keycode 72 = bracketright braceright aring Aring -keycode 95 = backslash bar odiaeresis Odiaeresis -.fi - -or: - -.nf -keysym Alt_R = Mode_switch -add mod2 = Mode_switch -keysym bracketleft = bracketleft braceleft Adiaeresis adiaeresis -keysym bracketright = bracketright braceright Aring aring -keysym backslash = backslash bar Odiaeresis odiaeresis -.fi - -Another, more portable way of doing the same thing is: - -.nf -#!/bin/sh -# Make Alt-] etc produce the "appropriate" Swedish iso8859/1 keysym values -# Should handle fairly strange initial mappings - -xmodmap -pk | sed -e 's/[()]//g' | \\ -awk 'BEGIN { - alt["bracketright"] = "Aring"; alt["braceright"] = "aring"; - alt["bracketleft"] = "Adiaeresis"; alt["braceleft"] = "adiaeresis"; - alt["backslash"] = "Odiaeresis"; alt["bar"] = "odiaeresis"; -} -NF >= 5 && (alt[$3] != "" || alt[$5] != "") { - printf "keycode %s = %s %s ", $1, $3, $5; - if (alt[$3] != "") printf "%s ", alt[$3]; - else printf "%s ", $3; - printf "%s\\n", alt[$5]; - next; -} -alt[$3] != "" { - printf "keycode %s = %s %s %s\\n", $1, $3, $3, alt[$3]; -} -NF >= 5 && ($3 ~ /^Alt_[LR]$/ || $5 ~ /^Alt_[LR]$/) { - printf "keycode %s = %s %s Mode_switch\\n", $1, $3, $5; - if ($3 ~ /^Alt_[LR]$/) altkeys = altkeys " " $3; - else altkeys = altkeys " " $5; - next; -} -$3 ~ /^Alt_[LR]$/ { - printf "keycode %s = %s %s Mode_switch\\n", $1, $3, $3; - altkeys = altkeys " " $3; -} -END { - if (altkeys != "") printf "clear mod2\\nadd mod2 =%s\\n", altkeys; -}' | xmodmap - -.fi - -.pp -Finally, with the binding of the codes of my national characters to -self-insert-command, I lost the ability to use the Meta key to call the -functions previously bound to M-d, M-e, and M-v (<esc>d etc still works). -However, with the assumption that -most of my input to tcsh will be through the -.i xterm -terminal emulator, I can get that ability back via xterm bindings! -Since M-d is the only one of the "lost" key combinations that was -actually bound to a function in my case, -and it had the same binding as M-D, I can use the following in -my .Xdefaults file: - -.nf -XTerm*VT100.Translations: #override \\n\\ - Meta ~Ctrl<Key>d: string(0x1b) string(d) -.fi - -- or, if I really want a complete mapping: - -.nf -XTerm*VT100.Translations: #override \\n\\ - :Meta ~Ctrl<Key>d: string(0x1b) string(d) \\n\\ - :Meta ~Ctrl<Key>D: string(0x1b) string(D) \\n\\ - :Meta ~Ctrl<Key>e: string(0x1b) string(e) \\n\\ - :Meta ~Ctrl<Key>E: string(0x1b) string(E) \\n\\ - :Meta ~Ctrl<Key>v: string(0x1b) string(v) \\n\\ - :Meta ~Ctrl<Key>V: string(0x1b) string(V) -.fi diff --git a/contrib/tcsh/gethost.c b/contrib/tcsh/gethost.c deleted file mode 100644 index 236be59b7867..000000000000 --- a/contrib/tcsh/gethost.c +++ /dev/null @@ -1,344 +0,0 @@ -/* $Header: /src/pub/tcsh/gethost.c,v 1.7 1997/10/28 22:34:19 christos Exp $ */ -/* - * gethost.c: Create version file from prototype - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: gethost.c,v 1.7 1997/10/28 22:34:19 christos Exp $") - -#ifdef SCO -# define perror __perror -# define rename __rename -# define getopt __getopt -# define system __system -#endif -#include <stdio.h> -#ifdef SCO -# undef perror -# undef rename -# undef getopt -# undef system -#endif - -#include <ctype.h> - -/* Some people don't bother to declare these */ -#if defined(SUNOS4) || defined(ibm032) -extern int fprintf(); -extern int fclose(); -#endif /* SUNOS4 || ibm032 */ - -#define ISSPACE(p) (isspace((unsigned char) (p)) && (p) != '\n') - -/* - * We cannot do that, because some compilers like #line and others - * like # <lineno> - * #define LINEDIRECTIVE - */ - -static const char *keyword[] = -{ - "vendor", -#define T_VENDOR 0 - "hosttype", -#define T_HOSTTYPE 1 - "machtype", -#define T_MACHTYPE 2 - "ostype", -#define T_OSTYPE 3 - "newdef", -#define T_NEWDEF 4 - "enddef", -#define T_ENDDEF 5 - "newcode", -#define T_NEWCODE 6 - "endcode", -#define T_ENDCODE 7 - "comment", -#define T_COMMENT 8 - "macro", -#define T_MACRO 9 - NULL -#define T_NONE 10 -}; - -#define S_DISCARD 0 -#define S_COMMENT 1 -#define S_CODE 2 -#define S_KEYWORD 3 - -static int findtoken __P((char *)); -static char *gettoken __P((char **, char *)); - -int main __P((int, char *[])); - -/* findtoken(): - * Return the token number of the given token - */ -static int -findtoken(ptr) - char *ptr; -{ - int i; - - if (ptr == NULL || *ptr == '\0') - return T_NONE; - - for (i = 0; keyword[i] != NULL; i++) - if (strcmp(keyword[i], ptr) == 0) - return i; - - return T_NONE; -} - - -/* gettoken(): - * Get : delimited token and remove leading/trailing blanks/newlines - */ -static char * -gettoken(pptr, token) - char **pptr; - char *token; -{ - char *ptr = *pptr; - char *tok = token; - - for (; *ptr && ISSPACE(*ptr); ptr++) - continue; - - for (; *ptr && *ptr != ':'; *tok++ = *ptr++) - continue; - - if (*ptr == ':') - ptr++; - else - tok--; - - for (tok--; tok >= token && *tok && ISSPACE(*tok); tok--) - continue; - - *++tok = '\0'; - - *pptr = ptr; - return token; -} - - -int -main(argc, argv) - int argc; - char *argv[]; -{ - char line[INBUFSIZE]; - char *pname; - char *fname = "stdin"; - char *ptr, *tok; - char defs[INBUFSIZE]; - char stmt[INBUFSIZE]; - FILE *fp = stdin; - int lineno = 0; - int inprocess = 0; - int token, state; - int errs = 0; - - if ((pname = strrchr(argv[0], '/')) == NULL) - pname = argv[0]; - else - pname++; - - if (argc > 2) { - (void) fprintf(stderr, "Usage: %s [<filename>]\n", pname); - return 1; - } - - if (argc == 2) - if ((fp = fopen(fname = argv[1], "r")) == NULL) { - (void) fprintf(stderr, "%s: Cannot open `%s'\n", pname, fname); - return 1; - } - - state = S_DISCARD; - - while ((ptr = fgets(line, sizeof(line), fp)) != NULL) { - lineno++; - switch (token = findtoken(gettoken(&ptr, defs))) { - case T_NEWCODE: - state = S_CODE; - break; - - case T_ENDCODE: - state = S_DISCARD; - break; - - case T_COMMENT: - state = S_COMMENT; - break; - - case T_NEWDEF: - state = S_KEYWORD; - break; - - case T_ENDDEF: - state = S_DISCARD; - break; - - case T_VENDOR: - state = S_KEYWORD; - break; - - case T_HOSTTYPE: - state = S_KEYWORD; - break; - - case T_MACHTYPE: - state = S_KEYWORD; - break; - - case T_OSTYPE: - state = S_KEYWORD; - break; - - case T_MACRO: - if (gettoken(&ptr, defs) == NULL) { - (void) fprintf(stderr, "%s: \"%s\", %d: Missing macro name\n", - pname, fname, lineno); - break; - } - if (gettoken(&ptr, stmt) == NULL) { - (void) fprintf(stderr, "%s: \"%s\", %d: Missing macro body\n", - pname, fname, lineno); - break; - } - (void) fprintf(stdout, "\n#if %s\n# define %s\n#endif\n\n", stmt, - defs); - break; - - case T_NONE: - if (state != S_CODE && defs && *defs != '\0') { - (void) fprintf(stderr, "%s: \"%s\", %d: Discarded\n", - pname, fname, lineno); - if (++errs == 30) { - (void) fprintf(stderr, "%s: Too many errors\n", pname); - return 1; - } - break; - } - (void) fprintf(stdout, "%s", line); - break; - - default: - (void) fprintf(stderr, "%s: \"%s\", %d: Unexpected token\n", - pname, fname, lineno); - return 1; - } - - switch (state) { - case S_DISCARD: - if (inprocess) { - inprocess = 0; - (void) fprintf(stdout, "#endif\n"); - } - break; - - case S_KEYWORD: - tok = gettoken(&ptr, defs); - if (token == T_NEWDEF) { - if (inprocess) { - (void) fprintf(stderr, "%s: \"%s\", %d: Missing enddef\n", - pname, fname, lineno); - return 1; - } - if (tok == NULL) { - (void) fprintf(stderr, "%s: \"%s\", %d: No defs\n", - pname, fname, lineno); - return 1; - } - (void) fprintf(stdout, "\n\n"); -#ifdef LINEDIRECTIVE - (void) fprintf(stdout, "# %d \"%s\"\n", lineno + 1, fname); -#endif /* LINEDIRECTIVE */ - (void) fprintf(stdout, "#if %s\n", defs); - inprocess = 1; - } - else { - if (tok && *tok) - (void) fprintf(stdout, "# if (%s) && !defined(_%s_)\n", - defs, keyword[token]); - else - (void) fprintf(stdout, "# if !defined(_%s_)\n", - keyword[token]); - - if (gettoken(&ptr, stmt) == NULL) { - (void) fprintf(stderr, "%s: \"%s\", %d: No statement\n", - pname, fname, lineno); - return 1; - } - (void) fprintf(stdout, "# define _%s_\n", keyword[token]); - (void) fprintf(stdout, " %s = %s;\n", keyword[token], stmt); - (void) fprintf(stdout, "# endif\n"); - } - break; - - case S_COMMENT: - if (gettoken(&ptr, defs)) - (void) fprintf(stdout, " /* %s */\n", defs); - break; - - case S_CODE: - if (token == T_NEWCODE) { -#ifdef LINEDIRECTIVE - (void) fprintf(stdout, "# %d \"%s\"\n", lineno + 1, fname); -#endif /* LINEDIRECTIVE */ - } - break; - - default: - (void) fprintf(stderr, "%s: \"%s\", %d: Unexpected state\n", - pname, fname, lineno); - return 1; - } - } - - if (inprocess) { - (void) fprintf(stderr, "%s: \"%s\", %d: Missing enddef\n", - pname, fname, lineno); - return 1; - } - - if (fp != stdin) - (void) fclose(fp); - - return 0; -} diff --git a/contrib/tcsh/glob.3 b/contrib/tcsh/glob.3 deleted file mode 100644 index 2fc84e06bd6a..000000000000 --- a/contrib/tcsh/glob.3 +++ /dev/null @@ -1,326 +0,0 @@ -.\" Copyright (c) 1989 The Regents of the University of California. -.\" All rights reserved. -.\" -.\" This code is derived from software contributed to Berkeley by -.\" Guido van Rossum. -.\" -.\" Redistribution and use in source and binary forms are permitted provided -.\" that: (1) source distributions retain this entire copyright notice and -.\" comment, and (2) distributions including binaries display the following -.\" acknowledgement: ``This product includes software developed by the -.\" University of California, Berkeley and its contributors'' in the -.\" documentation or other materials provided with the distribution and in -.\" all advertising materials mentioning features or use of this software. -.\" Neither the name of the University nor the names of its contributors may -.\" be used to endorse or promote products derived from this software without -.\" specific prior written permission. -.\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED -.\" WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF -.\" MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. -.\" -.\" @(#)glob.3 5.3 (Berkeley) 3/19/91 -.\" -.TH GLOB 3 "March 19, 1991" -.UC 7 -.SH NAME -glob, globfree \- generate pathnames matching a pattern -.SH SYNOPSIS -.nf -#include <glob.h> - -glob(const char *pattern, int flags, - const int (*errfunc)(char *, int), glob_t *pglob); - -void globfree(glob_t *pglob); -.fi -.SH DESCRIPTION -.I Glob -is a pathname generator that implements the rules for file name pattern -matching used by the shell. -.PP -The include file -.I glob.h -defines the structure type -.IR glob_t , -which contains at least the following fields: -.sp -.RS -.nf -.ta .5i +\w'char **gl_pathv;\0\0\0'u -typedef struct { - int gl_pathc; /* count of total paths so far */ - int gl_matchc; /* count of paths matching pattern */ - int gl_offs; /* reserved at beginning of gl_pathv */ - int gl_flags; /* returned flags */ - char **gl_pathv; /* list of paths matching pattern */ -} glob_t; -.fi -.RE -.PP -The argument -.I pattern -is a pointer to a pathname pattern to be expanded. -.I Glob -matches all accessible pathnames against the pattern and creates -a list of the pathnames that match. -In order to have access to a pathname, -.I glob -requires search permission on every component of a path except the last -and read permission on each directory of any filename component of -.I pattern -that contains any of the special characters ``*'', ``?'' or ``[''. -.PP -.I Glob -stores the number of matched pathnames into the -.I gl_pathc -field, and a pointer to a list of pointers to pathnames into the -.I gl_pathv -field. -The first pointer after the last pathname is NULL. -If the pattern does not match any pathnames, the returned number of -matched paths is set to zero. -.PP -It is the caller's responsibility to create the structure pointed to by -.IR pglob . -The -.I glob -function allocates other space as needed, including the memory pointed -to by -.IR gl_pathv . -.PP -The argument -.I flags -is used to modify the behavior of -.IR glob . -The value of -.I flags -is the bitwise inclusive OR of any of the following -values defined in -.IR glob.h : -.TP -GLOB_APPEND -Append pathnames generated to the ones from a previous call (or calls) -to -.IR glob . -The value of -.I gl_pathc -will be the total matches found by this call and the previous call(s). -The pathnames are appended to, not merged with the pathnames returned by -the previous call(s). -Between calls, the caller must not change the setting of the -GLOB_DOOFFS flag, nor change the value of -.I gl_offs -when -GLOB_DOOFFS is set, nor (obviously) call -.I globfree -for -.I pglob. -.TP -GLOB_DOOFFS -Make use of the -.I gl_offs -field. -If this flag is set, -.I gl_offs -is used to specify how many NULL pointers to prepend to the beginning -of the -.I gl_pathv -field. -In other words, -.I gl_pathv -will point to -.I gl_offs -NULL pointers, -followed by -.I gl_pathc -pathname pointers, followed by a NULL pointer. -.TP -GLOB_ERR -Causes -.I glob -to return when it encounters a directory that it cannot open or read. -Ordinarily, -.I glob -continues to find matches. -.TP -GLOB_MARK -Each pathname that is a directory that matches -.I pattern -has a slash -appended. -.TP -GLOB_NOSORT -By default, the pathnames are sorted in ascending ASCII order; -this flag prevents that sorting (speeding up -.IR glob ). -.TP -GLOB_NOCHECK -If -.I pattern -does not match any pathname, then -.I glob -returns a list -consisting of only -.IR pattern , -with the number of total pathnames is set to 1, and the number of matched -pathnames set to 0. -If -.I GLOB_QUOTE -is set, its effect is present in the pattern returned. -.TP -GLOB_QUOTE -Use the backslash (``\e'') character for quoting: every occurrence of -a backslash followed by a character in the pattern is replaced by that -character, avoiding any special interpretation of the character. -.TP -GLOB_NOMAGIC -Is the same as GLOB_NOCHECK but it only appends the -.IR pattern -if it does not contain any of the special characters ``*'', ``?'' or ``[''. -GLOB_NOMAGIC is used to simplify implementing the globbing behavior in -.IR csh(1). -.PP -If, during the search, a directory is encountered that cannot be opened -or read and -.I errfunc -is non-NULL, -.I glob -calls (*\fIerrfunc\fP)(\fIpath\fP, \fIerrno\fP). -This may be unintuitive: a pattern like ``*/Makefile'' will try to -.IR stat (2) -``foo/Makefile'' even if ``foo'' is not a directory, resulting in a -call to -.IR errfunc . -The error routine can suppress this action by testing for ENOENT and -ENOTDIR; however, the GLOB_ERR flag will still cause an immediate -return when this happens. -.PP -If -.I errfunc -returns non-zero, -.I glob -stops the scan and returns -.I GLOB_ABEND -after setting -.I gl_pathc -and -.I gl_pathv -to reflect any paths already matched. -This also happens if an error is encountered and -.I GLOB_ERR -is set in -.IR flags , -regardless of the return value of -.IR errfunc , -if called. -If -.I GLOB_ERR -is not set and either -.I errfunc -is NULL or -.I errfunc -returns zero, the error is ignored. -.PP -The -.I globfree -function frees any space associated with -.I pglob -from a previous call(s) to -.IR glob . -.SH RETURNS -On successful completion, -.I glob -returns zero. -In addition the fields of -.I pglob -contain the values described below: -.TP -.I gl_pathc -contains the total number of matched pathnames so far. -This includes other matches from previous invocations of -.I glob -if -.I GLOB_APPEND -was specified. -.TP -.I gl_matchc -contains the number of matched pathnames in the current invocation of -.I glob. -.TP -.I gl_flags -contains a copy of the -.I flags -parameter with the bit GLOB_MAGCHAR set if -.I pattern -contained any of the special characters ``*'', ``?'' or ``['', cleared -if not. -.TP -.I gl_pathv -contains a pointer to a NULL-terminated list of matched pathnames. -However, if -.I gl_pathc -is zero, the contents of -.I gl_pathv -are undefined. -.PP -If -.I glob -terminates due to an error, it sets errno and returns one of the -following non-zero constants, which are defined in the include -file <glob.h>: -.TP -GLOB_NOSPACE -An attempt to allocate memory failed. -.TP -GLOB_ABEND -The scan was stopped because an error was encountered and either -GLOB_ERR was set or (*\fIerrfunc\fR)() returned non-zero. -.PP -The arguments -.I pglob->gl_pathc -and -.I pglob->gl_pathv -are still set as specified above. -.SH STANDARDS -The -.I glob -function is expected to be POSIX 1003.2 compatible with the exception -that the flag -.I GLOB_QUOTE -and the fields -.I gl_matchc -and -.I gl_flags -should not be used by applications striving for strict POSIX conformance. -.SH EXAMPLE -A rough equivalent of ``ls -l *.c *.h'' can be obtained with the -following code: -.sp -.nf -.RS -glob_t g; - -g.gl_offs = 2; -glob("*.c", GLOB_DOOFFS, NULL, &g); -glob("*.h", GLOB_DOOFFS | GLOB_APPEND, NULL, &g); -g.gl_pathv[0] = "ls"; -g.gl_pathv[1] = "-l"; -execvp("ls", g.gl_pathv); -.RE -.fi -.SH SEE ALSO -sh(1), fnmatch(3), wordexp(3), regexp(3) -.SH BUGS -Patterns longer than MAXPATHLEN may cause unchecked errors. -.PP -.I Glob -may fail and set errno for any of the errors specified for the -library routines -.I stat (2), -.I closedir (3), -.I opendir (3), -.I readdir (3), -.I malloc (3), -and -.I free (3). - diff --git a/contrib/tcsh/glob.c b/contrib/tcsh/glob.c deleted file mode 100644 index f6a2fd213dff..000000000000 --- a/contrib/tcsh/glob.c +++ /dev/null @@ -1,745 +0,0 @@ -/* - * Copyright (c) 1989 The Regents of the University of California. - * All rights reserved. - * - * This code is derived from software contributed to Berkeley by - * Guido van Rossum. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#if defined(LIBC_SCCS) && !defined(lint) -static char sccsid[] = "@(#)glob.c 5.12 (Berkeley) 6/24/91"; -#endif /* LIBC_SCCS and not lint */ -/* - * Glob: the interface is a superset of the one defined in POSIX 1003.2, - * draft 9. - * - * The [!...] convention to negate a range is supported (SysV, Posix, ksh). - * - * Optional extra services, controlled by flags not defined by POSIX: - * - * GLOB_QUOTE: - * Escaping convention: \ inhibits any special meaning the following - * character might have (except \ at end of string is retained). - * GLOB_MAGCHAR: - * Set in gl_flags if pattern contained a globbing character. - * GLOB_ALTNOT: - * Use ^ instead of ! for "not". - * gl_matchc: - * Number of matches in the current invocation of glob. - */ - -#ifdef notdef -#include <sys/types.h> -#include <sys/param.h> -#include <sys/stat.h> -#include <dirent.h> -#include <ctype.h> -typedef void * ptr_t; -#endif -#ifdef WINNT - #pragma warning(disable:4244) -#endif /* WINNT */ - -#define Char __Char -#include "sh.h" -#undef Char -#undef QUOTE -#undef TILDE -#undef META -#undef CHAR -#undef ismeta -#undef Strchr - -#include "glob.h" - -#ifndef S_ISDIR -#define S_ISDIR(a) (((a) & S_IFMT) == S_IFDIR) -#endif - -#if !defined(S_ISLNK) && defined(S_IFLNK) -#define S_ISLNK(a) (((a) & S_IFMT) == S_IFLNK) -#endif - -#if !defined(S_ISLNK) && !defined(lstat) -#define lstat stat -#endif - -typedef unsigned short Char; - -static int glob1 __P((Char *, glob_t *, int)); -static int glob2 __P((Char *, Char *, Char *, glob_t *, int)); -static int glob3 __P((Char *, Char *, Char *, Char *, - glob_t *, int)); -static int globextend __P((Char *, glob_t *)); -static int match __P((Char *, Char *, Char *, int)); -#ifndef __clipper__ -static int compare __P((const ptr_t, const ptr_t)); -#endif -static DIR *Opendir __P((Char *)); -#ifdef S_IFLNK -static int Lstat __P((Char *, struct stat *)); -#endif -static int Stat __P((Char *, struct stat *sb)); -static Char *Strchr __P((Char *, int)); -#ifdef DEBUG -static void qprintf __P((Char *)); -#endif - -#define DOLLAR '$' -#define DOT '.' -#define EOS '\0' -#define LBRACKET '[' -#define NOT '!' -#define ALTNOT '^' -#define QUESTION '?' -#define QUOTE '\\' -#define RANGE '-' -#define RBRACKET ']' -#define SEP '/' -#define STAR '*' -#define TILDE '~' -#define UNDERSCORE '_' - -#define M_META 0x8000 -#define M_PROTECT 0x4000 -#define M_MASK 0xffff -#define M_ASCII 0x00ff - -#define CHAR(c) ((c)&M_ASCII) -#define META(c) ((c)|M_META) -#define M_ALL META('*') -#define M_END META(']') -#define M_NOT META('!') -#define M_ALTNOT META('^') -#define M_ONE META('?') -#define M_RNG META('-') -#define M_SET META('[') -#define ismeta(c) (((c)&M_META) != 0) - -#ifndef BUFSIZE -#define GLOBBUFLEN MAXPATHLEN -#else -#define GLOBBUFLEN BUFSIZE -#endif - -int -globcharcoll(c1, c2) - int c1, c2; -{ -#if defined(NLS) && defined(LC_COLLATE) && !defined(NOSTRCOLL) - char s1[2], s2[2]; - - if (c1 == c2) - return (0); - /* - * From kevin lyda <kevin@suberic.net>: - * strcoll does not guarantee case sorting, so we pre-process now: - */ - if (islower(c1) && isupper(c2)) - return (1); - s1[0] = c1; - s2[0] = c2; - s1[1] = s2[1] = '\0'; - return strcoll(s1, s2); -#else - return (c1 - c2); -#endif -} - -/* - * Need to dodge two kernel bugs: - * opendir("") != opendir(".") - * NAMEI_BUG: on plain files trailing slashes are ignored in some kernels. - * POSIX specifies that they should be ignored in directories. - */ - -static DIR * -Opendir(str) - register Char *str; -{ - char buf[GLOBBUFLEN]; - register char *dc = buf; -#if defined(hpux) || defined(__hpux) - struct stat st; -#endif - - if (!*str) - return (opendir(".")); - while ((*dc++ = *str++) != '\0') - continue; -#if defined(hpux) || defined(__hpux) - /* - * Opendir on some device files hangs, so avoid it - */ - if (stat(buf, &st) == -1 || !S_ISDIR(st.st_mode)) - return NULL; -#endif - return (opendir(buf)); -} - -#ifdef S_IFLNK -static int -Lstat(fn, sb) - register Char *fn; - struct stat *sb; -{ - char buf[GLOBBUFLEN]; - register char *dc = buf; - - while ((*dc++ = *fn++) != '\0') - continue; -# ifdef NAMEI_BUG - { - int st; - - st = lstat(buf, sb); - if (*buf) - dc--; - return (*--dc == '/' && !S_ISDIR(sb->st_mode) ? -1 : st); - } -# else - return (lstat(buf, sb)); -# endif /* NAMEI_BUG */ -} -#else -#define Lstat Stat -#endif /* S_IFLNK */ - -static int -Stat(fn, sb) - register Char *fn; - struct stat *sb; -{ - char buf[GLOBBUFLEN]; - register char *dc = buf; - - while ((*dc++ = *fn++) != '\0') - continue; -#ifdef NAMEI_BUG - { - int st; - - st = stat(buf, sb); - if (*buf) - dc--; - return (*--dc == '/' && !S_ISDIR(sb->st_mode) ? -1 : st); - } -#else - return (stat(buf, sb)); -#endif /* NAMEI_BUG */ -} - -static Char * -Strchr(str, ch) - Char *str; - int ch; -{ - do - if (*str == ch) - return (str); - while (*str++); - return (NULL); -} - -#ifdef DEBUG -static void -qprintf(s) -Char *s; -{ - Char *p; - - for (p = s; *p; p++) - printf("%c", *p & 0xff); - printf("\n"); - for (p = s; *p; p++) - printf("%c", *p & M_PROTECT ? '"' : ' '); - printf("\n"); - for (p = s; *p; p++) - printf("%c", *p & M_META ? '_' : ' '); - printf("\n"); -} -#endif /* DEBUG */ - -static int -compare(p, q) - const ptr_t p, q; -{ -#if defined(NLS) && !defined(NOSTRCOLL) - errno = 0; /* strcoll sets errno, another brain-damage */ - - return (strcoll(*(char **) p, *(char **) q)); -#else - return (strcmp(*(char **) p, *(char **) q)); -#endif /* NLS && !NOSTRCOLL */ -} - -/* - * The main glob() routine: compiles the pattern (optionally processing - * quotes), calls glob1() to do the real pattern matching, and finally - * sorts the list (unless unsorted operation is requested). Returns 0 - * if things went well, nonzero if errors occurred. It is not an error - * to find no matches. - */ -int -glob(pattern, flags, errfunc, pglob) - const char *pattern; - int flags; - int (*errfunc) __P((const char *, int)); - glob_t *pglob; -{ - int err, oldpathc; - Char *bufnext, *bufend, *compilebuf, m_not; - const unsigned char *compilepat, *patnext; - int c, not; - Char patbuf[GLOBBUFLEN + 1], *qpatnext; - int no_match; - - patnext = (unsigned char *) pattern; - if (!(flags & GLOB_APPEND)) { - pglob->gl_pathc = 0; - pglob->gl_pathv = NULL; - if (!(flags & GLOB_DOOFFS)) - pglob->gl_offs = 0; - } - pglob->gl_flags = flags & ~GLOB_MAGCHAR; - pglob->gl_errfunc = errfunc; - oldpathc = pglob->gl_pathc; - pglob->gl_matchc = 0; - - if (pglob->gl_flags & GLOB_ALTNOT) { - not = ALTNOT; - m_not = M_ALTNOT; - } - else { - not = NOT; - m_not = M_NOT; - } - - bufnext = patbuf; - bufend = bufnext + GLOBBUFLEN; - compilebuf = bufnext; - compilepat = patnext; - - no_match = *patnext == not; - if (no_match) - patnext++; - - if (flags & GLOB_QUOTE) { - /* Protect the quoted characters */ - while (bufnext < bufend && (c = *patnext++) != EOS) -#ifdef DSPMBYTE - if (Ismbyte1(c) && *patnext != EOS) - { - *bufnext++ = (Char) c; - *bufnext++ = (Char) *patnext++; - } - else -#endif /* DSPMBYTE */ - if (c == QUOTE) { - if ((c = *patnext++) == EOS) { - c = QUOTE; - --patnext; - } - *bufnext++ = (Char) (c | M_PROTECT); - } - else - *bufnext++ = (Char) c; - } - else - while (bufnext < bufend && (c = *patnext++) != EOS) - *bufnext++ = (Char) c; - *bufnext = EOS; - - bufnext = patbuf; - qpatnext = patbuf; - /* we don't need to check for buffer overflow any more */ - while ((c = *qpatnext++) != EOS) { -#ifdef DSPMBYTE - if (Ismbyte1(c) && *qpatnext != EOS) - { - *bufnext++ = CHAR(c); - *bufnext++ = CHAR(*qpatnext++); - } - else -#endif /* DSPMBYTE */ - switch (c) { - case LBRACKET: - c = *qpatnext; - if (c == not) - ++qpatnext; - if (*qpatnext == EOS || - Strchr(qpatnext + 1, RBRACKET) == NULL) { - *bufnext++ = LBRACKET; - if (c == not) - --qpatnext; - break; - } - pglob->gl_flags |= GLOB_MAGCHAR; - *bufnext++ = M_SET; - if (c == not) - *bufnext++ = m_not; - c = *qpatnext++; - do { - *bufnext++ = CHAR(c); - if (*qpatnext == RANGE && - (c = qpatnext[1]) != RBRACKET) { - *bufnext++ = M_RNG; - *bufnext++ = CHAR(c); - qpatnext += 2; - } - } while ((c = *qpatnext++) != RBRACKET); - *bufnext++ = M_END; - break; - case QUESTION: - pglob->gl_flags |= GLOB_MAGCHAR; - *bufnext++ = M_ONE; - break; - case STAR: - pglob->gl_flags |= GLOB_MAGCHAR; - /* collapse adjacent stars to one, to avoid - * exponential behavior - */ - if (bufnext == patbuf || bufnext[-1] != M_ALL) - *bufnext++ = M_ALL; - break; - default: - *bufnext++ = CHAR(c); - break; - } - } - *bufnext = EOS; -#ifdef DEBUG - qprintf(patbuf); -#endif - - if ((err = glob1(patbuf, pglob, no_match)) != 0) - return (err); - - /* - * If there was no match we are going to append the pattern - * if GLOB_NOCHECK was specified or if GLOB_NOMAGIC was specified - * and the pattern did not contain any magic characters - * GLOB_NOMAGIC is there just for compatibility with csh. - */ - if (pglob->gl_pathc == oldpathc && - ((flags & GLOB_NOCHECK) || - ((flags & GLOB_NOMAGIC) && !(pglob->gl_flags & GLOB_MAGCHAR)))) { - if (!(flags & GLOB_QUOTE)) { - Char *dp = compilebuf; - const unsigned char *sp = compilepat; - - while ((*dp++ = *sp++) != '\0') - continue; - } - else { - /* - * copy pattern, interpreting quotes; this is slightly different - * than the interpretation of quotes above -- which should prevail? - */ - while (*compilepat != EOS) { - if (*compilepat == QUOTE) { - if (*++compilepat == EOS) - --compilepat; - } - *compilebuf++ = (unsigned char) *compilepat++; - } - *compilebuf = EOS; - } - return (globextend(patbuf, pglob)); - } - else if (!(flags & GLOB_NOSORT) && (pglob->gl_pathc != oldpathc)) - qsort((char *) (pglob->gl_pathv + pglob->gl_offs + oldpathc), - pglob->gl_pathc - oldpathc, sizeof(char *), - (int (*) __P((const void *, const void *))) compare); - return (0); -} - -static int -glob1(pattern, pglob, no_match) - Char *pattern; - glob_t *pglob; - int no_match; -{ - Char pathbuf[GLOBBUFLEN + 1]; - - /* - * a null pathname is invalid -- POSIX 1003.1 sect. 2.4. - */ - if (*pattern == EOS) - return (0); - return (glob2(pathbuf, pathbuf, pattern, pglob, no_match)); -} - -/* - * functions glob2 and glob3 are mutually recursive; there is one level - * of recursion for each segment in the pattern that contains one or - * more meta characters. - */ -static int -glob2(pathbuf, pathend, pattern, pglob, no_match) - Char *pathbuf, *pathend, *pattern; - glob_t *pglob; - int no_match; -{ - struct stat sbuf; - int anymeta; - Char *p, *q; - - /* - * loop over pattern segments until end of pattern or until segment with - * meta character found. - */ - anymeta = 0; - for (;;) { - if (*pattern == EOS) { /* end of pattern? */ - *pathend = EOS; - - if (Lstat(pathbuf, &sbuf)) - return (0); - - if (((pglob->gl_flags & GLOB_MARK) && - pathend[-1] != SEP) && - (S_ISDIR(sbuf.st_mode) -#ifdef S_IFLNK - || (S_ISLNK(sbuf.st_mode) && - (Stat(pathbuf, &sbuf) == 0) && - S_ISDIR(sbuf.st_mode)) -#endif - )) { - *pathend++ = SEP; - *pathend = EOS; - } - ++pglob->gl_matchc; - return (globextend(pathbuf, pglob)); - } - - /* find end of next segment, copy tentatively to pathend */ - q = pathend; - p = pattern; - while (*p != EOS && *p != SEP) { - if (ismeta(*p)) - anymeta = 1; - *q++ = *p++; - } - - if (!anymeta) { /* no expansion, do next segment */ - pathend = q; - pattern = p; - while (*pattern == SEP) - *pathend++ = *pattern++; - } - else /* need expansion, recurse */ - return (glob3(pathbuf, pathend, pattern, p, pglob, no_match)); - } - /* NOTREACHED */ -} - - -static int -glob3(pathbuf, pathend, pattern, restpattern, pglob, no_match) - Char *pathbuf, *pathend, *pattern, *restpattern; - glob_t *pglob; - int no_match; -{ - extern int errno; - DIR *dirp; - struct dirent *dp; - int err; - Char m_not = (pglob->gl_flags & GLOB_ALTNOT) ? M_ALTNOT : M_NOT; - char cpathbuf[GLOBBUFLEN], *ptr;; - - *pathend = EOS; - errno = 0; - - if (!(dirp = Opendir(pathbuf))) { - /* todo: don't call for ENOENT or ENOTDIR? */ - for (ptr = cpathbuf; (*ptr++ = (char) *pathbuf++) != EOS;) - continue; - if ((pglob->gl_errfunc && (*pglob->gl_errfunc) (cpathbuf, errno)) || - (pglob->gl_flags & GLOB_ERR)) - return (GLOB_ABEND); - else - return (0); - } - - err = 0; - - /* search directory for matching names */ - while ((dp = readdir(dirp)) != NULL) { - register unsigned char *sc; - register Char *dc; - - /* initial DOT must be matched literally */ - if (dp->d_name[0] == DOT && *pattern != DOT) - continue; - for (sc = (unsigned char *) dp->d_name, dc = pathend; - (*dc++ = *sc++) != '\0';) - continue; - if (match(pathend, pattern, restpattern, (int) m_not) == no_match) { - *pathend = EOS; - continue; - } - err = glob2(pathbuf, --dc, restpattern, pglob, no_match); - if (err) - break; - } - /* todo: check error from readdir? */ - (void) closedir(dirp); - return (err); -} - - -/* - * Extend the gl_pathv member of a glob_t structure to accomodate a new item, - * add the new item, and update gl_pathc. - * - * This assumes the BSD realloc, which only copies the block when its size - * crosses a power-of-two boundary; for v7 realloc, this would cause quadratic - * behavior. - * - * Return 0 if new item added, error code if memory couldn't be allocated. - * - * Invariant of the glob_t structure: - * Either gl_pathc is zero and gl_pathv is NULL; or gl_pathc > 0 and - * gl_pathv points to (gl_offs + gl_pathc + 1) items. - */ -static int -globextend(path, pglob) - Char *path; - glob_t *pglob; -{ - register char **pathv; - register int i; - unsigned int newsize; - char *copy; - Char *p; - - newsize = sizeof(*pathv) * (2 + pglob->gl_pathc + pglob->gl_offs); - pathv = (char **) (pglob->gl_pathv ? - xrealloc((ptr_t) pglob->gl_pathv, (size_t) newsize) : - xmalloc((size_t) newsize)); - if (pathv == NULL) - return (GLOB_NOSPACE); - - if (pglob->gl_pathv == NULL && pglob->gl_offs > 0) { - /* first time around -- clear initial gl_offs items */ - pathv += pglob->gl_offs; - for (i = pglob->gl_offs; --i >= 0;) - *--pathv = NULL; - } - pglob->gl_pathv = pathv; - - for (p = path; *p++;) - continue; - if ((copy = (char *) xmalloc((size_t) (p - path))) != NULL) { - register char *dc = copy; - register Char *sc = path; - - while ((*dc++ = *sc++) != '\0') - continue; - pathv[pglob->gl_offs + pglob->gl_pathc++] = copy; - } - pathv[pglob->gl_offs + pglob->gl_pathc] = NULL; - return ((copy == NULL) ? GLOB_NOSPACE : 0); -} - - -/* - * pattern matching function for filenames. Each occurrence of the * - * pattern causes a recursion level. - */ -static int -match(name, pat, patend, m_not) - register Char *name, *pat, *patend; - int m_not; -{ - int ok, negate_range; - Char c, k; - - while (pat < patend) { - c = *pat++; - switch (c & M_MASK) { - case M_ALL: - if (pat == patend) - return (1); - do - if (match(name, pat, patend, m_not)) - return (1); - while (*name++ != EOS); - return (0); - case M_ONE: - if (*name++ == EOS) - return (0); - break; - case M_SET: - ok = 0; - if ((k = *name++) == EOS) - return (0); - if ((negate_range = ((*pat & M_MASK) == m_not)) != 0) - ++pat; - while (((c = *pat++) & M_MASK) != M_END) { - if ((*pat & M_MASK) == M_RNG) { - if (globcharcoll(CHAR(c), CHAR(k)) <= 0 && - globcharcoll(CHAR(k), CHAR(pat[1])) <= 0) - ok = 1; - pat += 2; - } - else if (c == k) - ok = 1; - } - if (ok == negate_range) - return (0); - break; - default: - k = *name++; - if (samecase(k) != samecase(c)) - return (0); - break; - } - } - return (*name == EOS); -} - -/* free allocated data belonging to a glob_t structure */ -void -globfree(pglob) - glob_t *pglob; -{ - register int i; - register char **pp; - - if (pglob->gl_pathv != NULL) { - pp = pglob->gl_pathv + pglob->gl_offs; - for (i = pglob->gl_pathc; i--; ++pp) - if (*pp) - xfree((ptr_t) *pp), *pp = NULL; - xfree((ptr_t) pglob->gl_pathv), pglob->gl_pathv = NULL; - } -} diff --git a/contrib/tcsh/glob.h b/contrib/tcsh/glob.h deleted file mode 100644 index bed9c4c58243..000000000000 --- a/contrib/tcsh/glob.h +++ /dev/null @@ -1,71 +0,0 @@ -/* - * Copyright (c) 1989 The Regents of the University of California. - * All rights reserved. - * - * This code is derived from software contributed to Berkeley by - * Guido van Rossum. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - * - * @(#)glob.h 5.6 (Berkeley) 4/3/91 - */ - -#ifndef _GLOB_H_ -#define _GLOB_H_ - -typedef struct { - int gl_pathc; /* count of total paths so far */ - int gl_matchc; /* count of paths matching pattern */ - int gl_offs; /* reserved at beginning of gl_pathv */ - int gl_flags; /* copy of flags parameter to glob() */ - /* copy of errfunc parameter to glob() */ - int (*gl_errfunc) __P((const char *, int)); - char **gl_pathv; /* list of paths matching pattern */ -} glob_t; - -#define GLOB_APPEND 0x001 /* append to output from previous call */ -#define GLOB_DOOFFS 0x002 /* use gl_offs */ -#define GLOB_ERR 0x004 /* return on error */ -#define GLOB_MAGCHAR 0x008 /* pattern had globbing characters */ -#define GLOB_MARK 0x010 /* append / to matching directories */ -#define GLOB_NOCHECK 0x020 /* return pattern itself if nothing matches */ -#define GLOB_NOSORT 0x040 /* don't sort */ -#define GLOB_QUOTE 0x080 /* quote special chars with \ */ -#define GLOB_NOMAGIC 0x100 /* like GLOB_NOCHECK but only if the pattern - * did not have any magic characters */ -#define GLOB_ALTNOT 0x200 /* use alternate glob character [^ not !] */ - -#define GLOB_NOSPACE (-1) /* malloc call failed */ -#define GLOB_ABEND (-2) /* unignored error */ - -int glob __P((const char *, int, int (*)(const char *, int), glob_t *)); -void globfree __P((glob_t *)); -int globcharcoll __P((int, int)); - -#endif /* !_GLOB_H_ */ diff --git a/contrib/tcsh/host.defs b/contrib/tcsh/host.defs deleted file mode 100644 index 6f2560147e35..000000000000 --- a/contrib/tcsh/host.defs +++ /dev/null @@ -1,1121 +0,0 @@ -newcode : -/* $Header: /src/pub/tcsh/host.defs,v 1.25 1999/04/20 07:48:41 christos Exp $ */ -/* - * host.defs: Hosttype/Machtype etc. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: host.defs,v 1.25 1999/04/20 07:48:41 christos Exp $") - -endcode : - -macro : M_mipsel : (defined(mips) || defined(__mips)) && (defined(MIPSEL) || defined(__MIPSEL)) -macro : M_mipseb : (defined(mips) || defined(__mips)) && (defined(MIPSEB) || defined(__MIPSEB)) -macro : M_i386 : (defined(i386) || defined(__i386__)) -macro : M_i486 : (defined(i486) || defined(__i486__)) -macro : M_i586 : (defined(i586) || defined(__i586__)) -macro : M_intel : (defined(M_i386) || defined(M_i486) || defined(M_i586)) - -newdef : defined(ns32000) -newcode : -static char * -isamultimax(flag) - int flag; -{ - if (access("/Umax.image", F_OK) == 0) - return "multimax"; - else - return flag ? "mach" : "ns32000"; -} -endcode : -enddef : - - -newdef : defined(cray) -newcode : -/* - * On crays, find the current machine type via the target() syscall - * We need ctype.h to convert the name returned to lower case - */ -# include <sys/target.h> -# include <ctype.h> -# include <string.h> - -/* From: hpa@hook.eecs.nwu.edu (H. Peter Anvin) */ -static char * -getcray() -{ -# ifdef MC_GET_SYSTEM /* If we have target() */ - struct target data; - - if (target(MC_GET_SYSTEM, &data) != -1) { - static char hosttype_buf[sizeof(data.mc_pmt)+1]; - char *p = (char *) &(data.mc_pmt); - char *q = hosttype_buf; - int n; - - /* - * Copy to buffer and convert to lower case - * String may not be null-terminated, so keep a counter - */ - for (n = 0; *p && n < sizeof(data.mc_pmt); n++) - *q++ = tolower(p[n]); - - *q = '\0'; - - /* replace dashes with underscores if present */ - while ((q = strchr(hosttype_buf, '-')) != NULL) - *q = '_'; - return hosttype_buf; /* Return in static buffer */ - } - else -# endif /* MC_GET_SYSTEM */ - return "cray"; /* target() failed */ -} -endcode : -enddef : - - -newdef : defined(convex) -newcode : -/* - * On convex, find the current machine type via the getsysinfo() syscall - */ -#include <sys/sysinfo.h> - -/* From: fox@convex.com (David DeSimone) */ -static char * -getconvex() -{ - struct system_information sysinfo; - static char result[8]; - - if (getsysinfo(SYSINFO_SIZE, &sysinfo) == -1) - return "convex"; - - switch(sysinfo.cpu_type) { -#ifdef SI_CPUTYPE_C1 - case SI_CPUTYPE_C1: - return "c1"; -#endif - -#ifdef SI_CPUTYPE_C2 - case SI_CPUTYPE_C2: - return "c2"; -#endif - -#ifdef SI_CPUTYPE_C2MP - case SI_CPUTYPE_C2MP: - (void) strcpy(result, "c2X0"); - result[2] = sysinfo.cpu_count + '0'; - return result; -#endif - -#ifdef SI_CPUTYPE_C34 - case SI_CPUTYPE_C34: - (void) strcpy(result, "c34X0"); - result[3] = sysinfo.cpu_count + '0'; - return result; -#endif - -#ifdef SI_CPUTYPE_C38 - case SI_CPUTYPE_C38: - (void) strcpy(result, "c38X0"); - result[3] = sysinfo.cpu_count + '0'; - return result; -#endif - -#ifdef SI_CPUTYPE_C46 - case SI_CPUTYPE_C46: - (void) strcpy(result, "c46X0"); - result[3] = sysinfo.cpu_count + '0'; - return result; -#endif - - default: - return "convex"; - } -} -endcode : -enddef : - - -newcode : -void -getmachine() -{ - char *hosttype; - char *ostype; - char *vendor; - char *machtype; - -endcode : - - -newdef : defined(__PARAGON__) -comment : Intel Paragon running OSF/1 -vendor : : "intel" -hosttype: : "paragon" -ostype : : "osf1" -machtype: defined(M_i386) : "i386" -enddef : - - -newdef : defined(AMIX) -comment : Amiga running Amix 2.02 -vendor : : "commodore" -hosttype: : "amiga" -ostype : : "Amix" -machtype: : "m68k" -enddef : - - -newdef : defined(accel) -comment : celerity Accel -vendor : : "celerity" -hosttype: : "celerityACCEL" -ostype : : "unix" -machtype: : "accel" -enddef : - - -newdef : defined(_VMS_POSIX) -comment : digital vax or alpha running vms posix -vendor : : "dec" -hosttype: : "VMS-POSIX" -ostype : : "vms" -machtype: defined(__alpha) : "alpha" -machtype: defined(__vax) || defined(vax) : "vax" -machtype: defined(__vax__) : "vax" -enddef : - - -newdef : defined(__hp_osf) -comment : Hewlett Packard running OSF/1 -vendor : : "hp" -hosttype: defined(__pa_risc) : "hp9000s700-osf1" -hosttype: : "hp-osf1" -ostype : : "osf1" -machtype: defined(__pa_risc) : "pa_risc" -enddef : - - -newdef : defined(hp9000) -comment : Hewlett Packard running MORE/bsd -vendor : : "hp" -hosttype: defined(hp300) : "hp300" -hosttype: defined(hp800) : "hp800" -hosttype: : "hp9000" -ostype : defined(BSD4_4) : "bsd44" -ostype : : "mtXinu" -machtype: defined(hp300) : "m68k" -machtype: defined(hp800) : "pa_risc" -enddef : - - -newdef : defined(hpux) || defined(__hpux) -comment : Hewlett Packard running HP/UX -vendor : : "hp" -hosttype: defined(__hp9000s700) : "hp9000s700" -hosttype: defined(__hp9000s800) || defined(hp9000s800) : "hp9000s800" -hosttype: defined(hp9000s500) : "hp9000s500" -hosttype: defined(__hp9000s300) || defined(hp9000s300) : "hp9000s300" -hosttype: : "hp" -ostype : : "hpux" -machtype: defined(__hp9000s700) : "pa_risc" -machtype: defined(__hp9000s800) || defined(hp9000s800) : "pa_risc" -machtype: defined(hp9000s500) : "m68k" -machtype: defined(__hp9000s300) || defined(hp9000s300) : "m68k" -enddef : - - -newdef : defined(apollo) -comment : Hewlett Packard apollo running Domain/OS -vendor : : "hp" -hosttype: : "apollo" -ostype : : "DomainOS" -machtype: : "m68k" -enddef : - - -newdef : defined(sun) || defined(__sun__) -comment : Sun Microsystems series 2 workstation (68010 based) -comment : Sun Microsystems series 3 workstation (68020 based) -comment : Sun Microsystems 386i workstation (386 based) -comment : Sun Microsystems series 4 workstation (SPARC based) -vendor : : "sun" -hosttype: defined(M_i386) && !defined(__SVR4) : "sun386i" -hosttype: defined(M_i386) && defined(__SVR4) : "i86pc" -hosttype: defined(mc68010) || defined(__mc68010__) : "sun2" -hosttype: defined(mc68020) || defined(__mc68020__) : "sun3" -hosttype: defined(sparc) || defined(__sparc__) : "sun4" -hosttype: : "sun" -ostype : defined(SUNOS3) : "sunos3" -ostype : defined(SUNOS4) : "sunos4" -ostype : defined(SOLARIS2) : "solaris" -machtype: defined(mc68010) || defined(__mc68010__) : "m68k" -machtype: defined(mc68020) || defined(__mc68020__) : "m68k" -machtype: defined(sparc) || defined(__sparc__) : "sparc" -machtype: defined(M_i386) : "i386" -enddef : - - -newdef : defined(pyr) -comment : Pyramid Technology -vendor : : "pyramid" -hosttype: : "pyramid" -machtype: : "pyramid" -enddef : - - -newdef : defined(hcx) || defined(_CX_UX) -comment : Harris Tahoe running CX/UX -vendor : : "harris" -hosttype: : "hcx" -ostype : : "hcx" -machtype: : "tahoe" -enddef : - - -newdef : defined(tahoe) -comment : Harris Tahoe -vendor : : "harris" -hosttype: : "tahoe" -machtype: : "tahoe" -enddef : - - -newdef : defined(ibm032) -comment : RT running IBM AOS4.3 or MACH -vendor : : "ibm" -hosttype: : "rt" -ostype : defined(MACH) : "mach" -ostype : : "aos" -machtype: : "ibm032" -enddef : - - -newdef : defined(aiws) -comment : RT running IBM aix2.x -vendor : : "ibm" -hosttype: : "rtpc" -ostype : : "aix" -machtype: : "ibm032" -enddef : - - -newdef : defined(_AIX370) -comment : IBM/370 running aix -vendor : : "ibm" -hosttype: : "aix370" -ostype : : "aix" -machtype: : "ibm370" -enddef : - - -newdef : defined(_IBMESA) -comment : IBM/ESA running aix -vendor : : "ibm" -hosttype: : "aixESA" -ostype : : "aix" -machtype: : "esa" -enddef : - - -newdef : defined(_IBMR2) -comment : IBM/RS6000 running aix -vendor : : "ibm" -hosttype: : "rs6000" -ostype : : "aix" -machtype: : "rs6000" -enddef : - - -newdef : defined(_AIXPS2) -comment : IBM/PS2 running aix -vendor : : "ibm" -hosttype: : "ps2" -ostype : : "aix" -machtype: : "i386" -enddef : - - -newdef : defined(OREO) -comment : Macintosh running AU/X -vendor : : "apple" -hosttype: : "mac2" -ostype : : "aux" -machtype: defined(mc68020) : "m68k" -enddef : - - -newdef : defined(u3b20d) -comment : AT&T 3B/20 series running SVR2/3 -vendor : : "att" -hosttype: : "att3b20" -machtype: : "u3b20" -enddef : - - -newdef : defined(u3b15) -comment : AT&T 3B/15 series running SVR2/3 -vendor : : "att" -hosttype: : "att3b15" -machtype: : "u3b15" -enddef : - - -newdef : defined(u3b5) -comment : AT&T 3B/5 series running SVR2/3 -vendor : : "att" -hosttype: : "att3b5" -machtype: : "u3b5" -enddef : - - -newdef : defined(u3b2) -comment : AT&T 3B/2 series running SVR2/3 -vendor : : "att" -hosttype: : "att3b2" -machtype: : "u3b2" -enddef : - - -newdef : defined(UNIXPC) -comment : AT&T UnixPC att3b1/att7300 -vendor : : "att" -hosttype: : "unixpc" -machtype: defined(u3b1) : "u3b1" -machtype: defined(att7300) : "att7300" -enddef : - - -newdef : defined(_MINIX) -comment : Andy Tanenbaum's minix -vendor : defined(M_i386) : "intel" -hosttype: defined(M_i386) : "minix386" -hosttype: : "minix" -ostype : : "minix" -machtype: defined(M_i386) : "i386" -enddef : - - -newdef : defined(linux) -comment : Linus Torvalds's linux -vendor : defined(M_intel) : "intel" -hosttype: defined(M_i586) : "i586-linux" -hosttype: defined(M_i486) : "i486-linux" -hosttype: defined(M_i386) : "i386-linux" -ostype : !defined(PPC) : "linux" -ostype : defined(PPC) : "mklinux" -machtype: defined(M_i586) : "i586" -machtype: defined(M_i486) : "i486" -machtype: defined(M_i386) : "i386" -vendor : defined(__alpha) : "dec" -vendor : defined(PPC) : "apple" -hosttype: defined(__alpha) : "alpha" -hosttype: defined(PPC) : "powerpc" -machtype: defined(__alpha) : "alpha" -machtype: defined(PPC) : "powerpc" -enddef : - - -newdef : defined(__EMX__) -comment : OS/2 EMX [unix emulation under OS/2] -vendor : defined(M_intel) : "intel" -hosttype: defined(M_i386) : "i386-emx" -ostype : : "os2" -machtype: defined(M_i386) : "i386" -enddef : - - -newdef : defined(__NetBSD__) -comment : NetBSD -vendor : defined(arm32) : "acorn" -vendor : defined(alpha) : "digital" -vendor : defined(amiga) : "commodore" -vendor : defined(atari) : "atari" -vendor : defined(hp300) : "hp" -vendor : defined(M_intel) : "intel" -vendor : defined(m68k) : "motorola" -vendor : defined(mac68k) : "apple" -vendor : defined(pc532) : "national-semi" -vendor : defined(pmax) || defined(mips) : "dec" -vendor : defined(M_mipsel) : "dec" -vendor : defined(sparc) : "sun" -vendor : defined(sun3) : "sun" -vendor : defined(vax) : "digital" -hosttype: : "NetBSD" -ostype : : "NetBSD" -machtype: defined(arm32) : "arm32" -machtype: defined(sparc) : "sparc" -machtype: defined(mc68020) : "m68k" -machtype: defined(M_i386) : "i386" -machtype: defined(M_mipsel) : "mipsel" -machtype: defined(M_mipseb) : "mipseb" -machtype: defined(mips) : "mips" -machtype: defined(pc532) : "pc532" -machtype: defined(vax) : "vax" -machtype: defined(alpha) : "alpha" -enddef : - - -newdef : defined(__FreeBSD__) -comment : FreeBSD -vendor : defined(M_intel) : "intel" -hosttype: : "FreeBSD" -ostype : : "FreeBSD" -machtype: : "i386" -enddef : - - -newdef : defined(__386BSD__) -comment : Bill Jolitz's 386BSD -vendor : defined(M_intel) : "intel" -hosttype: : "386BSD" -ostype : : "386BSD" -machtype: : "i386" -enddef : - - -newdef : defined(bsdi) -comment : BSDI's unix -vendor : defined(M_intel) : "intel" -vendor : defined(sparc) : "sun" -vendor : defined(__powerpc__) : "motorola" -hosttype: defined(M_intel) : "bsd386" -hosttype: defined(sparc) : "bsd-sparc" -hosttype: defined(__powerpc__) : "bsd-powerpc" -ostype : : "bsdi" -machtype: defined(M_i386) : "i386" -machtype: defined(sparc) : "sparc" -machtype: defined(__powerpc__) : "powerpc" -enddef : - - -newdef : defined(COHERENT) -comment : COHERENT's unix -vendor : defined(_I386) : "intel" -hosttype: : "coh386" -hosttype: : "coherent" -ostype : : "coherent" -machtype: defined(_I386) : "i386" -enddef : - -newdef : defined(SCO) -comment : SCO UNIX System V/386 Release 3.2 -vendor : : "sco" -hosttype: : "sco386" -ostype : : "sco_unix" -machtype: : "i386" -enddef : - -newdef : defined(M_XENIX) && !defined(M_UNIX) -comment : SCO XENIX -vendor : : "sco" -hosttype: : "sco_xenix" -ostype : : "sco_xenix" -machtype: defined(M_I386) : "i386" -machtype: defined(M_I286) : "i286" -enddef : - - -newdef : defined(ISC) || defined(ISC202) -comment : Interactive Unix -vendor : : "isc" -hosttype: : "isc386" -ostype : defined(POSIX) : "POSIX" -ostype : : "SVR3" -machtype: defined(M_i386) : "i386" -enddef : - - -newdef : defined(INTEL) -comment : Intel Unix -vendor : : "intel" -hosttype: : "intel386" -ostype : : "intel_unix" -machtype: defined(M_i386) : "i386" -enddef : - - -newdef : defined(MACH) -comment : cmu's mach -vendor : : "cmu" -hosttype: defined(M_i386) : "i386-mach" -ostype : : "mach" -machtype: defined(M_i386) : "i386" -enddef : - - -newdef : defined(alliant) -comment : Alliants FSX -vendor : : "alliant" -hosttype: defined(mc68000) : "alliant-fx80" -hosttype: defined(i860) : "alliant-fx2800" -hosttype: : "alliant" -ostype : : "fsx" -machtype: defined(mc68000) : "mc68000" -machtype: defined(i860) : "i860" -enddef : - - -newdef : defined(_FTX) -comment : Stratus Computer, Inc FTX2 (i860 based) -comment : Stratus Computer, Inc FTX3 (HPPA based) -vendor : : "stratus" -hosttype: defined(i860) && defined(_FTX) : "atlantic" -hosttype: defined(__hppa) && defined(_FTX) : "continuum" -ostype : defined(i860) && defined(_FTX) : "ftx2" -ostype : defined(__hppa) && defined(_FTX) : "ftx3" -machtype: defined(i860) : "i860" -machtype: defined(__hppa) : "hppa" -enddef : - - -newdef : defined(sequent) || defined(_SEQUENT_) -comment : Sequent Balance (32000 based) -comment : Sequent Symmetry running DYNIX/ptx (386/486 based) -comment : Sequent Symmetry running DYNIX 3 (386/486 based) -vendor : : "sequent" -hosttype: defined(M_i386) && defined(sequent) : "symmetry" -hosttype: defined(M_i386) : "ptx" -hosttype: : "balance" -ostype : defined(M_i386) && !defined(sequent) : "ptx" -ostype : : "dynix3" -machtype: defined(M_i386) : "i386" -machtype: defined(ns32000) : "ns32000" -enddef : - - -newdef : defined(ns32000) -comment : Encore Computer Corp. Multimax (32000 based) -vendor : : "encore" -hosttype: defined(CMUCS) : "multimax" -hosttype: : isamultimax(0) -ostype : defined(CMUCS) : "mach" -ostype : : isamultimax(1) -machtype: : "ns32000" -enddef : - - -newdef : defined(iconuxv) -comment : Icon 88k running Unix -vendor : : "icon" -hosttype: : "icon" -ostype : : "iconuxv" -machtype: defined(m88k) || defined(__m88k__) : "m88k" -enddef : - - -newdef : defined(_CRAY) && defined(_CRAYCOM) -comment : Cray Computer Corp. running CSOS -vendor : : "ccc" -hosttype: defined(_CRAY2) : "cray" -hosttype: defined(_CRAY3) : "cray" -hosttype: defined(_CRAY4) : "cray" -ostype : : "CSOS" -machtype: defined(_CRAY2) : "cray2" -machtype: defined(_CRAY3) : "cray3" -machtype: defined(_CRAY4) : "cray4" -enddef : - - -newdef : defined(cray) && !defined(_CRAYMPP) -comment : Cray Research Inc. PVP running UNICOS -vendor : : "cri" -hosttype: : getcray() -ostype : : "unicos" -machtype: : getcray() -enddef : - - -newdef : defined(cray) && defined(_CRAYT3D) -comment : Cray Research Inc. running UNICOS MAX -vendor : : "cri" -hosttype: : getcray() -ostype : : "unicosmax" -machtype: : getcray() -enddef : - - -newdef : defined(cray) && defined(_CRAYT3E) -comment : Cray Research Inc. running UNICOS/mk -vendor : : "cri" -hosttype: : getcray() -ostype : : "unicosmk" -machtype: : getcray() -enddef : - - -newdef : defined(convex) -comment : Convex -vendor : : "convex" -hosttype: : "convex" -ostype : : "convexos" -machtype: : getconvex() -enddef : - - -newdef : defined(butterfly) -comment : BBN Butterfly 1000 -vendor : : "bbn" -hosttype: : "butterfly" -machtype: defined(mc68020) || defined(__mc68020__) : "m68k" -enddef : - - -newdef : defined(NeXT) -comment : NeXTStep -vendor : : "next" -hosttype: defined(mc68020) || defined(__mc68020__) : "next" -hosttype: defined(M_i386) || defined(__i386__) : "intel-pc" -hosttype: defined(hppa) || defined(__hppa__) : "hp" -hosttype: defined(sparc) || defined(__sparc__) : "sun" -ostype : : "nextstep" -machtype: defined(mc68020) || defined(__mc68020__) : "m68k" -machtype: defined(M_i386) || defined(__i386__) : "i386" -machtype: defined(hppa) || defined(__hppa__) : "hppa" -machtype: defined(sparc) || defined(__sparc__) : "sparc" -enddef : - - -newdef : defined(__APPLE__) -comment : Rhapsody -vendor : : "apple" -hosttype: defined(__i386__) : "intel-pc" -hosttype: defined(__ppc__) : "macintosh" -ostype : : "rhapsody" -machtype: defined(__i386__) : "i386" -machtype: defined(__ppc__) : "powerpc" -enddef : - - -newdef : defined(sony_news) -comment : Sony NEWS 800 or 1700 workstation -vendor : : "sony" -hosttype: defined(mips) : "news_mips" -hosttype: defined(mc68020) || defined(__mc68020__) : "news_m68k" -ostype : : "News" -machtype: defined(mc68020) || defined(__mc68020__) : "m68k" -machtype: defined(M_mipsel) : "mipsel" -machtype: defined(M_mipseb) : "mipseb" -enddef : - - -newdef : defined(sgi) -comment : Silicon Graphics -vendor : : "sgi" -hosttype: defined(M_mipsel) : "iris4d" -hosttype: defined(M_mipseb) : "iris4d" -hosttype: defined(mc68000) : "iris3d" -ostype : : "irix" -machtype: defined(M_mipsel) : "mipsel" -machtype: defined(M_mipseb) : "mipseb" -machtype: defined(mc68000) : "mc68000" -enddef : - - -newdef : defined(ultrix) || defined(__ultrix) -comment : Digital's Ultrix -vendor : : "dec" -hosttype: defined(M_mipsel) : "decstation" -hosttype: defined(M_mipseb) : "decmips" -hosttype: defined(vax) || defined(__vax) : "vax" -hosttype: defined(__vax__) : "vax" -ostype : : "ultrix" -machtype: defined(M_mipsel) : "mipsel" -machtype: defined(M_mipseb) : "mipseb" -machtype: defined(vax) || defined (__vax) : "vax" -hosttype: defined(__vax__) : "vax" -enddef : - - -newdef : defined(MIPS) -comment : Mips OS -vendor : : "mips" -hosttype: defined(M_mipsel) : "mips" -hosttype: defined(M_mipseb) : "mips" -ostype : : "mips" -machtype: defined(M_mipsel) : "mipsel" -machtype: defined(M_mipseb) : "mipseb" -enddef : - - -newdef : defined(DECOSF1) -comment : Digital's alpha running osf1 -vendor : : "dec" -ostype : : "osf1" -hosttype: defined(__alpha) : "alpha" -machtype: defined(__alpha) : "alpha" -enddef : - - -newdef : defined(Lynx) -comment : Lynx OS 2.1 -vendor : : "Lynx" -hosttype: defined(M_mipsel) : "lynxos-mips" -hosttype: defined(M_mipseb) : "lynxos-mips" -hosttype: defined(M_i386) : "lynxos-i386" -hosttype: defined(i860) || defined(__i860__) : "lynxos-i860" -hosttype: defined(m68k) : "lynxos-m68k" -hosttype: defined(m88k) : "lynxos-m88k" -hosttype: defined(sparc) : "lynxos-sparc" -hosttype: : "lynxos-unknown" -ostype : : "LynxOS" -machtype: defined(M_mipsel) : "mipsel" -machtype: defined(M_mipseb) : "mipseb" -machtype: defined(M_i386) : "i386" -machtype: defined(i860) || defined(__i860__) : "i860" -machtype: defined(m68k) : "m68k" -machtype: defined(m88k) : "m88k" -machtype: defined(sparc) : "sparc" -enddef : - - -newdef : defined(masscomp) -comment : Masscomp -vendor : : "masscomp" -hosttype: : "masscomp" -ostype : : "masscomp" -enddef : - -newdef : defined(__MACHTEN__) -comment : Machintosh -vendor : : "Tenon" -hosttype: : "Macintosh" -ostype : : "MachTen" -machtype: : "Macintosh" -enddef : - - - -newdef : defined(GOULD_NP1) -comment : Gould -vendor : : "gould" -hosttype: : "gould_np1" -machtype: : "gould" -enddef : - - -newdef : defined(MULTIFLOW) -comment : Multiflow running 4.3BSD -vendor : : "multiflow" -hosttype: : "multiflow" -machtype: : "multiflow" -ostype : : "bsd43" -enddef : - - -newdef : defined(SXA) -comment : PFU/Fujitsu A-xx computer -vendor : : "sxa" -hosttype: : "pfa50" -ostype : defined(_BSDX_) : "e60-bsdx" -ostype : : "e60" -machtype: : "pfa50" -enddef : - - -newdef : defined(titan) -comment : (St)Ardent Titan -vendor : : "ardent" -hosttype: : "titan" -enddef : - - -newdef : defined(stellar) -comment : Stellar -vendor : : "stellar" -hosttype: : "stellar" -ostype : : "stellix" -enddef : - - -newdef : defined(atari) -comment : Atari TT running SVR4. This machine was never -comment : commercially available. -vendor : : "atari" -hosttype: : "atari" -ostype : : "asv" -enddef : - - -newdef : defined(OPUS) -comment : ??? -vendor : : "opus" -hosttype: : "opus" -enddef : - - -newdef : defined(eta10) -comment : ETA running SVR3 -vendor : : "eta" -hosttype: : "eta10" -enddef : - - -newdef : defined(hk68) -comment : Heurikon HK68 running Uniplus+ 5.0 -vendor : : "heurikon" -hosttype: : "hk68" -ostype : : "uniplus" -enddef : - - -newdef : defined(NDIX) -comment : Norsk Data ND 500/5000 running Ndix -vendor : : "norsk" -hosttype: : "nd500" -ostype : : "ndix" -enddef : - - -newdef : defined(AMIGA) -comment : Amiga running AmigaOS+GG -vendor : : "commodore" -hosttype: : "amiga" -ostype : : "AmigaOS" -machtype: : "m68k" -enddef : - - -newdef : defined(uts) -comment : Amdahl running uts 2.1 -vendor : : "amdahl" -hosttype: : "amdahl" -ostype : : "uts" -machtype: : "amdahl" -enddef : - - -newdef : defined(UTek) -comment : Tektronix 4300 running UTek (BSD 4.2 / 68020 based) -vendor : : "tektronix" -hosttype: : "tek4300" -enddef : - - -newdef : defined(UTekV) -comment : Tektronix XD88/10 running UTekV 3.2e (SVR3/88100 based) -vendor : : "tektronix" -hosttype: : "tekXD88" -enddef : - - -newdef : defined(__DGUX__) -comment : Data-General AViiON running DGUX -hosttype: : "aviion" -ostype : : "dgux" -vendor : : "dg" -machtype: defined(__m88k__) : "m88k" -machtype: defined(__i386__) : "pentium" -enddef : - - -newdef : defined(sysV68) -comment : Motorola MPC running System V/68 R32V2 (SVR3/68020 based) -vendor : : "motorola" -hosttype: : "sysV68" -machtype: : "m68k" -enddef : - - -newdef : defined(supermax) -comment : DDE Supermax running System V/68 R3 (SVR3/68020 based) -vendor : : "supermax" -hosttype: : "supermax" -machtype: : "m68k" -enddef : - - -newdef : defined(sysV88) -comment : Motorola MPC running System V/88 R32V2 (SVR3/88100 based) -vendor : : "motorola" -hosttype: : "sysV88" -machtype: : "m88k" -enddef : - - -newdef : defined(__clipper__) -comment : Clipper Chipset (Intergraph) -vendor : : "intergraph" -hosttype: : "clipper" -machtype: : "clipper" -enddef : - - -newdef : defined(SNI) || defined(sinix) -comment : Siemens Nixdorf Informationssysteme SINIX -vendor : : "sni" -hosttype: defined(M_intel) : "wx200i" -hosttype: defined(MIPSEB) : "rm400" -ostype : defined(sinix) : "sinix" -machtype: defined(M_i586) : "i586" -machtype: defined(M_i486) : "i486" -machtype: defined(M_i386) : "i386" -machtype: defined(M_mipsel) : "mipsel" -machtype: defined(M_mipseb) : "mipseb" -machtype: : "mips" -enddef : - -newdef : defined(_OSD_POSIX) -comment : Siemens Nixdorf Informationssysteme BS2000 POSIX (mainframe, EBCDIC) -vendor : : "sni" -hosttype: defined(M_intel) : "bs2000" -ostype : : "posix" -machtype: : "bs2000" -enddef : - -newdef : defined(_SX) -comment : NEC Corporation (SX-4) -vendor : : "nec" -ostype : : "superux" -hosttype: : "sx4" -machtype: : "sx4" -enddef : - -newdef : !defined(SOLARIS2) && (SYSVREL == 4) -comment : Unix System V Release 4.0 -vendor : defined(DELL) : "dell" -hosttype: defined(M_i386) : "i386" -ostype : : "svr4" -machtype: defined(M_i386) : "i386" -enddef : - -newdef : defined(__uxp__) || defined(__uxps__) -comment : FUJITSU DS/90 7000 -vendor : : "fujitsu" -hosttype: : "ds90" -ostype : : "sysv4" -machtype: : "sparc" -enddef : - -newdef : defined(_UWIN) -comment : AT&T Research Unix for Windows -vendor : : "att" -hosttype: : "win32.i386" -machtype: : "i386" -enddef : - - -newdef : defined(mc68000) || defined(__mc68000__) || defined(mc68k32) || defined(m68k) || defined(mc68010) || defined(mc68020) -hosttype: : "m68k" -vendor : defined(m68k) : "motorola" -machtype: : "m68k" -enddef : - - -newdef : defined(m88k) || defined(__m88k__) -hosttype: : "m88k" -machtype: : "m88k" -enddef : - - -newdef : defined(M_intel) -hosttype: defined(M_i586) : "i586" -hosttype: defined(M_i486) : "i486" -hosttype: defined(M_i386) : "i386" -vendor : : "intel" -machtype: defined(M_i586) : "i586" -machtype: defined(M_i486) : "i486" -machtype: defined(M_i386) : "i386" -enddef : - - -newdef : defined(sparc) || defined(__sparc__) -hosttype: : "sparc" -machtype: : "sparc" -enddef : - - -newdef : defined(i860) || defined(__i860__) -hosttype: : "i860" -machtype: : "i860" -enddef : - - -newdef : defined(osf1) -ostype : : "osf1" -enddef : - - -newdef : SYSVREL == 0 -ostype : defined(BSD4_4) : "bsd44" -ostype : defined(BSD) : "bsd" -ostype : defined(POSIX) : "posix" -ostype : defined(unix) || defined(__unix__) : "unix" -enddef : - - -newdef : SYSVREL == 1 -ostype : : "svr1" -enddef : - - -newdef : SYSVREL == 2 -ostype : : "svr2" -enddef : - - -newdef : SYSVREL == 3 -ostype : : "svr3" -enddef : - - -newdef : SYSVREL == 4 -ostype : : "svr4" -enddef : - - -newcode : -#ifndef _hosttype_ - hosttype = "unknown"; -#endif -#ifndef _ostype_ - ostype = "unknown"; -#endif -#ifndef _vendor_ - vendor = "unknown"; -#endif -#ifndef _machtype_ - machtype = "unknown"; -#endif - tsetenv(STRHOSTTYPE, str2short(hosttype)); - tsetenv(STRVENDOR, str2short(vendor)); - tsetenv(STROSTYPE, str2short(ostype)); - tsetenv(STRMACHTYPE, str2short(machtype)); -} /* end setmachine */ -endcode : diff --git a/contrib/tcsh/imake.config b/contrib/tcsh/imake.config deleted file mode 100644 index 4278a46db0b8..000000000000 --- a/contrib/tcsh/imake.config +++ /dev/null @@ -1,65 +0,0 @@ -/* - * $Id: imake.config,v 1.4 1995/03/05 03:18:09 christos Exp $ - * - * config.Imakefile for for tcsh 6.00 - * Marc Horowitz, MIT SIPB - */ - -/* installed location of tcsh, if different than the default in - pathnames.h */ -/* #define TcshPath /afs/sipb/project/tcsh/tcsh */ - -/* The following #define's may be used to cause tcsh to link against -these libraries. If you have one of the machines which is defined in -the Imakefile, the correct libraries will automatically be used. It's -better to set up new definitions in the Imakefile than to put them -here if you're defining support for a new machine, rather than -configuring for local hacks. */ -/* #define UseLibTermcap */ -/* #define UseLibCurses */ -/* #define UseLibNet */ -/* #define UseLibSocket */ -/* #define UseLibBsd */ -/* #define UseLibC_S */ -/* #define UseLibSun */ -/* #define UseLibCposix */ -/* #define UseLibInet */ -/* #define UseLibDir */ -/* #define UseLibX */ -/* #define UseLibIntl */ -/* #define UseLibPosix */ -/* #define UseLibDirent */ - -/* define if you want to use gcc. Your site.def file may already do -this, but it shouldn't hurt. */ -/* #define HasGcc */ - -/* define if you have some different compiler than cc or gcc */ -/* #define MyCC xlc */ - -/* define if you have Hesiod passwd information, and want tcsh to use it */ -/* #define HESIOD */ - -/* define if you have AFS and want to use kerberos passwd authentication */ -/* #define AFS */ -/* define as well if your version of AFS is 3.3 or higher */ -/* #define AFS33 */ - -/* defines installation dir if different from /usr/local. The -executable will be put in TcshTop/bin/tcsh, and the man page in -TcshTop/man/man1/tcsh.1 */ -/* #define TcshTop /afs/sipb/project/tcsh */ - -/* define any of the following if you want to change the compiler flags */ -/* #define MyCflags */ -/* #define MyDefines */ -/* #define MyIncludes */ -/* #define MyLibs */ - -/* By default, the compiler debug flags are -O. Define this if you -want them to be something else. */ -/* #define CDebugFlags -g -O */ - -/* If you want HOSTTYPE to be something other than the default in -tc.vers.c, define it here */ -/* #define HostType decmips */ diff --git a/contrib/tcsh/install-sh b/contrib/tcsh/install-sh deleted file mode 100755 index e9de23842dcd..000000000000 --- a/contrib/tcsh/install-sh +++ /dev/null @@ -1,251 +0,0 @@ -#!/bin/sh -# -# install - install a program, script, or datafile -# This comes from X11R5 (mit/util/scripts/install.sh). -# -# Copyright 1991 by the Massachusetts Institute of Technology -# -# Permission to use, copy, modify, distribute, and sell this software and its -# documentation for any purpose is hereby granted without fee, provided that -# the above copyright notice appear in all copies and that both that -# copyright notice and this permission notice appear in supporting -# documentation, and that the name of M.I.T. not be used in advertising or -# publicity pertaining to distribution of the software without specific, -# written prior permission. M.I.T. makes no representations about the -# suitability of this software for any purpose. It is provided "as is" -# without express or implied warranty. -# -# Calling this script install-sh is preferred over install.sh, to prevent -# `make' implicit rules from creating a file called install from it -# when there is no Makefile. -# -# This script is compatible with the BSD install script, but was written -# from scratch. It can only install one file at a time, a restriction -# shared with many OS's install programs. - - -# set DOITPROG to echo to test this script - -# Don't use :- since 4.3BSD and earlier shells don't like it. -doit="${DOITPROG-}" - - -# put in absolute paths if you don't have them in your path; or use env. vars. - -mvprog="${MVPROG-mv}" -cpprog="${CPPROG-cp}" -chmodprog="${CHMODPROG-chmod}" -chownprog="${CHOWNPROG-chown}" -chgrpprog="${CHGRPPROG-chgrp}" -stripprog="${STRIPPROG-strip}" -rmprog="${RMPROG-rm}" -mkdirprog="${MKDIRPROG-mkdir}" - -transformbasename="" -transform_arg="" -instcmd="$mvprog" -chmodcmd="$chmodprog 0755" -chowncmd="" -chgrpcmd="" -stripcmd="" -rmcmd="$rmprog -f" -mvcmd="$mvprog" -src="" -dst="" -dir_arg="" - -while [ x"$1" != x ]; do - case $1 in - -c) instcmd="$cpprog" - shift - continue;; - - -d) dir_arg=true - shift - continue;; - - -m) chmodcmd="$chmodprog $2" - shift - shift - continue;; - - -o) chowncmd="$chownprog $2" - shift - shift - continue;; - - -g) chgrpcmd="$chgrpprog $2" - shift - shift - continue;; - - -s) stripcmd="$stripprog" - shift - continue;; - - -t=*) transformarg=`echo $1 | sed 's/-t=//'` - shift - continue;; - - -b=*) transformbasename=`echo $1 | sed 's/-b=//'` - shift - continue;; - - *) if [ x"$src" = x ] - then - src=$1 - else - # this colon is to work around a 386BSD /bin/sh bug - : - dst=$1 - fi - shift - continue;; - esac -done - -if [ x"$src" = x ] -then - echo "install: no input file specified" - exit 1 -else - true -fi - -if [ x"$dir_arg" != x ]; then - dst=$src - src="" - - if [ -d $dst ]; then - instcmd=: - chmodcmd="" - else - instcmd=mkdir - fi -else - -# Waiting for this to be detected by the "$instcmd $src $dsttmp" command -# might cause directories to be created, which would be especially bad -# if $src (and thus $dsttmp) contains '*'. - - if [ -f $src -o -d $src ] - then - true - else - echo "install: $src does not exist" - exit 1 - fi - - if [ x"$dst" = x ] - then - echo "install: no destination specified" - exit 1 - else - true - fi - -# If destination is a directory, append the input filename; if your system -# does not like double slashes in filenames, you may need to add some logic - - if [ -d $dst ] - then - dst="$dst"/`basename $src` - else - true - fi -fi - -## this sed command emulates the dirname command -dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` - -# Make sure that the destination directory exists. -# this part is taken from Noah Friedman's mkinstalldirs script - -# Skip lots of stat calls in the usual case. -if [ ! -d "$dstdir" ]; then -defaultIFS=' -' -IFS="${IFS-${defaultIFS}}" - -oIFS="${IFS}" -# Some sh's can't handle IFS=/ for some reason. -IFS='%' -set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` -IFS="${oIFS}" - -pathcomp='' - -while [ $# -ne 0 ] ; do - pathcomp="${pathcomp}${1}" - shift - - if [ ! -d "${pathcomp}" ] ; - then - $mkdirprog "${pathcomp}" - else - true - fi - - pathcomp="${pathcomp}/" -done -fi - -if [ x"$dir_arg" != x ] -then - $doit $instcmd $dst && - - if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && - if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && - if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && - if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi -else - -# If we're going to rename the final executable, determine the name now. - - if [ x"$transformarg" = x ] - then - dstfile=`basename $dst` - else - dstfile=`basename $dst $transformbasename | - sed $transformarg`$transformbasename - fi - -# don't allow the sed command to completely eliminate the filename - - if [ x"$dstfile" = x ] - then - dstfile=`basename $dst` - else - true - fi - -# Make a temp file name in the proper directory. - - dsttmp=$dstdir/#inst.$$# - -# Move or copy the file name to the temp name - - $doit $instcmd $src $dsttmp && - - trap "rm -f ${dsttmp}" 0 && - -# and set any options; do chmod last to preserve setuid bits - -# If any of these fail, we abort the whole thing. If we want to -# ignore errors from any of these, just make sure not to ignore -# errors from the above "$doit $instcmd $src $dsttmp" command. - - if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && - if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && - if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && - if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && - -# Now rename the file to the real destination. - - $doit $rmcmd -f $dstdir/$dstfile && - $doit $mvcmd $dsttmp $dstdir/$dstfile - -fi && - - -exit 0 diff --git a/contrib/tcsh/ma.setp.c b/contrib/tcsh/ma.setp.c deleted file mode 100644 index d515d0f5c1e3..000000000000 --- a/contrib/tcsh/ma.setp.c +++ /dev/null @@ -1,618 +0,0 @@ -/* - * Copyright (c) 1990 Carnegie Mellon University - * All Rights Reserved. - * - * Permission to use, copy, modify and distribute this software and its - * documentation is hereby granted, provided that both the copyright - * notice and this permission notice appear in all copies of the - * software, derivative works or modified versions, and any portions - * thereof, and that both notices appear in supporting documentation. - * - * THE SOFTWARE IS PROVIDED "AS IS" AND CARNEGIE MELLON UNIVERSITY - * DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT - * SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE FOR ANY SPECIAL, DIRECT, - * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER - * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF - * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN - * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. - * - * Users of this software agree to return to Carnegie Mellon any - * improvements or extensions that they make and grant Carnegie the - * rights to redistribute these changes. - * - * Export of this software is permitted only after complying with the - * regulations of the U.S. Deptartment of Commerce relating to the - * Export of Technical Data. - */ -/* - * setpath --- smart interface for setting path variables - * - * usage: setpath(paths, cmds, localsyspath, dosuffix, printerrors) - * char **paths, **cmds, *localsyspath; - * int dosuffix, printerrors; - * - * The 'paths' argument is a list of pointers to path lists of the - * form "name=value" where name is the name of the path and value - * is a colon separated list of directories. There can never be - * more than MAXDIRS (64) directories in a path. - * - * The 'cmds' argument may be a sequence of any of the following: - * -r reset path to default - * -i newpath insert newpath before localsyspath - * -ia oldpath newpath insert newpath after oldpath - * -ib oldpath newpath insert newpath before oldpath - * -i# newpath insert newpath at position # - * -d oldpath delete oldpath - * -d# delete path at position # - * -c oldpath newpath change oldpath to newpath - * -c# newpath change position # to newpath - * - * The "-i newpath" command is equivilent to "-ib 'localsyspath' newpath". - * - * If 'dosuffix' is true, the appropriate suffix will be added to - * all command operands for any system path in 'paths'. - * - * Both of the 'paths' and 'cmds' lists are terminated by a NULL - * entry. - * - * if 'printerrors' is true, setpath will printf error diagnostics. - * - * WARNING !!!: Under no circumstances should anyone change this - * module without fully understanding the impact on the C shell. - * The C shell has it's own malloc and printf routines and this - * module was carefully written taking that into account. Do not - * use any stdio routines from this module except printf. - * - ********************************************************************** - * HISTORY - * - * Revision 1.4 90/12/11 17:58:44 mja - * Add copyright/disclaimer for distribution. - * - * 05-Jun-88 Glenn Marcy (gm0w) at Carnegie-Mellon University - * Make all non-entry points static. - * - * 30-Apr-88 Glenn Marcy (gm0w) at Carnegie-Mellon University - * Added -r switch to reset paths to their default values. - * - * 06-Jan-86 Glenn Marcy (gm0w) at Carnegie-Mellon University - * Created from old setpath program for the shell. - * - ********************************************************************** - */ -#include "sh.h" -RCSID("$Id: ma.setp.c,v 1.12 1996/04/26 19:18:36 christos Exp $") - -#ifdef MACH - -#define MAXDIRS 64 /* max directories on a path */ -#ifndef NULL -# define NULL 0 -#endif - -static int npaths; /* # pathlist arguments */ - -static struct pelem { - struct pelem *pnext; /* pointer to next path */ - char *pname; /* name of pathlist */ - char *psuf; /* suffix for pathlist */ - char *pdef; /* default for pathlist */ - int pdirs; /* # directories on each pathlist */ - char *pdir[MAXDIRS]; /* directory names for each pathlist */ -} *pathhead = NULL; - -static struct { - char *name; - char *suffix; - char *defalt; -} syspath[] = { - "PATH", "/bin", ":/usr/ucb:/bin:/usr/bin", - "CPATH", "/include", ":/usr/include", - "LPATH", "/lib", ":/lib:/usr/lib", - "MPATH", "/man", ":/usr/man", - "EPATH", "/maclib", "", - 0, 0, 0 -}; - -static int sflag; -static int eflag; - -#define INVALID { \ - if (eflag) xprintf(CGETS(10, 1, \ - "setpath: invalid command '%s'.\n"), cmd); \ - freepaths(); \ - return(-1); \ -} - -#define TOOFEW { \ - if (eflag) xprintf(CGETS(10, 2, \ - "setpath: insufficient arguments to command '%s'.\n"), cmd); \ - freepaths(); \ - return(-1); \ -} - -static int initpaths __P((char **)); -static void savepaths __P((char **)); -static void freepaths __P((void)); -static void rcmd __P((char *)); -static void icmd __P((char *, char *)); -static void iacmd __P((char *, char *)); -static void ibcmd __P((char *, char *)); -static void incmd __P((char *, int)); -static void insert __P((struct pelem *, int, char *)); -static void dcmd __P((char *)); -static void dncmd __P((int)); -static void delete __P((struct pelem *, int)); -static void ccmd __P((char *, char *)); -static void cncmd __P((char *, int)); -static void change __P((struct pelem *, int, char *)); -static int locate __P((struct pelem *, char *)); - - - -int -setpath(paths, cmds, localsyspath, dosuffix, printerrors) -register char **paths, **cmds, *localsyspath; -int dosuffix, printerrors; -{ - register char *cmd, *cmd1, *cmd2; - register int ncmd; - - sflag = dosuffix; - eflag = printerrors; - if (initpaths(paths) < 0) - return(-1); - if (npaths == 0) - return(0); - for (ncmd = 0; cmd = cmds[ncmd]; ncmd++) { - if (cmd[0] != '-') - INVALID; - cmd1 = cmds[ncmd+1]; - cmd2 = cmds[ncmd+2]; - switch (cmd[1]) { - case 'r': - if (cmd[2] != '\0') - INVALID; - rcmd(localsyspath); - break; - case 'i': - if (cmd[2] == '\0') { - ncmd++; - if (cmd1 == NULL) TOOFEW; - icmd(cmd1, localsyspath); - } else if (isdigit(cmd[2])) { - ncmd++; - if (cmd1 == NULL) TOOFEW; - incmd(cmd1, atoi(cmd+2)); - } else if (cmd[3] != '\0' || (cmd[2] != 'a' && cmd[2] != 'b')) { - INVALID; - } else { - ncmd += 2; - if (cmd1 == NULL || cmd2 == NULL) TOOFEW; - if (cmd[2] == 'a') - iacmd(cmd1, cmd2); - else - ibcmd(cmd1, cmd2); - } - break; - case 'd': - if (cmd[2] == '\0') { - ncmd++; - if (cmd1 == NULL) TOOFEW; - dcmd(cmd1); - } else if (isdigit(cmd[2])) - dncmd(atoi(cmd+2)); - else { - INVALID; - } - break; - case 'c': - if (cmd[2] == '\0') { - ncmd += 2; - if (cmd1 == NULL || cmd2 == NULL) TOOFEW; - ccmd(cmd1, cmd2); - } else if (isdigit(cmd[2])) { - ncmd++; - if (cmd1 == NULL) TOOFEW; - cncmd(cmd1, atoi(cmd+2)); - } else { - INVALID; - } - break; - default: - INVALID; - } - } - savepaths(paths); - freepaths(); - return(0); -} - -static int -initpaths(paths) -register char **paths; -{ - register char *path, *val, *p, *q; - register int i, done; - register struct pelem *pe, *pathend; - - freepaths(); - for (npaths = 0; path = paths[npaths]; npaths++) { - val = index(path, '='); - if (val == NULL) { - if (eflag) - xprintf(CGETS(10, 3, - "setpath: value missing in path '%s'\n"), path); - freepaths(); - return(-1); - } - *val++ = '\0'; - pe = (struct pelem *)xmalloc((unsigned)(sizeof(struct pelem))); - setzero((char *) pe, sizeof(struct pelem)); - if (pathhead == NULL) - pathhead = pathend = pe; - else { - pathend->pnext = pe; - pathend = pe; - } - p = strsave(path); - pe->pname = p; - pe->psuf = ""; - pe->pdef = ""; - for (i = 0; syspath[i].name; i++) - if (strcmp(pe->pname, syspath[i].name) == 0) { - pe->psuf = syspath[i].suffix; - pe->pdef = syspath[i].defalt; - break; - } - q = val; - for (;;) { - q = index(p = q, ':'); - done = (q == NULL); - if (!done) - *q++ = '\0'; - p = strsave(p); - pe->pdir[pe->pdirs] = p; - pe->pdirs++; - if (done) - break; - } - } - return(0); -} - -static void -savepaths(paths) -register char **paths; -{ - register char *p, *q; - register int npath, i, len; - register struct pelem *pe; - - for (npath = 0, pe = pathhead; pe; npath++, pe = pe->pnext) { - len = strlen(pe->pname) + 1; - if (pe->pdirs == 0) - len++; - else for (i = 0; i < pe->pdirs; i++) - len += strlen(pe->pdir[i]) + 1; - p = xmalloc((unsigned)len); - paths[npath] = p; - for (q = pe->pname; *p = *q; p++, q++); - *p++ = '='; - if (pe->pdirs != 0) { - for (i = 0; i < pe->pdirs; i++) { - for (q = pe->pdir[i]; *p = *q; p++, q++); - *p++ = ':'; - } - p--; - } - *p = '\0'; - } -} - -static void -freepaths() -{ - register char *p; - register int i; - register struct pelem *pe; - - if (npaths == 0 || pathhead == NULL) - return; - while (pe = pathhead) { - if (pe->pname) { - for (i = 0; i < pe->pdirs; i++) { - if (pe->pdir[i] == NULL) - continue; - p = pe->pdir[i]; - pe->pdir[i] = NULL; - xfree((ptr_t) p); - } - pe->pdirs = 0; - p = pe->pname; - pe->pname = NULL; - xfree((ptr_t) p); - } - pathhead = pe->pnext; - xfree((ptr_t) pe); - } - npaths = 0; -} - -/*********************************************** - *** R E S E T A P A T H N A M E *** - ***********************************************/ - -static void -rcmd(localsyspath) /* reset path with localsyspath */ -char *localsyspath; -{ - register int n, done; - register char *new, *p; - register struct pelem *pe; - char newbuf[MAXPATHLEN+1]; - - for (pe = pathhead; pe; pe = pe->pnext) { - new = newbuf; - *new = '\0'; - if (localsyspath != NULL) { - *new = ':'; - (void) strcpy(new + 1, localsyspath); - (void) strcat(new, pe->psuf); - } - (void) strcat(new, pe->pdef); - for (n = 0; n < pe->pdirs; n++) { - if (pe->pdir[n] == NULL) - continue; - p = pe->pdir[n]; - pe->pdir[n] = NULL; - xfree((ptr_t) p); - } - pe->pdirs = 0; - for (;;) { - new = index(p = new, ':'); - done = (new == NULL); - if (!done) - *new++ = '\0'; - p = strsave(p); - pe->pdir[pe->pdirs] = p; - pe->pdirs++; - if (done) - break; - } - } -} - -/*********************************************** - *** I N S E R T A P A T H N A M E *** - ***********************************************/ - -static void -icmd(path, localsyspath) /* insert path before localsyspath */ -char *path, *localsyspath; -{ - register int n; - register char *new; - register struct pelem *pe; - char newbuf[MAXPATHLEN+1]; - - for (pe = pathhead; pe; pe = pe->pnext) { - if (sflag) - new = localsyspath; - else { - new = newbuf; - (void) strcpy(new, localsyspath); - (void) strcat(new, pe->psuf); - } - n = locate(pe, new); - if (n >= 0) - insert(pe, n, path); - else - insert(pe, 0, path); - } -} - -static void -iacmd(inpath, path) /* insert path after inpath */ -char *inpath, *path; -{ - register int n; - register struct pelem *pe; - - for (pe = pathhead; pe; pe = pe->pnext) { - n = locate(pe, inpath); - if (n >= 0) - insert(pe, n + 1, path); - else - xprintf(CGETS(10, 4, "setpath: %s not found in %s\n"), - inpath, pe->pname); - } -} - -static void -ibcmd(inpath, path) /* insert path before inpath */ -char *inpath, *path; -{ - register int n; - register struct pelem *pe; - - for (pe = pathhead; pe; pe = pe->pnext) { - n = locate(pe, inpath); - if (n >= 0) - insert(pe, n, path); - else - xprintf(CGETS(10, 4, "setpath: %s not found in %s\n", - inpath, pe->pname)); - } -} - -static void -incmd(path, n) /* insert path at position n */ -char *path; -int n; -{ - register struct pelem *pe; - - for (pe = pathhead; pe; pe = pe->pnext) - insert(pe, n, path); -} - -static void -insert(pe, loc, key) -register struct pelem *pe; -register int loc; -register char *key; -{ - register int i; - register char *new; - char newbuf[2000]; - - if (sflag) { /* add suffix */ - new = newbuf; - (void) strcpy(new, key); - (void) strcat(new, pe->psuf); - } else - new = key; - new = strsave(new); - for (i = pe->pdirs; i > loc; --i) - pe->pdir[i] = pe->pdir[i-1]; - if (loc > pe->pdirs) - loc = pe->pdirs; - pe->pdir[loc] = new; - pe->pdirs++; -} - -/*********************************************** - *** D E L E T E A P A T H N A M E *** - ***********************************************/ - -static void -dcmd(path) /* delete path */ -char *path; -{ - register int n; - register struct pelem *pe; - - for (pe = pathhead; pe; pe = pe->pnext) { - n = locate(pe, path); - if (n >= 0) - delete(pe, n); - else - xprintf(CGETS(10, 4, "setpath: %s not found in %s\n"), - path, pe->pname); - } -} - -static void -dncmd(n) /* delete at position n */ -int n; -{ - register struct pelem *pe; - - for (pe = pathhead; pe; pe = pe->pnext) { - if (n < pe->pdirs) - delete(pe, n); - else - xprintf(CGETS(10, 5, - "setpath: %d not valid position in %s\n"), - n, pe->pname); - } -} - -static void -delete(pe, n) -register struct pelem *pe; -int n; -{ - register int d; - - xfree((ptr_t) (pe->pdir[n])); - for (d = n; d < pe->pdirs - 1; d++) - pe->pdir[d] = pe->pdir[d+1]; - --pe->pdirs; -} - -/*********************************************** - *** C H A N G E A P A T H N A M E *** - ***********************************************/ - -static void -ccmd(inpath, path) /* change inpath to path */ -char *inpath, *path; -{ - register int n; - register struct pelem *pe; - - for (pe = pathhead; pe; pe = pe->pnext) { - n = locate(pe, inpath); - if (n >= 0) - change(pe, n, path); - else - xprintf(CGETS(10, 4, "setpath: %s not found in %s\n"), - inpath, pe->pname); - } -} - -static void -cncmd(path, n) /* change at position n to path */ -char *path; -int n; -{ - register struct pelem *pe; - - for (pe = pathhead; pe; pe = pe->pnext) { - if (n < pe->pdirs) - change(pe, n, path); - else - xprintf(CGETS(10, 5, - "setpath: %d not valid position in %s\n"), - n, pe->pname); - } -} - -static void -change(pe, loc, key) -register struct pelem *pe; -register int loc; -register char *key; -{ - register char *new; - char newbuf[MAXPATHLEN+1]; - - if (sflag) { /* append suffix */ - new = newbuf; - (void) strcpy(new, key); - (void) strcat(new, pe->psuf); - } else - new = key; - new = strsave(new); - xfree((ptr_t) (pe->pdir[loc])); - pe->pdir[loc] = new; -} - -/*************************************** - *** F I N D P A T H N A M E *** - ***************************************/ - -static int -locate(pe, key) -register struct pelem *pe; -register char *key; -{ - register int i; - register char *realkey; - char keybuf[MAXPATHLEN+1]; - - if (sflag) { - realkey = keybuf; - (void) strcpy(realkey, key); - (void) strcat(realkey, pe->psuf); - } else - realkey = key; - for (i = 0; i < pe->pdirs; i++) - if (strcmp(pe->pdir[i], realkey) == 0) - break; - return((i < pe->pdirs) ? i : -1); -} -#endif diff --git a/contrib/tcsh/mi.termios.c b/contrib/tcsh/mi.termios.c deleted file mode 100644 index b4834b607174..000000000000 --- a/contrib/tcsh/mi.termios.c +++ /dev/null @@ -1,393 +0,0 @@ -/* $Header: /src/pub/tcsh/mi.termios.c,v 1.3 1996/04/26 19:18:38 christos Exp $ */ -/* termios.c - fake termios interface using sgtty interface - * by Magnus Doell and Bruce Evans. - * - */ -#include "sh.h" -RCSID("$Id: mi.termios.c,v 1.3 1996/04/26 19:18:38 christos Exp $") - -#ifdef _MINIX - - -/* Undefine everything that clashes with sgtty.h. */ -#undef B0 -#undef B50 -#undef B75 -#undef B110 -#undef B134 -#undef B150 -#undef B200 -#undef B300 -#undef B600 -#undef B1200 -#undef B1800 -#undef B2400 -#undef B4800 -#undef B9600 -#undef B19200 -#undef B28800 -#undef B38400 -#undef B57600 -#undef B115200 -/* Do not #undef CRMOD. We want a warning when they differ! */ -#undef ECHO -/* Do not #undef XTABS. We want a warning when they differ! */ - -/* Redefine some of the termios.h names just undefined with 'T_' prefixed - * to the name. Don't bother with the low speeds - Minix does not support - * them. Add support for higher speeds (speeds are now easy and don't need - * defines because they are not encoded). - */ -#define T_ECHO 000001 - -#include <errno.h> -#include <sgtty.h> - -static _PROTOTYPE( int tc_to_sg_speed, (speed_t speed) ); -static _PROTOTYPE( speed_t sg_to_tc_speed, (int speed) ); -#define B19200 192 - -/* The speed get/set functions could be macros in the Minix implementation - * because there are speed fields in the structure with no fancy packing - * and it is not practical to check the values outside the driver. - * Where tests are necessary because the driver acts different from what - * POSIX requires, they are done in tcsetattr. - */ - -speed_t cfgetispeed(termios_p) -struct termios *termios_p; -{ - return termios_p->c_ispeed; -} - -speed_t cfgetospeed(termios_p) -struct termios *termios_p; -{ - return termios_p->c_ospeed; -} - -speed_t cfsetispeed(termios_p, speed) -struct termios *termios_p; -speed_t speed; -{ - termios_p->c_ispeed = speed; - return 0; -} - -speed_t cfsetospeed(termios_p, speed) -struct termios *termios_p; -speed_t speed; -{ - termios_p->c_ospeed = speed; - return 0; -} - -static speed_t sg_to_tc_speed(speed) -int speed; -{ - /* The speed encodings in sgtty.h and termios.h are different. Both are - * inflexible. Minix doesn't really support B0 but we map it through - * anyway. It doesn't support B50, B75 or B134. - */ - switch (speed) { - case B0: return 0; - case B110: return 110; - case B200: return 200; - case B300: return 300; - case B600: return 600; - case B1200: return 1200; - case B1800: return 1800; - case B2400: return 2400; - case B4800: return 4800; - case B9600: return 9600; - case B19200: return 19200; -#ifdef B28800 - case B28800: return 28800; -#endif -#ifdef B38400 - case B38400: return 38400; -#endif -#ifdef B57600 - case B57600: return 57600; -#endif -#ifdef B115200 - case B115200: return 115200; -#endif - default: return (speed_t)-1; - } -} - -static int tc_to_sg_speed(speed) -speed_t speed; -{ - /* Don't use a switch here in case the compiler is 16-bit and doesn't - * properly support longs (speed_t's) in switches. It turns out the - * switch is larger and slower for most compilers anyway! - */ - if (speed == 0) return 0; - if (speed == 110) return B110; - if (speed == 200) return B200; - if (speed == 300) return B300; - if (speed == 600) return B600; - if (speed == 1200) return B1200; - if (speed == 1800) return B1800; - if (speed == 2400) return B2400; - if (speed == 4800) return B4800; - if (speed == 9600) return B9600; - if (speed == 19200) return B19200; -#ifdef B28800 - if (speed == 28800) return B28800; -#endif -#ifdef B38400 - if (speed == 38400) return B38400; -#endif -#ifdef B57600 - if (speed == 57600) return B57600; -#endif -#ifdef B115200 - if (speed == 115200) return B115200; -#endif - return -1; -} - -int tcgetattr(filedes, termios_p) -int filedes; -struct termios *termios_p; -{ - struct sgttyb sgbuf; - struct tchars tcbuf; - - if (ioctl(filedes, TIOCGETP, &sgbuf) < 0 - || ioctl(filedes, TIOCGETC, (struct sgttyb *) &tcbuf) < 0) - { - return -1; - } - - /* Minix input flags: - * BRKINT: forced off (break is not recognized) - * IGNBRK: forced on (break is not recognized) - * ICRNL: set if CRMOD is set and not RAW (CRMOD also controls output) - * IGNCR: forced off (ignoring cr's is not supported) - * INLCR: forced off (mapping nl's to cr's is not supported) - * ISTRIP: forced off (should be off for consoles, on for rs232 no RAW) - * IXOFF: forced off (rs232 uses CTS instead of XON/XOFF) - * IXON: forced on if not RAW - * PARMRK: forced off (no '\377', '\0', X sequence on errors) - * ? IGNPAR: forced off (input with parity/framing errors is kept) - * ? INPCK: forced off (input parity checking is not supported) - */ - termios_p->c_iflag = IGNBRK; - if (!(sgbuf.sg_flags & RAW)) - { - termios_p->c_iflag |= IXON; - if (sgbuf.sg_flags & CRMOD) - { - termios_p->c_iflag |= ICRNL; - } - } - - /* Minix output flags: - * OPOST: set if CRMOD or XTABS is set - * XTABS: copied from sg_flags - * CRMOD: copied from sg_flags - */ - termios_p->c_oflag = sgbuf.sg_flags & (CRMOD | XTABS); - if (termios_p->c_oflag) - { - termios_p->c_oflag |= OPOST; - } - - /* Minix local flags: - * ECHO: set if ECHO is set - * ECHOE: set if ECHO is set (ERASE echoed as error-corecting backspace) - * ECHOK: set if ECHO is set ('\n' echoed after KILL char) - * ECHONL: forced off ('\n' not echoed when ECHO isn't set) - * ICANON: set if neither CBREAK nor RAW - * IEXTEN: forced off - * ISIG: set if not RAW - * NOFLSH: forced off (input/output queues are always flushed) - * TOSTOP: forced off (no job control) - */ - termios_p->c_lflag = 0; - if (sgbuf.sg_flags & ECHO) - { - termios_p->c_lflag |= T_ECHO | ECHOE | ECHOK; - } - if (!(sgbuf.sg_flags & RAW)) - { - termios_p->c_lflag |= ISIG; - if (!(sgbuf.sg_flags & CBREAK)) - { - termios_p->c_lflag |= ICANON; - } - } - - /* Minix control flags: - * CLOCAL: forced on (ignore modem status lines - not quite right) - * CREAD: forced on (receiver is always enabled) - * CSIZE: CS5-CS8 correspond directly to BITS5-BITS8 - * CSTOPB: set for B110 (driver will generate 2 stop-bits than) - * HUPCL: forced off - * PARENB: set if EVENP or ODDP is set - * PARODD: set if ODDP is set - */ - termios_p->c_cflag = CLOCAL | CREAD; - switch (sgbuf.sg_flags & BITS8) - { - case BITS5: termios_p->c_cflag |= CS5; break; - case BITS6: termios_p->c_cflag |= CS6; break; - case BITS7: termios_p->c_cflag |= CS7; break; - case BITS8: termios_p->c_cflag |= CS8; break; - } - if (sgbuf.sg_flags & ODDP) - { - termios_p->c_cflag |= PARENB | PARODD; - } - if (sgbuf.sg_flags & EVENP) - { - termios_p->c_cflag |= PARENB; - } - if (sgbuf.sg_ispeed == B110) - { - termios_p->c_cflag |= CSTOPB; - } - - /* Minix may give back different input and output baudrates, - * but only the input baudrate is valid for both. - * As our termios emulation will fail, if input baudrate differs - * from output baudrate, force them to be equal. - * Otherwise it would be very suprisingly not to be able to set - * the terminal back to the state returned by tcgetattr :). - */ - termios_p->c_ospeed = - termios_p->c_ispeed = - sg_to_tc_speed((unsigned char) sgbuf.sg_ispeed); - - /* Minix control characters correspond directly except VSUSP and the - * important VMIN and VTIME are not really supported. - */ - termios_p->c_cc[VEOF] = tcbuf.t_eofc; - termios_p->c_cc[VEOL] = tcbuf.t_brkc; - termios_p->c_cc[VERASE] = sgbuf.sg_erase; - termios_p->c_cc[VINTR] = tcbuf.t_intrc; - termios_p->c_cc[VKILL] = sgbuf.sg_kill; - termios_p->c_cc[VQUIT] = tcbuf.t_quitc; - termios_p->c_cc[VSTART] = tcbuf.t_startc; - termios_p->c_cc[VSTOP] = tcbuf.t_stopc; - termios_p->c_cc[VMIN] = 1; - termios_p->c_cc[VTIME] = 0; - termios_p->c_cc[VSUSP] = 0; - - return 0; -} - -int tcsetattr(filedes, opt_actions, termios_p) -int filedes; -int opt_actions; -struct termios *termios_p; -{ - struct sgttyb sgbuf; - struct tchars tcbuf; - int sgspeed; - - /* Posix 1003.1-1988 page 135 says: - * Attempts to set unsupported baud rates shall be ignored, and it is - * implementation-defined whether an error is returned by any or all of - * cfsetispeed(), cfsetospeed(), or tcsetattr(). This refers both to - * changes to baud rates not supported by the hardware, and to changes - * setting the input and output baud rates to different values if the - * hardware does not support it. - * Ignoring means not to change the existing settings, doesn't it? - */ - if ((termios_p->c_ispeed != 0 && termios_p->c_ispeed != termios_p->c_ospeed) - || (sgspeed = tc_to_sg_speed(termios_p->c_ospeed)) < 0) - { - errno = EINVAL; - return -1; - } - - sgbuf.sg_ispeed = sgbuf.sg_ospeed = sgspeed; - sgbuf.sg_flags = 0; - - /* I don't know what should happen with requests that are not supported by - * old Minix drivers and therefore cannot be emulated. - * Returning an error may confuse the application (the values aren't really - * invalid or unsupported by the hardware, they just couldn't be satisfied - * by the driver). Not returning an error might be even worse because the - * driver will act different to what the application requires it to act - * after sucessfully setting the attributes as specified. - * Settings that cannot be emulated fully include: - * c_ospeed != 110 && c_cflag & CSTOPB - * c_ospeed == 110 && ! c_cflag & CSTOPB - * (c_cc[VMIN] != 1 || c_cc[VTIME] != 0) && ! c_lflag & ICANON - * c_lflag & ICANON && ! c_lflag & ISIG - * For the moment I just ignore these conflicts. - */ - - if (termios_p->c_oflag & OPOST) - { - /* CRMOD isn't Posix and may conflict with ICRNL, which is Posix, - * so we just ignore it. - */ - if (termios_p->c_oflag & XTABS) - { - sgbuf.sg_flags |= XTABS; - } - } - - if (termios_p->c_iflag & ICRNL) - { - /* We couldn't do it better :-(. */ - sgbuf.sg_flags |= CRMOD; - } - - if (termios_p->c_lflag & T_ECHO) - { - sgbuf.sg_flags |= ECHO; - } - if (!(termios_p->c_lflag & ICANON)) - { - if (termios_p->c_lflag & ISIG) - { - sgbuf.sg_flags |= CBREAK; - } - else - { - sgbuf.sg_flags |= RAW; - } - } - - switch (termios_p->c_cflag & CSIZE) - { - case CS5: sgbuf.sg_flags |= BITS5; break; - case CS6: sgbuf.sg_flags |= BITS6; break; - case CS7: sgbuf.sg_flags |= BITS7; break; - case CS8: sgbuf.sg_flags |= BITS8; break; - } - if (termios_p->c_cflag & PARENB) - { - if (termios_p->c_cflag & PARODD) - { - sgbuf.sg_flags |= ODDP; - } - else - { - sgbuf.sg_flags |= EVENP; - } - } - - sgbuf.sg_erase = termios_p->c_cc[VERASE]; - sgbuf.sg_kill = termios_p->c_cc[VKILL]; - - tcbuf.t_intrc = termios_p->c_cc[VINTR]; - tcbuf.t_quitc = termios_p->c_cc[VQUIT]; - tcbuf.t_startc = termios_p->c_cc[VSTART]; - tcbuf.t_stopc = termios_p->c_cc[VSTOP]; - tcbuf.t_eofc = termios_p->c_cc[VEOF]; - tcbuf.t_brkc = termios_p->c_cc[VEOL]; - - return ioctl(filedes, TIOCSETP, &sgbuf) < 0 && - ioctl(filedes, TIOCSETC, (struct sgttyb *) &tcbuf) < 0 ? - -1 : 0; -} -#endif /* _MINIX */ diff --git a/contrib/tcsh/mi.varargs.h b/contrib/tcsh/mi.varargs.h deleted file mode 100644 index 7377075d3dc1..000000000000 --- a/contrib/tcsh/mi.varargs.h +++ /dev/null @@ -1,15 +0,0 @@ -/* $Header: /src/pub/tcsh/mi.varargs.h,v 1.2 1996/04/26 19:18:39 christos Exp $ */ -/* - * mi.varargs.h: Correct varargs for minix - */ -#ifndef _h_mi_varargs -#define _h_mi_varargs - -typedef char *va_list; - -#define va_dcl int va_alist; -#define va_start(p) (p) = (va_list) &va_alist; -#define va_arg(p,type) ( (type *) ((p)+=sizeof(type)) )[-1] -#define va_end(p) - -#endif /* _h_mi_varargs */ diff --git a/contrib/tcsh/mi.wait.h b/contrib/tcsh/mi.wait.h deleted file mode 100644 index 205ac6812df6..000000000000 --- a/contrib/tcsh/mi.wait.h +++ /dev/null @@ -1,44 +0,0 @@ -/* The <sys/wait.h> header contains macros related to wait(). The value - * returned by wait() and waitpid() depends on whether the process - * terminated by an exit() call, was killed by a signal, or was stopped - * due to job control, as follows: - * - * High byte Low byte - * +---------------------+ - * exit(status) | status | 0 | - * +---------------------+ - * killed by signal | 0 | signal | - * +---------------------+ - * stopped (job control) | signal | 0177 | - * +---------------------+ - */ - -#ifndef _WAIT_H -#define _WAIT_H - -#ifndef _TYPES_H /* not quite right */ -#include <sys/types.h> -#endif - -#define __LOW(v) ((v) & 0377) -#define __HIGH(v) (((v) >> 8) & 0377) - -#define WNOHANG 1 /* do not wait for child to exit */ -#define WUNTRACED 2 /* for job control; not implemented */ - -#define WIFEXITED(s) (__LOW(s) == 0) /* normal exit */ -#define WEXITSTATUS(s) (__HIGH(s)) /* exit status */ -#define WTERMSIG(s) (__LOW(s) & 0177) /* sig value */ -#define WIFSIGNALED(s) ((((unsigned int)(s)-1) & 0xFFFF) < 0xFF) /* signaled */ -#define WIFSTOPPED(s) (__LOW(s) == 0177) /* stopped */ -#define WSTOPSIG(s) (__HIGH(s) & 0377) /* stop signal */ - -/* Function Prototypes. */ -#ifndef _ANSI_H -#include <ansi.h> -#endif - -_PROTOTYPE( pid_t wait, (int *_stat_loc) ); -_PROTOTYPE( pid_t waitpid, (pid_t _pid, int *_stat_loc, int _options) ); - -#endif /* _WAIT_H */ diff --git a/contrib/tcsh/nls/C/set1 b/contrib/tcsh/nls/C/set1 deleted file mode 100644 index 6053155d8948..000000000000 --- a/contrib/tcsh/nls/C/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $Id: set1,v 1.5 1998/06/27 12:27:55 christos Exp $ -$ Error messages -$set 1 -1 Syntax Error -2 %s is not allowed -3 Word too long -4 $< line too long -5 No file for $0 -6 Incomplete [] modifier -7 $ expansion must end before ] -8 Bad : modifier in $ (%c) -9 Subscript error -10 Badly formed number -11 No more words -12 Missing file name -13 Internal glob error -14 Command not found -15 Too few arguments -16 Too many arguments -17 Too dangerous to alias that -18 Empty if -19 Improper then -20 Words not parenthesized -21 %s not found -22 Improper mask -23 No such limit -24 Argument too large -25 Improper or unknown scale factor -26 Undefined variable -27 Directory stack not that deep -28 Bad signal number -29 Unknown signal; kill -l lists signals -30 Variable name must begin with a letter -31 Variable name too long -32 Variable name must contain alphanumeric characters -33 No job control in this shell -34 Expression Syntax -35 No home directory -36 Can't change to home directory -37 Invalid null command -38 Assignment missing expression -39 Unknown operator -40 Ambiguous -41 %s: File exists -42 Argument for -c ends in backslash -43 Interrupted -44 Subscript out of range -45 Line overflow -46 No such job -47 Can't from terminal -48 Not in while/foreach -49 No more processes -50 No match -51 Missing %c -52 Unmatched %c -53 Out of memory -54 Can't make pipe -55 %s: %s -56 %s -57 Usage: jobs [ -l ] -58 Arguments should be jobs or process id's -59 No current job -60 No previous job -61 No job matches pattern -62 Fork nesting > %d; maybe `...` loop -63 No job control in subshells -64 Sync fault: Process %d not found -65 %sThere are suspended jobs -66 %sThere are stopped jobs -67 No other directory -68 Directory stack empty -69 Bad directory -70 Usage: %s [-%s]%s -71 No operand for -h flag -72 Not a login shell -73 Division by 0 -74 Mod by 0 -75 Bad scaling; did you mean "%s"? -76 Can't suspend a login shell (yet) -77 Unknown user: %s -78 No $home variable set -79 Usage: history [-%s] [# number of events] -80 $, ! or < not allowed with $# or $? -81 Newline in variable name -82 * not allowed with $# or $? -83 $?<digit> or $#<digit> not allowed -84 Illegal variable name -85 Newline in variable index -86 Expansion buffer overflow -87 Variable syntax -88 Bad ! form -89 No previous substitute -90 Bad substitute -91 No previous left hand side -92 Right hand side too long -93 Bad ! modifier: %c -94 Modifier failed -95 Substitution buffer overflow -96 Bad ! arg selector -97 No prev search -98 %s: Event not found -99 Too many )'s -100 Too many ('s -101 Badly placed ( -102 Missing name for redirect -103 Ambiguous output redirect -104 Can't << within ()'s -105 Ambiguous input redirect -106 Badly placed ()'s -107 Alias loop -108 No $watch variable set -109 No scheduled events -110 Usage: sched -<item#>.\nUsage: sched [+]hh:mm <command> -111 Not that many scheduled events -112 No command to run -113 Invalid time for event -114 Relative time inconsistent with am/pm -115 Out of termcap string space -116 Usage: settc %s [yes|no] -117 Unknown capability `%s' -118 Unknown termcap parameter `%%%c' -119 Too many arguments for `%s' (%d) -120 `%s' requires %d arguments -121 Usage: echotc [-v|-s] [<capability> [<args>]] -122 %s: %s. Wrong Architecture -123 !# History loop -124 Malformed file inquiry -125 Selector overflow -126 Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX -Dname[=value] ] [ argument ... ] -127 Unknown option: `-%s'\nUsage: %s [ -bcdefFilmnqstvVxX ] [ argument ... ] -128 Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX ] [ argument ... ] -129 \nInvalid completion: "%s" -130 \nInvalid %s: '%c' -131 \nMissing separator '%c' after %s "%s" -132 \nIncomplete %s: "%s" -133 No operand for -m flag -134 Usage: unlimit [-fh] [limits] -135 $%S is read-only -136 No such job -137 Unknown colorls variable `%c%c' diff --git a/contrib/tcsh/nls/C/set10 b/contrib/tcsh/nls/C/set10 deleted file mode 100644 index 56a96b27eacc..000000000000 --- a/contrib/tcsh/nls/C/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set10,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: invalid command '%s'.\n -2 setpath: insufficient arguments to command '%s'.\n -3 setpath: value missing in path '%s'\n -4 setpath: %s not found in %s\n -5 setpath: %d not valid position in %s\n diff --git a/contrib/tcsh/nls/C/set11 b/contrib/tcsh/nls/C/set11 deleted file mode 100644 index 312a9c952b2b..000000000000 --- a/contrib/tcsh/nls/C/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $Id: set11,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ sh.c -$set 11 -1 Warning: no access to tty (%s).\n -2 Thus no job control in this shell.\n -3 You have %d mail messages.\n -4 You have %d mail messages in %s.\n -5 You have %smail.\n -6 new -7 You have %smail in %s.\n diff --git a/contrib/tcsh/nls/C/set12 b/contrib/tcsh/nls/C/set12 deleted file mode 100644 index e0b44a733589..000000000000 --- a/contrib/tcsh/nls/C/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set12,v 1.3 1996/04/26 20:31:52 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: Trying to start from "%s"\n diff --git a/contrib/tcsh/nls/C/set13 b/contrib/tcsh/nls/C/set13 deleted file mode 100644 index af1de4ef3d53..000000000000 --- a/contrib/tcsh/nls/C/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set13,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ sh.exec.c -$set 13 -1 hash=%-4d dir=%-2d prog=%s\n -2 %d hash buckets of %d bits each\n -3 debug mask = 0x%08x\n -4 %d hits, %d misses, %d%%\n -5 %S: shell built-in command.\n -6 %S: Command not found.\n -7 where: / in command makes no sense\n -8 %S is aliased to -9 %S is a shell built-in\n -10 hash miss: diff --git a/contrib/tcsh/nls/C/set14 b/contrib/tcsh/nls/C/set14 deleted file mode 100644 index d1b86a8376b5..000000000000 --- a/contrib/tcsh/nls/C/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set14,v 1.3 1998/11/24 18:18:06 christos Exp $ -$ sh.file.c -$set 14 -1 \nYikes!! Too many %s!!\n -2 names in password file -3 files diff --git a/contrib/tcsh/nls/C/set15 b/contrib/tcsh/nls/C/set15 deleted file mode 100644 index 1fb89120f4ac..000000000000 --- a/contrib/tcsh/nls/C/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set15,v 1.3 1996/10/19 17:52:32 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: Can't %s%s limit\n -2 remove -3 set -4 \040hard diff --git a/contrib/tcsh/nls/C/set16 b/contrib/tcsh/nls/C/set16 deleted file mode 100644 index 67b1eb85dca1..000000000000 --- a/contrib/tcsh/nls/C/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set16,v 1.3 1996/04/26 20:31:55 christos Exp $ -$ sh.lex.c -$set 16 -1 Reset tty pgrp from %d to %d\n -2 \nUse "logout" to logout.\n -3 \nUse "exit" to leave %s.\n -4 seek to eval %x %x\n -5 seek to alias %x %x\n -6 seek to file %x\n -7 Bad seek type %d\n -8 tell eval %x %x\n -9 tell alias %x %x\n -10 tell file %x\n diff --git a/contrib/tcsh/nls/C/set17 b/contrib/tcsh/nls/C/set17 deleted file mode 100644 index fa4fd20f46f4..000000000000 --- a/contrib/tcsh/nls/C/set17 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set17,v 1.3 1996/10/19 17:52:33 christos Exp $ -$ sh.proc.c -$set 17 -1 BUG: waiting for background job!\n -2 Exit %d\n -3 BUG: process flushed twice -4 Running -5 Signal -6 Exit %-25d -7 Done -8 BUG: status=%-9o -9 \040(core dumped) -10 \040(wd: -11 wd now: -12 %S: Already suspended\n -13 %S: Already stopped\n diff --git a/contrib/tcsh/nls/C/set18 b/contrib/tcsh/nls/C/set18 deleted file mode 100644 index f00c4f6e8715..000000000000 --- a/contrib/tcsh/nls/C/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set18,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ sh.set.c -$set 18 -1 Warning: ridiculously long PATH truncated\n diff --git a/contrib/tcsh/nls/C/set19 b/contrib/tcsh/nls/C/set19 deleted file mode 100644 index 15e17eeb0d91..000000000000 --- a/contrib/tcsh/nls/C/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set19,v 1.3 1996/04/26 20:31:58 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: Out of memory\n -2 free(%lx) called before any allocations. -3 free(%lx) above top of memory. -4 free(%lx) below bottom of memory. -5 free(%lx) bad block. -6 free(%lx) bad range check. -7 free(%lx) bad block index. -8 %s current memory allocation:\nfree:\t -9 \nused:\t -10 \n\tTotal in use: %d, total free: %d\n -11 \tAllocated memory from 0x%lx to 0x%lx. Real top at 0x%lx\n -12 Allocated memory from 0x%lx to 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/C/set2 b/contrib/tcsh/nls/C/set2 deleted file mode 100644 index 8fff30c352ac..000000000000 --- a/contrib/tcsh/nls/C/set2 +++ /dev/null @@ -1,111 +0,0 @@ -$ $Id: set2,v 1.4 1998/10/25 15:12:38 christos Exp $ -$ Signal names -$set 2 -1 Null signal -2 Hangup -3 Interrupt -4 Quit -5 Illegal instruction -6 Trace/BPT trap -7 Abort -8 IOT trap -9 System Crash Imminent -10 Error exit -11 EMT trap -12 Floating exception -13 Killed -14 User signal 1 -15 User signal 2 -16 Segmentation fault -17 Bus error -18 Program range error -19 Operand range error -20 Bad system call -21 Broken pipe -22 Alarm clock -23 Terminated -24 Child status change -25 Death of child -26 Apollo-specific fault -27 Child stopped or exited -28 Child exited -29 Power failure -30 Resource Lost -31 Break (Ctrl-Break) -32 Input/output possible signal -33 Asynchronous I/O (select) -34 Urgent condition on I/O channel -35 Multitasking wake-up -36 Multitasking kill -37 Fortran asynchronous I/O completion -38 Recovery -39 Uncorrectable memory error -40 CPU time limit exceeded -41 System shutdown imminent -42 micro-tasking group-no wakeup flag set -43 Thread error - (use cord -T for detailed info) -44 CRAY Y-MP register parity error -45 Information request -46 Suspended (signal) -47 Stopped (signal) -48 Suspended -49 Stopped -50 Continued -51 Suspended (tty input) -52 Stopped (tty input) -53 Suspended (tty output) -54 Stopped (tty output) -55 Window status changed -56 Window size changed -57 Phone status changed -58 Cputime limit exceeded -59 Filesize limit exceeded -60 Virtual time alarm -61 Profiling time alarm -62 DIL signal -63 Pollable event occured -64 Process's lwps are blocked -65 Special LWP signal -66 Special CPR Signal -67 Special CPR Signal -68 First Realtime Signal -69 Second Realtime Signal -70 Third Realtime Signal -71 Fourth Realtime Signal -72 Fourth Last Realtime Signal -73 Third Last Realtime Signal -74 Second Last Realtime Signal -75 Last Realtime Signal -76 LAN Asyncronous I/O -77 PTY read/write availability -78 I/O intervention required -79 HFT monitor mode granted -80 HFT monitor mode should be relinguished -81 HFT sound control has completed -82 Data in HFT ring buffer -83 Migrate process -84 Secure attention key -85 Reschedule -86 Signaling SS$_DEBUG -87 Priority changed -88 True deadlock detected -89 New input character -90 Stack limit exceeded -91 Unused signal -92 LM overlay -93 system freeze -94 system defreeze -95 dead lock -96 exceeded memory size limit -97 exceeded data size limit -98 exceeded memory size limit of 32KB -99 exce error for no memory -100 check point start -101 check point start of kernel -102 restart start -103 restart of kernel -104 exeeded XMU size limit -105 exeeded RLG0 limit -106 exeeded RLG1 limit -107 exeeded RLG2 limit -108 exeeded RLG3 limit diff --git a/contrib/tcsh/nls/C/set20 b/contrib/tcsh/nls/C/set20 deleted file mode 100644 index 1be271474fc6..000000000000 --- a/contrib/tcsh/nls/C/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $Id: set20,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tc.bind.c -$set 20 -1 Invalid key name `%S'\n -2 Bad key name: %S\n -3 Bad command name: %S\n -4 Bad key spec %S\n -5 Null string specification\n -6 Standard key bindings\n -7 Alternative key bindings\n -8 Multi-character bindings\n -9 Arrow key bindings\n -10 %-15s-> is undefined\n -11 BUG!!! %s isn't bound to anything.\n -12 Usage: bindkey [options] [--] [KEY [COMMAND]]\n -13 -a list or bind KEY in alternative key map\n -14 -b interpret KEY as a C-, M-, F- or X- key name\n -15 -s interpret COMMAND as a literal string to be output\n -16 -c interpret COMMAND as a builtin or external command\n -17 -v bind all keys to vi bindings\n -18 -e bind all keys to emacs bindings\n -19 -d bind all keys to default editor's bindings\n -20 -l list editor commands with descriptions\n -21 -r remove KEY's binding\n -22 -k interpret KEY as a symbolic arrow-key name\n -23 -- force a break from option processing\n -24 -u (or any invalid option) this message\n -25 Without KEY or COMMAND, prints all bindings\n -26 Without COMMAND, prints the binding for KEY.\n -27 bad key specification -- null string\n -28 bad key specification -- empty string\n -29 Bad function-key specification. Null key not allowed\n -30 bad key specification -- malformed hex number\n -31 bad key specification -- malformed octal number\n -32 bad key specification -- malformed decimal number\n -33 Bad function-key specification.\n -34 Null key not allowed\n -35 bad key specification -- unknown name "%S"\n -36 usage: bind [KEY | COMMAND KEY | "emacs" | "vi" | "-a"]\n -37 Invalid function -38 %s\t\tis undefined\n diff --git a/contrib/tcsh/nls/C/set21 b/contrib/tcsh/nls/C/set21 deleted file mode 100644 index 9484ba07ed6e..000000000000 --- a/contrib/tcsh/nls/C/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set21,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tc.disc.c -$set 21 -1 Couldn't get local chars.\n -2 Couldn't set local chars.\n diff --git a/contrib/tcsh/nls/C/set22 b/contrib/tcsh/nls/C/set22 deleted file mode 100644 index 6aa8a2905c05..000000000000 --- a/contrib/tcsh/nls/C/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $Id: set22,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t aliased to -2 \nIncorrect passwd for %s\n -3 Faulty alias 'precmd' removed.\n -4 Faulty alias 'cwdcmd' removed.\n -5 Faulty alias 'beepcmd' removed.\n -6 Faulty alias 'periodic' removed.\n -7 parsing command line\n -8 Do you really want to delete all files? [n/y] -9 skipping deletion of files!\n -10 command line now is:\n -11 parsing command line\n -12 in one of the lists\n -13 command line now is:\n -14 yY diff --git a/contrib/tcsh/nls/C/set23 b/contrib/tcsh/nls/C/set23 deleted file mode 100644 index 4f8e560526c4..000000000000 --- a/contrib/tcsh/nls/C/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $Id: set23,v 1.3 1996/04/26 20:32:00 christos Exp $ -$ tc.os.c -$set 23 -1 Bad cpu/site name -2 Site path too long -3 unknown -4 site: %s\n -5 %d: Site not found\n -6 setlocal: %s: %s\n -7 Site not found -8 You're trapped in a universe you never made -9 Getwarp failed -10 Invalid warp -11 Setwarp failed -12 Illegal universe -13 Unknown Error: %d -14 sysname: %s\n -15 nodename: %s\n -16 release: %s\n -17 version: %s\n -18 machine: %s\n -19 getwd: Cannot open ".." (%s) -20 getwd: Cannot chdir to ".." (%s) -21 getwd: Read error in ".." (%s) -22 getwd: Cannot change back to "." (%s) -23 getwd: Cannot stat "/" (%s) -24 getwd: Cannot stat "." (%s) -25 getwd: Cannot stat directory "%s" (%s) -26 getwd: Cannot open directory "%s" (%s) -27 getwd: Cannot find "." in ".." (%s) -28 Invalid system type -29 System type is not set -30 Too many arguments -31 Invalid argument diff --git a/contrib/tcsh/nls/C/set24 b/contrib/tcsh/nls/C/set24 deleted file mode 100644 index 2896947ae36a..000000000000 --- a/contrib/tcsh/nls/C/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set24,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tc.sched.c -$set 24 -1 kludge diff --git a/contrib/tcsh/nls/C/set25 b/contrib/tcsh/nls/C/set25 deleted file mode 100644 index 063e8d6c2f67..000000000000 --- a/contrib/tcsh/nls/C/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set25,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tc.sig.c -$set 25 -1 our wait %d\n -2 error: bsd_signal(%d) signal out of range\n -3 error: bsd_signal(%d) - sigaction failed, errno %d\n diff --git a/contrib/tcsh/nls/C/set26 b/contrib/tcsh/nls/C/set26 deleted file mode 100644 index aa854ad34bab..000000000000 --- a/contrib/tcsh/nls/C/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set26,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tc.who.c -$set 26 -1 cannot stat %s. Please "unset watch".\n -2 %s cannot be opened. Please "unset watch".\n -3 BUG! last element is not whotail!\n -4 backward: -5 BUG! first element is not whohead!\n -6 new: %s/%s\n -7 %n has %a %l from %m. -8 %n has %a %l. -9 logged on -10 logged off -11 replaced %s on -12 local diff --git a/contrib/tcsh/nls/C/set27 b/contrib/tcsh/nls/C/set27 deleted file mode 100644 index 52664d97bc49..000000000000 --- a/contrib/tcsh/nls/C/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set27,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tw.comp.c -$set 27 -1 command -2 separator -3 pattern -4 range -5 completion diff --git a/contrib/tcsh/nls/C/set29 b/contrib/tcsh/nls/C/set29 deleted file mode 100644 index 040e881ce87b..000000000000 --- a/contrib/tcsh/nls/C/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set29,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tw.help.c -$set 29 -1 No help file for %S\n diff --git a/contrib/tcsh/nls/C/set3 b/contrib/tcsh/nls/C/set3 deleted file mode 100644 index 9f83760d8c67..000000000000 --- a/contrib/tcsh/nls/C/set3 +++ /dev/null @@ -1,117 +0,0 @@ -$ $Id: set3,v 1.3 1995/04/24 14:12:51 christos Exp $ -$ Editor function descriptions -$set 3 -1 Move back a character -2 Delete the character behind cursor -3 Cut from beginning of current word to cursor - saved in cut buffer -4 Cut from beginning of line to cursor - save in cut buffer -5 Move to beginning of current word -6 Move to beginning of line -7 Capitalize the characters from cursor to end of current word -8 Vi change case of character under cursor and advance one character -9 Vi change to end of line -10 Clear screen leaving current line on top -11 Complete current word -12 Tab forward through files -13 Tab backward through files -14 Complete current word ignoring programmable completions -15 Copy current word to cursor -16 Copy area between mark and cursor to cut buffer -17 Expand to preceding word for which this is a prefix -18 Delete character under cursor -19 Delete character under cursor or signal end of file on an empty line -20 Delete character under cursor or list completions if at end of line -21 Delete character under cursor, list completions or signal end of file -22 Cut from cursor to end of current word - save in cut buffer -23 Adds to argument if started or enters digit -24 Digit that starts argument -25 Move to next history line -26 Lowercase the characters from cursor to end of current word -27 Indicate end of file -28 Move cursor to end of line -29 Exchange the cursor and mark -30 Expand file name wildcards -31 Expand history escapes -32 Expand the history escapes in a line -33 Expand variables -34 Move forward one character -35 Move forward to end of current word -36 Exchange the two characters before the cursor -37 Search in history backward for line beginning as current -38 Search in history forward for line beginning as current -39 Insert last item of previous command -40 Incremental search forward -41 Incremental search backward -42 Clear line -43 Cut to end of line and save in cut buffer -44 Cut area between mark and cursor and save in cut buffer -45 Cut the entire line and save in cut buffer -46 List choices for completion -47 List choices for completion overriding programmable completion -48 List file name wildcard matches -49 List choices for completion or indicate end of file if empty line -50 Display load average and current process status -51 Expand history escapes and insert a space -52 Execute command -53 Expand pathnames, eliminating leading .'s and ..'s -54 Expand commands to the resulting pathname or alias -55 Switch from insert to overwrite mode or vice versa -56 Add 8th bit to next character typed -57 Add the next character typed to the line verbatim -58 Redisplay everything -59 Restart stopped editor -60 Look for help on current command -61 This character is added to the line -62 This character is the first in a character sequence -63 Set the mark at cursor -64 Correct the spelling of current word -65 Correct the spelling of entire line -66 Send character to tty in cooked mode -67 Toggle between literal and lexical current history line -68 Exchange the character to the left of the cursor with the one under -69 Exchange the two characters before the cursor -70 Tty delayed suspend character -71 Tty flush output character -72 Tty interrupt character -73 Tty quit character -74 Tty suspend character -75 Tty allow output character -76 Tty disallow output character -77 Indicates unbound character -78 Emacs universal argument (argument times 4) -79 Move to previous history line -80 Uppercase the characters from cursor to end of current word -81 Vi goto the beginning of next word -82 Vi enter insert mode after the cursor -83 Vi enter insert mode at end of line -84 Vi change case of character under cursor and advance one character -85 Vi change prefix command -86 Vi change to end of line -87 Enter vi command mode (use alternative key bindings) -88 Vi command mode complete current word -89 Vi move to previous character (backspace) -90 Vi delete prefix command -91 Vi move to the end of the current space delimited word -92 Vi move to the end of the current word -93 Vi move to the character specified backward -94 Vi move to the character specified forward -95 Vi move up to the character specified backward -96 Vi move up to the character specified forward -97 Enter vi insert mode -98 Enter vi insert mode at beginning of line -99 Vi repeat current character search in the same search direction -100 Vi repeat current character search in the opposite search direction -101 Vi repeat current search in the same search direction -102 Vi repeat current search in the opposite search direction -103 Vi replace character under the cursor with the next character typed -104 Vi replace mode -105 Vi search history backward -106 Vi search history forward -107 Vi replace character under the cursor and enter insert mode -108 Vi replace entire line -109 Vi move to the previous word -110 Vi move to the next word -111 Vi undo last change -112 Vi goto the beginning of line -113 Perform which of current command -114 Paste cut buffer at cursor position diff --git a/contrib/tcsh/nls/C/set30 b/contrib/tcsh/nls/C/set30 deleted file mode 100644 index b9e6216f426d..000000000000 --- a/contrib/tcsh/nls/C/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set30,v 1.4 1996/10/19 17:52:34 christos Exp $ -$ tw.parse.c -$set 30 -1 starting_a_command %d\n -2 complete %d -3 complete %d %S\n -4 %s: Internal match error.\n -5 items -6 rows -7 There are %d %s, list them anyway? [n/y] -8 looking = %d\n -9 \ntcsh internal error: I don't know what I'm looking for!\n -10 not a directory -11 not found -12 unreadable -13 yY diff --git a/contrib/tcsh/nls/C/set31 b/contrib/tcsh/nls/C/set31 deleted file mode 100644 index 36412510ecf3..000000000000 --- a/contrib/tcsh/nls/C/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set31,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ vms.termcap.c -$set 31 -1 Can't open TERMCAP: [%s]\n -2 Can't open %s.\n -3 Found %s in %s.\n -4 No match found for %s in file %s\n diff --git a/contrib/tcsh/nls/C/set4 b/contrib/tcsh/nls/C/set4 deleted file mode 100644 index a7d289cf83f2..000000000000 --- a/contrib/tcsh/nls/C/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $Id: set4,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ Termcap strings -$set 4 -1 add new blank line -2 audible bell -3 clear to bottom -4 clear to end of line -5 cursor to horiz pos -6 clear screen -7 delete a character -8 delete a line -9 start delete mode -10 end delete mode -11 end insert mode -12 cursor from status line -13 home cursor -14 insert character -15 start insert mode -16 insert padding -17 sends cursor down -18 sends cursor left -19 sends cursor right -20 sends cursor up -21 begin bold -22 end attributes -23 non destructive space -24 end standout -25 begin standout -26 cursor to status line -27 cursor up one -28 begin underline -29 end underline -30 visible bell -31 delete multiple chars -32 cursor down multiple -33 insert multiple chars -34 cursor left multiple -35 cursor right multiple -36 cursor up multiple -37 Has automatic margins -38 Can use physical tabs -39 Number of lines -40 Number of columns -41 Has meta key -42 Newline ignored at right margin diff --git a/contrib/tcsh/nls/C/set5 b/contrib/tcsh/nls/C/set5 deleted file mode 100644 index b684bb88ef2d..000000000000 --- a/contrib/tcsh/nls/C/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set5,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ ed.chared.c -$set 5 -1 Load average unavailable\n diff --git a/contrib/tcsh/nls/C/set6 b/contrib/tcsh/nls/C/set6 deleted file mode 100644 index 03206ad514cd..000000000000 --- a/contrib/tcsh/nls/C/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $Id: set6,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ ed.inputl.c -$set 6 -1 ERROR: illegal command from key 0%o\r\n -2 yes\n -3 edit\n -4 abort\n -5 no\n -6 No matching command\n -7 Ambiguous command\n -8 *** editor fatal ERROR ***\r\n\n diff --git a/contrib/tcsh/nls/C/set7 b/contrib/tcsh/nls/C/set7 deleted file mode 100644 index 26e14132829a..000000000000 --- a/contrib/tcsh/nls/C/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $Id: set7,v 1.3 1996/04/26 20:32:04 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tTcsh thinks your terminal has the\n -2 \tfollowing characteristics:\n\n -3 \tIt has %d columns and %d lines\n -4 \tIt has %s meta key\n -5 a -6 no -7 \tIt can%s use tabs\n -8 not -9 \tIt %s automatic margins\n -10 has -11 does not have -12 \tIt %s magic margins\n -13 (empty) -14 yes -15 no -16 ERROR: cannot delete\r\n -17 DeleteChars: num is riduculous: %d\r\n -18 ERROR: cannot insert\r\n -19 StartInsert: num is riduculous: %d\r\n -20 %s: Cannot open /etc/termcap.\n -21 %s: No entry for terminal type "%s"\n -22 %s: using dumb terminal settings.\n -23 %s: WARNING: Your terminal cannot move up.\n -24 Editing may be odd for long lines.\n -25 no clear EOL capability.\n -26 no delete char capability.\n -27 no insert char capability.\n diff --git a/contrib/tcsh/nls/C/set8 b/contrib/tcsh/nls/C/set8 deleted file mode 100644 index 36cb350dd63c..000000000000 --- a/contrib/tcsh/nls/C/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set8,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ ed.term.c -$set 8 -1 Unknown switch -2 Invalid argument diff --git a/contrib/tcsh/nls/C/set9 b/contrib/tcsh/nls/C/set9 deleted file mode 100644 index 72511b4fca19..000000000000 --- a/contrib/tcsh/nls/C/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $Id: set9,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ ed.xmap.c -$set 9 -1 AddXkey: Null extended-key not allowed.\n -2 AddXkey: sequence-lead-in command not allowed\n -3 DeleteXkey: Null extended-key not allowed.\n -4 Unbound extended key "%S"\n -5 Some extended keys too long for internal print buffer -6 Enumerate: BUG!! Null ptr passed\n! -7 no input -8 Something must follow: %c\n -9 Octal constant does not fit in a char.\n diff --git a/contrib/tcsh/nls/Makefile b/contrib/tcsh/nls/Makefile deleted file mode 100644 index 1b4de3aeafec..000000000000 --- a/contrib/tcsh/nls/Makefile +++ /dev/null @@ -1,21 +0,0 @@ - -SUBDIRS= C finnish french german greek italian ja spanish -#GENCAT= gencat -new -GENCAT= gencat - -catalogs: - @for i in ${SUBDIRS} ; \ - do \ - echo "$$i"; \ - cd $$i; \ - cat set[0-9] set[0-9][0-9] > ../../tcsh.$$i.m; \ - cd ..; \ - ${GENCAT} ../tcsh.$$i.cat ../tcsh.$$i.m; \ - done - -clean: - @for i in ${SUBDIRS} ; \ - do \ - rm -f $$i/*~; \ - rm -f ../tcsh.$$i.cat ../tcsh.$$i.m; \ - done diff --git a/contrib/tcsh/nls/finnish/set1 b/contrib/tcsh/nls/finnish/set1 deleted file mode 100644 index 3c52d4507049..000000000000 --- a/contrib/tcsh/nls/finnish/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $Id: set1,v 1.1 2000/01/14 22:57:31 christos Exp $ -$ Error messages -$set 1 -1 Kielioppivirhe -2 %s ei ole sallittu -3 Liian pitkä sana -4 $< rivi liian pitkä -5 Puuttuva tiedosto $0 -6 Vajavainen [] muunnos -7 $ -laajennuksen on päätyttävä ennen ']'-merkkiä -8 Virheellinen : -muunnos $ (%c) -9 Indeksivirhe -10 Virheellinen numero -11 Liian vähän sanoja -12 Puuttuva tiedoston nimi -13 Sisäinen laajennusvirhe (glob) -14 Käskyä ei löydy -15 Liian vähän argumentteja -16 Liian monta argumenttia -17 Vaarallinen alias -18 Tyhjä ehto (if) -19 Soveltumaton seuraus (then) -20 Sanat eivät ole suluissa -21 %s ei löydy -22 Soveltumaton maski -23 Rajoite tuntematon -24 Liian suuri argumentti -25 Soveltumaton tai tuntematon muunnoskerroin -26 Määrittelemätön muuttuja -27 Hakemistopino on matalampi -28 Virheellinen signaalin numero -29 Tuntematon signaali; kill -l tulostaa signaalit -30 Muutujan nimi on aloitettava kirjaimella -31 Liian pitkä muuttuja nimi -32 Muuttujan nimi on koostuttava kirjaimista ja numeroista -33 Tässä komentotulkissa ei ole töiden hallintaa -34 Lauseke virheellinen -35 Kotihakemisto puuttuu -36 Siirtyminen kotihakemistoon ei onnistu -37 Tyhjä käsky -38 Sijoituksesta puuttuu lauseke -39 Tuntematon operaattori -40 Tulkinnanvarainen -41 %s: Tiedosto ei ole uusi -42 Parametrin -c argumentti päätty takakenoviivaan (\\) -43 Keskeytetty -44 Indeksi viittaa rajojen ulkopuollelle -45 Rivin ylivuoto -46 Olematon työ -47 Ei onnistu päätteeltä -48 Silmukan (while/foreach) ulkopuolella -49 Lisää prosesseja ei voida luoda -50 Ei vastaavuuksia (match) -51 Puuttuva %c -52 Ylimääräinen/pariton %c -53 Muisti loppu -54 Putkea ei voida luoda -55 %s: %s -56 %s -57 Käyttö: jobs [ -l ] -58 Argumenttien on oltava töiden tai prosessien tunnisteita -59 Ei tämänhetkistä työtä -60 Ei edellistä työtä -61 Mikään työ ei vastaa mallia -62 Sisäkkäinen prosessin luonti (fork) > %d; mahdollisesti `...` silmukka -63 Alemman tason komentotulkeissa ei ole töidenhallintaa -64 Synkronointivirhe: Prosessia %d ei löydy -65 %sTilapäisesti keskeytettyjä töitä -66 %sPysähtyneenä olevia töitä -67 Toinen hakemisto puuttuu -68 Hakemistopino on tyhjä -69 Virheellinen hakemisto -70 Käyttö: %s [-%s]%s -71 Lipulle -h ei ole argumenttia -72 Tämä ei ole ensimmäisen tason komentotulkki (login shell) -73 Jako 0:lla -74 Jakojäännös 0:lla -75 Virheellinen muunnoskerroin; tarkoititko "%s"? -76 Ensimmäisen tason komentotulkkia ei voi keskeyttää (vielä) -77 Tuntematon käyttäjä: %s -78 Muuttujaa $home ei ole asetettu -79 Käyttö: history [-%s] [# tapahtumien/käskyjen lukumäärä] -80 $, ! tai < ei ole sallittu $# eikä $? yhteydessä -81 Muuttujan nimi sisältää rivin vaihdon -82 * ei ole sallittu $# eikä $? yhteydessä -83 $?<numero> tai $#<numero> ei ole sallittu -84 Soveltumaton muuttujan nimi -85 Rivin vaihto muutujan indeksissä -86 Laajennuspuskurin ylivuoto -87 Muuttujassa kielioppivirhe -88 Virheellinen ! -muoto -89 Edellistä korvaavaa merkkijonoa ei ole -90 Virheellinen korvaava merkkijono -91 Edellistä vasemmanpuolista merkkijonoa ei ole -92 Oikeanpuolinen merkkijono on liian pitkä -93 Virheellinen ! -muunnos: %c -94 Muunnos epäonnistui -95 Korvauspuskurin ylivuoto -96 Virheellinen ! argumenttivalitsin -97 Edellistä hakua ei ole -98 %s: Tapahtumaa/käskyä ei löydy -99 Liian paljon loppusulkuja ')' -100 Liian paljon alkusulkuja '(' -101 Virheellisesti sijoitettu alkusulku '(' -102 Uudelleen ohjauksesta puuttuu nimi -103 Tulkinnanvarainen tulostuksen ohjaus -104 Ohjaus << ei onnistu sulkujen '()' sisällä -105 Tulkinnanvarainen syötteen ohjaus -106 Virheelisesti sijoitetut sulut '()' -107 Silmukka alias-määrittelyissä -108 Muuttujaa $watch ei ole asetettu -109 Jonossa ei ole tapahtumia -110 Käyttö: sched -<tapahtumien lukumäärä>.\nKäyttö: sched [+]tt:mm <käsky> -111 Jonotettuja tapahtumia ei ole niin monta -112 Suoritettava käsky puuttuu -113 Virheellinen tapahtuma-aika -114 Suhteellinen ajan määre ei sovellu käytettäväksi am/pm yhteydessä -115 Päätetyypin kuvaukselle (termcap) ei ole tarpeeksi tilaa -116 Käyttö: settc %s [yes|no] -117 Tuntematon toiminne `%s' -118 Tuntematon päätetyypin (termcap) parameteri `%%%c' -119 Liian paljon argumentteja käskylle `%s' (%d) -120 `%s' edellyttää %d argumenttia -121 Käyttö: echotc [-v|-s] [<toiminne> [<argumentit>]] -122 %s: %s. Väärä laitearkkitehtuuri -123 !# Silmukka komentohistoriassa -124 Virheellinen tiedostotesti -125 Valitsimen ylivuoto -126 Tuntematon valitsin: `-%s'\nKäyttö: %s [ -bcdefilmnqstvVxX -Dnimi[=arvo] ] [ argumentti ... ] -127 Tuntematon valitsin: `-%s'\nKäyttö: %s [ -bcdefFilmnqstvVxX ] [ argumentti ... ] -128 Tuntematon valitsin: `-%s'\nKäyttö: %s [ -bcdefilmnqstvVxX ] [ argumentti ... ] -129 \nSoveltumaton täydennys: "%s" -130 \nSoveltumaton %s: '%c' -131 \nErotin '%c' puuttuu %s "%s" jäljestä -132 \nVajaa %s: "%s" -133 Valitsimelle -m ei ole kohdeargumenttia -134 Käyttö: unlimit [-fh] [rajoitteet (limits)] -135 Muuttujalle $%S ei voida asettaa arvoa -136 Viitattua työtä ei ole -137 Tuntematon colorls -muuttuja `%c%c' diff --git a/contrib/tcsh/nls/finnish/set10 b/contrib/tcsh/nls/finnish/set10 deleted file mode 100644 index 5aaae1e44594..000000000000 --- a/contrib/tcsh/nls/finnish/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set10,v 1.1 2000/01/14 22:57:31 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: Virheellinen komento '%s'.\n -2 setpath: Argumentit ovat riittämättömiä komennolle '%s'.\n -3 setpath: Arvoa ei löydy hakupolusta '%s'\n -4 setpath: %s ei löydy paikasta %s\n -5 setpath: %d ei ole hyväksyttävä sijainti paikassa %s\n diff --git a/contrib/tcsh/nls/finnish/set11 b/contrib/tcsh/nls/finnish/set11 deleted file mode 100644 index 31e1772f42b0..000000000000 --- a/contrib/tcsh/nls/finnish/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $Id: set11,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ sh.c -$set 11 -1 Varoitus: ei yhteyttä päätteeseen (%s).\n -2 Niinpä tässä komentotulkissa ei ole töiden hallintaa.\n -3 Sinulla on %d sähköpostiviestiä.\n -4 Sinulla on %d viestiä tiedostossa %s.\n -5 Sinulla on %spostia.\n -6 uutta -7 Sinulla on %spostia tiedostossa %s.\n diff --git a/contrib/tcsh/nls/finnish/set12 b/contrib/tcsh/nls/finnish/set12 deleted file mode 100644 index ca4b5b81d060..000000000000 --- a/contrib/tcsh/nls/finnish/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set12,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: Yritetään käynnistää hakemistosta "%s"\n diff --git a/contrib/tcsh/nls/finnish/set13 b/contrib/tcsh/nls/finnish/set13 deleted file mode 100644 index 66a688a7e568..000000000000 --- a/contrib/tcsh/nls/finnish/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set13,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ sh.exec.c -$set 13 -1 hash=%-4d dir=%-2d prog=%s\n -2 %d hajautusluokkaa, joista jokaisessa %d bittiä\n -3 debug mask = 0x%08x\n -4 %d osumia, %d harhoja, %d%%\n -5 %S: Komentotulkin sisäinen komento.\n -6 %S: Komentoa ei löydy.\n -7 where: / käskyssä on mahdoton ajatus\n -8 %S on alias komennolle -9 %S on komentotulkin sisäinen komento\n -10 hajautusharha: diff --git a/contrib/tcsh/nls/finnish/set14 b/contrib/tcsh/nls/finnish/set14 deleted file mode 100644 index cd3d6233df3f..000000000000 --- a/contrib/tcsh/nls/finnish/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set14,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ sh.file.c -$set 14 -1 \nAuts!! Liian monta %s!!\n -3 nimeä käyttäjätietokannassa -3 tiedostoa diff --git a/contrib/tcsh/nls/finnish/set15 b/contrib/tcsh/nls/finnish/set15 deleted file mode 100644 index 3312184b9cbe..000000000000 --- a/contrib/tcsh/nls/finnish/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set15,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: rajoitusta ei voida %s %s\n -2 poistaa -3 asettaa -4 ehdottomaksi diff --git a/contrib/tcsh/nls/finnish/set16 b/contrib/tcsh/nls/finnish/set16 deleted file mode 100644 index e3d2a03d05e0..000000000000 --- a/contrib/tcsh/nls/finnish/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set16,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ sh.lex.c -$set 16 -1 Päätteen prosessiryhmä vaihdettu arvosta %d %d:ksi.\n -2 \nSano "logout" kirjoittautuaksesi ulos järjestelmästä.\n -3 \nSano "exit" lopettaaksesi %s:n\n -4 seek to eval %x %x\n -5 seek to alias %x %x\n -6 seek to file %x\n -7 Virheellinen seek-tyyppi %d\n -8 tell eval %x %x\n -9 tell alias %x %x\n -10 tell file %x\n diff --git a/contrib/tcsh/nls/finnish/set17 b/contrib/tcsh/nls/finnish/set17 deleted file mode 100644 index a0be387250c9..000000000000 --- a/contrib/tcsh/nls/finnish/set17 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set17,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ sh.proc.c -$set 17 -1 VIKA: taustatyötä!\n -2 Paluuarvo %d\n -3 VIKA: prosessi on hävitetty jo kertaalleen -4 Ajossa -5 Signaali -6 Paluuarvo %-25d -7 Valmis -8 VIKA: status=%-9o -9 \040(muistin tila talletettu) -10 \040(hakemisto: -11 hakemisto nyt: -12 %S: On jo keskeytetty\n -13 %S: On jo pysäytetty\n diff --git a/contrib/tcsh/nls/finnish/set18 b/contrib/tcsh/nls/finnish/set18 deleted file mode 100644 index 06a88cb55d2f..000000000000 --- a/contrib/tcsh/nls/finnish/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set18,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ sh.set.c -$set 18 -1 Varoitus: Kohtuuttoman pitkä hakupolku (PATH) katkaistu.\n diff --git a/contrib/tcsh/nls/finnish/set19 b/contrib/tcsh/nls/finnish/set19 deleted file mode 100644 index ad98544e6355..000000000000 --- a/contrib/tcsh/nls/finnish/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set19,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: Muisti loppu\n -2 free(%lx) kutsuttu ennen kuin mitään on varattu. -3 free(%lx) arvo on sallitun muistialueen yläpuolella. -4 free(%lx) arvo on sallitun muistialueen alapuolella. -5 free(%lx) Virheellinen/viallinen lohko. -6 free(%lx) Lohko ei ole dynaamisesti varatulla alueella. -7 free(%lx) Virheellinen lohkon indeksi. -8 %s tämänhetkinen muistin varauksien tila:\nvapaana:\t -9 \nkäytössä:\t -10 \n\tYhteensä käytössä: %d, yhteensä vapaana: %d\n -11 \tVarattu muisti alueella 0x%lx .. 0x%lx. Todellinen huippu 0x%lx\n -12 Varattu muisti alueella 0x%lx .. 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/finnish/set2 b/contrib/tcsh/nls/finnish/set2 deleted file mode 100644 index 0a306a73a33b..000000000000 --- a/contrib/tcsh/nls/finnish/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $Id: set2,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ Signal names -$set 2 -1 Null-signaali -2 Yhteyden katkaisu -3 Keskeytys -4 Lopetus -5 Virheellinen konekäsky -6 Seuranta-ansa (BPT) -7 Hätäkeskeytys -8 Syöttö-/tulostusansa -9 Järjestelmän alasajo odotettavissa -10 Virheellinen päättyminen -11 Jäljittelyansa (EMT) -12 Liukulukupoikkeus -13 Tapettu -14 Käyttäjän signaal1 1 -15 Käyttäjän signaali 2 -16 Väärä muistilohko -17 Väylävirhe -18 Viittaus ohjelma-alueen ulkopuolelle -19 Data sallittujen arvojen ulkopuolella -20 Tuntematon järjestelmäkutsu -21 Murtunut putki -22 Herätyskello -23 Päätetty -24 Poikasen tila muuttunut -25 Poikanen kuollut -26 Apollon laitekohtainen virhe -27 Poikanen pysähtynyt tai poistunut -28 Poikanen poistunut -29 Tehonsyöttö pettänyt -30 Resurssi menetetty -31 Break (Ctrl-Break) -32 Syöte/tulostus mahdollista -33 Epäsynkroninen syöte/tulostus (select) -34 Kiireellinen syöte-/tulostustapahtuma -35 Herätys moniajossa -36 Tappaminen moniajossa -37 Fortranin epäsynkroninen syöte/tulostus valmis -38 Toipuminen -39 Korjauskelvoton muistivirhe -40 Keskusyksikköajan raja ylitetty -41 Järjestelmän sulkeminen odotettavissa -42 Pienoistehtäväryhmän ei-herätystä lippu asetettu -43 Säievirhe - (yksityiskohtaisempia tietoja käskyllä cord -T) -44 rekisterin pariteettivirhe (CRAY Y-MP) -45 Tiedotepyyntö -46 Keskeytetty (signaali) -47 Pysäytetty (signaali) -48 Keskeytetty -49 Pysäytetty -50 Suoritus jatkuu -51 Keskeytetty (päätesyöte) -52 Pysäytetty (päätetulostus) -53 Keskeytetty (päätetulostus) -54 Pysäytetty (päätetulostus) -55 Ikkunan tila muuttunut -56 Ikkunan koko muuttunut -57 Puhelinlinjan tila muuttunut -58 Keskusyksikköajan raja ylitetty -59 Tiedostokoon raja ylitetty -60 Käyttökelpoisen ajan ajastin laukesi -61 Ohjelman ajankäytönseurannan ajastin laukesi -62 DIL-signaali -63 Tutkittava tapahtuma (poll) -64 Prosessin kevytprosessit Process's lwps are blocked -65 Erityinen kevytprossisignaali (LWP) -66 Erityinen CPR-signaali -67 Erityinen CPR-signaali -68 Ensimmäinen tosiaikasignaali -69 Toinen tosiaikasignaali -70 Kolmas tosiaikasignaali -71 Neljäs tosiaikasignaali -72 Neljänneksi viimeinen tosiaikasignaali -73 Kolmanneksi viimeinen tosiaikasignaali -74 Toiseksi viimeinen tosiaikasignaali -75 Viimeinen tosiaikasignaali -76 Paikallisverkko (epäsynkroninen syöte/tulostus) -77 Näennäispääte (syöte/tulostus valmiina) -78 Syöte-/tulostustoimenpidettä edellytetään -79 HFT seurantatila luovutettu -80 HFT seurantatila vapautettava -81 HFT äänenhallinta valmis -82 Uutta dataa HFT-rengaspuskurissa -83 Muuta prosessi -84 Turvallinen huomionäppäin -85 Vuorottelutarve -86 SS$_DEBUG -signaali -87 Etusija muuttunut (priority) -88 Todellinen lukkiintumistila -89 Uusi merkki syötteessä -90 Pinon raja ylitetty -91 Käyttämätön signaali diff --git a/contrib/tcsh/nls/finnish/set20 b/contrib/tcsh/nls/finnish/set20 deleted file mode 100644 index 4fa3a93288b4..000000000000 --- a/contrib/tcsh/nls/finnish/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $Id: set20,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ tc.bind.c -$set 20 -1 Invalid key name `%S'\n -2 Bad key name: %S\n -3 Bad command name: %S\n -4 Bad key spec %S\n -5 Null string specification\n -6 Standard key bindings\n -7 Alternative key bindings\n -8 Multi-character bindings\n -9 Arrow key bindings\n -10 %-15s-> is undefined\n -11 BUG!!! %s isn't bound to anything.\n -12 Usage: bindkey [options] [--] [KEY [COMMAND]]\n -13 -a list or bind KEY in alternative key map\n -14 -b interpret KEY as a C-, M-, F- or X- key name\n -15 -s interpret COMMAND as a literal string to be output\n -16 -c interpret COMMAND as a builtin or external command\n -17 -v bind all keys to vi bindings\n -18 -e bind all keys to emacs bindings\n -19 -d bind all keys to default editor's bindings\n -20 -l list editor commands with descriptions\n -21 -r remove KEY's binding\n -22 -k interpret KEY as a symbolic arrow-key name\n -23 -- force a break from option processing\n -24 -u (or any invalid option) this message\n -25 Without KEY or COMMAND, prints all bindings\n -26 Without COMMAND, prints the binding for KEY.\n -27 bad key specification -- null string\n -28 bad key specification -- empty string\n -29 Bad function-key specification. Null key not allowed\n -30 bad key specification -- malformed hex number\n -31 bad key specification -- malformed octal number\n -32 bad key specification -- malformed decimal number\n -33 Bad function-key specification.\n -34 Null key not allowed\n -35 bad key specification -- unknown name "%S"\n -36 usage: bind [KEY | COMMAND KEY | "emacs" | "vi" | "-a"]\n -37 Invalid function -38 %s\t\tis undefined\n diff --git a/contrib/tcsh/nls/finnish/set21 b/contrib/tcsh/nls/finnish/set21 deleted file mode 100644 index 67fa0c0691a2..000000000000 --- a/contrib/tcsh/nls/finnish/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set21,v 1.1 2000/01/14 22:57:32 christos Exp $ -$ tc.disc.c -$set 21 -1 Couldn't get local chars.\n -2 Couldn't set local chars.\n diff --git a/contrib/tcsh/nls/finnish/set22 b/contrib/tcsh/nls/finnish/set22 deleted file mode 100644 index f66ed7be0406..000000000000 --- a/contrib/tcsh/nls/finnish/set22 +++ /dev/null @@ -1,18 +0,0 @@ -$ $Id: set22,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t on alias komennolle -2 \nTunnussana ei ole käyttäjän %s\n -3 Virheellinen alias 'precmd' poistettu.\n -4 Virheellinen alias 'cwdcmd' poistettu.\n -5 Virheellinen alias 'beepcmd' poistettu.\n -6 Virheellinen alias 'periodic' poistettu.\n -7 Jäsennetään komentoriviä\n -8 Haluatko todella tuhota kaikki tiedostot? [e/k] -9 Ohitetaan tiedostojen tuhoaminen!\n -10 Komentorivi on nyt:\n -11 Jäsennetään komentoriviä\n -12 on yhdellä listoista\n -13 Komentorivi on nyt:\n -$ 14 YyKk -14 Kk diff --git a/contrib/tcsh/nls/finnish/set23 b/contrib/tcsh/nls/finnish/set23 deleted file mode 100644 index acf4ac15faa9..000000000000 --- a/contrib/tcsh/nls/finnish/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $Id: set23,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ tc.os.c -$set 23 -1 Virheellinen solmun nimi -2 Solmun polku liian pitkä -3 tuntematon -4 solmu: %s\n -5 %d: Solmua ei löydy\n -6 setlocal: %s: %s\n -7 Solmua ei löydy -8 Olet ansassa maailmassa (universe), mitä et itse luonut. -9 Getwarp epäonnistui -10 Virheellinen warp -11 Setwarp epäonnistui -12 Virheellinen maailma (universe) -13 Tuntematon virhe: %d -14 sysname: %s\n -15 nodename: %s\n -16 release: %s\n -17 version: %s\n -18 machine: %s\n -19 getwd: Avaus ei onnistu ".." (%s) -20 getwd: En voi siirtyä hakemistoon ".." (%s) -21 getwd: Virhe luettaessa hakemistoa ".." (%s) -22 getwd: En voi siirtyä takaisin hakemistoon "." (%s) -23 getwd: En voi testata (stat) hakemistoa "/" (%s) -24 getwd: En voi testata (stat) hakemistoa "." (%s) -25 getwd: En voi testata (stat) hakemistoa "%s" (%s) -26 getwd: En voi avata hakemistoa "%s" (%s) -27 getwd: Hakemisto "." ei löydy hakemistosta ".." (%s) -28 Virheellinen järjestelmän tyyppi -29 Järjestelmän tyyppiä ei asetettu -30 Liian monta argumenttia -31 Virheellinen argumentti diff --git a/contrib/tcsh/nls/finnish/set24 b/contrib/tcsh/nls/finnish/set24 deleted file mode 100644 index 2d7904d06971..000000000000 --- a/contrib/tcsh/nls/finnish/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set24,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ tc.sched.c -$set 24 -1 jippo (kludge) diff --git a/contrib/tcsh/nls/finnish/set25 b/contrib/tcsh/nls/finnish/set25 deleted file mode 100644 index 15fecd8a8673..000000000000 --- a/contrib/tcsh/nls/finnish/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set25,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ tc.sig.c -$set 25 -1 our wait %d\n -2 virhe: bsd_signal(%d) signaali on sallitun arvoalueen ulkopuolella\n -3 virhe: bsd_signal(%d) - sigaction epäonnistui, errno %d\n diff --git a/contrib/tcsh/nls/finnish/set26 b/contrib/tcsh/nls/finnish/set26 deleted file mode 100644 index 5db9ffda2f91..000000000000 --- a/contrib/tcsh/nls/finnish/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set26,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ tc.who.c -$set 26 -1 Testaaminen ei onnistu: stat(%s). Ole hyvä ja suorita "unset watch".\n -2 %s ei avaudu. Ole hyvä ja suorita "unset watch".\n -3 VIKA! viimeinen osa ei ole whotail!\n -4 takaperin: -5 VIKA! ensimmäinen osa ei ole whohead!\n -6 uusi: %s/%s\n -7 %n on %a %l koneelta %m. -8 %n on %a %l. -9 kirjoittautunut sisään linjalle -10 kirjoittautunut ulos linjalta -11 korvannut tunnuksen %s linjalla -12 localhost diff --git a/contrib/tcsh/nls/finnish/set27 b/contrib/tcsh/nls/finnish/set27 deleted file mode 100644 index a99a18aa802b..000000000000 --- a/contrib/tcsh/nls/finnish/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set27,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ tw.comp.c -$set 27 -1 komento -2 erotin -3 malli -4 arvojoukko -5 täydennys diff --git a/contrib/tcsh/nls/finnish/set29 b/contrib/tcsh/nls/finnish/set29 deleted file mode 100644 index 65d943dda8ad..000000000000 --- a/contrib/tcsh/nls/finnish/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set29,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ tw.help.c -$set 29 -1 Ei löydy aputiedostoa komennolle %S\n diff --git a/contrib/tcsh/nls/finnish/set3 b/contrib/tcsh/nls/finnish/set3 deleted file mode 100644 index 01a99dcf9447..000000000000 --- a/contrib/tcsh/nls/finnish/set3 +++ /dev/null @@ -1,118 +0,0 @@ -$ $Id: set3,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ Editor function descriptions -$set 3 -1 Siirry taaksepäin yksi merkki -2 Poista kursoria edeltävä merkki -3 Leikkaa sanan alusta kursoriin - talleteta leikkauspuskuriin -4 Leikkaa rivin alusta kursoriin - talleteta leikkauspuskuriin -5 Siirry sanan alkuun -6 Siirry rivin alkuun -7 Vaihda isoiksi kirjaimiksi kursorista sanan loppuun -8 Vi: Vaihda kirjain kursorin alla ison ja pienen välillä, ja etene merkki -9 Vi: muuta rivin loppuun -10 Puhdista kuvaruutu jättäen keskeneräinen rivi ylimmäksi -11 Täydennä sana -12 Etene tiedostojen läpi yksi kerrallaan -13 Peruuta tiedostojen läpi yksi kerrallaan -14 Täydennä sana huomioimatta ohjelmoitavia täydennyksiä -15 Kopioi sana kursoriin saakka -16 Kopioi leikkauspuskuriin alue merkistä kursoriin -17 Laajenna edelliseksi sanaksi, missä on tämä alkuosa -18 Poista merkki kursorin alta -19 Poista merkki kursorin alta ja ilmoita tiedoston loppu tyhjällä rivillä -20 Poista merkki kursorin alta ja näytä täydennykset, mikäli rivin lopussa -21 Poista merkki kursorin alta ja ilmoita täydennykset tai tiedoston loppu -22 Leikkaa kursorista sanan loppuun - talleteta leikkauspuskuriin -23 Lisää argumenttiin, mikäli sekvenssi on aloitettu tai kyseessä on numero -24 Numero, mikä aloittaa argumentin -25 Siirry seuraavalle riville historiassa -26 Muuta pieniksi kirjaimiksi kursorista sanan loppuun -27 Ilmoita tiedoston loppu -28 Siirrä kursori rivin loppuun -29 Vaihda kursorin ja merkin paikkaa -30 Laajenna tiedoston nimen jokerimerkit -31 Laajenna viittaukset komentohistoriaan -32 Laajenna viittaukset komentohistoriaan suoraan paikallaan -33 Laajenna muuttujat -34 Siirry eteenpäin yksi merkki -35 Siirry eteenpäin sanan loppuun -36 Vaihda keskenään kursoria edeltävät kaksi merkkiä -37 Etsi historiasta taaksepäin riviä, mikä alkaa kuten tämä -38 Etsi historiasta eteenpäin riviä, mikä alkaa kuten tämä -39 Lisää viimeisen komennon viimeinen osa -40 Täsmentyvä haku eteenpäin -41 Täsmentyvä haku taaksepäin -42 Tyhjennä rivi -43 Leikkaa kursorista rivin loppuun ja talleta leikkauspuskuriin -44 Leikkaa alue merkistä kursoriin ja talleta leikkauspuskuriin -45 Leikkaa koko rivi ja talleta leikkauspuskuriin -46 Näytä täydennysvaihtoehdot -47 Näytä täydennysvaihtoehdot ohittaen ohjelmoitavat taydennykset -48 Näytä tiedostojen nimien jokerimerkkivastaavuudet -49 Näytä täydennysvaihtoehdot tai ilmoita tiedoston loppu, jos rivi on tyhjä -50 Näytä kuormituskeskiarvot ja tämänhetkisen prosessin tila -51 Laajenna historiaviittaukset ja lisää välilyönti -52 Suorita komento -53 Laajenna hakupolut ja korvaa tai taydennä jokainen '.' ja '..' -54 Laajenna komennot kokonaisiksi hakupoluiksi tai alias-vastineiksi -55 Vaihda toimintatilaa lisäyksen ja päällekirjoituksen välillä -56 Lisää 8. bitti seuraavaan merkkiin (meta) -57 Lisää seuraava merkki riville sellaisenaan ilman tulkintaa -58 Näytä kaikki uudestaan -59 Jatka pysäytettyä tekstinkäsittelyä -60 Etsi aputietoja tästä komennosta -61 Tämä merkki lisätään riville -62 Tämä merkki aloittaa merkkisarjan -63 Aseta merkki kursorin kohdalle -64 Korjaa sanan kirjoitusasu -65 Korjaa koko rivin kirjoitusasu -66 Lähetä merkki päätteelle erikoismerkkien tulkinnan ja muunnoksien jälkeen -67 Vaihda esitystä raa'an ja täydennetyn historiarivin välillä -68 Vaihda kursoria edeltävä merkki ja kursorin alla oleva merkki keskenään -69 Vaihda kursoria edeltävät kaksi merkkiä keskenään -70 Tty viivästetty pysäytysmerkki (TSTP) -71 Tty tulosteen hävittämismerkki -72 Tty keskeytysmerkki (INT) -73 Tty lopetusmerkki (QUIT) -74 Tty pysäytysmerkki (STOP) -75 Tty salli tulostus -merkki -76 Tty estä tulostus -merkki -77 Ilmoitus sitomattomasta merkistä -78 Emacs-tyylin toistettava argumentti (4 kertaa argumentti) -79 Siirry edelliselle historiariville -80 Muuta kirjaimet kursorista sanan loppuun isoiksi -81 Vi: siirry seuraavan sanan alkuun -82 Vi: vaihda lisäystilaan kursorin jälkeen -83 Vi: vaihda lisäystilaan rivin lopussa -84 Vi: vaihda kirjain kursorin alla ison ja pienen välillä, ja etene merkki -85 Vi: vaihda (sanan) alkuliite/-osa -86 Vi: vaihda kursorista rivin loppuun -87 Vaihda vi:n komentotilaan (vaihtoehtoisin näppäinmäärittelyin) -88 Vi: komentotilan täydennä sana -89 Vi: siirry edelliseen merkkiin (backspace, välilyönti taaksepäin) -90 Vi: poista (sanan) alkuliite/-osa -91 Vi: siirry seuraavaan välilyönnin rajoittamaan sanan loppuun -92 Vi: siirry seuraavaan sanan loppuun -93 Vi: siirry edelliseen annetun mallin mukaiseen merkkiin -94 Vi: siirry seuraavaan annetun mallin mukaiseen merkkiin -95 Vi: siirry edelliseen annetun mallin mukaisen merkin jälkeiseen merkkiin -96 Vi: siirry seuraavaan annetun mallin mukaista merkkiä edeltävään merkkiin -97 Vaihda vi-tilaan -98 Vaihda vi:n lisäystilaan rivin alussa -99 Vi: toista viimeinen merkkihaku jatkaen etsintää samaan suuntaan -100 Vi: toista viimeinen merkkihaku jatkaen etsintää päinvastaiseen suuntaan -101 Vi: toista viimeinen haku jatkaen etsintää samaan suuntaan -102 Vi: toista viimeinen haku jatkaen etsintää päinvastaiseen suuntaan -103 Vi: vaihda kursorin alla oleva merkki seuraavaan näppäiltyyn merkkiin -104 Vi: korvaustila -105 Vi: etsi historiasta taaksepäin -106 Vi: etsi historiasta eteenpäin -107 Vi: korvaa kursorin alla oleva merkki ja siirry lisäystilaan -108 Vi: korvaa koko rivi -109 Vi: siirry edelliseen sanaan -110 Vi: siirry seuraavaan sanaan -111 Vi: peruuta muutos -112 Vi: siirry rivin alkuun -113 Suorita 'which' tälle komennolle -114 Liimaa/lisää leikkauspuskurin sisältö kursorin paikalle - diff --git a/contrib/tcsh/nls/finnish/set30 b/contrib/tcsh/nls/finnish/set30 deleted file mode 100644 index 1fed72239966..000000000000 --- a/contrib/tcsh/nls/finnish/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set30,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ tw.parse.c -$set 30 -1 starting_a_command %d\n -2 complete %d -3 complete %d %S\n -4 %s: Internal match error.\n -5 items -6 rows -7 There are %d %s, list them anyway? [n/y] -8 looking = %d\n -9 \ntcsh internal error: I don't know what I'm looking for!\n -10 not a directory -11 not found -12 unreadable -13 Yy diff --git a/contrib/tcsh/nls/finnish/set31 b/contrib/tcsh/nls/finnish/set31 deleted file mode 100644 index fa9748774f36..000000000000 --- a/contrib/tcsh/nls/finnish/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set31,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ vms.termcap.c -$set 31 -1 Can't open TERMCAP: [%s]\n -2 Can't open %s.\n -3 Found %s in %s.\n -4 No match found for %s in file %s\n diff --git a/contrib/tcsh/nls/finnish/set4 b/contrib/tcsh/nls/finnish/set4 deleted file mode 100644 index 518fbb1fe56a..000000000000 --- a/contrib/tcsh/nls/finnish/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $Id: set4,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ Termcap strings -$set 4 -1 add new blank line -2 audible bell -3 clear to bottom -4 clear to end of line -5 cursor to horiz pos -6 clear screen -7 delete a character -8 delete a line -9 start delete mode -10 end delete mode -11 end insert mode -12 cursor from status line -13 home cursor -14 insert character -15 start insert mode -16 insert padding -17 sends cursor down -18 sends cursor left -19 sends cursor right -20 sends cursor up -21 begin bold -22 end attributes -23 non destructive space -24 end standout -25 begin standout -26 cursor to status line -27 cursor up one -28 begin underline -29 end underline -30 visible bell -31 delete multiple chars -32 cursor down multiple -33 insert multiple chars -34 cursor left multiple -35 cursor right multiple -36 cursor up multiple -37 Has automatic margins -38 Can use physical tabs -39 Number of lines -40 Number of columns -41 Has meta key -42 Newline ignored at right margin diff --git a/contrib/tcsh/nls/finnish/set5 b/contrib/tcsh/nls/finnish/set5 deleted file mode 100644 index 4aeba2809f54..000000000000 --- a/contrib/tcsh/nls/finnish/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set5,v 1.1 2000/01/14 22:57:33 christos Exp $ -$ ed.chared.c -$set 5 -1 Kuormituskeskiarvoja ei ole saatavilla\n diff --git a/contrib/tcsh/nls/finnish/set6 b/contrib/tcsh/nls/finnish/set6 deleted file mode 100644 index 83ba9ba3fdae..000000000000 --- a/contrib/tcsh/nls/finnish/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $Id: set6,v 1.1 2000/01/14 22:57:34 christos Exp $ -$ ed.inputl.c -$set 6 -1 VIKA: Virheellinen komento näppäimeltä 0%o\r\n -2 kyllä\n -3 muokkaa\n -4 keskeytä\n -5 ei\n -6 Ei malliin sopivaa komentoa\n -7 Tulkinnanvarainen komento\n -8 *** kohtalokas VIKA tekstinkäsittelyssä ***\r\n\n diff --git a/contrib/tcsh/nls/finnish/set7 b/contrib/tcsh/nls/finnish/set7 deleted file mode 100644 index 6ac2a2f852f8..000000000000 --- a/contrib/tcsh/nls/finnish/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $Id: set7,v 1.1 2000/01/14 22:57:34 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tTcsh:n mielestä päätteelläsi on\n -2 \tseuraavat ominaisuudet:\n\n -3 \tSiinä on %d palstaa ja %d riviä.\n -4 \tMeta-näppäin %s käytettävissä.\n -5 on -6 ei ole -7 \tSe %sosaa hyödyntää tabulaattorimerkkejä.\n -8 not -9 \tSiinä %s luottaa automaattisiin marginaaleihin.\n -10 voi -11 ei voi -12 \tSiinä %s luottaa taikamarginaaleihin. (magic margin)\n -13 (empty) -14 yes -15 no -16 VIRHE: Ei pysty tuhoamaan merkkejä.\r\n -17 DeleteChars: Numeroarvo on naurettava: %d\r\n -18 VIRHE: Ei pysty lisäämään merkkejä keskelle riviä.\r\n -19 StartInsert: Numeroarvo on naurettava: %d\r\n -20 %s: Ei pystytä avaamaan tiedostoa /etc/termcap.\n -21 %s: Päätetyypille "%s" ei löydy määrittely\n -22 %s: Käytän tyhmän (dumb) päätteen asetuksia.\n -23 %s: VAROITUS: Päätteesi ei osaa siirtää kursoria ylöspäin.\n -24 Pitkillä riveillä tekstinkäsittely voi olla lievästi outoa.\n -25 Päätteestäsi puuttuu toiminto "tuhoa rivin loppuun".\n -26 Päätteestäsi puuttuu toiminto "tuhoa merkki".\n -27 Päätteestäsi puuttuu toiminto "lisää merkki aiempien väliin".\n diff --git a/contrib/tcsh/nls/finnish/set8 b/contrib/tcsh/nls/finnish/set8 deleted file mode 100644 index abff0ad26ab5..000000000000 --- a/contrib/tcsh/nls/finnish/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set8,v 1.1 2000/01/14 22:57:34 christos Exp $ -$ ed.term.c -$set 8 -1 Tuntematon valitsin -2 Soveltumaton argumentti diff --git a/contrib/tcsh/nls/finnish/set9 b/contrib/tcsh/nls/finnish/set9 deleted file mode 100644 index 857dce9f7450..000000000000 --- a/contrib/tcsh/nls/finnish/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $Id: set9,v 1.1 2000/01/14 22:57:34 christos Exp $ -$ ed.xmap.c -$set 9 -1 AddXkey: Null extended-key not allowed.\n -2 AddXkey: sequence-lead-in command not allowed\n -3 DeleteXkey: Null extended-key not allowed.\n -4 Sitomaton laajennettu näppäin "%S"\n -5 Jotkin laajennetut näppäimet ovat liian pitkiä sisäiseen tulostuspuskurille -6 Enumerate: VIKA!! Välitetty null-osoitin\n! -7 ei syötettä -8 Jotain on seurattava: %c\n -9 Oktaalivakio ei mahdu char-tyypin muuttujaan.\n diff --git a/contrib/tcsh/nls/french/set1 b/contrib/tcsh/nls/french/set1 deleted file mode 100644 index 9d8764aca1f4..000000000000 --- a/contrib/tcsh/nls/french/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $Id: set1,v 1.3 1998/06/27 12:27:57 christos Exp $ -$ Messages d 'erreur -$set 1 -1 Erreur de syntaxe -2 %s n'est pas autorisé -3 Mot trop long -4 $< ligne trop longue -5 Pas de fichier pour $0 -6 Modificateur [] incomplet -7 $ l'expansion doit se terminer avant ] -8 Mauvais : modificateur dans $ (%c) -9 Erreur d'indice -10 Numéro mal formé -11 Plus de mots -12 Nom de fichier manquant -13 Erreur globale interne -14 Commande introuvable -15 Trop peu d'arguments -16 Trop d'arguments -17 Trop dangereux d'attribuer un alias à cela -18 `If' vide -19 `Then' incorrect -20 Les mots ne sont pas placés entre parenthèses -21 %s introuvable -22 Masque incorrect -23 Pas de limite de ce type -24 Argument trop long -25 Facteur d'échelle incorrect ou inconnu -26 Variable pas définie -27 La pile de répertoires n'a pas cette taille -28 Mauvais numéro de signal -29 Signal inconnu; "kill -l" permet de lister les signaux -30 Le nom de la variable doit commencer par une lettre -31 Le nom de la variable est trop long -32 Le nom de la variable ne doit contenir que des caractères alphanumériques -33 Pas de gestion des travaux dans ce shell -34 Syntaxe de l'expression -35 Pas de répertoire personnel -36 Impossible de passer dans le répertoire personnel -37 Commande nulle incorrecte -38 Il manque l'affectation dans l'expression -39 Opérateur inconnu -40 ambigu -41 %s: Le fichier existe -42 L'argument pour -c se termine avec un anti-slash -43 Interrompu -44 Indice hors limites -45 Dépassement de capacité de ligne -46 Pas de travail de ce type -47 Impossible à partir d'un terminal -48 Vous n'êtes pas dans une boucle while ou foreach -49 Plus de processus -50 Pas de correspondance -51 %c manquant -52 %c sans correspondance -53 Mémoire insuffisante -54 Impossible de créer un tube -55 %s: %s -56 %s -57 Syntaxe: jobs [ -l ] -58 Les arguments doivent être des ID de processus ou des numéros de travaux -59 Pas de travail en cours -60 Pas de travail précédent -61 Pas de travail de cette forme -62 Emboîtement des `Fork' > %d; peut-être une boucle `...` -63 Pas de gestion des travaux dans les sous-shells -64 Faute `Sync': Processus %d pas trouvé -65 %s Il y a des travaux interrompus -66 %s Il y a des travaux arrêtés -67 Pas d'autre répertoire -68 La pile de répertoires est vide -69 Répertoire incorrect -70 Syntaxe: %s [-%s]%s -71 Pas d'opérande pour l'indicateur -h -72 Ce n'est pas un shell de connexion -73 Division par zéro -74 Modulo par zéro -75 Mise à l'échelle incorrecte ; cela signifie-t-il ``%s'' ? -76 Impossible d'interrompre un shell de connexion -77 Utilisateur inconnu : %s -78 Pas de variable `$home' définie -79 Syntaxe: history [-%s] [# nombre d'évènements] -80 $, ! ou < pas autorisés avec $# or $? -81 Retour-chariot dans un nom de variable -82 * pas autorisé avec $# or $? -83 $?<digit> ou $#<digit> pas autorisé -84 Nom de variable incorrect -85 Retour-chariot dans l'index de variable -86 Dépassement de capacité de la mémoire tampon d'expansion -87 Syntaxe de variable -88 Forme ! incorrecte -89 Pas de remplacement précédent -90 Remplacement incorrect -91 Pas de partie gauche précédente -92 Partie droite trop longue -93 Modificateur ! incorrect: %c -94 Echec du modificateur -95 Dépassement de capacité de la mémoire tampon de substitution -96 Sélecteur d'argument ! incorrect -97 Pas de recherche précédente -98 %s: événement introuvable -99 Trop de caractères ) -100 Trop de caractères ( -101 Caractère ( mal placé -102 Il manque un nom pour rediriger -103 Redirection de sortie ambigue -104 Pas de << entre les caractères ( et ) -105 Redirection d'entrée ambigue -106 Caractères () mal placés -107 Boucle dans les alias -108 Pas de variable `$watch' définie -109 Pas d'évènement prévu -110 Syntaxe: sched -<#numéro>.\nSyntaxe: sched [+]hh:mm <commande> -111 Pas tant d'évènements prévus -112 Pas de commande à lancer -113 Temps incorrect pour l'évènement -114 Temps relatif incompatible avec am/pm -115 Pas assez de place pour la chaine termcap -116 Syntaxe: settc %s [yes|no] -117 Capacité `%s' inconnue -118 Paramètre termcap inconnu `%%%c' -119 Trop d'arguments pour `%s' (%d) -120 `%s' nécessite %d arguments -121 Syntaxe: echotc [-v|-s] [<capacité> [<args>]] -122 %s: %s. Mauvaise Architecture -123 !# Boucle dans l'historique -124 Mauvaise recherche de fichier -125 Dépassement de capacité de sélecteur -126 Option inconnue: `-%s'\nSyntaxe: %s [ -bcdefilmnqstvVxX -Dnom[=valeur] ] [ argument ... ] -127 Option inconnue: `-%s'\nSyntaxe: %s [ -bcdefFilmnqstvVxX ] [ argument ... ] -128 Option inconnue: `-%s'\nSyntaxe: %s [ -bcdefilmnqstvVxX ] [ argument ... ] -129 \nComplément incorrect: "%s" -130 \n%s incorrect: '%c' -131 \nIl manque le séparateur '%c' après %s "%s" -132 \n%s incomplet: "%s" -133 Pas d'opérande pour l'indicateur -m -134 Syntaxe: unlimit [-fh] [limites] -135 $%S est en lecture seule -136 Pas de travail de ce type -137 Unknown colorls variable `%c%c' diff --git a/contrib/tcsh/nls/french/set10 b/contrib/tcsh/nls/french/set10 deleted file mode 100644 index 191462aabbde..000000000000 --- a/contrib/tcsh/nls/french/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set10,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: commande incorrecte '%s'.\n -2 setpath: pas assez d'arguments pour la commande '%s'.\n -3 setpath: donnée manquante dans le chemin '%s'\n -4 setpath: %s pas trouvé dans %s\n -5 setpath: %d pas une position correcte dans %s\n diff --git a/contrib/tcsh/nls/french/set11 b/contrib/tcsh/nls/french/set11 deleted file mode 100644 index 421b99c72b3f..000000000000 --- a/contrib/tcsh/nls/french/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $Id: set11,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ sh.c -$set 11 -1 Attention: pas d'accès au tty (%s).\n -2 Ainsi pas de contrôle de job dans ce shell.\n -3 Vous avez%d messages courrier (mail).\n -4 Vous avez %d messages courrier (mail) dans %s.\n -5 Vous avez du %scourrier.\n -6 nouveau -7 Vous avez du %scourrier dans %s.\n diff --git a/contrib/tcsh/nls/french/set12 b/contrib/tcsh/nls/french/set12 deleted file mode 100644 index ccc1396d21d3..000000000000 --- a/contrib/tcsh/nls/french/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set12,v 1.2 1996/04/26 20:45:51 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: Essaie de démarrer à partir de "%s"\n diff --git a/contrib/tcsh/nls/french/set13 b/contrib/tcsh/nls/french/set13 deleted file mode 100644 index aeefa40abe57..000000000000 --- a/contrib/tcsh/nls/french/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set13,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ sh.exec.c -$set 13 -1 hash=%-4d dir=%-2d prog=%s\n -2 %d groupes de hashage de %d bits chacun\n -3 masque de déboguage = 0x%08x\n -4 %d réussis, %d manqués, %d%%\n -5 %S: commande intégrée au shell.\n -6 %S: Commande pas trouvée.\n -7 où: / dans la commande n'a pas de sens\n -8 %S est un alias avec -9 %S est intégré(e) au shell\n -10 hashage manqués: diff --git a/contrib/tcsh/nls/french/set14 b/contrib/tcsh/nls/french/set14 deleted file mode 100644 index dd168909ab24..000000000000 --- a/contrib/tcsh/nls/french/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set14,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ sh.file.c -$set 14 -1 \nTrop de %s !!\n -2 noms dans le fichier des mots de passe -3 fichiers diff --git a/contrib/tcsh/nls/french/set15 b/contrib/tcsh/nls/french/set15 deleted file mode 100644 index 4a59b546c32e..000000000000 --- a/contrib/tcsh/nls/french/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set15,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: ne peut %s la limite%s\n -2 enlever -3 positionner -4 matérielle diff --git a/contrib/tcsh/nls/french/set16 b/contrib/tcsh/nls/french/set16 deleted file mode 100644 index 0ce1081f6d01..000000000000 --- a/contrib/tcsh/nls/french/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set16,v 1.2 1996/04/26 20:45:55 christos Exp $ -$ sh.lex.c -$set 16 -1 Réinitialise le groupe de processus des terminaux de %d à %d\n -2 \nUtilisez "logout" pour vous déconnecter.\n -3 \nUtilisez "exit" pour quitter %s.\n -4 seek to eval %x %x\n -5 seek to alias %x %x\n -6 seek to file %x\n -7 Mauvais type pour seek %d\n -8 tell eval %x %x\n -9 tell alias %x %x\n -10 tell file %x\n diff --git a/contrib/tcsh/nls/french/set17 b/contrib/tcsh/nls/french/set17 deleted file mode 100644 index a343157fcc4f..000000000000 --- a/contrib/tcsh/nls/french/set17 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set17,v 1.2 1996/10/19 17:52:38 christos Exp $ -$ sh.proc.c -$set 17 -1 BUG: attente de travail en tâche de fond !\n -2 Sortie %d\n -3 BUG: processus vidé deux fois -4 Tourne -5 Signal -6 Sortie %-25d -7 Fait -8 BUG: état=%-9o -9 \040(core dumped) -10 \040(wd: -11 wd maintenant: -12 %S: Déjà suspendu\n -13 %S: Déjà arrêté\n diff --git a/contrib/tcsh/nls/french/set18 b/contrib/tcsh/nls/french/set18 deleted file mode 100644 index 0d6c50f75cf6..000000000000 --- a/contrib/tcsh/nls/french/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set18,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ sh.set.c -$set 18 -1 Attention: le PATH exagérément long est tronqué\n diff --git a/contrib/tcsh/nls/french/set19 b/contrib/tcsh/nls/french/set19 deleted file mode 100644 index c24da8a85005..000000000000 --- a/contrib/tcsh/nls/french/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set19,v 1.2 1996/04/26 20:45:59 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: Plus de mémoire\n -2 free(%lx) appelé avant allocation. -3 free(%lx) au delà de la limite memoire. -4 free(%lx) en deçà de la limite memoire. -5 free(%lx) mauvais bloc. -6 free(%lx) limites incorrectes. -7 free(%lx) index de bloc incorrect. -8 %s allocation mémoire actuelle:\nfree:\t -9 \nutilisé:\t -10 \n\tTotal utilisé: %d, total libre: %d\n -11 \tMémoire allouée de 0x%lx à 0x%lx. Limite réelle supérieure à 0x%lx\n -12 Mémoire allouée de 0x%lx à 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/french/set2 b/contrib/tcsh/nls/french/set2 deleted file mode 100644 index e5bf6173c71b..000000000000 --- a/contrib/tcsh/nls/french/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $Id: set2,v 1.2 1997/10/27 23:33:53 christos Exp $ -$ Messages Signaux -$set 2 -1 Signal nul -2 Interrompu -3 Arrêté -4 Sortie -5 Instruction interdite -6 Piège Trace/BPT -7 Abandon -8 Piège IOT -9 Plantage système imminent -10 Sortie erreur -11 Piège EMT -12 Exception de calcul en virgule flottante -13 Supprimé -14 Signal utilisateur 1 -15 Signal utilisateur 2 -16 Incident de segmentation -17 Erreur de bus -18 Program range error -19 Operand range error -20 Appel système incorrect -21 Tube détruit -22 Alarme -23 Terminé -24 L'état du fils a changé -25 Mort du fils -26 Faute spécifique Apollo -27 Fils arrêté ou sorti -28 Fils sorti -29 Coupure d'alimentation -30 Ressource perdue -31 Break (Ctrl-Break) -32 Signal d'E-S possible -33 Entrée-Sortie asynchrone (select) -34 Condition urgente sur canal d'E-S -35 Reprise multi-tâche -36 Terminaison multi-tâche -37 Achèvement d'E-S asynchrone Fortran -38 Reprise -39 Erreur mémoire irrécupérable -40 Limite temps CPU dépassée -41 Arrêt du système imminent -42 Groupe micro-tasking-pas d'option de réveil définie -43 Erreur de thread - (utilisez cord -T pour plus d'infos) -44 Erreur de parité de registre du CRAY Y-MP -45 Demande d'information -46 Interrompu (Signal) -47 Stoppé (Signal) -48 Interrompu -49 Stoppé -50 Continue -51 Entrée tty suspendue -52 Entrée tty arrêtée -53 Sortie tty suspendue -54 Sortie tty arrêtée -55 Etat de la fenêtre modifié -56 Taille de la fenêtre modifiée -57 Etat du téléphone modifié -58 Limite temps CPU dépassée -59 Taille limite de fichier dépassée -60 Signal de l'horloge virtuelle -61 Signal de profil -62 Signal DIL -63 Un évènement à scruter est arrivé -64 Process's lwps are blocked -65 Signal Special LWP -66 Signal Special CPR -67 Signal Special CPR -68 Premier signal temps réel -69 Deuxième signal temps réel -70 Troisième signal temps réel -71 Quatrième signal temps réel -72 Quatrième signal temps réel avant la fin -73 Antépénultième signal temps réel -74 Avant-dernier signal temps réel -75 Dernier signal temps réel -76 E-S asynchrone LAN -77 Lecture/Ecriture PTY disponible -78 Intervention E-S nécessaire -79 Mode moniteur HFT accordé -80 Le mode moniteur HFT doit être abandonné -81 Le contrôle du son HFT est terminé -82 Données en buffer circulaire HFT -83 Processus de transfert -84 Touche d'attention sécurisée -85 Re-séquencement -86 Signal SS$_DEBUG -87 Priorité modifiée -88 detecté -89 Nouveau caractère d'entrée -90 Stack limit exceeded -91 Unused signal diff --git a/contrib/tcsh/nls/french/set20 b/contrib/tcsh/nls/french/set20 deleted file mode 100644 index 0f26862392bd..000000000000 --- a/contrib/tcsh/nls/french/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $Id: set20,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ tc.bind.c -$set 20 -1 Nom de touche incorrect `%S'\n -2 Mauvais nom de touche: %S\n -3 Mauvais nom de commande: %S\n -4 Mauvaise touche spécifiée %S\n -5 Chaine nulle spécifiée\n -6 Définition de touches standard\n -7 Définition de touches alternatives\n -8 Définition Multi-caractères\n -9 Définition des touches de direction\n -10 %-15s-> n'est pas défini\n -11 BUG!!! %s n'est lié à rien.\n -12 Usage: bindkey [options] [--] [TOUCHE [COMMANDE]]\n -13 -a liste ou définit la TOUCHE dans la table des touches alternatives\n -14 -b interprète TOUCHE comme un nom de touche C-, M-, F- or X-\n -15 -s interprète COMMANDE comme une chaine littérale devant être sortie\n -16 -c interprète COMMANDE comme une commande intégrée ou externe\n -17 -v redéfinit toutes les touches pour vi\n -18 -e redéfinit toutes les touches pour emacs\n -19 -d redéfinit toutes les touches pour de l'éditeur par defaut\n -20 -l liste les commandes de l'éditeur avec descriptions\n -21 -r enlève la correspondance pour la TOUCHE\n -22 -k interprète TOUCHE comme un nom de touche de direction symbolique\n -23 -- force un arrêt dans le traitement de l'option\n -24 -u (ou toute option incorrecte) ce message\n -25 Sans TOUCHE ni COMMANDE, imprime toutes les associations\n -26 Sans COMMANDE, imprime l'association pour TOUCHE.\n -27 mauvaise spécification de touche -- chaine nulle\n -28 mauvaise spécification de touche -- chaine vide\n -29 mauvaise spécification de touche de fonction. Touche nulle pas autorisé\n -30 mauvaise spécification de touche -- nombre hexa mal formé\n -31 mauvaise spécification de touche -- nombre octal mal formé\n -32 mauvaise spécification de touche -- nombre décimal mal formé\n -33 Mauvaise spécification de touche de fonction.\n -34 Touche nulle pas autorisé\n -35 Mauvaise spécification de touche -- nom inconnu "%S"\n -36 Syntaxe: bind [TOUCHE | COMMANDE TOUCHE | "emacs" | "vi" | "-a"]\n -37 Fonction incorrecte -38 %s\t\tn'est pas défini\n diff --git a/contrib/tcsh/nls/french/set21 b/contrib/tcsh/nls/french/set21 deleted file mode 100644 index 78c8c1a468e9..000000000000 --- a/contrib/tcsh/nls/french/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set21,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ tc.disc.c -$set 21 -1 ne peut obtenir les caractères locaux.\n -2 ne peut définir les catactères locaux.\n diff --git a/contrib/tcsh/nls/french/set22 b/contrib/tcsh/nls/french/set22 deleted file mode 100644 index 94f4131f621c..000000000000 --- a/contrib/tcsh/nls/french/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $Id: set22,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t a comme alias -2 \nMot de passe incorrect pour %s\n -3 Erreur alias 'precmd' enlevé.\n -4 Erreur alias 'cwdcmd' enlevé.\n -5 Erreur alias 'beepcmd' enlevé.\n -6 Erreur alias 'periodic' enlevé.\n -7 étude de la ligne de commande\n -8 Voulez vous vraiment supprimer tous les fichiers? [n/y] -9 passe la suppression des fichiers!\n -10 la ligne de commande est maintenant :\n -11 étude de la ligne de commande\n -12 dans une des listes\n -13 la ligne de commande est maintenant :\n -14 OoyY diff --git a/contrib/tcsh/nls/french/set23 b/contrib/tcsh/nls/french/set23 deleted file mode 100644 index 187db0f6862c..000000000000 --- a/contrib/tcsh/nls/french/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $Id: set23,v 1.2 1996/04/26 20:46:04 christos Exp $ -$ tc.os.c -$set 23 -1 Mauvais nom de cpu/site -2 Chemin du site trop mong -3 inconnu -4 site: %s\n -5 %d: Site pas trouvé\n -6 setlocal: %s: %s\n -7 Site pas trouvé -8 Vous êtes piégé dans un univers que vous n'avez jamais créé -9 Getwarp a échoué -10 warp invalide -11 Setwarp a échoué -12 Univers incorrect -13 Erreur inconnue : %d -14 sysname: %s\n -15 nodename: %s\n -16 release: %s\n -17 version: %s\n -18 machine: %s\n -19 getwd: Ne peut ouvrir ".." (%s) -20 getwd: Ne peut effectuer chdir vers ".." (%s) -21 getwd: Erreur en lecture dans ".." (%s) -22 getwd: Ne peut revenir à "." (%s) -23 getwd: Ne peut effectuer stat "/" (%s) -24 getwd: Ne peut effectuer stat "." (%s) -25 getwd: Ne peut effectuer stat sur répertoire "%s" (%s) -26 getwd: Ne peut ouvrir le répertoire "%s" (%s) -27 getwd: Ne peut trouver "." dans ".." (%s) -28 Type de système incorrect -29 Le type de système n'est pas défini -30 XXX: Too many arguments -31 XXX: Invalid argument diff --git a/contrib/tcsh/nls/french/set24 b/contrib/tcsh/nls/french/set24 deleted file mode 100644 index 4c89c35ec4ad..000000000000 --- a/contrib/tcsh/nls/french/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set24,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ tc.sched.c -$set 24 -1 kludge diff --git a/contrib/tcsh/nls/french/set25 b/contrib/tcsh/nls/french/set25 deleted file mode 100644 index f5efff557b0c..000000000000 --- a/contrib/tcsh/nls/french/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set25,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ tc.sig.c -$set 25 -1 notre attente %d\n -2 erreur: bsd_signal(%d) signal hors limites\n -3 erreur: bsd_signal(%d) - sigaction a échoué, errno %d\n diff --git a/contrib/tcsh/nls/french/set26 b/contrib/tcsh/nls/french/set26 deleted file mode 100644 index c42cb3cd9577..000000000000 --- a/contrib/tcsh/nls/french/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set26,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ tc.who.c -$set 26 -1 ne peut effectuer stat %s. S.V.P effectuez "unset watch".\n -2 %s ne peut être ouvert. S.V.P effectuez "unset watch".\n -3 BUG! le dernier élément n'est pas whotail!\n -4 arrière: -5 BUG! le premier élément n'est pas whohead!\n -6 nouveau: %s/%s\n -7 %n a %a %l from %m. -8 %n a %a %l. -9 connecté -10 déconnecté -11 remplacé %s -12 local diff --git a/contrib/tcsh/nls/french/set27 b/contrib/tcsh/nls/french/set27 deleted file mode 100644 index 3f2932164545..000000000000 --- a/contrib/tcsh/nls/french/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set27,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ tw.comp.c -$set 27 -1 commande -2 séparateur -3 motif -4 intervalle -5 complément diff --git a/contrib/tcsh/nls/french/set29 b/contrib/tcsh/nls/french/set29 deleted file mode 100644 index 7309fe40e135..000000000000 --- a/contrib/tcsh/nls/french/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set29,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ tw.help.c -$set 29 -1 Pas de fichier d'aide pour %S\n diff --git a/contrib/tcsh/nls/french/set3 b/contrib/tcsh/nls/french/set3 deleted file mode 100644 index acf6f80be5d9..000000000000 --- a/contrib/tcsh/nls/french/set3 +++ /dev/null @@ -1,117 +0,0 @@ -$ $Id: set3,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ Description des fonctions éditeur -$set 3 -1 Recule d'un caractère -2 Efface le caractère derrière le curseur -3 Coupe depuis le début du mot jusqu'au curseur - sauvegardé dans le tampon de copie -4 Coupe depuis le début de la ligne jusqu'au curseur - sauvegardé dans le tampon de copie -5 Va au début du mot courant -6 Va au début de la ligne -7 Met en majuscules les caractères depuis le curseur jusqu'à la fin du mot -8 Vi change la casse du caractère sous le curseur et avance d'un caractère -9 Vi change jusqu'à la fin de la ligne -10 Efface l'écran en laissant la ligne courant au dessus -11 Complète le mot courant -12 Tab avance parmi les fichiers -13 Tab recule parmi les fichiers -14 Complète le mot courant en ignorant les compléments programmables -15 Copie le mot courant jusqu'au curseur -16 Copie la zone entre la marque et le curseur dans le tampon de copie -17 Développe vers le mot précédent pour lequel c'est un préfixe -18 Efface le caractère sous le curseur -19 Efface le caractère sous le curseur, ou signale la fin de fichier si ligne vide -20 Efface le caractère sous le curseur, ou liste les compléments si fin de ligne -21 Efface le caractère sous le curseur, liste les compléments ou signale la fin de fichier -22 Coupe depuis le curseur jusqu'à la fin du mot courant - sauvegardé dans le tampon de copie -23 Ajoute aux arguments si démarré ou entre le chiffre -24 Chiffre au début de l'argument -25 Va à la prochaine ligne de l'historique -26 Met en minuscules les caractères depuis le curseur jusqu'à la fin du mot -27 Indique la fin de fichier -28 Déplace le curseur à la fin de la ligne -29 Echange le curseur et la marque -30 Développe les jokers du nom de fichier -31 Développe les échappements de l'historique -32 Développe les échappements de l'historique en une ligne -33 Développe les variables -34 Avance d'un caractère -35 Avance à la fin du mot courant -36 Echange les deux caractères avant le curseur -37 Cherche en arrière dans l'historique une ligne commençant comme la ligne courante -38 Cherche en avant dans l'historique une ligne commençant comme la ligne courante -39 Insère le dernier elément de la commande précédente -40 Recherche en avant incrémentale -41 Recherche en arrière incrémentale -42 Efface la ligne -43 Coupe jusqu'à la fin de la ligne et sauvegarde dans le tampon de copie -44 Coupe la zone entre la marque et le curseur et sauvegarde dans le tampon de copie -45 Coupe toute la ligne et sauvegarde dans le tampon de copie -46 Liste les choix pour le complément -47 Liste les choix pour le complément sur-définissant le complément programmable -48 Liste les correspondances pour le nom de fichier avec joker -49 Liste les choix pour le complément ou indique la fin de fichier si ligne vide -50 Affiche la charge moyenne et l'état courant des processus -51 Développe les échappements de l'historique et insère une espace -52 Exécute la commande -53 Développe les nom de répertoires, éliminant les `.' et `..' en tête -54 Développe les commandes pour le chemin ou l'alias résultant -55 Passe du mode insertion au mode recouvrement et vice-versa -56 Ajoute le 8ième bit au prochain caractère saisi -57 Ajoute le prochain caractère saisi à la ligne -58 Réaffiche tout -59 Redémarre l'éditeur -60 Cherche de l'aide pour la commande courante -61 Ce caractère est ajouté à la ligne -62 Ca caractère est le premier dans une séquence de caractères -63 Définit la marque à la position du curseur -64 Corrige la syntaxe du mot courant -65 Corrige la syntaxe de la ligne complète -66 Envoie le caractère au tty en mode -67 Bascule la ligne courante de l'historique entre le mode littéral et lexical -68 Echange le caractère à la gauche du curseur avec celui en dessous du curseur -69 Echange les deux caractères avant le curseur -70 Caractère tty de suspension différé -71 Caractère tty de vidage de sortie -72 Caractère tty d'interruption -73 Caractère tty de sortie -74 Caractère tty de suspension -75 Caractère tty de validation de sortie -76 Caractère tty d'invalidation de sortie -77 Indique un caractère pas attaché -78 Argument universel Emacs (argument x 4) -79 Va à la ligne précédente de l'historique -80 Met en majuscule les caractères depuis le curseur jusqu'à la fin du mot courant -81 Vi va au début du prochain mot -82 Vi passe en mode insertion après le curseur -83 Vi passe en mode insertion à la fin de la ligne -84 Vi change la casse du caractère sous le curseur et avance d'un caractère -85 Vi change la commande `prefix' -86 Vi change jusqu'à la fin de la ligne -87 Passe au mode de commande Vi (redéfinition des touches alternatives) -88 Le mode commande de Vi complète le mot courant -89 Vi va au caractère précédent (retour-arrière) -90 Vi efface la commande `prefix' -91 Vi va à la fin du mot courant délimité par des espaces -92 Vi va à la fin du mot courant -93 Vi va vers le caractère spécifié avant -94 Vi va vers le caractère spécifié après -95 Vi remonte vers le caractère spécifié avant -96 Vi remonte vers le caractère spécifié après -97 Passe en mode insertion Vi -98 Passe en mode insertion Vi au début de la ligne -99 Vi répète la recherche du caractère en cours dans la même direction -100 Vi répète la recherche du caractère en cours dans la direction opposée -101 Vi répète la recherche en cours dans la même direction -102 Vi répète la recherche en cours dans la direction opposée -103 Vi remplace le caractère sous le curseur avec le prochain caractère saisi -104 Mode de remplacement Vi -105 Vi cherche dans l'historique en arrière -106 Vi cherche dans l'historique en avant -107 Vi remplace le caractère sous le curseur et passe en mode insertion -108 Vi remplace la ligne entière -109 Vi va au mot précédent -110 Vi va au prochain mot -111 Vi défait la dernière modification -112 Vi va au début de la ligne -113 Exécute quelle commande en cours -114 Colle le tampon de copie à la position du curseur diff --git a/contrib/tcsh/nls/french/set30 b/contrib/tcsh/nls/french/set30 deleted file mode 100644 index 27ab9c9fae3a..000000000000 --- a/contrib/tcsh/nls/french/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set30,v 1.2 1996/04/26 20:46:09 christos Exp $ -$ tw.parse.c -$set 30 -1 démarre une commande %d\n -2 complete %d -3 complete %d %S\n -4 %s: Erreur interne de correspondance.\n -5 éléments -6 colonnes -7 Il y a %d %s, les lister quand même ? [n/y] -8 looking = %d\n -9 \nerreur interne %s: Je ne sais pas ce que je recherche !\n -10 pas un répertoire -11 pas trouvé -12 pas lisible -13 oOyY diff --git a/contrib/tcsh/nls/french/set31 b/contrib/tcsh/nls/french/set31 deleted file mode 100644 index 211c5bf0d5b6..000000000000 --- a/contrib/tcsh/nls/french/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set31,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ vms.termcap.c -$set 31 -1 Ne peut ouvrir TERMCAP: [%s]\n -2 Ne peut ouvrir %s.\n -3 Trouvé %s dans %s.\n -4 Pas de correspondance trouvée pour %s dans le fichier %s\n diff --git a/contrib/tcsh/nls/french/set4 b/contrib/tcsh/nls/french/set4 deleted file mode 100644 index bff6be317774..000000000000 --- a/contrib/tcsh/nls/french/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $Id: set4,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ Termcap strings -$set 4 -1 ajoute une nouvelle ligne vide -2 bip audible -3 efface jusqu'en bas -4 efface jusqu'à la fin de la ligne -5 curseur vers un position horizontale -6 efface l'écran -7 efface un caractère -8 efface une ligne -9 commence le mode d'effacement -10 termine le mode d'effacement -11 termine le mode d'insertion -12 curseur de la ligne d'état -13 curseur origine -14 insère caractère -15 commence le mode insertion -16 insère du remplissage -17 curseur vers le bas -18 curseur vers la gauche -19 curseur vers la droite -20 curseur vers le haut -21 commence le gras -22 fin attributs -23 espaces non-destructives -24 fin mise en évidence -25 commence mise en évidence -26 curseur à la ligne d'état -27 curseur d'une vers le haut -28 commence souligné -29 fin souligné -30 bip `visible' -31 efface plusiseurs caractères -32 curseur vers le bas (plusieurs) -33 insert plusieurs caractères -34 curseur vers la gauche (plusieurs) -35 curseur vers la droite (plusieurs) -36 curseur vers le haut (plusieurs) -37 A les marge automatiques -38 Peut utiliser les tabulations physiques -39 Nombre de lignes -40 Nombre de colonnes -41 A les touches `alternatives' -42 retoure-chariot ignoré à la droite de la marge diff --git a/contrib/tcsh/nls/french/set5 b/contrib/tcsh/nls/french/set5 deleted file mode 100644 index d2caaea113ae..000000000000 --- a/contrib/tcsh/nls/french/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set5,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ ed.chared.c -$set 5 -1 Charge moyenne indisponible\n diff --git a/contrib/tcsh/nls/french/set6 b/contrib/tcsh/nls/french/set6 deleted file mode 100644 index f766687eb2ac..000000000000 --- a/contrib/tcsh/nls/french/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $Id: set6,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ ed.inputl.c -$set 6 -1 ERREUR: commande interdite de la touche 0%o\r\n -2 oui\n -3 edit\n -4 arrête\n -5 non\n -6 Pas de commande correspondante\n -7 Commande ambigue\n -8 *** ERREUR fatale de l'éditeur ***\r\n\n diff --git a/contrib/tcsh/nls/french/set7 b/contrib/tcsh/nls/french/set7 deleted file mode 100644 index 104eb4b24293..000000000000 --- a/contrib/tcsh/nls/french/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $Id: set7,v 1.2 1996/04/26 20:46:12 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tTcsh a déterminé que votre terminal a les\n -2 \tcaractéristiques suivantes :\n\n -3 \tIl a %d colonnes et %d lignes\n -4 \tIl %s touche `alternative'\n -5 a une -6 n'a pas de -7 \tIl %speut utiliser les tabulations\n -8 ne -9 \tIl %s les marges automatiques\n -10 a -11 n'a pas -12 \tIl %s les marges magiques\n -13 (vide) -14 oui -15 non -16 ERREUR: ne peut pas effacer\r\n -17 DeleteChars: num est ridicule: %d\r\n -18 ERREUR: ne peut insérer\r\n -19 StartInsert: num est ridicule: %d\r\n -20 %s: Ne peut ouvrir /etc/termcap.\n -21 %s: Pas d'entrée pour le type de terminal "%s"\n -22 %s: utilise la configuration d'un terminal banal.\n -23 %s: ATTENTION: Votre terminal ne peut effectuer de déplacement vers le haut.\n -24 L'édition peut être incorrecte pour les longues lignes.\n -25 pas de capacité d'effacement jusqu'à fin de ligne.\n -26 pas de capacité d'effacement de caractère.\n -27 pas de capacité d'insertion de caractère.\n diff --git a/contrib/tcsh/nls/french/set8 b/contrib/tcsh/nls/french/set8 deleted file mode 100644 index 3c089f8abb88..000000000000 --- a/contrib/tcsh/nls/french/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set8,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ ed.term.c -$set 8 -1 Sélecteur inconnu -2 Argument incorrect diff --git a/contrib/tcsh/nls/french/set9 b/contrib/tcsh/nls/french/set9 deleted file mode 100644 index b776d6b1b9ac..000000000000 --- a/contrib/tcsh/nls/french/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $Id: set9,v 1.1 1995/04/25 14:04:35 christos Exp $ -$ ed.xmap.c -$set 9 -1 AddXkey: touche d'extension nulle pas autorisé.\n -2 AddXkey: commande séquence d'introduction (sequence-lead-in) pas autorisé\n -3 DeleteXkey: touche d'extension nulle pas autorisé.\n -4 Touche d'extension pas définie "%S"\n -5 Certaines touches d'extension trop longues pour tampon d'impression interne -6 Enumerate: BUG!! Pointeur Null passé!\n -7 pas d'entrée -8 Quelque chose doit suivre: %c\n -9 Une constante Octale ne peut pas tenir dans un caractère.\n diff --git a/contrib/tcsh/nls/german/set1 b/contrib/tcsh/nls/german/set1 deleted file mode 100644 index 616e5a12bcfd..000000000000 --- a/contrib/tcsh/nls/german/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $Id: set1,v 1.5 1998/06/27 12:27:59 christos Exp $ -$ Error messages -$set 1 -1 Syntaxfehler -2 %s nicht erlaubt -3 Word zu lang -4 $< Zeile zu lang -5 Keine Datei für $0 -6 Unvollständiger [] Modifizierer -7 $ Ausweitung muß vor ] enden -8 Falscher : Modifizierer in $ (%c) -9 Indexfehler -10 Falsche Nummer -11 Keine Worte mehr -12 Dateiname fehlt -13 Interner Fehler (glob) -14 Befehl nicht gefunden -15 Zu wenig Argumente -16 Zu viele Argumente -17 Zu gefährlich für ein Alias -18 Leeres If -19 Unpassendes Then -20 Worte nicht in Klammern -21 %s nicht gefunden -22 Ungeeignete Maske -23 Keine bekannte Begrenzung -24 Argument zu groß -25 Ungeeigneter oder unbekannter Vergrößerungsfaktor -26 Undefinierte Variable -27 Verzeichnisstapel nicht so tief -28 Falscher Signalname -29 Unbekanntes Signal; kill -l listet Signale auf -30 Variablenname muß mit einem Buchstaben beginnen -31 Variablenname zu lang -32 Variablenname muß Buchstaben oder Ziffern enthalten -33 Keine Jobkontrolle in dieser Shell -34 Ausdruck nicht korrekt -35 Kein Startverzeichnis -36 Kann nicht in das Startverzeichnis wechseln -37 Ungültiger leerer Befehl -38 Zuweisung ohne Ausdruck -39 Unbekannter Operator -40 Mehrdeutig -41 %s: Datei existiert -42 Argument für -c endet mit einem Backslash (\\) -43 Abgebrochen -44 Index nicht im gültigen Bereich -45 Zeilenüberlauf -46 Kein solcher Job -47 Kann nicht vom Terminal -48 Nicht in while/foreach -49 Keine Prozesse mehr -50 Kein Treffer -51 Fehlendes %c -52 Überflüssiges %c -53 Kein Speicher mehr -54 Kann keine Pipe erzeugen -55 %s: %s -56 %s -57 Benutzung: jobs [ -l ] -58 Argumente können Job- oder Prozeß-ID's sein -59 Kein aktueller Job -60 Kein vorhergehender Job -61 Kein Job entspricht dem Muster -62 Fork-Ebene > %d; evtl. `...` Schleife? -63 Keine Jobkontrolle in Unter-Shells -64 Sync-Fehler: Prozeß %d nicht gefunden -65 %sEs gibt noch angehaltene Jobs -66 %sEs gibt noch angehaltene Jobs -67 Kein anderes Verzeichnis -68 Verzeichnisstapel leer -69 Ungültiges Verzeichnis -70 Benutzung: %s [-%s]%s -71 Kein Operand für -h -72 Nicht in einer Login-Shell -73 Division durch 0 -74 Mod durch 0 -75 Bad scaling; did you mean "%s"? -76 Kann Login-Shell (noch) nicht anhalten -77 Unbekannter Benutzer: %s -78 Keine $home-Variable gesetzt -79 Benutzung: history [-%s] [# Anzahl der Befehle] -80 $, ! oder < nicht erlaubt mit $# or $? -81 Zeilenumbruch in Variablenname -82 * nicht erlaubt bei $# or $? -83 $?<digit> or $#<digit> nicht erlaubt -84 Ungültiger Variablenname -85 Zeilenumbruch in Variablenindex -86 Überlauf des Erweiterungspuffers -87 Variablen-Syntax -88 Falsche ! Form -89 Keine vorhergehende Ersetzung -90 Falsche Ersetzung -91 Keine vorhergehende linke Seite -92 Rechte Seite zu lang -93 Falscher ! Modifizierer: %c -94 Modifizierer fehlgeschlagen -95 Überlauf des Ersetzungspuffers -96 Falscher ! Argumentbezeichner -97 Keine vorhergehende Suche -98 %s: Befehl nicht gefunden -99 Zu viele ')' -100 Zu viele '(' -101 Falsch plazierte '(' -102 Fehlender Name für Umlenkung -103 Mehrdeutige Ausgabeumlenkung -104 Kann keine << innerhalb von () -105 Mehrdeutige Eingabeumlenkung -106 Falsch plazierte () -107 Alias-Schleife -108 Keine $watch-Variable gesetzt -109 Keine vorgemerkten Befehle -110 Benutzung: sched -<item#>.\nBenutzung: sched [+]hh:mm <Befehl> -111 Nicht so viele vorgemerkte Befehle -112 Kein auszuführender Befehl -113 Ungültige Zeit für Befehl -114 Relative Zeit inkonsistent mit am/pm -115 Kein Platz mehr für Termcap-Eintrag -116 Benutzung: settc %s [yes|no] -117 Unbekannte Fähigkeit `%s' -118 Unbekannter Termcap-Parameter `%%%c' -119 Zu viele Argumente für `%s' (%d) -120 `%s' erfordert %d Argumente -121 Benutzung: echotc [-v|-s] [<Fähigkeit> [<Argumente>]] -122 %s: %s. Falsche Architektur -123 !# History-Schleife -124 Falsche Dateianforderung -125 Selector-Überlauf -126 Unbekannte Option: `-%s'\nBenutzung: %s [ -bcdefilmnqstvVxX -Dname[=Wert] ] [ Argument ... ] -127 Unbekannte Option: `-%s'\nBenutzung: %s [ -bcdefFilmnqstvVxX ] [ Argument ... ] -128 Unbekannte Option: `-%s'\nBenutzung: %s [ -bcdefilmnqstvVxX ] [ Argument ... ] -129 \nUngültige Vervollständigung: "%s" -130 \nUngültiger %s: '%c' -131 \nFehlende Trennung '%c' nach %s "%s" -132 \nUnvollständiger/-ges %s: "%s" -133 Kein Operand für -m Option -134 Benutzung: unlimit [-fh] [Grenzen] -135 $%S ist nur lesbar -136 Kein solcher Job -137 Unknown colorls variable `%c%c' diff --git a/contrib/tcsh/nls/german/set10 b/contrib/tcsh/nls/german/set10 deleted file mode 100644 index ae50ffb0fefc..000000000000 --- a/contrib/tcsh/nls/german/set10 +++ /dev/null @@ -1,9 +0,0 @@ -$ $Id: set10,v 1.3 1996/10/19 17:52:48 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: ungültiger Befehl '%s'.\n -2 setpath: unzureichende Argumente für Befehl '%s'.\n -3 setpath: Wert fehlt in Pfad '%s'\n -4 setpath: %s nicht in %s gefunden\n -5 setpath: %d keine gültige Position in %s\n - diff --git a/contrib/tcsh/nls/german/set11 b/contrib/tcsh/nls/german/set11 deleted file mode 100644 index 793e4d4a4759..000000000000 --- a/contrib/tcsh/nls/german/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $Id: set11,v 1.4 1996/10/19 17:52:49 christos Exp $ -$ sh.c -$set 11 -1 Warnung: kein Zugriff auf Tty (%s).\n -2 Daher keine Job Control in dieser Shell.\n -3 Sie haben %d Mails.\n -4 Sie haben %d Mails in %s.\n -5 Sie haben %sMail.\n -6 neue\040 -7 Sie haben %sMail in %s.\n diff --git a/contrib/tcsh/nls/german/set12 b/contrib/tcsh/nls/german/set12 deleted file mode 100644 index fefab671611e..000000000000 --- a/contrib/tcsh/nls/german/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set12,v 1.3 1996/04/26 20:54:21 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: Versuche von "%s" zu starten.\n diff --git a/contrib/tcsh/nls/german/set13 b/contrib/tcsh/nls/german/set13 deleted file mode 100644 index e03203a8210a..000000000000 --- a/contrib/tcsh/nls/german/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set13,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ sh.exec.c -$set 13 -1 hash=%-4d dir=%-2d prog=%s\n -2 %d Hash-Buckets mit jeweils %d Bits\n -3 debug mask = 0x%08x\n -4 %d Treffer, %d Fehler, %d%%\n -5 %S: Befehl in Shell eingebaut.\n -6 %S: Befehl nicht gefunden.\n -7 where: / in Befehl ist nicht sinnvoll\n -8 %S ist ein Alias für -9 %S ist ein eingebauter Shell-Befehl\n -10 Hash-Fehler: diff --git a/contrib/tcsh/nls/german/set14 b/contrib/tcsh/nls/german/set14 deleted file mode 100644 index e8828771e685..000000000000 --- a/contrib/tcsh/nls/german/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set14,v 1.3 1996/10/19 17:52:50 christos Exp $ -$ sh.file.c -$set 14 -1 \nAuweia!! Zu viele %s!!\n -2 Namen in Passwort-Datei -3 Dateien diff --git a/contrib/tcsh/nls/german/set15 b/contrib/tcsh/nls/german/set15 deleted file mode 100644 index 3113808994fd..000000000000 --- a/contrib/tcsh/nls/german/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set15,v 1.3 1996/10/19 17:52:51 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: Kann Begrenzung nicht %s%s\n -2 löschen -3 setzen -4 \040(hard limit) diff --git a/contrib/tcsh/nls/german/set16 b/contrib/tcsh/nls/german/set16 deleted file mode 100644 index e43d5a8e9416..000000000000 --- a/contrib/tcsh/nls/german/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set16,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ sh.lex.c -$set 16 -1 Setze Prozeßgruppe des Terminals von %d auf %d\n -2 \nBitte "logout" zum Abmelden benutzen.\n -3 \nBitte "exit" zum Verlassen der Tcsh benutzen.\n -4 seek to eval %x %x\n -5 seek to alias %x %x\n -6 seek to file %x\n -7 Falscher Typ für seek: %d\n -8 tell eval %x %x\n -9 tell alias %x %x\n -10 tell file %x\n diff --git a/contrib/tcsh/nls/german/set17 b/contrib/tcsh/nls/german/set17 deleted file mode 100644 index 36a6e7668751..000000000000 --- a/contrib/tcsh/nls/german/set17 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set17,v 1.3 1996/10/19 17:52:51 christos Exp $ -$ sh.proc.c -$set 17 -1 FEHLER: Warte auf Hintergrund-Job!\n -2 Exitcode %d\n -3 FEHLER: Prozeß "flushed" zum zweitenmal -4 Läuft -5 Signal -6 Exitcode %-25d -7 Fertig -8 FEHLER: Status=%-9o -9 \040(core dumped) -10 \040(Verz:\040 -11 (Verz jetzt: -12 %S: Bereits angehalten\n -13 %S: Bereits angehalten\n diff --git a/contrib/tcsh/nls/german/set18 b/contrib/tcsh/nls/german/set18 deleted file mode 100644 index 016e6700a505..000000000000 --- a/contrib/tcsh/nls/german/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set18,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ sh.set.c -$set 18 -1 Warnung: lächerlich langer PATH abgeschnitten\n diff --git a/contrib/tcsh/nls/german/set19 b/contrib/tcsh/nls/german/set19 deleted file mode 100644 index 376ce3009b1e..000000000000 --- a/contrib/tcsh/nls/german/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set19,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: Out of memory\n -2 free(%lx) aufgerufen vor irgendeiner Allokation. -3 free(%lx) vor dem Start des Speichers. -4 free(%lx) hinter dem Ende des Speichers. -5 free(%lx) falschen Block. -6 free(%lx) falscher Bereichs-Check. -7 free(%lx) falscher Block-Index. -8 Tcsh's augenblickliche Speicherbelegung:\nfrei:\t -9 \nbenutzt:\t -10 \n\tInsgesamt in Benutzung: %d, insgesamt frei: %d\n -11 \tAllokierter Speicher von 0x%lx bis 0x%lx. Wirklicher Anfang 0x%lx\n -12 Allokierter Speicher von 0x%lx bis 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/german/set2 b/contrib/tcsh/nls/german/set2 deleted file mode 100644 index 08af0c76ccf9..000000000000 --- a/contrib/tcsh/nls/german/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $Id: set2,v 1.4 1997/10/27 23:33:55 christos Exp $ -$ Signal names -$set 2 -1 Null signal -2 Aufgelegt -3 Unterbrochen -4 Verlassen -5 Fehlerhafte Prozessoranweisung -6 Trace/BPT trap -7 Abbruch -8 IOT trap -9 Systemabsturz steht bevor -10 Fehlerhaft beendet -11 EMT trap -12 Fließkommafehler -13 Abgebrochen -14 Benutzersignal 1 -15 Benutzersignal 2 -16 Speicherschutzverletzung -17 Bus error -18 Programmbereichsfehler -19 Operandenbereichsfehler -20 Falscher Systemaufruf -21 Ausgabeweitergabe abgebrochen -22 Alarm clock -23 Beendet -24 Kindprozeß hat Zustand geändert -25 Abbruch eines Kindprozesses -26 Apollo-spezifischer Fehler -27 Kindprozeß angehalten oder beendet -28 Kindprozeß beendet -29 Stromunterbrechung -30 Ressource verloren -31 Unterbrechung (Ctrl-Break) -32 Mögliches Ein-/Ausgabesignal -33 Asynchrone I/O (select) -34 Dringende Anfrage von Ein-/Ausgabekanal -35 Multitasking wake-up -36 Multitasking kill -37 Fortran asynchrones Ein-Ausgabeende -38 Wiederaufsetzen -39 Nicht korrigierbarer Speicherfehler -40 CPU-Zeitbeschränkung überschritten -41 Systembeendigung absehbar -42 micro-tasking group-no wakeup flag set -43 Thread error - (use cord -T for detailed info) -44 CRAY Y-MP register parity error -45 Information request -46 Angehalten (Signal) -47 Angehalten (Signal) -48 Angehalten -49 Angehalten -50 Fortsetzen -51 Angehalten (Tty-Eingabe) -52 Angehalten (Tty-Eingabe) -53 Angehalten (Tty-Ausgabe) -54 Angehalten (Tty-Ausgabe) -55 Fensterzustand hat sich geändert -56 Fenstergröße hat sich geändert -57 Phone status changed -58 CPU-Zeitbeschränkung überschritten -59 Beschränkung der Dateigröße überschritten -60 Virtueller Zeitalarm -61 Profiling time alarm -62 DIL signal -63 Pollable event occured -64 Process's lwps are blocked -65 Special LWP signal -66 Special CPR Signal -67 Special CPR Signal -68 First Realtime Signal -69 Second Realtime Signal -70 Third Realtime Signal -71 Fourth Realtime Signal -72 Fourth Last Realtime Signal -73 Third Last Realtime Signal -74 Second Last Realtime Signal -75 Last Realtime Signal -76 LAN Asyncronous I/O -77 PTY read/write availability -78 I/O intervention required -79 HFT monitor mode granted -80 HFT monitor mode should be relinguished -81 HFT sound completed -82 Data in HFT ring buffer -83 Migrate process -84 Secure attention key -85 Reschedule -86 Signaling SS$_DEBUG -87 Priority changed -88 Echte Verklemmung entdeckt -89 New input character -90 Stack limit exceeded -91 Unused signal diff --git a/contrib/tcsh/nls/german/set20 b/contrib/tcsh/nls/german/set20 deleted file mode 100644 index 877367179004..000000000000 --- a/contrib/tcsh/nls/german/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $Id: set20,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ tc.bind.c -$set 20 -1 Ungültiger Tastenname `%S'\n -2 Falsche Tastenname: %S\n -3 Falsche Befehlsname: %S\n -4 Falsche Tastenangabe %S\n -5 Leere Zeichenkette angegeben\n -6 Standard Tastenbelegung\n -7 Alternative Tastenbelegung\n -8 Belegungen mit mehreren Zeichen\n -9 Belegungen der Pfeiltasten\n -10 %-15s-> ist undefiniert\n -11 BUG!!! %s ist mit nichts belegt.\n -12 Benutzung: bindkey [Optionen] [--] [TASTE [BEFEHL]]\n -13 -a belege Taste in alternativer Tastenbelegung\n -14 -b akzeptiere symbolische Tastendefinitionen\n -15 -s belege einen Out-String anstelle eines Befehls\n -16 -c belege einen Unix-Befehl anstelle eines Befehls\n -17 -v initialisiere Belegungen mit Standard-Vi-Belegungen\n -18 -e initialisiere Belegungen mit Standard-Emacs-Belegungen\n -19 -d initialisiere Belegungen mit Standard-Belegungen\n -20 -l zeige verfügbare Funktionen mit Beschreibungen an\n -21 -r entferne Belegung eines Tastes\n -22 -k belege Pfeiltaste mit Namen in In-String\n -23 -- force a break from option processing\n -24 -u (or any invalid option) this message\n -25 Wenn kein Out-String oder Befehl angegeben wurde, wir die Belegung für\n -26 den In-String ausgegeben oder alle Belegungen, falls kein in-String gegeben.\n -27 Falsche Tastenangabe -- nicht definierte Zeichenkette\n -28 Falsche Tastenangabe -- leere Zeichenkette\n -29 Falsche Funktionstastenangabe. Leere Taste nicht erlaubt\n -30 Falsche Tastenangabe -- nicht korrekte Hex-Zahl\n -31 Falsche Tastenangabe -- nicht korrekte Oktal-Zahl\n -32 Falsche Tastenangabe -- nicht korrekte Dezimal-Zahl\n -33 Falsche Funktionstastenangabe.\n -34 Leere Taste nicht erlaubt\n -35 Falsche Tastenangabe -- unbeannter Name "%S"\n -36 Benutzung: bind [TASTE | BEFEHL TASTE | "emacs" | "vi" | "-a"]\n -37 Ungültige Funktion -38 %s\t\tist undefiniert\n diff --git a/contrib/tcsh/nls/german/set21 b/contrib/tcsh/nls/german/set21 deleted file mode 100644 index 509887f06371..000000000000 --- a/contrib/tcsh/nls/german/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set21,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ tc.disc.c -$set 21 -1 Kann lokale Sonderzeichen nicht auslesen.\n -2 Kann lokale Sonderzeichen nicht setzen.\n diff --git a/contrib/tcsh/nls/german/set22 b/contrib/tcsh/nls/german/set22 deleted file mode 100644 index d7521bd77e13..000000000000 --- a/contrib/tcsh/nls/german/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $Id: set22,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t ein Alias für -2 \nPasswort nicht korrekt für %s\n -3 Fehlerhafter Alias 'precmd' entfernt.\n -4 Fehlerhafter Alias 'cwdcmd' entfernt.\n -5 Fehlerhafter Alias 'beepcmd' entfernt.\n -6 Fehlerhafter Alias 'periodic' entfernt.\n -7 zerteile Kommandozeile\n -8 Wollen Sie wirklich alle Dateien löschen? [n/j] -9 Übergehe das Löschen der Dateien!\n -10 Kommandozeile ist nun:\n -11 zerteile Kommandozeile\n -12 in einer der Listen\n -13 Kommandozeile ist nun:\n -14 jJyY diff --git a/contrib/tcsh/nls/german/set23 b/contrib/tcsh/nls/german/set23 deleted file mode 100644 index f2bd825f346b..000000000000 --- a/contrib/tcsh/nls/german/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $Id: set23,v 1.3 1996/04/26 20:54:22 christos Exp $ -$ tc.os.c -$set 23 -1 Falscher Cpu/Site-Name -2 Site-Pfad zu lang -3 unbekannt -4 Site: %s\n -5 %d: Site nicht gefunden\n -6 setlocal: %s: %s\n -7 Site nicht gefunden -8 Sie sind in einem Universum gefangen, daß Sie nie gemacht haben -9 Getwarp fehlgeschlagen -10 Ungültiger Warp -11 Setwarp fehlgeschlagen -12 Ungültiges Universum -13 Unbekannter Fehler: %d -14 sysname: %s\n -15 nodename: %s\n -16 release: %s\n -17 version: %s\n -18 machine: %s\n -19 getwd: Kann ".." nicht öffnen (%s) -20 getwd: Kann nicht in ".." wechseln (%s) -21 getwd: Lesefehler in ".." (%s) -22 getwd: Kann nicht zurück zu "." wechseln (%s) -23 getwd: Kann kein stat auf "/" machen (%s) -24 getwd: Kann kein stat auf "." machen (%s) -25 getwd: Kann kein stat auf Verzeichnis "%s" machen (%s) -26 getwd: Kann Verzeichnis "%s" nicht öffnen (%s) -27 getwd: Kann "." nicht in ".." finden (%s) -28 Ungültiger Systemtyp -29 Systemtyp ist nicht gesetzt -30 Too many arguments -31 Invalid argument diff --git a/contrib/tcsh/nls/german/set24 b/contrib/tcsh/nls/german/set24 deleted file mode 100644 index 96ecbb4f5859..000000000000 --- a/contrib/tcsh/nls/german/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set24,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ tc.sched.c -$set 24 -1 Hack! diff --git a/contrib/tcsh/nls/german/set25 b/contrib/tcsh/nls/german/set25 deleted file mode 100644 index 443104ae6cfc..000000000000 --- a/contrib/tcsh/nls/german/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set25,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ tc.sig.c -$set 25 -1 unser wait %d\n -2 Fehler: bsd_signal(%d) Signal außerhalb der Grenzen\n -3 Fehler: bsd_signal(%d) - sigaction fehlerhaft, errno %d\n diff --git a/contrib/tcsh/nls/german/set26 b/contrib/tcsh/nls/german/set26 deleted file mode 100644 index 548b534eafe6..000000000000 --- a/contrib/tcsh/nls/german/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set26,v 1.3 1996/10/19 17:52:52 christos Exp $ -$ tc.who.c -$set 26 -1 Kein Zugriff auf %s. Bitte "unset watch" eingeben.\n -2 %s kann nicht geöffnet werden. Bitte "unset watch" eingeben.\n -3 FEHLER! letztes Element ist nicht whotail!\n -4 Zurück: -5 FEHLER! erstes Element ist nicht whohead!\n -6 neu: %s/%s\n -7 %n hat %a an %l von %m. -8 %n hat %a an %l. -9 sich angemeldet -10 sich abgemeldet -11 %s ersetzt -12 lokal diff --git a/contrib/tcsh/nls/german/set27 b/contrib/tcsh/nls/german/set27 deleted file mode 100644 index d5a646088a46..000000000000 --- a/contrib/tcsh/nls/german/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set27,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ tw.comp.c -$set 27 -1 Befehl -2 Trenner -3 Muster -4 Bereichs -5 Vervollständigung diff --git a/contrib/tcsh/nls/german/set29 b/contrib/tcsh/nls/german/set29 deleted file mode 100644 index 490b5324c931..000000000000 --- a/contrib/tcsh/nls/german/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set29,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ tw.help.c -$set 29 -1 Keine Hilfe-Datei für %S\n diff --git a/contrib/tcsh/nls/german/set3 b/contrib/tcsh/nls/german/set3 deleted file mode 100644 index c19ea2ad8f2d..000000000000 --- a/contrib/tcsh/nls/german/set3 +++ /dev/null @@ -1,117 +0,0 @@ -$ $Id: set3,v 1.4 1995/04/25 14:08:04 christos Exp $ -$ Editor function descriptions -$set 3 -1 Ein Zeichen zurück -2 Lösche Zeichen hinter Cursor -3 Lösche vom Anfang des aktuellen Worts bis zum Cursor - in Cut-Puffer -4 Lösche vom Anfang der Zeile bis zum Cursor - in Cut-Puffer -5 Gehe an den Anfang des aktuellen Worts -6 Gehe zum Anfang der Zeile -7 Wandele vom Cursor bis zum Ende des aktuellen Worts in Großbuchstaben um -8 Vi: Ändere Groß/Kleinschreibung des Zeichen unter dem Cursor und bewege Cursor eins nach vorn -9 Vi: Ändere bis zum Ende der Zeile -10 Lösche Bildschirm (aktuelle Zeile oben) -11 Vervollständige aktuelles Wort -12 Gehe mit Tab vorwärts durch die Dateiliste -13 Gehe mit Tab rückwärts durch die Dateiliste -14 Vervollständige Wort (ignoriere programmierbare Vervollständigungen) -15 Kopiere aktuelles Wort zum Cursor -16 Kopiere Area zwischen Marke und Cursor in Cut-Puffer -17 Erweitere zu früherem Wort für das dies ein Anfang ist -18 Lösche Zeichen unter Cursor -19 Lösche Zeichen unter Cursor oder gib EOF-Signal am Ende der Zeile -20 Lösche Zeichen unter Cursor oder zeige Vervollständigungen am Ende der Zeile an -21 Lösche Zeichen unter Cursor oder zeige Vervollständigungen oder gib EOF-Signal -22 Lösche von Cursor bis zum Ende des aktuellen Worts - in Cut-Puffer -23 Füge Argument hinzu, wenn gestartet, oder gib zahl ein -24 Ziffer, die ein Argument beginnt -25 Gehe zur nächsten History-Zeile -26 Wandele vom Cursor bis zum Ende des aktuellen Worts in Kleinbuchstaben um -27 Melde Ende der Datei -28 Gehe zum Ende der Zeile -29 Tausche Cursor und Marke aus -30 Expandiere Wildcards in Dateinamen -31 Expandiere History-Escapes -32 Expandiere History-Escapes in einer Zeile -33 Expandiere Variablen -34 Gehe ein Zeichen vor -35 Gehe vor bis zum Ende des akutellen Worts -36 Vertausche zwei Zeichen vor dem Cursor -37 Suche rückwärts in History nach Zeile mit gleichem Anfang -38 Suche vorwärts in History nach Zeile mit gleichem Anfang -39 Setze letzten Teil des vorherigen Befehls ein -40 Incrementelle Suche (vorwärts) -41 Incrementelle Suche (rückwärts) -42 Lösche Zeile -43 Lösche bis zum Ende der Zeile - in Cut-Puffer -44 Lösche Area zwischen Marke und Cursor - in Cut-Puffer -45 Lösche gesamte Zeile - in Cut-Puffer -46 Zeige Möglichkeiten der Vervollständigung -47 Zeige Möglichkeiten der Vervollständigung (ignoriere programmierbare Vervollständigungen) -48 Zeige Treffer der Dateinamen-Wildcards -49 Zeige Möglichkeiten der Vervollständigung oder gib EOF, falls Zeile leer -50 Zeige durchschnittliche Last und augenblickl. Prozeßzustand -51 Expandiere History-Escape und füge Leerzeichen ein -52 Führe Befehl aus -53 Expandiere Pfadnamen, eliminiere führende . und .. -54 Expandiere Befehle in den entsprechenden Pfadnamen oder Alias -55 Schalte von Insert- auf Einfügemodus oder umgekehrt -56 Füge das achte Bit zu dem nächsten eingegebenen Zeichen hinzu -57 Füge das nächste Eingabezeichen unverändert ein -58 Baue Anzeige neu auf -59 Starte angehaltenen Editor wieder -60 Suche nach Hilfe für den aktuellen Befehl -61 Dieses Zeichen wird zur Zeile hinzugefügt -62 Dieses Zeichen ist das erste einer Folge von Zeichen -63 Setze die Marke an der Stelle des Cursors -64 Korrigiere die Schreibweise des aktuellen Wortes -65 Korrigiere die Schreibweise der gesamten Zeile -66 Sende Zeichen an Tty im "cooked mode" -67 Schalte um zwischen literaler und lexicalischer aktueller History-Zeile -68 Tausche das Zeichen links des Cursors mit dem unter dem Cursor -69 Tausche die zwei Zeichen vor dem Cursor -70 Tty delayed suspend Zeichen -71 Tty flush output Zeichen -72 Tty interrupt Zeichen -73 Tty quit Zeichen -74 Tty suspend Zeichen -75 Tty allow output Zeichen -76 Tty disallow output Zeichen -77 Indicates unbound Zeichen -78 Emacs universelles Argument (Argument mal 4) -79 Gehe zur vorhergehenden History-Zeile -80 Wandele die Zeichen vom Cursor bis zum Ende des akt. Worts in Großbuchst. um -81 Vi gehe zum Anfang des nächsten Wortes -82 Vi gehe in Einfügemodus hinter dem Cursor -83 Vi gehe in Einfügemodus am Ende der Zeile -84 Vi ändere Groß/Kleinschreibung des Zeichens unter dem Cursor und gehe ien vor -85 Vi ändere Prefix-Befehl -86 Vi ändere bis zum Ende der Zeile -87 Vi gehe in Befehlsmodus (benutze alternative Tastenbelegung) -88 Vi Befehlsmodus vervollständige aktuelles Wort -89 Vi gehe zum vorhergehenden Zeichen (Backspace) -90 Vi lösche Prefix-Befehl -91 Vi gehe zum Ende des aktuellen Worts (durch Leerzeichen begrenzt) -92 Vi gehe zum Ende des aktuellen Worts -93 Vi gehe zum angegebenen Zeichen rückwärts -94 Vi gehe zum angegebenen Zeichen vorwärts -95 Vi gehe hoch zum angegebenen Zeichen rückwärts -96 Vi gehe hoch zum angegebenen Zeichen vorwärts -97 Vi gehe in Einfügemodus -98 Vi gehe in Einfügemodus am Anfang der Zeile -99 Vi wiederhole aktuelle Suche in dieselbe Richtung -100 Vi wiederhole aktuelle Suche in entgegengesetzte Richtung -101 Vi wiederhole aktuelle Suche in dieselbe Richtung -102 Vi wiederhole aktuelle Suche in entgegengesetzte Richtung -103 Vi ersetze Zeichen unter dem Cursor mit dem nächsten eingegebenen Zeichen -104 Vi Ersetzungsmodus -105 Vi suche History vorwärts -106 Vi suche History rückwärts -107 Vi ersetze Zeichen unter dem Cursor und gehe in Einfügemodus -108 Vi ersetze gesamte Zeile -109 Vi gehe zum verhergehenden Wort -110 Vi gehe zum nächsten Wort -111 Vi mache letzte Änderung rückgängig -112 Vi gehe zum Anfang der Zeile -113 Mache ein 'which' von dem aktuellen Befehl -114 Füge den Cut-Puffer an der Cursor-Position ein diff --git a/contrib/tcsh/nls/german/set30 b/contrib/tcsh/nls/german/set30 deleted file mode 100644 index 0657670f30e5..000000000000 --- a/contrib/tcsh/nls/german/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set30,v 1.3 1996/04/26 20:54:24 christos Exp $ -$ tw.parse.c -$set 30 -1 Anfangsbefehl %d\n -2 vervollständige %d -3 vervollständige %d %S\n -4 %s: Interner Abgleichsfehler.\n -5 Objekte -6 Spalten -7 Es gibt %d %s, trotzdem anzeigen? [n/j] -8 looking = %d\n -9 \n%s interner Fehler: Ich weiß nicht, wonach ich suche!\n -10 kein Verzeichnis -11 nicht gefunden -12 nicht lesbar -13 jJyY diff --git a/contrib/tcsh/nls/german/set31 b/contrib/tcsh/nls/german/set31 deleted file mode 100644 index 88f3dcc7b256..000000000000 --- a/contrib/tcsh/nls/german/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set31,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ vms.termcap.c -$set 31 -1 Kann TERMCAP nicht öffnen: [%s]\n -2 Kann %s nicht öffnen.\n -3 Fand %s in %s.\n -4 Kein Eintrag für %s in Datei %s gefunden\n diff --git a/contrib/tcsh/nls/german/set4 b/contrib/tcsh/nls/german/set4 deleted file mode 100644 index c11e71269b71..000000000000 --- a/contrib/tcsh/nls/german/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $Id: set4,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ Termcap strings -$set 4 -1 füge neue, leere Zeile hinzu -2 hörbare Pieps -3 lösche bis zum Ende der Anzeige -4 lösche bis zum Ende der Zeile -5 Cursor zu horizontaler Position -6 lösche Bildschirm -7 lösche ein Zeichen -8 lösche eine Zeile -9 starte Löschemodus -10 beende Löschmodus -11 beende Einfügemodus -12 Cursor aus Statuszeile -13 Cursor in Ursprungsposition -14 füge Zeichen ein -15 starte Einfügemodus -16 setze Füllzeichen ein -17 Cursor nach unten -18 Cursor nach links -19 Cursor nach rechts -20 Cursor nach oben -21 starte Fettschrift -22 beende Attribute -23 nicht zerstörendes Leerzeichen -24 beende hervorgehobene Darstellung -25 beginne hervorgehobene Darstellung -26 Cursor in Statuszeile -27 Cursor eins hoch -28 beginne Unterstreichung -29 beende Unterstreichung -30 sichtbarer Pieps -31 lösche mehrere Zeichen -32 Cursor mehrere Zeichen nach unten -33 füge mehrere Zeichen ein -34 Cursor mehrere Zeichen nach links -35 Cursor mehrere Zeichen nach rechts -36 Cursor mehrere Zeichen nach oben -37 hat automatische Ränder -38 kann physikalische Tabulatoren benutzen -39 Anzahl Zeilen -40 Anzahl Spalten -41 hat Meta-Taste -42 Zeilenumbruch am rechten Rand wird ignoriert diff --git a/contrib/tcsh/nls/german/set5 b/contrib/tcsh/nls/german/set5 deleted file mode 100644 index 195c72e62c1c..000000000000 --- a/contrib/tcsh/nls/german/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set5,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ ed.chared.c -$set 5 -1 Durchschnittliche Last nicht verfügbar\n diff --git a/contrib/tcsh/nls/german/set6 b/contrib/tcsh/nls/german/set6 deleted file mode 100644 index df99266afb46..000000000000 --- a/contrib/tcsh/nls/german/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $Id: set6,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ ed.inputl.c -$set 6 -1 FEHLER: Illegaler Befehl von Taste 0%o\r\n -2 ja\n -3 ediere\n -4 brich ab\n -5 nein\n -6 Kein entsprechender Befehl\n -7 Mehrdeutiger Befehl\n -8 *** Editor fataler FEHLER ***\r\n\n diff --git a/contrib/tcsh/nls/german/set7 b/contrib/tcsh/nls/german/set7 deleted file mode 100644 index 188bf64854af..000000000000 --- a/contrib/tcsh/nls/german/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $Id: set7,v 1.4 1996/10/19 17:52:53 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tTcsh meint, Ihr Endgerät hat die\n -2 \tfolgenden Eigenschaften:\n\n -3 \tEs hat %d Spalten und %d Zeilen\n -4 \tEs hat %s Meta-Taste\n -5 eine -6 keine -7 \tEs kann%s Tabulatoren benutzen\n -8 \040keine -9 \tEs %s automatische Ränder\n -10 hat -11 hat nicht -12 \tEs %s magische Ränder\n -13 (leer) -14 ja -15 nein -16 FEHLER: kann nicht löschen\r\n -17 DeleteChars: num ist lächerlich: %d\r\n -18 FEHLER: kann nicht einfügen\r\n -19 StartInsert: num ist lächerlich: %d\r\n -20 %s: Kann /etc/termcap nicht öffnen.\n -21 %s: Kein Eintrag für Terminaltyp "%s"\n -22 %s: benutze minimale Terminaleigenschaften.\n -23 %s: WARNUNG: Ihr Terminal kann den Cursor nicht aufwärts bewegen.\n -24 Lange Zeilen könnten etwas komisch aussehen.\n -25 keine Fähigkeit, bis Zeilenende zu löschen.\n -26 keine Fähigkeit, Zeichen zu löschen.\n -27 keine Fähigkeit, Zeichen einzufügen.\n diff --git a/contrib/tcsh/nls/german/set8 b/contrib/tcsh/nls/german/set8 deleted file mode 100644 index ba7f030fc8e0..000000000000 --- a/contrib/tcsh/nls/german/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set8,v 1.2 1995/03/19 18:09:24 christos Exp $ -$ ed.term.c -$set 8 -1 Unbekannter Schalter -2 Ungültiges Argument diff --git a/contrib/tcsh/nls/german/set9 b/contrib/tcsh/nls/german/set9 deleted file mode 100644 index b987d11e36c4..000000000000 --- a/contrib/tcsh/nls/german/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $Id: set9,v 1.3 1996/10/19 17:52:54 christos Exp $ -$ ed.xmap.c -$set 9 -1 AddXkey: Null extended-key not allowed.\n -2 AddXkey: sequence-lead-in command not allowed\n -3 DeleteXkey: Null extended-key not allowed.\n -4 Unbound extended key "%S"\n -5 Some extended keys too long for internal print buffer -6 Enumerate: BUG!! Null ptr passed\n! -7 keine Eingabe -8 Es muß noch etwas folgen: %c\n -9 Oktal-Konstante paßt nicht in ein Zeichen.\n diff --git a/contrib/tcsh/nls/greek/set1 b/contrib/tcsh/nls/greek/set1 deleted file mode 100644 index 17c857312f94..000000000000 --- a/contrib/tcsh/nls/greek/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $Id: set1,v 1.3 1998/09/18 15:31:57 christos Exp $ -$ Error messages -$set 1 -1 ËÜèïò óýíôáîç -2 Tï %s äåí åðéôñÝðåôáé -3 ÕðåñâïëéêÜ ìåãÜëç ëÝîç -4 $< ÕðåñâïëéêÜ ìåãÜëç ãñáììÞ -5 Äåí õðÜñ÷åé áñ÷åßï ãéÜ ôï $0 -6 ÅëëéðÞò ìåôáôñïðÝáò [] -7 Ç áíÜðôõîç ôïõ $ ðñÝðåé íá ôåëåéþíåé ðñéí ôï ] -8 ËÜèïò ìåôáôñïðÝáò : óôï $ (%c) -9 ËÜèïò üñéóìá -10 Êáêïó÷çìáôéóìÝíïò áñéèìüò -11 Äåí õðÜñ÷ïõí Üëëåò ëÝîåéò -12 Áðüí üíïìá áñ÷åßïõ -13 Åóùôåñéêü ëÜèïò globbing -14 Ç åíôïëÞ äå âñÝèçêå -15 ÕðåñâïëéêÜ ëßãá ïñßóìáôá -16 ÕðåñâïëéêÜ ðïëëÜ ïñßóìáôá -17 ÕðåñâïëéêÜ åðéêßíäõíï øåõäþíõìï -18 Áäåéï if -19 ÁêáôÜëëçëï then -20 Ïé ëÝîåéò äåí åßíáé åíôüò ðáñåíèÝóåùí -21 Tï %s äåí âñÝèçêå -22 ÁêáôÜëëçëç ìÜóêá -23 Äåí õðÜñ÷åé ôÝôïéï üñéï -24 ÕðåñâïëéêÜ ìåãÜëï üñéóìá -25 ÁêáôÜëëçëïò Þ Üãíùóôïò ðáñÜãïíôáò ìåãÝèïõò -26 Ìç ïñéóìÝíç ìåôáâëçôÞ -27 Tï stack êáôáëüãùí äåí åßíáé ôüóï âáèý -28 ËÜèïò áñéèìüò signal -29 ¶ãíùóôï signal·äþóôå kill -l ãéÜ ëßóôá signals -30 Tá ïíüìáôá ìåôáâëçôþí ðñÝðåé íá áñ÷ßæïõí ìå ãñÜììá -31 ÕðåñâïëéêÜ ìåãÜëï üíïìá ìåôáâëçôÞò -32 Tá ïíüìáôá ìåôáâëçôþí ðñÝðåé íá ðåñéÝ÷ïõí áëöáñçèìçôéêïýò ÷áñáêôÞñåò -33 Äåí õðÜñ÷åé Ýëåã÷ïò åñãáóéþí óå áõôü ôï shell -34 ËÜèïò óýíôáîç Ýêöñáóçò -35 Äåí õðÜñ÷åé ðñïóùðéêüò êáôÜëïãïò (home directory) -36 Äåí ìðïñþ íá ðñïóðåëÜóù ôïí ðñïóùðéêü êáôÜëïãï (home directory) -37 Áêõñç êåíÞ åíôïëÞ -38 Åê÷þñçóç ÷ùñßò Ýêöñáóç -39 Áãíùóôïò ôåëåóôÞò -40 Äéöïñïýìåíï -41 %s: ôï áñ÷åßï õðÜñ÷åé -42 Tï üñéóìá ôïõ -c ôåëåéþíåé óå backslash -43 ÄéáêïðÞ -44 Äåßêôçò åêôüò ïñßùí -45 Õðåñ÷åßëéóç ãñáììÞò -46 Äåí õðÜñ÷åé ôÝôïéá åñãáóßá -47 Äåí ãßíåôáé áðü ôï ôåñìáôéêü -48 Åêôüò while/foreach -49 Äåí õðÜñ÷ïõí Üëëåò äéåñãáóßåò -50 Äåí õðÜñ÷åé ôáßñéáóìá -51 Áðüí %c -52 Ìç ôáéñéáóìÝíï %c -53 Äåí õðÜñ÷åé Üëëç ìíÞìç -54 Äåí ìðïñþ íá äçìéïõñãÞóù pipe -55 %s: %s -56 %s -57 ×ñÞóç: jobs [ -l ] -58 Tá ïñßóìáôá ðñÝðåé íá åßíáé åñãáóßåò Þ ôáõôüôçôåò äéåñãáóéþí -59 Äåí õðÜñ÷åé ôñÝ÷ïõóá åñãáóßá -60 Äåí õðÜñ÷åé ðñïçãïýìåíç åñãáóßá -61 ÊáììéÜ åñãáóßá äåí ôáéñéÜæåé ìå ôï pattern -62 Tï fork nesting åßíáé ìåãáëýôåñï áðü %d; ðéèáíü `...` loop -63 Ï Ýëåã÷ïò åñãáóéþí äåí åßíáé äéáèÝóéìïò óôá êáôþôåñá shells -64 ËÜèïò sunc: ç äéåñãáóßá %d äå âñÝèçêå -65 %sÕðÜñ÷ïõí áíáâëçèåßóåò åñãáóßåò -66 %sÕðÜñ÷ïõí óôáìáôçìÝíåò åñãáóßåò -67 Äåí õðÜñ÷åé Üëëïò êáôÜëïãïò -68 Tï stack êáôáëüãùí åßíáé Üäåéï -69 ËÜèïò êáôÜëïãïò -70 ×ñÞóç: %s [-%s]%s -71 Äåí õðÜñ÷åé üñéóìá ãéÜ ôï flag -h -72 Äåí Ý÷åé ãßíåé login ìå áõôü ôï shell -73 Äéáßñåóç ìå 0 -74 Modulo ìå 0 -75 ËÜèïò ìåãÝèõíóç· åííïïýóáôå "%s"? -76 Äåí ìðïñþ (áêüìá) íá áíáâÜëù ôï login shell -77 Áãíùóôïò ÷ñÞóôçò: %s -78 Äåí Ý÷åé äïèåß ôéìÞ óôç ìåôáâëçôÞ $home -79 ×ñÞóç: history [-%s] [# áñéèìüò åíôïëþí] -80 Tá $, ! êáé < äåí åðéôñÝðïíôáé ìå ôá $# êáé $? -81 ÁëëáãÞ ãñáììÞò óå üíïìá ìåôáâëçôÞò -82 Tï * äåí åðéôñÝðåôáé ìå ôá $# êáé $? -83 Tá $?<øçößï> êáé $#<øçößï> äåí åðéôñÝðïíôáé -84 Áêõñï üíïìá ìåôáâëçôÞò -85 ÁëëáãÞ ãñáììÞò óå äåßêôç ìåôáâëçôÞò -86 Õðåñ÷åßëéóç buffer åðÝêôáóçò -87 ËÜèïò óýíôáîçò ìåôáâëçôÞò -88 ËÜèïò ìïñöÞ ! -89 Äåí õðÜñ÷åé ðñïçãïýìåíç áíôéêáôÜóôáóç -90 ËÜèïò áíôéêáôÜóôáóç -91 Äåí õðÜñ÷åé ðñïçãïýìåíï áñéóôåñü ìÝñïò -92 Tï äåîß ìÝñïò åßíáé ðïëý ìåãÜëï -93 Êáêüò ìåôáôñïðÝáò !: %c -94 Ï ìåôáôñïðÝáò áðÝôõ÷å -95 Õðåñ÷åßëéóç ôïõ buffer áíôéêáôáóôÜóåùí -96 ËÜèïò åðéëïãÝáò ïñßóìáôïò ! -97 Äåí õðÜñ÷åé ðñïçãïýìåíç áíáæÞôçóç -98 %s: ç åíôïëÞ äå âñÝèçêå -99 ÕðåñâïëéêÜ ðïëëÝò ) -100 ÕðåñâïëéêÜ ðïëëÝò ( -101 ËÜèïò ôïðïèåôçìÝíç ( -102 ÐáñÜëåéøç ïíüìáôïò ãéÜ áíáêáôåýèõíóç -103 Äéöïñïýìåíç áíáêáôåýèõíóç åîüäïõ -104 Äåí ãßíåôáé << ìÝóá óå () -105 Äéöïñïýìåíç áíáêáôåýèõíóç åéóüäïõ -106 ËÜèïò ôïðïèåôçìÝíåò () -107 Âñü÷ïò øåõäùíýìùí -108 Äåí Ý÷åé äïèåß ôéìÞ óôç ìåôáâëçôÞ $watch -109 Äåí õðÜñ÷ïõí äñïìïëïãçìÝíåò åíôïëÝò -110 ×ñÞóç: sched -<#áíôéêåéìÝíïõ>.\n×ñÞóç: sched [+]ùù:ëë <åíôïëÞ> -111 Äåí õðÜñ÷ïõí ôüóåò äñïìïëïãçìÝíåò åíôïëÝò -112 Äåí õðÜñ÷åé åíôïëÞ ãéÜ åêôÝëåóç -113 Áêõñïò ÷ñüíïò ãéÜ ôçí åíôïëÞ -114 Ï ó÷åôéêüò ÷ñüíïò äåí åßíáé óõíåðÞò ìå ôï am/pm -115 Äåí õðÜñ÷åé ÷þñïò ãéÜ ôï termcap string -116 ×ñÞóç: settc %s [yes|no] -117 Áãíùóôç éêáíüôçôá `%s' -118 Áãíùóôç ðáñÜìåôñïò ôïõ termcap `%%%c' -119 ÕðåñâïëéêÜ ðïëëÜ ïñßóìáôá ãéÜ ôï `%s' (%d) -120 Tï `%s' áðáéôåß %d ïñßóìáôá -121 ×ñÞóç: echotc [-v|-s] [<éêáíüôçôá> [<ïñßóìáôá>]] -122 %s: %s. ËÜèïò Áñ÷éôåêôïíéêÞ -123 !# âñü÷ïò Éóôïñßáò åíôïëþí -124 Êáêïó÷çìáôéóìÝíç åñþôçóç ãéÜ áñ÷åßï -125 Õðåñ÷åßëéóç åðéëïãÝùí -126 Áãíùóôç åðéëïãÞ: `-%s'\n×ñÞóç: %s [ -bcdefilmnqstvVxX -Dname[=value] ] [ üñéóìá ... ] -127 Áãíùóôç åðéëïãÞ: `-%s'\nUsage: %s [ -bcdefFilmnqstvVxX ] [ üñéóìá ... ] -128 Áãíùóôç åðéëïãÞ: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX ] [ üñéóìá ... ] -129 \nËÜèïò óõìðëÞñùóç: "%s" -130 \nËÜèïò %s: '%c' -131 \nÐáñÜëçøç äéá÷ùñéóôÞ '%c' ìåôÜ ôï %s "%s" -132 \nÌç ðëÞñåò %s: "%s" -133 Äåí õðÜñ÷åé üñéóìá ãéÜ ôï flag -m -134 ×ñÞóç: unlimit [-fh] [üñéá] -135 Tï $%S åßíáé ìüíï ãéÜ äéÜâáóìá -136 Äåí õðÜñ÷åé ôÝôïéá åñãáóßá -137 Unknown colorls variable `%c%c' diff --git a/contrib/tcsh/nls/greek/set10 b/contrib/tcsh/nls/greek/set10 deleted file mode 100644 index 33a00def0c68..000000000000 --- a/contrib/tcsh/nls/greek/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set10,v 1.2 1998/09/18 15:31:58 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: Üêõñç åíôïëÞ '%s'.\n -2 setpath: áíåðáñêÞò áñéèìüò ïñéóìÜôùí ãéÜ ôçí åíôïëÞ '%s'.\n -3 setpath: êÜðïéá ôéìÞ ëåßðåé óôï path '%s'\n -4 setpath: ôï %s äå âñÝèçêå óôï %s\n -5 setpath: ç èÝóç %d äåí éó÷ýåé óôï %s\n diff --git a/contrib/tcsh/nls/greek/set11 b/contrib/tcsh/nls/greek/set11 deleted file mode 100644 index 1ab395117c53..000000000000 --- a/contrib/tcsh/nls/greek/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $Id: set11,v 1.1 1996/04/26 19:24:11 christos Exp $ -$ sh.c -$set 11 -1 Ðñïåéäïðïßçóç: äåí ìðïñþ íá ðñïóðåëÜóù ôï tty (%s).\n -2 Óõíåðþò, äåí èá õðÜñ÷åé Ýëåã÷ïò åñãáóéþí óå áõôü ôï shell.\n -3 ¸÷åôå %d ìçíýìáôá mail.\n -4 Å÷åôå %d ìçíýìáôá mail óôï %s.\n -5 Å÷åôå %smail.\n -6 íÝï -7 Å÷åôå %smail óôï %s.\n diff --git a/contrib/tcsh/nls/greek/set12 b/contrib/tcsh/nls/greek/set12 deleted file mode 100644 index 09cfdc6d3c5b..000000000000 --- a/contrib/tcsh/nls/greek/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set12,v 1.2 1998/09/18 15:31:59 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: ðñïóðáèþ íá áñ÷ßóù áðü ôï "%s"\n diff --git a/contrib/tcsh/nls/greek/set13 b/contrib/tcsh/nls/greek/set13 deleted file mode 100644 index 6e6963a4d68a..000000000000 --- a/contrib/tcsh/nls/greek/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set13,v 1.1 1996/04/26 19:24:15 christos Exp $ -$ sh.exec.c -$set 13 -1 hash=%-4d dir=%-2d prog=%s\n -2 %d hash buckets ìå %d bits ôï êáèÝíá\n -3 ìÜóêá debug = 0x%08x\n -4 %d åðéôõ÷ßåò, %d áðïôõ÷ßåò, %d%%\n -5 %S: åóùôåñéêÞ åíôïëÞ ôïõ shell.\n -6 %S: ç åíôïëÞ äå âñÝèçêå.\n -7 where: ôï / óôçí åíôïëÞ äåí Ý÷åé íüçìá\n -8 Tï %S åßíáé øåõäþíõìï ãéÜ ôçí åíôïëÞ -9 Tï %S åßíáé åóùôåñéêÞ åíôïëÞ ôïõ shell\n -10 áðïôõ÷ßá ôïõ hash: diff --git a/contrib/tcsh/nls/greek/set14 b/contrib/tcsh/nls/greek/set14 deleted file mode 100644 index 282f639d98ac..000000000000 --- a/contrib/tcsh/nls/greek/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set14,v 1.2 1998/11/24 18:18:11 christos Exp $ -$ sh.file.c -$set 14 -1 \nÐööö!! ÕðåñâïëéêÜ ðïëëÜ %s!!\n -2 ïíüìáôá óôï password file -3 áñ÷åßá diff --git a/contrib/tcsh/nls/greek/set15 b/contrib/tcsh/nls/greek/set15 deleted file mode 100644 index f92fef4ce8db..000000000000 --- a/contrib/tcsh/nls/greek/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set15,v 1.1 1996/04/26 19:24:18 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: äå ìðïñþ íá %sôï%s üñéï\n -2 ìçäåíßóù -3 èÝóù -4 \040áõóôçñü diff --git a/contrib/tcsh/nls/greek/set16 b/contrib/tcsh/nls/greek/set16 deleted file mode 100644 index 18d92e25c9aa..000000000000 --- a/contrib/tcsh/nls/greek/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set16,v 1.2 1998/09/18 15:32:00 christos Exp $ -$ sh.lex.c -$set 16 -1 Ìçäåíéóìüò ôïõ ãêñïõð äéåñãáóéþí ôïõ tty áðü %d óå %d\n -2 \nÄþóôå "logout" ãéÜ íá âãåßôå.\n -3 \nÄþóôå "exit" ãéÜ íá ôåñìáôßóåôå ôï %s.\n -4 seek to eval %x %x\n -5 seek to alias %x %x\n -6 seek to file %x\n -7 Bad seek type %d\n -8 tell eval %x %x\n -9 tell alias %x %x\n -10 tell file %x\n diff --git a/contrib/tcsh/nls/greek/set17 b/contrib/tcsh/nls/greek/set17 deleted file mode 100644 index b0baa0e702aa..000000000000 --- a/contrib/tcsh/nls/greek/set17 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set17,v 1.1 1996/04/26 19:24:22 christos Exp $ -$ sh.proc.c -$set 17 -1 BUG: wait ãéÜ åñãáóßá ðïõ ôñÝ÷åé óôï ðáñáóêÞíéï!\n -2 Åîïäïò ìå status %d\n -3 BUG: ç äéåñãáóßá åêêåíþèçêå äõü öïñÝò -4 ÔñÝ÷åé -5 ÓÞìá -6 Åîïäïò ìå status %-25d -7 Ïëïêëçñþèçêå -8 BUG: status=%-9o -9 \040(åããñáöÞ áñ÷åßïõ core) -10 \040(wd: -11 ôùñéíï wd: -12 %S: Ý÷åé Þäç áíáâëçèåß\n -13 %S: Ý÷åé Þäç óôáìáôÞóåé\n diff --git a/contrib/tcsh/nls/greek/set18 b/contrib/tcsh/nls/greek/set18 deleted file mode 100644 index ad0a5e6c1bf4..000000000000 --- a/contrib/tcsh/nls/greek/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set18,v 1.1 1996/04/26 19:24:26 christos Exp $ -$ sh.set.c -$set 18 -1 Ðñïåéäïðïßçóç: PATH ìå ôåñÜóôéï ìÝãåèïò, ðåñéêüðçêå\n diff --git a/contrib/tcsh/nls/greek/set19 b/contrib/tcsh/nls/greek/set19 deleted file mode 100644 index e1d15200d182..000000000000 --- a/contrib/tcsh/nls/greek/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set19,v 1.1 1996/04/26 19:24:27 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: ç ìíÞìç ôåëåßùóå\n -2 free(%lx) êëÞèçêå ðñßí íá åê÷ùñçèåß ìíÞìç. -3 free(%lx) ðñéí ôçí áñ÷Þ ôçò ìíÞìçò. -4 free(%lx) ìåôÜ ôï ôÝëïò ôçò ìíÞìçò. -5 free(%lx) åóöáëìÝíï block. -6 free(%lx) åóöáëìÝíç êëßìáêá check. -7 free(%lx) åóöáëìÝíïò äåßêôçò block. -8 Ðáñïýóá åê÷þñçóç ìíÞìçò ôïõ %s:\nfree:\t -9 \n÷ñçóéìïðïéåßôáé:\t -10 \n\tÓõíïëéêÜ ÷ñçóéìïðïéåßôáé: %d, óõíïëéêÞ åëåýèåñç: %d\n -11 \tÅ÷åé åê÷ùñçèåß ìíÞìç áðü 0x%lx ùò 0x%lx. ÐñáãìáôéêÞ áñ÷Þ 0x%lx\n -12 Å÷åé åê÷ùñçèåß ìíÞìç áðü 0x%lx ùò 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/greek/set2 b/contrib/tcsh/nls/greek/set2 deleted file mode 100644 index 35a14b2d2d70..000000000000 --- a/contrib/tcsh/nls/greek/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $Id: set2,v 1.2 1997/10/27 23:33:56 christos Exp $ -$ Signal names -$set 2 -1 Ìçäåíéêü signal -2 ÄéáêïðÞ ãñáììÞò (hangup) -3 ÄéáêïðÞ (interrupt) -4 Ðáñáßôçóç (quit) -5 ÐáñÜíïìç åíôïëÞ (Illegal instruction) -6 Trace/BPT trap -7 Abort -8 IOT trap -9 Åðéêåßìåíç êáôÜññåõóç óõóôÞìáôïò -10 Tåñìáôéóìüò ìå ëÜèïò -11 EMT trap -12 Åîáßñåóç áñéèìçôéêÞò êéíçôÞò õðïäéáóôïëÞò -13 Óêïôþèçêå -14 User signal 1 -15 User signal 2 -16 ËÜèïò Segmentation -17 ËÜèïò Bus -18 ËÜèïò ðåäßïõ ôéìþí ðñïãñÜììáôïò -19 ËÜèïò ðåäßïõ ôéìþí ïñßóìáôïò -20 Áíýðáñêôï system call -21 ÓðáóìÝíï pipe -22 ÓÞìá alarm -23 Tåñìáôßóôçêå -24 ÁëëáãÞ êáôÜóôáóçò äéåñãáóßáò-ðáéäéïý -25 ÈÜíáôïò äéåñãáóßáò-ðáéäéïý -26 ÓöÜëìá Apollo -27 Ç äéåñãáóßá-ðáéäß óôáìÜôçóå Þ ôåñìÜôéóå -28 Ç äéåñãáóßá-ðáéäß ôåñìÜôéóå -29 ÄéáêïðÞ ôÜóçò -30 Áðþëåéá ðüñïõ -31 Break (Ctrl-Break) -32 ÓÞìá äõíáôüôçôáò input/output -33 Áóýã÷ñïíï I/O (select) -34 Åðåßãïõóá êáôÜóôáóç óå äßáõëï I/O -35 Multitasking wake-up -36 Multitasking kill -37 ÐåñÜôùóç áóýã÷ñïíïõ I/O ôçò fortran -38 ÁíÜêáìøç -39 Ìç åðáíïñèþóéìï óöÜëìá ìíÞìçò -40 ÕðÝñâáóç ïñßïõ ÷ñüíïõ CPU -41 Åðéêåßìåíï shutdown óõóôÞìáôïò -42 Tï wakeup flag ôïõ áñéè. ïìÜäáò micro-tasking Ýãéíå set -43 Ðñüâëçìá thread - (÷ñçóéìïðïéÞóôå cord -T ãéÜ ëåðôïìåñåßò ðëçñïöïñßåò) -44 ÓöÜëìá áñôéüôçôáò êáôá÷ùñçôÞ CRAY Y-MP -45 Áßôçóç ðëçñïöïñßáò -46 ÁíáâïëÞ (óÞìál) -47 Ðáýóç (óÞìá) -48 ÁíáâïëÞ -49 Ðáýóç -50 ÓõíÝ÷éóç -51 ÁíáâïëÞ (åßóïäïò áðü ôåñìáôéêü) -52 Ðáýóç (åßóïäïò áðü ôåñìáôéêü) -53 ÁíáâïëÞ (Ýîïäïò óå ôåñìáôéêü) -54 Ðáýóç (Ýîïäïò óå ôåñìáôéêü) -55 Ç êáôÜóôáóç ôïõ ðáñáèýñïõ Üëëáîå -56 Tï ìÝãåèïò ôïõ ðáñáèýñïõ Üëëáîå -57 Ç êáôÜóôáóç ôçò ôçëåöùíéêÞò ãñáììÞò Üëëáîå -58 ÕðÝñâáóç ïñßïõ ÷ñüíïõ CPU -59 ÕðÝñâáóç ïñßïõ ìåãÝèïõò áñ÷åßïõ -60 ÓÞìá alarm åéêïíéêïý ÷ñüíïõ -61 ÓÞìá alarm ÷ñüíïõ Profiling -62 ÓÞìá DIL -63 ÐñïÝêõøå pollable event -64 Tá lwp's ôçò äéåñãáóßáò åßíáé ìðëïêáñéóìÝíá -65 Åéäéêü óÞìá LWP -66 Åéäéêü óÞìá CPR -67 Åéäéêü óÞìá CPR -68 Ðñþôï óÞìá Ðñáãìáôéêïý ×ñüíïõ -69 Äåýôåñï óÞìá Ðñáãìáôéêïý ×ñüíïõ -70 Tñßôï óÞìá Ðñáãìáôéêïý ×ñüíïõ -71 TÝôáñôï óÞìá Ðñáãìáôéêïý ×ñüíïõ -72 TÝôáñôï áðü ôï ôÝëïò óÞìá Ðñáãìáôéêïý ×ñüíïõ -73 Tñßôï áðü ôï ôÝëïò óÞìá Ðñáãìáôéêïý ×ñüíïõ -74 Äåýôåñï áðü ôï ôÝëïò óÞìá Ðñáãìáôéêïý ×ñüíïõ -75 Tåëåõôáßï óÞìá Ðñáãìáôéêïý ×ñüíïõ -76 Áóýã÷ñïíï I/O ôïðéêïý äéêôýïõ -77 Äéáèåóéìüôçôá PTY ãéÜ áíÜãíùóç/ãñÜøéìï -78 Áðáéôåßôáé ðáñÝìâáóç óôï I/O -79 Ç ëåéôïõñãßá HFT monitor ðáñá÷ùñÞèçêå -80 Ç ëåéôïõñãßá HFT monitor ðñÝðåé íá ðáñá÷ùñçèåß -81 Ï Ýëåã÷ïò Þ÷ïõ HFT Ý÷åé ðåñáôùèåß -82 ÄåäïìÝíá óôïí HFT ring buffer -83 ÌåôáíÜóóôåõóç äéåñãáóßáò -84 ÁóöáëÝò attention key -85 Åðáíáäñïìïëüãçóç -86 ÓÞìá SS$_DEBUG -87 ÁëëáãÞ ðñïôåñáéüôçôáò -88 Áíé÷íåýèçêå ðñáãìáôéêü áäéÝîïäï -89 ÍÝïò ÷áñáêôÞñáò åéóüäïõ -90 Stack limit exceeded -91 Unused signal diff --git a/contrib/tcsh/nls/greek/set20 b/contrib/tcsh/nls/greek/set20 deleted file mode 100644 index 9ff678db53f1..000000000000 --- a/contrib/tcsh/nls/greek/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $Id: set20,v 1.3 1998/09/18 15:32:01 christos Exp $ -$ tc.bind.c -$set 20 -1 Áêõñï üíïìá ðëÞêôñïõ `%S'\n -2 ÅóöáëìÝíï üíïìá ðëÞêôñïõ: %S\n -3 ÅóöáëìÝíï üíïìá åíôïëÞò: %S\n -4 ÅóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ %S\n -5 ÌçäåíéêÞ ðåñéãñáöÞ string\n -6 Standard óõó÷åôßóåéò ðëÞêôñùí\n -7 ÅíáëëáêôéêÝò óõó÷åôßóåéò ðëÞêôñùí\n -8 Óõó÷åôßóåéò ðïëëáðëþí ÷áñáêôÞñùí\n -9 Óõó÷åôßóåéò ðëÞêôñùí âÝëïõò\n -10 %-15s-> äåí Ý÷åé ïñéóôåß\n -11 BUG!!! ôï %s äåí åßíáé óõó÷åôéóìÝíï ìå ôßðïôá.\n -12 ×ñÞóç: bindkey [åðéëïãÝò] [--] [ÐËÇÊÔÑÏ [ÅÍÔÏËÇ]]\n -13 -a åìöÜíéóç Þ óõó÷Ýôéóç ÐËÇÊÔÑÏõ óôïí åíáëëáêôéêü ÷Üñôç ðëÞêôñùí\n -14 -b åñìçíåßá ÐËÇÊÔÑÏõ ùò C-, M-, F- or X- üíïìá ðëÞêôñïõ\n -15 -s åñìçíåßá ÅÍÔÏËÇò ùò êõñéïëåêôéêïý string ãéÜ åìöÜíéóç\n -16 -c åñìçíåßá ÅÍÔÏËÇò ùò åóùôåñéêÞò Þ åîùôåñéêÞò åíôïëÞò\n -17 -v óõó÷Ýôéóç üëùí ôùí ðëÞêôñùí óå áíôéóôïé÷ßá vi\n -18 -e óõó÷Ýôéóç üëùí ôùí ðëÞêôñùí óå áíôéóôïé÷ßá emacs\n -19 -d óõó÷Ýôéóç üëùí ôùí ðëÞêôñùí óôçí default ôïõ editor\n -20 -l åìöÜíéóç ôùí åíôïëþí ôïõ editor ìå ðåñéãñáöÝò\n -21 -r êáôÜñãçóç óõó÷Ýôéóçò ôïõ ÐËÇÊÔÑÏõ\n -22 -k åñìçíåßá ÐËÇÊÔÑÏõ ùò óõìâïëéêü üíïìá ðëÞêôñïõ âÝëïõò\n -23 -- ôÝëïò åðåîåñãáóßáò åðéëïãþí\n -24 -u (Þ ïðïéáäÞðïôå Üêõñç åðéëïãÞ) áõôü ôï ìÞíõìá\n -25 ×ùñßò ÐËÇÊÔÑÏ Þ ÅÍÔÏËÇ, åìöáíßæåé üëåò ôéò óõó÷åôßóåéò\n -26 ×ùñßò ÅÍÔÏËÇ, åìöáíßæåé ôç óõó÷Ýôéóç ãéÜ ôï ÐËÇÊÔÑÏ.\n -27 åóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ -- ìçäåíéêü string\n -28 åóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ -- Üäåéï string\n -29 ÅóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ function. Ôï ìçäåíéêü string áðáãïñåýåôáé\n -30 åóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ -- êáêïó÷çìáôéóìÝíïò äåêáåîáäéêüò áñéèìüò\n -31 åóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ -- êáêïó÷çìáôéóìÝíïò ïêôáäéêüò áñéèìüò\n -32 åóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ -- êáêïó÷çìáôéóìÝíïò äåêáäéêüò áñéèìüò\n -33 ÅóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ function.\n -34 Ôï ìçäåíéêü ðëÞêôñï äåí åðéôñÝðåôáé\n -35 åóöáëìÝíç ðåñéãñáöÞ ðëÞêôñïõ -- Üãíùóôï üíïìá "%S"\n -36 ÷ñÞóç: bind [ÐËÇÊÔÑÏ | ÐËÇÊÔÑÏ ÅÍÔÏËÇÓ | "emacs" | "vi" | "-a"]\n -37 Áêõñç ëåéôïõñãßá -38 Tï %s\t\täåí åßíáé ïñéóìÝíï\n diff --git a/contrib/tcsh/nls/greek/set21 b/contrib/tcsh/nls/greek/set21 deleted file mode 100644 index 0e2933f8922c..000000000000 --- a/contrib/tcsh/nls/greek/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set21,v 1.1 1996/04/26 19:24:32 christos Exp $ -$ tc.disc.c -$set 21 -1 Äå ìðïñþ íá äéáâÜóù ôá local chars.\n -2 Äå ìðïñþ íá ãñÜøù ôá local chars.\n diff --git a/contrib/tcsh/nls/greek/set22 b/contrib/tcsh/nls/greek/set22 deleted file mode 100644 index 70d389a3bfad..000000000000 --- a/contrib/tcsh/nls/greek/set22 +++ /dev/null @@ -1,18 +0,0 @@ -$ $Id: set22,v 1.1 1996/04/26 19:24:35 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t øåõäþíõìï ãéÜ ôï -2 \nËÜèïò password ãéÜ ôï %s\n -3 Tï åóöáëìÝíï øåõäþíõìï 'precmd' áöáéñÝèçêå.\n -4 Ôï åóöáëìÝíï øåõäþíõìï 'cwdcmd' áöáéñÝèçêå.\n -5 Ôï åóöáëìÝíï øåõäþíõìï 'beepcmd' áöáéñÝèçêå.\n -6 Ôï åóöáëìÝíï øåõäþíõìï 'periodic' áöáéñÝèçêå.\n -7 Ýëåã÷ïò óýíôáîçò ãñáììÞò\n -8 ÈÝëåôå ðñáãìáôéêÜ íá óâÞóåôå üëá ôá áñ÷åßá? [n/y] -9 áêýñùóç óâçóßìáôïò áñ÷åßùí!\n -10 ç ãñáììÞ ôþñá Ýãéíå:\n -11 Ýëåã÷ïò óýíôáîçò ãñáììÞò\n -12 óå Ýíáí áðü ôïõò êáôáëüãïõò\n -13 ç ãñáììÞ ôþñá Ýãéíå:\n -14 yY - diff --git a/contrib/tcsh/nls/greek/set23 b/contrib/tcsh/nls/greek/set23 deleted file mode 100644 index 4fb299839768..000000000000 --- a/contrib/tcsh/nls/greek/set23 +++ /dev/null @@ -1,31 +0,0 @@ -$ $Id: set23,v 1.2 1998/09/18 15:32:02 christos Exp $ -$ tc.os.c -$set 23 -1 Áêõñï üíïìá cpu/site -2 Ôï site path åßíáé õðåñâïëéêÜ ìáêñý -3 Üãíùóôï -4 site: %s\n -5 %d: ôï site äå âñÝèçêå\n -6 setlocal: %s: %s\n -7 Tï site äå âñÝèçêå -8 Åßóôå ðáãéäåõìÝíïò óå Ýíá óýìðáí ðïõ äåí Ý÷åôå êáôáóêåõÜóåé -9 Tï getwarp áðÝôõ÷å -10 Áêõñï warp -11 Tï setwarp áðÝôõ÷å -12 Áêõñï óýìðáí -13 Áãíùóôï ëÜèïò: %d -14 üíïìá óõóôÞìáôïò: %s\n -15 üíïìá êüìâïõ: %s\n -16 release: %s\n -17 version: %s\n -18 machine: %s\n -19 getwd: äå ìðïñþ íá áíïßîù ôï ".." (%s) -20 getwd: äå ìðïñþ íá áëëÜîù ôïí êáôÜëïãï óå ".." (%s) -21 getwd: óöÜëìá óôçí áíÜãíùóç ôïõ ".." (%s) -22 getwd: äå ìðïñþ íá îáíáëëÜîù ôïí êáôÜëïãï óå "." (%s) -23 getwd: äå ìðïñþ íá êÜíù stat ôï "/" (%s) -24 getwd: äå ìðïñþ íá êÜíù stat ôïí êáôÜëïãï "%s" (%s) -25 getwd: äå ìðïñþ íá áíïßîù ôïí êáôÜëïãï "%s" (%s) -26 getwd: äå ìðïñþ íá âñþ ôï "." óôï ".." (%s) -27 Áêõñïò ôýðïò óõóôÞìáôïò -28 Äåí Ý÷åé äïèåß ôéìÞ óôïí ôýðï óõóôÞìáôïò diff --git a/contrib/tcsh/nls/greek/set24 b/contrib/tcsh/nls/greek/set24 deleted file mode 100644 index f1a811b175d6..000000000000 --- a/contrib/tcsh/nls/greek/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set24,v 1.1 1996/04/26 19:24:44 christos Exp $ -$ tc.sched.c -$set 24 -1 kludge diff --git a/contrib/tcsh/nls/greek/set25 b/contrib/tcsh/nls/greek/set25 deleted file mode 100644 index 316c20f7bb18..000000000000 --- a/contrib/tcsh/nls/greek/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set25,v 1.1 1996/04/26 19:24:47 christos Exp $ -$ tc.sig.c -$set 25 -1 our wait %d\n -2 óöÜëìá: ôï bsd_signal(%d) åêôüò ïñßùí\n -3 óöÜëìá: ç sigaction áðÝôõ÷å ãéÜ ôï bsd_signal(%d), errno %d\n diff --git a/contrib/tcsh/nls/greek/set26 b/contrib/tcsh/nls/greek/set26 deleted file mode 100644 index 4449a6515594..000000000000 --- a/contrib/tcsh/nls/greek/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set26,v 1.2 1998/09/18 15:32:02 christos Exp $ -$ tc.who.c -$set 26 -1 äå ìðïñþ íá êÜíù stat ôï %s. Ðáñáêáëþ äþóôå "unset watch".\n -2 Tï %s äå ìðïñåß íá áíïé÷ôåß. Ðáñáêáëþ äþóôå "unset watch".\n -3 BUG! ôï ôåëåõôáßï óôïé÷åßï äåí åßíáé whotail!\n -4 ðñïò ôá ðßóù: -5 BUG! ôï ôåëåõôáßï óôïé÷åßï äåí åßíáé whohead!\n -6 íÝï: %s/%s\n -7 Ï ÷ñÞóôçò %n Ýêáíå %a óôï ôåñìáôéêü %l áðü %m. -8 Ï ÷ñÞóôçò %n Ýêáíå %a óôï ôåñìáôéêü %l. -9 login -10 logout -11 áíôéêáôÝóôçóå ôïí %s óôï ôåñìáôéêü -12 ôïðéêü diff --git a/contrib/tcsh/nls/greek/set27 b/contrib/tcsh/nls/greek/set27 deleted file mode 100644 index fba464481414..000000000000 --- a/contrib/tcsh/nls/greek/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set27,v 1.1 1996/04/26 19:24:51 christos Exp $ -$ tw.comp.c -$set 27 -1 åíôïëÞ -2 separator -3 pattern -4 êëßìáêá ôéìþí -5 óõìðëÞñùóç diff --git a/contrib/tcsh/nls/greek/set29 b/contrib/tcsh/nls/greek/set29 deleted file mode 100644 index 6f30288e331c..000000000000 --- a/contrib/tcsh/nls/greek/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set29,v 1.1 1996/04/26 19:24:55 christos Exp $ -$ tw.help.c -$set 29 -1 Äåí õðÜñ÷åé áñ÷åßï ìå âïÞèåéá ãéÜ ôï %S\n diff --git a/contrib/tcsh/nls/greek/set3 b/contrib/tcsh/nls/greek/set3 deleted file mode 100644 index 46b4364a10c4..000000000000 --- a/contrib/tcsh/nls/greek/set3 +++ /dev/null @@ -1,118 +0,0 @@ -$ $Id: set3,v 1.2 1998/09/18 15:32:03 christos Exp $ -$ Editor function descriptions -$set 3 -1 Ìåôáêßíçóç Ýíá ÷áñáêôÞñá üðéóèåí -2 ÄéáãñáöÞ ÷áñáêôÞñá áñéóôåñÜ ôïõ äñïìÝá -3 ÁðïêïðÞ áðü ôçí áñ÷Þ ôçò ôñÝ÷ïõóáò ëÝîçò ùò ôï äñïìÝá - öýëáîç óôï cut buffer -4 ÁðïêïðÞ áðü ôçí áñ÷Þ ôçò ãñáììÞò - öýëáîç óôï cut buffer -5 Ìåôáêßíçóç óôçí áñ÷Þ ôçò ôñÝ÷ïõóáò ëÝîçò -6 Ìåôáêßíçóç óôçí áñ÷Þ ãñáììÞò -7 ÌåôáôñïðÞ óå êåöáëáßá áðü ôï äñïìÝá ùò ôï ôÝëïò ôçò ôñÝ÷ïõóáò ëÝîçò -8 (Vi) áëëáãÞ êåöáëáßùí/ìéêñþí óôç èÝóç ôïõ äñïìÝá êáé ìåôáêßíçóç ìéÜ èÝóç -9 (Vi) áëëáãÞ êåöáëáßùí/ìéêñþí ùò ôï ôÝëïò ôçò ãñáììÞò -10 ÊáèÜñéóìá ïèüíçò ìå ðáñáìïíÞ ôçò ôñÝ÷ïõóáò ãñáìÞò óôï ðÜíù ìÝñïò -11 ÓõìðëÞñùóç ôñÝ÷ïõóáò ëÝîçò -12 Tab forward ìåôáîý áñ÷åßùí -13 Tab backward ìåôáîý áñ÷åßùí -14 ÓõìðëÞñùóç ôñÝ÷ïõóáò ëÝîçò áãíïþíôáò ôéò ðñïãñáììáôéæüìåíåò óõìðëçñþóåéò -15 ÁíôéãñáöÞ ôñÝ÷ïõóáò ëÝîçò óôçí èÝóç ôïõ äñïìÝá -16 ÁíôéãñáöÞ ðåñéï÷Þò ìåôáîý óçìáäéïý êáé äñïìÝá óôï cut buffer -17 ÁíÜðôõîç óå ðñïçãïýìåíç ëÝîç ìå ßäéï ðñüèåìá -18 ÄéáãñáöÞ ÷áñáêôÞñá óôç èÝóç ôïõ äñïìÝá -19 ÄéáãñáöÞ ÷áñáêôÞñá óôç èÝóç ôïõ äñïìÝá Þ end of file (ãéÜ Üäåéá ãñáììÞ) -20 ÄéáãñáöÞ ÷áñáêôÞñá óôç èÝóç ôïõ äñïìÝá Þ óõìðëçñþóåéò (óôï ôÝëïò ãñáììÞò) -21 ÄéáãñáöÞ ÷áñáêôÞñá óôç èÝóç ôïõ äñïìÝá, óõìðëçñþóåéò Þ end of file -22 ÁðïêïðÞ áðü ôï äñïìÝá ùò ôï ôÝëïò ôçò ëÝîçò - öýëáîç óôï cut buffer -23 Ðñüóèåóç óå üñéóìá óôçí áñ÷Þ Þ åßóïäïò øçößïõ -24 Øçößï ðïõ áñ÷ßæåé üñéóìá -25 Ìåôáêßíçóç óôçí åðüìåíç ãñáììÞ Éóôïñßáò -26 ÌåôáôñïðÞ óå ìéêñÜ áðü ôï äñïìÝá ùò ôï ôÝëïò ôçò ëÝîçò -27 Åíäåéîç end of file -28 Ìåôáêßíçóç äñïìÝá óôï ôÝëïò ôçò ãñáììÞò -29 ÁíôéìåôÜèåóç äñïìÝá - óçìáäéïý -30 ÁíÜðôõîç wildcards óôï üíïìá áñ÷åßïõ -31 ÁíÜðôõîç escapes Éóôïñßáò -32 ÁíÜðôõîç escapes Éóôïñßáò óå ìéÜ ãñáììÞ -33 ÁíÜðôõîç ìåôáâëçôþí -34 Ìåôáêßíçóç äñïìÝá ìéÜ èÝóç åìðñüò -35 Ìåôáêßíçóç ùò ôï ôÝëïò ôçò ëÝîçò -36 ÁíôéìåôÜèåóç ôùí äýï ÷áñáêôÞñùí ðñéí ôï äñïìÝá -37 ÁíáæÞôçóç ðñïçãïýìåíçò ãñáììÞò ôçò Éóôïñßáò ðïõ íá áñ÷ßæåé üðùò ç ôùñéíÞ -38 ÁíáæÞôçóç åðüìåíçò ãñáììÞò ôçò Éóôïñßáò ðïõ íá áñ÷ßæåé üðùò ç ôùñéíÞ -39 ÅéóáãùãÞ ôåëåõôáßïõ ôìÞìáôïò ðñïçãïýìåíçò åíôïëÞò -40 ÓôáäéáêÞ áíáæÞôçóç óôá åðüìåíá -41 ÓôáäéáêÞ áíáæÞôçóç óôá ðñïçãïýìåíá -42 ÓâÞóéìï ãñáììÞò -43 ÁðïêïðÞ ùò ôï ôÝëïò ôçò ãñáììÞò êáé öýëáîç óôï cut buffer -44 ÁðïêïðÞ áðü ôï óçìÜäé ùò ôï äñïìÝá êáé öýëáîç óôï cut buffer -45 ÁðïêïðÞ ïëüêëçñçò ôçò ãñáììÞò êáé öýëáîç óôï cut buffer -46 ÅìöÜíéóç åðéëïãþí óõìðëÞñùóçò -47 ÅìöÜíéóç åðéëïãþí óõìðëÞñùóçò áãíïþíôáò ôçí ðñïãñáììáôéæüìåíç óõìðëÞñùóç -48 ÅìöÜíéóç ïíïìÜôùí áñ÷åßùí ðïõ ôáéñéÜæïõí ìå ôï wildcard -49 ÅìöÜíéóç åðéëïãþí óõìðëÞñùóçò Þ end of file (óå Üäåéá ãñáììÞ) -50 ÅìöÜíéóç ìÝóïõ üñïõ öïñôßïõ êáé êáôÜóôáóçò äéåñãáóéþí -51 ÁíÜðôõîç escapes Éóôïñßáò êáé ðáñåìâïëÞ åíüò space -52 ÅêôÝëåóç åíôïëÞò -53 ÁíÜðôõîç pathnames, ìå áöáßñåóç ôùí áñ÷éêþí . êáé .. -54 ÁíÜðôõîç åíôïëþí óôï ó÷åôéêü pathname Þ øåõäþíõìï -55 ÅíáëëáãÞ áðü ðáñåìâïëÞ ÷áñáêôÞñùí óå áíôéêáôÜóôáóç êáé áíôßóôñïöá -56 Ðñüóèåóç 8ïõ bit óôïí åðüìåíï ÷áñáêôÞñá ðïõ ðëçêôñïëïãåßôáé -57 Ðñüóèåóç óôç ãñáììÞ ôïõ åðüìåíïõ ÷áñáêôÞñá ÷ùñßò åñìçíåßá (÷áñ. åëÝã÷ïõ) -58 ÅðáíåìöÜíéóç -59 Åðáíåêêßíçóç óôáìáôçìÝíïõ editor -60 ÁíáæÞôçóç âïÞèåéáò ãéÜ ôçí ôñÝ÷ïõóá ãñáììÞ -61 Ï ÷áñáêôÞñáò áõôüò ðñïóôßèåôáé óôç ãñáììÞ -62 Ï ÷áñáêôÞñáò áõôüò åßíáé ï ðñþôïò ìéÜò áêïëïõèßáò ÷áñáêôÞñùí -63 TïðïèÝôçóç óçìáäéïý óôç èÝóç ôïõ äñïìÝá -64 Äéüñèùóç ïñèïãñáößáò ôçò ôñÝ÷ïõóáò ëÝîçò -65 Äéüñèùóç ïñèïãñáößáò üëçò ôçò ãñáììÞò -66 ÁðïóôïëÞ ÷áñáêôÞñá óôï ôåñìáôéêü óå cooked mode -67 ÅíáëëáãÞ ìåôáîý êõñéïëåîßáò êáé ëåêôéêÞò ìïñöÞò ãñáììÞò Éóôïñßáò -68 ÅíáëëáãÞ ôïõ ÷áñáêôÞñá óôç èÝóç ôïõ äñïìÝá ìå ôïí åðüìåíï -69 ÅíáëëáãÞ ôùí äýï ÷áñáêôÞñùí áñéóôåñÜ ôïõ äñïìÝá -70 ×áñáêôÞñáò ôåñìáôéêïý ãéá êáèõóôåñçìÝíç áíáâïëÞ äéåñãáóßáò -71 ×áñáêôÞñáò ôåñìáôéêïý ãéÜ åêêÝíùóç output -72 ×áñáêôÞñáò ôåñìáôéêïý ãéÜ åêêÝíùóç input -73 ×áñáêôÞñáò ôåñìáôéêïý ãéÜ ðáñáßôçóç (quit) -74 ×áñáêôÞñáò ôåñìáôéêïý ãéÜ áíáâïëÞ -75 ×áñáêôÞñáò ôåñìáôéêïý ãéÜ åíåñãïðïßçóç output -76 ×áñáêôÞñáò ôåñìáôéêïý ãéÜ áðåíåñãïðïßçóç output -77 Åíäåéîç ÷áñáêôÞñá ÷ùñßò áíôéóôïß÷éóç -78 Universal üñéóìá ôïõ emcas (üñéóìá åðß 4) -79 Ìåôáêßíçóç óôçí ðñïçãïýìåíç ãñáììÞ Éóôïñßáò -80 ÌåôáôñïðÞ óå êåöáëáßá áðü ôç èÝóç ôïõ äñïìÝá ùò ôï ôÝëïò ôçò ëÝîçò -81 (Vi) ìåôáêßíçóç óôçí áñ÷Þ ôçò åðüìåíçò ëÝîçò -82 (Vi) ìåôÜâáóç óå ôñüðï ðáñåìâïëÞò ÷áñáêôÞñùí ìåôÜ ôï äñïìÝá -83 (Vi) ìåôÜâáóç óå ôñüðï ðáñåìâïëÞò ÷áñáêôÞñùí óôï ôÝëïò ôçò ãñáììÞò -84 (Vi) ìåôáôñïðÞ êåöáëáßùí/ìéêñþí óôç èÝóç äñïìÝá êáé ìåôáêßíçóç äåîéÜ -85 (Vi) åíôïëÞ áëëáãÞò ðñïèÝìáôïò -86 (Vi) áëëáãÞ ùò ôï ôÝëïò ôçò ãñáììÞò -87 ÌåôÜâáóç óôïí ôñüðï åíôïëþí vi -88 (Vi) óå ôñüðï åíôïëþí, óõìðëÞñùóç ëÝîçò -89 (Vi) ìåôáêßíçóç óôïí ðñïçãïýìåíï ÷áñáêôÞñá (backspace) -90 (Vi) åíôïëÞ äéáãñáöÞò ðñïèÝìáôïò -91 (Vi) ìåôáêßíçóç óôï ôÝëïò ôçò ôñÝ÷ïõóáò ëÝîçò (÷ùñéóìÝíçò áðï space) -92 (Vi) ìåôáêßíçóç óôï ôÝëïò ôçò ôñÝ÷ïõóáò ëÝîçò -93 (Vi) ìåôáêßíçóç ðñïò ôá ðßóù ùò ôïí êáèïñéóìÝíï ÷áñáêôÞñá -94 (Vi) ìåôáêßíçóç ðñïò ôá åìðñüò ùò ôïí êáèïñéóìÝíï ÷áñáêôÞñá -95 (Vi) ìåôáêßíçóç ðñïò ôá ðßóù ùò êáé ôïí êáèïñéóìÝíï ÷áñáêôÞñá -96 (Vi) ìåôáêßíçóç ðñïò ôá åìðñüò ùò êáé ôïí êáèïñéóìÝíï ÷áñáêôÞñá -97 ÌåôÜâáóç óôïí ôñüðï ðáñåìâïëÞò ôïõ vi -98 ÌåôÜâáóç óôïí ôñüðï ðáñåìâïëÞò ôïõ vi óôçí áñ÷Þ ôçò ãñáììÞò -99 (Vi) åðáíÜëçøç ðñïçãïýìåíçò áíáæÞôçóçò ÷áñáêôÞñá óôçí ßäéá êáôåýèõíóç -100 (Vi) åðáíÜëçøç ðñïçãïýìåíçò áíáæÞôçóçò ÷áñáêôÞñá óôçí áíôßèåôç êáôåýèõíóç -101 (Vi) åðáíÜëçøç ðñïçãïýìåíçò áíáæÞôçóçò óôçí ßäéá êáôåýèõíóç -102 (Vi) åðáíÜëçøç ðñïçãïýìåíçò áíáæÞôçóçò óôçí áíôßèåôç êáôåýèõíóç -103 (Vi) áíôéêáôÜóôáóç ôñÝ÷ïíôá ÷áñáêôÞñá ìå ôïí åðüìåíï ðëçêôñïëïãïýìåíï -104 (Vi) ôñüðïò áíôéêáôÜóôáóçò -105 (Vi) áíáæÞôçóç Éóôïñßáò ðñïò ôá ðßóù -106 (Vi) áíáæÞôçóç Éóôïñßáò ðñïò ôá ìðñïóôÜ -107 (Vi) áíôéêáôÜóôáóç ôñÝ÷ïíôá ÷áñáêôÞñá êáé ìåôÜâáóç óå ôñüðï ðáñåìâïëÞò -108 (Vi) áíôéêáôÜóôáóç ïëüêëçñçò ôçò ãñáììÞò -109 (Vi) ìåôáêßíçóç óôçí ðñïçãïýìåíç ëÝîç -110 (Vi) ìåôáêßíçóç óôçí åðüìåíç ëÝîç -111 (Vi) áíáßñåóç ðñïçãïýìåíçò áëëáãÞò -112 (Vi) ìåôáêßíçóç óôçí áñ÷Þ ôçò ãñáììÞò -113 ÅêôÝëåóç "which" ôçò ôñÝ÷ïõóáò åíôïëÞò -114 Åðéêüëëçóç ôïõ cut buffer óôçí ôñÝ÷ïõóá èÝóç - diff --git a/contrib/tcsh/nls/greek/set30 b/contrib/tcsh/nls/greek/set30 deleted file mode 100644 index 121cfc34ae87..000000000000 --- a/contrib/tcsh/nls/greek/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set30,v 1.1 1996/04/26 19:25:06 christos Exp $ -$ tw.parse.c -$set 30 -1 starting_a_command %d\n -2 óõìðëÞñùóç %d -3 óõìðëÞñùóç %d %S\n -4 %s: åóùôåñéêü ëÜèïò ôáéñéÜóìáôïò.\n -5 áíôéêåßìåíáitems -6 óåéñÝò) -7 ÕðÜñ÷ïõí %d %s, íá ôá åìöáíßóù ïýôùò Þ Üëëùò? [n/y] -8 looking = %d\n -9 \nåóùôåñéêü óöÜëìá ôïõ %s: äåí îÝñù ôé áíáæçôþ!\n -10 äåí åßíáé êáôÜëïãïò áñ÷åßùí -11 äå âñÝèçêå -12 ìç áíáãíþóéìï -13 yY diff --git a/contrib/tcsh/nls/greek/set31 b/contrib/tcsh/nls/greek/set31 deleted file mode 100644 index 95f3e0da8eb8..000000000000 --- a/contrib/tcsh/nls/greek/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set31,v 1.1 1996/04/26 19:25:15 christos Exp $ -$ vms.termcap.c -$set 31 -1 Äå ìðïñþ íá áíïßîù ôï TERMCAP: [%s]\n -2 Äå ìðïñþ íá áíïßîù ôï %s.\n -3 ÂñÞêá ôï %s óôï %s.\n -4 Äå âñÞêá êÜôé ðïõ íá ôáéñéÜæåé ìå ôï %s óôï áñ÷åßï %s\n diff --git a/contrib/tcsh/nls/greek/set4 b/contrib/tcsh/nls/greek/set4 deleted file mode 100644 index b982ed1a680b..000000000000 --- a/contrib/tcsh/nls/greek/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $Id: set4,v 1.2 1998/09/18 15:32:04 christos Exp $ -$ Termcap strings -$set 4 -1 ðñüóèåóç íÝáò êåíÞò ãñáììÞò -2 ç÷çôéêü óÞìá -3 êáèÜñéóìá ùò ôï ôÝëïò ïèüíçò -4 êáèÜñéóìá ùò ôï ôÝëïò ãñáììÞò -5 äñïìÝáò óå ïñéæüíôéá èÝóç -6 êáèÜñéóìá ïèüíçò -7 äéáãñáöÞ åíüò ÷áñáêôÞñá -8 äéáãñáöÞ ìéÜò ãñáììÞò -9 Ýíáñîç ôñüðïõ äéáãñáöÞò -10 ôåñìáôéóìüò ôñüðïõ äéáãñáöÞò -11 ôåñìáôéóìüò ôñüðïõ ðáñåìâïëÞò -12 äñïìÝáò áðü ãñáììÞ êáôÜóôáóçò -13 äñïìÝáò óôçí áñ÷Þ -14 åéóáãùãÞ ÷áñáêôÞñá -15 Ýíáñîç ôñüðïõ ðáñåìâïëÞò -16 ðáñåìâïëÞ padding -17 áðïóôïëÞ ÊÜôù -18 áðïóôïëÞ ÁñéóôåñÜ -19 áðïóôïëÞ ÄåîéÜ -20 áðïóôïëÞ ÅðÜíù -21 Ýíáñîç bold -22 ôÝëïò éäéïôÞôùí ÷áñáêôÞñùí -23 ìç êáôáóôñåðôéêü space -24 ôÝëïò Ýìöáóçò -25 áñ÷Þ Ýìöáóçò -26 ï äñïìÝáò óôç ãñáììÞ êáôÜóôáóçò -27 ï äñïìÝáò ìéÜ èÝóç åðÜíù -28 Ýíáñîç õðïãñÜììéóçò -29 ôÝëïò õðïãñÜììéóçò -30 ïñáôü óÞìá -31 äéáãñáöÞ ðïëëáðëþí ÷áñáêôÞñùí -32 äñïìÝáò ðïëëáðëÝò èÝóåéò êÜôù -33 ðáñåìâïëÞ ðïëëáðëþí ÷áñáêôÞñùí -34 äñïìÝáò ðïëëáðëÝò èÝóåéò áñéóôåñÜ -35 äñïìÝáò ðïëëáðëÝò èÝóåéò äåîéÜ -36 äñïìÝáò ðïëëáðëÝò èÝóåéò åðÜíù -37 Äõíáôüôçôá áõôüìáôùí ðåñéèùñßùí -38 Äõíáôüôçôá ÷ñÞóçò öõóéêþí tabs -39 Áñéèìüò ãñáììþí -40 Áñéèìüò óôçëþí -41 Õðáñîç "ìåôá"-ðëÞêôñïõ -42 Ôï newline áãíïåßôáé óôï äåîß ðåñéèþñéï diff --git a/contrib/tcsh/nls/greek/set5 b/contrib/tcsh/nls/greek/set5 deleted file mode 100644 index 6d4834b9b3b6..000000000000 --- a/contrib/tcsh/nls/greek/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set5,v 1.1 1996/04/26 19:25:27 christos Exp $ -$ ed.chared.c -$set 5 -1 Ï ìÝóïò üñïò öïñôßïõ äåí åßíáé äéáèÝóéìïò\n diff --git a/contrib/tcsh/nls/greek/set6 b/contrib/tcsh/nls/greek/set6 deleted file mode 100644 index 8d6da29294f3..000000000000 --- a/contrib/tcsh/nls/greek/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $Id: set6,v 1.1 1996/04/26 19:25:29 christos Exp $ -$ ed.inputl.c -$set 6 -1 ÓÖÁËÌÁ: Üêõñç åíôïëÞ áðï ôï ðëÞêôñï 0%o\r\n -2 íáé\n -3 edit\n -4 abort\n -5 ü÷é\n -6 Äåí õðÜñ÷åé åíôïëÞ ðïõ íá ôáéñéÜæåé\n -7 Äéöïñïýìåíç åíôïëÞ\n -8 *** ìïéñáßï ÓÖÁËÌÁ editor ***\r\n\n diff --git a/contrib/tcsh/nls/greek/set7 b/contrib/tcsh/nls/greek/set7 deleted file mode 100644 index 4eea77f49c75..000000000000 --- a/contrib/tcsh/nls/greek/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $Id: set7,v 1.2 1998/09/18 15:32:05 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tÔï %s îÝñåé ãéÜ ôï ôåñìáôéêü óáò ôá\n -2 \tåîÞò ÷áñáêôçñéóôéêÜ:\n\n -3 \tÅ÷åé %d óôÞëåò êáé %d ãñáììÝò\n -4 \t%s÷åé "ìåôá"-ðëÞêôñï\n -5 Å -6 Äåí Ý -7 \t%sìðïñåß íá ÷ñçóéìïðïéÞóåé tabs\n -8 Äåí -9 \t%s áõôüìáôá ðåñéèþñéá\n -10 Å÷åé -11 Äåí Ý÷åé -12 \t%s "ìáãéêÜ" ðåñéèþñéá\n -13 (Üäåéï) -14 íáé -15 ü÷é -16 ÓÖÁËÌÁ: äå ìðïñþ íá óâÞóù\r\n -17 DeleteChars: ï áñéèìüò åßíáé áðßèáíïò: %d\r\n -18 ÓÖÁËÌÁ: äå ìðïñþ íá ðáñåìâÜëù\r\n -19 StartInsert: ï áñéèìüò åßíáé áðßèáíïò: %d\r\n -20 %s: Äå ìðïñþ íá áíïßîù ôï /etc/termcap.\n -21 %s: Äåí õðÜñ÷åé åããñáöÞ ãéá ôïí ôýðï ôåñìáôéêïý "%s"\n -22 %s: èá ÷ñçóéìïðïéÞóù ÷áñáêôçñéóôéêÜ "÷áæïý" ôåñìáôéêïý.\n -23 %s: ÐÑÏÅÉÄÏÐÏÉÇÓÇ: Ôï ôåñìáôéêü äåí ìðïñåß íá ìåôáêéíÞóåé åðÜíù.\n -24 Ôï editing ìðïñåß íá åßíáé ðåñßåñãï ãéÜ ìåãÜëåò ãñáììÝò.\n -25 äåí õðÜñ÷åé äõíáôüôçôá êáèáñéóìïý ùò ôï ôÝëïò ãñáììÞò.\n -26 äåí õðÜñ÷åé äõíáôüôçôá äéáãñáöÞò ÷áñáêôÞñá.\n -27 äåí õðÜñ÷åé äõíáôüôçôá ðáñåìâïëÞò ÷áñáêôÞñá.\n diff --git a/contrib/tcsh/nls/greek/set8 b/contrib/tcsh/nls/greek/set8 deleted file mode 100644 index 376a8cd34aac..000000000000 --- a/contrib/tcsh/nls/greek/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set8,v 1.1 1996/04/26 19:25:32 christos Exp $ -$ ed.term.c -$set 8 -1 Áãíùóôï switch -2 Áêõñï üñéóìá diff --git a/contrib/tcsh/nls/greek/set9 b/contrib/tcsh/nls/greek/set9 deleted file mode 100644 index 1ec07317d065..000000000000 --- a/contrib/tcsh/nls/greek/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $Id: set9,v 1.2 1998/09/18 15:32:06 christos Exp $ -$ ed.xmap.c -$set 9 -1 AddXkey: äåí åðéôñÝðåôáé ìçäåíéêü extended-key.\n -2 AddXkey: ç åíôïëÞ ìå áõôÞí ôçí áñ÷éêÞ áêïëïõèßá äåí åðéôñÝðåôáé\n -3 DeleteXkey: äåí åðéôñÝðåôáé ìçäåíéêü extended-key.\n -4 Áóõó÷Ýôéóôï extended key "%S"\n -5 ÌåñéêÜ extended keys åßíáé ðïëý ìåãÜëá ãéÜ ôïí åóùôåñéêü print buffer -6 Enumerate: BUG!! ÐÝñáóìá ìçäåíéêïý pointer!\n -7 äåí õðÜñ÷åé åßóïäïò -8 ÊÜôé ðñÝðåé íá áêïëïõèåß: %c\n -9 Ç ïêôáäéêÞ óôáèåñÜ äå ÷ùñÜåé óôï ìÝãåèïò åíüò char.\n diff --git a/contrib/tcsh/nls/italian/set1 b/contrib/tcsh/nls/italian/set1 deleted file mode 100644 index 0f772ec1ab28..000000000000 --- a/contrib/tcsh/nls/italian/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $Id: set1,v 1.1 1998/09/03 22:03:13 christos Exp $ -$ Error messages -$set 1 -1 Errore di Sintassi -2 %s non è permesso -3 Parola troppo lunga -4 $< linea troppo lunga -5 Nessun file per $0 -6 Modificatore [] incompleto -7 L'espansione $ deve terminare prima di ] -8 Modificatore sbagliato in $ (%c) -9 Errore di indice -10 Numero non corretto -11 Sono senza parole -12 Nome di file mancante -13 Errore interno di glob -14 Comando non trovato -15 Troppi pochi argomenti -16 Troppi argomenti -17 È troppo pericoloso creare un alias in questo caso -18 `if' vuoto -19 `then' sbagliato -20 Parola non tra parentesi -21 %s non trovato -22 Maschera sbagliata -23 limit non esistente -24 Argomento troppo lungo -25 Fattore di scala sbagliato o sconosciuto -26 Variabile non definita -27 Pila delle directory non così profonda -28 Numero di segnale non corretto -29 Segnale sconosciuto; utilizza kill -l per elencare i segnali -30 Il nome della variabile deve iniziare con una lettera -31 Il nome della variabile è troppo lungo -32 Il nome della variabile deve contenere caratteri alfanumerici -33 Non ho il controllo dei lavori in questa shell -34 Errore di sintassi nell'espressione -35 HOME directory non esistente -36 Non posso entrare nella HOME directory -37 Comando nullo non corretto -38 Espressione mancante nell'assegnamento -39 Operatore sconosciuto -40 Ambiguo -41 %s: il file esiste -42 L'argomento di -c finisce con un backslash -43 Interrotto -44 Indice fuori scala -45 Overflow di linea -46 Lavoro non esistente -47 Non posso dal terminale -48 Non in un while/foreach -49 Ho finito i processi -50 Corrispondenza non esistente -51 %c mancante -52 %c non corrispondente -53 Memoria esaurita -54 Non posso creare una pipe -55 %s: %s -56 %s -57 Utilizzo: jobs [ -l ] -58 Gli argomenti devono essere lavori o identificativi di processo -59 Non esiste un lavoro predefinito -60 Non esiste un lavoro precedente -61 Nessun lavoro corrisponde alla descrizione -62 Annidamento del `fork' > %d; potrebbe causare `...` un ciclo chiuso -63 Nessun controllo dei lavori nelle sottoshell -64 Errore di sincronizzazione: processo %d non trovato -65 %sCi sono dei lavori sospesi -66 %sCi sono dei lavori fermi -67 Nessun'altra directory -68 Pila delle directory vuota -69 Directory sbagliata -70 Utilizzo: %s [-%s]%s -71 Operando non esistente per l'opzione -h -72 Shell non di login -73 Divisione per 0 -74 Resto per 0 -75 Errore di scala; intendevi forse "%s"? -76 Non posso sospendere una shell di login (o perlomeno non ancora) -77 Utente sconosciuto: %s -78 Variabile $home non definita -79 Utilizzo: history [-%s] [# numero dei comandi] -80 $, ! oppure < non utilizzabili con $# o $? -81 A capo in un nome di variabile -82 * non permesso con $# o $? -83 $?<cifra> o $#<cifra> non permessi -84 Nome di variabile non lecito -85 A capo nell'indice di una variabile -86 Errore di overflow nel buffer di espansione -87 Errore di sintassi nella variabile -88 Costrutto ! sbagliato -89 Precedente sostituzione inesistente -90 Sostituzione sbagliata -91 Non esiste il precedente lato sinistro -92 Lato destro troppo lungo -93 Modificatore ! errato: %c -94 Il modificatore non ha funzionato -95 Overflow di buffer nella sostituzione -96 Errato selettore ! di argomento -97 Nessuna ricerca precedente -98 %s: evento non trovato -99 Troppe ) -100 Troppe ( -101 ( non posizionata correttamente -102 Manca il nome per la redirezione -103 Redirezione in uscita ambigua -104 Non posso usare << dentro () -105 Redirezione in ingresso ambigua -106 () non posizionate correttamente -107 Ciclo chiuso nell'alias -108 Variabile $watch non definita -109 Nessun evento programmato -110 Utilizzo: sched -<elemento#>.\nUtilizzo: sched [+]hh:mm <comando> -111 Non ci sono così tanti eventi programmati -112 Nessun comando da eseguire -113 Istante non corretto per l'evento -114 Istante relativo non consistente con am/pm -115 Al di fuori dello spazio stringa del termcap -116 Utilizzo: settc %s [yes|no] -117 Capacità `%s' sconosciuta -118 Parametro del termcap `%%%c' sconosciuto -119 Troppi argomenti per `%s' (%d) -120 `%s' richiede %d argomenti -121 Utilizzo: echotc [-v|-s] [<capacità> [<argomenti>]] -122 %s: %s. Architettura non corretta -123 !# Ciclo chiuso nello storico -124 Richiesta di file formulata incorrettamente -125 Overflow di selettore -126 Opzione sconosciuta: `-%s'\nUtilizzo: %s [ -bcdefilmnqstvVxX -Dnome[=valore] ] [ argomento ... ] -127 Opzione sconosciuta: `-%s'\nUtilizzo: %s [ -bcdefFilmnqstvVxX ] [ argomento ... ] -128 Opzione sconosciuta: `-%s'\nUtilizzo: %s [ -bcdefilmnqstvVxX ] [ argomento ... ] -129 \nCompletamento non corretto: "%s" -130 \n%s non corretto: '%c' -131 \nManca il separatore '%c' dopo %s "%s" -132 \n%s incompleto: "%s" -133 Manca l'operando dell'opzione -m -134 Utilizzo: unlimit [-fh] [limiti] -135 $%S è a sola lettura -136 Non esiste il lavoro -137 Variabile `%c%c colorls' sconosciuta diff --git a/contrib/tcsh/nls/italian/set10 b/contrib/tcsh/nls/italian/set10 deleted file mode 100644 index 1fcda2471f9e..000000000000 --- a/contrib/tcsh/nls/italian/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set10,v 1.1 1998/09/03 22:03:14 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: comando '%s' non valido.\n -2 setpath: argomenti insufficienti per il comando '%s'.\n -3 setpath: manca un valore nel percorso '%s'\n -4 setpath: %s non trovato in %s\n -5 setpath: posizione %d non valida in %s\n diff --git a/contrib/tcsh/nls/italian/set11 b/contrib/tcsh/nls/italian/set11 deleted file mode 100644 index a558b2c4abdc..000000000000 --- a/contrib/tcsh/nls/italian/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $Id: set11,v 1.1 1998/09/03 22:03:14 christos Exp $ -$ sh.c -$set 11 -1 Attenzione: accesso negato al terminale (%s).\n -2 Quindi il controllo dei lavori in questa shell non è possibile.\n -3 Hai %d messaggi di posta elettronica.\n -4 Hai %d messaggi di posta elettronica in %s.\n -5 Hai %smessaggi di posta elettronica.\n -6 nuovi -7 Hai %smessaggi di posta elettronica in %s.\n diff --git a/contrib/tcsh/nls/italian/set12 b/contrib/tcsh/nls/italian/set12 deleted file mode 100644 index f07486bff9b6..000000000000 --- a/contrib/tcsh/nls/italian/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set12,v 1.1 1998/09/03 22:03:16 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: sto tentando di partire da "%s"\n diff --git a/contrib/tcsh/nls/italian/set13 b/contrib/tcsh/nls/italian/set13 deleted file mode 100644 index 65b46bbaba98..000000000000 --- a/contrib/tcsh/nls/italian/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set13,v 1.1 1998/09/03 22:03:17 christos Exp $ -$ sh.exec.c -$set 13 -1 hash=%-4d dir=%-2d prog=%s\n -2 %d gruppi di hash di %d bits ciascuno\n -3 maschera di debug = 0x%08x\n -4 %d giusti, %d errori, %d%%\n -5 %S: comando interno della shell.\n -6 %S: comando non trovato.\n -7 where: / non ha senso all'interno di un comando\n -8 %S è un alias per -9 %S è un comando interno\n -10 errore di hash: diff --git a/contrib/tcsh/nls/italian/set14 b/contrib/tcsh/nls/italian/set14 deleted file mode 100644 index 0c9539051587..000000000000 --- a/contrib/tcsh/nls/italian/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set14,v 1.1 1998/09/03 22:03:18 christos Exp $ -$ sh.file.c -$set 14 -1 \nAccipicchia!! Troppi %s!!\n -2 nomi nel file della password -3 file diff --git a/contrib/tcsh/nls/italian/set15 b/contrib/tcsh/nls/italian/set15 deleted file mode 100644 index 8ed2234a570c..000000000000 --- a/contrib/tcsh/nls/italian/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set15,v 1.1 1998/09/03 22:03:18 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: non si può %s il limite%s\n -2 eliminare -3 modificare -4 \040fisico diff --git a/contrib/tcsh/nls/italian/set16 b/contrib/tcsh/nls/italian/set16 deleted file mode 100644 index 1d11fbf3e4ee..000000000000 --- a/contrib/tcsh/nls/italian/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set16,v 1.1 1998/09/03 22:03:19 christos Exp $ -$ sh.lex.c -$set 16 -1 Reinizializzato il gruppo di processi di terminale da %d a %d\n -2 \nUsa "logout" per uscire.\n -3 \nUsa "exit" per lasciare %s.\n -4 seek to eval %x %x\n -5 seek to alias %x %x\n -6 seek to file %x\n -7 Tipo di seek sbagliato %d\n -8 tell eval %x %x\n -9 tell alias %x %x\n -10 tell file %x\n diff --git a/contrib/tcsh/nls/italian/set17 b/contrib/tcsh/nls/italian/set17 deleted file mode 100644 index 1361ffc96ad8..000000000000 --- a/contrib/tcsh/nls/italian/set17 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set17,v 1.1 1998/09/03 22:03:20 christos Exp $ -$ sh.proc.c -$set 17 -1 BACO: sto aspettando un lavoro in background!\n -2 Uscito %d\n -3 BACO: il processo è stato svuotato due volte -4 In esecuzione -5 Segnale -6 Uscito %-25d -7 Fatto -8 BACO: stato=%-9o -9 \040(creato file core) -10 \040(directory di lavoro: -11 directory di lavoro corrente: -12 %S: già sospeso\n -13 %S: già fermato\n diff --git a/contrib/tcsh/nls/italian/set18 b/contrib/tcsh/nls/italian/set18 deleted file mode 100644 index a8a80f256146..000000000000 --- a/contrib/tcsh/nls/italian/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set18,v 1.1 1998/09/03 22:03:21 christos Exp $ -$ sh.set.c -$set 18 -1 Attenzione: PATH indecorosamente lungo troncato\n diff --git a/contrib/tcsh/nls/italian/set19 b/contrib/tcsh/nls/italian/set19 deleted file mode 100644 index caa052da1ace..000000000000 --- a/contrib/tcsh/nls/italian/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set19,v 1.1 1998/09/03 22:03:21 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: Memoria esaurita\n -2 free(%lx) chiamata prima di qualsiasi allocazione. -3 free(%lx) oltre il limite superiore della memoria. -4 free(%lx) oltre il limite inferiore della memoria. -5 free(%lx) blocco errato. -6 free(%lx) intervallo di controllo sbagliato. -7 free(%lx) indice di blocco sbagliato. -8 %s attuale allocazione di memoria:\nlibera:\t -9 \nutilizzata:\t -10 \n\tTotale utilizzata: %d, totale libera: %d\n -11 \tAllocata memoria da 0x%lx a 0x%lx. Limite superiore effettivo a 0x%lx\n -12 Allocata memoria da 0x%lx a 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/italian/set2 b/contrib/tcsh/nls/italian/set2 deleted file mode 100644 index 07925f582241..000000000000 --- a/contrib/tcsh/nls/italian/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $Id: set2,v 1.1 1998/09/03 22:03:22 christos Exp $ -$ Signal names -$set 2 -1 Segnale nullo -2 Interrotto -3 Fermato -4 Uscito -5 Istruzione non esistente -6 trap di tipo Trace/BPT -7 Segnale di annullamento -8 trap IOT -9 Crash di sistema imminente -10 Uscita per errore -11 trap EMT -12 Errore di calcolo in virgola mobile -13 Ucciso -14 Segnale utente numero 1 -15 Segnale utente numero 2 -16 Errore di accesso al segmento di memoria -17 Errore di bus -18 Errore nell'intervallo del programma -19 Errore nell'intervallo dell'operando -20 Chiamata di sistema sbagliata -21 Pipe interrotta -22 Allarme -23 Terminato -24 Cambio di stato nel figlio -25 Morte del figlio -26 Errore specifico dell'Apollo -27 Figlio fermato o uscito -28 Figlio uscito -29 Errore di alimentazione -30 Perdita della risorsa -31 Interruzione (Ctrl-Break) -32 Possibile segnale di I/O -33 I/O asincrono (select) -34 Urgenza su canale di I/O -35 Interruzione del `multitasking' -36 Termine del `multitasking' -37 Completamento di I/O asincrono del Fortran -38 Recupero -39 Errore non correggibile di memoria -40 Tempo di CPU a disposizione esaurito -41 Spegnimento del sistema imminente -42 micro-tasking group-no wakeup flag settato -43 Errore di thread - (usa cord -T per avere informazioni dettagliate) -44 Errore di parità di registro del CRAY Y-MP -45 Richiesta di informazioni -46 Sospeso (segnale) -47 Fermato (segnale) -48 Sospeso -49 Fermato -50 Continuato -51 Sospeso (input da tty) -52 Fermato (input da tty) -53 Sospeso (output su tty) -54 Fermato (output su tty) -55 Cambio di stato della finestra -56 Cambio di dimensioni della finestra -57 Cambio di stato del telefono -58 Tempo di CPU a disposizione esaurito -59 Limite massimo delle dimensioni di un file superato -60 Allarme dell'orologio virtuale -61 Allarme di tempo di profiling -62 Segnale DIL -63 Si è verificato un evento interrogabile -64 Gli lwps del processo sono bloccati -65 Segnale speciale LWP -66 Segnale speciale CPR -67 Segnale speciale CPR -68 Primo segnale di tempo reale -69 Secondo segnale di tempo reale -70 Terzo segnale di tempo reale -71 Quarto segnale di tempo reale -72 Quart'ultimo segnale di tempo reale -73 Terz'ultimo segnale di tempo reale -74 Penultimo segnale di tempo reale -75 Ultimo segnale di tempo reale -76 I/O asincrono di LAN -77 Disponibilità di lettura/scrittura su pseudoterminale -78 Richiesta di I/O -79 Modalità di monitoraggio HFT disponibile -80 La modalità di monitoraggio HFT deve essere abbandonata -81 Il controllo sonoro HFT è stato completato -82 Dati nel buffer circolare HFT -83 Migrate process -84 Tasto di attenzione assicurata -85 Rischedulamento -86 Segnale di SS$_DEBUG -87 Cambio di priorità -88 Identificato uno stallo -89 Nuovo carattere in ingresso -90 Oltrepassato lo spazio disponibile di stack -91 Segnale non usato diff --git a/contrib/tcsh/nls/italian/set20 b/contrib/tcsh/nls/italian/set20 deleted file mode 100644 index 25aadb729965..000000000000 --- a/contrib/tcsh/nls/italian/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $Id: set20,v 1.1 1998/09/03 22:03:23 christos Exp $ -$ tc.bind.c -$set 20 -1 Nome di tasto non corretto `%S'\n -2 Nome di tasto sbagliato: %S\n -3 Nome di comando sbagliato: %S\n -4 Specificazione di tasto sbagliata %S\n -5 Stringa di specificazione sbagliata\n -6 Definizione dei tasti standard\n -7 Definizione dei tasti alternativi\n -8 Definizione delle combinazioni di più tasti\n -9 Definizione dei tasti freccia\n -10 %-15s-> non è definita\n -11 BACO!!! %s non è definita da nessuna parte.\n -12 Utilizzo: bindkey [opzioni] [--] [TASTO [COMANDO]]\n -13 -a elenca o definisce un tasto nella tabella dei tasti alternativi\n -14 -b interpreta TASTO come C-, M-, F- o X- tasto\n -15 -s interpreta COMANDO come una sequenza di caratteri da mandare in uscita\n -16 -c interpreta COMANDO come un comando interno o esterno\n -17 -v definisce tutti i tasti alla 'vi'\n -18 -e definisce tutti i tasti alla 'emacs'\n -19 -d definisce tutti i tasti in base all'editor di default\n -20 -l elenca i comandi di modifica testo con relativa descrizione\n -21 -r rimuove la definizione per TASTO\n -22 -k interpreta TASTO come un nome simbolico di tasto freccia\n -23 -- forza un'interruzione nella interpretazione delle opzioni\n -24 -u (o qualsiasi opzione non corretta) questo messaggio\n -25 Senza TASTO o COMANDO, stampa tutte le definizioni\n -26 Senza COMANDO, stampa la definizione di TASTO.\n -27 specificazione di tasto sbagliata -- stringa nulla\n -28 specificazione di tasto sbagliata -- stringa vuota\n -29 Specificazione di tasto funzione sbagliata. Il tasto nullo non si può usare\n -30 specificazione di tasto sbagliata -- numero esadecimale non corretto\n -31 specificazione di tasto sbagliata -- numero ottale non corretto\n -32 specificazione di tasto sbagliata -- numero decimale non corretto\n -33 Specificazione di tasto funzione sbagliata.\n -34 Il tasto nullo non si può usare\n -35 specificazione di tasto sbagliata -- nome "%S" sconosciuto\n -36 utilizzo: bind [TASTO | COMANDO TASTO | "emacs" | "vi" | "-a"]\n -37 Funzione non corretta -38 %s\t\tnon è definita\n diff --git a/contrib/tcsh/nls/italian/set21 b/contrib/tcsh/nls/italian/set21 deleted file mode 100644 index 564e91a24679..000000000000 --- a/contrib/tcsh/nls/italian/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set21,v 1.2 1998/09/09 10:30:21 christos Exp $ -$ tc.disc.c -$set 21 -1 Non si possono ottenere i caratteri locali\n -2 Non si possono definire i caratteri locali\n diff --git a/contrib/tcsh/nls/italian/set22 b/contrib/tcsh/nls/italian/set22 deleted file mode 100644 index 1187251f5c2a..000000000000 --- a/contrib/tcsh/nls/italian/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $Id: set22,v 1.1 1998/09/03 22:03:24 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t è un alias per -2 \nPassword non corretta per %s\n -3 Alias non corretto 'precmd' rimosso.\n -4 Alias non corretto 'cwdcmd' rimosso.\n -5 Alias non corretto 'beepcmd' rimosso.\n -6 Alias non corretto 'periodic' rimosso.\n -7 sto esaminando la linea di comando\n -8 Vuoi realmente cancellare tutti i file? [s/n] -9 sto saltando la cancellazione dei file!\n -10 la linea di comando adesso è:\n -11 sto esaminando la linea di comando\n -12 in uno degli elenchi\n -13 la linea di comando ora è:\n -14 sS diff --git a/contrib/tcsh/nls/italian/set23 b/contrib/tcsh/nls/italian/set23 deleted file mode 100644 index 661e7e6ef003..000000000000 --- a/contrib/tcsh/nls/italian/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $Id: set23,v 1.1 1998/09/03 22:03:25 christos Exp $ -$ tc.os.c -$set 23 -1 Nome di cpu/macchina non corretto -2 Percorso per la macchina troppo lungo -3 sconosciuta -4 macchina: %s\n -5 %d: macchina non trovata\n -6 setlocal: %s: %s\n -7 Macchina non trovata -8 Sei intrappolato in un universo che non creasti -9 Getwarp fallita -10 Warp non corretto -11 Setwarp fallita -12 Universo non corretto -13 Errore sconosciuto: %d -14 sysname: %s\n -15 nodename: %s\n -16 release: %s\n -17 version: %s\n -18 machine: %s\n -19 getwd: non posso aprire ".." (%s) -20 getwd: non posso entrare in ".." (%s) -21 getwd: errore di lettura in ".." (%s) -22 getwd: non posso tornare indietro in "." (%s) -23 getwd: non posso usare la funzione stat in "/" (%s) -24 getwd: non posso usare la funzione stat in "." (%s) -25 getwd: non posso usare la funzione stat nella directory "%s" (%s) -26 getwd: non posso aprire la directory "%s" (%s) -27 getwd: non riesco a trovare "." in ".." (%s) -28 Tipo di sistema non corretto -29 Il tipo di sistema non è stato definito -30 Troppi argomenti -31 Argomento non corretto diff --git a/contrib/tcsh/nls/italian/set24 b/contrib/tcsh/nls/italian/set24 deleted file mode 100644 index d74e53295d6d..000000000000 --- a/contrib/tcsh/nls/italian/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set24,v 1.1 1998/09/03 22:03:26 christos Exp $ -$ tc.sched.c -$set 24 -1 accrocchio diff --git a/contrib/tcsh/nls/italian/set25 b/contrib/tcsh/nls/italian/set25 deleted file mode 100644 index e20766ad299c..000000000000 --- a/contrib/tcsh/nls/italian/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set25,v 1.1 1998/09/03 22:03:27 christos Exp $ -$ tc.sig.c -$set 25 -1 ourwait %d\n -2 errore: bsd_signal(%d) segnale fuori intervallo\n -3 errore: bsd_signal(%d) - sigaction fallita, errno %d\n diff --git a/contrib/tcsh/nls/italian/set26 b/contrib/tcsh/nls/italian/set26 deleted file mode 100644 index f2ff82db7410..000000000000 --- a/contrib/tcsh/nls/italian/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set26,v 1.1 1998/09/03 22:03:28 christos Exp $ -$ tc.who.c -$set 26 -1 non posso usare stat per %s. Per pietà dai un "unset watch".\n -2 Non riesco ad aprire %s. Per pietà dai un "unset watch".\n -3 BACO! l'ultimo elemento non è whotail!\n -4 all'indietro: -5 BACO! il primo elemento non è whohead!\n -6 nuova entrata: %s/%s\n -7 %n %a %l da %m. -8 %n %a %l. -9 si è loggato su -10 si è sloggato da -11 ha rimpiazzato %s su -12 console diff --git a/contrib/tcsh/nls/italian/set27 b/contrib/tcsh/nls/italian/set27 deleted file mode 100644 index 856c2cc4e320..000000000000 --- a/contrib/tcsh/nls/italian/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set27,v 1.1 1998/09/03 22:03:28 christos Exp $ -$ tw.comp.c -$set 27 -1 comando -2 separatore -3 disegno -4 intervallo -5 completamento diff --git a/contrib/tcsh/nls/italian/set29 b/contrib/tcsh/nls/italian/set29 deleted file mode 100644 index 5bf6016c29d2..000000000000 --- a/contrib/tcsh/nls/italian/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set29,v 1.1 1998/09/03 22:03:29 christos Exp $ -$ tw.help.c -$set 29 -1 Non esiste il file di aiuto per %S\n diff --git a/contrib/tcsh/nls/italian/set3 b/contrib/tcsh/nls/italian/set3 deleted file mode 100644 index 733a36ff18ea..000000000000 --- a/contrib/tcsh/nls/italian/set3 +++ /dev/null @@ -1,117 +0,0 @@ -$ $Id: set3,v 1.1 1998/09/03 22:03:30 christos Exp $ -$ Editor function descriptions -$set 3 -1 Retrocede di un carattere -2 Cancella il carattere dietro il cursore -3 Taglia dall'inizio della parola corrente fino al cursore salvando nel buffer -4 Taglia dall'inizio della linea sino al cursore salvando nel buffer -5 Si sposta all'inizio della parola corrente -6 Si sposta all'inizio della linea -7 Converte in maiuscole le lettere dal cursore fino alla fine della parola corrente -8 Vi: cambia in maiuscolo/minuscolo la lettera sotto il cursore e avanza di un carattere -9 Vi: cambia fino alla fine della linea -10 Cancella lo schermo lasciando la linea corrente in alto -11 Completa la parola corrente -12 Avanza con il tabulatore tra i file -13 Retrocede con il tabulatore tra i file -14 Completa la parola corrente ignorando le modalità di completamento programmabili -15 Copia la parola corrente nella posizione del cursore -16 Copia la zona tra il cursore e il segno nel buffer -17 Espande nella precedente parola di cui questa è la parte iniziale -18 Cancella il carattere sotto il cursore -19 Cancella il carattere sotto il cursore o segnala la fine del file in una linea vuota -20 Cancella il carattere sotto il cursore o elenca i completamenti se alla fine di una linea -21 Cancella il carattere sotto il cursore, elenca completamenti o segnala la fine del file -22 Taglia dal cursore fino alla fine della parola corrente salvando nel buffer -23 Aggiunge all'argomento qualora iniziato, altrimenti inserisce la cifra -24 Cifra che inizia l'argomento -25 Si sposta alla linea seguente nello storico -26 Converte in minuscole le lettere dal cursore fino alla fine della parola corrente -27 Indica la fine di file -28 Sposta il cursore alla fine della linea -29 Scambia cursore e segno -30 Espande i caratteri jolly nel nome del file -31 Espande le sequenze di escape nello storico -32 Espande le sequenze di escape nello storico in una linea -33 Espande le variabili -34 Avanza di un carattere -35 Avanza alla fine della parola corrente -36 Scambia i due caratteri prima del cursore -37 Cerca all'indietro nello storico per una linea che inizia come la corrente -38 Cerca in avanti nello storico per una linea che inizia come la corrente -39 Inserisce l'ultimo elemento del precedente comando -40 Ricerca incrementale in avanti -41 Ricerca incrementale all'indietro -42 Cancella la linea -43 Taglia fino alla fine della linea salvando nel buffer -44 Taglia la zona tra il cursore e il segno e la salva nel buffer -45 Taglia l'intera linea salvandola nel buffer -46 Elenca le possibili scelte per il completamento -47 Elenca le possibili scelte per il completamento ignorando le modalità di completamento programmabili -48 Elenca i file che corrispondono ai caratteri jolly -49 Elenca le possibili scelte per il completamento o segnala la fine del file nel caso di linea vuota -50 Mostra la media di carico macchina e lo stato del processo corrente -51 Espande le sequenze di escape nello storico e inserisce uno spazio -52 Esegue un comando -53 Espande i percorsi eliminando i '.' e '..' iniziali -54 Espande i comandi con il relativo percorso o alias -55 Commuta tra le modalità di inserimento e di sovrascrittura -56 Aggiunge l'ottavo bit al successivo carattere inserito -57 Aggiunge nella linea il successivo carattere così com'è -58 Ridisegna tutto -59 Fa ripartire l'editor sospeso -60 Cerca le spiegazioni del comando corrente -61 Questo carattere è aggiunto alla linea -62 Questo carattere è il primo in una sequenza di caratteri -63 Fissa il segno nella posizione del cursore -64 Corregge la sintassi della parola corrente -65 Corregge la sintassi dell'intera linea -66 Invia il carattere sul terminale in modalità `cooked' -67 Commuta tra la corrente linea letterale e lessicale dello storico -68 Scambia il carattere alla sinistra del cursore con quello sotto -69 Scambia i due caratteri prima del cursore -70 Carattere di sospensione del terminale ritardata -71 Carattere di svuotamento dell'output del terminale -72 Carattere di interruzione del terminale -73 Carattere di uscita del terminale -74 Carattere di sospensione del terminale -75 Carattere di permesso di output del terminale -76 Carattere di negazione dell'output del terminale -77 Indica un carattere non assegnato -78 Argomento Emacs universale -79 Si sposta sulla precedente linea dello storico -80 Converte in maiuscole le lettere dal cursore fino alla fine della parola corrente -81 Vi: vai all'inizio della prossima parola -82 Vi: commuta in modalità di inserimento dopo il cursore -83 Vi: commuta in modalità di inserimento alla fine della linea -84 Vi: cambia in da o in maiuscolo la lettera sotto il cursore e avanza di una posizione -85 Vi: cambia il comando di prefisso -86 Vi: modifica alla fine della linea -87 Entra in modalità di comando vi (utilizza le definizioni di tasti alternative) -88 Vi: modalità di comando a completamento di parola -89 Vi: si sposta sul precedente carattere (backspace) -90 Vi: cancella il comando di prefisso -91 Vi: avanza sul primo carattere che precede uno spazio -92 Vi: si sposta alla fine della parola corrente -93 Vi: retrocede al carattere indicato -94 Vi: avanza al carattere indicato -95 Vi: si sposta sopra il carattere indicato all'indietro -96 Vi: si sposta sopra il carattere indicato in avanti -97 Commuta in modalità di inserimento vi -98 Commuta in modalità di inserimento vi all'inizio della linea -99 Vi: ripete la ricerca del carattere nella stessa direzione -100 Vi: ripete la ricerca del carattere nella direzione opposta -101 Vi: ripete la ricerca nella stessa direzione -102 Vi: ripete la ricerca nella direzione opposta -103 Vi: rimpiazza il carattere sotto il cursore con quello successivamente introdotto -104 Vi: modalità di rimpiazzo -105 Vi: ricerca nello storico all'indietro -106 Vi: ricerca nello storico in avanti -107 Vi: rimpiazza il carattere sotto il cursore e commuta in modalità di inserimento -108 Vi: rimpiazza l'intera linea -109 Vi: si sposta alla parola precedente -110 Vi: si sposta alla parola successiva -111 Vi: annulla la precedente modifica -112 Vi: si sposta all'inizio della linea -113 Esegue un `which' del comando corrente -114 Inserisce il contenuto del buffer alla posizione del cursore diff --git a/contrib/tcsh/nls/italian/set30 b/contrib/tcsh/nls/italian/set30 deleted file mode 100644 index b5e7ee381d99..000000000000 --- a/contrib/tcsh/nls/italian/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set30,v 1.1 1998/09/03 22:03:31 christos Exp $ -$ tw.parse.c -$set 30 -1 inizio_il_comando %d\n -2 completo %d -3 completo %d %S\n -4 %s: Errore interno di corrispondenza.\n -5 elementi, li -6 righe, le -7 Ci sono %d %selenco ugualmente? [n/s] -8 sembra = %d\n -9 \nerrore interno della tcsh: Non mi ricordo cosa stavo facendo!\n -10 non è una directory -11 non trovato -12 non leggibile -13 sS diff --git a/contrib/tcsh/nls/italian/set31 b/contrib/tcsh/nls/italian/set31 deleted file mode 100644 index 07cdef207c68..000000000000 --- a/contrib/tcsh/nls/italian/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set31,v 1.1 1998/09/03 22:03:31 christos Exp $ -$ vms.termcap.c -$set 31 -1 Non posso aprire il TERMCAP: [%s]\n -2 Non posso aprire %s.\n -3 Ho trovato %s in %s.\n -4 Non esistono corrispondenze per %s nel file %s\n diff --git a/contrib/tcsh/nls/italian/set4 b/contrib/tcsh/nls/italian/set4 deleted file mode 100644 index fbd56048d416..000000000000 --- a/contrib/tcsh/nls/italian/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $Id: set4,v 1.1 1998/09/03 22:03:32 christos Exp $ -$ Termcap strings -$set 4 -1 aggiunge una linea vuota -2 segnale acustico -3 cancella fino al margine inferiore -4 cancella fino alla fine della linea -5 cursore alla posizione orizzontale -6 cancella lo schermo -7 cancella un carattere -8 cancella una riga -9 mette in modalità di cancellazione -10 fine della modalità di cancellazione -11 fine della modalità di inserimento -12 cursore dalla linea di stato -13 cursore nella posizione iniziale -14 inserisce un carattere -15 mette in modalità di inserimento -16 inserisce un carattere di riallineamento -17 muove il cursore verso il basso -18 muove il cursore verso sinistra -19 muove il cursore verso destra -20 muove il cursore verso l'alto -21 inizio del grassetto -22 fine degli attributi -23 spazio non coprente -24 fine dell'evidenziazione -25 inizio dell'evidenziazione -26 cursore nella linea di stato -27 cursore su di uno -28 inizio sottolineatura -29 fine sottolineatura -30 segnale ottico -31 cancella più caratteri -32 cursore verso il basso più volte -33 inserisce più caratteri -34 cursore verso sinistra più volte -35 cursore verso destra più volte -36 cursore verso l'alto più volte -37 Ha margini automatizzati -38 Può usare tabulatori fisici -39 Numero di linee -40 Numero di colonne -41 Ha il tasto meta -42 Ritorno a capo ignorato sul margine destro diff --git a/contrib/tcsh/nls/italian/set5 b/contrib/tcsh/nls/italian/set5 deleted file mode 100644 index 788d52ca560b..000000000000 --- a/contrib/tcsh/nls/italian/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set5,v 1.1 1998/09/03 22:03:33 christos Exp $ -$ ed.chared.c -$set 5 -1 Media di carico non disponibile\n diff --git a/contrib/tcsh/nls/italian/set6 b/contrib/tcsh/nls/italian/set6 deleted file mode 100644 index 6686b011cd8d..000000000000 --- a/contrib/tcsh/nls/italian/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $Id: set6,v 1.1 1998/09/03 22:03:34 christos Exp $ -$ ed.inputl.c -$set 6 -1 ERRORE: comando illegale per il tasto 0%o\r\n -2 sì\n -3 modificare\n -4 annullare\n -5 no\n -6 Non esiste un comando corrispondente\n -7 Comando ambiguo\n -8 *** ERRORE fatale nell'editor ***\r\n\n diff --git a/contrib/tcsh/nls/italian/set7 b/contrib/tcsh/nls/italian/set7 deleted file mode 100644 index f09b3dd98e20..000000000000 --- a/contrib/tcsh/nls/italian/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $Id: set7,v 1.1 1998/09/03 22:03:34 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tLa tcsh ipotizza che il tuo terminale abbia\n -2 \tle seguenti caratteristiche:\n\n -3 \t%d colonne e %d linee\n -4 \t%s tasto meta\n -5 il -6 nessun -7 \t%s può usare i tabulatori\n -8 non -9 \t%s i margini automatici\n -10 ha -11 non ha -12 \t%s i margini magici\n -13 (vuoto) -14 sì -15 no -16 ERRORE: non posso cancellare\r\n -17 DeleteChars: il valore num è ridicolo: %d\r\n -18 ERRORE: non posso inserire\r\n -19 StartInsert: il valore num è ridicolo: %d\r\n -20 %s: Non riesco ad aprire /etc/termcap.\n -21 %s: Nessuna definizione per un terminale di tipo "%s"\n -22 %s: sto usando i settaggi relativi ad un terminale veramente stupido.\n -23 %s: ATTENZIONE: Il terminale non può scrollare verso l'alto.\n -24 La modifica delle linee lunghe potrebbe essere difficoltosa.\n -25 non è possibile cancellare fino alla fine della linea.\n -26 non è possibile cancellare caratteri.\n -27 non è possibile inserire caratteri.\n diff --git a/contrib/tcsh/nls/italian/set8 b/contrib/tcsh/nls/italian/set8 deleted file mode 100644 index ca5ce8d59fc0..000000000000 --- a/contrib/tcsh/nls/italian/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set8,v 1.1 1998/09/03 22:03:35 christos Exp $ -$ ed.term.c -$set 8 -1 Commutatore sconosciuto -2 Argomento non valido diff --git a/contrib/tcsh/nls/italian/set9 b/contrib/tcsh/nls/italian/set9 deleted file mode 100644 index 745aad233228..000000000000 --- a/contrib/tcsh/nls/italian/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $Id: set9,v 1.1 1998/09/03 22:03:36 christos Exp $ -$ ed.xmap.c -$set 9 -1 AddXkey: tasto esteso nullo non ammesso.\n -2 AddXkey: comando `sequence-lead-in' non permesso\n -3 DeleteXkey: tasto esteso nullo non ammesso.\n -4 Tasto esteso "%S" non definito\n -5 Alcuni tasti estesi sono troppo grandi per il buffer interno di stampa -6 Enumerate: BACO!! ho ricevuto un puntatore nullo\n! -7 niente in ingresso -8 Qualcosa deve seguire: %c\n -9 Costante ottale non adeguata per un char.\n diff --git a/contrib/tcsh/nls/ja/set1 b/contrib/tcsh/nls/ja/set1 deleted file mode 100644 index b999e0706aef..000000000000 --- a/contrib/tcsh/nls/ja/set1 +++ /dev/null @@ -1,139 +0,0 @@ -$ $Id: set1,v 1.3 1999/05/11 13:08:29 christos Exp $ -$ Error messages -$set 1 -1 ʸˡ¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -3 ʸ¾Ï¤¬Ä¹¤¹¤®¤Þ¤¹ -4 $< ¤Î¹Ô¤¬Ä¹¤¹¤®¤Þ¤¹ -5 $0 ÍѤΥե¡¥¤¥ë¤¬¤¢¤ê¤Þ¤»¤ó -6 [] ½¤¾þ»Ò¤¬ÉÔ´°Á´¤Ç¤¹ -7 $ Ÿ³«¤Ï ] ¤ÎÁ°¤Ë½ª¤ï¤ëɬÍפ¬¤¢¤ê¤Þ¤¹ -8 $ Æâ¤Î : ½¤¾þ»Ò¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ (%c) -9 ÇÛÎó¤Îź¤¨»ú¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -10 ÉÔŬÀÚ¤ËÀ¸À®¤µ¤ì¤¿ÈÖ¹æ¤Ç¤¹ -11 ʸ»úÎó¤Ï¤â¤¦¤¢¤ê¤Þ¤»¤ó -12 ¥Õ¥¡¥¤¥ë̾¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -13 glob¤ÎÆâÉô¥¨¥é¡¼¤Ç¤¹ -14 ¥³¥Þ¥ó¥É¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó -15 ¥¢¡¼¥®¥å¥á¥ó¥È¤¬ÉÔ¤·¤Æ¤¤¤Þ¤¹ -16 ¥¢¡¼¥®¥å¥á¥ó¥È¤¬Â¿²á¤®¤Þ¤¹ -17 ´í¸±¤Ê¥¨¥¤¥ê¥¢¥¹ÄêµÁ¤Ç¤¹ -18 if¤¬¤¢¤ê¤Þ¤»¤ó -19 ´Ö°ã¤Ã¤¿then¤Ç¤¹ -20 ʸ»úÎ󤬳ç¸ÌÆâ¤Ë¤¢¤ê¤Þ¤»¤ó -21 %s ¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó -22 ´Ö°ã¤Ã¤¿mask¤Ç¤¹ -23 ¤½¤Î¤è¤¦¤ÊlimitÃͤϤ¢¤ê¤Þ¤»¤ó -24 ¥¢¡¼¥®¥å¥á¥ó¥È¤¬Ä¹¤¹¤®¤Þ¤¹ -25 ¥ª¥×¥·¥ç¥óñ°Ì¤¬ÉÔÌÀ¤«´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -26 ÊÑ¿ô¤òÄêµÁ¤·¤Æ¤¤¤Þ¤»¤ó -27 ¥Ç¥£¥ì¥¯¥È¥ê¡¼¥¹¥¿¥Ã¥¯¤ÎÈÖ¹æ»ØÄ꤬¿¼²á¤®¤Þ¤¹ -28 ¥·¥°¥Ê¥ëÈֹ椬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -29 ¥·¥°¥Ê¥ë¤Î̾Á°¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ "kill -l"¤Ç¸«¤ë»ö¤¬½ÐÍè¤Þ¤¹ -30 ÊÑ¿ô̾¤Ï±Ñ»ú¤Ç»Ï¤á¤ëɬÍפ¬¤¢¤ê¤Þ¤¹ -31 ÊÑ¿ô¤Î̾Á°¤¬Ä¹¤¹¤®¤Þ¤¹ -32 ÊÑ¿ô̾¤Ï±Ñ¿ô»ú¤À¤±¤Ç¹½À®¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹ -33 ¤³¤Îshell¤Ç¤Ï¥¸¥ç¥Ö¥³¥ó¥È¥í¡¼¥ë¤Ï»ÈÍѤǤ¤Þ¤»¤ó -34 ¼°¹½Ê¸? -35 ¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¡¼¤¬¤¢¤ê¤Þ¤»¤ó -36 ¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¡¼¤ËÊѹ¹¤Ç¤¤Þ¤»¤ó -37 ÉÔÀµ¤Ê¥Ì¥ë¥³¥Þ¥ó¥É¤Ç¤¹ -38 ¼°¤¬´Ö°ã¤Ã¤Æ¤¤¤ë³äÅö¤¬¤¢¤ê¤Þ¤¹ -39 ÄêµÁ¤µ¤ì¤Æ¤¤¤Ê¤¤±é»»»Ò¤Ç¤¹ -40 Û£Ëæ¤Ç¤¹ -41 %s¤È¸À¤¦¥Õ¥¡¥¤¥ë¤Ï¤¹¤Ç¤Ë¸ºß¤·¤Þ¤¹ -42 -cÍѤΰú¿ô¤Ï¥Ð¥Ã¥¯¥¹¥é¥Ã¥·¥å¤Ç½ª¤ï¤ê¤Þ¤¹ -43 ³ä¤ê¹þ¤ß¤¬Æþ¤ê¤Þ¤·¤¿ -44 ÇÛÎó¤ËÆþ¤ì¤ëź¤¨»ú¤¬ÈϰϤòĶ¤¨¤Æ¤¤¤Þ¤¹ -45 ¹Ô¤Î¥ª¡¼¥Ð¡¼¥Õ¥í¡¼¤Ç¤¹ -46 ¤½¤Î¤è¤¦¤Ê¥¸¥ç¥Ö¤Ï¤¢¤ê¤Þ¤»¤ó -47 üËö¤«¤é¤Ï¤Ç¤¤Þ¤»¤ó -48 while/foreach¤ÎÃæ¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó -49 ¥×¥í¥»¥¹¤òÀ¸À®¤Ç¤¤Þ¤»¤ó -50 ¾È¹ç¥Ñ¥¿¡¼¥ó¤Ë¹ç¤¤¤Þ¤»¤ó -51 ´Ö°ã¤Ã¤¿ %c ¤Ç¤¹ -52 %c ¤¬°ìÃפ·¤Þ¤»¤ó -53 ¥á¥â¥ê¤¬ÉÔ¤·¤Æ¤¤¤Þ¤¹ -54 ¥Ñ¥¤¥×¤òºî¤ì¤Þ¤»¤ó -55 %s: %s -56 %s -57 ·Á¼°: jobs [ -l ] -58 ¥¢¡¼¥®¥å¥á¥ó¥È¤Ï¥¸¥ç¥Ö¤«¥×¥í¥»¥¹ID¤Ç¤¹. -59 ¥«¥ì¥ó¥È¤Îjob¤Ï¤¢¤ê¤Þ¤»¤ó -60 Á°¤Îjob¤Ï¤¢¤ê¤Þ¤»¤ó -61 ¥¸¥ç¥Ö¤¬¥Ñ¥¿¡¼¥ó¤Ë°ìÃפ·¤Þ¤»¤ó -62 Fork¤Î¿¼¤µ¤¬ %d¤òĶ¤¨¤Þ¤·¤¿; ¤ª¤½¤é¤¯¥ë¡¼¥×¤Ç¤¹ -63 ¤³¤Îsubshell¤Ç¤Ï¥¸¥ç¥Ö¥³¥ó¥È¥í¡¼¥ë¤Ï»ÈÍѤǤ¤Þ¤»¤ó -64 sync¼ºÇÔ: ¥×¥í¥»¥¹ %d ¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó -65 %sÃæÃǤ·¤¿job¤¬»Ä¤Ã¤Æ¤¤¤Þ¤¹ -66 %s»ß¤Þ¤Ã¤¿job¤¬»Ä¤Ã¤Æ¤¤¤Þ¤¹ -67 ¾¤Î¥Ç¥£¥ì¥¯¥È¥ê¡¼¤Ï¤¢¤ê¤Þ¤»¤ó -68 ¥Ç¥£¥ì¥¯¥È¥ê¡¼¥¹¥¿¥Ã¥¯¤Ï¶õ¤Ç¤¹ -69 ¥Ç¥£¥ì¥¯¥È¥ê¡¼Ì¾¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -70 ·Á¼°: %s [-%s]%s -71 -h¥Õ¥é¥°ÍѤΥª¥Ú¥é¥ó¥É¤¬¤¢¤ê¤Þ¤»¤ó -72 ¥í¥°¥¤¥ó¥·¥§¥ë¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó -73 0¤Ç³ä¤ê»»¤·¤Þ¤·¤¿ -74 0¤Ç³ä¤ê»»¤·¤Þ¤·¤¿(;¤ê·×»») -75 ´Ö°ã¤Ã¤¿¥ª¥×¥·¥ç¥óñ°Ì: "%s"¤Î°ÕÌ£¤Ï? -76 ¥í¥°¥¤¥ó¥·¥§¥ë¤Ê¤Î¤ÇÃæÃǤǤ¤Þ¤»¤ó -77 %s¤È¤¤¤¦¥æ¡¼¥¶¡¼¤Ï¸ºß¤·¤Þ¤»¤ó -78 $homeÊÑ¿ô¤¬ÀßÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó -79 ·Á¼°: history [-%s] [# number of events] -80 $, ! ¤â¤·¤¯¤Ï < ¤Ï $# ¤â¤·¤¯¤Ï $? ¤È°ì½ï¤Ë¤Ï»ÈÍѤǤ¤Þ¤»¤ó -81 ÊÑ¿ô̾¤Ë²þ¹Ô¤¬Æþ¤Ã¤Æ¤¤¤Þ¤¹ -82 * ¤Ï $# ¤â¤·¤¯¤Ï $? ¤È°ì½ï¤Ë¤Ï»ÈÍѤǤ¤Þ¤»¤ó -83 $?<digit> ¤â¤·¤¯¤Ï $#<digit> ¤Ï»ÈÍѤǤ¤Þ¤»¤ó -84 ÊÑ¿ô̾¤¬ÉÔÀµ¤Ç¤¹ -85 ÊÑ¿ô¥¤¥ó¥Ç¥Ã¥¯¥¹¤Ë²þ¹Ô¤¬Æþ¤Ã¤Æ¤¤¤Þ¤¹ -86 ³ÈÄ¥¥Ð¥Ã¥Õ¥¡¡¼¥ª¡¼¥Ð¡¼¥Õ¥í¡¼ -87 ÊÑ¿ô¹½Ê¸? -88 ´Ö°ã¤Ã¤¿ ! ·Á¼°¤Ç¤¹ -89 Á°¤ÎÃÖ´¹¤Ï¤¢¤ê¤Þ¤»¤ó -90 ÉÔÀµ¤ÊÃÖ´¹¤Ç¤¹ -91 º¸¥µ¥¤¥É¤¬¤¢¤ê¤Þ¤»¤ó -92 ±¦¥µ¥¤¥É¤¬Ä¹²á¤®¤Þ¤¹ -93 ´Ö°ã¤Ã¤¿ ! ½¤¾þ»Ò¤Ç¤¹: %c -94 ½¤¾þ»Ò¤Î¼ºÇԤǤ¹ -95 ÃÖ´¹¥Ð¥Ã¥Õ¥¡¤¬¥ª¡¼¥Ð¡¼¥Õ¥í¡¼¤·¤Þ¤·¤¿ -96 ´Ö°ã¤Ã¤¿ ! °ú¿ô¤Î¥»¥ì¥¯¥¿¡¼¤Ç¤¹ -97 Á°¤Î¸¡º÷·ë²Ì¤Ï¤¢¤ê¤Þ¤»¤ó -98 %s: ¥¤¥Ù¥ó¥È¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó -99 ")"¤¬Â¿¤¹¤®¤Þ¤¹ -100 "("¤¬Â¿¤¹¤®¤Þ¤¹ -101 ( ¤Î¾ì½ê¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -102 ¥ê¥À¥¤¥ì¥¯¥È¸þ¤±¤Î̾Á°¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -103 Û£Ëæ¤Ê¥ê¥À¥¤¥ì¥¯¥È½ÐÎϤǤ¹ -104 () ¤ËÂФ·¤Æ << ¤Ï»È¤¨¤Þ¤»¤ó -105 Û£Ëæ¤Ê¥ê¥À¥¤¥ì¥¯¥ÈÆþÎϤǤ¹ -106 () ¤Î¾ì½ê¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -107 ¥¨¥¤¥ê¥¢¥¹¤Î̵¸Â¥ë¡¼¥×¤¬È¯À¸¤·¤Þ¤·¤¿ -108 ÊÑ¿ô"$watch"¤¬ÀßÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó -109 ¥¹¥±¥¸¥å¡¼¥ë¤Ë¥¤¥Ù¥ó¥È¤ÏÀßÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó -110 ·Á¼°: sched -<item#>.\nUsage: sched [+]hh:mm <command> -111 ¥¹¥±¥¸¥å¡¼¥ë¤µ¤ì¤¿¥¤¥Ù¥ó¥È¤Ï¤¢¤ê¤Þ¤»¤ó -112 ¼Â¹Ô¤Ç¤¤ë¥³¥Þ¥ó¥É¤Ï¤¢¤ê¤Þ¤»¤ó -113 ÉÔÀµ¤Ê¥¤¥Ù¥ó¥È³«»Ï»þ´Ö¤Ç¤¹ -114 am/pm»ØÄê¤ÇÁêÂÐŪ¤Ê»þ´Ö»ØÄê¤Ï¤Ç¤¤Þ¤»¤ó -115 termcap¤Îʸ»úÎóÎΰèÉÔ¤Ǥ¹ -116 ·Á¼°: settc %s [yes|no] -117 ÃΤé¤Ê¤¤capability `%s' -118 ÃΤé¤Ê¤¤termcap¥Ñ¥é¥á¥¿ `%%%c' -119 `%s' ¸þ¤±¤Î¥¢¡¼¥®¥å¥á¥ó¥È¤¬Â¿²á¤®¤Þ¤¹ (%d) -120 `%s' ¤Ï %d ¥¢¡¼¥®¥å¥á¥ó¥È¤¬É¬ÍפǤ¹ -121 ·Á¼°: echotc [-v|-s] [<capability> [<args>]] -122 %s: %s. ´Ö°ã¤Ã¤¿¥¢¡¼¥¥Æ¥¯¥Á¥ã¤Ç¤¹ -123 !# ¥Ò¥¹¥È¥ê¡¼¤Î¥ë¡¼¥× -124 ÉÔ´°Á´¤Ê¥Õ¥¡¥¤¥ë¥Á¥§¥Ã¥¯¤Ç¤¹ -125 ¥»¥ì¥¯¥¿¡¼ ¥ª¡¼¥Ð¡¼¥Õ¥í¡¼ -126 ÉÔÌÀ¥ª¥×¥·¥ç¥ó: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX -Dname[=value] ] [ argument ... ] -127 ÉÔÌÀ¥ª¥×¥·¥ç¥ó: `-%s'\nUsage: %s [ -bcdefFilmnqstvVxX ] [ argument ... ] -128 ÉÔÌÀ¥ª¥×¥·¥ç¥ó: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX ] [ argument ... ] -129 \nÉÔÀµ¤ÊÊä´°: "%s" -130 \nÉÔÀµ¤Ê %s: '%c' -131 \n'%c' ( %s ¤Î¸å¤í)¤Ï´Ö°ã¤Ã¤¿¥»¥Ñ¥ì¡¼¥¿¡¼¤Ç¤¹ "%s" -132 \nÉÔ´°Á´¤Ê %s: "%s" -133 -m¥Õ¥é¥°ÍѤΥª¥Ú¥é¥ó¥É¤¬¤¢¤ê¤Þ¤»¤ó -134 ·Á¼°: unlimit [-fh] [limits] -135 $%S ¤ÏÆɼèÀìÍѤǤ¹ -136 job¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó -137 ÉÔÌÀ¤ÎcolorlsÀßÄê¤Ç¤¹ `%c%c' diff --git a/contrib/tcsh/nls/ja/set10 b/contrib/tcsh/nls/ja/set10 deleted file mode 100644 index d76ae2e90d89..000000000000 --- a/contrib/tcsh/nls/ja/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set10,v 1.1 1998/09/03 22:04:03 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: ¥³¥Þ¥ó¥É¤¬ÉÔÀµ¤Ç¤¹ '%s'.\n -2 setpath: '%s' ¥³¥Þ¥ó¥É¤Î¤¿¤á¤Î¥¢¡¼¥®¥å¥á¥ó¥È¤¬ÉÔ¤·¤Æ¤¤¤Þ¤¹.\n -3 setpath: ¥Ñ¥¹ '%s'¤ÎÆâÍƤ¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹\n -4 setpath: %s ¤¬ %s ¤ÎÃæ¤Ë¤¢¤ê¤Þ¤»¤ó\n -5 setpath: %d ¤Ï %s ¤ÎÃæ¤Ç¤Ï,´Ö°ã¤Ã¤¿°ÌÃ֤Ǥ¹\n diff --git a/contrib/tcsh/nls/ja/set11 b/contrib/tcsh/nls/ja/set11 deleted file mode 100644 index 1e619ba93626..000000000000 --- a/contrib/tcsh/nls/ja/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $Id: set11,v 1.1 1998/09/03 22:04:04 christos Exp $ -$ sh.c -$set 11 -1 ·Ù¹ð: tty¤Ë¥¢¥¯¥»¥¹¤¬¤Ç¤¤Þ¤»¤ó (%s).\n -2 ¤³¤Î¤¿¤á¤Ë,¤³¤Îshell¤Ë¤Ï¥¸¥ç¥Ö¥³¥ó¥È¥í¡¼¥ë¤¬¤¢¤ê¤Þ¤»¤ó.\n -3 ¤¢¤Ê¤¿¤Ë %d Ä̤Υ᡼¥ë¥á¥Ã¥»¡¼¥¸¤¬¤¢¤ê¤Þ¤¹.\n -4 ¤¢¤Ê¤¿¤Ë %d Ä̤Υ᡼¥ë¥á¥Ã¥»¡¼¥¸¤¬ %s ¤Ë¤¢¤ê¤Þ¤¹.\n -5 ¤¢¤Ê¤¿¤Ë %s¥á¡¼¥ë¤¬¤¢¤ê¤Þ¤¹.\n -6 ¿·¤·¤¤ -7 ¤¢¤Ê¤¿¤Ë %s¥á¡¼¥ë¤¬ %s¤Ë¤¢¤ê¤Þ¤¹.\n diff --git a/contrib/tcsh/nls/ja/set12 b/contrib/tcsh/nls/ja/set12 deleted file mode 100644 index ef990cfed41f..000000000000 --- a/contrib/tcsh/nls/ja/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set12,v 1.1 1998/09/03 22:04:05 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: "%s"¤«¤é¤Î¼Â¹Ô¤ò»î¤·¤Þ¤¹\n diff --git a/contrib/tcsh/nls/ja/set13 b/contrib/tcsh/nls/ja/set13 deleted file mode 100644 index 3f0644143acc..000000000000 --- a/contrib/tcsh/nls/ja/set13 +++ /dev/null @@ -1,12 +0,0 @@ -$ $Id: set13,v 1.1 1998/09/03 22:04:05 christos Exp $ -$ sh.exec.c -$set 13 -1 hash=%-4d dir=%-2d prog=%s\n -2 %d ¤Î¥Ï¥Ã¥·¥åÎΰè (%d ¥Ó¥Ã¥ÈËè)\n -3 ¥Ç¥Ð¥Ã¥°¥Þ¥¹¥¯ = 0x%08x\n -4 %d À®¸ù, %d ¼ºÇÔ, %d%%\n -5 %S: ¥·¥§¥ë¤ËÆþ¤Ã¤Æ¤¤¤ë¥³¥Þ¥ó¥É¤Ç¤¹.\n -6 %S: ¥³¥Þ¥ó¥É¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó\n -7 where: / ¤¬Æþ¤Ã¤Æ¤¤¤ë¾ì¹ç¤Ï»È¤¨¤Þ¤»¤ó\n -8 %S ¤Ï¥¨¥¤¥ê¥¢¥¹ÄêµÁ¤ò¹Ô¤Ã¤Æ¤¤¤Þ¤¹: -9 %S ¤Ï¥·¥§¥ë¤ËÆþ¤Ã¤Æ¤¤¤Þ¤¹.\n diff --git a/contrib/tcsh/nls/ja/set15 b/contrib/tcsh/nls/ja/set15 deleted file mode 100644 index d0049cc45f08..000000000000 --- a/contrib/tcsh/nls/ja/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set15,v 1.1 1998/09/03 22:04:06 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: %s ½ÐÍè¤Þ¤»¤ó. (%s À©¸Â)\n -2 ²ò½ü -3 ÀßÄê -4 \040¥Ï¡¼¥É diff --git a/contrib/tcsh/nls/ja/set16 b/contrib/tcsh/nls/ja/set16 deleted file mode 100644 index 644e388f207a..000000000000 --- a/contrib/tcsh/nls/ja/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set16,v 1.2 1998/09/09 10:30:26 christos Exp $ -$ sh.lex.c -$set 16 -1 tty pgrp ¤ò %d ¤«¤é %d¤ËºÆÀßÄꤷ¤Þ¤¹\n -2 \n¥í¥°¥¢¥¦¥È¤Ï"logout"¤ò»ÈÍѤ·¤Æ²¼¤µ¤¤\n -3 \n%s½ªÎ»¤Ï"exit"¤ò»ÈÍѤ·¤Æ²¼¤µ¤¤\n -4 seek to eval %x %x\n -5 seek to alias %x %x\n -6 seek to file %x\n -7 ´Ö°ã¤Ã¤¿ seek ¥¿¥¤¥×¤Ç¤¹ %d\n -8 tell eval %x %x\n -9 tell alias %x %x\n -10 tell file %x\n diff --git a/contrib/tcsh/nls/ja/set17 b/contrib/tcsh/nls/ja/set17 deleted file mode 100644 index fe1550ebfb95..000000000000 --- a/contrib/tcsh/nls/ja/set17 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set17,v 1.1 1998/09/03 22:04:08 christos Exp $ -$ sh.proc.c -$set 17 -1 ¾ã³²: ¥Ð¥Ã¥°¥°¥é¥¦¥ó¥É¥¸¥ç¥Ö¤òÂԤäƤ¤¤Þ¤¹\n -2 %d¤Ç½ªÎ»¤·¤Þ¤·¤¿\n -3 ¾ã³²: ¥×¥í¥»¥¹¥Õ¥é¥Ã¥·¥å¤¬ÆóÅټ¹Ԥµ¤ì¤Þ¤·¤¿ -4 ¼Â¹ÔÃæ¤Ç¤¹ -5 ¥·¥°¥Ê¥ë -6 %-d¤Ç½ªÎ»¤·¤Þ¤·¤¿ -7 ½ªÎ» -8 ¾ã³²: ¾õÂÖ=%-9o -9 \040(core¤ò½ÐÎϤ·¤Þ¤·¤¿) -10 \040(wd: -12 %S: ¤¹¤Ç¤ËÃæÃǤ·¤Æ¤¤¤Þ¤¹\n -13 %S: ¤¹¤Ç¤ËÄä»ß¤·¤Æ¤¤¤Þ¤¹\n diff --git a/contrib/tcsh/nls/ja/set18 b/contrib/tcsh/nls/ja/set18 deleted file mode 100644 index 9f29795e2306..000000000000 --- a/contrib/tcsh/nls/ja/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set18,v 1.1 1998/09/03 22:04:09 christos Exp $ -$ sh.set.c -$set 18 -1 ·Ù¹ð: ÉÔ¼«Á³¤ËŤ¤ PATH ¤ÏÀÚ¤ê¼Î¤Æ¤é¤ì¤Þ¤¹\n diff --git a/contrib/tcsh/nls/ja/set2 b/contrib/tcsh/nls/ja/set2 deleted file mode 100644 index c1e5ea2c5602..000000000000 --- a/contrib/tcsh/nls/ja/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $Id: set2,v 1.1 1998/09/03 22:04:10 christos Exp $ -$ Signal names -$set 2 -1 ¥Ì¥ë¥·¥°¥Ê¥ë -2 ¥Ï¥ó¥°¥¢¥Ã¥× -3 ³ä¤ê¹þ¤ß -4 Ãæ»ß -5 ÉÔÀµ¤Êµ¡³£¸ì¤ÎÌ¿Îá -6 ¥È¥ì¡¼¥¹¡¦¥Ö¥ì¡¼¥¯¥Ý¥¤¥ó¥È¥È¥é¥Ã¥× -7 ¥¢¥Ü¡¼¥È -8 IOT¥È¥é¥Ã¥× -9 ¥·¥¹¥Æ¥à¥¯¥é¥Ã¥·¥å²ÄǽÀÁý -10 ¥¨¥é¡¼½ªÎ» -11 ¥¨¥ß¥å¥ì¡¼¥·¥ç¥ó¥È¥é¥Ã¥× -12 ±é»»Îã³° -13 ¶¯À©½ªÎ» -14 ¥æ¡¼¥¶¡¼¥·¥°¥Ê¥ë1 -15 ¥æ¡¼¥¶¡¼¥·¥°¥Ê¥ë2 -16 ¥»¥°¥á¥ó¥È¥¨¥é¡¼ -17 ¥Ð¥¹¥¨¥é¡¼ -18 ¥×¥í¥°¥é¥àÈÏ°Ï¥¨¥é¡¼ -19 ¥ª¥Ú¥é¥ó¥ÉÈÏ°Ï¥¨¥é¡¼ -20 ÉÔÀµ¥·¥¹¥Æ¥à¥³¡¼¥ë -21 ¥Ñ¥¤¥×Ç˲õ -22 ¥¢¥é¡¼¥à¥·¥°¥Ê¥ë -23 ½ªÎ» -24 »Ò¥×¥í¥»¥¹¤Î¾õÂÖÊѹ¹ -25 »Ò¥×¥í¥»¥¹»àË´ -26 Apollo¸ÂÄꥨ¥é¡¼ -27 »Ò¥×¥í¥»¥¹Ää»ß¤â¤·¤¯¤Ï½ªÎ» -28 »Ò¥×¥í¥»¥¹½ªÎ» -29 ÅŸ»°Û¾ï -30 ¥ê¥½¡¼¥¹¾ÃÌÇ -31 ¥Ö¥ì¡¼¥¯ (Ctrl-Break) -32 Æþ½ÐÎÏ ²Äǽ¥·¥°¥Ê¥ë -33 ÈóƱ´ü I/O (select) -34 ¥½¥±¥Ã¥È¶ÛµÞÍ×µá -35 ¿½Å¥¿¥¹¥¯wake-up -36 ¿½Å¥¿¥¹¥¯kill -37 FortranÈóƱ´üI/O½ªÎ» -38 ¥ê¥«¥Ð¥ê -39 ÉÔÀµ¤Ê¥á¥â¥ê¡¼¥¨¥é¡¼ -40 CPU »þ´ÖÀ©¸Â¥ª¡¼¥Ð¡¼ -41 ¥·¥¹¥Æ¥àÄä»ß ²ÄǽÀÁý -42 ¥Þ¥¤¥¯¥í¥¿¥¹¥¥ó¥° group-no wakeup ¥Õ¥é¥°ÀßÄê -43 ¥¹¥ì¥Ã¥É¥¨¥é¡¼ - (cord -T ¤ò»ÈÍѤ·¤Æ¾ÜºÙ¾ðÊó¤ò»²¾È¤·¤Æ²¼¤µ¤¤) -44 CRAY Y-MP ¥ì¥¸¥¹¥¿¥Ñ¥ê¥Æ¥£¡¼¥¨¥é¡¼ -45 ¾ðÊóÍ×µá -46 ÃæÃÇ(¥·¥°¥Ê¥ë) -47 Ää»ß(¥·¥°¥Ê¥ë) -48 ÃæÃÇ -49 Ää»ß -50 ·Ñ³ -51 ÃæÃÇ(ttyÆþÎÏ) -52 Ää»ß(ttyÆþÎÏ) -53 ÃæÃÇ(tty½ÐÎÏ) -54 Ää»ß(tty½ÐÎÏ) -55 ¥¦¥£¥ó¥É¥¦¾õÂÖÊѹ¹ -56 ¥¦¥£¥ó¥É¥¦¥µ¥¤¥ºÊѹ¹ -57 ÅÅÏòóÀþ¾õÂÖÊѹ¹ -58 CPU»þ´ÖÀ©¸Â¥ª¡¼¥Ð¡¼ -59 ¥Õ¥¡¥¤¥ë¥µ¥¤¥ºÀ©¸Â¥ª¡¼¥Ð¡¼ -60 ²¾ÁÛ»þ´Ö¥¢¥é¡¼¥à -61 ¥×¥í¥Õ¥¡¥¤¥ê¥ó¥°»þ´Ö¥¢¥é¡¼¥à -62 DIL¥·¥°¥Ê¥ë -63 ´Æ»ë²Äǽ¥¤¥Ù¥ó¥ÈȯÀ¸ -64 ¥×¥í¥»¥¹¤ÎLWPS¤¬¥Ö¥í¥Ã¥¯¤µ¤ì¤Þ¤·¤¿ -65 ÆÃÊÌ LWP ¥·¥°¥Ê¥ë -66 ÆÃÊÌ CPR ¥·¥°¥Ê¥ë -67 ÆÃÊÌ CPR ¥·¥°¥Ê¥ë -68 Â裱 ¥ê¥¢¥ë¥¿¥¤¥à¥·¥°¥Ê¥ë -69 Â裲 ¥ê¥¢¥ë¥¿¥¤¥à¥·¥°¥Ê¥ë -70 Â裳 ¥ê¥¢¥ë¥¿¥¤¥à¥·¥°¥Ê¥ë -71 Â裴 ¥ê¥¢¥ë¥¿¥¤¥à¥·¥°¥Ê¥ë -72 Â裴 ºÇ½ª¥ê¥¢¥ë¥¿¥¤¥à¥·¥°¥Ê¥ë -73 Â裳 ºÇ½ª¥ê¥¢¥ë¥¿¥¤¥à¥·¥°¥Ê¥ë -74 Â裲 ºÇ½ª¥ê¥¢¥ë¥¿¥¤¥à¥·¥°¥Ê¥ë -75 ºÇ½ª¥ê¥¢¥ë¥¿¥¤¥à¥·¥°¥Ê¥ë -76 LAN ÈóƱ´ü I/O -77 PTY read/write ²Äǽ -78 I/O ²ðÆþÍ×µá -79 HFT ¥â¥Ë¥¿¡¼¥â¡¼¥ÉÉÕÍ¿ -80 HFT ¥â¥Ë¥¿¡¼¥â¡¼¥É¤Ërelinguish?¤¬É¬Í× -81 HFT ¥µ¥¦¥ó¥É¥³¥ó¥È¥í¡¼¥ë´°Î» -82 HFT ring buffer¤Ë¥Ç¡¼¥¿¤¢¤ê -83 ¥×¥í¥»¥¹°Ü¹Ô -84 Secure ¥¢¥Æ¥ó¥·¥ç¥ó¥¡¼ -85 ºÆ¥¹¥±¥¸¥å¡¼¥ë -86 ¥·¥°¥Ê¥ë SS$_DEBUG -87 Í¥ÀèÅÙÊѹ¹ -88 ¿¿¥Ç¥Ã¥É¥í¥Ã¥¯¸¡½Ð -89 ¿·¤·¤¤Ê¸»úÆþÎÏ -90 ¥¹¥¿¥Ã¥¯À©¸Â¥ª¡¼¥Ð¡¼ -91 ̤»ÈÍÑ¥·¥°¥Ê¥ë diff --git a/contrib/tcsh/nls/ja/set21 b/contrib/tcsh/nls/ja/set21 deleted file mode 100644 index 29ae51c3bc96..000000000000 --- a/contrib/tcsh/nls/ja/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set21,v 1.1 1998/09/03 22:04:10 christos Exp $ -$ tc.disc.c -$set 21 -1 ¥í¡¼¥«¥ë¥¥ã¥é¤ò¼èÆÀ¤Ç¤¤Þ¤»¤ó.\n -2 ¥í¡¼¥«¥ë¥¥ã¥é¤òÀßÄê¤Ç¤¤Þ¤»¤ó.\n diff --git a/contrib/tcsh/nls/ja/set24 b/contrib/tcsh/nls/ja/set24 deleted file mode 100644 index debb53f8e0ba..000000000000 --- a/contrib/tcsh/nls/ja/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set24,v 1.1 1998/09/03 22:04:11 christos Exp $ -$ tc.sched.c -$set 24 -1 kludge diff --git a/contrib/tcsh/nls/ja/set29 b/contrib/tcsh/nls/ja/set29 deleted file mode 100644 index b67a7c77134c..000000000000 --- a/contrib/tcsh/nls/ja/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set29,v 1.2 1999/05/11 13:08:30 christos Exp $ -$ tw.help.c -$set 29 -1 %S ÍѤΥإë¥×¥Õ¥¡¥¤¥ë¤¬¤¢¤ê¤Þ¤»¤ó\n diff --git a/contrib/tcsh/nls/ja/set30 b/contrib/tcsh/nls/ja/set30 deleted file mode 100644 index d7ad9b29497a..000000000000 --- a/contrib/tcsh/nls/ja/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set30,v 1.1 1998/09/03 22:04:13 christos Exp $ -$ tw.parse.c -$set 30 -1 ¥³¥Þ¥ó¥É³«»Ï %d\n -2 ´°Î» %d -3 ´°Î» %d %S\n -4 %s: ÆâÉô¥Þ¥Ã¥Á¥¨¥é¡¼.\n -5 items -6 rows -7 %d %s¤¢¤ê¤Þ¤¹. ¥ê¥¹¥È½ÐÎϤò¹Ô¤¤¤Þ¤¹¤«? [n/y] -8 ɽ¼¨ = %d\n -9 \ntcsh ÆâÉô¥¨¥é¡¼: ²¿¤òõ¤·¤Æ¤¤¤ë¤«Ê¬¤«¤é¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿!\n -10 ¥Ç¥£¥ì¥¯¥È¥ê¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó -11 ¸«¤Ä¤«¤ê¤Þ¤»¤ó -12 Æɤ߹þ¤à¤³¤È¤¬¤Ç¤¤Þ¤»¤ó -13 yY diff --git a/contrib/tcsh/nls/ja/set5 b/contrib/tcsh/nls/ja/set5 deleted file mode 100644 index d6d5e808ef91..000000000000 --- a/contrib/tcsh/nls/ja/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set5,v 1.1 1998/09/03 22:04:14 christos Exp $ -$ ed.chared.c -$set 5 -1 ¥·¥¹¥Æ¥àÉé²Ùɽ¼¨¤Ï»ÈÍѤǤ¤Þ¤»¤ó\n diff --git a/contrib/tcsh/nls/ja/set6 b/contrib/tcsh/nls/ja/set6 deleted file mode 100644 index 66dcbf666bda..000000000000 --- a/contrib/tcsh/nls/ja/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $Id: set6,v 1.1 1998/09/03 22:04:14 christos Exp $ -$ ed.inputl.c -$set 6 -1 ¥¨¥é¡¼: ÉÔÀµ¤Ê¥¡¼¤«¤é¤Î¥³¥Þ¥ó¥É 0%o\r\n -2 ¤Ï¤¤\n -3 ÊÔ½¸\n -4 Ãæ»ß\n -5 ¤¤¤¤¤¨\n -6 °ìÃפ·¤¿¥³¥Þ¥ó¥É¤¬¤¢¤ê¤Þ¤»¤ó\n -7 Û£Ëæ¤Ê¥³¥Þ¥ó¥É¤Ç¤¹\n -8 *** ¥¨¥Ç¥£¥¿¡¼¤ÎÃ×̿Ū¥¨¥é¡¼ ***\r\n\n diff --git a/contrib/tcsh/nls/ja/set8 b/contrib/tcsh/nls/ja/set8 deleted file mode 100644 index b23588f192f9..000000000000 --- a/contrib/tcsh/nls/ja/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set8,v 1.1 1998/09/03 22:04:16 christos Exp $ -$ ed.term.c -$set 8 -1 ÉÔÌÀ¤Êswitch -2 ÉÔÀµ¤Ê¥¢¡¼¥®¥å¥á¥ó¥È¤Ç¤¹ diff --git a/contrib/tcsh/nls/spanish/set1 b/contrib/tcsh/nls/spanish/set1 deleted file mode 100644 index 8c1b663ab2dd..000000000000 --- a/contrib/tcsh/nls/spanish/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $Id: set1,v 1.2 1998/06/27 12:28:02 christos Exp $ -$ Mensajes de Error -$set 1 -1 Error de sintaxis -2 %s no está permitido -3 Palabra demasiado larga -4 $< línea demasiado larga -5 No hay fichero para $0 -6 Modificador [] incompleto -7 $ expansión debe terminar antes de ] -8 Modificador erróneo : en $ (%c) -9 Error de índice -10 Número erróneamente formado -11 No hay más palabras -12 Falta nombre de fichero -13 Error interno de glob -14 Comando no encontrado -15 Demasiado pocos argumentos -16 Demasiados argumentos -17 Es demasiado peligroso crear un alias para eso -18 `If' vacío -19 `Then' incorrecto -20 Las palabras no están entre paréntesis -21 No se encuentra %s -22 Máscara incorrecta -23 No existe límite de ese tipo -24 Argumento demasiado grande -25 Factor de escala incorrecto o desconocido -26 Variable indefinida -27 La pila de directorios no es tan profunda -28 Mal número de señal -29 Señal desconocida; `kill -l' lista las señales -30 El nombre de la variable debe comenzar con una letra -31 El nombre de la variable es demasiado grande -32 El nombre de la variable debe contener caracteres alfanuméricos -33 No hay control de trabajos en esta shell -34 Sintaxis de la expresión -35 No está el directorio personal -36 No se puede cambiar al directorio personal -37 Comando nulo inválido -38 Expresion carece de asignación -39 Operador desconocido -40 Ambiguo -41 %s: Archivo existente -42 El argumento para `-c' debe terminar en una barra invertida -43 Interumpido -44 Índice fuera del rango válido -45 Sobrepasada la capacidad de la línea -46 No existe ese trabajo -47 No se puede desde una terminal -48 No se encuentra en bucle while/foreach -49 No hay más procesos -50 No existe correspondencia -51 Falta %c -52 No se ha hallado correspondencia con %c -53 Memoria insuficiente -54 No se puede crear la tubería -55 %s: %s -56 %s -57 Uso: jobs [ -l ] -58 Los argumentos deben ser trabajos o identificadores de proceso -59 No hay trabajo en curso -60 No hay trabajo previo -61 No hay trabajo que corresponda con este patrón -62 Llamadas a `fork' entrelazadas > %d; puede ser un bucle `...` -63 No se puede gestionar trabajos en sub-shells -64 Fallo de sincronización: No se encuentra el proceso %d -65 %shay trabajos interrumpidos -66 %shay trabajos parados -67 No hay más directorios -68 Pila de directorios vacía -69 Directorio erróneo -70 Uso: %s [-%s]%s -71 `-h' necesita operandos -72 No es un shell de ingreso -73 División por 0 -74 Módulo por 0 -75 Error de escala: Seguro que era "%s"? -76 No se puede suspender un shell de ingreso (aún) -77 Usuario desconocido: %s -78 La variable $home no está definida -79 Uso: history [-%s] [# número de comandos] -80 No esta permitido el uso de $, ! o < con $# o $? -81 Nombre de variable incluye un retorno de carro -82 No esta permitido el uso de * con $# o $? -83 No esta permitido usar $?<dígito> o $#<dígito> -84 Nombre de variable ilegal -85 Retorno de carro en el índice de variables -86 Desborde en el buffer de expansión -87 Sintaxis de variable -88 Forma ! incorrecta -89 No existe sustituto previo -90 Sustituto erróneo -91 No existe `lado izquierdo' previo -92 Valor de asignación demasiado largo -93 Modificador de ! incorrecto: %c -94 Error de modificador -95 Desborde el el buffer de sustitución -96 Selector de argumento de ! erróneo -97 No existe búsqueda previa -98 %s: No se encuentra el comando -99 Demasiados `)' -100 Demasiados `(' -101 Colocación de `(' incorrecta -102 Falta el nombre de la redirección -103 Redirección de salida ambigua -104 No se puede usar << entre paréntesis -105 Redirección de entrada ambigua -106 Colocación de paréntesis errónea -107 Lazo en los `alias' -108 La variable $watch no ha sido definida -109 No hay comandos programados -110 Uso: sched -<item#>.\nUso: sched [+]hh:mm <comando> -111 No hay tantos comandos programados -112 No hay ningún comando a ejecutar -113 Tiempo de ejecución del comando incorrecto -114 Tiempo relativo inconsistente con am/pm -115 Se ha agotado el espacio para cadenas termcap -116 Uso: settc %s [yes|no] -117 Característica `%s' desconocida -118 Parámetro termcap `%%%c' desconocido -119 Demasiados argumentos para `%s' (%d) -120 `%s' requiere %d argumentos -121 Uso: echotc [-v|-s] [<característica> [<args>]] -122 %s: %s. Arquitectura errónea -123 !# Lazo en el historial -124 Consulta de archivo incorrecta -125 Desborde en el selector -126 Opción desconocida: `-%s'\nUso: %s [ -bcdefilmnqstvVxX -Dnombre[=valor] ] [ argumento ... ] -127 Opción desconocida: `-%s'\nUso: %s [ -bcdefFilmnqstvVxX ] [ argumento ... ] -128 Opción desconocida: `-%s'\nUso: %s [ -bcdefilmnqstvVxX ] [ argumento ... ] -129 \nModo de terminación automática inválido: "%s" -130 \nInválido %s: '%c' -131 \nFalta el separador '%c' después %s "%s" -132 \n%s incompleto: "%s" -133 `-m' no necesita operandos -134 Uso: unlimit [-fh] [límites] -135 $%S es de sólo-lectura -136 No existe ese trabajo -137 Unknown colorls variable `%c%c' diff --git a/contrib/tcsh/nls/spanish/set10 b/contrib/tcsh/nls/spanish/set10 deleted file mode 100644 index 867c7943da1a..000000000000 --- a/contrib/tcsh/nls/spanish/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set10,v 1.1 1998/04/08 17:59:51 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: comando '%s' incorrecto.\n -2 setpath: insuficientes argumentos para el comando '%s'.\n -3 setpath: falta el valor en la ruta '%s'\n -4 setpath: no se encuentra %s en %s\n -5 setpath: %d posición inválida en %s\n diff --git a/contrib/tcsh/nls/spanish/set11 b/contrib/tcsh/nls/spanish/set11 deleted file mode 100644 index d54fddc60052..000000000000 --- a/contrib/tcsh/nls/spanish/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $Id: set11,v 1.1 1998/04/08 17:59:52 christos Exp $ -$ sh.c -$set 11 -1 Aviso: no se puede acceder a la tty (%s).\n -2 Por ello no hay control de trabajos en esta shell.\n -3 Tiene %d mensajes de correo.\n -4 Tiene %d mensajes de correo en %s.\n -5 Tiene correo%s.\n -6 nuevo -7 Tiene correo%s en %s.\n diff --git a/contrib/tcsh/nls/spanish/set12 b/contrib/tcsh/nls/spanish/set12 deleted file mode 100644 index 5e24d3b9b79f..000000000000 --- a/contrib/tcsh/nls/spanish/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set12,v 1.1 1998/04/08 17:59:53 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: Tratando de empezar desde "%s"\n diff --git a/contrib/tcsh/nls/spanish/set13 b/contrib/tcsh/nls/spanish/set13 deleted file mode 100644 index 5a49329a7bc2..000000000000 --- a/contrib/tcsh/nls/spanish/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set13,v 1.1 1998/04/08 17:59:54 christos Exp $ -$ sh.exec.c -$set 13 -1 hash=%-4d dir=%-2d prog=%s\n -2 %d grupos de hash de %d bits cada uno\n -3 máscara de depurado = 0x%08x\n -4 %d aciertos, %d fallos, %d%%\n -5 %S: comando integrado en la shell.\n -6 %S: Comando inexistente.\n -7 donde: / en el comando carece de sentido\n -8 %S es un alias para -9 %S es un comando integrado en la shell\n -10 fallo de hash: diff --git a/contrib/tcsh/nls/spanish/set14 b/contrib/tcsh/nls/spanish/set14 deleted file mode 100644 index 62db4cd5bc7c..000000000000 --- a/contrib/tcsh/nls/spanish/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set14,v 1.1 1998/04/08 17:59:55 christos Exp $ -$ sh.file.c -$set 14 -1 \n¡¡Qué asco!! ¡¡Hay demasiados %s!!\n -2 nombres en el archivo de claves -3 archivos diff --git a/contrib/tcsh/nls/spanish/set15 b/contrib/tcsh/nls/spanish/set15 deleted file mode 100644 index 7408500c7eef..000000000000 --- a/contrib/tcsh/nls/spanish/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set15,v 1.1 1998/04/08 17:59:56 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: No se puede %s el límite %s\n -2 quitar -3 poner -4 \040(hard-limit) diff --git a/contrib/tcsh/nls/spanish/set16 b/contrib/tcsh/nls/spanish/set16 deleted file mode 100644 index 58f8d5bed004..000000000000 --- a/contrib/tcsh/nls/spanish/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $Id: set16,v 1.1 1998/04/08 17:59:56 christos Exp $ -$ sh.lex.c -$set 16 -1 Se ha reinicializado el grupo de procesos de las terminales de %d a %d\n -2 \nUtilice "logout" para desconectarse.\n -3 \nUtilice "exit" para salir de %s.\n -4 seek to eval %x %x\n -5 seek to alias %x %x\n -6 seek to file %x\n -7 Tipo de seek erróneo %d\n -8 tell eval %x %x\n -9 tell alias %x %x\n -10 tell file %x\n diff --git a/contrib/tcsh/nls/spanish/set17 b/contrib/tcsh/nls/spanish/set17 deleted file mode 100644 index e9e7427916b5..000000000000 --- a/contrib/tcsh/nls/spanish/set17 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set17,v 1.1 1998/04/08 17:59:57 christos Exp $ -$ sh.proc.c -$set 17 -1 BUG: ¡en espera de un trabajo en segundo plano!\n -2 Finalizó %d\n -3 BUG: Se ha aplicado "flush" al proceso por segunda vez -4 Ejecutando -5 Señal -6 Finalizado %-25d -7 Fin -8 BUG: status=%-9o -9 \040(se ha creado un `core') -10 \040(dt: -11 dt actual: -12 %S: Ya ha sido suspendido\n -13 %S: Ya ha sido parado\n diff --git a/contrib/tcsh/nls/spanish/set18 b/contrib/tcsh/nls/spanish/set18 deleted file mode 100644 index 6db63432109a..000000000000 --- a/contrib/tcsh/nls/spanish/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set18,v 1.1 1998/04/08 17:59:58 christos Exp $ -$ sh.set.c -$set 18 -1 Aviso: PATH de tamaño ridículo ha sido truncado\n diff --git a/contrib/tcsh/nls/spanish/set19 b/contrib/tcsh/nls/spanish/set19 deleted file mode 100644 index 842441272644..000000000000 --- a/contrib/tcsh/nls/spanish/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set19,v 1.1 1998/04/08 17:59:59 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: Se ha agotado la memoria\n -2 Se ha llamado a free(%lx) antes de asignar nada. -3 free(%lx) por encima del límite superior de la memoria. -4 free(%lx) por debajo del límite inferior de la memoria. -5 free(%lx) bloque erróneo. -6 free(%lx) chequeo de rango erróneo. -7 free(%lx) índice de bloque erróneo. -8 %s asignación actual de memoria:\nfree:\t -9 \nusada:\t -10 \n\tTotal en uso: %d, total libre: %d\n -11 \tSe ha asignado memoria de 0x%lx a 0x%lx. Límite superior real en 0x%lx\n -12 Se ha asignado memoria de 0x%lx a 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/spanish/set2 b/contrib/tcsh/nls/spanish/set2 deleted file mode 100644 index a8761d008bc9..000000000000 --- a/contrib/tcsh/nls/spanish/set2 +++ /dev/null @@ -1,92 +0,0 @@ -$ $Id: set2,v 1.1 1998/04/08 17:59:59 christos Exp $ -$ Nombres de señales -$set 2 -1 Señal nula -2 Colgar -3 Interrumpir -4 Salir -5 Instrucción ilegal -6 trap Trace/BPT -7 Abortar -8 trap IOT -9 Caída del sistema inminente -10 Salida con error -11 trap EMT -12 Excepción de punto flotante -13 Terminado -14 Señal de usuario 1 -15 Señal de usuario 2 -16 Error de segmentación -17 Error de bus -18 Error de rango de programa -19 Error de rango de operando -20 Llamada del sistema errónea -21 Tubería rota -22 Despertador -23 Terminado -24 Cambio de estado en el hijo -25 Muerte del hijo -26 Fallo específico de Apollo -27 El hijo ha parado o terminado -28 Hijo ha terminado -29 Fallo de alimentación -30 Recurso perdido -31 Break (Ctrl-Break) -32 Posible señal de entrada/salida -33 E/S asíncrona (select) -34 Condición urgente en el canal de E/S -35 Despertar mutiltarea -36 Finalización multitarea -37 Final de E/S asíncrona Fortran -38 Recuperación -39 Error incorregible de memoria -40 Excedido el tiempo de CPU -41 Bajada del sistema inminente -42 Grupo micro-tarea-no se ha activado la bandera de despertar -43 Error de hilo de ejecución - (use cord -T para información detallada) -44 Error de paridad de registro CRAY Y-MP -45 Petición de información -46 Suspendido (señal) -47 Parado (señal) -48 Suspendido -49 Parado -50 Continúa -51 Suspendido (entrada tty) -52 Parado (entrada tty) -53 Suspendido (salida tty) -54 Parado (salida tty) -55 Modificado el estado de la ventana -56 Modificado el tamaño de la ventana -57 Modificado el estado del teléfono -58 Excedido el tiempo de CPU -59 Excedido el límite del tamaño de archivo -60 Señal de temporizador virtual -61 Perfilando la alarma de temporizador -62 Señal DIL -63 Ha tenido lugar un evento interrogable -64 Los lwps del proceso están bloqueados -65 Señal LWP especial -66 Señal CPR especial -67 Señal CPR especial -68 Primera señal de tiempo real -69 Segunda señal de tiempo real -70 Tercera señal de tiempo real -71 Cuarta señal de tiempo real -72 Cuarta señal por la cola de tiempo real -73 Antepenúltima señal de tiempo real -74 Penúltima señal de tiempo real -75 Última señal de tiempo real -76 E/S asíncrona LAN -77 Lectura/escritura PTY disponible -78 Intervención E/S requerida -79 Otorgado modo monitor HFT -80 Se debería abandonar el modo monitor HFT -81 Se ha completado el control de sonido HFT -82 Hay datos en el buffer circular HFT -83 Migrar proceso -84 Tecla de atención asegurada -85 Reprogramación -86 Señalar SS$_DEBUG -87 Prioridad cambiada -88 Bloqueo real detectado -89 Nuevo carácter de entrada diff --git a/contrib/tcsh/nls/spanish/set20 b/contrib/tcsh/nls/spanish/set20 deleted file mode 100644 index 8359f1d2d867..000000000000 --- a/contrib/tcsh/nls/spanish/set20 +++ /dev/null @@ -1,42 +0,0 @@ -$ $Id: set20,v 1.1 1998/04/08 18:00:01 christos Exp $ -$ tc.bind.c -$set 20 -1 Nombre de tecla no válido `%S'\n -2 Nombre de tecla incorrecto: %S\n -3 Nombre de comando incorrecto: %S\n -4 Especificador de tecla incorrecto %S\n -5 Especificada la cadena nula\n -6 Definiciones de teclas estándar\n -7 Definiciones de teclas alternativas\n -8 Definiciones Multi-carácter\n -9 Definiciones de las teclas de flechas\n -10 %-15s-> indefinida\n -11 ¡¡¡BUG!!! %s no tiene definición asociada.\n -12 Uso: bindkey [opciones] [--] [TECLA [COMANDO]]\n -13 -a lista o define TECLA en un mapa de teclas alternativo\n -14 -b acepta definiciones de teclas simbólicas\n -15 -s asume que COMANDO es una cadena ha de imprimir literalmente\n -16 -c interpreta COMANDO como comando interno o externo\n -17 -v usa las definiciones del editor vi\n -18 -e usa las definiciones del editor vi\n -19 -d usa las definiciones del editor por defecto\n -20 -l lista los comandos del editor y sus descripciones\n -21 -r elimina la definición asociada a TECLA\n -22 -k interpreta TECLA como nombre simbólico de tecla de flecha\n -23 -- fuerza "break" en el procesamiento de opciones\n -24 -u (o cualquier opción no válida) este mensaje\n -25 Sin TECLA o COMANDO, imprime todas las asociaciones de teclas\n -26 Sin COMANDO, imprime la asociación de TECLA.\n -27 especificación de tecla inválida -- cadena nula\n -28 especificación de tecla inválida -- cadena vacía\n -29 Especificación de tecla de función inválida. No se permite una tecla nula\n -30 especificación de tecla inválida -- número hexadecimal incorrecto\n -31 especificación de tecla inválida -- número octal incorrecto\n -32 especificación de tecla inválida -- número decimal incorrecto\n -33 Especificación de tecla de función incorrecta.\n -34 No se permite una tecla nula\n -35 especificación de tecla inválida -- nombre desconocido "%S"\n -36 uso: bind [TECLA | COMANDO TECLA | "emacs" | "vi" | "-a"]\n -37 función no válida -38 %s\t\tno está definida\n - diff --git a/contrib/tcsh/nls/spanish/set21 b/contrib/tcsh/nls/spanish/set21 deleted file mode 100644 index 5e4a734bb70a..000000000000 --- a/contrib/tcsh/nls/spanish/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set21,v 1.1 1998/04/08 18:00:02 christos Exp $ -$ tc.disc.c -$set 21 -1 No he podido leer los caracteres locales.\n -2 No he podido establecer los caracteres locales.\n diff --git a/contrib/tcsh/nls/spanish/set22 b/contrib/tcsh/nls/spanish/set22 deleted file mode 100644 index 268e307d2e65..000000000000 --- a/contrib/tcsh/nls/spanish/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $Id: set22,v 1.1 1998/04/08 18:00:03 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t es un alias de -2 \nClave incorrecta para %s\n -3 Alias erróneo de 'precmd' borrado.\n -4 Alias erróneo de 'cwdcmd' borrado.\n -5 Alias erróneo de 'beepcmd' borrado.\n -6 Alias erróneo de 'periodic' borrado.\n -7 analizando la línea de comandos\n -8 ¿Realmente quiere borrar todos los archivos? [n/s] -9 ¡Anulado el borrado de los archivos!\n -10 ahora, la línea de comandos es:\n -11 analizando la línea de comandos\n -12 en una de las listas\n -13 ahora, la línea de comandos es:\n -14 sSyY diff --git a/contrib/tcsh/nls/spanish/set23 b/contrib/tcsh/nls/spanish/set23 deleted file mode 100644 index 08eb8df0754f..000000000000 --- a/contrib/tcsh/nls/spanish/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $Id: set23,v 1.1 1998/04/08 18:00:03 christos Exp $ -$ tc.os.c -$set 23 -1 Nombre de cpu/máquina incorrecto -2 Ruta hasta máquina demasiado grande -3 desconocida -4 máquina: %s\n -5 %d: No he encontrado esa máquina\n -6 setlocal: %s: %s\n -7 No he encontrado esa máquina -8 Está atrapado en un universo que nunca creo -9 Getwarp falló -10 Warp inválido -11 Setwarp falló -12 Universo ilegal -13 Error Desconocido: %d -14 nombre_sis: %s\n -15 nombre_nodo: %s\n -16 release: %s\n -17 versión: %s\n -18 máquina: %s\n -19 getwd: No puedo abrir ".." (%s) -20 getwd: No puedo cambiar a ".." (%s) -21 getwd: Error de lectura en ".." (%s) -22 getwd: No puedo volver a "." (%s) -23 getwd: No puedo ejecutar stat de "/" (%s) -24 getwd: No puedo ejecutar stat de "." (%s) -25 getwd: No puedo ejecutar stat de "%s" (%s) -26 getwd: No puedo abrir el directorio "%s" (%s) -27 getwd: No puedo encontrar "." en ".." (%s) -28 Tipo de sistema inválido -29 No se ha fijado el tipo de sistema -30 Demasiados argumentos -31 Argumento inválido diff --git a/contrib/tcsh/nls/spanish/set24 b/contrib/tcsh/nls/spanish/set24 deleted file mode 100644 index 9da94eeddbc5..000000000000 --- a/contrib/tcsh/nls/spanish/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set24,v 1.1 1998/04/08 18:00:04 christos Exp $ -$ tc.sched.c -$set 24 -1 chapuza diff --git a/contrib/tcsh/nls/spanish/set25 b/contrib/tcsh/nls/spanish/set25 deleted file mode 100644 index 2b9630033d90..000000000000 --- a/contrib/tcsh/nls/spanish/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $Id: set25,v 1.1 1998/04/08 18:00:05 christos Exp $ -$ tc.sig.c -$set 25 -1 nuestro wait %d\n -2 error: bsd_signal(%d) señal fuera de rango\n -3 error: bsd_signal(%d) - sigaction ha fallado, errno %d\n diff --git a/contrib/tcsh/nls/spanish/set26 b/contrib/tcsh/nls/spanish/set26 deleted file mode 100644 index a4fed2c29f13..000000000000 --- a/contrib/tcsh/nls/spanish/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $Id: set26,v 1.1 1998/04/08 18:00:06 christos Exp $ -$ tc.who.c -$set 26 -1 No se puede completar stat %s. Por favor, ejecute "unset watch".\n -2 No se puede abrir %s. Por favor, ejecute "unset watch".\n -3 ¡BUG! El último elemento no es whotail!\n -4 hacia atrás: -5 ¡BUG! El primer elemento no es whohead!\n -6 nuevo: %s/%s\n -7 %n tiene %a %l de %m. -8 %n tiene %a %l. -9 conectado -10 desconectado -11 sustituido %s en -12 local diff --git a/contrib/tcsh/nls/spanish/set27 b/contrib/tcsh/nls/spanish/set27 deleted file mode 100644 index 8cc991ea8f55..000000000000 --- a/contrib/tcsh/nls/spanish/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $Id: set27,v 1.1 1998/04/08 18:00:07 christos Exp $ -$ tw.comp.c -$set 27 -1 comando -2 separador -3 patrón -4 rango -5 modo de terminación automática diff --git a/contrib/tcsh/nls/spanish/set29 b/contrib/tcsh/nls/spanish/set29 deleted file mode 100644 index 712d6b57e650..000000000000 --- a/contrib/tcsh/nls/spanish/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set29,v 1.1 1998/04/08 18:00:07 christos Exp $ -$ tw.help.c -$set 29 -1 No hay archivo de ayuda sobre %S\n diff --git a/contrib/tcsh/nls/spanish/set3 b/contrib/tcsh/nls/spanish/set3 deleted file mode 100644 index be8016ac4a4f..000000000000 --- a/contrib/tcsh/nls/spanish/set3 +++ /dev/null @@ -1,117 +0,0 @@ -$ $Id: set3,v 1.1 1998/04/08 18:00:08 christos Exp $ -$ Descripción de las funciones de edición -$set 3 -1 Retroceder un carácter -2 Borrar el carácter detrás del cursor -3 Cortar desde el comienzo de la palabra hasta el cursor - se guarda en el buffer -4 Cortar desde el comienzo de la línea hasta el cursor - se guarda en el buffer -5 Ir hasta el comienzo de la palabra -6 Ir hasta el comienzo de la línea -7 Convertir en mayúsculas los caracteres desde el cursor hasta el final de la palabra -8 Vi: cambiar a mayúsculas o minúsculas el carácter bajo el cursor y avanza una posición -9 Vi: cambia hasta el final de la línea -10 Borra la pantalla y coloca la línea actual al comienzo -11 Completa la palabra -12 Avanza mediante `Tab' por los ficheros -13 Retrocede mediante `Tab' por los ficheros -14 Completa la palabra ignorando los modos programables -15 Copia la palabra hasta el cursor -16 Copia el área entre la marca y el cursor al buffer -17 Expande a aquella palabra para la que esto es un prefijo -18 Borra el carácter bajo el cursor -19 Borra el carácter bajo el cursor o señala el fin de archivo en un archivo vacío -20 Borra el carácter bajo el cursor o lista posibles finales si está al final de una línea -21 Borra el carácter bajo el cursor, lista posibles finales o marca final de archivo -22 Corta del cursor al final de la palabra - se guarda en el buffer -23 Se suma al argumento si ha arrancado o introduce el dígito -24 Dígito al comienzo del argumento -25 Ir al final de la línea de historia -26 Convierte en minúsculas los caracteres desde el cursor al final de la palabra -27 Indica el fin de archivo -28 Mover el cursor hasta el final de línea -29 Intercambia el cursor y la marca -30 Expande los comodines de nombre de archivo -31 Expande los escapes del historial -32 Expande los escapes del historial en una línea -33 Expande variables -34 Avanza un carácter -35 Avanza hasta el final de la palabra -36 Intercambia los dos caracteres delante del cursor -37 Busca hacia atrás en el historial una línea que comience igual que la actual -38 Busca hacia delante una línea que comience igual que la actual -39 Inserta el último ítem del comando previo -40 Búsqueda incremental hacia deleante -41 Búsqueda incremental hacia atrás -42 Borra la línea -43 Corta hasta el final de la línea y guarda la información en el buffer -44 Corta el área de la marca al cursor y guarda la información en el buffer -45 Corta la línea completa y la guarda en el buffer -46 Lista opciones para completar -47 Lista opciones para completar ignorando los modos programables -48 Lista los nombres de archivos que concuerdan con el comodín -49 Lista opciones para completar o indica el final de línea si es una línea vacía -50 Imprime la media de carga y es estado de este proceso -51 Expande los escapes del historial e inserta un espacio -52 Ejecuta el comando -53 Expande rutas, eliminando cualquier `.' y `..' que encuentre al comienzo -54 Expande comandos a la ruta o el alias resultante -55 Cambia de modo de inserción a sobre escritura y vice versa -56 Añade el octavo bit al siguiente carácter introducido -57 Añade el siguiente carácter sin modificar a la línea -58 Reimprime todo -59 Reinicia un editor parado -60 Busca ayuda sobre el comando actual -61 Se añade este carácter a la línea -62 Este carácter es el primero de una secuencia de caracteres -63 Establece una marca bajo el cursor -64 Corrige la ortografía de esta palabra -65 Corrige la ortografía de la línea completa -66 Envía el carácter a la terminal en modo `cooked' -67 Cambia entre los modos literal y léxico en esta línea de historial -68 Intercambia el carácter a la izquierda con el que está bajo el cursor -69 Intercambia los dos caracteres que preceden al cursor -70 Carácter tty para suspensión retrasada -71 Carácter tty para `flush' de salida -72 Carácter tty para interrupción -73 Carácter tty para salida -74 Carácter tty para suspensión -75 Carácter tty para permitir salida -76 Carácter tty para impedir salida -77 Indica carácter no asignado -78 Argumento Emacs universal (argumento por 4) -79 Ir a la línea anterior -80 Convierte en mayúsculas los caracteres desde el cursor al final de la palabra -81 Vi: ir al comienzo de la siguiente palabra -82 Vi: entrar en modo de inserción después el cursor -83 Vi: entrar en modo de inserción al final de la línea -84 Vi: cambia a mayúsculas o minúsculas el carácter bajo el cursor y avanza una posición -85 Vi: cambiar el comando de prefijo -86 Vi: cambiar hasta el final de la línea -87 Entrar en modo vi (usa asignación de teclas alternativa) -88 Vi: modo de comando completa la palabra -89 Vi: ir al carácter previo (retroceso) -90 Vi: borrar el comando de prefijo -91 Vi: ir hasta el final de la palabra delimitado por espacios -92 Vi: ir hasta el final de la palabra -93 Vi: retroceder al carácter especificado -94 Vi: avanzar al carácter especificado -95 Vi: retrocede hasta el carácter especificado -96 Vi: avanzar hasta el carácter especificado -97 Entrar en modo de inserción `vi' -98 Entrar en modo de inserción `vi' al comienzo de la línea -99 Vi: repetir la búsqueda de carácter en la misma dirección -100 Vi: repetir la búsqueda de carácter en la dirección contraria -101 Vi: repetir la búsqueda en la misma dirección -102 Vi: repetir la búsqueda en la dirección contraria -103 Vi: reemplazar el carácter bajo el cursor por el que se introduzca -104 Vi: modo de reemplazo -105 Vi: buscar en el historial hacia atrás -106 Vi: buscar en el historial hacia adelante -107 Vi: reemplazar el carácter bajo el cursor cambiando a modo inserción -108 Vi: reemplazar la línea completa -109 Vi: ir a la palabra anterior -110 Vi: ir a la palabra siguiente -111 Vi: deshacer el cambio anterior -112 Vi: ir al comienzo de la línea -113 Ejecutar `which' para el comando actual -114 Pegar el buffer donde el cursor diff --git a/contrib/tcsh/nls/spanish/set30 b/contrib/tcsh/nls/spanish/set30 deleted file mode 100644 index d89e7082fc69..000000000000 --- a/contrib/tcsh/nls/spanish/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $Id: set30,v 1.1 1998/04/08 18:00:09 christos Exp $ -$ tw.parse.c -$set 30 -1 comienzo_de_comando %d\n -2 completar %d -3 completar %d %S\n -4 %s: Error interno de concordancia.\n -5 ítems -6 filas -7 Existen %d %s, ¿listarlas de todos modos? [n/s] -8 buscando = %d\n -9 \nerror interno de tcsh: ¡No sé lo que busco!\n -10 no es un directorio -11 no he encontrado nada -12 ilegible -13 sSyY diff --git a/contrib/tcsh/nls/spanish/set31 b/contrib/tcsh/nls/spanish/set31 deleted file mode 100644 index 00cb2956235b..000000000000 --- a/contrib/tcsh/nls/spanish/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $Id: set31,v 1.1 1998/04/08 18:00:10 christos Exp $ -$ vms.termcap.c -$set 31 -1 No se puede abrir TERMCAP: [%s]\n -2 No se puede abrir %s.\n -3 He encontrado %s en %s.\n -4 No he encontrado ninguna concordancia con %s en el archivo %s\n diff --git a/contrib/tcsh/nls/spanish/set4 b/contrib/tcsh/nls/spanish/set4 deleted file mode 100644 index 04c1766aac5e..000000000000 --- a/contrib/tcsh/nls/spanish/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $Id: set4,v 1.1 1998/04/08 18:00:11 christos Exp $ -$ cadenas de Termcap -$set 4 -1 añade una línea vacía -2 timbre audible -3 borra hasta abajo -4 borra hasta el final de la línea -5 cursor hasta posición horizontal -6 borra la pantalla -7 borra un carácter -8 borra una línea -9 entra en modo de borrado -10 termina modo de borrado -11 termina modo de inserción -12 cursor de línea de estado -13 cursor en posición inicial -14 insertar carácter -15 entra en modo de inserción -16 inserta carácter de relleno -17 envía cursor hacia abajo -18 envía cursor hacia la izquierda -19 envía cursor hacia la derecha -20 envía cursor hacia arriba -21 comienza negrita -22 fin de atributos -23 espacio no destructivo -24 fin de énfasis -25 comienzo de énfasis -26 cursor a la línea de estado -27 mueve el cursor hacia arriba una línea -28 comienza subrayado -29 fin de subrayado -30 timbre visible -31 borra múltiples caracteres -32 mueve el cursor varias líneas hacia abajo -33 inserta múltiples caracteres -34 mueve el cursor varias líneas hacia la izquierda -35 mueve el cursor varias líneas hacia la derecha -36 mueve el cursor varias líneas hacia arriba -37 Tiene márgenes automáticos -38 Puede usar tabuladores físicos -39 Número de líneas -40 Número de columnas -41 Tiene teclas alternativa -42 Ignorando retorno de carro en el margen derecho diff --git a/contrib/tcsh/nls/spanish/set5 b/contrib/tcsh/nls/spanish/set5 deleted file mode 100644 index ba7a18f8baaa..000000000000 --- a/contrib/tcsh/nls/spanish/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $Id: set5,v 1.1 1998/04/08 18:00:11 christos Exp $ -$ ed.chared.c -$set 5 -1 No está disponible la carga media\n diff --git a/contrib/tcsh/nls/spanish/set6 b/contrib/tcsh/nls/spanish/set6 deleted file mode 100644 index 134ecebf80f1..000000000000 --- a/contrib/tcsh/nls/spanish/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $Id: set6,v 1.1 1998/04/08 18:00:12 christos Exp $ -$ ed.inputl.c -$set 6 -1 ERROR: comando ilegal asignado a la tecla 0%o\r\n -2 sí\n -3 editar\n -4 abortar\n -5 no\n -6 No se ha encontrado comando que corresponda\n -7 Comando ambiguo\n -8 *** ERROR fatal del editor ***\r\n\n diff --git a/contrib/tcsh/nls/spanish/set7 b/contrib/tcsh/nls/spanish/set7 deleted file mode 100644 index 7fe22f5db08a..000000000000 --- a/contrib/tcsh/nls/spanish/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $Id: set7,v 1.1 1998/04/08 18:00:13 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tTcsh cree que su terminal tiene las\n -2 \tsiguientes características:\n\n -3 \tTiene %d columnas y %d líneas\n -4 \t%s tecla `Alt'\n -5 Tiene -6 No tiene -7 \t%spuede usar tabuladores\n -8 No -9 \t%s márgenes automáticos\n -10 Tiene -11 No tiene -12 \t%s márgenes mágicos\n -13 (vacío) -14 sí -15 no -16 ERROR: no se puede suprimir\r\n -17 DeleteChars: num es ridículo: %d\r\n -18 ERROR: no se puede insertar\r\n -19 StartInsert: num es ridículo: %d\r\n -20 %s: No se puede abrir /etc/termcap.\n -21 %s: No hay ninguna entrada correspondiente a la terminal tipo "%s"\n -22 %s: usando los valores de una terminal tonta.\n -23 %s: Aviso: Su terminal no puede moverse hacia arriba.\n -24 La edición de líneas largas puede resultar extraña.\n -25 no se puede borrar hasta el final de línea.\n -26 no se puede borrar el siguiente carácter.\n -27 no se puede insertar un carácter.\n diff --git a/contrib/tcsh/nls/spanish/set8 b/contrib/tcsh/nls/spanish/set8 deleted file mode 100644 index b997466fea60..000000000000 --- a/contrib/tcsh/nls/spanish/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $Id: set8,v 1.1 1998/04/08 18:00:14 christos Exp $ -$ ed.term.c -$set 8 -1 Interruptor desconocido -2 Argumento inválido diff --git a/contrib/tcsh/nls/spanish/set9 b/contrib/tcsh/nls/spanish/set9 deleted file mode 100644 index 14e46293f92a..000000000000 --- a/contrib/tcsh/nls/spanish/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $Id: set9,v 1.1 1998/04/08 18:00:14 christos Exp $ -$ ed.xmap.c -$set 9 -1 AddXkey: No se permite una tecla extendida nula.\n -2 AddXkey: No se permite comando introducción de secuencia (sequence-lead-in)\n -3 DeleteXkey: No se permite una tecla extendida nula.\n -4 Tecla de extendida indefinida "%S"\n -5 Algunas teclas extendidas son demasiado grandes para el buffer de impresión interno -6 Enumerate: ¡¡BUG!! Se ha pasado un puntero nulo!\n -7 no hay entrada -8 Falta algo a continuación: %c\n -9 Una constante octal no cabe en un carácter.\n diff --git a/contrib/tcsh/patchlevel.h b/contrib/tcsh/patchlevel.h deleted file mode 100644 index 98fba2ba9529..000000000000 --- a/contrib/tcsh/patchlevel.h +++ /dev/null @@ -1,14 +0,0 @@ -/* $Header: /src/pub/tcsh/patchlevel.h,v 3.122 2000/01/14 22:57:26 christos Exp $ */ -/* - * patchlevel.h: Our life story. - */ -#ifndef _h_patchlevel -#define _h_patchlevel - -#define ORIGIN "Astron" -#define REV 6 -#define VERS 9 -#define PATCHLEVEL 1 -#define DATE "2000-01-14" - -#endif /* _h_patchlevel */ diff --git a/contrib/tcsh/pathnames.h b/contrib/tcsh/pathnames.h deleted file mode 100644 index 3b29072bbeb8..000000000000 --- a/contrib/tcsh/pathnames.h +++ /dev/null @@ -1,169 +0,0 @@ -/* $Header: /src/pub/tcsh/pathnames.h,v 3.17 1998/09/13 13:51:03 christos Exp $ */ -/* - * pathnames.h: Location of things to find - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_pathnames -#define _h_pathnames - -#ifdef BSD4_4 -# include <paths.h> -#endif - -#if defined(CMUCS) && !defined(_PATH_LOCAL) -# define _PATH_LOCAL "/usr/cs/bin" -#endif /* CMUCS && !_PATH_LOCAL */ - -#if defined(convex) || defined(stellar) || defined(INTEL) -# ifndef _PATH_DOTLOGIN -# define _PATH_DOTLOGIN "/etc/login" -# endif /* !_PATH_DOTLOGIN */ -# ifndef _PATH_DOTLOGOUT -# define _PATH_DOTLOGOUT "/etc/logout" -# endif /* !_PATH_DOTLOGOUT */ -# ifndef _PATH_DOTCSHRC -# define _PATH_DOTCSHRC "/etc/cshrc" -# endif /* !_PATH_DOTCSHRC */ -#endif /* convex || stellar || INTEL */ - -#ifdef NeXT -# ifndef _PATH_DOTLOGIN -# define _PATH_DOTLOGIN "/etc/login.std" -# endif /* !_PATH_DOTLOGIN */ -# ifndef _PATH_DOTLOGOUT -# define _PATH_DOTLOGOUT "/etc/logout.std" -# endif /* !_PATH_DOTLOGOUT */ -# ifndef _PATH_DOTCSHRC -# define _PATH_DOTCSHRC "/etc/cshrc.std" -# endif /* !_PATH_DOTCSHRC */ -#endif /* NeXT */ - -/* for sunos5. */ -#if ((defined(sun) || defined(__sun__)) && (SYSVREL == 4)) -# ifndef _PATH_DOTLOGIN -# define _PATH_DOTLOGIN "/etc/.login" -# endif /* !_PATH_DOTLOGIN */ -# ifndef _PATH_DOTLOGOUT -# define _PATH_DOTLOGOUT "/etc/.logout" -# endif /* !_PATH_DOTLOGOUT */ -# ifndef _PATH_DOTCSHRC -# define _PATH_DOTCSHRC "/etc/.cshrc" -# endif /* !_PATH_DOTCSHRC */ -#endif /* sun & SVR4 */ - -#if defined(sgi) || defined(OREO) || defined(cray) || defined(AMIX) || defined(CDC) -# ifndef _PATH_DOTLOGIN -# define _PATH_DOTLOGIN "/etc/cshrc" -# endif /* !_PATH_DOTLOGIN */ -#endif /* sgi || OREO || cray || AMIX || CDC */ - -#if (defined(_CRAYCOM) || defined(Lynx)) && !defined(_PATH_TCSHELL) -# define _PATH_TCSHELL "/bin/tcsh" /* 1st class shell */ -#endif /* _CRAYCOM && !_PATH_TCSHELL */ - -#if defined(_MINIX) && !defined(_PATH_TCSHELL) -# define _PATH_TCSHELL "/local/bin/tcsh" /* use ram disk */ -#endif /* _MINIX && !_PATH_TCSHELL */ - -#if defined(__EMX__) && !defined(_PATH_DEVNULL) -# define _PATH_DEVNULL "nul" -#endif /* __EMX__ && !_PATH_DEVNULL */ - -#ifndef _PATH_LOCAL -# define _PATH_LOCAL "/usr/local/bin" -#endif /* !_PATH_LOCAL */ - -#ifndef _PATH_USRBIN -# define _PATH_USRBIN "/usr/bin" -#endif /* !_PATH_USRBIN */ - -#ifndef _PATH_USRUCB -# define _PATH_USRUCB "/usr/ucb" -#endif /* !_PATH_USRUCB */ - -#ifndef _PATH_USRBSD -# define _PATH_USRBSD "/usr/bsd" -#endif /* !_PATH_USRBSD */ - -#ifndef _PATH_BIN -# define _PATH_BIN "/bin" -#endif /* !_PATH_BIN */ - -#ifndef _PATH_DOTCSHRC -# define _PATH_DOTCSHRC "/etc/csh.cshrc" -#endif /* !_PATH_DOTCSHRC */ - -#ifndef _PATH_DOTLOGIN -# define _PATH_DOTLOGIN "/etc/csh.login" -#endif /* !_PATH_DOTLOGIN */ - -#ifndef _PATH_DOTLOGOUT -# define _PATH_DOTLOGOUT "/etc/csh.logout" -#endif /* !_PATH_DOTLOGOUT */ - -#ifndef _PATH_DEVNULL -# define _PATH_DEVNULL "/dev/null" -#endif /* !_PATH_DEVNULL */ - -#ifndef _PATH_BSHELL -# define _PATH_BSHELL "/bin/sh" -#endif /* !_PATH_BSHELL */ - -#ifndef _PATH_CSHELL -# define _PATH_CSHELL "/bin/csh" -#endif /* !_PATH_CSHELL */ - -#ifndef _PATH_TCSHELL -# define _PATH_TCSHELL "/usr/local/bin/tcsh" -#endif /* !_PATH_TCSHELL */ - -#ifndef _PATH_BIN_LOGIN -# define _PATH_BIN_LOGIN "/bin/login" -#endif /* !_PATH_BIN_LOGIN */ - -#ifndef _PATH_USRBIN_LOGIN -# define _PATH_USRBIN_LOGIN "/usr/bin/login" -#endif /* !_PATH_USRBIN_LOGIN */ - -#ifndef _PATH_BIN_NEWGRP -# define _PATH_BIN_NEWGRP "/bin/newgrp" -#endif /* _PATH_BIN_NEWGRP */ - -#ifndef _PATH_USRBIN_NEWGRP -# define _PATH_USRBIN_NEWGRP "/usr/bin/newgrp" -#endif /* _PATH_USRBIN_NEWGRP */ - - - -#endif /* _h_pathnames */ diff --git a/contrib/tcsh/sh.c b/contrib/tcsh/sh.c deleted file mode 100644 index 4c034cbf4dc4..000000000000 --- a/contrib/tcsh/sh.c +++ /dev/null @@ -1,2441 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.c,v 3.90 2000/01/14 22:57:27 christos Exp $ */ -/* - * sh.c: Main shell routines - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#define EXTERN /* Intern */ -#include "sh.h" - -#ifndef lint -char copyright[] = -"@(#) Copyright (c) 1991 The Regents of the University of California.\n\ - All rights reserved.\n"; -#endif /* not lint */ - -RCSID("$Id: sh.c,v 3.90 2000/01/14 22:57:27 christos Exp $") - -#include "tc.h" -#include "ed.h" -#include "tw.h" - -extern bool MapsAreInited; -extern bool NLSMapsAreInited; -extern bool NoNLSRebind; - -/* - * C Shell - * - * Bill Joy, UC Berkeley, California, USA - * October 1978, May 1980 - * - * Jim Kulp, IIASA, Laxenburg, Austria - * April 1980 - * - * Filename recognition added: - * Ken Greer, Ind. Consultant, Palo Alto CA - * October 1983. - * - * Karl Kleinpaste, Computer Consoles, Inc. - * Added precmd, periodic/tperiod, prompt changes, - * directory stack hack, and login watch. - * Sometime March 1983 - Feb 1984. - * - * Added scheduled commands, including the "sched" command, - * plus the call to sched_run near the precmd et al - * routines. - * Upgraded scheduled events for running events while - * sitting idle at command input. - * - * Paul Placeway, Ohio State - * added stuff for running with twenex/inputl 9 Oct 1984. - * - * ported to Apple Unix (TM) (OREO) 26 -- 29 Jun 1987 - */ - -jmp_buf_t reslab INIT_ZERO_STRUCT; - -static const char tcshstr[] = "tcsh"; -#ifdef WINNT -static const char tcshstr_nt[] = "tcsh.exe"; -#endif /* WINNT */ - -signalfun_t parintr = 0; /* Parents interrupt catch */ -signalfun_t parterm = 0; /* Parents terminate catch */ - -#ifdef TESLA -int do_logout = 0; -#endif /* TESLA */ - - -bool use_fork = 0; /* use fork() instead of vfork()? */ - -/* - * Magic pointer values. Used to specify other invalid conditions aside - * from null. - */ -static Char INVCHAR; -Char *INVPTR = &INVCHAR; -Char **INVPPTR = &INVPTR; - -static int nofile = 0; -static bool reenter = 0; -static bool nverbose = 0; -static bool nexececho = 0; -static bool quitit = 0; -static bool rdirs = 0; -bool fast = 0; -static bool batch = 0; -static bool mflag = 0; -static bool prompt = 1; -static int enterhist = 0; -bool tellwhat = 0; -time_t t_period; -Char *ffile = NULL; -bool dolzero = 0; -int insource = 0; -static time_t chktim; /* Time mail last checked */ -char *progname; -int tcsh; -extern char **environ; - -/* - * This preserves the input state of the shell. It is used by - * st_save and st_restore to manupulate shell state. - */ -struct saved_state { - int insource; - int SHIN; - int intty; - struct whyle *whyles; - Char *gointr; - Char *arginp; - Char *evalp; - Char **evalvec; - Char *alvecp; - Char **alvec; - int onelflg; - bool enterhist; - Char **argv; - Char HIST; - bool cantell; - struct Bin B; - /* These keep signal state and setjump state */ -#ifdef BSDSIGS - sigmask_t mask; -#endif - jmp_buf_t oldexit; - int reenter; -}; - -static int srccat __P((Char *, Char *)); -static int srcfile __P((char *, bool, int, Char **)); -static sigret_t phup __P((int)); -static void srcunit __P((int, bool, int, Char **)); -static void mailchk __P((void)); -#ifndef _PATH_DEFPATH -static Char **defaultpath __P((void)); -#endif -static void record __P((void)); -static void st_save __P((struct saved_state *, int, int, - Char **, Char **)); -static void st_restore __P((struct saved_state *, Char **)); - - int main __P((int, char **)); - -int -main(argc, argv) - int argc; - char **argv; -{ - register Char *cp; -#ifdef AUTOLOGOUT - register Char *cp2; -#endif - register char *tcp, *ttyn; - register int f; - register char **tempv; - -#ifdef BSDSIGS - sigvec_t osv; -#endif /* BSDSIGS */ - -#ifdef WINNT - nt_init(); -#endif /* WINNT */ -#if defined(NLS_CATALOGS) && defined(LC_MESSAGES) - (void) setlocale(LC_MESSAGES, ""); -#endif /* NLS_CATALOGS && LC_MESSAGES */ - -#ifdef NLS -# ifdef LC_CTYPE - (void) setlocale(LC_CTYPE, ""); /* for iscntrl */ -# endif /* LC_CTYPE */ -#endif /* NLS */ - - nlsinit(); - -#ifdef MALLOC_TRACE - mal_setstatsfile(fdopen(dup2(open("/tmp/tcsh.trace", - O_WRONLY|O_CREAT, 0666), 25), "w")); - mal_trace(1); -#endif /* MALLOC_TRACE */ - -#if !(defined(BSDTIMES) || defined(_SEQUENT_)) && defined(POSIX) -# ifdef _SC_CLK_TCK - clk_tck = (clock_t) sysconf(_SC_CLK_TCK); -# else /* ! _SC_CLK_TCK */ -# ifdef CLK_TCK - clk_tck = CLK_TCK; -# else /* !CLK_TCK */ - clk_tck = HZ; -# endif /* CLK_TCK */ -# endif /* _SC_CLK_TCK */ -#endif /* !BSDTIMES && POSIX */ - - settimes(); /* Immed. estab. timing base */ -#ifdef TESLA - do_logout = 0; -#endif /* TESLA */ - - /* - * Make sure we have 0, 1, 2 open - * Otherwise `` jobs will not work... (From knaff@poly.polytechnique.fr) - */ - { - do - if ((f = open(_PATH_DEVNULL, O_RDONLY)) == -1 && - (f = open("/", O_RDONLY)) == -1) - exit(1); - while (f < 3); - (void) close(f); - } - - osinit(); /* Os dependent initialization */ - - - { - char *t; - - t = strrchr(argv[0], '/'); -#ifdef WINNT - { - char *s = strrchr(argv[0], '\\'); - if (s) - t = s; - } -#endif /* WINNT */ - t = t ? t + 1 : argv[0]; - if (*t == '-') t++; - progname = strsave((t && *t) ? t : tcshstr); /* never want a null */ - tcsh = strcmp(progname, tcshstr) == 0; - } - - /* - * Initialize non constant strings - */ -#ifdef _PATH_BSHELL - STR_BSHELL = SAVE(_PATH_BSHELL); -#endif -#ifdef _PATH_TCSHELL - STR_SHELLPATH = SAVE(_PATH_TCSHELL); -#else -# ifdef _PATH_CSHELL - STR_SHELLPATH = SAVE(_PATH_CSHELL); -# endif -#endif - STR_environ = blk2short(environ); - environ = short2blk(STR_environ); /* So that we can free it */ - STR_WORD_CHARS = SAVE(WORD_CHARS); - - HIST = '!'; - HISTSUB = '^'; - PRCH = '>'; - PRCHROOT = '#'; - word_chars = STR_WORD_CHARS; - bslash_quote = 0; /* PWP: do tcsh-style backslash quoting? */ - - /* Default history size to 100 */ - set(STRhistory, SAVE("100"), VAR_READWRITE); - - tempv = argv; - ffile = SAVE(tempv[0]); - dolzero = 0; - if (eq(ffile, STRaout)) /* A.out's are quittable */ - quitit = 1; - uid = getuid(); - gid = getgid(); - euid = geteuid(); - egid = getegid(); -#if defined(OREO) || defined(DT_SUPPORT) - /* - * We are a login shell if: 1. we were invoked as -<something> with - * optional arguments 2. or we were invoked only with the -l flag - */ - loginsh = (**tempv == '-') || (argc == 2 && - tempv[1][0] == '-' && tempv[1][1] == 'l' && - tempv[1][2] == '\0'); -#else - /* - * We are a login shell if: 1. we were invoked as -<something> and we had - * no arguments 2. or we were invoked only with the -l flag - */ - loginsh = (**tempv == '-' && argc == 1) || (argc == 2 && - tempv[1][0] == '-' && tempv[1][1] == 'l' && - tempv[1][2] == '\0'); -#endif - -#ifdef _VMS_POSIX - /* No better way to find if we are a login shell */ - if (!loginsh) { - loginsh = (argc == 1 && getppid() == 1); - **tempv = '-'; /* Avoid giving VMS an acidic stomach */ - } -#endif /* _VMS_POSIX */ - - if (loginsh && **tempv != '-') { - /* - * Mangle the argv space - */ - tempv[1][0] = '\0'; - tempv[1][1] = '\0'; - tempv[1] = NULL; - for (tcp = *tempv; *tcp++;) - continue; - for (tcp--; tcp >= *tempv; tcp--) - tcp[1] = tcp[0]; - *++tcp = '-'; - argc--; - } - if (loginsh) { - (void) time(&chktim); - set(STRloginsh, Strsave(STRNULL), VAR_READWRITE); - } - - AsciiOnly = 1; - NoNLSRebind = getenv("NOREBIND") != NULL; -#ifdef NLS -# ifdef SETLOCALEBUG - dont_free = 1; -# endif /* SETLOCALEBUG */ - (void) setlocale(LC_ALL, ""); -# ifdef LC_COLLATE - (void) setlocale(LC_COLLATE, ""); -# endif -# ifdef SETLOCALEBUG - dont_free = 0; -# endif /* SETLOCALEBUG */ -# ifdef STRCOLLBUG - fix_strcoll_bug(); -# endif /* STRCOLLBUG */ - - { - int k; - - for (k = 0200; k <= 0377 && !Isprint(k); k++) - continue; - AsciiOnly = k > 0377; - } -#else - AsciiOnly = getenv("LANG") == NULL && getenv("LC_CTYPE") == NULL; -#endif /* NLS */ - if (MapsAreInited && !NLSMapsAreInited) - ed_InitNLSMaps(); - ResetArrowKeys(); - - /* - * Initialize for periodic command intervals. Also, initialize the dummy - * tty list for login-watch. - */ - (void) time(&t_period); -#ifndef HAVENOUTMP - initwatch(); -#endif /* !HAVENOUTMP */ - -#if defined(alliant) - /* - * From: Jim Pace <jdp@research.att.com> - * tcsh does not work properly on the alliants through an rlogin session. - * The shell generally hangs. Also, reference to the controlling terminal - * does not work ( ie: echo foo > /dev/tty ). - * - * A security feature was added to rlogind affecting FX/80's Concentrix - * from revision 5.5.xx upwards (through 5.7 where this fix was implemented) - * This security change also affects the FX/2800 series. - * The security change to rlogind requires the process group of an rlogin - * session become disassociated with the tty in rlogind. - * - * The changes needed are: - * 1. set the process group - * 2. reenable the control terminal - */ - if (loginsh && isatty(SHIN)) { - ttyn = (char *) ttyname(SHIN); - (void) close(SHIN); - SHIN = open(ttyn, O_RDWR); - shpgrp = getpid(); - (void) ioctl (SHIN, TIOCSPGRP, (ioctl_t) &shpgrp); - (void) setpgid(0, shpgrp); - } -#endif /* alliant */ - - /* - * Move the descriptors to safe places. The variable didfds is 0 while we - * have only FSH* to work with. When didfds is true, we have 0,1,2 and - * prefer to use these. - */ - initdesc(); - - /* - * Get and set the tty now - */ - if ((ttyn = ttyname(SHIN)) != NULL) { - /* - * Could use rindex to get rid of other possible path components, but - * hpux preserves the subdirectory /pty/ when storing the tty name in - * utmp, so we keep it too. - */ - if (strncmp(ttyn, "/dev/", 5) == 0) - set(STRtty, cp = SAVE(ttyn + 5), VAR_READWRITE); - else - set(STRtty, cp = SAVE(ttyn), VAR_READWRITE); - } - else - set(STRtty, cp = SAVE(""), VAR_READWRITE); - /* - * Initialize the shell variables. ARGV and PROMPT are initialized later. - * STATUS is also munged in several places. CHILD is munged when - * forking/waiting - */ - - /* - * 7-10-87 Paul Placeway autologout should be set ONLY on login shells and - * on shells running as root. Out of these, autologout should NOT be set - * for any psudo-terminals (this catches most window systems) and not for - * any terminal running X windows. - * - * At Ohio State, we have had problems with a user having his X session - * drop out from under him (on a Sun) because the shell in his master - * xterm timed out and exited. - * - * Really, this should be done with a program external to the shell, that - * watches for no activity (and NO running programs, such as dump) on a - * terminal for a long peroid of time, and then SIGHUPS the shell on that - * terminal. - * - * bugfix by Rich Salz <rsalz@PINEAPPLE.BBN.COM>: For root rsh things - * allways first check to see if loginsh or really root, then do things - * with ttyname() - * - * Also by Jean-Francois Lamy <lamy%ai.toronto.edu@RELAY.CS.NET>: check the - * value of cp before using it! ("root can rsh too") - * - * PWP: keep the nested ifs; the order of the tests matters and a good - * (smart) C compiler might re-arange things wrong. - */ -#ifdef AUTOLOGOUT -# ifdef convex - if (uid == 0) { - /* root always has a 15 minute autologout */ - set(STRautologout, Strsave(STRrootdefautologout), VAR_READWRITE); - } - else - if (loginsh) - /* users get autologout set to 0 */ - set(STRautologout, Strsave(STR0), VAR_READWRITE); -# else /* convex */ - if (loginsh || (uid == 0)) { - if (*cp) { - /* only for login shells or root and we must have a tty */ - if ((cp2 = Strrchr(cp, (Char) '/')) != NULL) { - cp = cp2 + 1; - } - else - cp2 = cp; - if (!(((Strncmp(cp2, STRtty, 3) == 0) && Isalpha(cp2[3])) || - ((Strncmp(cp, STRpts, 3) == 0) && cp[3] == '/'))) { - if (getenv("DISPLAY") == NULL) { - /* NOT on X window shells */ - set(STRautologout, Strsave(STRdefautologout), - VAR_READWRITE); - } - } - } - } -# endif /* convex */ -#endif /* AUTOLOGOUT */ - - (void) sigset(SIGALRM, alrmcatch); - - set(STRstatus, Strsave(STR0), VAR_READWRITE); - - /* - * get and set machine specific envirnment variables - */ - getmachine(); - - fix_version(); /* publish the shell version */ - - /* - * Publish the selected echo style - */ -#if ECHO_STYLE == NONE_ECHO - set(STRecho_style, Strsave(STRnone), VAR_READWRITE); -#endif /* ECHO_STYLE == NONE_ECHO */ -#if ECHO_STYLE == BSD_ECHO - set(STRecho_style, Strsave(STRbsd), VAR_READWRITE); -#endif /* ECHO_STYLE == BSD_ECHO */ -#if ECHO_STYLE == SYSV_ECHO - set(STRecho_style, Strsave(STRsysv), VAR_READWRITE); -#endif /* ECHO_STYLE == SYSV_ECHO */ -#if ECHO_STYLE == BOTH_ECHO - set(STRecho_style, Strsave(STRboth), VAR_READWRITE); -#endif /* ECHO_STYLE == BOTH_ECHO */ - - /* - * increment the shell level. - */ - shlvl(1); - - if ((tcp = getenv("HOME")) != NULL) - cp = quote(SAVE(tcp)); - else - cp = NULL; - if (cp == NULL) - fast = 1; /* No home -> can't read scripts */ - else - set(STRhome, cp, VAR_READWRITE); - dinit(cp); /* dinit thinks that HOME == cwd in a login - * shell */ - /* - * Grab other useful things from the environment. Should we grab - * everything?? - */ - { - char *cln, *cus, *cgr; - Char buff[BUFSIZE]; - struct passwd *pw; - struct group *gr; - - -#ifdef apollo - int oid = getoid(); - - (void) Itoa(oid, buff, 0, 0); - set(STRoid, Strsave(buff), VAR_READWRITE); -#endif /* apollo */ - - (void) Itoa(uid, buff, 0, 0); - set(STRuid, Strsave(buff), VAR_READWRITE); - - (void) Itoa(gid, buff, 0, 0); - set(STRgid, Strsave(buff), VAR_READWRITE); - - cln = getenv("LOGNAME"); - cus = getenv("USER"); - if (cus != NULL) - set(STRuser, quote(SAVE(cus)), VAR_READWRITE); - else if (cln != NULL) - set(STRuser, quote(SAVE(cln)), VAR_READWRITE); - else if ((pw = getpwuid(uid)) == NULL) - set(STRuser, SAVE("unknown"), VAR_READWRITE); - else - set(STRuser, SAVE(pw->pw_name), VAR_READWRITE); - if (cln == NULL) - tsetenv(STRLOGNAME, varval(STRuser)); - if (cus == NULL) - tsetenv(STRKUSER, varval(STRuser)); - - cgr = getenv("GROUP"); - if (cgr != NULL) - set(STRgroup, quote(SAVE(cgr)), VAR_READWRITE); - else if ((gr = getgrgid(gid)) == NULL) - set(STRgroup, SAVE("unknown"), VAR_READWRITE); - else - set(STRgroup, SAVE(gr->gr_name), VAR_READWRITE); - if (cgr == NULL) - tsetenv(STRKGROUP, varval(STRgroup)); - } - - /* - * HOST may be wrong, since rexd transports the entire environment on sun - * 3.x Just set it again - */ - { - char cbuff[MAXHOSTNAMELEN]; - - if (gethostname(cbuff, sizeof(cbuff)) >= 0) { - cbuff[sizeof(cbuff) - 1] = '\0'; /* just in case */ - tsetenv(STRHOST, str2short(cbuff)); - } - else - tsetenv(STRHOST, str2short("unknown")); - } - - -#ifdef REMOTEHOST - /* - * Try to determine the remote host we were logged in from. - */ - remotehost(); -#endif /* REMOTEHOST */ - -#ifdef apollo - if ((tcp = getenv("SYSTYPE")) == NULL) - tcp = "bsd4.3"; - tsetenv(STRSYSTYPE, quote(str2short(tcp))); -#endif /* apollo */ - - /* - * set editing on by default, unless running under Emacs as an inferior - * shell. - * We try to do this intelligently. If $TERM is available, then it - * should determine if we should edit or not. $TERM is preserved - * across rlogin sessions, so we will not get confused if we rlogin - * under an emacs shell. Another advantage is that if we run an - * xterm under an emacs shell, then the $TERM will be set to - * xterm, so we are going to want to edit. Unfortunately emacs - * does not restore all the tty modes, so xterm is not very well - * set up. But this is not the shell's fault. - * Also don't edit if $TERM == wm, for when we're running under an ATK app. - * Finally, emacs compiled under terminfo, sets the terminal to dumb, - * so disable editing for that too. - * - * Unfortunately, in some cases the initial $TERM setting is "unknown", - * "dumb", or "network" which is then changed in the user's startup files. - * We fix this by setting noediting here if $TERM is unknown/dumb and - * if noediting is set, we switch on editing if $TERM is changed. - */ - if ((tcp = getenv("TERM")) != NULL) { - set(STRterm, quote(SAVE(tcp)), VAR_READWRITE); - noediting = strcmp(tcp, "unknown") == 0 || strcmp(tcp, "dumb") == 0 || - strcmp(tcp, "network") == 0; - editing = strcmp(tcp, "emacs") != 0 && strcmp(tcp, "wm") != 0 && - !noediting; - } - else { - noediting = 0; - editing = ((tcp = getenv("EMACS")) == NULL || strcmp(tcp, "t") != 0); - } - - /* - * The 'edit' variable is either set or unset. It doesn't - * need a value. Making it 'emacs' might be confusing. - */ - if (editing) - set(STRedit, Strsave(STRNULL), VAR_READWRITE); - - - /* - * still more mutability: make the complete routine automatically add the - * suffix of file names... - */ - set(STRaddsuffix, Strsave(STRNULL), VAR_READWRITE); - - /* - * Re-initialize path if set in environment - */ - if ((tcp = getenv("PATH")) == NULL) -#ifdef _PATH_DEFPATH - importpath(str2short(_PATH_DEFPATH)); -#else /* !_PATH_DEFPATH */ - setq(STRpath, defaultpath(), &shvhed, VAR_READWRITE); -#endif /* _PATH_DEFPATH */ - else - /* Importpath() allocates memory for the path, and the - * returned pointer from SAVE() was discarded, so - * this was a memory leak.. (sg) - * - * importpath(SAVE(tcp)); - */ - importpath(str2short(tcp)); - - - { - /* If the SHELL environment variable ends with "tcsh", set - * STRshell to the same path. This is to facilitate using - * the executable in environments where the compiled-in - * default isn't appropriate (sg). - */ - - int sh_len = 0; - - if ((tcp = getenv("SHELL")) != NULL) { - sh_len = strlen(tcp); - if ((sh_len >= 5 && strcmp(tcp + (sh_len - 5), "/tcsh") == 0) || - (!tcsh && sh_len >= 4 && strcmp(tcp + (sh_len - 4), "/csh") == 0)) - set(STRshell, quote(SAVE(tcp)), VAR_READWRITE); - else - sh_len = 0; - } - if (sh_len == 0) - set(STRshell, Strsave(STR_SHELLPATH), VAR_READWRITE); - } - -#ifdef COLOR_LS_F - if ((tcp = getenv("LS_COLORS")) != NULL) - parseLS_COLORS(str2short(tcp)); -#endif /* COLOR_LS_F */ - - doldol = putn((int) getpid()); /* For $$ */ -#ifdef WINNT - { - char *strtmp1, strtmp2[MAXPATHLEN]; - if ((strtmp1 = getenv("TMP")) != NULL) - wsprintf(strtmp2, "%s/%s", strtmp1, "sh"); - shtemp = Strspl(SAVE(strtmp2), doldol); /* For << */ - } -#else /* !WINNT */ - shtemp = Strspl(STRtmpsh, doldol); /* For << */ -#endif /* WINNT */ - - /* - * Record the interrupt states from the parent process. If the parent is - * non-interruptible our hand must be forced or we (and our children) won't - * be either. Our children inherit termination from our parent. We catch it - * only if we are the login shell. - */ -#ifdef BSDSIGS - /* - * PURIFY-2 claims that osv does not get - * initialized after the sigvec call - */ - setzero((char*) &osv, sizeof(osv)); - /* parents interruptibility */ - (void) mysigvec(SIGINT, NULL, &osv); - parintr = (signalfun_t) osv.sv_handler; - (void) mysigvec(SIGTERM, NULL, &osv); - parterm = (signalfun_t) osv.sv_handler; -#else /* BSDSIGS */ - parintr = signal(SIGINT, SIG_IGN); /* parents interruptibility */ - (void) sigset(SIGINT, parintr); /* ... restore */ - -# ifdef COHERENT - if (loginsh) /* it seems that SIGTERM is always set to SIG_IGN by */ - /* init/getty so it should be set to SIG_DFL - there may be */ - /* a better fix for this. */ - parterm = SIG_DFL; - else -# else /* !COHERENT */ - parterm = signal(SIGTERM, SIG_IGN); /* parents terminability */ -# endif /* COHERENT */ - (void) sigset(SIGTERM, parterm); /* ... restore */ - -#endif /* BSDSIGS */ - - -#ifdef TCF - /* Enable process migration on ourselves and our progeny */ - (void) signal(SIGMIGRATE, SIG_DFL); -#endif /* TCF */ - - /* - * Process the arguments. - * - * Note that processing of -v/-x is actually delayed till after script - * processing. - * - * We set the first character of our name to be '-' if we are a shell - * running interruptible commands. Many programs which examine ps'es - * use this to filter such shells out. - */ - argc--, tempv++; - while (argc > 0 && (tcp = tempv[0])[0] == '-' && - *++tcp != '\0' && !batch) { - do - switch (*tcp++) { - - case 0: /* - Interruptible, no prompt */ - prompt = 0; - setintr = 1; - nofile = 1; - break; - - case 'b': /* -b Next arg is input file */ - batch = 1; - break; - - case 'c': /* -c Command input from arg */ - if (argc == 1) - xexit(0); - argc--, tempv++; -#ifdef M_XENIX - /* Xenix Vi bug: - it relies on a 7 bit environment (/bin/sh), so it - pass ascii arguments with the 8th bit set */ - if (!strcmp(argv[0], "sh")) - { - char *p; - - for (p = tempv[0]; *p; ++p) - *p &= ASCII; - } -#endif - arginp = SAVE(tempv[0]); - - /* - * we put the command into a variable - */ - if (arginp != NULL) - set(STRcommand, quote(Strsave(arginp)), VAR_READWRITE); - - /* - * * Give an error on -c arguments that end in * backslash to - * ensure that you don't make * nonportable csh scripts. - */ - { - register int count; - - cp = arginp + Strlen(arginp); - count = 0; - while (cp > arginp && *--cp == '\\') - ++count; - if ((count & 1) != 0) { - exiterr = 1; - stderror(ERR_ARGC); - } - } - prompt = 0; - nofile = 1; - break; - case 'd': /* -d Load directory stack from file */ - rdirs = 1; - break; - -#ifdef apollo - case 'D': /* -D Define environment variable */ - { - register Char *dp; - - cp = str2short(tcp); - if (dp = Strchr(cp, '=')) { - *dp++ = '\0'; - tsetenv(cp, dp); - } - else - tsetenv(cp, STRNULL); - } - *tcp = '\0'; /* done with this argument */ - break; -#endif /* apollo */ - - case 'e': /* -e Exit on any error */ - exiterr = 1; - break; - - case 'f': /* -f Fast start */ - fast = 1; - break; - - case 'i': /* -i Interactive, even if !intty */ - intact = 1; - nofile = 1; - break; - - case 'm': /* -m read .cshrc (from su) */ - mflag = 1; - break; - - case 'n': /* -n Don't execute */ - noexec = 1; - break; - - case 'q': /* -q (Undoc'd) ... die on quit */ - quitit = 1; - break; - - case 's': /* -s Read from std input */ - nofile = 1; - break; - - case 't': /* -t Read one line from input */ - onelflg = 2; - prompt = 0; - nofile = 1; - break; - - case 'v': /* -v Echo hist expanded input */ - nverbose = 1; /* ... later */ - break; - - case 'x': /* -x Echo just before execution */ - nexececho = 1; /* ... later */ - break; - - case 'V': /* -V Echo hist expanded input */ - setNS(STRverbose); /* NOW! */ - break; - - case 'X': /* -X Echo just before execution */ - setNS(STRecho); /* NOW! */ - break; - - case 'F': /* Undocumented flag */ - /* - * This will cause children to be created using fork instead of - * vfork. - */ - use_fork = 1; - break; - - case ' ': - case '\t': - /* - * for O/S's that don't do the argument parsing right in - * "#!/foo -f " scripts - */ - break; - - default: /* Unknown command option */ - exiterr = 1; - stderror(ERR_TCSHUSAGE, tcp-1, progname); - break; - - } while (*tcp); - tempv++, argc--; - } - - if (quitit) /* With all due haste, for debugging */ - (void) signal(SIGQUIT, SIG_DFL); - - /* - * Unless prevented by -, -c, -i, -s, or -t, if there are remaining - * arguments the first of them is the name of a shell file from which to - * read commands. - */ - if (nofile == 0 && argc > 0) { - nofile = open(tempv[0], O_RDONLY); - if (nofile < 0) { - child = 1; /* So this ... */ - /* ... doesn't return */ - stderror(ERR_SYSTEM, tempv[0], strerror(errno)); - } - if (ffile != NULL) - xfree((ptr_t) ffile); - dolzero = 1; - ffile = SAVE(tempv[0]); - /* - * Replace FSHIN. Handle /dev/std{in,out,err} specially - * since once they are closed we cannot open them again. - * In that case we use our own saved descriptors - */ - if ((SHIN = dmove(nofile, FSHIN)) < 0) - switch(nofile) { - case 0: - SHIN = FSHIN; - break; - case 1: - SHIN = FSHOUT; - break; - case 2: - SHIN = FSHDIAG; - break; - default: - stderror(ERR_SYSTEM, tempv[0], strerror(errno)); - break; - } - (void) close_on_exec(SHIN, 1); - prompt = 0; - /* argc not used any more */ tempv++; - } - - - /* - * Consider input a tty if it really is or we are interactive. but not for - * editing (christos) - */ - if (!(intty = isatty(SHIN))) { - if (adrof(STRedit)) - unsetv(STRedit); - editing = 0; - } - intty |= intact; -#ifndef convex - if (intty || (intact && isatty(SHOUT))) { - if (!batch && (uid != euid || gid != egid)) { - errno = EACCES; - child = 1; /* So this ... */ - /* ... doesn't return */ - stderror(ERR_SYSTEM, progname, strerror(errno)); - } - } -#endif /* convex */ - isoutatty = isatty(SHOUT); - isdiagatty = isatty(SHDIAG); - /* - * Decide whether we should play with signals or not. If we are explicitly - * told (via -i, or -) or we are a login shell (arg0 starts with -) or the - * input and output are both the ttys("csh", or "csh</dev/ttyx>/dev/ttyx") - * Note that in only the login shell is it likely that parent may have set - * signals to be ignored - */ - if (loginsh || intact || (intty && isatty(SHOUT))) - setintr = 1; - settell(); - /* - * Save the remaining arguments in argv. - */ - setq(STRargv, blk2short(tempv), &shvhed, VAR_READWRITE); - - /* - * Set up the prompt. - */ - if (prompt) { - if (tcsh) - set(STRprompt, Strsave(STRdeftcshprompt), VAR_READWRITE); - else - set(STRprompt, Strsave(STRdefcshprompt), VAR_READWRITE); - /* that's a meta-questionmark */ - set(STRprompt2, Strsave(STRmquestion), VAR_READWRITE); - set(STRprompt3, Strsave(STRKCORRECT), VAR_READWRITE); - } - - /* - * If we are an interactive shell, then start fiddling with the signals; - * this is a tricky game. - */ - shpgrp = mygetpgrp(); - opgrp = tpgrp = -1; - if (setintr) { - signalfun_t osig; - **argv = '-'; - if (!quitit) /* Wary! */ - (void) signal(SIGQUIT, SIG_IGN); - (void) sigset(SIGINT, pintr); - (void) sighold(SIGINT); - (void) signal(SIGTERM, SIG_IGN); - - /* - * No reason I can see not to save history on all these events.. - * Most usual occurrence is in a window system, where we're not a login - * shell, but might as well be... (sg) - * But there might be races when lots of shells exit together... - * [this is also incompatible]. - * We have to be mre careful here. If the parent wants to - * ignore the signals then we leave them untouched... - * We also only setup the handlers for shells that are trully - * interactive. - */ - osig = signal(SIGHUP, phup); /* exit processing on HUP */ - if (!loginsh && osig == SIG_IGN) - (void) signal(SIGHUP, osig); -#ifdef SIGXCPU - osig = signal(SIGXCPU, phup); /* exit processing on XCPU */ - if (!loginsh && osig == SIG_IGN) - (void) signal(SIGXCPU, osig); -#endif -#ifdef SIGXFSZ - osig = signal(SIGXFSZ, phup); /* exit processing on XFSZ */ - if (!loginsh && osig == SIG_IGN) - (void) signal(SIGXFSZ, osig); -#endif - - if (quitit == 0 && arginp == 0) { -#ifdef SIGTSTP - (void) signal(SIGTSTP, SIG_IGN); -#endif -#ifdef SIGTTIN - (void) signal(SIGTTIN, SIG_IGN); -#endif -#ifdef SIGTTOU - (void) signal(SIGTTOU, SIG_IGN); -#endif - /* - * Wait till in foreground, in case someone stupidly runs csh & - * dont want to try to grab away the tty. - */ - if (isatty(FSHDIAG)) - f = FSHDIAG; - else if (isatty(FSHOUT)) - f = FSHOUT; - else if (isatty(OLDSTD)) - f = OLDSTD; - else - f = -1; - -#ifdef NeXT - /* NeXT 2.0 /usr/etc/rlogind, does not set our process group! */ - if (shpgrp == 0) { - shpgrp = getpid(); - (void) setpgid(0, shpgrp); - (void) tcsetpgrp(f, shpgrp); - } -#endif /* NeXT */ -#ifdef BSDJOBS /* if we have tty job control */ - retry: - if ((tpgrp = tcgetpgrp(f)) != -1) { - if (tpgrp != shpgrp) { - signalfun_t old = signal(SIGTTIN, SIG_DFL); - (void) kill(0, SIGTTIN); - (void) signal(SIGTTIN, old); - goto retry; - } - /* - * Thanks to Matt Day for the POSIX references, and to - * Paul Close for the SGI clarification. - */ - if (setdisc(f) != -1) { - opgrp = shpgrp; - shpgrp = getpid(); - tpgrp = shpgrp; - if (tcsetpgrp(f, shpgrp) == -1) { - /* - * On hpux 7.03 this fails with EPERM. This happens on - * the 800 when opgrp != shpgrp at this point. (we were - * forked from a non job control shell) - * POSIX 7.2.4, says we failed because the process - * group specified did not belong to a process - * in the same session with the tty. So we set our - * process group and try again. - */ - if (setpgid(0, shpgrp) == -1) { - xprintf("setpgid:"); - goto notty; - } - if (tcsetpgrp(f, shpgrp) == -1) { - xprintf("tcsetpgrp:"); - goto notty; - } - } - /* - * We check the process group now. If it is the same, then - * we don't need to set it again. On hpux 7.0 on the 300's - * if we set it again it fails with EPERM. This is the - * correct behavior according to POSIX 4.3.3 if the process - * was a session leader . - */ - else if (shpgrp != mygetpgrp()) { - if(setpgid(0, shpgrp) == -1) { - xprintf("setpgid:"); - goto notty; - } - } -#ifdef IRIS4D - /* - * But on irix 3.3 we need to set it again, even if it is - * the same. We do that to tell the system that we - * need BSD process group compatibility. - */ - else - (void) setpgid(0, shpgrp); -#endif - (void) close_on_exec(dcopy(f, FSHTTY), 1); - } - else - tpgrp = -1; - } - if (tpgrp == -1) { - notty: - xprintf(CGETS(11, 1, "Warning: no access to tty (%s).\n"), - strerror(errno)); - xprintf(CGETS(11, 2, "Thus no job control in this shell.\n")); - /* - * Fix from:Sakari Jalovaara <sja@sirius.hut.fi> if we don't - * have access to tty, disable editing too - */ - if (adrof(STRedit)) - unsetv(STRedit); - editing = 0; - } -#else /* BSDJOBS */ /* don't have job control, so frotz it */ - tpgrp = -1; -#endif /* BSDJOBS */ - } - } - if ((setintr == 0) && (parintr == SIG_DFL)) - setintr = 1; - -/* - * SVR4 doesn't send a SIGCHLD when a child is stopped or continued if the - * handler is installed with signal(2) or sigset(2). sigaction(2) must - * be used instead. - * - * David Dawes (dawes@physics.su.oz.au) Sept 1991 - */ - -#if SYSVREL > 3 - { - struct sigaction act; - act.sa_handler=pchild; - (void) sigemptyset(&(act.sa_mask)); /* Don't block any extra sigs - * when the handler is called - */ - act.sa_flags=0; /* want behaviour of sigset() without - * SA_NOCLDSTOP - */ - - if ((sigaction(SIGCHLD,&act,(struct sigaction *)NULL)) == -1) - stderror(ERR_SYSTEM, "sigaction", strerror(errno)); - } -#else /* SYSVREL <= 3 */ - (void) sigset(SIGCHLD, pchild); /* while signals not ready */ -#endif /* SYSVREL <= 3 */ - - - if (intty && !arginp) - (void) ed_Setup(editing);/* Get the tty state, and set defaults */ - /* Only alter the tty state if editing */ - - /* - * Set an exit here in case of an interrupt or error reading the shell - * start-up scripts. - */ - reenter = setexit(); /* PWP */ - haderr = 0; /* In case second time through */ - if (!fast && reenter == 0) { - /* Will have varval(STRhome) here because set fast if don't */ - { - int osetintr = setintr; - signalfun_t oparintr = parintr; - -#ifdef BSDSIGS - sigmask_t omask = sigblock(sigmask(SIGINT)); -#else - (void) sighold(SIGINT); -#endif - setintr = 0; - parintr = SIG_IGN; /* onintr in /etc/ files has no effect */ -#ifdef LOGINFIRST -#ifdef _PATH_DOTLOGIN - if (loginsh) - (void) srcfile(_PATH_DOTLOGIN, 0, 0, NULL); -#endif -#endif - -#ifdef _PATH_DOTCSHRC - (void) srcfile(_PATH_DOTCSHRC, 0, 0, NULL); -#endif - if (!arginp && !onelflg && !havhash) - dohash(NULL,NULL); -#ifndef LOGINFIRST -#ifdef _PATH_DOTLOGIN - if (loginsh) - (void) srcfile(_PATH_DOTLOGIN, 0, 0, NULL); -#endif -#endif -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else - (void) sigrelse(SIGINT); -#endif - setintr = osetintr; - parintr = oparintr; - } -#ifdef LOGINFIRST - if (loginsh) - (void) srccat(varval(STRhome), STRsldotlogin); -#endif - /* upward compat. */ - if (!srccat(varval(STRhome), STRsldottcshrc)) - (void) srccat(varval(STRhome), STRsldotcshrc); - - if (!fast && !arginp && !onelflg && !havhash) - dohash(NULL,NULL); - - /* - * Source history before .login so that it is available in .login - */ - loadhist(NULL, 0); -#ifndef LOGINFIRST - if (loginsh) - (void) srccat(varval(STRhome), STRsldotlogin); -#endif - if (!fast && (loginsh || rdirs)) - loaddirs(NULL); - } - /* Initing AFTER .cshrc is the Right Way */ - if (intty && !arginp) { /* PWP setup stuff */ - ed_Init(); /* init the new line editor */ -#ifdef SIG_WINDOW - check_window_size(1); /* mung environment */ -#endif /* SIG_WINDOW */ - } - - /* - * dspkanji/dspmbyte autosetting - */ - /* PATCH IDEA FROM Issei.Suzuki VERY THANKS */ -#if defined(DSPMBYTE) - if ((tcp = getenv("LANG")) != NULL && !adrof(CHECK_MBYTEVAR)) { - autoset_dspmbyte(str2short(tcp)); - } -#if defined(WINNT) - else if (!adrof(CHECK_MBYTEVAR)) - nt_autoset_dspmbyte(); -#endif /* WINNT */ -#endif - - /* - * Now are ready for the -v and -x flags - */ - if (nverbose) - setNS(STRverbose); - if (nexececho) - setNS(STRecho); - - /* - * All the rest of the world is inside this call. The argument to process - * indicates whether it should catch "error unwinds". Thus if we are a - * interactive shell our call here will never return by being blown past on - * an error. - */ - process(setintr); - - /* - * Mop-up. - */ - if (intty) { - if (loginsh) { - xprintf("logout\n"); - (void) close(SHIN); - child = 1; -#ifdef TESLA - do_logout = 1; -#endif /* TESLA */ - goodbye(NULL, NULL); - } - else { - xprintf("exit\n"); - } - } - record(); - exitstat(); - return (0); -} - -void -untty() -{ -#ifdef BSDJOBS - if (tpgrp > 0 && opgrp != shpgrp) { - (void) setpgid(0, opgrp); - (void) tcsetpgrp(FSHTTY, opgrp); - (void) resetdisc(FSHTTY); - } -#endif /* BSDJOBS */ -} - -void -importpath(cp) - Char *cp; -{ - register int i = 0; - register Char *dp; - register Char **pv; - int c; - - for (dp = cp; *dp; dp++) - if (*dp == PATHSEP) - i++; - /* - * i+2 where i is the number of colons in the path. There are i+1 - * directories in the path plus we need room for a zero terminator. - */ - pv = (Char **) xcalloc((size_t) (i + 2), sizeof(Char *)); - dp = cp; - i = 0; - if (*dp) - for (;;) { - if ((c = *dp) == PATHSEP || c == 0) { - *dp = 0; - pv[i++] = Strsave(*cp ? cp : STRdot); - if (c) { - cp = dp + 1; - *dp = PATHSEP; - } - else - break; - } -#ifdef WINNT - else if (*dp == '\\') - *dp = '/'; -#endif /* WINNT */ - dp++; - } - pv[i] = 0; - setq(STRpath, pv, &shvhed, VAR_READWRITE); -} - -/* - * Source to the file which is the catenation of the argument names. - */ -static int -srccat(cp, dp) - Char *cp, *dp; -{ - if (cp[0] == '/' && cp[1] == '\0') - return srcfile(short2str(dp), (mflag ? 0 : 1), 0, NULL); - else { - register Char *ep; - char *ptr; - int rv; - -#ifdef WINNT - ep = cp; - while(*ep) - ep++; - if (ep[-1] == '/' && dp[0] == '/') /* silly win95 */ - dp++; -#endif /* WINNT */ - - ep = Strspl(cp, dp); - ptr = short2str(ep); - - rv = srcfile(ptr, (mflag ? 0 : 1), 0, NULL); - xfree((ptr_t) ep); - return rv; - } -} - -/* - * Source to a file putting the file descriptor in a safe place (> 2). - */ -static int -srcfile(f, onlyown, flag, av) - char *f; - bool onlyown; - int flag; - Char **av; -{ - register int unit; - - if ((unit = open(f, O_RDONLY)) == -1) - return 0; - unit = dmove(unit, -1); - - (void) close_on_exec(unit, 1); - srcunit(unit, onlyown, flag, av); - return 1; -} - - -/* - * Save the shell state, and establish new argument vector, and new input - * fd. - */ -static void -st_save(st, unit, hflg, al, av) - struct saved_state *st; - int unit, hflg; - Char **al, **av; -{ - st->insource = insource; - st->SHIN = SHIN; - st->intty = intty; - st->whyles = whyles; - st->gointr = gointr; - st->arginp = arginp; - st->evalp = evalp; - st->evalvec = evalvec; - st->alvecp = alvecp; - st->alvec = alvec; - st->onelflg = onelflg; - st->enterhist = enterhist; - if (hflg) - st->HIST = HIST; - else - st->HIST = '\0'; - st->cantell = cantell; - cpybin(st->B, B); - - /* - * we can now pass arguments to source. - * For compatibility we do that only if arguments were really - * passed, otherwise we keep the old, global $argv like before. - */ - if (av != NULL && *av != NULL) { - struct varent *vp; - if ((vp = adrof(STRargv)) != NULL) - st->argv = saveblk(vp->vec); - else - st->argv = NULL; - setq(STRargv, saveblk(av), &shvhed, VAR_READWRITE); - } - else - st->argv = NULL; - - SHIN = unit; /* Do this first */ - - /* Establish new input arena */ - { - fbuf = NULL; - fseekp = feobp = fblocks = 0; - settell(); - } - - arginp = 0; - onelflg = 0; - intty = isatty(SHIN); - whyles = 0; - gointr = 0; - evalvec = 0; - evalp = 0; - alvec = al; - alvecp = 0; - enterhist = hflg; - if (enterhist) - HIST = '\0'; - insource = 1; -} - - -/* - * Restore the shell to a saved state - */ -static void -st_restore(st, av) - struct saved_state *st; - Char **av; -{ - if (st->SHIN == -1) - return; - - /* Reset input arena */ - { - register int i; - register Char** nfbuf = fbuf; - register int nfblocks = fblocks; - - fblocks = 0; - fbuf = NULL; - for (i = 0; i < nfblocks; i++) - xfree((ptr_t) nfbuf[i]); - xfree((ptr_t) nfbuf); - } - cpybin(B, st->B); - - (void) close(SHIN); - - insource = st->insource; - SHIN = st->SHIN; - arginp = st->arginp; - onelflg = st->onelflg; - evalp = st->evalp; - evalvec = st->evalvec; - alvecp = st->alvecp; - alvec = st->alvec; - intty = st->intty; - whyles = st->whyles; - gointr = st->gointr; - if (st->HIST != '\0') - HIST = st->HIST; - enterhist = st->enterhist; - cantell = st->cantell; - - if (st->argv != NULL) - setq(STRargv, st->argv, &shvhed, VAR_READWRITE); - else if (av != NULL && *av != NULL && adrof(STRargv) != NULL) - unsetv(STRargv); -} - -/* - * Source to a unit. If onlyown it must be our file or our group or - * we don't chance it. This occurs on ".cshrc"s and the like. - */ -static void -srcunit(unit, onlyown, hflg, av) - register int unit; - bool onlyown; - int hflg; - Char **av; -{ - struct saved_state st; - st.SHIN = -1; /* st_restore checks this */ - - if (unit < 0) - return; - - if (didfds) - donefds(); - - if (onlyown) { - struct stat stb; - - if (fstat(unit, &stb) < 0) { - (void) close(unit); - return; - } - } - - getexit(st.oldexit); - - if (setintr) -#ifdef BSDSIGS - st.mask = sigblock(sigmask(SIGINT)); -#else - (void) sighold(SIGINT); -#endif - - /* Save the current state and move us to a new state */ - st_save(&st, unit, hflg, NULL, av); - - /* - * Now if we are allowing commands to be interrupted, we let ourselves be - * interrupted. - */ - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(st.mask); -#else - (void) sigrelse(SIGINT); -#endif - - /* - * Bugfix for running out of memory by: Jak Kirman - * <jak%cs.brown.edu@RELAY.CS.NET>. Solution: pay attention to what - * setexit() is returning because reenter _may_ be in a register, and - * thus restored to 0 on a longjump(). (PWP: insert flames about - * compiler-dependant code here) PWP: THANKS LOTS !!! - * - * PWP: think of this as like a LISP (unwind-protect ...) - * thanks to Diana Smetters for pointing out how this _should_ be written - */ -#ifdef cray - st.reenter = 1; /* assume non-zero return val */ - if (setexit() == 0) { - st.reenter = 0; /* Oh well, we were wrong */ -#else - if ((st.reenter = setexit()) == 0) { -#endif - process(0); /* 0 -> blow away on errors */ - } - - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(st.mask); -#else - (void) sigrelse(SIGINT); -#endif - - /* Restore the old state */ - st_restore(&st, av); - resexit(st.oldexit); - /* - * If process reset() (effectively an unwind) then we must also unwind. - */ - if (st.reenter) - stderror(ERR_SILENT); -} - - -/*ARGSUSED*/ -void -goodbye(v, c) - Char **v; - struct command *c; -{ - USE(c); - record(); - - if (loginsh) { - (void) sigset(SIGQUIT, SIG_IGN); - (void) sigset(SIGINT, SIG_IGN); - (void) sigset(SIGTERM, SIG_IGN); - (void) sigset(SIGHUP, SIG_IGN); - setintr = 0; /* No interrupts after "logout" */ - /* Trap errors inside .logout */ - reenter = setexit(); - if (reenter != 0) - exitstat(); - if (!(adrof(STRlogout))) - set(STRlogout, Strsave(STRnormal), VAR_READWRITE); -#ifdef _PATH_DOTLOGOUT - (void) srcfile(_PATH_DOTLOGOUT, 0, 0, NULL); -#endif - if (adrof(STRhome)) - (void) srccat(varval(STRhome), STRsldtlogout); -#ifdef TESLA - do_logout = 1; -#endif /* TESLA */ - } - exitstat(); -} - -void -exitstat() -{ -#ifdef PROF - monitor(0); -#endif - /* - * Note that if STATUS is corrupted (i.e. getn bombs) then error will exit - * directly because we poke child here. Otherwise we might continue - * unwarrantedly (sic). - */ - child = 1; - - xexit(getn(varval(STRstatus))); -} - -/* - * in the event of a HUP we want to save the history - */ -static sigret_t -phup(snum) -int snum; -{ - /* - * There is no return from here, - * so we are not going to release SIGHUP - * anymore - */ -#ifdef UNRELSIGS - if (snum) - (void) sigset(snum, SIG_IGN); -#else -# ifdef BSDSIGS - (void) sigblock(sigmask(SIGHUP)); -# else - (void) sighold(SIGHUP); -# endif /* BSDSIGS */ -#endif /* UNRELSIGS */ - - if (loginsh) { - set(STRlogout, Strsave(STRhangup), VAR_READWRITE); -#ifdef _PATH_DOTLOGOUT - (void) srcfile(_PATH_DOTLOGOUT, 0, 0, NULL); -#endif - if (adrof(STRhome)) - (void) srccat(varval(STRhome), STRsldtlogout); - } - - record(); - -#ifdef POSIXJOBS - /* - * We kill the last foreground process group. It then becomes - * responsible to propagate the SIGHUP to its progeny. - */ - { - struct process *pp, *np; - - for (pp = proclist.p_next; pp; pp = pp->p_next) { - np = pp; - /* - * Find if this job is in the foreground. It could be that - * the process leader has exited and the foreground flag - * is cleared for it. - */ - do - /* - * If a process is in the foreground we try to kill - * it's process group. If we succeed, then the - * whole job is gone. Otherwise we keep going... - * But avoid sending HUP to the shell again. - */ - if (((np->p_flags & PFOREGND) != 0) && np->p_jobid != shpgrp) { - np->p_flags &= ~PHUP; - if (killpg(np->p_jobid, SIGHUP) != -1) { - /* In case the job was suspended... */ -#ifdef SIGCONT - (void) killpg(np->p_jobid, SIGCONT); -#endif - break; - } - } - while ((np = np->p_friends) != pp); - } - } -#endif /* POSIXJOBS */ - - xexit(snum); -#ifndef SIGVOID - return (snum); -#endif -} - -static Char *jobargv[2] = {STRjobs, 0}; - -/* - * Catch an interrupt, e.g. during lexical input. - * If we are an interactive shell, we reset the interrupt catch - * immediately. In any case we drain the shell output, - * and finally go through the normal error mechanism, which - * gets a chance to make the shell go away. - */ -int just_signaled; /* bugfix by Michael Bloom (mg@ttidca.TTI.COM) */ - -#ifdef SIGVOID -/*ARGSUSED*/ -#endif -sigret_t -pintr(snum) -int snum; -{ -#ifdef UNRELSIGS - if (snum) - (void) sigset(snum, pintr); -#endif /* UNRELSIGS */ - just_signaled = 1; - pintr1(1); -#ifndef SIGVOID - return (snum); -#endif -} - -void -pintr1(wantnl) - bool wantnl; -{ - register Char **v; -#ifdef BSDSIGS - sigmask_t omask; -#endif - -#ifdef BSDSIGS - omask = sigblock((sigmask_t) 0); -#endif - if (setintr) { -#ifdef BSDSIGS - (void) sigsetmask(omask & ~sigmask(SIGINT)); -#else - (void) sigrelse(SIGINT); -#endif - if (pjobs) { - pjobs = 0; - xputchar('\n'); - dojobs(jobargv, NULL); - stderror(ERR_NAME | ERR_INTR); - } - } - /* MH - handle interrupted completions specially */ - { - extern int InsideCompletion; - - if (InsideCompletion) - stderror(ERR_SILENT); - } - /* JV - Make sure we shut off inputl */ - { - extern Char GettingInput; - - (void) Cookedmode(); - GettingInput = 0; - } -#ifdef BSDSIGS - (void) sigsetmask(omask & ~sigmask(SIGCHLD)); -#else - if (setintr) - (void) sighold(SIGINT); - (void) sigrelse(SIGCHLD); -#endif - drainoline(); -#if !defined(_VMS_POSIX) && !defined(WINNT) - (void) endpwent(); -#endif /* !_VMS_POSIX && !WINNT */ - - /* - * If we have an active "onintr" then we search for the label. Note that if - * one does "onintr -" then we shan't be interruptible so we needn't worry - * about that here. - */ - if (gointr) { - gotolab(gointr); - timflg = 0; - if ((v = pargv) != 0) - pargv = 0, blkfree(v); - if ((v = gargv) != 0) - gargv = 0, blkfree(v); - reset(); - } - else if (intty && wantnl) { - if (editing) { - /* - * If we are editing a multi-line input command, and move to - * the beginning of the line, we don't want to trash it when - * we hit ^C - */ - PastBottom(); - ClearLines(); - ClearDisp(); - } - else { - /* xputchar('\n'); *//* Some like this, others don't */ - (void) putraw('\r'); - (void) putraw('\n'); - } - } - stderror(ERR_SILENT); -} - -/* - * Process is the main driving routine for the shell. - * It runs all command processing, except for those within { ... } - * in expressions (which is run by a routine evalav in sh.exp.c which - * is a stripped down process), and `...` evaluation which is run - * also by a subset of this code in sh.glob.c in the routine backeval. - * - * The code here is a little strange because part of it is interruptible - * and hence freeing of structures appears to occur when none is necessary - * if this is ignored. - * - * Note that if catch is not set then we will unwind on any error. - * If an end-of-file occurs, we return. - */ -static struct command *savet = NULL; -void -process(catch) - bool catch; -{ - extern char Expand; - jmp_buf_t osetexit; - /* PWP: This might get nuked my longjmp so don't make it a register var */ - struct command *t = savet; - - savet = NULL; - getexit(osetexit); - for (;;) { - - pendjob(); - - /* This was leaking memory badly, particularly when sourcing - * files, etc.. For whatever reason we were arriving here with - * allocated pointers still active, and the code was simply - * overwriting them. I can't say I fully understand the - * control flow here, but according to Purify this particular - * leak has been plugged, and I haven't noticed any ill - * effects.. (sg) - */ - if (paraml.next && paraml.next != ¶ml) - freelex(¶ml); - - paraml.next = paraml.prev = ¶ml; - paraml.word = STRNULL; - (void) setexit(); - justpr = enterhist; /* execute if not entering history */ - - /* - * Interruptible during interactive reads - */ - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(sigblock((sigmask_t) 0) & ~sigmask(SIGINT)); -#else - (void) sigrelse(SIGINT); -#endif - - - /* - * For the sake of reset() - */ - freelex(¶ml); - if (savet) - freesyn(savet), savet = NULL; - - if (haderr) { - if (!catch) { - /* unwind */ - doneinp = 0; - savet = t; - resexit(osetexit); - reset(); - } - haderr = 0; - /* - * Every error is eventually caught here or the shell dies. It is - * at this point that we clean up any left-over open files, by - * closing all but a fixed number of pre-defined files. Thus - * routines don't have to worry about leaving files open due to - * deeper errors... they will get closed here. - */ - closem(); - continue; - } - if (doneinp) { - doneinp = 0; - break; - } - if (chkstop) - chkstop--; - if (neednote) - pnote(); - if (intty && prompt && evalvec == 0) { - just_signaled = 0; - mailchk(); - /* - * Watch for logins/logouts. Next is scheduled commands stored - * previously using "sched." Then execute periodic commands. - * Following that, the prompt precmd is run. - */ -#ifndef HAVENOUTMP - watch_login(0); -#endif /* !HAVENOUTMP */ - sched_run(0); - period_cmd(); - precmd(); - /* - * If we are at the end of the input buffer then we are going to - * read fresh stuff. Otherwise, we are rereading input and don't - * need or want to prompt. - */ - if (fseekp == feobp && aret == F_SEEK) - printprompt(0, NULL); - flush(); - setalarm(1); - } - if (seterr) { - xfree((ptr_t) seterr); - seterr = NULL; - } - - /* - * Echo not only on VERBOSE, but also with history expansion. If there - * is a lexical error then we forego history echo. - */ - if ((lex(¶ml) && !seterr && intty && !tellwhat && !Expand && - !whyles) || adrof(STRverbose)) { - haderr = 1; - prlex(¶ml); - haderr = 0; - } - (void) alarm(0); /* Autologout OFF */ - - /* - * The parser may lose space if interrupted. - */ - if (setintr) -#ifdef BSDSIGS - (void) sigblock(sigmask(SIGINT)); -#else - (void) sighold(SIGINT); -#endif - - /* - * Save input text on the history list if reading in old history, or it - * is from the terminal at the top level and not in a loop. - * - * PWP: entry of items in the history list while in a while loop is done - * elsewhere... - */ - if (enterhist || (catch && intty && !whyles && !tellwhat && !arun)) - savehist(¶ml, enterhist > 1); - - if (Expand && seterr) - Expand = 0; - - /* - * Print lexical error messages, except when sourcing history lists. - */ - if (!enterhist && seterr) - stderror(ERR_OLD); - - /* - * If had a history command :p modifier then this is as far as we - * should go - */ - if (justpr) - reset(); - - /* - * If had a tellwhat from twenex() then do - */ - if (tellwhat) { - (void) tellmewhat(¶ml, NULL); - reset(); - } - - alias(¶ml); - -#ifdef BSDJOBS - /* - * If we are interactive, try to continue jobs that we have stopped - */ - if (prompt) - continue_jobs(¶ml); -#endif /* BSDJOBS */ - - /* - * Check to see if the user typed "rm * .o" or something - */ - if (prompt) - rmstar(¶ml); - /* - * Parse the words of the input into a parse tree. - */ - savet = syntax(paraml.next, ¶ml, 0); - if (seterr) - stderror(ERR_OLD); - - postcmd(); - /* - * Execute the parse tree From: Michael Schroeder - * <mlschroe@immd4.informatik.uni-erlangen.de> was execute(t, tpgrp); - */ - execute(savet, (tpgrp > 0 ? tpgrp : -1), NULL, NULL); - - /* - * Made it! - */ - freelex(¶ml); - freesyn(savet), savet = NULL; -#ifdef SIG_WINDOW - if (catch && intty && !whyles && !tellwhat) - (void) window_change(0); /* for window systems */ -#endif /* SIG_WINDOW */ - set(STR_, Strsave(InputBuf), VAR_READWRITE | VAR_NOGLOB); - } - savet = t; - resexit(osetexit); -} - -/*ARGSUSED*/ -void -dosource(t, c) - register Char **t; - struct command *c; -{ - register Char *f; - bool hflg = 0; - extern int bequiet; - char buf[BUFSIZE]; - - USE(c); - t++; - if (*t && eq(*t, STRmh)) { - if (*++t == NULL) - stderror(ERR_NAME | ERR_HFLAG); - hflg++; - } - else if (*t && eq(*t, STRmm)) { - if (*++t == NULL) - stderror(ERR_NAME | ERR_MFLAG); - hflg = 2; - } - - f = globone(*t++, G_ERROR); - (void) strcpy(buf, short2str(f)); - xfree((ptr_t) f); - if ((!srcfile(buf, 0, hflg, t)) && (!hflg) && (!bequiet)) - stderror(ERR_SYSTEM, buf, strerror(errno)); -} - -/* - * Check for mail. - * If we are a login shell, then we don't want to tell - * about any mail file unless its been modified - * after the time we started. - * This prevents us from telling the user things he already - * knows, since the login program insists on saying - * "You have mail." - */ - -/* - * The AMS version. - * This version checks if the file is a directory, and if so, - * tells you the number of files in it, otherwise do the old thang. - * The magic "+1" in the time calculation is to compensate for - * an AFS bug where directory mtimes are set to 1 second in - * the future. - */ - -static void -mailchk() -{ - register struct varent *v; - register Char **vp; - time_t t; - int intvl, cnt; - struct stat stb; - bool new; - - v = adrof(STRmail); - if (v == 0) - return; - (void) time(&t); - vp = v->vec; - cnt = blklen(vp); - intvl = (cnt && number(*vp)) ? (--cnt, getn(*vp++)) : MAILINTVL; - if (intvl < 1) - intvl = 1; - if (chktim + intvl > t) - return; - for (; *vp; vp++) { - char *filename = short2str(*vp); - char *mboxdir = filename; - - if (stat(filename, &stb) < 0) - continue; -#if defined(BSDTIMES) || defined(_SEQUENT_) - new = stb.st_mtime > time0.tv_sec; -#else - new = stb.st_mtime > seconds0; -#endif - if (S_ISDIR(stb.st_mode)) { - DIR *mailbox; - int mailcount = 0; - char tempfilename[MAXPATHLEN]; - struct stat stc; - - xsnprintf(tempfilename, MAXPATHLEN, "%s/new", filename); - - if (stat(tempfilename, &stc) != -1 && S_ISDIR(stc.st_mode)) { - /* - * "filename/new" exists and is a directory; you are - * using Qmail. - */ - stb = stc; -#if defined(BSDTIMES) || defined(_SEQUENT_) - new = stb.st_mtime > time0.tv_sec; -#else - new = stb.st_mtime > seconds0; -#endif - mboxdir = tempfilename; - } - - if (stb.st_mtime <= chktim + 1 || (loginsh && !new)) - continue; - - if ((mailbox = opendir(mboxdir)) == NULL) - continue; - - /* skip . and .. */ - if (!readdir(mailbox) || !readdir(mailbox)) - continue; - - while (readdir(mailbox)) - mailcount++; - - if (mailcount == 0) - continue; - - if (cnt == 1) - xprintf(CGETS(11, 3, "You have %d mail messages.\n"), - mailcount); - else - xprintf(CGETS(11, 4, "You have %d mail messages in %s.\n"), - mailcount, filename); - } - else { - if (stb.st_size == 0 || stb.st_atime > stb.st_mtime || - (stb.st_atime <= chktim && stb.st_mtime <= chktim) || - (loginsh && !new)) - continue; - if (cnt == 1) - xprintf(CGETS(11, 5, "You have %smail.\n"), - new ? CGETS(11, 6, "new ") : ""); - else - xprintf(CGETS(11, 7, "You have %smail in %s.\n"), - new ? CGETS(11, 6, "new ") : "", filename); - } - } - chktim = t; -} - -/* - * Extract a home directory from the password file - * The argument points to a buffer where the name of the - * user whose home directory is sought is currently. - * We write the home directory of the user back there. - */ -int -gethdir(home) - Char *home; -{ - Char *h; - - /* - * Is it us? - */ - if (*home == '\0') { - if ((h = varval(STRhome)) != STRNULL) { - (void) Strcpy(home, h); - return 0; - } - else - return 1; - } - - /* - * Look in the cache - */ - if ((h = gettilde(home)) == NULL) - return 1; - else { - (void) Strcpy(home, h); - return 0; - } -} - -/* - * Move the initial descriptors to their eventual - * resting places, closing all other units. - */ -void -initdesc() -{ -#ifdef NLS_BUGS -#ifdef NLS_CATALOGS - (void)catclose(catd); -#endif /* NLS_CATALOGS */ -#endif /* NLS_BUGS */ - - - didfds = 0; /* 0, 1, 2 aren't set up */ - (void) close_on_exec(SHIN = dcopy(0, FSHIN), 1); - (void) close_on_exec(SHOUT = dcopy(1, FSHOUT), 1); - (void) close_on_exec(SHDIAG = dcopy(2, FSHDIAG), 1); - (void) close_on_exec(OLDSTD = dcopy(SHIN, FOLDSTD), 1); -#ifndef CLOSE_ON_EXEC - didcch = 0; /* Havent closed for child */ -#endif /* CLOSE_ON_EXEC */ - isdiagatty = isatty(SHDIAG); - isoutatty = isatty(SHOUT); - closem(); -#ifdef NLS_BUGS -#ifdef NLS_CATALOGS - nlsinit(); -#endif /* NLS_CATALOGS */ -#endif /* NLS_BUGS */ -} - - -void -#ifdef PROF -done(i) -#else -xexit(i) -#endif - int i; -{ -#ifdef TESLA - if (loginsh && do_logout) { - /* this is to send hangup signal to the develcon */ - /* we toggle DTR. clear dtr - sleep 1 - set dtr */ - /* ioctl will return ENOTTY for pty's but we ignore it */ - /* exitstat will run after disconnect */ - /* we sleep for 2 seconds to let things happen in */ - /* .logout and rechist() */ -#ifdef TIOCCDTR - (void) sleep(2); - (void) ioctl(FSHTTY, TIOCCDTR, NULL); - (void) sleep(1); - (void) ioctl(FSHTTY, TIOCSDTR, NULL); -#endif /* TIOCCDTR */ - } -#endif /* TESLA */ - - { - struct process *pp, *np; - - /* Kill all processes marked for hup'ing */ - for (pp = proclist.p_next; pp; pp = pp->p_next) { - np = pp; - do - if ((np->p_flags & PHUP) && np->p_jobid != shpgrp) { - if (killpg(np->p_jobid, SIGHUP) != -1) { - /* In case the job was suspended... */ -#ifdef SIGCONT - (void) killpg(np->p_jobid, SIGCONT); -#endif - break; - } - } - while ((np = np->p_friends) != pp); - } - } - untty(); -#ifdef NLS_CATALOGS - /* - * We need to call catclose, because SVR4 leaves symlinks behind otherwise - * in the catalog directories. We cannot close on a vforked() child, - * because messages will stop working on the parent too. - */ - if (child == 0) - (void) catclose(catd); -#endif /* NLS_CATALOGS */ -#ifdef WINNT - nt_cleanup(); -#endif /* WINNT */ - _exit(i); -} - -#ifndef _PATH_DEFPATH -static Char ** -defaultpath() -{ - char *ptr; - Char **blk, **blkp; - struct stat stb; - - blkp = blk = (Char **) xmalloc((size_t) sizeof(Char *) * 10); - -#ifndef NODOT -# ifndef DOTLAST - *blkp++ = Strsave(STRdot); -# endif -#endif - -#define DIRAPPEND(a) \ - if (stat(ptr = a, &stb) == 0 && S_ISDIR(stb.st_mode)) \ - *blkp++ = SAVE(ptr) - -#ifdef _PATH_LOCAL - DIRAPPEND(_PATH_LOCAL); -#endif - -#ifdef _PATH_USRUCB - DIRAPPEND(_PATH_USRUCB); -#endif - -#ifdef _PATH_USRBSD - DIRAPPEND(_PATH_USRBSD); -#endif - -#ifdef _PATH_BIN - DIRAPPEND(_PATH_BIN); -#endif - -#ifdef _PATH_USRBIN - DIRAPPEND(_PATH_USRBIN); -#endif - -#undef DIRAPPEND - -#ifndef NODOT -# ifdef DOTLAST - *blkp++ = Strsave(STRdot); -# endif -#endif - *blkp = NULL; - return (blk); -} -#endif - -static void -record() -{ - if (!fast) { - recdirs(NULL, adrof(STRsavedirs) != NULL); - rechist(NULL, adrof(STRsavehist) != NULL); - } -} diff --git a/contrib/tcsh/sh.char.c b/contrib/tcsh/sh.char.c deleted file mode 100644 index b3cfaf1e9fdb..000000000000 --- a/contrib/tcsh/sh.char.c +++ /dev/null @@ -1,1206 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.char.c,v 3.12 1998/09/18 16:09:06 christos Exp $ */ -/* - * sh.char.c: Character classification tables - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.char.c,v 3.12 1998/09/18 16:09:06 christos Exp $") - -#include "sh.char.h" - -#if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE) -/* on default same as original map */ -unsigned short _cmap[256] = { -/* 0 nul 1 soh 2 stx 3 etx */ - _CTR, _CTR, _CTR, _CTR, - -/* 4 eot 5 enq 6 ack 7 bel */ - _CTR, _CTR, _CTR, _CTR, - -/* 8 bs 9 ht 10 nl 11 vt */ - _CTR, _CTR|_SP|_META, _CTR|_NL|_META, _CTR, - -/* 12 np 13 cr 14 so 15 si */ - _CTR, _CTR, _CTR, _CTR, - -/* 16 dle 17 dc1 18 dc2 19 dc3 */ - _CTR, _CTR, _CTR, _CTR, - -/* 20 dc4 21 nak 22 syn 23 etb */ - _CTR, _CTR, _CTR, _CTR, - -/* 24 can 25 em 26 sub 27 esc */ - _CTR, _CTR, _CTR, _CTR, - -/* 28 fs 29 gs 30 rs 31 us */ - _CTR, _CTR, _CTR, _CTR, - -/* 32 sp 33 ! 34 " 35 # */ - _SP|_META, _PUN, _QF|_PUN, _META|_PUN, - -/* 36 $ 37 % 38 & 39 ' */ - _DOL|_PUN, _PUN, _META|_CMD|_PUN,_QF|_PUN, - -/* 40 ( 41 ) 42 * 43 + */ - _META|_CMD|_PUN,_META|_PUN, _GLOB|_PUN, _PUN, - -/* 44 , 45 - 46 . 47 / */ - _PUN, _PUN, _PUN, _PUN, - -/* 48 0 49 1 50 2 51 3 */ - _DIG|_XD, _DIG|_XD, _DIG|_XD, _DIG|_XD, - -/* 52 4 53 5 54 6 55 7 */ - _DIG|_XD, _DIG|_XD, _DIG|_XD, _DIG|_XD, - -/* 56 8 57 9 58 : 59 ; */ - _DIG|_XD, _DIG|_XD, _PUN, _META|_CMD|_PUN, - -/* 60 < 61 = 62 > 63 ? */ - _META|_PUN, _PUN, _META|_PUN, _GLOB|_PUN, - -/* 64 @ 65 A 66 B 67 C */ - _PUN, _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP|_XD, - -/* 68 D 69 E 70 F 71 G */ - _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP, - -/* 72 H 73 I 74 J 75 K */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 76 L 77 M 78 N 79 O */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 80 P 81 Q 82 R 83 S */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 84 T 85 U 86 V 87 W */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 88 X 89 Y 90 Z 91 [ */ - _LET|_UP, _LET|_UP, _LET|_UP, _GLOB|_PUN, - -/* 92 \ 93 ] 94 ^ 95 _ */ - _ESC|_PUN, _PUN, _PUN, _PUN, - -/* 96 ` 97 a 98 b 99 c */ - _QB|_GLOB|_META|_PUN, _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW|_XD, - -/* 100 d 101 e 102 f 103 g */ - _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW, - -/* 104 h 105 i 106 j 107 k */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 108 l 109 m 110 n 111 o */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 112 p 113 q 114 r 115 s */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 116 t 117 u 118 v 119 w */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 120 x 121 y 122 z 123 { */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _GLOB|_PUN, - -/* 124 | 125 } 126 ~ 127 del */ - _META|_CMD|_PUN,_PUN, _PUN, _CTR, - -/****************************************************************/ -/* 128 - 255 The below is supposedly ISO 8859/1 */ -/****************************************************************/ -/* 128 (undef) 129 (undef) 130 (undef) 131 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 132 (undef) 133 (undef) 134 (undef) 135 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 136 (undef) 137 (undef) 138 (undef) 139 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 140 (undef) 141 (undef) 142 (undef) 143 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 144 (undef) 145 (undef) 146 (undef) 147 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 148 (undef) 149 (undef) 150 (undef) 151 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 152 (undef) 153 (undef) 154 (undef) 155 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 156 (undef) 157 (undef) 158 (undef) 159 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 160 nobreakspace 161 exclamdown 162 cent 163 sterling */ - _PUN, /* XXX */ _PUN, _PUN, _PUN, - -/* 164 currency 165 yen 166 brokenbar 167 section */ - _PUN, _PUN, _PUN, _PUN, - -/* 168 diaeresis 169 copyright 170 ordfeminine 171 guillemotleft*/ - _PUN, _PUN, _PUN, _PUN, - -/* 172 notsign 173 hyphen 174 registered 175 macron */ - _PUN, _PUN, _PUN, _PUN, - -/* 176 degree 177 plusminus 178 twosuperior 179 threesuperior*/ - _PUN, _PUN, _PUN, _PUN, - -/* 180 acute 181 mu 182 paragraph 183 periodcentered*/ - _PUN, _PUN, /*XXX*/ _PUN, _PUN, - -/* 184 cedilla 185 onesuperior 186 masculine 187 guillemotright*/ - _PUN, _PUN, _PUN, _PUN, - -/* 188 onequarter 189 onehalf 190 threequarters 191 questiondown*/ - _PUN, _PUN, _PUN, _PUN, - -/* 192 Agrave 193 Aacute 194 Acircumflex 195 Atilde */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 196 Adiaeresis 197 Aring 198 AE 199 Ccedilla */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 200 Egrave 201 Eacute 202 Ecircumflex 203 Ediaeresis */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 204 Igrave 205 Iacute 206 Icircumflex 207 Idiaeresis */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 208 ETH 209 Ntilde 210 Ograve 211 Oacute */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 212 Ocircumflex 213 Otilde 214 Odiaeresis 215 multiply */ - _LET|_UP, _LET|_UP, _LET|_UP, _PUN, - -/* 216 Ooblique 217 Ugrave 218 Uacute 219 Ucircumflex */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 220 Udiaeresis 221 Yacute 222 THORN 223 ssharp */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_DOW, - -/* 224 agrave 225 aacute 226 acircumflex 227 atilde */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 228 adiaeresis 229 aring 230 ae 231 ccedilla */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 232 egrave 233 eacute 234 ecircumflex 235 ediaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 236 igrave 237 iacute 238 icircumflex 239 idiaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 240 eth 241 ntilde 242 ograve 243 oacute */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 244 ocircumflex 245 otilde 246 odiaeresis 247 division */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _PUN, - -/* 248 oslash 249 ugrave 250 uacute 251 ucircumflex */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 252 udiaeresis 253 yacute 254 thorn 255 ydiaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, -}; -/* original table */ -unsigned short _cmap_c[256] = { -/* 0 nul 1 soh 2 stx 3 etx */ - _CTR, _CTR, _CTR, _CTR, - -/* 4 eot 5 enq 6 ack 7 bel */ - _CTR, _CTR, _CTR, _CTR, - -/* 8 bs 9 ht 10 nl 11 vt */ - _CTR, _CTR|_SP|_META, _CTR|_NL|_META, _CTR, - -/* 12 np 13 cr 14 so 15 si */ - _CTR, _CTR, _CTR, _CTR, - -/* 16 dle 17 dc1 18 dc2 19 dc3 */ - _CTR, _CTR, _CTR, _CTR, - -/* 20 dc4 21 nak 22 syn 23 etb */ - _CTR, _CTR, _CTR, _CTR, - -/* 24 can 25 em 26 sub 27 esc */ - _CTR, _CTR, _CTR, _CTR, - -/* 28 fs 29 gs 30 rs 31 us */ - _CTR, _CTR, _CTR, _CTR, - -/* 32 sp 33 ! 34 " 35 # */ - _SP|_META, _PUN, _QF|_PUN, _META|_PUN, - -/* 36 $ 37 % 38 & 39 ' */ - _DOL|_PUN, _PUN, _META|_CMD|_PUN,_QF|_PUN, - -/* 40 ( 41 ) 42 * 43 + */ - _META|_CMD|_PUN,_META|_PUN, _GLOB|_PUN, _PUN, - -/* 44 , 45 - 46 . 47 / */ - _PUN, _PUN, _PUN, _PUN, - -/* 48 0 49 1 50 2 51 3 */ - _DIG|_XD, _DIG|_XD, _DIG|_XD, _DIG|_XD, - -/* 52 4 53 5 54 6 55 7 */ - _DIG|_XD, _DIG|_XD, _DIG|_XD, _DIG|_XD, - -/* 56 8 57 9 58 : 59 ; */ - _DIG|_XD, _DIG|_XD, _PUN, _META|_CMD|_PUN, - -/* 60 < 61 = 62 > 63 ? */ - _META|_PUN, _PUN, _META|_PUN, _GLOB|_PUN, - -/* 64 @ 65 A 66 B 67 C */ - _PUN, _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP|_XD, - -/* 68 D 69 E 70 F 71 G */ - _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP, - -/* 72 H 73 I 74 J 75 K */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 76 L 77 M 78 N 79 O */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 80 P 81 Q 82 R 83 S */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 84 T 85 U 86 V 87 W */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 88 X 89 Y 90 Z 91 [ */ - _LET|_UP, _LET|_UP, _LET|_UP, _GLOB|_PUN, - -/* 92 \ 93 ] 94 ^ 95 _ */ - _ESC|_PUN, _PUN, _PUN, _PUN, - -/* 96 ` 97 a 98 b 99 c */ - _QB|_GLOB|_META|_PUN, _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW|_XD, - -/* 100 d 101 e 102 f 103 g */ - _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW, - -/* 104 h 105 i 106 j 107 k */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 108 l 109 m 110 n 111 o */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 112 p 113 q 114 r 115 s */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 116 t 117 u 118 v 119 w */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 120 x 121 y 122 z 123 { */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _GLOB|_PUN, - -/* 124 | 125 } 126 ~ 127 del */ - _META|_CMD|_PUN,_PUN, _PUN, _CTR, - -/****************************************************************/ -/* 128 - 255 The below is supposedly ISO 8859/1 */ -/****************************************************************/ -/* 128 (undef) 129 (undef) 130 (undef) 131 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 132 (undef) 133 (undef) 134 (undef) 135 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 136 (undef) 137 (undef) 138 (undef) 139 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 140 (undef) 141 (undef) 142 (undef) 143 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 144 (undef) 145 (undef) 146 (undef) 147 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 148 (undef) 149 (undef) 150 (undef) 151 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 152 (undef) 153 (undef) 154 (undef) 155 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 156 (undef) 157 (undef) 158 (undef) 159 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 160 nobreakspace 161 exclamdown 162 cent 163 sterling */ - _PUN, /* XXX */ _PUN, _PUN, _PUN, - -/* 164 currency 165 yen 166 brokenbar 167 section */ - _PUN, _PUN, _PUN, _PUN, - -/* 168 diaeresis 169 copyright 170 ordfeminine 171 guillemotleft*/ - _PUN, _PUN, _PUN, _PUN, - -/* 172 notsign 173 hyphen 174 registered 175 macron */ - _PUN, _PUN, _PUN, _PUN, - -/* 176 degree 177 plusminus 178 twosuperior 179 threesuperior*/ - _PUN, _PUN, _PUN, _PUN, - -/* 180 acute 181 mu 182 paragraph 183 periodcentered*/ - _PUN, _PUN, /*XXX*/ _PUN, _PUN, - -/* 184 cedilla 185 onesuperior 186 masculine 187 guillemotright*/ - _PUN, _PUN, _PUN, _PUN, - -/* 188 onequarter 189 onehalf 190 threequarters 191 questiondown*/ - _PUN, _PUN, _PUN, _PUN, - -/* 192 Agrave 193 Aacute 194 Acircumflex 195 Atilde */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 196 Adiaeresis 197 Aring 198 AE 199 Ccedilla */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 200 Egrave 201 Eacute 202 Ecircumflex 203 Ediaeresis */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 204 Igrave 205 Iacute 206 Icircumflex 207 Idiaeresis */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 208 ETH 209 Ntilde 210 Ograve 211 Oacute */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 212 Ocircumflex 213 Otilde 214 Odiaeresis 215 multiply */ - _LET|_UP, _LET|_UP, _LET|_UP, _PUN, - -/* 216 Ooblique 217 Ugrave 218 Uacute 219 Ucircumflex */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 220 Udiaeresis 221 Yacute 222 THORN 223 ssharp */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_DOW, - -/* 224 agrave 225 aacute 226 acircumflex 227 atilde */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 228 adiaeresis 229 aring 230 ae 231 ccedilla */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 232 egrave 233 eacute 234 ecircumflex 235 ediaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 236 igrave 237 iacute 238 icircumflex 239 idiaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 240 eth 241 ntilde 242 ograve 243 oacute */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 244 ocircumflex 245 otilde 246 odiaeresis 247 division */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _PUN, - -/* 248 oslash 249 ugrave 250 uacute 251 ucircumflex */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 252 udiaeresis 253 yacute 254 thorn 255 ydiaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, -}; - -/* multi-byte table */ -/* BY Masaaki Koyanagi VERY THANKS */ -unsigned short _cmap_mbyte[256] = { -/* 0 nul 1 soh 2 stx 3 etx */ - _CTR, _CTR, _CTR, _CTR, - -/* 4 eot 5 enq 6 ack 7 bel */ - _CTR, _CTR, _CTR, _CTR, - -/* 8 bs 9 ht 10 nl 11 vt */ - _CTR, _CTR|_SP|_META, _CTR|_NL|_META, _CTR, - -/* 12 np 13 cr 14 so 15 si */ - _CTR, _CTR, _CTR, _CTR, - -/* 16 dle 17 dc1 18 dc2 19 dc3 */ - _CTR, _CTR, _CTR, _CTR, - -/* 20 dc4 21 nak 22 syn 23 etb */ - _CTR, _CTR, _CTR, _CTR, - -/* 24 can 25 em 26 sub 27 esc */ - _CTR, _CTR, _CTR, _CTR, - -/* 28 fs 29 gs 30 rs 31 us */ - _CTR, _CTR, _CTR, _CTR, - -/* 32 sp 33 ! 34 " 35 # */ - _SP|_META, _PUN, _QF|_PUN, _META|_PUN, - -/* 36 $ 37 % 38 & 39 ' */ - _DOL|_PUN, _PUN, _META|_CMD|_PUN,_QF|_PUN, - -/* 40 ( 41 ) 42 * 43 + */ - _META|_CMD|_PUN,_META|_PUN, _GLOB|_PUN, _PUN, - -/* 44 , 45 - 46 . 47 / */ - _PUN, _PUN, _PUN, _PUN, - -/* 48 0 49 1 50 2 51 3 */ - _DIG|_XD, _DIG|_XD, _DIG|_XD, _DIG|_XD, - -/* 52 4 53 5 54 6 55 7 */ - _DIG|_XD, _DIG|_XD, _DIG|_XD, _DIG|_XD, - -/* 56 8 57 9 58 : 59 ; */ - _DIG|_XD, _DIG|_XD, _PUN, _META|_CMD|_PUN, - -/* 60 < 61 = 62 > 63 ? */ - _META|_PUN, _PUN, _META|_PUN, _GLOB|_PUN, - -/* 64 @ 65 A 66 B 67 C */ - _PUN, _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP|_XD, - -/* 68 D 69 E 70 F 71 G */ - _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP, - -/* 72 H 73 I 74 J 75 K */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 76 L 77 M 78 N 79 O */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 80 P 81 Q 82 R 83 S */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 84 T 85 U 86 V 87 W */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 88 X 89 Y 90 Z 91 [ */ - _LET|_UP, _LET|_UP, _LET|_UP, _GLOB|_PUN, - -/* 92 \ 93 ] 94 ^ 95 _ */ - _ESC|_PUN, _PUN, _PUN, _PUN, - -/* 96 ` 97 a 98 b 99 c */ - _QB|_GLOB|_META|_PUN, _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW|_XD, - -/* 100 d 101 e 102 f 103 g */ - _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW, - -/* 104 h 105 i 106 j 107 k */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 108 l 109 m 110 n 111 o */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 112 p 113 q 114 r 115 s */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 116 t 117 u 118 v 119 w */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 120 x 121 y 122 z 123 { */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _GLOB|_PUN, - -/* 124 | 125 } 126 ~ 127 del */ - _META|_CMD|_PUN,_PUN, _PUN, _CTR, - -/****************************************************************/ -/* 128 - 255 The below is supposedly ISO 8859/1 */ -/****************************************************************/ -/* 128 (undef) 129 (undef) 130 (undef) 131 (undef) */ - _PUN, _PUN, _PUN, _PUN, - -/* 132 (undef) 133 (undef) 134 (undef) 135 (undef) */ - _PUN, _PUN, _PUN, _PUN, - -/* 136 (undef) 137 (undef) 138 (undef) 139 (undef) */ - _PUN, _PUN, _PUN, _PUN, - -/* 140 (undef) 141 (undef) 142 (undef) 143 (undef) */ - _PUN, _PUN, _PUN, _PUN, - -/* 144 (undef) 145 (undef) 146 (undef) 147 (undef) */ - _PUN, _PUN, _PUN, _PUN, - -/* 148 (undef) 149 (undef) 150 (undef) 151 (undef) */ - _PUN, _PUN, _PUN, _PUN, - -/* 152 (undef) 153 (undef) 154 (undef) 155 (undef) */ - _PUN, _PUN, _PUN, _PUN, - -/* 156 (undef) 157 (undef) 158 (undef) 159 (undef) */ - _PUN, _PUN, _PUN, _PUN, - -/* 160 nobreakspace 161 exclamdown 162 cent 163 sterling */ - _PUN, /* XXX */ _PUN, _PUN, _PUN, - -/* 164 currency 165 yen 166 brokenbar 167 section */ - _PUN, _PUN, _PUN, _PUN, - -/* 168 diaeresis 169 copyright 170 ordfeminine 171 guillemotleft*/ - _PUN, _PUN, _PUN, _PUN, - -/* 172 notsign 173 hyphen 174 registered 175 macron */ - _PUN, _PUN, _PUN, _PUN, - -/* 176 degree 177 plusminus 178 twosuperior 179 threesuperior*/ - _PUN, _PUN, _PUN, _PUN, - -/* 180 acute 181 mu 182 paragraph 183 periodcentered*/ - _PUN, _PUN, /*XXX*/ _PUN, _PUN, - -/* 184 cedilla 185 onesuperior 186 masculine 187 guillemotright*/ - _PUN, _PUN, _PUN, _PUN, - -/* 188 onequarter 189 onehalf 190 threequarters 191 questiondown*/ - _PUN, _PUN, _PUN, _PUN, - -/* 192 Agrave 193 Aacute 194 Acircumflex 195 Atilde */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 196 Adiaeresis 197 Aring 198 AE 199 Ccedilla */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 200 Egrave 201 Eacute 202 Ecircumflex 203 Ediaeresis */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 204 Igrave 205 Iacute 206 Icircumflex 207 Idiaeresis */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 208 ETH 209 Ntilde 210 Ograve 211 Oacute */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 212 Ocircumflex 213 Otilde 214 Odiaeresis 215 multiply */ - _LET|_UP, _LET|_UP, _LET|_UP, _PUN, - -/* 216 Ooblique 217 Ugrave 218 Uacute 219 Ucircumflex */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 220 Udiaeresis 221 Yacute 222 THORN 223 ssharp */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_DOW, - -/* 224 agrave 225 aacute 226 acircumflex 227 atilde */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 228 adiaeresis 229 aring 230 ae 231 ccedilla */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 232 egrave 233 eacute 234 ecircumflex 235 ediaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 236 igrave 237 iacute 238 icircumflex 239 idiaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 240 eth 241 ntilde 242 ograve 243 oacute */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 244 ocircumflex 245 otilde 246 odiaeresis 247 division */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _PUN, - -/* 248 oslash 249 ugrave 250 uacute 251 ucircumflex */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 252 udiaeresis 253 yacute 254 thorn 255 ydiaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, -}; - -short _enable_mbdisp = 0; /* control multi-byte 0...disable 1...enable */ - -/* multi-byte check table */ -/* default = all 0 (clear process in update_vars()/unset()) */ -unsigned short _mbmap[256]; - -unsigned short _mbmap_euc[256] = { -/* first byte 0x8e,0xa0 - 0xf4 */ -/* second byte 0xa0 - 0xfe */ -/* 0 - 7f all 0 */ - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -/* 80 81 82 83 */ - 0, 0, 0, 0, -/* 84 85 86 87 */ - 0, 0, 0, 0, -/* 88 89 8a 8b */ - 0, 0, 0, 0, -/* 8c 8d 8e 8f */ - 0, 0, _MB1, 0, -/* 90 - 9f all 0 */ - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -/* a0 a1 a2 a3 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* a4 a5 a6 a7 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* a8 a9 aa ab */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* ac ad ae af */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* b0 b1 b2 b3 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* b4 b5 b6 b7 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* b8 b9 ba bb */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* bc bd be bf */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* c0 c1 c2 c3 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* c4 c5 c6 c7 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* c8 c9 ca cb */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* cc cd ce cf */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* d0 d1 d2 d3 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* d4 d5 d6 d7 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* d8 d9 da db */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* dc dd de df */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* e0 e1 e2 e3 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* e4 e5 e6 e7 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* e8 e9 ea eb */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* ec ed ee ef */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* f0 f1 f2 f3 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* f4 f5 f6 f7 */ - _MB1|_MB2, _MB2, _MB2, _MB2, -/* f8 f9 fa fb */ - _MB2, _MB2, _MB2, _MB2, -/* fc fd fe ff */ - _MB2, _MB2, _MB2, 0, -}; - -unsigned short _mbmap_sjis[256] = { -/* first byte 0x81-0x9f,0xe0 - 0xfc */ -/* second byte 0x40-0x7e,0x80 - 0xfc */ -/* 0 - 3f all 0 */ - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -/* 40 41 42 43 */ - _MB2, _MB2, _MB2, _MB2, -/* 44 45 46 47 */ - _MB2, _MB2, _MB2, _MB2, -/* 48 49 4a 4b */ - _MB2, _MB2, _MB2, _MB2, -/* 4c 4d 4e 4f */ - _MB2, _MB2, _MB2, _MB2, -/* 50 51 52 53 */ - _MB2, _MB2, _MB2, _MB2, -/* 54 55 56 57 */ - _MB2, _MB2, _MB2, _MB2, -/* 58 59 5a 5b */ - _MB2, _MB2, _MB2, _MB2, -/* 5c 5d 5e 5f */ - _MB2, _MB2, _MB2, _MB2, -/* 60 61 62 63 */ - _MB2, _MB2, _MB2, _MB2, -/* 64 65 66 67 */ - _MB2, _MB2, _MB2, _MB2, -/* 68 69 6a 6b */ - _MB2, _MB2, _MB2, _MB2, -/* 6c 6d 6e 6f */ - _MB2, _MB2, _MB2, _MB2, -/* 70 71 72 73 */ - _MB2, _MB2, _MB2, _MB2, -/* 74 75 76 77 */ - _MB2, _MB2, _MB2, _MB2, -/* 78 79 7a 7b */ - _MB2, _MB2, _MB2, _MB2, -/* 7c 7d 7e 7f */ - _MB2, _MB2, _MB2, 0, -/* 80 81 82 83 */ - _MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* 84 85 86 87 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* 88 89 8a 8b */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* 8c 8d 8e 8f */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* 90 91 92 93 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* 94 95 96 97 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* 98 99 9a 9b */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* 9c 9d 9e 9f */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* a0 a1 a2 a3 */ - _MB2, _MB2, _MB2, _MB2, -/* a4 a5 a6 a7 */ - _MB2, _MB2, _MB2, _MB2, -/* a8 a9 aa ab */ - _MB2, _MB2, _MB2, _MB2, -/* ac ad ae af */ - _MB2, _MB2, _MB2, _MB2, -/* b0 b1 b2 b3 */ - _MB2, _MB2, _MB2, _MB2, -/* b4 b5 b6 b7 */ - _MB2, _MB2, _MB2, _MB2, -/* b8 b9 ba bb */ - _MB2, _MB2, _MB2, _MB2, -/* bc bd be bf */ - _MB2, _MB2, _MB2, _MB2, -/* c0 c1 c2 c3 */ - _MB2, _MB2, _MB2, _MB2, -/* c4 c5 c6 c7 */ - _MB2, _MB2, _MB2, _MB2, -/* c8 c9 ca cb */ - _MB2, _MB2, _MB2, _MB2, -/* cc cd ce cf */ - _MB2, _MB2, _MB2, _MB2, -/* d0 d1 d2 d3 */ - _MB2, _MB2, _MB2, _MB2, -/* d4 d5 d6 d7 */ - _MB2, _MB2, _MB2, _MB2, -/* d8 d9 da db */ - _MB2, _MB2, _MB2, _MB2, -/* dc dd de df */ - _MB2, _MB2, _MB2, _MB2, -/* e0 e1 e2 e3 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* e4 e5 e6 e7 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* e8 e9 ea eb */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* ec ed ee ef */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* f0 f1 f2 f3 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* f4 f5 f6 f7 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* f8 f9 fa fb */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, -/* fc fd fe ff */ - _MB1|_MB2, 0, 0, 0, -}; - -#else /* !(defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE)) */ -unsigned short _cmap[256] = { -/* 0 nul 1 soh 2 stx 3 etx */ - _CTR, _CTR, _CTR, _CTR, - -/* 4 eot 5 enq 6 ack 7 bel */ - _CTR, _CTR, _CTR, _CTR, - -/* 8 bs 9 ht 10 nl 11 vt */ - _CTR, _CTR|_SP|_META, _CTR|_NL|_META, _CTR, - -/* 12 np 13 cr 14 so 15 si */ - _CTR, _CTR, _CTR, _CTR, - -/* 16 dle 17 dc1 18 dc2 19 dc3 */ - _CTR, _CTR, _CTR, _CTR, - -/* 20 dc4 21 nak 22 syn 23 etb */ - _CTR, _CTR, _CTR, _CTR, - -/* 24 can 25 em 26 sub 27 esc */ - _CTR, _CTR, _CTR, _CTR, - -/* 28 fs 29 gs 30 rs 31 us */ - _CTR, _CTR, _CTR, _CTR, - -/* 32 sp 33 ! 34 " 35 # */ - _SP|_META, _PUN, _QF|_PUN, _META|_PUN, - -/* 36 $ 37 % 38 & 39 ' */ - _DOL|_PUN, _PUN, _META|_CMD|_PUN,_QF|_PUN, - -/* 40 ( 41 ) 42 * 43 + */ - _META|_CMD|_PUN,_META|_PUN, _GLOB|_PUN, _PUN, - -/* 44 , 45 - 46 . 47 / */ - _PUN, _PUN, _PUN, _PUN, - -/* 48 0 49 1 50 2 51 3 */ - _DIG|_XD, _DIG|_XD, _DIG|_XD, _DIG|_XD, - -/* 52 4 53 5 54 6 55 7 */ - _DIG|_XD, _DIG|_XD, _DIG|_XD, _DIG|_XD, - -/* 56 8 57 9 58 : 59 ; */ - _DIG|_XD, _DIG|_XD, _PUN, _META|_CMD|_PUN, - -/* 60 < 61 = 62 > 63 ? */ - _META|_PUN, _PUN, _META|_PUN, _GLOB|_PUN, - -/* 64 @ 65 A 66 B 67 C */ - _PUN, _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP|_XD, - -/* 68 D 69 E 70 F 71 G */ - _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP|_XD, _LET|_UP, - -/* 72 H 73 I 74 J 75 K */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 76 L 77 M 78 N 79 O */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 80 P 81 Q 82 R 83 S */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 84 T 85 U 86 V 87 W */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 88 X 89 Y 90 Z 91 [ */ - _LET|_UP, _LET|_UP, _LET|_UP, _GLOB|_PUN, - -/* 92 \ 93 ] 94 ^ 95 _ */ - _ESC|_PUN, _PUN, _PUN, _PUN, - -/* 96 ` 97 a 98 b 99 c */ - _QB|_GLOB|_META|_PUN, _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW|_XD, - -/* 100 d 101 e 102 f 103 g */ - _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW|_XD, _LET|_DOW, - -/* 104 h 105 i 106 j 107 k */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 108 l 109 m 110 n 111 o */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 112 p 113 q 114 r 115 s */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 116 t 117 u 118 v 119 w */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 120 x 121 y 122 z 123 { */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _GLOB|_PUN, - -/* 124 | 125 } 126 ~ 127 del */ - _META|_CMD|_PUN,_PUN, _PUN, _CTR, - -#ifdef SHORT_STRINGS -/****************************************************************/ -/* 128 - 255 The below is supposedly ISO 8859/1 */ -/****************************************************************/ -/* 128 (undef) 129 (undef) 130 (undef) 131 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 132 (undef) 133 (undef) 134 (undef) 135 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 136 (undef) 137 (undef) 138 (undef) 139 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 140 (undef) 141 (undef) 142 (undef) 143 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 144 (undef) 145 (undef) 146 (undef) 147 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 148 (undef) 149 (undef) 150 (undef) 151 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 152 (undef) 153 (undef) 154 (undef) 155 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 156 (undef) 157 (undef) 158 (undef) 159 (undef) */ - _CTR, _CTR, _CTR, _CTR, - -/* 160 nobreakspace 161 exclamdown 162 cent 163 sterling */ - _PUN, /* XXX */ _PUN, _PUN, _PUN, - -/* 164 currency 165 yen 166 brokenbar 167 section */ - _PUN, _PUN, _PUN, _PUN, - -/* 168 diaeresis 169 copyright 170 ordfeminine 171 guillemotleft*/ - _PUN, _PUN, _PUN, _PUN, - -/* 172 notsign 173 hyphen 174 registered 175 macron */ - _PUN, _PUN, _PUN, _PUN, - -/* 176 degree 177 plusminus 178 twosuperior 179 threesuperior*/ - _PUN, _PUN, _PUN, _PUN, - -/* 180 acute 181 mu 182 paragraph 183 periodcentered*/ - _PUN, _PUN, /*XXX*/ _PUN, _PUN, - -/* 184 cedilla 185 onesuperior 186 masculine 187 guillemotright*/ - _PUN, _PUN, _PUN, _PUN, - -/* 188 onequarter 189 onehalf 190 threequarters 191 questiondown*/ - _PUN, _PUN, _PUN, _PUN, - -/* 192 Agrave 193 Aacute 194 Acircumflex 195 Atilde */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 196 Adiaeresis 197 Aring 198 AE 199 Ccedilla */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 200 Egrave 201 Eacute 202 Ecircumflex 203 Ediaeresis */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 204 Igrave 205 Iacute 206 Icircumflex 207 Idiaeresis */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 208 ETH 209 Ntilde 210 Ograve 211 Oacute */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 212 Ocircumflex 213 Otilde 214 Odiaeresis 215 multiply */ - _LET|_UP, _LET|_UP, _LET|_UP, _PUN, - -/* 216 Ooblique 217 Ugrave 218 Uacute 219 Ucircumflex */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_UP, - -/* 220 Udiaeresis 221 Yacute 222 THORN 223 ssharp */ - _LET|_UP, _LET|_UP, _LET|_UP, _LET|_DOW, - -/* 224 agrave 225 aacute 226 acircumflex 227 atilde */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 228 adiaeresis 229 aring 230 ae 231 ccedilla */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 232 egrave 233 eacute 234 ecircumflex 235 ediaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 236 igrave 237 iacute 238 icircumflex 239 idiaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 240 eth 241 ntilde 242 ograve 243 oacute */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 244 ocircumflex 245 otilde 246 odiaeresis 247 division */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _PUN, - -/* 248 oslash 249 ugrave 250 uacute 251 ucircumflex */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, - -/* 252 udiaeresis 253 yacute 254 thorn 255 ydiaeresis */ - _LET|_DOW, _LET|_DOW, _LET|_DOW, _LET|_DOW, -#endif /* SHORT_STRINGS */ -}; -#endif /* defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE) */ - -#ifndef NLS -/* _cmap_lower, _cmap_upper for ISO 8859/1 */ - -unsigned char _cmap_lower[256] = { - 0000, 0001, 0002, 0003, 0004, 0005, 0006, 0007, - 0010, 0011, 0012, 0013, 0014, 0015, 0016, 0017, - 0020, 0021, 0022, 0023, 0024, 0025, 0026, 0027, - 0030, 0031, 0032, 0033, 0034, 0035, 0036, 0037, - 0040, 0041, 0042, 0043, 0044, 0045, 0046, 0047, - 0050, 0051, 0052, 0053, 0054, 0055, 0056, 0057, - 0060, 0061, 0062, 0063, 0064, 0065, 0066, 0067, - 0070, 0071, 0072, 0073, 0074, 0075, 0076, 0077, - 0100, 0141, 0142, 0143, 0144, 0145, 0146, 0147, - 0150, 0151, 0152, 0153, 0154, 0155, 0156, 0157, - 0160, 0161, 0162, 0163, 0164, 0165, 0166, 0167, - 0170, 0171, 0172, 0133, 0134, 0135, 0136, 0137, - 0140, 0141, 0142, 0143, 0144, 0145, 0146, 0147, - 0150, 0151, 0152, 0153, 0154, 0155, 0156, 0157, - 0160, 0161, 0162, 0163, 0164, 0165, 0166, 0167, - 0170, 0171, 0172, 0173, 0174, 0175, 0176, 0177, - 0200, 0201, 0202, 0203, 0204, 0205, 0206, 0207, - 0210, 0211, 0212, 0213, 0214, 0215, 0216, 0217, - 0220, 0221, 0222, 0223, 0224, 0225, 0226, 0227, - 0230, 0231, 0232, 0233, 0234, 0235, 0236, 0237, - 0240, 0241, 0242, 0243, 0244, 0245, 0246, 0247, - 0250, 0251, 0252, 0253, 0254, 0255, 0256, 0257, - 0260, 0261, 0262, 0263, 0264, 0265, 0266, 0267, - 0270, 0271, 0272, 0273, 0274, 0275, 0276, 0277, - 0340, 0341, 0342, 0343, 0344, 0345, 0346, 0347, - 0350, 0351, 0352, 0353, 0354, 0355, 0356, 0357, - 0360, 0361, 0362, 0363, 0364, 0365, 0366, 0327, - 0370, 0371, 0372, 0373, 0374, 0375, 0376, 0337, - 0340, 0341, 0342, 0343, 0344, 0345, 0346, 0347, - 0350, 0351, 0352, 0353, 0354, 0355, 0356, 0357, - 0360, 0361, 0362, 0363, 0364, 0365, 0366, 0367, - 0370, 0371, 0372, 0373, 0374, 0375, 0376, 0377, -}; - -unsigned char _cmap_upper[256] = { - 0000, 0001, 0002, 0003, 0004, 0005, 0006, 0007, - 0010, 0011, 0012, 0013, 0014, 0015, 0016, 0017, - 0020, 0021, 0022, 0023, 0024, 0025, 0026, 0027, - 0030, 0031, 0032, 0033, 0034, 0035, 0036, 0037, - 0040, 0041, 0042, 0043, 0044, 0045, 0046, 0047, - 0050, 0051, 0052, 0053, 0054, 0055, 0056, 0057, - 0060, 0061, 0062, 0063, 0064, 0065, 0066, 0067, - 0070, 0071, 0072, 0073, 0074, 0075, 0076, 0077, - 0100, 0101, 0102, 0103, 0104, 0105, 0106, 0107, - 0110, 0111, 0112, 0113, 0114, 0115, 0116, 0117, - 0120, 0121, 0122, 0123, 0124, 0125, 0126, 0127, - 0130, 0131, 0132, 0133, 0134, 0135, 0136, 0137, - 0140, 0101, 0102, 0103, 0104, 0105, 0106, 0107, - 0110, 0111, 0112, 0113, 0114, 0115, 0116, 0117, - 0120, 0121, 0122, 0123, 0124, 0125, 0126, 0127, - 0130, 0131, 0132, 0173, 0174, 0175, 0176, 0177, - 0200, 0201, 0202, 0203, 0204, 0205, 0206, 0207, - 0210, 0211, 0212, 0213, 0214, 0215, 0216, 0217, - 0220, 0221, 0222, 0223, 0224, 0225, 0226, 0227, - 0230, 0231, 0232, 0233, 0234, 0235, 0236, 0237, - 0240, 0241, 0242, 0243, 0244, 0245, 0246, 0247, - 0250, 0251, 0252, 0253, 0254, 0255, 0256, 0257, - 0260, 0261, 0262, 0263, 0264, 0265, 0266, 0267, - 0270, 0271, 0272, 0273, 0274, 0275, 0276, 0277, - 0300, 0301, 0302, 0303, 0304, 0305, 0306, 0307, - 0310, 0311, 0312, 0313, 0314, 0315, 0316, 0317, - 0320, 0321, 0322, 0323, 0324, 0325, 0326, 0327, - 0330, 0331, 0332, 0333, 0334, 0335, 0336, 0337, - 0300, 0301, 0302, 0303, 0304, 0305, 0306, 0307, - 0310, 0311, 0312, 0313, 0314, 0315, 0316, 0317, - 0320, 0321, 0322, 0323, 0324, 0325, 0326, 0367, - 0330, 0331, 0332, 0333, 0334, 0335, 0336, 0377, -}; -#endif /* NLS */ - -#ifdef _OSD_POSIX -/* - Initial Port for tcsh-6.07.04 by <Martin.Kraemer@Mch.SNI.De> - -"BS2000 OSD" is a POSIX on a main frame. -It is made by Siemens Nixdorf AG, Germany. -Within the POSIX subsystem, the same character set was chosen as in -"native BS2000", namely EBCDIC. Yes, tcsh now runs on EBCDIC platforms, too. - -EBCDIC Table. (Yes, in EBCDIC, the letters 'a'..'z' are not contiguous!) -This table is bijective, i.e. there are no ambigous or duplicate characters -00 00 01 02 03 85 09 86 7f 87 8d 8e 0b 0c 0d 0e 0f * ................ * -10 10 11 12 13 8f 0a 08 97 18 19 9c 9d 1c 1d 1e 1f * ................ * -20 80 81 82 83 84 92 17 1b 88 89 8a 8b 8c 05 06 07 * ................ * -30 90 91 16 93 94 95 96 04 98 99 9a 9b 14 15 9e 1a * ................ * -40 20 a0 e2 e4 e0 e1 e3 e5 e7 f1 60 2e 3c 28 2b 7c * .........`.<(+| * -50 26 e9 ea eb e8 ed ee ef ec df 21 24 2a 29 3b 9f * &.........!$*);. * -60 2d 2f c2 c4 c0 c1 c3 c5 c7 d1 5e 2c 25 5f 3e 3f * -/........^,%_>? * -70 f8 c9 ca cb c8 cd ce cf cc a8 3a 23 40 27 3d 22 * ..........:#@'=" * -80 d8 61 62 63 64 65 66 67 68 69 ab bb f0 fd fe b1 * .abcdefghi...... * -90 b0 6a 6b 6c 6d 6e 6f 70 71 72 aa ba e6 b8 c6 a4 * .jklmnopqr...... * -a0 b5 af 73 74 75 76 77 78 79 7a a1 bf d0 dd de ae * ..stuvwxyz...... * -b0 a2 a3 a5 b7 a9 a7 b6 bc bd be ac 5b 5c 5d b4 d7 * ...........[\].. * -c0 f9 41 42 43 44 45 46 47 48 49 ad f4 f6 f2 f3 f5 * .ABCDEFGHI...... * -d0 a6 4a 4b 4c 4d 4e 4f 50 51 52 b9 fb fc db fa ff * .JKLMNOPQR...... * -e0 d9 f7 53 54 55 56 57 58 59 5a b2 d4 d6 d2 d3 d5 * ..STUVWXYZ...... * -f0 30 31 32 33 34 35 36 37 38 39 b3 7b dc 7d da 7e * 0123456789.{.}.~ * -*/ -unsigned short _toascii[256] = { -/*00*/ 0x00, 0x01, 0x02, 0x03, 0x85, 0x09, 0x86, 0x7f, - 0x87, 0x8d, 0x8e, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, /* ................ */ -/*10*/ 0x10, 0x11, 0x12, 0x13, 0x8f, 0x0a, 0x08, 0x97, - 0x18, 0x19, 0x9c, 0x9d, 0x1c, 0x1d, 0x1e, 0x1f, /* ................ */ -/*20*/ 0x80, 0x81, 0x82, 0x83, 0x84, 0x92, 0x17, 0x1b, - 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x05, 0x06, 0x07, /* ................ */ -/*30*/ 0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04, - 0x98, 0x99, 0x9a, 0x9b, 0x14, 0x15, 0x9e, 0x1a, /* ................ */ -/*40*/ 0x20, 0xa0, 0xe2, 0xe4, 0xe0, 0xe1, 0xe3, 0xe5, - 0xe7, 0xf1, 0x60, 0x2e, 0x3c, 0x28, 0x2b, 0x7c, /* .........`.<(+| */ -/*50*/ 0x26, 0xe9, 0xea, 0xeb, 0xe8, 0xed, 0xee, 0xef, - 0xec, 0xdf, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x9f, /* &.........!$*);. */ -/*60*/ 0x2d, 0x2f, 0xc2, 0xc4, 0xc0, 0xc1, 0xc3, 0xc5, - 0xc7, 0xd1, 0x5e, 0x2c, 0x25, 0x5f, 0x3e, 0x3f, /* -/........^,%_>? */ -/*70*/ 0xf8, 0xc9, 0xca, 0xcb, 0xc8, 0xcd, 0xce, 0xcf, - 0xcc, 0xa8, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22, /* ..........:#@'=" */ -/*80*/ 0xd8, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, - 0x68, 0x69, 0xab, 0xbb, 0xf0, 0xfd, 0xfe, 0xb1, /* .abcdefghi...... */ -/*90*/ 0xb0, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70, - 0x71, 0x72, 0xaa, 0xba, 0xe6, 0xb8, 0xc6, 0xa4, /* .jklmnopqr...... */ -/*a0*/ 0xb5, 0xaf, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, - 0x79, 0x7a, 0xa1, 0xbf, 0xd0, 0xdd, 0xde, 0xae, /* ..stuvwxyz...... */ -/*b0*/ 0xa2, 0xa3, 0xa5, 0xb7, 0xa9, 0xa7, 0xb6, 0xbc, - 0xbd, 0xbe, 0xac, 0x5b, 0x5c, 0x5d, 0xb4, 0xd7, /* ...........[\].. */ -/*c0*/ 0xf9, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, - 0x48, 0x49, 0xad, 0xf4, 0xf6, 0xf2, 0xf3, 0xf5, /* .ABCDEFGHI...... */ -/*d0*/ 0xa6, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50, - 0x51, 0x52, 0xb9, 0xfb, 0xfc, 0xdb, 0xfa, 0xff, /* .JKLMNOPQR...... */ -/*e0*/ 0xd9, 0xf7, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, - 0x59, 0x5a, 0xb2, 0xd4, 0xd6, 0xd2, 0xd3, 0xd5, /* ..STUVWXYZ...... */ -/*f0*/ 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, - 0x38, 0x39, 0xb3, 0x7b, 0xdc, 0x7d, 0xda, 0x7e /* 0123456789.{.}.~ */ -}; -/* The same, for ascii-in-ebcdic -00 00 01 02 03 37 2d 2e 2f 16 05 15 0b 0c 0d 0e 0f * ................ * -10 10 11 12 13 3c 3d 32 26 18 19 3f 27 1c 1d 1e 1f * ................ * -20 40 5a 7f 7b 5b 6c 50 7d 4d 5d 5c 4e 6b 60 4b 61 * !"#$%&'()*+,-./ * -30 f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 7a 5e 4c 7e 6e 6f * 0123456789:;<=>? * -40 7c c1 c2 c3 c4 c5 c6 c7 c8 c9 d1 d2 d3 d4 d5 d6 * @ABCDEFGHIJKLMNO * -50 d7 d8 d9 e2 e3 e4 e5 e6 e7 e8 e9 bb bc bd 6a 6d * PQRSTUVWXYZ[\]^_ * -60 4a 81 82 83 84 85 86 87 88 89 91 92 93 94 95 96 * `abcdefghijklmno * -70 97 98 99 a2 a3 a4 a5 a6 a7 a8 a9 fb 4f fd ff 07 * pqrstuvwxyz{|}~. * -80 20 21 22 23 24 04 06 08 28 29 2a 2b 2c 09 0a 14 * ................ * -90 30 31 25 33 34 35 36 17 38 39 3a 3b 1a 1b 3e 5f * ................ * -a0 41 aa b0 b1 9f b2 d0 b5 79 b4 9a 8a ba ca af a1 * ................ * -b0 90 8f ea fa be a0 b6 b3 9d da 9b 8b b7 b8 b9 ab * ................ * -c0 64 65 62 66 63 67 9e 68 74 71 72 73 78 75 76 77 * ................ * -d0 ac 69 ed ee eb ef ec bf 80 e0 fe dd fc ad ae 59 * ................ * -e0 44 45 42 46 43 47 9c 48 54 51 52 53 58 55 56 57 * ................ * -f0 8c 49 cd ce cb cf cc e1 70 c0 de db dc 8d 8e df * ................ * -*/ -unsigned short _toebcdic[256] = { -/*00*/ 0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f, - 0x16, 0x05, 0x15, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, /* ................ */ -/*10*/ 0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26, - 0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f, /* ................ */ -/*20*/ 0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d, - 0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61, /* !"#$%&'()*+,-./ */ -/*30*/ 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, - 0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f, /* 0123456789:;<=>? */ -/*40*/ 0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, - 0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, /* @ABCDEFGHIJKLMNO */ -/*50*/ 0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, - 0xe7, 0xe8, 0xe9, 0xbb, 0xbc, 0xbd, 0x6a, 0x6d, /* PQRSTUVWXYZ[\]^_ */ -/*60*/ 0x4a, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, - 0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, /* `abcdefghijklmno */ -/*70*/ 0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, - 0xa7, 0xa8, 0xa9, 0xfb, 0x4f, 0xfd, 0xff, 0x07, /* pqrstuvwxyz{|}~. */ -/*80*/ 0x20, 0x21, 0x22, 0x23, 0x24, 0x04, 0x06, 0x08, - 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x09, 0x0a, 0x14, /* ................ */ -/*90*/ 0x30, 0x31, 0x25, 0x33, 0x34, 0x35, 0x36, 0x17, - 0x38, 0x39, 0x3a, 0x3b, 0x1a, 0x1b, 0x3e, 0x5f, /* ................ */ -/*a0*/ 0x41, 0xaa, 0xb0, 0xb1, 0x9f, 0xb2, 0xd0, 0xb5, - 0x79, 0xb4, 0x9a, 0x8a, 0xba, 0xca, 0xaf, 0xa1, /* ................ */ -/*b0*/ 0x90, 0x8f, 0xea, 0xfa, 0xbe, 0xa0, 0xb6, 0xb3, - 0x9d, 0xda, 0x9b, 0x8b, 0xb7, 0xb8, 0xb9, 0xab, /* ................ */ -/*c0*/ 0x64, 0x65, 0x62, 0x66, 0x63, 0x67, 0x9e, 0x68, - 0x74, 0x71, 0x72, 0x73, 0x78, 0x75, 0x76, 0x77, /* ................ */ -/*d0*/ 0xac, 0x69, 0xed, 0xee, 0xeb, 0xef, 0xec, 0xbf, - 0x80, 0xe0, 0xfe, 0xdd, 0xfc, 0xad, 0xae, 0x59, /* ................ */ -/*e0*/ 0x44, 0x45, 0x42, 0x46, 0x43, 0x47, 0x9c, 0x48, - 0x54, 0x51, 0x52, 0x53, 0x58, 0x55, 0x56, 0x57, /* ................ */ -/*f0*/ 0x8c, 0x49, 0xcd, 0xce, 0xcb, 0xcf, 0xcc, 0xe1, - 0x70, 0xc0, 0xde, 0xdb, 0xdc, 0x8d, 0x8e, 0xdf /* ................ */ -}; - -#endif /*_OSD_POSIX*/ diff --git a/contrib/tcsh/sh.char.h b/contrib/tcsh/sh.char.h deleted file mode 100644 index 63c127c4e515..000000000000 --- a/contrib/tcsh/sh.char.h +++ /dev/null @@ -1,250 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.char.h,v 3.15 1998/09/18 16:09:07 christos Exp $ */ -/* - * sh.char.h: Table for spotting special characters quickly - * Makes for very obscure but efficient coding. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_sh_char -#define _h_sh_char -#if defined(NeXT) && defined(NLS) -# include <appkit/NXCType.h> -#else -# include <ctype.h> -#endif - -typedef unsigned char tcshuc; -#ifdef _MINIX -# undef _SP -#endif /* _MINIX */ -extern unsigned short _cmap[]; -#if defined(DSPMBYTE) -extern unsigned short _mbmap[]; -# define CHECK_MBYTEVAR STRdspmbyte -#endif -extern unsigned short _cmap_c[]; -extern unsigned short _cmap_mbyte[]; -extern short _enable_mbdisp; -extern unsigned short _mbmap[]; -extern unsigned short _mbmap_euc[]; -extern unsigned short _mbmap_sjis[]; -/* VARIABLE Check str */ -/* same compiler require #define even not define DSPMBYTE */ -#define _MB1 0x0001 -#define _MB2 0x0002 - -#ifndef NLS -extern tcshuc _cmap_lower[], _cmap_upper[]; - -#endif - -#define _QF 0x0001 /* '" (Forward quotes) */ -#define _QB 0x0002 /* ` (Backquote) */ -#define _SP 0x0004 /* space and tab */ -#define _NL 0x0008 /* \n */ -#define _META 0x0010 /* lex meta characters, sp #'`";&<>()|\t\n */ -#define _GLOB 0x0020 /* glob characters, *?{[` */ -#define _ESC 0x0040 /* \ */ -#define _DOL 0x0080 /* $ */ -#define _DIG 0x0100 /* 0-9 */ -#define _LET 0x0200 /* a-z, A-Z, _ */ -#define _UP 0x0400 /* A-Z */ -#define _DOW 0x0800 /* a-z */ -#define _XD 0x1000 /* 0-9, a-f, A-F */ -#define _CMD 0x2000 /* lex end of command chars, ;&(|` */ -#define _CTR 0x4000 /* control */ -#define _PUN 0x8000 /* punctuation */ - -#if defined(SHORT_STRINGS) && defined(KANJI) -#define ASC(ch) ch -#define CTL_ESC(ch) ch -#define cmap(c, bits) \ - ((((c) & QUOTE) || ((c & 0x80) && adrof(STRnokanji))) ? \ - 0 : (_cmap[(tcshuc)(c)] & (bits))) -#else -#ifndef _OSD_POSIX -#define ASC(ch) ch -#define CTL_ESC(ch) ch -#define cmap(c, bits) \ - (((c) & QUOTE) ? 0 : (_cmap[(tcshuc)(c)] & (bits))) -#else /*_OSD_POSIX*/ -/* "BS2000 OSD" is a POSIX on a main frame using a EBCDIC char set */ -extern unsigned short _toascii[256]; -extern unsigned short _toebcdic[256]; - -/* mainly for comparisons if (ASC(ch)=='\177')... */ -#define ASC(ch) _toascii[(tcshuc)ch] - -/* Literal escapes ('\010') must be mapped to EBCDIC, - * for C-Escapes ('\b'), the compiler already does it. - */ -#define CTL_ESC(ch) _toebcdic[(tcshuc)ch] - -#define cmap(c, bits) \ - (((c) & QUOTE) ? 0 : (_cmap[_toascii[(tcshuc)(c)]] & (bits))) -#endif /*_OSD_POSIX*/ -#endif - -#define isglob(c) cmap(c, _GLOB) -#define isspc(c) cmap(c, _SP) -#define ismeta(c) cmap(c, _META) -#define iscmdmeta(c) cmap(c, _CMD) -#define letter(c) (((Char)(c) & QUOTE) ? 0 : \ - (isalpha((tcshuc) (c)) || (c) == '_')) -#define alnum(c) (((Char)(c) & QUOTE) ? 0 : \ - (isalnum((tcshuc) (c)) || (c) == '_')) - -#if defined(DSPMBYTE) -# define IsmbyteU(c) (Ismbyte1((Char)(c))||(Ismbyte2((Char)(c))&&((c)&0200))) -#endif - -#ifdef NLS -# ifdef NeXT -# define Isspace(c) (((Char)(c) & QUOTE) ? 0 : NXIsSpace((unsigned) (c))) -# define Isdigit(c) (((Char)(c) & QUOTE) ? 0 : NXIsDigit((unsigned) (c))) -# define Isalpha(c) (((Char)(c) & QUOTE) ? 0 : NXIsAlpha((unsigned) (c))) -# define Islower(c) (((Char)(c) & QUOTE) ? 0 : NXIsLower((unsigned) (c))) -# define Isupper(c) (((Char)(c) & QUOTE) ? 0 : NXIsUpper((unsigned) (c))) -# define Tolower(c) (((Char)(c) & QUOTE) ? 0 : NXToLower((unsigned) (c))) -# define Toupper(c) (((Char)(c) & QUOTE) ? 0 : NXToUpper((unsigned) (c))) -# define Isxdigit(c) (((Char)(c) & QUOTE) ? 0 : NXIsXDigit((unsigned) (c))) -#if defined(DSPMBYTE) -# define IscntrlM(c) (((Char)(c) & QUOTE) ? 0 : NXIsCntrl((unsigned) (c))) -# define Iscntrl(c) ( (IscntrlM(c)) && !(_enable_mbdisp&&(IsmbyteU((c)))) ) -# define IsprintM(c) (((Char)(c) & QUOTE) ? 0 : NXIsPrint((unsigned) (c))) -# define Isprint(c) ( (IsprintM(c)) || (_enable_mbdisp&&(IsmbyteU((c)))) ) -#else -# define Isalnum(c) (((Char)(c) & QUOTE) ? 0 : NXIsAlNum((unsigned) (c))) -# define Iscntrl(c) (((Char)(c) & QUOTE) ? 0 : NXIsCntrl((unsigned) (c))) -# define Isprint(c) (((Char)(c) & QUOTE) ? 0 : NXIsPrint((unsigned) (c))) -#endif /* !defined(DSPMBYTE) */ -# define Ispunct(c) (((Char)(c) & QUOTE) ? 0 : NXIsPunct((unsigned) (c))) -# else /* !NeXT */ -# ifndef WINNT -# define Isspace(c) (((Char)(c) & QUOTE) ? 0 : isspace((tcshuc) (c))) -# define Isdigit(c) (((Char)(c) & QUOTE) ? 0 : isdigit((tcshuc) (c))) -# define Isalpha(c) (((Char)(c) & QUOTE) ? 0 : isalpha((tcshuc) (c))) -# define Islower(c) (((Char)(c) & QUOTE) ? 0 : islower((tcshuc) (c))) -# define Isupper(c) (((Char)(c) & QUOTE) ? 0 : isupper((tcshuc) (c))) -# define Tolower(c) (((Char)(c) & QUOTE) ? 0 : tolower((tcshuc) (c))) -# define Toupper(c) (((Char)(c) & QUOTE) ? 0 : toupper((tcshuc) (c))) -# define Isxdigit(c) (((Char)(c) & QUOTE) ? 0 : isxdigit((tcshuc) (c))) -# define Isalnum(c) (((Char)(c) & QUOTE) ? 0 : isalnum((tcshuc) (c))) -#if defined(DSPMBYTE) -# define IscntrlM(c) (((Char)(c) & QUOTE) ? 0 : iscntrl((tcshuc) (c))) -# define Iscntrl(c) ( (IscntrlM(c)) && !(_enable_mbdisp&&(IsmbyteU((c)))) ) -#else -# define Iscntrl(c) (((Char)(c) & QUOTE) ? 0 : iscntrl((tcshuc) (c))) -#endif /* !defined(DSPMBYTE) */ -# if SOLARIS2 == 24 - /* - * From <casper@fwi.uva.nl> Casper Dik: - * In Solaris 2.4, isprint('\t') returns true after setlocal(LC_ALL,""). - * This breaks commandline editing when you include tabs. - * (This is in the en_US locale). - */ -#if defined(DSPMBYTE) -# define IsprintM(c) (((Char)(c) & QUOTE) ? 0 : \ - (isprint((tcshuc) (c)) && (c) != '\t')) -#else -# define Isprint(c) (((Char)(c) & QUOTE) ? 0 : \ - (isprint((tcshuc) (c)) && (c) != '\t')) -#endif /* !defined(DSPMBYTE) */ -# else -#if defined(DSPMBYTE) -# define IsprintM(c) (((Char)(c) & QUOTE) ? 0 : isprint((tcshuc) (c))) -#else -# define Isprint(c) (((Char)(c) & QUOTE) ? 0 : isprint((tcshuc) (c))) -#endif /* !defined(DSPMBYTE) */ -# endif /* SOLARIS2 == 24 */ -#if defined(DSPMBYTE) -# define Isprint(c) ( (IsprintM(c)) || (_enable_mbdisp&&(IsmbyteU((c)))) ) -#endif /* !defined(DSPMBYTE) */ -# define Ispunct(c) (((Char)(c) & QUOTE) ? 0 : ispunct((tcshuc) (c))) -# else /* WINNT */ -# define Isspace(c) (((Char)(c) & QUOTE) ? 0 : isspace( oem_it((tcshuc)(c)))) -# define Isdigit(c) (((Char)(c) & QUOTE) ? 0 : isdigit( oem_it((tcshuc)(c)))) -# define Isalpha(c) (((Char)(c) & QUOTE) ? 0 : isalpha( oem_it((tcshuc)(c)))) -# define Islower(c) (((Char)(c) & QUOTE) ? 0 : islower( oem_it((tcshuc)(c)))) -# define Isupper(c) (((Char)(c) & QUOTE) ? 0 : isupper( oem_it((tcshuc)(c)))) -# define Tolower(c) (((Char)(c) & QUOTE) ? 0 : tolower( oem_it((tcshuc)(c)))) -# define Toupper(c) (((Char)(c) & QUOTE) ? 0 : toupper( oem_it((tcshuc)(c)))) -# define Isxdigit(c)(((Char)(c) & QUOTE) ? 0 : isxdigit(oem_it((tcshuc)(c)))) -# define Isalnum(c) (((Char)(c) & QUOTE) ? 0 : isalnum( oem_it((tcshuc)(c)))) -# define Ispunct(c) (((Char)(c) & QUOTE) ? 0 : ispunct( oem_it((tcshuc)(c)))) -#if defined(DSPMBYTE) -# define IscntrlM(c) (((Char)(c) & QUOTE) ? 0 : iscntrl( oem_it((tcshuc)(c)))) -# define Iscntrl(c) ( (IscntrlM(c)) && !(_enable_mbdisp&&(IsmbyteU((c)))) ) -# define IsprintM(c) (((Char)(c) & QUOTE) ? 0 : isprint( oem_it((tcshuc)(c)))) -# define Isprint(c) ( (IsprintM(c)) || (_enable_mbdisp&&(IsmbyteU((c)))) ) -#else -# define Iscntrl(c) (((Char)(c) & QUOTE) ? 0 : iscntrl( oem_it((tcshuc)(c)))) -# define Isprint(c) (((Char)(c) & QUOTE) ? 0 : isprint( oem_it((tcshuc)(c)))) -#endif /* !defined(DSPMBYTE) */ -# endif /* WINNT */ -# endif /* !NeXT */ -#else /* !NLS */ -# define Isspace(c) cmap(c, _SP|_NL) -# define Isdigit(c) cmap(c, _DIG) -# define Isalpha(c) (cmap(c,_LET) && !(((c) & META) && AsciiOnly)) -# define Islower(c) (cmap(c,_DOW) && !(((c) & META) && AsciiOnly)) -# define Isupper(c) (cmap(c, _UP) && !(((c) & META) && AsciiOnly)) -#ifndef _OSD_POSIX -# define Tolower(c) (_cmap_lower[(tcshuc)(c)]) -# define Toupper(c) (_cmap_upper[(tcshuc)(c)]) -#else /*_OSD_POSIX*/ -/* "BS2000 OSD" is a POSIX on a main frame using a EBCDIC char set */ -# define Tolower(c) (_cmap_lower[_toascii[(tcshuc)(c)]]) -# define Toupper(c) (_cmap_upper[_toascii[(tcshuc)(c)]]) -#endif /*_OSD_POSIX*/ -# define Isxdigit(c) cmap(c, _XD) -# define Isalnum(c) (cmap(c, _DIG|_LET) && !(((Char)(c) & META) && AsciiOnly)) -#if defined(DSPMBYTE) -# define IscntrlM(c) (cmap(c,_CTR) && !(((c) & META) && AsciiOnly)) -# define Iscntrl(c) ( (IscntrlM(c)) && !(_enable_mbdisp&&(IsmbyteU((c)))) ) -# define IsprintM(c) (!cmap(c,_CTR) && !(((c) & META) && AsciiOnly)) -# define Isprint(c) ( (IsprintM(c)) || (_enable_mbdisp&&(IsmbyteU((c)))) ) -#else -# define Iscntrl(c) (cmap(c,_CTR) && !(((c) & META) && AsciiOnly)) -# define Isprint(c) (!cmap(c,_CTR) && !(((c) & META) && AsciiOnly)) -#endif /* !defined(DSPMBYTE) */ -# define Ispunct(c) (cmap(c,_PUN) && !(((c) & META) && AsciiOnly)) - -#endif /* !NLS */ - -#if defined(DSPMBYTE) -# define Ismbyte1(c) ((_mbmap[(c) & 0377] & _MB1) ? 1 : 0) -# define Ismbyte2(c) ((_mbmap[(c) & 0377] & _MB2) ? 1 : 0) -#endif - -#endif /* _h_sh_char */ diff --git a/contrib/tcsh/sh.decls.h b/contrib/tcsh/sh.decls.h deleted file mode 100644 index 4fd433da81a0..000000000000 --- a/contrib/tcsh/sh.decls.h +++ /dev/null @@ -1,380 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.decls.h,v 3.34 1999/02/06 15:01:21 christos Exp $ */ -/* - * sh.decls.h External declarations from sh*.c - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_sh_decls -#define _h_sh_decls - -/* - * sh.c - */ -extern int gethdir __P((Char *)); -extern void dosource __P((Char **, struct command *)); -extern void exitstat __P((void)); -extern void goodbye __P((Char **, struct command *)); -extern void importpath __P((Char *)); -extern void initdesc __P((void)); -extern sigret_t pintr __P((int)); -extern void pintr1 __P((bool)); -extern void process __P((bool)); -extern void untty __P((void)); -#ifdef PROF -extern void done __P((int)); -#else -extern void xexit __P((int)); -#endif - -/* - * sh.dir.c - */ -extern void dinit __P((Char *)); -extern void dodirs __P((Char **, struct command *)); -extern Char *dcanon __P((Char *, Char *)); -extern void dtildepr __P((Char *)); -extern void dtilde __P((void)); -extern void dochngd __P((Char **, struct command *)); -extern Char *dnormalize __P((Char *, int)); -extern void dopushd __P((Char **, struct command *)); -extern void dopopd __P((Char **, struct command *)); -extern void dfree __P((struct directory *)); -extern void dsetstack __P((void)); -extern int getstakd __P((Char *, int)); -extern void recdirs __P((Char *, int)); -extern void loaddirs __P((Char *)); - -/* - * sh.dol.c - */ -extern void Dfix __P((struct command *)); -extern Char *Dfix1 __P((Char *)); -extern void heredoc __P((Char *)); - -/* - * sh.err.c - */ -extern void errinit __P((void)); -extern void seterror __P((unsigned int, ...)); -extern void stderror __P((unsigned int, ...)); - -/* - * sh.exec.c - */ -extern void doexec __P((struct command *)); -extern void dohash __P((Char **, struct command *)); -extern void dounhash __P((Char **, struct command *)); -extern void execash __P((Char **, struct command *)); -extern void hashstat __P((Char **, struct command *)); -extern void xechoit __P((Char **)); -extern int executable __P((Char *, Char *, bool)); -extern int tellmewhat __P((struct wordent *, Char *)); -extern void dowhere __P((Char **, struct command *)); -extern int find_cmd __P((Char *, int)); - -/* - * sh.exp.c - */ -extern Char *filetest __P((Char *, Char ***, bool)); -extern int expr __P((Char ***)); -extern int exp0 __P((Char ***, bool)); - -/* - * sh.file.c - */ -#ifdef FILEC -extern int tenex __P((Char *, int)); -#endif - -/* - * sh.func.c - */ -extern void tsetenv __P((Char *, Char *)); -extern void Unsetenv __P((Char *)); -extern void doalias __P((Char **, struct command *)); -extern void dobreak __P((Char **, struct command *)); -extern void docontin __P((Char **, struct command *)); -extern void doecho __P((Char **, struct command *)); -extern void doelse __P((Char **, struct command *)); -extern void doend __P((Char **, struct command *)); -extern void doeval __P((Char **, struct command *)); -extern void doexit __P((Char **, struct command *)); -extern void doforeach __P((Char **, struct command *)); -extern void doglob __P((Char **, struct command *)); -extern void dogoto __P((Char **, struct command *)); -extern void doif __P((Char **, struct command *)); -extern void dolimit __P((Char **, struct command *)); -extern void dologin __P((Char **, struct command *)); -extern void dologout __P((Char **, struct command *)); -#ifdef NEWGRP -extern void donewgrp __P((Char **, struct command *)); -#endif -extern void donohup __P((Char **, struct command *)); -extern void dohup __P((Char **, struct command *)); -extern void doonintr __P((Char **, struct command *)); -extern void doprintenv __P((Char **, struct command *)); -extern void dorepeat __P((Char **, struct command *)); -extern void dofiletest __P((Char **, struct command *)); -extern void dosetenv __P((Char **, struct command *)); -extern void dosuspend __P((Char **, struct command *)); -extern void doswbrk __P((Char **, struct command *)); -extern void doswitch __P((Char **, struct command *)); -extern void doumask __P((Char **, struct command *)); -extern void dounlimit __P((Char **, struct command *)); -extern void dounsetenv __P((Char **, struct command *)); -extern void dowhile __P((Char **, struct command *)); -extern void dozip __P((Char **, struct command *)); -extern void func __P((struct command *, - struct biltins *)); -extern void gotolab __P((Char *)); -extern struct biltins *isbfunc __P((struct command *)); -extern void prvars __P((void)); -extern int srchx __P((Char *)); -extern void unalias __P((Char **, struct command *)); -extern void wfree __P((void)); -extern void dobuiltins __P((Char **, struct command *)); -extern void reexecute __P((struct command *)); - -/* - * sh.glob.c - */ -extern Char *globequal __P((Char *, Char *)); -extern Char **dobackp __P((Char *, bool)); -extern void Gcat __P((Char *, Char *)); -extern Char *globone __P((Char *, int)); -extern int Gmatch __P((Char *, Char *)); -extern int Gnmatch __P((Char *, Char *, Char **)); -extern void ginit __P((void)); -extern Char **globall __P((Char **)); -extern void rscan __P((Char **, void (*)(int))); -extern void tglob __P((Char **)); -extern void trim __P((Char **)); -#ifdef FILEC -extern int sortscmp __P((Char **, Char **)); -#endif -extern void nlsinit __P((void)); - -/* - * sh.hist.c - */ -extern void dohist __P((Char **, struct command *)); -extern struct Hist *enthist __P((int, struct wordent *, bool, bool)); -extern void savehist __P((struct wordent *, bool)); -extern void fmthist __P((int, ptr_t, char *, size_t)); -extern void rechist __P((Char *, int)); -extern void loadhist __P((Char *, bool)); - -/* - * sh.init.c - */ -extern void mesginit __P((void)); - -/* - * sh.lex.c - */ -extern void addla __P((Char *)); -extern void bseek __P((struct Ain *)); -extern void btell __P((struct Ain *)); -extern void btoeof __P((void)); -extern void copylex __P((struct wordent *, - struct wordent *)); -extern Char *domod __P((Char *, int)); -extern void freelex __P((struct wordent *)); -extern int lex __P((struct wordent *)); -extern void prlex __P((struct wordent *)); -extern int readc __P((bool)); -extern void settell __P((void)); -extern void unreadc __P((int)); - - -/* - * sh.misc.c - */ -extern int any __P((char *, int)); -extern Char **blkcpy __P((Char **, Char **)); -extern void blkfree __P((Char **)); -extern int blklen __P((Char **)); -extern void blkpr __P((Char **)); -extern void blkexpand __P((Char **, Char *)); -extern Char **blkspl __P((Char **, Char **)); -extern void closem __P((void)); -#ifndef CLOSE_ON_EXEC -extern void closech __P((void)); -#endif /* !CLOSE_ON_EXEC */ -extern Char **copyblk __P((Char **)); -extern int dcopy __P((int, int)); -extern int dmove __P((int, int)); -extern void donefds __P((void)); -extern Char lastchr __P((Char *)); -extern void lshift __P((Char **, int)); -extern int number __P((Char *)); -extern int prefix __P((Char *, Char *)); -extern Char **saveblk __P((Char **)); -extern void setzero __P((char *, int)); -extern Char *strip __P((Char *)); -extern Char *quote __P((Char *)); -extern Char *quote_meta __P((Char *, const Char *)); -extern char *strsave __P((const char *)); -extern void udvar __P((Char *)); -#ifndef POSIX -extern char *strstr __P((const char *, const char *)); -#endif /* !POSIX */ -#ifndef SHORT_STRINGS -extern char *strspl __P((char *, char *)); -extern char *strend __P((char *)); -#endif /* SHORT_STRINGS */ - -/* - * sh.parse.c - */ -extern void alias __P((struct wordent *)); -extern void freesyn __P((struct command *)); -extern struct command *syntax __P((struct wordent *, - struct wordent *, int)); - -/* - * sh.print.c - */ -extern void drainoline __P((void)); -extern void flush __P((void)); -#ifdef BSDTIMES -extern void pcsecs __P((long)); -#else /* !BSDTIMES */ -# ifdef POSIX -extern void pcsecs __P((clock_t)); -# else /* !POSIX */ -extern void pcsecs __P((time_t)); -# endif /* !POSIX */ -#endif /* BSDTIMES */ -#ifdef BSDLIMIT -extern void psecs __P((long)); -#endif /* BSDLIMIT */ -extern int putpure __P((int)); -extern int putraw __P((int)); -extern void xputchar __P((int)); - - -/* - * sh.proc.c - */ -extern void dobg __P((Char **, struct command *)); -extern void dobg1 __P((Char **, struct command *)); -extern void dofg __P((Char **, struct command *)); -extern void dofg1 __P((Char **, struct command *)); -extern void dojobs __P((Char **, struct command *)); -extern void dokill __P((Char **, struct command *)); -extern void donotify __P((Char **, struct command *)); -extern void dostop __P((Char **, struct command *)); -extern void dowait __P((Char **, struct command *)); -extern void palloc __P((int, struct command *)); -extern void panystop __P((bool)); -extern sigret_t pchild __P((int)); -extern void pendjob __P((void)); -extern int pfork __P((struct command *, int)); -extern void pgetty __P((int, int)); -extern void pjwait __P((struct process *)); -extern void pnote __P((void)); -extern void prestjob __P((void)); -extern void psavejob __P((void)); -extern int pstart __P((struct process *, int)); -extern void pwait __P((void)); -extern struct process *pfind __P((Char *)); - -/* - * sh.sem.c - */ -extern void execute __P((struct command *, int, int *, - int *)); -extern void mypipe __P((int *)); - -/* - * sh.set.c - */ -extern struct varent *adrof1 __P((Char *, struct varent *)); -extern void doset __P((Char **, struct command *)); -extern void dolet __P((Char **, struct command *)); -extern Char *putn __P((int)); -extern int getn __P((Char *)); -extern Char *value1 __P((Char *, struct varent *)); -extern void set __P((Char *, Char *, int)); -extern void set1 __P((Char *, Char **, struct varent *, - int)); -extern void setq __P((Char *, Char **, struct varent *, - int)); -extern void unset __P((Char **, struct command *)); -extern void unset1 __P((Char *[], struct varent *)); -extern void unsetv __P((Char *)); -extern void setNS __P((Char *)); -extern void shift __P((Char **, struct command *)); -extern void plist __P((struct varent *, int)); -#if defined(DSPMBYTE) -extern void update_dspmbyte_vars __P((void)); -extern void autoset_dspmbyte __P((Char *)); -#endif - -/* - * sh.time.c - */ -extern void donice __P((Char **, struct command *)); -extern void dotime __P((Char **, struct command *)); -#ifdef BSDTIMES -extern void prusage __P((struct sysrusage *, - struct sysrusage *, - timeval_t *, timeval_t *)); -extern void ruadd __P((struct sysrusage *, - struct sysrusage *)); -#else /* BSDTIMES */ -# ifdef _SEQUENT_ -extern void prusage __P((struct process_stats *, - struct process_stats *, - timeval_t *, timeval_t *)); -extern void ruadd __P((struct process_stats *, - struct process_stats *)); -# else /* !_SEQUENT_ */ -# ifdef POSIX -extern void prusage __P((struct tms *, struct tms *, - clock_t, clock_t)); -# else /* !POSIX */ -extern void prusage __P((struct tms *, struct tms *, - time_t, time_t)); -# endif /* !POSIX */ -# endif /* !_SEQUENT_ */ -#endif /* BSDTIMES */ -extern void settimes __P((void)); -#if defined(BSDTIMES) || defined(_SEQUENT_) -extern void tvsub __P((struct timeval *, - struct timeval *, - struct timeval *)); -#endif /* BSDTIMES || _SEQUENT_ */ - -#endif /* _h_sh_decls */ diff --git a/contrib/tcsh/sh.dir.c b/contrib/tcsh/sh.dir.c deleted file mode 100644 index d6e90ed66cff..000000000000 --- a/contrib/tcsh/sh.dir.c +++ /dev/null @@ -1,1381 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.dir.c,v 3.52 1998/10/25 15:10:03 christos Exp $ */ -/* - * sh.dir.c: Directory manipulation functions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.dir.c,v 3.52 1998/10/25 15:10:03 christos Exp $") - -/* - * C Shell - directory management - */ - -static void dstart __P((const char *)); -static struct directory *dfind __P((Char *)); -static Char *dfollow __P((Char *)); -static void printdirs __P((int)); -static Char *dgoto __P((Char *)); -static void dnewcwd __P((struct directory *, int)); -static void dset __P((Char *)); -static void dextract __P((struct directory *)); -static int skipargs __P((Char ***, char *, char *)); -static void dgetstack __P((void)); - -static struct directory dhead INIT_ZERO_STRUCT; /* "head" of loop */ -static int printd; /* force name to be printed */ - -int bequiet = 0; /* do not print dir stack -strike */ - -static void -dstart(from) - const char *from; -{ - xprintf(CGETS(12, 1, "%s: Trying to start from \"%s\"\n"), progname, from); -} - -/* - * dinit - initialize current working directory - */ -void -dinit(hp) - Char *hp; -{ - register char *tcp; - register Char *cp; - register struct directory *dp; - char path[MAXPATHLEN]; - - /* Don't believe the login shell home, because it may be a symlink */ - tcp = (char *) getcwd(path, sizeof(path)); - if (tcp == NULL || *tcp == '\0') { - xprintf("%s: %s\n", progname, strerror(errno)); - if (hp && *hp) { - tcp = short2str(hp); - dstart(tcp); - if (chdir(tcp) == -1) - cp = NULL; - else - cp = Strsave(hp); - } - else - cp = NULL; - if (cp == NULL) { - dstart("/"); - if (chdir("/") == -1) - /* I am not even try to print an error message! */ - xexit(1); - cp = SAVE("/"); - } - } - else { -#ifdef S_IFLNK - struct stat swd, shp; - - /* - * See if $HOME is the working directory we got and use that - */ - if (hp && *hp && - stat(tcp, &swd) != -1 && stat(short2str(hp), &shp) != -1 && - DEV_DEV_COMPARE(swd.st_dev, shp.st_dev) && - swd.st_ino == shp.st_ino) - cp = Strsave(hp); - else { - char *cwd; - - /* - * use PWD if we have it (for subshells) - */ - if ((cwd = getenv("PWD")) != NULL) { - if (stat(cwd, &shp) != -1 && - DEV_DEV_COMPARE(swd.st_dev, shp.st_dev) && - swd.st_ino == shp.st_ino) - tcp = cwd; - } - cp = dcanon(SAVE(tcp), STRNULL); - } -#else /* S_IFLNK */ - cp = dcanon(SAVE(tcp), STRNULL); -#endif /* S_IFLNK */ - } - - dp = (struct directory *) xcalloc(sizeof(struct directory), 1); - dp->di_name = cp; - dp->di_count = 0; - dhead.di_next = dhead.di_prev = dp; - dp->di_next = dp->di_prev = &dhead; - printd = 0; - dnewcwd(dp, 0); - set(STRdirstack, Strsave(dp->di_name), VAR_READWRITE|VAR_NOGLOB); -} - -static void -dset(dp) -Char *dp; -{ - /* - * Don't call set() directly cause if the directory contains ` or - * other junk characters glob will fail. - */ - set(STRowd, Strsave(varval(STRcwd)), VAR_READWRITE|VAR_NOGLOB); - set(STRcwd, Strsave(dp), VAR_READWRITE|VAR_NOGLOB); - - tsetenv(STRPWD, dp); -} - -#define DIR_PRINT 0x01 /* -p */ -#define DIR_LONG 0x02 /* -l */ -#define DIR_VERT 0x04 /* -v */ -#define DIR_LINE 0x08 /* -n */ -#define DIR_SAVE 0x10 /* -S */ -#define DIR_LOAD 0x20 /* -L */ -#define DIR_CLEAR 0x40 /* -c */ -#define DIR_OLD 0x80 /* - */ - -static int -skipargs(v, dstr, str) - Char ***v; - char *dstr; - char *str; -{ - Char **n = *v, *s; - - int dflag = 0, loop = 1; - for (n++; loop && *n != NULL && (*n)[0] == '-'; n++) - if (*(s = &((*n)[1])) == '\0') /* test for bare "-" argument */ - dflag |= DIR_OLD; - else { - char *p; - while (loop && *s != '\0') /* examine flags */ - { - if ((p = strchr(dstr, *s++)) != NULL) - dflag |= (1 << (p - dstr)); - else { - stderror(ERR_DIRUS, short2str(**v), dstr, str); - loop = 0; /* break from both loops */ - break; - } - } - } - if (*n && (dflag & DIR_OLD)) - stderror(ERR_DIRUS, short2str(**v), dstr, str); - *v = n; - /* make -l, -v, and -n imply -p */ - if (dflag & (DIR_LONG|DIR_VERT|DIR_LINE)) - dflag |= DIR_PRINT; - return dflag; -} - -/* - * dodirs - list all directories in directory loop - */ -/*ARGSUSED*/ -void -dodirs(v, c) - Char **v; - struct command *c; -{ - static char flags[] = "plvnSLc"; - int dflag = skipargs(&v, flags, ""); - - USE(c); - if ((dflag & DIR_CLEAR) != 0) { - struct directory *dp, *fdp; - for (dp = dcwd->di_next; dp != dcwd; ) { - fdp = dp; - dp = dp->di_next; - if (fdp != &dhead) - dfree(fdp); - } - dhead.di_next = dhead.di_prev = dp; - dp->di_next = dp->di_prev = &dhead; - } - if ((dflag & DIR_LOAD) != 0) - loaddirs(*v); - else if ((dflag & DIR_SAVE) != 0) - recdirs(*v, 1); - - if (*v && (dflag & (DIR_SAVE|DIR_LOAD))) - v++; - - if (*v != NULL || (dflag & DIR_OLD)) - stderror(ERR_DIRUS, "dirs", flags, ""); - if ((dflag & (DIR_CLEAR|DIR_LOAD|DIR_SAVE)) == 0 || (dflag & DIR_PRINT)) - printdirs(dflag); -} - -static void -printdirs(dflag) - int dflag; -{ - register struct directory *dp; - Char *s, *user; - int idx, len, cur; - extern int T_Cols; - - dp = dcwd; - idx = 0; - cur = 0; - do { - if (dp == &dhead) - continue; - if (dflag & DIR_VERT) { - xprintf("%d\t", idx++); - cur = 0; - } - s = dp->di_name; - user = NULL; - if (!(dflag & DIR_LONG) && (user = getusername(&s)) != NULL) - len = (int) (Strlen(user) + Strlen(s) + 2); - else - len = (int) (Strlen(s) + 1); - - cur += len; - if ((dflag & DIR_LINE) && cur >= T_Cols - 1 && len < T_Cols) { - xputchar('\n'); - cur = len; - } - if (user) - xprintf("~%S", user); - xprintf("%S%c", s, (dflag & DIR_VERT) ? '\n' : ' '); - } while ((dp = dp->di_prev) != dcwd); - if (!(dflag & DIR_VERT)) - xputchar('\n'); -} - -void -dtildepr(dir) - Char *dir; -{ - Char* user; - if ((user = getusername(&dir)) != NULL) - xprintf("~%S%S", user, dir); - else - xprintf("%S", dir); -} - -void -dtilde() -{ - struct directory *d = dcwd; - - do { - if (d == &dhead) - continue; - d->di_name = dcanon(d->di_name, STRNULL); - } while ((d = d->di_prev) != dcwd); - - dset(dcwd->di_name); -} - - -/* dnormalize(): - * The path will be normalized if it - * 1) is "..", - * 2) or starts with "../", - * 3) or ends with "/..", - * 4) or contains the string "/../", - * then it will be normalized, unless those strings are quoted. - * Otherwise, a copy is made and sent back. - */ -Char * -dnormalize(cp, exp) - Char *cp; - int exp; -{ - -/* return true if dp is of the form "../xxx" or "/../xxx" */ -#define IS_DOTDOT(sp, p) (ISDOTDOT(p) && ((p) == (sp) || *((p) - 1) == '/')) -#define IS_DOT(sp, p) (ISDOT(p) && ((p) == (sp) || *((p) - 1) == '/')) - -#ifdef S_IFLNK - if (exp) { - int dotdot = 0; - Char *dp, *cwd, *start = cp, buf[MAXPATHLEN]; -# ifdef apollo - bool slashslash; -# endif /* apollo */ - - /* - * count the number of "../xxx" or "xxx/../xxx" in the path - */ - for (dp=start; *dp && *(dp+1); dp++) - if (IS_DOTDOT(start, dp)) - dotdot++; - /* - * if none, we are done. - */ - if (dotdot == 0) - return (Strsave(cp)); - - cwd = (Char *) xmalloc((size_t) (((int) Strlen(dcwd->di_name) + 3) * - sizeof(Char))); - (void) Strcpy(cwd, dcwd->di_name); - - /* - * If the path starts with a slash, we are not relative to - * the current working directory. - */ - if (ABSOLUTEP(start)) - *cwd = '\0'; -# ifdef apollo - slashslash = cwd[0] == '/' && cwd[1] == '/'; -# endif /* apollo */ - - /* - * Ignore . and count ..'s - */ - for (;;) { - dotdot = 0; - buf[0] = '\0'; - dp = buf; - while (*cp) - if (IS_DOT(start, cp)) { - if (*++cp) - cp++; - } - else if (IS_DOTDOT(start, cp)) { - if (buf[0]) - break; /* finish analyzing .././../xxx/[..] */ - dotdot++; - cp += 2; - if (*cp) - cp++; - } - else - *dp++ = *cp++; - - *dp = '\0'; - while (dotdot > 0) - if ((dp = Strrchr(cwd, '/')) != NULL) { -# ifdef apollo - if (dp == &cwd[1]) - slashslash = 1; -# endif /* apollo */ - *dp = '\0'; - dotdot--; - } - else - break; - - if (!*cwd) { /* too many ..'s, starts with "/" */ - cwd[0] = '/'; -# ifdef apollo - cwd[1] = '/'; - cwd[2] = '\0'; -# else /* !apollo */ - cwd[1] = '\0'; -# endif /* apollo */ - } -# ifdef apollo - else if (slashslash && cwd[1] == '\0') { - cwd[1] = '/'; - cwd[2] = '\0'; - } -# endif /* apollo */ - - if (buf[0]) { - if ((TRM(cwd[(dotdot = (int) Strlen(cwd)) - 1])) != '/') - cwd[dotdot++] = '/'; - cwd[dotdot] = '\0'; - dp = Strspl(cwd, TRM(buf[0]) == '/' ? &buf[1] : buf); - xfree((ptr_t) cwd); - cwd = dp; - if ((TRM(cwd[(dotdot = (int) Strlen(cwd)) - 1])) == '/') - cwd[--dotdot] = '\0'; - } - if (!*cp) - break; - } - return cwd; - } -#endif /* S_IFLNK */ - return Strsave(cp); -} - - -/* - * dochngd - implement chdir command. - */ -/*ARGSUSED*/ -void -dochngd(v, c) - Char **v; - struct command *c; -{ - register Char *cp; - register struct directory *dp; - int dflag = skipargs(&v, "plvn", "[-|<dir>]"); - - USE(c); - printd = 0; - cp = (dflag & DIR_OLD) ? varval(STRowd) : *v; - - if (cp == NULL) { - if ((cp = varval(STRhome)) == STRNULL || *cp == 0) - stderror(ERR_NAME | ERR_NOHOMEDIR); - if (chdir(short2str(cp)) < 0) - stderror(ERR_NAME | ERR_CANTCHANGE); - cp = Strsave(cp); - } - else if ((dflag & DIR_OLD) == 0 && v[1] != NULL) { - stderror(ERR_NAME | ERR_TOOMANY); - /* NOTREACHED */ - return; - } - else if ((dp = dfind(cp)) != 0) { - char *tmp; - - printd = 1; - if (chdir(tmp = short2str(dp->di_name)) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); - dcwd->di_prev->di_next = dcwd->di_next; - dcwd->di_next->di_prev = dcwd->di_prev; - dfree(dcwd); - dnewcwd(dp, dflag); - return; - } - else - if ((cp = dfollow(cp)) == NULL) - return; - dp = (struct directory *) xcalloc(sizeof(struct directory), 1); - dp->di_name = cp; - dp->di_count = 0; - dp->di_next = dcwd->di_next; - dp->di_prev = dcwd->di_prev; - dp->di_prev->di_next = dp; - dp->di_next->di_prev = dp; - dfree(dcwd); - dnewcwd(dp, dflag); -} - -static Char * -dgoto(cp) - Char *cp; -{ - Char *dp; - - if (!ABSOLUTEP(cp)) - { - register Char *p, *q; - int cwdlen; - - for (p = dcwd->di_name; *p++;) - continue; - if ((cwdlen = (int) (p - dcwd->di_name - 1)) == 1) /* root */ - cwdlen = 0; - for (p = cp; *p++;) - continue; - dp = (Char *) xmalloc((size_t)((cwdlen + (p - cp) + 1) * sizeof(Char))); - for (p = dp, q = dcwd->di_name; (*p++ = *q++) != '\0';) - continue; - if (cwdlen) - p[-1] = '/'; - else - p--; /* don't add a / after root */ - for (q = cp; (*p++ = *q++) != '\0';) - continue; - xfree((ptr_t) cp); - cp = dp; - dp += cwdlen; - } - else - dp = cp; - -#ifdef WINNT - cp = SAVE(getcwd(NULL, 0)); -#else /* !WINNT */ - cp = dcanon(cp, dp); -#endif /* WINNT */ - return cp; -} - -/* - * dfollow - change to arg directory; fall back on cdpath if not valid - */ -static Char * -dfollow(cp) - register Char *cp; -{ - register Char *dp; - struct varent *c; - char ebuf[MAXPATHLEN]; - int serrno; - - cp = globone(cp, G_ERROR); -#ifdef apollo - if (Strchr(cp, '`')) { - char *dptr, *ptr; - if (chdir(dptr = short2str(cp)) < 0) - stderror(ERR_SYSTEM, dptr, strerror(errno)); - else if ((ptr = getcwd(ebuf, sizeof(ebuf))) && *ptr != '\0') { - xfree((ptr_t) cp); - cp = Strsave(str2short(ptr)); - return dgoto(cp); - } - else - stderror(ERR_SYSTEM, dptr, ebuf); - } -#endif /* apollo */ - - (void) strncpy(ebuf, short2str(cp), MAXPATHLEN); - ebuf[MAXPATHLEN-1] = '\0'; - /* - * if we are ignoring symlinks, try to fix relatives now. - * if we are expading symlinks, it should be done by now. - */ - dp = dnormalize(cp, symlinks == SYM_IGNORE); - if (chdir(short2str(dp)) >= 0) { - xfree((ptr_t) cp); - return dgoto(dp); - } - else { - xfree((ptr_t) dp); - if (chdir(short2str(cp)) >= 0) - return dgoto(cp); - else if (errno != ENOENT && errno != ENOTDIR) - stderror(ERR_SYSTEM, ebuf, strerror(errno)); - serrno = errno; - } - - if (cp[0] != '/' && !prefix(STRdotsl, cp) && !prefix(STRdotdotsl, cp) - && (c = adrof(STRcdpath))) { - Char **cdp; - register Char *p; - Char buf[MAXPATHLEN]; - - for (cdp = c->vec; *cdp; cdp++) { - for (dp = buf, p = *cdp; (*dp++ = *p++) != '\0';) - continue; - dp[-1] = '/'; - for (p = cp; (*dp++ = *p++) != '\0';) - continue; - /* - * We always want to fix the directory here - * If we are normalizing symlinks - */ - dp = dnormalize(buf, symlinks == SYM_IGNORE || - symlinks == SYM_EXPAND); - if (chdir(short2str(dp)) >= 0) { - printd = 1; - xfree((ptr_t) cp); - return dgoto(dp); - } - else if (chdir(short2str(cp)) >= 0) { - printd = 1; - xfree((ptr_t) dp); - return dgoto(cp); - } - } - } - dp = varval(cp); - if ((dp[0] == '/' || dp[0] == '.') && chdir(short2str(dp)) >= 0) { - xfree((ptr_t) cp); - cp = Strsave(dp); - printd = 1; - return dgoto(cp); - } - xfree((ptr_t) cp); - /* - * on login source of ~/.cshdirs, errors are eaten. the dir stack is all - * directories we could get to. - */ - if (!bequiet) { - stderror(ERR_SYSTEM, ebuf, strerror(serrno)); - return (NULL); - } - else - return (NULL); -} - - -/* - * dopushd - push new directory onto directory stack. - * with no arguments exchange top and second. - * with numeric argument (+n) bring it to top. - */ -/*ARGSUSED*/ -void -dopushd(v, c) - Char **v; - struct command *c; -{ - register struct directory *dp; - register Char *cp; - int dflag = skipargs(&v, "plvn", " [-|<dir>|+<n>]"); - - USE(c); - printd = 1; - cp = (dflag & DIR_OLD) ? varval(STRowd) : *v; - - if (cp == NULL) { - if (adrof(STRpushdtohome)) { - if ((cp = varval(STRhome)) == STRNULL || *cp == 0) - stderror(ERR_NAME | ERR_NOHOMEDIR); - if (chdir(short2str(cp)) < 0) - stderror(ERR_NAME | ERR_CANTCHANGE); - cp = Strsave(cp); /* hmmm... PWP */ - if ((cp = dfollow(cp)) == NULL) - return; - dp = (struct directory *) xcalloc(sizeof(struct directory), 1); - dp->di_name = cp; - dp->di_count = 0; - dp->di_prev = dcwd; - dp->di_next = dcwd->di_next; - dcwd->di_next = dp; - dp->di_next->di_prev = dp; - } - else { - char *tmp; - - if ((dp = dcwd->di_prev) == &dhead) - dp = dhead.di_prev; - if (dp == dcwd) - stderror(ERR_NAME | ERR_NODIR); - if (chdir(tmp = short2str(dp->di_name)) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); - dp->di_prev->di_next = dp->di_next; - dp->di_next->di_prev = dp->di_prev; - dp->di_next = dcwd->di_next; - dp->di_prev = dcwd; - dcwd->di_next->di_prev = dp; - dcwd->di_next = dp; - } - } - else if ((dflag & DIR_OLD) == 0 && v[1] != NULL) { - stderror(ERR_NAME | ERR_TOOMANY); - /* NOTREACHED */ - return; - } - else if ((dp = dfind(cp)) != NULL) { - char *tmp; - - if (chdir(tmp = short2str(dp->di_name)) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); - /* - * kfk - 10 Feb 1984 - added new "extraction style" pushd +n - */ - if (adrof(STRdextract)) - dextract(dp); - } - else { - register Char *ccp; - - if ((ccp = dfollow(cp)) == NULL) - return; - dp = (struct directory *) xcalloc(sizeof(struct directory), 1); - dp->di_name = ccp; - dp->di_count = 0; - dp->di_prev = dcwd; - dp->di_next = dcwd->di_next; - dcwd->di_next = dp; - dp->di_next->di_prev = dp; - } - dnewcwd(dp, dflag); -} - -/* - * dfind - find a directory if specified by numeric (+n) argument - */ -static struct directory * -dfind(cp) - register Char *cp; -{ - register struct directory *dp; - register int i; - register Char *ep; - - if (*cp++ != '+') - return (0); - for (ep = cp; Isdigit(*ep); ep++) - continue; - if (*ep) - return (0); - i = getn(cp); - if (i <= 0) - return (0); - for (dp = dcwd; i != 0; i--) { - if ((dp = dp->di_prev) == &dhead) - dp = dp->di_prev; - if (dp == dcwd) - stderror(ERR_NAME | ERR_DEEP); - } - return (dp); -} - -/* - * dopopd - pop a directory out of the directory stack - * with a numeric argument just discard it. - */ -/*ARGSUSED*/ -void -dopopd(v, c) - Char **v; - struct command *c; -{ - Char *cp; - register struct directory *dp, *p = NULL; - int dflag = skipargs(&v, "plvn", " [-|+<n>]"); - - USE(c); - printd = 1; - cp = (dflag & DIR_OLD) ? varval(STRowd) : *v; - - if (cp == NULL) - dp = dcwd; - else if ((dflag & DIR_OLD) == 0 && v[1] != NULL) { - stderror(ERR_NAME | ERR_TOOMANY); - /* NOTREACHED */ - return; - } - else if ((dp = dfind(cp)) == 0) - stderror(ERR_NAME | ERR_BADDIR); - if (dp->di_prev == &dhead && dp->di_next == &dhead) - stderror(ERR_NAME | ERR_EMPTY); - if (dp == dcwd) { - char *tmp; - - if ((p = dp->di_prev) == &dhead) - p = dhead.di_prev; - if (chdir(tmp = short2str(p->di_name)) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); - } - dp->di_prev->di_next = dp->di_next; - dp->di_next->di_prev = dp->di_prev; - if (dp == dcwd) { - dnewcwd(p, dflag); - } - else { - printdirs(dflag); - } - dfree(dp); -} - -/* - * dfree - free the directory (or keep it if it still has ref count) - */ -void -dfree(dp) - register struct directory *dp; -{ - - if (dp->di_count != 0) { - dp->di_next = dp->di_prev = 0; - } - else { - xfree((ptr_t) dp->di_name); - xfree((ptr_t) dp); - } -} - -/* - * dcanon - canonicalize the pathname, removing excess ./ and ../ etc. - * we are of course assuming that the file system is standardly - * constructed (always have ..'s, directories have links) - */ -Char * -dcanon(cp, p) - register Char *cp, *p; -{ - register Char *sp; - register Char *p1, *p2; /* general purpose */ - bool slash; -#ifdef apollo - bool slashslash; -#endif /* apollo */ - -#ifdef S_IFLNK /* if we have symlinks */ - Char link[MAXPATHLEN]; - char tlink[MAXPATHLEN]; - int cc; - Char *newcp; -#endif /* S_IFLNK */ - - /* - * kim: if the path given is too long abort(). - */ - if (Strlen(cp) >= MAXPATHLEN) - abort(); - - /* - * christos: if the path given does not start with a slash prepend cwd. If - * cwd does not start with a slash or the result would be too long abort(). - */ - if (!ABSOLUTEP(cp)) { - Char tmpdir[MAXPATHLEN]; - - p1 = varval(STRcwd); - if (p1 == STRNULL || !ABSOLUTEP(p1)) - abort(); - if (Strlen(p1) + Strlen(cp) + 1 >= MAXPATHLEN) - abort(); - (void) Strcpy(tmpdir, p1); - (void) Strcat(tmpdir, STRslash); - (void) Strcat(tmpdir, cp); - xfree((ptr_t) cp); - cp = p = Strsave(tmpdir); - } - -#ifdef COMMENT - if (*cp != '/') - abort(); -#endif /* COMMENT */ - -#ifdef apollo - slashslash = (cp[0] == '/' && cp[1] == '/'); -#endif /* apollo */ - - while (*p) { /* for each component */ - sp = p; /* save slash address */ - while (*++p == '/') /* flush extra slashes */ - continue; - if (p != ++sp) - for (p1 = sp, p2 = p; (*p1++ = *p2++) != '\0';) - continue; - p = sp; /* save start of component */ - slash = 0; - if (*p) - while (*++p) /* find next slash or end of path */ - if (*p == '/') { - slash = 1; - *p = 0; - break; - } - -#ifdef apollo - if (&cp[1] == sp && sp[0] == '.' && sp[1] == '.' && sp[2] == '\0') - slashslash = 1; -#endif /* apollo */ - if (*sp == '\0') { /* if component is null */ - if (--sp == cp) /* if path is one char (i.e. /) */ - break; - else - *sp = '\0'; - } - else if (sp[0] == '.' && sp[1] == 0) { - if (slash) { - for (p1 = sp, p2 = p + 1; (*p1++ = *p2++) != '\0';) - continue; - p = --sp; - } - else if (--sp != cp) - *sp = '\0'; - else - sp[1] = '\0'; - } - else if (sp[0] == '.' && sp[1] == '.' && sp[2] == 0) { - /* - * We have something like "yyy/xxx/..", where "yyy" can be null or - * a path starting at /, and "xxx" is a single component. Before - * compressing "xxx/..", we want to expand "yyy/xxx", if it is a - * symbolic link. - */ - *--sp = 0; /* form the pathname for readlink */ -#ifdef S_IFLNK /* if we have symlinks */ - if (sp != cp && /* symlinks != SYM_IGNORE && */ - (cc = readlink(short2str(cp), tlink, - sizeof tlink)) >= 0) { - tlink[cc] = '\0'; - (void) Strncpy(link, str2short(tlink), - sizeof(link) / sizeof(Char)); - link[sizeof(link) / sizeof(Char) - 1] = '\0'; - - if (slash) - *p = '/'; - /* - * Point p to the '/' in "/..", and restore the '/'. - */ - *(p = sp) = '/'; - /* - * find length of p - */ - for (p1 = p; *p1++;) - continue; - if (*link != '/') { - /* - * Relative path, expand it between the "yyy/" and the - * "/..". First, back sp up to the character past "yyy/". - */ - while (*--sp != '/') - continue; - sp++; - *sp = 0; - /* - * New length is "yyy/" + link + "/.." and rest - */ - p1 = newcp = (Char *) xmalloc((size_t) - (((sp - cp) + cc + (p1 - p)) * - sizeof(Char))); - /* - * Copy new path into newcp - */ - for (p2 = cp; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = link; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = p; (*p1++ = *p2++) != '\0';) - continue; - /* - * Restart canonicalization at expanded "/xxx". - */ - p = sp - cp - 1 + newcp; - } - else { - /* - * New length is link + "/.." and rest - */ - p1 = newcp = (Char *) xmalloc((size_t) - ((cc + (p1 - p)) * sizeof(Char))); - /* - * Copy new path into newcp - */ - for (p2 = link; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = p; (*p1++ = *p2++) != '\0';) - continue; - /* - * Restart canonicalization at beginning - */ - p = newcp; - } - xfree((ptr_t) cp); - cp = newcp; -#ifdef apollo - slashslash = (cp[0] == '/' && cp[1] == '/'); -#endif /* apollo */ - continue; /* canonicalize the link */ - } -#endif /* S_IFLNK */ - *sp = '/'; - if (sp != cp) - while (*--sp != '/') - continue; - if (slash) { - for (p1 = sp + 1, p2 = p + 1; (*p1++ = *p2++) != '\0';) - continue; - p = sp; - } - else if (cp == sp) - *++sp = '\0'; - else - *sp = '\0'; - } - else { /* normal dir name (not . or .. or nothing) */ - -#ifdef S_IFLNK /* if we have symlinks */ - if (sp != cp && symlinks == SYM_CHASE && - (cc = readlink(short2str(cp), tlink, - sizeof tlink)) >= 0) { - tlink[cc] = '\0'; - (void) Strncpy(link, str2short(tlink), - sizeof(link) / sizeof(Char)); - link[sizeof(link) / sizeof(Char) - 1] = '\0'; - - /* - * restore the '/'. - */ - if (slash) - *p = '/'; - - /* - * point sp to p (rather than backing up). - */ - sp = p; - - /* - * find length of p - */ - for (p1 = p; *p1++;) - continue; - if (*link != '/') { - /* - * Relative path, expand it between the "yyy/" and the - * remainder. First, back sp up to the character past - * "yyy/". - */ - while (*--sp != '/') - continue; - sp++; - *sp = 0; - /* - * New length is "yyy/" + link + "/.." and rest - */ - p1 = newcp = (Char *) xmalloc((size_t) - (((sp - cp) + cc + (p1 - p)) - * sizeof(Char))); - /* - * Copy new path into newcp - */ - for (p2 = cp; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = link; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = p; (*p1++ = *p2++) != '\0';) - continue; - /* - * Restart canonicalization at expanded "/xxx". - */ - p = sp - cp - 1 + newcp; - } - else { - /* - * New length is link + the rest - */ - p1 = newcp = (Char *) xmalloc((size_t) - ((cc + (p1 - p)) * sizeof(Char))); - /* - * Copy new path into newcp - */ - for (p2 = link; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = p; (*p1++ = *p2++) != '\0';) - continue; - /* - * Restart canonicalization at beginning - */ - p = newcp; - } - xfree((ptr_t) cp); - cp = newcp; -#ifdef apollo - slashslash = (cp[0] == '/' && cp[1] == '/'); -#endif /* apollo */ - continue; /* canonicalize the link */ - } -#endif /* S_IFLNK */ - if (slash) - *p = '/'; - } - } - - /* - * fix home... - */ -#ifdef S_IFLNK - p1 = varval(STRhome); - cc = (int) Strlen(p1); - /* - * See if we're not in a subdir of STRhome - */ - if (p1 && *p1 == '/' && (Strncmp(p1, cp, (size_t) cc) != 0 || - (cp[cc] != '/' && cp[cc] != '\0'))) { - static ino_t home_ino = (ino_t) -1; - static dev_t home_dev = (dev_t) -1; - static Char *home_ptr = NULL; - struct stat statbuf; - int found; - - /* - * Get dev and ino of STRhome - */ - if (home_ptr != p1 && - stat(short2str(p1), &statbuf) != -1) { - home_dev = statbuf.st_dev; - home_ino = statbuf.st_ino; - home_ptr = p1; - } - /* - * Start comparing dev & ino backwards - */ - p2 = Strncpy(link, cp, sizeof(link) / sizeof(Char)); - link[sizeof(link) / sizeof(Char) - 1] = '\0'; - found = 0; - while (*p2 && stat(short2str(p2), &statbuf) != -1) { - if (DEV_DEV_COMPARE(statbuf.st_dev, home_dev) && - statbuf.st_ino == home_ino) { - found = 1; - break; - } - if ((sp = Strrchr(p2, '/')) != NULL) - *sp = '\0'; - } - /* - * See if we found it - */ - if (*p2 && found) { - /* - * Use STRhome to make '~' work - */ - newcp = Strspl(p1, cp + Strlen(p2)); - xfree((ptr_t) cp); - cp = newcp; - } - } -#endif /* S_IFLNK */ - -#ifdef apollo - if (slashslash) { - if (cp[1] != '/') { - p = (Char *) xmalloc((size_t) (Strlen(cp) + 2) * sizeof(Char)); - *p = '/'; - (void) Strcpy(&p[1], cp); - xfree((ptr_t) cp); - cp = p; - } - } - if (cp[1] == '/' && cp[2] == '/') - (void) Strcpy(&cp[1], &cp[2]); -#endif /* apollo */ - return cp; -} - - -/* - * dnewcwd - make a new directory in the loop the current one - */ -static void -dnewcwd(dp, dflag) - register struct directory *dp; - int dflag; -{ - int print; - - if (adrof(STRdunique)) { - struct directory *dn; - - for (dn = dhead.di_prev; dn != &dhead; dn = dn->di_prev) - if (dn != dp && Strcmp(dn->di_name, dp->di_name) == 0) { - dn->di_next->di_prev = dn->di_prev; - dn->di_prev->di_next = dn->di_next; - dfree(dn); - break; - } - } - dcwd = dp; - dset(dcwd->di_name); - dgetstack(); - print = printd; /* if printd is set, print dirstack... */ - if (adrof(STRpushdsilent)) /* but pushdsilent overrides printd... */ - print = 0; - if (dflag & DIR_PRINT) /* but DIR_PRINT overrides pushdsilent... */ - print = 1; - if (bequiet) /* and bequiet overrides everything */ - print = 0; - if (print) - printdirs(dflag); - cwd_cmd(); /* PWP: run the defined cwd command */ -} - -void -dsetstack() -{ - Char **cp; - struct varent *vp; - struct directory *dn, *dp; - - if ((vp = adrof(STRdirstack)) == NULL) - return; - - /* Free the whole stack */ - while ((dn = dhead.di_prev) != &dhead) { - dn->di_next->di_prev = dn->di_prev; - dn->di_prev->di_next = dn->di_next; - if (dn != dcwd) - dfree(dn); - } - - /* thread the current working directory */ - dhead.di_prev = dhead.di_next = dcwd; - dcwd->di_next = dcwd->di_prev = &dhead; - - /* put back the stack */ - for (cp = vp->vec; cp && *cp && **cp; cp++) { - dp = (struct directory *) xcalloc(sizeof(struct directory), 1); - dp->di_name = Strsave(*cp); - dp->di_count = 0; - dp->di_prev = dcwd; - dp->di_next = dcwd->di_next; - dcwd->di_next = dp; - dp->di_next->di_prev = dp; - } - dgetstack(); /* Make $dirstack reflect the current state */ -} - -static void -dgetstack() -{ - int i = 0; - Char **dblk, **dbp; - struct directory *dn; - - if (adrof(STRdirstack) == NULL) - return; - - for (dn = dhead.di_prev; dn != &dhead; dn = dn->di_prev, i++) - continue; - dbp = dblk = (Char**) xmalloc((size_t) (i + 1) * sizeof(Char *)); - for (dn = dhead.di_prev; dn != &dhead; dn = dn->di_prev, dbp++) - *dbp = Strsave(dn->di_name); - *dbp = NULL; - setq(STRdirstack, dblk, &shvhed, VAR_READWRITE); -} - -/* - * getstakd - added by kfk 17 Jan 1984 - * Support routine for the stack hack. Finds nth directory in - * the directory stack, or finds last directory in stack. - */ -int -getstakd(s, cnt) - Char *s; - int cnt; -{ - struct directory *dp; - - dp = dcwd; - if (cnt < 0) { /* < 0 ==> last dir requested. */ - dp = dp->di_next; - if (dp == &dhead) - dp = dp->di_next; - } - else { - while (cnt-- > 0) { - dp = dp->di_prev; - if (dp == &dhead) - dp = dp->di_prev; - if (dp == dcwd) - return (0); - } - } - (void) Strcpy(s, dp->di_name); - return (1); -} - -/* - * Karl Kleinpaste - 10 Feb 1984 - * Added dextract(), which is used in pushd +n. - * Instead of just rotating the entire stack around, dextract() - * lets the user have the nth dir extracted from its current - * position, and pushes it onto the top. - */ -static void -dextract(dp) - struct directory *dp; -{ - if (dp == dcwd) - return; - dp->di_next->di_prev = dp->di_prev; - dp->di_prev->di_next = dp->di_next; - dp->di_next = dcwd->di_next; - dp->di_prev = dcwd; - dp->di_next->di_prev = dp; - dcwd->di_next = dp; -} - -void -loaddirs(fname) - Char *fname; -{ - static Char *loaddirs_cmd[] = { STRsource, NULL, NULL }; - - bequiet = 1; - if (fname) - loaddirs_cmd[1] = fname; - else if ((fname = varval(STRdirsfile)) != STRNULL) - loaddirs_cmd[1] = fname; - else - loaddirs_cmd[1] = STRtildotdirs; - dosource(loaddirs_cmd, (struct command *)0); - bequiet = 0; -} - -/* - * create a file called ~/.cshdirs which has a sequence - * of pushd commands which will restore the dir stack to - * its state before exit/logout. remember that the order - * is reversed in the file because we are pushing. - * -strike - */ -void -recdirs(fname, def) - Char *fname; - int def; -{ - int fp, ftmp, oldidfds; - int cdflag = 0; - extern struct directory *dcwd; - struct directory *dp; - unsigned int num; - Char *snum; - Char qname[MAXPATHLEN*2]; - - if (fname == NULL && !def) - return; - - if (fname == NULL) { - if ((fname = varval(STRdirsfile)) == STRNULL) - fname = Strspl(varval(STRhome), &STRtildotdirs[1]); - else - fname = Strsave(fname); - } - else - fname = globone(fname, G_ERROR); - - if ((fp = creat(short2str(fname), 0600)) == -1) { - xfree((ptr_t) fname); - return; - } - - if ((snum = varval(STRsavedirs)) == STRNULL) - num = (unsigned int) ~0; - else - num = (unsigned int) atoi(short2str(snum)); - - oldidfds = didfds; - didfds = 0; - ftmp = SHOUT; - SHOUT = fp; - - dp = dcwd->di_next; - do { - if (dp == &dhead) - continue; - - if (cdflag == 0) { - cdflag = 1; - xprintf("cd %S\n", quote_meta(qname, dp->di_name)); - } - else - xprintf("pushd %S\n", quote_meta(qname, dp->di_name)); - - if (num-- == 0) - break; - - } while ((dp = dp->di_next) != dcwd->di_next); - - (void) close(fp); - SHOUT = ftmp; - didfds = oldidfds; - xfree((ptr_t) fname); -} diff --git a/contrib/tcsh/sh.dir.h b/contrib/tcsh/sh.dir.h deleted file mode 100644 index 9cb0af8892ab..000000000000 --- a/contrib/tcsh/sh.dir.h +++ /dev/null @@ -1,61 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.dir.h,v 3.5 1997/10/27 22:44:26 christos Exp $ */ -/* - * sh.dir.h: Directory data structures and globals - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_sh_dir -#define _h_sh_dir -/* - * Structure for entries in directory stack. - */ -struct directory { - struct directory *di_next; /* next in loop */ - struct directory *di_prev; /* prev in loop */ - unsigned short *di_count; /* refcount of processes */ - Char *di_name; /* actual name */ -}; -EXTERN struct directory *dcwd IZERO_STRUCT; /* the one we are in now */ -EXTERN int symlinks; - -#define SYM_CHASE 1 -#define SYM_IGNORE 2 -#define SYM_EXPAND 3 - -#define TRM(a) ((a) & TRIM) -#define NTRM(a) (a) -#define ISDOT(c) (NTRM((c)[0]) == '.' && ((NTRM((c)[1]) == '\0') || \ - (NTRM((c)[1]) == '/'))) -#define ISDOTDOT(c) (NTRM((c)[0]) == '.' && ISDOT(&((c)[1]))) - -#endif /* _h_sh_dir */ diff --git a/contrib/tcsh/sh.dol.c b/contrib/tcsh/sh.dol.c deleted file mode 100644 index 92c3a6bd6bb4..000000000000 --- a/contrib/tcsh/sh.dol.c +++ /dev/null @@ -1,1175 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.dol.c,v 3.39 2000/01/14 22:57:27 christos Exp $ */ -/* - * sh.dol.c: Variable substitutions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.dol.c,v 3.39 2000/01/14 22:57:27 christos Exp $") - -/* - * C shell - */ - -/* - * These routines perform variable substitution and quoting via ' and ". - * To this point these constructs have been preserved in the divided - * input words. Here we expand variables and turn quoting via ' and " into - * QUOTE bits on characters (which prevent further interpretation). - * If the `:q' modifier was applied during history expansion, then - * some QUOTEing may have occurred already, so we dont "trim()" here. - */ - -static int Dpeekc, Dpeekrd; /* Peeks for DgetC and Dreadc */ -static Char *Dcp, **Dvp; /* Input vector for Dreadc */ - -#define DEOF -1 - -#define unDgetC(c) Dpeekc = c - -#define QUOTES (_QF|_QB|_ESC) /* \ ' " ` */ - -/* - * The following variables give the information about the current - * $ expansion, recording the current word position, the remaining - * words within this expansion, the count of remaining words, and the - * information about any : modifier which is being applied. - */ -#define MAXWLEN (BUFSIZE - 4) -#ifndef COMPAT -#define MAXMOD MAXWLEN /* This cannot overflow */ -#endif /* COMPAT */ -static Char *dolp; /* Remaining chars from this word */ -static Char **dolnxt; /* Further words */ -static int dolcnt; /* Count of further words */ -#ifdef COMPAT -static Char dolmod; /* : modifier character */ -#else -static Char dolmod[MAXMOD]; /* : modifier character */ -static int dolnmod; /* Number of modifiers */ -#endif /* COMPAT */ -static int dolmcnt; /* :gx -> 10000, else 1 */ -static int dolwcnt; /* :ax -> 10000, else 1 */ - -static void Dfix2 __P((Char **)); -static Char *Dpack __P((Char *, Char *)); -static int Dword __P((void)); -static void dolerror __P((Char *)); -static int DgetC __P((int)); -static void Dgetdol __P((void)); -static void fixDolMod __P((void)); -static void setDolp __P((Char *)); -static void unDredc __P((int)); -static int Dredc __P((void)); -static void Dtestq __P((int)); - -/* - * Fix up the $ expansions and quotations in the - * argument list to command t. - */ -void -Dfix(t) - register struct command *t; -{ - register Char **pp; - register Char *p; - - if (noexec) - return; - /* Note that t_dcom isn't trimmed thus !...:q's aren't lost */ - for (pp = t->t_dcom; (p = *pp++) != NULL;) { - for (; *p; p++) { -#ifdef DSPMBYTE - if (Ismbyte1(*p) && *(p + 1)) - p ++; - else -#endif DSPMBYTE - if (cmap(*p, _DOL | QUOTES)) { /* $, \, ', ", ` */ - Dfix2(t->t_dcom); /* found one */ - blkfree(t->t_dcom); - t->t_dcom = gargv; - gargv = 0; - return; - } - } - } -} - -/* - * $ substitute one word, for i/o redirection - */ -Char * -Dfix1(cp) - register Char *cp; -{ - Char *Dv[2]; - - if (noexec) - return (0); - Dv[0] = cp; - Dv[1] = NULL; - Dfix2(Dv); - if (gargc != 1) { - setname(short2str(cp)); - stderror(ERR_NAME | ERR_AMBIG); - } - cp = Strsave(gargv[0]); - blkfree(gargv), gargv = 0; - return (cp); -} - -/* - * Subroutine to do actual fixing after state initialization. - */ -static void -Dfix2(v) - Char **v; -{ - ginit(); /* Initialize glob's area pointers */ - Dvp = v; - Dcp = STRNULL; /* Setup input vector for Dreadc */ - unDgetC(0); - unDredc(0); /* Clear out any old peeks (at error) */ - dolp = 0; - dolcnt = 0; /* Clear out residual $ expands (...) */ - while (Dword()) - continue; -} - -/* - * Pack up more characters in this word - */ -static Char * -Dpack(wbuf, wp) - Char *wbuf, *wp; -{ - register int c; - register int i = MAXWLEN - (int) (wp - wbuf); -#if defined(DSPMBYTE) - int mbytepos = 1; -#endif /* DSPMBYTE */ - - for (;;) { - c = DgetC(DODOL); -#if defined(DSPMBYTE) - if (mbytepos == 1 && Ismbyte1(c)) { - /* An MB1 byte that may be followed by a MB2 byte */ - mbytepos = 2; - } - else { - /* check if MB1 byte followed by an MB2 byte */ - if (mbytepos == 2 && Ismbyte2(c)) { - /* MB1 + MB2 make the character */ - mbytepos = 1; /* reset */ - goto mbyteskip; - } - mbytepos = 1; /* reset */ - /* wasn't followed, so the two bytes make two characters */ - } -#endif /* DSPMBYTE */ - if (c == '\\') { - c = DgetC(0); - if (c == DEOF) { - unDredc(c); - *wp = 0; - Gcat(STRNULL, wbuf); - return (NULL); - } - if (c == '\n') - c = ' '; - else - c |= QUOTE; - } - if (c == DEOF) { - unDredc(c); - *wp = 0; - Gcat(STRNULL, wbuf); - return (NULL); - } - if (cmap(c, _SP | _NL | _QF | _QB)) { /* sp \t\n'"` */ - unDgetC(c); - if (cmap(c, QUOTES)) - return (wp); - *wp++ = 0; - Gcat(STRNULL, wbuf); - return (NULL); - } -mbyteskip: - if (--i <= 0) - stderror(ERR_WTOOLONG); - *wp++ = (Char) c; - } -} - -/* - * Get a word. This routine is analogous to the routine - * word() in sh.lex.c for the main lexical input. One difference - * here is that we don't get a newline to terminate our expansion. - * Rather, DgetC will return a DEOF when we hit the end-of-input. - */ -static int -Dword() -{ - register int c, c1; - Char wbuf[BUFSIZE]; - register Char *wp = wbuf; - register int i = MAXWLEN; - register bool dolflg; - bool sofar = 0, done = 0; - - while (!done) { - done = 1; - c = DgetC(DODOL); - switch (c) { - - case DEOF: - if (sofar == 0) - return (0); - /* finish this word and catch the code above the next time */ - unDredc(c); - /*FALLTHROUGH*/ - - case '\n': - *wp = 0; - Gcat(STRNULL, wbuf); - return (1); - - case ' ': - case '\t': - done = 0; - break; - - case '`': - /* We preserve ` quotations which are done yet later */ - *wp++ = (Char) c, --i; - /*FALLTHROUGH*/ - case '\'': - case '"': - /* - * Note that DgetC never returns a QUOTES character from an - * expansion, so only true input quotes will get us here or out. - */ - c1 = c; - dolflg = c1 == '"' ? DODOL : 0; - for (;;) { - c = DgetC(dolflg); - if (c == c1) - break; - if (c == '\n' || c == DEOF) - stderror(ERR_UNMATCHED, c1); - if ((c & (QUOTE | TRIM)) == ('\n' | QUOTE)) { - if ((wp[-1] & TRIM) == '\\') - --wp; - ++i; - } - if (--i <= 0) - stderror(ERR_WTOOLONG); - switch (c1) { - - case '"': - /* - * Leave any `s alone for later. Other chars are all - * quoted, thus `...` can tell it was within "...". - */ - *wp++ = c == '`' ? '`' : c | QUOTE; - break; - - case '\'': - /* Prevent all further interpretation */ - *wp++ = c | QUOTE; - break; - - case '`': - /* Leave all text alone for later */ - *wp++ = (Char) c; - break; - - default: - break; - } - } - if (c1 == '`') - *wp++ = '`' /* i--; eliminated */; - sofar = 1; - if ((wp = Dpack(wbuf, wp)) == NULL) - return (1); - else { -#ifdef masscomp - /* - * Avoid a nasty message from the RTU 4.1A & RTU 5.0 compiler concerning - * the "overuse of registers". According to the compiler release notes, - * incorrect code may be produced unless the offending expression is - * rewritten. Therefore, we can't just ignore it, DAS DEC-90. - */ - i = MAXWLEN; - i -= (int) (wp - wbuf); -#else /* !masscomp */ - i = MAXWLEN - (int) (wp - wbuf); -#endif /* masscomp */ - done = 0; - } - break; - - case '\\': - c = DgetC(0); /* No $ subst! */ - if (c == '\n' || c == DEOF) { - done = 0; - break; - } - c |= QUOTE; - break; - - default: - break; - } - if (done) { - unDgetC(c); - sofar = 1; - if ((wp = Dpack(wbuf, wp)) == NULL) - return (1); - else { -#ifdef masscomp - /* - * Avoid a nasty message from the RTU 4.1A & RTU 5.0 compiler concerning - * the "overuse of registers". According to the compiler release notes, - * incorrect code may be produced unless the offending expression is - * rewritten. Therefore, we can't just ignore it, DAS DEC-90. - */ - i = MAXWLEN; - i -= (int) (wp - wbuf); -#else /* !masscomp */ - i = MAXWLEN - (int) (wp - wbuf); -#endif /* masscomp */ - done = 0; - } - } - } - /* Really NOTREACHED */ - return (0); -} - - -/* - * Get a character, performing $ substitution unless flag is 0. - * Any QUOTES character which is returned from a $ expansion is - * QUOTEd so that it will not be recognized above. - */ -static int -DgetC(flag) - register int flag; -{ - register int c; - -top: - if ((c = Dpeekc) != 0) { - Dpeekc = 0; - return (c); - } - if (lap) { - c = *lap++ & (QUOTE | TRIM); - if (c == 0) { - lap = 0; - goto top; - } -quotspec: - if (cmap(c, QUOTES)) - return (c | QUOTE); - return (c); - } - if (dolp) { - if ((c = *dolp++ & (QUOTE | TRIM)) != 0) - goto quotspec; - if (dolcnt > 0) { - setDolp(*dolnxt++); - --dolcnt; - return (' '); - } - dolp = 0; - } - if (dolcnt > 0) { - setDolp(*dolnxt++); - --dolcnt; - goto top; - } - c = Dredc(); - if (c == '$' && flag) { - Dgetdol(); - goto top; - } - return (c); -} - -static Char *nulvec[] = { NULL }; -static struct varent nulargv = {nulvec, STRargv, VAR_READWRITE, - { NULL, NULL, NULL }, 0 }; - -static void -dolerror(s) - Char *s; -{ - setname(short2str(s)); - stderror(ERR_NAME | ERR_RANGE); -} - -/* - * Handle the multitudinous $ expansion forms. - * Ugh. - */ -static void -Dgetdol() -{ - register Char *np; - register struct varent *vp = NULL; - Char name[4 * MAXVARLEN + 1]; - int c, sc; - int subscr = 0, lwb = 1, upb = 0; - bool dimen = 0, bitset = 0, length = 0; - char tnp; - Char wbuf[BUFSIZE]; - static Char *dolbang = NULL; - -#ifdef COMPAT - dolmod = dolmcnt = dolwcnt = 0; -#else - dolnmod = dolmcnt = dolwcnt = 0; -#endif /* COMPAT */ - c = sc = DgetC(0); - if (c == '{') - c = DgetC(0); /* sc is { to take } later */ - if ((c & TRIM) == '#') - dimen++, c = DgetC(0); /* $# takes dimension */ - else if (c == '?') - bitset++, c = DgetC(0); /* $? tests existence */ - else if (c == '%') - length++, c = DgetC(0); /* $% returns length in chars */ - switch (c) { - - case '!': - if (dimen || bitset || length) - stderror(ERR_SYNTAX); - if (backpid != 0) { - if (dolbang) - xfree((ptr_t) dolbang); - setDolp(dolbang = putn(backpid)); - } - goto eatbrac; - - case '$': - if (dimen || bitset || length) - stderror(ERR_SYNTAX); - setDolp(doldol); - goto eatbrac; - -#ifdef COHERENT - /* Coherent compiler doesn't allow case-labels that are not - constant-expressions */ -#ifdef SHORT_STRINGS - case 0100074: -#else /* !SHORT_STRINGS */ - case 0274: -#endif -#else /* !COHERENT */ - case '<'|QUOTE: -#endif - if (bitset) - stderror(ERR_NOTALLOWED, "$?<"); - if (dimen) - stderror(ERR_NOTALLOWED, "$#<"); - if (length) - stderror(ERR_NOTALLOWED, "$%<"); - { -#ifdef BSDSIGS - sigmask_t omask = sigsetmask(sigblock(0) & ~sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ - for (np = wbuf; force_read(OLDSTD, &tnp, 1) == 1; np++) { - *np = (unsigned char) tnp; - if (np >= &wbuf[BUFSIZE - 1]) - stderror(ERR_LTOOLONG); - if (tnp == '\n') - break; - } - *np = 0; -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - } - -#ifdef COMPAT - /* - * KLUDGE: dolmod is set here because it will cause setDolp to call - * domod and thus to copy wbuf. Otherwise setDolp would use it - * directly. If we saved it ourselves, no one would know when to free - * it. The actual function of the 'q' causes filename expansion not to - * be done on the interpolated value. - */ - /* - * If we do that, then other modifiers don't work. - * in addition, let the user specify :q if wanted - * [christos] - */ -/*old*/ dolmod = 'q'; -/*new*/ dolmod[dolnmod++] = 'q'; - dolmcnt = 10000; -#endif /* COMPAT */ - - fixDolMod(); - setDolp(wbuf); - goto eatbrac; - - case '*': - (void) Strcpy(name, STRargv); - vp = adrof(STRargv); - subscr = -1; /* Prevent eating [...] */ - break; - - case DEOF: - case '\n': - np = dimen ? STRargv : (bitset ? STRstatus : NULL); - if (np) { - bitset = 0; - (void) Strcpy(name, np); - vp = adrof(np); - subscr = -1; /* Prevent eating [...] */ - unDredc(c); - break; - } - else - stderror(ERR_SYNTAX); - /*NOTREACHED*/ - - default: - np = name; - if (Isdigit(c)) { - if (dimen) - stderror(ERR_NOTALLOWED, "$#<num>"); - subscr = 0; - do { - subscr = subscr * 10 + c - '0'; - c = DgetC(0); - } while (Isdigit(c)); - unDredc(c); - if (subscr < 0) { - dolerror(vp->v_name); - return; - } - if (subscr == 0) { - if (bitset) { - dolp = dolzero ? STR1 : STR0; - goto eatbrac; - } - if (ffile == 0) - stderror(ERR_DOLZERO); - if (length) { - Char *cp; - length = Strlen(ffile); - cp = putn(length); - addla(cp); - xfree((ptr_t) cp); - } - else { - fixDolMod(); - setDolp(ffile); - } - goto eatbrac; - } -#if 0 - if (bitset) - stderror(ERR_NOTALLOWED, "$?<num>"); - if (length) - stderror(ERR_NOTALLOWED, "$%<num>"); -#endif - vp = adrof(STRargv); - if (vp == 0) { - vp = &nulargv; - goto eatmod; - } - break; - } - if (!alnum(c)) { - np = dimen ? STRargv : (bitset ? STRstatus : NULL); - if (np) { - bitset = 0; - (void) Strcpy(name, np); - vp = adrof(np); - subscr = -1; /* Prevent eating [...] */ - unDredc(c); - break; - } - else - stderror(ERR_VARALNUM); - } - for (;;) { - *np++ = (Char) c; - c = DgetC(0); - if (!alnum(c)) - break; - if (np >= &name[MAXVARLEN]) - stderror(ERR_VARTOOLONG); - } - *np++ = 0; - unDredc(c); - vp = adrof(name); - } - if (bitset) { - dolp = (vp || getenv(short2str(name))) ? STR1 : STR0; - goto eatbrac; - } - if (vp == 0) { - np = str2short(getenv(short2str(name))); - if (np) { - fixDolMod(); - setDolp(np); - goto eatbrac; - } - udvar(name); - /* NOTREACHED */ - } - c = DgetC(0); - upb = blklen(vp->vec); - if (dimen == 0 && subscr == 0 && c == '[') { - np = name; - for (;;) { - c = DgetC(DODOL); /* Allow $ expand within [ ] */ - if (c == ']') - break; - if (c == '\n' || c == DEOF) - stderror(ERR_INCBR); - if (np >= &name[sizeof(name) / sizeof(Char) - 2]) - stderror(ERR_VARTOOLONG); - *np++ = (Char) c; - } - *np = 0, np = name; - if (dolp || dolcnt) /* $ exp must end before ] */ - stderror(ERR_EXPORD); - if (!*np) - stderror(ERR_SYNTAX); - if (Isdigit(*np)) { - int i; - - for (i = 0; Isdigit(*np); i = i * 10 + *np++ - '0') - continue; - if ((i < 0 || i > upb) && !any("-*", *np)) { - dolerror(vp->v_name); - return; - } - lwb = i; - if (!*np) - upb = lwb, np = STRstar; - } - if (*np == '*') - np++; - else if (*np != '-') - stderror(ERR_MISSING, '-'); - else { - register int i = upb; - - np++; - if (Isdigit(*np)) { - i = 0; - while (Isdigit(*np)) - i = i * 10 + *np++ - '0'; - if (i < 0 || i > upb) { - dolerror(vp->v_name); - return; - } - } - if (i < lwb) - upb = lwb - 1; - else - upb = i; - } - if (lwb == 0) { - if (upb != 0) { - dolerror(vp->v_name); - return; - } - upb = -1; - } - if (*np) - stderror(ERR_SYNTAX); - } - else { - if (subscr > 0) { - if (subscr > upb) - lwb = 1, upb = 0; - else - lwb = upb = subscr; - } - unDredc(c); - } - if (dimen) { - Char *cp = putn(upb - lwb + 1); - - /* this is a kludge. It prevents Dgetdol() from */ - /* pushing erroneous ${#<error> values into the labuf. */ - if (sc == '{') { - c = Dredc(); - if (c != '}') - { - xfree((ptr_t) cp); - stderror(ERR_MISSING, '}'); - return; - } - unDredc(c); - } - addla(cp); - xfree((ptr_t) cp); - } - else if (length) { - int i; - Char *cp; - for (i = lwb - 1, length = 0; i < upb; i++) - length += Strlen(vp->vec[i]); -#ifdef notdef - /* We don't want that, since we can always compute it by adding $#xxx */ - length += i - 1; /* Add the number of spaces in */ -#endif - cp = putn(length); - addla(cp); - xfree((ptr_t) cp); - } - else { -eatmod: - fixDolMod(); - dolnxt = &vp->vec[lwb - 1]; - dolcnt = upb - lwb + 1; - } -eatbrac: - if (sc == '{') { - c = Dredc(); - if (c != '}') - stderror(ERR_MISSING, '}'); - } -} - -static void -fixDolMod() -{ - register int c; - - c = DgetC(0); - if (c == ':') { -#ifndef COMPAT - do { -#endif /* COMPAT */ - c = DgetC(0), dolmcnt = 1, dolwcnt = 1; - if (c == 'g' || c == 'a') { - if (c == 'g') - dolmcnt = 10000; - else - dolwcnt = 10000; - c = DgetC(0); - } - if ((c == 'g' && dolmcnt != 10000) || - (c == 'a' && dolwcnt != 10000)) { - if (c == 'g') - dolmcnt = 10000; - else - dolwcnt = 10000; - c = DgetC(0); - } - - if (c == 's') { /* [eichin:19910926.0755EST] */ - int delimcnt = 2; - int delim = DgetC(0); - dolmod[dolnmod++] = (Char) c; - dolmod[dolnmod++] = (Char) delim; - - if (!delim || letter(delim) - || Isdigit(delim) || any(" \t\n", delim)) { - seterror(ERR_BADSUBST); - break; - } - while ((c = DgetC(0)) != (-1)) { - dolmod[dolnmod++] = (Char) c; - if(c == delim) delimcnt--; - if(!delimcnt) break; - } - if(delimcnt) { - seterror(ERR_BADSUBST); - break; - } - continue; - } - if (!any("luhtrqxes", c)) - stderror(ERR_BADMOD, c); -#ifndef COMPAT - dolmod[dolnmod++] = (Char) c; -#else - dolmod = (Char) c; -#endif /* COMPAT */ - if (c == 'q') - dolmcnt = 10000; -#ifndef COMPAT - } - while ((c = DgetC(0)) == ':'); - unDredc(c); -#endif /* COMPAT */ - } - else - unDredc(c); -} - -static void -setDolp(cp) - register Char *cp; -{ - register Char *dp; -#ifndef COMPAT - int i; -#endif /* COMPAT */ - -#ifdef COMPAT - if (dolmod == 0 || dolmcnt == 0) { -#else - if (dolnmod == 0 || dolmcnt == 0) { -#endif /* COMPAT */ - dolp = cp; - return; - } -#ifdef COMPAT - dp = domod(cp, dolmod); -#else - dp = cp = Strsave(cp); - for (i = 0; i < dolnmod; i++) { - /* handle s// [eichin:19910926.0510EST] */ - if(dolmod[i] == 's') { - int delim; - Char *lhsub, *rhsub, *np; - size_t lhlen = 0, rhlen = 0; - int didmod = 0; - - delim = dolmod[++i]; - if (!delim || letter(delim) - || Isdigit(delim) || any(" \t\n", delim)) { - seterror(ERR_BADSUBST); - break; - } - lhsub = &dolmod[++i]; - while(dolmod[i] != delim && dolmod[++i]) { - lhlen++; - } - dolmod[i] = 0; - rhsub = &dolmod[++i]; - while(dolmod[i] != delim && dolmod[++i]) { - rhlen++; - } - dolmod[i] = 0; - - do { - strip(lhsub); - strip(cp); - dp = Strstr(cp, lhsub); - if (dp) { - np = (Char *) xmalloc((size_t) - ((Strlen(cp) + 1 - lhlen + rhlen) * - sizeof(Char))); - (void) Strncpy(np, cp, (size_t) (dp - cp)); - (void) Strcpy(np + (dp - cp), rhsub); - (void) Strcpy(np + (dp - cp) + rhlen, dp + lhlen); - - xfree((ptr_t) cp); - dp = cp = np; - didmod = 1; - } else { - /* should this do a seterror? */ - break; - } - } - while (dolwcnt == 10000); - /* - * restore dolmod for additional words - */ - dolmod[i] = rhsub[-1] = (Char) delim; - if (didmod) - dolmcnt--; -#ifdef notdef - else - break; -#endif - } else { - int didmod = 0; - - do { - if ((dp = domod(cp, dolmod[i])) != NULL) { - didmod = 1; - if (Strcmp(cp, dp) == 0) { - xfree((ptr_t) cp); - cp = dp; - break; - } - else { - xfree((ptr_t) cp); - cp = dp; - } - } - else - break; - } - while (dolwcnt == 10000); - dp = cp; - if (didmod) - dolmcnt--; -#ifdef notdef - else - break; -#endif - } - } -#endif /* COMPAT */ - - if (dp) { -#ifdef COMPAT - dolmcnt--; -#endif /* COMPAT */ - addla(dp); - xfree((ptr_t) dp); - } -#ifndef COMPAT - else - addla(cp); -#endif /* COMPAT */ - - dolp = STRNULL; - if (seterr) - stderror(ERR_OLD); -} - -static void -unDredc(c) - int c; -{ - - Dpeekrd = c; -} - -static int -Dredc() -{ - register int c; - - if ((c = Dpeekrd) != 0) { - Dpeekrd = 0; - return (c); - } - if (Dcp && (c = *Dcp++)) - return (c & (QUOTE | TRIM)); - if (*Dvp == 0) { - Dcp = 0; - return (DEOF); - } - Dcp = *Dvp++; - return (' '); -} - -static void -Dtestq(c) - register int c; -{ - - if (cmap(c, QUOTES)) - gflag = 1; -} - -/* - * Form a shell temporary file (in unit 0) from the words - * of the shell input up to EOF or a line the same as "term". - * Unit 0 should have been closed before this call. - */ -void -heredoc(term) - Char *term; -{ - register int c; - Char *Dv[2]; - Char obuf[BUFSIZE], lbuf[BUFSIZE], mbuf[BUFSIZE]; - int ocnt, lcnt, mcnt; - register Char *lbp, *obp, *mbp; - Char **vp; - bool quoted; - char *tmp; - - tmp = short2str(shtemp); -#ifndef O_CREAT -# define O_CREAT 0 - if (creat(tmp, 0600) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); -#endif - (void) close(0); -#ifndef O_TEMPORARY -# define O_TEMPORARY 0 -#endif - if (open(tmp, O_RDWR|O_CREAT|O_TEMPORARY) < 0) { - int oerrno = errno; - - (void) unlink(tmp); - errno = oerrno; - stderror(ERR_SYSTEM, tmp, strerror(errno)); - } - (void) unlink(tmp); /* 0 0 inode! */ - Dv[0] = term; - Dv[1] = NULL; - gflag = 0; - trim(Dv); - rscan(Dv, Dtestq); - quoted = gflag; - ocnt = BUFSIZE; - obp = obuf; - inheredoc = 1; -#ifdef WINNT - __dup_stdin = 1; -#endif /* WINNT */ - for (;;) { - /* - * Read up a line - */ - lbp = lbuf; - lcnt = BUFSIZE - 4; - for (;;) { - c = readc(1); /* 1 -> Want EOF returns */ - if (c < 0 || c == '\n') - break; - if ((c &= TRIM) != 0) { - *lbp++ = (Char) c; - if (--lcnt < 0) { - setname("<<"); - stderror(ERR_NAME | ERR_OVERFLOW); - } - } - } - *lbp = 0; - - /* - * Check for EOF or compare to terminator -- before expansion - */ - if (c < 0 || eq(lbuf, term)) { - (void) write(0, short2str(obuf), (size_t) (BUFSIZE - ocnt)); - (void) lseek(0, (off_t) 0, L_SET); - inheredoc = 0; - return; - } - - /* - * If term was quoted or -n just pass it on - */ - if (quoted || noexec) { - *lbp++ = '\n'; - *lbp = 0; - for (lbp = lbuf; (c = *lbp++) != 0;) { - *obp++ = (Char) c; - if (--ocnt == 0) { - (void) write(0, short2str(obuf), BUFSIZE); - obp = obuf; - ocnt = BUFSIZE; - } - } - continue; - } - - /* - * Term wasn't quoted so variable and then command expand the input - * line - */ - Dcp = lbuf; - Dvp = Dv + 1; - mbp = mbuf; - mcnt = BUFSIZE - 4; - for (;;) { - c = DgetC(DODOL); - if (c == DEOF) - break; - if ((c &= TRIM) == 0) - continue; - /* \ quotes \ $ ` here */ - if (c == '\\') { - c = DgetC(0); - if (!any("$\\`", c)) - unDgetC(c | QUOTE), c = '\\'; - else - c |= QUOTE; - } - *mbp++ = (Char) c; - if (--mcnt == 0) { - setname("<<"); - stderror(ERR_NAME | ERR_OVERFLOW); - } - } - *mbp++ = 0; - - /* - * If any ` in line do command substitution - */ - mbp = mbuf; - if (Strchr(mbp, '`') != NULL) { - /* - * 1 arg to dobackp causes substitution to be literal. Words are - * broken only at newlines so that all blanks and tabs are - * preserved. Blank lines (null words) are not discarded. - */ - vp = dobackp(mbuf, 1); - } - else - /* Setup trivial vector similar to return of dobackp */ - Dv[0] = mbp, Dv[1] = NULL, vp = Dv; - - /* - * Resurrect the words from the command substitution each separated by - * a newline. Note that the last newline of a command substitution - * will have been discarded, but we put a newline after the last word - * because this represents the newline after the last input line! - */ - for (; *vp; vp++) { - for (mbp = *vp; *mbp; mbp++) { - *obp++ = *mbp & TRIM; - if (--ocnt == 0) { - (void) write(0, short2str(obuf), BUFSIZE); - obp = obuf; - ocnt = BUFSIZE; - } - } - *obp++ = '\n'; - if (--ocnt == 0) { - (void) write(0, short2str(obuf), BUFSIZE); - obp = obuf; - ocnt = BUFSIZE; - } - } - if (pargv) - blkfree(pargv), pargv = 0; - } -} diff --git a/contrib/tcsh/sh.err.c b/contrib/tcsh/sh.err.c deleted file mode 100644 index b53fe7e56b9a..000000000000 --- a/contrib/tcsh/sh.err.c +++ /dev/null @@ -1,522 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.err.c,v 3.34 1999/05/11 13:07:45 christos Exp $ */ -/* - * sh.err.c: Error printing routines. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#define _h_sh_err /* Don't redefine the errors */ -#include "sh.h" - -RCSID("$Id: sh.err.c,v 3.34 1999/05/11 13:07:45 christos Exp $") - -/* - * C Shell - */ - -#ifdef lint -#undef va_arg -#define va_arg(a, b) (a ? (b) 0 : (b) 0) -#endif - -char *seterr = NULL; /* Holds last error if there was one */ - -#define ERR_FLAGS 0xf0000000 -#define ERR_NAME 0x10000000 -#define ERR_SILENT 0x20000000 -#define ERR_OLD 0x40000000 - -#define ERR_SYNTAX 0 -#define ERR_NOTALLOWED 1 -#define ERR_WTOOLONG 2 -#define ERR_LTOOLONG 3 -#define ERR_DOLZERO 4 -#define ERR_INCBR 5 -#define ERR_EXPORD 6 -#define ERR_BADMOD 7 -#define ERR_SUBSCRIPT 8 -#define ERR_BADNUM 9 -#define ERR_NOMORE 10 -#define ERR_FILENAME 11 -#define ERR_GLOB 12 -#define ERR_COMMAND 13 -#define ERR_TOOFEW 14 -#define ERR_TOOMANY 15 -#define ERR_DANGER 16 -#define ERR_EMPTYIF 17 -#define ERR_IMPRTHEN 18 -#define ERR_NOPAREN 19 -#define ERR_NOTFOUND 20 -#define ERR_MASK 21 -#define ERR_LIMIT 22 -#define ERR_TOOLARGE 23 -#define ERR_SCALEF 24 -#define ERR_UNDVAR 25 -#define ERR_DEEP 26 -#define ERR_BADSIG 27 -#define ERR_UNKSIG 28 -#define ERR_VARBEGIN 29 -#define ERR_VARTOOLONG 30 -#define ERR_VARALNUM 31 -#define ERR_JOBCONTROL 32 -#define ERR_EXPRESSION 33 -#define ERR_NOHOMEDIR 34 -#define ERR_CANTCHANGE 35 -#define ERR_NULLCOM 36 -#define ERR_ASSIGN 37 -#define ERR_UNKNOWNOP 38 -#define ERR_AMBIG 39 -#define ERR_EXISTS 40 -#define ERR_ARGC 41 -#define ERR_INTR 42 -#define ERR_RANGE 43 -#define ERR_OVERFLOW 44 -#define ERR_NOSUCHJOB 45 -#define ERR_TERMINAL 46 -#define ERR_NOTWHILE 47 -#define ERR_NOPROC 48 -#define ERR_NOMATCH 49 -#define ERR_MISSING 50 -#define ERR_UNMATCHED 51 -#define ERR_NOMEM 52 -#define ERR_PIPE 53 -#define ERR_SYSTEM 54 -#define ERR_STRING 55 -#define ERR_JOBS 56 -#define ERR_JOBARGS 57 -#define ERR_JOBCUR 58 -#define ERR_JOBPREV 59 -#define ERR_JOBPAT 60 -#define ERR_NESTING 61 -#define ERR_JOBCTRLSUB 62 -#define ERR_SYNC 63 -#define ERR_STOPPED 64 -#define ERR_NODIR 65 -#define ERR_EMPTY 66 -#define ERR_BADDIR 67 -#define ERR_DIRUS 68 -#define ERR_HFLAG 69 -#define ERR_NOTLOGIN 70 -#define ERR_DIV0 71 -#define ERR_MOD0 72 -#define ERR_BADSCALE 73 -#define ERR_SUSPLOG 74 -#define ERR_UNKUSER 75 -#define ERR_NOHOME 76 -#define ERR_HISTUS 77 -#define ERR_SPDOLLT 78 -#define ERR_NEWLINE 79 -#define ERR_SPSTAR 80 -#define ERR_DIGIT 81 -#define ERR_VARILL 82 -#define ERR_NLINDEX 83 -#define ERR_EXPOVFL 84 -#define ERR_VARSYN 85 -#define ERR_BADBANG 86 -#define ERR_NOSUBST 87 -#define ERR_BADSUBST 88 -#define ERR_LHS 89 -#define ERR_RHSLONG 90 -#define ERR_BADBANGMOD 91 -#define ERR_MODFAIL 92 -#define ERR_SUBOVFL 93 -#define ERR_BADBANGARG 94 -#define ERR_NOSEARCH 95 -#define ERR_NOEVENT 96 -#define ERR_TOOMANYRP 97 -#define ERR_TOOMANYLP 98 -#define ERR_BADPLP 99 -#define ERR_MISRED 100 -#define ERR_OUTRED 101 -#define ERR_REDPAR 102 -#define ERR_INRED 103 -#define ERR_BADPLPS 104 -#define ERR_ALIASLOOP 105 -#define ERR_NOWATCH 106 -#define ERR_NOSCHED 107 -#define ERR_SCHEDUSAGE 108 -#define ERR_SCHEDEV 109 -#define ERR_SCHEDCOM 110 -#define ERR_SCHEDTIME 111 -#define ERR_SCHEDREL 112 -#define ERR_TCNOSTR 113 -#define ERR_SETTCUS 114 -#define ERR_TCCAP 115 -#define ERR_TCPARM 116 -#define ERR_TCARGS 117 -#define ERR_TCNARGS 118 -#define ERR_TCUSAGE 119 -#define ERR_ARCH 120 -#define ERR_HISTLOOP 121 -#define ERR_FILEINQ 122 -#define ERR_SELOVFL 123 -#define ERR_TCSHUSAGE 124 -#define ERR_COMPCOM 125 -#define ERR_COMPINV 126 -#define ERR_COMPMIS 127 -#define ERR_COMPINC 128 -#define ERR_MFLAG 129 -#define ERR_ULIMUS 130 -#define ERR_READONLY 131 -#define ERR_BADJOB 132 -#define ERR_INVALID 133 -#define ERR_BADCOLORVAR 134 -#define NO_ERRORS 135 - -static char *elst[NO_ERRORS] INIT_ZERO_STRUCT; - -/* - * Init the elst depending on the locale - */ -void -errinit() -{ -#ifdef NLS_CATALOGS - int i; - - for (i = 0; i < NO_ERRORS; i++) - xfree((ptr_t) elst[i]); -# if defined(__FreeBSD__) || defined(hpux) -# define NLS_MAXSET 30 - for (i = 1; i <= NLS_MAXSET; i++) - CGETS(i, 1, "" ); -# endif -#endif - - elst[ERR_SYNTAX] = CSAVS(1, 1, "Syntax Error"); - elst[ERR_NOTALLOWED] = CSAVS(1, 2, "%s is not allowed"); - elst[ERR_WTOOLONG] = CSAVS(1, 3, "Word too long"); - elst[ERR_LTOOLONG] = CSAVS(1, 4, "$< line too long"); - elst[ERR_DOLZERO] = CSAVS(1, 5, "No file for $0"); - elst[ERR_INCBR] = CSAVS(1, 6, "Incomplete [] modifier"); - elst[ERR_EXPORD] = CSAVS(1, 7, "$ expansion must end before ]"); - elst[ERR_BADMOD] = CSAVS(1, 8, "Bad : modifier in $ (%c)"); - elst[ERR_SUBSCRIPT] = CSAVS(1, 9, "Subscript error"); - elst[ERR_BADNUM] = CSAVS(1, 10, "Badly formed number"); - elst[ERR_NOMORE] = CSAVS(1, 11, "No more words"); - elst[ERR_FILENAME] = CSAVS(1, 12, "Missing file name"); - elst[ERR_GLOB] = CSAVS(1, 13, "Internal glob error"); - elst[ERR_COMMAND] = CSAVS(1, 14, "Command not found"); - elst[ERR_TOOFEW] = CSAVS(1, 15, "Too few arguments"); - elst[ERR_TOOMANY] = CSAVS(1, 16, "Too many arguments"); - elst[ERR_DANGER] = CSAVS(1, 17, "Too dangerous to alias that"); - elst[ERR_EMPTYIF] = CSAVS(1, 18, "Empty if"); - elst[ERR_IMPRTHEN] = CSAVS(1, 19, "Improper then"); - elst[ERR_NOPAREN] = CSAVS(1, 20, "Words not parenthesized"); - elst[ERR_NOTFOUND] = CSAVS(1, 21, "%s not found"); - elst[ERR_MASK] = CSAVS(1, 22, "Improper mask"); - elst[ERR_LIMIT] = CSAVS(1, 23, "No such limit"); - elst[ERR_TOOLARGE] = CSAVS(1, 24, "Argument too large"); - elst[ERR_SCALEF] = CSAVS(1, 25, "Improper or unknown scale factor"); - elst[ERR_UNDVAR] = CSAVS(1, 26, "Undefined variable"); - elst[ERR_DEEP] = CSAVS(1, 27, "Directory stack not that deep"); - elst[ERR_BADSIG] = CSAVS(1, 28, "Bad signal number"); - elst[ERR_UNKSIG] = CSAVS(1, 29, "Unknown signal; kill -l lists signals"); - elst[ERR_VARBEGIN] = CSAVS(1, 30, "Variable name must begin with a letter"); - elst[ERR_VARTOOLONG] = CSAVS(1, 31, "Variable name too long"); - elst[ERR_VARALNUM] = CSAVS(1, 32, - "Variable name must contain alphanumeric characters"); - elst[ERR_JOBCONTROL] = CSAVS(1, 33, "No job control in this shell"); - elst[ERR_EXPRESSION] = CSAVS(1, 34, "Expression Syntax"); - elst[ERR_NOHOMEDIR] = CSAVS(1, 35, "No home directory"); - elst[ERR_CANTCHANGE] = CSAVS(1, 36, "Can't change to home directory"); - elst[ERR_NULLCOM] = CSAVS(1, 37, "Invalid null command"); - elst[ERR_ASSIGN] = CSAVS(1, 38, "Assignment missing expression"); - elst[ERR_UNKNOWNOP] = CSAVS(1, 39, "Unknown operator"); - elst[ERR_AMBIG] = CSAVS(1, 40, "Ambiguous"); - elst[ERR_EXISTS] = CSAVS(1, 41, "%s: File exists"); - elst[ERR_ARGC] = CSAVS(1, 42, "Argument for -c ends in backslash"); - elst[ERR_INTR] = CSAVS(1, 43, "Interrupted"); - elst[ERR_RANGE] = CSAVS(1, 44, "Subscript out of range"); - elst[ERR_OVERFLOW] = CSAVS(1, 45, "Line overflow"); - elst[ERR_NOSUCHJOB] = CSAVS(1, 46, "No such job"); - elst[ERR_TERMINAL] = CSAVS(1, 47, "Can't from terminal"); - elst[ERR_NOTWHILE] = CSAVS(1, 48, "Not in while/foreach"); - elst[ERR_NOPROC] = CSAVS(1, 49, "No more processes"); - elst[ERR_NOMATCH] = CSAVS(1, 50, "No match"); - elst[ERR_MISSING] = CSAVS(1, 51, "Missing %c"); - elst[ERR_UNMATCHED] = CSAVS(1, 52, "Unmatched %c"); - elst[ERR_NOMEM] = CSAVS(1, 53, "Out of memory"); - elst[ERR_PIPE] = CSAVS(1, 54, "Can't make pipe"); - elst[ERR_SYSTEM] = CSAVS(1, 55, "%s: %s"); - elst[ERR_STRING] = CSAVS(1, 56, "%s"); - elst[ERR_JOBS] = CSAVS(1, 57, "Usage: jobs [ -l ]"); - elst[ERR_JOBARGS] = CSAVS(1, 58, "Arguments should be jobs or process id's"); - elst[ERR_JOBCUR] = CSAVS(1, 59, "No current job"); - elst[ERR_JOBPREV] = CSAVS(1, 60, "No previous job"); - elst[ERR_JOBPAT] = CSAVS(1, 61, "No job matches pattern"); - elst[ERR_NESTING] = CSAVS(1, 62, "Fork nesting > %d; maybe `...` loop"); - elst[ERR_JOBCTRLSUB] = CSAVS(1, 63, "No job control in subshells"); - elst[ERR_SYNC] = CSAVS(1, 64, "Sync fault: Process %d not found"); - elst[ERR_STOPPED] = -#ifdef SUSPENDED - CSAVS(1, 65, "%sThere are suspended jobs"); -#else - CSAVS(1, 66, "%sThere are stopped jobs"); -#endif /* SUSPENDED */ - elst[ERR_NODIR] = CSAVS(1, 67, "No other directory"); - elst[ERR_EMPTY] = CSAVS(1, 68, "Directory stack empty"); - elst[ERR_BADDIR] = CSAVS(1, 69, "Bad directory"); - elst[ERR_DIRUS] = CSAVS(1, 70, "Usage: %s [-%s]%s"); - elst[ERR_HFLAG] = CSAVS(1, 71, "No operand for -h flag"); - elst[ERR_NOTLOGIN] = CSAVS(1, 72, "Not a login shell"); - elst[ERR_DIV0] = CSAVS(1, 73, "Division by 0"); - elst[ERR_MOD0] = CSAVS(1, 74, "Mod by 0"); - elst[ERR_BADSCALE] = CSAVS(1, 75, "Bad scaling; did you mean \"%s\"?"); - elst[ERR_SUSPLOG] = CSAVS(1, 76, "Can't suspend a login shell (yet)"); - elst[ERR_UNKUSER] = CSAVS(1, 77, "Unknown user: %s"); - elst[ERR_NOHOME] = CSAVS(1, 78, "No $home variable set"); - elst[ERR_HISTUS] = CSAVS(1, 79, - "Usage: history [-%s] [# number of events]"); - elst[ERR_SPDOLLT] = CSAVS(1, 80, "$, ! or < not allowed with $# or $?"); - elst[ERR_NEWLINE] = CSAVS(1, 81, "Newline in variable name"); - elst[ERR_SPSTAR] = CSAVS(1, 82, "* not allowed with $# or $?"); - elst[ERR_DIGIT] = CSAVS(1, 83, "$?<digit> or $#<digit> not allowed"); - elst[ERR_VARILL] = CSAVS(1, 84, "Illegal variable name"); - elst[ERR_NLINDEX] = CSAVS(1, 85, "Newline in variable index"); - elst[ERR_EXPOVFL] = CSAVS(1, 86, "Expansion buffer overflow"); - elst[ERR_VARSYN] = CSAVS(1, 87, "Variable syntax"); - elst[ERR_BADBANG] = CSAVS(1, 88, "Bad ! form"); - elst[ERR_NOSUBST] = CSAVS(1, 89, "No previous substitute"); - elst[ERR_BADSUBST] = CSAVS(1, 90, "Bad substitute"); - elst[ERR_LHS] = CSAVS(1, 91, "No previous left hand side"); - elst[ERR_RHSLONG] = CSAVS(1, 92, "Right hand side too long"); - elst[ERR_BADBANGMOD] = CSAVS(1, 93, "Bad ! modifier: %c"); - elst[ERR_MODFAIL] = CSAVS(1, 94, "Modifier failed"); - elst[ERR_SUBOVFL] = CSAVS(1, 95, "Substitution buffer overflow"); - elst[ERR_BADBANGARG] = CSAVS(1, 96, "Bad ! arg selector"); - elst[ERR_NOSEARCH] = CSAVS(1, 97, "No prev search"); - elst[ERR_NOEVENT] = CSAVS(1, 98, "%s: Event not found"); - elst[ERR_TOOMANYRP] = CSAVS(1, 99, "Too many )'s"); - elst[ERR_TOOMANYLP] = CSAVS(1, 100, "Too many ('s"); - elst[ERR_BADPLP] = CSAVS(1, 101, "Badly placed ("); - elst[ERR_MISRED] = CSAVS(1, 102, "Missing name for redirect"); - elst[ERR_OUTRED] = CSAVS(1, 103, "Ambiguous output redirect"); - elst[ERR_REDPAR] = CSAVS(1, 104, "Can't << within ()'s"); - elst[ERR_INRED] = CSAVS(1, 105, "Ambiguous input redirect"); - elst[ERR_BADPLPS] = CSAVS(1, 106, "Badly placed ()'s"); - elst[ERR_ALIASLOOP] = CSAVS(1, 107, "Alias loop"); - elst[ERR_NOWATCH] = CSAVS(1, 108, "No $watch variable set"); - elst[ERR_NOSCHED] = CSAVS(1, 109, "No scheduled events"); - elst[ERR_SCHEDUSAGE] = CSAVS(1, 110, - "Usage: sched -<item#>.\nUsage: sched [+]hh:mm <command>"); - elst[ERR_SCHEDEV] = CSAVS(1, 111, "Not that many scheduled events"); - elst[ERR_SCHEDCOM] = CSAVS(1, 112, "No command to run"); - elst[ERR_SCHEDTIME] = CSAVS(1, 113, "Invalid time for event"); - elst[ERR_SCHEDREL] = CSAVS(1, 114, "Relative time inconsistent with am/pm"); - elst[ERR_TCNOSTR] = CSAVS(1, 115, "Out of termcap string space"); - elst[ERR_SETTCUS] = CSAVS(1, 116, "Usage: settc %s [yes|no]"); - elst[ERR_TCCAP] = CSAVS(1, 117, "Unknown capability `%s'"); - elst[ERR_TCPARM] = CSAVS(1, 118, "Unknown termcap parameter `%%%c'"); - elst[ERR_TCARGS] = CSAVS(1, 119, "Too many arguments for `%s' (%d)"); - elst[ERR_TCNARGS] = CSAVS(1, 120, "`%s' requires %d arguments"); - elst[ERR_TCUSAGE] = CSAVS(1, 121, - "Usage: echotc [-v|-s] [<capability> [<args>]]"); - elst[ERR_ARCH] = CSAVS(1, 122, "%s: %s. Binary file not executable"); - elst[ERR_HISTLOOP] = CSAVS(1, 123, "!# History loop"); - elst[ERR_FILEINQ] = CSAVS(1, 124, "Malformed file inquiry"); - elst[ERR_SELOVFL] = CSAVS(1, 125, "Selector overflow"); -#ifdef apollo - elst[ERR_TCSHUSAGE] = CSAVS(1, 126, -"Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX -Dname[=value] ] [ argument ... ]"); -#else /* !apollo */ -# ifdef convex - elst[ERR_TCSHUSAGE] = CSAVS(1, 127, -"Unknown option: `-%s'\nUsage: %s [ -bcdefFilmnqstvVxX ] [ argument ... ]"); -# else /* rest */ - elst[ERR_TCSHUSAGE] = CSAVS(1, 128, -"Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX ] [ argument ... ]"); -# endif /* convex */ -#endif /* apollo */ - elst[ERR_COMPCOM] = CSAVS(1, 129, "\nInvalid completion: \"%s\""); - elst[ERR_COMPINV] = CSAVS(1, 130, "\nInvalid %s: '%c'"); - elst[ERR_COMPMIS] = CSAVS(1, 131, - "\nMissing separator '%c' after %s \"%s\""); - elst[ERR_COMPINC] = CSAVS(1, 132, "\nIncomplete %s: \"%s\""); - elst[ERR_MFLAG] = CSAVS(1, 133, "No operand for -m flag"); - elst[ERR_ULIMUS] = CSAVS(1, 134, "Usage: unlimit [-fh] [limits]"); - elst[ERR_READONLY] = CSAVS(1, 135, "$%S is read-only"); - elst[ERR_BADJOB] = CSAVS(1, 136, "No such job (badjob)"); - elst[ERR_BADCOLORVAR] = CSAVS(1, 137, "Unknown colorls variable `%c%c'"); -} -/* - * The parser and scanner set up errors for later by calling seterr, - * which sets the variable err as a side effect; later to be tested, - * e.g. in process. - */ -void -/*VARARGS1*/ -#ifdef FUNCPROTO -seterror(unsigned int id, ...) -#else -seterror(va_alist) - va_dcl -#endif -{ - - if (seterr == 0) { - va_list va; - char berr[BUFSIZE]; -#ifdef FUNCPROTO - va_start(va, id); -#else - unsigned int id; - va_start(va); - id = va_arg(va, unsigned int); -#endif - - if (id >= sizeof(elst) / sizeof(elst[0])) - id = ERR_INVALID; - xvsnprintf(berr, sizeof(berr), elst[id], va); - va_end(va); - - seterr = strsave(berr); - } -} - -/* - * Print the error with the given id. - * - * Special ids: - * ERR_SILENT: Print nothing. - * ERR_OLD: Print the previously set error if one was there. - * otherwise return. - * ERR_NAME: If this bit is set, print the name of the function - * in bname - * - * This routine always resets or exits. The flag haderr - * is set so the routine who catches the unwind can propogate - * it if they want. - * - * Note that any open files at the point of error will eventually - * be closed in the routine process in sh.c which is the only - * place error unwinds are ever caught. - */ -void -/*VARARGS*/ -#ifdef FUNCPROTO -stderror(unsigned int id, ...) -#else -stderror(va_alist) - va_dcl -#endif -{ - va_list va; - register Char **v; - int flags; - int vareturn; - -#ifdef FUNCPROTO - va_start(va, id); -#else - unsigned int id; - - va_start(va); - id = va_arg(va, unsigned int); -#endif - - /* - * Reset don't free flag for buggy os's - */ - dont_free = 0; - - flags = (int) id & ERR_FLAGS; - id &= ~ERR_FLAGS; - - /* Pyramid's OS/x has a subtle bug in <varargs.h> which prevents calling - * va_end more than once in the same function. -- sterling@netcom.com - */ - if (!((flags & ERR_OLD) && seterr == NULL)) { - vareturn = 0; /* Don't return immediately after va_end */ - if (id >= sizeof(elst) / sizeof(elst[0])) - id = ERR_INVALID; - - /* - * Must flush before we print as we wish output before the error to go - * on (some form of) standard output, while output after goes on (some - * form of) diagnostic output. If didfds then output will go to 1/2 - * else to FSHOUT/FSHDIAG. See flush in sh.print.c. - */ - flush(); - haderr = 1; /* Now to diagnostic output */ - timflg = 0; /* This isn't otherwise reset */ - - - if (!(flags & ERR_SILENT)) { - if (flags & ERR_NAME) - xprintf("%s: ", bname); - if ((flags & ERR_OLD)) { - /* Old error. */ - xprintf("%s.\n", seterr); - } else { - xvprintf(elst[id], va); - xprintf(".\n"); - } - } - } else { - vareturn = 1; /* Return immediately after va_end */ - } - va_end(va); - if (vareturn) - return; - - if (seterr) { - xfree((ptr_t) seterr); - seterr = NULL; - } - - if ((v = pargv) != 0) - pargv = 0, blkfree(v); - if ((v = gargv) != 0) - gargv = 0, blkfree(v); - - inheredoc = 0; /* Not anymore in a heredoc */ - didfds = 0; /* Forget about 0,1,2 */ - /* - * Go away if -e or we are a child shell - */ - if (exiterr || child) - xexit(1); - - /* - * Reset the state of the input. This buffered seek to end of file will - * also clear the while/foreach stack. - */ - btoeof(); - - set(STRstatus, Strsave(STR1), VAR_READWRITE); -#ifdef BSDJOBS - if (tpgrp > 0) - (void) tcsetpgrp(FSHTTY, tpgrp); -#endif - reset(); /* Unwind */ -} diff --git a/contrib/tcsh/sh.exec.c b/contrib/tcsh/sh.exec.c deleted file mode 100644 index 1751cf95fb13..000000000000 --- a/contrib/tcsh/sh.exec.c +++ /dev/null @@ -1,1262 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.exec.c,v 3.48 2000/01/14 22:57:27 christos Exp $ */ -/* - * sh.exec.c: Search, find, and execute a command! - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.exec.c,v 3.48 2000/01/14 22:57:27 christos Exp $") - -#include "tc.h" -#include "tw.h" -#ifdef WINNT -#include <nt.const.h> -#endif /*WINNT*/ - -/* - * C shell - */ - -#ifndef OLDHASH -# define FASTHASH /* Fast hashing is the default */ -#endif /* OLDHASH */ - -/* - * System level search and execute of a command. - * We look in each directory for the specified command name. - * If the name contains a '/' then we execute only the full path name. - * If there is no search path then we execute only full path names. - */ - -/* - * As we search for the command we note the first non-trivial error - * message for presentation to the user. This allows us often - * to show that a file has the wrong mode/no access when the file - * is not in the last component of the search path, so we must - * go on after first detecting the error. - */ -static char *exerr; /* Execution error message */ -static Char *expath; /* Path for exerr */ - -/* - * The two part hash function is designed to let texec() call the - * more expensive hashname() only once and the simple hash() several - * times (once for each path component checked). - * Byte size is assumed to be 8. - */ -#define BITS_PER_BYTE 8 - -#ifdef FASTHASH -/* - * xhash is an array of hash buckets which are used to hash execs. If - * it is allocated (havhash true), then to tell if ``name'' is - * (possibly) presend in the i'th component of the variable path, look - * at the [hashname(name)] bucket of size [hashwidth] bytes, in the [i - * mod size*8]'th bit. The cache size is defaults to a length of 1024 - * buckets, each 1 byte wide. This implementation guarantees that - * objects n bytes wide will be aligned on n byte boundaries. - */ -# define HSHMUL 241 - -static unsigned long *xhash = NULL; -static unsigned int hashlength = 0, uhashlength = 0; -static unsigned int hashwidth = 0, uhashwidth = 0; -static int hashdebug = 0; - -# define hash(a, b) (((a) * HSHMUL + (b)) % (hashlength)) -# define widthof(t) (sizeof(t) * BITS_PER_BYTE) -# define tbit(f, i, t) (((t *) xhash)[(f)] & \ - (1L << (i & (widthof(t) - 1)))) -# define tbis(f, i, t) (((t *) xhash)[(f)] |= \ - (1L << (i & (widthof(t) - 1)))) -# define cbit(f, i) tbit(f, i, unsigned char) -# define cbis(f, i) tbis(f, i, unsigned char) -# define sbit(f, i) tbit(f, i, unsigned short) -# define sbis(f, i) tbis(f, i, unsigned short) -# define ibit(f, i) tbit(f, i, unsigned int) -# define ibis(f, i) tbis(f, i, unsigned int) -# define lbit(f, i) tbit(f, i, unsigned long) -# define lbis(f, i) tbis(f, i, unsigned long) - -# define bit(f, i) (hashwidth==sizeof(unsigned char) ? cbit(f,i) : \ - ((hashwidth==sizeof(unsigned short) ? sbit(f,i) : \ - ((hashwidth==sizeof(unsigned int) ? ibit(f,i) : \ - lbit(f,i)))))) -# define bis(f, i) (hashwidth==sizeof(unsigned char) ? cbis(f,i) : \ - ((hashwidth==sizeof(unsigned short) ? sbis(f,i) : \ - ((hashwidth==sizeof(unsigned int) ? ibis(f,i) : \ - lbis(f,i)))))) -#else /* OLDHASH */ -/* - * Xhash is an array of HSHSIZ bits (HSHSIZ / 8 chars), which are used - * to hash execs. If it is allocated (havhash true), then to tell - * whether ``name'' is (possibly) present in the i'th component - * of the variable path, you look at the bit in xhash indexed by - * hash(hashname("name"), i). This is setup automatically - * after .login is executed, and recomputed whenever ``path'' is - * changed. - */ -# define HSHSIZ 8192 /* 1k bytes */ -# define HSHMASK (HSHSIZ - 1) -# define HSHMUL 243 -static char xhash[HSHSIZ / BITS_PER_BYTE]; - -# define hash(a, b) (((a) * HSHMUL + (b)) & HSHMASK) -# define bit(h, b) ((h)[(b) >> 3] & 1 << ((b) & 7)) /* bit test */ -# define bis(h, b) ((h)[(b) >> 3] |= 1 << ((b) & 7)) /* bit set */ - -#endif /* FASTHASH */ - -#ifdef VFORK -static int hits, misses; -#endif /* VFORK */ - -/* Dummy search path for just absolute search when no path */ -static Char *justabs[] = {STRNULL, 0}; - -static void pexerr __P((void)); -static void texec __P((Char *, Char **)); -static int hashname __P((Char *)); -static int iscommand __P((Char *)); - -void -doexec(t) - register struct command *t; -{ - register Char *dp, **pv, **av, *sav; - register struct varent *v; - register bool slash; - register int hashval, i; - Char *blk[2]; - - /* - * Glob the command name. We will search $path even if this does something, - * as in sh but not in csh. One special case: if there is no PATH, then we - * execute only commands which start with '/'. - */ - blk[0] = t->t_dcom[0]; - blk[1] = 0; - gflag = 0, tglob(blk); - if (gflag) { - pv = globall(blk); - if (pv == 0) { - setname(short2str(blk[0])); - stderror(ERR_NAME | ERR_NOMATCH); - } - gargv = 0; - } - else - pv = saveblk(blk); - - trim(pv); - - exerr = 0; - expath = Strsave(pv[0]); -#ifdef VFORK - Vexpath = expath; -#endif /* VFORK */ - - v = adrof(STRpath); - if (v == 0 && expath[0] != '/' && expath[0] != '.') { - blkfree(pv); - pexerr(); - } - slash = any(short2str(expath), '/'); - - /* - * Glob the argument list, if necessary. Otherwise trim off the quote bits. - */ - gflag = 0; - av = &t->t_dcom[1]; - tglob(av); - if (gflag) { - av = globall(av); - if (av == 0) { - blkfree(pv); - setname(short2str(expath)); - stderror(ERR_NAME | ERR_NOMATCH); - } - gargv = 0; - } - else - av = saveblk(av); - - blkfree(t->t_dcom); - t->t_dcom = blkspl(pv, av); - xfree((ptr_t) pv); - xfree((ptr_t) av); - av = t->t_dcom; - trim(av); - - if (*av == NULL || **av == '\0') - pexerr(); - - xechoit(av); /* Echo command if -x */ -#ifdef CLOSE_ON_EXEC - /* - * Since all internal file descriptors are set to close on exec, we don't - * need to close them explicitly here. Just reorient ourselves for error - * messages. - */ - SHIN = 0; - SHOUT = 1; - SHDIAG = 2; - OLDSTD = 0; - isoutatty = isatty(SHOUT); - isdiagatty = isatty(SHDIAG); -#else - closech(); /* Close random fd's */ -#endif - /* - * We must do this AFTER any possible forking (like `foo` in glob) so that - * this shell can still do subprocesses. - */ -#ifdef BSDSIGS - (void) sigsetmask((sigmask_t) 0); -#else /* BSDSIGS */ - (void) sigrelse(SIGINT); - (void) sigrelse(SIGCHLD); -#endif /* BSDSIGS */ - - /* - * If no path, no words in path, or a / in the filename then restrict the - * command search. - */ - if (v == 0 || v->vec[0] == 0 || slash) - pv = justabs; - else - pv = v->vec; - sav = Strspl(STRslash, *av);/* / command name for postpending */ -#ifdef VFORK - Vsav = sav; -#endif /* VFORK */ - hashval = havhash ? hashname(*av) : 0; - - i = 0; -#ifdef VFORK - hits++; -#endif /* VFORK */ - do { - /* - * Try to save time by looking at the hash table for where this command - * could be. If we are doing delayed hashing, then we put the names in - * one at a time, as the user enters them. This is kinda like Korn - * Shell's "tracked aliases". - */ - if (!slash && ABSOLUTEP(pv[0]) && havhash) { -#ifdef FASTHASH - if (!bit(hashval, i)) - goto cont; -#else /* OLDHASH */ - int hashval1 = hash(hashval, i); - if (!bit(xhash, hashval1)) - goto cont; -#endif /* FASTHASH */ - } - if (pv[0][0] == 0 || eq(pv[0], STRdot)) /* don't make ./xxx */ - { - -#ifdef COHERENT - if (t->t_dflg & F_AMPERSAND) { -# ifdef JOBDEBUG - xprintf("set SIGINT to SIG_IGN\n"); - xprintf("set SIGQUIT to SIG_DFL\n"); -# endif /* JOBDEBUG */ - (void) signal(SIGINT,SIG_IGN); /* may not be necessary */ - (void) signal(SIGQUIT,SIG_DFL); - } - - if (gointr && eq(gointr, STRminus)) { -# ifdef JOBDEBUG - xprintf("set SIGINT to SIG_IGN\n"); - xprintf("set SIGQUIT to SIG_IGN\n"); -# endif /* JOBDEBUG */ - (void) signal(SIGINT,SIG_IGN); /* may not be necessary */ - (void) signal(SIGQUIT,SIG_IGN); - } -#endif /* COHERENT */ - - texec(*av, av); -} - else { - dp = Strspl(*pv, sav); -#ifdef VFORK - Vdp = dp; -#endif /* VFORK */ - -#ifdef COHERENT - if ((t->t_dflg & F_AMPERSAND)) { -# ifdef JOBDEBUG - xprintf("set SIGINT to SIG_IGN\n"); -# endif /* JOBDEBUG */ - /* - * this is necessary on Coherent or all background - * jobs are killed by CTRL-C - * (there must be a better fix for this) - */ - (void) signal(SIGINT,SIG_IGN); - } - if (gointr && eq(gointr,STRminus)) { -# ifdef JOBDEBUG - xprintf("set SIGINT to SIG_IGN\n"); - xprintf("set SIGQUIT to SIG_IGN\n"); -# endif /* JOBDEBUG */ - (void) signal(SIGINT,SIG_IGN); /* may not be necessary */ - (void) signal(SIGQUIT,SIG_IGN); - } -#endif /* COHERENT */ - - texec(dp, av); -#ifdef VFORK - Vdp = 0; -#endif /* VFORK */ - xfree((ptr_t) dp); - } -#ifdef VFORK - misses++; -#endif /* VFORK */ -cont: - pv++; - i++; - } while (*pv); -#ifdef VFORK - hits--; - Vsav = 0; -#endif /* VFORK */ - xfree((ptr_t) sav); - pexerr(); -} - -static void -pexerr() -{ - /* Couldn't find the damn thing */ - if (expath) { - setname(short2str(expath)); -#ifdef VFORK - Vexpath = 0; -#endif /* VFORK */ - xfree((ptr_t) expath); - expath = 0; - } - else - setname(""); - if (exerr) - stderror(ERR_NAME | ERR_STRING, exerr); - stderror(ERR_NAME | ERR_COMMAND); -} - -/* - * Execute command f, arg list t. - * Record error message if not found. - * Also do shell scripts here. - */ -static void -texec(sf, st) - Char *sf; - register Char **st; -{ - register char **t; - register char *f; - register struct varent *v; - Char **vp; - Char *lastsh[2]; - char pref[2]; - int fd; - Char *st0, **ost; - - /* The order for the conversions is significant */ - t = short2blk(st); - f = short2str(sf); -#ifdef VFORK - Vt = t; -#endif /* VFORK */ - errno = 0; /* don't use a previous error */ -#ifdef apollo - /* - * If we try to execute an nfs mounted directory on the apollo, we - * hang forever. So until apollo fixes that.. - */ - { - struct stat stb; - if (stat(f, &stb) == 0 && S_ISDIR(stb.st_mode)) - errno = EISDIR; - } - if (errno == 0) -#endif /* apollo */ - { -#ifdef ISC_POSIX_EXEC_BUG - __setostype(0); /* "0" is "__OS_SYSV" in <sys/user.h> */ -#endif /* ISC_POSIX_EXEC_BUG */ - (void) execv(f, t); -#ifdef ISC_POSIX_EXEC_BUG - __setostype(1); /* "1" is "__OS_POSIX" in <sys/user.h> */ -#endif /* ISC_POSIX_EXEC_BUG */ - } -#ifdef VFORK - Vt = 0; -#endif /* VFORK */ - blkfree((Char **) t); - switch (errno) { - - case ENOEXEC: -#ifdef WINNT - nt_feed_to_cmd(f,t); -#endif /* WINNT */ - /* - * From: casper@fwi.uva.nl (Casper H.S. Dik) If we could not execute - * it, don't feed it to the shell if it looks like a binary! - */ - if ((fd = open(f, O_RDONLY)) != -1) { - int nread; - if ((nread = read(fd, (char *) pref, 2)) == 2) { - if (!Isprint(pref[0]) && (pref[0] != '\n' && pref[0] != '\t')) { - (void) close(fd); - /* - * We *know* what ENOEXEC means. - */ - stderror(ERR_ARCH, f, strerror(errno)); - } - } - else if (nread < 0 && errno != EINTR) { -#ifdef convex - /* need to print error incase the file is migrated */ - stderror(ERR_SYSTEM, f, strerror(errno)); -#endif - } -#ifdef _PATH_BSHELL - else { - pref[0] = '#'; - pref[1] = '\0'; - } -#endif - } -#ifdef HASHBANG - if (fd == -1 || - pref[0] != '#' || pref[1] != '!' || hashbang(fd, &vp) == -1) { -#endif /* HASHBANG */ - /* - * If there is an alias for shell, then put the words of the alias in - * front of the argument list replacing the command name. Note no - * interpretation of the words at this point. - */ - v = adrof1(STRshell, &aliases); - if (v == 0) { - vp = lastsh; - vp[0] = adrof(STRshell) ? varval(STRshell) : STR_SHELLPATH; - vp[1] = NULL; -#ifdef _PATH_BSHELL - if (fd != -1 -# ifndef ISC /* Compatible with ISC's /bin/csh */ - && pref[0] != '#' -# endif /* ISC */ - ) - vp[0] = STR_BSHELL; -#endif - vp = saveblk(vp); - } - else - vp = saveblk(v->vec); -#ifdef HASHBANG - } -#endif /* HASHBANG */ - if (fd != -1) - (void) close(fd); - - st0 = st[0]; - st[0] = sf; - ost = st; - st = blkspl(vp, st); /* Splice up the new arglst */ - ost[0] = st0; - sf = *st; - /* The order for the conversions is significant */ - t = short2blk(st); - f = short2str(sf); - xfree((ptr_t) st); - blkfree((Char **) vp); -#ifdef VFORK - Vt = t; -#endif /* VFORK */ -#ifdef ISC_POSIX_EXEC_BUG - __setostype(0); /* "0" is "__OS_SYSV" in <sys/user.h> */ -#endif /* ISC_POSIX_EXEC_BUG */ - (void) execv(f, t); -#ifdef ISC_POSIX_EXEC_BUG - __setostype(1); /* "1" is "__OS_POSIX" in <sys/user.h> */ -#endif /* ISC_POSIX_EXEC_BUG */ -#ifdef VFORK - Vt = 0; -#endif /* VFORK */ - blkfree((Char **) t); - /* The sky is falling, the sky is falling! */ - stderror(ERR_SYSTEM, f, strerror(errno)); - break; - - case ENOMEM: - stderror(ERR_SYSTEM, f, strerror(errno)); - break; - -#ifdef _IBMR2 - case 0: /* execv fails and returns 0! */ -#endif /* _IBMR2 */ - case ENOENT: - break; - - default: - if (exerr == 0) { - exerr = strerror(errno); - if (expath) - xfree((ptr_t) expath); - expath = Strsave(sf); -#ifdef VFORK - Vexpath = expath; -#endif /* VFORK */ - } - break; - } -} - -/*ARGSUSED*/ -void -execash(t, kp) - Char **t; - register struct command *kp; -{ - int saveIN, saveOUT, saveDIAG, saveSTD; - int oSHIN; - int oSHOUT; - int oSHDIAG; - int oOLDSTD; - jmp_buf_t osetexit; - int my_reenter; - int odidfds; -#ifndef CLOSE_ON_EXEC - int odidcch; -#endif /* CLOSE_ON_EXEC */ - signalfun_t osigint, osigquit, osigterm; - - USE(t); - if (chkstop == 0 && setintr) - panystop(0); - /* - * Hmm, we don't really want to do that now because we might - * fail, but what is the choice - */ - rechist(NULL, adrof(STRsavehist) != NULL); - - - osigint = signal(SIGINT, parintr); - osigquit = signal(SIGQUIT, parintr); - osigterm = signal(SIGTERM, parterm); - - odidfds = didfds; -#ifndef CLOSE_ON_EXEC - odidcch = didcch; -#endif /* CLOSE_ON_EXEC */ - oSHIN = SHIN; - oSHOUT = SHOUT; - oSHDIAG = SHDIAG; - oOLDSTD = OLDSTD; - - saveIN = dcopy(SHIN, -1); - saveOUT = dcopy(SHOUT, -1); - saveDIAG = dcopy(SHDIAG, -1); - saveSTD = dcopy(OLDSTD, -1); - - lshift(kp->t_dcom, 1); - - getexit(osetexit); - - /* PWP: setjmp/longjmp bugfix for optimizing compilers */ -#ifdef cray - my_reenter = 1; /* assume non-zero return val */ - if (setexit() == 0) { - my_reenter = 0; /* Oh well, we were wrong */ -#else /* !cray */ - if ((my_reenter = setexit()) == 0) { -#endif /* cray */ - SHIN = dcopy(0, -1); - SHOUT = dcopy(1, -1); - SHDIAG = dcopy(2, -1); -#ifndef CLOSE_ON_EXEC - didcch = 0; -#endif /* CLOSE_ON_EXEC */ - didfds = 0; - /* - * Decrement the shell level - */ - shlvl(-1); -#ifdef WINNT - __nt_really_exec=1; -#endif /* WINNT */ - doexec(kp); - } - - (void) sigset(SIGINT, osigint); - (void) sigset(SIGQUIT, osigquit); - (void) sigset(SIGTERM, osigterm); - - doneinp = 0; -#ifndef CLOSE_ON_EXEC - didcch = odidcch; -#endif /* CLOSE_ON_EXEC */ - didfds = odidfds; - (void) close(SHIN); - (void) close(SHOUT); - (void) close(SHDIAG); - (void) close(OLDSTD); - SHIN = dmove(saveIN, oSHIN); - SHOUT = dmove(saveOUT, oSHOUT); - SHDIAG = dmove(saveDIAG, oSHDIAG); - OLDSTD = dmove(saveSTD, oOLDSTD); - - resexit(osetexit); - if (my_reenter) - stderror(ERR_SILENT); -} - -void -xechoit(t) - Char **t; -{ - if (adrof(STRecho)) { - flush(); - haderr = 1; - blkpr(t), xputchar('\n'); - haderr = 0; - } -} - -/*ARGSUSED*/ -void -dohash(vv, c) - Char **vv; - struct command *c; -{ -#ifdef COMMENT - struct stat stb; -#endif - DIR *dirp; - register struct dirent *dp; - int i = 0; - struct varent *v = adrof(STRpath); - Char **pv; - int hashval; -#ifdef WINNT - int is_windir; /* check if it is the windows directory */ - USE(hashval); -#endif /* WINNT */ - - USE(c); -#ifdef FASTHASH - if (vv && vv[1]) { - uhashlength = atoi(short2str(vv[1])); - if (vv[2]) { - uhashwidth = atoi(short2str(vv[2])); - if ((uhashwidth != sizeof(unsigned char)) && - (uhashwidth != sizeof(unsigned short)) && - (uhashwidth != sizeof(unsigned long))) - uhashwidth = 0; - if (vv[3]) - hashdebug = atoi(short2str(vv[3])); - } - } - - if (uhashwidth) - hashwidth = uhashwidth; - else { - hashwidth = 0; - for (pv = v->vec; *pv; pv++, hashwidth++) - continue; - if (hashwidth <= widthof(unsigned char)) - hashwidth = sizeof(unsigned char); - else if (hashwidth <= widthof(unsigned short)) - hashwidth = sizeof(unsigned short); - else if (hashwidth <= widthof(unsigned int)) - hashwidth = sizeof(unsigned int); - else - hashwidth = sizeof(unsigned long); - } - - if (uhashlength) - hashlength = uhashlength; - else - hashlength = hashwidth * (8*64);/* "average" files per dir in path */ - - if (xhash) - xfree((ptr_t) xhash); - xhash = (unsigned long *) xcalloc((size_t) (hashlength * hashwidth), - (size_t) 1); -#endif /* FASTHASH */ - - (void) getusername(NULL); /* flush the tilde cashe */ - tw_cmd_free(); - havhash = 1; - if (v == NULL) - return; - for (pv = v->vec; *pv; pv++, i++) { - if (!ABSOLUTEP(pv[0])) - continue; - dirp = opendir(short2str(*pv)); - if (dirp == NULL) - continue; -#ifdef COMMENT /* this isn't needed. opendir won't open - * non-dirs */ - if (fstat(dirp->dd_fd, &stb) < 0 || !S_ISDIR(stb.st_mode)) { - (void) closedir(dirp); - continue; - } -#endif -#ifdef WINNT - is_windir = nt_check_if_windir(short2str(*pv)); -#endif /* WINNT */ - while ((dp = readdir(dirp)) != NULL) { - if (dp->d_ino == 0) - continue; - if (dp->d_name[0] == '.' && - (dp->d_name[1] == '\0' || - (dp->d_name[1] == '.' && dp->d_name[2] == '\0'))) - continue; -#ifdef WINNT - nt_check_name_and_hash(is_windir, dp->d_name, i); -#else /* !WINNT */ -#if defined(_UWIN) /* XXX: Add cygwin too */ - /* Turn foo.{exe,com,bat} into foo since UWIN's readdir returns - * the file with the .exe, .com, .bat extension - */ - { - size_t ext = strlen(dp->d_name) - 4; - if ((ext > 0) && (strcmp(&dp->d_name[ext], ".exe") == 0 || - strcmp(&dp->d_name[ext], ".bat") == 0 || - strcmp(&dp->d_name[ext], ".com") == 0)) - dp->d_name[ext] = '\0'; - } -#endif /* _UWIN */ -# ifdef FASTHASH - hashval = hashname(str2short(dp->d_name)); - bis(hashval, i); - if (hashdebug & 1) - xprintf(CGETS(13, 1, "hash=%-4d dir=%-2d prog=%s\n"), - hashname(str2short(dp->d_name)), i, dp->d_name); -# else /* OLD HASH */ - hashval = hash(hashname(str2short(dp->d_name)), i); - bis(xhash, hashval); -# endif /* FASTHASH */ - /* tw_add_comm_name (dp->d_name); */ -#endif /* WINNT */ - } - (void) closedir(dirp); - } -} - -/*ARGSUSED*/ -void -dounhash(v, c) - Char **v; - struct command *c; -{ - USE(c); - USE(v); - havhash = 0; -#ifdef FASTHASH - if (xhash) { - xfree((ptr_t) xhash); - xhash = NULL; - } -#endif /* FASTHASH */ -} - -/*ARGSUSED*/ -void -hashstat(v, c) - Char **v; - struct command *c; -{ - USE(c); - USE(v); -#ifdef FASTHASH - if (havhash && hashlength && hashwidth) - xprintf(CGETS(13, 2, "%d hash buckets of %d bits each\n"), - hashlength, hashwidth*8); - if (hashdebug) - xprintf(CGETS(13, 3, "debug mask = 0x%08x\n"), hashdebug); -#endif /* FASTHASH */ -#ifdef VFORK - if (hits + misses) - xprintf(CGETS(13, 4, "%d hits, %d misses, %d%%\n"), - hits, misses, 100 * hits / (hits + misses)); -#endif -} - - -/* - * Hash a command name. - */ -static int -hashname(cp) - register Char *cp; -{ - register unsigned long h; - - for (h = 0; *cp; cp++) - h = hash(h, *cp); - return ((int) h); -} - -static int -iscommand(name) - Char *name; -{ - register Char **pv; - register Char *sav; - register struct varent *v; - register bool slash = any(short2str(name), '/'); - register int hashval, i; - - v = adrof(STRpath); - if (v == 0 || v->vec[0] == 0 || slash) - pv = justabs; - else - pv = v->vec; - sav = Strspl(STRslash, name); /* / command name for postpending */ - hashval = havhash ? hashname(name) : 0; - i = 0; - do { - if (!slash && ABSOLUTEP(pv[0]) && havhash) { -#ifdef FASTHASH - if (!bit(hashval, i)) - goto cont; -#else /* OLDHASH */ - int hashval1 = hash(hashval, i); - if (!bit(xhash, hashval1)) - goto cont; -#endif /* FASTHASH */ - } - if (pv[0][0] == 0 || eq(pv[0], STRdot)) { /* don't make ./xxx */ - if (executable(NULL, name, 0)) { - xfree((ptr_t) sav); - return i + 1; - } - } - else { - if (executable(*pv, sav, 0)) { - xfree((ptr_t) sav); - return i + 1; - } - } -cont: - pv++; - i++; - } while (*pv); - xfree((ptr_t) sav); - return 0; -} - -/* Also by: - * Andreas Luik <luik@isaak.isa.de> - * I S A GmbH - Informationssysteme fuer computerintegrierte Automatisierung - * Azenberstr. 35 - * D-7000 Stuttgart 1 - * West-Germany - * is the executable() routine below and changes to iscommand(). - * Thanks again!! - */ - -/* - * executable() examines the pathname obtained by concatenating dir and name - * (dir may be NULL), and returns 1 either if it is executable by us, or - * if dir_ok is set and the pathname refers to a directory. - * This is a bit kludgy, but in the name of optimization... - */ -int -executable(dir, name, dir_ok) - Char *dir, *name; - bool dir_ok; -{ - struct stat stbuf; - Char path[MAXPATHLEN + 1]; - char *strname; -#ifdef WINNT - int nt_exetype; -#endif /* WINNT */ - (void) memset(path, 0, sizeof(path)); - - if (dir && *dir) { - copyn(path, dir, MAXPATHLEN); - catn(path, name, MAXPATHLEN); -#ifdef WINNT - { - char *ptr = short2str(path); - char *p2 = ptr; - int has_ext = 0; - - while (*ptr++) - continue; - --ptr; - - while(ptr > p2) { - if (*ptr == '/') - break; - if (*ptr == '.') { - has_ext = 1; - break; - } - ptr--; - } - if (!has_ext && (stat(p2, &stbuf) == -1)) - catn(path, STRdotEXE, MAXPATHLEN); - } -#endif /* WINNT */ - strname = short2str(path); - } - else - strname = short2str(name); - - return (stat(strname, &stbuf) != -1 && - ((dir_ok && S_ISDIR(stbuf.st_mode)) || - (S_ISREG(stbuf.st_mode) && - /* save time by not calling access() in the hopeless case */ -#ifdef WINNT - (GetBinaryType(strname,&nt_exetype) || - (stbuf.st_mode & (S_IXOTH | S_IXGRP | S_IXUSR))) -#else /* !WINNT */ - (stbuf.st_mode & (S_IXOTH | S_IXGRP | S_IXUSR)) && - access(strname, X_OK) == 0 -#endif /* WINNT */ - ))); -} - -int -tellmewhat(lexp, str) - struct wordent *lexp; - Char *str; -{ - register int i; - register struct biltins *bptr; - register struct wordent *sp = lexp->next; - bool aliased = 0, found; - Char *s0, *s1, *s2, *cmd; - Char qc; - - if (adrof1(sp->word, &aliases)) { - alias(lexp); - sp = lexp->next; - aliased = 1; - } - - s0 = sp->word; /* to get the memory freeing right... */ - - /* handle quoted alias hack */ - if ((*(sp->word) & (QUOTE | TRIM)) == QUOTE) - (sp->word)++; - - /* do quoting, if it hasn't been done */ - s1 = s2 = sp->word; - while (*s2) - switch (*s2) { - case '\'': - case '"': - qc = *s2++; - while (*s2 && *s2 != qc) - *s1++ = *s2++ | QUOTE; - if (*s2) - s2++; - break; - case '\\': - if (*++s2) - *s1++ = *s2++ | QUOTE; - break; - default: - *s1++ = *s2++; - } - *s1 = '\0'; - - for (bptr = bfunc; bptr < &bfunc[nbfunc]; bptr++) { - if (eq(sp->word, str2short(bptr->bname))) { - if (str == NULL) { - if (aliased) - prlex(lexp); - xprintf(CGETS(13, 5, "%S: shell built-in command.\n"), - sp->word); - flush(); - } - else - (void) Strcpy(str, sp->word); - sp->word = s0; /* we save and then restore this */ - return TRUE; - } - } -#ifdef WINNT - for (bptr = nt_bfunc; bptr < &nt_bfunc[nt_nbfunc]; bptr++) { - if (eq(sp->word, str2short(bptr->bname))) { - if (str == NULL) { - if (aliased) - prlex(lexp); - xprintf(CGETS(13, 5, "%S: shell built-in command.\n"), - sp->word); - flush(); - } - else - (void) Strcpy(str, sp->word); - sp->word = s0; /* we save and then restore this */ - return TRUE; - } - } -#endif /* WINNT*/ - - sp->word = cmd = globone(sp->word, G_IGNORE); - - if ((i = iscommand(sp->word)) != 0) { - register Char **pv; - register struct varent *v; - bool slash = any(short2str(sp->word), '/'); - - v = adrof(STRpath); - if (v == 0 || v->vec[0] == 0 || slash) - pv = justabs; - else - pv = v->vec; - - while (--i) - pv++; - if (pv[0][0] == 0 || eq(pv[0], STRdot)) { - if (!slash) { - sp->word = Strspl(STRdotsl, sp->word); - prlex(lexp); - xfree((ptr_t) sp->word); - } - else - prlex(lexp); - } - else { - s1 = Strspl(*pv, STRslash); - sp->word = Strspl(s1, sp->word); - xfree((ptr_t) s1); - if (str == NULL) - prlex(lexp); - else - (void) Strcpy(str, sp->word); - xfree((ptr_t) sp->word); - } - found = 1; - } - else { - if (str == NULL) { - if (aliased) - prlex(lexp); - xprintf(CGETS(13, 6, "%S: Command not found.\n"), sp->word); - flush(); - } - else - (void) Strcpy(str, sp->word); - found = 0; - } - sp->word = s0; /* we save and then restore this */ - xfree((ptr_t) cmd); - return found; -} - -/* - * Builtin to look at and list all places a command may be defined: - * aliases, shell builtins, and the path. - * - * Marc Horowitz <marc@mit.edu> - * MIT Student Information Processing Board - */ - -/*ARGSUSED*/ -void -dowhere(v, c) - register Char **v; - struct command *c; -{ - int found = 1; - USE(c); - for (v++; *v; v++) - found &= find_cmd(*v, 1); - /* Make status nonzero if any command is not found. */ - if (!found) - set(STRstatus, Strsave(STR1), VAR_READWRITE); -} - -int -find_cmd(cmd, prt) - Char *cmd; - int prt; -{ - struct varent *var; - struct biltins *bptr; - Char **pv; - Char *sv; - int hashval, i, ex, rval = 0; - - if (prt && any(short2str(cmd), '/')) { - xprintf(CGETS(13, 7, "where: / in command makes no sense\n")); - return rval; - } - - /* first, look for an alias */ - - if (prt && adrof1(cmd, &aliases)) { - if ((var = adrof1(cmd, &aliases)) != NULL) { - xprintf(CGETS(13, 8, "%S is aliased to "), cmd); - blkpr(var->vec); - xputchar('\n'); - rval = 1; - } - } - - /* next, look for a shell builtin */ - - for (bptr = bfunc; bptr < &bfunc[nbfunc]; bptr++) { - if (eq(cmd, str2short(bptr->bname))) { - rval = 1; - if (prt) - xprintf(CGETS(13, 9, "%S is a shell built-in\n"), cmd); - else - return rval; - } - } -#ifdef WINNT - for (bptr = nt_bfunc; bptr < &nt_bfunc[nt_nbfunc]; bptr++) { - if (eq(cmd, str2short(bptr->bname))) { - rval = 1; - if (prt) - xprintf(CGETS(13, 9, "%S is a shell built-in\n"), cmd); - else - return rval; - } - } -#endif /* WINNT*/ - - /* last, look through the path for the command */ - - if ((var = adrof(STRpath)) == NULL) - return rval; - - hashval = havhash ? hashname(cmd) : 0; - - sv = Strspl(STRslash, cmd); - - for (pv = var->vec, i = 0; *pv; pv++, i++) { - if (havhash && !eq(*pv, STRdot)) { -#ifdef FASTHASH - if (!bit(hashval, i)) - continue; -#else /* OLDHASH */ - int hashval1 = hash(hashval, i); - if (!bit(xhash, hashval1)) - continue; -#endif /* FASTHASH */ - } - ex = executable(*pv, sv, 0); -#ifdef FASTHASH - if (!ex && (hashdebug & 2)) { - xprintf(CGETS(13, 10, "hash miss: ")); - ex = 1; /* Force printing */ - } -#endif /* FASTHASH */ - if (ex) { - rval = 1; - if (prt) { - xprintf("%S/", *pv); - xprintf("%S\n", cmd); - } - else - return rval; - } - } - xfree((ptr_t) sv); - return rval; -} - -#ifdef WINNT -int -nt_check_if_windir(path) - char *path; -{ - char windir[MAX_PATH]; - - (void)GetWindowsDirectory(windir, sizeof(windir)); - windir[2] = '/'; - - return (strstr(path, windir) != NULL); -} - -void -nt_check_name_and_hash(is_windir, file, i) - int is_windir; - char *file; - int i; -{ - char name_only[MAX_PATH]; - char *tmp = (char *)strrchr(file, '.'); - char uptmp[5], *nameptr, *np2; - int icount, hashval; - - if(!tmp || tmp[4]) - goto nodot; - - for (icount = 0; icount < 4; icount++) - uptmp[icount] = toupper(tmp[icount]); - uptmp[4]=0; - - if (is_windir) - if((uptmp[1] != 'E') || (uptmp[2] != 'X') || (uptmp[3] != 'E')) - return; - (void) memset(name_only, 0, MAX_PATH); - nameptr = file; - np2 = name_only; - while(nameptr != tmp) { - *np2++= tolower(*nameptr); - nameptr++; - } - hashval = hashname(str2short(name_only)); - bis(hashval, i); -nodot: - hashval = hashname(str2short(file)); - bis(hashval, i); -} -int hashval_extern(cp) - Char *cp; -{ - return havhash?hashname(cp):0; -} -int bit_extern(val,i) - int val; - int i; -{ - return bit(val,i); -} -#endif /* WINNT */ diff --git a/contrib/tcsh/sh.exp.c b/contrib/tcsh/sh.exp.c deleted file mode 100644 index 6a267755fcf9..000000000000 --- a/contrib/tcsh/sh.exp.c +++ /dev/null @@ -1,1107 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.exp.c,v 3.38 1998/11/24 18:17:32 christos Exp $ */ -/* - * sh.exp.c: Expression evaluations - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.exp.c,v 3.38 1998/11/24 18:17:32 christos Exp $") - -/* - * C shell - */ - -#define TEXP_IGNORE 1 /* in ignore, it means to ignore value, just parse */ -#define TEXP_NOGLOB 2 /* in ignore, it means not to globone */ - -#define ADDOP 1 -#define MULOP 2 -#define EQOP 4 -#define RELOP 8 -#define RESTOP 16 -#define ANYOP 31 - -#define EQEQ 1 -#define GTR 2 -#define LSS 4 -#define NOTEQ 6 -#define EQMATCH 7 -#define NOTEQMATCH 8 - -static int sh_access __P((Char *, int)); -static int exp1 __P((Char ***, bool)); -static int exp2 __P((Char ***, bool)); -static int exp2a __P((Char ***, bool)); -static int exp2b __P((Char ***, bool)); -static int exp2c __P((Char ***, bool)); -static Char *exp3 __P((Char ***, bool)); -static Char *exp3a __P((Char ***, bool)); -static Char *exp4 __P((Char ***, bool)); -static Char *exp5 __P((Char ***, bool)); -static Char *exp6 __P((Char ***, bool)); -static void evalav __P((Char **)); -static int isa __P((Char *, int)); -static int egetn __P((Char *)); - - -#ifdef EDEBUG -static void etracc __P((char *, Char *, Char ***)); -static void etraci __P((char *, int, Char ***)); -#endif /* EDEBUG */ - - -/* - * shell access function according to POSIX and non POSIX - * From Beto Appleton (beto@aixwiz.aix.ibm.com) - */ -static int -sh_access(fname, mode) - Char *fname; - int mode; -{ -#if defined(POSIX) && !defined(USE_ACCESS) - struct stat statb; -#endif /* POSIX */ - char *name = short2str(fname); - - if (*name == '\0') - return 1; - -#if !defined(POSIX) || defined(USE_ACCESS) - return access(name, mode); -#else /* POSIX */ - - /* - * POSIX 1003.2-d11.2 - * -r file True if file exists and is readable. - * -w file True if file exists and is writable. - * True shall indicate only that the write flag is on. - * The file shall not be writable on a read-only file - * system even if this test indicates true. - * -x file True if file exists and is executable. - * True shall indicate only that the execute flag is on. - * If file is a directory, true indicates that the file - * can be searched. - */ - if (mode != W_OK && mode != X_OK) - return access(name, mode); - - if (stat(name, &statb) == -1) - return 1; - - if (access(name, mode) == 0) { -#ifdef S_ISDIR - if (S_ISDIR(statb.st_mode) && mode == X_OK) - return 0; -#endif /* S_ISDIR */ - - /* root needs permission for someone */ - switch (mode) { - case W_OK: - mode = S_IWUSR | S_IWGRP | S_IWOTH; - break; - case X_OK: - mode = S_IXUSR | S_IXGRP | S_IXOTH; - break; - default: - abort(); - break; - } - - } - - else if (euid == statb.st_uid) - mode <<= 6; - - else if (egid == statb.st_gid) - mode <<= 3; - -# ifdef NGROUPS_MAX - else { -# if defined(__386BSD__) || defined(BSD4_4) - /* - * These two decided that setgroup() should take an array of int's - * and they define _SC_NGROUPS_MAX without having sysconf - */ -# undef _SC_NGROUPS_MAX -# if defined(__NetBSD__) || defined(__FreeBSD__) || defined(__bsdi__) -# define GID_T gid_t -# else -# define GID_T int -# endif -# else -# define GID_T gid_t -# endif /* __386BSD__ || BSD4_4 */ - /* you can be in several groups */ - long n; - GID_T *groups; - - /* - * Try these things to find a positive maximum groups value: - * 1) sysconf(_SC_NGROUPS_MAX) - * 2) NGROUPS_MAX - * 3) getgroups(0, unused) - * Then allocate and scan the groups array if one of these worked. - */ -# ifdef _SC_NGROUPS_MAX - if ((n = sysconf(_SC_NGROUPS_MAX)) == -1) -# endif /* _SC_NGROUPS_MAX */ - n = NGROUPS_MAX; - if (n <= 0) - n = getgroups(0, (GID_T *) NULL); - - if (n > 0) { - groups = (GID_T *) xmalloc((size_t) (n * sizeof(GID_T))); - n = getgroups((int) n, groups); - while (--n >= 0) - if (groups[n] == statb.st_gid) { - mode <<= 3; - break; - } - } - } -# endif /* NGROUPS_MAX */ - - if (statb.st_mode & mode) - return 0; - else - return 1; -#endif /* !POSIX */ -} - -int -expr(vp) - register Char ***vp; -{ - return (exp0(vp, 0)); -} - -int -exp0(vp, ignore) - register Char ***vp; - bool ignore; -{ - register int p1 = exp1(vp, ignore); - -#ifdef EDEBUG - etraci("exp0 p1", p1, vp); -#endif /* EDEBUG */ - if (**vp && eq(**vp, STRor2)) { - register int p2; - - (*vp)++; - p2 = exp0(vp, (ignore & TEXP_IGNORE) || p1); -#ifdef EDEBUG - etraci("exp0 p2", p2, vp); -#endif /* EDEBUG */ - return (p1 || p2); - } - return (p1); -} - -static int -exp1(vp, ignore) - register Char ***vp; - bool ignore; -{ - register int p1 = exp2(vp, ignore); - -#ifdef EDEBUG - etraci("exp1 p1", p1, vp); -#endif /* EDEBUG */ - if (**vp && eq(**vp, STRand2)) { - register int p2; - - (*vp)++; - p2 = exp1(vp, (ignore & TEXP_IGNORE) || !p1); -#ifdef EDEBUG - etraci("exp1 p2", p2, vp); -#endif /* EDEBUG */ - return (p1 && p2); - } - return (p1); -} - -static int -exp2(vp, ignore) - register Char ***vp; - bool ignore; -{ - register int p1 = exp2a(vp, ignore); - -#ifdef EDEBUG - etraci("exp3 p1", p1, vp); -#endif /* EDEBUG */ - if (**vp && eq(**vp, STRor)) { - register int p2; - - (*vp)++; - p2 = exp2(vp, ignore); -#ifdef EDEBUG - etraci("exp3 p2", p2, vp); -#endif /* EDEBUG */ - return (p1 | p2); - } - return (p1); -} - -static int -exp2a(vp, ignore) - register Char ***vp; - bool ignore; -{ - register int p1 = exp2b(vp, ignore); - -#ifdef EDEBUG - etraci("exp2a p1", p1, vp); -#endif /* EDEBUG */ - if (**vp && eq(**vp, STRcaret)) { - register int p2; - - (*vp)++; - p2 = exp2a(vp, ignore); -#ifdef EDEBUG - etraci("exp2a p2", p2, vp); -#endif /* EDEBUG */ - return (p1 ^ p2); - } - return (p1); -} - -static int -exp2b(vp, ignore) - register Char ***vp; - bool ignore; -{ - register int p1 = exp2c(vp, ignore); - -#ifdef EDEBUG - etraci("exp2b p1", p1, vp); -#endif /* EDEBUG */ - if (**vp && eq(**vp, STRand)) { - register int p2; - - (*vp)++; - p2 = exp2b(vp, ignore); -#ifdef EDEBUG - etraci("exp2b p2", p2, vp); -#endif /* EDEBUG */ - return (p1 & p2); - } - return (p1); -} - -static int -exp2c(vp, ignore) - register Char ***vp; - bool ignore; -{ - register Char *p1 = exp3(vp, ignore); - register Char *p2; - register int i; - -#ifdef EDEBUG - etracc("exp2c p1", p1, vp); -#endif /* EDEBUG */ - if ((i = isa(**vp, EQOP)) != 0) { - (*vp)++; - if (i == EQMATCH || i == NOTEQMATCH) - ignore |= TEXP_NOGLOB; - p2 = exp3(vp, ignore); -#ifdef EDEBUG - etracc("exp2c p2", p2, vp); -#endif /* EDEBUG */ - if (!(ignore & TEXP_IGNORE)) - switch (i) { - - case EQEQ: - i = eq(p1, p2); - break; - - case NOTEQ: - i = !eq(p1, p2); - break; - - case EQMATCH: - i = Gmatch(p1, p2); - break; - - case NOTEQMATCH: - i = !Gmatch(p1, p2); - break; - } - xfree((ptr_t) p1); - xfree((ptr_t) p2); - return (i); - } - i = egetn(p1); - xfree((ptr_t) p1); - return (i); -} - -static Char * -exp3(vp, ignore) - register Char ***vp; - bool ignore; -{ - register Char *p1, *p2; - register int i; - - p1 = exp3a(vp, ignore); -#ifdef EDEBUG - etracc("exp3 p1", p1, vp); -#endif /* EDEBUG */ - if ((i = isa(**vp, RELOP)) != 0) { - (*vp)++; - if (**vp && eq(**vp, STRequal)) - i |= 1, (*vp)++; - p2 = exp3(vp, ignore); -#ifdef EDEBUG - etracc("exp3 p2", p2, vp); -#endif /* EDEBUG */ - if (!(ignore & TEXP_IGNORE)) - switch (i) { - - case GTR: - i = egetn(p1) > egetn(p2); - break; - - case GTR | 1: - i = egetn(p1) >= egetn(p2); - break; - - case LSS: - i = egetn(p1) < egetn(p2); - break; - - case LSS | 1: - i = egetn(p1) <= egetn(p2); - break; - } - xfree((ptr_t) p1); - xfree((ptr_t) p2); - return (putn(i)); - } - return (p1); -} - -static Char * -exp3a(vp, ignore) - register Char ***vp; - bool ignore; -{ - register Char *p1, *p2, *op; - register int i; - - p1 = exp4(vp, ignore); -#ifdef EDEBUG - etracc("exp3a p1", p1, vp); -#endif /* EDEBUG */ - op = **vp; - if (op && any("<>", op[0]) && op[0] == op[1]) { - (*vp)++; - p2 = exp3a(vp, ignore); -#ifdef EDEBUG - etracc("exp3a p2", p2, vp); -#endif /* EDEBUG */ - if (op[0] == '<') - i = egetn(p1) << egetn(p2); - else - i = egetn(p1) >> egetn(p2); - xfree((ptr_t) p1); - xfree((ptr_t) p2); - return (putn(i)); - } - return (p1); -} - -static Char * -exp4(vp, ignore) - register Char ***vp; - bool ignore; -{ - register Char *p1, *p2; - register int i = 0; - - p1 = exp5(vp, ignore); -#ifdef EDEBUG - etracc("exp4 p1", p1, vp); -#endif /* EDEBUG */ - if (isa(**vp, ADDOP)) { - register Char *op = *(*vp)++; - - p2 = exp4(vp, ignore); -#ifdef EDEBUG - etracc("exp4 p2", p2, vp); -#endif /* EDEBUG */ - if (!(ignore & TEXP_IGNORE)) - switch (op[0]) { - - case '+': - i = egetn(p1) + egetn(p2); - break; - - case '-': - i = egetn(p1) - egetn(p2); - break; - } - xfree((ptr_t) p1); - xfree((ptr_t) p2); - return (putn(i)); - } - return (p1); -} - -static Char * -exp5(vp, ignore) - register Char ***vp; - bool ignore; -{ - register Char *p1, *p2; - register int i = 0; - - p1 = exp6(vp, ignore); -#ifdef EDEBUG - etracc("exp5 p1", p1, vp); -#endif /* EDEBUG */ - - if (isa(**vp, MULOP)) { - register Char *op = *(*vp)++; - if ((ignore & TEXP_NOGLOB) != 0) - /* - * We are just trying to get the right side of - * a =~ or !~ operator - */ - return Strsave(op); - - p2 = exp5(vp, ignore); -#ifdef EDEBUG - etracc("exp5 p2", p2, vp); -#endif /* EDEBUG */ - if (!(ignore & TEXP_IGNORE)) - switch (op[0]) { - - case '*': - i = egetn(p1) * egetn(p2); - break; - - case '/': - i = egetn(p2); - if (i == 0) - stderror(ERR_DIV0); - i = egetn(p1) / i; - break; - - case '%': - i = egetn(p2); - if (i == 0) - stderror(ERR_MOD0); - i = egetn(p1) % i; - break; - } - xfree((ptr_t) p1); - xfree((ptr_t) p2); - return (putn(i)); - } - return (p1); -} - -static Char * -exp6(vp, ignore) - register Char ***vp; - bool ignore; -{ - int ccode, i = 0; - register Char *cp; - - if (**vp == 0) - stderror(ERR_NAME | ERR_EXPRESSION); - if (eq(**vp, STRbang)) { - (*vp)++; - cp = exp6(vp, ignore); -#ifdef EDEBUG - etracc("exp6 ! cp", cp, vp); -#endif /* EDEBUG */ - i = egetn(cp); - xfree((ptr_t) cp); - return (putn(!i)); - } - if (eq(**vp, STRtilde)) { - (*vp)++; - cp = exp6(vp, ignore); -#ifdef EDEBUG - etracc("exp6 ~ cp", cp, vp); -#endif /* EDEBUG */ - i = egetn(cp); - xfree((ptr_t) cp); - return (putn(~i)); - } - if (eq(**vp, STRLparen)) { - (*vp)++; - ccode = exp0(vp, ignore); -#ifdef EDEBUG - etraci("exp6 () ccode", ccode, vp); -#endif /* EDEBUG */ - if (*vp == 0 || **vp == 0 || ***vp != ')') - stderror(ERR_NAME | ERR_EXPRESSION); - (*vp)++; - return (putn(ccode)); - } - if (eq(**vp, STRLbrace)) { - register Char **v; - struct command faket; - Char *fakecom[2]; - - faket.t_dtyp = NODE_COMMAND; - faket.t_dflg = F_BACKQ; - faket.t_dcar = faket.t_dcdr = faket.t_dspr = NULL; - faket.t_dcom = fakecom; - fakecom[0] = STRfakecom; - fakecom[1] = NULL; - (*vp)++; - v = *vp; - for (;;) { - if (!**vp) - stderror(ERR_NAME | ERR_MISSING, '}'); - if (eq(*(*vp)++, STRRbrace)) - break; - } - if (ignore & TEXP_IGNORE) - return (Strsave(STRNULL)); - psavejob(); - if (pfork(&faket, -1) == 0) { - *--(*vp) = 0; - evalav(v); - exitstat(); - } - pwait(); - prestjob(); -#ifdef EDEBUG - etraci("exp6 {} status", egetn(varval(STRstatus)), vp); -#endif /* EDEBUG */ - return (putn(egetn(varval(STRstatus)) == 0)); - } - if (isa(**vp, ANYOP)) - return (Strsave(STRNULL)); - cp = *(*vp)++; -#ifdef convex -# define FILETESTS "erwxfdzoplstSXLbcugkmKR" -#else -# define FILETESTS "erwxfdzoplstSXLbcugkmK" -#endif /* convex */ -#define FILEVALS "ZAMCDIUGNFPL" - if (*cp == '-' && (any(FILETESTS, cp[1]) || any(FILEVALS, cp[1]))) - return(filetest(cp, vp, ignore)); -#ifdef EDEBUG - etracc("exp6 default", cp, vp); -#endif /* EDEBUG */ - return (ignore & TEXP_NOGLOB ? Strsave(cp) : globone(cp, G_APPEND)); -} - - -/* - * Extended file tests - * From: John Rowe <rowe@excc.exeter.ac.uk> - */ -Char * -filetest(cp, vp, ignore) - Char *cp, ***vp; - bool ignore; -{ -#ifdef convex - struct cvxstat stb, *st = NULL; -# define TCSH_STAT stat64 -#else -# define TCSH_STAT stat - struct stat stb, *st = NULL; -#endif /* convex */ - -#ifdef S_IFLNK -# ifdef convex - struct cvxstat lstb, *lst = NULL; -# define TCSH_LSTAT lstat64 -# else -# define TCSH_LSTAT lstat - struct stat lstb, *lst = NULL; -# endif /* convex */ - char *filnam; -#endif /* S_IFLNK */ - - int i = 0; - unsigned pmask = 0xffff; - bool altout = 0; - Char *ft = cp, *dp, *ep, *strdev, *strino, *strF, *str, valtest = '\0', - *errval = STR0; - char *string, string0[8]; - time_t footime; - struct passwd *pw; - struct group *gr; - - while(any(FILETESTS, *++ft)) - continue; - - if (!*ft && *(ft - 1) == 'L') - --ft; - - if (any(FILEVALS, *ft)) { - valtest = *ft++; - /* - * Value tests return '-1' on failure as 0 is - * a legitimate value for many of them. - * 'F' returns ':' for compatibility. - */ - errval = valtest == 'F' ? STRcolon : STRminus1; - - if (valtest == 'P' && *ft >= '0' && *ft <= '7') { - pmask = (char) *ft - '0'; - while ( *++ft >= '0' && *ft <= '7' ) - pmask = 8 * pmask + ((char) *ft - '0'); - } - if (Strcmp(ft, STRcolon) == 0 && any("AMCUGP", valtest)) { - altout = 1; - ++ft; - } - } - - if (*ft || ft == cp + 1) - stderror(ERR_NAME | ERR_FILEINQ); - - /* - * Detect missing file names by checking for operator in the file name - * position. However, if an operator name appears there, we must make - * sure that there's no file by that name (e.g., "/") before announcing - * an error. Even this check isn't quite right, since it doesn't take - * globbing into account. - */ - - if (isa(**vp, ANYOP) && TCSH_STAT(short2str(**vp), &stb)) - stderror(ERR_NAME | ERR_FILENAME); - - dp = *(*vp)++; - if (ignore & TEXP_IGNORE) - return (Strsave(STRNULL)); - ep = globone(dp, G_APPEND); - ft = &cp[1]; - do - switch (*ft) { - - case 'r': - i = !sh_access(ep, R_OK); - break; - - case 'w': - i = !sh_access(ep, W_OK); - break; - - case 'x': - i = !sh_access(ep, X_OK); - break; - - case 'X': /* tcsh extension, name is an executable in the path - * or a tcsh builtin command - */ - i = find_cmd(ep, 0); - break; - - case 't': /* SGI extension, true when file is a tty */ - i = isatty(atoi(short2str(ep))); - break; - - default: - -#ifdef S_IFLNK - if (tolower(*ft) == 'l') { - /* - * avoid convex compiler bug. - */ - if (!lst) { - lst = &lstb; - if (TCSH_LSTAT(short2str(ep), lst) == -1) { - xfree((ptr_t) ep); - return (Strsave(errval)); - } - } - if (*ft == 'L') - st = lst; - } - else -#endif /* S_IFLNK */ - /* - * avoid convex compiler bug. - */ - if (!st) { - st = &stb; - if (TCSH_STAT(short2str(ep), st) == -1) { - xfree((ptr_t) ep); - return (Strsave(errval)); - } - } - - switch (*ft) { - - case 'f': -#ifdef S_ISREG - i = S_ISREG(st->st_mode); -#else /* !S_ISREG */ - i = 0; -#endif /* S_ISREG */ - break; - - case 'd': -#ifdef S_ISDIR - i = S_ISDIR(st->st_mode); -#else /* !S_ISDIR */ - i = 0; -#endif /* S_ISDIR */ - break; - - case 'p': -#ifdef S_ISFIFO - i = S_ISFIFO(st->st_mode); -#else /* !S_ISFIFO */ - i = 0; -#endif /* S_ISFIFO */ - break; - - case 'm' : -#ifdef S_ISOFL - i = S_ISOFL(st->st_dm_mode); -#else /* !S_ISOFL */ - i = 0; -#endif /* S_ISOFL */ - break ; - - case 'K' : -#ifdef S_ISOFL - i = stb.st_dm_key; -#else /* !S_ISOFL */ - i = 0; -#endif /* S_ISOFL */ - break ; - - - case 'l': -#ifdef S_ISLNK - i = S_ISLNK(lst->st_mode); -#else /* !S_ISLNK */ - i = 0; -#endif /* S_ISLNK */ - break; - - case 'S': -# ifdef S_ISSOCK - i = S_ISSOCK(st->st_mode); -# else /* !S_ISSOCK */ - i = 0; -# endif /* S_ISSOCK */ - break; - - case 'b': -#ifdef S_ISBLK - i = S_ISBLK(st->st_mode); -#else /* !S_ISBLK */ - i = 0; -#endif /* S_ISBLK */ - break; - - case 'c': -#ifdef S_ISCHR - i = S_ISCHR(st->st_mode); -#else /* !S_ISCHR */ - i = 0; -#endif /* S_ISCHR */ - break; - - case 'u': - i = (S_ISUID & st->st_mode) != 0; - break; - - case 'g': - i = (S_ISGID & st->st_mode) != 0; - break; - - case 'k': - i = (S_ISVTX & st->st_mode) != 0; - break; - - case 'z': - i = st->st_size == 0; - break; - -#ifdef convex - case 'R': - i = (stb.st_dmonflags & IMIGRATED) == IMIGRATED; - break; -#endif /* convex */ - - case 's': - i = stb.st_size != 0; - break; - - case 'e': - i = 1; - break; - - case 'o': - i = st->st_uid == uid; - break; - - /* - * Value operators are a tcsh extension. - */ - - case 'D': - i = (int) st->st_dev; - break; - - case 'I': - i = (int) st->st_ino; - break; - - case 'F': - strdev = putn( (int) st->st_dev); - strino = putn( (int) st->st_ino); - strF = (Char *) xmalloc((size_t) (2 + Strlen(strdev) + - Strlen(strino)) * sizeof(Char)); - (void) Strcat(Strcat(Strcpy(strF, strdev), STRcolon), strino); - xfree((ptr_t) strdev); - xfree((ptr_t) strino); - xfree((ptr_t) ep); - return(strF); - - case 'L': - if ( *(ft + 1) ) { - i = 1; - break; - } -#ifdef S_ISLNK - filnam = short2str(ep); -#ifdef PATH_MAX -# define MY_PATH_MAX PATH_MAX -#else /* !PATH_MAX */ -/* - * I can't think of any more sensible alterative; readlink doesn't give - * us an errno if the buffer isn't large enough :-( - */ -# define MY_PATH_MAX 2048 -#endif /* PATH_MAX */ - i = readlink(filnam, string = (char *) - xmalloc((size_t) (1 + MY_PATH_MAX) * sizeof(char)), - MY_PATH_MAX); - if (i >= 0 && i <= MY_PATH_MAX) - string[i] = '\0'; /* readlink does not null terminate */ - strF = (i < 0) ? errval : str2short(string); - xfree((ptr_t) string); - xfree((ptr_t) ep); - return(Strsave(strF)); - -#else /* !S_ISLNK */ - i = 0; - break; -#endif /* S_ISLNK */ - - - case 'N': - i = (int) st->st_nlink; - break; - - case 'P': - string = string0 + 1; - (void) xsnprintf(string, sizeof(string0) - 1, "%o", - pmask & (unsigned int) - ((S_IRWXU|S_IRWXG|S_IRWXO|S_ISUID|S_ISGID) & st->st_mode)); - if (altout && *string != '0') - *--string = '0'; - xfree((ptr_t) ep); - return(Strsave(str2short(string))); - - case 'U': - if (altout && (pw = getpwuid(st->st_uid))) { - xfree((ptr_t) ep); - return(Strsave(str2short(pw->pw_name))); - } - i = (int) st->st_uid; - break; - - case 'G': - if ( altout && (gr = getgrgid(st->st_gid))) { - xfree((ptr_t) ep); - return(Strsave(str2short(gr->gr_name))); - } - i = (int) st->st_gid; - break; - - case 'Z': - i = (int) st->st_size; - break; - - case 'A': case 'M': case 'C': - footime = *ft == 'A' ? st->st_atime : - *ft == 'M' ? st->st_mtime : st->st_ctime; - if (altout) { - strF = str2short(ctime(&footime)); - if ((str = Strchr(strF, '\n')) != NULL) - *str = (Char) '\0'; - xfree((ptr_t) ep); - return(Strsave(strF)); - } - i = (int) footime; - break; - - } - } - while (*++ft && i); -#ifdef EDEBUG - etraci("exp6 -? i", i, vp); -#endif /* EDEBUG */ - xfree((ptr_t) ep); - return (putn(i)); -} - - -static void -evalav(v) - register Char **v; -{ - struct wordent paraml1; - register struct wordent *hp = ¶ml1; - struct command *t; - register struct wordent *wdp = hp; - - set(STRstatus, Strsave(STR0), VAR_READWRITE); - hp->prev = hp->next = hp; - hp->word = STRNULL; - while (*v) { - register struct wordent *new = - (struct wordent *) xcalloc(1, sizeof *wdp); - - new->prev = wdp; - new->next = hp; - wdp->next = new; - wdp = new; - wdp->word = Strsave(*v++); - } - hp->prev = wdp; - alias(¶ml1); - t = syntax(paraml1.next, ¶ml1, 0); - if (seterr) - stderror(ERR_OLD); - execute(t, -1, NULL, NULL); - freelex(¶ml1), freesyn(t); -} - -static int -isa(cp, what) - register Char *cp; - register int what; -{ - if (cp == 0) - return ((what & RESTOP) != 0); - if (*cp == '\0') - return 0; - if (cp[1] == 0) { - if (what & ADDOP && (*cp == '+' || *cp == '-')) - return (1); - if (what & MULOP && (*cp == '*' || *cp == '/' || *cp == '%')) - return (1); - if (what & RESTOP && (*cp == '(' || *cp == ')' || *cp == '!' || - *cp == '~' || *cp == '^' || *cp == '"')) - return (1); - } - else if (cp[2] == 0) { - if (what & RESTOP) { - if (cp[0] == '|' && cp[1] == '&') - return (1); - if (cp[0] == '<' && cp[1] == '<') - return (1); - if (cp[0] == '>' && cp[1] == '>') - return (1); - } - if (what & EQOP) { - if (cp[0] == '=') { - if (cp[1] == '=') - return (EQEQ); - if (cp[1] == '~') - return (EQMATCH); - } - else if (cp[0] == '!') { - if (cp[1] == '=') - return (NOTEQ); - if (cp[1] == '~') - return (NOTEQMATCH); - } - } - } - if (what & RELOP) { - if (*cp == '<') - return (LSS); - if (*cp == '>') - return (GTR); - } - return (0); -} - -static int -egetn(cp) - register Char *cp; -{ - if (*cp && *cp != '-' && !Isdigit(*cp)) - stderror(ERR_NAME | ERR_EXPRESSION); - return (getn(cp)); -} - -/* Phew! */ - -#ifdef EDEBUG -static void -etraci(str, i, vp) - char *str; - int i; - Char ***vp; -{ - xprintf("%s=%d\t", str, i); - blkpr(*vp); - xputchar('\n'); -} -static void -etracc(str, cp, vp) - char *str; - Char *cp; - Char ***vp; -{ - xprintf("%s=%s\t", str, cp); - blkpr(*vp); - xputchar('\n'); -} -#endif /* EDEBUG */ diff --git a/contrib/tcsh/sh.file.c b/contrib/tcsh/sh.file.c deleted file mode 100644 index 28646f1dc018..000000000000 --- a/contrib/tcsh/sh.file.c +++ /dev/null @@ -1,848 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.file.c,v 3.15 1997/10/02 16:36:29 christos Exp $ */ -/* - * sh.file.c: File completion for csh. This file is not used in tcsh. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.file.c,v 3.15 1997/10/02 16:36:29 christos Exp $") - -#ifdef FILEC - -/* - * Tenex style file name recognition, .. and more. - * History: - * Author: Ken Greer, Sept. 1975, CMU. - * Finally got around to adding to the Cshell., Ken Greer, Dec. 1981. - */ - -#define ON 1 -#define OFF 0 -#ifndef TRUE -#define TRUE 1 -#endif -#ifndef FALSE -#define FALSE 0 -#endif - -#define ESC CTL_ESC('\033') - -typedef enum { - LIST, RECOGNIZE -} COMMAND; - -static void setup_tty __P((int)); -static void back_to_col_1 __P((void)); -static void pushback __P((Char *)); -static void catn __P((Char *, Char *, int)); -static void copyn __P((Char *, Char *, int)); -static Char filetype __P((Char *, Char *)); -static void print_by_column __P((Char *, Char *[], int)); -static Char *tilde __P((Char *, Char *)); -static void retype __P((void)); -static void beep __P((void)); -static void print_recognized_stuff __P((Char *)); -static void extract_dir_and_name __P((Char *, Char *, Char *)); -static Char *getitem __P((DIR *, int)); -static void free_items __P((Char **)); -static int tsearch __P((Char *, COMMAND, int)); -static int recognize __P((Char *, Char *, int, int)); -static int is_prefix __P((Char *, Char *)); -static int is_suffix __P((Char *, Char *)); -static int ignored __P((Char *)); - - -/* - * Put this here so the binary can be patched with adb to enable file - * completion by default. Filec controls completion, nobeep controls - * ringing the terminal bell on incomplete expansions. - */ -bool filec = 0; - -static void -setup_tty(on) - int on; -{ -#ifdef TERMIO -# ifdef POSIX - struct termios tchars; -# else - struct termio tchars; -# endif /* POSIX */ - -# ifdef POSIX - (void) tcgetattr(SHIN, &tchars); -# else - (void) ioctl(SHIN, TCGETA, (ioctl_t) &tchars); -# endif /* POSIX */ - if (on) { - tchars.c_cc[VEOL] = ESC; - if (tchars.c_lflag & ICANON) -# ifdef POSIX - on = TCSADRAIN; -# else - on = TCSETA; -# endif /* POSIX */ - else { -# ifdef POSIX - on = TCSAFLUSH; -# else - on = TCSETAF; -# endif /* POSIX */ - tchars.c_lflag |= ICANON; - - } - } - else { - tchars.c_cc[VEOL] = _POSIX_VDISABLE; -# ifdef POSIX - on = TCSADRAIN; -# else - on = TCSETA; -# endif /* POSIX */ - } -# ifdef POSIX - (void) tcsetattr(SHIN, on, &tchars); -# else - (void) ioctl(SHIN, on, (ioctl_t) &tchars); -# endif /* POSIX */ -#else - struct sgttyb sgtty; - static struct tchars tchars;/* INT, QUIT, XON, XOFF, EOF, BRK */ - - if (on) { - (void) ioctl(SHIN, TIOCGETC, (ioctl_t) & tchars); - tchars.t_brkc = ESC; - (void) ioctl(SHIN, TIOCSETC, (ioctl_t) & tchars); - /* - * This must be done after every command: if the tty gets into raw or - * cbreak mode the user can't even type 'reset'. - */ - (void) ioctl(SHIN, TIOCGETP, (ioctl_t) & sgtty); - if (sgtty.sg_flags & (RAW | CBREAK)) { - sgtty.sg_flags &= ~(RAW | CBREAK); - (void) ioctl(SHIN, TIOCSETP, (ioctl_t) & sgtty); - } - } - else { - tchars.t_brkc = -1; - (void) ioctl(SHIN, TIOCSETC, (ioctl_t) & tchars); - } -#endif /* TERMIO */ -} - -/* - * Move back to beginning of current line - */ -static void -back_to_col_1() -{ -#ifdef TERMIO -# ifdef POSIX - struct termios tty, tty_normal; -# else - struct termio tty, tty_normal; -# endif /* POSIX */ -#else - struct sgttyb tty, tty_normal; -#endif /* TERMIO */ - -# ifdef BSDSIGS - sigmask_t omask = sigblock(sigmask(SIGINT)); -# else - (void) sighold(SIGINT); -# endif /* BSDSIGS */ - -#ifdef TERMIO -# ifdef POSIX - (void) tcgetattr(SHOUT, &tty); -# else - (void) ioctl(SHOUT, TCGETA, (ioctl_t) &tty_normal); -# endif /* POSIX */ - tty_normal = tty; - tty.c_iflag &= ~INLCR; - tty.c_oflag &= ~ONLCR; -# ifdef POSIX - (void) tcsetattr(SHOUT, TCSANOW, &tty); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty); -# endif /* POSIX */ - (void) write(SHOUT, "\r", 1); -# ifdef POSIX - (void) tcsetattr(SHOUT, TCSANOW, &tty_normal); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty_normal); -# endif /* POSIX */ -#else - (void) ioctl(SHIN, TIOCGETP, (ioctl_t) & tty); - tty_normal = tty; - tty.sg_flags &= ~CRMOD; - (void) ioctl(SHIN, TIOCSETN, (ioctl_t) & tty); - (void) write(SHOUT, "\r", 1); - (void) ioctl(SHIN, TIOCSETN, (ioctl_t) & tty_normal); -#endif /* TERMIO */ - -# ifdef BSDSIGS - (void) sigsetmask(omask); -# else - (void) sigrelse(SIGINT); -# endif /* BSDISGS */ -} - -/* - * Push string contents back into tty queue - */ -static void -pushback(string) - Char *string; -{ - register Char *p; - char c; -#ifdef TERMIO -# ifdef POSIX - struct termios tty, tty_normal; -# else - struct termio tty, tty_normal; -# endif /* POSIX */ -#else - struct sgttyb tty, tty_normal; -#endif /* TERMIO */ - -#ifdef BSDSIGS - sigmask_t omask = sigblock(sigmask(SIGINT)); -#else - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - -#ifdef TERMIO -# ifdef POSIX - (void) tcgetattr(SHOUT, &tty); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty); -# endif /* POSIX */ - tty_normal = tty; - tty.c_lflag &= ~(ECHOKE | ECHO | ECHOE | ECHOK | ECHONL | ECHOPRT | ECHOCTL); -# ifdef POSIX - (void) tcsetattr(SHOUT, TCSANOW, &tty); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty); -# endif /* POSIX */ - - for (p = string; c = *p; p++) - (void) ioctl(SHOUT, TIOCSTI, (ioctl_t) & c); -# ifdef POSIX - (void) tcsetattr(SHOUT, TCSANOW, &tty_normal); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty_normal); -# endif /* POSIX */ - (void) sigsetmask(omask); -#else - (void) ioctl(SHOUT, TIOCGETP, (ioctl_t) & tty); - tty_normal = tty; - tty.sg_flags &= ~ECHO; - (void) ioctl(SHOUT, TIOCSETN, (ioctl_t) & tty); - - for (p = string; c = *p; p++) - (void) ioctl(SHOUT, TIOCSTI, (ioctl_t) & c); - (void) ioctl(SHOUT, TIOCSETN, (ioctl_t) & tty_normal); -#endif /* TERMIO */ - -# ifdef BSDSIGS - (void) sigsetmask(omask); -# else - (void) sigrelse(SIGINT); -# endif /* BSDISGS */ -} - -/* - * Concatenate src onto tail of des. - * Des is a string whose maximum length is count. - * Always null terminate. - */ -static void -catn(des, src, count) - register Char *des, *src; - register count; -{ - while (--count >= 0 && *des) - des++; - while (--count >= 0) - if ((*des++ = *src++) == 0) - return; - *des = '\0'; -} - -/* - * Like strncpy but always leave room for trailing \0 - * and always null terminate. - */ -static void -copyn(des, src, count) - register Char *des, *src; - register count; -{ - while (--count >= 0) - if ((*des++ = *src++) == 0) - return; - *des = '\0'; -} - -static Char -filetype(dir, file) - Char *dir, *file; -{ - Char path[MAXPATHLEN]; - struct stat statb; - - catn(Strcpy(path, dir), file, sizeof(path) / sizeof(Char)); - if (lstat(short2str(path), &statb) == 0) { - switch (statb.st_mode & S_IFMT) { - case S_IFDIR: - return ('/'); - - case S_IFLNK: - if (stat(short2str(path), &statb) == 0 && /* follow it out */ - S_ISDIR(statb.st_mode)) - return ('>'); - else - return ('@'); - - case S_IFSOCK: - return ('='); - - default: - if (statb.st_mode & 0111) - return ('*'); - } - } - return (' '); -} - -static struct winsize win; - -/* - * Print sorted down columns - */ -static void -print_by_column(dir, items, count) - Char *dir, *items[]; - int count; -{ - register int i, rows, r, c, maxwidth = 0, columns; - - if (ioctl(SHOUT, TIOCGWINSZ, (ioctl_t) & win) < 0 || win.ws_col == 0) - win.ws_col = 80; - for (i = 0; i < count; i++) - maxwidth = maxwidth > (r = Strlen(items[i])) ? maxwidth : r; - maxwidth += 2; /* for the file tag and space */ - columns = win.ws_col / maxwidth; - if (columns == 0) - columns = 1; - rows = (count + (columns - 1)) / columns; - for (r = 0; r < rows; r++) { - for (c = 0; c < columns; c++) { - i = c * rows + r; - if (i < count) { - register int w; - - xprintf("%S", items[i]); - xputchar(dir ? filetype(dir, items[i]) : ' '); - if (c < columns - 1) { /* last column? */ - w = Strlen(items[i]) + 1; - for (; w < maxwidth; w++) - xputchar(' '); - } - } - } - xputchar('\r'); - xputchar('\n'); - } -} - -/* - * Expand file name with possible tilde usage - * ~person/mumble - * expands to - * home_directory_of_person/mumble - */ -static Char * -tilde(new, old) - Char *new, *old; -{ - register Char *o, *p; - register struct passwd *pw; - static Char person[40]; - - if (old[0] != '~') - return (Strcpy(new, old)); - - for (p = person, o = &old[1]; *o && *o != '/'; *p++ = *o++); - *p = '\0'; - if (person[0] == '\0') - (void) Strcpy(new, varval(STRhome)); - else { - pw = getpwnam(short2str(person)); - if (pw == NULL) - return (NULL); - (void) Strcpy(new, str2short(pw->pw_dir)); - } - (void) Strcat(new, o); - return (new); -} - -/* - * Cause pending line to be printed - */ -static void -retype() -{ -#ifdef TERMIO -# ifdef POSIX - struct termios tty; - - (void) tcgetattr(SHOUT, &tty); -# else - struct termio tty; - - (void) ioctl(SHOUT, TCGETA, (ioctl_t) &tty); -# endif /* POSIX */ - - tty.c_lflag |= PENDIN; - -# ifdef POSIX - (void) tcsetattr(SHOUT, TCSANOW, &tty); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty); -# endif /* POSIX */ -#else - int pending_input = LPENDIN; - - (void) ioctl(SHOUT, TIOCLBIS, (ioctl_t) & pending_input); -#endif /* TERMIO */ -} - -static void -beep() -{ - if (adrof(STRnobeep) == 0) -#ifndef _OSD_POSIX - (void) write(SHOUT, "\007", 1); -#else /*_OSD_POSIX*/ - { - unsigned char beep_ch = CTL_ESC('\007'); - (void) write(SHOUT, &beep_ch, 1); - } -#endif /*_OSD_POSIX*/ -} - -/* - * Erase that silly ^[ and - * print the recognized part of the string - */ -static void -print_recognized_stuff(recognized_part) - Char *recognized_part; -{ - /* An optimized erasing of that silly ^[ */ - (void) putraw('\b'); - (void) putraw('\b'); - switch (Strlen(recognized_part)) { - - case 0: /* erase two Characters: ^[ */ - (void) putraw(' '); - (void) putraw(' '); - (void) putraw('\b'); - (void) putraw('\b'); - break; - - case 1: /* overstrike the ^, erase the [ */ - xprintf("%S", recognized_part); - (void) putraw(' '); - (void) putraw('\b'); - break; - - default: /* overstrike both Characters ^[ */ - xprintf("%S", recognized_part); - break; - } - flush(); -} - -/* - * Parse full path in file into 2 parts: directory and file names - * Should leave final slash (/) at end of dir. - */ -static void -extract_dir_and_name(path, dir, name) - Char *path, *dir, *name; -{ - register Char *p; - - p = Strrchr(path, '/'); - if (p == NULL) { - copyn(name, path, MAXNAMLEN); - dir[0] = '\0'; - } - else { - copyn(name, ++p, MAXNAMLEN); - copyn(dir, path, p - path); - } -} -/* atp vmsposix - I need to remove all the setpwent - * getpwent endpwent stuff. VMS_POSIX has getpwnam getpwuid - * and getlogin. This needs fixing. (There is no access to - * pw->passwd in VMS - a secure system benefit :-| ) - */ -static Char * -getitem(dir_fd, looking_for_lognames) - DIR *dir_fd; - int looking_for_lognames; -{ - register struct passwd *pw; - register struct dirent *dirp; - - if (looking_for_lognames) { -#ifdef _VMS_POSIX - return (NULL); -#else - if ((pw = getpwent()) == NULL) - return (NULL); - return (str2short(pw->pw_name)); -#endif /* atp vmsposix */ - } - if (dirp = readdir(dir_fd)) - return (str2short(dirp->d_name)); - return (NULL); -} - -static void -free_items(items) - register Char **items; -{ - register int i; - - for (i = 0; items[i]; i++) - xfree((ptr_t) items[i]); - xfree((ptr_t) items); -} - -#ifdef BSDSIGS -# define FREE_ITEMS(items) { \ - sigmask_t omask;\ -\ - omask = sigblock(sigmask(SIGINT));\ - free_items(items);\ - items = NULL;\ - (void) sigsetmask(omask);\ -} -#else -# define FREE_ITEMS(items) { \ - (void) sighold(SIGINT);\ - free_items(items);\ - items = NULL;\ - (void) sigrelse(SIGINT);\ -} -#endif /* BSDSIGS */ - -/* - * Perform a RECOGNIZE or LIST command on string "word". - */ -static int -tsearch(word, command, max_word_length) - Char *word; - int max_word_length; - COMMAND command; -{ - static Char **items = NULL; - register DIR *dir_fd; - register numitems = 0, ignoring = TRUE, nignored = 0; - register name_length, looking_for_lognames; - Char tilded_dir[MAXPATHLEN + 1], dir[MAXPATHLEN + 1]; - Char name[MAXNAMLEN + 1], extended_name[MAXNAMLEN + 1]; - Char *item; - -#define MAXITEMS 1024 - - if (items != NULL) - FREE_ITEMS(items); - - looking_for_lognames = (*word == '~') && (Strchr(word, '/') == NULL); - if (looking_for_lognames) { -#ifndef _VMS_POSIX - (void) setpwent(); -#endif /*atp vmsposix */ - copyn(name, &word[1], MAXNAMLEN); /* name sans ~ */ - dir_fd = NULL; - } - else { - extract_dir_and_name(word, dir, name); - if (tilde(tilded_dir, dir) == 0) - return (0); - dir_fd = opendir(*tilded_dir ? short2str(tilded_dir) : "."); - if (dir_fd == NULL) - return (0); - } - -again: /* search for matches */ - name_length = Strlen(name); - for (numitems = 0; item = getitem(dir_fd, looking_for_lognames);) { - if (!is_prefix(name, item)) - continue; - /* Don't match . files on null prefix match */ - if (name_length == 0 && item[0] == '.' && - !looking_for_lognames) - continue; - if (command == LIST) { - if (numitems >= MAXITEMS) { - xprintf(CGETS(14, 1, "\nYikes!! Too many %s!!\n"), - looking_for_lognames ? - CGETS(14, 2, "names in password file") : - CGETS(14, 3, "files"); - break; - } - /* - * From Beto Appleton (beto@aixwiz.austin.ibm.com) - * typing "./control-d" will cause the csh to core-dump. - * the problem can be reproduce as following: - * 1. set ignoreeof - * 2. set filec - * 3. create a directory with 1050 files - * 4. typing "./control-d" will cause the csh to core-dump - * Solution: Add + 1 to MAXITEMS - */ - if (items == NULL) - items = (Char **) xcalloc(sizeof(items[0]), MAXITEMS + 1); - items[numitems] = (Char *) xmalloc((size_t) (Strlen(item) + 1) * - sizeof(Char)); - copyn(items[numitems], item, MAXNAMLEN); - numitems++; - } - else { /* RECOGNIZE command */ - if (ignoring && ignored(item)) - nignored++; - else if (recognize(extended_name, - item, name_length, ++numitems)) - break; - } - } - if (ignoring && numitems == 0 && nignored > 0) { - ignoring = FALSE; - nignored = 0; - if (looking_for_lognames) -#ifndef _VMS_POSIX - (void) setpwent(); -#endif /* atp vmsposix */ - else - rewinddir(dir_fd); - goto again; - } - - if (looking_for_lognames) -#ifndef _VMS_POSIX - (void) endpwent(); -#endif /*atp vmsposix */ - else - (void) closedir(dir_fd); - if (numitems == 0) - return (0); - if (command == RECOGNIZE) { - if (looking_for_lognames) - copyn(word, STRtilde, 1); - else - /* put back dir part */ - copyn(word, dir, max_word_length); - /* add extended name */ - catn(word, extended_name, max_word_length); - return (numitems); - } - else { /* LIST */ - qsort((ptr_t) items, (size_t) numitems, sizeof(items[0]), sortscmp); - print_by_column(looking_for_lognames ? NULL : tilded_dir, - items, numitems); - if (items != NULL) - FREE_ITEMS(items); - } - return (0); -} - -/* - * Object: extend what user typed up to an ambiguity. - * Algorithm: - * On first match, copy full item (assume it'll be the only match) - * On subsequent matches, shorten extended_name to the first - * Character mismatch between extended_name and item. - * If we shorten it back to the prefix length, stop searching. - */ -static int -recognize(extended_name, item, name_length, numitems) - Char *extended_name, *item; - int name_length, numitems; -{ - if (numitems == 1) /* 1st match */ - copyn(extended_name, item, MAXNAMLEN); - else { /* 2nd & subsequent matches */ - register Char *x, *ent; - register int len = 0; - - x = extended_name; - for (ent = item; *x && *x == *ent++; x++, len++); - *x = '\0'; /* Shorten at 1st Char diff */ - if (len == name_length) /* Ambiguous to prefix? */ - return (-1); /* So stop now and save time */ - } - return (0); -} - -/* - * Return true if check matches initial Chars in template. - * This differs from PWB imatch in that if check is null - * it matches anything. - */ -static int -is_prefix(check, template) - register Char *check, *template; -{ - do - if (*check == 0) - return (TRUE); - while (*check++ == *template++); - return (FALSE); -} - -/* - * Return true if the Chars in template appear at the - * end of check, I.e., are it's suffix. - */ -static int -is_suffix(check, template) - Char *check, *template; -{ - register Char *c, *t; - - for (c = check; *c++;); - for (t = template; *t++;); - for (;;) { - if (t == template) - return 1; - if (c == check || *--t != *--c) - return 0; - } -} - -int -tenex(inputline, inputline_size) - Char *inputline; - int inputline_size; -{ - register int numitems, num_read; - char tinputline[BUFSIZE]; - - - setup_tty(ON); - - while ((num_read = read(SHIN, tinputline, BUFSIZE)) > 0) { - int i; - static Char delims[] = {' ', '\'', '"', '\t', ';', '&', '<', - '>', '(', ')', '|', '^', '%', '\0'}; - register Char *str_end, *word_start, last_Char, should_retype; - register int space_left; - COMMAND command; - - for (i = 0; i < num_read; i++) - inputline[i] = (unsigned char) tinputline[i]; - last_Char = inputline[num_read - 1] & ASCII; - - if (last_Char == '\n' || num_read == inputline_size) - break; - command = (last_Char == ESC) ? RECOGNIZE : LIST; - if (command == LIST) - xputchar('\n'); - str_end = &inputline[num_read]; - if (last_Char == ESC) - --str_end; /* wipeout trailing cmd Char */ - *str_end = '\0'; - /* - * Find LAST occurence of a delimiter in the inputline. The word start - * is one Character past it. - */ - for (word_start = str_end; word_start > inputline; --word_start) - if (Strchr(delims, word_start[-1])) - break; - space_left = inputline_size - (word_start - inputline) - 1; - numitems = tsearch(word_start, command, space_left); - - if (command == RECOGNIZE) { - /* print from str_end on */ - print_recognized_stuff(str_end); - if (numitems != 1) /* Beep = No match/ambiguous */ - beep(); - } - - /* - * Tabs in the input line cause trouble after a pushback. tty driver - * won't backspace over them because column positions are now - * incorrect. This is solved by retyping over current line. - */ - should_retype = FALSE; - if (Strchr(inputline, '\t')) { /* tab Char in input line? */ - back_to_col_1(); - should_retype = TRUE; - } - if (command == LIST) /* Always retype after a LIST */ - should_retype = TRUE; - if (should_retype) - printprompt(0, NULL); - pushback(inputline); - if (should_retype) - retype(); - } - setup_tty(OFF); - return (num_read); -} - -static int -ignored(item) - register Char *item; -{ - struct varent *vp; - register Char **cp; - - if ((vp = adrof(STRfignore)) == NULL || (cp = vp->vec) == NULL) - return (FALSE); - for (; *cp != NULL; cp++) - if (is_suffix(item, *cp)) - return (TRUE); - return (FALSE); -} -#endif /* FILEC */ diff --git a/contrib/tcsh/sh.func.c b/contrib/tcsh/sh.func.c deleted file mode 100644 index 2138bce90c7d..000000000000 --- a/contrib/tcsh/sh.func.c +++ /dev/null @@ -1,2401 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.func.c,v 3.86 2000/01/14 22:57:27 christos Exp $ */ -/* - * sh.func.c: csh builtin functions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.func.c,v 3.86 2000/01/14 22:57:27 christos Exp $") - -#include "ed.h" -#include "tw.h" -#include "tc.h" -#ifdef WINNT -#include "nt.const.h" -#endif /* WINNT */ - -/* - * C shell - */ -extern int just_signaled; -extern char **environ; - -extern bool MapsAreInited; -extern bool NLSMapsAreInited; -extern bool NoNLSRebind; -extern bool GotTermCaps; - -static int zlast = -1; - -static void islogin __P((void)); -static void preread __P((void)); -static void doagain __P((void)); -static char *isrchx __P((int)); -static void search __P((int, int, Char *)); -static int getword __P((Char *)); -static void toend __P((void)); -static void xecho __P((int, Char **)); -static bool islocale_var __P((Char *)); - -struct biltins * -isbfunc(t) - struct command *t; -{ - register Char *cp = t->t_dcom[0]; - register struct biltins *bp, *bp1, *bp2; - static struct biltins label = {"", dozip, 0, 0}; - static struct biltins foregnd = {"%job", dofg1, 0, 0}; - static struct biltins backgnd = {"%job &", dobg1, 0, 0}; - - /* - * We never match a builtin that has quoted the first - * character; this has been the traditional way to escape - * builtin commands. - */ - if (*cp & QUOTE) - return NULL; - - if (*cp != ':' && lastchr(cp) == ':') { - label.bname = short2str(cp); - return (&label); - } - if (*cp == '%') { - if (t->t_dflg & F_AMPERSAND) { - t->t_dflg &= ~F_AMPERSAND; - backgnd.bname = short2str(cp); - return (&backgnd); - } - foregnd.bname = short2str(cp); - return (&foregnd); - } -#ifdef WARP - /* - * This is a perhaps kludgy way to determine if the warp builtin is to be - * acknowledged or not. If checkwarp() fails, then we are to assume that - * the warp command is invalid, and carry on as we would handle any other - * non-builtin command. -- JDK 2/4/88 - */ - if (eq(STRwarp, cp) && !checkwarp()) { - return (0); /* this builtin disabled */ - } -#endif /* WARP */ - /* - * Binary search Bp1 is the beginning of the current search range. Bp2 is - * one past the end. - */ - for (bp1 = bfunc, bp2 = bfunc + nbfunc; bp1 < bp2;) { - int i; - - bp = bp1 + ((bp2 - bp1) >> 1); - if ((i = ((char) *cp) - *bp->bname) == 0 && - (i = StrQcmp(cp, str2short(bp->bname))) == 0) - return bp; - if (i < 0) - bp2 = bp; - else - bp1 = bp + 1; - } -#ifdef WINNT - return nt_check_additional_builtins(cp); -#endif /*WINNT*/ - return (0); -} - -void -func(t, bp) - register struct command *t; - register struct biltins *bp; -{ - int i; - - xechoit(t->t_dcom); - setname(bp->bname); - i = blklen(t->t_dcom) - 1; - if (i < bp->minargs) - stderror(ERR_NAME | ERR_TOOFEW); - if (i > bp->maxargs) - stderror(ERR_NAME | ERR_TOOMANY); - (*bp->bfunct) (t->t_dcom, t); -} - -/*ARGSUSED*/ -void -doonintr(v, c) - Char **v; - struct command *c; -{ - register Char *cp; - register Char *vv = v[1]; - - USE(c); - if (parintr == SIG_IGN) - return; - if (setintr && intty) - stderror(ERR_NAME | ERR_TERMINAL); - cp = gointr; - gointr = 0; - xfree((ptr_t) cp); - if (vv == 0) { -#ifdef BSDSIGS - if (setintr) { - (void) sigblock(sigmask(SIGINT)); - (void) signal(SIGINT, pintr); - } - else - (void) signal(SIGINT, SIG_DFL); -#else /* !BSDSIGS */ - if (setintr) { - (void) sighold(SIGINT); - (void) sigset(SIGINT, pintr); - } - else - (void) sigset(SIGINT, SIG_DFL); -#endif /* BSDSIGS */ - gointr = 0; - } - else if (eq((vv = strip(vv)), STRminus)) { -#ifdef BSDSIGS - (void) signal(SIGINT, SIG_IGN); -#else /* !BSDSIGS */ - (void) sigset(SIGINT, SIG_IGN); -#endif /* BSDSIGS */ - gointr = Strsave(STRminus); - } - else { - gointr = Strsave(vv); -#ifdef BSDSIGS - (void) signal(SIGINT, pintr); -#else /* !BSDSIGS */ - (void) sigset(SIGINT, pintr); -#endif /* BSDSIGS */ - } -} - -/*ARGSUSED*/ -void -donohup(v, c) - Char **v; - struct command *c; -{ - USE(c); - USE(v); - if (intty) - stderror(ERR_NAME | ERR_TERMINAL); - if (setintr == 0) { - (void) signal(SIGHUP, SIG_IGN); -#ifdef CC - submit(getpid()); -#endif /* CC */ - } -} - -/*ARGSUSED*/ -void -dohup(v, c) - Char **v; - struct command *c; -{ - USE(c); - USE(v); - if (intty) - stderror(ERR_NAME | ERR_TERMINAL); - if (setintr == 0) - (void) signal(SIGHUP, SIG_DFL); -} - - -/*ARGSUSED*/ -void -dozip(v, c) - Char **v; - struct command *c; -{ - USE(c); - USE(v); -} - -/*ARGSUSED*/ -void -dofiletest(v, c) - Char **v; - struct command *c; -{ - Char **fileptr, *ftest, *res; - - if (*(ftest = *++v) != '-') - stderror(ERR_NAME | ERR_FILEINQ); - ++v; - - gflag = 0; - tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else - v = gargv = saveblk(v); - trim(v); - - while (*(fileptr = v++) != '\0') { - xprintf("%S", res = filetest(ftest, &fileptr, 0)); - xfree((ptr_t) res); - if (*v) - xprintf(" "); - } - xprintf("\n"); - - if (gargv) { - blkfree(gargv); - gargv = 0; - } -} - -void -prvars() -{ - plist(&shvhed, VAR_ALL); -} - -/*ARGSUSED*/ -void -doalias(v, c) - register Char **v; - struct command *c; -{ - register struct varent *vp; - register Char *p; - - USE(c); - v++; - p = *v++; - if (p == 0) - plist(&aliases, VAR_ALL); - else if (*v == 0) { - vp = adrof1(strip(p), &aliases); - if (vp) - blkpr(vp->vec), xputchar('\n'); - } - else { - if (eq(p, STRalias) || eq(p, STRunalias)) { - setname(short2str(p)); - stderror(ERR_NAME | ERR_DANGER); - } - set1(strip(p), saveblk(v), &aliases, VAR_READWRITE); - tw_cmd_free(); - } -} - -/*ARGSUSED*/ -void -unalias(v, c) - Char **v; - struct command *c; -{ - USE(c); - unset1(v, &aliases); - tw_cmd_free(); -} - -/*ARGSUSED*/ -void -dologout(v, c) - Char **v; - struct command *c; -{ - USE(c); - USE(v); - islogin(); - goodbye(NULL, NULL); -} - -/*ARGSUSED*/ -void -dologin(v, c) - Char **v; - struct command *c; -{ - USE(c); -#ifdef WINNT - USE(v); -#else /* !WINNT */ - islogin(); - rechist(NULL, adrof(STRsavehist) != NULL); - (void) signal(SIGTERM, parterm); - (void) execl(_PATH_BIN_LOGIN, "login", short2str(v[1]), NULL); - (void) execl(_PATH_USRBIN_LOGIN, "login", short2str(v[1]), NULL); - untty(); - xexit(1); -#endif /* !WINNT */ -} - - -#ifdef NEWGRP -/*ARGSUSED*/ -void -donewgrp(v, c) - Char **v; - struct command *c; -{ - char **p; - if (chkstop == 0 && setintr) - panystop(0); - (void) signal(SIGTERM, parterm); - p = short2blk(v); - /* - * From Beto Appleton (beto@aixwiz.austin.ibm.com) - * Newgrp can take 2 arguments... - */ - (void) execv(_PATH_BIN_NEWGRP, p); - (void) execv(_PATH_USRBIN_NEWGRP, p); - blkfree((Char **) p); - untty(); - xexit(1); -} -#endif /* NEWGRP */ - -static void -islogin() -{ - if (chkstop == 0 && setintr) - panystop(0); - if (loginsh) - return; - stderror(ERR_NOTLOGIN); -} - -void -doif(v, kp) - Char **v; - struct command *kp; -{ - register int i; - register Char **vv; - - v++; - i = expr(&v); - vv = v; - if (*vv == NULL) - stderror(ERR_NAME | ERR_EMPTYIF); - if (eq(*vv, STRthen)) { - if (*++vv) - stderror(ERR_NAME | ERR_IMPRTHEN); - setname(short2str(STRthen)); - /* - * If expression was zero, then scan to else , otherwise just fall into - * following code. - */ - if (!i) - search(TC_IF, 0, NULL); - return; - } - /* - * Simple command attached to this if. Left shift the node in this tree, - * munging it so we can reexecute it. - */ - if (i) { - lshift(kp->t_dcom, vv - kp->t_dcom); - reexecute(kp); - donefds(); - } -} - -/* - * Reexecute a command, being careful not - * to redo i/o redirection, which is already set up. - */ -void -reexecute(kp) - register struct command *kp; -{ - kp->t_dflg &= F_SAVE; - kp->t_dflg |= F_REPEAT; - /* - * If tty is still ours to arbitrate, arbitrate it; otherwise dont even set - * pgrp's as the jobs would then have no way to get the tty (we can't give - * it to them, and our parent wouldn't know their pgrp, etc. - */ - execute(kp, (tpgrp > 0 ? tpgrp : -1), NULL, NULL); -} - -/*ARGSUSED*/ -void -doelse (v, c) - Char **v; - struct command *c; -{ - USE(c); - USE(v); - search(TC_ELSE, 0, NULL); -} - -/*ARGSUSED*/ -void -dogoto(v, c) - Char **v; - struct command *c; -{ - Char *lp; - - USE(c); - gotolab(lp = globone(v[1], G_ERROR)); - xfree((ptr_t) lp); -} - -void -gotolab(lab) - Char *lab; -{ - register struct whyle *wp; - /* - * While we still can, locate any unknown ends of existing loops. This - * obscure code is the WORST result of the fact that we don't really parse. - */ - zlast = TC_GOTO; - for (wp = whyles; wp; wp = wp->w_next) - if (wp->w_end.type == F_SEEK && wp->w_end.f_seek == 0) { - search(TC_BREAK, 0, NULL); - btell(&wp->w_end); - } - else { - bseek(&wp->w_end); - } - search(TC_GOTO, 0, lab); - /* - * Eliminate loops which were exited. - */ - wfree(); -} - -/*ARGSUSED*/ -void -doswitch(v, c) - register Char **v; - struct command *c; -{ - register Char *cp, *lp; - - USE(c); - v++; - if (!*v || *(*v++) != '(') - stderror(ERR_SYNTAX); - cp = **v == ')' ? STRNULL : *v++; - if (*(*v++) != ')') - v--; - if (*v) - stderror(ERR_SYNTAX); - search(TC_SWITCH, 0, lp = globone(cp, G_ERROR)); - xfree((ptr_t) lp); -} - -/*ARGSUSED*/ -void -dobreak(v, c) - Char **v; - struct command *c; -{ - USE(v); - USE(c); - if (whyles) - toend(); - else - stderror(ERR_NAME | ERR_NOTWHILE); -} - -/*ARGSUSED*/ -void -doexit(v, c) - Char **v; - struct command *c; -{ - USE(c); - - if (chkstop == 0 && (intty || intact) && evalvec == 0) - panystop(0); - /* - * Don't DEMAND parentheses here either. - */ - v++; - if (*v) { - set(STRstatus, putn(expr(&v)), VAR_READWRITE); - if (*v) - stderror(ERR_NAME | ERR_EXPRESSION); - } - btoeof(); -#if 0 - if (intty) -#endif - /* Always close, why only on ttys? */ - (void) close(SHIN); -} - -/*ARGSUSED*/ -void -doforeach(v, c) - register Char **v; - struct command *c; -{ - register Char *cp, *sp; - register struct whyle *nwp; - - USE(c); - v++; - sp = cp = strip(*v); - if (!letter(*sp)) - stderror(ERR_NAME | ERR_VARBEGIN); - while (*cp && alnum(*cp)) - cp++; - if (*cp) - stderror(ERR_NAME | ERR_VARALNUM); - if ((cp - sp) > MAXVARLEN) - stderror(ERR_NAME | ERR_VARTOOLONG); - cp = *v++; - if (v[0][0] != '(' || v[blklen(v) - 1][0] != ')') - stderror(ERR_NAME | ERR_NOPAREN); - v++; - gflag = 0, tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else { - v = gargv = saveblk(v); - trim(v); - } - nwp = (struct whyle *) xcalloc(1, sizeof *nwp); - nwp->w_fe = nwp->w_fe0 = v; - gargv = 0; - btell(&nwp->w_start); - nwp->w_fename = Strsave(cp); - nwp->w_next = whyles; - nwp->w_end.type = F_SEEK; - whyles = nwp; - /* - * Pre-read the loop so as to be more comprehensible to a terminal user. - */ - zlast = TC_FOREACH; - if (intty) - preread(); - doagain(); -} - -/*ARGSUSED*/ -void -dowhile(v, c) - Char **v; - struct command *c; -{ - register int status; - register bool again = whyles != 0 && - SEEKEQ(&whyles->w_start, &lineloc) && - whyles->w_fename == 0; - - USE(c); - v++; - /* - * Implement prereading here also, taking care not to evaluate the - * expression before the loop has been read up from a terminal. - */ - if (intty && !again) - status = !exp0(&v, 1); - else - status = !expr(&v); - if (*v) - stderror(ERR_NAME | ERR_EXPRESSION); - if (!again) { - register struct whyle *nwp = - (struct whyle *) xcalloc(1, sizeof(*nwp)); - - nwp->w_start = lineloc; - nwp->w_end.type = F_SEEK; - nwp->w_end.f_seek = 0; - nwp->w_next = whyles; - whyles = nwp; - zlast = TC_WHILE; - if (intty) { - /* - * The tty preread - */ - preread(); - doagain(); - return; - } - } - if (status) - /* We ain't gonna loop no more, no more! */ - toend(); -} - -static void -preread() -{ - whyles->w_end.type = I_SEEK; - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(sigblock((sigmask_t) 0) & ~sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sigrelse (SIGINT); -#endif /* BSDSIGS */ - search(TC_BREAK, 0, NULL); /* read the expression in */ - if (setintr) -#ifdef BSDSIGS - (void) sigblock(sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - btell(&whyles->w_end); -} - -/*ARGSUSED*/ -void -doend(v, c) - Char **v; - struct command *c; -{ - USE(v); - USE(c); - if (!whyles) - stderror(ERR_NAME | ERR_NOTWHILE); - btell(&whyles->w_end); - doagain(); -} - -/*ARGSUSED*/ -void -docontin(v, c) - Char **v; - struct command *c; -{ - USE(v); - USE(c); - if (!whyles) - stderror(ERR_NAME | ERR_NOTWHILE); - doagain(); -} - -static void -doagain() -{ - /* Repeating a while is simple */ - if (whyles->w_fename == 0) { - bseek(&whyles->w_start); - return; - } - /* - * The foreach variable list actually has a spurious word ")" at the end of - * the w_fe list. Thus we are at the of the list if one word beyond this - * is 0. - */ - if (!whyles->w_fe[1]) { - dobreak(NULL, NULL); - return; - } - set(whyles->w_fename, quote(Strsave(*whyles->w_fe++)), VAR_READWRITE); - bseek(&whyles->w_start); -} - -void -dorepeat(v, kp) - Char **v; - struct command *kp; -{ - register int i; - -#ifdef BSDSIGS - register sigmask_t omask = 0; - -#endif /* BSDSIGS */ - - i = getn(v[1]); - if (setintr) -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGINT)) & ~sigmask(SIGINT); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - lshift(v, 2); - while (i > 0) { - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse (SIGINT); -#endif /* BSDSIGS */ - reexecute(kp); - --i; - } - donefds(); - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse (SIGINT); -#endif /* BSDSIGS */ -} - -/*ARGSUSED*/ -void -doswbrk(v, c) - Char **v; - struct command *c; -{ - USE(v); - USE(c); - search(TC_BRKSW, 0, NULL); -} - -int -srchx(cp) - Char *cp; -{ - struct srch *sp, *sp1, *sp2; - int i; - - /* - * Ignore keywords inside heredocs - */ - if (inheredoc) - return -1; - - /* - * Binary search Sp1 is the beginning of the current search range. Sp2 is - * one past the end. - */ - for (sp1 = srchn, sp2 = srchn + nsrchn; sp1 < sp2;) { - sp = sp1 + ((sp2 - sp1) >> 1); - if ((i = *cp - *sp->s_name) == 0 && - (i = Strcmp(cp, str2short(sp->s_name))) == 0) - return sp->s_value; - if (i < 0) - sp2 = sp; - else - sp1 = sp + 1; - } - return (-1); -} - -static char * -isrchx(n) - register int n; -{ - register struct srch *sp, *sp2; - - for (sp = srchn, sp2 = srchn + nsrchn; sp < sp2; sp++) - if (sp->s_value == n) - return (sp->s_name); - return (""); -} - - -static Char Stype; -static Char *Sgoal; - -static void -search(type, level, goal) - int type; - register int level; - Char *goal; -{ - Char wordbuf[BUFSIZE]; - register Char *aword = wordbuf; - register Char *cp; - - Stype = (Char) type; - Sgoal = goal; - if (type == TC_GOTO) { - struct Ain a; - a.type = F_SEEK; - a.f_seek = 0; - bseek(&a); - } - do { - if (intty && fseekp == feobp && aret == F_SEEK) - printprompt(1, isrchx(type == TC_BREAK ? zlast : type)); - /* xprintf("? "), flush(); */ - aword[0] = 0; - (void) getword(aword); - switch (srchx(aword)) { - - case TC_ELSE: - if (level == 0 && type == TC_IF) - return; - break; - - case TC_IF: - while (getword(aword)) - continue; - if ((type == TC_IF || type == TC_ELSE) && - eq(aword, STRthen)) - level++; - break; - - case TC_ENDIF: - if (type == TC_IF || type == TC_ELSE) - level--; - break; - - case TC_FOREACH: - case TC_WHILE: - if (type == TC_BREAK) - level++; - break; - - case TC_END: - if (type == TC_BREAK) - level--; - break; - - case TC_SWITCH: - if (type == TC_SWITCH || type == TC_BRKSW) - level++; - break; - - case TC_ENDSW: - if (type == TC_SWITCH || type == TC_BRKSW) - level--; - break; - - case TC_LABEL: - if (type == TC_GOTO && getword(aword) && eq(aword, goal)) - level = -1; - break; - - default: - if (type != TC_GOTO && (type != TC_SWITCH || level != 0)) - break; - if (lastchr(aword) != ':') - break; - aword[Strlen(aword) - 1] = 0; - if ((type == TC_GOTO && eq(aword, goal)) || - (type == TC_SWITCH && eq(aword, STRdefault))) - level = -1; - break; - - case TC_CASE: - if (type != TC_SWITCH || level != 0) - break; - (void) getword(aword); - if (lastchr(aword) == ':') - aword[Strlen(aword) - 1] = 0; - cp = strip(Dfix1(aword)); - if (Gmatch(goal, cp)) - level = -1; - xfree((ptr_t) cp); - break; - - case TC_DEFAULT: - if (type == TC_SWITCH && level == 0) - level = -1; - break; - } - (void) getword(NULL); - } while (level >= 0); -} - -static int -getword(wp) - register Char *wp; -{ - int found = 0, first; - int c, d; - - c = readc(1); - d = 0; - do { - while (c == ' ' || c == '\t') - c = readc(1); - if (c == '#') - do - c = readc(1); - while (c >= 0 && c != '\n'); - if (c < 0) - goto past; - if (c == '\n') { - if (wp) - break; - return (0); - } - unreadc(c); - found = 1; - first = 1; - do { - c = readc(1); - if (c == '\\' && (c = readc(1)) == '\n') - c = ' '; - if (c == '\'' || c == '"') { - if (d == 0) - d = c; - else if (d == c) - d = 0; - } - if (c < 0) - goto past; - if (wp) { - *wp++ = (Char) c; - *wp = '\0'; - } - if (!first && !d && c == '(') { - if (wp) { - unreadc(c); - *--wp = '\0'; - return found; - } - else - break; - } - first = 0; - } while ((d || (c != ' ' && c != '\t')) && c != '\n'); - } while (wp == 0); - - unreadc(c); - if (found) - *--wp = '\0'; - - return (found); - -past: - switch (Stype) { - - case TC_IF: - stderror(ERR_NAME | ERR_NOTFOUND, "then/endif"); - break; - - case TC_ELSE: - stderror(ERR_NAME | ERR_NOTFOUND, "endif"); - break; - - case TC_BRKSW: - case TC_SWITCH: - stderror(ERR_NAME | ERR_NOTFOUND, "endsw"); - break; - - case TC_BREAK: - stderror(ERR_NAME | ERR_NOTFOUND, "end"); - break; - - case TC_GOTO: - setname(short2str(Sgoal)); - stderror(ERR_NAME | ERR_NOTFOUND, "label"); - break; - - default: - break; - } - /* NOTREACHED */ - return (0); -} - -static void -toend() -{ - if (whyles->w_end.type == F_SEEK && whyles->w_end.f_seek == 0) { - search(TC_BREAK, 0, NULL); - btell(&whyles->w_end); - whyles->w_end.f_seek--; - } - else { - bseek(&whyles->w_end); - } - wfree(); -} - -void -wfree() -{ - struct Ain o; - struct whyle *nwp; -#ifdef lint - nwp = NULL; /* sun lint is dumb! */ -#endif - -#ifdef FDEBUG - static char foo[] = "IAFE"; -#endif /* FDEBUG */ - - btell(&o); - -#ifdef FDEBUG - xprintf("o->type %c o->a_seek %d o->f_seek %d\n", - foo[o.type + 1], o.a_seek, o.f_seek); -#endif /* FDEBUG */ - - for (; whyles; whyles = nwp) { - register struct whyle *wp = whyles; - nwp = wp->w_next; - -#ifdef FDEBUG - xprintf("start->type %c start->a_seek %d start->f_seek %d\n", - foo[wp->w_start.type+1], - wp->w_start.a_seek, wp->w_start.f_seek); - xprintf("end->type %c end->a_seek %d end->f_seek %d\n", - foo[wp->w_end.type + 1], wp->w_end.a_seek, wp->w_end.f_seek); -#endif /* FDEBUG */ - - /* - * XXX: We free loops that have different seek types. - */ - if (wp->w_end.type != I_SEEK && wp->w_start.type == wp->w_end.type && - wp->w_start.type == o.type) { - if (wp->w_end.type == F_SEEK) { - if (o.f_seek >= wp->w_start.f_seek && - (wp->w_end.f_seek == 0 || o.f_seek < wp->w_end.f_seek)) - break; - } - else { - if (o.a_seek >= wp->w_start.a_seek && - (wp->w_end.a_seek == 0 || o.a_seek < wp->w_end.a_seek)) - break; - } - } - - if (wp->w_fe0) - blkfree(wp->w_fe0); - if (wp->w_fename) - xfree((ptr_t) wp->w_fename); - xfree((ptr_t) wp); - } -} - -/*ARGSUSED*/ -void -doecho(v, c) - Char **v; - struct command *c; -{ - USE(c); - xecho(' ', v); -} - -/*ARGSUSED*/ -void -doglob(v, c) - Char **v; - struct command *c; -{ - USE(c); - xecho(0, v); - flush(); -} - -static void -xecho(sep, v) - int sep; - register Char **v; -{ - register Char *cp; - int nonl = 0; -#ifdef ECHO_STYLE - int echo_style = ECHO_STYLE; -#else /* !ECHO_STYLE */ -# if SYSVREL > 0 - int echo_style = SYSV_ECHO; -# else /* SYSVREL == 0 */ - int echo_style = BSD_ECHO; -# endif /* SYSVREL */ -#endif /* ECHO_STYLE */ - struct varent *vp; - - if ((vp = adrof(STRecho_style)) != NULL && vp->vec != NULL && - vp->vec[0] != NULL) { - if (Strcmp(vp->vec[0], STRbsd) == 0) - echo_style = BSD_ECHO; - else if (Strcmp(vp->vec[0], STRsysv) == 0) - echo_style = SYSV_ECHO; - else if (Strcmp(vp->vec[0], STRboth) == 0) - echo_style = BOTH_ECHO; - else if (Strcmp(vp->vec[0], STRnone) == 0) - echo_style = NONE_ECHO; - } - - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(sigblock((sigmask_t) 0) & ~sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sigrelse (SIGINT); -#endif /* BSDSIGS */ - v++; - if (*v == 0) - return; - gflag = 0, tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else { - v = gargv = saveblk(v); - trim(v); - } - - if ((echo_style & BSD_ECHO) != 0 && sep == ' ' && *v && eq(*v, STRmn)) - nonl++, v++; - - while ((cp = *v++) != 0) { - register int c; - - while ((c = *cp++) != 0) { - if ((echo_style & SYSV_ECHO) != 0 && c == '\\') { - switch (c = *cp++) { - case 'a': - c = '\a'; - break; - case 'b': - c = '\b'; - break; - case 'c': - nonl = 1; - goto done; - case 'e': -#if 0 /* Windows does not understand \e */ - c = '\e'; -#else - c = '\033'; -#endif - break; - case 'f': - c = '\f'; - break; - case 'n': - c = '\n'; - break; - case 'r': - c = '\r'; - break; - case 't': - c = '\t'; - break; - case 'v': - c = '\v'; - break; - case '\\': - c = '\\'; - break; - case '0': - c = 0; - if (*cp >= '0' && *cp < '8') - c = c * 8 + *cp++ - '0'; - if (*cp >= '0' && *cp < '8') - c = c * 8 + *cp++ - '0'; - if (*cp >= '0' && *cp < '8') - c = c * 8 + *cp++ - '0'; - break; - case '\0': - c = '\\'; - cp--; - break; - default: - xputchar('\\' | QUOTE); - break; - } - } - xputchar(c | QUOTE); - - } - if (*v) - xputchar(sep | QUOTE); - } -done: - if (sep && nonl == 0) - xputchar('\n'); - else - flush(); - if (setintr) -#ifdef BSDSIGS - (void) sigblock(sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - if (gargv) - blkfree(gargv), gargv = 0; -} - -/* check whether an environment variable should invoke 'set_locale()' */ -static bool -islocale_var(var) - Char *var; -{ - static Char *locale_vars[] = { - STRLANG, STRLC_CTYPE, STRLC_NUMERIC, STRLC_TIME, - STRLC_COLLATE, STRLC_MESSAGES, STRLC_MONETARY, 0 - }; - register Char **v; - - for (v = locale_vars; *v; ++v) - if (eq(var, *v)) - return 1; - return 0; -} - -/*ARGSUSED*/ -void -doprintenv(v, c) - register Char **v; - struct command *c; -{ - Char *e; - extern bool output_raw; - extern bool xlate_cr; - - USE(c); - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(sigblock((sigmask_t) 0) & ~sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sigrelse (SIGINT); -#endif /* BSDSIGS */ - - v++; - if (*v == 0) { - register Char **ep; - - xlate_cr = 1; - for (ep = STR_environ; *ep; ep++) - xprintf("%S\n", *ep); - xlate_cr = 0; - } - else if ((e = tgetenv(*v)) != NULL) { - output_raw = 1; - xprintf("%S\n", e); - output_raw = 0; - } - else - set(STRstatus, Strsave(STR1), VAR_READWRITE); -} - -/* from "Karl Berry." <karl%mote.umb.edu@relay.cs.net> -- for NeXT things - (and anything else with a modern compiler) */ - -/*ARGSUSED*/ -void -dosetenv(v, c) - register Char **v; - struct command *c; -{ - Char *vp, *lp; - - USE(c); - if (*++v == 0) { - doprintenv(--v, 0); - return; - } - - vp = *v++; - - if ((lp = *v++) == 0) - lp = STRNULL; - - tsetenv(vp, lp = globone(lp, G_APPEND)); - if (eq(vp, STRKPATH)) { - importpath(lp); - dohash(NULL, NULL); - xfree((ptr_t) lp); - return; - } - -#ifdef apollo - if (eq(vp, STRSYSTYPE)) { - dohash(NULL, NULL); - xfree((ptr_t) lp); - return; - } -#endif /* apollo */ - - /* dspkanji/dspmbyte autosetting */ - /* PATCH IDEA FROM Issei.Suzuki VERY THANKS */ -#if defined(DSPMBYTE) - if(eq(vp, STRLANG) && !adrof(CHECK_MBYTEVAR)) { - autoset_dspmbyte(lp); - } -#endif - - if (islocale_var(vp)) { -#ifdef NLS - int k; - -# ifdef SETLOCALEBUG - dont_free = 1; -# endif /* SETLOCALEBUG */ - (void) setlocale(LC_ALL, ""); -# ifdef LC_COLLATE - (void) setlocale(LC_COLLATE, ""); -# endif -# ifdef NLS_CATALOGS -# ifdef LC_MESSAGES - (void) setlocale(LC_MESSAGES, ""); -# endif /* LC_MESSAGES */ - (void) catclose(catd); - nlsinit(); -# endif /* NLS_CATALOGS */ -# ifdef LC_CTYPE - (void) setlocale(LC_CTYPE, ""); /* for iscntrl */ -# endif /* LC_CTYPE */ -# ifdef SETLOCALEBUG - dont_free = 0; -# endif /* SETLOCALEBUG */ -# ifdef STRCOLLBUG - fix_strcoll_bug(); -# endif /* STRCOLLBUG */ - tw_cmd_free(); /* since the collation sequence has changed */ - for (k = 0200; k <= 0377 && !Isprint(k); k++) - continue; - AsciiOnly = k > 0377; -#else /* !NLS */ - AsciiOnly = 0; -#endif /* NLS */ - NLSMapsAreInited = 0; - ed_Init(); - if (MapsAreInited && !NLSMapsAreInited) - ed_InitNLSMaps(); - xfree((ptr_t) lp); - return; - } - - if (eq(vp, STRNOREBIND)) { - NoNLSRebind = 1; - MapsAreInited = 0; - NLSMapsAreInited = 0; - ed_InitMaps(); - xfree((ptr_t) lp); - return; - } -#ifdef WINNT - if (eq(vp, STRtcshlang)) { - nlsinit(); - xfree((ptr_t) lp); - return; - } - if (eq(vp, STRtcshonlystartexes)) { - __nt_only_start_exes = 1; - xfree((ptr_t) lp); - return; - } -#endif /* WINNT */ - if (eq(vp, STRKTERM)) { - char *t; - set(STRterm, quote(lp), VAR_READWRITE); /* lp memory used here */ - t = short2str(lp); - if (noediting && strcmp(t, "unknown") != 0 && strcmp(t,"dumb") != 0) { - editing = 1; - noediting = 0; - set(STRedit, Strsave(STRNULL), VAR_READWRITE); - } - GotTermCaps = 0; - ed_Init(); - return; - } - - if (eq(vp, STRKHOME)) { - /* - * convert to canonical pathname (possibly resolving symlinks) - */ - lp = dcanon(lp, lp); - set(STRhome, quote(lp), VAR_READWRITE); /* cp memory used here */ - - /* fix directory stack for new tilde home */ - dtilde(); - return; - } - - if (eq(vp, STRKSHLVL)) { - /* lp memory used here */ - set(STRshlvl, quote(lp), VAR_READWRITE); - return; - } - - if (eq(vp, STRKUSER)) { - set(STRuser, quote(lp), VAR_READWRITE); /* lp memory used here */ - return; - } - - if (eq(vp, STRKGROUP)) { - set(STRgroup, quote(lp), VAR_READWRITE); /* lp memory used here */ - return; - } - -#ifdef COLOR_LS_F - if (eq(vp, STRLS_COLORS)) { - parseLS_COLORS(lp); - return; - } -#endif /* COLOR_LS_F */ - -#ifdef SIG_WINDOW - /* - * Load/Update $LINES $COLUMNS - */ - if ((eq(lp, STRNULL) && (eq(vp, STRLINES) || eq(vp, STRCOLUMNS))) || - eq(vp, STRTERMCAP)) { - xfree((ptr_t) lp); - check_window_size(1); - return; - } - - /* - * Change the size to the one directed by $LINES and $COLUMNS - */ - if (eq(vp, STRLINES) || eq(vp, STRCOLUMNS)) { -#if 0 - GotTermCaps = 0; -#endif - xfree((ptr_t) lp); - ed_Init(); - return; - } -#endif /* SIG_WINDOW */ - xfree((ptr_t) lp); -} - -/*ARGSUSED*/ -void -dounsetenv(v, c) - register Char **v; - struct command *c; -{ - Char **ep, *p, *n; - int i, maxi; - static Char *name = NULL; - - USE(c); - if (name) - xfree((ptr_t) name); - /* - * Find the longest environment variable - */ - for (maxi = 0, ep = STR_environ; *ep; ep++) { - for (i = 0, p = *ep; *p && *p != '='; p++, i++) - continue; - if (i > maxi) - maxi = i; - } - - name = (Char *) xmalloc((size_t) ((maxi + 1) * sizeof(Char))); - - while (++v && *v) - for (maxi = 1; maxi;) - for (maxi = 0, ep = STR_environ; *ep; ep++) { - for (n = name, p = *ep; *p && *p != '='; *n++ = *p++) - continue; - *n = '\0'; - if (!Gmatch(name, *v)) - continue; - maxi = 1; - - /* Unset the name. This wasn't being done until - * later but most of the stuff following won't - * work (particularly the setlocale() and getenv() - * stuff) as intended until the name is actually - * removed. (sg) - */ - Unsetenv(name); - - if (eq(name, STRNOREBIND)) { - NoNLSRebind = 0; - MapsAreInited = 0; - NLSMapsAreInited = 0; - ed_InitMaps(); - } -#ifdef apollo - else if (eq(name, STRSYSTYPE)) - dohash(NULL, NULL); -#endif /* apollo */ - else if (islocale_var(name)) { -#ifdef NLS - int k; - -# ifdef SETLOCALEBUG - dont_free = 1; -# endif /* SETLOCALEBUG */ - (void) setlocale(LC_ALL, ""); -# ifdef LC_COLLATE - (void) setlocale(LC_COLLATE, ""); -# endif -# ifdef NLS_CATALOGS -# ifdef LC_MESSAGES - (void) setlocale(LC_MESSAGES, ""); -# endif /* LC_MESSAGES */ - (void) catclose(catd); - nlsinit(); -# endif /* NLS_CATALOGS */ -# ifdef LC_CTYPE - (void) setlocale(LC_CTYPE, ""); /* for iscntrl */ -# endif /* LC_CTYPE */ -# ifdef SETLOCALEBUG - dont_free = 0; -# endif /* SETLOCALEBUG */ -# ifdef STRCOLLBUG - fix_strcoll_bug(); -# endif /* STRCOLLBUG */ - tw_cmd_free();/* since the collation sequence has changed */ - for (k = 0200; k <= 0377 && !Isprint(k); k++) - continue; - AsciiOnly = k > 0377; -#else /* !NLS */ - AsciiOnly = getenv("LANG") == NULL && - getenv("LC_CTYPE") == NULL; -#endif /* NLS */ - NLSMapsAreInited = 0; - ed_Init(); - if (MapsAreInited && !NLSMapsAreInited) - ed_InitNLSMaps(); - - } -#ifdef WINNT - else if (eq(name,(STRtcshlang))) { - nls_dll_unload(); - nlsinit(); - } - else if (eq(name,(STRtcshonlystartexes))) { - __nt_only_start_exes = 0; - } -#endif /* WINNT */ -#ifdef COLOR_LS_F - else if (eq(name, STRLS_COLORS)) - parseLS_COLORS(n); -#endif /* COLOR_LS_F */ - /* - * start again cause the environment changes - */ - break; - } - xfree((ptr_t) name); name = NULL; -} - -void -tsetenv(name, val) - Char *name, *val; -{ -#ifdef SETENV_IN_LIB -/* - * XXX: This does not work right, since tcsh cannot track changes to - * the environment this way. (the builtin setenv without arguments does - * not print the right stuff neither does unsetenv). This was for Mach, - * it is not needed anymore. - */ -#undef setenv - char nameBuf[BUFSIZE]; - char *cname = short2str(name); - - if (cname == NULL) - return; - (void) strcpy(nameBuf, cname); - setenv(nameBuf, short2str(val), 1); -#else /* !SETENV_IN_LIB */ - register Char **ep = STR_environ; - register Char *cp, *dp; - Char *blk[2]; - Char **oep = ep; - -#ifdef WINNT - nt_set_env(name,val); -#endif /* WINNT */ - for (; *ep; ep++) { -#ifdef WINNT - for (cp = name, dp = *ep; *cp && Tolower(*cp & TRIM) == Tolower(*dp); - cp++, dp++) -#else - for (cp = name, dp = *ep; *cp && (*cp & TRIM) == *dp; cp++, dp++) -#endif /* WINNT */ - continue; - if (*cp != 0 || *dp != '=') - continue; - cp = Strspl(STRequal, val); - xfree((ptr_t) * ep); - *ep = strip(Strspl(name, cp)); - xfree((ptr_t) cp); - blkfree((Char **) environ); - environ = short2blk(STR_environ); - return; - } - cp = Strspl(name, STRequal); - blk[0] = strip(Strspl(cp, val)); - xfree((ptr_t) cp); - blk[1] = 0; - STR_environ = blkspl(STR_environ, blk); - blkfree((Char **) environ); - environ = short2blk(STR_environ); - xfree((ptr_t) oep); -#endif /* SETENV_IN_LIB */ -} - -void -Unsetenv(name) - Char *name; -{ - register Char **ep = STR_environ; - register Char *cp, *dp; - Char **oep = ep; - -#ifdef WINNT - nt_set_env(name,NULL); -#endif /*WINNT */ - for (; *ep; ep++) { - for (cp = name, dp = *ep; *cp && *cp == *dp; cp++, dp++) - continue; - if (*cp != 0 || *dp != '=') - continue; - cp = *ep; - *ep = 0; - STR_environ = blkspl(STR_environ, ep + 1); - blkfree((Char **) environ); - environ = short2blk(STR_environ); - *ep = cp; - xfree((ptr_t) cp); - xfree((ptr_t) oep); - return; - } -} - -/*ARGSUSED*/ -void -doumask(v, c) - register Char **v; - struct command *c; -{ - register Char *cp = v[1]; - register int i; - - USE(c); - if (cp == 0) { - i = (int)umask(0); - (void) umask(i); - xprintf("%o\n", i); - return; - } - i = 0; - while (Isdigit(*cp) && *cp != '8' && *cp != '9') - i = i * 8 + *cp++ - '0'; - if (*cp || i < 0 || i > 0777) - stderror(ERR_NAME | ERR_MASK); - (void) umask(i); -} - -#ifndef HAVENOLIMIT -# ifndef BSDLIMIT - typedef long RLIM_TYPE; -# ifndef RLIM_INFINITY -# if !defined(_MINIX) && !defined(__clipper__) && !defined(_CRAY) - extern RLIM_TYPE ulimit(); -# endif /* ! _MINIX && !__clipper__ */ -# define RLIM_INFINITY 0x003fffff -# define RLIMIT_FSIZE 1 -# endif /* RLIM_INFINITY */ -# ifdef aiws -# define toset(a) (((a) == 3) ? 1004 : (a) + 1) -# define RLIMIT_DATA 3 -# define RLIMIT_STACK 1005 -# else /* aiws */ -# define toset(a) ((a) + 1) -# endif /* aiws */ -# else /* BSDLIMIT */ -# if defined(BSD4_4) && !defined(__386BSD__) - typedef quad_t RLIM_TYPE; -# else -# if defined(SOLARIS2) || (defined(sgi) && SYSVREL > 3) - typedef rlim_t RLIM_TYPE; -# else -# if defined(_SX) - typedef long long RLIM_TYPE; -# else /* _SX */ - typedef unsigned long RLIM_TYPE; -# endif /* _SX */ -# endif /* SOLARIS2 || (sgi && SYSVREL > 3) */ -# endif /* BSD4_4 && !__386BSD__ */ -# endif /* BSDLIMIT */ - -# if (HPUXVERSION > 700) && defined(BSDLIMIT) -/* Yes hpux8.0 has limits but <sys/resource.h> does not make them public */ -/* Yes, we could have defined _KERNEL, and -I/etc/conf/h, but is that better? */ -# ifndef RLIMIT_CPU -# define RLIMIT_CPU 0 -# define RLIMIT_FSIZE 1 -# define RLIMIT_DATA 2 -# define RLIMIT_STACK 3 -# define RLIMIT_CORE 4 -# define RLIMIT_RSS 5 -# define RLIMIT_NOFILE 6 -# endif /* RLIMIT_CPU */ -# ifndef RLIM_INFINITY -# define RLIM_INFINITY 0x7fffffff -# endif /* RLIM_INFINITY */ - /* - * old versions of HP/UX counted limits in 512 bytes - */ -# ifndef SIGRTMIN -# define FILESIZE512 -# endif /* SIGRTMIN */ -# endif /* (HPUXVERSION > 700) && BSDLIMIT */ - -# if SYSVREL > 3 && defined(BSDLIMIT) && !defined(_SX) -/* In order to use rusage, we included "/usr/ucbinclude/sys/resource.h" in */ -/* sh.h. However, some SVR4 limits are defined in <sys/resource.h>. Rather */ -/* than include both and get warnings, we define the extra SVR4 limits here. */ -# ifndef RLIMIT_VMEM -# define RLIMIT_VMEM 6 -# endif -# ifndef RLIMIT_AS -# define RLIMIT_AS RLIMIT_VMEM -# endif -# endif /* SYSVREL > 3 && BSDLIMIT */ - -struct limits limits[] = -{ -# ifdef RLIMIT_CPU - { RLIMIT_CPU, "cputime", 1, "seconds" }, -# endif /* RLIMIT_CPU */ - -# ifdef RLIMIT_FSIZE -# ifndef aiws - { RLIMIT_FSIZE, "filesize", 1024, "kbytes" }, -# else - { RLIMIT_FSIZE, "filesize", 512, "blocks" }, -# endif /* aiws */ -# endif /* RLIMIT_FSIZE */ - -# ifdef RLIMIT_DATA - { RLIMIT_DATA, "datasize", 1024, "kbytes" }, -# endif /* RLIMIT_DATA */ - -# ifdef RLIMIT_STACK -# ifndef aiws - { RLIMIT_STACK, "stacksize", 1024, "kbytes" }, -# else - { RLIMIT_STACK, "stacksize", 1024 * 1024, "kbytes"}, -# endif /* aiws */ -# endif /* RLIMIT_STACK */ - -# ifdef RLIMIT_CORE - { RLIMIT_CORE, "coredumpsize", 1024, "kbytes" }, -# endif /* RLIMIT_CORE */ - -# ifdef RLIMIT_RSS - { RLIMIT_RSS, "memoryuse", 1024, "kbytes" }, -# endif /* RLIMIT_RSS */ - -# ifdef RLIMIT_UMEM - { RLIMIT_UMEM, "memoryuse", 1024, "kbytes" }, -# endif /* RLIMIT_UMEM */ - -# ifdef RLIMIT_VMEM - { RLIMIT_VMEM, "vmemoryuse", 1024, "kbytes" }, -# endif /* RLIMIT_VMEM */ - -# ifdef RLIMIT_NOFILE - { RLIMIT_NOFILE, "descriptors", 1, "" }, -# endif /* RLIMIT_NOFILE */ - -# ifdef RLIMIT_CONCUR - { RLIMIT_CONCUR, "concurrency", 1, "thread(s)" }, -# endif /* RLIMIT_CONCUR */ - -# ifdef RLIMIT_MEMLOCK - { RLIMIT_MEMLOCK, "memorylocked", 1024, "kbytes" }, -# endif /* RLIMIT_MEMLOCK */ - -# ifdef RLIMIT_NPROC - { RLIMIT_NPROC, "maxproc", 1, "" }, -# endif /* RLIMIT_NPROC */ - -# ifdef RLIMIT_OFILE - { RLIMIT_OFILE, "openfiles", 1, "" }, -# endif /* RLIMIT_OFILE */ - - { -1, NULL, 0, NULL } -}; - -static struct limits *findlim __P((Char *)); -static RLIM_TYPE getval __P((struct limits *, Char **)); -static void limtail __P((Char *, char*)); -static void plim __P((struct limits *, int)); -static int setlim __P((struct limits *, int, RLIM_TYPE)); - -#ifdef convex -static RLIM_TYPE -restrict_limit(value) - double value; -{ - /* - * is f too large to cope with? return the maximum or minimum int - */ - if (value > (double) INT_MAX) - return (RLIM_TYPE) INT_MAX; - else if (value < (double) INT_MIN) - return (RLIM_TYPE) INT_MIN; - else - return (RLIM_TYPE) value; -} -#else /* !convex */ -# define restrict_limit(x) ((RLIM_TYPE) (x)) -#endif /* convex */ - - -static struct limits * -findlim(cp) - Char *cp; -{ - register struct limits *lp, *res; - - res = (struct limits *) NULL; - for (lp = limits; lp->limconst >= 0; lp++) - if (prefix(cp, str2short(lp->limname))) { - if (res) - stderror(ERR_NAME | ERR_AMBIG); - res = lp; - } - if (res) - return (res); - stderror(ERR_NAME | ERR_LIMIT); - /* NOTREACHED */ - return (0); -} - -/*ARGSUSED*/ -void -dolimit(v, c) - register Char **v; - struct command *c; -{ - register struct limits *lp; - register RLIM_TYPE limit; - int hard = 0; - - USE(c); - v++; - if (*v && eq(*v, STRmh)) { - hard = 1; - v++; - } - if (*v == 0) { - for (lp = limits; lp->limconst >= 0; lp++) - plim(lp, hard); - return; - } - lp = findlim(v[0]); - if (v[1] == 0) { - plim(lp, hard); - return; - } - limit = getval(lp, v + 1); - if (setlim(lp, hard, limit) < 0) - stderror(ERR_SILENT); -} - -static RLIM_TYPE -getval(lp, v) - register struct limits *lp; - Char **v; -{ - register float f; -#ifndef atof /* This can be a macro on linux */ - extern double atof __P((const char *)); -#endif /* atof */ - Char *cp = *v++; - - f = atof(short2str(cp)); - -# ifdef convex - /* - * is f too large to cope with. limit f to minint, maxint - X-6768 by - * strike - */ - if ((f < (double) INT_MIN) || (f > (double) INT_MAX)) { - stderror(ERR_NAME | ERR_TOOLARGE); - } -# endif /* convex */ - - while (Isdigit(*cp) || *cp == '.' || *cp == 'e' || *cp == 'E') - cp++; - if (*cp == 0) { - if (*v == 0) - return f == 0.0 ? (RLIM_TYPE) 0 : restrict_limit((f + 0.5) * lp->limdiv); - cp = *v; - } - switch (*cp) { -# ifdef RLIMIT_CPU - case ':': - if (lp->limconst != RLIMIT_CPU) - goto badscal; - return f == 0.0 ? (RLIM_TYPE) 0 : restrict_limit((f * 60.0 + atof(short2str(cp + 1)))); - case 'h': - if (lp->limconst != RLIMIT_CPU) - goto badscal; - limtail(cp, "hours"); - f *= 3600.0; - break; - case 'm': - if (lp->limconst == RLIMIT_CPU) { - limtail(cp, "minutes"); - f *= 60.0; - break; - } - *cp = 'm'; - limtail(cp, "megabytes"); - f *= 1024.0 * 1024.0; - break; - case 's': - if (lp->limconst != RLIMIT_CPU) - goto badscal; - limtail(cp, "seconds"); - break; -# endif /* RLIMIT_CPU */ - case 'M': -# ifdef RLIMIT_CPU - if (lp->limconst == RLIMIT_CPU) - goto badscal; -# endif /* RLIMIT_CPU */ - *cp = 'm'; - limtail(cp, "megabytes"); - f *= 1024.0 * 1024.0; - break; - case 'k': -# ifdef RLIMIT_CPU - if (lp->limconst == RLIMIT_CPU) - goto badscal; -# endif /* RLIMIT_CPU */ - limtail(cp, "kbytes"); - f *= 1024.0; - break; - case 'b': -# ifdef RLIMIT_CPU - if (lp->limconst == RLIMIT_CPU) - goto badscal; -# endif /* RLIMIT_CPU */ - limtail(cp, "blocks"); - f *= 512.0; - break; - case 'u': - limtail(cp, "unlimited"); - return ((RLIM_TYPE) RLIM_INFINITY); - default: -# ifdef RLIMIT_CPU -badscal: -# endif /* RLIMIT_CPU */ - stderror(ERR_NAME | ERR_SCALEF); - } -# ifdef convex - return f == 0.0 ? (RLIM_TYPE) 0 : restrict_limit((f + 0.5)); -# else - f += 0.5; - if (f > (float) RLIM_INFINITY) - return ((RLIM_TYPE) RLIM_INFINITY); - else - return ((RLIM_TYPE) f); -# endif /* convex */ -} - -static void -limtail(cp, str) - Char *cp; - char *str; -{ - while (*cp && *cp == *str) - cp++, str++; - if (*cp) - stderror(ERR_BADSCALE, str); -} - - -/*ARGSUSED*/ -static void -plim(lp, hard) - register struct limits *lp; - int hard; -{ -# ifdef BSDLIMIT - struct rlimit rlim; -# endif /* BSDLIMIT */ - RLIM_TYPE limit; - int div = lp->limdiv; - - xprintf("%s \t", lp->limname); - -# ifndef BSDLIMIT - limit = ulimit(lp->limconst, 0); -# ifdef aiws - if (lp->limconst == RLIMIT_DATA) - limit -= 0x20000000; -# endif /* aiws */ -# else /* BSDLIMIT */ - (void) getrlimit(lp->limconst, &rlim); - limit = hard ? rlim.rlim_max : rlim.rlim_cur; -# endif /* BSDLIMIT */ - -# if !defined(BSDLIMIT) || defined(FILESIZE512) - /* - * Christos: filesize comes in 512 blocks. we divide by 2 to get 1024 - * blocks. Note we cannot pre-multiply cause we might overflow (A/UX) - */ - if (lp->limconst == RLIMIT_FSIZE) { - if (limit >= (RLIM_INFINITY / 512)) - limit = RLIM_INFINITY; - else - div = (div == 1024 ? 2 : 1); - } -# endif /* !BSDLIMIT || FILESIZE512 */ - - if (limit == RLIM_INFINITY) - xprintf("unlimited"); - else -# ifdef RLIMIT_CPU - if (lp->limconst == RLIMIT_CPU) - psecs((long) limit); - else -# endif /* RLIMIT_CPU */ - xprintf("%ld %s", (long) (limit / div), lp->limscale); - xputchar('\n'); -} - -/*ARGSUSED*/ -void -dounlimit(v, c) - register Char **v; - struct command *c; -{ - register struct limits *lp; - int lerr = 0; - int hard = 0; - int force = 0; - - USE(c); - while (*++v && **v == '-') { - Char *vp = *v; - while (*++vp) - switch (*vp) { - case 'f': - force = 1; - break; - case 'h': - hard = 1; - break; - default: - stderror(ERR_ULIMUS); - break; - } - } - - if (*v == 0) { - for (lp = limits; lp->limconst >= 0; lp++) - if (setlim(lp, hard, (RLIM_TYPE) RLIM_INFINITY) < 0) - lerr++; - if (!force && lerr) - stderror(ERR_SILENT); - return; - } - while (*v) { - lp = findlim(*v++); - if (setlim(lp, hard, (RLIM_TYPE) RLIM_INFINITY) < 0 && !force) - stderror(ERR_SILENT); - } -} - -static int -setlim(lp, hard, limit) - register struct limits *lp; - int hard; - RLIM_TYPE limit; -{ -# ifdef BSDLIMIT - struct rlimit rlim; - - (void) getrlimit(lp->limconst, &rlim); - -# ifdef FILESIZE512 - /* Even though hpux has setrlimit(), it expects fsize in 512 byte blocks */ - if (limit != RLIM_INFINITY && lp->limconst == RLIMIT_FSIZE) - limit /= 512; -# endif /* FILESIZE512 */ - if (hard) - rlim.rlim_max = limit; - else if (limit == RLIM_INFINITY && euid != 0) - rlim.rlim_cur = rlim.rlim_max; - else - rlim.rlim_cur = limit; - - if (setrlimit(lp->limconst, &rlim) < 0) { -# else /* BSDLIMIT */ - if (limit != RLIM_INFINITY && lp->limconst == RLIMIT_FSIZE) - limit /= 512; -# ifdef aiws - if (lp->limconst == RLIMIT_DATA) - limit += 0x20000000; -# endif /* aiws */ - if (ulimit(toset(lp->limconst), limit) < 0) { -# endif /* BSDLIMIT */ - xprintf(CGETS(15, 1, "%s: %s: Can't %s%s limit\n"), bname, lp->limname, - limit == RLIM_INFINITY ? CGETS(15, 2, "remove") : - CGETS(15, 3, "set"), - hard ? CGETS(14, 4, " hard") : ""); - return (-1); - } - return (0); -} - -#endif /* !HAVENOLIMIT */ - -/*ARGSUSED*/ -void -dosuspend(v, c) - Char **v; - struct command *c; -{ -#ifdef BSDJOBS - int ctpgrp; - - signalfun_t old; -#endif /* BSDJOBS */ - - USE(c); - USE(v); - - if (loginsh) - stderror(ERR_SUSPLOG); - untty(); - -#ifdef BSDJOBS - old = signal(SIGTSTP, SIG_DFL); - (void) kill(0, SIGTSTP); - /* the shell stops here */ - (void) signal(SIGTSTP, old); -#else /* !BSDJOBS */ - stderror(ERR_JOBCONTROL); -#endif /* BSDJOBS */ - -#ifdef BSDJOBS - if (tpgrp != -1) { -retry: - ctpgrp = tcgetpgrp(FSHTTY); - if (ctpgrp != opgrp) { - old = signal(SIGTTIN, SIG_DFL); - (void) kill(0, SIGTTIN); - (void) signal(SIGTTIN, old); - goto retry; - } - (void) setpgid(0, shpgrp); - (void) tcsetpgrp(FSHTTY, shpgrp); - } -#endif /* BSDJOBS */ - (void) setdisc(FSHTTY); -} - -/* This is the dreaded EVAL built-in. - * If you don't fiddle with file descriptors, and reset didfds, - * this command will either ignore redirection inside or outside - * its arguments, e.g. eval "date >x" vs. eval "date" >x - * The stuff here seems to work, but I did it by trial and error rather - * than really knowing what was going on. If tpgrp is zero, we are - * probably a background eval, e.g. "eval date &", and we want to - * make sure that any processes we start stay in our pgrp. - * This is also the case for "time eval date" -- stay in same pgrp. - * Otherwise, under stty tostop, processes will stop in the wrong - * pgrp, with no way for the shell to get them going again. -IAN! - */ - -static Char **gv = NULL, **gav = NULL; - -/*ARGSUSED*/ -void -doeval(v, c) - Char **v; - struct command *c; -{ - Char **oevalvec; - Char *oevalp; - int odidfds; -#ifndef CLOSE_ON_EXEC - int odidcch; -#endif /* CLOSE_ON_EXEC */ - jmp_buf_t osetexit; - int my_reenter; - Char **savegv; - int saveIN, saveOUT, saveDIAG; - int oSHIN, oSHOUT, oSHDIAG; - - USE(c); - oevalvec = evalvec; - oevalp = evalp; - odidfds = didfds; -#ifndef CLOSE_ON_EXEC - odidcch = didcch; -#endif /* CLOSE_ON_EXEC */ - oSHIN = SHIN; - oSHOUT = SHOUT; - oSHDIAG = SHDIAG; - - savegv = gv; - gav = v; - - gav++; - if (*gav == 0) - return; - gflag = 0, tglob(gav); - if (gflag) { - gv = gav = globall(gav); - gargv = 0; - if (gav == 0) - stderror(ERR_NOMATCH); - gav = copyblk(gav); - } - else { - gv = NULL; - gav = copyblk(gav); - trim(gav); - } - - saveIN = dcopy(SHIN, -1); - saveOUT = dcopy(SHOUT, -1); - saveDIAG = dcopy(SHDIAG, -1); - - getexit(osetexit); - - /* PWP: setjmp/longjmp bugfix for optimizing compilers */ -#ifdef cray - my_reenter = 1; /* assume non-zero return val */ - if (setexit() == 0) { - my_reenter = 0; /* Oh well, we were wrong */ -#else /* !cray */ - if ((my_reenter = setexit()) == 0) { -#endif /* cray */ - evalvec = gav; - evalp = 0; - SHIN = dcopy(0, -1); - SHOUT = dcopy(1, -1); - SHDIAG = dcopy(2, -1); -#ifndef CLOSE_ON_EXEC - didcch = 0; -#endif /* CLOSE_ON_EXEC */ - didfds = 0; - process(0); - } - - evalvec = oevalvec; - evalp = oevalp; - doneinp = 0; -#ifndef CLOSE_ON_EXEC - didcch = odidcch; -#endif /* CLOSE_ON_EXEC */ - didfds = odidfds; - (void) close(SHIN); - (void) close(SHOUT); - (void) close(SHDIAG); - SHIN = dmove(saveIN, oSHIN); - SHOUT = dmove(saveOUT, oSHOUT); - SHDIAG = dmove(saveDIAG, oSHDIAG); - - if (gv) - blkfree(gv); - - gv = savegv; - resexit(osetexit); - if (my_reenter) - stderror(ERR_SILENT); -} - -/*************************************************************************/ -/* print list of builtin commands */ - -/*ARGSUSED*/ -void -dobuiltins(v, c) -Char **v; -struct command *c; -{ - /* would use print_by_column() in tw.parse.c but that assumes - * we have an array of Char * to pass.. (sg) - */ - extern int Tty_raw_mode; - extern int TermH; /* from the editor routines */ - extern int lbuffed; /* from sh.print.c */ - - register struct biltins *b; - register int row, col, columns, rows; - unsigned int w, maxwidth; - - USE(c); - USE(v); - lbuffed = 0; /* turn off line buffering */ - - /* find widest string */ - for (maxwidth = 0, b = bfunc; b < &bfunc[nbfunc]; ++b) - maxwidth = max(maxwidth, strlen(b->bname)); - ++maxwidth; /* for space */ - - columns = (TermH + 1) / maxwidth; /* PWP: terminal size change */ - if (!columns) - columns = 1; - rows = (nbfunc + (columns - 1)) / columns; - - for (b = bfunc, row = 0; row < rows; row++) { - for (col = 0; col < columns; col++) { - if (b < &bfunc[nbfunc]) { - w = strlen(b->bname); - xprintf("%s", b->bname); - if (col < (columns - 1)) /* Not last column? */ - for (; w < maxwidth; w++) - xputchar(' '); - ++b; - } - } - if (row < (rows - 1)) { - if (Tty_raw_mode) - xputchar('\r'); - xputchar('\n'); - } - } -#ifdef WINNT - nt_print_builtins(maxwidth); -#else - if (Tty_raw_mode) - xputchar('\r'); - xputchar('\n'); -#endif /* WINNT */ - - lbuffed = 1; /* turn back on line buffering */ - flush(); -} - -void -nlsinit() -{ -#ifdef NLS_CATALOGS - catd = catopen("tcsh", MCLoadBySet); -#endif -#ifdef WINNT - nls_dll_init(); -#endif /* WINNT */ - errinit(); /* init the errorlist in correct locale */ - mesginit(); /* init the messages for signals */ - dateinit(); /* init the messages for dates */ - editinit(); /* init the editor messages */ - terminit(); /* init the termcap messages */ -} diff --git a/contrib/tcsh/sh.glob.c b/contrib/tcsh/sh.glob.c deleted file mode 100644 index 9bcd9790a335..000000000000 --- a/contrib/tcsh/sh.glob.c +++ /dev/null @@ -1,1145 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.glob.c,v 3.44 2000/01/14 22:57:28 christos Exp $ */ -/* - * sh.glob.c: Regular expression expansion - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.glob.c,v 3.44 2000/01/14 22:57:28 christos Exp $") - -#include "tc.h" - -#include "glob.h" - -static int noglob; -static int pargsiz, gargsiz; - -/* - * Values for gflag - */ -#define G_NONE 0 /* No globbing needed */ -#define G_GLOB 1 /* string contains *?[] characters */ -#define G_CSH 2 /* string contains ~`{ characters */ - -#define GLOBSPACE 100 /* Alloc increment */ -#define LONGBSIZE 10240 /* Backquote expansion buffer size */ - - -#define LBRC '{' -#define RBRC '}' -#define LBRK '[' -#define RBRK ']' -#define EOS '\0' - -Char **gargv = NULL; -int gargc = 0; -Char **pargv = NULL; -static int pargc = 0; - -/* - * globbing is now done in two stages. In the first pass we expand - * csh globbing idioms ~`{ and then we proceed doing the normal - * globbing if needed ?*[ - * - * Csh type globbing is handled in globexpand() and the rest is - * handled in glob() which is part of the 4.4BSD libc. - * - */ -static Char *globtilde __P((Char **, Char *)); -static Char *handleone __P((Char *, Char **, int)); -static Char **libglob __P((Char **)); -static Char **globexpand __P((Char **)); -static int globbrace __P((Char *, Char *, Char ***)); -static void expbrace __P((Char ***, Char ***, int)); -static int pmatch __P((Char *, Char *, Char **)); -static void pword __P((int)); -static void psave __P((int)); -static void backeval __P((Char *, bool)); - -static Char * -globtilde(nv, s) - Char **nv, *s; -{ - Char gbuf[BUFSIZE], *gstart, *b, *u, *e; -#ifdef apollo - int slash; -#endif - - gstart = gbuf; - *gstart++ = *s++; - u = s; - for (b = gstart, e = &gbuf[BUFSIZE - 1]; - *s && *s != '/' && *s != ':' && b < e; - *b++ = *s++) - continue; - *b = EOS; - if (gethdir(gstart)) { - if (adrof(STRnonomatch)) - return (--u); - blkfree(nv); - if (*gstart) - stderror(ERR_UNKUSER, short2str(gstart)); - else - stderror(ERR_NOHOME); - } - b = &gstart[Strlen(gstart)]; -#ifdef apollo - slash = gstart[0] == '/' && gstart[1] == '\0'; -#endif - while (*s) - *b++ = *s++; - *b = EOS; - --u; - xfree((ptr_t) u); -#ifdef apollo - if (slash && gstart[1] == '/') - gstart++; -#endif - return (Strsave(gstart)); -} - -Char * -globequal(new, old) - Char *new, *old; -{ - int dig; - Char *b, *d; - - /* - * kfk - 17 Jan 1984 - stack hack allows user to get at arbitrary dir names - * in stack. PWP: let =foobar pass through (for X windows) - */ - if (old[1] == '-' && (old[2] == '\0' || old[2] == '/')) { - /* =- */ - dig = -1; - b = &old[2]; - } - else if (Isdigit(old[1])) { - /* =<number> */ - dig = old[1] - '0'; - for (b = &old[2]; Isdigit(*b); b++) - dig = dig * 10 + (*b - '0'); - if (*b != '\0' && *b != '/') - /* =<number>foobar */ - return old; - } - else - /* =foobar */ - return old; - - if (!getstakd(new, dig)) - return NULL; - - /* Copy the rest of the string */ - for (d = &new[Strlen(new)]; - d < &new[BUFSIZE - 1] && (*d++ = *b++) != '\0';) - continue; - *d = '\0'; - - return new; -} - -static int -globbrace(s, p, bl) - Char *s, *p, ***bl; -{ - int i, len; - Char *pm, *pe, *lm, *pl; - Char **nv, **vl; - Char gbuf[BUFSIZE]; - int size = GLOBSPACE; - - nv = vl = (Char **) xmalloc((size_t) (sizeof(Char *) * size)); - *vl = NULL; - - len = 0; - /* copy part up to the brace */ - for (lm = gbuf, p = s; *p != LBRC; *lm++ = *p++) - continue; - - /* check for balanced braces */ - for (i = 0, pe = ++p; *pe; pe++) -#ifdef DSPMBYTE - if (Ismbyte1(*pe) && *(pe + 1) != EOS) - pe ++; - else -#endif /* DSPMBYTE */ - if (*pe == LBRK) { - /* Ignore everything between [] */ - for (++pe; *pe != RBRK && *pe != EOS; pe++) -#ifdef DSPMBYTE - if (Ismbyte1(*pe) && *(pe + 1) != EOS) - pe ++; - else -#endif /* DSPMBYTE */ - continue; - if (*pe == EOS) { - blkfree(nv); - return (-RBRK); - } - } - else if (*pe == LBRC) - i++; - else if (*pe == RBRC) { - if (i == 0) - break; - i--; - } - - if (i != 0 || *pe == '\0') { - blkfree(nv); - return (-RBRC); - } - - for (i = 0, pl = pm = p; pm <= pe; pm++) -#ifdef DSPMBYTE - if (Ismbyte1(*pm) && pm + 1 <= pe) - pm ++; - else -#endif /* DSPMBYTE */ - switch (*pm) { - case LBRK: - for (++pm; *pm != RBRK && *pm != EOS; pm++) -#ifdef DSPMBYTE - if (Ismbyte1(*pm) && *(pm + 1) != EOS) - pm ++; - else -#endif /* DSPMBYTE */ - continue; - if (*pm == EOS) { - *vl = NULL; - blkfree(nv); - return (-RBRK); - } - break; - case LBRC: - i++; - break; - case RBRC: - if (i) { - i--; - break; - } - /* FALLTHROUGH */ - case ',': - if (i && *pm == ',') - break; - else { - Char savec = *pm; - - *pm = EOS; - (void) Strcpy(lm, pl); - (void) Strcat(gbuf, pe + 1); - *pm = savec; - *vl++ = Strsave(gbuf); - len++; - pl = pm + 1; - if (vl == &nv[size]) { - size += GLOBSPACE; - nv = (Char **) xrealloc((ptr_t) nv, - (size_t) (size * sizeof(Char *))); - vl = &nv[size - GLOBSPACE]; - } - } - break; - default: - break; - } - *vl = NULL; - *bl = nv; - return (len); -} - - -static void -expbrace(nvp, elp, size) - Char ***nvp, ***elp; - int size; -{ - Char **vl, **el, **nv, *s; - - vl = nv = *nvp; - if (elp != NULL) - el = *elp; - else - for (el = vl; *el; el++) - continue; - - for (s = *vl; s; s = *++vl) { - Char *b; - Char **vp, **bp; - - /* leave {} untouched for find */ - if (s[0] == '{' && (s[1] == '\0' || (s[1] == '}' && s[2] == '\0'))) - continue; - if ((b = Strchr(s, '{')) != NULL) { - Char **bl; - int len; - -#if defined (DSPMBYTE) - if (b != s && Ismbyte2(*b) && Ismbyte1(*(b-1))) { - /* The "{" is the 2nd byte of a MB character */ - continue; - } -#endif /* DSPMBYTE */ - if ((len = globbrace(s, b, &bl)) < 0) { - xfree((ptr_t) nv); - stderror(ERR_MISSING, -len); - } - xfree((ptr_t) s); - if (len == 1) { - *vl-- = *bl; - xfree((ptr_t) bl); - continue; - } - if (&el[len] >= &nv[size]) { - int l, e; - l = (int) (&el[len] - &nv[size]); - size += GLOBSPACE > l ? GLOBSPACE : l; - l = (int) (vl - nv); - e = (int) (el - nv); - nv = (Char **) xrealloc((ptr_t) nv, - (size_t) (size * sizeof(Char *))); - vl = nv + l; - el = nv + e; - } - /* nv vl el bl - * | | | | - * -.--..-- x-- - * | len - * vp - */ - vp = vl--; - *vp = *bl; - len--; - for (bp = el; bp != vp; bp--) - bp[len] = *bp; - el += len; - /* nv vl el bl - * | | | | - * -.-x --- -- - * |len - * vp - */ - vp++; - for (bp = bl + 1; *bp; *vp++ = *bp++) - continue; - xfree((ptr_t) bl); - } - - } - if (elp != NULL) - *elp = el; - *nvp = nv; -} - -static Char ** -globexpand(v) - Char **v; -{ - Char *s; - Char **nv, **vl, **el; - int size = GLOBSPACE; - - - nv = vl = (Char **) xmalloc((size_t) (sizeof(Char *) * size)); - *vl = NULL; - - /* - * Step 1: expand backquotes. - */ - while ((s = *v++) != '\0') { - if (Strchr(s, '`')) { - int i; - - (void) dobackp(s, 0); - for (i = 0; i < pargc; i++) { - *vl++ = pargv[i]; - if (vl == &nv[size]) { - size += GLOBSPACE; - nv = (Char **) xrealloc((ptr_t) nv, - (size_t) (size * sizeof(Char *))); - vl = &nv[size - GLOBSPACE]; - } - } - xfree((ptr_t) pargv); - pargv = NULL; - } - else { - *vl++ = Strsave(s); - if (vl == &nv[size]) { - size += GLOBSPACE; - nv = (Char **) xrealloc((ptr_t) nv, - (size_t) (size * sizeof(Char *))); - vl = &nv[size - GLOBSPACE]; - } - } - } - *vl = NULL; - - if (noglob) - return (nv); - - /* - * Step 2: expand braces - */ - el = vl; - expbrace(&nv, &el, size); - - - /* - * Step 3: expand ~ = - */ - vl = nv; - for (s = *vl; s; s = *++vl) - switch (*s) { - Char gp[BUFSIZE], *ns; - case '~': - *vl = globtilde(nv, s); - break; - case '=': - if ((ns = globequal(gp, s)) == NULL) { - if (!adrof(STRnonomatch)) { - /* Error */ - blkfree(nv); - stderror(ERR_DEEP); - } - } - if (ns && ns != s) { - /* Expansion succeeded */ - xfree((ptr_t) s); - *vl = Strsave(gp); - } - break; - default: - break; - } - vl = nv; - - /* - * Step 4: expand .. if the variable symlinks==expand is set - */ - if ( symlinks == SYM_EXPAND ) - for (s = *vl; s; s = *++vl) { - *vl = dnormalize(s, 1); - xfree((ptr_t) s); - } - vl = nv; - - return (vl); -} - -static Char * -handleone(str, vl, action) - Char *str, **vl; - int action; -{ - - Char **vlp = vl; - int chars; - Char **t, *p, *strp; - - switch (action) { - case G_ERROR: - setname(short2str(str)); - blkfree(vl); - stderror(ERR_NAME | ERR_AMBIG); - break; - case G_APPEND: - chars = 0; - for (t = vlp; (p = *t++) != '\0'; chars++) - while (*p++) - chars++; - str = (Char *)xmalloc((size_t)(chars * sizeof(Char))); - for (t = vlp, strp = str; (p = *t++) != '\0'; chars++) { - while (*p) - *strp++ = *p++ & TRIM; - *strp++ = ' '; - } - *--strp = '\0'; - blkfree(vl); - break; - case G_IGNORE: - str = Strsave(strip(*vlp)); - blkfree(vl); - break; - default: - break; - } - return (str); -} - -static Char ** -libglob(vl) - Char **vl; -{ - int gflgs = GLOB_QUOTE | GLOB_NOMAGIC | GLOB_ALTNOT; - glob_t globv; - char *ptr; - int nonomatch = adrof(STRnonomatch) != 0, magic = 0, match = 0; - - if (!vl || !vl[0]) - return(vl); - - globv.gl_offs = 0; - globv.gl_pathv = 0; - globv.gl_pathc = 0; - - if (nonomatch) - gflgs |= GLOB_NOCHECK; - - do { - ptr = short2qstr(*vl); - switch (glob(ptr, gflgs, 0, &globv)) { - case GLOB_ABEND: - globfree(&globv); - setname(ptr); - stderror(ERR_NAME | ERR_GLOB); - /* NOTREACHED */ - case GLOB_NOSPACE: - globfree(&globv); - stderror(ERR_NOMEM); - /* NOTREACHED */ - default: - break; - } - if (globv.gl_flags & GLOB_MAGCHAR) { - match |= (globv.gl_matchc != 0); - magic = 1; - } - gflgs |= GLOB_APPEND; - } - while (*++vl); - vl = (globv.gl_pathc == 0 || (magic && !match && !nonomatch)) ? - NULL : blk2short(globv.gl_pathv); - globfree(&globv); - return (vl); -} - -Char * -globone(str, action) - Char *str; - int action; -{ - - Char *v[2], **vl, **vo; - int gflg; - - noglob = adrof(STRnoglob) != 0; - gflag = 0; - v[0] = str; - v[1] = 0; - tglob(v); - gflg = gflag; - if (gflg == G_NONE) - return (strip(Strsave(str))); - - if (gflg & G_CSH) { - /* - * Expand back-quote, tilde and brace - */ - vo = globexpand(v); - if (noglob || (gflg & G_GLOB) == 0) { - if (vo[0] == NULL) { - xfree((ptr_t) vo); - return (Strsave(STRNULL)); - } - if (vo[1] != NULL) - return (handleone(str, vo, action)); - else { - str = strip(vo[0]); - xfree((ptr_t) vo); - return (str); - } - } - } - else if (noglob || (gflg & G_GLOB) == 0) - return (strip(Strsave(str))); - else - vo = v; - - vl = libglob(vo); - if ((gflg & G_CSH) && vl != vo) - blkfree(vo); - if (vl == NULL) { - setname(short2str(str)); - stderror(ERR_NAME | ERR_NOMATCH); - } - if (vl[0] == NULL) { - xfree((ptr_t) vl); - return (Strsave(STRNULL)); - } - if (vl[1]) - return (handleone(str, vl, action)); - else { - str = strip(*vl); - xfree((ptr_t) vl); - return (str); - } -} - -Char ** -globall(v) - Char **v; -{ - Char **vl, **vo; - int gflg = gflag; - - if (!v || !v[0]) { - gargv = saveblk(v); - gargc = blklen(gargv); - return (gargv); - } - - noglob = adrof(STRnoglob) != 0; - - if (gflg & G_CSH) - /* - * Expand back-quote, tilde and brace - */ - vl = vo = globexpand(v); - else - vl = vo = saveblk(v); - - if (!noglob && (gflg & G_GLOB)) { - vl = libglob(vo); - if (vl != vo) - blkfree(vo); - } - else - trim(vl); - - gargc = vl ? blklen(vl) : 0; - return (gargv = vl); -} - -void -ginit() -{ - gargsiz = GLOBSPACE; - gargv = (Char **) xmalloc((size_t) (sizeof(Char *) * gargsiz)); - gargv[0] = 0; - gargc = 0; -} - -void -rscan(t, f) - register Char **t; - void (*f) __P((int)); -{ - register Char *p; - - while ((p = *t++) != '\0') - while (*p) - (*f) (*p++); -} - -void -trim(t) - register Char **t; -{ - register Char *p; - - while ((p = *t++) != '\0') - while (*p) - *p++ &= TRIM; -} - -void -tglob(t) - register Char **t; -{ - register Char *p, *c; - - while ((p = *t++) != '\0') { - if (*p == '~' || *p == '=') - gflag |= G_CSH; - else if (*p == '{' && - (p[1] == '\0' || (p[1] == '}' && p[2] == '\0'))) - continue; - /* - * The following line used to be *(c = p++), but hp broke their - * optimizer in 9.01, so we break the assignment into two pieces - * The careful reader here will note that *most* compiler workarounds - * in tcsh are either for apollo/DomainOS or hpux. Is it a coincidence? - */ - while ( *(c = p) != '\0') { - p++; - if (*c == '`') { - gflag |= G_CSH; -#ifdef notdef - /* - * We do want to expand echo `echo '*'`, so we don't\ - * use this piece of code anymore. - */ - while (*p && *p != '`') - if (*p++ == '\\') { - if (*p) /* Quoted chars */ - p++; - else - break; - } - if (*p) /* The matching ` */ - p++; - else - break; -#endif - } - else if (*c == '{') - gflag |= G_CSH; - else if (isglob(*c)) - gflag |= G_GLOB; - else if (symlinks == SYM_EXPAND && - *p && ISDOTDOT(c) && (c == *(t-1) || *(c-1) == '/') ) - gflag |= G_CSH; - } - } -} - -/* - * Command substitute cp. If literal, then this is a substitution from a - * << redirection, and so we should not crunch blanks and tabs, separating - * words only at newlines. - */ -Char ** -dobackp(cp, literal) - Char *cp; - bool literal; -{ - register Char *lp, *rp; - Char *ep, word[LONGBSIZE]; - - if (pargv) { -#ifdef notdef - abort(); -#endif - blkfree(pargv); - } - pargsiz = GLOBSPACE; - pargv = (Char **) xmalloc((size_t) (sizeof(Char *) * pargsiz)); - pargv[0] = NULL; - pargcp = pargs = word; - pargc = 0; - pnleft = LONGBSIZE - 4; - for (;;) { -#if defined(DSPMBYTE) - for (lp = cp;; lp++) { - if (*lp == '`' && - (lp-1 < cp || !Ismbyte2(*lp) || !Ismbyte1(*(lp-1)))) { - break; - } -#else /* DSPMBYTE */ - for (lp = cp; *lp != '`'; lp++) { -#endif /* DSPMBYTE */ - if (*lp == 0) { - if (pargcp != pargs) - pword(LONGBSIZE); - return (pargv); - } - psave(*lp); - } - lp++; - for (rp = lp; *rp && *rp != '`'; rp++) - if (*rp == '\\') { - rp++; - if (!*rp) - goto oops; - } - if (!*rp) - oops: stderror(ERR_UNMATCHED, '`'); - ep = Strsave(lp); - ep[rp - lp] = 0; - backeval(ep, literal); - cp = rp + 1; - } -} - - -static void -backeval(cp, literal) - Char *cp; - bool literal; -{ - register int icnt, c; - register Char *ip; - struct command faket; - bool hadnl; - int pvec[2], quoted; - Char *fakecom[2], ibuf[BUFSIZE]; - char tibuf[BUFSIZE]; - - hadnl = 0; - icnt = 0; - quoted = (literal || (cp[0] & QUOTE)) ? QUOTE : 0; - faket.t_dtyp = NODE_COMMAND; - faket.t_dflg = F_BACKQ; - faket.t_dlef = 0; - faket.t_drit = 0; - faket.t_dspr = 0; - faket.t_dcom = fakecom; - fakecom[0] = STRfakecom1; - fakecom[1] = 0; - - /* - * We do the psave job to temporarily change the current job so that the - * following fork is considered a separate job. This is so that when - * backquotes are used in a builtin function that calls glob the "current - * job" is not corrupted. We only need one level of pushed jobs as long as - * we are sure to fork here. - */ - psavejob(); - - /* - * It would be nicer if we could integrate this redirection more with the - * routines in sh.sem.c by doing a fake execute on a builtin function that - * was piped out. - */ - mypipe(pvec); - if (pfork(&faket, -1) == 0) { - struct command *t; - - (void) close(pvec[0]); - (void) dmove(pvec[1], 1); - (void) dmove(SHDIAG, 2); - initdesc(); - /* - * Bugfix for nested backquotes by Michael Greim <greim@sbsvax.UUCP>, - * posted to comp.bugs.4bsd 12 Sep. 1989. - */ - if (pargv) /* mg, 21.dec.88 */ - blkfree(pargv), pargv = 0, pargsiz = 0; - /* mg, 21.dec.88 */ - arginp = cp; - while (*cp) - *cp++ &= TRIM; - - /* - * In the child ``forget'' everything about current aliases or - * eval vectors. - */ - alvec = NULL; - evalvec = NULL; - alvecp = NULL; - evalp = NULL; - (void) lex(¶ml); - if (seterr) - stderror(ERR_OLD); - alias(¶ml); - t = syntax(paraml.next, ¶ml, 0); - if (seterr) - stderror(ERR_OLD); - if (t) - t->t_dflg |= F_NOFORK; -#ifdef SIGTSTP - (void) sigignore(SIGTSTP); -#endif -#ifdef SIGTTIN - (void) sigignore(SIGTTIN); -#endif -#ifdef SIGTTOU - (void) sigignore(SIGTTOU); -#endif - execute(t, -1, NULL, NULL); - exitstat(); - } - xfree((ptr_t) cp); - (void) close(pvec[1]); - c = 0; - ip = NULL; - do { - int cnt = 0; - - for (;;) { - if (icnt == 0) { - int i; - - ip = ibuf; - do - icnt = read(pvec[0], tibuf, BUFSIZE); - while (icnt == -1 && errno == EINTR); - if (icnt <= 0) { - c = -1; - break; - } - for (i = 0; i < icnt; i++) - ip[i] = (unsigned char) tibuf[i]; - } - if (hadnl) - break; - --icnt; - c = (*ip++ & TRIM); - if (c == 0) - break; -#ifdef WINNT - if (c == '\r') - c = ' '; -#endif /* WINNT */ - if (c == '\n') { - /* - * Continue around the loop one more time, so that we can eat - * the last newline without terminating this word. - */ - hadnl = 1; - continue; - } - if (!quoted && (c == ' ' || c == '\t')) - break; - cnt++; - psave(c | quoted); - } - /* - * Unless at end-of-file, we will form a new word here if there were - * characters in the word, or in any case when we take text literally. - * If we didn't make empty words here when literal was set then we - * would lose blank lines. - */ - if (c != -1 && (cnt || literal)) - pword(BUFSIZE); - hadnl = 0; - } while (c >= 0); - (void) close(pvec[0]); - pwait(); - prestjob(); -} - -static void -psave(c) - int c; -{ - if (--pnleft <= 0) - stderror(ERR_WTOOLONG); - *pargcp++ = (Char) c; -} - -static void -pword(bufsiz) - int bufsiz; -{ - psave(0); - if (pargc == pargsiz - 1) { - pargsiz += GLOBSPACE; - pargv = (Char **) xrealloc((ptr_t) pargv, - (size_t) (pargsiz * sizeof(Char *))); - } - pargv[pargc++] = Strsave(pargs); - pargv[pargc] = NULL; - pargcp = pargs; - pnleft = bufsiz - 4; -} - -int -Gmatch(string, pattern) - Char *string, *pattern; -{ - return Gnmatch(string, pattern, NULL); -} - -int -Gnmatch(string, pattern, endstr) - Char *string, *pattern, **endstr; -{ - Char **blk, **p, *tstring = string; - int gpol = 1, gres = 0; - - if (*pattern == '^') { - gpol = 0; - pattern++; - } - - blk = (Char **) xmalloc((size_t) (GLOBSPACE * sizeof(Char *))); - blk[0] = Strsave(pattern); - blk[1] = NULL; - - expbrace(&blk, NULL, GLOBSPACE); - - if (endstr == NULL) - /* Exact matches only */ - for (p = blk; *p; p++) - gres |= pmatch(string, *p, &tstring) == 2 ? 1 : 0; - else { - /* partial matches */ - int minc = 0x7fffffff; - for (p = blk; *p; p++) - if (pmatch(string, *p, &tstring) != 0) { - int t = (int) (tstring - string); - gres |= 1; - if (minc == -1 || minc > t) - minc = t; - } - *endstr = string + minc; - } - - blkfree(blk); - return(gres == gpol); -} - -/* pmatch(): - * Return 2 on exact match, - * Return 1 on substring match. - * Return 0 on no match. - * *estr will point to the end of the longest exact or substring match. - */ -static int -pmatch(string, pattern, estr) - register Char *string, *pattern, **estr; -{ - register Char stringc, patternc; - int match, negate_range; - Char rangec, *oestr, *pestr; - - for (;; ++string) { - stringc = *string & TRIM; - /* - * apollo compiler bug: switch (patternc = *pattern++) dies - */ - patternc = *pattern++; - switch (patternc) { - case 0: - *estr = string; - return (stringc == 0 ? 2 : 1); - case '?': - if (stringc == 0) - return (0); - *estr = string; - break; - case '*': - if (!*pattern) { - while (*string) string++; - *estr = string; - return (2); - } - oestr = *estr; - pestr = NULL; - - do { - switch(pmatch(string, pattern, estr)) { - case 0: - break; - case 1: - pestr = *estr; - break; - case 2: - return 2; - default: - abort(); /* Cannot happen */ - } - *estr = string; - } - while (*string++); - - if (pestr) { - *estr = pestr; - return 1; - } - else { - *estr = oestr; - return 0; - } - - case '[': - match = 0; - if ((negate_range = (*pattern == '^')) != 0) - pattern++; - while ((rangec = *pattern++) != '\0') { - if (rangec == ']') - break; - if (match) - continue; - if (rangec == '-' && *(pattern-2) != '[' && *pattern != ']') { - match = (globcharcoll(stringc, *pattern & TRIM) <= 0 && - globcharcoll(*(pattern-2) & TRIM, stringc) <= 0); - pattern++; - } - else - match = (stringc == (rangec & TRIM)); - } - if (rangec == 0) - stderror(ERR_NAME | ERR_MISSING, ']'); - if (match == negate_range) - return (0); - *estr = string; - break; - default: - if ((patternc & TRIM) != stringc) - return (0); - *estr = string; - break; - } - } -} - -void -Gcat(s1, s2) - Char *s1, *s2; -{ - register Char *p, *q; - int n; - - for (p = s1; *p++;) - continue; - for (q = s2; *q++;) - continue; - n = (int) ((p - s1) + (q - s2) - 1); - if (++gargc >= gargsiz) { - gargsiz += GLOBSPACE; - gargv = (Char **) xrealloc((ptr_t) gargv, - (size_t) (gargsiz * sizeof(Char *))); - } - gargv[gargc] = 0; - p = gargv[gargc - 1] = (Char *) xmalloc((size_t) (n * sizeof(Char))); - for (q = s1; (*p++ = *q++) != '\0';) - continue; - for (p--, q = s2; (*p++ = *q++) != '\0';) - continue; -} - -#ifdef FILEC -int -sortscmp(a, b) - register Char **a, **b; -{ - if (!a) /* check for NULL */ - return (b ? 1 : 0); - if (!b) - return (-1); - - if (!*a) /* check for NULL */ - return (*b ? 1 : 0); - if (!*b) - return (-1); - - return (int) collate(*a, *b); -} - -#endif diff --git a/contrib/tcsh/sh.h b/contrib/tcsh/sh.h deleted file mode 100644 index 2305433d758b..000000000000 --- a/contrib/tcsh/sh.h +++ /dev/null @@ -1,1229 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.h,v 3.87 2000/01/14 22:57:28 christos Exp $ */ -/* - * sh.h: Catch it all globals and includes file! - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_sh -#define _h_sh - -#include "config.h" - -#ifndef EXTERN -# define EXTERN extern -#else /* !EXTERN */ -# ifdef WINNT -# define IZERO = 0 -# define IZERO_STRUCT = {0} -# endif /* WINNT */ -#endif /* EXTERN */ - -#ifndef IZERO -# define IZERO -#endif /* IZERO */ -#ifndef IZERO_STRUCT -# define IZERO_STRUCT -# endif /* IZERO_STRUCT */ - -#ifndef WINNT -# define INIT_ZERO -# define INIT_ZERO_STRUCT -# define force_read read -#endif /*!WINNT */ -/* - * Sanity - */ -#if defined(_POSIX_SOURCE) && !defined(POSIX) -# define POSIX -#endif - -#if defined(POSIXJOBS) && !defined(BSDJOBS) -# define BSDJOBS -#endif - -#if defined(POSIXSIGS) && !defined(BSDSIGS) -# define BSDSIGS -#endif - -#ifdef SHORT_STRINGS -typedef short Char; -typedef unsigned short uChar; -# define SAVE(a) (Strsave(str2short(a))) -#else -typedef char Char; -typedef unsigned char uChar; -# define SAVE(a) (strsave(a)) -#endif - -/* Elide unused argument warnings */ -#define USE(a) (void) (a) -/* - * If your compiler complains, then you can either - * throw it away and get gcc or, use the following define - * and get rid of the typedef. - * [The 4.2/3BSD vax compiler does not like that] - * Both MULTIFLOW and PCC compilers exhbit this bug. -- sterling@netcom.com - */ -#ifdef SIGVOID -# if (defined(vax) || defined(uts) || defined(MULTIFLOW) || defined(PCC)) && !defined(__GNUC__) -# define sigret_t void -# else /* !((vax || uts || MULTIFLOW || PCC) && !__GNUC__) */ -typedef void sigret_t; -# endif /* (vax || uts || MULTIFLOW || PCC) && !__GNUC__ */ -#else /* !SIGVOID */ -typedef int sigret_t; -#endif /* SIGVOID */ - -/* - * Return true if the path is absolute - */ -#ifndef WINNT -# define ABSOLUTEP(p) (*(p) == '/') -#else /* WINNT */ -# define ABSOLUTEP(p) ((p)[0] == '/' || \ - (Isalpha((p)[0]) && (p)[1] == ':' && (p)[2] == '/')) -#endif /* WINNT */ - -/* - * Fundamental definitions which may vary from system to system. - * - * BUFSIZE The i/o buffering size; also limits word size - * MAILINTVL How often to mailcheck; more often is more expensive - */ -#ifdef BUFSIZE -# if BUFSIZE < 1024 -# undef BUFSIZE -# define BUFSIZE 1024 /* buffer size should be no less than this */ -# endif -#else -# define BUFSIZE 1024 -#endif /* BUFSIZE */ - -#define FORKSLEEP 10 /* delay loop on non-interactive fork failure */ -#define MAILINTVL 600 /* 10 minutes */ - -#ifndef INBUFSIZE -# define INBUFSIZE 2*BUFSIZE /* Num input characters on the command line */ -#endif /* INBUFSIZE */ - - -/* - * What our builtin echo looks like - */ -#define NONE_ECHO 0 -#define BSD_ECHO 1 -#define SYSV_ECHO 2 -#define BOTH_ECHO (BSD_ECHO|SYSV_ECHO) - -#ifndef ECHO_STYLE -# if SYSVREL > 0 -# define ECHO_STYLE SYSV_ECHO -# else /* SYSVREL == 0 */ -# define ECHO_STYLE BSD_ECHO -# endif /* SYSVREL */ -#endif /* ECHO_STYLE */ - -/* - * The shell moves std in/out/diag and the old std input away from units - * 0, 1, and 2 so that it is easy to set up these standards for invoked - * commands. - */ -#define FSHTTY 15 /* /dev/tty when manip pgrps */ -#define FSHIN 16 /* Preferred desc for shell input */ -#define FSHOUT 17 /* ... shell output */ -#define FSHDIAG 18 /* ... shell diagnostics */ -#define FOLDSTD 19 /* ... old std input */ - -#ifdef PROF -#define xexit(n) done(n) -#endif - -#ifdef cray -# define word word_t /* sys/types.h defines word.. bad move! */ -#endif - -#include <sys/types.h> - -#ifdef cray -# undef word -#endif - -/* - * Path separator in environment variables - */ -#ifndef PATHSEP -# if defined(__EMX__) || defined(WINNT) -# define PATHSEP ';' -# else /* unix */ -# define PATHSEP ':' -# endif /* __EMX__ || WINNT */ -#endif /* !PATHSEP */ - -#ifdef __HP_CXD_SPP -# include <sys/cnx_stat.h> -# define stat stat64 -# define fstat fstat64 -# define lstat lstat64 -#endif /* __HP_CXD_SPP */ - -/* - * This macro compares the st_dev field of struct stat. On aix on ibmESA - * st_dev is a structure, so comparison does not work. - */ -#ifndef DEV_DEV_COMPARE -# define DEV_DEV_COMPARE(x,y) ((x) == (y)) -#endif /* DEV_DEV_COMPARE */ - -#ifdef _SEQUENT_ -# include <sys/procstats.h> -#endif /* _SEQUENT_ */ -#if (defined(POSIX) || SYSVREL > 0) && !WINNT -# include <sys/times.h> -#endif /* (POSIX || SYSVREL > 0) && !WINNT */ - -#ifdef NLS -# include <locale.h> -#endif /* NLS */ - - -#if !defined(_MINIX) && !defined(_VMS_POSIX) && !defined(WINNT) -# include <sys/param.h> -#endif /* !_MINIX && !_VMS_POSIX && !WINNT */ -#include <sys/stat.h> - -#if defined(BSDTIMES) || defined(BSDLIMIT) -# include <sys/time.h> -# if SYSVREL>3 && !defined(SCO) && !defined(sgi) && !defined(SNI) && !defined(sun) && !(defined(__alpha) && defined(__osf__)) && !defined(_SX) -# include "/usr/ucbinclude/sys/resource.h" -# else -# ifdef convex -# define sysrusage cvxrusage -# include <sys/sysinfo.h> -# else -# define sysrusage rusage -# include <sys/resource.h> -# endif /* convex */ -# endif /* SYSVREL>3 */ -#endif /* BSDTIMES */ - -#ifndef WINNT -# ifndef POSIX -# ifdef TERMIO -# include <termio.h> -# else /* SGTTY */ -# include <sgtty.h> -# endif /* TERMIO */ -# else /* POSIX */ -# ifndef _UWIN -# include <termios.h> -# else -# include <termio.h> -# endif /* _UWIN */ -# if SYSVREL > 3 -# undef TIOCGLTC /* we don't need those, since POSIX has them */ -# undef TIOCSLTC -# undef CSWTCH -# define CSWTCH _POSIX_VDISABLE /* So job control works */ -# endif /* SYSVREL > 3 */ -# endif /* POSIX */ -#endif /* WINNT */ - -#ifdef sonyrisc -# include <sys/ttold.h> -#endif /* sonyrisc */ - -#if defined(POSIX) && !defined(WINNT) -/* - * We should be using setpgid and setpgid - * by now, but in some systems we use the - * old routines... - */ -# define getpgrp __getpgrp -# define setpgrp __setpgrp -# include <unistd.h> -# undef getpgrp -# undef setpgrp - -/* - * the gcc+protoize version of <stdlib.h> - * redefines malloc(), so we define the following - * to avoid it. - */ -# if defined(linux) || defined(sgi) || defined(_OSD_POSIX) -# define NO_FIX_MALLOC -# include <stdlib.h> -# else /* linux */ -# define _GNU_STDLIB_H -# define malloc __malloc -# define free __free -# define calloc __calloc -# define realloc __realloc -# include <stdlib.h> -# undef malloc -# undef free -# undef calloc -# undef realloc -# endif /* linux || sgi */ -# include <limits.h> -#endif /* POSIX && !WINNT */ - -#if SYSVREL > 0 || defined(_IBMR2) || defined(_MINIX) -# if !defined(pyr) && !defined(stellar) -# include <time.h> -# ifdef _MINIX -# define HZ CLOCKS_PER_SEC -# endif /* _MINIX */ -# endif /* !pyr && !stellar */ -#endif /* SYSVREL > 0 || _IBMR2 */ - -/* In the following ifdef the DECOSF1 has been commented so that later - * versions of DECOSF1 will get TIOCGWINSZ. This might break older versions... - */ -#if !((defined(SUNOS4) || defined(_MINIX) /* || defined(DECOSF1) */) && defined(TERMIO)) -# if !defined(COHERENT) && !defined(_VMS_POSIX) && !defined(WINNT) -# include <sys/ioctl.h> -# endif -#endif - -#if (defined(__DGUX__) && defined(POSIX)) || defined(DGUX) -#undef CSWTCH -#define CSWTCH _POSIX_VDISABLE -#endif - -#if (!defined(FIOCLEX) && defined(SUNOS4)) || ((SYSVREL == 4) && !defined(_SEQUENT_) && !defined(SCO) && !defined(_SX)) -# include <sys/filio.h> -#endif /* (!FIOCLEX && SUNOS4) || (SYSVREL == 4 && !_SEQUENT_ && !SCO && !_SX ) */ - -#if !defined(_MINIX) && !defined(COHERENT) && !defined(supermax) && !defined(WINNT) && !defined(IRIS4D) -# include <sys/file.h> -#endif /* !_MINIX && !COHERENT && !supermax && !WINNT && !defined(IRIS4D) */ - -#if !defined(O_RDONLY) || !defined(O_NDELAY) -# include <fcntl.h> -#endif - -#include <errno.h> - -#include <setjmp.h> - -#if __STDC__ || defined(FUNCPROTO) -# include <stdarg.h> -#else -#ifdef _MINIX -# include "mi.varargs.h" -#else -# include <varargs.h> -#endif /* _MINIX */ -#endif - -#ifdef DIRENT -# include <dirent.h> -#else -# ifdef hp9000s500 -# include <ndir.h> -# else -# include <sys/dir.h> -# endif -# define dirent direct -#endif /* DIRENT */ -#if defined(hpux) || defined(sgi) || defined(OREO) || defined(COHERENT) -# include <stdio.h> /* So the fgetpwent() prototypes work */ -#endif /* hpux || sgi || OREO || COHERENT */ -#ifndef WINNT -#include <pwd.h> -#include <grp.h> -#endif /* WINNT */ -#ifdef PW_SHADOW -# include <shadow.h> -#endif /* PW_SHADOW */ -#ifdef PW_AUTH -# include <auth.h> -#endif /* PW_AUTH */ -#if defined(BSD) && !defined(POSIX) -# include <strings.h> -# define strchr(a, b) index(a, b) -# define strrchr(a, b) rindex(a, b) -#else -# include <string.h> -#endif /* BSD */ - -/* - * IRIX-5.0 has <sys/cdefs.h>, but most system include files do not - * include it yet, so we include it here - */ -#if defined(sgi) && SYSVREL > 3 -# include <sys/cdefs.h> -#endif /* sgi && SYSVREL > 3 */ - -#ifdef REMOTEHOST -# ifdef ISC -# undef MAXHOSTNAMELEN /* Busted headers? */ -# endif - -# include <netinet/in.h> -# include <arpa/inet.h> -# include <sys/socket.h> -# include <sys/uio.h> /* For struct iovec */ -#endif /* REMOTEHOST */ - -/* - * ANSIisms... These must be *after* the system include and - * *before* our includes, so that BSDreno has time to define __P - */ -#undef __P -#ifndef __P -# if __STDC__ || defined(FUNCPROTO) -# ifndef FUNCPROTO -# define FUNCPROTO -# endif -# define __P(a) a -# else -# define __P(a) () -# if !__STDC__ -# define const -# ifndef apollo -# define volatile /* Apollo 'c' extensions need this */ -# endif /* apollo */ -# endif -# endif -#endif - - -#ifdef PURIFY -/* exit normally, allowing purify to trace leaks */ -# define _exit exit -typedef int pret_t; -#else /* !PURIFY */ -/* - * If your compiler complains, then you can either - * throw it away and get gcc or, use the following define - * and get rid of the typedef. - * [The 4.2/3BSD vax compiler does not like that] - * Both MULTIFLOW and PCC compilers exhbit this bug. -- sterling@netcom.com - */ -# if (defined(vax) || defined(uts) || defined(MULTIFLOW) || defined(PCC)) && !defined(__GNUC__) -# define pret_t void -# else /* !((vax || uts || MULTIFLOW || PCC) && !__GNUC__) */ -typedef void pret_t; -# endif /* (vax || uts || MULTIFLOW || PCC) && !__GNUC__ */ -#endif /* PURIFY */ - -typedef int bool; - -#include "sh.types.h" - -#ifndef WINNT -# ifndef POSIX -extern pid_t getpgrp __P((int)); -# else /* POSIX */ -# if (defined(BSD) && !defined(BSD4_4)) || defined(SUNOS4) || defined(IRIS4D) || defined(DGUX) -extern pid_t getpgrp __P((int)); -# else /* !(BSD || SUNOS4 || IRIS4D || DGUX) */ -extern pid_t getpgrp __P((void)); -# endif /* BSD || SUNOS4 || IRISD || DGUX */ -# endif /* POSIX */ -extern pid_t setpgrp __P((pid_t, pid_t)); -#endif /* !WINNT */ - -typedef sigret_t (*signalfun_t) __P((int)); - -#ifndef lint -typedef ptr_t memalign_t; -#else -typedef union { - char am_char, *am_char_p; - short am_short, *am_short_p; - int am_int, *am_int_p; - long am_long, *am_long_p; - float am_float, *am_float_p; - double am_double, *am_double_p; -} *memalign_t; - -# define malloc lint_malloc -# define free lint_free -# define realloc lint_realloc -# define calloc lint_calloc -#endif - -#ifdef MDEBUG -extern memalign_t DebugMalloc __P((unsigned, char *, int)); -extern memalign_t DebugRealloc __P((ptr_t, unsigned, char *, int)); -extern memalign_t DebugCalloc __P((unsigned, unsigned, char *, int)); -extern void DebugFree __P((ptr_t, char *, int)); -# define xmalloc(i) DebugMalloc(i, __FILE__, __LINE__) -# define xrealloc(p, i)((p) ? DebugRealloc(p, i, __FILE__, __LINE__) : \ - DebugMalloc(i, __FILE__, __LINE__)) -# define xcalloc(n, s) DebugCalloc(n, s, __FILE__, __LINE__) -# define xfree(p) if (p) DebugFree(p, __FILE__, __LINE__) -#else -# ifdef SYSMALLOC -# define xmalloc(i) smalloc(i) -# define xrealloc(p, i) srealloc(p, i) -# define xcalloc(n, s) scalloc(n, s) -# define xfree(p) sfree(p) -# else -# define xmalloc(i) malloc(i) -# define xrealloc(p, i) realloc(p, i) -# define xcalloc(n, s) calloc(n, s) -# define xfree(p) free(p) -# endif /* SYSMALLOC */ -#endif /* MDEBUG */ -#include "sh.char.h" -#include "sh.err.h" -#include "sh.dir.h" -#include "sh.proc.h" - -#include "pathnames.h" - - -/* - * C shell - * - * Bill Joy, UC Berkeley - * October, 1978; May 1980 - * - * Jim Kulp, IIASA, Laxenburg Austria - * April, 1980 - */ - -#if !defined(MAXNAMLEN) && defined(_D_NAME_MAX) -# define MAXNAMLEN _D_NAME_MAX -#endif /* MAXNAMLEN */ - -#ifdef HESIOD -# include <hesiod.h> -#endif /* HESIOD */ - -#ifdef REMOTEHOST -# include <netdb.h> -#endif /* REMOTEHOST */ - -#ifndef MAXHOSTNAMELEN -# if defined(SCO) && (SYSVREL > 3) -# include <sys/socket.h> -# else -# define MAXHOSTNAMELEN 255 -# endif -#endif /* MAXHOSTNAMELEN */ - - - -#define eq(a, b) (Strcmp(a, b) == 0) - -/* globone() flags */ -#define G_ERROR 0 /* default action: error if multiple words */ -#define G_IGNORE 1 /* ignore the rest of the words */ -#define G_APPEND 2 /* make a sentence by cat'ing the words */ - -/* - * Global flags - */ -EXTERN bool chkstop IZERO; /* Warned of stopped jobs... allow exit */ - -#if (defined(FIOCLEX) && defined(FIONCLEX)) || defined(F_SETFD) -# define CLOSE_ON_EXEC -#else -EXTERN bool didcch IZERO; /* Have closed unused fd's for child */ -#endif /* (FIOCLEX && FIONCLEX) || F_SETFD */ - -EXTERN bool didfds IZERO; /* Have setup i/o fd's for child */ -EXTERN bool doneinp IZERO; /* EOF indicator after reset from readc */ -EXTERN bool exiterr IZERO; /* Exit if error or non-zero exit status */ -EXTERN bool child IZERO; /* Child shell ... errors cause exit */ -EXTERN bool haderr IZERO; /* Reset was because of an error */ -EXTERN bool intty IZERO; /* Input is a tty */ -EXTERN bool intact IZERO; /* We are interactive... therefore prompt */ -EXTERN bool justpr IZERO; /* Just print because of :p hist mod */ -EXTERN bool loginsh IZERO; /* We are a loginsh -> .login/.logout */ -EXTERN bool neednote IZERO; /* Need to pnotify() */ -EXTERN bool noexec IZERO; /* Don't execute, just syntax check */ -EXTERN bool pjobs IZERO; /* want to print jobs if interrupted */ -EXTERN bool setintr IZERO; /* Set interrupts on/off -> Wait intr... */ -EXTERN bool timflg IZERO; /* Time the next waited for command */ -EXTERN bool havhash IZERO; /* path hashing is available */ -EXTERN bool editing IZERO; /* doing filename expansion and line editing */ -EXTERN bool noediting IZERO; /* initial $term defaulted to noedit */ -EXTERN bool bslash_quote IZERO;/* PWP: tcsh-style quoting? (in sh.c) */ -EXTERN bool isoutatty IZERO; /* is SHOUT a tty */ -EXTERN bool isdiagatty IZERO;/* is SHDIAG a tty */ -EXTERN bool is1atty IZERO; /* is file descriptor 1 a tty (didfds mode) */ -EXTERN bool is2atty IZERO; /* is file descriptor 2 a tty (didfds mode) */ -EXTERN bool arun IZERO; /* Currently running multi-line-aliases */ -EXTERN int implicit_cd IZERO;/* implicit cd enabled?(1=enabled,2=verbose) */ -EXTERN bool inheredoc IZERO; /* Currently parsing a heredoc */ - -/* - * Global i/o info - */ -EXTERN Char *arginp IZERO; /* Argument input for sh -c and internal `xx` */ -EXTERN int onelflg IZERO; /* 2 -> need line for -t, 1 -> exit on read */ -extern Char *ffile; /* Name of shell file for $0 */ -extern bool dolzero; /* if $?0 should return true... */ - -extern char *seterr; /* Error message from scanner/parser */ -extern int errno; /* Error from C library routines */ -EXTERN Char *shtemp IZERO; /* Temp name for << shell files in /tmp */ - -#ifdef BSDTIMES -EXTERN struct timeval time0; /* Time at which the shell started */ -EXTERN struct sysrusage ru0; -#else -# ifdef _SEQUENT_ -EXTERN timeval_t time0; /* time at which shell started */ -EXTERN struct process_stats ru0; -# else /* _SEQUENT_ */ -# ifndef POSIX -EXTERN time_t time0; /* time at which shell started */ -# else /* POSIX */ -EXTERN clock_t time0; /* time at which shell started */ -EXTERN clock_t clk_tck; -# endif /* POSIX */ -EXTERN struct tms shtimes; /* shell and child times for process timing */ -# endif /* _SEQUENT_ */ -EXTERN long seconds0; -#endif /* BSDTIMES */ - -#ifndef HZ -# define HZ 100 /* for division into seconds */ -#endif - -/* - * Miscellany - */ -EXTERN Char *doldol; /* Character pid for $$ */ -EXTERN int backpid; /* pid of the last background job */ - -/* - * Ideally these should be uid_t, gid_t, pid_t. I cannot do that right now - * cause pid's could be unsigned and that would break our -1 flag, and - * uid_t and gid_t are not defined in all the systems so I would have to - * make special cases for them. In the future... - */ -EXTERN int uid, euid, /* Invokers real and effective */ - gid, egid; /* User and group ids */ -EXTERN int opgrp, /* Initial pgrp and tty pgrp */ - shpgrp, /* Pgrp of shell */ - tpgrp; /* Terminal process group */ - /* If tpgrp is -1, leave tty alone! */ - -EXTERN Char PromptBuf[INBUFSIZE*2]; /* buffer for the actual printed prompt. - * this must be large enough to contain - * the input line and the prompt, in - * case a correction occurred... - */ -EXTERN Char RPromptBuf[INBUFSIZE]; /* buffer for right-hand side prompt */ - -/* - * To be able to redirect i/o for builtins easily, the shell moves the i/o - * descriptors it uses away from 0,1,2. - * Ideally these should be in units which are closed across exec's - * (this saves work) but for version 6, this is not usually possible. - * The desired initial values for these descriptors are defined in - * sh.local.h. - */ -EXTERN int SHIN IZERO; /* Current shell input (script) */ -EXTERN int SHOUT IZERO; /* Shell output */ -EXTERN int SHDIAG IZERO; /* Diagnostic output... shell errs go here */ -EXTERN int OLDSTD IZERO; /* Old standard input (def for cmds) */ - - -#if SYSVREL == 4 && defined(_UTS) -/* - * From: fadden@uts.amdahl.com (Andy McFadden) - * we need sigsetjmp for UTS4, but not UTS2.1 - */ -# define SIGSETJMP -#endif - -/* - * Error control - * - * Errors in scanning and parsing set up an error message to be printed - * at the end and complete. Other errors always cause a reset. - * Because of source commands and .cshrc we need nested error catches. - */ - -#ifdef NO_STRUCT_ASSIGNMENT - -# ifdef SIGSETJMP - typedef sigjmp_buf jmp_buf_t; - /* bugfix by Jak Kirman @ Brown U.: remove the (void) cast here, see sh.c */ -# define setexit() sigsetjmp(reslab) -# define reset() siglongjmp(reslab, 1) -# else - typedef jmp_buf jmp_buf_t; - /* bugfix by Jak Kirman @ Brown U.: remove the (void) cast here, see sh.c */ -# define setexit() setjmp(reslab) -# define reset() longjmp(reslab, 1) -# endif -# define getexit(a) (void) memmove((ptr_t)&(a), (ptr_t)&reslab, sizeof(reslab)) -# define resexit(a) (void) memmove((ptr_t)&reslab, (ptr_t)&(a), sizeof(reslab)) - -# define cpybin(a, b) (void) memmove((ptr_t)&(a), (ptr_t)&(b), sizeof(Bin)) - -#else - -# ifdef SIGSETJMP - typedef struct { sigjmp_buf j; } jmp_buf_t; -# define setexit() sigsetjmp(reslab.j) -# define reset() siglongjmp(reslab.j, 1) -# else - typedef struct { jmp_buf j; } jmp_buf_t; -# define setexit() setjmp(reslab.j) -# define reset() longjmp(reslab.j, 1) -# endif - -# define getexit(a) (void) ((a) = reslab) -# define resexit(a) (void) (reslab = (a)) - -# define cpybin(a, b) (void) ((a) = (b)) - -#endif /* NO_STRUCT_ASSIGNMENT */ - -extern jmp_buf_t reslab; - -EXTERN Char *gointr; /* Label for an onintr transfer */ - -extern signalfun_t parintr; /* Parents interrupt catch */ -extern signalfun_t parterm; /* Parents terminate catch */ - -/* - * Lexical definitions. - * - * All lexical space is allocated dynamically. - * The eighth/sixteenth bit of characters is used to prevent recognition, - * and eventually stripped. - */ -#define META 0200 -#define ASCII 0177 -#ifdef SHORT_STRINGS -# define QUOTE ((Char) 0100000)/* 16nth char bit used for 'ing */ -# define TRIM 0077777 /* Mask to strip quote bit */ -# define UNDER 0040000 /* Underline flag */ -# define BOLD 0020000 /* Bold flag */ -# define STANDOUT 0010000 /* Standout flag */ -# define LITERAL 0004000 /* Literal character flag */ -# define ATTRIBUTES 0074000 /* The bits used for attributes */ -# define CHAR 0000377 /* Mask to mask out the character */ -#else -# define QUOTE ((Char) 0200) /* Eighth char bit used for 'ing */ -# define TRIM 0177 /* Mask to strip quote bit */ -# define UNDER 0000000 /* No extra bits to do both */ -# define BOLD 0000000 /* Bold flag */ -# define STANDOUT META /* Standout flag */ -# define LITERAL 0000000 /* Literal character flag */ -# define ATTRIBUTES 0200 /* The bits used for attributes */ -# define CHAR 0000177 /* Mask to mask out the character */ -#endif - -EXTERN int AsciiOnly; /* If set only 7 bits expected in characters */ - -/* - * Each level of input has a buffered input structure. - * There are one or more blocks of buffered input for each level, - * exactly one if the input is seekable and tell is available. - * In other cases, the shell buffers enough blocks to keep all loops - * in the buffer. - */ -EXTERN struct Bin { - off_t Bfseekp; /* Seek pointer */ - off_t Bfbobp; /* Seekp of beginning of buffers */ - off_t Bfeobp; /* Seekp of end of buffers */ - int Bfblocks; /* Number of buffer blocks */ - Char **Bfbuf; /* The array of buffer blocks */ -} B; - -/* - * This structure allows us to seek inside aliases - */ -struct Ain { - int type; -#define I_SEEK -1 /* Invalid seek */ -#define A_SEEK 0 /* Alias seek */ -#define F_SEEK 1 /* File seek */ -#define E_SEEK 2 /* Eval seek */ - union { - off_t _f_seek; - Char* _c_seek; - } fc; -#define f_seek fc._f_seek -#define c_seek fc._c_seek - Char **a_seek; -} ; - -extern int aret; /* Type of last char returned */ -#define SEEKEQ(a, b) ((a)->type == (b)->type && \ - (a)->f_seek == (b)->f_seek && \ - (a)->a_seek == (b)->a_seek) - -#define fseekp B.Bfseekp -#define fbobp B.Bfbobp -#define feobp B.Bfeobp -#define fblocks B.Bfblocks -#define fbuf B.Bfbuf - -/* - * The shell finds commands in loops by reseeking the input - * For whiles, in particular, it reseeks to the beginning of the - * line the while was on; hence the while placement restrictions. - */ -EXTERN struct Ain lineloc; - -EXTERN bool cantell; /* Is current source tellable ? */ - -/* - * Input lines are parsed into doubly linked circular - * lists of words of the following form. - */ -struct wordent { - Char *word; - struct wordent *prev; - struct wordent *next; -}; - -/* - * During word building, both in the initial lexical phase and - * when expanding $ variable substitutions, expansion by `!' and `$' - * must be inhibited when reading ahead in routines which are themselves - * processing `!' and `$' expansion or after characters such as `\' or in - * quotations. The following flags are passed to the getC routines - * telling them which of these substitutions are appropriate for the - * next character to be returned. - */ -#define DODOL 1 -#define DOEXCL 2 -#define DOALL DODOL|DOEXCL - -/* - * Labuf implements a general buffer for lookahead during lexical operations. - * Text which is to be placed in the input stream can be stuck here. - * We stick parsed ahead $ constructs during initial input, - * process id's from `$$', and modified variable values (from qualifiers - * during expansion in sh.dol.c) here. - */ -EXTERN Char *lap; - -/* - * Parser structure - * - * Each command is parsed to a tree of command structures and - * flags are set bottom up during this process, to be propagated down - * as needed during the semantics/exeuction pass (sh.sem.c). - */ -struct command { - unsigned char t_dtyp; /* Type of node */ -#define NODE_COMMAND 1 /* t_dcom <t_dlef >t_drit */ -#define NODE_PAREN 2 /* ( t_dspr ) <t_dlef >t_drit */ -#define NODE_PIPE 3 /* t_dlef | t_drit */ -#define NODE_LIST 4 /* t_dlef ; t_drit */ -#define NODE_OR 5 /* t_dlef || t_drit */ -#define NODE_AND 6 /* t_dlef && t_drit */ - unsigned char t_nice; /* Nice value */ -#ifdef apollo - unsigned char t_systype; /* System environment */ -#endif - unsigned long t_dflg; /* Flags, e.g. F_AMPERSAND|... */ -/* save these when re-doing */ -#ifndef apollo -#define F_SAVE (F_NICE|F_TIME|F_NOHUP|F_HUP) -#else -#define F_SAVE (F_NICE|F_TIME|F_NOHUP||F_HUP|F_VER) -#endif -#define F_AMPERSAND (1<<0) /* executes in background */ -#define F_APPEND (1<<1) /* output is redirected >> */ -#define F_PIPEIN (1<<2) /* input is a pipe */ -#define F_PIPEOUT (1<<3) /* output is a pipe */ -#define F_NOFORK (1<<4) /* don't fork, last ()ized cmd */ -#define F_NOINTERRUPT (1<<5) /* should be immune from intr's */ -/* spare */ -#define F_STDERR (1<<7) /* redirect unit 2 with unit 1 */ -#define F_OVERWRITE (1<<8) /* output was ! */ -#define F_READ (1<<9) /* input redirection is << */ -#define F_REPEAT (1<<10) /* reexec aft if, repeat,... */ -#define F_NICE (1<<11) /* t_nice is meaningful */ -#define F_NOHUP (1<<12) /* nohup this command */ -#define F_TIME (1<<13) /* time this command */ -#define F_BACKQ (1<<14) /* command is in `` */ -#define F_HUP (1<<15) /* hup this command */ -#ifdef apollo -#define F_VER (1<<16) /* execute command under SYSTYPE */ -#endif - union { - Char *T_dlef; /* Input redirect word */ - struct command *T_dcar; /* Left part of list/pipe */ - } L; - union { - Char *T_drit; /* Output redirect word */ - struct command *T_dcdr; /* Right part of list/pipe */ - } R; -#define t_dlef L.T_dlef -#define t_dcar L.T_dcar -#define t_drit R.T_drit -#define t_dcdr R.T_dcdr - Char **t_dcom; /* Command/argument vector */ - struct command *t_dspr; /* Pointer to ()'d subtree */ -}; - - -/* - * The keywords for the parser - */ -#define TC_BREAK 0 -#define TC_BRKSW 1 -#define TC_CASE 2 -#define TC_DEFAULT 3 -#define TC_ELSE 4 -#define TC_END 5 -#define TC_ENDIF 6 -#define TC_ENDSW 7 -#define TC_EXIT 8 -#define TC_FOREACH 9 -#define TC_GOTO 10 -#define TC_IF 11 -#define TC_LABEL 12 -#define TC_LET 13 -#define TC_SET 14 -#define TC_SWITCH 15 -#define TC_TEST 16 -#define TC_THEN 17 -#define TC_WHILE 18 - -/* - * These are declared here because they want to be - * initialized in sh.init.c (to allow them to be made readonly) - */ - -#if defined(hpux) && defined(__STDC__) && !defined(__GNUC__) - /* Avoid hpux ansi mode spurious warnings */ -typedef void (*bfunc_t) (); -#else -typedef void (*bfunc_t) __P((Char **, struct command *)); -#endif /* hpux && __STDC__ && !__GNUC__ */ - -extern struct biltins { - char *bname; - bfunc_t bfunct; - int minargs, maxargs; -} bfunc[]; -extern int nbfunc; -#ifdef WINNT -extern struct biltins nt_bfunc[]; -extern int nt_nbfunc; -#endif /* WINNT*/ - -extern struct srch { - char *s_name; - int s_value; -} srchn[]; -extern int nsrchn; - -/* - * Structure defining the existing while/foreach loops at this - * source level. Loops are implemented by seeking back in the - * input. For foreach (fe), the word list is attached here. - */ -EXTERN struct whyle { - struct Ain w_start; /* Point to restart loop */ - struct Ain w_end; /* End of loop (0 if unknown) */ - Char **w_fe, **w_fe0; /* Current/initial wordlist for fe */ - Char *w_fename; /* Name for fe */ - struct whyle *w_next; /* Next (more outer) loop */ -} *whyles; - -/* - * Variable structure - * - * Aliases and variables are stored in AVL balanced binary trees. - */ -EXTERN struct varent { - Char **vec; /* Array of words which is the value */ - Char *v_name; /* Name of variable/alias */ - int v_flags; /* Flags */ -#define VAR_ALL -1 -#define VAR_READONLY 1 -#define VAR_READWRITE 2 -#define VAR_NOGLOB 4 -#define VAR_FIRST 32 -#define VAR_LAST 64 - struct varent *v_link[3]; /* The links, see below */ - int v_bal; /* Balance factor */ -} shvhed IZERO_STRUCT, aliases IZERO_STRUCT; - -#define v_left v_link[0] -#define v_right v_link[1] -#define v_parent v_link[2] - -#define adrof(v) adrof1(v, &shvhed) -#define varval(v) value1(v, &shvhed) - -/* - * The following are for interfacing redo substitution in - * aliases to the lexical routines. - */ -EXTERN struct wordent *alhistp IZERO_STRUCT;/* Argument list (first) */ -EXTERN struct wordent *alhistt IZERO_STRUCT;/* Node after last in arg list */ -EXTERN Char **alvec IZERO_STRUCT, - *alvecp IZERO_STRUCT;/* The (remnants of) alias vector */ - -/* - * Filename/command name expansion variables - */ -EXTERN int gflag; /* After tglob -> is globbing needed? */ - -#define MAXVARLEN 30 /* Maximum number of char in a variable name */ - -#ifndef MAXPATHLEN -# define MAXPATHLEN 2048 -#endif /* MAXPATHLEN */ - -#ifndef MAXNAMLEN -# define MAXNAMLEN 512 -#endif /* MAXNAMLEN */ - -#ifndef HAVENOLIMIT -/* - * resource limits - */ -extern struct limits { - int limconst; - char *limname; - int limdiv; - char *limscale; -} limits[]; -#endif /* !HAVENOLIMIT */ - -/* - * Variables for filename expansion - */ -extern Char **gargv; /* Pointer to the (stack) arglist */ -extern int gargc; /* Number args in gargv */ - -/* - * Variables for command expansion. - */ -extern Char **pargv; /* Pointer to the argv list space */ -EXTERN Char *pargs; /* Pointer to start current word */ -EXTERN long pnleft; /* Number of chars left in pargs */ -EXTERN Char *pargcp; /* Current index into pargs */ - -/* - * History list - * - * Each history list entry contains an embedded wordlist - * from the scanner, a number for the event, and a reference count - * to aid in discarding old entries. - * - * Essentially "invisible" entries are put on the history list - * when history substitution includes modifiers, and thrown away - * at the next discarding since their event numbers are very negative. - */ -EXTERN struct Hist { - struct wordent Hlex; - int Hnum; - int Href; - time_t Htime; - Char *histline; - struct Hist *Hnext; -} Histlist IZERO_STRUCT; - -EXTERN struct wordent paraml; /* Current lexical word list */ -EXTERN int eventno; /* Next events number */ -EXTERN int lastev; /* Last event reference (default) */ - -EXTERN Char HIST; /* history invocation character */ -EXTERN Char HISTSUB; /* auto-substitute character */ -EXTERN Char PRCH; /* Prompt symbol for regular users */ -EXTERN Char PRCHROOT; /* Prompt symbol for root */ - -/* - * For operating systems with single case filenames (OS/2) - */ -#ifdef CASE_INSENSITIVE -# define samecase(x) (isupper((unsigned char)(x)) ? \ - tolower((unsigned char)(x)) : (x)) -#else -# define samecase(x) (x) -#endif /* CASE_INSENSITIVE */ - -/* - * strings.h: - */ -#ifndef SHORT_STRINGS -#define Strchr(a, b) strchr(a, b) -#define Strrchr(a, b) strrchr(a, b) -#define Strcat(a, b) strcat(a, b) -#define Strncat(a, b, c) strncat(a, b, c) -#define Strcpy(a, b) strcpy(a, b) -#define Strncpy(a, b, c) strncpy(a, b, c) -#define Strlen(a) strlen(a) -#define Strcmp(a, b) strcmp(a, b) -#define Strncmp(a, b, c) strncmp(a, b, c) - -#define Strspl(a, b) strspl(a, b) -#define Strsave(a) strsave(a) -#define Strend(a) strend(a) -#define Strstr(a, b) strstr(a, b) - -#define str2short(a) (a) -#define blk2short(a) saveblk(a) -#define short2blk(a) saveblk(a) -#define short2str(a) strip(a) -#else -#define Strchr(a, b) s_strchr(a, b) -#define Strrchr(a, b) s_strrchr(a, b) -#define Strcat(a, b) s_strcat(a, b) -#define Strncat(a, b, c) s_strncat(a, b, c) -#define Strcpy(a, b) s_strcpy(a, b) -#define Strncpy(a, b, c) s_strncpy(a, b, c) -#define Strlen(a) s_strlen(a) -#define Strcmp(a, b) s_strcmp(a, b) -#define Strncmp(a, b, c) s_strncmp(a, b, c) - -#define Strspl(a, b) s_strspl(a, b) -#define Strsave(a) s_strsave(a) -#define Strend(a) s_strend(a) -#define Strstr(a, b) s_strstr(a, b) -#endif - -/* - * setname is a macro to save space (see sh.err.c) - */ -EXTERN char *bname; - -#define setname(a) (bname = (a)) - -#ifdef VFORK -EXTERN Char *Vsav; -EXTERN Char *Vdp; -EXTERN Char *Vexpath; -EXTERN char **Vt; -#endif /* VFORK */ - -EXTERN Char **evalvec; -EXTERN Char *evalp; - -extern struct mesg { - char *iname; /* name from /usr/include */ - char *pname; /* print name */ -} mesg[]; - -/* word_chars is set by default to WORD_CHARS but can be overridden by - the worchars variable--if unset, reverts to WORD_CHARS */ - -EXTERN Char *word_chars; - -#define WORD_CHARS "*?_-.[]~=" /* default chars besides alnums in words */ - -EXTERN Char *STR_SHELLPATH; - -#ifdef _PATH_BSHELL -EXTERN Char *STR_BSHELL; -#endif -EXTERN Char *STR_WORD_CHARS; -EXTERN Char **STR_environ IZERO; - -extern int dont_free; /* Tell free that we are in danger if we free */ - -extern Char *INVPTR; -extern Char **INVPPTR; - -extern char *progname; -extern int tcsh; - -#include "tc.h" -#include "sh.decls.h" - -/* - * To print system call errors... - */ -#ifdef BSD4_4 -# include <errno.h> -#else -# ifndef linux -# ifdef NEEDstrerror -extern char *sys_errlist[]; -# endif -extern int errno, sys_nerr; -# endif /* !linux */ -#endif - -#ifndef WINNT -# ifdef NLS_CATALOGS -# ifdef linux -# include <locale.h> -# ifdef notdef -# include <localeinfo.h> /* Has this changed ? */ -# endif -# include <features.h> -# endif -# ifdef SUNOS4 - /* Who stole my nl_types.h? :-( - * All this stuff is in the man pages, but nowhere else? - * This does not link right now... - */ - typedef void *nl_catd; - extern const char * catgets __P((nl_catd, int, int, const char *)); - nl_catd catopen __P((const char *, int)); - int catclose __P((nl_catd)); -# else -# ifdef __uxps__ -# define gettxt gettxt_ds -# endif -# include <nl_types.h> -# ifdef __uxps__ -# undef gettxt -# endif -# endif -# ifndef MCLoadBySet -# define MCLoadBySet 0 -# endif -EXTERN nl_catd catd; -# define CGETS(b, c, d) catgets(catd, b, c, d) -# define CSAVS(b, c, d) strsave(CGETS(b, c, d)) -# else -# define CGETS(b, c, d) d -# define CSAVS(b, c, d) d -# endif -#else /* WINNT */ -# define CGETS(b, c, d) nt_cgets( b, c, d) -# define CSAVS(b, c, d) strsave(CGETS(b, c, d)) -#endif /* WINNT */ - -/* - * Since on some machines characters are unsigned, and the signed - * keyword is not universally implemented, we treat all characters - * as unsigned and sign extend them where we need. - */ -#define SIGN_EXTEND_CHAR(a) (((a) & 0x80) ? ((a) | ~0x7f) : (a)) - -#endif /* _h_sh */ diff --git a/contrib/tcsh/sh.hist.c b/contrib/tcsh/sh.hist.c deleted file mode 100644 index a2889dd1451d..000000000000 --- a/contrib/tcsh/sh.hist.c +++ /dev/null @@ -1,477 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.hist.c,v 3.26 1999/02/06 15:01:23 christos Exp $ */ -/* - * sh.hist.c: Shell history expansions and substitutions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.hist.c,v 3.26 1999/02/06 15:01:23 christos Exp $") - -#include "tc.h" - -extern bool histvalid; -extern Char histline[]; -Char HistLit = 0; - -static bool heq __P((struct wordent *, struct wordent *)); -static void hfree __P((struct Hist *)); -static void dohist1 __P((struct Hist *, int *, int)); -static void phist __P((struct Hist *, int)); - -#define HIST_ONLY 0x01 -#define HIST_SAVE 0x02 -#define HIST_LOAD 0x04 -#define HIST_REV 0x08 -#define HIST_CLEAR 0x10 -#define HIST_MERGE 0x20 -#define HIST_TIME 0x40 - -/* - * C shell - */ - -void -savehist(sp, mflg) - struct wordent *sp; - bool mflg; -{ - register struct Hist *hp, *np; - register int histlen = 0; - Char *cp; - - /* throw away null lines */ - if (sp && sp->next->word[0] == '\n') - return; - cp = varval(STRhistory); - if (*cp) { - register Char *p = cp; - - while (*p) { - if (!Isdigit(*p)) { - histlen = 0; - break; - } - histlen = histlen * 10 + *p++ - '0'; - } - } - if (sp) - (void) enthist(++eventno, sp, 1, mflg); - for (hp = &Histlist; (np = hp->Hnext) != NULL;) - if (eventno - np->Href >= histlen || histlen == 0) - hp->Hnext = np->Hnext, hfree(np); - else - hp = np; -} - -static bool -heq(a0, b0) - struct wordent *a0, *b0; -{ - struct wordent *a = a0->next, *b = b0->next; - - for (;;) { - if (Strcmp(a->word, b->word) != 0) - return 0; - a = a->next; - b = b->next; - if (a == a0) - return (b == b0) ? 1 : 0; - if (b == b0) - return 0; - } -} - - -struct Hist * -enthist(event, lp, docopy, mflg) - int event; - register struct wordent *lp; - bool docopy; - bool mflg; -{ - extern time_t Htime; - struct Hist *p = NULL, *pp = &Histlist; - int n, r; - register struct Hist *np; - Char *dp; - - if ((dp = varval(STRhistdup)) != STRNULL) { - if (eq(dp, STRerase)) { - /* masaoki@akebono.tky.hp.com (Kobayashi Masaoki) */ - struct Hist *px; - for (p = pp; (px = p, p = p->Hnext) != NULL;) - if (heq(lp, &(p->Hlex))){ - px->Hnext = p->Hnext; - if (Htime != 0 && p->Htime > Htime) - Htime = p->Htime; - n = p->Href; - hfree(p); - for (p = px->Hnext; p != NULL; p = p->Hnext) - p->Href = n--; - break; - } - } - else if (eq(dp, STRall)) { - for (p = pp; (p = p->Hnext) != NULL;) - if (heq(lp, &(p->Hlex))) { - eventno--; - break; - } - } - else if (eq(dp, STRprev)) { - if (pp->Hnext && heq(lp, &(pp->Hnext->Hlex))) { - p = pp->Hnext; - eventno--; - } - } - } - - np = p ? p : (struct Hist *) xmalloc((size_t) sizeof(*np)); - - /* Pick up timestamp set by lex() in Htime if reading saved history */ - if (Htime != (time_t) 0) { - np->Htime = Htime; - Htime = 0; - } - else - (void) time(&(np->Htime)); - - if (p == np) - return np; - - np->Hnum = np->Href = event; - if (docopy) { - copylex(&np->Hlex, lp); - if (histvalid) - np->histline = Strsave(histline); - else - np->histline = NULL; - } - else { - np->Hlex.next = lp->next; - lp->next->prev = &np->Hlex; - np->Hlex.prev = lp->prev; - lp->prev->next = &np->Hlex; - np->histline = NULL; - } - if (mflg) - { - while ((p = pp->Hnext) && (p->Htime > np->Htime)) - pp = p; - while (p && p->Htime == np->Htime) - { - if (heq(&p->Hlex, &np->Hlex)) - { - eventno--; - hfree(np); - return (p); - } - pp = p; - p = p->Hnext; - } - for (p = Histlist.Hnext; p != pp->Hnext; p = p->Hnext) - { - n = p->Hnum; r = p->Href; - p->Hnum = np->Hnum; p->Href = np->Href; - np->Hnum = n; np->Href = r; - } - } - np->Hnext = pp->Hnext; - pp->Hnext = np; - return (np); -} - -static void -hfree(hp) - register struct Hist *hp; -{ - - freelex(&hp->Hlex); - if (hp->histline) - xfree((ptr_t) hp->histline); - xfree((ptr_t) hp); -} - - -/*ARGSUSED*/ -void -dohist(vp, c) - Char **vp; - struct command *c; -{ - int n, hflg = 0; - - USE(c); - if (getn(varval(STRhistory)) == 0) - return; - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(sigblock((sigmask_t) 0) & ~sigmask(SIGINT)); -#else - (void) sigrelse(SIGINT); -#endif - while (*++vp && **vp == '-') { - Char *vp2 = *vp; - - while (*++vp2) - switch (*vp2) { - case 'c': - hflg |= HIST_CLEAR; - break; - case 'h': - hflg |= HIST_ONLY; - break; - case 'r': - hflg |= HIST_REV; - break; - case 'S': - hflg |= HIST_SAVE; - break; - case 'L': - hflg |= HIST_LOAD; - break; - case 'M': - hflg |= HIST_MERGE; - break; - case 'T': - hflg |= HIST_TIME; - break; - default: - stderror(ERR_HISTUS, "chrSLMT"); - break; - } - } - - if (hflg & HIST_CLEAR) { - struct Hist *np, *hp; - for (hp = &Histlist; (np = hp->Hnext) != NULL;) - hp->Hnext = np->Hnext, hfree(np); - } - - if (hflg & (HIST_LOAD | HIST_MERGE)) { - loadhist(*vp, (hflg & HIST_MERGE) ? 1 : 0); - return; - } - else if (hflg & HIST_SAVE) { - rechist(*vp, 1); - return; - } - if (*vp) - n = getn(*vp); - else { - n = getn(varval(STRhistory)); - } - dohist1(Histlist.Hnext, &n, hflg); -} - -static void -dohist1(hp, np, hflg) - struct Hist *hp; - int *np, hflg; -{ - bool print = (*np) > 0; - - for (; hp != 0; hp = hp->Hnext) { - (*np)--; - if ((hflg & HIST_REV) == 0) { - dohist1(hp->Hnext, np, hflg); - if (print) - phist(hp, hflg); - return; - } - if (*np >= 0) - phist(hp, hflg); - } -} - -static void -phist(hp, hflg) - register struct Hist *hp; - int hflg; -{ - extern bool output_raw; - if (hflg & HIST_ONLY) { - /* - * Control characters have to be written as is (output_raw). - * This way one can preserve special characters (like tab) in - * the history file. - * From: mveksler@vnet.ibm.com (Veksler Michael) - */ - output_raw= 1; - if (hflg & HIST_TIME) - /* - * Make file entry with history time in format: - * "+NNNNNNNNNN" (10 digits, left padded with ascii '0') - */ - - xprintf("#+%010lu\n", hp->Htime); - - if (HistLit && hp->histline) - xprintf("%S\n", hp->histline); - else - prlex(&hp->Hlex); - output_raw= 0; - } - else { - Char *cp = str2short("%h\t%T\t%R\n"); - Char buf[INBUFSIZE]; - struct varent *vp = adrof(STRhistory); - - if (vp && vp->vec[0] && vp->vec[1]) - cp = vp->vec[1]; - - tprintf(FMT_HISTORY, buf, cp, INBUFSIZE, NULL, hp->Htime, (ptr_t) hp); - for (cp = buf; *cp;) - xputchar(*cp++); - } -} - - -void -fmthist(fmt, ptr, buf, bufsiz) - int fmt; - ptr_t ptr; - char *buf; - size_t bufsiz; -{ - struct Hist *hp = (struct Hist *) ptr; - switch (fmt) { - case 'h': - (void) xsnprintf(buf, bufsiz, "%6d", hp->Hnum); - break; - case 'R': - if (HistLit && hp->histline) - (void) xsnprintf(buf, bufsiz, "%S", hp->histline); - else { - Char ibuf[INBUFSIZE], *ip; - char *p; - (void) sprlex(ibuf, sizeof(ibuf), &hp->Hlex); - for (p = buf, ip = ibuf; (*p++ = (CHAR & *ip++)) != '\0'; ) - continue; - } - break; - default: - buf[0] = '\0'; - break; - } - -} - -void -rechist(fname, ref) - Char *fname; - int ref; -{ - Char *snum; - int fp, ftmp, oldidfds; - struct varent *shist; - static Char *dumphist[] = {STRhistory, STRmhT, 0, 0}; - - if (fname == NULL && !ref) - return; - /* - * If $savehist is just set, we use the value of $history - * else we use the value in $savehist - */ - if (((snum = varval(STRsavehist)) == STRNULL) && - ((snum = varval(STRhistory)) == STRNULL)) - snum = STRmaxint; - - - if (fname == NULL) { - if ((fname = varval(STRhistfile)) == STRNULL) - fname = Strspl(varval(STRhome), &STRtildothist[1]); - else - fname = Strsave(fname); - } - else - fname = globone(fname, G_ERROR); - - /* - * The 'savehist merge' feature is intended for an environment - * with numerous shells beeing in simultaneous use. Imagine - * any kind of window system. All these shells 'share' the same - * ~/.history file for recording their command line history. - * Currently the automatic merge can only succeed when the shells - * nicely quit one after another. - * - * Users that like to nuke their environment require here an atomic - * loadhist-creat-dohist(dumphist)-close - * sequence. - * - * jw. - */ - /* - * We need the didfds stuff before loadhist otherwise - * exec in a script will fail to print if merge is set. - * From: mveksler@iil.intel.com (Veksler Michael) - */ - oldidfds = didfds; - didfds = 0; - if ((shist = adrof(STRsavehist)) != NULL) - if (shist->vec[1] && eq(shist->vec[1], STRmerge)) - loadhist(fname, 1); - fp = creat(short2str(fname), 0600); - if (fp == -1) { - didfds = oldidfds; - return; - } - ftmp = SHOUT; - SHOUT = fp; - dumphist[2] = snum; - dohist(dumphist, NULL); - (void) close(fp); - SHOUT = ftmp; - didfds = oldidfds; - xfree((ptr_t) fname); -} - - -void -loadhist(fname, mflg) - Char *fname; - bool mflg; -{ - static Char *loadhist_cmd[] = {STRsource, NULL, NULL, NULL}; - loadhist_cmd[1] = mflg ? STRmm : STRmh; - - if (fname != NULL) - loadhist_cmd[2] = fname; - else if ((fname = varval(STRhistfile)) != STRNULL) - loadhist_cmd[2] = fname; - else - loadhist_cmd[2] = STRtildothist; - - dosource(loadhist_cmd, NULL); -} diff --git a/contrib/tcsh/sh.init.c b/contrib/tcsh/sh.init.c deleted file mode 100644 index 62e9d8c4fa99..000000000000 --- a/contrib/tcsh/sh.init.c +++ /dev/null @@ -1,1074 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.init.c,v 3.48 1999/02/11 16:18:36 christos Exp $ */ -/* - * sh.init.c: Function and signal tables - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.init.c,v 3.48 1999/02/11 16:18:36 christos Exp $") - -#include "ed.h" -#include "tw.h" - -/* - * C shell - */ - -#define INF 0x7fffffff - -struct biltins bfunc[] = { - { ":", dozip, 0, INF }, - { "@", dolet, 0, INF }, - { "alias", doalias, 0, INF }, -#ifdef OBSOLETE - { "aliases", doaliases, 0, 1, }, -#endif /* OBSOLETE */ - { "alloc", showall, 0, 1 }, -#if defined(_CX_UX) - { "att", doatt, 0, INF }, -#endif /* _CX_UX */ - { "bg", dobg, 0, INF }, -#ifdef OBSOLETE - { "bind", dobind, 0, 2 }, -#endif /* OBSOLETE */ - { "bindkey", dobindkey, 0, 8 }, - { "break", dobreak, 0, 0 }, - { "breaksw", doswbrk, 0, 0 }, - { "builtins", dobuiltins, 0, 0 }, -#ifdef KAI - { "bye", goodbye, 0, 0 }, -#endif /* KAI */ - { "case", dozip, 0, 1 }, - { "cd", dochngd, 0, INF }, - { "chdir", dochngd, 0, INF }, - { "complete", docomplete, 0, INF }, - { "continue", docontin, 0, 0 }, - { "default", dozip, 0, 0 }, - { "dirs", dodirs, 0, INF }, -#if defined(_CRAY) && !defined(_CRAYMPP) - { "dmmode", dodmmode, 0, 1 }, -#endif /* _CRAY && !_CRAYMPP */ - { "echo", doecho, 0, INF }, - { "echotc", doechotc, 0, INF }, - { "else", doelse, 0, INF }, - { "end", doend, 0, 0 }, - { "endif", dozip, 0, 0 }, - { "endsw", dozip, 0, 0 }, - { "eval", doeval, 0, INF }, - { "exec", execash, 1, INF }, - { "exit", doexit, 0, INF }, - { "fg", dofg, 0, INF }, - { "filetest", dofiletest, 2, INF }, - { "foreach", doforeach, 3, INF }, -#ifdef TCF - { "getspath", dogetspath, 0, 0 }, - { "getxvers", dogetxvers, 0, 0 }, -#endif /* TCF */ - { "glob", doglob, 0, INF }, - { "goto", dogoto, 1, 1 }, - { "hashstat", hashstat, 0, 0 }, - { "history", dohist, 0, 2 }, - { "hup", dohup, 0, INF }, - { "if", doif, 1, INF }, -#ifdef apollo - { "inlib", doinlib, 1, INF }, -#endif /* apollo */ - { "jobs", dojobs, 0, 1 }, - { "kill", dokill, 1, INF }, -#ifndef HAVENOLIMIT - { "limit", dolimit, 0, 3 }, -#endif /* !HAVENOLIMIT */ -#ifdef OBSOLETE - { "linedit", doecho, 0, INF }, -#endif /* OBSOLETE */ -#if !defined(HAVENOUTMP) && !defined(KAI) - { "log", dolog, 0, 0 }, -#endif /* !HAVENOUTMP && !KAI */ - { "login", dologin, 0, 1 }, - { "logout", dologout, 0, 0 }, - { "ls-F", dolist, 0, INF }, -#ifdef TCF - { "migrate", domigrate, 1, INF }, -#endif /* TCF */ -#ifdef NEWGRP - { "newgrp", donewgrp, 1, 2 }, -#endif /* NEWGRP */ - { "nice", donice, 0, INF }, - { "nohup", donohup, 0, INF }, - { "notify", donotify, 0, INF }, - { "onintr", doonintr, 0, 2 }, - { "popd", dopopd, 0, INF }, - { "printenv", doprintenv, 0, 1 }, - { "pushd", dopushd, 0, INF }, - { "rehash", dohash, 0, 3 }, - { "repeat", dorepeat, 2, INF }, -#ifdef apollo - { "rootnode", dorootnode, 1, 1 }, -#endif /* apollo */ - { "sched", dosched, 0, INF }, - { "set", doset, 0, INF }, - { "setenv", dosetenv, 0, 2 }, -#ifdef MACH - { "setpath", dosetpath, 0, INF }, -#endif /* MACH */ -#ifdef TCF - { "setspath", dosetspath, 1, INF }, -#endif /* TCF */ - { "settc", dosettc, 2, 2 }, - { "setty", dosetty, 0, INF }, -#ifdef TCF - { "setxvers", dosetxvers, 0, 1 }, -#endif /* TCF */ - { "shift", shift, 0, 1 }, - { "source", dosource, 1, INF }, - { "stop", dostop, 1, INF }, - { "suspend", dosuspend, 0, 0 }, - { "switch", doswitch, 1, INF }, - { "telltc", dotelltc, 0, INF }, - { "time", dotime, 0, INF }, -#if defined(_CX_UX) - { "ucb", doucb, 0, INF }, -#endif /* _CX_UX */ - { "umask", doumask, 0, 1 }, - { "unalias", unalias, 1, INF }, - { "uncomplete", douncomplete, 1, INF }, - { "unhash", dounhash, 0, 0 }, -#if defined(masscomp) || defined(_CX_UX) - { "universe", douniverse, 0, INF }, -#endif /* masscomp || _CX_UX */ -#ifndef HAVENOLIMIT - { "unlimit", dounlimit, 0, INF }, -#endif /* !HAVENOLIMIT */ - { "unset", unset, 1, INF }, - { "unsetenv", dounsetenv, 1, INF }, -#ifdef apollo - { "ver", dover, 0, INF }, -#endif /* apollo */ - { "wait", dowait, 0, 0 }, -#ifdef WARP - { "warp", dowarp, 0, 2 }, -#endif /* WARP */ -#if !defined(HAVENOUTMP) && defined(KAI) - { "watchlog", dolog, 0, 0 }, -#endif /* !HAVENOUTMP && KAI */ - { "where", dowhere, 1, INF }, - { "which", dowhich, 1, INF }, - { "while", dowhile, 1, INF } -}; -int nbfunc = sizeof bfunc / sizeof *bfunc; - -struct srch srchn[] = { - { "@", TC_LET }, - { "break", TC_BREAK }, - { "breaksw", TC_BRKSW }, - { "case", TC_CASE }, - { "default", TC_DEFAULT }, - { "else", TC_ELSE }, - { "end", TC_END }, - { "endif", TC_ENDIF }, - { "endsw", TC_ENDSW }, - { "exit", TC_EXIT }, - { "foreach", TC_FOREACH }, - { "goto", TC_GOTO }, - { "if", TC_IF }, - { "label", TC_LABEL }, - { "set", TC_SET }, - { "switch", TC_SWITCH }, - { "while", TC_WHILE } -}; -int nsrchn = sizeof srchn / sizeof *srchn; - - -/* - * Note: For some machines, (hpux eg.) - * NSIG = number of signals + 1... - * so we define 33 or 65 (POSIX) signals for - * everybody - */ - -/* We define NUMSIG to avoid changing NSIG or MAXSIG */ -#ifdef POSIX -# define NUMSIG 65 -#else /* !POSIX */ -# define NUMSIG 33 -#endif /* POSIX */ - -int nsig = NUMSIG - 1; /* This should be the number of real signals */ - /* not counting signal 0 */ -struct mesg mesg[NUMSIG]; /* Arrays start at [0] so we initialize from */ - /* 0 to 32 or 64, the max real signal number */ - -void -mesginit() -{ - -#ifdef NLS_CATALOGS - int i; - - for (i = 0; i < NUMSIG; i++) { - xfree((ptr_t) mesg[i].pname); - mesg[i].pname = NULL; - } -#endif /* NLS_CATALOGS */ - -#if defined(SIGNULL) || defined(DECOSF1) -# ifndef SIGNULL -# define SIGNULL 0 -# endif /* !SIGNULL */ - if (mesg[SIGNULL].pname == NULL) { - mesg[SIGNULL].iname = "NULL"; - mesg[SIGNULL].pname = CSAVS(2, 1, "Null signal"); - } -#endif /* SIGNULL || DECOSF1 */ - -#ifdef SIGHUP - if (mesg[SIGHUP].pname == NULL) { - mesg[SIGHUP].iname = "HUP"; - mesg[SIGHUP].pname = CSAVS(2, 2, "Hangup"); - } -#endif /* SIGHUP */ - -#ifdef SIGINT - if (mesg[SIGINT].pname == NULL) { - mesg[SIGINT].iname = "INT"; - mesg[SIGINT].pname = CSAVS(2, 3, "Interrupt"); - } -#endif /* SIGINT */ - -#ifdef SIGQUIT - if (mesg[SIGQUIT].pname == NULL) { - mesg[SIGQUIT].iname = "QUIT"; - mesg[SIGQUIT].pname = CSAVS(2, 4, "Quit"); - } -#endif /* SIGQUIT */ - -#ifdef SIGILL - if (mesg[SIGILL].pname == NULL) { - mesg[SIGILL].iname = "ILL"; - mesg[SIGILL].pname = CSAVS(2, 5, "Illegal instruction"); - } -#endif /* SIGILL */ - -#ifdef SIGTRAP - if (mesg[SIGTRAP].pname == NULL) { - mesg[SIGTRAP].iname = "TRAP"; - mesg[SIGTRAP].pname = CSAVS(2, 6, "Trace/BPT trap"); - } -#endif /* SIGTRAP */ - -#ifdef SIGABRT - if (mesg[SIGABRT].pname == NULL) { - mesg[SIGABRT].iname = "ABRT"; - mesg[SIGABRT].pname = CSAVS(2, 7, "Abort"); - } -#endif /* SIGABRT */ - -#ifdef SIGIOT - if (mesg[SIGIOT].pname == NULL) { - mesg[SIGIOT].iname = "IOT"; - mesg[SIGIOT].pname = CSAVS(2, 8, "IOT trap"); - } -#endif /* SIGIOT */ - -#ifdef SIGDANGER - /* aiws */ - if (mesg[SIGDANGER].pname == NULL) { - mesg[SIGDANGER].iname = "DANGER"; - mesg[SIGDANGER].pname = CSAVS(2, 9, "System Crash Imminent"); - } -#endif /* SIGDANGER */ - -#ifdef SIGERR - /* _CRAY */ - if (mesg[SIGERR].pname == NULL) { - mesg[SIGERR].iname = "ERR"; - mesg[SIGERR].pname = CSAVS(2, 10, "Error exit"); - } -#endif /* SIGERR */ - -#ifdef SIGEMT - if (mesg[SIGEMT].pname == NULL) { - mesg[SIGEMT].iname = "EMT"; - mesg[SIGEMT].pname = CSAVS(2, 11, "EMT trap"); - } -#endif /* SIGEMT */ - -#ifdef SIGFPE - if (mesg[SIGFPE].pname == NULL) { - mesg[SIGFPE].iname = "FPE"; - mesg[SIGFPE].pname = CSAVS(2, 12, "Floating exception"); - } -#endif /* SIGFPE */ - -#ifdef SIGKILL - if (mesg[SIGKILL].pname == NULL) { - mesg[SIGKILL].iname = "KILL"; - mesg[SIGKILL].pname = CSAVS(2, 13, "Killed"); - } -#endif /* SIGKILL */ - -#ifdef SIGUSR1 - if (mesg[SIGUSR1].pname == NULL) { - mesg[SIGUSR1].iname = "USR1"; - mesg[SIGUSR1].pname = CSAVS(2, 14, "User signal 1"); - } -#endif /* SIGUSR1 */ - -#ifdef SIGUSR2 - if (mesg[SIGUSR2].pname == NULL) { - mesg[SIGUSR2].iname = "USR2"; - mesg[SIGUSR2].pname = CSAVS(2, 15, "User signal 2"); - } -#endif /* SIGUSR2 */ - -#ifdef SIGSEGV - if (mesg[SIGSEGV].pname == NULL) { - mesg[SIGSEGV].iname = "SEGV"; - mesg[SIGSEGV].pname = CSAVS(2, 16, "Segmentation fault"); - } -#endif /* SIGSEGV */ - -#ifdef SIGBUS - if (mesg[SIGBUS].pname == NULL) { - mesg[SIGBUS].iname = "BUS"; - mesg[SIGBUS].pname = CSAVS(2, 17, "Bus error"); - } -#endif /* SIGBUS */ - -#ifdef SIGPRE - /* _CRAY || IBMAIX */ - if (mesg[SIGPRE].pname == NULL) { - mesg[SIGPRE].iname = "PRE"; - mesg[SIGPRE].pname = CSAVS(2, 18, "Program range error"); - } -#endif /* SIGPRE */ - -#ifdef SIGORE - /* _CRAY */ - if (mesg[SIGORE].pname == NULL) { - mesg[SIGORE].iname = "ORE"; - mesg[SIGORE].pname = CSAVS(2, 19, "Operand range error"); - } -#endif /* SIGORE */ - -#ifdef SIGSYS - if (mesg[SIGSYS].pname == NULL) { - mesg[SIGSYS].iname = "SYS"; - mesg[SIGSYS].pname = CSAVS(2, 20, "Bad system call"); - } -#endif /* SIGSYS */ - -#ifdef SIGPIPE - if (mesg[SIGPIPE].pname == NULL) { - mesg[SIGPIPE].iname = "PIPE"; - mesg[SIGPIPE].pname = CSAVS(2, 21, "Broken pipe"); - } -#endif /* SIGPIPE */ - -#ifdef SIGALRM - if (mesg[SIGALRM].pname == NULL) { - mesg[SIGALRM].iname = "ALRM"; - mesg[SIGALRM].pname = CSAVS(2, 22, "Alarm clock"); - } -#endif /* SIGALRM */ - -#ifdef SIGTERM - if (mesg[SIGTERM].pname == NULL) { - mesg[SIGTERM].iname = "TERM"; - mesg[SIGTERM].pname = CSAVS(2, 23, "Terminated"); - } -#endif /* SIGTERM */ - -/* SIGCLD vs SIGCHLD */ -#if !defined(SIGCHLD) || defined(SOLARIS2) || defined(apollo) || defined(__EMX__) - /* If we don't define SIGCHLD, or our OS prefers SIGCLD to SIGCHLD, */ - /* check for SIGCLD */ -# ifdef SIGCLD - if (mesg[SIGCLD].pname == NULL) { - mesg[SIGCLD].iname = "CLD"; -# ifdef BSDJOBS - mesg[SIGCLD].pname = CSAVS(2, 24, "Child status change"); -# else /* !BSDJOBS */ - mesg[SIGCLD].pname = CSAVS(2, 25, "Death of child"); -# endif /* BSDJOBS */ - } -# endif /* SIGCLD */ -#else /* !(!SIGCHLD || SOLARIS2 || apollo || __EMX__) */ - /* We probably define SIGCHLD */ -# ifdef SIGCHLD - if (mesg[SIGCHLD].pname == NULL) { - mesg[SIGCHLD].iname = "CHLD"; -# ifdef BSDJOBS - mesg[SIGCHLD].pname = CSAVS(2, 27, "Child stopped or exited"); -# else /* !BSDJOBS */ - mesg[SIGCHLD].pname = CSAVS(2, 28, "Child exited"); -# endif /* BSDJOBS */ - } -# endif /* SIGCHLD */ -#endif /* !SIGCHLD || SOLARIS2 || apollo || __EMX__ */ - -#ifdef SIGAPOLLO - /* apollo */ - if (mesg[SIGAPOLLO].pname == NULL) { - mesg[SIGAPOLLO].iname = "APOLLO"; - mesg[SIGAPOLLO].pname = CSAVS(2, 26, "Apollo-specific fault"); - } -#endif /* SIGAPOLLO */ - -#ifdef SIGPWR - if (mesg[SIGPWR].pname == NULL) { - mesg[SIGPWR].iname = "PWR"; - mesg[SIGPWR].pname = CSAVS(2, 29, "Power failure"); - } -#endif /* SIGPWR */ - -#ifdef SIGLOST - if (mesg[SIGLOST].pname == NULL) { - mesg[SIGLOST].iname = "LOST"; - mesg[SIGLOST].pname = CSAVS(2, 30, "Resource Lost"); - } -#endif /* SIGLOST */ - -#ifdef SIGBREAK - /* __EMX__ */ - if (mesg[SIGBREAK].pname == NULL) { - mesg[SIGBREAK].iname = "BREAK"; - mesg[SIGBREAK].pname = CSAVS(2, 31, "Break (Ctrl-Break)"); - } -#endif /* SIGBREAK */ - -#ifdef SIGIO -# if !defined(SIGPOLL) || SIGPOLL != SIGIO - if (mesg[SIGIO].pname == NULL) { - mesg[SIGIO].iname = "IO"; -# ifdef cray - mesg[SIGIO].pname = CSAVS(2, 32, "Input/output possible signal"); -# else /* !cray */ - mesg[SIGIO].pname = CSAVS(2, 33, "Asynchronous I/O (select)"); -# endif /* cray */ - } -# endif /* !SIGPOLL || SIGPOLL != SIGIO */ -#endif /* SIGIO */ - -#ifdef SIGURG - if (mesg[SIGURG].pname == NULL) { - mesg[SIGURG].iname = "URG"; - mesg[SIGURG].pname = CSAVS(2, 34, "Urgent condition on I/O channel"); - } -#endif /* SIGURG */ - -#ifdef SIGMT - /* cray */ - if (mesg[SIGMT].pname == NULL) { - mesg[SIGMT].iname = "MT"; - mesg[SIGMT].pname = CSAVS(2, 35, "Multitasking wake-up"); - } -#endif /* SIGMT */ - -#ifdef SIGMTKILL - /* cray */ - if (mesg[SIGMTKILL].pname == NULL) { - mesg[SIGMTKILL].iname = "MTKILL"; - mesg[SIGMTKILL].pname = CSAVS(2, 36, "Multitasking kill"); - } -#endif /* SIGMTKILL */ - -#ifdef SIGBUFIO - /* _CRAYCOM */ - if (mesg[SIGBUFIO].pname == NULL) { - mesg[SIGBUFIO].iname = "BUFIO"; - mesg[SIGBUFIO].pname = CSAVS(2, 37, - "Fortran asynchronous I/O completion"); - } -#endif /* SIGBUFIO */ - -#ifdef SIGRECOVERY - /* _CRAYCOM */ - if (mesg[SIGRECOVERY].pname == NULL) { - mesg[SIGRECOVERY].iname = "RECOVERY"; - mesg[SIGRECOVERY].pname = CSAVS(2, 38, "Recovery"); - } -#endif /* SIGRECOVERY */ - -#ifdef SIGUME - /* _CRAYCOM */ - if (mesg[SIGUME].pname == NULL) { - mesg[SIGUME].iname = "UME"; - mesg[SIGUME].pname = CSAVS(2, 39, "Uncorrectable memory error"); - } -#endif /* SIGUME */ - -#ifdef SIGCPULIM - /* _CRAYCOM */ - if (mesg[SIGCPULIM].pname == NULL) { - mesg[SIGCPULIM].iname = "CPULIM"; - mesg[SIGCPULIM].pname = CSAVS(2, 40, "CPU time limit exceeded"); - } -#endif /* SIGCPULIM */ - -#ifdef SIGSHUTDN - /* _CRAYCOM */ - if (mesg[SIGSHUTDN].pname == NULL) { - mesg[SIGSHUTDN].iname = "SHUTDN"; - mesg[SIGSHUTDN].pname = CSAVS(2, 41, "System shutdown imminent"); - } -#endif /* SIGSHUTDN */ - -#ifdef SIGNOWAK - /* _CRAYCOM */ - if (mesg[SIGNOWAK].pname == NULL) { - mesg[SIGNOWAK].iname = "NOWAK"; - mesg[SIGNOWAK].pname = CSAVS(2, 42, - "Micro-tasking group-no wakeup flag set"); - } -#endif /* SIGNOWAK */ - -#ifdef SIGTHERR - /* _CRAYCOM */ - if (mesg[SIGTHERR].pname == NULL) { - mesg[SIGTHERR].iname = "THERR"; - mesg[SIGTHERR].pname = CSAVS(2, 43, - "Thread error - (use cord -T for detailed info)"); - } -#endif /* SIGTHERR */ - -#ifdef SIGRPE - /* cray */ - if (mesg[SIGRPE].pname == NULL) { - mesg[SIGRPE].pname = CSAVS(2, 44, "CRAY Y-MP register parity error"); - mesg[SIGRPE].iname = "RPE"; - } -#endif /* SIGRPE */ - -#ifdef SIGINFO - if (mesg[SIGINFO].pname == NULL) { - mesg[SIGINFO].iname = "INFO"; - mesg[SIGINFO].pname = CSAVS(2, 45, "Information request"); - } -#endif /* SIGINFO */ - -#ifdef SIGSTOP - if (mesg[SIGSTOP].pname == NULL) { - mesg[SIGSTOP].iname = "STOP"; -# ifdef SUSPENDED - mesg[SIGSTOP].pname = CSAVS(2, 46, "Suspended (signal)"); -# else /* !SUSPENDED */ - mesg[SIGSTOP].pname = CSAVS(2, 47, "Stopped (signal)"); -# endif /* SUSPENDED */ - } -#endif /* SIGSTOP */ - -#ifdef SIGTSTP - if (mesg[SIGTSTP].pname == NULL) { - mesg[SIGTSTP].iname = "TSTP"; -# ifdef SUSPENDED - mesg[SIGTSTP].pname = CSAVS(2, 48, "Suspended"); -# else /* !SUSPENDED */ - mesg[SIGTSTP].pname = CSAVS(2, 49, "Stopped"); -# endif /* SUSPENDED */ - } -#endif /* SIGTSTP */ - -#ifdef SIGCONT - if (mesg[SIGCONT].pname == NULL) { - mesg[SIGCONT].iname = "CONT"; - mesg[SIGCONT].pname = CSAVS(2, 50, "Continued"); - } -#endif /* SIGCONT */ - -#ifdef SIGTTIN - if (mesg[SIGTTIN].pname == NULL) { - mesg[SIGTTIN].iname = "TTIN"; -# ifdef SUSPENDED - mesg[SIGTTIN].pname = CSAVS(2, 51, "Suspended (tty input)"); -# else /* !SUSPENDED */ - mesg[SIGTTIN].pname = CSAVS(2, 52, "Stopped (tty input)"); -# endif /* SUSPENDED */ - } -#endif /* SIGTTIN */ - -#ifdef SIGTTOU - if (mesg[SIGTTOU].pname == NULL) { - mesg[SIGTTOU].iname = "TTOU"; -# ifdef SUSPENDED - mesg[SIGTTOU].pname = CSAVS(2, 53, "Suspended (tty output)"); -# else /* SUSPENDED */ - mesg[SIGTTOU].pname = CSAVS(2, 54, "Stopped (tty output)"); -# endif /* SUSPENDED */ - } -#endif /* SIGTTOU */ - -#ifdef SIGWIND - /* UNIXPC */ - if (mesg[SIGWIND].pname == NULL) { - mesg[SIGWIND].iname = "WIND"; - mesg[SIGWIND].pname = CSAVS(2, 55, "Window status changed"); - } -#endif /* SIGWIND */ - -#ifdef SIGWINDOW - if (mesg[SIGWINDOW].pname == NULL) { - mesg[SIGWINDOW].iname = "WINDOW"; - mesg[SIGWINDOW].pname = CSAVS(2, 56, "Window size changed"); - } -#endif /* SIGWINDOW */ - -#ifdef SIGWINCH - if (mesg[SIGWINCH].pname == NULL) { - mesg[SIGWINCH].iname = "WINCH"; - mesg[SIGWINCH].pname = CSAVS(2, 56, "Window size changed"); - } -#endif /* SIGWINCH */ - -#ifdef SIGPHONE - /* UNIXPC */ - if (mesg[SIGPHONE].pname == NULL) { - mesg[SIGPHONE].iname = "PHONE"; - mesg[SIGPHONE].pname = CSAVS(2, 57, "Phone status changed"); - } -# endif /* SIGPHONE */ - -#ifdef SIGXCPU - if (mesg[SIGXCPU].pname == NULL) { - mesg[SIGXCPU].iname = "XCPU"; - mesg[SIGXCPU].pname = CSAVS(2, 58, "Cputime limit exceeded"); - } -#endif /* SIGXCPU */ - -#ifdef SIGXFSZ - if (mesg[SIGXFSZ].pname == NULL) { - mesg[SIGXFSZ].iname = "XFSZ"; - mesg[SIGXFSZ].pname = CSAVS(2, 59, "Filesize limit exceeded"); - } -#endif /* SIGXFSZ */ - -#ifdef SIGVTALRM - if (mesg[SIGVTALRM].pname == NULL) { - mesg[SIGVTALRM].iname = "VTALRM"; - mesg[SIGVTALRM].pname = CSAVS(2, 60, "Virtual time alarm"); - } -#endif /* SIGVTALRM */ - -#ifdef SIGPROF - if (mesg[SIGPROF].pname == NULL) { - mesg[SIGPROF].iname = "PROF"; - mesg[SIGPROF].pname = CSAVS(2, 61, "Profiling time alarm"); - } -#endif /* SIGPROF */ - -#ifdef SIGDIL - /* hpux */ - if (mesg[SIGDIL].pname == NULL) { - mesg[SIGDIL].iname = "DIL"; - mesg[SIGDIL].pname = CSAVS(2, 62, "DIL signal"); - } -#endif /* SIGDIL */ - -#ifdef SIGPOLL - if (mesg[SIGPOLL].pname == NULL) { - mesg[SIGPOLL].iname = "POLL"; - mesg[SIGPOLL].pname = CSAVS(2, 63, "Pollable event occured"); - } -#endif /* SIGPOLL */ - -#ifdef SIGWAITING - /* solaris */ - if (mesg[SIGWAITING].pname == NULL) { - mesg[SIGWAITING].iname = "WAITING"; - mesg[SIGWAITING].pname = CSAVS(2, 64, "Process's lwps are blocked"); - } -#endif /* SIGWAITING */ - -#ifdef SIGLWP - /* solaris */ - if (mesg[SIGLWP].pname == NULL) { - mesg[SIGLWP].iname = "LWP"; - mesg[SIGLWP].pname = CSAVS(2, 65, "Special LWP signal"); - } -#endif /* SIGLWP */ - -#ifdef SIGFREEZE - /* solaris */ - if (mesg[SIGFREEZE].pname == NULL) { - mesg[SIGFREEZE].iname = "FREEZE"; - mesg[SIGFREEZE].pname = CSAVS(2, 66, "Special CPR Signal"); - } -#endif /* SIGFREEZE */ - -#ifdef SIGTHAW - /* solaris */ - if (mesg[SIGTHAW].pname == NULL) { - mesg[SIGTHAW].iname = "THAW"; - mesg[SIGTHAW].pname = CSAVS(2, 67, "Special CPR Signal"); - } -#endif /* SIGTHAW */ - -#ifdef SIGCANCEL - /* solaris */ - if (mesg[SIGCANCEL].pname == NULL) { - mesg[SIGCANCEL].iname = "CANCEL"; - mesg[SIGCANCEL].pname = CSAVS(2, 109, - "Thread cancellation signal used by libthread"); - } -#endif /* SIGCANCEL */ - -/* - * Careful, some OS's (HP/UX 10.0) define these as -1 - */ -#ifdef SIGRTMIN - /* - * Cannot do this at compile time; Solaris2 uses _sysconf for these - */ - if (SIGRTMIN > 0 && SIGRTMIN < NUMSIG) { - if (mesg[SIGRTMIN].pname == NULL) { - mesg[SIGRTMIN].iname = "RTMIN"; - mesg[SIGRTMIN].pname = CSAVS(2, 68, "First Realtime Signal"); - } - - if (mesg[SIGRTMIN+1].pname == NULL) { - mesg[SIGRTMIN+1].iname = "RTMIN+1"; - mesg[SIGRTMIN+1].pname = CSAVS(2, 69, "Second Realtime Signal"); - } - - if (mesg[SIGRTMIN+2].pname == NULL) { - mesg[SIGRTMIN+2].iname = "RTMIN+2"; - mesg[SIGRTMIN+2].pname = CSAVS(2, 70, "Third Realtime Signal"); - } - - if (mesg[SIGRTMIN+3].pname == NULL) { - mesg[SIGRTMIN+3].iname = "RTMIN+3"; - mesg[SIGRTMIN+3].pname = CSAVS(2, 71, "Fourth Realtime Signal"); - } - } -#endif /* SIGRTMIN */ - -#ifdef SIGRTMAX - /* - * Cannot do this at compile time; Solaris2 uses _sysconf for these - */ - if (SIGRTMAX > 0 && SIGRTMAX < NUMSIG) { - if (mesg[SIGRTMAX-3].pname == NULL) { - mesg[SIGRTMAX-3].iname = "RTMAX-3"; - mesg[SIGRTMAX-3].pname = CSAVS(2, 72, - "Fourth Last Realtime Signal"); - } - - if (mesg[SIGRTMAX-2].pname == NULL) { - mesg[SIGRTMAX-2].iname = "RTMAX-2"; - mesg[SIGRTMAX-2].pname = CSAVS(2, 73, - "Third Last Realtime Signal"); - } - - if (mesg[SIGRTMAX-1].pname == NULL) { - mesg[SIGRTMAX-1].iname = "RTMAX-1"; - mesg[SIGRTMAX-1].pname = CSAVS(2, 74, - "Second Last Realtime Signal"); - } - - if (mesg[SIGRTMAX].pname == NULL) { - mesg[SIGRTMAX].iname = "RTMAX"; - mesg[SIGRTMAX].pname = CSAVS(2, 75, - "Last Realtime Signal"); - } - } -#endif /* SIGRTMAX */ - - -#ifdef SIGAIO - /* aiws */ - if (mesg[SIGAIO].pname == NULL) { - mesg[SIGAIO].iname = "AIO"; - mesg[SIGAIO].pname = CSAVS(2, 76, "LAN Asyncronous I/O"); - } -#endif /* SIGAIO */ - -#ifdef SIGPTY - /* aiws */ - if (mesg[SIGPTY].pname == NULL) { - mesg[SIGPTY].iname = "PTY"; - mesg[SIGPTY].pname = CSAVS(2, 77, "PTY read/write availability"); - } -#endif /* SIGPTY */ - -#ifdef SIGIOINT - /* aiws */ - if (mesg[SIGIOINT].pname == NULL) { - mesg[SIGIOINT].iname = "IOINT"; - mesg[SIGIOINT].pname = CSAVS(2, 78, "I/O intervention required"); - } -#endif /* SIGIOINT */ - -#ifdef SIGGRANT - /* aiws */ - if (mesg[SIGGRANT].pname == NULL) { - mesg[SIGGRANT].iname = "GRANT"; - mesg[SIGGRANT].pname = CSAVS(2, 79, "HFT monitor mode granted"); - } -#endif /* SIGGRANT */ - -#ifdef SIGRETRACT - /* aiws */ - if (mesg[SIGRETRACT].pname == NULL) { - mesg[SIGRETRACT].iname = "RETRACT"; - mesg[SIGRETRACT].pname = CSAVS(2, 80, - "HFT monitor mode should be relinguished"); - } -#endif /* SIGRETRACT */ - -#ifdef SIGSOUND - /* aiws */ - if (mesg[SIGSOUND].pname == NULL) { - mesg[SIGSOUND].iname = "SOUND"; - mesg[SIGSOUND].pname = CSAVS(2, 81, "HFT sound control has completed"); - } -#endif /* SIGSOUND */ - -#ifdef SIGSMSG - /* aiws */ - if (mesg[SIGSMSG].pname == NULL) { - mesg[SIGSMSG].iname = "SMSG"; - mesg[SIGSMSG].pname = CSAVS(2, 82, "Data in HFT ring buffer"); - } -#endif /* SIGMSG */ - -#ifdef SIGMIGRATE - /* IBMAIX */ - if (mesg[SIGMIGRATE].pname == NULL) { - mesg[SIGMIGRATE].iname = "MIGRATE"; - mesg[SIGMIGRATE].pname = CSAVS(2, 83, "Migrate process"); - } -#endif /* SIGMIGRATE */ - -#ifdef SIGSAK - /* IBMAIX */ - if (mesg[SIGSAK].pname == NULL) { - mesg[SIGSAK].iname = "SAK"; - mesg[SIGSAK].pname = CSAVS(2, 84, "Secure attention key"); - } -#endif /* SIGSAK */ - -#ifdef SIGRESCHED - /* CX/UX */ - if (mesg[SIGRESCHED].pname == NULL) { - mesg[SIGRESCHED].iname = "RESCHED"; - mesg[SIGRESCHED].pname = CSAVS(2, 85, "Reschedule"); - } -#endif /* SIGRESCHED */ - -#ifdef SIGDEBUG - /* VMS_POSIX */ - if (mesg[SIGDEBUG].pname == NULL) { - mesg[SIGDEBUG].iname = "DEBUG"; - mesg[SIGDEBUG].pname = CSAVS(2, 86, "Signaling SS$_DEBUG"); - } -#endif /* SIGDEBUG */ - -#ifdef SIGPRIO - /* Lynx */ - if (mesg[SIGPRIO].pname == NULL) { - mesg[SIGPRIO].iname = "PRIO"; - mesg[SIGPRIO].pname = CSAVS(2, 87, "Priority changed"); - } -#endif /* SIGPRIO */ - -#ifdef SIGDLK - /* cray */ - if (mesg[SIGDLK].pname == NULL) { - mesg[SIGDLK].iname = "DLK"; - mesg[SIGDLK].pname = CSAVS(2, 88, "True deadlock detected"); - } -#endif /* SIGDLK */ - -#ifdef SIGTINT - /* masscomp */ - if (mesg[SIGTINT].pname == NULL) { - mesg[SIGTINT].iname = "TINT"; - mesg[SIGTINT].pname = CSAVS(2, 89, "New input character"); - } -#endif /* SIGTINT */ - -#ifdef SIGSTKFLT - if (mesg[SIGSTKFLT].pname == NULL) { - mesg[SIGSTKFLT].iname = "STKFLT"; - mesg[SIGSTKFLT].pname = CSAVS(2, 90, "Stack limit exceeded"); - } -#endif /* SIGSTKFLT */ - -#ifdef SIGUNUSED - if (mesg[SIGUNUSED].pname == NULL) { - mesg[SIGUNUSED].iname = "UNUSED"; - mesg[SIGUNUSED].pname = CSAVS(2, 91, "Unused signal"); - } -#endif /* SIGUNUSED */ - -#ifdef SIGOVLY - /* SX-4 */ - if (mesg[SIGOVLY].pname == NULL) { - mesg[SIGOVLY].iname = "OVLY"; - mesg[SIGOVLY].pname = CSAVS(2, 92, "LM overlay"); - } -#endif /* SIGOVLY */ - -#ifdef SIGFRZ - /* SX-4 */ - if (mesg[SIGFRZ].pname == NULL) { - mesg[SIGFRZ].iname = "FRZ"; - mesg[SIGFRZ].pname = CSAVS(2, 93, "system freeze"); - } -#endif /* SIGFRZ */ - -#ifdef SIGDFRZ - /* SX-4 */ - if (mesg[SIGDFRZ].pname == NULL) { - mesg[SIGDFRZ].iname = "DFRZ"; - mesg[SIGDFRZ].pname = CSAVS(2, 94, "system defreeze"); - } -#endif /* SIGDFRZ */ - -#ifdef SIGDEAD - /* SX-4 */ - if (mesg[SIGDEAD].pname == NULL) { - mesg[SIGDEAD].iname = "DEAD"; - mesg[SIGDEAD].pname = CSAVS(2, 95, "dead lock"); - } -#endif /* SIGDEAD */ - -#ifdef SIGXMEM - /* SX-4 */ - if (mesg[SIGXMEM].pname == NULL) { - mesg[SIGXMEM].iname = "XMEM"; - mesg[SIGXMEM].pname = CSAVS(2, 96, "exceeded memory size limit"); - } -#endif /* SIGXMEM */ - -#ifdef SIGXDSZ - /* SX-4 */ - if (mesg[SIGXDSZ].pname == NULL) { - mesg[SIGXDSZ].iname = "XDSZ"; - mesg[SIGXDSZ].pname = CSAVS(2, 97, "exceeded data size limit"); - } -#endif /* SIGXDSZ */ - -#ifdef SIGMEM32 - /* SX-4 */ - if (mesg[SIGMEM32].pname == NULL) { - mesg[SIGMEM32].iname = "MEM32"; - mesg[SIGMEM32].pname = CSAVS(2, 98, "exceeded memory size limit of 32KB"); - } -#endif /* SIGMEM32 */ - -#ifdef SIGNMEM - /* SX-4 */ - if (mesg[SIGNMEM].pname == NULL) { - mesg[SIGNMEM].iname = "NMEM"; - mesg[SIGNMEM].pname = CSAVS(2, 99, "exce error for no memory"); - } -#endif /* SIGNMEM */ - -#ifdef SIGCHKP - /* SX-4 */ - if (mesg[SIGCHKP].pname == NULL) { - mesg[SIGCHKP].iname = "CHKP"; - mesg[SIGCHKP].pname = CSAVS(2, 100, "check point start"); - } -#endif /* SIGCHKP */ - -#ifdef SIGKCHKP -#if 0 - /* SX-4 */ - if (mesg[SIGKCHKP].pname == NULL) { - mesg[SIGKCHKP].iname = "KCHKP"; - mesg[SIGKCHKP].pname = CSAVS(2, 101, "check point start of kernel"); - } -#endif -#endif /* SIGKCHKP */ - -#ifdef SIGRSTA - /* SX-4 */ - if (mesg[SIGRSTA].pname == NULL) { - mesg[SIGRSTA].iname = "RSTA"; - mesg[SIGRSTA].pname = CSAVS(2, 102, "restart start"); - } -#endif /* SIGRSTA */ - -#ifdef SIGKRSTA -#if 0 - /* SX-4 */ - if (mesg[SIGKRSTA].pname == NULL) { - mesg[SIGKRSTA].iname = "KRSTA"; - mesg[SIGKRSTA].pname = CSAVS(2, 103, "restart of kernel"); - } -#endif -#endif /* SIGKRSTA */ - -#ifdef SIGXXMU - /* SX-4 */ - if (mesg[SIGXXMU].pname == NULL) { - mesg[SIGXXMU].iname = "XXMU"; - mesg[SIGXXMU].pname = CSAVS(2, 104, "exeeded XMU size limit"); - } -#endif /* SIGXXMU */ - -#ifdef SIGXRLG0 - /* SX-4 */ - if (mesg[SIGXRLG0].pname == NULL) { - mesg[SIGXRLG0].iname = "XRLG0"; - mesg[SIGXRLG0].pname = CSAVS(2, 105, "exeeded RLG0 limit"); - } -#endif /* SIGXRLG0 */ - -#ifdef SIGXRLG1 - /* SX-4 */ - if (mesg[SIGXRLG1].pname == NULL) { - mesg[SIGXRLG1].iname = "XRLG1"; - mesg[SIGXRLG1].pname = CSAVS(2, 106, "exeeded RLG1 limit"); - } -#endif /* SIGXRLG1 */ - -#ifdef SIGXRLG2 - /* SX-4 */ - if (mesg[SIGXRLG2].pname == NULL) { - mesg[SIGXRLG2].iname = "XRLG2"; - mesg[SIGXRLG2].pname = CSAVS(2, 107, "exeeded RLG2 limit"); - } -#endif /* SIGXRLG2 */ - -#ifdef SIGXRLG3 - /* SX-4 */ - if (mesg[SIGXRLG3].pname == NULL) { - mesg[SIGXRLG3].iname = "XRLG3"; - mesg[SIGXRLG3].pname = CSAVS(2, 108, "exeeded RLG3 limit"); - } -#endif /* SIGXRLG3 */ -} diff --git a/contrib/tcsh/sh.lex.c b/contrib/tcsh/sh.lex.c deleted file mode 100644 index b252eaae344e..000000000000 --- a/contrib/tcsh/sh.lex.c +++ /dev/null @@ -1,1901 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.lex.c,v 3.50 2000/01/14 22:57:28 christos Exp $ */ -/* - * sh.lex.c: Lexical analysis into tokens - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.lex.c,v 3.50 2000/01/14 22:57:28 christos Exp $") - -#include "ed.h" -/* #define DEBUG_INP */ -/* #define DEBUG_SEEK */ - -/* - * C shell - */ - -/* - * These lexical routines read input and form lists of words. - * There is some involved processing here, because of the complications - * of input buffering, and especially because of history substitution. - */ -static Char *word __P((void)); -static int getC1 __P((int)); -static void getdol __P((void)); -static void getexcl __P((int)); -static struct Hist *findev __P((Char *, bool)); -static void setexclp __P((Char *)); -static int bgetc __P((void)); -static void balloc __P((int)); -static void bfree __P((void)); -static struct wordent *gethent __P((int)); -static int matchs __P((Char *, Char *)); -static int getsel __P((int *, int *, int)); -static struct wordent *getsub __P((struct wordent *)); -static Char *subword __P((Char *, int, bool *)); -static struct wordent *dosub __P((int, struct wordent *, bool)); - -/* - * Peekc is a peek character for getC, peekread for readc. - * There is a subtlety here in many places... history routines - * will read ahead and then insert stuff into the input stream. - * If they push back a character then they must push it behind - * the text substituted by the history substitution. On the other - * hand in several places we need 2 peek characters. To make this - * all work, the history routines read with getC, and make use both - * of ungetC and unreadc. The key observation is that the state - * of getC at the call of a history reference is such that calls - * to getC from the history routines will always yield calls of - * readc, unless this peeking is involved. That is to say that during - * getexcl the variables lap, exclp, and exclnxt are all zero. - * - * Getdol invokes history substitution, hence the extra peek, peekd, - * which it can ungetD to be before history substitutions. - */ -static Char peekc = 0, peekd = 0; -static Char peekread = 0; - -/* (Tail of) current word from ! subst */ -static Char *exclp = NULL; - -/* The rest of the ! subst words */ -static struct wordent *exclnxt = NULL; - -/* Count of remaining words in ! subst */ -static int exclc = 0; - -/* "Globp" for alias resubstitution */ -int aret = F_SEEK; - -/* - * Labuf implements a general buffer for lookahead during lexical operations. - * Text which is to be placed in the input stream can be stuck here. - * We stick parsed ahead $ constructs during initial input, - * process id's from `$$', and modified variable values (from qualifiers - * during expansion in sh.dol.c) here. - */ -static Char labuf[BUFSIZE]; - -/* - * Lex returns to its caller not only a wordlist (as a "var" parameter) - * but also whether a history substitution occurred. This is used in - * the main (process) routine to determine whether to echo, and also - * when called by the alias routine to determine whether to keep the - * argument list. - */ -static bool hadhist = 0; - -/* - * Avoid alias expansion recursion via \!# - */ -int hleft; - -Char histline[BUFSIZE + 2]; /* last line input */ - - /* The +2 is to fool hp's optimizer */ -bool histvalid = 0; /* is histline valid */ -static Char *histlinep = NULL; /* current pointer into histline */ - -static Char getCtmp; - -#define getC(f) (((getCtmp = peekc) != '\0') ? (peekc = 0, getCtmp) : getC1(f)) -#define ungetC(c) peekc = (Char) c -#define ungetD(c) peekd = (Char) c - -/* Use Htime to store timestamps picked up from history file for enthist() - * if reading saved history (sg) - */ -time_t Htime = (time_t)0; -static time_t a2time_t __P((Char *)); - -/* - * for history event processing - * in the command 'echo !?foo?:1 !$' we want the !$ to expand from the line - * 'foo' was found instead of the last command - */ -static int uselastevent = 1; - -int -lex(hp) - struct wordent *hp; -{ - struct wordent *wdp; - int c; - - - uselastevent = 1; - histvalid = 0; - histlinep = histline; - *histlinep = '\0'; - - btell(&lineloc); - hp->next = hp->prev = hp; - hp->word = STRNULL; - hadhist = 0; - do - c = readc(0); - while (c == ' ' || c == '\t'); - if (c == HISTSUB && intty) - /* ^lef^rit from tty is short !:s^lef^rit */ - getexcl(c); - else - unreadc(c); - wdp = hp; - /* - * The following loop is written so that the links needed by freelex will - * be ready and rarin to go even if it is interrupted. - */ - do { - struct wordent *new; - - new = (struct wordent *) xmalloc((size_t) sizeof(*wdp)); - new->word = STRNULL; - new->prev = wdp; - new->next = hp; - wdp->next = new; - hp->prev = new; - wdp = new; - wdp->word = word(); - } while (wdp->word[0] != '\n'); - if (histlinep < histline + BUFSIZE) { - *histlinep = '\0'; - if (histlinep > histline && histlinep[-1] == '\n') - histlinep[-1] = '\0'; - histvalid = 1; - } - else { - histline[BUFSIZE - 1] = '\0'; - } - - return (hadhist); -} - -static time_t -a2time_t(word) - Char *word; -{ - /* Attempt to distinguish timestamps from other possible entries. - * Format: "+NNNNNNNNNN" (10 digits, left padded with ascii '0') */ - - time_t ret; - Char *s; - int ct; - - if (!word || *(s = word) != '+') - return (time_t)0; - - for (++s, ret = 0, ct = 0; *s; ++s, ++ct) - { - if (!isdigit((unsigned char)*s)) - return (time_t)0; - ret = ret * 10 + (time_t)((unsigned char)*s - '0'); - } - - if (ct != 10) - return (time_t)0; - - return ret; -} - -void -prlex(sp0) - struct wordent *sp0; -{ - struct wordent *sp = sp0->next; - - for (;;) { - xprintf("%S", sp->word); - sp = sp->next; - if (sp == sp0) - break; - if (sp->word[0] != '\n') - xputchar(' '); - } -} - -void -copylex(hp, fp) - struct wordent *hp; - struct wordent *fp; -{ - struct wordent *wdp; - - wdp = hp; - fp = fp->next; - do { - struct wordent *new; - - new = (struct wordent *) xmalloc((size_t) sizeof(*wdp)); - new->word = STRNULL; - new->prev = wdp; - new->next = hp; - wdp->next = new; - hp->prev = new; - wdp = new; - wdp->word = Strsave(fp->word); - fp = fp->next; - } while (wdp->word[0] != '\n'); -} - -void -freelex(vp) - struct wordent *vp; -{ - struct wordent *fp; - - while (vp->next != vp) { - fp = vp->next; - vp->next = fp->next; - if (fp->word != STRNULL) - xfree((ptr_t) fp->word); - xfree((ptr_t) fp); - } - vp->prev = vp; -} - -static Char * -word() -{ - Char c, c1; - Char *wp; - Char wbuf[BUFSIZE]; - Char hbuf[12]; - int h; - bool dolflg; - int i; -#if defined(DSPMBYTE) - int mbytepos = 1; -#endif /* DSPMBYTE */ - - wp = wbuf; - i = BUFSIZE - 4; -loop: - while ((c = getC(DOALL)) == ' ' || c == '\t') - continue; - if (cmap(c, _META | _ESC)) - switch (c) { - case '&': - case '|': - case '<': - case '>': - *wp++ = c; - c1 = getC(DOALL); - if (c1 == c) - *wp++ = c1; - else - ungetC(c1); - goto ret; - - case '#': - if (intty) - break; - c = 0; - h = 0; - do { - c1 = c; - c = getC(0); - if (h < 12) - hbuf[h++] = c; - } while (c != '\n'); - hbuf[11] = '\0'; - Htime = a2time_t(hbuf); - if (c1 == '\\') - goto loop; - /*FALLTHROUGH*/ - - case ';': - case '(': - case ')': - case '\n': - *wp++ = c; - goto ret; - - case '\\': - c = getC(0); - if (c == '\n') { - if (onelflg == 1) - onelflg = 2; - goto loop; - } - if (c != HIST) - *wp++ = '\\', --i; - c |= QUOTE; - default: - break; - } - c1 = 0; - dolflg = DOALL; - for (;;) { -#if defined(DSPMBYTE) - if (mbytepos == 2) - mbytepos = 1; - else if (mbytepos == 1 && Ismbyte1(c) && 2 <= i) - mbytepos = 2; - else -#endif /* DSPMBYTE */ - if (c1) { - if (c == c1) { - c1 = 0; - dolflg = DOALL; - } - else if (c == '\\') { - c = getC(0); -/* - * PWP: this is dumb, but how all of the other shells work. If \ quotes - * a character OUTSIDE of a set of ''s, why shouldn't it quote EVERY - * following character INSIDE a set of ''s. - * - * Actually, all I really want to be able to say is 'foo\'bar' --> foo'bar - */ - if (c == HIST) - c |= QUOTE; - else { - if (bslash_quote && - ((c == '\'') || (c == '"') || - (c == '\\'))) { - c |= QUOTE; - } - else { - if (c == '\n') - /* - * if (c1 == '`') c = ' '; else - */ - c |= QUOTE; - ungetC(c); - c = '\\'; - } - } - } - else if (c == '\n') { - seterror(ERR_UNMATCHED, c1); - ungetC(c); - break; - } - } - else if (cmap(c, _META | _QF | _QB | _ESC)) { - if (c == '\\') { - c = getC(0); - if (c == '\n') { - if (onelflg == 1) - onelflg = 2; - break; - } - if (c != HIST) - *wp++ = '\\', --i; - c |= QUOTE; - } - else if (cmap(c, _QF | _QB)) { /* '"` */ - c1 = c; - dolflg = c == '"' ? DOALL : DOEXCL; - } - else if (c != '#' || !intty) { - ungetC(c); - break; - } - } - if (--i > 0) { - *wp++ = c; - c = getC(dolflg); - } - else { - seterror(ERR_WTOOLONG); - wp = &wbuf[1]; - break; - } - } -ret: - *wp = 0; - return (Strsave(wbuf)); -} - -static int -getC1(flag) - int flag; -{ - Char c; - - for (;;) { - if ((c = peekc) != 0) { - peekc = 0; - return (c); - } - if (lap) { - if ((c = *lap++) == 0) - lap = 0; - else { - if (cmap(c, _META | _QF | _QB)) - c |= QUOTE; - return (c); - } - } - if ((c = peekd) != 0) { - peekd = 0; - return (c); - } - if (exclp) { - if ((c = *exclp++) != 0) - return (c); - if (exclnxt && --exclc >= 0) { - exclnxt = exclnxt->next; - setexclp(exclnxt->word); - return (' '); - } - exclp = 0; - exclnxt = 0; - /* this will throw away the dummy history entries */ - savehist(NULL, 0); - - } - if (exclnxt) { - exclnxt = exclnxt->next; - if (--exclc < 0) - exclnxt = 0; - else - setexclp(exclnxt->word); - continue; - } - c = readc(0); - if (c == '$' && (flag & DODOL)) { - getdol(); - continue; - } - if (c == HIST && (flag & DOEXCL)) { - getexcl(0); - continue; - } - break; - } - return (c); -} - -static void -getdol() -{ - Char *np, *ep; - Char name[4 * MAXVARLEN + 1]; - int c; - int sc; - bool special = 0, toolong; - - np = name, *np++ = '$'; - c = sc = getC(DOEXCL); - if (any("\t \n", c)) { - ungetD(c); - ungetC('$' | QUOTE); - return; - } - if (c == '{') - *np++ = (Char) c, c = getC(DOEXCL); - if (c == '#' || c == '?' || c == '%') - special++, *np++ = (Char) c, c = getC(DOEXCL); - *np++ = (Char) c; - switch (c) { - - case '<': - case '$': - case '!': - if (special) - seterror(ERR_SPDOLLT); - *np = 0; - addla(name); - return; - - case '\n': - ungetD(c); - np--; - if (!special) - seterror(ERR_NEWLINE); - *np = 0; - addla(name); - return; - - case '*': - if (special) - seterror(ERR_SPSTAR); - *np = 0; - addla(name); - return; - - default: - toolong = 0; - if (Isdigit(c)) { -#ifdef notdef - /* let $?0 pass for now */ - if (special) { - seterror(ERR_DIGIT); - *np = 0; - addla(name); - return; - } -#endif - /* we know that np < &name[4] */ - ep = &np[MAXVARLEN]; - while ((c = getC(DOEXCL)) != 0) { - if (!Isdigit(c)) - break; - if (np < ep) - *np++ = (Char) c; - else - toolong = 1; - } - } - else if (letter(c)) { - /* we know that np < &name[4] */ - ep = &np[MAXVARLEN]; - toolong = 0; - while ((c = getC(DOEXCL)) != 0) { - /* Bugfix for ${v123x} from Chris Torek, DAS DEC-90. */ - if (!letter(c) && !Isdigit(c)) - break; - if (np < ep) - *np++ = (Char) c; - else - toolong = 1; - } - } - else { - if (!special) - seterror(ERR_VARILL); - else { - ungetD(c); - --np; - } - *np = 0; - addla(name); - return; - } - if (toolong) { - seterror(ERR_VARTOOLONG); - *np = 0; - addla(name); - return; - } - break; - } - if (c == '[') { - *np++ = (Char) c; - /* - * Name up to here is a max of MAXVARLEN + 8. - */ - ep = &np[2 * MAXVARLEN + 8]; - do { - /* - * Michael Greim: Allow $ expansion to take place in selector - * expressions. (limits the number of characters returned) - */ - c = getC(DOEXCL | DODOL); - if (c == '\n') { - ungetD(c); - np--; - seterror(ERR_NLINDEX); - *np = 0; - addla(name); - return; - } - if (np < ep) - *np++ = (Char) c; - } while (c != ']'); - *np = '\0'; - if (np >= ep) { - seterror(ERR_SELOVFL); - addla(name); - return; - } - c = getC(DOEXCL); - } - /* - * Name up to here is a max of 2 * MAXVARLEN + 8. - */ - if (c == ':') { - /* - * if the :g modifier is followed by a newline, then error right away! - * -strike - */ - - int gmodflag = 0, amodflag = 0; - -#ifndef COMPAT - do { -#endif /* COMPAT */ - *np++ = (Char) c, c = getC(DOEXCL); - if (c == 'g' || c == 'a') { - if (c == 'g') - gmodflag++; - else - amodflag++; - *np++ = (Char) c; c = getC(DOEXCL); - } - if ((c == 'g' && !gmodflag) || (c == 'a' && !amodflag)) { - if (c == 'g') - gmodflag++; - else - amodflag++; - *np++ = (Char) c; c = getC(DOEXCL); - } - *np++ = (Char) c; - /* scan s// [eichin:19910926.0512EST] */ - if (c == 's') { - int delimcnt = 2; - int delim = getC(0); - *np++ = (Char) delim; - - if (!delim || letter(delim) - || Isdigit(delim) || any(" \t\n", delim)) { - seterror(ERR_BADSUBST); - break; - } - while ((c = getC(0)) != (-1)) { - *np++ = (Char) c; - if(c == delim) delimcnt--; - if(!delimcnt) break; - } - if(delimcnt) { - seterror(ERR_BADSUBST); - break; - } - c = 's'; - } - if (!any("htrqxesul", c)) { - if ((amodflag || gmodflag) && c == '\n') - stderror(ERR_VARSYN); /* strike */ - seterror(ERR_BADMOD, c); - *np = 0; - addla(name); - return; - } -#ifndef COMPAT - } - while ((c = getC(DOEXCL)) == ':'); - ungetD(c); -#endif /* COMPAT */ - } - else - ungetD(c); - if (sc == '{') { - c = getC(DOEXCL); - if (c != '}') { - ungetD(c); - seterror(ERR_MISSING, '}'); - *np = 0; - addla(name); - return; - } - *np++ = (Char) c; - } - *np = 0; - addla(name); - return; -} - -void -addla(cp) - Char *cp; -{ - Char buf[BUFSIZE]; - - if (Strlen(cp) + (lap ? Strlen(lap) : 0) >= - (sizeof(labuf) - 4) / sizeof(Char)) { - seterror(ERR_EXPOVFL); - return; - } - if (lap) - (void) Strcpy(buf, lap); - (void) Strcpy(labuf, cp); - if (lap) - (void) Strcat(labuf, buf); - lap = labuf; -} - -static Char lhsb[32]; -static Char slhs[32]; -static Char rhsb[64]; -static int quesarg; - -static void -getexcl(sc) - int sc; -{ - struct wordent *hp, *ip; - int left, right, dol; - int c; - - if (sc == 0) { - sc = getC(0); - if (sc != '{') { - ungetC(sc); - sc = 0; - } - } - quesarg = -1; - - if (uselastevent) { - uselastevent = 0; - lastev = eventno; - } - else - lastev = eventno; - hp = gethent(sc); - if (hp == 0) - return; - hadhist = 1; - dol = 0; - if (hp == alhistp) - for (ip = hp->next->next; ip != alhistt; ip = ip->next) - dol++; - else - for (ip = hp->next->next; ip != hp->prev; ip = ip->next) - dol++; - left = 0, right = dol; - if (sc == HISTSUB) { - ungetC('s'), unreadc(HISTSUB), c = ':'; - goto subst; - } - c = getC(0); - if (!any(":^$*-%", c)) - goto subst; - left = right = -1; - if (c == ':') { - c = getC(0); - unreadc(c); - if (letter(c) || c == '&') { - c = ':'; - left = 0, right = dol; - goto subst; - } - } - else - ungetC(c); - if (!getsel(&left, &right, dol)) - return; - c = getC(0); - if (c == '*') - ungetC(c), c = '-'; - if (c == '-') { - if (!getsel(&left, &right, dol)) - return; - c = getC(0); - } -subst: - exclc = right - left + 1; - while (--left >= 0) - hp = hp->next; - if (sc == HISTSUB || c == ':') { - do { - hp = getsub(hp); - c = getC(0); - } while (c == ':'); - } - unreadc(c); - if (sc == '{') { - c = getC(0); - if (c != '}') - seterror(ERR_BADBANG); - } - exclnxt = hp; -} - -static struct wordent * -getsub(en) - struct wordent *en; -{ - Char *cp; - int delim; - int c; - int sc; - bool global; - Char orhsb[sizeof(rhsb) / sizeof(Char)]; - -#ifndef COMPAT - do { -#endif /* COMPAT */ - exclnxt = 0; - global = 0; - sc = c = getC(0); - if (c == 'g' || c == 'a') { - global |= (c == 'g') ? 1 : 2; - sc = c = getC(0); - } - if (((c =='g') && !(global & 1)) || ((c == 'a') && !(global & 2))) { - global |= (c == 'g') ? 1 : 2; - sc = c = getC(0); - } - - switch (c) { - case 'p': - justpr++; - return (en); - - case 'x': - case 'q': - global |= 1; - /*FALLTHROUGH*/ - - case 'h': - case 'r': - case 't': - case 'e': - case 'u': - case 'l': - break; - - case '&': - if (slhs[0] == 0) { - seterror(ERR_NOSUBST); - return (en); - } - (void) Strcpy(lhsb, slhs); - break; - -#ifdef notdef - case '~': - if (lhsb[0] == 0) - goto badlhs; - break; -#endif - - case 's': - delim = getC(0); - if (letter(delim) || Isdigit(delim) || any(" \t\n", delim)) { - unreadc(delim); - lhsb[0] = 0; - seterror(ERR_BADSUBST); - return (en); - } - cp = lhsb; - for (;;) { - c = getC(0); - if (c == '\n') { - unreadc(c); - break; - } - if (c == delim) - break; - if (cp > &lhsb[sizeof(lhsb) / sizeof(Char) - 2]) { - lhsb[0] = 0; - seterror(ERR_BADSUBST); - return (en); - } - if (c == '\\') { - c = getC(0); - if (c != delim && c != '\\') - *cp++ = '\\'; - } - *cp++ = (Char) c; - } - if (cp != lhsb) - *cp++ = 0; - else if (lhsb[0] == 0) { - seterror(ERR_LHS); - return (en); - } - cp = rhsb; - (void) Strcpy(orhsb, cp); - for (;;) { - c = getC(0); - if (c == '\n') { - unreadc(c); - break; - } - if (c == delim) - break; -#ifdef notdef - if (c == '~') { - if (&cp[Strlen(orhsb)] > &rhsb[sizeof(rhsb) / - sizeof(Char) - 2]) - goto toorhs; - (void) Strcpy(cp, orhsb); - cp = Strend(cp); - continue; - } -#endif - if (cp > &rhsb[sizeof(rhsb) / sizeof(Char) - 2]) { - seterror(ERR_RHSLONG); - return (en); - } - if (c == '\\') { - c = getC(0); - if (c != delim /* && c != '~' */ ) - *cp++ = '\\'; - } - *cp++ = (Char) c; - } - *cp++ = 0; - break; - - default: - if (c == '\n') - unreadc(c); - seterror(ERR_BADBANGMOD, c); - return (en); - } - (void) Strcpy(slhs, lhsb); - if (exclc) - en = dosub(sc, en, global); -#ifndef COMPAT - } - while ((c = getC(0)) == ':'); - unreadc(c); -#endif /* COMPAT */ - return (en); -} - -/* - * - * From Beto Appleton (beto@aixwiz.austin.ibm.com) - * - * when using history substitution, and the variable - * 'history' is set to a value higher than 1000, - * the shell might either freeze (hang) or core-dump. - * We raise the limit to 50000000 - */ - -#define HIST_PURGE -50000000 -static struct wordent * -dosub(sc, en, global) - int sc; - struct wordent *en; - bool global; -{ - struct wordent lexi; - bool didsub = 0, didone = 0; - struct wordent *hp = &lexi; - struct wordent *wdp; - int i = exclc; - struct Hist *hst; - - wdp = hp; - while (--i >= 0) { - struct wordent *new = - (struct wordent *) xcalloc(1, sizeof *wdp); - - new->word = 0; - new->prev = wdp; - new->next = hp; - wdp->next = new; - wdp = new; - en = en->next; - if (en->word) { - Char *tword, *otword; - - if ((global & 1) || didsub == 0) { - tword = subword(en->word, sc, &didone); - if (didone) - didsub = 1; - if (global & 2) { - while (didone && tword != STRNULL) { - otword = tword; - tword = subword(otword, sc, &didone); - if (Strcmp(tword, otword) == 0) { - xfree((ptr_t) otword); - break; - } - else - xfree((ptr_t) otword); - } - } - } - else - tword = Strsave(en->word); - wdp->word = tword; - } - } - if (didsub == 0) - seterror(ERR_MODFAIL); - hp->prev = wdp; - /* - * ANSI mode HP/UX compiler chokes on - * return &enthist(HIST_PURGE, &lexi, 0)->Hlex; - */ - hst = enthist(HIST_PURGE, &lexi, 0, 0); - return &(hst->Hlex); -} - -static Char * -subword(cp, type, adid) - Char *cp; - int type; - bool *adid; -{ - Char wbuf[BUFSIZE]; - Char *wp, *mp, *np; - int i; - - *adid = 0; - switch (type) { - - case 'r': - case 'e': - case 'h': - case 't': - case 'q': - case 'x': - case 'u': - case 'l': - wp = domod(cp, type); - if (wp == 0) - return (Strsave(cp)); - *adid = 1; - return (wp); - - default: - wp = wbuf; - i = BUFSIZE - 4; - for (mp = cp; *mp; mp++) - if (matchs(mp, lhsb)) { - for (np = cp; np < mp;) - *wp++ = *np++, --i; - for (np = rhsb; *np; np++) - switch (*np) { - - case '\\': - if (np[1] == '&') - np++; - /* fall into ... */ - - default: - if (--i < 0) { - seterror(ERR_SUBOVFL); - return (STRNULL); - } - *wp++ = *np; - continue; - - case '&': - i -= Strlen(lhsb); - if (i < 0) { - seterror(ERR_SUBOVFL); - return (STRNULL); - } - *wp = 0; - (void) Strcat(wp, lhsb); - wp = Strend(wp); - continue; - } - mp += Strlen(lhsb); - i -= Strlen(mp); - if (i < 0) { - seterror(ERR_SUBOVFL); - return (STRNULL); - } - *wp = 0; - (void) Strcat(wp, mp); - *adid = 1; - return (Strsave(wbuf)); - } - return (Strsave(cp)); - } -} - -Char * -domod(cp, type) - Char *cp; - int type; -{ - Char *wp, *xp; - int c; - - switch (type) { - - case 'x': - case 'q': - wp = Strsave(cp); - for (xp = wp; (c = *xp) != 0; xp++) - if ((c != ' ' && c != '\t') || type == 'q') - *xp |= QUOTE; - return (wp); - - case 'l': - wp = Strsave(cp); - for (cp = wp; *cp; cp++) - if (Isupper(*cp)) { - *cp = Tolower(*cp); - return wp; - } - return wp; - - case 'u': - wp = Strsave(cp); - for (cp = wp; *cp; cp++) - if (Islower(*cp)) { - *cp = Toupper(*cp); - return wp; - } - return wp; - - case 'h': - case 't': - if (!any(short2str(cp), '/')) - return (type == 't' ? Strsave(cp) : 0); - wp = Strend(cp); - while (*--wp != '/') - continue; - if (type == 'h') - xp = Strsave(cp), xp[wp - cp] = 0; - else - xp = Strsave(wp + 1); - return (xp); - - case 'e': - case 'r': - wp = Strend(cp); - for (wp--; wp >= cp && *wp != '/'; wp--) - if (*wp == '.') { - if (type == 'e') - xp = Strsave(wp + 1); - else - xp = Strsave(cp), xp[wp - cp] = 0; - return (xp); - } - return (Strsave(type == 'e' ? STRNULL : cp)); - default: - break; - } - return (0); -} - -static int -matchs(str, pat) - Char *str, *pat; -{ - while (*str && *pat && *str == *pat) - str++, pat++; - return (*pat == 0); -} - -static int -getsel(al, ar, dol) - int *al, *ar; - int dol; -{ - int c = getC(0); - int i; - bool first = *al < 0; - - switch (c) { - - case '%': - if (quesarg == -1) { - seterror(ERR_BADBANGARG); - return (0); - } - if (*al < 0) - *al = quesarg; - *ar = quesarg; - break; - - case '-': - if (*al < 0) { - *al = 0; - *ar = dol - 1; - unreadc(c); - } - return (1); - - case '^': - if (*al < 0) - *al = 1; - *ar = 1; - break; - - case '$': - if (*al < 0) - *al = dol; - *ar = dol; - break; - - case '*': - if (*al < 0) - *al = 1; - *ar = dol; - if (*ar < *al) { - *ar = 0; - *al = 1; - return (1); - } - break; - - default: - if (Isdigit(c)) { - i = 0; - while (Isdigit(c)) { - i = i * 10 + c - '0'; - c = getC(0); - } - if (i < 0) - i = dol + 1; - if (*al < 0) - *al = i; - *ar = i; - } - else if (*al < 0) - *al = 0, *ar = dol; - else - *ar = dol - 1; - unreadc(c); - break; - } - if (first) { - c = getC(0); - unreadc(c); - if (any("-$*", c)) - return (1); - } - if (*al > *ar || *ar > dol) { - seterror(ERR_BADBANGARG); - return (0); - } - return (1); - -} - -static struct wordent * -gethent(sc) - int sc; -{ - struct Hist *hp; - Char *np; - int c; - int event; - bool back = 0; - - c = sc == HISTSUB ? HIST : getC(0); - if (c == HIST) { - if (alhistp) - return (alhistp); - event = eventno; - } - else - switch (c) { - - case ':': - case '^': - case '$': - case '*': - case '%': - ungetC(c); - if (lastev == eventno && alhistp) - return (alhistp); - event = lastev; - break; - - case '#': /* !# is command being typed in (mrh) */ - if (--hleft == 0) { - seterror(ERR_HISTLOOP); - return (0); - } - else - return (¶ml); - /* NOTREACHED */ - - case '-': - back = 1; - c = getC(0); - /* FALLSTHROUGH */ - - default: - if (any("(=~", c)) { - unreadc(c); - ungetC(HIST); - return (0); - } - np = lhsb; - event = 0; - while (!cmap(c, _ESC | _META | _QF | _QB) && !any("^*-%${}:#", c)) { - if (event != -1 && Isdigit(c)) - event = event * 10 + c - '0'; - else - event = -1; - if (np < &lhsb[sizeof(lhsb) / sizeof(Char) - 2]) - *np++ = (Char) c; - c = getC(0); - } - unreadc(c); - if (np == lhsb) { - ungetC(HIST); - return (0); - } - *np++ = 0; - if (event != -1) { - /* - * History had only digits - */ - if (back) - event = eventno + (alhistp == 0) - (event ? event : 0); - break; - } - if (back) { - event = sizeof(lhsb) / sizeof(lhsb[0]); - np = &lhsb[--event]; - *np-- = '\0'; - for (event--; np > lhsb; *np-- = lhsb[--event]) - continue; - *np = '-'; - } - hp = findev(lhsb, 0); - if (hp) - lastev = hp->Hnum; - return (&hp->Hlex); - - case '?': - np = lhsb; - for (;;) { - c = getC(0); - if (c == '\n') { - unreadc(c); - break; - } - if (c == '?') - break; - if (np < &lhsb[sizeof(lhsb) / sizeof(Char) - 2]) - *np++ = (Char) c; - } - if (np == lhsb) { - if (lhsb[0] == 0) { - seterror(ERR_NOSEARCH); - return (0); - } - } - else - *np++ = 0; - hp = findev(lhsb, 1); - if (hp) - lastev = hp->Hnum; - return (&hp->Hlex); - } - - for (hp = Histlist.Hnext; hp; hp = hp->Hnext) - if (hp->Hnum == event) { - hp->Href = eventno; - lastev = hp->Hnum; - return (&hp->Hlex); - } - np = putn(event); - seterror(ERR_NOEVENT, short2str(np)); - return (0); -} - -static struct Hist * -findev(cp, anyarg) - Char *cp; - bool anyarg; -{ - struct Hist *hp; - - for (hp = Histlist.Hnext; hp; hp = hp->Hnext) { - Char *dp; - Char *p, *q; - struct wordent *lp = hp->Hlex.next; - int argno = 0; - - /* - * The entries added by alias substitution don't have a newline but do - * have a negative event number. Savehist() trims off these entries, - * but it happens before alias expansion, too early to delete those - * from the previous command. - */ - if (hp->Hnum < 0) - continue; - if (lp->word[0] == '\n') - continue; - if (!anyarg) { - p = cp; - q = lp->word; - do - if (!*p) - return (hp); - while (*p++ == *q++); - continue; - } - do { - for (dp = lp->word; *dp; dp++) { - p = cp; - q = dp; - do - if (!*p) { - quesarg = argno; - return (hp); - } - while (*p++ == *q++); - } - lp = lp->next; - argno++; - } while (lp->word[0] != '\n'); - } - seterror(ERR_NOEVENT, short2str(cp)); - return (0); -} - - -static void -setexclp(cp) - Char *cp; -{ - if (cp && cp[0] == '\n') - return; - exclp = cp; -} - -void -unreadc(c) - int c; -{ - peekread = (Char) c; -} - -int -readc(wanteof) - bool wanteof; -{ - int c; - static int sincereal; /* Number of real EOFs we've seen */ - Char *ptr; /* For STRignoreeof */ - int numeof = 0; /* Value of STRignoreeof */ - -#ifdef DEBUG_INP - xprintf("readc\n"); -#endif - if ((c = peekread) != 0) { - peekread = 0; - return (c); - } - - /* Compute the value of EOFs */ - if ((ptr = varval(STRignoreeof)) != STRNULL) { - while (*ptr) { - if (!Isdigit(*ptr)) { - numeof = 0; - break; - } - numeof = numeof * 10 + *ptr++ - '0'; - } - } - if (numeof < 1) numeof = 26; /* Sanity check */ - -top: - aret = F_SEEK; - if (alvecp) { - arun = 1; -#ifdef DEBUG_INP - xprintf("alvecp %c\n", *alvecp & 0xff); -#endif - aret = A_SEEK; - if ((c = *alvecp++) != 0) - return (c); - if (alvec && *alvec) { - alvecp = *alvec++; - return (' '); - } - else { - alvecp = NULL; - aret = F_SEEK; - return('\n'); - } - } - if (alvec) { - arun = 1; - if ((alvecp = *alvec) != 0) { - alvec++; - goto top; - } - /* Infinite source! */ - return ('\n'); - } - arun = 0; - if (evalp) { - aret = E_SEEK; - if ((c = *evalp++) != 0) - return (c); - if (evalvec && *evalvec) { - evalp = *evalvec++; - return (' '); - } - aret = F_SEEK; - evalp = 0; - } - if (evalvec) { - if (evalvec == INVPPTR) { - doneinp = 1; - reset(); - } - if ((evalp = *evalvec) != 0) { - evalvec++; - goto top; - } - evalvec = INVPPTR; - return ('\n'); - } - do { - if (arginp == INVPTR || onelflg == 1) { - if (wanteof) - return (-1); - exitstat(); - } - if (arginp) { - if ((c = *arginp++) == 0) { - arginp = INVPTR; - return ('\n'); - } - return (c); - } -#ifdef BSDJOBS -reread: -#endif /* BSDJOBS */ - c = bgetc(); - if (c < 0) { -#ifndef WINNT -# ifndef POSIX -# ifdef TERMIO - struct termio tty; -# else /* SGTTYB */ - struct sgttyb tty; -# endif /* TERMIO */ -# else /* POSIX */ - struct termios tty; -# endif /* POSIX */ -#endif /* !WINNT */ - if (wanteof) - return (-1); - /* was isatty but raw with ignoreeof yields problems */ -#ifndef WINNT -# ifndef POSIX -# ifdef TERMIO - if (ioctl(SHIN, TCGETA, (ioctl_t) & tty) == 0 && - (tty.c_lflag & ICANON)) -# else /* GSTTYB */ - if (ioctl(SHIN, TIOCGETP, (ioctl_t) & tty) == 0 && - (tty.sg_flags & RAW) == 0) -# endif /* TERMIO */ -# else /* POSIX */ - if (tcgetattr(SHIN, &tty) == 0 && - (tty.c_lflag & ICANON)) -# endif /* POSIX */ -#else /* WINNT */ - if (isatty(SHIN)) -#endif /* !WINNT */ - { - /* was 'short' for FILEC */ -#ifdef BSDJOBS - int ctpgrp; -#endif /* BSDJOBS */ - - if (++sincereal >= numeof) /* Too many EOFs? Bye! */ - goto oops; -#ifdef BSDJOBS - if (tpgrp != -1 && - (ctpgrp = tcgetpgrp(FSHTTY)) != -1 && - tpgrp != ctpgrp) { - (void) tcsetpgrp(FSHTTY, tpgrp); -# ifdef _SEQUENT_ - if (ctpgrp) -# endif /* _SEQUENT */ - (void) killpg((pid_t) ctpgrp, SIGHUP); -# ifdef notdef - /* - * With the walking process group fix, this message - * is now obsolete. As the foreground process group - * changes, the shell needs to adjust. Well too bad. - */ - xprintf(CGETS(16, 1, "Reset tty pgrp from %d to %d\n"), - ctpgrp, tpgrp); -# endif /* notdef */ - goto reread; - } -#endif /* BSDJOBS */ - /* What follows is complicated EOF handling -- sterling@netcom.com */ - /* First, we check to see if we have ignoreeof set */ - if (adrof(STRignoreeof)) { - /* If so, we check for any stopped jobs only on the first EOF */ - if ((sincereal == 1) && (chkstop == 0)) { - panystop(1); - } - } else { - /* If we don't have ignoreeof set, always check for stopped jobs */ - if (chkstop == 0) { - panystop(1); - } - } - /* At this point, if there were stopped jobs, we would have already - * called reset(). If we got this far, assume we can print an - * exit/logout message if we ignoreeof, or just exit. - */ - if (adrof(STRignoreeof)) { - /* If so, tell the user to use exit or logout */ - if (loginsh) { - xprintf(CGETS(16, 2, - "\nUse \"logout\" to logout.\n")); - } else { - xprintf(CGETS(16, 3, - "\nUse \"exit\" to leave %s.\n"), - progname); - } - reset(); - } else { - /* If we don't have ignoreeof set, just fall through */ - ; /* EMPTY */ - } - } - oops: - doneinp = 1; - reset(); - } - sincereal = 0; - if (c == '\n' && onelflg) - onelflg--; - } while (c == 0); - if (histlinep < histline + BUFSIZE) - *histlinep++ = (Char) c; - return (c); -} - -static void -balloc(buf) - int buf; -{ - Char **nfbuf; - - while (buf >= fblocks) { - nfbuf = (Char **) xcalloc((size_t) (fblocks + 2), - sizeof(Char **)); - if (fbuf) { - (void) blkcpy(nfbuf, fbuf); - xfree((ptr_t) fbuf); - } - fbuf = nfbuf; - fbuf[fblocks] = (Char *) xcalloc(BUFSIZE, sizeof(Char)); - fblocks++; - } -} - -static int -bgetc() -{ - int c, off, buf; - int numleft = 0, roomleft; - char tbuf[BUFSIZE + 1]; - - if (cantell) { - if (fseekp < fbobp || fseekp > feobp) { - fbobp = feobp = fseekp; - (void) lseek(SHIN, fseekp, L_SET); - } - if (fseekp == feobp) { - int i; - - fbobp = feobp; - do - c = read(SHIN, tbuf, BUFSIZE); - while (c < 0 && errno == EINTR); -#ifdef convex - if (c < 0) - stderror(ERR_SYSTEM, progname, strerror(errno)); -#endif /* convex */ - if (c <= 0) - return (-1); - for (i = 0; i < c; i++) - fbuf[0][i] = (unsigned char) tbuf[i]; - feobp += c; - } -#ifndef WINNT - c = fbuf[0][fseekp - fbobp]; - fseekp++; -#else - do { - c = fbuf[0][fseekp - fbobp]; - fseekp++; - } while(c == '\r'); -#endif /* !WINNT */ - return (c); - } - - while (fseekp >= feobp) { - if (editing && intty) { /* then use twenex routine */ - fseekp = feobp; /* where else? */ - c = numleft = Inputl(); /* PWP: get a line */ - while (numleft > 0) { - off = (int) feobp % BUFSIZE; - buf = (int) feobp / BUFSIZE; - balloc(buf); - roomleft = BUFSIZE - off; - if (roomleft > numleft) - roomleft = numleft; - (void) memmove((ptr_t) (fbuf[buf] + off), (ptr_t) (InputBuf + c - numleft), (size_t) (roomleft * sizeof(Char))); - numleft -= roomleft; - feobp += roomleft; - } - } - else { - off = (int) feobp % BUFSIZE; - buf = (int) feobp / BUFSIZE; - balloc(buf); - roomleft = BUFSIZE - off; - c = read(SHIN, tbuf, (size_t) roomleft); - if (c > 0) { - int i; - Char *ptr = fbuf[buf] + off; - - for (i = 0; i < c; i++) - ptr[i] = (unsigned char) tbuf[i]; - feobp += c; - } - } - if (c == 0 || (c < 0 && fixio(SHIN, errno) == -1)) - return (-1); - } -#ifndef WINNT - c = fbuf[(int) fseekp / BUFSIZE][(int) fseekp % BUFSIZE]; - fseekp++; -#else - do { - c = fbuf[(int) fseekp / BUFSIZE][(int) fseekp % BUFSIZE]; - fseekp++; - } while(c == '\r'); -#endif /* !WINNT */ - return (c); -} - -static void -bfree() -{ - int sb, i; - - if (cantell) - return; - if (whyles) - return; - sb = (int) (fseekp - 1) / BUFSIZE; - if (sb > 0) { - for (i = 0; i < sb; i++) - xfree((ptr_t) fbuf[i]); - (void) blkcpy(fbuf, &fbuf[sb]); - fseekp -= BUFSIZE * sb; - feobp -= BUFSIZE * sb; - fblocks -= sb; - } -} - -void -bseek(l) - struct Ain *l; -{ - switch (aret = l->type) { - case E_SEEK: - evalvec = l->a_seek; - evalp = l->c_seek; -#ifdef DEBUG_SEEK - xprintf(CGETS(16, 4, "seek to eval %x %x\n"), evalvec, evalp); -#endif - return; - case A_SEEK: - alvec = l->a_seek; - alvecp = l->c_seek; -#ifdef DEBUG_SEEK - xprintf(CGETS(16, 5, "seek to alias %x %x\n"), alvec, alvecp); -#endif - return; - case F_SEEK: -#ifdef DEBUG_SEEK - xprintf(CGETS(16, 6, "seek to file %x\n"), fseekp); -#endif - fseekp = l->f_seek; - return; - default: - xprintf(CGETS(16, 7, "Bad seek type %d\n"), aret); - abort(); - } -} - -/* any similarity to bell telephone is purely accidental */ -void -btell(l) -struct Ain *l; -{ - switch (l->type = aret) { - case E_SEEK: - l->a_seek = evalvec; - l->c_seek = evalp; -#ifdef DEBUG_SEEK - xprintf(CGETS(16, 8, "tell eval %x %x\n"), evalvec, evalp); -#endif - return; - case A_SEEK: - l->a_seek = alvec; - l->c_seek = alvecp; -#ifdef DEBUG_SEEK - xprintf(CGETS(16, 9, "tell alias %x %x\n"), alvec, alvecp); -#endif - return; - case F_SEEK: - /*SUPPRESS 112*/ - l->f_seek = fseekp; - l->a_seek = NULL; -#ifdef DEBUG_SEEK - xprintf(CGETS(16, 10, "tell file %x\n"), fseekp); -#endif - return; - default: - xprintf(CGETS(16, 7, "Bad seek type %d\n"), aret); - abort(); - } -} - -void -btoeof() -{ - (void) lseek(SHIN, (off_t) 0, L_XTND); - aret = F_SEEK; - fseekp = feobp; - alvec = NULL; - alvecp = NULL; - evalvec = NULL; - evalp = NULL; - wfree(); - bfree(); -} - -void -settell() -{ - off_t x; - cantell = 0; - if (arginp || onelflg || intty) - return; - if ((x = lseek(SHIN, (off_t) 0, L_INCR)) == -1) - return; - fbuf = (Char **) xcalloc(2, sizeof(Char **)); - fblocks = 1; - fbuf[0] = (Char *) xcalloc(BUFSIZE, sizeof(Char)); - fseekp = fbobp = feobp = x; - cantell = 1; -} diff --git a/contrib/tcsh/sh.misc.c b/contrib/tcsh/sh.misc.c deleted file mode 100644 index 5b3595319f27..000000000000 --- a/contrib/tcsh/sh.misc.c +++ /dev/null @@ -1,516 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.misc.c,v 3.23 1997/02/23 19:03:23 christos Exp $ */ -/* - * sh.misc.c: Miscelaneous functions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.misc.c,v 3.23 1997/02/23 19:03:23 christos Exp $") - -static int renum __P((int, int)); -static Char **blkend __P((Char **)); -static Char **blkcat __P((Char **, Char **)); - -/* - * C Shell - */ - -int -any(s, c) - register char *s; - register int c; -{ - if (!s) - return (0); /* Check for nil pointer */ - while (*s) - if (*s++ == c) - return (1); - return (0); -} - -void -setzero(cp, i) - char *cp; - int i; -{ - if (i != 0) - do - *cp++ = 0; - while (--i); -} - -char * -strsave(s) - register const char *s; -{ - char *n; - register char *p; - - if (s == NULL) - s = (const char *) ""; - for (p = (char *) s; *p++ != '\0';) - continue; - n = p = (char *) xmalloc((size_t) - ((((const char *) p) - s) * sizeof(char))); - while ((*p++ = *s++) != '\0') - continue; - return (n); -} - -static Char ** -blkend(up) - register Char **up; -{ - - while (*up) - up++; - return (up); -} - - -void -blkpr(av) - register Char **av; -{ - - for (; *av; av++) { - xprintf("%S", *av); - if (av[1]) - xprintf(" "); - } -} - -void -blkexpand(av, str) - register Char **av; - Char *str; -{ - *str = '\0'; - for (; *av; av++) { - (void) Strcat(str, *av); - if (av[1]) - (void) Strcat(str, STRspace); - } -} - -int -blklen(av) - register Char **av; -{ - register int i = 0; - - while (*av++) - i++; - return (i); -} - -Char ** -blkcpy(oav, bv) - Char **oav; - register Char **bv; -{ - register Char **av = oav; - - while ((*av++ = *bv++) != NULL) - continue; - return (oav); -} - -static Char ** -blkcat(up, vp) - Char **up, **vp; -{ - - (void) blkcpy(blkend(up), vp); - return (up); -} - -void -blkfree(av0) - Char **av0; -{ - register Char **av = av0; - - if (!av0) - return; - for (; *av; av++) - xfree((ptr_t) * av); - xfree((ptr_t) av0); -} - -Char ** -saveblk(v) - register Char **v; -{ - register Char **newv = - (Char **) xcalloc((size_t) (blklen(v) + 1), sizeof(Char **)); - Char **onewv = newv; - - while (*v) - *newv++ = Strsave(*v++); - return (onewv); -} - -#if !defined(SHORT_STRINGS) && !defined(POSIX) -char * -strstr(s, t) - register const char *s, *t; -{ - do { - register const char *ss = s; - register const char *tt = t; - - do - if (*tt == '\0') - return ((char *) s); - while (*ss++ == *tt++); - } while (*s++ != '\0'); - return (NULL); -} - -#endif /* !SHORT_STRINGS && !POSIX */ - -#ifndef SHORT_STRINGS -char * -strspl(cp, dp) - char *cp, *dp; -{ - char *ep; - register char *p, *q; - - if (!cp) - cp = ""; - if (!dp) - dp = ""; - for (p = cp; *p++ != '\0';) - continue; - for (q = dp; *q++ != '\0';) - continue; - ep = (char *) xmalloc((size_t) (((p - cp) + (q - dp) - 1) * sizeof(char))); - for (p = ep, q = cp; (*p++ = *q++) != '\0';) - continue; - for (p--, q = dp; (*p++ = *q++) != '\0';) - continue; - return (ep); -} - -#endif /* !SHORT_STRINGS */ - -Char ** -blkspl(up, vp) - register Char **up, **vp; -{ - register Char **wp = - (Char **) xcalloc((size_t) (blklen(up) + blklen(vp) + 1), - sizeof(Char **)); - - (void) blkcpy(wp, up); - return (blkcat(wp, vp)); -} - -Char -lastchr(cp) - register Char *cp; -{ - - if (!cp) - return (0); - if (!*cp) - return (0); - while (cp[1]) - cp++; - return (*cp); -} - -/* - * This routine is called after an error to close up - * any units which may have been left open accidentally. - */ -void -closem() -{ - register int f; - -#ifdef YPBUGS - /* suggested by Justin Bur; thanks to Karl Kleinpaste */ - fix_yp_bugs(); -#endif /* YPBUGS */ - for (f = 0; f < NOFILE; f++) - if (f != SHIN && f != SHOUT && f != SHDIAG && f != OLDSTD && - f != FSHTTY -#ifdef MALLOC_TRACE - && f != 25 -#endif /* MALLOC_TRACE */ - ) - { - (void) close(f); -#ifdef NISPLUS - if(f < 3) - (void) open(_PATH_DEVNULL, O_RDONLY); -#endif /* NISPLUS */ - } -} - -#ifndef CLOSE_ON_EXEC -/* - * Close files before executing a file. - * We could be MUCH more intelligent, since (on a version 7 system) - * we need only close files here during a source, the other - * shell fd's being in units 16-19 which are closed automatically! - */ -void -closech() -{ - register int f; - - if (didcch) - return; - didcch = 1; - SHIN = 0; - SHOUT = 1; - SHDIAG = 2; - OLDSTD = 0; - isoutatty = isatty(SHOUT); - isdiagatty = isatty(SHDIAG); - for (f = 3; f < NOFILE; f++) - (void) close(f); -} - -#endif /* CLOSE_ON_EXEC */ - -void -donefds() -{ - - (void) close(0); - (void) close(1); - (void) close(2); - didfds = 0; -#ifdef NISPLUS - { - int fd = open(_PATH_DEVNULL, O_RDONLY); - (void) dup2(fd, 1); - (void) dup2(fd, 2); - if (fd != 0) { - (void) dup2(fd, 0); - (void) close(fd); - } - } -#endif /*NISPLUS*/ -} - -/* - * Move descriptor i to j. - * If j is -1 then we just want to get i to a safe place, - * i.e. to a unit > 2. This also happens in dcopy. - */ -int -dmove(i, j) - register int i, j; -{ - - if (i == j || i < 0) - return (i); -#ifdef HAVEDUP2 - if (j >= 0) { - (void) dup2(i, j); - if (j != i) - (void) close(i); - return (j); - } -#endif - j = dcopy(i, j); - if (j != i) - (void) close(i); - return (j); -} - -int -dcopy(i, j) - register int i, j; -{ - - if (i == j || i < 0 || (j < 0 && i > 2)) - return (i); - if (j >= 0) { -#ifdef HAVEDUP2 - (void) dup2(i, j); - return (j); -#else - (void) close(j); -#endif - } - return (renum(i, j)); -} - -static int -renum(i, j) - register int i, j; -{ - register int k = dup(i); - - if (k < 0) - return (-1); - if (j == -1 && k > 2) - return (k); - if (k != j) { - j = renum(k, j); - (void) close(k); - return (j); - } - return (k); -} - -/* - * Left shift a command argument list, discarding - * the first c arguments. Used in "shift" commands - * as well as by commands like "repeat". - */ -void -lshift(v, c) - register Char **v; - register int c; -{ - register Char **u; - - for (u = v; *u && --c >= 0; u++) - xfree((ptr_t) *u); - (void) blkcpy(v, u); -} - -int -number(cp) - Char *cp; -{ - if (!cp) - return (0); - if (*cp == '-') { - cp++; - if (!Isdigit(*cp)) - return (0); - cp++; - } - while (*cp && Isdigit(*cp)) - cp++; - return (*cp == 0); -} - -Char ** -copyblk(v) - register Char **v; -{ - register Char **nv = - (Char **) xcalloc((size_t) (blklen(v) + 1), sizeof(Char **)); - - return (blkcpy(nv, v)); -} - -#ifndef SHORT_STRINGS -char * -strend(cp) - register char *cp; -{ - if (!cp) - return (cp); - while (*cp) - cp++; - return (cp); -} - -#endif /* SHORT_STRINGS */ - -Char * -strip(cp) - Char *cp; -{ - register Char *dp = cp; - - if (!cp) - return (cp); - while ((*dp++ &= TRIM) != '\0') - continue; - return (cp); -} - -Char * -quote(cp) - Char *cp; -{ - register Char *dp = cp; - - if (!cp) - return (cp); - while (*dp != '\0') - *dp++ |= QUOTE; - return (cp); -} - -Char * -quote_meta(d, s) - Char *d; - const Char *s; -{ - Char *r = d; - while (*s != '\0') { - if (cmap(*s, _META | _DOL | _QF | _QB | _ESC | _GLOB)) - *d++ = '\\'; - *d++ = *s++; - } - *d = '\0'; - return r; -} - -void -udvar(name) - Char *name; -{ - - setname(short2str(name)); - stderror(ERR_NAME | ERR_UNDVAR); -} - -int -prefix(sub, str) - register Char *sub, *str; -{ - - for (;;) { - if (*sub == 0) - return (1); - if (*str == 0) - return (0); - if ((*sub++ & TRIM) != (*str++ & TRIM)) - return (0); - } -} diff --git a/contrib/tcsh/sh.parse.c b/contrib/tcsh/sh.parse.c deleted file mode 100644 index ac91ed88777a..000000000000 --- a/contrib/tcsh/sh.parse.c +++ /dev/null @@ -1,706 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.parse.c,v 3.10 1996/04/26 19:20:04 christos Exp $ */ -/* - * sh.parse.c: Interpret a list of tokens - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.parse.c,v 3.10 1996/04/26 19:20:04 christos Exp $") - -/* - * C shell - */ -static void asyntax __P((struct wordent *, struct wordent *)); -static void asyn0 __P((struct wordent *, struct wordent *)); -static void asyn3 __P((struct wordent *, struct wordent *)); -static struct wordent *freenod __P((struct wordent *, struct wordent *)); -static struct command *syn0 __P((struct wordent *, struct wordent *, int)); -static struct command *syn1 __P((struct wordent *, struct wordent *, int)); -static struct command *syn1a __P((struct wordent *, struct wordent *, int)); -static struct command *syn1b __P((struct wordent *, struct wordent *, int)); -static struct command *syn2 __P((struct wordent *, struct wordent *, int)); -static struct command *syn3 __P((struct wordent *, struct wordent *, int)); - -#define ALEFT 51 /* max of 50 alias expansions */ -#define HLEFT 11 /* max of 10 history expansions */ -/* - * Perform aliasing on the word list lexp - * Do a (very rudimentary) parse to separate into commands. - * If word 0 of a command has an alias, do it. - * Repeat a maximum of 50 times. - */ -static int aleft; -extern int hleft; -void -alias(lexp) - register struct wordent *lexp; -{ - jmp_buf_t osetexit; - - aleft = ALEFT; - hleft = HLEFT; - getexit(osetexit); - (void) setexit(); - if (haderr) { - resexit(osetexit); - reset(); - } - if (--aleft == 0) - stderror(ERR_ALIASLOOP); - asyntax(lexp->next, lexp); - resexit(osetexit); -} - -static void -asyntax(p1, p2) - register struct wordent *p1, *p2; -{ - while (p1 != p2) - if (any(";&\n", p1->word[0])) - p1 = p1->next; - else { - asyn0(p1, p2); - return; - } -} - -static void -asyn0(p1, p2) - struct wordent *p1; - register struct wordent *p2; -{ - register struct wordent *p; - register int l = 0; - - for (p = p1; p != p2; p = p->next) - switch (p->word[0]) { - - case '(': - l++; - continue; - - case ')': - l--; - if (l < 0) - stderror(ERR_TOOMANYRP); - continue; - - case '>': - if (p->next != p2 && eq(p->next->word, STRand)) - p = p->next; - continue; - - case '&': - case '|': - case ';': - case '\n': - if (l != 0) - continue; - asyn3(p1, p); - asyntax(p->next, p2); - return; - - default: - break; - } - if (l == 0) - asyn3(p1, p2); -} - -static void -asyn3(p1, p2) - struct wordent *p1; - register struct wordent *p2; -{ - register struct varent *ap; - struct wordent alout; - register bool redid; - - if (p1 == p2) - return; - if (p1->word[0] == '(') { - for (p2 = p2->prev; p2->word[0] != ')'; p2 = p2->prev) - if (p2 == p1) - return; - if (p2 == p1->next) - return; - asyn0(p1->next, p2); - return; - } - ap = adrof1(p1->word, &aliases); - if (ap == 0) - return; - alhistp = p1->prev; - alhistt = p2; - alvec = ap->vec; - redid = lex(&alout); - alhistp = alhistt = 0; - alvec = 0; - if (seterr) { - freelex(&alout); - stderror(ERR_OLD); - } - if (p1->word[0] && eq(p1->word, alout.next->word)) { - Char *cp = alout.next->word; - - alout.next->word = Strspl(STRQNULL, cp); - xfree((ptr_t) cp); - } - p1 = freenod(p1, redid ? p2 : p1->next); - if (alout.next != &alout) { - p1->next->prev = alout.prev->prev; - alout.prev->prev->next = p1->next; - alout.next->prev = p1; - p1->next = alout.next; - xfree((ptr_t) alout.prev->word); - xfree((ptr_t) (alout.prev)); - } - reset(); /* throw! */ -} - -static struct wordent * -freenod(p1, p2) - register struct wordent *p1, *p2; -{ - register struct wordent *retp = p1->prev; - - while (p1 != p2) { - xfree((ptr_t) p1->word); - p1 = p1->next; - xfree((ptr_t) (p1->prev)); - } - retp->next = p2; - p2->prev = retp; - return (retp); -} - -#define P_HERE 1 -#define P_IN 2 -#define P_OUT 4 -#define P_DIAG 8 - -/* - * syntax - * empty - * syn0 - */ -struct command * -syntax(p1, p2, flags) - register struct wordent *p1, *p2; - int flags; -{ - - while (p1 != p2) - if (any(";&\n", p1->word[0])) - p1 = p1->next; - else - return (syn0(p1, p2, flags)); - return (0); -} - -/* - * syn0 - * syn1 - * syn1 & syntax - */ -static struct command * -syn0(p1, p2, flags) - struct wordent *p1, *p2; - int flags; -{ - register struct wordent *p; - register struct command *t, *t1; - int l; - - l = 0; - for (p = p1; p != p2; p = p->next) - switch (p->word[0]) { - - case '(': - l++; - continue; - - case ')': - l--; - if (l < 0) - seterror(ERR_TOOMANYRP); - continue; - - case '|': - if (p->word[1] == '|') - continue; - /*FALLTHROUGH*/ - - case '>': - if (p->next != p2 && eq(p->next->word, STRand)) - p = p->next; - continue; - - case '&': - if (l != 0) - break; - if (p->word[1] == '&') - continue; - t1 = syn1(p1, p, flags); - if (t1->t_dtyp == NODE_LIST || - t1->t_dtyp == NODE_AND || - t1->t_dtyp == NODE_OR) { - t = (struct command *) xcalloc(1, sizeof(*t)); - t->t_dtyp = NODE_PAREN; - t->t_dflg = F_AMPERSAND | F_NOINTERRUPT; - t->t_dspr = t1; - t1 = t; - } - else - t1->t_dflg |= F_AMPERSAND | F_NOINTERRUPT; - t = (struct command *) xcalloc(1, sizeof(*t)); - t->t_dtyp = NODE_LIST; - t->t_dflg = 0; - t->t_dcar = t1; - t->t_dcdr = syntax(p, p2, flags); - return (t); - default: - break; - } - if (l == 0) - return (syn1(p1, p2, flags)); - seterror(ERR_TOOMANYLP); - return (0); -} - -/* - * syn1 - * syn1a - * syn1a ; syntax - */ -static struct command * -syn1(p1, p2, flags) - struct wordent *p1, *p2; - int flags; -{ - register struct wordent *p; - register struct command *t; - int l; - - l = 0; - for (p = p1; p != p2; p = p->next) - switch (p->word[0]) { - - case '(': - l++; - continue; - - case ')': - l--; - continue; - - case ';': - case '\n': - if (l != 0) - break; - t = (struct command *) xcalloc(1, sizeof(*t)); - t->t_dtyp = NODE_LIST; - t->t_dcar = syn1a(p1, p, flags); - t->t_dcdr = syntax(p->next, p2, flags); - if (t->t_dcdr == 0) - t->t_dcdr = t->t_dcar, t->t_dcar = 0; - return (t); - - default: - break; - } - return (syn1a(p1, p2, flags)); -} - -/* - * syn1a - * syn1b - * syn1b || syn1a - */ -static struct command * -syn1a(p1, p2, flags) - struct wordent *p1, *p2; - int flags; -{ - register struct wordent *p; - register struct command *t; - register int l = 0; - - for (p = p1; p != p2; p = p->next) - switch (p->word[0]) { - - case '(': - l++; - continue; - - case ')': - l--; - continue; - - case '|': - if (p->word[1] != '|') - continue; - if (l == 0) { - t = (struct command *) xcalloc(1, sizeof(*t)); - t->t_dtyp = NODE_OR; - t->t_dcar = syn1b(p1, p, flags); - t->t_dcdr = syn1a(p->next, p2, flags); - t->t_dflg = 0; - return (t); - } - continue; - - default: - break; - } - return (syn1b(p1, p2, flags)); -} - -/* - * syn1b - * syn2 - * syn2 && syn1b - */ -static struct command * -syn1b(p1, p2, flags) - struct wordent *p1, *p2; - int flags; -{ - register struct wordent *p; - register struct command *t; - register int l = 0; - - for (p = p1; p != p2; p = p->next) - switch (p->word[0]) { - - case '(': - l++; - continue; - - case ')': - l--; - continue; - - case '&': - if (p->word[1] == '&' && l == 0) { - t = (struct command *) xcalloc(1, sizeof(*t)); - t->t_dtyp = NODE_AND; - t->t_dcar = syn2(p1, p, flags); - t->t_dcdr = syn1b(p->next, p2, flags); - t->t_dflg = 0; - return (t); - } - continue; - - default: - break; - } - return (syn2(p1, p2, flags)); -} - -/* - * syn2 - * syn3 - * syn3 | syn2 - * syn3 |& syn2 - */ -static struct command * -syn2(p1, p2, flags) - struct wordent *p1, *p2; - int flags; -{ - register struct wordent *p, *pn; - register struct command *t; - register int l = 0; - int f; - - for (p = p1; p != p2; p = p->next) - switch (p->word[0]) { - - case '(': - l++; - continue; - - case ')': - l--; - continue; - - case '|': - if (l != 0) - continue; - t = (struct command *) xcalloc(1, sizeof(*t)); - f = flags | P_OUT; - pn = p->next; - if (pn != p2 && pn->word[0] == '&') { - f |= P_DIAG; - t->t_dflg |= F_STDERR; - } - t->t_dtyp = NODE_PIPE; - t->t_dcar = syn3(p1, p, f); - if (pn != p2 && pn->word[0] == '&') - p = pn; - t->t_dcdr = syn2(p->next, p2, flags | P_IN); - return (t); - - default: - break; - } - return (syn3(p1, p2, flags)); -} - -static char RELPAR[] = {'<', '>', '(', ')', '\0'}; - -/* - * syn3 - * ( syn0 ) [ < in ] [ > out ] - * word word* [ < in ] [ > out ] - * KEYWORD ( word* ) word* [ < in ] [ > out ] - * - * KEYWORD = (@ exit foreach if set switch test while) - */ -static struct command * -syn3(p1, p2, flags) - struct wordent *p1, *p2; - int flags; -{ - register struct wordent *p; - struct wordent *lp, *rp; - register struct command *t; - register int l; - Char **av; - int n, c; - bool specp = 0; - - if (p1 != p2) { - p = p1; -again: - switch (srchx(p->word)) { - - case TC_ELSE: - p = p->next; - if (p != p2) - goto again; - break; - - case TC_EXIT: - case TC_FOREACH: - case TC_IF: - case TC_LET: - case TC_SET: - case TC_SWITCH: - case TC_WHILE: - specp = 1; - break; - default: - break; - } - } - n = 0; - l = 0; - for (p = p1; p != p2; p = p->next) - switch (p->word[0]) { - - case '(': - if (specp) - n++; - l++; - continue; - - case ')': - if (specp) - n++; - l--; - continue; - - case '>': - case '<': - if (l != 0) { - if (specp) - n++; - continue; - } - if (p->next == p2) - continue; - if (any(RELPAR, p->next->word[0])) - continue; - n--; - continue; - - default: - if (!specp && l != 0) - continue; - n++; - continue; - } - if (n < 0) - n = 0; - t = (struct command *) xcalloc(1, sizeof(*t)); - av = (Char **) xcalloc((size_t) (n + 1), sizeof(Char **)); - t->t_dcom = av; - n = 0; - if (p2->word[0] == ')') - t->t_dflg = F_NOFORK; - lp = 0; - rp = 0; - l = 0; - for (p = p1; p != p2; p = p->next) { - c = p->word[0]; - switch (c) { - - case '(': - if (l == 0) { - if (lp != 0 && !specp) - seterror(ERR_BADPLP); - lp = p->next; - } - l++; - goto savep; - - case ')': - l--; - if (l == 0) - rp = p; - goto savep; - - case '>': - if (l != 0) - goto savep; - if (p->word[1] == '>') - t->t_dflg |= F_APPEND; - if (p->next != p2 && eq(p->next->word, STRand)) { - t->t_dflg |= F_STDERR, p = p->next; - if (flags & (P_OUT | P_DIAG)) { - seterror(ERR_OUTRED); - continue; - } - } - if (p->next != p2 && eq(p->next->word, STRbang)) - t->t_dflg |= F_OVERWRITE, p = p->next; - if (p->next == p2) { - seterror(ERR_MISRED); - continue; - } - p = p->next; - if (any(RELPAR, p->word[0])) { - seterror(ERR_MISRED); - continue; - } - if (((flags & P_OUT) && (flags & P_DIAG) == 0) || t->t_drit) - seterror(ERR_OUTRED); - else - t->t_drit = Strsave(p->word); - continue; - - case '<': - if (l != 0) - goto savep; - if (p->word[1] == '<') - t->t_dflg |= F_READ; - if (p->next == p2) { - seterror(ERR_MISRED); - continue; - } - p = p->next; - if (any(RELPAR, p->word[0])) { - seterror(ERR_MISRED); - continue; - } - if ((flags & P_HERE) && (t->t_dflg & F_READ)) - seterror(ERR_REDPAR); - else if ((flags & P_IN) || t->t_dlef) - seterror(ERR_INRED); - else - t->t_dlef = Strsave(p->word); - continue; - - savep: - if (!specp) - continue; - default: - if (l != 0 && !specp) - continue; - if (seterr == 0) - av[n] = Strsave(p->word); - n++; - continue; - } - } - if (lp != 0 && !specp) { - if (n != 0) - seterror(ERR_BADPLPS); - t->t_dtyp = NODE_PAREN; - t->t_dspr = syn0(lp, rp, P_HERE); - } - else { - if (n == 0) - seterror(ERR_NULLCOM); - t->t_dtyp = NODE_COMMAND; - } - return (t); -} - -void -freesyn(t) - register struct command *t; -{ - register Char **v; - - if (t == 0) - return; - switch (t->t_dtyp) { - - case NODE_COMMAND: - for (v = t->t_dcom; *v; v++) - xfree((ptr_t) * v); - xfree((ptr_t) (t->t_dcom)); - xfree((ptr_t) t->t_dlef); - xfree((ptr_t) t->t_drit); - break; - case NODE_PAREN: - freesyn(t->t_dspr); - xfree((ptr_t) t->t_dlef); - xfree((ptr_t) t->t_drit); - break; - - case NODE_AND: - case NODE_OR: - case NODE_PIPE: - case NODE_LIST: - freesyn(t->t_dcar), freesyn(t->t_dcdr); - break; - default: - break; - } - xfree((ptr_t) t); -} diff --git a/contrib/tcsh/sh.print.c b/contrib/tcsh/sh.print.c deleted file mode 100644 index f2b304c23c03..000000000000 --- a/contrib/tcsh/sh.print.c +++ /dev/null @@ -1,284 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.print.c,v 3.19 2000/01/14 22:57:28 christos Exp $ */ -/* - * sh.print.c: Primitive Output routines. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.print.c,v 3.19 2000/01/14 22:57:28 christos Exp $") - -#include "ed.h" - -extern int Tty_eight_bit; -extern int Tty_raw_mode; -extern Char GettingInput; - -int lbuffed = 1; /* true if line buffered */ - -static void p2dig __P((int)); - -/* - * C Shell - */ - -#if defined(BSDLIMIT) || defined(RLIMIT_CPU) -void -psecs(l) - long l; -{ - register int i; - - i = (int) (l / 3600); - if (i) { - xprintf("%d:", i); - i = (int) (l % 3600); - p2dig(i / 60); - goto minsec; - } - i = (int) l; - xprintf("%d", i / 60); -minsec: - i %= 60; - xprintf(":"); - p2dig(i); -} - -#endif - -void -pcsecs(l) /* PWP: print mm:ss.dd, l is in sec*100 */ -#ifdef BSDTIMES - long l; -#else /* BSDTIMES */ -# ifndef POSIX - time_t l; -# else /* POSIX */ - clock_t l; -# endif /* POSIX */ -#endif /* BSDTIMES */ -{ - register int i; - - i = (int) (l / 360000); - if (i) { - xprintf("%d:", i); - i = (int) ((l % 360000) / 100); - p2dig(i / 60); - goto minsec; - } - i = (int) (l / 100); - xprintf("%d", i / 60); -minsec: - i %= 60; - xprintf(":"); - p2dig(i); - xprintf("."); - p2dig((int) (l % 100)); -} - -static void -p2dig(i) - register int i; -{ - - xprintf("%d%d", i / 10, i % 10); -} - -char linbuf[2048]; /* was 128 */ -char *linp = linbuf; -bool output_raw = 0; /* PWP */ -bool xlate_cr = 0; /* HE */ - -void -xputchar(c) - register int c; -{ - int atr = 0; - - atr |= c & ATTRIBUTES & TRIM; - c &= CHAR | QUOTE; - if (!output_raw && (c & QUOTE) == 0) { - if (Iscntrl(c)) { -#ifdef COLORCAT - if (c != '\t' && c != '\n' && !(adrof(STRcolorcat) && c=='\033') && (xlate_cr || c != '\r')) { -#else - if (c != '\t' && c != '\n' && (xlate_cr || c != '\r')) { -#endif - xputchar('^' | atr); -#ifndef _OSD_POSIX - if (c == ASCII) - c = '?'; - else - c |= 0100; -#else /*_OSD_POSIX*/ - if (c == CTL_ESC('\177')) - c = '?'; - else - c =_toebcdic[_toascii[c]|0100]; -#endif /*_OSD_POSIX*/ - - } - } - else if (!Isprint(c)) { - xputchar('\\' | atr); - xputchar((((c >> 6) & 7) + '0') | atr); - xputchar((((c >> 3) & 7) + '0') | atr); - c = (c & 7) + '0'; - } - (void) putraw(c | atr); - } - else { - c &= TRIM; - if (haderr ? (didfds ? is2atty : isdiagatty) : - (didfds ? is1atty : isoutatty)) - SetAttributes(c | atr); - (void) putpure(c); - } - if (lbuffed && (c & CHAR) == '\n') - flush(); -} - -int -putraw(c) - register int c; -{ - if (haderr ? (didfds ? is2atty : isdiagatty) : - (didfds ? is1atty : isoutatty)) { - if (Tty_eight_bit == -1) - ed_set_tty_eight_bit(); - if (!Tty_eight_bit && (c & META)) { - c = (c & ~META) | STANDOUT; - } - SetAttributes(c); - } - return putpure(c); -} - -int -putpure(c) - register int c; -{ - c &= CHAR; - - *linp++ = (char) c; - if (linp >= &linbuf[sizeof linbuf - 10]) - flush(); - return (1); -} - -void -drainoline() -{ - linp = linbuf; -} - -void -flush() -{ - int unit; - static int interrupted = 0; - size_t sz; - - /* int lmode; */ - - if (linp == linbuf) - return; - if (GettingInput && !Tty_raw_mode && linp < &linbuf[sizeof linbuf - 10]) - return; - if (interrupted) { - interrupted = 0; - linp = linbuf; /* avoid resursion as stderror calls flush */ - stderror(ERR_SILENT); - } - interrupted = 1; - if (haderr) - unit = didfds ? 2 : SHDIAG; - else - unit = didfds ? 1 : SHOUT; -#ifdef COMMENT -#ifdef TIOCLGET - if (didfds == 0 && ioctl(unit, TIOCLGET, (ioctl_t) & lmode) == 0 && - lmode & LFLUSHO) { - lmode = LFLUSHO; - (void) ioctl(unit, TIOCLBIC, (ioclt_t) & lmode); - (void) write(unit, "\n", 1); - } -#endif -#endif - sz = (size_t) (linp - linbuf); - if (write(unit, linbuf, sz) == -1) - switch (errno) { -#ifdef EIO - /* We lost our tty */ - case EIO: -#endif -#ifdef ENXIO - /* - * Deal with Digital Unix 4.0D bogocity, returning ENXIO when - * we lose our tty. - */ - case ENXIO: -#endif - /* - * IRIX 6.4 bogocity? - */ -#ifdef ENOTTY - case ENOTTY: -#endif -#ifdef EBADF - case EBADF: -#endif -#ifdef ESTALE - /* - * Lost our file descriptor, exit (IRIS4D) - */ - case ESTALE: -#endif - /* - * Over our quota, writing the history file - */ -#ifdef EDQUOT - case EDQUOT: -#endif - /* Nothing to do, but die */ - xexit(1); - break; - default: - stderror(ERR_SILENT); - break; - } - - linp = linbuf; - interrupted = 0; -} diff --git a/contrib/tcsh/sh.proc.c b/contrib/tcsh/sh.proc.c deleted file mode 100644 index ed6b2accae4b..000000000000 --- a/contrib/tcsh/sh.proc.c +++ /dev/null @@ -1,2184 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.proc.c,v 3.70 1998/10/25 15:10:22 christos Exp $ */ -/* - * sh.proc.c: Job manipulations - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.proc.c,v 3.70 1998/10/25 15:10:22 christos Exp $") - -#include "ed.h" -#include "tc.h" -#include "tc.wait.h" - -#ifdef WINNT -#undef POSIX -#define POSIX -#endif /* WINNT */ -#ifdef aiws -# undef HZ -# define HZ 16 -#endif /* aiws */ - -#if defined(_BSD) || (defined(IRIS4D) && __STDC__) || defined(__lucid) || defined(linux) -# define BSDWAIT -#endif /* _BSD || (IRIS4D && __STDC__) || __lucid || linux */ -#ifndef WTERMSIG -# define WTERMSIG(w) (((union wait *) &(w))->w_termsig) -# ifndef BSDWAIT -# define BSDWAIT -# endif /* !BSDWAIT */ -#endif /* !WTERMSIG */ -#ifndef WEXITSTATUS -# define WEXITSTATUS(w) (((union wait *) &(w))->w_retcode) -#endif /* !WEXITSTATUS */ -#ifndef WSTOPSIG -# define WSTOPSIG(w) (((union wait *) &(w))->w_stopsig) -#endif /* !WSTOPSIG */ - -#ifdef __osf__ -# ifndef WCOREDUMP -# define WCOREDUMP(x) (_W_INT(x) & WCOREFLAG) -# endif -#endif - -#ifndef WCOREDUMP -# ifdef BSDWAIT -# define WCOREDUMP(w) (((union wait *) &(w))->w_coredump) -# else /* !BSDWAIT */ -# define WCOREDUMP(w) ((w) & 0200) -# endif /* !BSDWAIT */ -#endif /* !WCOREDUMP */ - -/* - * C Shell - functions that manage processes, handling hanging, termination - */ - -#define BIGINDEX 9 /* largest desirable job index */ - -#ifdef BSDTIMES -# ifdef convex -/* use 'cvxrusage' to get parallel statistics */ -static struct cvxrusage zru = {{0L, 0L}, {0L, 0L}, 0L, 0L, 0L, 0L, - 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, - {0L, 0L}, 0LL, 0LL, 0LL, 0LL, 0L, 0L, 0L, - 0LL, 0LL, {0L, 0L, 0L, 0L, 0L}}; -# else -# if defined(SUNOS4) || defined(hp9000) || (defined(__alpha) && defined(__osf__)) -static struct rusage zru = {{0L, 0L}, {0L, 0L}, 0L, 0L, 0L, 0L, - 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L}; - -# else /* !SUNOS4 && !hp9000 && !(__alpha && __osf__) */ -# ifdef masscomp -/* - * Initialization of this structure under RTU 4.1A & RTU 5.0 is problematic - * because the first two elements are unions of a time_t and a struct timeval. - * So we'll just have to trust the loader to do the "right thing", DAS DEC-90. - */ -static struct rusage zru; -# else /* masscomp */ -static struct rusage zru = {{0L, 0L}, {0L, 0L}, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0}; -# endif /* masscomp */ -# endif /* SUNOS4 || hp9000 || (__alpha && __osf__) */ -# endif /* convex */ -#else /* !BSDTIMES */ -# ifdef _SEQUENT_ -static struct process_stats zru = {{0L, 0L}, {0L, 0L}, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -# else /* !_SEQUENT_ */ -# ifdef _SX -static struct tms zru = {0, 0, 0, 0}, lru = {0, 0, 0, 0}; -# else /* !_SX */ -static struct tms zru = {0L, 0L, 0L, 0L}, lru = {0L, 0L, 0L, 0L}; -# endif /* !_SX */ -# endif /* !_SEQUENT_ */ -#endif /* !BSDTIMES */ - -#ifndef RUSAGE_CHILDREN -# define RUSAGE_CHILDREN -1 -#endif /* RUSAGE_CHILDREN */ - -static void pflushall __P((void)); -static void pflush __P((struct process *)); -static void pfree __P((struct process *)); -static void pclrcurr __P((struct process *)); -static void padd __P((struct command *)); -static int pprint __P((struct process *, int)); -static void ptprint __P((struct process *)); -static void pads __P((Char *)); -static void pkill __P((Char **, int)); -static struct process *pgetcurr __P((struct process *)); -static void okpcntl __P((void)); -static void setttypgrp __P((int)); - -/* - * pchild - called at interrupt level by the SIGCHLD signal - * indicating that at least one child has terminated or stopped - * thus at least one wait system call will definitely return a - * childs status. Top level routines (like pwait) must be sure - * to mask interrupts when playing with the proclist data structures! - */ -sigret_t -/*ARGSUSED*/ -pchild(snum) -int snum; -{ - register struct process *pp; - register struct process *fp; - register int pid; -#if defined(BSDJOBS) || (!defined(BSDTIMES) && (defined(ODT) || defined(aiws) || defined(uts))) - extern int insource; -#endif /* BSDJOBS || (!BSDTIMES && (ODT || aiws || uts)) */ -#ifdef BSDWAIT - union wait w; -#else /* !BSDWAIT */ - int w; -#endif /* !BSDWAIT */ - int jobflags; -#ifdef BSDTIMES - struct sysrusage ru; -#else /* !BSDTIMES */ -# ifdef _SEQUENT_ - struct process_stats ru; - struct process_stats cpst1, cpst2; - timeval_t tv; -# else /* !_SEQUENT_ */ - struct tms proctimes; - - USE(snum); - if (!timesdone) { - timesdone++; - (void) times(&shtimes); - } -# endif /* !_SEQUENT_ */ -#endif /* !BSDTIMES */ - -#ifdef JOBDEBUG - xprintf("pchild()\n"); -#endif /* JOBDEBUG */ - -/* Christos on where the signal(SIGCHLD, pchild) shoud be: - * - * I think that it should go *after* the wait, unlike most signal handlers. - * - * In release two (for which I have manuals), it says that wait will remove - * the first child from the queue of dead children. - * All the rest of the children that die while in the signal handler of the - * SIGC(H)LD, will be placed in the queue. If signal is called to re-establish - * the signal handler, and there are items in the queue, the process will - * receive another SIGC(H)LD before signal returns. BTW this is from the - * manual page on comp-sim... Maybe it is not applicable to the hp's, but - * I read on the news in comp.unix.wizards or comp.unix.questions yesterday - * that another person was claiming the the signal() call should be after - * the wait(). - */ - -loop: - errno = 0; /* reset, just in case */ -#ifdef JOBDEBUG - xprintf("Waiting...\n"); - flush(); -#endif /* JOBDEBUG */ -#ifndef WINNT -# ifdef BSDJOBS -# ifdef BSDTIMES -# ifdef convex - /* use 'cvxwait' to get parallel statistics */ - pid = cvxwait(&w, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG), &ru); -# else - /* both a wait3 and rusage */ -# if !defined(BSDWAIT) || defined(NeXT) || defined(MACH) || defined(linux) || (defined(IRIS4D) && (__STDC__ || defined(FUNCPROTO)) && SYSVREL <= 3) || defined(__lucid) || defined(__osf__) - pid = wait3(&w, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG), &ru); -# else /* BSDWAIT */ - pid = wait3(&w.w_status, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG), &ru); -# endif /* BSDWAIT */ -# endif /* convex */ -# else /* !BSDTIMES */ -# ifdef _SEQUENT_ - (void) get_process_stats(&tv, PS_SELF, 0, &cpst1); - pid = waitpid(-1, &w, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG)); - (void) get_process_stats(&tv, PS_SELF, 0, &cpst2); - pr_stat_sub(&cpst2, &cpst1, &ru); -# else /* !_SEQUENT_ */ -# ifndef POSIX - /* we have a wait3, but no rusage stuff */ - pid = wait3(&w.w_status, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG), 0); -# else /* POSIX */ - pid = waitpid(-1, &w, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG)); -# endif /* POSIX */ -# endif /* !_SEQUENT_ */ -# endif /* !BSDTIMES */ -# else /* !BSDJOBS */ -# ifdef BSDTIMES -# define HAVEwait3 - /* both a wait3 and rusage */ -# ifdef hpux - pid = wait3(&w.w_status, WNOHANG, 0); -# else /* !hpux */ - pid = wait3(&w.w_status, WNOHANG, &ru); -# endif /* !hpux */ -# else /* !BSDTIMES */ -# ifdef ODT /* For Sco Unix 3.2.0 or ODT 1.0 */ -# define HAVEwait3 - pid = waitpid(-1, &w, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG)); -# endif /* ODT */ -# if defined(aiws) || defined(uts) -# define HAVEwait3 - pid = wait3(&w.w_status, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG), 0); -# endif /* aiws || uts */ -# ifndef HAVEwait3 -# ifdef UNRELSIGS - /* no wait3, therefore no rusage */ - /* on Sys V, this may hang. I hope it's not going to be a problem */ -# ifdef _MINIX - pid = wait(&w); -# else /* !_MINIX */ - pid = ourwait(&w.w_status); -# endif /* _MINIX */ -# else /* !UNRELSIGS */ - /* - * XXX: for greater than 3 we should use waitpid(). - * but then again, SVR4 falls into the POSIX/BSDJOBS category. - */ - pid = wait(&w.w_status); -# endif /* !UNRELSIGS */ -# endif /* !HAVEwait3 */ -# endif /* !BSDTIMES */ -# ifndef BSDSIGS - (void) sigset(SIGCHLD, pchild); -# endif /* !BSDSIGS */ -# endif /* !BSDJOBS */ -#else /* WINNT */ - { - extern int insource; - pid = waitpid(-1, &w, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG)); - } -#endif /* WINNT */ - -#ifdef JOBDEBUG - xprintf("parent %d pid %d, retval %x termsig %x retcode %x\n", - getpid(), pid, w, WTERMSIG(w), WEXITSTATUS(w)); - flush(); -#endif /* JOBDEBUG */ - - if ((pid == 0) || (pid == -1)) { -#ifdef JOBDEBUG - xprintf("errno == %d\n", errno); -#endif /* JOBDEBUG */ - if (errno == EINTR) { - errno = 0; - goto loop; - } - pnoprocesses = pid == -1; -#ifndef SIGVOID - return (0); -#else /* !SIGVOID */ - return; -#endif /* !SIGVOID */ - } - for (pp = proclist.p_next; pp != NULL; pp = pp->p_next) - if (pid == pp->p_procid) - goto found; -#if !defined(BSDJOBS) && !defined(WINNT) - /* this should never have happened */ - stderror(ERR_SYNC, pid); - xexit(0); -#else /* BSDJOBS || WINNT */ - goto loop; -#endif /* !BSDJOBS && !WINNT */ -found: - pp->p_flags &= ~(PRUNNING | PSTOPPED | PREPORTED); - if (WIFSTOPPED(w)) { - pp->p_flags |= PSTOPPED; - pp->p_reason = WSTOPSIG(w); - } - else { - if (pp->p_flags & (PTIME | PPTIME) || adrof(STRtime)) -#ifndef BSDTIMES -# ifdef _SEQUENT_ - (void) get_process_stats(&pp->p_etime, PS_SELF, NULL, NULL); -# else /* !_SEQUENT_ */ -# ifndef COHERENT - pp->p_etime = times(&proctimes); -# else /* COHERENT */ - pp->p_etime = HZ * time(NULL); - times(&proctimes); -# endif /* COHERENT */ -# endif /* !_SEQUENT_ */ -#else /* BSDTIMES */ - (void) gettimeofday(&pp->p_etime, NULL); -#endif /* BSDTIMES */ - - -#if defined(BSDTIMES) || defined(_SEQUENT_) - pp->p_rusage = ru; -#else /* !BSDTIMES && !_SEQUENT_ */ - (void) times(&proctimes); - pp->p_utime = proctimes.tms_cutime - shtimes.tms_cutime; - pp->p_stime = proctimes.tms_cstime - shtimes.tms_cstime; - shtimes = proctimes; -#endif /* !BSDTIMES && !_SEQUENT_ */ - if (WIFSIGNALED(w)) { - if (WTERMSIG(w) == SIGINT) - pp->p_flags |= PINTERRUPTED; - else - pp->p_flags |= PSIGNALED; - if (WCOREDUMP(w)) - pp->p_flags |= PDUMPED; - pp->p_reason = WTERMSIG(w); - } - else { - pp->p_reason = WEXITSTATUS(w); - if (pp->p_reason != 0) - pp->p_flags |= PAEXITED; - else - pp->p_flags |= PNEXITED; - } - } - jobflags = 0; - fp = pp; - do { - if ((fp->p_flags & (PPTIME | PRUNNING | PSTOPPED)) == 0 && - !child && adrof(STRtime) && -#ifdef BSDTIMES - fp->p_rusage.ru_utime.tv_sec + fp->p_rusage.ru_stime.tv_sec -#else /* !BSDTIMES */ -# ifdef _SEQUENT_ - fp->p_rusage.ps_utime.tv_sec + fp->p_rusage.ps_stime.tv_sec -# else /* !_SEQUENT_ */ -# ifndef POSIX - (fp->p_utime + fp->p_stime) / HZ -# else /* POSIX */ - (fp->p_utime + fp->p_stime) / clk_tck -# endif /* POSIX */ -# endif /* !_SEQUENT_ */ -#endif /* !BSDTIMES */ - >= atoi(short2str(varval(STRtime)))) - fp->p_flags |= PTIME; - jobflags |= fp->p_flags; - } while ((fp = fp->p_friends) != pp); - pp->p_flags &= ~PFOREGND; - if (pp == pp->p_friends && (pp->p_flags & PPTIME)) { - pp->p_flags &= ~PPTIME; - pp->p_flags |= PTIME; - } - if ((jobflags & (PRUNNING | PREPORTED)) == 0) { - fp = pp; - do { - if (fp->p_flags & PSTOPPED) - fp->p_flags |= PREPORTED; - } while ((fp = fp->p_friends) != pp); - while (fp->p_procid != fp->p_jobid) - fp = fp->p_friends; - if (jobflags & PSTOPPED) { - if (pcurrent && pcurrent != fp) - pprevious = pcurrent; - pcurrent = fp; - } - else - pclrcurr(fp); - if (jobflags & PFOREGND) { - if (!(jobflags & (PSIGNALED | PSTOPPED | PPTIME) || -#ifdef notdef - jobflags & PAEXITED || -#endif /* notdef */ - !eq(dcwd->di_name, fp->p_cwd->di_name))) { - /* PWP: print a newline after ^C */ - if (jobflags & PINTERRUPTED) { -#ifdef SHORT_STRINGS - xputchar('\r' | QUOTE), xputchar('\n'); -#else /* !SHORT_STRINGS */ - xprintf("\215\n"); /* \215 is a quoted ^M */ -#endif /* !SHORT_STRINGS */ - } -#ifdef notdef - else if ((jobflags & (PTIME|PSTOPPED)) == PTIME) - ptprint(fp); -#endif /* notdef */ - } - } - else { - if (jobflags & PNOTIFY || adrof(STRnotify)) { -#ifdef SHORT_STRINGS - xputchar('\r' | QUOTE), xputchar('\n'); -#else /* !SHORT_STRINGS */ - xprintf("\215\n"); /* \215 is a quoted ^M */ -#endif /* !SHORT_STRINGS */ - (void) pprint(pp, NUMBER | NAME | REASON); - if ((jobflags & PSTOPPED) == 0) - pflush(pp); - { - extern Char GettingInput; - - if (GettingInput) { - errno = 0; - (void) Rawmode(); -#ifdef notdef - /* - * don't really want to do that, because it - * will erase our message in case of multi-line - * input - */ - ClearLines(); -#endif /* notdef */ - ClearDisp(); - Refresh(); - } - } - } - else { - fp->p_flags |= PNEEDNOTE; - neednote++; - } - } - } -#if defined(BSDJOBS) || defined(HAVEwait3) - goto loop; -#endif /* BSDJOBS || HAVEwait3 */ -} - -void -pnote() -{ - register struct process *pp; - int flags; -#ifdef BSDSIGS - sigmask_t omask; -#endif /* BSDSIGS */ - - neednote = 0; - for (pp = proclist.p_next; pp != NULL; pp = pp->p_next) { - if (pp->p_flags & PNEEDNOTE) { -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGCHLD)); -#else /* !BSDSIGS */ - (void) sighold(SIGCHLD); -#endif /* !BSDSIGS */ - pp->p_flags &= ~PNEEDNOTE; - flags = pprint(pp, NUMBER | NAME | REASON); - if ((flags & (PRUNNING | PSTOPPED)) == 0) - pflush(pp); -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -#endif /* !BSDSIGS */ - } - } -} - - -static void -pfree(pp) - struct process *pp; -{ - xfree((ptr_t) pp->p_command); - if (pp->p_cwd && --pp->p_cwd->di_count == 0) - if (pp->p_cwd->di_next == 0) - dfree(pp->p_cwd); - xfree((ptr_t) pp); -} - - -/* - * pwait - wait for current job to terminate, maintaining integrity - * of current and previous job indicators. - */ -void -pwait() -{ - register struct process *fp, *pp; -#ifdef BSDSIGS - sigmask_t omask; -#endif /* BSDSIGS */ - - /* - * Here's where dead procs get flushed. - */ -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGCHLD)); -#else /* !BSDSIGS */ - (void) sighold(SIGCHLD); -#endif /* !BSDSIGS */ - for (pp = (fp = &proclist)->p_next; pp != NULL; pp = (fp = pp)->p_next) - if (pp->p_procid == 0) { - fp->p_next = pp->p_next; - pfree(pp); - pp = fp; - } -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -# ifdef notdef - if (setintr) - sigignore(SIGINT); -# endif /* notdef */ -#endif /* !BSDSIGS */ - pjwait(pcurrjob); -} - - -/* - * pjwait - wait for a job to finish or become stopped - * It is assumed to be in the foreground state (PFOREGND) - */ -void -pjwait(pp) - register struct process *pp; -{ - register struct process *fp; - int jobflags, reason; -#ifdef BSDSIGS - sigmask_t omask; -#endif /* BSDSIGS */ -#ifdef UNRELSIGS - signalfun_t inthandler; -#endif /* UNRELSIGS */ - while (pp->p_procid != pp->p_jobid) - pp = pp->p_friends; - fp = pp; - - do { - if ((fp->p_flags & (PFOREGND | PRUNNING)) == PRUNNING) - xprintf(CGETS(17, 1, "BUG: waiting for background job!\n")); - } while ((fp = fp->p_friends) != pp); - /* - * Now keep pausing as long as we are not interrupted (SIGINT), and the - * target process, or any of its friends, are running - */ - fp = pp; -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGCHLD)); -#endif /* BSDSIGS */ -#ifdef UNRELSIGS - if (setintr) - inthandler = signal(SIGINT, SIG_IGN); -#endif /* UNRELSIGS */ - for (;;) { -#ifndef BSDSIGS - (void) sighold(SIGCHLD); -#endif /* !BSDSIGS */ - jobflags = 0; - do - jobflags |= fp->p_flags; - while ((fp = (fp->p_friends)) != pp); - if ((jobflags & PRUNNING) == 0) - break; -#ifdef JOBDEBUG - xprintf("%d starting to sigpause for SIGCHLD on %d\n", - getpid(), fp->p_procid); -#endif /* JOBDEBUG */ -#ifdef BSDSIGS - /* (void) sigpause(sigblock((sigmask_t) 0) &~ sigmask(SIGCHLD)); */ - (void) sigpause(omask & ~sigmask(SIGCHLD)); -#else /* !BSDSIGS */ - (void) sigpause(SIGCHLD); -#endif /* !BSDSIGS */ - } -#ifdef JOBDEBUG - xprintf("%d returned from sigpause loop\n", getpid()); -#endif /* JOBDEBUG */ -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -#endif /* !BSDSIGS */ -#ifdef UNRELSIGS - if (setintr) - (void) signal(SIGINT, inthandler); -#endif /* UNRELSIGS */ -#ifdef BSDJOBS - if (tpgrp > 0) /* get tty back */ - (void) tcsetpgrp(FSHTTY, tpgrp); -#endif /* BSDJOBS */ - if ((jobflags & (PSIGNALED | PSTOPPED | PTIME)) || - !eq(dcwd->di_name, fp->p_cwd->di_name)) { - if (jobflags & PSTOPPED) { - xputchar('\n'); - if (adrof(STRlistjobs)) { - Char *jobcommand[3]; - - jobcommand[0] = STRjobs; - if (eq(varval(STRlistjobs), STRlong)) - jobcommand[1] = STRml; - else - jobcommand[1] = NULL; - jobcommand[2] = NULL; - - dojobs(jobcommand, NULL); - (void) pprint(pp, SHELLDIR); - } - else - (void) pprint(pp, AREASON | SHELLDIR); - } - else - (void) pprint(pp, AREASON | SHELLDIR); - } - if ((jobflags & (PINTERRUPTED | PSTOPPED)) && setintr && - (!gointr || !eq(gointr, STRminus))) { - if ((jobflags & PSTOPPED) == 0) - pflush(pp); - pintr1(0); - /* NOTREACHED */ - } - reason = 0; - fp = pp; - do { - if (fp->p_reason) - reason = fp->p_flags & (PSIGNALED | PINTERRUPTED) ? - fp->p_reason | META : fp->p_reason; - } while ((fp = fp->p_friends) != pp); - /* - * Don't report on backquoted jobs, cause it will mess up - * their output. - */ - if ((reason != 0) && (adrof(STRprintexitvalue)) && - (pp->p_flags & PBACKQ) == 0) - xprintf(CGETS(17, 2, "Exit %d\n"), reason); - set(STRstatus, putn(reason), VAR_READWRITE); - if (reason && exiterr) - exitstat(); - pflush(pp); -} - -/* - * dowait - wait for all processes to finish - */ - -/*ARGSUSED*/ -void -dowait(v, c) - Char **v; - struct command *c; -{ - register struct process *pp; -#ifdef BSDSIGS - sigmask_t omask; -#endif /* BSDSIGS */ - - USE(c); - USE(v); - pjobs++; -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGCHLD)); -loop: -#else /* !BSDSIGS */ - if (setintr) - (void) sigrelse(SIGINT); -loop: - (void) sighold(SIGCHLD); -#endif /* !BSDSIGS */ - for (pp = proclist.p_next; pp; pp = pp->p_next) - if (pp->p_procid && /* pp->p_procid == pp->p_jobid && */ - pp->p_flags & PRUNNING) { -#ifdef BSDSIGS - (void) sigpause((sigmask_t) 0); -#else /* !BSDSIGS */ - (void) sigpause(SIGCHLD); -#endif /* !BSDSIGS */ - goto loop; - } -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -#endif /* !BSDSIGS */ - pjobs = 0; -} - -/* - * pflushall - flush all jobs from list (e.g. at fork()) - */ -static void -pflushall() -{ - register struct process *pp; - - for (pp = proclist.p_next; pp != NULL; pp = pp->p_next) - if (pp->p_procid) - pflush(pp); -} - -/* - * pflush - flag all process structures in the same job as the - * the argument process for deletion. The actual free of the - * space is not done here since pflush is called at interrupt level. - */ -static void -pflush(pp) - register struct process *pp; -{ - register struct process *np; - register int idx; - - if (pp->p_procid == 0) { - xprintf(CGETS(17, 3, "BUG: process flushed twice")); - return; - } - while (pp->p_procid != pp->p_jobid) - pp = pp->p_friends; - pclrcurr(pp); - if (pp == pcurrjob) - pcurrjob = 0; - idx = pp->p_index; - np = pp; - do { - np->p_index = np->p_procid = 0; - np->p_flags &= ~PNEEDNOTE; - } while ((np = np->p_friends) != pp); - if (idx == pmaxindex) { - for (np = proclist.p_next, idx = 0; np; np = np->p_next) - if (np->p_index > idx) - idx = np->p_index; - pmaxindex = idx; - } -} - -/* - * pclrcurr - make sure the given job is not the current or previous job; - * pp MUST be the job leader - */ -static void -pclrcurr(pp) - register struct process *pp; -{ - if (pp == pcurrent) { - if (pprevious != NULL) { - pcurrent = pprevious; - pprevious = pgetcurr(pp); - } - else { - pcurrent = pgetcurr(pp); - pprevious = pgetcurr(pp); - } - } - else if (pp == pprevious) - pprevious = pgetcurr(pp); -} - -/* +4 here is 1 for '\0', 1 ea for << >& >> */ -static Char command[PMAXLEN + 4]; -static int cmdlen; -static Char *cmdp; - -/* - * palloc - allocate a process structure and fill it up. - * an important assumption is made that the process is running. - */ -void -palloc(pid, t) - int pid; - register struct command *t; -{ - register struct process *pp; - int i; - - pp = (struct process *) xcalloc(1, (size_t) sizeof(struct process)); - pp->p_procid = pid; - pp->p_flags = ((t->t_dflg & F_AMPERSAND) ? 0 : PFOREGND) | PRUNNING; - if (t->t_dflg & F_TIME) - pp->p_flags |= PPTIME; - if (t->t_dflg & F_BACKQ) - pp->p_flags |= PBACKQ; - if (t->t_dflg & F_HUP) - pp->p_flags |= PHUP; - cmdp = command; - cmdlen = 0; - padd(t); - *cmdp++ = 0; - if (t->t_dflg & F_PIPEOUT) { - pp->p_flags |= PPOU; - if (t->t_dflg & F_STDERR) - pp->p_flags |= PDIAG; - } - pp->p_command = Strsave(command); - if (pcurrjob) { - struct process *fp; - - /* careful here with interrupt level */ - pp->p_cwd = 0; - pp->p_index = pcurrjob->p_index; - pp->p_friends = pcurrjob; - pp->p_jobid = pcurrjob->p_procid; - for (fp = pcurrjob; fp->p_friends != pcurrjob; fp = fp->p_friends) - continue; - fp->p_friends = pp; - } - else { - pcurrjob = pp; - pp->p_jobid = pid; - pp->p_friends = pp; - pp->p_cwd = dcwd; - dcwd->di_count++; - if (pmaxindex < BIGINDEX) - pp->p_index = ++pmaxindex; - else { - struct process *np; - - for (i = 1;; i++) { - for (np = proclist.p_next; np; np = np->p_next) - if (np->p_index == i) - goto tryagain; - pp->p_index = i; - if (i > pmaxindex) - pmaxindex = i; - break; - tryagain:; - } - } - if (pcurrent == NULL) - pcurrent = pp; - else if (pprevious == NULL) - pprevious = pp; - } - pp->p_next = proclist.p_next; - proclist.p_next = pp; -#ifdef BSDTIMES - (void) gettimeofday(&pp->p_btime, NULL); -#else /* !BSDTIMES */ -# ifdef _SEQUENT_ - (void) get_process_stats(&pp->p_btime, PS_SELF, NULL, NULL); -# else /* !_SEQUENT_ */ - { - struct tms tmptimes; - -# ifndef COHERENT - pp->p_btime = times(&tmptimes); -# else /* !COHERENT */ - pp->p_btime = HZ * time(NULL); - times(&tmptimes); -# endif /* !COHERENT */ - } -# endif /* !_SEQUENT_ */ -#endif /* !BSDTIMES */ -} - -static void -padd(t) - register struct command *t; -{ - Char **argp; - - if (t == 0) - return; - switch (t->t_dtyp) { - - case NODE_PAREN: - pads(STRLparensp); - padd(t->t_dspr); - pads(STRspRparen); - break; - - case NODE_COMMAND: - for (argp = t->t_dcom; *argp; argp++) { - pads(*argp); - if (argp[1]) - pads(STRspace); - } - break; - - case NODE_OR: - case NODE_AND: - case NODE_PIPE: - case NODE_LIST: - padd(t->t_dcar); - switch (t->t_dtyp) { - case NODE_OR: - pads(STRspor2sp); - break; - case NODE_AND: - pads(STRspand2sp); - break; - case NODE_PIPE: - pads(STRsporsp); - break; - case NODE_LIST: - pads(STRsemisp); - break; - default: - break; - } - padd(t->t_dcdr); - return; - - default: - break; - } - if ((t->t_dflg & F_PIPEIN) == 0 && t->t_dlef) { - pads((t->t_dflg & F_READ) ? STRspLarrow2sp : STRspLarrowsp); - pads(t->t_dlef); - } - if ((t->t_dflg & F_PIPEOUT) == 0 && t->t_drit) { - pads((t->t_dflg & F_APPEND) ? STRspRarrow2 : STRspRarrow); - if (t->t_dflg & F_STDERR) - pads(STRand); - pads(STRspace); - pads(t->t_drit); - } -} - -static void -pads(cp) - Char *cp; -{ - register int i; - - /* - * Avoid the Quoted Space alias hack! Reported by: - * sam@john-bigboote.ICS.UCI.EDU (Sam Horrocks) - */ - if (cp[0] == STRQNULL[0]) - cp++; - - i = (int) Strlen(cp); - - if (cmdlen >= PMAXLEN) - return; - if (cmdlen + i >= PMAXLEN) { - (void) Strcpy(cmdp, STRsp3dots); - cmdlen = PMAXLEN; - cmdp += 4; - return; - } - (void) Strcpy(cmdp, cp); - cmdp += i; - cmdlen += i; -} - -/* - * psavejob - temporarily save the current job on a one level stack - * so another job can be created. Used for { } in exp6 - * and `` in globbing. - */ -void -psavejob() -{ - pholdjob = pcurrjob; - pcurrjob = NULL; -} - -/* - * prestjob - opposite of psavejob. This may be missed if we are interrupted - * somewhere, but pendjob cleans up anyway. - */ -void -prestjob() -{ - pcurrjob = pholdjob; - pholdjob = NULL; -} - -/* - * pendjob - indicate that a job (set of commands) has been completed - * or is about to begin. - */ -void -pendjob() -{ - register struct process *pp, *tp; - - if (pcurrjob && (pcurrjob->p_flags & (PFOREGND | PSTOPPED)) == 0) { - pp = pcurrjob; - while (pp->p_procid != pp->p_jobid) - pp = pp->p_friends; - xprintf("[%d]", pp->p_index); - tp = pp; - do { - xprintf(" %d", pp->p_procid); - pp = pp->p_friends; - } while (pp != tp); - xputchar('\n'); - } - pholdjob = pcurrjob = 0; -} - -/* - * pprint - print a job - */ - -/* - * Hacks have been added for SVR4 to deal with pipe's being spawned in - * reverse order - * - * David Dawes (dawes@physics.su.oz.au) Oct 1991 - */ - -static int -pprint(pp, flag) - register struct process *pp; - bool flag; -{ - int status, reason; - struct process *tp; - extern char *linp, linbuf[]; - int jobflags, pstatus, pcond; - char *format; - -#ifdef BACKPIPE - struct process *pipehead = NULL, *pipetail = NULL, *pmarker = NULL; - int inpipe = 0; -#endif /* BACKPIPE */ - - while (pp->p_procid != pp->p_jobid) - pp = pp->p_friends; - if (pp == pp->p_friends && (pp->p_flags & PPTIME)) { - pp->p_flags &= ~PPTIME; - pp->p_flags |= PTIME; - } - tp = pp; - status = reason = -1; - jobflags = 0; - do { -#ifdef BACKPIPE - /* - * The pipeline is reversed, so locate the real head of the pipeline - * if pp is at the tail of a pipe (and not already in a pipeline) - */ - if ((pp->p_friends->p_flags & PPOU) && !inpipe && (flag & NAME)) { - inpipe = 1; - pipetail = pp; - do - pp = pp->p_friends; - while (pp->p_friends->p_flags & PPOU); - pipehead = pp; - pmarker = pp; - /* - * pmarker is used to hold the place of the proc being processed, so - * we can search for the next one downstream later. - */ - } - pcond = (int) (tp != pp || (inpipe && tp == pp)); -#else /* !BACKPIPE */ - pcond = (int) (tp != pp); -#endif /* BACKPIPE */ - - jobflags |= pp->p_flags; - pstatus = (int) (pp->p_flags & PALLSTATES); - if (pcond && linp != linbuf && !(flag & FANCY) && - ((pstatus == status && pp->p_reason == reason) || - !(flag & REASON))) - xputchar(' '); - else { - if (pcond && linp != linbuf) - xputchar('\n'); - if (flag & NUMBER) { -#ifdef BACKPIPE - pcond = ((pp == tp && !inpipe) || - (inpipe && pipetail == tp && pp == pipehead)); -#else /* BACKPIPE */ - pcond = (pp == tp); -#endif /* BACKPIPE */ - if (pcond) - xprintf("[%d]%s %c ", pp->p_index, - pp->p_index < 10 ? " " : "", - pp == pcurrent ? '+' : - (pp == pprevious ? '-' : ' ')); - else - xprintf(" "); - } - if (flag & FANCY) { -#ifdef TCF - extern char *sitename(); - -#endif /* TCF */ - xprintf("%5d ", pp->p_procid); -#ifdef TCF - xprintf("%11s ", sitename(pp->p_procid)); -#endif /* TCF */ - } - if (flag & (REASON | AREASON)) { - if (flag & NAME) - format = "%-30s"; - else - format = "%s"; - if (pstatus == status) { - if (pp->p_reason == reason) { - xprintf(format, ""); - goto prcomd; - } - else - reason = (int) pp->p_reason; - } - else { - status = pstatus; - reason = (int) pp->p_reason; - } - switch (status) { - - case PRUNNING: - xprintf(format, CGETS(17, 4, "Running ")); - break; - - case PINTERRUPTED: - case PSTOPPED: - case PSIGNALED: - /* - * tell what happened to the background job - * From: Michael Schroeder - * <mlschroe@immd4.informatik.uni-erlangen.de> - */ - if ((flag & REASON) - || ((flag & AREASON) - && reason != SIGINT - && (reason != SIGPIPE - || (pp->p_flags & PPOU) == 0))) { - char *ptr; - char buf[1024]; - - if ((ptr = mesg[pp->p_reason & ASCII].pname) == NULL) - xsnprintf(ptr = buf, sizeof(buf), "%s %d", - CGETS(17, 5, "Signal"), pp->p_reason & ASCII); - xprintf(format, ptr); - } - else - reason = -1; - break; - - case PNEXITED: - case PAEXITED: - if (flag & REASON) { - if (pp->p_reason) - xprintf(CGETS(17, 6, "Exit %-25d"), pp->p_reason); - else - xprintf(format, CGETS(17, 7, "Done")); - } - break; - - default: - xprintf(CGETS(17, 8, "BUG: status=%-9o"), - status); - } - } - } -prcomd: - if (flag & NAME) { - xprintf("%S", pp->p_command); - if (pp->p_flags & PPOU) - xprintf(" |"); - if (pp->p_flags & PDIAG) - xprintf("&"); - } - if (flag & (REASON | AREASON) && pp->p_flags & PDUMPED) - xprintf(CGETS(17, 9, " (core dumped)")); - if (tp == pp->p_friends) { - if (flag & AMPERSAND) - xprintf(" &"); - if (flag & JOBDIR && - !eq(tp->p_cwd->di_name, dcwd->di_name)) { - xprintf(CGETS(17, 10, " (wd: ")); - dtildepr(tp->p_cwd->di_name); - xprintf(")"); - } - } - if (pp->p_flags & PPTIME && !(status & (PSTOPPED | PRUNNING))) { - if (linp != linbuf) - xprintf("\n\t"); -#if defined(BSDTIMES) || defined(_SEQUENT_) - prusage(&zru, &pp->p_rusage, &pp->p_etime, - &pp->p_btime); -#else /* !BSDTIMES && !SEQUENT */ - lru.tms_utime = pp->p_utime; - lru.tms_stime = pp->p_stime; - lru.tms_cutime = 0; - lru.tms_cstime = 0; - prusage(&zru, &lru, pp->p_etime, - pp->p_btime); -#endif /* !BSDTIMES && !SEQUENT */ - - } -#ifdef BACKPIPE - pcond = ((tp == pp->p_friends && !inpipe) || - (inpipe && pipehead->p_friends == tp && pp == pipetail)); -#else /* !BACKPIPE */ - pcond = (tp == pp->p_friends); -#endif /* BACKPIPE */ - if (pcond) { - if (linp != linbuf) - xputchar('\n'); - if (flag & SHELLDIR && !eq(tp->p_cwd->di_name, dcwd->di_name)) { - xprintf(CGETS(17, 11, "(wd now: ")); - dtildepr(dcwd->di_name); - xprintf(")\n"); - } - } -#ifdef BACKPIPE - if (inpipe) { - /* - * if pmaker == pipetail, we are finished that pipeline, and - * can now skip to past the head - */ - if (pmarker == pipetail) { - inpipe = 0; - pp = pipehead; - } - else { - /* - * set pp to one before the one we want next, so the while below - * increments to the correct spot. - */ - do - pp = pp->p_friends; - while (pp->p_friends->p_friends != pmarker); - pmarker = pp->p_friends; - } - } - pcond = ((pp = pp->p_friends) != tp || inpipe); -#else /* !BACKPIPE */ - pcond = ((pp = pp->p_friends) != tp); -#endif /* BACKPIPE */ - } while (pcond); - - if (jobflags & PTIME && (jobflags & (PSTOPPED | PRUNNING)) == 0) { - if (jobflags & NUMBER) - xprintf(" "); - ptprint(tp); - } - return (jobflags); -} - -/* - * All 4.3 BSD derived implementations are buggy and I've had enough. - * The following implementation produces similar code and works in all - * cases. The 4.3BSD one works only for <, >, != - */ -# undef timercmp -# define timercmp(tvp, uvp, cmp) \ - (((tvp)->tv_sec == (uvp)->tv_sec) ? \ - ((tvp)->tv_usec cmp (uvp)->tv_usec) : \ - ((tvp)->tv_sec cmp (uvp)->tv_sec)) - -static void -ptprint(tp) - register struct process *tp; -{ -#ifdef BSDTIMES - struct timeval tetime, diff; - static struct timeval ztime; - struct sysrusage ru; - register struct process *pp = tp; - - ru = zru; - tetime = ztime; - do { - ruadd(&ru, &pp->p_rusage); - tvsub(&diff, &pp->p_etime, &pp->p_btime); - if (timercmp(&diff, &tetime, >)) - tetime = diff; - } while ((pp = pp->p_friends) != tp); - prusage(&zru, &ru, &tetime, &ztime); -#else /* !BSDTIMES */ -# ifdef _SEQUENT_ - timeval_t tetime, diff; - static timeval_t ztime; - struct process_stats ru; - register struct process *pp = tp; - - ru = zru; - tetime = ztime; - do { - ruadd(&ru, &pp->p_rusage); - tvsub(&diff, &pp->p_etime, &pp->p_btime); - if (timercmp(&diff, &tetime, >)) - tetime = diff; - } while ((pp = pp->p_friends) != tp); - prusage(&zru, &ru, &tetime, &ztime); -# else /* !_SEQUENT_ */ -# ifndef POSIX - static time_t ztime = 0; - static time_t zu_time = 0; - static time_t zs_time = 0; - time_t tetime, diff; - time_t u_time, s_time; - -# else /* POSIX */ - static clock_t ztime = 0; - static clock_t zu_time = 0; - static clock_t zs_time = 0; - clock_t tetime, diff; - clock_t u_time, s_time; - -# endif /* POSIX */ - struct tms zts, rts; - register struct process *pp = tp; - - u_time = zu_time; - s_time = zs_time; - tetime = ztime; - do { - u_time += pp->p_utime; - s_time += pp->p_stime; - diff = pp->p_etime - pp->p_btime; - if (diff > tetime) - tetime = diff; - } while ((pp = pp->p_friends) != tp); - zts.tms_utime = zu_time; - zts.tms_stime = zs_time; - zts.tms_cutime = 0; - zts.tms_cstime = 0; - rts.tms_utime = u_time; - rts.tms_stime = s_time; - rts.tms_cutime = 0; - rts.tms_cstime = 0; - prusage(&zts, &rts, tetime, ztime); -# endif /* !_SEQUENT_ */ -#endif /* !BSDTIMES */ -} - -/* - * dojobs - print all jobs - */ -/*ARGSUSED*/ -void -dojobs(v, c) - Char **v; - struct command *c; -{ - register struct process *pp; - register int flag = NUMBER | NAME | REASON; - int i; - - USE(c); - if (chkstop) - chkstop = 2; - if (*++v) { - if (v[1] || !eq(*v, STRml)) - stderror(ERR_JOBS); - flag |= FANCY | JOBDIR; - } - for (i = 1; i <= pmaxindex; i++) - for (pp = proclist.p_next; pp; pp = pp->p_next) - if (pp->p_index == i && pp->p_procid == pp->p_jobid) { - pp->p_flags &= ~PNEEDNOTE; - if (!(pprint(pp, flag) & (PRUNNING | PSTOPPED))) - pflush(pp); - break; - } -} - -/* - * dofg - builtin - put the job into the foreground - */ -/*ARGSUSED*/ -void -dofg(v, c) - Char **v; - struct command *c; -{ - register struct process *pp; - - USE(c); - okpcntl(); - ++v; - do { - pp = pfind(*v); - if (!pstart(pp, 1)) { - pp->p_procid = 0; - stderror(ERR_NAME|ERR_BADJOB, pp->p_command, strerror(errno)); - continue; - } -#ifndef BSDSIGS -# ifdef notdef - if (setintr) - sigignore(SIGINT); -# endif -#endif /* !BSDSIGS */ - pjwait(pp); - } while (*v && *++v); -} - -/* - * %... - builtin - put the job into the foreground - */ -/*ARGSUSED*/ -void -dofg1(v, c) - Char **v; - struct command *c; -{ - register struct process *pp; - - USE(c); - okpcntl(); - pp = pfind(v[0]); - if (!pstart(pp, 1)) { - pp->p_procid = 0; - stderror(ERR_NAME|ERR_BADJOB, pp->p_command, strerror(errno)); - return; - } -#ifndef BSDSIGS -# ifdef notdef - if (setintr) - sigignore(SIGINT); -# endif -#endif /* !BSDSIGS */ - pjwait(pp); -} - -/* - * dobg - builtin - put the job into the background - */ -/*ARGSUSED*/ -void -dobg(v, c) - Char **v; - struct command *c; -{ - register struct process *pp; - - USE(c); - okpcntl(); - ++v; - do { - pp = pfind(*v); - if (!pstart(pp, 0)) { - pp->p_procid = 0; - stderror(ERR_NAME|ERR_BADJOB, pp->p_command, strerror(errno)); - } - } while (*v && *++v); -} - -/* - * %... & - builtin - put the job into the background - */ -/*ARGSUSED*/ -void -dobg1(v, c) - Char **v; - struct command *c; -{ - register struct process *pp; - - USE(c); - pp = pfind(v[0]); - if (!pstart(pp, 0)) { - pp->p_procid = 0; - stderror(ERR_NAME|ERR_BADJOB, pp->p_command, strerror(errno)); - } -} - -/* - * dostop - builtin - stop the job - */ -/*ARGSUSED*/ -void -dostop(v, c) - Char **v; - struct command *c; -{ - USE(c); -#ifdef BSDJOBS - pkill(++v, SIGSTOP); -#endif /* BSDJOBS */ -} - -/* - * dokill - builtin - superset of kill (1) - */ -/*ARGSUSED*/ -void -dokill(v, c) - Char **v; - struct command *c; -{ - register int signum, len = 0; - register char *name; - extern int T_Cols; - extern int nsig; - - USE(c); - v++; - if (v[0] && v[0][0] == '-') { - if (v[0][1] == 'l') { - for (signum = 0; signum <= nsig; signum++) { - if ((name = mesg[signum].iname) != NULL) { - len += strlen(name) + 1; - if (len >= T_Cols - 1) { - xputchar('\n'); - len = strlen(name) + 1; - } - xprintf("%s ", name); - } - } - xputchar('\n'); - return; - } - if (Isdigit(v[0][1])) { - signum = atoi(short2str(v[0] + 1)); - if (signum < 0 || signum > (MAXSIG-1)) - stderror(ERR_NAME | ERR_BADSIG); - } - else { - for (signum = 0; signum <= nsig; signum++) - if (mesg[signum].iname && - eq(&v[0][1], str2short(mesg[signum].iname))) - goto gotsig; - setname(short2str(&v[0][1])); - stderror(ERR_NAME | ERR_UNKSIG); - } -gotsig: - v++; - } - else - signum = SIGTERM; - pkill(v, signum); -} - -static void -pkill(v, signum) - Char **v; - int signum; -{ - register struct process *pp, *np; - int jobflags = 0, err1 = 0; - pid_t pid; -#ifdef BSDSIGS - sigmask_t omask; -#endif /* BSDSIGS */ - Char *cp, **vp; - -#ifdef BSDSIGS - omask = sigmask(SIGCHLD); - if (setintr) - omask |= sigmask(SIGINT); - omask = sigblock(omask) & ~omask; -#else /* !BSDSIGS */ - if (setintr) - (void) sighold(SIGINT); - (void) sighold(SIGCHLD); -#endif /* !BSDSIGS */ - - /* Avoid globbing %?x patterns */ - for (vp = v; vp && *vp; vp++) - if (**vp == '%') - (void) quote(*vp); - - gflag = 0, tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else { - v = gargv = saveblk(v); - trim(v); - } - - - while (v && (cp = *v)) { - if (*cp == '%') { - np = pp = pfind(cp); - do - jobflags |= np->p_flags; - while ((np = np->p_friends) != pp); -#ifdef BSDJOBS - switch (signum) { - - case SIGSTOP: - case SIGTSTP: - case SIGTTIN: - case SIGTTOU: - if ((jobflags & PRUNNING) == 0) { -# ifdef SUSPENDED - xprintf(CGETS(17, 12, "%S: Already suspended\n"), cp); -# else /* !SUSPENDED */ - xprintf(CGETS(17, 13, "%S: Already stopped\n"), cp); -# endif /* !SUSPENDED */ - err1++; - goto cont; - } - break; - /* - * suspend a process, kill -CONT %, then type jobs; the shell - * says it is suspended, but it is running; thanks jaap.. - */ - case SIGCONT: - if (!pstart(pp, 0)) { - pp->p_procid = 0; - stderror(ERR_NAME|ERR_BADJOB, pp->p_command, - strerror(errno)); - } - goto cont; - default: - break; - } -#endif /* BSDJOBS */ - if (killpg(pp->p_jobid, signum) < 0) { - xprintf("%S: %s\n", cp, strerror(errno)); - err1++; - } -#ifdef BSDJOBS - if (signum == SIGTERM || signum == SIGHUP) - (void) killpg(pp->p_jobid, SIGCONT); -#endif /* BSDJOBS */ - } - else if (!(Isdigit(*cp) || *cp == '-')) - stderror(ERR_NAME | ERR_JOBARGS); - else { -#ifndef WINNT - pid = atoi(short2str(cp)); -#else - pid = strtoul(short2str(cp),NULL,0); -#endif /* WINNT */ - if (kill(pid, signum) < 0) { - xprintf("%d: %s\n", pid, strerror(errno)); - err1++; - goto cont; - } -#ifdef BSDJOBS - if (signum == SIGTERM || signum == SIGHUP) - (void) kill(pid, SIGCONT); -#endif /* BSDJOBS */ - } -cont: - v++; - } - if (gargv) - blkfree(gargv), gargv = 0; -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); - if (setintr) - (void) sigrelse(SIGINT); -#endif /* !BSDSIGS */ - if (err1) - stderror(ERR_SILENT); -} - -/* - * pstart - start the job in foreground/background - */ -int -pstart(pp, foregnd) - register struct process *pp; - int foregnd; -{ - int rv = 0; - register struct process *np; -#ifdef BSDSIGS - sigmask_t omask; -#endif /* BSDSIGS */ - /* We don't use jobflags in this function right now (see below) */ - /* long jobflags = 0; */ - -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGCHLD)); -#else /* !BSDSIGS */ - (void) sighold(SIGCHLD); -#endif - np = pp; - do { - /* We don't use jobflags in this function right now (see below) */ - /* jobflags |= np->p_flags; */ - if (np->p_flags & (PRUNNING | PSTOPPED)) { - np->p_flags |= PRUNNING; - np->p_flags &= ~PSTOPPED; - if (foregnd) - np->p_flags |= PFOREGND; - else - np->p_flags &= ~PFOREGND; - } - } while ((np = np->p_friends) != pp); - if (!foregnd) - pclrcurr(pp); - (void) pprint(pp, foregnd ? NAME | JOBDIR : NUMBER | NAME | AMPERSAND); -#ifdef BSDJOBS - if (foregnd) { - rv = tcsetpgrp(FSHTTY, pp->p_jobid); - } - /* - * 1. child process of csh (shell script) receives SIGTTIN/SIGTTOU - * 2. parent process (csh) receives SIGCHLD - * 3. The "csh" signal handling function pchild() is invoked - * with a SIGCHLD signal. - * 4. pchild() calls wait3(WNOHANG) which returns 0. - * The child process is NOT ready to be waited for at this time. - * pchild() returns without picking-up the correct status - * for the child process which generated the SIGCHILD. - * 5. CONSEQUENCE : csh is UNaware that the process is stopped - * 6. THIS LINE HAS BEEN COMMENTED OUT : if (jobflags&PSTOPPED) - * (beto@aixwiz.austin.ibm.com - aug/03/91) - * 7. I removed the line completely and added extra checks for - * pstart, so that if a job gets attached to and dies inside - * a debugger it does not confuse the shell. [christos] - * 8. on the nec sx-4 there seems to be a problem, which requires - * a syscall(151, getpid(), getpid()) in osinit. Don't ask me - * what this is doing. [schott@rzg.mpg.de] - */ - - if (rv != -1) - rv = killpg(pp->p_jobid, SIGCONT); -#endif /* BSDJOBS */ -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -#endif /* !BSDSIGS */ - return rv != -1; -} - -void -panystop(neednl) - bool neednl; -{ - register struct process *pp; - - chkstop = 2; - for (pp = proclist.p_next; pp; pp = pp->p_next) - if (pp->p_flags & PSTOPPED) - stderror(ERR_STOPPED, neednl ? "\n" : ""); -} - -struct process * -pfind(cp) - Char *cp; -{ - register struct process *pp, *np; - - if (cp == 0 || cp[1] == 0 || eq(cp, STRcent2) || eq(cp, STRcentplus)) { - if (pcurrent == NULL) - stderror(ERR_NAME | ERR_JOBCUR); - return (pcurrent); - } - if (eq(cp, STRcentminus) || eq(cp, STRcenthash)) { - if (pprevious == NULL) - stderror(ERR_NAME | ERR_JOBPREV); - return (pprevious); - } - if (Isdigit(cp[1])) { - int idx = atoi(short2str(cp + 1)); - - for (pp = proclist.p_next; pp; pp = pp->p_next) - if (pp->p_index == idx && pp->p_procid == pp->p_jobid) - return (pp); - stderror(ERR_NAME | ERR_NOSUCHJOB); - } - np = NULL; - for (pp = proclist.p_next; pp; pp = pp->p_next) - if (pp->p_procid == pp->p_jobid) { - if (cp[1] == '?') { - register Char *dp; - - for (dp = pp->p_command; *dp; dp++) { - if (*dp != cp[2]) - continue; - if (prefix(cp + 2, dp)) - goto match; - } - } - else if (prefix(cp + 1, pp->p_command)) { - match: - if (np) - stderror(ERR_NAME | ERR_AMBIG); - np = pp; - } - } - if (np) - return (np); - stderror(ERR_NAME | (cp[1] == '?' ? ERR_JOBPAT : ERR_NOSUCHJOB)); - /* NOTREACHED */ - return (0); -} - - -/* - * pgetcurr - find most recent job that is not pp, preferably stopped - */ -static struct process * -pgetcurr(pp) - register struct process *pp; -{ - register struct process *np; - register struct process *xp = NULL; - - for (np = proclist.p_next; np; np = np->p_next) - if (np != pcurrent && np != pp && np->p_procid && - np->p_procid == np->p_jobid) { - if (np->p_flags & PSTOPPED) - return (np); - if (xp == NULL) - xp = np; - } - return (xp); -} - -/* - * donotify - flag the job so as to report termination asynchronously - */ -/*ARGSUSED*/ -void -donotify(v, c) - Char **v; - struct command *c; -{ - register struct process *pp; - - USE(c); - pp = pfind(*++v); - pp->p_flags |= PNOTIFY; -} - -/* - * Do the fork and whatever should be done in the child side that - * should not be done if we are not forking at all (like for simple builtin's) - * Also do everything that needs any signals fiddled with in the parent side - * - * Wanttty tells whether process and/or tty pgrps are to be manipulated: - * -1: leave tty alone; inherit pgrp from parent - * 0: already have tty; manipulate process pgrps only - * 1: want to claim tty; manipulate process and tty pgrps - * It is usually just the value of tpgrp. - */ - -int -pfork(t, wanttty) - struct command *t; /* command we are forking for */ - int wanttty; -{ - register int pid; - bool ignint = 0; - int pgrp; -#ifdef BSDSIGS - sigmask_t omask = 0; -#endif /* BSDSIGS */ -#ifdef SIGSYNCH - sigvec_t osv; - static sigvec_t nsv = {synch_handler, (sigset_t) ~0, 0}; -#endif /* SIGSYNCH */ - - /* - * A child will be uninterruptible only under very special conditions. - * Remember that the semantics of '&' is implemented by disconnecting the - * process from the tty so signals do not need to ignored just for '&'. - * Thus signals are set to default action for children unless: we have had - * an "onintr -" (then specifically ignored) we are not playing with - * signals (inherit action) - */ - if (setintr) - ignint = (tpgrp == -1 && (t->t_dflg & F_NOINTERRUPT)) - || (gointr && eq(gointr, STRminus)); - -#ifdef COHERENT - ignint |= gointr && eq(gointr, STRminus); -#endif /* COHERENT */ - - /* - * Check for maximum nesting of 16 processes to avoid Forking loops - */ - if (child == 16) - stderror(ERR_NESTING, 16); -#ifdef SIGSYNCH - if (mysigvec(SIGSYNCH, &nsv, &osv)) - stderror(ERR_SYSTEM, "pfork: sigvec set", strerror(errno)); -#endif /* SIGSYNCH */ - /* - * Hold SIGCHLD until we have the process installed in our table. - */ - if (wanttty < 0) { -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGCHLD)); -#else /* !BSDSIGS */ - (void) sighold(SIGCHLD); -#endif /* !BSDSIGS */ - } - while ((pid = fork()) == -1) - if (setintr == 0) - (void) sleep(FORKSLEEP); - else { - if (wanttty < 0) -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); - (void) sigrelse(SIGINT); -#endif /* !BSDSIGS */ - stderror(ERR_NOPROC); - } - if (pid == 0) { - settimes(); - pgrp = pcurrjob ? pcurrjob->p_jobid : getpid(); - pflushall(); - pcurrjob = NULL; -#if !defined(BSDTIMES) && !defined(_SEQUENT_) - timesdone = 0; -#endif /* !defined(BSDTIMES) && !defined(_SEQUENT_) */ - child++; - if (setintr) { - setintr = 0; /* until I think otherwise */ -#ifndef BSDSIGS - if (wanttty < 0) - (void) sigrelse(SIGCHLD); -#endif /* !BSDSIGS */ - /* - * Children just get blown away on SIGINT, SIGQUIT unless "onintr - * -" seen. - */ - (void) signal(SIGINT, ignint ? SIG_IGN : SIG_DFL); - (void) signal(SIGQUIT, ignint ? SIG_IGN : SIG_DFL); -#ifdef BSDJOBS - if (wanttty >= 0) { - /* make stoppable */ - (void) signal(SIGTSTP, SIG_DFL); - (void) signal(SIGTTIN, SIG_DFL); - (void) signal(SIGTTOU, SIG_DFL); - } -#endif /* BSDJOBS */ - (void) signal(SIGTERM, parterm); - } - else if (tpgrp == -1 && (t->t_dflg & F_NOINTERRUPT)) { - (void) signal(SIGINT, SIG_IGN); - (void) signal(SIGQUIT, SIG_IGN); - } -#ifdef OREO - sigignore(SIGIO); /* ignore SIGIO in child too */ -#endif /* OREO */ - - pgetty(wanttty, pgrp); - /* - * Nohup and nice apply only to NODE_COMMAND's but it would be nice - * (?!?) if you could say "nohup (foo;bar)" Then the parser would have - * to know about nice/nohup/time - */ - if (t->t_dflg & F_NOHUP) - (void) signal(SIGHUP, SIG_IGN); - if (t->t_dflg & F_NICE) { - int nval = SIGN_EXTEND_CHAR(t->t_nice); -#ifdef BSDNICE - (void) setpriority(PRIO_PROCESS, 0, nval); -#else /* !BSDNICE */ - (void) nice(nval); -#endif /* !BSDNICE */ - } -#ifdef F_VER - if (t->t_dflg & F_VER) { - tsetenv(STRSYSTYPE, t->t_systype ? STRbsd43 : STRsys53); - dohash(NULL, NULL); - } -#endif /* F_VER */ -#ifdef SIGSYNCH - /* rfw 8/89 now parent can continue */ - if (kill(getppid(), SIGSYNCH)) - stderror(ERR_SYSTEM, "pfork child: kill", strerror(errno)); -#endif /* SIGSYNCH */ - - } - else { -#ifdef POSIXJOBS - if (wanttty >= 0) { - /* - * `Walking' process group fix from Beto Appleton. - * (beto@aixwiz.austin.ibm.com) - * If setpgid fails at this point that means that - * our process leader has died. We flush the current - * job and become the process leader ourselves. - * The parent will figure that out later. - */ - pgrp = pcurrjob ? pcurrjob->p_jobid : pid; - if (setpgid(pid, pgrp) == -1 && errno == EPERM) { - pcurrjob = NULL; - /* - * We don't care if this causes an error here; - * then we are already in the right process group - */ - (void) setpgid(pid, pgrp = pid); - } - } -#endif /* POSIXJOBS */ - palloc(pid, t); -#ifdef SIGSYNCH - /* - * rfw 8/89 Wait for child to own terminal. Solves half of ugly - * synchronization problem. With this change, we know that the only - * reason setpgrp to a previous process in a pipeline can fail is that - * the previous process has already exited. Without this hack, he may - * either have exited or not yet started to run. Two uglies become - * one. - */ - (void) sigpause(omask & ~SYNCHMASK); - if (mysigvec(SIGSYNCH, &osv, NULL)) - stderror(ERR_SYSTEM, "pfork parent: sigvec restore", - strerror(errno)); -#endif /* SIGSYNCH */ - - if (wanttty < 0) { -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -#endif /* !BSDSIGS */ - } - } - return (pid); -} - -static void -okpcntl() -{ - if (tpgrp == -1) - stderror(ERR_JOBCONTROL); - if (tpgrp == 0) - stderror(ERR_JOBCTRLSUB); -} - - -static void -setttypgrp(pgrp) - int pgrp; -{ - /* - * If we are piping out a builtin, eg. 'echo | more' things can go - * out of sequence, i.e. the more can run before the echo. This - * can happen even if we have vfork, since the echo will be forked - * with the regular fork. In this case, we need to set the tty - * pgrp ourselves. If that happens, then the process will be still - * alive. And the tty process group will already be set. - * This should fix the famous sequent problem as a side effect: - * The controlling terminal is lost if all processes in the - * terminal process group are zombies. In this case tcgetpgrp() - * returns 0. If this happens we must set the terminal process - * group again. - */ - if (tcgetpgrp(FSHTTY) != pgrp) { -#ifdef POSIXJOBS - /* - * tcsetpgrp will set SIGTTOU to all the the processes in - * the background according to POSIX... We ignore this here. - */ - signalfun_t old = sigset(SIGTTOU, SIG_IGN); -#endif - (void) tcsetpgrp(FSHTTY, pgrp); -# ifdef POSIXJOBS - (void) sigset(SIGTTOU, old); -# endif - - } -} - - -/* - * if we don't have vfork(), things can still go in the wrong order - * resulting in the famous 'Stopped (tty output)'. But some systems - * don't permit the setpgid() call, (these are more recent secure - * systems such as ibm's aix), when they do. Then we'd rather print - * an error message than hang the shell! - * I am open to suggestions how to fix that. - */ -void -pgetty(wanttty, pgrp) - int wanttty, pgrp; -{ -#ifdef BSDJOBS -# if defined(BSDSIGS) && defined(POSIXJOBS) - sigmask_t omask = 0; -# endif /* BSDSIGS && POSIXJOBS */ - -# ifdef JOBDEBUG - xprintf("wanttty %d pid %d opgrp%d pgrp %d tpgrp %d\n", - wanttty, getpid(), pgrp, mygetpgrp(), tcgetpgrp(FSHTTY)); -# endif /* JOBDEBUG */ -# ifdef POSIXJOBS - /* - * christos: I am blocking the tty signals till I've set things - * correctly.... - */ - if (wanttty > 0) -# ifdef BSDSIGS - omask = sigblock(sigmask(SIGTSTP)|sigmask(SIGTTIN)); -# else /* !BSDSIGS */ - { - (void) sighold(SIGTSTP); - (void) sighold(SIGTTIN); - } -# endif /* !BSDSIGS */ -# endif /* POSIXJOBS */ - -# ifndef POSIXJOBS - if (wanttty > 0) - setttypgrp(pgrp); -# endif /* !POSIXJOBS */ - - /* - * From: Michael Schroeder <mlschroe@immd4.informatik.uni-erlangen.de> - * Don't check for tpgrp >= 0 so even non-interactive shells give - * background jobs process groups Same for the comparison in the other part - * of the #ifdef - */ - if (wanttty >= 0) { - if (setpgid(0, pgrp) == -1) { -# ifdef POSIXJOBS - /* Walking process group fix; see above */ - if (setpgid(0, pgrp = getpid()) == -1) { -# endif /* POSIXJOBS */ - stderror(ERR_SYSTEM, "setpgid child:\n", strerror(errno)); - xexit(0); -# ifdef POSIXJOBS - } - wanttty = pgrp; /* Now we really want the tty, since we became the - * the process group leader - */ -# endif /* POSIXJOBS */ - } - } - -# ifdef POSIXJOBS - if (wanttty > 0) - setttypgrp(pgrp); -# ifdef BSDSIGS - (void) sigsetmask(omask); -# else /* BSDSIGS */ - (void) sigrelse(SIGTSTP); - (void) sigrelse(SIGTTIN); -# endif /* !BSDSIGS */ -# endif /* POSIXJOBS */ - -# ifdef JOBDEBUG - xprintf("wanttty %d pid %d pgrp %d tpgrp %d\n", - wanttty, getpid(), mygetpgrp(), tcgetpgrp(FSHTTY)); -# endif /* JOBDEBUG */ - - if (tpgrp > 0) - tpgrp = 0; /* gave tty away */ -#endif /* BSDJOBS */ -} diff --git a/contrib/tcsh/sh.proc.h b/contrib/tcsh/sh.proc.h deleted file mode 100644 index c6fb94a63582..000000000000 --- a/contrib/tcsh/sh.proc.h +++ /dev/null @@ -1,137 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.proc.h,v 3.9 1997/10/27 22:44:32 christos Exp $ */ -/* - * sh.proc.h: Process data structures and variables - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_sh_proc -#define _h_sh_proc -/* - * C shell - process structure declarations - */ - -/* - * Structure for each process the shell knows about: - * allocated and filled by pcreate. - * flushed by pflush; freeing always happens at top level - * so the interrupt level has less to worry about. - * processes are related to "friends" when in a pipeline; - * p_friends links makes a circular list of such jobs - */ -struct process { - struct process *p_next; /* next in global "proclist" */ - struct process *p_friends; /* next in job list (or self) */ - struct directory *p_cwd; /* cwd of the job (only in head) */ - unsigned long p_flags; /* various job status flags */ - unsigned char p_reason; /* reason for entering this state */ - int p_index; /* shorthand job index */ - pid_t p_procid; - pid_t p_jobid; /* pid of job leader */ - /* if a job is stopped/background p_jobid gives its pgrp */ -#ifdef BSDTIMES - struct timeval p_btime; /* begin time */ - struct timeval p_etime; /* end time */ - struct sysrusage p_rusage; -#else /* BSDTIMES */ -# ifdef _SEQUENT_ - timeval_t p_btime; /* begin time */ - timeval_t p_etime; /* end time */ - struct process_stats p_rusage; -# else /* _SEQUENT_ */ -# ifndef POSIX - time_t p_btime; /* begin time */ - time_t p_etime; /* end time */ - time_t p_utime; /* user time */ - time_t p_stime; /* system time */ -# else /* POSIX */ - clock_t p_btime; /* begin time */ - clock_t p_etime; /* end time */ - clock_t p_utime; /* user time */ - clock_t p_stime; /* system time */ -# endif /* POSIX */ -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ - Char *p_command; /* first PMAXLEN chars of command */ -}; - -/* flag values for p_flags */ -#define PRUNNING (1<<0) /* running */ -#define PSTOPPED (1<<1) /* stopped */ -#define PNEXITED (1<<2) /* normally exited */ -#define PAEXITED (1<<3) /* abnormally exited */ -#define PSIGNALED (1<<4) /* terminated by a signal != SIGINT */ - -#define PALLSTATES (PRUNNING|PSTOPPED|PNEXITED|PAEXITED| \ - PSIGNALED|PINTERRUPTED) -#define PNOTIFY (1<<5) /* notify async when done */ -#define PTIME (1<<6) /* job times should be printed */ -#define PAWAITED (1<<7) /* top level is waiting for it */ -#define PFOREGND (1<<8) /* started in shells pgrp */ -#define PDUMPED (1<<9) /* process dumped core */ -#define PDIAG (1<<10) /* diagnostic output also piped out */ -#define PPOU (1<<11) /* piped output */ -#define PREPORTED (1<<12) /* status has been reported */ -#define PINTERRUPTED (1<<13) /* job stopped via interrupt signal */ -#define PPTIME (1<<14) /* time individual process */ -#define PNEEDNOTE (1<<15) /* notify as soon as practical */ -#define PBACKQ (1<<16) /* Process is `` evaluation */ -#define PHUP (1<<17) /* Process is marked for SIGHUP on exit */ - -#define PMAXLEN 80 - -/* defines for arguments to pprint */ -#define NUMBER 01 -#define NAME 02 -#define REASON 04 -#define AMPERSAND 010 -#define FANCY 020 -#define SHELLDIR 040 /* print shell's dir if not the same */ -#define JOBDIR 0100 /* print job's dir if not the same */ -#define AREASON 0200 - -EXTERN struct process proclist IZERO_STRUCT;/* list head of all processes */ -EXTERN bool pnoprocesses IZERO; /* pchild found nothing to wait for */ - -EXTERN struct process *pholdjob IZERO; /* one level stack of current jobs */ - -EXTERN struct process *pcurrjob IZERO; /* current job */ -EXTERN struct process *pcurrent IZERO; /* current job in table */ -EXTERN struct process *pprevious IZERO; /* previous job in table */ - -EXTERN int pmaxindex IZERO; /* current maximum job index */ - -#ifndef BSDTIMES -EXTERN bool timesdone; /* shtimes buffer full ? */ -#endif /* BSDTIMES */ - -#endif /* _h_sh_proc */ diff --git a/contrib/tcsh/sh.sem.c b/contrib/tcsh/sh.sem.c deleted file mode 100644 index 4f4a6374dd03..000000000000 --- a/contrib/tcsh/sh.sem.c +++ /dev/null @@ -1,975 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.sem.c,v 3.48 1998/11/24 18:17:37 christos Exp $ */ -/* - * sh.sem.c: I/O redirections and job forking. A touchy issue! - * Most stuff with builtins is incorrect - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.sem.c,v 3.48 1998/11/24 18:17:37 christos Exp $") - -#include "tc.h" -#include "tw.h" -#ifdef WINNT -#include "nt.const.h" -#endif /*WINNT*/ - -#ifdef CLOSE_ON_EXEC -# ifndef SUNOS4 -# ifndef CLEX_DUPS -# define CLEX_DUPS -# endif /* CLEX_DUPS */ -# endif /* !SUNOS4 */ -#endif /* CLOSE_ON_EXEC */ - -#if defined(__sparc__) || defined(sparc) -# if !defined(MACH) && SYSVREL == 0 && !defined(Lynx) && !defined(BSD4_4) && !defined(linux) -# include <vfork.h> -# endif /* !MACH && SYSVREL == 0 && !Lynx && !BSD4_4 && !linux */ -#endif /* __sparc__ || sparc */ - -#ifdef VFORK -static sigret_t vffree __P((int)); -#endif -static Char *splicepipe __P((struct command *, Char *)); -static void doio __P((struct command *, int *, int *)); -static void chkclob __P((char *)); - -/* - * C shell - */ - -/* - * For SVR4, there are problems with pipelines having the first process as - * the group leader. The problem occurs when the first process exits before - * the others have a chance to setpgid(). This is because in SVR4 you can't - * have a zombie as a group leader. The solution I have used is to reverse - * the order in which pipelines are started, making the last process the - * group leader. (Note I am not using 'pipeline' in the generic sense -- I - * mean processes connected by '|'.) I don't know yet if this causes other - * problems. - * - * All the changes for this are in execute(), and are enclosed in - * '#ifdef BACKPIPE' - * - * David Dawes (dawes@physics.su.oz.au) Oct 1991 - */ - -/*VARARGS 1*/ -void -execute(t, wanttty, pipein, pipeout) - register struct command *t; - int wanttty; - int *pipein, *pipeout; -{ -#ifdef VFORK - extern bool use_fork; /* use fork() instead of vfork()? */ -#endif - - bool forked = 0; - struct biltins *bifunc; - int pid = 0; - int pv[2]; -#ifdef BSDSIGS - static sigmask_t csigmask; -#endif /* BSDSIGS */ -#ifdef VFORK - static int onosigchld = 0; -#endif /* VFORK */ - static int nosigchld = 0; - - (void) &wanttty; - (void) &forked; - (void) &bifunc; - - if (t == 0) - return; - -#ifdef WINNT - { - if ((varval(STRNTslowexec) == STRNULL) && - !t->t_dcdr && !t->t_dcar && !t->t_dflg && !didfds && - (intty || intact) && (t->t_dtyp == NODE_COMMAND) && - !isbfunc(t)) { - if ((t->t_dcom[0][0] & (QUOTE | TRIM)) == QUOTE) - (void) Strcpy(t->t_dcom[0], t->t_dcom[0] + 1); - Dfix(t); - if (nt_try_fast_exec(t) == 0) - return; - } - } -#endif /* WINNT */ - - /* - * Ed hutchins@sgi.com & Dominic dbg@sgi.com - * Sat Feb 25 03:13:11 PST 1995 - * try implicit cd if we have a 1 word command - */ - if (implicit_cd && (intty || intact) && t->t_dcom && t->t_dcom[0] && - t->t_dcom[0][0] && (blklen(t->t_dcom) == 1) && !noexec) { - Char sCName[MAXPATHLEN]; - Char *pCN; - struct stat stbuf; - char *pathname; - - dollar(sCName, t->t_dcom[0]); - pCN = sCName; - if (pCN[0] == '~') { - Char sCPath[MAXPATHLEN]; - Char *pCP = sCPath; - - ++pCN; - while (*pCN && *pCN != '/') - *pCP++ = *pCN++; - *pCP = 0; - if (sCPath[0]) - gethdir(sCPath); - else - (void) Strcpy(sCPath, varval(STRhome)); - catn(sCPath, pCN, MAXPATHLEN); - (void) Strcpy(sCName, sCPath); - } - - pathname = short2str(sCName); - /* if this is a dir, tack a "cd" on as the first arg */ - if ((stat(pathname, &stbuf) != -1 && S_ISDIR(stbuf.st_mode)) -#ifdef WINNT - || (pathname[0] && pathname[1] == ':' && pathname[2] == '\0') -#endif /* WINNT */ - ) { - Char *vCD[2]; - Char **ot_dcom = t->t_dcom; - - vCD[0] = Strsave(STRcd); - vCD[1] = NULL; - t->t_dcom = blkspl(vCD, ot_dcom); - if (implicit_cd > 1) { - blkpr(t->t_dcom); - xputchar( '\n' ); - } - xfree((ptr_t) ot_dcom); - } - } - - /* - * From: Michael Schroeder <mlschroe@immd4.informatik.uni-erlangen.de> - * Don't check for wantty > 0... - */ - if (t->t_dflg & F_AMPERSAND) - wanttty = 0; - switch (t->t_dtyp) { - - case NODE_COMMAND: - if ((t->t_dcom[0][0] & (QUOTE | TRIM)) == QUOTE) - (void) Strcpy(t->t_dcom[0], t->t_dcom[0] + 1); - if ((t->t_dflg & F_REPEAT) == 0) - Dfix(t); /* $ " ' \ */ - if (t->t_dcom[0] == 0) { - return; - } - /*FALLTHROUGH*/ - - case NODE_PAREN: -#ifdef BACKPIPE - if (t->t_dflg & F_PIPEIN) - mypipe(pipein); -#else /* !BACKPIPE */ - if (t->t_dflg & F_PIPEOUT) - mypipe(pipeout); -#endif /* BACKPIPE */ - /* - * Must do << early so parent will know where input pointer should be. - * If noexec then this is all we do. - */ - if (t->t_dflg & F_READ) { - (void) close(0); - heredoc(t->t_dlef); - if (noexec) - (void) close(0); - } - - set(STRstatus, Strsave(STR0), VAR_READWRITE); - - /* - * This mess is the necessary kludge to handle the prefix builtins: - * nice, nohup, time. These commands can also be used by themselves, - * and this is not handled here. This will also work when loops are - * parsed. - */ - while (t->t_dtyp == NODE_COMMAND) - if (eq(t->t_dcom[0], STRnice)) { - if (t->t_dcom[1]) { - if (strchr("+-", t->t_dcom[1][0])) { - if (t->t_dcom[2]) { - setname("nice"); - t->t_nice = - getn(t->t_dcom[1]); - lshift(t->t_dcom, 2); - t->t_dflg |= F_NICE; - } - else - break; - } - else { - t->t_nice = 4; - lshift(t->t_dcom, 1); - t->t_dflg |= F_NICE; - } - } - else - break; - } - else if (eq(t->t_dcom[0], STRnohup)) { - if (t->t_dcom[1]) { - t->t_dflg |= F_NOHUP; - lshift(t->t_dcom, 1); - } - else - break; - } - else if (eq(t->t_dcom[0], STRhup)) { - if (t->t_dcom[1]) { - t->t_dflg |= F_HUP; - lshift(t->t_dcom, 1); - } - else - break; - } - else if (eq(t->t_dcom[0], STRtime)) { - if (t->t_dcom[1]) { - t->t_dflg |= F_TIME; - lshift(t->t_dcom, 1); - } - else - break; - } -#ifdef F_VER - else if (eq(t->t_dcom[0], STRver)) - if (t->t_dcom[1] && t->t_dcom[2]) { - setname("ver"); - t->t_systype = getv(t->t_dcom[1]); - lshift(t->t_dcom, 2); - t->t_dflg |= F_VER; - } - else - break; -#endif /* F_VER */ - else - break; - - /* is it a command */ - if (t->t_dtyp == NODE_COMMAND) { - /* - * Check if we have a builtin function and remember which one. - */ - bifunc = isbfunc(t); - if (noexec && bifunc) { - /* - * Continue for builtins that are part of the scripting language - */ - if (bifunc->bfunct != (bfunc_t)dobreak && - bifunc->bfunct != (bfunc_t)docontin && - bifunc->bfunct != (bfunc_t)doelse && - bifunc->bfunct != (bfunc_t)doend && - bifunc->bfunct != (bfunc_t)doforeach&& - bifunc->bfunct != (bfunc_t)dogoto && - bifunc->bfunct != (bfunc_t)doif && - bifunc->bfunct != (bfunc_t)dorepeat && - bifunc->bfunct != (bfunc_t)doswbrk && - bifunc->bfunct != (bfunc_t)doswitch && - bifunc->bfunct != (bfunc_t)dowhile && - bifunc->bfunct != (bfunc_t)dozip) - break; - } - } - else { /* not a command */ - bifunc = NULL; - if (noexec) - break; - } - - /* - * We fork only if we are timed, or are not the end of a parenthesized - * list and not a simple builtin function. Simple meaning one that is - * not pipedout, niced, nohupped, or &'d. It would be nice(?) to not - * fork in some of these cases. - */ - /* - * Prevent forking cd, pushd, popd, chdir cause this will cause the - * shell not to change dir! - */ -#ifdef BACKPIPE - /* - * Can't have NOFORK for the tail of a pipe - because it is not the - * last command spawned (even if it is at the end of a parenthesised - * list). - */ - if (t->t_dflg & F_PIPEIN) - t->t_dflg &= ~(F_NOFORK); -#endif /* BACKPIPE */ - if (bifunc && (bifunc->bfunct == (bfunc_t)dochngd || - bifunc->bfunct == (bfunc_t)dopushd || - bifunc->bfunct == (bfunc_t)dopopd)) - t->t_dflg &= ~(F_NICE); - if (((t->t_dflg & F_TIME) || ((t->t_dflg & F_NOFORK) == 0 && - (!bifunc || t->t_dflg & - (F_PIPEOUT | F_AMPERSAND | F_NICE | F_NOHUP | F_HUP)))) || - /* - * We have to fork for eval too. - */ - (bifunc && (t->t_dflg & F_PIPEIN) != 0 && - bifunc->bfunct == (bfunc_t)doeval)) -#ifdef VFORK - if (t->t_dtyp == NODE_PAREN || - t->t_dflg & (F_REPEAT | F_AMPERSAND) || bifunc) -#endif /* VFORK */ - { - forked++; - /* - * We need to block SIGCHLD here, so that if the process does - * not die before we can set the process group - */ - if (wanttty >= 0 && !nosigchld) { -#ifdef BSDSIGS - csigmask = sigblock(sigmask(SIGCHLD)); -#else /* !BSDSIGS */ - (void) sighold(SIGCHLD); -#endif /* BSDSIGS */ - - nosigchld = 1; - } - - pid = pfork(t, wanttty); - if (pid == 0 && nosigchld) { -#ifdef BSDSIGS - (void) sigsetmask(csigmask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -#endif /* BSDSIGS */ - nosigchld = 0; - } - else if (pid != 0 && (t->t_dflg & F_AMPERSAND)) - backpid = pid; - } - -#ifdef VFORK - else { - int ochild, osetintr, ohaderr, odidfds; - int oSHIN, oSHOUT, oSHDIAG, oOLDSTD, otpgrp; - int oisoutatty, oisdiagatty; - -# ifndef CLOSE_ON_EXEC - int odidcch; -# endif /* !CLOSE_ON_EXEC */ -# ifdef BSDSIGS - sigmask_t omask, ocsigmask; -# endif /* BSDSIGS */ - - /* - * Prepare for the vfork by saving everything that the child - * corrupts before it exec's. Note that in some signal - * implementations which keep the signal info in user space - * (e.g. Sun's) it will also be necessary to save and restore - * the current sigvec's for the signals the child touches - * before it exec's. - */ - - /* - * Sooooo true... If this is a Sun, save the sigvec's. (Skip - * Gilbrech - 11/22/87) - */ -# ifdef SAVESIGVEC - sigvec_t savesv[NSIGSAVED]; - sigmask_t savesm; - -# endif /* SAVESIGVEC */ - if (wanttty >= 0 && !nosigchld && !noexec) { -# ifdef BSDSIGS - csigmask = sigblock(sigmask(SIGCHLD)); -# else /* !BSDSIGS */ - (void) sighold(SIGCHLD); -# endif /* BSDSIGS */ - nosigchld = 1; - } -# ifdef BSDSIGS - omask = sigblock(sigmask(SIGCHLD)|sigmask(SIGINT)); -# else /* !BSDSIGS */ - (void) sighold(SIGCHLD); - (void) sighold(SIGINT); -# endif /* BSDSIGS */ - ochild = child; - osetintr = setintr; - ohaderr = haderr; - odidfds = didfds; -# ifndef CLOSE_ON_EXEC - odidcch = didcch; -# endif /* !CLOSE_ON_EXEC */ - oSHIN = SHIN; - oSHOUT = SHOUT; - oSHDIAG = SHDIAG; - oOLDSTD = OLDSTD; - otpgrp = tpgrp; - oisoutatty = isoutatty; - oisdiagatty = isdiagatty; -# ifdef BSDSIGS - ocsigmask = csigmask; -# endif /* BSDSIGS */ - onosigchld = nosigchld; - Vsav = Vdp = 0; - Vexpath = 0; - Vt = 0; -# ifdef SAVESIGVEC - savesm = savesigvec(savesv); -# endif /* SAVESIGVEC */ - if (use_fork) - pid = fork(); - else - pid = vfork(); - - if (pid < 0) { -# ifdef BSDSIGS -# ifdef SAVESIGVEC - restoresigvec(savesv, savesm); -# endif /* SAVESIGVEC */ - (void) sigsetmask(omask); -# else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); - (void) sigrelse(SIGINT); -# endif /* BSDSIGS */ - stderror(ERR_NOPROC); - } - forked++; - if (pid) { /* parent */ -# ifdef SAVESIGVEC - restoresigvec(savesv, savesm); -# endif /* SAVESIGVEC */ - child = ochild; - setintr = osetintr; - haderr = ohaderr; - didfds = odidfds; - SHIN = oSHIN; -# ifndef CLOSE_ON_EXEC - didcch = odidcch; -# endif /* !CLOSE_ON_EXEC */ - SHOUT = oSHOUT; - SHDIAG = oSHDIAG; - OLDSTD = oOLDSTD; - tpgrp = otpgrp; - isoutatty = oisoutatty; - isdiagatty = oisdiagatty; -# ifdef BSDSIGS - csigmask = ocsigmask; -# endif /* BSDSIGS */ - nosigchld = onosigchld; - - xfree((ptr_t) Vsav); - Vsav = 0; - xfree((ptr_t) Vdp); - Vdp = 0; - xfree((ptr_t) Vexpath); - Vexpath = 0; - blkfree((Char **) Vt); - Vt = 0; - /* this is from pfork() */ - palloc(pid, t); -# ifdef BSDSIGS - (void) sigsetmask(omask); -# else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); - (void) sigrelse(SIGINT); -# endif /* BSDSIGS */ - } - else { /* child */ - /* this is from pfork() */ - int pgrp; - bool ignint = 0; - if (nosigchld) { -# ifdef BSDSIGS - (void) sigsetmask(csigmask); -# else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -# endif /* BSDSIGS */ - nosigchld = 0; - } - - if (setintr) - ignint = (tpgrp == -1 && (t->t_dflg & F_NOINTERRUPT)) - || (gointr && eq(gointr, STRminus)); - pgrp = pcurrjob ? pcurrjob->p_jobid : getpid(); - child++; - if (setintr) { - setintr = 0; -/* - * casts made right for SunOS 4.0 by Douglas C. Schmidt - * <schmidt%sunshine.ics.uci.edu@ROME.ICS.UCI.EDU> - * (thanks! -- PWP) - * - * ignint ifs cleaned by Johan Widen <mcvax!osiris.sics.se!jw@uunet.UU.NET> - * (thanks again) - */ - if (ignint) { - (void) signal(SIGINT, SIG_IGN); - (void) signal(SIGQUIT, SIG_IGN); - } - else { - (void) signal(SIGINT, vffree); - (void) signal(SIGQUIT, SIG_DFL); - } -# ifdef BSDJOBS - if (wanttty >= 0) { - (void) signal(SIGTSTP, SIG_DFL); - (void) signal(SIGTTIN, SIG_DFL); - (void) signal(SIGTTOU, SIG_DFL); - } -# endif /* BSDJOBS */ - - (void) signal(SIGTERM, parterm); - } - else if (tpgrp == -1 && - (t->t_dflg & F_NOINTERRUPT)) { - (void) signal(SIGINT, SIG_IGN); - (void) signal(SIGQUIT, SIG_IGN); - } - - pgetty(wanttty, pgrp); - - if (t->t_dflg & F_NOHUP) - (void) signal(SIGHUP, SIG_IGN); - if (t->t_dflg & F_HUP) - (void) signal(SIGHUP, SIG_DFL); - if (t->t_dflg & F_NICE) { - int nval = SIGN_EXTEND_CHAR(t->t_nice); -# ifdef BSDNICE - (void) setpriority(PRIO_PROCESS, 0, nval); -# else /* !BSDNICE */ - (void) nice(nval); -# endif /* BSDNICE */ - } -# ifdef F_VER - if (t->t_dflg & F_VER) { - tsetenv(STRSYSTYPE, t->t_systype ? STRbsd43 : STRsys53); - dohash(NULL, NULL); - } -# endif /* F_VER */ - } - - } -#endif /* VFORK */ - if (pid != 0) { - /* - * It would be better if we could wait for the whole job when we - * knew the last process had been started. Pwait, in fact, does - * wait for the whole job anyway, but this test doesn't really - * express our intentions. - */ -#ifdef BACKPIPE - if (didfds == 0 && t->t_dflg & F_PIPEOUT) { - (void) close(pipeout[0]); - (void) close(pipeout[1]); - } - if ((t->t_dflg & F_PIPEIN) != 0) - break; -#else /* !BACKPIPE */ - if (didfds == 0 && t->t_dflg & F_PIPEIN) { - (void) close(pipein[0]); - (void) close(pipein[1]); - } - if ((t->t_dflg & F_PIPEOUT) != 0) - break; -#endif /* BACKPIPE */ - - if (nosigchld) { -#ifdef BSDSIGS - (void) sigsetmask(csigmask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGCHLD); -#endif /* BSDSIGS */ - nosigchld = 0; - } - if ((t->t_dflg & F_AMPERSAND) == 0) - pwait(); - break; - } - - doio(t, pipein, pipeout); -#ifdef BACKPIPE - if (t->t_dflg & F_PIPEIN) { - (void) close(pipein[0]); - (void) close(pipein[1]); - } -#else /* !BACKPIPE */ - if (t->t_dflg & F_PIPEOUT) { - (void) close(pipeout[0]); - (void) close(pipeout[1]); - } -#endif /* BACKPIPE */ - /* - * Perform a builtin function. If we are not forked, arrange for - * possible stopping - */ - if (bifunc) { - func(t, bifunc); - if (forked) - exitstat(); - break; - } - if (t->t_dtyp != NODE_PAREN) { - doexec(t); - /* NOTREACHED */ - } - /* - * For () commands must put new 0,1,2 in FSH* and recurse - */ - OLDSTD = dcopy(0, FOLDSTD); - SHOUT = dcopy(1, FSHOUT); - isoutatty = isatty(SHOUT); - SHDIAG = dcopy(2, FSHDIAG); - isdiagatty = isatty(SHDIAG); - (void) close(SHIN); - SHIN = -1; -#ifndef CLOSE_ON_EXEC - didcch = 0; -#endif /* !CLOSE_ON_EXEC */ - didfds = 0; - wanttty = -1; - t->t_dspr->t_dflg |= t->t_dflg & F_NOINTERRUPT; - execute(t->t_dspr, wanttty, NULL, NULL); - exitstat(); - - case NODE_PIPE: -#ifdef BACKPIPE - t->t_dcdr->t_dflg |= F_PIPEIN | (t->t_dflg & - (F_PIPEOUT | F_AMPERSAND | F_NOFORK | F_NOINTERRUPT)); - execute(t->t_dcdr, wanttty, pv, pipeout); - t->t_dcar->t_dflg |= F_PIPEOUT | - (t->t_dflg & (F_PIPEIN | F_AMPERSAND | F_STDERR | F_NOINTERRUPT)); - execute(t->t_dcar, wanttty, pipein, pv); -#else /* !BACKPIPE */ - t->t_dcar->t_dflg |= F_PIPEOUT | - (t->t_dflg & (F_PIPEIN | F_AMPERSAND | F_STDERR | F_NOINTERRUPT)); - execute(t->t_dcar, wanttty, pipein, pv); - t->t_dcdr->t_dflg |= F_PIPEIN | (t->t_dflg & - (F_PIPEOUT | F_AMPERSAND | F_NOFORK | F_NOINTERRUPT)); - execute(t->t_dcdr, wanttty, pv, pipeout); -#endif /* BACKPIPE */ - break; - - case NODE_LIST: - if (t->t_dcar) { - t->t_dcar->t_dflg |= t->t_dflg & F_NOINTERRUPT; - execute(t->t_dcar, wanttty, NULL, NULL); - /* - * In strange case of A&B make a new job after A - */ - if (t->t_dcar->t_dflg & F_AMPERSAND && t->t_dcdr && - (t->t_dcdr->t_dflg & F_AMPERSAND) == 0) - pendjob(); - } - if (t->t_dcdr) { - t->t_dcdr->t_dflg |= t->t_dflg & - (F_NOFORK | F_NOINTERRUPT); - execute(t->t_dcdr, wanttty, NULL, NULL); - } - break; - - case NODE_OR: - case NODE_AND: - if (t->t_dcar) { - t->t_dcar->t_dflg |= t->t_dflg & F_NOINTERRUPT; - execute(t->t_dcar, wanttty, NULL, NULL); - if ((getn(varval(STRstatus)) == 0) != - (t->t_dtyp == NODE_AND)) { - return; - } - } - if (t->t_dcdr) { - t->t_dcdr->t_dflg |= t->t_dflg & - (F_NOFORK | F_NOINTERRUPT); - execute(t->t_dcdr, wanttty, NULL, NULL); - } - break; - - default: - break; - } - /* - * Fall through for all breaks from switch - * - * If there will be no more executions of this command, flush all file - * descriptors. Places that turn on the F_REPEAT bit are responsible for - * doing donefds after the last re-execution - */ - if (didfds && !(t->t_dflg & F_REPEAT)) - donefds(); -} - -#ifdef VFORK -static sigret_t -/*ARGSUSED*/ -vffree(snum) -int snum; -{ - register Char **v; - - USE(snum); - if ((v = gargv) != 0) { - gargv = 0; - xfree((ptr_t) v); - } - - if ((v = pargv) != 0) { - pargv = 0; - xfree((ptr_t) v); - } - - _exit(1); -#ifndef SIGVOID - /*NOTREACHED*/ - return(0); -#endif /* SIGVOID */ -} -#endif /* VFORK */ - -/* - * Expand and glob the words after an i/o redirection. - * If more than one word is generated, then update the command vector. - * - * This is done differently in all the shells: - * 1. in the bourne shell and ksh globbing is not performed - * 2. Bash/csh say ambiguous - * 3. zsh does i/o to/from all the files - * 4. itcsh concatenates the words. - * - * I don't know what is best to do. I think that Ambiguous is better - * than restructuring the command vector, because the user can get - * unexpected results. In any case, the command vector restructuring - * code is present and the user can choose it by setting noambiguous - */ -static Char * -splicepipe(t, cp) - register struct command *t; - Char *cp; /* word after < or > */ -{ - Char *blk[2]; - - if (adrof(STRnoambiguous)) { - Char **pv; - - blk[0] = Dfix1(cp); /* expand $ */ - blk[1] = NULL; - - gflag = 0, tglob(blk); - if (gflag) { - pv = globall(blk); - if (pv == NULL) { - setname(short2str(blk[0])); - xfree((ptr_t) blk[0]); - stderror(ERR_NAME | ERR_NOMATCH); - } - gargv = NULL; - if (pv[1] != NULL) { /* we need to fix the command vector */ - Char **av = blkspl(t->t_dcom, &pv[1]); - xfree((ptr_t) t->t_dcom); - t->t_dcom = av; - } - xfree((ptr_t) blk[0]); - blk[0] = pv[0]; - xfree((ptr_t) pv); - } - } - else { - Char buf[BUFSIZE]; - - (void) Strcpy(buf, blk[1] = Dfix1(cp)); - xfree((ptr_t) blk[1]); - blk[0] = globone(buf, G_ERROR); - } - return(blk[0]); -} - -/* - * Perform io redirection. - * We may or maynot be forked here. - */ -static void -doio(t, pipein, pipeout) - register struct command *t; - int *pipein, *pipeout; -{ - register int fd; - register Char *cp; - register unsigned long flags = t->t_dflg; - - if (didfds || (flags & F_REPEAT)) - return; - if ((flags & F_READ) == 0) {/* F_READ already done */ - if (t->t_dlef) { - char tmp[MAXPATHLEN+1]; - - /* - * so < /dev/std{in,out,err} work - */ - (void) dcopy(SHIN, 0); - (void) dcopy(SHOUT, 1); - (void) dcopy(SHDIAG, 2); - cp = splicepipe(t, t->t_dlef); - (void) strncpy(tmp, short2str(cp), MAXPATHLEN); - tmp[MAXPATHLEN] = '\0'; - xfree((ptr_t) cp); - if ((fd = open(tmp, O_RDONLY)) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); -#ifdef O_LARGEFILE - /* allow input files larger than 2Gb */ - (void) fcntl(fd, O_LARGEFILE, 0); -#endif /* O_LARGEFILE */ - (void) dmove(fd, 0); - } - else if (flags & F_PIPEIN) { - (void) close(0); - (void) dup(pipein[0]); - (void) close(pipein[0]); - (void) close(pipein[1]); - } - else if ((flags & F_NOINTERRUPT) && tpgrp == -1) { - (void) close(0); - (void) open(_PATH_DEVNULL, O_RDONLY); - } - else { - (void) close(0); - (void) dup(OLDSTD); -#if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS) - /* - * PWP: Unlike Bezerkeley 4.3, FIONCLEX for Pyramid is preserved - * across dup()s, so we have to UNSET it here or else we get a - * command with NO stdin, stdout, or stderr at all (a bad thing - * indeed) - */ - (void) close_on_exec(0, 0); -#endif /* CLOSE_ON_EXEC && CLEX_DUPS */ - } - } - if (t->t_drit) { - char tmp[MAXPATHLEN+1]; - - cp = splicepipe(t, t->t_drit); - (void) strncpy(tmp, short2str(cp), MAXPATHLEN); - tmp[MAXPATHLEN] = '\0'; - xfree((ptr_t) cp); - /* - * so > /dev/std{out,err} work - */ - (void) dcopy(SHOUT, 1); - (void) dcopy(SHDIAG, 2); - if ((flags & F_APPEND) != 0) { -#ifdef O_APPEND - fd = open(tmp, O_WRONLY | O_APPEND); -#else /* !O_APPEND */ - fd = open(tmp, O_WRONLY); - (void) lseek(fd, (off_t) 0, L_XTND); -#endif /* O_APPEND */ - } - else - fd = 0; - if ((flags & F_APPEND) == 0 || fd == -1) { - if (!(flags & F_OVERWRITE) && adrof(STRnoclobber)) { - if (flags & F_APPEND) - stderror(ERR_SYSTEM, tmp, strerror(errno)); - chkclob(tmp); - } - if ((fd = creat(tmp, 0666)) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); -#ifdef O_LARGEFILE - /* allow input files larger than 2Gb */ - (void) fcntl(fd, O_LARGEFILE, 0); -#endif /* O_LARGEFILE */ - } - (void) dmove(fd, 1); - is1atty = isatty(1); - } - else if (flags & F_PIPEOUT) { - (void) close(1); - (void) dup(pipeout[1]); - is1atty = 0; - } - else { - (void) close(1); - (void) dup(SHOUT); - is1atty = isoutatty; -# if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS) - (void) close_on_exec(1, 0); -# endif /* CLOSE_ON_EXEC && CLEX_DUPS */ - } - - (void) close(2); - if (flags & F_STDERR) { - (void) dup(1); - is2atty = is1atty; - } - else { - (void) dup(SHDIAG); - is2atty = isdiagatty; -# if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS) - (void) close_on_exec(2, 0); -# endif /* CLOSE_ON_EXEC && CLEX_DUPS */ - } - didfds = 1; -} - -void -mypipe(pv) - register int *pv; -{ - - if (pipe(pv) < 0) - goto oops; - pv[0] = dmove(pv[0], -1); - pv[1] = dmove(pv[1], -1); - if (pv[0] >= 0 && pv[1] >= 0) - return; -oops: - stderror(ERR_PIPE); -} - -static void -chkclob(cp) - register char *cp; -{ - struct stat stb; - - if (stat(cp, &stb) < 0) - return; - if (S_ISCHR(stb.st_mode)) - return; - stderror(ERR_EXISTS, cp); -} diff --git a/contrib/tcsh/sh.set.c b/contrib/tcsh/sh.set.c deleted file mode 100644 index f772d644db4c..000000000000 --- a/contrib/tcsh/sh.set.c +++ /dev/null @@ -1,1211 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.set.c,v 3.36 2000/01/14 22:57:28 christos Exp $ */ -/* - * sh.set.c: Setting and Clearing of variables - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.set.c,v 3.36 2000/01/14 22:57:28 christos Exp $") - -#include "ed.h" -#include "tw.h" - -extern Char HistLit; -extern bool GotTermCaps; - -static void update_vars __P((Char *)); -static Char *getinx __P((Char *, int *)); -static void asx __P((Char *, int, Char *)); -static struct varent *getvx __P((Char *, int)); -static Char *xset __P((Char *, Char ***)); -static Char *operate __P((int, Char *, Char *)); -static void putn1 __P((int)); -static struct varent *madrof __P((Char *, struct varent *)); -static void unsetv1 __P((struct varent *)); -static void exportpath __P((Char **)); -static void balance __P((struct varent *, int, int)); - -/* - * C Shell - */ - -static void -update_vars(vp) - Char *vp; -{ - if (eq(vp, STRpath)) { - exportpath(adrof(STRpath)->vec); - dohash(NULL, NULL); - } - else if (eq(vp, STRhistchars)) { - register Char *pn = varval(vp); - - HIST = *pn++; - HISTSUB = *pn; - } - else if (eq(vp, STRpromptchars)) { - register Char *pn = varval(vp); - - PRCH = *pn++; - PRCHROOT = *pn; - } - else if (eq(vp, STRhistlit)) { - HistLit = 1; - } - else if (eq(vp, STRuser)) { - tsetenv(STRKUSER, varval(vp)); - tsetenv(STRLOGNAME, varval(vp)); - } - else if (eq(vp, STRgroup)) { - tsetenv(STRKGROUP, varval(vp)); - } - else if (eq(vp, STRwordchars)) { - word_chars = varval(vp); - } - else if (eq(vp, STRloginsh)) { - loginsh = 1; - } - else if (eq(vp, STRsymlinks)) { - register Char *pn = varval(vp); - - if (eq(pn, STRignore)) - symlinks = SYM_IGNORE; - else if (eq(pn, STRexpand)) - symlinks = SYM_EXPAND; - else if (eq(pn, STRchase)) - symlinks = SYM_CHASE; - else - symlinks = 0; - } - else if (eq(vp, STRterm)) { - Char *cp = varval(vp); - tsetenv(STRKTERM, cp); -#ifdef DOESNT_WORK_RIGHT - cp = getenv("TERMCAP"); - if (cp && (*cp != '/')) /* if TERMCAP and not a path */ - Unsetenv(STRTERMCAP); -#endif /* DOESNT_WORK_RIGHT */ - GotTermCaps = 0; - if (noediting && Strcmp(cp, STRnetwork) != 0 && - Strcmp(cp, STRunknown) != 0 && Strcmp(cp, STRdumb) != 0) { - editing = 1; - noediting = 0; - set(STRedit, Strsave(STRNULL), VAR_READWRITE); - } - ed_Init(); /* reset the editor */ - } - else if (eq(vp, STRhome)) { - register Char *cp; - - cp = Strsave(varval(vp)); /* get the old value back */ - - /* - * convert to cononical pathname (possibly resolving symlinks) - */ - cp = dcanon(cp, cp); - - set(vp, Strsave(cp), VAR_READWRITE); /* have to save the new val */ - - /* and now mirror home with HOME */ - tsetenv(STRKHOME, cp); - /* fix directory stack for new tilde home */ - dtilde(); - xfree((ptr_t) cp); - } - else if (eq(vp, STRedit)) { - editing = 1; - noediting = 0; - /* PWP: add more stuff in here later */ - } - else if (eq(vp, STRshlvl)) { - tsetenv(STRKSHLVL, varval(vp)); - } - else if (eq(vp, STRbackslash_quote)) { - bslash_quote = 1; - } - else if (eq(vp, STRdirstack)) { - dsetstack(); - } - else if (eq(vp, STRrecognize_only_executables)) { - tw_cmd_free(); - } -#ifndef HAVENOUTMP - else if (eq(vp, STRwatch)) { - resetwatch(); - } -#endif /* HAVENOUTMP */ - else if (eq(vp, STRimplicitcd)) { - implicit_cd = ((eq(varval(vp), STRverbose)) ? 2 : 1); - } -#ifdef COLOR_LS_F - else if (eq(vp, STRcolor)) { - set_color_context(); - } -#endif /* COLOR_LS_F */ -#if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE) - else if(eq(vp, CHECK_MBYTEVAR) || eq(vp, STRnokanji)) { - update_dspmbyte_vars(); - } -#endif -} - - -/*ARGSUSED*/ -void -doset(v, c) - register Char **v; - struct command *c; -{ - register Char *p; - Char *vp, op; - Char **vecp; - bool hadsub; - int subscr; - int flags = VAR_READWRITE; - bool first_match = 0; - bool last_match = 0; - bool changed = 0; - - USE(c); - v++; - do { - changed = 0; - /* - * Readonly addition From: Tim P. Starrin <noid@cyborg.larc.nasa.gov> - */ - if (*v && eq(*v, STRmr)) { - flags = VAR_READONLY; - v++; - changed = 1; - } - if (*v && eq(*v, STRmf) && !last_match) { - first_match = 1; - v++; - changed = 1; - } - if (*v && eq(*v, STRml) && !first_match) { - last_match = 1; - v++; - changed = 1; - } - } while(changed); - p = *v++; - if (p == 0) { - plist(&shvhed, flags); - return; - } - do { - hadsub = 0; - vp = p; - if (letter(*p)) - for (; alnum(*p); p++) - continue; - if (vp == p || !letter(*vp)) - stderror(ERR_NAME | ERR_VARBEGIN); - if ((p - vp) > MAXVARLEN) { - stderror(ERR_NAME | ERR_VARTOOLONG); - return; - } - if (*p == '[') { - hadsub++; - p = getinx(p, &subscr); - } - if ((op = *p) != 0) { - *p++ = 0; - if (*p == 0 && *v && **v == '(') - p = *v++; - } - else if (*v && eq(*v, STRequal)) { - op = '=', v++; - if (*v) - p = *v++; - } - if (op && op != '=') - stderror(ERR_NAME | ERR_SYNTAX); - if (eq(p, STRLparen)) { - register Char **e = v; - - if (hadsub) - stderror(ERR_NAME | ERR_SYNTAX); - for (;;) { - if (!*e) - stderror(ERR_NAME | ERR_MISSING, ')'); - if (**e == ')') - break; - e++; - } - p = *e; - *e = 0; - vecp = saveblk(v); - if (first_match) - flags |= VAR_FIRST; - else if (last_match) - flags |= VAR_LAST; - - set1(vp, vecp, &shvhed, flags); - *e = p; - v = e + 1; - } - else if (hadsub) - asx(vp, subscr, Strsave(p)); - else - set(vp, Strsave(p), flags); - update_vars(vp); - } while ((p = *v++) != NULL); -} - -static Char * -getinx(cp, ip) - register Char *cp; - register int *ip; -{ - *ip = 0; - *cp++ = 0; - while (*cp && Isdigit(*cp)) - *ip = *ip * 10 + *cp++ - '0'; - if (*cp++ != ']') - stderror(ERR_NAME | ERR_SUBSCRIPT); - return (cp); -} - -static void -asx(vp, subscr, p) - Char *vp; - int subscr; - Char *p; -{ - register struct varent *v = getvx(vp, subscr); - - if (v->v_flags & VAR_READONLY) - stderror(ERR_READONLY|ERR_NAME, v->v_name); - xfree((ptr_t) v->vec[subscr - 1]); - v->vec[subscr - 1] = globone(p, G_APPEND); -} - -static struct varent * -getvx(vp, subscr) - Char *vp; - int subscr; -{ - register struct varent *v = adrof(vp); - - if (v == 0) - udvar(vp); - if (subscr < 1 || subscr > blklen(v->vec)) - stderror(ERR_NAME | ERR_RANGE); - return (v); -} - -/*ARGSUSED*/ -void -dolet(v, dummy) - Char **v; - struct command *dummy; -{ - register Char *p; - Char *vp, c, op; - bool hadsub; - int subscr; - - USE(dummy); - v++; - p = *v++; - if (p == 0) { - prvars(); - return; - } - do { - hadsub = 0; - vp = p; - if (letter(*p)) - for (; alnum(*p); p++) - continue; - if (vp == p || !letter(*vp)) - stderror(ERR_NAME | ERR_VARBEGIN); - if ((p - vp) > MAXVARLEN) - stderror(ERR_NAME | ERR_VARTOOLONG); - if (*p == '[') { - hadsub++; - p = getinx(p, &subscr); - } - if (*p == 0 && *v) - p = *v++; - if ((op = *p) != 0) - *p++ = 0; - else - stderror(ERR_NAME | ERR_ASSIGN); - - /* - * if there is no expression after the '=' then print a "Syntax Error" - * message - strike - */ - if (*p == '\0' && *v == NULL) - stderror(ERR_NAME | ERR_ASSIGN); - - vp = Strsave(vp); - if (op == '=') { - c = '='; - p = xset(p, &v); - } - else { - c = *p++; - if (any("+-", c)) { - if (c != op || *p) - stderror(ERR_NAME | ERR_UNKNOWNOP); - p = Strsave(STR1); - } - else { - if (any("<>", op)) { - if (c != op) - stderror(ERR_NAME | ERR_UNKNOWNOP); - c = *p++; - stderror(ERR_NAME | ERR_SYNTAX); - } - if (c != '=') - stderror(ERR_NAME | ERR_UNKNOWNOP); - p = xset(p, &v); - } - } - if (op == '=') { - if (hadsub) - asx(vp, subscr, p); - else - set(vp, p, VAR_READWRITE); - } - else if (hadsub) { - struct varent *gv = getvx(vp, subscr); - - asx(vp, subscr, operate(op, gv->vec[subscr - 1], p)); - } - else - set(vp, operate(op, varval(vp), p), VAR_READWRITE); - update_vars(vp); - xfree((ptr_t) vp); - if (c != '=') - xfree((ptr_t) p); - } while ((p = *v++) != NULL); -} - -static Char * -xset(cp, vp) - Char *cp, ***vp; -{ - register Char *dp; - - if (*cp) { - dp = Strsave(cp); - --(*vp); - xfree((ptr_t) ** vp); - **vp = dp; - } - return (putn(expr(vp))); -} - -static Char * -operate(op, vp, p) - int op; - Char *vp, *p; -{ - Char opr[2]; - Char *vec[5]; - register Char **v = vec; - Char **vecp = v; - register int i; - - if (op != '=') { - if (*vp) - *v++ = vp; - opr[0] = (Char) op; - opr[1] = 0; - *v++ = opr; - if (op == '<' || op == '>') - *v++ = opr; - } - *v++ = p; - *v++ = 0; - i = expr(&vecp); - if (*vecp) - stderror(ERR_NAME | ERR_EXPRESSION); - return (putn(i)); -} - -static Char *putp, nbuf[50]; - -Char * -putn(n) - register int n; -{ - int num; - - putp = nbuf; - if (n < 0) { - n = -n; - *putp++ = '-'; - } - num = 2; /* confuse lint */ - if (sizeof(int) == num && ((unsigned int) n) == 0x8000) { - *putp++ = '3'; - n = 2768; -#ifdef pdp11 - } -#else /* !pdp11 */ - } - else { - num = 4; /* confuse lint */ - if (sizeof(int) == num && ((unsigned int) n) == 0x80000000) { - *putp++ = '2'; - n = 147483648; - } - } -#endif /* pdp11 */ - putn1(n); - *putp = 0; - return (Strsave(nbuf)); -} - -static void -putn1(n) - register int n; -{ - if (n > 9) - putn1(n / 10); - *putp++ = n % 10 + '0'; -} - -int -getn(cp) - register Char *cp; -{ - register int n; - int sign; - - if (!cp) /* PWP: extra error checking */ - stderror(ERR_NAME | ERR_BADNUM); - - sign = 0; - if (cp[0] == '+' && cp[1]) - cp++; - if (*cp == '-') { - sign++; - cp++; - if (!Isdigit(*cp)) - stderror(ERR_NAME | ERR_BADNUM); - } - n = 0; - while (Isdigit(*cp)) - n = n * 10 + *cp++ - '0'; - if (*cp) - stderror(ERR_NAME | ERR_BADNUM); - return (sign ? -n : n); -} - -Char * -value1(var, head) - Char *var; - struct varent *head; -{ - register struct varent *vp; - - if (!var || !head) /* PWP: extra error checking */ - return (STRNULL); - - vp = adrof1(var, head); - return (vp == 0 || vp->vec[0] == 0 ? STRNULL : vp->vec[0]); -} - -static struct varent * -madrof(pat, vp) - Char *pat; - register struct varent *vp; -{ - register struct varent *vp1; - - for (vp = vp->v_left; vp; vp = vp->v_right) { - if (vp->v_left && (vp1 = madrof(pat, vp)) != NULL) - return vp1; - if (Gmatch(vp->v_name, pat)) - return vp; - } - return vp; -} - -struct varent * -adrof1(name, v) - register Char *name; - register struct varent *v; -{ - int cmp; - - v = v->v_left; - while (v && ((cmp = *name - *v->v_name) != 0 || - (cmp = Strcmp(name, v->v_name)) != 0)) - if (cmp < 0) - v = v->v_left; - else - v = v->v_right; - return v; -} - -/* - * The caller is responsible for putting value in a safe place - */ -void -set(var, val, flags) - Char *var, *val; - int flags; -{ - register Char **vec = (Char **) xmalloc((size_t) (2 * sizeof(Char **))); - - vec[0] = val; - vec[1] = 0; - set1(var, vec, &shvhed, flags); -} - -void -set1(var, vec, head, flags) - Char *var, **vec; - struct varent *head; - int flags; -{ - register Char **oldv = vec; - - if ((flags & VAR_NOGLOB) == 0) { - gflag = 0; - tglob(oldv); - if (gflag) { - vec = globall(oldv); - if (vec == 0) { - blkfree(oldv); - stderror(ERR_NAME | ERR_NOMATCH); - return; - } - blkfree(oldv); - gargv = 0; - } - } - /* - * Uniqueness addition from: Michael Veksler <mveksler@vnet.ibm.com> - */ - if ( flags & (VAR_FIRST | VAR_LAST) ) { - /* - * Code for -f (VAR_FIRST) and -l (VAR_LAST) options. - * Method: - * Delete all duplicate words leaving "holes" in the word array (vec). - * Then remove the "holes", keeping the order of the words unchanged. - */ - if (vec && vec[0] && vec[1]) { /* more than one word ? */ - int i, j; - int num_items; - - for (num_items = 0; vec[num_items]; num_items++) - continue; - if (flags & VAR_FIRST) { - /* delete duplications, keeping first occurance */ - for (i = 1; i < num_items; i++) - for (j = 0; j < i; j++) - /* If have earlier identical item, remove i'th item */ - if (vec[i] && vec[j] && Strcmp(vec[j], vec[i]) == 0) { - free(vec[i]); - vec[i] = NULL; - break; - } - } else if (flags & VAR_LAST) { - /* delete duplications, keeping last occurance */ - for (i = 0; i < num_items - 1; i++) - for (j = i + 1; j < num_items; j++) - /* If have later identical item, remove i'th item */ - if (vec[i] && vec[j] && Strcmp(vec[j], vec[i]) == 0) { - /* remove identical item (the first) */ - free(vec[i]); - vec[i] = NULL; - } - } - /* Compress items - remove empty items */ - for (j = i = 0; i < num_items; i++) - if (vec[i]) - vec[j++] = vec[i]; - - /* NULL-fy remaining items */ - for (; j < num_items; j++) - vec[j] = NULL; - } - /* don't let the attribute propagate */ - flags &= ~(VAR_FIRST|VAR_LAST); - } - setq(var, vec, head, flags); -} - - -void -setq(name, vec, p, flags) - Char *name, **vec; - register struct varent *p; - int flags; -{ - register struct varent *c; - register int f; - - f = 0; /* tree hangs off the header's left link */ - while ((c = p->v_link[f]) != 0) { - if ((f = *name - *c->v_name) == 0 && - (f = Strcmp(name, c->v_name)) == 0) { - if (c->v_flags & VAR_READONLY) - stderror(ERR_READONLY|ERR_NAME, c->v_name); - blkfree(c->vec); - c->v_flags = flags; - trim(c->vec = vec); - return; - } - p = c; - f = f > 0; - } - p->v_link[f] = c = (struct varent *) xmalloc((size_t)sizeof(struct varent)); - c->v_name = Strsave(name); - c->v_flags = flags; - c->v_bal = 0; - c->v_left = c->v_right = 0; - c->v_parent = p; - balance(p, f, 0); - trim(c->vec = vec); -} - -/*ARGSUSED*/ -void -unset(v, c) - Char **v; - struct command *c; -{ - bool did_roe, did_edit; - - USE(c); - did_roe = adrof(STRrecognize_only_executables) != NULL; - did_edit = adrof(STRedit) != NULL; - unset1(v, &shvhed); - if (adrof(STRhistchars) == 0) { - HIST = '!'; - HISTSUB = '^'; - } - if (adrof(STRpromptchars) == 0) { - PRCH = '>'; - PRCHROOT = '#'; - } - if (adrof(STRhistlit) == 0) - HistLit = 0; - if (adrof(STRloginsh) == 0) - loginsh = 0; - if (adrof(STRwordchars) == 0) - word_chars = STR_WORD_CHARS; - if (adrof(STRedit) == 0) - editing = 0; - if (adrof(STRbackslash_quote) == 0) - bslash_quote = 0; - if (adrof(STRsymlinks) == 0) - symlinks = 0; - if (adrof(STRimplicitcd) == 0) - implicit_cd = 0; - if (did_edit && noediting && adrof(STRedit) == 0) - noediting = 0; - if (did_roe && adrof(STRrecognize_only_executables) == 0) - tw_cmd_free(); -#ifdef COLOR_LS_F - if (adrof(STRcolor) == 0) - set_color_context(); -#endif /* COLOR_LS_F */ -#if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE) - update_dspmbyte_vars(); -#endif -} - -void -unset1(v, head) - register Char *v[]; - struct varent *head; -{ - register struct varent *vp; - register int cnt; - - while (*++v) { - cnt = 0; - while ((vp = madrof(*v, head)) != NULL) - if (vp->v_flags & VAR_READONLY) - stderror(ERR_READONLY|ERR_NAME, vp->v_name); - else - unsetv1(vp), cnt++; - if (cnt == 0) - setname(short2str(*v)); - } -} - -void -unsetv(var) - Char *var; -{ - register struct varent *vp; - - if ((vp = adrof1(var, &shvhed)) == 0) - udvar(var); - unsetv1(vp); -} - -static void -unsetv1(p) - register struct varent *p; -{ - register struct varent *c, *pp; - register int f; - - /* - * Free associated memory first to avoid complications. - */ - blkfree(p->vec); - xfree((ptr_t) p->v_name); - /* - * If p is missing one child, then we can move the other into where p is. - * Otherwise, we find the predecessor of p, which is guaranteed to have no - * right child, copy it into p, and move it's left child into it. - */ - if (p->v_right == 0) - c = p->v_left; - else if (p->v_left == 0) - c = p->v_right; - else { - for (c = p->v_left; c->v_right; c = c->v_right) - continue; - p->v_name = c->v_name; - p->v_flags = c->v_flags; - p->vec = c->vec; - p = c; - c = p->v_left; - } - - /* - * Move c into where p is. - */ - pp = p->v_parent; - f = pp->v_right == p; - if ((pp->v_link[f] = c) != 0) - c->v_parent = pp; - /* - * Free the deleted node, and rebalance. - */ - xfree((ptr_t) p); - balance(pp, f, 1); -} - -void -setNS(cp) - Char *cp; -{ - set(cp, Strsave(STRNULL), VAR_READWRITE); -} - -/*ARGSUSED*/ -void -shift(v, c) - register Char **v; - struct command *c; -{ - register struct varent *argv; - register Char *name; - - USE(c); - v++; - name = *v; - if (name == 0) - name = STRargv; - else - (void) strip(name); - argv = adrof(name); - if (argv == 0) - udvar(name); - if (argv->vec[0] == 0) - stderror(ERR_NAME | ERR_NOMORE); - lshift(argv->vec, 1); - update_vars(name); -} - -static Char STRsep[2] = { PATHSEP, '\0' }; - -static void -exportpath(val) - Char **val; -{ - Char *exppath; - size_t exppath_size = BUFSIZE; - exppath = (Char *)xmalloc(sizeof(Char)*exppath_size); - - exppath[0] = 0; - if (val) - while (*val) { - while (Strlen(*val) + Strlen(exppath) + 2 > exppath_size) { - if ((exppath - = (Char *)xrealloc(exppath, sizeof(Char)*(exppath_size *= 2))) - == NULL) { - xprintf(CGETS(18, 1, - "Warning: ridiculously long PATH truncated\n")); - break; - } - } - (void) Strcat(exppath, *val++); - if (*val == 0 || eq(*val, STRRparen)) - break; - (void) Strcat(exppath, STRsep); - } - tsetenv(STRKPATH, exppath); - free(exppath); -} - -#ifndef lint - /* - * Lint thinks these have null effect - */ - /* macros to do single rotations on node p */ -# define rright(p) (\ - t = (p)->v_left,\ - (t)->v_parent = (p)->v_parent,\ - (((p)->v_left = t->v_right) != NULL) ?\ - (t->v_right->v_parent = (p)) : 0,\ - (t->v_right = (p))->v_parent = t,\ - (p) = t) -# define rleft(p) (\ - t = (p)->v_right,\ - ((t)->v_parent = (p)->v_parent,\ - ((p)->v_right = t->v_left) != NULL) ? \ - (t->v_left->v_parent = (p)) : 0,\ - (t->v_left = (p))->v_parent = t,\ - (p) = t) -#else -static struct varent * -rleft(p) - struct varent *p; -{ - return (p); -} -static struct varent * -rright(p) - struct varent *p; -{ - return (p); -} - -#endif /* ! lint */ - - -/* - * Rebalance a tree, starting at p and up. - * F == 0 means we've come from p's left child. - * D == 1 means we've just done a delete, otherwise an insert. - */ -static void -balance(p, f, d) - register struct varent *p; - register int f, d; -{ - register struct varent *pp; - -#ifndef lint - register struct varent *t; /* used by the rotate macros */ -#endif /* !lint */ - register int ff; -#ifdef lint - ff = 0; /* Sun's lint is dumb! */ -#endif - - /* - * Ok, from here on, p is the node we're operating on; pp is it's parent; f - * is the branch of p from which we have come; ff is the branch of pp which - * is p. - */ - for (; (pp = p->v_parent) != 0; p = pp, f = ff) { - ff = pp->v_right == p; - if (f ^ d) { /* right heavy */ - switch (p->v_bal) { - case -1: /* was left heavy */ - p->v_bal = 0; - break; - case 0: /* was balanced */ - p->v_bal = 1; - break; - case 1: /* was already right heavy */ - switch (p->v_right->v_bal) { - case 1: /* sigle rotate */ - pp->v_link[ff] = rleft(p); - p->v_left->v_bal = 0; - p->v_bal = 0; - break; - case 0: /* single rotate */ - pp->v_link[ff] = rleft(p); - p->v_left->v_bal = 1; - p->v_bal = -1; - break; - case -1: /* double rotate */ - (void) rright(p->v_right); - pp->v_link[ff] = rleft(p); - p->v_left->v_bal = - p->v_bal < 1 ? 0 : -1; - p->v_right->v_bal = - p->v_bal > -1 ? 0 : 1; - p->v_bal = 0; - break; - default: - break; - } - break; - default: - break; - } - } - else { /* left heavy */ - switch (p->v_bal) { - case 1: /* was right heavy */ - p->v_bal = 0; - break; - case 0: /* was balanced */ - p->v_bal = -1; - break; - case -1: /* was already left heavy */ - switch (p->v_left->v_bal) { - case -1: /* single rotate */ - pp->v_link[ff] = rright(p); - p->v_right->v_bal = 0; - p->v_bal = 0; - break; - case 0: /* signle rotate */ - pp->v_link[ff] = rright(p); - p->v_right->v_bal = -1; - p->v_bal = 1; - break; - case 1: /* double rotate */ - (void) rleft(p->v_left); - pp->v_link[ff] = rright(p); - p->v_left->v_bal = - p->v_bal < 1 ? 0 : -1; - p->v_right->v_bal = - p->v_bal > -1 ? 0 : 1; - p->v_bal = 0; - break; - default: - break; - } - break; - default: - break; - } - } - /* - * If from insert, then we terminate when p is balanced. If from - * delete, then we terminate when p is unbalanced. - */ - if ((p->v_bal == 0) ^ d) - break; - } -} - -void -plist(p, what) - register struct varent *p; - int what; -{ - register struct varent *c; - register int len; - - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(sigblock((sigmask_t) 0) & ~sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ - - for (;;) { - while (p->v_left) - p = p->v_left; -x: - if (p->v_parent == 0) /* is it the header? */ - return; - if ((p->v_flags & what) != 0) { - len = blklen(p->vec); - xprintf("%S\t", p->v_name); - if (len != 1) - xputchar('('); - blkpr(p->vec); - if (len != 1) - xputchar(')'); - xputchar('\n'); - } - if (p->v_right) { - p = p->v_right; - continue; - } - do { - c = p; - p = p->v_parent; - } while (p->v_right == c); - goto x; - } -} - -#if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE) -bool dspmbyte_ls; - -void -update_dspmbyte_vars() -{ - int lp, iskcode; - Char *dstr1; - struct varent *vp; - - /* if variable "nokanji" is set, multi-byte display is disabled */ - if ((vp = adrof(CHECK_MBYTEVAR)) && !adrof(STRnokanji)) { - _enable_mbdisp = 1; - dstr1 = vp->vec[0]; - if(eq (dstr1, STRKSJIS)) - iskcode = 1; - else if (eq(dstr1, STRKEUC)) - iskcode = 2; - else if ((dstr1[0] - '0') >= 0 && (dstr1[0] - '0') <= 3) { - iskcode = 0; - } - else { - xprintf(CGETS(18, 2, - "Warning: unknown multibyte display; using default(euc(JP))\n")); - iskcode = 2; - } - if (dstr1 && vp->vec[1] && eq(vp->vec[1], STRls)) - dspmbyte_ls = 1; - else - dspmbyte_ls = 0; - for (lp = 0; lp < 256 && iskcode > 0; lp++) { - switch (iskcode) { - case 1: - /* Shift-JIS */ - _cmap[lp] = _cmap_mbyte[lp]; - _mbmap[lp] = _mbmap_sjis[lp]; - break; - case 2: - /* 2 ... euc */ - _cmap[lp] = _cmap_mbyte[lp]; - _mbmap[lp] = _mbmap_euc[lp]; - break; - default: - xprintf(CGETS(18, 3, - "Warning: unknown multibyte code %d; multibyte disabled\n"), - iskcode); - _cmap[lp] = _cmap_c[lp]; - _mbmap[lp] = 0; /* Default map all 0 */ - _enable_mbdisp = 0; - break; - } - } - if (iskcode == 0) { - /* check original table */ - if (Strlen(dstr1) != 256) { - xprintf(CGETS(18, 4, - "Warning: Invalid multibyte table length (%d); multibyte disabled\n"), - Strlen(dstr1)); - _enable_mbdisp = 0; - } - for (lp = 0; lp < 256 && _enable_mbdisp == 1; lp++) { - if (!((dstr1[lp] - '0') >= 0 && (dstr1[lp] - '0') <= 3)) { - xprintf(CGETS(18, 4, - "Warning: bad multibyte code at offset +%d; multibyte diabled\n"), - lp); - _enable_mbdisp = 0; - break; - } - } - /* set original table */ - for (lp = 0; lp < 256; lp++) { - if (_enable_mbdisp == 1) { - _cmap[lp] = _cmap_mbyte[lp]; - _mbmap[lp] = (unsigned short) ((dstr1[lp] - '0') & 0x0f); - } - else { - _cmap[lp] = _cmap_c[lp]; - _mbmap[lp] = 0; /* Default map all 0 */ - } - } - } - } - else { - for (lp = 0; lp < 256; lp++) { - _cmap[lp] = _cmap_c[lp]; - _mbmap[lp] = 0; /* Default map all 0 */ - } - _enable_mbdisp = 0; - dspmbyte_ls = 0; - } -#ifdef MBYTEDEBUG /* Sorry, use for beta testing */ - { - Char mbmapstr[300]; - for (lp = 0; lp < 256; lp++) { - mbmapstr[lp] = _mbmap[lp] + '0'; - mbmapstr[lp+1] = 0; - } - set(STRmbytemap, Strsave(mbmapstr), VAR_READWRITE); - } -#endif /* MBYTEMAP */ -} - -/* dspkanji/dspmbyte autosetting */ -/* PATCH IDEA FROM Issei.Suzuki VERY THANKS */ -void -autoset_dspmbyte(pcp) - Char *pcp; -{ - int i; - struct dspm_autoset_Table { - Char *n; - Char *v; - } dspmt[] = { - { STRLANGEUCJP, STRKEUC }, - { STRLANGEUCKR, STRKEUC }, - { STRLANGEUCJPB, STRKEUC }, - { STRLANGEUCKRB, STRKEUC }, - { STRLANGSJIS, STRKSJIS }, - { STRLANGSJISB, STRKSJIS }, - { NULL, NULL } - }; - - if (*pcp == '\0') - return; - - for (i = 0; dspmt[i].n; i++) { - if (eq(pcp, dspmt[i].n)) { - set(CHECK_MBYTEVAR, Strsave(dspmt[i].v), VAR_READWRITE); - update_dspmbyte_vars(); - break; - } - } -} -#endif diff --git a/contrib/tcsh/sh.time.c b/contrib/tcsh/sh.time.c deleted file mode 100644 index f411fb5a1f96..000000000000 --- a/contrib/tcsh/sh.time.c +++ /dev/null @@ -1,712 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.time.c,v 3.21 2000/01/14 22:57:29 christos Exp $ */ -/* - * sh.time.c: Shell time keeping and printing. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: sh.time.c,v 3.21 2000/01/14 22:57:29 christos Exp $") - -#ifdef SUNOS4 -# include <machine/param.h> -#endif /* SUNOS4 */ - -/* - * C Shell - routines handling process timing and niceing - */ -#ifdef BSDTIMES -# ifndef RUSAGE_SELF -# define RUSAGE_SELF 0 -# define RUSAGE_CHILDREN -1 -# endif /* RUSAGE_SELF */ -#else /* BSDTIMES */ -struct tms times0; -#endif /* BSDTIMES */ - -#if !defined(BSDTIMES) && !defined(_SEQUENT_) -# ifdef POSIX -static void pdtimet __P((clock_t, clock_t)); -# else /* ! POSIX */ -static void pdtimet __P((time_t, time_t)); -# endif /* ! POSIX */ -#else /* BSDTIMES || _SEQUENT_ */ -static void tvadd __P((timeval_t *, timeval_t *)); -static void pdeltat __P((timeval_t *, timeval_t *)); -#endif /* BSDTIMES || _SEQUENT_ */ - -void -settimes() -{ -#ifdef BSDTIMES - struct sysrusage ruch; -#ifdef convex - memset(&ru0, 0, sizeof(ru0)); - memset(&ruch, 0, sizeof(ruch)); -#endif /* convex */ - - (void) gettimeofday(&time0, NULL); - (void) getrusage(RUSAGE_SELF, (struct rusage *) &ru0); - (void) getrusage(RUSAGE_CHILDREN, (struct rusage *) &ruch); - ruadd(&ru0, &ruch); -#else -# ifdef _SEQUENT_ - struct process_stats ruch; - - (void) get_process_stats(&time0, PS_SELF, &ru0, &ruch); - ruadd(&ru0, &ruch); -# else /* _SEQUENT_ */ - seconds0 = time(NULL); -# ifndef COHERENT - time0 = times(×0); -# else /* !COHERENT */ - time0 = HZ * seconds0; - times(×0); -# endif /* !COHERENT */ - times0.tms_stime += times0.tms_cstime; - times0.tms_utime += times0.tms_cutime; - times0.tms_cstime = 0; - times0.tms_cutime = 0; -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ -} - -/* - * dotime is only called if it is truly a builtin function and not a - * prefix to another command - */ -/*ARGSUSED*/ -void -dotime(v, c) - Char **v; - struct command *c; -{ -#ifdef BSDTIMES - timeval_t timedol; - struct sysrusage ru1, ruch; -#ifdef convex - memset(&ru1, 0, sizeof(ru1)); - memset(&ruch, 0, sizeof(ruch)); -#endif /* convex */ - - (void) getrusage(RUSAGE_SELF, (struct rusage *) &ru1); - (void) getrusage(RUSAGE_CHILDREN, (struct rusage *) &ruch); - ruadd(&ru1, &ruch); - (void) gettimeofday(&timedol, NULL); - prusage(&ru0, &ru1, &timedol, &time0); -#else -# ifdef _SEQUENT_ - timeval_t timedol; - struct process_stats ru1, ruch; - - (void) get_process_stats(&timedol, PS_SELF, &ru1, &ruch); - ruadd(&ru1, &ruch); - prusage(&ru0, &ru1, &timedol, &time0); -# else /* _SEQUENT_ */ -# ifndef POSIX - time_t timedol; -# else /* POSIX */ - clock_t timedol; -# endif /* POSIX */ - - struct tms times_dol; - -#ifndef COHERENT - timedol = times(×_dol); -#else - timedol = HZ * time(NULL); - times(×_dol); -#endif - times_dol.tms_stime += times_dol.tms_cstime; - times_dol.tms_utime += times_dol.tms_cutime; - times_dol.tms_cstime = 0; - times_dol.tms_cutime = 0; - prusage(×0, ×_dol, timedol, time0); -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ - USE(c); - USE(v); -} - -/* - * donice is only called when it on the line by itself or with a +- value - */ -/*ARGSUSED*/ -void -donice(v, c) - register Char **v; - struct command *c; -{ - register Char *cp; - int nval = 0; - - USE(c); - v++, cp = *v++; - if (cp == 0) - nval = 4; - else if (*v == 0 && any("+-", cp[0])) - nval = getn(cp); -#ifdef BSDNICE - (void) setpriority(PRIO_PROCESS, 0, nval); -#else /* BSDNICE */ - (void) nice(nval); -#endif /* BSDNICE */ -} - -#ifdef BSDTIMES -void -ruadd(ru, ru2) - register struct sysrusage *ru, *ru2; -{ - tvadd(&ru->ru_utime, &ru2->ru_utime); - tvadd(&ru->ru_stime, &ru2->ru_stime); - if (ru2->ru_maxrss > ru->ru_maxrss) - ru->ru_maxrss = ru2->ru_maxrss; - - ru->ru_ixrss += ru2->ru_ixrss; - ru->ru_idrss += ru2->ru_idrss; - ru->ru_isrss += ru2->ru_isrss; - ru->ru_minflt += ru2->ru_minflt; - ru->ru_majflt += ru2->ru_majflt; - ru->ru_nswap += ru2->ru_nswap; - ru->ru_inblock += ru2->ru_inblock; - ru->ru_oublock += ru2->ru_oublock; - ru->ru_msgsnd += ru2->ru_msgsnd; - ru->ru_msgrcv += ru2->ru_msgrcv; - ru->ru_nsignals += ru2->ru_nsignals; - ru->ru_nvcsw += ru2->ru_nvcsw; - ru->ru_nivcsw += ru2->ru_nivcsw; - -# ifdef convex - tvadd(&ru->ru_exutime, &ru2->ru_exutime); - ru->ru_utotal += ru2->ru_utotal; - ru->ru_usamples += ru2->ru_usamples; - ru->ru_stotal += ru2->ru_stotal; - ru->ru_ssamples += ru2->ru_ssamples; -# endif /* convex */ -} - -#else /* BSDTIMES */ -# ifdef _SEQUENT_ -void -ruadd(ru, ru2) - register struct process_stats *ru, *ru2; -{ - tvadd(&ru->ps_utime, &ru2->ps_utime); - tvadd(&ru->ps_stime, &ru2->ps_stime); - if (ru2->ps_maxrss > ru->ps_maxrss) - ru->ps_maxrss = ru2->ps_maxrss; - - ru->ps_pagein += ru2->ps_pagein; - ru->ps_reclaim += ru2->ps_reclaim; - ru->ps_zerofill += ru2->ps_zerofill; - ru->ps_pffincr += ru2->ps_pffincr; - ru->ps_pffdecr += ru2->ps_pffdecr; - ru->ps_swap += ru2->ps_swap; - ru->ps_syscall += ru2->ps_syscall; - ru->ps_volcsw += ru2->ps_volcsw; - ru->ps_involcsw += ru2->ps_involcsw; - ru->ps_signal += ru2->ps_signal; - ru->ps_lread += ru2->ps_lread; - ru->ps_lwrite += ru2->ps_lwrite; - ru->ps_bread += ru2->ps_bread; - ru->ps_bwrite += ru2->ps_bwrite; - ru->ps_phread += ru2->ps_phread; - ru->ps_phwrite += ru2->ps_phwrite; -} - -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ - -#ifdef BSDTIMES - -/* - * PWP: the LOG1024 and pagetok stuff taken from the top command, - * written by William LeFebvre - */ -/* Log base 2 of 1024 is 10 (2^10 == 1024) */ -#define LOG1024 10 - -/* Convert clicks (kernel pages) to kbytes ... */ -/* If there is no PGSHIFT defined, assume it is 11 */ -/* Is this needed for compatability with some old flavor of 4.2 or 4.1? */ -#ifdef SUNOS4 -# ifndef PGSHIFT -# define pagetok(size) ((size) << 1) -# else -# if PGSHIFT>10 -# define pagetok(size) ((size) << (PGSHIFT - LOG1024)) -# else -# define pagetok(size) ((size) >> (LOG1024 - PGSHIFT)) -# endif -# endif -#endif - -/* - * if any other machines return wierd values in the ru_i* stuff, put - * the adjusting macro here: - */ -#ifdef SUNOS4 -# define IADJUST(i) (pagetok(i)/2) -#else /* SUNOS4 */ -# ifdef convex - /* - * convex has megabytes * CLK_TCK - * multiply by 100 since we use time in 100ths of a second in prusage - */ -# define IADJUST(i) (((i) << 10) / CLK_TCK * 100) -# else /* convex */ -# define IADJUST(i) (i) -# endif /* convex */ -#endif /* SUNOS4 */ - -void -prusage(r0, r1, e, b) - register struct sysrusage *r0, *r1; - timeval_t *e, *b; - -#else /* BSDTIMES */ -# ifdef _SEQUENT_ -void -prusage(r0, r1, e, b) - register struct process_stats *r0, *r1; - timeval_t *e, *b; - -# else /* _SEQUENT_ */ -void -prusage(bs, es, e, b) - struct tms *bs, *es; - -# ifndef POSIX - time_t e, b; - -# else /* POSIX */ - clock_t e, b; - -# endif /* POSIX */ -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ -{ -#ifdef BSDTIMES - register time_t t = - (r1->ru_utime.tv_sec - r0->ru_utime.tv_sec) * 100 + - (r1->ru_utime.tv_usec - r0->ru_utime.tv_usec) / 10000 + - (r1->ru_stime.tv_sec - r0->ru_stime.tv_sec) * 100 + - (r1->ru_stime.tv_usec - r0->ru_stime.tv_usec) / 10000; - -#else -# ifdef _SEQUENT_ - register time_t t = - (r1->ps_utime.tv_sec - r0->ps_utime.tv_sec) * 100 + - (r1->ps_utime.tv_usec - r0->ps_utime.tv_usec) / 10000 + - (r1->ps_stime.tv_sec - r0->ps_stime.tv_sec) * 100 + - (r1->ps_stime.tv_usec - r0->ps_stime.tv_usec) / 10000; - -# else /* _SEQUENT_ */ -# ifndef POSIX - register time_t t = (es->tms_utime - bs->tms_utime + - es->tms_stime - bs->tms_stime) * 100 / HZ; - -# else /* POSIX */ - register clock_t t = (es->tms_utime - bs->tms_utime + - es->tms_stime - bs->tms_stime) * 100 / clk_tck; - -# endif /* POSIX */ -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ - - register char *cp; - register long i; - register struct varent *vp = adrof(STRtime); - -#ifdef BSDTIMES -# ifdef convex - static struct system_information sysinfo; - long long memtmp; /* let memory calculations exceede 2Gb */ -# endif /* convex */ - int ms = (int) - ((e->tv_sec - b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000); - - cp = "%Uu %Ss %E %P %X+%Dk %I+%Oio %Fpf+%Ww"; -#else /* !BSDTIMES */ -# ifdef _SEQUENT_ - int ms = (int) - ((e->tv_sec - b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000); - - cp = "%Uu %Ss %E %P %I+%Oio %Fpf+%Ww"; -# else /* !_SEQUENT_ */ -# ifndef POSIX - time_t ms = ((time_t)((e - b) / HZ) * 100) + - (time_t)(((e - b) % HZ) * 100) / HZ; -# else /* POSIX */ - clock_t ms = ((clock_t)((e - b) / clk_tck) * 100) + - (clock_t)(((e - b) % clk_tck) * 100) / clk_tck; -# endif /* POSIX */ - - cp = "%Uu %Ss %E %P"; - - /* - * the tms stuff is not very precise, so we fudge it. - * granularity fix: can't be more than 100% - * this breaks in multi-processor systems... - * maybe I should take it out and let people see more then 100% - * utilizations. - */ -# if 0 - if (ms < t && ms != 0) - ms = t; -# endif -# endif /*! _SEQUENT_ */ -#endif /* !BSDTIMES */ -#ifdef TDEBUG - xprintf("es->tms_utime %lu bs->tms_utime %lu\n", - es->tms_utime, bs->tms_utime); - xprintf("es->tms_stime %lu bs->tms_stime %lu\n", - es->tms_stime, bs->tms_stime); - xprintf("ms %lu e %lu b %lu\n", ms, e, b); - xprintf("t %lu\n", t); -#endif /* TDEBUG */ - - if (vp && vp->vec[0] && vp->vec[1]) - cp = short2str(vp->vec[1]); - for (; *cp; cp++) - if (*cp != '%') - xputchar(*cp); - else if (cp[1]) - switch (*++cp) { - - case 'U': /* user CPU time used */ -#ifdef BSDTIMES - pdeltat(&r1->ru_utime, &r0->ru_utime); -#else -# ifdef _SEQUENT_ - pdeltat(&r1->ps_utime, &r0->ps_utime); -# else /* _SEQUENT_ */ -# ifndef POSIX - pdtimet(es->tms_utime, bs->tms_utime); -# else /* POSIX */ - pdtimet(es->tms_utime, bs->tms_utime); -# endif /* POSIX */ -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ - break; - - case 'S': /* system CPU time used */ -#ifdef BSDTIMES - pdeltat(&r1->ru_stime, &r0->ru_stime); -#else -# ifdef _SEQUENT_ - pdeltat(&r1->ps_stime, &r0->ps_stime); -# else /* _SEQUENT_ */ -# ifndef POSIX - pdtimet(es->tms_stime, bs->tms_stime); -# else /* POSIX */ - pdtimet(es->tms_stime, bs->tms_stime); -# endif /* POSIX */ -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ - break; - - case 'E': /* elapsed (wall-clock) time */ -#ifdef BSDTIMES - pcsecs((long) ms); -#else /* BSDTIMES */ - pcsecs(ms); -#endif /* BSDTIMES */ - break; - - case 'P': /* percent time spent running */ - /* check if the process did not run */ -#ifdef convex - /* - * scale the cpu %- ages by the number of processors - * available on this machine - */ - if ((sysinfo.cpu_count == 0) && - (getsysinfo(SYSINFO_SIZE, &sysinfo) < 0)) - sysinfo.cpu_count = 1; - i = (ms == 0) ? 0 : (t * 1000.0 / (ms * sysinfo.cpu_count)); -#else /* convex */ - i = (ms == 0) ? 0 : (t * 1000.0 / ms); -#endif /* convex */ - xprintf("%ld.%01ld%%", i / 10, i % 10); /* nn.n% */ - break; - -#ifdef BSDTIMES - case 'W': /* number of swaps */ - i = r1->ru_nswap - r0->ru_nswap; - xprintf("%ld", i); - break; - -#ifdef convex - case 'X': /* (average) shared text size */ - memtmp = (t == 0 ? 0LL : IADJUST((long long)r1->ru_ixrss - - (long long)r0->ru_ixrss) / - (long long)t); - xprintf("%lu", (unsigned long)memtmp); - - break; - - case 'D': /* (average) unshared data size */ - memtmp = (t == 0 ? 0LL : IADJUST((long long)r1->ru_idrss + - (long long)r1->ru_isrss - - ((long long)r0->ru_idrss + - (long long)r0->ru_isrss)) / - (long long)t); - xprintf("%lu", (unsigned long)memtmp); - break; - - case 'K': /* (average) total data memory used */ - memtmp = (t == 0 ? 0LL : IADJUST(((long long)r1->ru_ixrss + - (long long)r1->ru_isrss + - (long long)r1->ru_idrss) - - ((long long)r0->ru_ixrss + - (long long)r0->ru_idrss + - (long long)r0->ru_isrss)) / - (long long)t); - xprintf("%lu", (unsigned long)memtmp); - break; -#else /* !convex */ - case 'X': /* (average) shared text size */ - xprintf("%ld", t == 0 ? 0L : - IADJUST(r1->ru_ixrss - r0->ru_ixrss) / t); - break; - - case 'D': /* (average) unshared data size */ - xprintf("%ld", t == 0 ? 0L : - IADJUST(r1->ru_idrss + r1->ru_isrss - - (r0->ru_idrss + r0->ru_isrss)) / t); - break; - - case 'K': /* (average) total data memory used */ - xprintf("%ld", t == 0 ? 0L : - IADJUST((r1->ru_ixrss + r1->ru_isrss + r1->ru_idrss) - - (r0->ru_ixrss + r0->ru_idrss + r0->ru_isrss)) / t); - break; -#endif /* convex */ - case 'M': /* max. Resident Set Size */ -#ifdef SUNOS4 - xprintf("%ld", pagetok(r1->ru_maxrss)); -#else -# ifdef convex - xprintf("%ld", r1->ru_maxrss * 4L); -# else /* !convex */ - xprintf("%ld", r1->ru_maxrss / 2L); -# endif /* convex */ -#endif /* SUNOS4 */ - break; - - case 'F': /* page faults */ - xprintf("%ld", r1->ru_majflt - r0->ru_majflt); - break; - - case 'R': /* page reclaims */ - xprintf("%ld", r1->ru_minflt - r0->ru_minflt); - break; - - case 'I': /* FS blocks in */ - xprintf("%ld", r1->ru_inblock - r0->ru_inblock); - break; - - case 'O': /* FS blocks out */ - xprintf("%ld", r1->ru_oublock - r0->ru_oublock); - break; - -# ifdef convex - case 'C': /* CPU parallelization factor */ - if (r1->ru_usamples != 0LL) { - long long parr = ((r1->ru_utotal * 100LL) / - r1->ru_usamples); - xprintf("%d.%02d", (int)(parr/100), (int)(parr%100)); - } else - xprintf("?"); - break; -# endif /* convex */ - case 'r': /* PWP: socket messages recieved */ - xprintf("%ld", r1->ru_msgrcv - r0->ru_msgrcv); - break; - - case 's': /* PWP: socket messages sent */ - xprintf("%ld", r1->ru_msgsnd - r0->ru_msgsnd); - break; - - case 'k': /* PWP: signals received */ - xprintf("%ld", r1->ru_nsignals - r0->ru_nsignals); - break; - - case 'w': /* PWP: voluntary context switches (waits) */ - xprintf("%ld", r1->ru_nvcsw - r0->ru_nvcsw); - break; - - case 'c': /* PWP: involuntary context switches */ - xprintf("%ld", r1->ru_nivcsw - r0->ru_nivcsw); - break; -#else /* BSDTIMES */ -# ifdef _SEQUENT_ - case 'W': /* number of swaps */ - i = r1->ps_swap - r0->ps_swap; - xprintf("%ld", i); - break; - - case 'M': - xprintf("%ld", r1->ps_maxrss / 2); - break; - - case 'F': - xprintf("%ld", r1->ps_pagein - r0->ps_pagein); - break; - - case 'R': - xprintf("%ld", r1->ps_reclaim - r0->ps_reclaim); - break; - - case 'I': - xprintf("%ld", r1->ps_bread - r0->ps_bread); - break; - - case 'O': - xprintf("%ld", r1->ps_bwrite - r0->ps_bwrite); - break; - - case 'k': - xprintf("%ld", r1->ps_signal - r0->ps_signal); - break; - - case 'w': - xprintf("%ld", r1->ps_volcsw - r0->ps_volcsw); - break; - - case 'c': - xprintf("%ld", r1->ps_involcsw - r0->ps_involcsw); - break; - - case 'Z': - xprintf("%ld", r1->ps_zerofill - r0->ps_zerofill); - break; - - case 'i': - xprintf("%ld", r1->ps_pffincr - r0->ps_pffincr); - break; - - case 'd': - xprintf("%ld", r1->ps_pffdecr - r0->ps_pffdecr); - break; - - case 'Y': - xprintf("%ld", r1->ps_syscall - r0->ps_syscall); - break; - - case 'l': - xprintf("%ld", r1->ps_lread - r0->ps_lread); - break; - - case 'm': - xprintf("%ld", r1->ps_lwrite - r0->ps_lwrite); - break; - - case 'p': - xprintf("%ld", r1->ps_phread - r0->ps_phread); - break; - - case 'q': - xprintf("%ld", r1->ps_phwrite - r0->ps_phwrite); - break; -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ - default: - break; - } - xputchar('\n'); -} - -#if defined(BSDTIMES) || defined(_SEQUENT_) -static void -pdeltat(t1, t0) - timeval_t *t1, *t0; -{ - timeval_t td; - - tvsub(&td, t1, t0); - xprintf("%ld.%03ld", td.tv_sec, td.tv_usec / 1000L); -} - -static void -tvadd(tsum, t0) - timeval_t *tsum, *t0; -{ - - tsum->tv_sec += t0->tv_sec; - tsum->tv_usec += t0->tv_usec; - if (tsum->tv_usec >= 1000000) - tsum->tv_sec++, tsum->tv_usec -= 1000000; -} - -void -tvsub(tdiff, t1, t0) - timeval_t *tdiff, *t1, *t0; -{ - - tdiff->tv_sec = t1->tv_sec - t0->tv_sec; - tdiff->tv_usec = t1->tv_usec - t0->tv_usec; - if (tdiff->tv_usec < 0) - tdiff->tv_sec--, tdiff->tv_usec += 1000000; -} - -#else /* !BSDTIMES && !_SEQUENT_ */ -static void -pdtimet(eval, bval) -#ifndef POSIX - time_t eval, bval; - -#else /* POSIX */ - clock_t eval, bval; - -#endif /* POSIX */ -{ -#ifndef POSIX - time_t val; - -#else /* POSIX */ - clock_t val; - -#endif /* POSIX */ - -#ifndef POSIX - val = (eval - bval) * 100 / HZ; -#else /* POSIX */ - val = (eval - bval) * 100 / clk_tck; -#endif /* POSIX */ - - xprintf("%ld.%02ld", val / 100, val - (val / 100 * 100)); -} -#endif /* BSDTIMES || _SEQUENT_ */ diff --git a/contrib/tcsh/sh.types.h b/contrib/tcsh/sh.types.h deleted file mode 100644 index fe1fbe5c824e..000000000000 --- a/contrib/tcsh/sh.types.h +++ /dev/null @@ -1,612 +0,0 @@ -/* $Header: /src/pub/tcsh/sh.types.h,v 3.37 2000/01/14 22:57:29 christos Exp $ */ -/* sh.types.h: Do the necessary typedefs for each system. - * Up till now I avoided making this into a separate file - * But I just wanted to eliminate the whole mess from sh.h - * In reality this should not be here! It is OS and MACHINE - * dependent, even between different revisions of OS's... - * Ideally there should be a way in c, to find out if something - * was typedef'ed, but unfortunately we rely in cpp kludges. - * Someday, this file will be removed... - * - * christos - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_sh_types -#define _h_sh_types - - -/*** - *** LynxOS 2.1 - ***/ -#ifdef Lynx -# ifndef _SIGMASK_T -# define _SIGMASK_T - typedef long sigmask_t; -# endif /* _SIGMASK_T */ -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif - -/*** - *** MachTen - ***/ -#ifdef __MACHTEN__ -# ifndef _PID_T -# define _PID_T -# endif -#endif - - -/*** - *** Suns running sunos3.x - sunos4.1.x - ***/ -#if (defined(sun) || defined(__sun__)) && SYSVREL == 0 -/* This used to be long, but lint dissagrees... */ -# ifndef _SIGMASK_T -# define _SIGMASK_T - typedef int sigmask_t; -# endif /* _SIGMASK_T */ -# ifndef _PTR_T -# define _PTR_T -# ifdef __GNUC__ - typedef void * ptr_t; -# else - typedef char * ptr_t; -# endif /* __GNUC__ */ -# endif /* _PTR_T */ -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifndef __sys_stdtypes_h -# define __sys_stdtypes_h -# ifndef __lucid - typedef int pid_t; - typedef unsigned int speed_t; -# endif -# endif /* __sys_stdtypes.h */ -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -# ifndef _SPEED_T -# define _SPEED_T -# endif /* _SPEED_T */ -# ifndef SUNOS4 -# ifndef MACH -# ifndef _UID_T -# define _UID_T - typedef int uid_t; -# endif /* _UID_T */ -# ifndef _GID_T -# define _GID_T - typedef int gid_t; -# endif /* _GID_T */ -# endif /* !MACH */ -# endif /* !SUNOS4 */ -#endif /* (sun || __sun__) && SYSVREL == 0 */ - - -/*** - *** Hp's running hpux 7.0 or 8.0 - ***/ -#ifdef __hpux -# ifndef _SIZE_T -# define _SIZE_T - typedef unsigned int size_t; -# endif /* _SIZE_T */ - -# ifndef _PTR_T -# define _PTR_T - typedef void * ptr_t; -# endif /* _PTR_T */ - -# ifndef _PID_T -# define _PID_T - typedef long pid_t; -# endif /* _PID_T */ - -# ifndef _SIGMASK_T -# define _SIGMASK_T - typedef long sigmask_t; -# endif /* _SIGMASK_T */ - -# ifndef _SPEED_T - /* I thought POSIX was supposed to protect all typedefs! */ -# define _SPEED_T -# endif /* _SPEED_T */ - -extern uid_t getuid(), geteuid(); -extern gid_t getgid(), getegid(); -extern sigmask_t sigblock(); -extern sigmask_t sigsetmask(); -extern pid_t getpid(); -extern pid_t fork(); -extern void perror(); -extern void _exit(); -extern void abort(); -extern void qsort(); -extern void free(); -extern unsigned int alarm(); -extern unsigned int sleep(); -# if HPUXVERSION < 800 /* XXX: Not true for 8.0 */ -extern void sigpause(); -extern sigmask_t sigspace(); -extern int lstat(); -extern int readlink(); -extern int sigvector(); -extern int gethostname(); -extern int ioctl(); -extern int nice(); -extern char *sbrk(); -# endif /* HPUXVERSION < 800 */ -#endif /* __hpux */ - -#if defined(_MINIX) || defined(__EMX__) || defined(COHERENT) -typedef char * caddr_t; -#endif /* _MINIX || __EMX__ || COHERENT */ - -/*** - *** hp9000s500 running hpux-5.2 - ***/ -#ifdef hp9000s500 -# ifndef _PTR_T -# define _PTR_T - typedef char * ptr_t; -# endif /* _PTR_T */ -#endif /* hp9000s500 */ - -/*** - *** Data General AViiON 88000 or Pentium, running dgux 5.4R3 or R4.11 - ***/ -#ifdef DGUX -# ifndef _SIZE_T -# define _SIZE_T size_t - typedef unsigned int size_t; -# endif /* _SIZE_T */ -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* DGUX */ - - -/*** - *** Intel 386, ISC 386/ix v2.0.2 - ***/ -#ifdef ISC202 -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* ISC202 */ - -/*** - *** a PFU/Fujitsu A-xx computer SX/A Edition 60 or later - ***/ -#ifdef SXA -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* SXA */ - -/*** - *** a stellar 2600, running stellix 2.3 - ***/ -#ifdef stellar -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* stellar */ - -/*** - *** BSD systems, pre and post 4.3 - ***/ -#ifdef BSD -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* BSD */ - - -/*** - *** BSD RENO advertises itself as POSIX, but - *** it is missing speed_t - ***/ -#ifdef RENO -# ifndef _SPEED_T -# define _SPEED_T - typedef unsigned int speed_t; -# endif /* _SPEED_T */ -#endif /* RENO */ - - -/*** - *** NeXT OS 3.x - ***/ -#ifdef NeXT -# ifndef _SPEED_T -# define _SPEED_T - typedef unsigned int speed_t; -# endif /* _SPEED_T */ -#endif /* NeXT */ - -/*** - *** Utah's HPBSD - *** some posix & 4.4 BSD changes (pid_t is a short) - ***/ -#ifdef HPBSD -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* HPBSD */ - - -/*** - *** Pyramid, BSD universe - *** In addition to the size_t - ***/ -#ifdef pyr -# ifndef _PID_T -# define _PID_T - typedef short pid_t; -# endif /* _PID_T */ -#endif /* pyr */ - - -/*** - *** rs6000, ibm370, ps2, rt: running flavors of aix. - ***/ -#ifdef IBMAIX -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifndef aiws -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -# endif /* !aiws */ -# ifdef _IBMR2 -# ifndef _SPEED_T -# define _SPEED_T -# endif /* _SPEED_T */ -# endif /* _IBMR2 */ -#endif /* IBMAIX */ - - -/*** - *** Ultrix... - ***/ -#if defined(ultrix) || defined(__ultrix) -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -# ifndef _PTR_T -# define _PTR_T - typedef void * ptr_t; -# endif /* _PTR_T */ -#endif /* ultrix || __ultrix */ - - -/*** - *** Silicon graphics IRIS4D running IRIX3_3 - ***/ -#if defined(IRIS4D) && defined(IRIX3_3) -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* IRIS4D && IRIX3_3 */ - - -/*** - *** Sequent - ***/ -#ifdef sequent -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* sequent */ - -/*** - *** Apple AUX. - ***/ -#ifdef OREO -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* OREO */ - -/*** - *** Intel 386, Hypercube - ***/ -#ifdef INTEL -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* INTEL */ - -/*** - *** Concurrent (Masscomp) running RTU 4.1A & RTU 5.0. - **** [RTU 6.0 from mike connor] - *** Added, DAS DEC-90. - ***/ -#ifdef masscomp -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifdef RTU6 -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -# ifndef _SPEED_T -# define _SPEED_T -# endif /* _SPEED_T */ -#endif /* RTU6 */ -#endif /* masscomp */ - -/*** - *** Encore multimax running umax 4.2 - ***/ -#ifdef ns32000 -# ifdef __TYPES_DOT_H__ -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# endif /* __TYPES_DOT_H__ */ -#endif /* ns32000 */ - -/*** - *** Silicon Graphics IRIS 3000 - *** - ***/ -#ifdef IRIS3D -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* IRIS3D */ - -/* - * Motorola MPC running R32V2 (sysV88) - */ -#ifdef sysV88 -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* sysV88 */ - -/* - * Amdahl running UTS (Sys V3) - */ -#ifdef uts -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* uts */ - -/* - * Tektronix 4300 running UTek 4.0 (BSD 4.2) - */ -#ifdef UTek -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifndef _UID_T -# define _UID_T - typedef int uid_t; -# endif /* _UID_T */ -# ifndef _GID_T -# define _GID_T - typedef int gid_t; -# endif /* _GID_T */ -#endif /* UTek */ - -/* - * Tektronix XD88/10 running UTekV (Sys V3) - */ -#ifdef UTekV -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* UTekV*/ - -/* - * UnixPC aka u3b1 - */ -#ifdef UNIXPC -# ifdef types_h -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -# endif /* types_h */ -#endif /* UNIXPC */ - -/* - * NS32000 OPUS - */ -#ifdef OPUS -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* OPUS */ - -/* - * BBN Butterfly gp1000 - */ -#ifdef butterfly -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* butterfly */ - -/* - * Convex - */ -#ifdef convex -# if defined(__SIZE_T) && !defined(_SIZE_T) -# define _SIZE_T -# endif /* __SIZE_T && !_SIZE_T */ -#endif /* convex */ - -/* - * Alliant FX-2800/FX-80 - */ -#ifdef alliant -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -# ifdef mc68000 - typedef int pid_t; /* FX-80 */ -# else - typedef short pid_t; /* FX-2800 */ -# endif -#endif /* alliant */ - -/* - * DNIX - */ -#ifdef DNIX -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* DNIX */ - -/* - * Apollo running Domain/OS SR10.3 or greater - */ -#ifdef apollo -# ifndef _PID_T -# define _PID_T - typedef int pid_t; /* Older versions might not like that */ -# endif /* _PID_T */ -#endif /* apollo */ - -/* - * Vax running VMS_POSIX - */ -#ifdef _VMS_POSIX -# ifndef _SIZE_T -# define _SIZE_T -# endif /* _SIZE_T */ -#endif /* _VMS_POSIX */ - -/*** - *** a pdp/11, running 2BSD - ***/ -#ifdef pdp11 -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* pdp11 */ - -/*** - *** a Harris, running CX/UX - ***/ -#ifdef _CX_UX -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* _CX_UX */ - -/*** - *** Catch all for non POSIX and/or non ANSI systems. - *** Systems up to spec *should* define these automatically - *** I am open to suggestions on how to do this correctly! - ***/ - -#ifndef __STDC__ - -# ifndef _SIZE_T -# define _SIZE_T - typedef int size_t; /* As sun comments ??? : meaning I take it */ -# endif /* _SIZE_T */ /* Until we make the world ANSI... */ - -#endif /* ! __STDC__ */ - -#ifndef POSIX - -# ifndef _PID_T -# define _PID_T - typedef int pid_t; -# endif /* _PID_T */ - -# ifndef _SPEED_T -# define _SPEED_T - typedef unsigned int speed_t; -# endif /* _SPEED_T */ - -# ifndef _PTR_T -# define _PTR_T - typedef char * ptr_t; -#endif /* _PTR_T */ - -# ifndef _IOCTL_T -# define _IOCTL_T - typedef char * ioctl_t; /* Third arg of ioctl */ -# endif /* _IOCTL_T */ - -#endif /* ! POSIX */ - - - -/*** - *** This is our own junk types. - ***/ -#ifndef _PTR_T -# define _PTR_T - typedef void * ptr_t; -#endif /* _PTR_T */ - -#ifndef _SIGMASK_T -# define _SIGMASK_T - typedef int sigmask_t; -#endif /* _SIGMASK_T */ - -#ifndef _IOCTL_T -# define _IOCTL_T - typedef void * ioctl_t; /* Third arg of ioctl */ -#endif /* _IOCTL_T */ - -#endif /* _h_sh_types */ diff --git a/contrib/tcsh/snames.h b/contrib/tcsh/snames.h deleted file mode 100644 index 0eefa2538d25..000000000000 --- a/contrib/tcsh/snames.h +++ /dev/null @@ -1,88 +0,0 @@ -/* $Header: /src/pub/tcsh/snames.h,v 1.3 1996/04/26 19:20:31 christos Exp $ */ -/* - * snames.h: Short names for old compilers - */ -#ifndef _snames_h -#define _snames_h - -#define tw_cmd_add twcmdadd -#define tw_cmd_alias twcmdalias -#define tw_cmd_sort twcmdsort -#define tw_cmd_start twcmdstart -#define tw_logname_end twnameend -#define tw_logname_next twnamenext -#define tw_logname_start twnamestart -#define tw_file_next twfilenext -#define tw_file_start twfilestart -#define tw_item_add twitemadd -#define tw_item_find twitemfind -#define tw_item_get twitemget -#define tw_bind_next twbindnext -#define tw_bind_start twbindstart -#define tw_limit_next twlimitnext -#define tw_limit_start twlimitstart -#define tw_collect twcllct -#define tw_collect_items twcllcti -#define e_complete ecomp -#define e_complete_all ecompall -#define e_complete_back ecompback -#define e_complete_fwd ecompfwd -#define e_correct ecrrct -#define e_correctl ecrrctl -#define e_expand_glob eexpandglob -#define e_expand_vars eexpandvars -#define e_delnext edelnxt -#define e_delnext_eof edelnxteof -#define e_delnext_list edelnxtlst -#define e_delnext_list_eof edellsteof -#define e_delwordnext edelwrdnext -#define e_delwordprev edelwrdprev -#define e_expand eexp -#define e_expand_history eexphistory -#define e_expand_vars eexpvars -#define e_tty_starto ettystarto -#define e_tty_stopo ettystopo -#define v_csearch_back vcsrchback -#define v_csearch_fwd vcsrchfwd -#define v_charto_back vchartovack -#define v_charto_fwd vchartofwd -#define v_rchar_back vrcharback -#define v_rchar_fwd vrcharfwd -#define v_rsrch_back vrsrchback -#define v_rsrch_fwd vrsrchfwd -#define ed_InitMaps edInitMaps -#define ed_InitMetaBindings edInitMetaBindings -#define QuoteModeOff QuoteOff -#define QuoteModeOn QuoteOn -#define GetNextChar GetNxtChar -#define GetNextCommand GetNxtCommand -#define tty_gettabs ttygettabs -#define tty_getty ttygetty -#define printkey prntkey -#define printkeys prntkeys -#define STRprompt STRpmpt -#define STRprompt2 STRpmpt2 -#define STRprompt3 STRpmpt3 -#define STRtildotdirs STRtdotdirs -#define STRtildothist STRtdothist -#define STRpushdsilent STRpushsilent -#define STRpushdtohome STRpushtohome -#define STRdefault STRdef -#define STRdefautologout STRdefautologout -#define STRfakecom STRfake -#define STRfakecom1 STRfake1 -#define STRLparen STRLpar -#define STRLparensp STRLparsp -#define STRspLarrowsp STRspLarrowsp -#define STRspLarrow2sp STRspL2arrowsp -#define STRspRarrow STRspRarrow -#define STRspRarrow2 STRspR2arrow -#define STRcontinue STRcont -#define STRcontinue_args STRcont_args -#define STRsldotcshrc STRsdotcshrc -#define STRsldottcshrc STRsdottcshrc -#define STRsldotlogin STRsdotlogin -#define STRlistmax STRlmax -#define STRlistmaxrows STRlmaxrows - -#endif /* _snames_h */ diff --git a/contrib/tcsh/src.desc b/contrib/tcsh/src.desc deleted file mode 100644 index 7262cc78a02a..000000000000 --- a/contrib/tcsh/src.desc +++ /dev/null @@ -1,72 +0,0 @@ -Editor functions (ed.*c) -ed.chared.c: Editor basic function implementation. (Motion/Search etc.) -ed.defns.c: Editor command tables. -ed.init.c: Editor initialization. Tty/signal setup. -ed.term.c: Tty driver dependent initialization portion. -ed.inputl.c: Editor input, editor command parser, and dispatcher. -ed.refresh.c: Editor refreshing. How to change the old line to the current. -ed.screen.c: Termcap related functions. -ed.xmap.c: Key macro handling. - -glob.c: The 4.4BSD globbing library function. - -Shell functions (sh*.c). All these files are from csh. -sh.c: Initialization, command loop and script handling. -sh.char.c: Character classification tables. -sh.dir.c: Directory handling (cd, pushd, popd, dirs). Initialization - and symbolic link resolution. -sh.dol.c: Input line processor. Dollar/History expansion. -sh.err.c: Error handling routines and table. -sh.exec.c: Command execution (searching and executing commands) - also which builtin. -sh.exp.c: Expression evaluation. -sh.file.c: Old csh file completion. Not used in tcsh. -sh.func.c: Csh builtin functions. -sh.glob.c: Wildcard matching. Also backquote, brace and tilde evaluation. -sh.hist.c: History book-keeping. -sh.init.c: Signal and builtin tables. -sh.lex.c: Lexical analyzer. -sh.misc.c: General purpose utilities. -sh.parse.c: Parser. Not really a parser. Recognizes sequences of tokens - as builtins. -sh.print.c: Primitive output (basic character output). -sh.proc.c: Job handling. Adds new children to the job list. - Catches dead children and removes them from the job list. - Builtins for stopping/killing/ and moving jobs to the background - foreground. -sh.sem.c: Job spawning (nice and time are handled here too) and I/O - redirection. -sh.set.c: Variable setting. -sh.time.c: Time keeping and reporting. - -Tcsh additions (tc*.c) -tc.alloc.c: Malloc/Free -tc.bind.c: Key binding user access functions. -tc.const.c: Short String constants. -tc.disc.c: Line discipline set/clear. -tc.func.c: Tcsh additional builtins. -tc.os.c: OS dependencies/system call emulations. -tc.printf.c: Stdio like printf using the routines in sh.print.c -tc.prompt.c: Prompt expansion. -tc.sched.c: Scheduling commands handling. -tc.sig.c: Signal emulation for SVR2, SVR1 and V5. -tc.str.c: <string.h> for short strings. -tc.vers.c: HOSTTYPE and $version -tc.who.c: Watch variable handling. - -Spelling, listing, and completion (tw*.c) -tw.help.c: Display help for a command by catting a file. -tw.init.c: Initialization and some utilities. -tw.parse.c: All the listing and completion. Tries to tokenize the line - and figure out where the word(s) started and if they were - commands or not. Then it applies the requested function to - the word fragment. -tw.spell.c: String spelling correction. -tw.comp.c: File completion builtin - -OS/Dependent files -mi.termios.c: Minix termios emulation -mi.varargs.h: Minix varargs -mi.wait.h: Minix wait. -ma.setp.c: MACH's setpath() library function -atp.termcap.c: Termcap routines for vmsposix diff --git a/contrib/tcsh/tc.alloc.c b/contrib/tcsh/tc.alloc.c deleted file mode 100644 index b2771dbea479..000000000000 --- a/contrib/tcsh/tc.alloc.c +++ /dev/null @@ -1,637 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.alloc.c,v 3.34 1999/04/20 07:48:49 christos Exp $ */ -/* - * tc.alloc.c (Caltech) 2/21/82 - * Chris Kingsley, kingsley@cit-20. - * - * This is a very fast storage allocator. It allocates blocks of a small - * number of different sizes, and keeps free lists of each size. Blocks that - * don't exactly fit are passed up to the next larger size. In this - * implementation, the available sizes are 2^n-4 (or 2^n-12) bytes long. - * This is designed for use in a program that uses vast quantities of memory, - * but bombs when it runs out. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.alloc.c,v 3.34 1999/04/20 07:48:49 christos Exp $") - -static char *memtop = NULL; /* PWP: top of current memory */ -static char *membot = NULL; /* PWP: bottom of allocatable memory */ - -int dont_free = 0; - -#if defined(_VMS_POSIX) || defined(_AMIGA_MEMORY) -# define NO_SBRK -#endif - -#ifdef WINNT -# define malloc fmalloc -# define free ffree -# define calloc fcalloc -# define realloc frealloc -#endif /* WINNT */ - -#ifndef SYSMALLOC - -#undef RCHECK -#undef DEBUG - -#ifdef SX -extern void* sbrk(); -#endif -/* - * Lots of os routines are busted and try to free invalid pointers. - * Although our free routine is smart enough and it will pick bad - * pointers most of the time, in cases where we know we are going to get - * a bad pointer, we'd rather leak. - */ - -#ifndef NULL -#define NULL 0 -#endif - -typedef unsigned char U_char; /* we don't really have signed chars */ -typedef unsigned int U_int; -typedef unsigned short U_short; -typedef unsigned long U_long; - - -/* - * The overhead on a block is at least 4 bytes. When free, this space - * contains a pointer to the next free block, and the bottom two bits must - * be zero. When in use, the first byte is set to MAGIC, and the second - * byte is the size index. The remaining bytes are for alignment. - * If range checking is enabled and the size of the block fits - * in two bytes, then the top two bytes hold the size of the requested block - * plus the range checking words, and the header word MINUS ONE. - */ - - -#define MEMALIGN(a) (((a) + ROUNDUP) & ~ROUNDUP) - -union overhead { - union overhead *ov_next; /* when free */ - struct { - U_char ovu_magic; /* magic number */ - U_char ovu_index; /* bucket # */ -#ifdef RCHECK - U_short ovu_size; /* actual block size */ - U_int ovu_rmagic; /* range magic number */ -#endif - } ovu; -#define ov_magic ovu.ovu_magic -#define ov_index ovu.ovu_index -#define ov_size ovu.ovu_size -#define ov_rmagic ovu.ovu_rmagic -}; - -#define MAGIC 0xfd /* magic # on accounting info */ -#define RMAGIC 0x55555555 /* magic # on range info */ -#ifdef RCHECK -#define RSLOP sizeof (U_int) -#else -#define RSLOP 0 -#endif - - -#define ROUNDUP 7 - -/* - * nextf[i] is the pointer to the next free block of size 2^(i+3). The - * smallest allocatable block is 8 bytes. The overhead information - * precedes the data area returned to the user. - */ -#define NBUCKETS ((sizeof(long) << 3) - 3) -static union overhead *nextf[NBUCKETS] IZERO_STRUCT; - -/* - * nmalloc[i] is the difference between the number of mallocs and frees - * for a given block size. - */ -static U_int nmalloc[NBUCKETS] IZERO_STRUCT; - -#ifndef lint -static int findbucket __P((union overhead *, int)); -static void morecore __P((int)); -#endif - - -#ifdef DEBUG -# define CHECK(a, str, p) \ - if (a) { \ - xprintf(str, p); \ - xprintf(" (memtop = %lx membot = %lx)\n", memtop, membot); \ - abort(); \ - } -#else -# define CHECK(a, str, p) \ - if (a) { \ - xprintf(str, p); \ - xprintf(" (memtop = %lx membot = %lx)\n", memtop, membot); \ - return; \ - } -#endif - -memalign_t -malloc(nbytes) - register size_t nbytes; -{ -#ifndef lint - register union overhead *p; - register int bucket = 0; - register unsigned shiftr; - - /* - * Convert amount of memory requested into closest block size stored in - * hash buckets which satisfies request. Account for space used per block - * for accounting. - */ -#ifdef SUNOS4 - /* - * SunOS localtime() overwrites the 9th byte on an 8 byte malloc().... - * so we get one more... - * From Michael Schroeder: This is not true. It depends on the - * timezone string. In Europe it can overwrite the 13th byte on a - * 12 byte malloc. - * So we punt and we always allocate an extra byte. - */ - nbytes++; -#endif - - nbytes = MEMALIGN(MEMALIGN(sizeof(union overhead)) + nbytes + RSLOP); - shiftr = (nbytes - 1) >> 2; - - /* apart from this loop, this is O(1) */ - while ((shiftr >>= 1) != 0) - bucket++; - /* - * If nothing in hash bucket right now, request more memory from the - * system. - */ - if (nextf[bucket] == NULL) - morecore(bucket); - if ((p = (union overhead *) nextf[bucket]) == NULL) { - child++; -#ifndef DEBUG - stderror(ERR_NOMEM); -#else - showall(NULL, NULL); - xprintf(CGETS(19, 1, "nbytes=%d: Out of memory\n"), nbytes); - abort(); -#endif - /* fool lint */ - return ((memalign_t) 0); - } - /* remove from linked list */ - nextf[bucket] = nextf[bucket]->ov_next; - p->ov_magic = MAGIC; - p->ov_index = bucket; - nmalloc[bucket]++; -#ifdef RCHECK - /* - * Record allocated size of block and bound space with magic numbers. - */ - p->ov_size = (p->ov_index <= 13) ? nbytes - 1 : 0; - p->ov_rmagic = RMAGIC; - *((U_int *) (((caddr_t) p) + nbytes - RSLOP)) = RMAGIC; -#endif - return ((memalign_t) (((caddr_t) p) + MEMALIGN(sizeof(union overhead)))); -#else - if (nbytes) - return ((memalign_t) 0); - else - return ((memalign_t) 0); -#endif /* !lint */ -} - -#ifndef lint -/* - * Allocate more memory to the indicated bucket. - */ -static void -morecore(bucket) - register int bucket; -{ - register union overhead *op; - register int rnu; /* 2^rnu bytes will be requested */ - register int nblks; /* become nblks blocks of the desired size */ - register int siz; - - if (nextf[bucket]) - return; - /* - * Insure memory is allocated on a page boundary. Should make getpageize - * call? - */ - op = (union overhead *) sbrk(0); - memtop = (char *) op; - if (membot == NULL) - membot = memtop; - if ((long) op & 0x3ff) { - memtop = (char *) sbrk((int) (1024 - ((long) op & 0x3ff))); - memtop += (long) (1024 - ((long) op & 0x3ff)); - } - - /* take 2k unless the block is bigger than that */ - rnu = (bucket <= 8) ? 11 : bucket + 3; - nblks = 1 << (rnu - (bucket + 3)); /* how many blocks to get */ - memtop = (char *) sbrk(1 << rnu); /* PWP */ - op = (union overhead *) memtop; - /* no more room! */ - if ((long) op == -1) - return; - memtop += (long) (1 << rnu); - /* - * Round up to minimum allocation size boundary and deduct from block count - * to reflect. - */ - if (((U_long) op) & ROUNDUP) { - op = (union overhead *) (((U_long) op + (ROUNDUP + 1)) & ~ROUNDUP); - nblks--; - } - /* - * Add new memory allocated to that on free list for this hash bucket. - */ - nextf[bucket] = op; - siz = 1 << (bucket + 3); - while (--nblks > 0) { - op->ov_next = (union overhead *) (((caddr_t) op) + siz); - op = (union overhead *) (((caddr_t) op) + siz); - } - op->ov_next = NULL; -} - -#endif - -void -free(cp) - ptr_t cp; -{ -#ifndef lint - register int size; - register union overhead *op; - - /* - * the don't free flag is there so that we avoid os bugs in routines - * that free invalid pointers! - */ - if (cp == NULL || dont_free) - return; - CHECK(!memtop || !membot, - CGETS(19, 2, "free(%lx) called before any allocations."), cp); - CHECK(cp > (ptr_t) memtop, - CGETS(19, 3, "free(%lx) above top of memory."), cp); - CHECK(cp < (ptr_t) membot, - CGETS(19, 4, "free(%lx) below bottom of memory."), cp); - op = (union overhead *) (((caddr_t) cp) - MEMALIGN(sizeof(union overhead))); - CHECK(op->ov_magic != MAGIC, - CGETS(19, 5, "free(%lx) bad block."), cp); - -#ifdef RCHECK - if (op->ov_index <= 13) - CHECK(*(U_int *) ((caddr_t) op + op->ov_size + 1 - RSLOP) != RMAGIC, - CGETS(19, 6, "free(%lx) bad range check."), cp); -#endif - CHECK(op->ov_index >= NBUCKETS, - CGETS(19, 7, "free(%lx) bad block index."), cp); - size = op->ov_index; - op->ov_next = nextf[size]; - nextf[size] = op; - - nmalloc[size]--; - -#else - if (cp == NULL) - return; -#endif -} - -memalign_t -calloc(i, j) - size_t i, j; -{ -#ifndef lint - register char *cp, *scp; - - i *= j; - scp = cp = (char *) xmalloc((size_t) i); - if (i != 0) - do - *cp++ = 0; - while (--i); - - return ((memalign_t) scp); -#else - if (i && j) - return ((memalign_t) 0); - else - return ((memalign_t) 0); -#endif -} - -/* - * When a program attempts "storage compaction" as mentioned in the - * old malloc man page, it realloc's an already freed block. Usually - * this is the last block it freed; occasionally it might be farther - * back. We have to search all the free lists for the block in order - * to determine its bucket: 1st we make one pass thru the lists - * checking only the first block in each; if that fails we search - * ``realloc_srchlen'' blocks in each list for a match (the variable - * is extern so the caller can modify it). If that fails we just copy - * however many bytes was given to realloc() and hope it's not huge. - */ -#ifndef lint -/* 4 should be plenty, -1 =>'s whole list */ -static int realloc_srchlen = 4; -#endif /* lint */ - -memalign_t -realloc(cp, nbytes) - ptr_t cp; - size_t nbytes; -{ -#ifndef lint - register U_int onb; - union overhead *op; - ptr_t res; - register int i; - int was_alloced = 0; - - if (cp == NULL) - return (malloc(nbytes)); - op = (union overhead *) (((caddr_t) cp) - MEMALIGN(sizeof(union overhead))); - if (op->ov_magic == MAGIC) { - was_alloced++; - i = op->ov_index; - } - else - /* - * Already free, doing "compaction". - * - * Search for the old block of memory on the free list. First, check the - * most common case (last element free'd), then (this failing) the last - * ``realloc_srchlen'' items free'd. If all lookups fail, then assume - * the size of the memory block being realloc'd is the smallest - * possible. - */ - if ((i = findbucket(op, 1)) < 0 && - (i = findbucket(op, realloc_srchlen)) < 0) - i = 0; - - onb = MEMALIGN(nbytes + MEMALIGN(sizeof(union overhead)) + RSLOP); - - /* avoid the copy if same size block */ - if (was_alloced && (onb <= (U_int) (1 << (i + 3))) && - (onb > (U_int) (1 << (i + 2)))) { -#ifdef RCHECK - /* JMR: formerly this wasn't updated ! */ - nbytes = MEMALIGN(MEMALIGN(sizeof(union overhead))+nbytes+RSLOP); - *((U_int *) (((caddr_t) op) + nbytes - RSLOP)) = RMAGIC; - op->ov_rmagic = RMAGIC; - op->ov_size = (op->ov_index <= 13) ? nbytes - 1 : 0; -#endif - return ((memalign_t) cp); - } - if ((res = malloc(nbytes)) == NULL) - return ((memalign_t) NULL); - if (cp != res) { /* common optimization */ - /* - * christos: this used to copy nbytes! It should copy the - * smaller of the old and new size - */ - onb = (1 << (i + 3)) - MEMALIGN(sizeof(union overhead)) - RSLOP; - (void) memmove((ptr_t) res, (ptr_t) cp, - (size_t) (onb < nbytes ? onb : nbytes)); - } - if (was_alloced) - free(cp); - return ((memalign_t) res); -#else - if (cp && nbytes) - return ((memalign_t) 0); - else - return ((memalign_t) 0); -#endif /* !lint */ -} - - - -#ifndef lint -/* - * Search ``srchlen'' elements of each free list for a block whose - * header starts at ``freep''. If srchlen is -1 search the whole list. - * Return bucket number, or -1 if not found. - */ -static int -findbucket(freep, srchlen) - union overhead *freep; - int srchlen; -{ - register union overhead *p; - register int i, j; - - for (i = 0; i < NBUCKETS; i++) { - j = 0; - for (p = nextf[i]; p && j != srchlen; p = p->ov_next) { - if (p == freep) - return (i); - j++; - } - } - return (-1); -} - -#endif - - -#else /* SYSMALLOC */ - -/** - ** ``Protected versions'' of malloc, realloc, calloc, and free - ** - ** On many systems: - ** - ** 1. malloc(0) is bad - ** 2. free(0) is bad - ** 3. realloc(0, n) is bad - ** 4. realloc(n, 0) is bad - ** - ** Also we call our error routine if we run out of memory. - **/ -memalign_t -smalloc(n) - size_t n; -{ - ptr_t ptr; - - n = n ? n : 1; - -#ifndef NO_SBRK - if (membot == NULL) - membot = (char*) sbrk(0); -#endif /* !NO_SBRK */ - - if ((ptr = malloc(n)) == (ptr_t) 0) { - child++; - stderror(ERR_NOMEM); - } -#ifdef NO_SBRK - if (memtop < ((char *) ptr) + n) - memtop = ((char *) ptr) + n; - if (membot == NULL) - membot = (char*) ptr; -#endif /* NO_SBRK */ - return ((memalign_t) ptr); -} - -memalign_t -srealloc(p, n) - ptr_t p; - size_t n; -{ - ptr_t ptr; - - n = n ? n : 1; - -#ifndef NO_SBRK - if (membot == NULL) - membot = (char*) sbrk(0); -#endif /* NO_SBRK */ - - if ((ptr = (p ? realloc(p, n) : malloc(n))) == (ptr_t) 0) { - child++; - stderror(ERR_NOMEM); - } -#ifdef NO_SBRK - if (memtop < ((char *) ptr) + n) - memtop = ((char *) ptr) + n; - if (membot == NULL) - membot = (char*) ptr; -#endif /* NO_SBRK */ - return ((memalign_t) ptr); -} - -memalign_t -scalloc(s, n) - size_t s, n; -{ - char *sptr; - ptr_t ptr; - - n *= s; - n = n ? n : 1; - -#ifndef NO_SBRK - if (membot == NULL) - membot = (char*) sbrk(0); -#endif /* NO_SBRK */ - - if ((ptr = malloc(n)) == (ptr_t) 0) { - child++; - stderror(ERR_NOMEM); - } - - sptr = (char *) ptr; - if (n != 0) - do - *sptr++ = 0; - while (--n); - -#ifdef NO_SBRK - if (memtop < ((char *) ptr) + n) - memtop = ((char *) ptr) + n; - if (membot == NULL) - membot = (char*) ptr; -#endif /* NO_SBRK */ - - return ((memalign_t) ptr); -} - -void -sfree(p) - ptr_t p; -{ - if (p && !dont_free) - free(p); -} - -#endif /* SYSMALLOC */ - -/* - * mstats - print out statistics about malloc - * - * Prints two lines of numbers, one showing the length of the free list - * for each size category, the second showing the number of mallocs - - * frees for each size category. - */ -/*ARGSUSED*/ -void -showall(v, c) - Char **v; - struct command *c; -{ -#ifndef SYSMALLOC - register int i, j; - register union overhead *p; - int totfree = 0, totused = 0; - - xprintf(CGETS(19, 8, "%s current memory allocation:\nfree:\t"), progname); - for (i = 0; i < NBUCKETS; i++) { - for (j = 0, p = nextf[i]; p; p = p->ov_next, j++) - continue; - xprintf(" %4d", j); - totfree += j * (1 << (i + 3)); - } - xprintf(CGETS(19, 9, "\nused:\t")); - for (i = 0; i < NBUCKETS; i++) { - xprintf(" %4u", nmalloc[i]); - totused += nmalloc[i] * (1 << (i + 3)); - } - xprintf(CGETS(19, 10, "\n\tTotal in use: %d, total free: %d\n"), - totused, totfree); - xprintf(CGETS(19, 11, - "\tAllocated memory from 0x%lx to 0x%lx. Real top at 0x%lx\n"), - (unsigned long) membot, (unsigned long) memtop, - (unsigned long) sbrk(0)); -#else -#ifndef NO_SBRK - memtop = (char *) sbrk(0); -#endif /* !NO_SBRK */ - xprintf(CGETS(19, 12, "Allocated memory from 0x%lx to 0x%lx (%ld).\n"), - (unsigned long) membot, (unsigned long) memtop, - (unsigned long) (memtop - membot)); -#endif /* SYSMALLOC */ - USE(c); - USE(v); -} diff --git a/contrib/tcsh/tc.bind.c b/contrib/tcsh/tc.bind.c deleted file mode 100644 index 3ff3839957f8..000000000000 --- a/contrib/tcsh/tc.bind.c +++ /dev/null @@ -1,1079 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.bind.c,v 3.33 1998/11/24 18:17:40 christos Exp $ */ -/* - * tc.bind.c: Key binding functions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.bind.c,v 3.33 1998/11/24 18:17:40 christos Exp $") - -#include "ed.h" -#include "ed.defns.h" - -#ifdef OBSOLETE -static int tocontrol __P((int)); -static char *unparsekey __P((int)); -static KEYCMD getkeycmd __P((Char **)); -static int parsekey __P((Char **)); -static void pkeys __P((int, int)); -#endif /* OBSOLETE */ - -static void printkey __P((KEYCMD *, CStr *)); -static KEYCMD parsecmd __P((Char *)); -static void bad_spec __P((Char *)); -static CStr *parsestring __P((Char *, CStr *)); -static CStr *parsebind __P((Char *, CStr *)); -static void print_all_keys __P((void)); -static void printkeys __P((KEYCMD *, int, int)); -static void bindkey_usage __P((void)); -static void list_functions __P((void)); - -extern int MapsAreInited; - - - - -/*ARGSUSED*/ -void -dobindkey(v, c) - Char **v; - struct command *c; -{ - KEYCMD *map; - int ntype, no, remove, key, bind; - Char *par; - Char p; - KEYCMD cmd; - CStr in; - CStr out; - Char inbuf[200]; - Char outbuf[200]; - uChar ch; - in.buf = inbuf; - out.buf = outbuf; - in.len = 0; - out.len = 0; - - USE(c); - if (!MapsAreInited) - ed_InitMaps(); - - map = CcKeyMap; - ntype = XK_CMD; - key = remove = bind = 0; - for (no = 1, par = v[no]; - par != NULL && (*par++ & CHAR) == '-'; no++, par = v[no]) { - if ((p = (*par & CHAR)) == '-') { - no++; - break; - } - else - switch (p) { - case 'b': - bind = 1; - break; - case 'k': - key = 1; - break; - case 'a': - map = CcAltMap; - break; - case 's': - ntype = XK_STR; - break; - case 'c': - ntype = XK_EXE; - break; - case 'r': - remove = 1; - break; - case 'v': - ed_InitVIMaps(); - return; - case 'e': - ed_InitEmacsMaps(); - return; - case 'd': -#ifdef VIDEFAULT - ed_InitVIMaps(); -#else /* EMACSDEFAULT */ - ed_InitEmacsMaps(); -#endif /* VIDEFAULT */ - return; - case 'l': - list_functions(); - return; - default: - bindkey_usage(); - return; - } - } - - if (!v[no]) { - print_all_keys(); - return; - } - - if (key) { - if (!IsArrowKey(v[no])) - xprintf(CGETS(20, 1, "Invalid key name `%S'\n"), v[no]); - in.buf = v[no++]; - in.len = Strlen(in.buf); - } - else { - if (bind) { - if (parsebind(v[no++], &in) == NULL) - return; - } - else { - if (parsestring(v[no++], &in) == NULL) - return; - } - } - - ch = (uChar) in.buf[0]; - - if (remove) { - if (key) { - (void) ClearArrowKeys(&in); - return; - } - if (in.len > 1) { - (void) DeleteXkey(&in); - } - else if (map[ch] == F_XKEY) { - (void) DeleteXkey(&in); - map[ch] = F_UNASSIGNED; - } - else { - map[ch] = F_UNASSIGNED; - } - return; - } - if (!v[no]) { - if (key) - PrintArrowKeys(&in); - else - printkey(map, &in); - return; - } - if (v[no + 1]) { - bindkey_usage(); - return; - } - switch (ntype) { - case XK_STR: - case XK_EXE: - if (parsestring(v[no], &out) == NULL) - return; - if (key) { - if (SetArrowKeys(&in, XmapStr(&out), ntype) == -1) - xprintf(CGETS(20, 2, "Bad key name: %S\n"), in); - } - else - AddXkey(&in, XmapStr(&out), ntype); - map[ch] = F_XKEY; - break; - case XK_CMD: - if ((cmd = parsecmd(v[no])) == 0) - return; - if (key) - (void) SetArrowKeys(&in, XmapCmd((int) cmd), ntype); - else { - if (in.len > 1) { - AddXkey(&in, XmapCmd((int) cmd), ntype); - map[ch] = F_XKEY; - } - else { - ClearXkey(map, &in); - map[ch] = cmd; - } - } - break; - default: - abort(); - break; - } - if (key) - BindArrowKeys(); -} - -static void -printkey(map, in) - KEYCMD *map; - CStr *in; -{ - unsigned char outbuf[100]; - register struct KeyFuncs *fp; - - if (in->len < 2) { - (void) unparsestring(in, outbuf, STRQQ); - for (fp = FuncNames; fp->name; fp++) { - if (fp->func == map[(uChar) *(in->buf)]) { - xprintf("%s\t->\t%s\n", outbuf, fp->name); - } - } - } - else - PrintXkey(in); -} - -static KEYCMD -parsecmd(str) - Char *str; -{ - register struct KeyFuncs *fp; - - for (fp = FuncNames; fp->name; fp++) { - if (strcmp(short2str(str), fp->name) == 0) { - return (KEYCMD) fp->func; - } - } - xprintf(CGETS(20, 3, "Bad command name: %S\n"), str); - return 0; -} - - -static void -bad_spec(str) - Char *str; -{ - xprintf(CGETS(20, 4, "Bad key spec %S\n"), str); -} - -static CStr * -parsebind(s, str) - Char *s; - CStr *str; -{ -#ifdef DSPMBYTE - extern bool NoNLSRebind; -#endif /* DSPMBYTE */ - Char *b = str->buf; - - if (Iscntrl(*s)) { - *b++ = *s; - *b = '\0'; - str->len = (int) (b - str->buf); - return str; - } - - switch (*s) { - case '^': - s++; -#ifndef _OSD_POSIX - *b++ = (*s == '?') ? '\177' : ((*s & CHAR) & 0237); -#else /*_OSD_POSIX*/ - *b++ = (*s == '?') ? CTL_ESC('\177') : _toebcdic[_toascii[*s & CHAR] & 0237]; -#endif /*_OSD_POSIX*/ - *b = '\0'; - break; - - case 'F': - case 'M': - case 'X': - case 'C': -#ifdef WINNT - case 'N': -#endif /* WINNT */ - if (s[1] != '-' || s[2] == '\0') { - bad_spec(s); - return NULL; - } - s += 2; - switch (s[-2]) { - case 'F': case 'f': /* Turn into ^[str */ - *b++ = CTL_ESC('\033'); - while ((*b++ = *s++) != '\0') - continue; - b--; - break; - - case 'C': case 'c': /* Turn into ^c */ -#ifndef _OSD_POSIX - *b++ = (*s == '?') ? '\177' : ((*s & CHAR) & 0237); -#else /*_OSD_POSIX*/ - *b++ = (*s == '?') ? CTL_ESC('\177') : _toebcdic[_toascii[*s & CHAR] & 0237]; -#endif /*_OSD_POSIX*/ - *b = '\0'; - break; - - case 'X' : case 'x': /* Turn into ^Xc */ -#ifndef _OSD_POSIX - *b++ = 'X' & 0237; -#else /*_OSD_POSIX*/ - *b++ = _toebcdic[_toascii['X'] & 0237]; -#endif /*_OSD_POSIX*/ - *b++ = *s; - *b = '\0'; - break; - - case 'M' : case 'm': /* Turn into 0x80|c */ -#ifdef DSPMBYTE - if (!NoNLSRebind) { - *b++ = CTL_ESC('\033'); - *b++ = *s; - } else { -#endif /* DSPMBYTE */ -#ifndef _OSD_POSIX - *b++ = *s | 0x80; -#else /*_OSD_POSIX*/ - *b++ = _toebcdic[_toascii[*s] | 0x80]; -#endif /*_OSD_POSIX*/ -#ifdef DSPMBYTE - } -#endif /* DSPMBYTE */ - *b = '\0'; - break; -#ifdef WINNT - case 'N' : case 'n': /* NT */ - { - Char bnt; - - bnt = nt_translate_bindkey(s); - if (bnt != 0) - *b++ = bnt; - else - bad_spec(s); - } - break; -#endif /* WINNT */ - - default: - abort(); - /*NOTREACHED*/ - return NULL; - } - break; - - default: - bad_spec(s); - return NULL; - } - - str->len = (int) (b - str->buf); - return str; -} - - -static CStr * -parsestring(str, buf) - Char *str; - CStr *buf; -{ - Char *b; - const Char *p; - int es; - - b = buf->buf; - if (*str == 0) { - xprintf(CGETS(20, 5, "Null string specification\n")); - return NULL; - } - - for (p = str; *p != 0; p++) { - if ((*p & CHAR) == '\\' || (*p & CHAR) == '^') { - if ((es = parseescape(&p)) == -1) - return 0; - else - *b++ = (Char) es; - } - else - *b++ = *p & CHAR; - } - *b = 0; - buf->len = (int) (b - buf->buf); - return buf; -} - -static void -print_all_keys() -{ - int prev, i; - CStr nilstr; - nilstr.buf = NULL; - nilstr.len = 0; - - - xprintf(CGETS(20, 6, "Standard key bindings\n")); - prev = 0; - for (i = 0; i < 256; i++) { - if (CcKeyMap[prev] == CcKeyMap[i]) - continue; - printkeys(CcKeyMap, prev, i - 1); - prev = i; - } - printkeys(CcKeyMap, prev, i - 1); - - xprintf(CGETS(20, 7, "Alternative key bindings\n")); - prev = 0; - for (i = 0; i < 256; i++) { - if (CcAltMap[prev] == CcAltMap[i]) - continue; - printkeys(CcAltMap, prev, i - 1); - prev = i; - } - printkeys(CcAltMap, prev, i - 1); - xprintf(CGETS(20, 8, "Multi-character bindings\n")); - PrintXkey(NULL); /* print all Xkey bindings */ - xprintf(CGETS(20, 9, "Arrow key bindings\n")); - PrintArrowKeys(&nilstr); -} - -static void -printkeys(map, first, last) - KEYCMD *map; - int first, last; -{ - register struct KeyFuncs *fp; - Char firstbuf[2], lastbuf[2]; - CStr fb, lb; - unsigned char unparsbuf[10], extrabuf[10]; - fb.buf = firstbuf; - lb.buf = lastbuf; - - firstbuf[0] = (Char) first; - firstbuf[1] = 0; - lastbuf[0] = (Char) last; - lastbuf[1] = 0; - fb.len = 1; - lb.len = 1; - - if (map[first] == F_UNASSIGNED) { - if (first == last) - xprintf(CGETS(20, 10, "%-15s-> is undefined\n"), - unparsestring(&fb, unparsbuf, STRQQ)); - return; - } - - for (fp = FuncNames; fp->name; fp++) { - if (fp->func == map[first]) { - if (first == last) { - xprintf("%-15s-> %s\n", - unparsestring(&fb, unparsbuf, STRQQ), fp->name); - } - else { - xprintf("%-4s to %-7s-> %s\n", - unparsestring(&fb, unparsbuf, STRQQ), - unparsestring(&lb, extrabuf, STRQQ), fp->name); - } - return; - } - } - if (map == CcKeyMap) { - xprintf(CGETS(20, 11, "BUG!!! %s isn't bound to anything.\n"), - unparsestring(&fb, unparsbuf, STRQQ)); - xprintf("CcKeyMap[%d] == %d\n", first, CcKeyMap[first]); - } - else { - xprintf(CGETS(20, 11, "BUG!!! %s isn't bound to anything.\n"), - unparsestring(&fb, unparsbuf, STRQQ)); - xprintf("CcAltMap[%d] == %d\n", first, CcAltMap[first]); - } -} - -static void -bindkey_usage() -{ - xprintf(CGETS(20, 12, - "Usage: bindkey [options] [--] [KEY [COMMAND]]\n")); - xprintf(CGETS(20, 13, - " -a list or bind KEY in alternative key map\n")); - xprintf(CGETS(20, 14, - " -b interpret KEY as a C-, M-, F- or X- key name\n")); - xprintf(CGETS(20, 15, - " -s interpret COMMAND as a literal string to be output\n")); - xprintf(CGETS(20, 16, - " -c interpret COMMAND as a builtin or external command\n")); - xprintf(CGETS(20, 17, - " -v bind all keys to vi bindings\n")); - xprintf(CGETS(20, 18, - " -e bind all keys to emacs bindings\n")); - xprintf(CGETS(20, 19, - " -d bind all keys to default editor's bindings\n")); - xprintf(CGETS(20, 20, - " -l list editor commands with descriptions\n")); - xprintf(CGETS(20, 21, - " -r remove KEY's binding\n")); - xprintf(CGETS(20, 22, - " -k interpret KEY as a symbolic arrow-key name\n")); - xprintf(CGETS(20, 23, - " -- force a break from option processing\n")); - xprintf(CGETS(20, 24, - " -u (or any invalid option) this message\n")); - xprintf("\n"); - xprintf(CGETS(20, 25, - "Without KEY or COMMAND, prints all bindings\n")); - xprintf(CGETS(20, 26, - "Without COMMAND, prints the binding for KEY.\n")); -} - -static void -list_functions() -{ - register struct KeyFuncs *fp; - - for (fp = FuncNames; fp->name; fp++) { - xprintf("%s\n %s\n", fp->name, fp->desc); - } -} - -#ifdef OBSOLETE - -/* - * Unfortunately the apollo optimizer does not like & operations - * with 0377, and produces illegal instructions. So we make it - * an unsigned char, and hope for the best. - * Of-course the compiler is smart enough to produce bad assembly - * language instructions, but dumb when it comes to fold the constant :-) - */ -#ifdef apollo -static unsigned char APOLLO_0377 = 0377; -#else /* sane */ -# define APOLLO_0377 0377 -#endif /* apollo */ - -static int -tocontrol(c) - int c; -{ - c &= CHAR; - if (Islower(c)) - c = Toupper(c); - else if (c == ' ') - c = '@'; - if (c == '?') - c = CTL_ESC('\177'); - else -#ifndef _OSD_POSIX - c &= 037; -#else /* EBCDIC: simulate ASCII-behavior by transforming to ASCII and back */ - c = _toebcdic[_toascii[c] & 037]; -#endif - return (c); -} - -static char * -unparsekey(c) /* 'c' -> "c", '^C' -> "^" + "C" */ - register int c; -{ - register char *cp; - static char tmp[10]; - - cp = tmp; - - if (c & 0400) { - *cp++ = 'A'; - *cp++ = '-'; - c &= APOLLO_0377; - } - if ((c & META) && !(Isprint(c) || (Iscntrl(c) && Isprint(c | 0100)))) { - *cp++ = 'M'; - *cp++ = '-'; - c &= ASCII; - } - if (Isprint(c)) { - *cp++ = (char) c; - *cp = '\0'; - return (tmp); - } - switch (c) { - case ' ': - (void) strcpy(cp, "Spc"); - return (tmp); - case '\n': - (void) strcpy(cp, "Lfd"); - return (tmp); - case '\r': - (void) strcpy(cp, "Ret"); - return (tmp); - case '\t': - (void) strcpy(cp, "Tab"); - return (tmp); -#ifndef _OSD_POSIX - case '\033': - (void) strcpy(cp, "Esc"); - return (tmp); - case '\177': - (void) strcpy(cp, "Del"); - return (tmp); - default: - *cp++ = '^'; - if (c == '\177') { - *cp++ = '?'; - } - else { - *cp++ = c | 0100; - } - *cp = '\0'; - return (tmp); -#else /*_OSD_POSIX*/ - default: - if (*cp == CTL_ESC('\033')) { - (void) strcpy(cp, "Esc"); - return (tmp); - } - else if (*cp == CTL_ESC('\177')) { - (void) strcpy(cp, "Del"); - return (tmp); - } - else if (Isupper(_toebcdic[_toascii[c]|0100]) - || strchr("@[\\]^_", _toebcdic[_toascii[c]|0100]) != NULL) { - *cp++ = '^'; - *cp++ = _toebcdic[_toascii[c]|0100] - } - else { - xsnprintf(cp, 3, "\\%3.3o", c); - cp += 4; - } -#endif /*_OSD_POSIX*/ - } -} - -static KEYCMD -getkeycmd(sp) - Char **sp; -{ - register Char *s = *sp; - register char c; - register KEYCMD keycmd = F_UNASSIGNED; - KEYCMD *map; - int meta = 0; - Char *ret_sp = s; - - map = CcKeyMap; - - while (*s) { - if (*s == '^' && s[1]) { - s++; - c = tocontrol(*s++); - } - else - c = *s++; - - if (*s == '\0') - break; - - switch (map[c | meta]) { - case F_METANEXT: - meta = META; - keycmd = F_METANEXT; - ret_sp = s; - break; - - case F_XKEY: - keycmd = F_XKEY; - ret_sp = s; - /* FALLTHROUGH */ - - default: - *sp = ret_sp; - return (keycmd); - - } - } - *sp = ret_sp; - return (keycmd); -} - -static int -parsekey(sp) - Char **sp; /* Return position of first unparsed character - * for return value -2 (xkeynext) */ -{ - register int c, meta = 0, control = 0, ctrlx = 0; - Char *s = *sp; - KEYCMD keycmd; - - if (s == NULL) { - xprintf(CGETS(20, 27, "bad key specification -- null string\n")); - return -1; - } - if (*s == 0) { - xprintf(CGETS(20, 28, "bad key specification -- empty string\n")); - return -1; - } - - (void) strip(s); /* trim to 7 bits. */ - - if (s[1] == 0) /* single char */ - return (s[0] & APOLLO_0377); - - if ((s[0] == 'F' || s[0] == 'f') && s[1] == '-') { - if (s[2] == 0) { - xprintf(CGETS(20, 29, - "Bad function-key specification. Null key not allowed\n")); - return (-1); - } - *sp = s + 2; - return (-2); - } - - if (s[0] == '0' && s[1] == 'x') { /* if 0xn, then assume number */ - c = 0; - for (s += 2; *s; s++) { /* convert to hex; skip the first 0 */ - c *= 16; - if (!Isxdigit(*s)) { - xprintf(CGETS(20, 30, - "bad key specification -- malformed hex number\n")); - return -1; /* error */ - } - if (Isdigit(*s)) - c += *s - '0'; - else if (*s >= 'a' && *s <= 'f') - c += *s - 'a' + 0xA; - else if (*s >= 'F' && *s <= 'F') - c += *s - 'A' + 0xA; - } - } - else if (s[0] == '0' && Isdigit(s[1])) { /* if 0n, then assume number */ - c = 0; - for (s++; *s; s++) { /* convert to octal; skip the first 0 */ - if (!Isdigit(*s) || *s == '8' || *s == '9') { - xprintf(CGETS(20, 31, - "bad key specification -- malformed octal number\n")); - return -1; /* error */ - } - c = (c * 8) + *s - '0'; - } - } - else if (Isdigit(s[0]) && Isdigit(s[1])) { /* decimal number */ - c = 0; - for (; *s; s++) { /* convert to octal; skip the first 0 */ - if (!Isdigit(*s)) { - xprintf(CGETS(20, 32, - "bad key specification -- malformed decimal number\n")); - return -1; /* error */ - } - c = (c * 10) + *s - '0'; - } - } - else { - keycmd = getkeycmd(&s); - - if ((s[0] == 'X' || s[0] == 'x') && s[1] == '-') { /* X- */ - ctrlx++; - s += 2; - keycmd = getkeycmd(&s); - } - if ((*s == 'm' || *s == 'M') && s[1] == '-') { /* meta */ - meta++; - s += 2; - keycmd = getkeycmd(&s); - } - else if (keycmd == F_METANEXT && *s) { /* meta */ - meta++; - keycmd = getkeycmd(&s); - } - if (*s == '^' && s[1]) { - control++; - s++; - keycmd = getkeycmd(&s); - } - else if ((*s == 'c' || *s == 'C') && s[1] == '-') { /* control */ - control++; - s += 2; - keycmd = getkeycmd(&s); - } - - if (keycmd == F_XKEY) { - if (*s == 0) { - xprintf(CGETS(20, 33, - "Bad function-key specification.\n")); - xprintf(CGETS(20, 34, "Null key not allowed\n")); - return (-1); - } - *sp = s; - return (-2); - } - - if (s[1] != 0) { /* if symbolic name */ - char *ts; - - ts = short2str(s); - if (!strcmp(ts, "space") || !strcmp(ts, "Spc")) - c = ' '; - else if (!strcmp(ts, "return") || !strcmp(ts, "Ret")) - c = '\r'; - else if (!strcmp(ts, "newline") || !strcmp(ts, "Lfd")) - c = '\n'; - else if (!strcmp(ts, "linefeed")) - c = '\n'; - else if (!strcmp(ts, "tab")) - c = '\t'; - else if (!strcmp(ts, "escape") || !strcmp(ts, "Esc")) - c = CTL_ESC('\033'); - else if (!strcmp(ts, "backspace")) - c = '\b'; - else if (!strcmp(ts, "delete")) - c = CTL_ESC('\177'); - else { - xprintf(CGETS(20, 35, - "bad key specification -- unknown name \"%S\"\n"), s); - return -1; /* error */ - } - } - else - c = *s; /* just a single char */ - - if (control) - c = tocontrol(c); - if (meta) - c |= META; - if (ctrlx) - c |= 0400; - } - return (c & 0777); -} - - -/*ARGSUSED*/ -void -dobind(v, dummy) - register Char **v; - struct command *dummy; -{ - register int c; - register struct KeyFuncs *fp; - register int i, prev; - Char *p, *l; - CStr cstr; - Char buf[1000]; - - USE(dummy); - /* - * Assume at this point that i'm given 2 or 3 args - 'bind', the f-name, - * and the key; or 'bind' key to print the func for that key. - */ - - if (!MapsAreInited) - ed_InitMaps(); - - if (v[1] && v[2] && v[3]) { - xprintf(CGETS(20, 36, - "usage: bind [KEY | COMMAND KEY | \"emacs\" | \"vi\" | \"-a\"]\n")); - return; - } - - if (v[1] && v[2]) { /* if bind FUNCTION KEY */ - for (fp = FuncNames; fp->name; fp++) { - if (strcmp(short2str(v[1]), fp->name) == 0) { - Char *s = v[2]; - - if ((c = parsekey(&s)) == -1) - return; - if (c == -2) { /* extended key */ - for (i = 0; i < 256; i++) { - if (i != CTL_ESC('\033') && (CcKeyMap[i] == F_XKEY || - CcAltMap[i] == F_XKEY)) { - p = buf; -#ifndef _OSD_POSIX /* this is only for ASCII, not for EBCDIC */ - if (i > 0177) { - *p++ = 033; - *p++ = i & ASCII; - } - else { - *p++ = (Char) i; - } -#else /*_OSD_POSIX*/ - *p++ = (Char) i; -#endif /*_OSD_POSIX*/ - for (l = s; *l != 0; l++) { - *p++ = *l; - } - *p = 0; - cstr.buf = buf; - cstr.len = Strlen(buf); - AddXkey(&cstr, XmapCmd(fp->func), XK_CMD); - } - } - return; - } - if (c & 0400) { - if (VImode) { - CcAltMap[c & APOLLO_0377] = fp->func; - /* bind the vi cmd mode key */ - if (c & META) { - buf[0] = CTL_ESC('\033'); - buf[1] = c & ASCII; - buf[2] = 0; - cstr.buf = buf; - cstr.len = Strlen(buf); - AddXkey(&cstr, XmapCmd(fp->func), XK_CMD); - } - } - else { - buf[0] = CTL_ESC('\030'); /* ^X */ - buf[1] = c & APOLLO_0377; - buf[2] = 0; - cstr.buf = buf; - cstr.len = Strlen(buf); - AddXkey(&cstr, XmapCmd(fp->func), XK_CMD); - CcKeyMap[CTL_ESC('\030')] = F_XKEY; - } - } - else { - CcKeyMap[c] = fp->func; /* bind the key */ - if (c & META) { - buf[0] = CTL_ESC('\033'); - buf[1] = c & ASCII; - buf[2] = 0; - cstr.buf = buf; - cstr.len = Strlen(buf); - AddXkey(&cstr, XmapCmd(fp->func), XK_CMD); - } - } - return; - } - } - stderror(ERR_NAME | ERR_STRING, CGETS(20, 37, "Invalid function")); - } - else if (v[1]) { - char *cv = short2str(v[1]); - - if (strcmp(cv, "list") == 0) { - for (fp = FuncNames; fp->name; fp++) { - xprintf("%s\n", fp->name); - } - return; - } - if ((strcmp(cv, "emacs") == 0) || -#ifndef VIDEFAULT - (strcmp(cv, "defaults") == 0) || - (strcmp(cv, "default") == 0) || -#endif - (strcmp(cv, "mg") == 0) || - (strcmp(cv, "gnumacs") == 0)) { - /* reset keys to default */ - ed_InitEmacsMaps(); -#ifdef VIDEFAULT - } - else if ((strcmp(cv, "vi") == 0) - || (strcmp(cv, "default") == 0) - || (strcmp(cv, "defaults") == 0)) { -#else - } - else if (strcmp(cv, "vi") == 0) { -#endif - ed_InitVIMaps(); - } - else { /* want to know what this key does */ - Char *s = v[1]; - - if ((c = parsekey(&s)) == -1) - return; - if (c == -2) { /* extended key */ - cstr.buf = s; - cstr.len = Strlen(s); - PrintXkey(&cstr); - return; - } - pkeys(c, c); /* must be regular key */ - } - } - else { /* list all the bindings */ - prev = 0; - for (i = 0; i < 256; i++) { - if (CcKeyMap[prev] == CcKeyMap[i]) - continue; - pkeys(prev, i - 1); - prev = i; - } - pkeys(prev, i - 1); - prev = 0; - for (i = 256; i < 512; i++) { - if (CcAltMap[prev & APOLLO_0377] == CcAltMap[i & APOLLO_0377]) - continue; - pkeys(prev, i - 1); - prev = i; - } - pkeys(prev, i - 1); - cstr.buf = NULL; - cstr.len = 0; - PrintXkey(&cstr); /* print all Xkey bindings */ - } - return; -} - -static void -pkeys(first, last) - register int first, last; -{ - register struct KeyFuncs *fp; - register KEYCMD *map; - int mask; - char buf[8]; - - if (last & 0400) { - map = CcAltMap; - first &= APOLLO_0377; - last &= APOLLO_0377; - mask = 0400; - } - else { - map = CcKeyMap; - mask = 0; - } - if (map[first] == F_UNASSIGNED) { - if (first == last) - xprintf(CGETS(20, 38, " %s\t\tis undefined\n"), - unparsekey(first | mask)); - return; - } - - for (fp = FuncNames; fp->name; fp++) { - if (fp->func == map[first]) { - if (first == last) - xprintf(" %s\t\t%s\n", - unparsekey((first & APOLLO_0377) | mask), fp->name); - else { - (void) strcpy(buf, unparsekey((first & APOLLO_0377) | mask)); - xprintf(" %s..%s\t\t%s\n", buf, - unparsekey((last & APOLLO_0377) | mask), fp->name); - } - return; - } - } - if (map == CcKeyMap) { - xprintf(CGETS(20, 11, "BUG!!! %s isn't bound to anything.\n"), - unparsekey(first)); - xprintf("CcKeyMap[%d] == %d\n", first, CcKeyMap[first]); - } - else { - xprintf(CGETS(20, 11, "BUG!!! %s isn't bound to anything.\n"), - unparsekey(first & 0400)); - xprintf("CcAltMap[%d] == %d\n", first, CcAltMap[first]); - } -} -#endif /* OBSOLETE */ diff --git a/contrib/tcsh/tc.const.c b/contrib/tcsh/tc.const.c deleted file mode 100644 index afcfae712e40..000000000000 --- a/contrib/tcsh/tc.const.c +++ /dev/null @@ -1,420 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.const.c,v 3.53 2000/01/14 22:57:29 christos Exp $ */ -/* - * sh.const.c: String constants for tcsh. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.const.c,v 3.53 2000/01/14 22:57:29 christos Exp $") - -Char STRlogout[] = { 'l', 'o', 'g', 'o', 'u', 't', '\0' }; -Char STRautologout[] = { 'a', 'u', 't', 'o', 'l', 'o', 'g', 'o', 'u', 't', - '\0' }; -Char STRdefautologout[] = { '6', '0', '\0' }; -#ifdef convex -Char STRrootdefautologout[] = { '1', '5', '\0' }; -#endif -Char STRautomatic[] = { 'a', 'u', 't', 'o', 'm', 'a', 't', 'i', 'c', - '\0' }; -Char STRhangup[] = { 'h', 'a', 'n', 'g', 'u', 'p', '\0' }; -Char STRaout[] = { 'a', '.', 'o', 'u', 't', '\0' }; -Char STRtty[] = { 't', 't', 'y', '\0' }; -Char STRpts[] = { 'p', 't', 's', '\0' }; -Char STRany[] = { 'a', 'n', 'y', '\0' }; -Char STRstatus[] = { 's', 't', 'a', 't', 'u', 's', '\0' }; -Char STR0[] = { '0', '\0' }; -Char STR1[] = { '1', '\0' }; -/* STRm1 would look too much like STRml IMHO */ -Char STRminus1[] = { '-', '1', '\0' }; -Char STRmaxint[] = { '0', 'x', '7', 'f', 'f', 'f', 'f', 'f', 'f', 'f', - '\0' }; -Char STRcolon[] = { ':', '\0' }; -Char STR_[] = { '_', '\0' }; -Char STRNULL[] = { '\0' }; -Char STRtcsh[] = { 't', 'c', 's', 'h', '\0' }; -Char STRhome[] = { 'h', 'o', 'm', 'e', '\0' }; -Char STRuser[] = { 'u', 's', 'e', 'r', '\0' }; -Char STRgroup[] = { 'g', 'r', 'o', 'u', 'p', '\0' }; -#ifdef AFS -Char STRafsuser[] = { 'a', 'f', 's', 'u', 's', 'e', 'r', '\0' }; -#endif /* AFS */ -Char STRterm[] = { 't', 'e', 'r', 'm', '\0' }; -Char STRversion[] = { 'v', 'e', 'r', 's', 'i', 'o', 'n', '\0' }; -Char STRuid[] = { 'u', 'i', 'd', '\0' }; -Char STRgid[] = { 'g', 'i', 'd', '\0' }; -Char STRunknown[] = { 'u', 'n', 'k', 'n', 'o', 'w', 'n', '\0' }; -Char STRnetwork[] = { 'n', 'e', 't', 'w', 'o', 'r', 'k', '\0' }; -Char STRdumb[] = { 'd', 'u', 'm', 'b', '\0' }; -Char STRHOST[] = { 'H', 'O', 'S', 'T', '\0' }; -#ifdef REMOTEHOST -Char STRREMOTEHOST[] = { 'R', 'E', 'M', 'O', 'T', 'E', 'H', - 'O', 'S', 'T', '\0' }; -#endif /* REMOTEHOST */ -Char STRHOSTTYPE[] = { 'H', 'O', 'S', 'T', 'T', 'Y', 'P', 'E', '\0' }; -Char STRVENDOR[] = { 'V', 'E', 'N', 'D', 'O', 'R', '\0' }; -Char STRMACHTYPE[] = { 'M', 'A', 'C', 'H', 'T', 'Y', 'P', 'E', '\0' }; -Char STROSTYPE[] = { 'O', 'S', 'T', 'Y', 'P', 'E', '\0' }; -Char STRedit[] = { 'e', 'd', 'i', 't', '\0' }; -Char STRaddsuffix[] = { 'a', 'd', 'd', 's', 'u', 'f', 'f', 'i', 'x', - '\0' }; -Char STRnostat[] = { 'n', 'o', 's', 't', 'a', 't', '\0' }; -Char STRshell[] = { 's', 'h', 'e', 'l', 'l', '\0' }; -Char STRtmpsh[] = { '/', 't', 'm', 'p', '/', 's', 'h', '\0' }; -Char STRverbose[] = { 'v', 'e', 'r', 'b', 'o', 's', 'e', '\0' }; -Char STRecho[] = { 'e', 'c', 'h', 'o', '\0' }; -Char STRpath[] = { 'p', 'a', 't', 'h', '\0' }; -Char STRprompt[] = { 'p', 'r', 'o', 'm', 'p', 't', '\0' }; -Char STRprompt2[] = { 'p', 'r', 'o', 'm', 'p', 't', '2', '\0' }; -Char STRprompt3[] = { 'p', 'r', 'o', 'm', 'p', 't', '3', '\0' }; -Char STRrprompt[] = { 'r', 'p', 'r', 'o', 'm', 'p', 't', '\0' }; -Char STRellipsis[] = { 'e', 'l', 'l', 'i', 'p', 's', 'i', 's', '\0' }; -Char STRcwd[] = { 'c', 'w', 'd', '\0' }; -Char STRowd[] = { 'o', 'w', 'd', '\0' }; -Char STRstar[] = { '*', '\0' }; -Char STRdot[] = { '.', '\0' }; -Char STRhistory[] = { 'h', 'i', 's', 't', 'o', 'r', 'y', '\0' }; -Char STRhistdup[] = { 'h', 'i', 's', 't', 'd', 'u', 'p', '\0' }; -Char STRhistfile[] = { 'h', 'i', 's', 't', 'f', 'i', 'l', 'e', '\0' }; -Char STRsource[] = { 's', 'o', 'u', 'r', 'c', 'e', '\0' }; -Char STRmh[] = { '-', 'h', '\0' }; -Char STRmhT[] = { '-', 'h', 'T', '\0' }; -Char STRmm[] = { '-', 'm', '\0' }; -Char STRmr[] = { '-', 'r', '\0' }; -Char STRmerge[] = { 'm', 'e', 'r', 'g', 'e', '\0' }; -Char STRtildothist[] = { '~', '/', '.', 'h', 'i', 's', 't', 'o', 'r', - 'y', '\0' }; - -#ifdef KANJI -Char STRnokanji[] = { 'n', 'o', 'k', 'a', 'n', 'j', 'i', '\0' }; -# ifdef DSPMBYTE -Char STRdspmbyte[] = { 'd', 's', 'p', 'm', 'b', 'y', 't', 'e', '\0' }; -Char STRmmliteral[] = { '-', '-', 'l', 'i', 't', 'e', 'r', 'a', 'l', '\0' }; -Char STRKEUC[] = { 'e', 'u', 'c', '\0' }; -Char STRKSJIS[] = { 's', 'j', 'i', 's', '\0' }; -# ifdef MBYTEDEBUG /* Sorry, use for beta testing */ -Char STRmbytemap[] = { 'm', 'b', 'y', 't', 'e', 'm', 'a', 'p', '\0' }; -# endif /* MBYTEMAP */ -/* PATCH IDEA FROM Issei.Suzuki VERY THANKS */ -/* dspmbyte autoset trap */ -/* STRLANGEUCJP,STRLANGEUCJPB = EUCJP Trap */ -/* STRLANGEUCKR,STRLANGEUCKRB = EUCKR Trap */ -/* STRLANGSJIS,STRLANGSJISB = SJIS Trap */ -# if defined(__FreeBSD__) || defined(__uxps__) || defined(linux) || defined(sgi) || defined(aix) /* linux? */ -Char STRLANGEUCJP[] = { 'j', 'a', '_', 'J', 'P', '.', 'E', 'U', 'C', '\0' }; -Char STRLANGEUCKR[] = { 'k', 'o', '_', 'K', 'R', '.', 'E', 'U', 'C', '\0' }; -# if defined(__uxps__) -Char STRLANGEUCJPB[] = { 'j', 'a', 'p', 'a', 'n', '\0' }; -Char STRLANGEUCKRB[] = { 'k', 'o', 'r', 'e', 'a', '\0' }; -# elif defined(linux) -Char STRLANGEUCJPB[] = { 'j', 'a', '_', 'J', 'P', '.', 'u', 'j', 'i', 's', - '\0' }; -Char STRLANGEUCKRB[] = { 'k', 'o', '_', 'K', 'R', '.', 'e', 'u', 'c', '\0' }; -# elif defined(aix) -Char STRLANGEUCJPB[] = { 'j', 'a', '_', 'J', 'P', '\0' }; -Char STRLANGEUCKRB[] = { 'k', 'o', '_', 'K', 'R', '\0' }; -# else -Char STRLANGEUCJPB[] = { '\0' }; -Char STRLANGEUCKRB[] = { '\0' }; -# endif -Char STRLANGSJIS[] = { 'j', 'a', '_', 'J', 'P', '.', 'S', 'J', 'I', 'S', - '\0' }; -Char STRLANGSJISB[] = { '\0' }; -# elif defined(__uxpm__) -Char STRLANGEUCJP[] = { 'j', 'a', 'p', 'a', 'n', '\0' }; -Char STRLANGEUCKR[] = { 'k', 'o', 'r', 'e', 'a', '\0' }; -Char STRLANGEUCJPB[] = { '\0' }; -Char STRLANGEUCKRB[] = { '\0' }; -Char STRLANGSJIS[] = { '\0' }; -Char STRLANGSJISB[] = { '\0' }; -# elif defined(SOLARIS2) -Char STRLANGEUCJP[] = { 'j', 'a', '\0' }; -Char STRLANGEUCKR[] = { 'k', 'o', '\0' }; -Char STRLANGEUCJPB[] = { 'j', 'a', 'p', 'a', 'n', 'e', 's', 'e', '\0' }; -Char STRLANGEUCKRB[] = { 'k', 'o', 'r', 'e', 'a', 'n', '\0' }; -Char STRLANGSJIS[] = { '\0' }; -Char STRLANGSJISB[] = { '\0' }; -# elif defined(hpux) -Char STRLANGEUCJP[] = { 'j', 'a', '_', 'J', 'P', '.', 'e', 'u', 'c', 'J', 'P' }; -Char STRLANGEUCKR[] = { 'k', 'o', '_', 'K', 'R', '.', 'e', 'u', 'c', 'K', 'R' }; -Char STRLANGEUCJPB[] = { '\0' }; -Char STRLANGEUCKRB[] = { '\0' }; -Char STRLANGSJIS[] = { '\0' }; -Char STRLANGSJISB[] = { '\0' }; -# else -Char STRLANGEUCJP[] = { '\0' }; -Char STRLANGEUCKR[] = { '\0' }; -Char STRLANGEUCJPB[] = { '\0' }; -Char STRLANGEUCKRB[] = { '\0' }; -Char STRLANGSJIS[] = { '\0' }; -Char STRLANGSJISB[] = { '\0' }; -# endif -# endif /* defined(DSPMBYTE) */ -#endif - -Char STRtildotdirs[] = { '~', '/', '.', 'c', 's', 'h', 'd', 'i', 'r', - 's', '\0' }; -Char STRdirsfile[] = { 'd', 'i', 'r', 's', 'f', 'i', 'l', 'e', '\0' }; -Char STRsavedirs[] = { 's', 'a', 'v', 'e', 'd', 'i', 'r', 's', '\0' }; -Char STRloginsh[] = { 'l', 'o', 'g', 'i', 'n', 's', 'h', '\0' }; -Char STRdirstack[] = { 'd', 'i', 'r', 's', 't', 'a', 'c', 'k', '\0' }; -Char STRargv[] = { 'a', 'r', 'g', 'v', '\0' }; -Char STRcommand[] = { 'c', 'o', 'm', 'm', 'a', 'n', 'd', '\0' }; -Char STRsavehist[] = { 's', 'a', 'v', 'e', 'h', 'i', 's', 't', '\0' }; -Char STRnormal[] = { 'n', 'o', 'r', 'm', 'a', 'l', '\0' }; -Char STRsldtlogout[] = { '/', '.', 'l', 'o', 'g', 'o', 'u', 't', '\0' }; -Char STRjobs[] = { 'j', 'o', 'b', 's', '\0' }; -Char STRdeftcshprompt[] = { '%', '#', ' ', '\0' }; -Char STRdefcshprompt[] = { '%', '\0' }; -Char STRmquestion[] = { '%', 'R', '?' | QUOTE, ' ', '\0' }; -Char STRKCORRECT[] = { 'C', 'O', 'R', 'R', 'E', 'C', 'T', '>', '%', 'R', - ' ', '(', 'y', '|', 'n', '|', 'e', '|', 'a', ')', - '?' | QUOTE, ' ', '\0' }; -Char STRunalias[] = { 'u', 'n', 'a', 'l', 'i', 'a', 's', '\0' }; -Char STRalias[] = { 'a', 'l', 'i', 'a', 's', '\0' }; -Char STRprecmd[] = { 'p', 'r', 'e', 'c', 'm', 'd', '\0' }; -Char STRpostcmd[] = { 'p', 'o', 's', 't', 'c', 'm', 'd', '\0' }; -Char STRcwdcmd[] = { 'c', 'w', 'd', 'c', 'm', 'd', '\0' }; -Char STRperiodic[] = { 'p', 'e', 'r', 'i', 'o', 'd', 'i', 'c', '\0' }; -Char STRtperiod[] = { 't', 'p', 'e', 'r', 'i', 'o', 'd', '\0' }; -Char STRmf[] = { '-', 'f', '\0' }; -Char STRml[] = { '-', 'l', '\0' }; -Char STRslash[] = { '/', '\0' }; -Char STRdotsl[] = { '.', '/', '\0' }; -Char STRdotdotsl[] = { '.', '.', '/', '\0' }; -Char STRcdpath[] = { 'c', 'd', 'p', 'a', 't', 'h', '\0' }; -Char STRcd[] = { 'c', 'd', '\0' }; -Char STRpushdtohome[] = { 'p', 'u', 's', 'h', 'd', 't', 'o', 'h', 'o', 'm', - 'e', '\0' }; -Char STRpushdsilent[] = { 'p', 'u', 's', 'h', 'd', 's', 'i', 'l', 'e', 'n', - 't', '\0' }; -Char STRdextract[] = { 'd', 'e', 'x', 't', 'r', 'a', 'c', 't', '\0' }; -Char STRdunique[] = { 'd', 'u', 'n', 'i', 'q', 'u', 'e', '\0' }; -Char STRsymlinks[] = { 's', 'y', 'm', 'l', 'i', 'n', 'k', 's', '\0' }; -Char STRignore[] = { 'i', 'g', 'n', 'o', 'r', 'e', '\0' }; -Char STRchase[] = { 'c', 'h', 'a', 's', 'e', '\0' }; -Char STRexpand[] = { 'e', 'x', 'p', 'a', 'n', 'd', '\0' }; -Char STRecho_style[] = { 'e', 'c', 'h', 'o', '_', 's', 't', 'y', 'l', 'e', - '\0' }; -Char STRbsd[] = { 'b', 's', 'd', '\0' }; -Char STRsysv[] = { 's', 'y', 's', 'v', '\0' }; -Char STRboth[] = { 'b', 'o', 't', 'h', '\0' }; -Char STRnone[] = { 'n', 'o', 'n', 'e', '\0' }; -Char STRPWD[] = { 'P', 'W', 'D', '\0' }; -Char STRor2[] = { '|', '|', '\0' }; -Char STRand2[] = { '&', '&', '\0' }; -Char STRor[] = { '|', '\0' }; -Char STRcaret[] = { '^', '\0' }; -Char STRand[] = { '&', '\0' }; -Char STRequal[] = { '=', '\0' }; -Char STRbang[] = { '!', '\0' }; -Char STRtilde[] = { '~', '\0' }; -Char STRLparen[] = { '(', '\0' }; -Char STRLbrace[] = { '{', '\0' }; -Char STRfakecom[] = { '{', ' ', '.', '.', '.', ' ', '}', '\0' }; -Char STRRbrace[] = { '}', '\0' }; -Char STRKPATH[] = { 'P', 'A', 'T', 'H', '\0' }; -Char STRdefault[] = { 'd', 'e', 'f', 'a', 'u', 'l', 't', '\0' }; -Char STRmn[] = { '-', 'n', '\0' }; -Char STRminus[] = { '-', '\0' }; -Char STRnoglob[] = { 'n', 'o', 'g', 'l', 'o', 'b', '\0' }; -Char STRnonomatch[] = { 'n', 'o', 'n', 'o', 'm', 'a', 't', 'c', 'h', '\0' }; -Char STRfakecom1[] = { '`', ' ', '.', '.', '.', ' ', '`', '\0' }; -Char STRampm[] = { 'a', 'm', 'p', 'm', '\0' }; -Char STRtime[] = { 't', 'i', 'm', 'e', '\0' }; -Char STRnotify[] = { 'n', 'o', 't', 'i', 'f', 'y', '\0' }; -Char STRprintexitvalue[] = { 'p', 'r', 'i', 'n', 't', 'e', 'x', 'i', 't', 'v', - 'a', 'l', 'u', 'e', '\0' }; -Char STRLparensp[] = { '(', ' ', '\0' }; -Char STRspRparen[] = { ' ', ')', '\0' }; -Char STRspace[] = { ' ', '\0' }; -Char STRspor2sp[] = { ' ', '|', '|', ' ', '\0' }; -Char STRspand2sp[] = { ' ', '&', '&', ' ', '\0' }; -Char STRsporsp[] = { ' ', '|', ' ', '\0' }; -Char STRsemisp[] = { ';', ' ', '\0' }; -Char STRsemi[] = { ';', '\0' }; -Char STRQQ[] = { '"', '"', '\0' }; -Char STRBB[] = { '[', ']', '\0' }; -Char STRspLarrow2sp[] = { ' ', '<', '<', ' ', '\0' }; -Char STRspLarrowsp[] = { ' ', '<', ' ', '\0' }; -Char STRspRarrow2[] = { ' ', '>', '>', '\0' }; -Char STRspRarrow[] = { ' ', '>', '\0' }; -Char STRgt[] = { '>', '\0' }; -Char STRsp3dots[] = { ' ', '.', '.', '.', '\0' }; -Char STRcent2[] = { '%', '%', '\0' }; -Char STRcentplus[] = { '%', '+', '\0' }; -Char STRcentminus[] = { '%', '-', '\0' }; -Char STRcenthash[] = { '%', '#', '\0' }; -#ifdef BSDJOBS -Char STRcontinue[] = { 'c', 'o', 'n', 't', 'i', 'n', 'u', 'e', '\0' }; -Char STRcontinue_args[] = { 'c', 'o', 'n', 't', 'i', 'n', 'u', 'e', '_', 'a', - 'r', 'g', 's', '\0' }; -Char STRunderpause[] = { '_', 'p', 'a', 'u', 's', 'e', '\0' }; -#endif -Char STRbackqpwd[] = { '`', 'p', 'w', 'd', '`', '\0' }; -Char STRhistchars[] = { 'h', 'i', 's', 't', 'c', 'h', 'a', 'r', 's', '\0' }; -Char STRpromptchars[] = { 'p', 'r', 'o', 'm', 'p', 't', 'c', 'h', 'a', 'r', - 's', '\0' }; -Char STRhistlit[] = { 'h', 'i', 's', 't', 'l', 'i', 't', '\0' }; -Char STRKUSER[] = { 'U', 'S', 'E', 'R', '\0' }; -Char STRLOGNAME[] = { 'L', 'O', 'G', 'N', 'A', 'M', 'E', '\0' }; -Char STRKGROUP[] = { 'G', 'R', 'O', 'U', 'P', '\0' }; -Char STRwordchars[] = { 'w', 'o', 'r', 'd', 'c', 'h', 'a', 'r', 's', '\0' }; -Char STRKTERM[] = { 'T', 'E', 'R', 'M', '\0' }; -Char STRKHOME[] = { 'H', 'O', 'M', 'E', '\0' }; -Char STRbackslash_quote[] = { 'b', 'a', 'c', 'k', 's', 'l', 'a', 's', 'h', '_', - 'q', 'u', 'o', 't', 'e', '\0' }; -Char STRRparen[] = { ')', '\0' }; -Char STRmail[] = { 'm', 'a', 'i', 'l', '\0' }; -#ifndef HAVENOUTMP -Char STRwatch[] = { 'w', 'a', 't', 'c', 'h', '\0' }; -#endif /* HAVENOUTMP */ - -Char STRsldottcshrc[] = { '/', '.', 't', 'c', 's', 'h', 'r', 'c', '\0' }; -Char STRsldotcshrc[] = { '/', '.', 'c', 's', 'h', 'r', 'c', '\0' }; -Char STRsldotlogin[] = { '/', '.', 'l', 'o', 'g', 'i', 'n', '\0' }; -Char STRignoreeof[] = { 'i', 'g', 'n', 'o', 'r', 'e', 'e', 'o', 'f', '\0' }; -Char STRnoclobber[] = { 'n', 'o', 'c', 'l', 'o', 'b', 'b', 'e', 'r', '\0' }; -Char STRhelpcommand[] = { 'h', 'e', 'l', 'p', 'c', 'o', 'm', 'm', 'a', 'n', - 'd', '\0' }; -Char STRfignore[] = { 'f', 'i', 'g', 'n', 'o', 'r', 'e', '\0' }; -Char STRrecexact[] = { 'r', 'e', 'c', 'e', 'x', 'a', 'c', 't', '\0' }; -Char STRlistmaxrows[] = { 'l', 'i', 's', 't', 'm', 'a', 'x', 'r', 'o', 'w', - 's', '\0' }; -Char STRlistmax[] = { 'l', 'i', 's', 't', 'm', 'a', 'x', '\0' }; -Char STRlistlinks[] = { 'l', 'i', 's', 't', 'l', 'i', 'n', 'k', 's', '\0' }; -Char STRDING[] = { 'D', 'I', 'N', 'G', '!', '\0' }; -Char STRQNULL[] = { '\0' | QUOTE, '\0' }; -Char STRcorrect[] = { 'c', 'o', 'r', 'r', 'e', 'c', 't', '\0' }; -Char STRcmd[] = { 'c', 'm', 'd', '\0' }; -Char STRall[] = { 'a', 'l', 'l', '\0' }; -Char STRerase[] = { 'e', 'r', 'a', 's', 'e', '\0' }; -Char STRprev[] = { 'p', 'r', 'e', 'v', '\0' }; -Char STRcomplete[] = { 'c', 'o', 'm', 'p', 'l', 'e', 't', 'e', '\0' }; -Char STRenhance[] = { 'e', 'n', 'h', 'a', 'n', 'c', 'e', '\0' }; -Char STRautoexpand[] = { 'a', 'u', 't', 'o', 'e', 'x', 'p', 'a', 'n', 'd', - '\0' }; -Char STRautocorrect[] = { 'a', 'u', 't', 'o', 'c', 'o', 'r', 'r', 'e', 'c', - 't', '\0' }; -Char STRautolist[] = { 'a', 'u', 't', 'o', 'l', 'i', 's', 't', '\0' }; -Char STRbeepcmd[] = { 'b', 'e', 'e', 'p', 'c', 'm', 'd', '\0' }; -Char STRmatchbeep[] = { 'm', 'a', 't', 'c', 'h', 'b', 'e', 'e', 'p', '\0' }; -Char STRnomatch[] = { 'n', 'o', 'm', 'a', 't', 'c', 'h', '\0' }; -Char STRambiguous[] = { 'a', 'm', 'b', 'i', 'g', 'u', 'o', 'u', 's', '\0' }; -Char STRnotunique[] = { 'n', 'o', 't', 'u', 'n', 'i', 'q', 'u', 'e', '\0' }; -Char STRret[] = { '\n', '\0' }; -Char STRnobeep[] = { 'n', 'o', 'b', 'e', 'e', 'p', '\0' }; -Char STRnoding[] = { 'n', 'o', 'd', 'i', 'n', 'g', '\0' }; -Char STRnoambiguous[] = { 'n', 'o', 'a', 'm', 'b', 'i', 'g', 'u', 'o', 'u', - 's', '\0' }; -Char STRvisiblebell[] = { 'v', 'i', 's', 'i', 'b', 'l', 'e', 'b', 'e', 'l', - 'l', '\0' }; -Char STRrecognize_only_executables[] = { 'r', 'e', 'c', 'o', 'g', 'n', 'i', - 'z', 'e', '_', 'o', 'n', 'l', 'y', - '_', 'e', 'x', 'e', 'c', 'u', 't', - 'a', 'b', 'l', 'e', 's', '\0' }; -Char STRinputmode[] = { 'i', 'n', 'p', 'u', 't', 'm', 'o', 'd', 'e', - '\0' }; -Char STRoverwrite[] = { 'o', 'v', 'e', 'r', 'w', 'r', 'i', 't', 'e', - '\0' }; -Char STRinsert[] = { 'i', 'n', 's', 'e', 'r', 't', '\0' }; -Char STRnohup[] = { 'n', 'o', 'h', 'u', 'p', '\0' }; -Char STRhup[] = { 'h', 'u', 'p', '\0' }; -Char STRnice[] = { 'n', 'i', 'c', 'e', '\0' }; -Char STRthen[] = { 't', 'h', 'e', 'n', '\0' }; -Char STReof[] = { '^', 'D', '\b', '\b', '\0' }; -Char STRlistjobs[] = { 'l', 'i', 's', 't', 'j', 'o', 'b', 's', '\0' }; -Char STRlistflags[] = { 'l', 'i', 's', 't', 'f', 'l', 'a', 'g', 's', '\0' }; -Char STRlong[] = { 'l', 'o', 'n', 'g', '\0' }; -Char STRwho[] = { 'w', 'h', 'o', '\0' }; -Char STRsched[] = { 's', 'c', 'h', 'e', 'd', '\0' }; -Char STRrmstar[] = { 'r', 'm', 's', 't', 'a', 'r', '\0' }; -Char STRrm[] = { 'r', 'm', '\0' }; - -Char STRimplicitcd[] = { 'i', 'm', 'p', 'l', 'i', 'c', 'i', 't', - 'c', 'd', '\0' }; -Char STRshlvl[] = { 's', 'h', 'l', 'v', 'l', '\0' }; -Char STRKSHLVL[] = { 'S', 'H', 'L', 'V', 'L', '\0' }; -Char STRLANG[] = { 'L', 'A', 'N', 'G', '\0' }; -Char STRLC_CTYPE[] = { 'L', 'C', '_', 'C', 'T', 'Y', 'P', 'E' ,'\0' }; -Char STRLC_NUMERIC[] = { 'L', 'C', '_', 'N', 'U', 'M', 'E', 'R', 'I', - 'C', '\0' }; -Char STRLC_TIME[] = { 'L', 'C', '_', 'T', 'I', 'M', 'E', '\0' }; -Char STRLC_COLLATE[] = { 'L', 'C', '_', 'C', 'O', 'L', 'L', 'A', 'T', - 'E', '\0' }; -Char STRLC_MESSAGES[] = { 'L', 'C', '_', 'M', 'E', 'S', 'S', 'A', 'G', - 'E', 'S', '\0' }; -Char STRLC_MONETARY[] = { 'L', 'C', '_', 'M', 'O', 'N', 'E', 'T', 'A', - 'R', 'Y', '\0' }; -Char STRNOREBIND[] = { 'N', 'O', 'R', 'E', 'B', 'I', 'N', 'D', '\0' }; - -#if defined(SIG_WINDOW) || defined (_VMS_POSIX) -/* atp - problem with declaration of str{lines,columns} in sh.func.c (1277) */ -Char STRLINES[] = { 'L', 'I', 'N', 'E', 'S', '\0'}; -Char STRCOLUMNS[] = { 'C', 'O', 'L', 'U', 'M', 'N', 'S', '\0'}; -Char STRTERMCAP[] = { 'T', 'E', 'R', 'M', 'C', 'A', 'P', '\0'}; -#endif /* SIG_WINDOW || _VMS_POSIX */ - -#ifdef WARP -Char STRwarp[] = { 'w', 'a', 'r', 'p', '\0' }; -#endif /* WARP */ - -#ifdef apollo -Char STRSYSTYPE[] = { 'S', 'Y', 'S', 'T', 'Y', 'P', 'E', '\0' }; -Char STRoid[] = { 'o', 'i', 'd', '\0' }; -Char STRbsd43[] = { 'b', 's', 'd', '4', '.', '3', '\0' }; -Char STRsys53[] = { 's', 'y', 's', '5', '.', '3', '\0' }; -Char STRver[] = { 'v', 'e', 'r', '\0' }; -#endif /* apollo */ - -#ifdef _OSD_POSIX -Char STRwarnebcdic[] = { 'w', 'a', 'r', 'n', 'e', 'b', 'c', 'd', 'i', 'c', '\0' }; -#endif - -#ifdef COLOR_LS_F -Char STRlsmF[] = { 'l', 's', '-', 'F', '\0' }; -Char STRcolor[] = { 'c', 'o', 'l', 'o', 'r', '\0' }; -Char STRmmcolormauto[] = {'-', '-', 'c', 'o', 'l', 'o', 'r', '=', 'a', 'u', 't', 'o', '\0' }; -Char STRLS_COLORS[] = { 'L', 'S', '_', 'C', 'O', 'L', 'O', 'R', 'S', '\0' }; -#endif /* COLOR_LS_F */ - -Char STRls[] = { 'l', 's', '\0' }; - -Char STRup[] = { 'u', 'p', '\0' }; -Char STRdown[] = { 'd', 'o', 'w', 'n', '\0' }; -Char STRleft[] = { 'l', 'e', 'f', 't', '\0' }; -Char STRright[] = { 'r', 'i', 'g', 'h', 't', '\0' }; - -#ifdef COLORCAT -Char STRcolorcat[] = { 'c', 'o', 'l', 'o', 'r', 'c', 'a', 't', '\0' }; -#endif diff --git a/contrib/tcsh/tc.decls.h b/contrib/tcsh/tc.decls.h deleted file mode 100644 index 3498c14839c0..000000000000 --- a/contrib/tcsh/tc.decls.h +++ /dev/null @@ -1,335 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.decls.h,v 3.44 1999/02/06 15:19:00 christos Exp $ */ -/* - * tc.decls.h: Function declarations from all the tcsh modules - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_tc_decls -#define _h_tc_decls - -/* - * tc.alloc.c - */ -#ifndef SYSMALLOC -#ifndef WINNT -extern void free __P((ptr_t)); -extern memalign_t malloc __P((size_t)); -extern memalign_t realloc __P((ptr_t, size_t)); -extern memalign_t calloc __P((size_t, size_t)); -#endif /* !WINNT */ -#else /* SYSMALLOC */ -extern void sfree __P((ptr_t)); -extern memalign_t smalloc __P((size_t)); -extern memalign_t srealloc __P((ptr_t, size_t)); -extern memalign_t scalloc __P((size_t, size_t)); -#endif /* SYSMALLOC */ -extern void showall __P((Char **, struct command *)); - -/* - * tc.bind.c - */ -extern void dobindkey __P((Char **, struct command *)); -#ifdef OBSOLETE -extern void dobind __P((Char **, struct command *)); -#endif /* OBSOLETE */ - -/* - * tc.defs.c: - */ -extern void getmachine __P((void)); - - -/* - * tc.disc.c - */ -extern int setdisc __P((int)); -extern int resetdisc __P((int)); - -/* - * tc.func.c - */ -extern Char *expand_lex __P((Char *, size_t, struct wordent *, - int, int)); -extern Char *sprlex __P((Char *, size_t, struct wordent *)); -extern Char *Itoa __P((int, Char *, int, int)); -extern void dolist __P((Char **, struct command *)); -extern void dotelltc __P((Char **, struct command *)); -extern void doechotc __P((Char **, struct command *)); -extern void dosettc __P((Char **, struct command *)); -extern int cmd_expand __P((Char *, Char *)); -extern void dowhich __P((Char **, struct command *)); -extern struct process *find_stop_ed __P((void)); -extern void fg_proc_entry __P((struct process *)); -extern sigret_t alrmcatch __P((int)); -extern void precmd __P((void)); -extern void postcmd __P((void)); -extern void cwd_cmd __P((void)); -extern void beep_cmd __P((void)); -extern void period_cmd __P((void)); -extern void aliasrun __P((int, Char *, Char *)); -extern void setalarm __P((int)); -extern void rmstar __P((struct wordent *)); -extern void continue_jobs __P((struct wordent *)); -extern Char *gettilde __P((Char *)); -extern Char *getusername __P((Char **)); -#ifdef OBSOLETE -extern void doaliases __P((Char **, struct command *)); -#endif /* OBSOLETE */ -extern void shlvl __P((int)); -extern int fixio __P((int, int)); -extern int collate __P((const Char *, const Char *)); -#ifdef HASHBANG -extern int hashbang __P((int, Char ***)); -#endif /* HASHBANG */ -#ifdef REMOTEHOST -extern void remotehost __P((void)); -#endif /* REMOTEHOST */ - - -/* - * tc.os.c - */ -#ifdef MACH -extern void dosetpath __P((Char **, struct command *)); -#endif /* MACH */ - -#ifdef TCF -extern void dogetxvers __P((Char **, struct command *)); -extern void dosetxvers __P((Char **, struct command *)); -extern void dogetspath __P((Char **, struct command *)); -extern void dosetspath __P((Char **, struct command *)); -extern char *sitename __P((pid_t)); -extern void domigrate __P((Char **, struct command *)); -#endif /* TCF */ - -#ifdef WARP -extern void dowarp __P((Char **, struct command *)); -#endif /* WARP */ - -#if defined(_CRAY) && !defined(_CRAYMPP) -extern void dodmmode __P((Char **, struct command *)); -#endif /* _CRAY && !_CRAYMPP */ - -#if defined(masscomp) || defined(hcx) -extern void douniverse __P((Char **, struct command *)); -#endif /* masscomp */ - -#if defined(hcx) -extern void doatt __P((Char **, struct command *)); -extern void doucb __P((Char **, struct command *)); -#endif /* hcx */ - -#ifdef _SEQUENT_ -extern void pr_stat_sub __P((struct process_stats *, - struct process_stats *, - struct process_stats *)); -#endif /* _SEQUENT_ */ - -#ifdef NEEDtcgetpgrp -extern int xtcgetpgrp __P((int)); -extern int xtcsetpgrp __P((int, int)); -# undef tcgetpgrp -# define tcgetpgrp(a) xtcgetpgrp(a) -# undef tcsetpgrp -# define tcsetpgrp(a, b) xtcsetpgrp((a), (b)) -#endif /* NEEDtcgetpgrp */ - -#ifdef YPBUGS -extern void fix_yp_bugs __P((void)); -#endif /* YPBUGS */ -#ifdef STRCOLLBUG -extern void fix_strcoll_bug __P((void)); -#endif /* STRCOLLBUG */ - -extern void osinit __P((void)); - -#ifdef NEEDmemmove -extern ptr_t xmemmove __P((ptr_t, const ptr_t, size_t)); -# define memmove(a, b, c) xmemmove((a), (b), (c)) -#endif /* NEEDmemmove */ - -#ifdef NEEDmemset -extern ptr_t xmemset __P((ptr_t, int, size_t)); -# define memset(a, b, c) xmemset((a), (b), (c)) -#endif /* NEEDmemset */ - - -#ifdef NEEDgetcwd -extern char *xgetcwd __P((char *, size_t)); -# undef getcwd -# define getcwd(a, b) xgetcwd((a), (b)) -#endif /* NEEDgetcwd */ - -#ifdef NEEDgethostname -extern int xgethostname __P((char *, int)); -# undef gethostname -# define gethostname(a, b) xgethostname((a), (b)) -#endif /* NEEDgethostname */ - -#ifdef NEEDnice -extern int xnice __P((int)); -# undef nice -# define nice(a) xnice(a) -#endif /* NEEDnice */ - -#ifdef NEEDstrerror -extern char *xstrerror __P((int)); -# undef strerror -# define strerror(a) xstrerror(a) -#endif /* NEEDstrerror */ - -#ifdef apollo -extern void doinlib __P((Char **, struct command *)); -extern void dover __P((Char **, struct command *)); -extern void dorootnode __P((Char **, struct command *)); -extern int getv __P((Char *)); -#endif /* apollo */ - - -/* - * tc.printf.h - */ -extern pret_t xprintf __P((const char *, ...)); -extern pret_t xsnprintf __P((char *, size_t, const char *, ...)); -extern pret_t xvprintf __P((const char *, va_list)); -extern pret_t xvsnprintf __P((char *, size_t, const char *, - va_list)); - -/* - * tc.prompt.c - */ -extern void dateinit __P((void)); -extern void printprompt __P((int, char *)); -extern Char *expdollar __P((Char **, const Char **, size_t *, - int)); -extern void tprintf __P((int, Char *, const Char *, size_t, - char *, time_t, ptr_t)); - -/* - * tc.sched.c - */ -extern time_t sched_next __P((void)); -extern void dosched __P((Char **, struct command *)); -extern void sched_run __P((int)); - -/* - * tc.sig.c - */ -#ifndef BSDSIGS -# ifdef UNRELSIGS -# ifdef COHERENT -extern sigret_t (*xsignal __P((int, sigret_t (*)(int)))) (); -# define signal(x,y) xsignal(x,y) -# endif /* COHERENT */ -extern sigret_t (*xsigset __P((int, sigret_t (*)(int)))) (); -# define sigset(x,y) xsigset(x,y) -extern void xsigrelse __P((int)); -# define sigrelse(x) xsigrelse(x) -extern void xsighold __P((int)); -# define sighold(x) xsighold(x) -extern void xsigignore __P((int)); -# define sigignore(x) xsigignore(x) -extern void xsigpause __P((int)); -# define sigpause(x) xsigpause(x) -extern pid_t ourwait __P((int *)); -# endif /* UNRELSIGS */ -# ifdef SXA -extern void sigpause __P((int)); -# endif /* SXA */ -#endif /* !BSDSIGS */ - -#ifdef NEEDsignal -extern sigret_t (*xsignal __P((int, sigret_t (*)(int)))) (); -# define signal(a, b) xsignal(a, b) -#endif /* NEEDsignal */ -#if defined(_SEQUENT_) || ((SYSVREL > 3 || defined(_DGUX_SOURCE)) && defined(POSIXSIGS)) || (defined(_AIX) && defined(POSIXSIGS)) || defined(WINNT) -extern sigmask_t sigsetmask __P((sigmask_t)); -# if !defined(DGUX) || (defined(DGUX) && defined(__ix86)) -extern sigmask_t sigblock __P((sigmask_t)); -# endif /* !DGUX */ -extern void bsd_sigpause __P((sigmask_t)); -extern sigret_t (*bsd_signal __P((int, sigret_t (*)(int)))) __P((int)); -#endif /* _SEQUENT_ */ -#ifdef SIGSYNCH -extern sigret_t synch_handler __P((int)); -#endif /* SIGSYNCH */ - - -/* - * tc.str.c: - */ -#ifdef SHORT_STRINGS -extern Char *s_strchr __P((const Char *, int)); -extern Char *s_strrchr __P((const Char *, int)); -extern Char *s_strcat __P((Char *, const Char *)); -# ifdef NOTUSED -extern Char *s_strncat __P((Char *, const Char *, size_t)); -# endif /* NOTUSED */ -extern Char *s_strcpy __P((Char *, const Char *)); -extern Char *s_strncpy __P((Char *, const Char *, size_t)); -extern Char *s_strspl __P((const Char *, const Char *)); -extern size_t s_strlen __P((const Char *)); -extern int s_strcmp __P((const Char *, const Char *)); -extern int s_strncmp __P((const Char *, const Char *, - size_t)); -extern Char *s_strsave __P((const Char *)); -extern Char *s_strend __P((const Char *)); -extern Char *s_strstr __P((const Char *, const Char *)); -extern Char *str2short __P((const char *)); -extern Char **blk2short __P((char **)); -extern char *short2str __P((const Char *)); -extern char **short2blk __P((Char **)); -#endif /* SHORT_STRINGS */ -extern char *short2qstr __P((const Char *)); - - -/* - * tc.vers.c: - */ -extern void fix_version __P((void)); - -/* - * tc.who.c - */ -#ifndef HAVENOUTMP -extern void initwatch __P((void)); -extern void resetwatch __P((void)); -extern void watch_login __P((int)); -extern const char *who_info __P((ptr_t, int, char *, size_t)); -extern void dolog __P((Char **, struct command *)); -# ifdef UTHOST -extern char *utmphost __P((void)); -# endif /* UTHOST */ -#endif /* HAVENOUTMP */ - -#endif /* _h_tc_decls */ diff --git a/contrib/tcsh/tc.disc.c b/contrib/tcsh/tc.disc.c deleted file mode 100644 index 7c681037095b..000000000000 --- a/contrib/tcsh/tc.disc.c +++ /dev/null @@ -1,200 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.disc.c,v 3.11 1997/10/02 16:36:31 christos Exp $ */ -/* - * tc.disc.c: Functions to set/clear line disciplines - * - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.disc.c,v 3.11 1997/10/02 16:36:31 christos Exp $") - -#ifdef OREO -#include <compat.h> -#endif /* OREO */ - -#include "ed.term.h" - -static bool add_discipline = 0; /* Did we add a line discipline */ - -#if defined(IRIS4D) || defined(OREO) || defined(sonyrisc) -# define HAVE_DISC -# ifndef POSIX -static struct termio otermiob; -# else -static struct termios otermiob; -# endif /* POSIX */ -#endif /* IRIS4D || OREO */ - -#ifdef _IBMR2 -# define HAVE_DISC -char strPOSIX[] = "posix"; -#endif /* _IBMR2 */ - -#if !defined(HAVE_DISC) && defined(TIOCGETD) && defined(NTTYDISC) -static int oldisc; -#endif /* !HAVE_DISC && TIOCGETD && NTTYDISC */ - -int -/*ARGSUSED*/ -setdisc(f) -int f; -{ -#ifdef IRIS4D -# ifndef POSIX - struct termio termiob; -# else - struct termios termiob; -# endif - - if (ioctl(f, TCGETA, (ioctl_t) & termiob) == 0) { - otermiob = termiob; -#if (SYSVREL < 4) || !defined(IRIS4D) - if (termiob.c_line != NTTYDISC || termiob.c_cc[VSWTCH] == 0) { /*}*/ - termiob.c_line = NTTYDISC; -#else - if (termiob.c_cc[VSWTCH] == 0) { -#endif - termiob.c_cc[VSWTCH] = CSWTCH; - if (ioctl(f, TCSETA, (ioctl_t) & termiob) != 0) - return (-1); - } - } - else - return (-1); - add_discipline = 1; - return (0); -#endif /* IRIS4D */ - - -#ifdef OREO -# ifndef POSIX - struct termio termiob; -# else - struct termios termiob; -# endif - - struct ltchars ltcbuf; - - if (ioctl(f, TCGETA, (ioctl_t) & termiob) == 0) { - int comp = getcompat(COMPAT_BSDTTY); - otermiob = termiob; - if ((comp & COMPAT_BSDTTY) != COMPAT_BSDTTY) { - (void) setcompat(comp | COMPAT_BSDTTY); - if (ioctl(f, TIOCGLTC, (ioctl_t) & ltcbuf) != 0) - xprintf(CGETS(21, 1, "Couldn't get local chars.\n")); - else { - ltcbuf.t_suspc = CTL_ESC('\032'); /* ^Z */ - ltcbuf.t_dsuspc = CTL_ESC('\031'); /* ^Y */ - ltcbuf.t_rprntc = CTL_ESC('\022'); /* ^R */ - ltcbuf.t_flushc = CTL_ESC('\017'); /* ^O */ - ltcbuf.t_werasc = CTL_ESC('\027'); /* ^W */ - ltcbuf.t_lnextc = CTL_ESC('\026'); /* ^V */ - if (ioctl(f, TIOCSLTC, (ioctl_t) & ltcbuf) != 0) - xprintf(CGETS(21, 2, "Couldn't set local chars.\n")); - } - termiob.c_cc[VSWTCH] = '\0'; - if (ioctl(f, TCSETAF, (ioctl_t) & termiob) != 0) - return (-1); - } - } - else - return (-1); - add_discipline = 1; - return (0); -#endif /* OREO */ - - -#ifdef _IBMR2 - union txname tx; - - tx.tx_which = 0; - - if (ioctl(f, TXGETLD, (ioctl_t) & tx) == 0) { - if (strcmp(tx.tx_name, strPOSIX) != 0) - if (ioctl(f, TXADDCD, (ioctl_t) strPOSIX) == 0) { - add_discipline = 1; - return (0); - } - return (0); - } - else - return (-1); -#endif /* _IBMR2 */ - -#ifndef HAVE_DISC -# if defined(TIOCGETD) && defined(NTTYDISC) - if (ioctl(f, TIOCGETD, (ioctl_t) & oldisc) == 0) { - if (oldisc != NTTYDISC) { - int ldisc = NTTYDISC; - - if (ioctl(f, TIOCSETD, (ioctl_t) & ldisc) != 0) - return (-1); - add_discipline = 1; - } - else - oldisc = -1; - return (0); - } - else - return (-1); -# else - return (0); -# endif /* TIOCGETD && NTTYDISC */ -#endif /* !HAVE_DISC */ -} /* end setdisc */ - - -int -/*ARGSUSED*/ -resetdisc(f) -int f; -{ - if (add_discipline) { - add_discipline = 0; -#if defined(OREO) || defined(IRIS4D) - return (ioctl(f, TCSETAF, (ioctl_t) & otermiob)); -#endif /* OREO || IRIS4D */ - -#ifdef _IBMR2 - return (ioctl(f, TXDELCD, (ioctl_t) strPOSIX)); -#endif /* _IBMR2 */ - -#ifndef HAVE_DISC -# if defined(TIOCSETD) && defined(NTTYDISC) - return (ioctl(f, TIOCSETD, (ioctl_t) & oldisc)); -# endif /* TIOCSETD && NTTYDISC */ -#endif /* !HAVE_DISC */ - } - return (0); -} /* end resetdisc */ diff --git a/contrib/tcsh/tc.func.c b/contrib/tcsh/tc.func.c deleted file mode 100644 index 2dcb03f00f7b..000000000000 --- a/contrib/tcsh/tc.func.c +++ /dev/null @@ -1,2125 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.func.c,v 3.87 1999/08/14 21:24:13 christos Exp $ */ -/* - * tc.func.c: New tcsh builtins. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.func.c,v 3.87 1999/08/14 21:24:13 christos Exp $") - -#include "ed.h" -#include "ed.defns.h" /* for the function names */ -#include "tw.h" -#include "tc.h" -#ifdef WINNT -#include "nt.const.h" -#endif /* WINNT */ - -#ifdef AFS -#define PASSMAX 16 -#include <afs/stds.h> -#include <afs/kautils.h> -long ka_UserAuthenticateGeneral(); -#else -#ifndef PASSMAX -#define PASSMAX 8 -#endif -#endif /* AFS */ - -#ifdef TESLA -extern int do_logout; -#endif /* TESLA */ -extern time_t t_period; -extern int just_signaled; -static bool precmd_active = 0; -static bool postcmd_active = 0; -static bool periodic_active = 0; -static bool cwdcmd_active = 0; /* PWP: for cwd_cmd */ -static bool beepcmd_active = 0; -static signalfun_t alm_fun = NULL; - -static void auto_logout __P((int)); -static char *xgetpass __P((char *)); -static void auto_lock __P((int)); -#ifdef BSDJOBS -static void insert __P((struct wordent *, bool)); -static void insert_we __P((struct wordent *, struct wordent *)); -static int inlist __P((Char *, Char *)); -#endif /* BSDJOBS */ -struct tildecache; -static int tildecompare __P((struct tildecache *, struct tildecache *)); -static Char *gethomedir __P((Char *)); -#ifdef REMOTEHOST -static sigret_t palarm __P((int)); -static void getremotehost __P((void)); -#endif /* REMOTEHOST */ - -/* - * Tops-C shell - */ - -/* - * expand_lex: Take the given lex and put an expanded version of it in the - * string buf. First guy in lex list is ignored; last guy is ^J which we - * ignore Only take lex'es from position from to position to inclusive Note: - * csh sometimes sets bit 8 in characters which causes all kinds of problems - * if we don't mask it here. Note: excl's in lexes have been un-back-slashed - * and must be re-back-slashed - * (PWP: NOTE: this returns a pointer to the END of the string expanded - * (in other words, where the NUL is).) - */ -/* PWP: this is a combination of the old sprlex() and the expand_lex from - the magic-space stuff */ - -Char * -expand_lex(buf, bufsiz, sp0, from, to) - Char *buf; - size_t bufsiz; - struct wordent *sp0; - int from, to; -{ - register struct wordent *sp; - register Char *s, *d, *e; - register Char prev_c; - register int i; - - buf[0] = '\0'; - prev_c = '\0'; - d = buf; - e = &buf[bufsiz]; /* for bounds checking */ - - if (!sp0) - return (buf); /* null lex */ - if ((sp = sp0->next) == sp0) - return (buf); /* nada */ - if (sp == (sp0 = sp0->prev)) - return (buf); /* nada */ - - for (i = 0; i < NCARGS; i++) { - if ((i >= from) && (i <= to)) { /* if in range */ - for (s = sp->word; *s && d < e; s++) { - /* - * bugfix by Michael Bloom: anything but the current history - * character {(PWP) and backslash} seem to be dealt with - * elsewhere. - */ - if ((*s & QUOTE) - && (((*s & TRIM) == HIST) || - (((*s & TRIM) == '\'') && (prev_c != '\\')) || - (((*s & TRIM) == '\"') && (prev_c != '\\')) || - (((*s & TRIM) == '\\') && (prev_c != '\\')))) { - *d++ = '\\'; - } - if (d < e) - *d++ = (*s & TRIM); - prev_c = *s; - } - if (d < e) - *d++ = ' '; - } - sp = sp->next; - if (sp == sp0) - break; - } - if (d > buf) - d--; /* get rid of trailing space */ - - return (d); -} - -Char * -sprlex(buf, bufsiz, sp0) - Char *buf; - size_t bufsiz; - struct wordent *sp0; -{ - Char *cp; - - cp = expand_lex(buf, bufsiz, sp0, 0, NCARGS); - *cp = '\0'; - return (buf); -} - - -Char * -Itoa(n, s, min_digits, attributes) - int n; - Char *s; - int min_digits, attributes; -{ - /* - * The array size here is derived from - * log8(UINT_MAX) - * which is guaranteed to be enough for a decimal - * representation. We add 1 because integer divide - * rounds down. - */ -#ifndef CHAR_BIT -# define CHAR_BIT 8 -#endif - Char buf[CHAR_BIT * sizeof(int) / 3 + 1]; - Char *p; - unsigned int un; /* handle most negative # too */ - int pad = (min_digits != 0); - - if (sizeof(buf) - 1 < min_digits) - min_digits = sizeof(buf) - 1; - - un = n; - if (n < 0) { - un = -n; - *s++ = '-'; - } - - p = buf; - do { - *p++ = un % 10 + '0'; - un /= 10; - } while ((pad && --min_digits > 0) || un != 0); - - while (p > buf) - *s++ = *--p | attributes; - - *s = '\0'; - return s; -} - - -/*ARGSUSED*/ -void -dolist(v, c) - register Char **v; - struct command *c; -{ - int i, k; - struct stat st; -#if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE) - extern bool dspmbyte_ls; -#endif -#ifdef COLOR_LS_F - extern bool color_context_ls; -#endif /* COLOR_LS_F */ - - USE(c); - if (*++v == NULL) { - (void) t_search(STRNULL, NULL, LIST, 0, TW_ZERO, 0, STRNULL, 0); - return; - } - gflag = 0; - tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else - v = gargv = saveblk(v); - trim(v); - for (k = 0; v[k] != NULL && v[k][0] != '-'; k++) - continue; - if (v[k]) { - /* - * We cannot process a flag therefore we let ls do it right. - */ - static Char STRls[] = {'l', 's', '\0'}; - static Char STRmCF[] = {'-', 'C', 'F', '\0', '\0' }; - Char *lspath; - struct command *t; - struct wordent cmd, *nextword, *lastword; - Char *cp; - struct varent *vp; - -#ifdef BSDSIGS - sigmask_t omask = 0; - - if (setintr) - omask = sigblock(sigmask(SIGINT)) & ~sigmask(SIGINT); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - if (seterr) { - xfree((ptr_t) seterr); - seterr = NULL; - } - - lspath = STRls; - STRmCF[1] = 'C'; - STRmCF[3] = '\0'; - /* Look at listflags, to add -A to the flags, to get a path - of ls if necessary */ - if ((vp = adrof(STRlistflags)) != NULL && vp->vec[0] != STRNULL) { - if (vp->vec[1] != NULL && vp->vec[1][0] != '\0') - lspath = vp->vec[1]; - for (cp = vp->vec[0]; *cp; cp++) - switch (*cp) { - case 'x': - STRmCF[1] = 'x'; - break; - case 'a': - STRmCF[3] = 'a'; - break; - case 'A': - STRmCF[3] = 'A'; - break; - default: - break; - } - } - - cmd.word = STRNULL; - lastword = &cmd; - nextword = (struct wordent *) xcalloc(1, sizeof cmd); - nextword->word = Strsave(lspath); - lastword->next = nextword; - nextword->prev = lastword; - lastword = nextword; - nextword = (struct wordent *) xcalloc(1, sizeof cmd); - nextword->word = Strsave(STRmCF); - lastword->next = nextword; - nextword->prev = lastword; -#if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE) - if (dspmbyte_ls) { - lastword = nextword; - nextword = (struct wordent *) xcalloc(1, sizeof cmd); - nextword->word = Strsave(STRmmliteral); - lastword->next = nextword; - nextword->prev = lastword; - } -#endif -#ifdef COLOR_LS_F - if (color_context_ls) { - lastword = nextword; - nextword = (struct wordent *) xcalloc(1, sizeof cmd); - nextword->word = Strsave(STRmmcolormauto); - lastword->next = nextword; - nextword->prev = lastword; - } -#endif /* COLOR_LS_F */ - lastword = nextword; - for (cp = *v; cp; cp = *++v) { - nextword = (struct wordent *) xcalloc(1, sizeof cmd); - nextword->word = Strsave(cp); - lastword->next = nextword; - nextword->prev = lastword; - lastword = nextword; - } - lastword->next = &cmd; - cmd.prev = lastword; - - /* build a syntax tree for the command. */ - t = syntax(cmd.next, &cmd, 0); - if (seterr) - stderror(ERR_OLD); - /* expand aliases like process() does */ - /* alias(&cmd); */ - /* execute the parse tree. */ - execute(t, tpgrp > 0 ? tpgrp : -1, NULL, NULL); - /* done. free the lex list and parse tree. */ - freelex(&cmd), freesyn(t); - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ - } - else { - Char *dp, *tmp, buf[MAXPATHLEN]; - - for (k = 0, i = 0; v[k] != NULL; k++) { - tmp = dnormalize(v[k], symlinks == SYM_IGNORE); - dp = &tmp[Strlen(tmp) - 1]; - if (*dp == '/' && dp != tmp) -#ifdef apollo - if (dp != &tmp[1]) -#endif /* apollo */ - *dp = '\0'; - if (stat(short2str(tmp), &st) == -1) { - if (k != i) { - if (i != 0) - xputchar('\n'); - print_by_column(STRNULL, &v[i], k - i, FALSE); - } - xprintf("%S: %s.\n", tmp, strerror(errno)); - i = k + 1; - } - else if (S_ISDIR(st.st_mode)) { - Char *cp; - - if (k != i) { - if (i != 0) - xputchar('\n'); - print_by_column(STRNULL, &v[i], k - i, FALSE); - } - if (k != 0 && v[1] != NULL) - xputchar('\n'); - xprintf("%S:\n", tmp); - for (cp = tmp, dp = buf; *cp; *dp++ = (*cp++ | QUOTE)) - continue; - if ( -#ifdef WINNT - (dp[-1] != (Char) (':' | QUOTE)) && -#endif /* WINNT */ - (dp[-1] != (Char) ('/' | QUOTE))) - *dp++ = '/'; - else - dp[-1] &= TRIM; - *dp = '\0'; - (void) t_search(buf, NULL, LIST, 0, TW_ZERO, 0, STRNULL, 0); - i = k + 1; - } - xfree((ptr_t) tmp); - } - if (k != i) { - if (i != 0) - xputchar('\n'); - print_by_column(STRNULL, &v[i], k - i, FALSE); - } - } - - if (gargv) { - blkfree(gargv); - gargv = 0; - } -} - -static char *defaulttell = "ALL"; -extern bool GotTermCaps; - -/*ARGSUSED*/ -void -dotelltc(v, c) - register Char **v; - struct command *c; -{ - USE(c); - if (!GotTermCaps) - GetTermCaps(); - - /* - * Avoid a compiler bug on hpux 9.05 - * Writing the following as func(a ? b : c) breaks - */ - if (v[1]) - TellTC(short2str(v[1])); - else - TellTC(defaulttell); -} - -/*ARGSUSED*/ -void -doechotc(v, c) - register Char **v; - struct command *c; -{ - if (!GotTermCaps) - GetTermCaps(); - EchoTC(++v); -} - -/*ARGSUSED*/ -void -dosettc(v, c) - Char **v; - struct command *c; -{ - char tv[2][BUFSIZE]; - - if (!GotTermCaps) - GetTermCaps(); - - (void) strcpy(tv[0], short2str(v[1])); - (void) strcpy(tv[1], short2str(v[2])); - SetTC(tv[0], tv[1]); -} - -/* The dowhich() is by: - * Andreas Luik <luik@isaak.isa.de> - * I S A GmbH - Informationssysteme fuer computerintegrierte Automatisierung - * Azenberstr. 35 - * D-7000 Stuttgart 1 - * West-Germany - * Thanks!! - */ -int -cmd_expand(cmd, str) - Char *cmd; - Char *str; -{ - struct wordent lexp[3]; - struct varent *vp; - int rv = TRUE; - - lexp[0].next = &lexp[1]; - lexp[1].next = &lexp[2]; - lexp[2].next = &lexp[0]; - - lexp[0].prev = &lexp[2]; - lexp[1].prev = &lexp[0]; - lexp[2].prev = &lexp[1]; - - lexp[0].word = STRNULL; - lexp[2].word = STRret; - - if ((vp = adrof1(cmd, &aliases)) != NULL) { - if (str == NULL) { - xprintf(CGETS(22, 1, "%S: \t aliased to "), cmd); - blkpr(vp->vec); - xputchar('\n'); - } - else - blkexpand(vp->vec, str); - } - else { - lexp[1].word = cmd; - rv = tellmewhat(lexp, str); - } - return rv; -} - - -/*ARGSUSED*/ -void -dowhich(v, c) - register Char **v; - struct command *c; -{ - int rv = TRUE; - USE(c); - -#ifdef notdef - /* - * We don't want to glob dowhich args because we lose quoteing - * E.g. which \ls if ls is aliased will not work correctly if - * we glob here. - */ - gflag = 0, tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else { - v = gargv = saveblk(v); - trim(v); - } -#endif - - while (*++v) - rv &= cmd_expand(*v, NULL); - - if (!rv) - set(STRstatus, Strsave(STR1), VAR_READWRITE); - -#ifdef notdef - /* Again look at the comment above; since we don't glob, we don't free */ - if (gargv) - blkfree(gargv), gargv = 0; -#endif -} - -/* PWP: a hack to start up your stopped editor on a single keystroke */ -/* jbs - fixed hack so it worked :-) 3/28/89 */ - -struct process * -find_stop_ed() -{ - register struct process *pp, *retp; - register char *ep, *vp, *cp, *p; - int epl, vpl, pstatus; - - if ((ep = getenv("EDITOR")) != NULL) { /* if we have a value */ - if ((p = strrchr(ep, '/')) != NULL) /* if it has a path */ - ep = p + 1; /* then we want only the last part */ - } - else - ep = "ed"; - - if ((vp = getenv("VISUAL")) != NULL) { /* if we have a value */ - if ((p = strrchr(vp, '/')) != NULL) /* and it has a path */ - vp = p + 1; /* then we want only the last part */ - } - else - vp = "vi"; - - for (vpl = 0; vp[vpl] && !Isspace(vp[vpl]); vpl++) - continue; - for (epl = 0; ep[epl] && !Isspace(ep[epl]); epl++) - continue; - - if (pcurrent == NULL) /* see if we have any jobs */ - return NULL; /* nope */ - - retp = NULL; - for (pp = proclist.p_next; pp; pp = pp->p_next) - if (pp->p_procid == pp->p_jobid) { - - /* - * Only foreground an edit session if it is suspended. Some GUI - * editors have may be happily running in a separate window, no - * point in foregrounding these if they're already running - webb - */ - pstatus = (int) (pp->p_flags & PALLSTATES); - if (pstatus != PINTERRUPTED && pstatus != PSTOPPED && - pstatus != PSIGNALED) - continue; - - p = short2str(pp->p_command); - /* get the first word */ - for (cp = p; *cp && !isspace((unsigned char) *cp); cp++) - continue; - *cp = '\0'; - - if ((cp = strrchr(p, '/')) != NULL) /* and it has a path */ - cp = cp + 1; /* then we want only the last part */ - else - cp = p; /* else we get all of it */ - - /* if we find either in the current name, fg it */ - if (strncmp(ep, cp, (size_t) epl) == 0 || - strncmp(vp, cp, (size_t) vpl) == 0) { - - /* - * If there is a choice, then choose the current process if - * available, or the previous process otherwise, or else - * anything will do - Robert Webb (robertw@mulga.cs.mu.oz.au). - */ - if (pp == pcurrent) - return pp; - else if (retp == NULL || pp == pprevious) - retp = pp; - } - } - - return retp; /* Will be NULL if we didn't find a job */ -} - -void -fg_proc_entry(pp) - register struct process *pp; -{ -#ifdef BSDSIGS - sigmask_t omask; -#endif - jmp_buf_t osetexit; - bool ohaderr; - Char oGettingInput; - - getexit(osetexit); - -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGINT)); -#else - (void) sighold(SIGINT); -#endif - oGettingInput = GettingInput; - GettingInput = 0; - - ohaderr = haderr; /* we need to ignore setting of haderr due to - * process getting stopped by a signal */ - if (setexit() == 0) { /* come back here after pjwait */ - pendjob(); - (void) alarm(0); /* No autologout */ - if (!pstart(pp, 1)) { - pp->p_procid = 0; - stderror(ERR_BADJOB, pp->p_command, strerror(errno)); - } - pjwait(pp); - } - setalarm(1); /* Autologout back on */ - resexit(osetexit); - haderr = ohaderr; - GettingInput = oGettingInput; - -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ - -} - -static char * -xgetpass(prm) - char *prm; -{ - static char pass[PASSMAX + 1]; - int fd, i; - signalfun_t sigint; - - sigint = (signalfun_t) sigset(SIGINT, SIG_IGN); - (void) Rawmode(); /* Make sure, cause we want echo off */ - if ((fd = open("/dev/tty", O_RDWR)) == -1) - fd = SHIN; - - xprintf("%s", prm); flush(); - for (i = 0;;) { - if (read(fd, &pass[i], 1) < 1 || pass[i] == '\n') - break; - if (i < PASSMAX) - i++; - } - - pass[i] = '\0'; - - if (fd != SHIN) - (void) close(fd); - (void) sigset(SIGINT, sigint); - - return(pass); -} - -/* - * Ask the user for his login password to continue working - * On systems that have a shadow password, this will only - * work for root, but what can we do? - * - * If we fail to get the password, then we log the user out - * immediately - */ -/*ARGSUSED*/ -static void -auto_lock(n) - int n; -{ -#ifndef NO_CRYPT - - int i; - char *srpp = NULL; - struct passwd *pw; -#ifdef POSIX - extern char *crypt __P((const char *, const char *)); -#else - extern char *crypt __P(()); -#endif - -#undef XCRYPT - -#if defined(PW_AUTH) && !defined(XCRYPT) - - struct authorization *apw; - extern char *crypt16 __P((const char *, const char *)); - -# define XCRYPT(a, b) crypt16(a, b) - - if ((pw = getpwuid(euid)) != NULL && /* effective user passwd */ - (apw = getauthuid(euid)) != NULL) /* enhanced ultrix passwd */ - srpp = apw->a_password; - -#endif /* PW_AUTH && !XCRYPT */ - -#if defined(PW_SHADOW) && !defined(XCRYPT) - - struct spwd *spw; - -# define XCRYPT(a, b) crypt(a, b) - - if ((pw = getpwuid(euid)) != NULL && /* effective user passwd */ - (spw = getspnam(pw->pw_name)) != NULL) /* shadowed passwd */ - srpp = spw->sp_pwdp; - -#endif /* PW_SHADOW && !XCRYPT */ - -#ifndef XCRYPT - -#define XCRYPT(a, b) crypt(a, b) - - if ((pw = getpwuid(euid)) != NULL) /* effective user passwd */ - srpp = pw->pw_passwd; - -#endif /* !XCRYPT */ - - if (srpp == NULL) { - auto_logout(0); - /*NOTREACHED*/ - return; - } - - setalarm(0); /* Not for locking any more */ -#ifdef BSDSIGS - (void) sigsetmask(sigblock(0) & ~(sigmask(SIGALRM))); -#else /* !BSDSIGS */ - (void) sigrelse(SIGALRM); -#endif /* BSDSIGS */ - xputchar('\n'); - for (i = 0; i < 5; i++) { - const char *crpp; - char *pp; -#ifdef AFS - char *afsname; - Char *safs; - - if ((safs = varval(STRafsuser)) != STRNULL) - afsname = short2str(safs); - else - if ((afsname = getenv("AFSUSER")) == NULL) - afsname = pw->pw_name; -#endif - pp = xgetpass("Password:"); - - crpp = XCRYPT(pp, srpp); - if ((strcmp(crpp, srpp) == 0) -#ifdef AFS - || (ka_UserAuthenticateGeneral(KA_USERAUTH_VERSION, - afsname, /* name */ - NULL, /* instance */ - NULL, /* realm */ - pp, /* password */ - 0, /* lifetime */ - 0, 0, /* spare */ - NULL) /* reason */ - == 0) -#endif /* AFS */ - ) { - (void) memset(pp, 0, PASSMAX); - if (GettingInput && !just_signaled) { - (void) Rawmode(); - ClearLines(); - ClearDisp(); - Refresh(); - } - just_signaled = 0; - return; - } - xprintf(CGETS(22, 2, "\nIncorrect passwd for %s\n"), pw->pw_name); - } -#endif /* NO_CRYPT */ - auto_logout(0); - USE(n); -} - - -static void -auto_logout(n) - int n; -{ - USE(n); - xprintf("auto-logout\n"); - /* Don't leave the tty in raw mode */ - if (editing) - (void) Cookedmode(); - (void) close(SHIN); - set(STRlogout, Strsave(STRautomatic), VAR_READWRITE); - child = 1; -#ifdef TESLA - do_logout = 1; -#endif /* TESLA */ - GettingInput = FALSE; /* make flush() work to write hist files. Huber*/ - goodbye(NULL, NULL); -} - -sigret_t -/*ARGSUSED*/ -alrmcatch(snum) -int snum; -{ -#ifdef UNRELSIGS - if (snum) - (void) sigset(SIGALRM, alrmcatch); -#endif /* UNRELSIGS */ - - (*alm_fun)(0); - - setalarm(1); -#ifndef SIGVOID - return (snum); -#endif /* !SIGVOID */ -} - -/* - * Karl Kleinpaste, 21oct1983. - * Added precmd(), which checks for the alias - * precmd in aliases. If it's there, the alias - * is executed as a command. This is done - * after mailchk() and just before print- - * ing the prompt. Useful for things like printing - * one's current directory just before each command. - */ -void -precmd() -{ -#ifdef BSDSIGS - sigmask_t omask; - - omask = sigblock(sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - if (precmd_active) { /* an error must have been caught */ - aliasrun(2, STRunalias, STRprecmd); - xprintf(CGETS(22, 3, "Faulty alias 'precmd' removed.\n")); - goto leave; - } - precmd_active = 1; - if (!whyles && adrof1(STRprecmd, &aliases)) - aliasrun(1, STRprecmd, NULL); -leave: - precmd_active = 0; -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ -} - -void -postcmd() -{ -#ifdef BSDSIGS - sigmask_t omask; - - omask = sigblock(sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - if (postcmd_active) { /* an error must have been caught */ - aliasrun(2, STRunalias, STRpostcmd); - xprintf(CGETS(22, 3, "Faulty alias 'postcmd' removed.\n")); - goto leave; - } - postcmd_active = 1; - if (!whyles && adrof1(STRpostcmd, &aliases)) - aliasrun(1, STRpostcmd, NULL); -leave: - postcmd_active = 0; -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ -} - -/* - * Paul Placeway 11/24/87 Added cwd_cmd by hacking precmd() into - * submission... Run every time $cwd is set (after it is set). Useful - * for putting your machine and cwd (or anything else) in an xterm title - * space. - */ -void -cwd_cmd() -{ -#ifdef BSDSIGS - sigmask_t omask; - - omask = sigblock(sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - if (cwdcmd_active) { /* an error must have been caught */ - aliasrun(2, STRunalias, STRcwdcmd); - xprintf(CGETS(22, 4, "Faulty alias 'cwdcmd' removed.\n")); - goto leave; - } - cwdcmd_active = 1; - if (!whyles && adrof1(STRcwdcmd, &aliases)) - aliasrun(1, STRcwdcmd, NULL); -leave: - cwdcmd_active = 0; -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ -} - -/* - * Joachim Hoenig 07/16/91 Added beep_cmd, run every time tcsh wishes - * to beep the terminal bell. Useful for playing nice sounds instead. - */ -void -beep_cmd() -{ -#ifdef BSDSIGS - sigmask_t omask; - - omask = sigblock(sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - if (beepcmd_active) { /* an error must have been caught */ - aliasrun(2, STRunalias, STRbeepcmd); - xprintf(CGETS(22, 5, "Faulty alias 'beepcmd' removed.\n")); - } - else { - beepcmd_active = 1; - if (!whyles && adrof1(STRbeepcmd, &aliases)) - aliasrun(1, STRbeepcmd, NULL); - } - beepcmd_active = 0; -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ -} - - -/* - * Karl Kleinpaste, 18 Jan 1984. - * Added period_cmd(), which executes the alias "periodic" every - * $tperiod minutes. Useful for occasional checking of msgs and such. - */ -void -period_cmd() -{ - register Char *vp; - time_t t, interval; -#ifdef BSDSIGS - sigmask_t omask; - - omask = sigblock(sigmask(SIGINT)); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - if (periodic_active) { /* an error must have been caught */ - aliasrun(2, STRunalias, STRperiodic); - xprintf(CGETS(22, 6, "Faulty alias 'periodic' removed.\n")); - goto leave; - } - periodic_active = 1; - if (!whyles && adrof1(STRperiodic, &aliases)) { - vp = varval(STRtperiod); - if (vp == STRNULL) { - aliasrun(1, STRperiodic, NULL); - goto leave; - } - interval = getn(vp); - (void) time(&t); - if (t - t_period >= interval * 60) { - t_period = t; - aliasrun(1, STRperiodic, NULL); - } - } -leave: - periodic_active = 0; -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ -} - -/* - * Karl Kleinpaste, 21oct1983. - * Set up a one-word alias command, for use for special things. - * This code is based on the mainline of process(). - */ -void -aliasrun(cnt, s1, s2) - int cnt; - Char *s1, *s2; -{ - struct wordent w, *new1, *new2; /* for holding alias name */ - struct command *t = NULL; - jmp_buf_t osetexit; - int status; - - getexit(osetexit); - if (seterr) { - xfree((ptr_t) seterr); - seterr = NULL; /* don't repeatedly print err msg. */ - } - w.word = STRNULL; - new1 = (struct wordent *) xcalloc(1, sizeof w); - new1->word = Strsave(s1); - if (cnt == 1) { - /* build a lex list with one word. */ - w.next = w.prev = new1; - new1->next = new1->prev = &w; - } - else { - /* build a lex list with two words. */ - new2 = (struct wordent *) xcalloc(1, sizeof w); - new2->word = Strsave(s2); - w.next = new2->prev = new1; - new1->next = w.prev = new2; - new1->prev = new2->next = &w; - } - - /* Save the old status */ - status = getn(varval(STRstatus)); - - /* expand aliases like process() does. */ - alias(&w); - /* build a syntax tree for the command. */ - t = syntax(w.next, &w, 0); - if (seterr) - stderror(ERR_OLD); - - psavejob(); - - - /* catch any errors here */ - if (setexit() == 0) - /* execute the parse tree. */ - /* - * From: Michael Schroeder <mlschroe@immd4.informatik.uni-erlangen.de> - * was execute(t, tpgrp); - */ - execute(t, tpgrp > 0 ? tpgrp : -1, NULL, NULL); - /* done. free the lex list and parse tree. */ - freelex(&w), freesyn(t); - if (haderr) { - haderr = 0; - /* - * Either precmd, or cwdcmd, or periodic had an error. Call it again so - * that it is removed - */ - if (precmd_active) - precmd(); - if (postcmd_active) - postcmd(); -#ifdef notdef - /* - * XXX: On the other hand, just interrupting them causes an error too. - * So if we hit ^C in the middle of cwdcmd or periodic the alias gets - * removed. We don't want that. Note that we want to remove precmd - * though, cause that could lead into an infinite loop. This should be - * fixed correctly, but then haderr should give us the whole exit - * status not just true or false. - */ - else if (cwdcmd_active) - cwd_cmd(); - else if (beepcmd_active) - beep_cmd(); - else if (periodic_active) - period_cmd(); -#endif /* notdef */ - } - /* reset the error catcher to the old place */ - resexit(osetexit); - prestjob(); - pendjob(); - /* Restore status */ - set(STRstatus, putn(status), VAR_READWRITE); -} - -void -setalarm(lck) - int lck; -{ - struct varent *vp; - Char *cp; - unsigned alrm_time = 0, logout_time, lock_time; - time_t cl, nl, sched_dif; - - if ((vp = adrof(STRautologout)) != NULL) { - if ((cp = vp->vec[0]) != 0) { - if ((logout_time = (unsigned) atoi(short2str(cp)) * 60) > 0) { - alrm_time = logout_time; - alm_fun = auto_logout; - } - } - if ((cp = vp->vec[1]) != 0) { - if ((lock_time = (unsigned) atoi(short2str(cp)) * 60) > 0) { - if (lck) { - if (alrm_time == 0 || lock_time < alrm_time) { - alrm_time = lock_time; - alm_fun = auto_lock; - } - } - else /* lock_time always < alrm_time */ - if (alrm_time) - alrm_time -= lock_time; - } - } - } - if ((nl = sched_next()) != -1) { - (void) time(&cl); - sched_dif = nl > cl ? nl - cl : 0; - if ((alrm_time == 0) || ((unsigned) sched_dif < alrm_time)) { - alrm_time = ((unsigned) sched_dif) + 1; - alm_fun = sched_run; - } - } - (void) alarm(alrm_time); /* Autologout ON */ -} - -#undef RMDEBUG /* For now... */ - -void -rmstar(cp) - struct wordent *cp; -{ - struct wordent *we, *args; - register struct wordent *tmp, *del; - -#ifdef RMDEBUG - static Char STRrmdebug[] = {'r', 'm', 'd', 'e', 'b', 'u', 'g', '\0'}; - Char *tag; -#endif /* RMDEBUG */ - Char *charac; - char c; - int ask, doit, star = 0, silent = 0; - - if (!adrof(STRrmstar)) - return; -#ifdef RMDEBUG - tag = varval(STRrmdebug); -#endif /* RMDEBUG */ - we = cp->next; - while (*we->word == ';' && we != cp) - we = we->next; - while (we != cp) { -#ifdef RMDEBUG - if (*tag) - xprintf(CGETS(22, 7, "parsing command line\n")); -#endif /* RMDEBUG */ - if (!Strcmp(we->word, STRrm)) { - args = we->next; - ask = (*args->word != '-'); - while (*args->word == '-' && !silent) { /* check options */ - for (charac = (args->word + 1); *charac && !silent; charac++) - silent = (*charac == 'i' || *charac == 'f'); - args = args->next; - } - ask = (ask || (!ask && !silent)); - if (ask) { - for (; !star && *args->word != ';' - && args != cp; args = args->next) - if (!Strcmp(args->word, STRstar)) - star = 1; - if (ask && star) { - xprintf(CGETS(22, 8, - "Do you really want to delete all files? [n/y] ")); - flush(); - (void) force_read(SHIN, &c, 1); - /* - * Perhaps we should use the yesexpr from the - * actual locale - */ - doit = (strchr(CGETS(22, 14, "Yy"), c) != NULL); - while (c != '\n' && force_read(SHIN, &c, 1) == 1) - continue; - if (!doit) { - /* remove the command instead */ -#ifdef RMDEBUG - if (*tag) - xprintf(CGETS(22, 9, - "skipping deletion of files!\n")); -#endif /* RMDEBUG */ - for (tmp = we; - *tmp->word != '\n' && - *tmp->word != ';' && tmp != cp;) { - tmp->prev->next = tmp->next; - tmp->next->prev = tmp->prev; - xfree((ptr_t) tmp->word); - del = tmp; - tmp = tmp->next; - xfree((ptr_t) del); - } - if (*tmp->word == ';') { - tmp->prev->next = tmp->next; - tmp->next->prev = tmp->prev; - xfree((ptr_t) tmp->word); - del = tmp; - xfree((ptr_t) del); - } - } - } - } - } - for (we = we->next; - *we->word != ';' && we != cp; - we = we->next) - continue; - if (*we->word == ';') - we = we->next; - } -#ifdef RMDEBUG - if (*tag) { - xprintf(CGETS(22, 10, "command line now is:\n")); - for (we = cp->next; we != cp; we = we->next) - xprintf("%S ", we->word); - } -#endif /* RMDEBUG */ - return; -} - -#ifdef BSDJOBS -/* Check if command is in continue list - and do a "aliasing" if it exists as a job in background */ - -#undef CNDEBUG /* For now */ -void -continue_jobs(cp) - struct wordent *cp; -{ - struct wordent *we; - register struct process *pp, *np; - Char *cmd, *continue_list, *continue_args_list; - -#ifdef CNDEBUG - Char *tag; - static Char STRcndebug[] = - {'c', 'n', 'd', 'e', 'b', 'u', 'g', '\0'}; -#endif /* CNDEBUG */ - bool in_cont_list, in_cont_arg_list; - - -#ifdef CNDEBUG - tag = varval(STRcndebug); -#endif /* CNDEBUG */ - continue_list = varval(STRcontinue); - continue_args_list = varval(STRcontinue_args); - if (*continue_list == '\0' && *continue_args_list == '\0') - return; - - we = cp->next; - while (*we->word == ';' && we != cp) - we = we->next; - while (we != cp) { -#ifdef CNDEBUG - if (*tag) - xprintf(CGETS(22, 11, "parsing command line\n")); -#endif /* CNDEBUG */ - cmd = we->word; - in_cont_list = inlist(continue_list, cmd); - in_cont_arg_list = inlist(continue_args_list, cmd); - if (in_cont_list || in_cont_arg_list) { -#ifdef CNDEBUG - if (*tag) - xprintf(CGETS(22, 12, "in one of the lists\n")); -#endif /* CNDEBUG */ - np = NULL; - for (pp = proclist.p_next; pp; pp = pp->p_next) { - if (prefix(cmd, pp->p_command)) { - if (pp->p_index) { - np = pp; - break; - } - } - } - if (np) { - insert(we, in_cont_arg_list); - } - } - for (we = we->next; - *we->word != ';' && we != cp; - we = we->next) - continue; - if (*we->word == ';') - we = we->next; - } -#ifdef CNDEBUG - if (*tag) { - xprintf(CGETS(22, 13, "command line now is:\n")); - for (we = cp->next; we != cp; we = we->next) - xprintf("%S ", we->word); - } -#endif /* CNDEBUG */ - return; -} - -/* The actual "aliasing" of for backgrounds() is done here - with the aid of insert_we(). */ -static void -insert(pl, file_args) - struct wordent *pl; - bool file_args; -{ - struct wordent *now, *last; - Char *cmd, *bcmd, *cp1, *cp2; - int cmd_len; - Char *pause = STRunderpause; - int p_len = (int) Strlen(pause); - - cmd_len = (int) Strlen(pl->word); - cmd = (Char *) xcalloc(1, (size_t) ((cmd_len + 1) * sizeof(Char))); - (void) Strcpy(cmd, pl->word); -/* Do insertions at beginning, first replace command word */ - - if (file_args) { - now = pl; - xfree((ptr_t) now->word); - now->word = (Char *) xcalloc(1, (size_t) (5 * sizeof(Char))); - (void) Strcpy(now->word, STRecho); - - now = (struct wordent *) xcalloc(1, (size_t) sizeof(struct wordent)); - now->word = (Char *) xcalloc(1, (size_t) (6 * sizeof(Char))); - (void) Strcpy(now->word, STRbackqpwd); - insert_we(now, pl); - - for (last = now; *last->word != '\n' && *last->word != ';'; - last = last->next) - continue; - - now = (struct wordent *) xcalloc(1, (size_t) sizeof(struct wordent)); - now->word = (Char *) xcalloc(1, (size_t) (2 * sizeof(Char))); - (void) Strcpy(now->word, STRgt); - insert_we(now, last->prev); - - now = (struct wordent *) xcalloc(1, (size_t) sizeof(struct wordent)); - now->word = (Char *) xcalloc(1, (size_t) (2 * sizeof(Char))); - (void) Strcpy(now->word, STRbang); - insert_we(now, last->prev); - - now = (struct wordent *) xcalloc(1, (size_t) sizeof(struct wordent)); - now->word = (Char *) xcalloc(1, (size_t) cmd_len + p_len + 4); - cp1 = now->word; - cp2 = cmd; - *cp1++ = '~'; - *cp1++ = '/'; - *cp1++ = '.'; - while ((*cp1++ = *cp2++) != '\0') - continue; - cp1--; - cp2 = pause; - while ((*cp1++ = *cp2++) != '\0') - continue; - insert_we(now, last->prev); - - now = (struct wordent *) xcalloc(1, (size_t) sizeof(struct wordent)); - now->word = (Char *) xcalloc(1, (size_t) (2 * sizeof(Char))); - (void) Strcpy(now->word, STRsemi); - insert_we(now, last->prev); - bcmd = (Char *) xcalloc(1, (size_t) ((cmd_len + 2) * sizeof(Char))); - cp1 = bcmd; - cp2 = cmd; - *cp1++ = '%'; - while ((*cp1++ = *cp2++) != '\0') - continue; - now = (struct wordent *) xcalloc(1, (size_t) (sizeof(struct wordent))); - now->word = bcmd; - insert_we(now, last->prev); - } - else { - struct wordent *del; - - now = pl; - xfree((ptr_t) now->word); - now->word = (Char *) xcalloc(1, - (size_t) ((cmd_len + 2) * sizeof(Char))); - cp1 = now->word; - cp2 = cmd; - *cp1++ = '%'; - while ((*cp1++ = *cp2++) != '\0') - continue; - for (now = now->next; - *now->word != '\n' && *now->word != ';' && now != pl;) { - now->prev->next = now->next; - now->next->prev = now->prev; - xfree((ptr_t) now->word); - del = now; - now = now->next; - xfree((ptr_t) del); - } - } -} - -static void -insert_we(new, where) - struct wordent *new, *where; -{ - - new->prev = where; - new->next = where->next; - where->next = new; - new->next->prev = new; -} - -static int -inlist(list, name) - Char *list, *name; -{ - register Char *l, *n; - - l = list; - n = name; - - while (*l && *n) { - if (*l == *n) { - l++; - n++; - if (*n == '\0' && (*l == ' ' || *l == '\0')) - return (1); - else - continue; - } - else { - while (*l && *l != ' ') - l++; /* skip to blank */ - while (*l && *l == ' ') - l++; /* and find first nonblank character */ - n = name; - } - } - return (0); -} - -#endif /* BSDJOBS */ - - -/* - * Implement a small cache for tilde names. This is used primarily - * to expand tilde names to directories, but also - * we can find users from their home directories for the tilde - * prompt, on machines where yp lookup is slow this can be a big win... - * As with any cache this can run out of sync, rehash can sync it again. - */ -static struct tildecache { - Char *user; - Char *home; - int hlen; -} *tcache = NULL; - -#define TILINCR 10 -int tlength = 0; -static int tsize = TILINCR; - -static int -tildecompare(p1, p2) - struct tildecache *p1, *p2; -{ - return Strcmp(p1->user, p2->user); -} - -static Char * -gethomedir(us) - Char *us; -{ - register struct passwd *pp; -#ifdef HESIOD - char **res, **res1, *cp; - Char *rp; -#endif /* HESIOD */ - - pp = getpwnam(short2str(us)); -#ifdef YPBUGS - fix_yp_bugs(); -#endif /* YPBUGS */ - if (pp != NULL) - return Strsave(str2short(pp->pw_dir)); -#ifdef HESIOD - res = hes_resolve(short2str(us), "filsys"); - rp = 0; - if (res != 0) { - extern char *strtok(); - if ((*res) != 0) { - /* - * Look at the first token to determine how to interpret - * the rest of it. - * Yes, strtok is evil (it's not thread-safe), but it's also - * easy to use. - */ - cp = strtok(*res, " "); - if (strcmp(cp, "AFS") == 0) { - /* next token is AFS pathname.. */ - cp = strtok(NULL, " "); - if (cp != NULL) - rp = Strsave(str2short(cp)); - } else if (strcmp(cp, "NFS") == 0) { - cp = NULL; - if ((strtok(NULL, " ")) && /* skip remote pathname */ - (strtok(NULL, " ")) && /* skip host */ - (strtok(NULL, " ")) && /* skip mode */ - (cp = strtok(NULL, " "))) { - rp = Strsave(str2short(cp)); - } - } - } - for (res1 = res; *res1; res1++) - free(*res1); - return rp; - } -#endif /* HESIOD */ - return NULL; -} - -Char * -gettilde(us) - Char *us; -{ - struct tildecache *bp1, *bp2, *bp; - Char *hd; - - /* Ignore NIS special names */ - if (*us == '+' || *us == '-') - return NULL; - - if (tcache == NULL) - tcache = (struct tildecache *) xmalloc((size_t) (TILINCR * - sizeof(struct tildecache))); - /* - * Binary search - */ - for (bp1 = tcache, bp2 = tcache + tlength; bp1 < bp2;) { - register int i; - - bp = bp1 + ((bp2 - bp1) >> 1); - if ((i = *us - *bp->user) == 0 && (i = Strcmp(us, bp->user)) == 0) - return (bp->home); - if (i < 0) - bp2 = bp; - else - bp1 = bp + 1; - } - /* - * Not in the cache, try to get it from the passwd file - */ - hd = gethomedir(us); - if (hd == NULL) - return NULL; - - /* - * Update the cache - */ - tcache[tlength].user = Strsave(us); - tcache[tlength].home = hd; - tcache[tlength++].hlen = (int) Strlen(hd); - - qsort((ptr_t) tcache, (size_t) tlength, sizeof(struct tildecache), - (int (*) __P((const void *, const void *))) tildecompare); - - if (tlength == tsize) { - tsize += TILINCR; - tcache = (struct tildecache *) xrealloc((ptr_t) tcache, - (size_t) (tsize * - sizeof(struct tildecache))); - } - return (hd); -} - -/* - * Return the username if the directory path passed contains a - * user's home directory in the tilde cache, otherwise return NULL - * hm points to the place where the path became different. - * Special case: Our own home directory. - * If we are passed a null pointer, then we flush the cache. - */ -Char * -getusername(hm) - Char **hm; -{ - Char *h, *p; - int i, j; - - if (hm == NULL) { - for (i = 0; i < tlength; i++) { - xfree((ptr_t) tcache[i].home); - xfree((ptr_t) tcache[i].user); - } - xfree((ptr_t) tcache); - tlength = 0; - tsize = TILINCR; - tcache = NULL; - return NULL; - } - if (((h = varval(STRhome)) != STRNULL) && - (Strncmp(p = *hm, h, (size_t) (j = (int) Strlen(h))) == 0) && - (p[j] == '/' || p[j] == '\0')) { - *hm = &p[j]; - return STRNULL; - } - for (i = 0; i < tlength; i++) - if ((Strncmp(p = *hm, tcache[i].home, (size_t) - (j = tcache[i].hlen)) == 0) && (p[j] == '/' || p[j] == '\0')) { - *hm = &p[j]; - return tcache[i].user; - } - return NULL; -} - -#ifdef OBSOLETE -/* - * PWP: read a bunch of aliases out of a file QUICKLY. The format - * is almost the same as the result of saying "alias > FILE", except - * that saying "aliases > FILE" does not expand non-letters to printable - * sequences. - */ -/*ARGSUSED*/ -void -doaliases(v, c) - Char **v; - struct command *c; -{ - jmp_buf_t oldexit; - Char **vec, *lp; - int fd; - Char buf[BUFSIZE], line[BUFSIZE]; - char tbuf[BUFSIZE + 1], *tmp; - extern bool output_raw; /* PWP: in sh.print.c */ - - USE(c); - v++; - if (*v == 0) { - output_raw = 1; - plist(&aliases, VAR_ALL); - output_raw = 0; - return; - } - - gflag = 0, tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else { - v = gargv = saveblk(v); - trim(v); - } - - if ((fd = open(tmp = short2str(*v), O_RDONLY)) < 0) - stderror(ERR_NAME | ERR_SYSTEM, tmp, strerror(errno)); - - getexit(oldexit); - if (setexit() == 0) { - for (;;) { - Char *p = NULL; - int n = 0; - lp = line; - for (;;) { - if (n <= 0) { - int i; - - if ((n = read(fd, tbuf, BUFSIZE)) <= 0) { -#ifdef convex - stderror(ERR_SYSTEM, progname, strerror(errno)); -#endif /* convex */ - goto eof; - } - for (i = 0; i < n; i++) - buf[i] = (Char) tbuf[i]; - p = buf; - } - n--; - if ((*lp++ = *p++) == '\n') { - lp[-1] = '\0'; - break; - } - } - for (lp = line; *lp; lp++) { - if (isspc(*lp)) { - *lp++ = '\0'; - while (isspc(*lp)) - lp++; - vec = (Char **) xmalloc((size_t) - (2 * sizeof(Char **))); - vec[0] = Strsave(lp); - vec[1] = NULL; - setq(strip(line), vec, &aliases, VAR_READWRITE); - break; - } - } - } - } - -eof: - (void) close(fd); - tw_cmd_free(); - if (gargv) - blkfree(gargv), gargv = 0; - resexit(oldexit); -} -#endif /* OBSOLETE */ - - -/* - * set the shell-level var to 1 or apply change to it. - */ -void -shlvl(val) - int val; -{ - char *cp; - - if ((cp = getenv("SHLVL")) != NULL) { - - if (loginsh) - val = 1; - else - val += atoi(cp); - - if (val <= 0) { - if (adrof(STRshlvl) != NULL) - unsetv(STRshlvl); - Unsetenv(STRKSHLVL); - } - else { - Char buff[BUFSIZE]; - - (void) Itoa(val, buff, 0, 0); - set(STRshlvl, Strsave(buff), VAR_READWRITE); - tsetenv(STRKSHLVL, buff); - } - } - else { - set(STRshlvl, SAVE("1"), VAR_READWRITE); - tsetenv(STRKSHLVL, str2short("1")); - } -} - - -/* fixio(): - * Try to recover from a read error - */ -int -fixio(fd, e) - int fd, e; -{ - switch (e) { - case -1: /* Make sure that the code is reachable */ - -#ifdef EWOULDBLOCK - case EWOULDBLOCK: -# define FDRETRY -#endif /* EWOULDBLOCK */ - -#if defined(POSIX) && defined(EAGAIN) -# if !defined(EWOULDBLOCK) || EWOULDBLOCK != EAGAIN - case EAGAIN: -# define FDRETRY -# endif /* !EWOULDBLOCK || EWOULDBLOCK != EAGAIN */ -#endif /* POSIX && EAGAIN */ - - e = 0; -#ifdef FDRETRY -# ifdef F_SETFL -/* - * Great! we have on suns 3 flavors and 5 names... - * I hope that will cover everything. - * I added some more defines... many systems have different defines. - * Rather than dealing with getting the right includes, we'll just - * cover all the known possibilities here. -- sterling@netcom.com - */ -# ifndef O_NONBLOCK -# define O_NONBLOCK 0 -# endif /* O_NONBLOCK */ -# ifndef O_NDELAY -# define O_NDELAY 0 -# endif /* O_NDELAY */ -# ifndef FNBIO -# define FNBIO 0 -# endif /* FNBIO */ -# ifndef _FNBIO -# define _FNBIO 0 -# endif /* _FNBIO */ -# ifndef FNONBIO -# define FNONBIO 0 -# endif /* FNONBIO */ -# ifndef FNONBLOCK -# define FNONBLOCK 0 -# endif /* FNONBLOCK */ -# ifndef _FNONBLOCK -# define _FNONBLOCK 0 -# endif /* _FNONBLOCK */ -# ifndef FNDELAY -# define FNDELAY 0 -# endif /* FNDELAY */ -# ifndef _FNDELAY -# define _FNDELAY 0 -# endif /* _FNDELAY */ -# ifndef FNDLEAY /* Some linux versions have this typo */ -# define FNDLEAY 0 -# endif /* FNDLEAY */ - if ((e = fcntl(fd, F_GETFL, 0)) == -1) - return -1; - - e &= ~(O_NDELAY|O_NONBLOCK|FNBIO|_FNBIO|FNONBIO|FNONBLOCK|_FNONBLOCK| - FNDELAY|_FNDELAY|FNDLEAY); /* whew! */ - if (fcntl(fd, F_SETFL, e) == -1) - return -1; - else - e = 1; -# endif /* F_SETFL */ - -# ifdef FIONBIO - e = 0; - if (ioctl(fd, FIONBIO, (ioctl_t) &e) == -1) - return -1; - else - e = 1; -# endif /* FIONBIO */ - -#endif /* FDRETRY */ - return e ? 0 : -1; - - case EINTR: - return 0; - - default: - return -1; - } -} - -/* collate(): - * String collation - */ -int -collate(a, b) - const Char *a; - const Char *b; -{ - int rv; -#ifdef SHORT_STRINGS - /* This strips the quote bit as a side effect */ - char *sa = strsave(short2str(a)); - char *sb = strsave(short2str(b)); -#else - char *sa = strip(strsave(a)); - char *sb = strip(strsave(b)); -#endif /* SHORT_STRINGS */ - -#if defined(NLS) && !defined(NOSTRCOLL) - errno = 0; /* strcoll sets errno, another brain-damage */ - - rv = strcoll(sa, sb); - - /* - * We should be checking for errno != 0, but some systems - * forget to reset errno to 0. So we only check for the - * only documented valid errno value for strcoll [EINVAL] - */ - if (errno == EINVAL) { - xfree((ptr_t) sa); - xfree((ptr_t) sb); - stderror(ERR_SYSTEM, "strcoll", strerror(errno)); - } -#else - rv = strcmp(sa, sb); -#endif /* NLS && !NOSTRCOLL */ - - xfree((ptr_t) sa); - xfree((ptr_t) sb); - - return rv; -} - -#ifdef HASHBANG -/* - * From: peter@zeus.dialix.oz.au (Peter Wemm) - * If exec() fails look first for a #! [word] [word] .... - * If it is, splice the header into the argument list and retry. - */ -#define HACKBUFSZ 1024 /* Max chars in #! vector */ -#define HACKVECSZ 128 /* Max words in #! vector */ -int -hashbang(fd, vp) - int fd; - Char ***vp; -{ - unsigned char lbuf[HACKBUFSZ]; - char *sargv[HACKVECSZ]; - unsigned char *p, *ws; - int sargc = 0; -#ifdef WINNT - int fw = 0; /* found at least one word */ - int first_word = 0; -#endif /* WINNT */ - - if (read(fd, (char *) lbuf, HACKBUFSZ) <= 0) - return -1; - - ws = 0; /* word started = 0 */ - - for (p = lbuf; p < &lbuf[HACKBUFSZ]; ) - switch (*p) { - case ' ': - case '\t': -#ifdef WINNT - case '\r': -#endif /* WINNT */ - if (ws) { /* a blank after a word.. save it */ - *p = '\0'; -#ifndef WINNT - if (sargc < HACKVECSZ - 1) - sargv[sargc++] = ws; - ws = NULL; -#else /* WINNT */ - if (sargc < HACKVECSZ - 1) { - sargv[sargc] = first_word ? NULL: hb_subst(ws); - if (sargv[sargc] == NULL) - sargv[sargc] = ws; - sargc++; - } - ws = NULL; - fw = 1; - first_word = 1; -#endif /* WINNT */ - } - p++; - continue; - - case '\0': /* Whoa!! what the hell happened */ - return -1; - - case '\n': /* The end of the line. */ - if ( -#ifdef WINNT - fw || -#endif /* WINNT */ - ws) { /* terminate the last word */ - *p = '\0'; -#ifndef WINNT - if (sargc < HACKVECSZ - 1) - sargv[sargc++] = ws; -#else /* WINNT */ - if (sargc < HACKVECSZ - 1) { /* deal with the 1-word case */ - sargv[sargc] = first_word? NULL : hb_subst(ws); - if (sargv[sargc] == NULL) - sargv[sargc] = ws; - sargc++; - } -#endif /* !WINNT */ - } - sargv[sargc] = NULL; - ws = NULL; - if (sargc > 0) { - *vp = blk2short(sargv); - return 0; - } - else - return -1; - - default: - if (!ws) /* Start a new word? */ - ws = p; - p++; - break; - } - return -1; -} -#endif /* HASHBANG */ - -#ifdef REMOTEHOST - -static sigret_t -palarm(snum) - int snum; -{ - USE(snum); -#ifdef UNRELSIGS - if (snum) - (void) sigset(snum, SIG_IGN); -#endif /* UNRELSIGS */ - (void) alarm(0); - reset(); - -#ifndef SIGVOID - return (snum); -#endif -} - - -static void -getremotehost() -{ - const char *host = NULL; - struct hostent* hp; - struct sockaddr_in saddr; - int len = sizeof(struct sockaddr_in); -#if defined(UTHOST) && !defined(HAVENOUTMP) - char *sptr = NULL; -#endif - - if (getpeername(SHIN, (struct sockaddr *) &saddr, &len) != -1) { -#if 0 - if ((hp = gethostbyaddr((char *)&saddr.sin_addr, sizeof(struct in_addr), - AF_INET)) != NULL) - host = hp->h_name; - else -#endif - host = inet_ntoa(saddr.sin_addr); - } -#if defined(UTHOST) && !defined(HAVENOUTMP) - else { - char *ptr; - char *name = utmphost(); - /* Avoid empty names and local X displays */ - if (name != NULL && *name != '\0' && *name != ':') { - /* Look for host:display.screen */ - if ((sptr = strchr(name, ':')) != NULL) - *sptr = '\0'; - /* Leave IP address as is */ - if (isdigit(*name)) - host = name; - else { - if (sptr != name) { - if ((hp = gethostbyname(name)) == NULL) { - /* Try again eliminating the trailing domain */ - if ((ptr = strchr(name, '.')) != NULL) { - *ptr = '\0'; - if ((hp = gethostbyname(name)) != NULL) - host = hp->h_name; - *ptr = '.'; - } - } - else - host = hp->h_name; - } - } - } - } -#endif - - if (host) - tsetenv(STRREMOTEHOST, str2short(host)); - -#if defined(UTHOST) && !defined(HAVENOUTMP) - if (sptr) - *sptr = ':'; -#endif -} - - -/* - * From: <lesv@ppvku.ericsson.se> (Lennart Svensson) - */ -void -remotehost() -{ - /* Don't get stuck if the resolver does not work! */ - signalfun_t osig = sigset(SIGALRM, palarm); - - jmp_buf_t osetexit; - getexit(osetexit); - - (void) alarm(2); - - if (setexit() == 0) - getremotehost(); - - resexit(osetexit); - - (void) alarm(0); - (void) sigset(SIGALRM, osig); - -#ifdef YPBUGS - /* From: casper@fwi.uva.nl (Casper H.S. Dik), for Solaris 2.3 */ - fix_yp_bugs(); -#endif /* YPBUGS */ - -} -#endif /* REMOTEHOST */ diff --git a/contrib/tcsh/tc.h b/contrib/tcsh/tc.h deleted file mode 100644 index f39d74693abe..000000000000 --- a/contrib/tcsh/tc.h +++ /dev/null @@ -1,53 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.h,v 3.4 1996/04/26 19:21:03 christos Exp $ */ -/* - * tc.h: Tcsh includes - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_tc -#define _h_tc - -#ifndef _h_tc_const -/* Don't include it while we are making it. */ -# include "tc.const.h" -#endif /* _h_tc_const */ -#include "tc.os.h" -#include "tc.sig.h" -#include "tc.decls.h" - -#define FMT_PROMPT 0 -#define FMT_WHO 1 -#define FMT_HISTORY 2 -#define FMT_SCHED 3 - -#endif /* _h_tc */ diff --git a/contrib/tcsh/tc.os.c b/contrib/tcsh/tc.os.c deleted file mode 100644 index b2af5f68a617..000000000000 --- a/contrib/tcsh/tc.os.c +++ /dev/null @@ -1,1474 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.os.c,v 3.50 1998/10/25 15:10:35 christos Exp $ */ -/* - * tc.os.c: OS Dependent builtin functions - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.os.c,v 3.50 1998/10/25 15:10:35 christos Exp $") - -#include "tw.h" -#include "ed.h" -#include "ed.defns.h" /* for the function names */ -#include "sh.decls.h" - -#ifdef _UWIN -#define TIOCGPGRP TIOCGETPGRP -#define TIOCSPGRP TIOCSETPGRP -#endif - -/*** - *** MACH - ***/ - -#ifdef MACH -/* dosetpath -- setpath built-in command - * - ********************************************************************** - * HISTORY - * 08-May-88 Richard Draves (rpd) at Carnegie-Mellon University - * Major changes to remove artificial limits on sizes and numbers - * of paths. - * - ********************************************************************** - */ - -#ifdef MACH -static Char STRCPATH[] = {'C', 'P', 'A', 'T', 'H', '\0'}; -static Char STRLPATH[] = {'L', 'P', 'A', 'T', 'H', '\0'}; -static Char STRMPATH[] = {'M', 'P', 'A', 'T', 'H', '\0'}; -# if EPATH -static Char STREPATH[] = {'E', 'P', 'A', 'T', 'H', '\0'}; -# endif -#endif /* MACH */ -static Char *syspaths[] = {STRKPATH, STRCPATH, STRLPATH, STRMPATH, - -#if EPATH - STREPATH, -#endif - 0}; -#define LOCALSYSPATH "/usr/local" - -/*ARGSUSED*/ -void -dosetpath(arglist, c) - Char **arglist; - struct command *c; -{ - extern char *getenv(); - sigmask_t omask; - Char **pathvars, **cmdargs; - char **spaths, **cpaths, **cmds; - char *tcp; - unsigned int npaths, ncmds; - int i, sysflag; - - omask = sigsetmask(sigmask(SIGINT)); - - /* - * setpath(3) uses stdio and we want 0, 1, 2 to work... - */ - if (!didfds) { - (void) dcopy(SHIN, 0); - (void) dcopy(SHOUT, 1); - (void) dcopy(SHDIAG, 2); - didfds = 1; - } - - for (i = 1; arglist[i] && (arglist[i][0] != '-'); i++); - npaths = i - 1; - - cmdargs = &arglist[i]; - for (; arglist[i]; i++); - ncmds = i - npaths - 1; - - if (npaths) { - sysflag = 0; - pathvars = &arglist[1]; - } - else { - sysflag = 1; - npaths = (sizeof syspaths / sizeof *syspaths) - 1; - pathvars = syspaths; - } - - /* note that npaths != 0 */ - - spaths = (char **) xmalloc((size_t) npaths * sizeof *spaths); - setzero((char *) spaths, npaths * sizeof *spaths); - cpaths = (char **) xmalloc((size_t) (npaths + 1) * sizeof *cpaths); - setzero((char *) cpaths, (npaths + 1) * sizeof *cpaths); - cmds = (char **) xmalloc((size_t) (ncmds + 1) * sizeof *cmds); - setzero((char *) cmds, (ncmds + 1) * sizeof *cmds); - for (i = 0; i < npaths; i++) { - char *val = getenv(short2str(pathvars[i])); - - if (val == NULL) - val = ""; - - spaths[i] = (char *) xmalloc((size_t) (Strlen(pathvars[i]) + - strlen(val) + 2) * sizeof **spaths); - (void) strcpy(spaths[i], short2str(pathvars[i])); - (void) strcat(spaths[i], "="); - (void) strcat(spaths[i], val); - cpaths[i] = spaths[i]; - } - - for (i = 0; i < ncmds; i++) { - Char *val = globone(cmdargs[i], G_ERROR); - - if (val == NULL) - goto abortpath; - cmds[i] = (char *) xmalloc((size_t) Strlen(val) + 1); - (void) strcpy(cmds[i], short2str(val)); - } - - - if (setpath(cpaths, cmds, LOCALSYSPATH, sysflag, 1) < 0) { -abortpath: - if (spaths) { - for (i = 0; i < npaths; i++) - if (spaths[i]) - xfree((ptr_t) spaths[i]); - xfree((ptr_t) spaths); - } - if (cpaths) - xfree((ptr_t) cpaths); - if (cmds) { - for (i = 0; i < ncmds; i++) - if (cmds[i]) - xfree((ptr_t) cmds[i]); - xfree((ptr_t) cmds); - } - - (void) sigsetmask(omask); - donefds(); - return; - } - - for (i = 0; i < npaths; i++) { - Char *val, *name; - - name = str2short(cpaths[i]); - for (val = str2short(cpaths[i]); val && *val && *val != '='; val++); - if (val && *val == '=') { - *val++ = '\0'; - - tsetenv(name, val); - if (Strcmp(name, STRKPATH) == 0) { - importpath(val); - if (havhash) - dohash(NULL, NULL); - } - *--val = '='; - } - } - (void) sigsetmask(omask); - donefds(); -} -#endif /* MACH */ - -/*** - *** AIX - ***/ -#ifdef TCF -/* ARGSUSED */ -void -dogetxvers(v, c) - Char **v; - struct command *c; -{ - char xvers[MAXPATHLEN]; - - if (getxvers(xvers, MAXPATHLEN) == -1) - stderror(ERR_SYSTEM, "getxvers", strerror(errno)); - xprintf("%s\n", xvers); - flush(); -} - -/*ARGSUSED*/ -void -dosetxvers(v, c) - Char **v; - struct command *c; -{ - char *xvers; - - ++v; - if (!*v || *v[0] == '\0') - xvers = ""; - else - xvers = short2str(*v); - if (setxvers(xvers) == -1) - stderror(ERR_SYSTEM, "setxvers", strerror(errno)); -} - -#include <sf.h> -#ifdef _AIXPS2 -# define XC_PDP11 0x01 -# define XC_23 0x02 -# define XC_Z8K 0x03 -# define XC_8086 0x04 -# define XC_68K 0x05 -# define XC_Z80 0x06 -# define XC_VAX 0x07 -# define XC_16032 0x08 -# define XC_286 0x09 -# define XC_386 0x0a -# define XC_S370 0x0b -#else -# include <sys/x.out.h> -#endif /* _AIXPS2 */ - -static struct xc_cpu_t { - short xc_id; - char *xc_name; -} xcpu[] = -{ - { XC_PDP11, "pdp11" }, - { XC_23, "i370" }, - { XC_Z8K, "z8000" }, - { XC_8086, "i86" }, - { XC_68K, "mc68000" }, - { XC_Z80, "x80" }, - { XC_VAX, "vax" }, - { XC_16032, "ns16032" }, - { XC_286, "i286" }, - { XC_386, "i386" }, - { XC_S370, "xa370" }, - { 0, NULL } -}; - -/* - * our local hack table, stolen from x.out.h - */ -static char * -getxcode(xcid) - short xcid; -{ - int i; - - for (i = 0; xcpu[i].xc_name != NULL; i++) - if (xcpu[i].xc_id == xcid) - return (xcpu[i].xc_name); - return (NULL); -} - -static short -getxid(xcname) - char *xcname; -{ - int i; - - for (i = 0; xcpu[i].xc_name != NULL; i++) - if (strcmp(xcpu[i].xc_name, xcname) == 0) - return (xcpu[i].xc_id); - return ((short) -1); -} - - -/*ARGSUSED*/ -void -dogetspath(v, c) - Char **v; - struct command *c; -{ - int i, j; - sitepath_t p[MAXSITE]; - struct sf *st; - static char *local = "LOCAL "; - - if ((j = getspath(p, MAXSITE)) == -1) - stderror(ERR_SYSTEM, "getspath", strerror(errno)); - for (i = 0; i < j && (p[i] & SPATH_CPU) != NOSITE; i++) { - if (p[i] & SPATH_CPU) { - if ((p[i] & SPATH_MASK) == NULLSITE) - xprintf(local); - else if ((st = sfxcode((short) (p[i] & SPATH_MASK))) != NULL) - xprintf("%s ", st->sf_ctype); - else { - char *xc = getxcode(p[i] & SPATH_MASK); - - if (xc != NULL) - xprintf("%s ", xc); - else - xprintf("*cpu %d* ", (int) (p[i] & SPATH_MASK)); - /* - * BUG in the aix code... needs that cause if - * sfxcode fails once it fails for ever - */ - endsf(); - } - } - else { - if (p[i] == NULLSITE) - xprintf(local); - else if ((st = sfnum(p[i])) != NULL) - xprintf("%s ", st->sf_sname); - else - xprintf("*site %d* ", (int) (p[i] & SPATH_MASK)); - } - } - xputchar('\n'); - flush(); -} - -/*ARGSUSED*/ -void -dosetspath(v, c) - Char **v; - struct command *c; -{ - int i; - short j; - char *s; - sitepath_t p[MAXSITE]; - struct sf *st; - - /* - * sfname() on AIX G9.9 at least, mallocs too pointers p, q - * then does the equivalent of while (*p++ == *q++) continue; - * and then tries to free(p,q) them! Congrats to the wizard who - * wrote that one. I bet he tested it really well too. - * Sooo, we set dont_free :-) - */ - dont_free = 1; - for (i = 0, v++; *v && *v[0] != '\0'; v++, i++) { - s = short2str(*v); - if (Isdigit(*s)) - p[i] = atoi(s); - else if (strcmp(s, "LOCAL") == 0) - p[i] = NULLSITE; - else if ((st = sfctype(s)) != NULL) - p[i] = SPATH_CPU | st->sf_ccode; - else if ((j = getxid(s)) != -1) - p[i] = SPATH_CPU | j; - else if ((st = sfname(s)) != NULL) - p[i] = st->sf_id; - else { - setname(s); - stderror(ERR_NAME | ERR_STRING, CGETS(23, 1, "Bad cpu/site name")); - } - if (i == MAXSITE - 1) - stderror(ERR_NAME | ERR_STRING, CGETS(23, 2, "Site path too long")); - } - if (setspath(p, i) == -1) - stderror(ERR_SYSTEM, "setspath", strerror(errno)); - dont_free = 0; -} - -/* sitename(): - * Return the site name where the process is running - */ -char * -sitename(pid) - pid_t pid; -{ - siteno_t ss; - struct sf *st; - - if ((ss = site(pid)) == -1 || (st = sfnum(ss)) == NULL) - return CGETS(23, 3, "unknown"); - else - return st->sf_sname; -} - -static int -migratepid(pid, new_site) - pid_t pid; - siteno_t new_site; -{ - struct sf *st; - int need_local; - - need_local = (pid == 0) || (pid == getpid()); - - if (kill3((pid_t) pid, SIGMIGRATE, new_site) < 0) { - xprintf("%d: %s\n", pid, strerror(errno)); - return (-1); - } - - if (need_local) { - if ((new_site = site(0)) == -1) { - xprintf(CGETS(23, 4, "site: %s\n"), strerror(errno)); - return (-1); - } - if ((st = sfnum(new_site)) == NULL) { - xprintf(CGETS(23, 5, "%d: Site not found\n"), new_site); - return (-1); - } - if (setlocal(st->sf_local, strlen(st->sf_local)) == -1) { - xprintf(CGETS(23, 6, "setlocal: %s: %s\n"), - st->sf_local, strerror(errno)); - return (-1); - } - } - return (0); -} - -/*ARGSUSED*/ -void -domigrate(v, c) - Char **v; - struct command *c; -{ - struct sf *st; - char *s; - Char *cp; - struct process *pp; - int err1 = 0; - int pid = 0; - siteno_t new_site = 0; - sigmask_t omask; - -#ifdef BSDSIGS - omask = sigmask(SIGCHLD); - if (setintr) - omask |= sigmask(SIGINT); - omask = sigblock(omask) & ~omask; -#else - if (setintr) - (void) sighold(SIGINT); - (void) sighold(SIGCHLD); -#endif /* BSDSIGS */ - - ++v; - if (*v[0] == '-') { - /* - * Do the -site. - */ - s = short2str(&v[0][1]); - /* - * see comment in setspath() - */ - dont_free = 1; - if ((st = sfname(s)) == NULL) { - setname(s); - stderror(ERR_NAME | ERR_STRING, CGETS(23, 7, "Site not found")); - } - dont_free = 0; - new_site = st->sf_id; - ++v; - } - - if (!*v || *v[0] == '\0') { - if (migratepid(0, new_site) == -1) - err1++; - } - else { - gflag = 0, tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else { - v = gargv = saveblk(v); - trim(v); - } - - while (v && (cp = *v)) { - if (*cp == '%') { - pp = pfind(cp); - if (kill3((pid_t) - pp->p_jobid, SIGMIGRATE, new_site) < 0) { - xprintf("%S: %s\n", cp, strerror(errno)); - err1++; - } - } - else if (!(Isdigit(*cp) || *cp == '-')) - stderror(ERR_NAME | ERR_JOBARGS); - else { - pid = atoi(short2str(cp)); - if (migratepid(pid, new_site) == -1) - err1++; - } - v++; - } - if (gargv) - blkfree(gargv), gargv = 0; - } - -done: -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else - (void) sigrelse(SIGCHLD); - if (setintr) - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ - if (err1) - stderror(ERR_SILENT); -} - -#endif /* TCF */ - -/*** - *** CRAY ddmode <velo@sesun3.epfl.ch> (Martin Ouwehand EPFL-SIC/SE) - ***/ -#if defined(_CRAY) && !defined(_CRAYMPP) -void -dodmmode(v, c) - Char **v; - struct command *c; -{ - Char *cp = v[1]; - - USE(c); - - if ( !cp ) { - int mode; - - mode = dmmode(0); - dmmode(mode); - xprintf("%d\n",mode); - } - else { - if (cp[1] != '\0') - stderror(ERR_NAME | ERR_STRING, - CGETS(23, 30, "Too many arguments")); - else - switch(*cp) { - case '0': - dmmode(0); - break; - case '1': - dmmode(1); - break; - default: - stderror(ERR_NAME | ERR_STRING, - CGETS(23, 31, "Invalid argument")); - } - } -} -#endif /* _CRAY && !_CRAYMPP */ - - -/*** - *** CONVEX Warps. - ***/ - -#ifdef WARP -/* - * handle the funky warping of symlinks - */ -#include <warpdb.h> -#include <sys/warp.h> - -static jmp_buf sigsys_buf; - -static sigret_t -catch_sigsys() -{ - longjmp(sigsys_buf, 1); -} - - -/*ARGSUSED*/ -void -dowarp(v, c) - Char **v; - struct command *c; -{ - int warp, oldwarp; - struct warpent *we; - void (*old_sigsys_handler) () = 0; - char *newwarp; - - if (setjmp(sigsys_buf)) { - signal(SIGSYS, old_sigsys_handler); - stderror(ERR_NAME | ERR_STRING, - CGETS(23, 8, "You're trapped in a universe you never made")); - return; - } - old_sigsys_handler = signal(SIGSYS, catch_sigsys); - - warp = getwarp(); - - v++; - if (*v == 0) { /* display warp value */ - if (warp < 0) - stderror(ERR_NAME | ERR_STRING, CGETS(23, 9, "Getwarp failed")); - we = getwarpbyvalue(warp); - if (we) - printf("%s\n", we->w_name); - else - printf("%d\n", warp); - } - else { /* set warp value */ - oldwarp = warp; - newwarp = short2str(*v); - if (Isdigit(*v[0])) - warp = atoi(newwarp); - else { - we = getwarpbyname(newwarp); - if (we) - warp = we->w_value; - else - warp = -1; - } - if ((warp < 0) || (warp >= WARP_MAXLINK)) - stderror(ERR_NAME | ERR_STRING, CGETS(23, 10, "Invalid warp")); - if ((setwarp(warp) < 0) || (getwarp() != warp)) { - (void) setwarp(oldwarp); - stderror(ERR_NAME | ERR_STRING, CGETS(23, 11, "Setwarp failed")); - } - } - signal(SIGSYS, old_sigsys_handler); - return; -} -#endif /* WARP */ - -/*** - *** Masscomp or HCX - ***/ -/* Added, DAS DEC-90. */ -#if defined(masscomp) || defined(_CX_UX) -/*ARGSUSED*/ -void -douniverse(v, c) - register Char **v; - struct command *c; -{ - register Char *cp = v[1]; - register Char *cp2; /* dunno how many elements v comes in with */ - char ubuf[100]; -#ifdef BSDSIGS - register sigmask_t omask = 0; -#endif /* BSDSIGS */ - - if (cp == 0) { - (void) getuniverse(ubuf); - xprintf("%s\n", ubuf); - } - else { - cp2 = v[2]; - if (cp2 == 0) { - if (*cp == '\0' || setuniverse(short2str(cp)) != 0) - stderror(ERR_NAME | ERR_STRING, CGETS(23, 12, "Illegal universe")); - } - else { - (void) getuniverse(ubuf); - if (*cp == '\0' || setuniverse(short2str(cp)) != 0) - stderror(ERR_NAME | ERR_STRING, CGETS(23, 12, "Illegal universe")); - if (setintr) -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGINT)) & ~sigmask(SIGINT); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - lshift(v, 2); - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse (SIGINT); -#endif /* BSDSIGS */ - reexecute(c); - (void) setuniverse(ubuf); - } - } -} -#endif /* masscomp || _CX_UX */ - -#if defined(_CX_UX) -/*ARGSUSED*/ -void -doatt(v, c) - register Char **v; - struct command *c; -{ - register Char *cp = v[1]; - char ubuf[100]; -#ifdef BSDSIGS - register sigmask_t omask = 0; -#endif /* BSDSIGS */ - - if (cp == 0) - (void) setuniverse("att"); - else { - (void) getuniverse(ubuf); - (void) setuniverse("att"); - if (setintr) -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGINT)) & ~sigmask(SIGINT); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - lshift(v, 1); - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse (SIGINT); -#endif /* BSDSIGS */ - reexecute(c); - (void) setuniverse(ubuf); - } -} - -/*ARGSUSED*/ -void -doucb(v, c) - register Char **v; - struct command *c; -{ - register Char *cp = v[1]; - char ubuf[100]; -#ifdef BSDSIGS - register sigmask_t omask = 0; -#endif /* BSDSIGS */ - - if (cp == 0) - (void) setuniverse("ucb"); - else { - (void) getuniverse(ubuf); - (void) setuniverse("ucb"); - if (setintr) -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGINT)) & ~sigmask(SIGINT); -#else /* !BSDSIGS */ - (void) sighold(SIGINT); -#endif /* BSDSIGS */ - lshift(v, 1); - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else /* !BSDSIGS */ - (void) sigrelse (SIGINT); -#endif /* BSDSIGS */ - reexecute(c); - (void) setuniverse(ubuf); - } -} -#endif /* _CX_UX */ - -#ifdef _SEQUENT_ -/* - * Compute the difference in process stats. - */ -void -pr_stat_sub(p2, p1, pr) - struct process_stats *p2, *p1, *pr; -{ - pr->ps_utime.tv_sec = p2->ps_utime.tv_sec - p1->ps_utime.tv_sec; - pr->ps_utime.tv_usec = p2->ps_utime.tv_usec - p1->ps_utime.tv_usec; - if (pr->ps_utime.tv_usec < 0) { - pr->ps_utime.tv_sec -= 1; - pr->ps_utime.tv_usec += 1000000; - } - pr->ps_stime.tv_sec = p2->ps_stime.tv_sec - p1->ps_stime.tv_sec; - pr->ps_stime.tv_usec = p2->ps_stime.tv_usec - p1->ps_stime.tv_usec; - if (pr->ps_stime.tv_usec < 0) { - pr->ps_stime.tv_sec -= 1; - pr->ps_stime.tv_usec += 1000000; - } - - pr->ps_maxrss = p2->ps_maxrss - p1->ps_maxrss; - pr->ps_pagein = p2->ps_pagein - p1->ps_pagein; - pr->ps_reclaim = p2->ps_reclaim - p1->ps_reclaim; - pr->ps_zerofill = p2->ps_zerofill - p1->ps_zerofill; - pr->ps_pffincr = p2->ps_pffincr - p1->ps_pffincr; - pr->ps_pffdecr = p2->ps_pffdecr - p1->ps_pffdecr; - pr->ps_swap = p2->ps_swap - p1->ps_swap; - pr->ps_syscall = p2->ps_syscall - p1->ps_syscall; - pr->ps_volcsw = p2->ps_volcsw - p1->ps_volcsw; - pr->ps_involcsw = p2->ps_involcsw - p1->ps_involcsw; - pr->ps_signal = p2->ps_signal - p1->ps_signal; - pr->ps_lread = p2->ps_lread - p1->ps_lread; - pr->ps_lwrite = p2->ps_lwrite - p1->ps_lwrite; - pr->ps_bread = p2->ps_bread - p1->ps_bread; - pr->ps_bwrite = p2->ps_bwrite - p1->ps_bwrite; - pr->ps_phread = p2->ps_phread - p1->ps_phread; - pr->ps_phwrite = p2->ps_phwrite - p1->ps_phwrite; -} - -#endif /* _SEQUENT_ */ - - -#ifdef NEEDmemset -/* This is a replacement for a missing memset function */ -ptr_t xmemset(loc, value, len) - ptr_t loc; - int len; - size_t value; -{ - char *ptr = (char *) loc; - - while (len--) - *ptr++ = value; - return loc; -} -#endif /* NEEDmemset */ - - -#ifdef NEEDmemmove -/* memmove(): - * This is the ANSI form of bcopy() with the arguments backwards... - * Unlike memcpy(), it handles overlaps between source and - * destination memory - */ -ptr_t -xmemmove(vdst, vsrc, len) - ptr_t vdst; - const ptr_t vsrc; - size_t len; -{ - const char *src = (const char *) vsrc; - char *dst = (char *) vdst; - - if (src == dst) - return vdst; - - if (src > dst) { - while (len--) - *dst++ = *src++; - } - else { - src += len; - dst += len; - while (len--) - *--dst = *--src; - } - return vdst; -} -#endif /* NEEDmemmove */ - - -#ifndef WINNT -#ifdef tcgetpgrp -int -xtcgetpgrp(fd) - int fd; -{ - int pgrp; - - /* ioctl will handle setting errno correctly. */ - if (ioctl(fd, TIOCGPGRP, (ioctl_t) & pgrp) < 0) - return (-1); - return (pgrp); -} - -/* - * XXX: tcsetpgrp is not a macro any more cause on some systems, - * pid_t is a short, but the ioctl() takes a pointer to int (pyr) - * Thanks to Simon Day (simon@pharaoh.cyborg.bt.co.uk) for pointing - * this out. - */ -int -xtcsetpgrp(fd, pgrp) - int fd, pgrp; -{ - return ioctl(fd, TIOCSPGRP, (ioctl_t) &pgrp); -} - -#endif /* tcgetpgrp */ -#endif /* WINNT */ - - -#ifdef YPBUGS -void -fix_yp_bugs() -{ - char *mydomain; - - extern int yp_get_default_domain __P((char **)); - /* - * PWP: The previous version assumed that yp domain was the same as the - * internet name domain. This isn't allways true. (Thanks to Mat Landau - * <mlandau@bbn.com> for the original version of this.) - */ - if (yp_get_default_domain(&mydomain) == 0) { /* if we got a name */ - extern void yp_unbind __P((const char *)); - - yp_unbind(mydomain); - } -} - -#endif /* YPBUGS */ - -#ifdef STRCOLLBUG -void -fix_strcoll_bug() -{ -#if defined(NLS) && !defined(NOSTRCOLL) - /* - * SunOS4 checks the file descriptor from openlocale() for <= 0 - * instead of == -1. Someone should tell sun that file descriptor 0 - * is valid! Our portable hack: open one so we call it with 0 used... - * We have to call this routine every time the locale changes... - * - * Of course it also tries to free the constant locale "C" it initially - * had allocated, with the sequence - * > setenv LANG "fr" - * > ls^D - * > unsetenv LANG - * But we are smarter than that and just print a warning message. - */ - int fd = -1; - static char *root = "/"; - - if (!didfds) - fd = open(root, O_RDONLY); - - (void) strcoll(root, root); - - if (fd != -1) - (void) close(fd); -#endif -} -#endif /* STRCOLLBUG */ - - -#ifdef OREO -#include <compat.h> -#endif /* OREO */ - -void -osinit() -{ -#ifdef OREO - set42sig(); - setcompat(getcompat() & ~COMPAT_EXEC); - sigignore(SIGIO); /* ignore SIGIO */ -#endif /* OREO */ - -#ifdef aiws - { - struct sigstack inst; - inst.ss_sp = (char *) xmalloc((size_t) 4192) + 4192; - inst.ss_onstack = 0; - sigstack(&inst, NULL); - } -#endif /* aiws */ - -#ifdef apollo - (void) isapad(); -#endif - -#ifdef _SX - /* - * kill(SIGCONT) problems, don't know what this syscall does - * [schott@rzg.mpg.de] - */ - syscall(151, getpid(), getpid()); -#endif /* _SX */ -} - -#ifdef strerror -char * -xstrerror(i) - int i; -{ - static char errbuf[128]; - - if (i >= 0 && i < sys_nerr) { - return sys_errlist[i]; - } else { - (void) xsnprintf(errbuf, sizeof(errbuf), - CGETS(23, 13, "Unknown Error: %d"), i); - return errbuf; - } -} -#endif /* strerror */ - -#ifdef gethostname -# if !defined(_MINIX) && !defined(__EMX__) && !defined(WINNT) -# include <sys/utsname.h> -# endif /* !_MINIX && !__EMX__ && !WINNT */ - -int -xgethostname(name, namlen) - char *name; - int namlen; -{ -# if !defined(_MINIX) && !defined(__EMX__) && !defined(WINNT) - int i, retval; - struct utsname uts; - - retval = uname(&uts); - -# ifdef DEBUG - xprintf(CGETS(23, 14, "sysname: %s\n"), uts.sysname); - xprintf(CGETS(23, 15, "nodename: %s\n"), uts.nodename); - xprintf(CGETS(23, 16, "release: %s\n"), uts.release); - xprintf(CGETS(23, 17, "version: %s\n"), uts.version); - xprintf(CGETS(23, 18, "machine: %s\n"), uts.machine); -# endif /* DEBUG */ - i = strlen(uts.nodename) + 1; - (void) strncpy(name, uts.nodename, i < namlen ? i : namlen); - - return retval; -# else /* !_MINIX && !__EMX__ */ - if (namlen > 0) { -# ifdef __EMX__ - (void) strncpy(name, "OS/2", namlen); -# else /* _MINIX */ - (void) strncpy(name, "minix", namlen); -# endif /* __EMX__ */ - name[namlen-1] = '\0'; - } - return(0); -#endif /* _MINIX && !__EMX__ */ -} /* end xgethostname */ -#endif /* gethostname */ - -#ifdef nice -# if defined(_MINIX) && defined(NICE) -# undef _POSIX_SOURCE /* redefined in <lib.h> */ -# undef _MINIX /* redefined in <lib.h> */ -# undef HZ /* redefined in <minix/const.h> */ -# include <lib.h> -# endif /* _MINIX && NICE */ -int -xnice(incr) - int incr; -{ -#if defined(_MINIX) && defined(NICE) - return callm1(MM, NICE, incr, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR); -#else - return /* incr ? 0 : */ 0; -#endif /* _MINIX && NICE */ -} /* end xnice */ -#endif /* nice */ - -#ifdef NEEDgetcwd -static char *strnrcpy __P((char *, char *, size_t)); - -/* xgetcwd(): - * Return the pathname of the current directory, or return - * an error message in pathname. - */ - -# ifdef hp9000s500 -/* - * From: Bernd Mohr <mohr@faui77.informatik.uni-erlangen.de> - * I also ported the tcsh to the HP9000 Series 500. This computer - * is a little bit different than the other HP 9000 computer. It has - * a HP Chip instead of a Motorola CPU and it is no "real" UNIX. It runs - * HP-UX which is emulated in top of a HP operating system. So, the last - * supported version of HP-UX is 5.2 on the HP9000s500. This has two - * consequences: it supports no job control and it has a filesystem - * without "." and ".." !!! - */ -char * -xgetcwd(pathname, pathlen) - char *pathname; - size_t pathlen; -{ - char pathbuf[MAXNAMLEN]; /* temporary pathname buffer */ - char *pnptr = &pathbuf[(sizeof pathbuf)-1]; /* pathname pointer */ - dev_t rdev; /* root device number */ - DIR *dirp = NULL; /* directory stream */ - ino_t rino; /* root inode number */ - off_t rsize; /* root size */ - struct direct *dir; /* directory entry struct */ - struct stat d, dd; /* file status struct */ - int serrno; - - *pnptr = '\0'; - (void) stat("/.", &d); - rdev = d.st_dev; - rino = d.st_ino; - rsize = d.st_size; - for (;;) { - if (stat(".", &d) == -1) { - (void) xsnprintf(pathname, pathlen, CGETS(23, 24, - "getcwd: Cannot stat \".\" (%s)"), strerror(errno)); - goto fail; - } - if (d.st_ino == rino && d.st_dev == rdev && d.st_size == rsize) - break; /* reached root directory */ - if ((dirp = opendir("..")) == NULL) { - (void) xsnprintf(pathname, pathlen, CGETS(23, 19, - "getcwd: Cannot open \"..\" (%s)"), strerror(errno)); - goto fail; - } - if (chdir("..") == -1) { - (void) xsnprintf(pathname, pathlen, CGETS(23, 20, - "getcwd: Cannot chdir to \"..\" (%s)"), strerror(errno)); - goto fail; - } - do { - if ((dir = readdir(dirp)) == NULL) { - (void) xsnprintf(pathname, pathlen, - CGETS(23, 21, "getcwd: Read error in \"..\" (%s)"), - strerror(errno)); - goto fail; - } - if (stat(dir->d_name, &dd) == -1) { - (void) xsnprintf(pathname, pathlen, - CGETS(23, 25, "getcwd: Cannot stat directory \"%s\" (%s)"), - dir->d_name, strerror(errno)); - goto fail; - } - } while (dd.st_ino != d.st_ino || - dd.st_dev != d.st_dev || - dd.st_size != d.st_size); - (void) closedir(dirp); - dirp = NULL; - pnptr = strnrcpy(dirp->d_name, pnptr, pnptr - pathbuf); - pnptr = strnrcpy("/", pnptr, pnptr - pathbuf); - } - - if (*pnptr == '\0') /* current dir == root dir */ - (void) strncpy(pathname, "/", pathlen); - else { - (void) strncpy(pathname, pnptr, pathlen); - pathname[pathlen - 1] = '\0'; - if (chdir(pnptr) == -1) { - (void) xsnprintf(pathname, MAXPATHLEN, CGETS(23, 22, - "getcwd: Cannot change back to \".\" (%s)"), - strerror(errno)); - return NULL; - } - } - return pathname; - -fail: - serrno = errno; - (void) chdir(strnrcpy(".", pnptr, pnptr - pathbuf)); - errno = serrno; - return NULL; -} - -# else /* ! hp9000s500 */ - -# if (SYSVREL != 0 && !defined(d_fileno)) || defined(_VMS_POSIX) || defined(WINNT) -# define d_fileno d_ino -# endif - -char * -xgetcwd(pathname, pathlen) - char *pathname; - size_t pathlen; -{ - DIR *dp; - struct dirent *d; - - struct stat st_root, st_cur, st_next, st_dotdot; - char pathbuf[MAXPATHLEN], nextpathbuf[MAXPATHLEN * 2]; - char *pathptr, *nextpathptr, *cur_name_add; - int save_errno = 0; - - /* find the inode of root */ - if (stat("/", &st_root) == -1) { - (void) xsnprintf(pathname, pathlen, CGETS(23, 23, - "getcwd: Cannot stat \"/\" (%s)"), - strerror(errno)); - return NULL; - } - pathbuf[MAXPATHLEN - 1] = '\0'; - pathptr = &pathbuf[MAXPATHLEN - 1]; - nextpathbuf[MAXPATHLEN - 1] = '\0'; - cur_name_add = nextpathptr = &nextpathbuf[MAXPATHLEN - 1]; - - /* find the inode of the current directory */ - if (lstat(".", &st_cur) == -1) { - (void) xsnprintf(pathname, pathlen, CGETS(23, 24, - "getcwd: Cannot stat \".\" (%s)"), - strerror(errno)); - return NULL; - } - nextpathptr = strnrcpy(nextpathptr, "../", nextpathptr - nextpathbuf); - - /* Descend to root */ - for (;;) { - - /* look if we found root yet */ - if (st_cur.st_ino == st_root.st_ino && - DEV_DEV_COMPARE(st_cur.st_dev, st_root.st_dev)) { - (void) strncpy(pathname, *pathptr != '/' ? "/" : pathptr, pathlen); - pathname[pathlen - 1] = '\0'; - return pathname; - } - - /* open the parent directory */ - if (stat(nextpathptr, &st_dotdot) == -1) { - (void) xsnprintf(pathname, pathlen, CGETS(23, 25, - "getcwd: Cannot stat directory \"%s\" (%s)"), - nextpathptr, strerror(errno)); - return NULL; - } - if ((dp = opendir(nextpathptr)) == NULL) { - (void) xsnprintf(pathname, pathlen, CGETS(23, 26, - "getcwd: Cannot open directory \"%s\" (%s)"), - nextpathptr, strerror(errno)); - return NULL; - } - - /* look in the parent for the entry with the same inode */ - if (DEV_DEV_COMPARE(st_dotdot.st_dev, st_cur.st_dev)) { - /* Parent has same device. No need to stat every member */ - for (d = readdir(dp); d != NULL; d = readdir(dp)) { -#ifdef __clipper__ - if (((unsigned long)d->d_fileno & 0xffff) == st_cur.st_ino) - break; -#else - if (d->d_fileno == st_cur.st_ino) - break; -#endif - } - } - else { - /* - * Parent has a different device. This is a mount point so we - * need to stat every member - */ - for (d = readdir(dp); d != NULL; d = readdir(dp)) { - if (ISDOT(d->d_name) || ISDOTDOT(d->d_name)) - continue; - (void)strncpy(cur_name_add, d->d_name, - (size_t) (&nextpathbuf[sizeof(nextpathbuf) - 1] - cur_name_add)); - if (lstat(nextpathptr, &st_next) == -1) { - /* - * We might not be able to stat() some path components - * if we are using afs, but this is not an error as - * long as we find the one we need; we also save the - * first error to report it if we don't finally succeed. - */ - if (save_errno == 0) - save_errno = errno; - continue; - } - /* check if we found it yet */ - if (st_next.st_ino == st_cur.st_ino && - DEV_DEV_COMPARE(st_next.st_dev, st_cur.st_dev)) - break; - } - } - if (d == NULL) { - (void) xsnprintf(pathname, pathlen, CGETS(23, 27, - "getcwd: Cannot find \".\" in \"..\" (%s)"), - strerror(save_errno ? save_errno : ENOENT)); - (void) closedir(dp); - return NULL; - } - else - save_errno = 0; - st_cur = st_dotdot; - pathptr = strnrcpy(pathptr, d->d_name, pathptr - pathbuf); - pathptr = strnrcpy(pathptr, "/", pathptr - pathbuf); - nextpathptr = strnrcpy(nextpathptr, "../", nextpathptr - nextpathbuf); - *cur_name_add = '\0'; - (void) closedir(dp); - } -} /* end getcwd */ -# endif /* hp9000s500 */ - -/* strnrcpy(): - * Like strncpy, going backwards and returning the new pointer - */ -static char * -strnrcpy(ptr, str, siz) - register char *ptr, *str; - size_t siz; -{ - register int len = strlen(str); - if (siz == 0) - return ptr; - - while (len && siz--) - *--ptr = str[--len]; - - return (ptr); -} /* end strnrcpy */ -#endif /* getcwd */ - -#ifdef apollo -/*** - *** Domain/OS - ***/ -#include <apollo/base.h> -#include <apollo/loader.h> -#include <apollo/error.h> - - -static char * -apperr(st) - status_$t *st; -{ - static char buf[BUFSIZE]; - short e_subl, e_modl, e_codel; - error_$string_t e_sub, e_mod, e_code; - - error_$get_text(*st, e_sub, &e_subl, e_mod, &e_modl, e_code, &e_codel); - e_sub[e_subl] = '\0'; - e_code[e_codel] = '\0'; - e_mod[e_modl] = '\0'; - (void) xsnprintf(buf, sizeof(buf), "%s (%s/%s)", e_code, e_sub, e_mod); - - return(buf); -} - -static int -llib(s) - Char *s; -{ - short len = Strlen(s); - status_$t st; - char *t; - - loader_$inlib(t = short2str(s), len, &st); - if (st.all != status_$ok) - stderror(ERR_SYSTEM, t, apperr(&st)); -} - -/*ARGSUSED*/ -void -doinlib(v, c) - Char **v; - struct command *c; -{ - setname(short2str(*v++)); - gflag = 0, tglob(v); - if (gflag) { - v = globall(v); - if (v == 0) - stderror(ERR_NAME | ERR_NOMATCH); - } - else { - v = gargv = saveblk(v); - trim(v); - } - - while (v && *v) - llib(*v++); - if (gargv) - blkfree(gargv), gargv = 0; -} - -int -getv(v) - Char *v; -{ - if (eq(v, STRbsd43)) - return(1); - else if (eq(v, STRsys53)) - return(0); - else - stderror(ERR_NAME | ERR_SYSTEM, short2str(v), - CGETS(23, 28, "Invalid system type")); - /*NOTREACHED*/ - return(0); -} - -/*ARGSUSED*/ -void -dover(v, c) - Char **v; - struct command *c; -{ - Char *p; - - setname(short2str(*v++)); - if (!*v) { - if (!(p = tgetenv(STRSYSTYPE))) - stderror(ERR_NAME | ERR_STRING, - CGETS(23, 29, "System type is not set")); - xprintf("%S\n", p); - } - else { - tsetenv(STRSYSTYPE, getv(*v) ? STRbsd43 : STRsys53); - dohash(NULL, NULL); - } -} - -/* - * Many thanks to rees@citi.umich.edu (Jim Rees) and - * mathys@ssdt-tempe.sps.mot.com (Yves Mathys) - * For figuring out how to do this... I could have never done - * it without their help. - */ -typedef short enum { - name_$wdir_type, - name_$ndir_type, - name_$node_dir_type, -} name_$dir_type_t; - -/*ARGSUSED*/ -void -dorootnode(v, c) - Char **v; - struct command *c; -{ - name_$dir_type_t dirtype = name_$node_dir_type; - uid_$t uid; - status_$t st; - char *name; - short namelen; - - setname(short2str(*v++)); - - name = short2str(*v); - namelen = strlen(name); - - name_$resolve(name, &namelen, &uid, &st); - if (st.all != status_$ok) - stderror(ERR_SYSTEM, name, apperr(&st)); - namelen = 0; - name_$set_diru(&uid, "", &namelen, &dirtype, &st); - if (st.all != status_$ok) - stderror(ERR_SYSTEM, name, apperr(&st)); - dohash(NULL, NULL); -} - -int -isapad() -{ - static int res = -1; - static status_$t st; - - if (res == -1) { - int strm; - if (isatty(0)) - strm = 0; - if (isatty(1)) - strm = 1; - if (isatty(2)) - strm = 2; - else { - res = 0; - st.all = status_$ok; - return(res); - } - res = stream_$isavt(&strm, &st); - res = res ? 1 : 0; - } - else { - if (st.all != status_$ok) - stderror(ERR_SYSTEM, "stream_$isavt", apperr(&st)); - } - return(res); -} -#endif diff --git a/contrib/tcsh/tc.os.h b/contrib/tcsh/tc.os.h deleted file mode 100644 index fcd4ade46366..000000000000 --- a/contrib/tcsh/tc.os.h +++ /dev/null @@ -1,754 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.os.h,v 3.82 1999/02/06 15:19:03 christos Exp $ */ -/* - * tc.os.h: Shell os dependent defines - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_tc_os -#define _h_tc_os - -#ifndef WINNT -#define NEEDstrerror /* Too hard to find which systems have it */ -#endif /* WINNT */ - - -#ifdef notdef -/* - * for SVR4 and linux we used to fork pipelines backwards. - * This should not be needed any more. - * more info in sh.sem.c - */ -# define BACKPIPE -#endif /* notdef */ - -#ifdef _VMS_POSIX -# ifndef NOFILE -# define NOFILE 64 -# endif /* NOFILE */ -# define nice(a) setprio((getpid()),a) -# undef NEEDstrerror /* won't get sensible error messages otherwise */ -# define NEEDgethostname -# include <sys/time.h> /* for time stuff in tc.prompt.c */ -# include <limits.h> -#endif /* atp vmsposix */ - -#if defined(DECOSF1) || defined(HPUXVERSION) -# include <sys/signal.h> -#endif /* DECOSF1 || HPUXVERSION */ - -#ifdef DECOSF1 -# include <sys/ioctl.h> -#endif /* DECOSF1 */ - -#if defined(OPEN_MAX) && !defined(NOFILE) -# define NOFILE OPEN_MAX -#endif /* OPEN_MAX && !NOFILE */ - -#if defined(USR_NFDS) && !defined(NOFILE) -# define NOFILE USR_NFDS -#endif /* USR_NFDS && !NOFILE */ - -#ifndef NOFILE -# define NOFILE 256 -#endif /* NOFILE */ - -#if defined(linux) || defined(__NetBSD__) || defined(__FreeBSD__) || SYSVREL >= 4 -# undef NEEDstrerror -#endif /* linux || __NetBSD__ || __FreeBSD__ || SYSVREL >= 4 */ - -#if !defined(pyr) && !defined(sinix) -/* Pyramid's cpp complains about the next line */ -# if defined(BSD) && BSD >= 199306 -# undef NEEDstrerror -# endif /* BSD && BSD >= 199306 */ -#endif /* pyr */ - -#ifdef OREO -# include <sys/time.h> -# ifdef notdef - /* Don't include it, because it defines things we don't really have */ -# include <sys/resource.h> -# endif /* notdef */ -# ifdef POSIX -# include <sys/tty.h> -# include <termios.h> -# endif /* POSIX */ -#endif /* OREO */ - -#ifndef NCARGS -# ifdef _SC_ARG_MAX -# define NCARGS sysconf(_SC_ARG_MAX) -# else /* !_SC_ARG_MAX */ -# ifdef ARG_MAX -# define NCARGS ARG_MAX -# else /* !ARG_MAX */ -# ifdef _MINIX -# define NCARGS 80 -# else /* !_MINIX */ -# define NCARGS 1024 -# endif /* _MINIX */ -# endif /* ARG_MAX */ -# endif /* _SC_ARG_MAX */ -#endif /* NCARGS */ - -#ifdef convex -# include <sys/dmon.h> -#endif /* convex */ - -#ifdef titan -extern int end; -#endif /* titan */ - -#ifdef hpux -# ifdef lint -/* - * Hpux defines struct ucred, in <sys/user.h>, but if I include that - * then I need to include the *world* - * [all this to pass lint cleanly!!!] - * so I define struct ucred here... - */ -struct ucred { - int foo; -}; -# endif /* lint */ - -/* - * hpux 7.0 does not define it - */ -# ifndef CSUSP -# define CSUSP 032 -# endif /* CSUSP */ - -# include <signal.h> -# if !defined(hp9000s500) && !(defined(SIGRTMAX) || defined(SIGRTMIN)) -/* - * hpux < 7 - */ -# include <sys/bsdtty.h> -# endif /* !hp9000s500 && !(SIGRTMAX || SIGRTMIN) */ - -# ifndef POSIX -# ifdef BSDJOBS -# define getpgrp(a) getpgrp2(a) -# define setpgrp(a, b) setpgrp2(a, b) -# endif /* BSDJOBS */ -# endif /* POSIX */ -#endif /* hpux */ - -/* - * ISC does not define CSUSP - */ -#ifdef ISC -# ifndef CSUSP -# define CSUSP 032 -# endif /* CSUSP */ -# if defined(POSIX) && !defined(TIOCGWINSZ) -/* - * ISC defines this only in termio.h. If we are using POSIX and include - * termios.h, then we define it ourselves so that window resizing works. - */ -# define TIOCGWINSZ (('T'<<8)|104) -# endif /* POSIX && !TIOCGWINSZ */ -#endif /* ISC */ - -#ifdef ISC202 -# undef TIOCGWINSZ -#endif /* ISC202 */ - -/* - * XXX: This will be changed soon to - * #if (SYSVREL > 0) && defined(TIOCGWINSZ) - * If that breaks on your machine, let me know. - * - * It would break on linux, where all this is - * defined in <termios.h>. Wrapper added. - */ -#if !defined(linux) && !defined(_VMS_POSIX) -# if defined(INTEL) || defined(u3b2) || defined (u3b5) || defined(ub15) || defined(u3b20d) || defined(ISC) || defined(SCO) || defined(tower32) -# ifdef TIOCGWINSZ -/* - * for struct winsiz - */ -# include <sys/stream.h> -# include <sys/ptem.h> -# endif /* TIOCGWINSZ */ -# ifndef ODT -# define NEEDgethostname -# endif /* ODT */ -# endif /* INTEL || u3b2 || u3b5 || ub15 || u3b20d || ISC || SCO || tower32 */ -#endif /* !linux && !_VMS_POSIX */ - -#if defined(UNIXPC) || defined(COHERENT) -# define NEEDgethostname -#endif /* UNIXPC || COHERENT */ - -#ifdef IRIS4D -# include <sys/time.h> -# include <sys/resource.h> -# ifndef POSIX -/* - * BSDsetpgrp() and BSDgetpgrp() are BSD versions of setpgrp, etc. - */ -# define setpgrp BSDsetpgrp -# define getpgrp BSDgetpgrp -# endif /* POSIX */ -#endif /* IRIS4D */ - -/* - * For some versions of system V software, specially ones that use the - * Wollongong Software TCP/IP, the FIOCLEX, FIONCLEX, FIONBIO calls - * might not work correctly for file descriptors [they work only for - * sockets]. So we try to use first the fcntl() and we only use the - * ioctl() form, only if we don't have the fcntl() one. - * - * From: scott@craycos.com (Scott Bolte) - */ -#ifndef WINNT -# ifdef F_SETFD -# define close_on_exec(fd, v) fcntl((fd), F_SETFD, v) -# else /* !F_SETFD */ -# ifdef FIOCLEX -# define close_on_exec(fd, v) ioctl((fd), ((v) ? FIOCLEX : FIONCLEX), NULL) -# else /* !FIOCLEX */ -# define close_on_exec(fd, v) /* Nothing */ -# endif /* FIOCLEX */ -# endif /* F_SETFD */ -#else /* WINNT */ -# define close_on_exec(fd, v) nt_close_on_exec((fd),(v)) -#endif /* !WINNT */ - -/* - * Stat - */ -#ifdef ISC -/* these are not defined for _POSIX_SOURCE under ISC 2.2 */ -# ifndef S_IFMT -# define S_IFMT 0170000 /* type of file */ -# define S_IFDIR 0040000 /* directory */ -# define S_IFCHR 0020000 /* character special */ -# define S_IFBLK 0060000 /* block special */ -# define S_IFREG 0100000 /* regular */ -# define S_IFIFO 0010000 /* fifo */ -# define S_IFNAM 0050000 /* special named file */ -# ifndef ISC202 -# define S_IFLNK 0120000 /* symbolic link */ -# endif /* ISC202 */ -# endif /* S_IFMT */ -#endif /* ISC */ - -#if defined(uts) || defined(UTekV) || defined(sysV88) -/* - * The uts 2.1.2 macros (Amdahl) are busted! - * You should fix <sys/stat.h>, cause other programs will break too! - * - * From: creiman@ncsa.uiuc.edu (Charlie Reiman) - */ - -/* - * The same applies to Motorola MPC (System V/88 R32V2, UTekV 3.2e) - * workstations, the stat macros are broken. - * Kaveh Ghazi (ghazi@caip.rutgers.edu) - */ -# undef S_ISDIR -# undef S_ISCHR -# undef S_ISBLK -# undef S_ISREG -# undef S_ISFIFO -# undef S_ISNAM -# undef S_ISLNK -# undef S_ISSOCK -#endif /* uts || UTekV || sysV88 */ - -#ifdef S_IFMT -# if !defined(S_ISDIR) && defined(S_IFDIR) -# define S_ISDIR(a) (((a) & S_IFMT) == S_IFDIR) -# endif /* ! S_ISDIR && S_IFDIR */ -# if !defined(S_ISCHR) && defined(S_IFCHR) -# define S_ISCHR(a) (((a) & S_IFMT) == S_IFCHR) -# endif /* ! S_ISCHR && S_IFCHR */ -# if !defined(S_ISBLK) && defined(S_IFBLK) -# define S_ISBLK(a) (((a) & S_IFMT) == S_IFBLK) -# endif /* ! S_ISBLK && S_IFBLK */ -# if !defined(S_ISREG) && defined(S_IFREG) -# define S_ISREG(a) (((a) & S_IFMT) == S_IFREG) -# endif /* ! S_ISREG && S_IFREG */ -# if !defined(S_ISFIFO) && defined(S_IFIFO) -# define S_ISFIFO(a) (((a) & S_IFMT) == S_IFIFO) -# endif /* ! S_ISFIFO && S_IFIFO */ -# if !defined(S_ISNAM) && defined(S_IFNAM) -# define S_ISNAM(a) (((a) & S_IFMT) == S_IFNAM) -# endif /* ! S_ISNAM && S_IFNAM */ -# if !defined(S_ISLNK) && defined(S_IFLNK) -# define S_ISLNK(a) (((a) & S_IFMT) == S_IFLNK) -# endif /* ! S_ISLNK && S_IFLNK */ -# if !defined(S_ISSOCK) && defined(S_IFSOCK) -# define S_ISSOCK(a) (((a) & S_IFMT) == S_IFSOCK) -# endif /* ! S_ISSOCK && S_IFSOCK */ -#endif /* S_IFMT */ - -#ifdef tower32 -/* The header files lie; we really don't have symlinks */ -# undef S_ISLNK -# undef S_IFLNK -#endif /* tower32 */ - -#ifndef S_IREAD -# define S_IREAD 0000400 -#endif /* S_IREAD */ -#ifndef S_IROTH -# define S_IROTH (S_IREAD >> 6) -#endif /* S_IROTH */ -#ifndef S_IRGRP -# define S_IRGRP (S_IREAD >> 3) -#endif /* S_IRGRP */ -#ifndef S_IRUSR -# define S_IRUSR S_IREAD -#endif /* S_IRUSR */ - -#ifndef S_IWRITE -# define S_IWRITE 0000200 -#endif /* S_IWRITE */ -#ifndef S_IWOTH -# define S_IWOTH (S_IWRITE >> 6) -#endif /* S_IWOTH */ -#ifndef S_IWGRP -# define S_IWGRP (S_IWRITE >> 3) -#endif /* S_IWGRP */ -#ifndef S_IWUSR -# define S_IWUSR S_IWRITE -#endif /* S_IWUSR */ - -#ifndef S_IEXEC -# define S_IEXEC 0000100 -#endif /* S_IEXEC */ -#ifndef S_IXOTH -# define S_IXOTH (S_IEXEC >> 6) -#endif /* S_IXOTH */ -#ifndef S_IXGRP -# define S_IXGRP (S_IEXEC >> 3) -#endif /* S_IXGRP */ -#ifndef S_IXUSR -# define S_IXUSR S_IEXEC -#endif /* S_IXUSR */ - -#ifndef S_ISUID -# define S_ISUID 0004000 /* setuid */ -#endif /* S_ISUID */ -#ifndef S_ISGID -# define S_ISGID 0002000 /* setgid */ -#endif /* S_ISGID */ -#ifndef S_ISVTX -# define S_ISVTX 0001000 /* sticky */ -#endif /* S_ISVTX */ -#ifndef S_ENFMT -# define S_ENFMT S_ISGID /* record locking enforcement flag */ -#endif /* S_ENFMT */ - -/* the following macros are for POSIX conformance */ -#ifndef S_IRWXU -# define S_IRWXU (S_IRUSR | S_IWUSR | S_IXUSR) -#endif /* S_IRWXU */ -#ifndef S_IRWXG -# define S_IRWXG (S_IRGRP | S_IWGRP | S_IXGRP) -#endif /* S_IRWXG */ -#ifndef S_IRWXO -# define S_IRWXO (S_IROTH | S_IWOTH | S_IXOTH) -#endif /* S_IRWXO */ - -/* - * Access() - */ -#ifndef F_OK -# define F_OK 0 -#endif /* F_OK */ -#ifndef X_OK -# define X_OK 1 -#endif /* X_OK */ -#ifndef W_OK -# define W_OK 2 -#endif /* W_OK */ -#ifndef R_OK -# define R_OK 4 -#endif /* R_OK */ - -/* - * Open() - */ -#ifndef O_RDONLY -# define O_RDONLY 0 -#endif /* O_RDONLY */ -#ifndef O_WRONLY -# define O_WRONLY 1 -#endif /* O_WRONLY */ -#ifndef O_RDWR -# define O_RDWR 2 -#endif /* O_RDWR */ - -/* - * Lseek() - */ -#ifndef L_SET -# ifdef SEEK_SET -# define L_SET SEEK_SET -# else /* !SEEK_SET */ -# define L_SET 0 -# endif /* SEEK_SET */ -#endif /* L_SET */ -#ifndef L_INCR -# ifdef SEEK_CUR -# define L_INCR SEEK_CUR -# else /* !SEEK_CUR */ -# define L_INCR 1 -# endif /* SEEK_CUR */ -#endif /* L_INCR */ -#ifndef L_XTND -# ifdef SEEK_END -# define L_XTND SEEK_END -# else /* !SEEK_END */ -# define L_XTND 2 -# endif /* SEEK_END */ -#endif /* L_XTND */ - -#ifdef _SEQUENT_ -# define NEEDgethostname -#endif /* _SEQUENT_ */ - -#if defined(BSD) && defined(POSIXJOBS) && !defined(BSD4_4) && !defined(__hp_osf) -# define setpgid(pid, pgrp) setpgrp(pid, pgrp) -#endif /* BSD && POSIXJOBS && && !BSD4_4 && !__hp_osf */ - -#if defined(BSDJOBS) && !(defined(POSIX) && defined(POSIXJOBS)) -# if !defined(_AIX370) && !defined(_AIXPS2) -# define setpgid(pid, pgrp) setpgrp(pid, pgrp) -# endif /* !_AIX370 && !_AIXPS2 */ -# define NEEDtcgetpgrp -#endif /* BSDJOBS && !(POSIX && POSIXJOBS) */ - -#ifdef RENO -/* - * RENO has this broken. It is fixed on 4.4BSD - */ -# define NEEDtcgetpgrp -#endif /* RENO */ - -#ifdef DGUX -# define setpgrp(a, b) setpgrp2(a, b) -# define getpgrp(a) getpgrp2(a) -#endif /* DGUX */ - -#ifdef SXA -# ifndef _BSDX_ -/* - * Only needed in the system V environment. - */ -# define setrlimit bsd_setrlimit -# define getrlimit bsd_getrlimit -# endif /* _BSDX_ */ -#endif /* SXA */ - -#if defined(_MINIX) || defined(__EMX__) -# define NEEDgethostname -# define NEEDnice -# define HAVENOLIMIT -/* - * Minix does not have these, so... - */ -# define getpgrp getpid -#endif /* _MINIX || __EMX__ */ - -#ifdef __EMX__ -/* XXX: How can we get the tty name in emx? */ -# define ttyname(fd) (isatty(fd) ? "/dev/tty" : NULL) -#endif /* __EMX__ */ - -#ifndef POSIX -# define mygetpgrp() getpgrp(0) -#else /* POSIX */ -# if (defined(BSD) && !defined(BSD4_4)) || defined(SUNOS4) || defined(IRIS4D) || defined(DGUX) || defined(HPRT) -# define mygetpgrp() getpgrp(0) -# else /* !((BSD && !BSD4_4) || SUNOS4 || IRIS4D || DGUX || HPRT) */ -# define mygetpgrp() getpgrp() -# endif /* (BSD && BSD4_4) || SUNOS4 || IRISD || DGUX || HPRT */ -#endif /* POSIX */ - - -#if !defined(SOLARIS2) && !defined(sinix) && !defined(BSD4_4) && !defined(WINNT) -# if (SYSVREL > 0 && !defined(OREO) && !defined(sgi) && !defined(linux) && !defined(sinix) && !defined(_AIX) &&!defined(_UWIN)) || defined(NeXT) -# define NEEDgetcwd -# endif /* (SYSVREL > 0 && !OREO && !sgi && !linux && !sinix && !_AIX && !_UWIN) || NeXT */ -#endif - -#ifndef S_IFLNK -# define lstat stat -#endif /* S_IFLNK */ - - -#if defined(BSDTIMES) && !defined(_SEQUENT_) -typedef struct timeval timeval_t; -#endif /* BSDTIMES && ! _SEQUENT_ */ - -#ifdef NeXT -/* - * From Tony_Mason@transarc.com, override NeXT's malloc stuff. - */ -# define malloc tcsh_malloc -# define calloc tcsh_calloc -# define realloc tcsh_realloc -# define free tcsh_free -#endif /* NeXT */ - -#if !defined(BSD4_4) && !defined(__linux__) && !defined(__hpux) && !defined(sgi) -#ifndef NEEDgethostname -extern int gethostname __P((char *, int)); -#endif /* NEEDgethostname */ -#endif /* !BDS4_4 && !__linux__ && !__hpux && !sgi */ - -#if !defined(POSIX) || defined(SUNOS4) || defined(UTekV) || defined(sysV88) -extern time_t time(); -extern char *getenv(); -extern int atoi(); -# ifndef __EMX__ -extern char *ttyname(); -# endif /* __EMX__ */ - -# if defined(SUNOS4) -# ifndef toupper -extern int toupper __P((int)); -# endif /* toupper */ -# ifndef tolower -extern int tolower __P((int)); -# endif /* tolower */ -extern caddr_t sbrk __P((int)); -# if SYSVREL == 0 && !defined(__lucid) -extern int qsort(); -# endif /* SYSVREL == 0 && !__lucid */ -# else /* !SUNOS4 */ -# ifndef WINNT -# ifndef hpux -# if __GNUC__ != 2 -extern int abort(); -# endif /* __GNUC__ != 2 */ -# ifndef fps500 -extern int qsort(); -# endif /* !fps500 */ -# else /* !hpux */ -extern void abort(); -extern void qsort(); -# endif /* hpux */ -# endif /* !WINNT */ -# endif /* SUNOS4 */ -#ifndef _CX_UX -extern void perror(); -#endif - -# ifdef BSDSIGS -# if defined(_AIX370) || defined(MACH) || defined(NeXT) || defined(_AIXPS2) || defined(ardent) || defined(SUNOS4) || defined(HPBSD) || defined(__MACHTEN__) -extern int sigvec(); -extern int sigpause(); -# else /* !(_AIX370 || MACH || NeXT || _AIXPS2 || ardent || SUNOS4 || HPBSD) */ -# if (!defined(apollo) || !defined(__STDC__)) && !defined(__DGUX__) && !defined(fps500) -extern sigret_t sigvec(); -#ifndef _CX_UX -extern void sigpause(); -#endif /* _CX_UX */ -# endif /* (!apollo || !__STDC__) && !__DGUX__ && !fps500 */ -# endif /* _AIX370 || MACH || NeXT || _AIXPS2 || ardent || SUNOS4 || HPBSD */ -extern sigmask_t sigblock(); -extern sigmask_t sigsetmask(); -# endif /* BSDSIGS */ - -# ifndef killpg -extern int killpg(); -# endif /* killpg */ - -# ifndef lstat -extern int lstat(); -# endif /* lstat */ - -# ifdef BSD -extern uid_t getuid(), geteuid(); -extern gid_t getgid(), getegid(); -# endif /* BSD */ - -# ifdef SYSMALLOC -extern memalign_t malloc(); -extern memalign_t realloc(); -extern memalign_t calloc(); -extern void free(); -# endif /* SYSMALLOC */ - -# ifdef BSDTIMES -extern int getrlimit(); -extern int setrlimit(); -extern int getrusage(); -extern int gettimeofday(); -# endif /* BSDTIMES */ - -# if defined(NLS) && !defined(NOSTRCOLL) && !defined(NeXT) -extern int strcoll(); -# endif /* NLS && !NOSTRCOLL && !NeXT */ - -# ifdef BSDJOBS -# ifdef BSDTIMES -# ifdef __MACHTEN__ -extern pid_t wait3(); -# else -# ifndef HPBSD -extern int wait3(); -# endif /* HPBSD */ -# endif /* __MACHTEN__ */ -# else /* !BSDTIMES */ -# if !defined(POSIXJOBS) && !defined(_SEQUENT_) -extern int wait3(); -# else /* POSIXJOBS || _SEQUENT_ */ -extern int waitpid(); -# endif /* POSIXJOBS || _SEQUENT_ */ -# endif /* BSDTIMES */ -# else /* !BSDJOBS */ -# if SYSVREL < 3 -extern int ourwait(); -# else /* SYSVREL >= 3 */ -extern int wait(); -# endif /* SYSVREL < 3 */ -# endif /* BSDJOBS */ - -# ifdef BSDNICE -extern int setpriority(); -# else /* !BSDNICE */ -extern int nice(); -# endif /* BSDNICE */ - -# if (!defined(fps500) && !defined(apollo) && !defined(__lucid) && !defined(HPBSD) && !defined(DECOSF1)) -extern void setpwent(); -extern void endpwent(); -# endif /* !fps500 && !apollo && !__lucid && !HPBSD && !DECOSF1 */ - -# ifndef __STDC__ -extern struct passwd *getpwuid(), *getpwnam(), *getpwent(); -# ifdef PW_SHADOW -extern struct spwd *getspnam(), *getspent(); -# endif /* PW_SHADOW */ -# ifdef PW_AUTH -extern struct authorization *getauthuid(); -# endif /* PW_AUTH */ -# endif /* __STDC__ */ - -# ifndef getcwd -extern char *getcwd(); -# endif /* getcwd */ - -#else /* POSIX || !SUNOS4 || !UTekV || !sysV88 */ - -# if (defined(SUNOS4) && !defined(__GNUC__)) || defined(_IBMR2) || defined(_IBMESA) -extern char *getvwd(); -# endif /* (SUNOS4 && ! __GNUC__) || _IBMR2 || _IBMESA */ - -# ifdef SCO -extern char *ttyname(); -# endif /* SCO */ - -# ifdef __clipper__ -extern char *ttyname(); -# endif /* __clipper__ */ - -#endif /* !POSIX || SUNOS4 || UTekV || sysV88 */ - -#if defined(SUNOS4) && __GNUC__ == 2 -/* - * Somehow these are missing - */ -extern int ioctl __P((int, int, ...)); -extern int readlink __P((const char *, char *, size_t)); -extern void setgrent __P((void)); -extern void endgrent __P((void)); -# ifdef REMOTEHOST -# ifndef _SOCKLEN_T /* Avoid Solaris 2.7 bogosity. */ -struct sockaddr; -extern int getpeername __P((int, struct sockaddr *, int *)); -# endif /* _SOCKLEN_T */ -# endif /* REMOTEHOST */ -#endif /* SUNOS4 && __GNUC__ == 2 */ - -#if (defined(BSD) && !defined(BSD4_4)) || defined(SUNOS4) -# if defined(__alpha) && defined(__osf__) && DECOSF1 < 200 -extern void bcopy __P((const void *, void *, size_t)); -# define memmove(a, b, c) (bcopy((char *) (b), (char *) (a), (int) (c)), a) -# endif /* __alpha && __osf__ && DECOSF1 < 200 */ -#endif /* (BSD && !BSD4_4) || SUNOS4 */ - -#if !defined(hpux) && !defined(COHERENT) && ((SYSVREL < 4) || defined(_SEQUENT_)) && !defined(BSD4_4) && !defined(memmove) -# define NEEDmemmove -#endif /* !hpux && !COHERENT && (SYSVREL < 4 || _SEQUENT_) && !BSD4_4 && !memmove */ - -#if defined(UTek) || defined(pyr) -# define NEEDmemset -#else /* !UTek && !pyr */ -# ifdef SUNOS4 -# include <memory.h> /* memset should be declared in <string.h> but isn't */ -# endif /* SUNOS4 */ -#endif /* UTek || pyr */ - -#if SYSVREL == 4 -# ifdef REMOTEHOST -/* Irix6 defines getpeername(int, void *, int *) which conflicts with - the definition below. */ -# if !defined(__sgi) && !defined(_OSD_POSIX) -# ifndef _SOCKLEN_T /* Avoid Solaris 2.7 bogosity. */ -struct sockaddr; -extern int getpeername __P((int, struct sockaddr *, int *)); -# endif /* _SOCKLEN_T */ -# endif /* !__sgi && !_OSD_POSIX */ -# endif /* REMOTEHOST */ -# ifndef BSDTIMES -extern int getrlimit __P((int, struct rlimit *)); -extern int setrlimit __P((int, const struct rlimit *)); -# endif /* !BSDTIMES */ -# if !defined(IRIS4D) && !defined(SOLARIS2) -extern int wait3(); /* I think some bizarre systems still need this */ -# endif /* !IRIS4D && !SOLARIS2 */ -# if defined(SOLARIS2) -# undef NEEDstrerror -extern char *strerror __P((int)); -# endif /* SOLARIS2 */ -#endif /* SYSVREL == 4 */ - -#if defined(__alpha) && defined(__osf__) && DECOSF1 < 200 -/* These are ok for 1.3, but conflict with the header files for 2.0 */ -extern int gethostname __P((char *, int)); -extern char *sbrk __P((ssize_t)); -extern int ioctl __P((int, unsigned long, char *)); -extern pid_t vfork __P((void)); -extern int killpg __P((pid_t, int)); -#endif /* __osf__ && __alpha && DECOSF1 < 200 */ - -#endif /* _h_tc_os */ diff --git a/contrib/tcsh/tc.printf.c b/contrib/tcsh/tc.printf.c deleted file mode 100644 index d2b044ea7640..000000000000 --- a/contrib/tcsh/tc.printf.c +++ /dev/null @@ -1,415 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.printf.c,v 3.19 1998/10/25 15:10:37 christos Exp $ */ -/* - * tc.printf.c: A public-domain, minimal printf/sprintf routine that prints - * through the putchar() routine. Feel free to use for - * anything... -- 7/17/87 Paul Placeway - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.printf.c,v 3.19 1998/10/25 15:10:37 christos Exp $") - -#ifdef lint -#undef va_arg -#define va_arg(a, b) (a ? (b) 0 : (b) 0) -#endif - -#define INF 32766 /* should be bigger than any field to print */ - -static char buf[128]; - -static void xaddchar __P((int)); -static void doprnt __P((void (*) __P((int)), const char *, va_list)); - -static void -doprnt(addchar, sfmt, ap) - void (*addchar) __P((int)); - const char *sfmt; - va_list ap; -{ - register char *bp; - register const char *f; -#ifdef SHORT_STRINGS - register Char *Bp; -#endif /* SHORT_STRINGS */ - register long l; - register unsigned long u; - register int i; - register int fmt; - register unsigned char pad = ' '; - int flush_left = 0, f_width = 0, prec = INF, hash = 0, do_long = 0; - int sign = 0; - int attributes = 0; - - - f = sfmt; - for (; *f; f++) { - if (*f != '%') { /* then just out the char */ - (*addchar) ((int) (((unsigned char)*f) | attributes)); - } - else { - f++; /* skip the % */ - - if (*f == '-') { /* minus: flush left */ - flush_left = 1; - f++; - } - - if (*f == '0' || *f == '.') { - /* padding with 0 rather than blank */ - pad = '0'; - f++; - } - if (*f == '*') { /* field width */ - f_width = va_arg(ap, int); - f++; - } - else if (Isdigit((unsigned char) *f)) { - f_width = atoi(f); - while (Isdigit((unsigned char) *f)) - f++; /* skip the digits */ - } - - if (*f == '.') { /* precision */ - f++; - if (*f == '*') { - prec = va_arg(ap, int); - f++; - } - else if (Isdigit((unsigned char) *f)) { - prec = atoi((char *) f); - while (Isdigit((unsigned char) *f)) - f++; /* skip the digits */ - } - } - - if (*f == '#') { /* alternate form */ - hash = 1; - f++; - } - - if (*f == 'l') { /* long format */ - do_long = 1; - f++; - } - - fmt = (unsigned char) *f; - if (fmt != 'S' && fmt != 'Q' && Isupper(fmt)) { - do_long = 1; - fmt = Tolower(fmt); - } - bp = buf; - switch (fmt) { /* do the format */ - case 'd': - if (do_long) - l = va_arg(ap, long); - else - l = (long) (va_arg(ap, int)); - if (l < 0) { - sign = 1; - l = -l; - } - do { - *bp++ = (char) (l % 10) + '0'; - } while ((l /= 10) > 0); - if (sign) - *bp++ = '-'; - f_width = f_width - (int) (bp - buf); - if (!flush_left) - while (f_width-- > 0) - (*addchar) ((int) (pad | attributes)); - for (bp--; bp >= buf; bp--) - (*addchar) ((int) (((unsigned char) *bp) | attributes)); - if (flush_left) - while (f_width-- > 0) - (*addchar) ((int) (' ' | attributes)); - break; - - case 'o': - case 'x': - case 'u': - if (do_long) - u = va_arg(ap, unsigned long); - else - u = (unsigned long) (va_arg(ap, unsigned int)); - if (fmt == 'u') { /* unsigned decimal */ - do { - *bp++ = (char) (u % 10) + '0'; - } while ((u /= 10) > 0); - } - else if (fmt == 'o') { /* octal */ - do { - *bp++ = (char) (u % 8) + '0'; - } while ((u /= 8) > 0); - if (hash) - *bp++ = '0'; - } - else if (fmt == 'x') { /* hex */ - do { - i = (int) (u % 16); - if (i < 10) - *bp++ = i + '0'; - else - *bp++ = i - 10 + 'a'; - } while ((u /= 16) > 0); - if (hash) { - *bp++ = 'x'; - *bp++ = '0'; - } - } - i = f_width - (int) (bp - buf); - if (!flush_left) - while (i-- > 0) - (*addchar) ((int) (pad | attributes)); - for (bp--; bp >= buf; bp--) - (*addchar) ((int) (((unsigned char) *bp) | attributes)); - if (flush_left) - while (i-- > 0) - (*addchar) ((int) (' ' | attributes)); - break; - - - case 'c': - i = va_arg(ap, int); - (*addchar) ((int) (i | attributes)); - break; - - case 'S': - case 'Q': - Bp = va_arg(ap, Char *); - if (!Bp) { - bp = NULL; - goto lcase_s; - } - f_width = f_width - Strlen(Bp); - if (!flush_left) - while (f_width-- > 0) - (*addchar) ((int) (pad | attributes)); - for (i = 0; *Bp && i < prec; i++) { - if (fmt == 'Q' && *Bp & QUOTE) - (*addchar) ((int) ('\\' | attributes)); - (*addchar) ((int) ((*Bp & TRIM) | attributes)); - Bp++; - } - if (flush_left) - while (f_width-- > 0) - (*addchar) ((int) (' ' | attributes)); - break; - - case 's': - case 'q': - bp = va_arg(ap, char *); -lcase_s: - if (!bp) - bp = "(nil)"; - f_width = f_width - strlen((char *) bp); - if (!flush_left) - while (f_width-- > 0) - (*addchar) ((int) (pad | attributes)); - for (i = 0; *bp && i < prec; i++) { - if (fmt == 'q' && *bp & QUOTE) - (*addchar) ((int) ('\\' | attributes)); - (*addchar) ((int) (((unsigned char) *bp & TRIM) | - attributes)); - bp++; - } - if (flush_left) - while (f_width-- > 0) - (*addchar) ((int) (' ' | attributes)); - break; - - case 'a': - attributes = va_arg(ap, int); - break; - - case '%': - (*addchar) ((int) ('%' | attributes)); - break; - - default: - break; - } - flush_left = 0, f_width = 0, prec = INF, hash = 0, do_long = 0; - sign = 0; - pad = ' '; - } - } -} - - -static char *xstring, *xestring; -static void -xaddchar(c) - int c; -{ - if (xestring == xstring) - *xstring = '\0'; - else - *xstring++ = (char) c; -} - - -pret_t -/*VARARGS*/ -#ifdef FUNCPROTO -xsnprintf(char *str, size_t size, const char *fmt, ...) -#else -xsnprintf(va_alist) - va_dcl -#endif -{ - va_list va; -#ifdef FUNCPROTO - va_start(va, fmt); -#else - char *str, *fmt; - size_t size; - - va_start(va); - str = va_arg(va, char *); - size = va_arg(va, size_t); - fmt = va_arg(va, char *); -#endif - - xstring = str; - xestring = str + size - 1; - doprnt(xaddchar, fmt, va); - va_end(va); - *xstring++ = '\0'; -#ifdef PURIFY - return 1; -#endif -} - -pret_t -/*VARARGS*/ -#ifdef FUNCPROTO -xprintf(const char *fmt, ...) -#else -xprintf(va_alist) - va_dcl -#endif -{ - va_list va; -#ifdef FUNCPROTO - va_start(va, fmt); -#else - char *fmt; - - va_start(va); - fmt = va_arg(va, char *); -#endif - doprnt(xputchar, fmt, va); - va_end(va); -#ifdef PURIFY - return 1; -#endif -} - - -pret_t -xvprintf(fmt, va) - const char *fmt; - va_list va; -{ - doprnt(xputchar, fmt, va); -#ifdef PURIFY - return 1; -#endif -} - -pret_t -xvsnprintf(str, size, fmt, va) - char *str; - size_t size; - const char *fmt; - va_list va; -{ - xstring = str; - xestring = str + size - 1; - doprnt(xaddchar, fmt, va); - *xstring++ = '\0'; -#ifdef PURIFY - return 1; -#endif -} - - - -#ifdef PURIFY -/* Purify uses (some of..) the following functions to output memory-use - * debugging info. Given all the messing with file descriptors that - * tcsh does, the easiest way I could think of to get it (Purify) to - * print anything was by replacing some standard functions with - * ones that do tcsh output directly - see dumb hook in doreaddirs() - * (sh.dir.c) -sg - */ -#ifndef FILE -#define FILE int -#endif -int -#ifdef FUNCPROTO -fprintf(FILE *fp, const char* fmt, ...) -#else -fprintf(va_alist) - va_dcl -#endif -{ - va_list va; -#ifdef FUNCPROTO - va_start(va, fmt); -#else - FILE *fp; - const char *fmt; - - va_start(va); - fp = va_arg(va, FILE *); - fmt = va_arg(va, const char *); -#endif - doprnt(xputchar, fmt, va); - va_end(va); - return 1; -} - -int -vfprintf(fp, fmt, va) - FILE *fp; - const char *fmt; - va_list va; -{ - doprnt(xputchar, fmt, va); - return 1; -} - -#endif /* PURIFY */ diff --git a/contrib/tcsh/tc.sched.c b/contrib/tcsh/tc.sched.c deleted file mode 100644 index 787a20671701..000000000000 --- a/contrib/tcsh/tc.sched.c +++ /dev/null @@ -1,288 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.sched.c,v 3.16 1998/10/25 15:10:40 christos Exp $ */ -/* - * tc.sched.c: Scheduled command execution - * - * Karl Kleinpaste: Computer Consoles Inc. 1984 - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.sched.c,v 3.16 1998/10/25 15:10:40 christos Exp $") - -#include "ed.h" -#include "tc.h" - -extern int just_signaled; - -struct sched_event { - struct sched_event *t_next; - time_t t_when; - Char **t_lex; -}; -static struct sched_event *sched_ptr = NULL; - - -time_t -sched_next() -{ - if (sched_ptr) - return (sched_ptr->t_when); - return ((time_t) - 1); -} - -/*ARGSUSED*/ -void -dosched(v, c) - register Char **v; - struct command *c; -{ - register struct sched_event *tp, *tp1, *tp2; - time_t cur_time; - int count, hours, minutes, dif_hour, dif_min; - Char *cp; - bool relative; /* time specified as +hh:mm */ - struct tm *ltp; - - USE(c); -/* This is a major kludge because of a gcc linker */ -/* Problem. It may or may not be needed for you */ -#ifdef _MINIX - char kludge[10]; - extern char *sprintf(); - sprintf(kludge, CGETS(24, 1, "kludge")); -#endif /* _MINIX */ - - v++; - cp = *v++; - if (cp == NULL) { - Char *fmt; - if ((fmt = varval(STRsched)) == STRNULL) - fmt = str2short("%h\t%T\t%R\n"); - /* print list of scheduled events */ - for (count = 1, tp = sched_ptr; tp; count++, tp = tp->t_next) { - Char buf[BUFSIZE], sbuf[BUFSIZE]; - blkexpand(tp->t_lex, buf); - tprintf(FMT_SCHED, sbuf, fmt, sizeof(sbuf), - short2str(buf), tp->t_when, (ptr_t) &count); - for (cp = sbuf; *cp;) - xputchar(*cp++); - } - return; - } - - if (*cp == '-') { - /* remove item from list */ - if (!sched_ptr) - stderror(ERR_NOSCHED); - if (*v) - stderror(ERR_SCHEDUSAGE); - count = atoi(short2str(++cp)); - if (count <= 0) - stderror(ERR_SCHEDUSAGE); - tp = sched_ptr; - tp1 = 0; - while (--count) { - if (tp->t_next == 0) - break; - else { - tp1 = tp; - tp = tp->t_next; - } - } - if (count) - stderror(ERR_SCHEDEV); - if (tp1 == 0) - sched_ptr = tp->t_next; - else - tp1->t_next = tp->t_next; - blkfree(tp->t_lex); - xfree((ptr_t) tp); - return; - } - - /* else, add an item to the list */ - if (!*v) - stderror(ERR_SCHEDCOM); - relative = 0; - if (!Isdigit(*cp)) { /* not abs. time */ - if (*cp != '+') - stderror(ERR_SCHEDUSAGE); - cp++, relative++; - } - minutes = 0; - hours = atoi(short2str(cp)); - while (*cp && *cp != ':' && *cp != 'a' && *cp != 'p') - cp++; - if (*cp && *cp == ':') - minutes = atoi(short2str(++cp)); - if ((hours < 0) || (minutes < 0) || - (hours > 23) || (minutes > 59)) - stderror(ERR_SCHEDTIME); - while (*cp && *cp != 'p' && *cp != 'a') - cp++; - if (*cp && relative) - stderror(ERR_SCHEDREL); - if (*cp == 'p') - hours += 12; - (void) time(&cur_time); - ltp = localtime(&cur_time); - if (relative) { - dif_hour = hours; - dif_min = minutes; - } - else { - if ((dif_hour = hours - ltp->tm_hour) < 0) - dif_hour += 24; - if ((dif_min = minutes - ltp->tm_min) < 0) { - dif_min += 60; - if ((--dif_hour) < 0) - dif_hour = 23; - } - } - tp = (struct sched_event *) xcalloc(1, sizeof *tp); -#ifdef _SX - tp->t_when = cur_time - ltp->tm_sec + dif_hour * 3600 + dif_min * 60; -#else /* _SX */ - tp->t_when = cur_time - ltp->tm_sec + dif_hour * 3600L + dif_min * 60L; -#endif /* _SX */ - /* use of tm_sec: get to beginning of minute. */ - if (!sched_ptr || tp->t_when < sched_ptr->t_when) { - tp->t_next = sched_ptr; - sched_ptr = tp; - } - else { - tp1 = sched_ptr->t_next; - tp2 = sched_ptr; - while (tp1 && tp->t_when >= tp1->t_when) { - tp2 = tp1; - tp1 = tp1->t_next; - } - tp->t_next = tp1; - tp2->t_next = tp; - } - tp->t_lex = saveblk(v); -} - -/* - * Execute scheduled events - */ -/*ARGSUSED*/ -void -sched_run(n) - int n; -{ - time_t cur_time; - register struct sched_event *tp, *tp1; - struct wordent cmd, *nextword, *lastword; - struct command *t; - Char **v, *cp; - extern Char GettingInput; -#ifdef BSDSIGS - sigmask_t omask; - - omask = sigblock(sigmask(SIGINT)) & ~sigmask(SIGINT); -#else - (void) sighold(SIGINT); -#endif - - USE(n); - - (void) time(&cur_time); - tp = sched_ptr; - - /* bugfix by: Justin Bur at Universite de Montreal */ - /* - * this test wouldn't be necessary if this routine were not called before - * each prompt (in sh.c). But it is, to catch missed alarms. Someone - * ought to fix it all up. -jbb - */ - if (!(tp && tp->t_when < cur_time)) { -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else - (void) sigrelse(SIGINT); -#endif - return; - } - - if (GettingInput) - (void) Cookedmode(); - - while (tp && tp->t_when < cur_time) { - if (seterr) { - xfree((ptr_t) seterr); - seterr = NULL; - } - cmd.word = STRNULL; - lastword = &cmd; - v = tp->t_lex; - for (cp = *v; cp; cp = *++v) { - nextword = (struct wordent *) xcalloc(1, sizeof cmd); - nextword->word = Strsave(cp); - lastword->next = nextword; - nextword->prev = lastword; - lastword = nextword; - } - lastword->next = &cmd; - cmd.prev = lastword; - tp1 = tp; - sched_ptr = tp = tp1->t_next; /* looping termination cond: */ - blkfree(tp1->t_lex); /* straighten out in case of */ - xfree((ptr_t) tp1); /* command blow-up. */ - - /* expand aliases like process() does. */ - alias(&cmd); - /* build a syntax tree for the command. */ - t = syntax(cmd.next, &cmd, 0); - if (seterr) - stderror(ERR_OLD); - /* execute the parse tree. */ - execute(t, -1, NULL, NULL); - /* done. free the lex list and parse tree. */ - freelex(&cmd), freesyn(t); - } - if (GettingInput && !just_signaled) { /* PWP */ - (void) Rawmode(); - ClearLines(); /* do a real refresh since something may */ - ClearDisp(); /* have printed to the screen */ - Refresh(); - } - just_signaled = 0; - -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else - (void) sigrelse(SIGINT); -#endif -} diff --git a/contrib/tcsh/tc.sig.c b/contrib/tcsh/tc.sig.c deleted file mode 100644 index f7feae86b338..000000000000 --- a/contrib/tcsh/tc.sig.c +++ /dev/null @@ -1,418 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.sig.c,v 3.24 1998/04/08 17:57:36 christos Exp $ */ -/* - * tc.sig.c: Signal routine emulations - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.sig.c,v 3.24 1998/04/08 17:57:36 christos Exp $") - -#include "tc.wait.h" - -#ifndef BSDSIGS - -/* this stack is used to queue signals - * we can handle up to MAX_CHLD outstanding children now; - */ -#define MAX_CHLD 50 - -# ifdef UNRELSIGS -static struct mysigstack { - int s_w; /* wait report */ - int s_errno; /* errno returned; */ - pid_t s_pid; /* pid returned */ -} stk[MAX_CHLD]; -static int stk_ptr = -1; - - -/* queue child signals - */ -static sigret_t -sig_ch_queue() -{ -# ifdef JOBDEBUG - xprintf("queue SIGCHLD\n"); - flush(); -# endif /* JOBDEBUG */ - stk_ptr++; - stk[stk_ptr].s_pid = (pid_t) wait(&stk[stk_ptr].s_w); - stk[stk_ptr].s_errno = errno; - (void) signal(SIGCHLD, sig_ch_queue); -# ifndef SIGVOID - return(0); -# endif /* SIGVOID */ -} - -/* process all awaiting child signals - */ -static sigret_t -sig_ch_rel() -{ - while (stk_ptr > -1) - pchild(SIGCHLD); -# ifdef JOBDEBUG - xprintf("signal(SIGCHLD, pchild);\n"); -# endif /* JOBDEBUG */ - (void) signal(SIGCHLD, pchild); -# ifndef SIGVOID - return(0); -# endif /* SIGVOID */ -} - - -/* libc.a contains these functions in SYSVREL >= 3. */ -sigret_t -(*xsigset(a, b)) () - int a; - signalfun_t b; -{ - return (signal(a, b)); -} - -/* release signal - * release all queued signals and - * set the default signal handler - */ -void -sigrelse(what) - int what; -{ - if (what == SIGCHLD) - sig_ch_rel(); - -# ifdef COHERENT - (void) signal(what, what == SIGINT ? pintr : SIG_DFL); -# endif /* COHERENT */ -} - -/* hold signal - * only works with child and interrupt - */ -void -xsighold(what) - int what; -{ - if (what == SIGCHLD) - (void) signal(SIGCHLD, sig_ch_queue); - -# ifdef COHERENT - (void) signal(what, SIG_IGN); -# endif /* COHERENT */ -} - -/* ignore signal - */ -void -xsigignore(a) - int a; -{ - (void) signal(a, SIG_IGN); -} - -/* atomically release one signal - */ -void -xsigpause(what) - int what; -{ - /* From: Jim Mattson <mattson%cs@ucsd.edu> */ - if (what == SIGCHLD) - pchild(SIGCHLD); -} - - -/* return either awaiting processes or do a wait now - */ -pid_t -ourwait(w) - int *w; -{ - pid_t pid; - -# ifdef JOBDEBUG - xprintf(CGETS(25, 1, "our wait %d\n", stk_ptr)); - flush(); -# endif /* JOBDEBUG */ - - if (stk_ptr == -1) { - /* stack empty return signal from stack */ - pid = (pid_t) wait(w); -# ifdef JOBDEBUG - xprintf("signal(SIGCHLD, pchild);\n"); -# endif /* JOBDEBUG */ - (void) signal(SIGCHLD, pchild); - return (pid); - } - else { - /* return signal from stack */ - errno = stk[stk_ptr].s_errno; - *w = stk[stk_ptr].s_w; - stk_ptr--; - return (stk[stk_ptr + 1].s_pid); - } -} /* end ourwait */ - -# ifdef COHERENT -# undef signal -sigret_t -(*xsignal(a, b)) () - int a; - signalfun_t b; -{ - if (a == SIGCHLD) - return SIG_DFL; - else - return (signal(a, b)); -} -# endif /* COHERENT */ - -# endif /* UNRELSIGS */ - -# ifdef SXA -/* - * SX/A is SYSVREL3 but does not have sys5-sigpause(). - * I've heard that sigpause() is not defined in SYSVREL3. - */ -/* This is not need if you make tcsh by BSD option's cc. */ -void -sigpause(what) -{ - if (what == SIGCHLD) { - (void) bsd_sigpause(bsd_sigblock((sigmask_t) 0) & ~sigmask(SIGBSDCHLD)); - } - else if (what == 0) { - pause(); - } - else { - xprintf("sigpause(%d)\n", what); - pause(); - } -} -# endif /* SXA */ - -#endif /* !BSDSIGS */ - -#ifdef NEEDsignal -/* turn into bsd signals */ -sigret_t -(*xsignal(s, a)) () - int s; - signalfun_t a; -{ - sigvec_t osv, sv; - - (void) mysigvec(s, NULL, &osv); - sv = osv; - sv.sv_handler = a; -#ifdef SIG_STK - sv.sv_onstack = SIG_STK; -#endif /* SIG_STK */ -#ifdef SV_BSDSIG - sv.sv_flags = SV_BSDSIG; -#endif /* SV_BSDSIG */ - - if (mysigvec(s, &sv, NULL) < 0) - return (BADSIG); - return (osv.sv_handler); -} - -#endif /* NEEDsignal */ - -#ifdef POSIXSIGS -/* - * Support for signals. - */ - -extern int errno; - -/* Set and test a bit. Bits numbered 1 to 32 */ - -#define SETBIT(x, y) x |= sigmask(y) -#define ISSET(x, y) ((x & sigmask(y)) != 0) - -#ifdef DEBUG -# define SHOW_SIGNALS 1 /* to assist in debugging signals */ -#endif /* DEBUG */ - -#ifdef SHOW_SIGNALS -char *show_sig_mask(); -#endif /* SHOW_SIGNALS */ - -#ifndef __PARAGON__ -/* - * sigsetmask(mask) - * - * Set a new signal mask. Return old mask. - */ -sigmask_t -sigsetmask(mask) - sigmask_t mask; -{ - sigset_t set, oset; - int m; - register int i; - - (void) sigemptyset(&set); - (void) sigemptyset(&oset); - - for (i = 1; i <= MAXSIG; i++) - if (ISSET(mask, i)) - (void) sigaddset(&set, i); - - if ((sigprocmask(SIG_SETMASK, &set, &oset)) == -1) { - xprintf("sigsetmask(0x%x) - sigprocmask failed, errno %d", - mask, errno); - } - - m = 0; - for (i = 1; i <= MAXSIG; i++) - if (sigismember(&oset, i)) - SETBIT(m, i); - - return (m); -} -#endif /* __PARAGON__ */ - -#ifndef __DGUX__ -/* - * sigblock(mask) - * - * Add "mask" set of signals to the present signal mask. - * Return old mask. - */ -sigmask_t -sigblock(mask) - sigmask_t mask; -{ - sigset_t set, oset; - int m; - register int i; - - (void) sigemptyset(&set); - (void) sigemptyset(&oset); - - /* Get present set of signals. */ - if ((sigprocmask(SIG_SETMASK, NULL, &set)) == -1) - stderror(ERR_SYSTEM, "sigprocmask", strerror(errno)); - - /* Add in signals from mask. */ - for (i = 1; i <= MAXSIG; i++) - if (ISSET(mask, i)) - (void) sigaddset(&set, i); - - if ((sigprocmask(SIG_SETMASK, &set, &oset)) == -1) - stderror(ERR_SYSTEM, "sigprocmask", strerror(errno)); - - /* Return old mask to user. */ - m = 0; - for (i = 1; i <= MAXSIG; i++) - if (sigismember(&oset, i)) - SETBIT(m, i); - - return (m); -} -#endif /* __DGUX__ */ - - -/* - * bsd_sigpause(mask) - * - * Set new signal mask and wait for signal; - * Old mask is restored on signal. - */ -void -bsd_sigpause(mask) - sigmask_t mask; -{ - sigset_t set; - register int i; - - (void) sigemptyset(&set); - - for (i = 1; i <= MAXSIG; i++) - if (ISSET(mask, i)) - (void) sigaddset(&set, i); - (void) sigsuspend(&set); -} - -/* - * bsd_signal(sig, func) - * - * Emulate bsd style signal() - */ -sigret_t (*bsd_signal(sig, func)) () - int sig; - signalfun_t func; -{ - struct sigaction act, oact; - sigset_t set; - signalfun_t r_func; - - if (sig < 0 || sig > MAXSIG) { - xprintf(CGETS(25, 2, - "error: bsd_signal(%d) signal out of range\n"), sig); - return((signalfun_t) SIG_IGN); - } - - (void) sigemptyset(&set); - - act.sa_handler = (signalfun_t) func; /* user function */ - act.sa_mask = set; /* signal mask */ - act.sa_flags = 0; /* no special actions */ - - if (sigaction(sig, &act, &oact)) { - xprintf(CGETS(25, 3, - "error: bsd_signal(%d) - sigaction failed, errno %d\n"), - sig, errno); - return((signalfun_t) SIG_IGN); - } - - r_func = (signalfun_t) oact.sa_handler; - return(r_func); -} -#endif /* POSIXSIG */ - - -#ifdef SIGSYNCH -static long Synch_Cnt = 0; - -sigret_t -synch_handler(sno) -int sno; -{ - if (sno != SIGSYNCH) - abort(); - Synch_Cnt++; -} -#endif /* SIGSYNCH */ diff --git a/contrib/tcsh/tc.sig.h b/contrib/tcsh/tc.sig.h deleted file mode 100644 index b4138503259e..000000000000 --- a/contrib/tcsh/tc.sig.h +++ /dev/null @@ -1,226 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.sig.h,v 3.20 1998/04/08 17:57:37 christos Exp $ */ -/* - * tc.sig.h: Signal handling - * - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_tc_sig -#define _h_tc_sig - -#if (SYSVREL > 0) || defined(BSD4_4) || defined(_MINIX) || defined(DGUX) || defined(WINNT) -# include <signal.h> -# ifndef SIGCHLD -# define SIGCHLD SIGCLD -# endif /* SIGCHLD */ -#else /* SYSVREL == 0 */ -# include <sys/signal.h> -#endif /* SYSVREL > 0 */ - -#if defined(SUNOS4) || defined(DGUX) || defined(hp800) || (SYSVREL > 3 && defined(POSIXSIGS) && defined(VFORK)) -# define SAVESIGVEC -#endif /* SUNOS4 || DGUX || hp800 || SVR4 & POSIXSIGS & VFORK */ - -#if (SYSVREL > 0 && SYSVREL < 3 && !defined(BSDSIGS)) || defined(_MINIX) || defined(COHERENT) -/* - * If we have unreliable signals... - */ -# define UNRELSIGS -#endif /* SYSVREL > 0 && SYSVREL < 3 && !BSDSIGS || _MINIX || COHERENT */ - -#ifdef BSDSIGS -/* - * sigvec is not the same everywhere - */ -# if defined(_SEQUENT_) || (defined(_POSIX_SOURCE) && !defined(hpux)) -# define HAVE_SIGVEC -# define mysigvec(a, b, c) sigaction(a, b, c) -typedef struct sigaction sigvec_t; -# if defined(convex) || defined(__convex__) - /* eliminate compiler warnings since these are defined in signal.h */ -# undef sv_handler -# undef sv_flags -# endif -# define sv_handler sa_handler -# define sv_flags sa_flags -# endif /* _SEQUENT || (_POSIX_SOURCE && !hpux) */ - -# ifdef hpux -# define HAVE_SIGVEC -# define mysigvec(a, b, c) sigvector(a, b, c) -typedef struct sigvec sigvec_t; -# define NEEDsignal -# endif /* hpux */ - -# ifndef HAVE_SIGVEC -# ifdef POSIXSIGS -# define mysigvec(a, b, c) sigaction(a, b, c) -typedef struct sigaction sigvec_t; -# define sv_handler sa_handler -# define sv_flags sa_flags -# else /* BSDSIGS */ -# define mysigvec(a, b, c) sigvec(a, b, c) -typedef struct sigvec sigvec_t; -# endif /* POSIXSIGS */ -# endif /* HAVE_SIGVEC */ - -# undef HAVE_SIGVEC -#endif /* BSDSIGS */ - -#if SYSVREL > 0 -# ifdef BSDJOBS -/* here I assume that systems that have bsdjobs implement the - * the setpgrp call correctly. Otherwise defining this would - * work, but it would kill the world, because all the setpgrp - * code is the the part defined when BSDJOBS are defined - * NOTE: we don't want killpg(a, b) == kill(-getpgrp(a), b) - * cause process a might be already dead and getpgrp would fail - */ -# define killpg(a, b) kill(-(a), (b)) -# else -/* this is the poor man's version of killpg()! Just kill the - * current process and don't worry about the rest. Someday - * I hope I get to fix that. - */ -# define killpg(a, b) kill((a), (b)) -# endif /* BSDJOBS */ -#endif /* SYSVREL > 0 */ - -#ifdef _MINIX -# include <signal.h> -# define killpg(a, b) kill((a), (b)) -#endif /* _MINIX */ - -#ifdef _VMS_POSIX -# define killpg(a, b) kill(-(a), (b)) -#endif /* atp _VMS_POSIX */ - -#if !defined(NSIG) && defined(SIGMAX) -# define NSIG (SIGMAX+1) -#endif /* !NSIG && SIGMAX */ -#if !defined(NSIG) && defined(_SIG_MAX) -# define NSIG (_SIG_MAX+1) -#endif /* !NSIG && _SIG_MAX */ -#if !defined(NSIG) && defined(_NSIG) -# define NSIG _NSIG -#endif /* !NSIG && _NSIG */ -#if !defined(MAXSIG) && defined(NSIG) -# define MAXSIG NSIG -#endif /* !MAXSIG && NSIG */ - -#ifdef BSDSIGS -/* - * For 4.2bsd signals. - */ -# ifdef sigmask -# undef sigmask -# endif /* sigmask */ -# define sigmask(s) (1 << ((s)-1)) -# ifdef POSIXSIGS -# define sigpause(a) (void) bsd_sigpause(a) -# ifdef WINNT -# undef signal -# endif /* WINNT */ -# define signal(a, b) bsd_signal(a, b) -# endif /* POSIXSIGS */ -# ifndef _SEQUENT_ -# define sighold(s) sigblock(sigmask(s)) -# define sigignore(s) signal(s, SIG_IGN) -# define sigset(s, a) signal(s, a) -# endif /* !_SEQUENT_ */ -# ifdef aiws -# define sigrelse(a) sigsetmask(sigblock(0) & ~sigmask(a)) -# undef killpg -# define killpg(a, b) kill(-getpgrp(a), b) -# define NEEDsignal -# endif /* aiws */ -#endif /* BSDSIGS */ - - -/* - * We choose a define for the window signal if it exists.. - */ -#ifdef SIGWINCH -# define SIG_WINDOW SIGWINCH -#else -# ifdef SIGWINDOW -# define SIG_WINDOW SIGWINDOW -# endif /* SIGWINDOW */ -#endif /* SIGWINCH */ - -#ifdef convex -# ifdef notdef -/* Does not seem to work right... Christos */ -# define SIGSYNCH 0 -# endif -# ifdef SIGSYNCH -# define SYNCHMASK (sigmask(SIGCHLD)|sigmask(SIGSYNCH)) -# else -# define SYNCHMASK (sigmask(SIGCHLD)) -# endif -extern sigret_t synch_handler(); -#endif /* convex */ - -#ifdef SAVESIGVEC -# define NSIGSAVED 7 - /* - * These are not inline for speed. gcc -traditional -O on the sparc ignores - * the fact that vfork() corrupts the registers. Calling a routine is not - * nice, since it can make the compiler put some things that we want saved - * into registers - christos - */ -# define savesigvec(sv) \ - ((void) mysigvec(SIGINT, (sigvec_t *) 0, &(sv)[0]), \ - (void) mysigvec(SIGQUIT, (sigvec_t *) 0, &(sv)[1]), \ - (void) mysigvec(SIGTSTP, (sigvec_t *) 0, &(sv)[2]), \ - (void) mysigvec(SIGTTIN, (sigvec_t *) 0, &(sv)[3]), \ - (void) mysigvec(SIGTTOU, (sigvec_t *) 0, &(sv)[4]), \ - (void) mysigvec(SIGTERM, (sigvec_t *) 0, &(sv)[5]), \ - (void) mysigvec(SIGHUP, (sigvec_t *) 0, &(sv)[6]), \ - sigblock(sigmask(SIGINT) | sigmask(SIGQUIT) | \ - sigmask(SIGTSTP) | sigmask(SIGTTIN) | \ - sigmask(SIGTTOU) | sigmask(SIGTERM) | \ - sigmask(SIGHUP))) - -# define restoresigvec(sv, sm) \ - (void) ((void) mysigvec(SIGINT, &(sv)[0], (sigvec_t *) 0), \ - (void) mysigvec(SIGQUIT, &(sv)[1], (sigvec_t *) 0), \ - (void) mysigvec(SIGTSTP, &(sv)[2], (sigvec_t *) 0), \ - (void) mysigvec(SIGTTIN, &(sv)[3], (sigvec_t *) 0), \ - (void) mysigvec(SIGTTOU, &(sv)[4], (sigvec_t *) 0), \ - (void) mysigvec(SIGTERM, &(sv)[5], (sigvec_t *) 0), \ - (void) mysigvec(SIGHUP, &(sv)[6], (sigvec_t *) 0), \ - (void) sigsetmask(sm)) -# endif /* SAVESIGVEC */ - -#endif /* _h_tc_sig */ diff --git a/contrib/tcsh/tc.str.c b/contrib/tcsh/tc.str.c deleted file mode 100644 index 5f58ef9fc026..000000000000 --- a/contrib/tcsh/tc.str.c +++ /dev/null @@ -1,427 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.str.c,v 3.9 1996/04/26 19:21:42 christos Exp $ */ -/* - * tc.str.c: Short string package - * This has been a lesson of how to write buggy code! - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.str.c,v 3.9 1996/04/26 19:21:42 christos Exp $") - -#define MALLOC_INCR 128 - -#ifdef SHORT_STRINGS -Char ** -blk2short(src) - register char **src; -{ - size_t n; - register Char **sdst, **dst; - - /* - * Count - */ - for (n = 0; src[n] != NULL; n++) - continue; - sdst = dst = (Char **) xmalloc((size_t) ((n + 1) * sizeof(Char *))); - - for (; *src != NULL; src++) - *dst++ = SAVE(*src); - *dst = NULL; - return (sdst); -} - -char ** -short2blk(src) - register Char **src; -{ - size_t n; - register char **sdst, **dst; - - /* - * Count - */ - for (n = 0; src[n] != NULL; n++) - continue; - sdst = dst = (char **) xmalloc((size_t) ((n + 1) * sizeof(char *))); - - for (; *src != NULL; src++) - *dst++ = strsave(short2str(*src)); - *dst = NULL; - return (sdst); -} - -Char * -str2short(src) - register const char *src; -{ - static Char *sdst; - static size_t dstsize = 0; - register Char *dst, *edst; - - if (src == NULL) - return (NULL); - - if (sdst == (NULL)) { - dstsize = MALLOC_INCR; - sdst = (Char *) xmalloc((size_t) (dstsize * sizeof(Char))); - } - - dst = sdst; - edst = &dst[dstsize]; - while ((unsigned char) *src) { - *dst++ = (Char) ((unsigned char) *src++); - if (dst == edst) { - dstsize += MALLOC_INCR; - sdst = (Char *) xrealloc((ptr_t) sdst, - (size_t) (dstsize * sizeof(Char))); - edst = &sdst[dstsize]; - dst = &edst[-MALLOC_INCR]; - } - } - *dst = 0; - return (sdst); -} - -char * -short2str(src) - register const Char *src; -{ - static char *sdst = NULL; - static size_t dstsize = 0; - register char *dst, *edst; - - if (src == NULL) - return (NULL); - - if (sdst == NULL) { - dstsize = MALLOC_INCR; - sdst = (char *) xmalloc((size_t) (dstsize * sizeof(char))); - } - dst = sdst; - edst = &dst[dstsize]; - while (*src) { - *dst++ = (char) *src++; - if (dst == edst) { - dstsize += MALLOC_INCR; - sdst = (char *) xrealloc((ptr_t) sdst, - (size_t) (dstsize * sizeof(char))); - edst = &sdst[dstsize]; - dst = &edst[-MALLOC_INCR]; - } - } - *dst = 0; - return (sdst); -} - -Char * -s_strcpy(dst, src) - register Char *dst; - register const Char *src; -{ - register Char *sdst; - - sdst = dst; - while ((*dst++ = *src++) != '\0') - continue; - return (sdst); -} - -Char * -s_strncpy(dst, src, n) - register Char *dst; - register const Char *src; - register size_t n; -{ - register Char *sdst; - - if (n == 0) - return(dst); - - sdst = dst; - do - if ((*dst++ = *src++) == '\0') { - while (--n != 0) - *dst++ = '\0'; - return(sdst); - } - while (--n != 0); - return (sdst); -} - -Char * -s_strcat(dst, src) - register Char *dst; - register const Char *src; -{ - register short *sdst; - - sdst = dst; - while (*dst++) - continue; - --dst; - while ((*dst++ = *src++) != '\0') - continue; - return (sdst); -} - -#ifdef NOTUSED -Char * -s_strncat(dst, src, n) - register Char *dst; - register const Char *src; - register size_t n; -{ - register Char *sdst; - - if (n == 0) - return (dst); - - sdst = dst; - - while (*dst++) - continue; - --dst; - - do - if ((*dst++ = *src++) == '\0') - return(sdst); - while (--n != 0) - continue; - - *dst = '\0'; - return (sdst); -} - -#endif - -Char * -s_strchr(str, ch) - register const Char *str; - int ch; -{ - do - if (*str == ch) - return ((Char *) str); - while (*str++); - return (NULL); -} - -Char * -s_strrchr(str, ch) - register const Char *str; - int ch; -{ - register const Char *rstr; - - rstr = NULL; - do - if (*str == ch) - rstr = str; - while (*str++); - return ((Char *) rstr); -} - -size_t -s_strlen(str) - register const Char *str; -{ - register size_t n; - - for (n = 0; *str++; n++) - continue; - return (n); -} - -int -s_strcmp(str1, str2) - register const Char *str1, *str2; -{ - for (; *str1 && *str1 == *str2; str1++, str2++) - continue; - /* - * The following case analysis is necessary so that characters which look - * negative collate low against normal characters but high against the - * end-of-string NUL. - */ - if (*str1 == '\0' && *str2 == '\0') - return (0); - else if (*str1 == '\0') - return (-1); - else if (*str2 == '\0') - return (1); - else - return (*str1 - *str2); -} - -int -s_strncmp(str1, str2, n) - register const Char *str1, *str2; - register size_t n; -{ - if (n == 0) - return (0); - do { - if (*str1 != *str2) { - /* - * The following case analysis is necessary so that characters - * which look negative collate low against normal characters - * but high against the end-of-string NUL. - */ - if (*str1 == '\0') - return (-1); - else if (*str2 == '\0') - return (1); - else - return (*str1 - *str2); - } - if (*str1 == '\0') - return(0); - str1++, str2++; - } while (--n != 0); - return(0); -} - -Char * -s_strsave(s) - register const Char *s; -{ - Char *n; - register Char *p; - - if (s == 0) - s = STRNULL; - for (p = (Char *) s; *p++;) - continue; - n = p = (Char *) xmalloc((size_t) - ((((const Char *) p) - s) * sizeof(Char))); - while ((*p++ = *s++) != '\0') - continue; - return (n); -} - -Char * -s_strspl(cp, dp) - const Char *cp, *dp; -{ - Char *ep; - register Char *p, *q; - - if (!cp) - cp = STRNULL; - if (!dp) - dp = STRNULL; - for (p = (Char *) cp; *p++;) - continue; - for (q = (Char *) dp; *q++;) - continue; - ep = (Char *) xmalloc((size_t) - (((((const Char *) p) - cp) + - (((const Char *) q) - dp) - 1) * sizeof(Char))); - for (p = ep, q = (Char*) cp; (*p++ = *q++) != '\0';) - continue; - for (p--, q = (Char *) dp; (*p++ = *q++) != '\0';) - continue; - return (ep); -} - -Char * -s_strend(cp) - register const Char *cp; -{ - if (!cp) - return ((Char *) cp); - while (*cp) - cp++; - return ((Char *) cp); -} - -Char * -s_strstr(s, t) - register const Char *s, *t; -{ - do { - register const Char *ss = s; - register const Char *tt = t; - - do - if (*tt == '\0') - return ((Char *) s); - while (*ss++ == *tt++); - } while (*s++ != '\0'); - return (NULL); -} - -#endif /* SHORT_STRINGS */ - -char * -short2qstr(src) - register const Char *src; -{ - static char *sdst = NULL; - static size_t dstsize = 0; - register char *dst, *edst; - - if (src == NULL) - return (NULL); - - if (sdst == NULL) { - dstsize = MALLOC_INCR; - sdst = (char *) xmalloc((size_t) (dstsize * sizeof(char))); - } - dst = sdst; - edst = &dst[dstsize]; - while (*src) { - if (*src & QUOTE) { - *dst++ = '\\'; - if (dst == edst) { - dstsize += MALLOC_INCR; - sdst = (char *) xrealloc((ptr_t) sdst, - (size_t) (dstsize * sizeof(char))); - edst = &sdst[dstsize]; - dst = &edst[-MALLOC_INCR]; - } - } - *dst++ = (char) *src++; - if (dst == edst) { - dstsize += MALLOC_INCR; - sdst = (char *) xrealloc((ptr_t) sdst, - (size_t) (dstsize * sizeof(char))); - edst = &sdst[dstsize]; - dst = &edst[-MALLOC_INCR]; - } - } - *dst = 0; - return (sdst); -} diff --git a/contrib/tcsh/tc.vers.c b/contrib/tcsh/tc.vers.c deleted file mode 100644 index f319b8e16a6d..000000000000 --- a/contrib/tcsh/tc.vers.c +++ /dev/null @@ -1,169 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.vers.c,v 3.46 1999/05/11 13:07:54 christos Exp $ */ -/* - * tc.vers.c: Version dependent stuff - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" -#include "tw.h" - -RCSID("$Id: tc.vers.c,v 3.46 1999/05/11 13:07:54 christos Exp $") - -#include "patchlevel.h" - - -/* fix_version(): - * Print a reasonable version string, printing all compile time - * options that might affect the user. - */ -void -fix_version() -{ -#ifdef SHORT_STRINGS -# define SSSTR "8b" -#else -# define SSSTR "7b" -#endif -#ifdef NLS -# define NLSSTR ",nls" -#else -# define NLSSTR "" -#endif -#ifdef LOGINFIRST -# define LFSTR ",lf" -#else -# define LFSTR "" -#endif -#ifdef DOTLAST -# define DLSTR ",dl" -#else -# define DLSTR "" -#endif -#ifdef VIDEFAULT -# define VISTR ",vi" -#else -# define VISTR "" -#endif -#ifdef TESLA -# define DTRSTR ",dtr" -#else -# define DTRSTR "" -#endif -#ifdef KAI -# define BYESTR ",bye" -#else -# define BYESTR "" -#endif -#ifdef AUTOLOGOUT -# define ALSTR ",al" -#else -# define ALSTR "" -#endif -#ifdef KANJI -# define KANSTR ",kan" -#else -# define KANSTR "" -#endif -#ifdef SYSMALLOC -# define SMSTR ",sm" -#else -# define SMSTR "" -#endif -#ifdef HASHBANG -# define HBSTR ",hb" -#else -# define HBSTR "" -#endif -#ifdef NEWGRP -# define NGSTR ",ng" -#else -# define NGSTR "" -#endif -#ifdef REMOTEHOST -# define RHSTR ",rh" -#else -# define RHSTR "" -#endif -#ifdef AFS -# define AFSSTR ",afs" -#else -# define AFSSTR "" -#endif -#ifdef NODOT -# define NDSTR ",nd" -#else -# define NDSTR "" -#endif -#ifdef COLOR_LS_F -# define COLORSTR ",color" -#else /* ifndef COLOR_LS_F */ -# define COLORSTR "" -#endif /* COLOR_LS_F */ -#ifdef DSPMBYTE -# define DSPMSTR ",dspm" -#else -# define DSPMSTR "" -#endif -#ifdef COLORCAT -# define CCATSTR ",ccat" -#else -# define CCATSTR "" -#endif -/* if you want your local version to say something */ -#ifndef LOCALSTR -# define LOCALSTR "" -#endif /* LOCALSTR */ - char version[BUFSIZE]; - Char *machtype = tgetenv(STRMACHTYPE); - Char *vendor = tgetenv(STRVENDOR); - Char *ostype = tgetenv(STROSTYPE); - - if (vendor == NULL) - vendor = STRunknown; - if (machtype == NULL) - machtype = STRunknown; - if (ostype == NULL) - ostype = STRunknown; - - - (void) xsnprintf(version, sizeof(version), -"tcsh %d.%.2d.%.2d (%s) %s (%S-%S-%S) options %s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s", - REV, VERS, PATCHLEVEL, ORIGIN, DATE, machtype, vendor, ostype, - SSSTR, NLSSTR, LFSTR, DLSTR, VISTR, DTRSTR, BYESTR, - ALSTR, KANSTR, SMSTR, HBSTR, NGSTR, RHSTR, AFSSTR, NDSTR, - COLORSTR, DSPMSTR, CCATSTR, LOCALSTR); - set(STRversion, SAVE(version), VAR_READWRITE); - (void) xsnprintf(version, sizeof(version), "%d.%.2d.%.2d", - REV, VERS, PATCHLEVEL); - set(STRtcsh, SAVE(version), VAR_READWRITE); -} diff --git a/contrib/tcsh/tc.wait.h b/contrib/tcsh/tc.wait.h deleted file mode 100644 index df93c064e4a1..000000000000 --- a/contrib/tcsh/tc.wait.h +++ /dev/null @@ -1,159 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.wait.h,v 3.10 1997/10/27 22:44:39 christos Exp $ */ -/* - * tc.wait.h: <sys/wait.h> for machines that don't have it or have it and - * is incorrect. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_tc_wait -#define _h_tc_wait - -/* - * a little complicated #include <sys/wait.h>! :-( - * We try to use the system's wait.h when we can... - */ - -#if SYSVREL > 0 && !defined(linux) -# ifdef hpux -# ifndef __hpux -# define NEEDwait -# else -# ifndef POSIX -# define _BSD -# endif -# ifndef _CLASSIC_POSIX_TYPES -# define _CLASSIC_POSIX_TYPES -# endif -# include <sys/wait.h> /* 7.0 fixed it again */ -# endif /* __hpux */ -# else /* hpux */ -# if (defined(OREO) || defined(IRIS4D) || defined(POSIX)) && !defined(_VMS_POSIX) -# include <sys/wait.h> -# else /* OREO || IRIS4D || POSIX */ -# define NEEDwait -# endif /* OREO || IRIS4D || POSIX */ -# endif /* hpux */ -#else /* SYSVREL == 0 || linux */ -# ifdef _MINIX -# undef NEEDwait -# include "mi.wait.h" -# else -# ifndef WINNT -# include <sys/wait.h> -# endif /* WINNT */ -# endif /* _MINIX */ -#endif /* SYSVREL == 0 || linux */ - -#ifdef NEEDwait -/* - * This wait is for big-endians and little endians - */ -union wait { - int w_status; -# ifdef _SEQUENT_ - struct { - unsigned short w_Termsig:7; - unsigned short w_Coredump:1; - unsigned short w_Retcode:8; - } w_T; - struct { - unsigned short w_Stopval:8; - unsigned short w_Stopsig:8; - } w_S; -}; - -# define w_termsig w_T.w_Termsig -# define w_coredump w_T.w_Coredump -# define w_retcode w_T.w_Retcode -# define w_stopval w_S.w_Stopval -# define w_stopsig w_S.w_Stopsig -# else /* _SEQUENT_ */ -# if defined(vax) || defined(i386) || defined(_I386) - union { - struct { - unsigned int w_Termsig:7; - unsigned int w_Coredump:1; - unsigned int w_Retcode:8; - unsigned int w_Dummy:16; - } w_T; - struct { - unsigned int w_Stopval:8; - unsigned int w_Stopsig:8; - unsigned int w_Dummy:16; - } w_S; - } w_P; -# else /* mc68000 || sparc || ??? */ -# if defined(_CRAY) || defined(ANY_OTHER_64BIT_MACHINE) -# define DUMMY_BITS 48 -# else /* _CRAY */ -# define DUMMY_BITS 16 -# endif /* _CRAY */ - union { - struct { - unsigned int w_Dummy:DUMMY_BITS; - unsigned int w_Retcode:8; - unsigned int w_Coredump:1; - unsigned int w_Termsig:7; - } w_T; - struct { - unsigned int w_Dummy:DUMMY_BITS; - unsigned int w_Stopsig:8; - unsigned int w_Stopval:8; - } w_S; - } w_P; -# endif /* vax || i386 || _I386 */ -}; - -# define w_termsig w_P.w_T.w_Termsig -# define w_coredump w_P.w_T.w_Coredump -# define w_retcode w_P.w_T.w_Retcode -# define w_stopval w_P.w_S.w_Stopval -# define w_stopsig w_P.w_S.w_Stopsig -# endif /* _SEQUENT_ */ - - -# ifndef WNOHANG -# define WNOHANG 1 /* dont hang in wait */ -# endif - -# ifndef WUNTRACED -# define WUNTRACED 2 /* tell about stopped, untraced children */ -# endif - -# define WSTOPPED 0177 -# define WIFSTOPPED(x) ((x).w_stopval == WSTOPPED) -# define WIFSIGNALED(x) (((x).w_stopval != WSTOPPED) && ((x).w_termsig != 0)) - -#endif /* NEEDwait */ - -#endif /* _h_tc_wait */ diff --git a/contrib/tcsh/tc.who.c b/contrib/tcsh/tc.who.c deleted file mode 100644 index fe80702f4423..000000000000 --- a/contrib/tcsh/tc.who.c +++ /dev/null @@ -1,679 +0,0 @@ -/* $Header: /src/pub/tcsh/tc.who.c,v 3.28 1998/04/08 13:59:13 christos Exp $ */ -/* - * tc.who.c: Watch logins and logouts... - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tc.who.c,v 3.28 1998/04/08 13:59:13 christos Exp $") - -#include "tc.h" - -#ifndef HAVENOUTMP -/* - * kfk 26 Jan 1984 - for login watch functions. - */ -#include <ctype.h> - -#ifdef HAVEUTMPX -# include <utmpx.h> -/* I just redefine a few words here. Changing every occurrence below - * seems like too much of work. All UTMP functions have equivalent - * UTMPX counterparts, so they can be added all here when needed. - * Kimmo Suominen, Oct 14 1991 - */ -# ifndef _PATH_UTMP -# define _PATH_UTMP UTMPX_FILE -# endif /* _PATH_UTMP */ -# define utmp utmpx -# define ut_time ut_xtime -#else /* !HAVEUTMPX */ -# ifndef WINNT -# include <utmp.h> -# endif /* WINNT */ -#endif /* HAVEUTMPX */ - -#ifndef BROKEN_CC -# define UTNAMLEN sizeof(((struct utmp *) 0)->ut_name) -# define UTLINLEN sizeof(((struct utmp *) 0)->ut_line) -# ifdef UTHOST -# ifdef _SEQUENT_ -# define UTHOSTLEN 100 -# else -# define UTHOSTLEN sizeof(((struct utmp *) 0)->ut_host) -# endif -# endif /* UTHOST */ -#else -/* give poor cc a little help if it needs it */ -struct utmp __ut; - -# define UTNAMLEN sizeof(__ut.ut_name) -# define UTLINLEN sizeof(__ut.ut_line) -# ifdef UTHOST -# ifdef _SEQUENT_ -# define UTHOSTLEN 100 -# else -# define UTHOSTLEN sizeof(__ut.ut_host) -# endif -# endif /* UTHOST */ -#endif /* BROKEN_CC */ - -#ifndef _PATH_UTMP -# ifdef UTMP_FILE -# define _PATH_UTMP UTMP_FILE -# else -# define _PATH_UTMP "/etc/utmp" -# endif /* UTMP_FILE */ -#endif /* _PATH_UTMP */ - - -struct who { - struct who *who_next; - struct who *who_prev; - char who_name[UTNAMLEN + 1]; - char who_new[UTNAMLEN + 1]; - char who_tty[UTLINLEN + 1]; -#ifdef UTHOST - char who_host[UTHOSTLEN + 1]; -#endif /* UTHOST */ - time_t who_time; - int who_status; -}; - -static struct who whohead, whotail; -static time_t watch_period = 0; -static time_t stlast = 0; -#ifdef WHODEBUG -static void debugwholist __P((struct who *, struct who *)); -#endif -static void print_who __P((struct who *)); - - -#define ONLINE 01 -#define OFFLINE 02 -#define CHANGED 04 -#define STMASK 07 -#define ANNOUNCE 010 - -/* - * Karl Kleinpaste, 26 Jan 1984. - * Initialize the dummy tty list for login watch. - * This dummy list eliminates boundary conditions - * when doing pointer-chase searches. - */ -void -initwatch() -{ - whohead.who_next = &whotail; - whotail.who_prev = &whohead; - stlast = 1; -#ifdef WHODEBUG - debugwholist(NULL, NULL); -#endif /* WHODEBUG */ -} - -void -resetwatch() -{ - watch_period = 0; - stlast = 0; -} - -/* - * Karl Kleinpaste, 26 Jan 1984. - * Watch /etc/utmp for login/logout changes. - */ -void -watch_login(force) - int force; -{ - int utmpfd, comp = -1, alldone; - int firsttime = stlast == 1; -#ifdef BSDSIGS - sigmask_t omask; -#endif /* BSDSIGS */ - struct utmp utmp; - struct who *wp, *wpnew; - struct varent *v; - Char **vp = NULL; - time_t t, interval = MAILINTVL; - struct stat sta; -#if defined(UTHOST) && defined(_SEQUENT_) - char *host, *ut_find_host(); -#endif -#ifdef WINNT - static int ncbs_posted = 0; - USE(utmp); - USE(utmpfd); - USE(sta); - USE(wpnew); -#endif /* WINNT */ - - /* stop SIGINT, lest our login list get trashed. */ -#ifdef BSDSIGS - omask = sigblock(sigmask(SIGINT)); -#else - (void) sighold(SIGINT); -#endif - - v = adrof(STRwatch); - if (v == NULL && !force) { -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else - (void) sigrelse(SIGINT); -#endif - return; /* no names to watch */ - } - if (!force) { - trim(vp = v->vec); - if (blklen(vp) % 2) /* odd # args: 1st == # minutes. */ - interval = (number(*vp)) ? (getn(*vp++) * 60) : MAILINTVL; - } - else - interval = 0; - - (void) time(&t); -#ifdef WINNT - /* - * Since NCB_ASTATs take time, start em async at least 90 secs - * before we are due -amol 6/5/97 - */ - if (!ncbs_posted) { - unsigned long tdiff = t - watch_period; - if (!watch_period || ((tdiff > 0) && (tdiff > (interval - 90)))) { - start_ncbs(vp); - ncbs_posted = 1; - } - } -#endif /* WINNT */ - if (t - watch_period < interval) { -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else - (void) sigrelse(SIGINT); -#endif - return; /* not long enough yet... */ - } - watch_period = t; -#ifdef WINNT - ncbs_posted = 0; -#else /* !WINNT */ - - /* - * From: Michael Schroeder <mlschroe@immd4.informatik.uni-erlangen.de> - * Don't open utmp all the time, stat it first... - */ - if (stat(_PATH_UTMP, &sta)) { - xprintf(CGETS(26, 1, "cannot stat %s. Please \"unset watch\".\n"), - _PATH_UTMP); -# ifdef BSDSIGS - (void) sigsetmask(omask); -# else - (void) sigrelse(SIGINT); -# endif - return; - } - if (stlast == sta.st_mtime) { -# ifdef BSDSIGS - (void) sigsetmask(omask); -# else - (void) sigrelse(SIGINT); -# endif - return; - } - stlast = sta.st_mtime; - if ((utmpfd = open(_PATH_UTMP, O_RDONLY)) < 0) { - xprintf(CGETS(26, 2, "%s cannot be opened. Please \"unset watch\".\n"), - _PATH_UTMP); -# ifdef BSDSIGS - (void) sigsetmask(omask); -# else - (void) sigrelse(SIGINT); -# endif - return; - } - - /* - * xterm clears the entire utmp entry - mark everyone on the status list - * OFFLINE or we won't notice X "logouts" - */ - for (wp = whohead.who_next; wp->who_next != NULL; wp = wp->who_next) { - wp->who_status = OFFLINE; - wp->who_time = 0; - } - - /* - * Read in the utmp file, sort the entries, and update existing entries or - * add new entries to the status list. - */ - while (read(utmpfd, (char *) &utmp, sizeof utmp) == sizeof utmp) { - -# ifdef DEAD_PROCESS -# ifndef IRIS4D - if (utmp.ut_type != USER_PROCESS) - continue; -# else - /* Why is that? Cause the utmp file is always corrupted??? */ - if (utmp.ut_type != USER_PROCESS && utmp.ut_type != DEAD_PROCESS) - continue; -# endif /* IRIS4D */ -# endif /* DEAD_PROCESS */ - - if (utmp.ut_name[0] == '\0' && utmp.ut_line[0] == '\0') - continue; /* completely void entry */ -# ifdef DEAD_PROCESS - if (utmp.ut_type == DEAD_PROCESS && utmp.ut_line[0] == '\0') - continue; -# endif /* DEAD_PROCESS */ - wp = whohead.who_next; - while (wp->who_next && (comp = strncmp(wp->who_tty, utmp.ut_line, UTLINLEN)) < 0) - wp = wp->who_next;/* find that tty! */ - - if (wp->who_next && comp == 0) { /* found the tty... */ -# ifdef DEAD_PROCESS - if (utmp.ut_type == DEAD_PROCESS) { - wp->who_time = utmp.ut_time; - wp->who_status = OFFLINE; - } - else -# endif /* DEAD_PROCESS */ - if (utmp.ut_name[0] == '\0') { - wp->who_time = utmp.ut_time; - wp->who_status = OFFLINE; - } - else if (strncmp(utmp.ut_name, wp->who_name, UTNAMLEN) == 0) { - /* someone is logged in */ - wp->who_time = utmp.ut_time; - wp->who_status = 0; /* same guy */ - } - else { - (void) strncpy(wp->who_new, utmp.ut_name, UTNAMLEN); -# ifdef UTHOST -# ifdef _SEQUENT_ - host = ut_find_host(wp->who_tty); - if (host) - (void) strncpy(wp->who_host, host, UTHOSTLEN); - else - wp->who_host[0] = 0; -# else - (void) strncpy(wp->who_host, utmp.ut_host, UTHOSTLEN); -# endif -# endif /* UTHOST */ - wp->who_time = utmp.ut_time; - if (wp->who_name[0] == '\0') - wp->who_status = ONLINE; - else - wp->who_status = CHANGED; - } - } - else { /* new tty in utmp */ - wpnew = (struct who *) xcalloc(1, sizeof *wpnew); - (void) strncpy(wpnew->who_tty, utmp.ut_line, UTLINLEN); -# ifdef UTHOST -# ifdef _SEQUENT_ - host = ut_find_host(wpnew->who_tty); - if (host) - (void) strncpy(wpnew->who_host, host, UTHOSTLEN); - else - wpnew->who_host[0] = 0; -# else - (void) strncpy(wpnew->who_host, utmp.ut_host, UTHOSTLEN); -# endif -# endif /* UTHOST */ - wpnew->who_time = utmp.ut_time; -# ifdef DEAD_PROCESS - if (utmp.ut_type == DEAD_PROCESS) - wpnew->who_status = OFFLINE; - else -# endif /* DEAD_PROCESS */ - if (utmp.ut_name[0] == '\0') - wpnew->who_status = OFFLINE; - else { - (void) strncpy(wpnew->who_new, utmp.ut_name, UTNAMLEN); - wpnew->who_status = ONLINE; - } -# ifdef WHODEBUG - debugwholist(wpnew, wp); -# endif /* WHODEBUG */ - - wpnew->who_next = wp; /* link in a new 'who' */ - wpnew->who_prev = wp->who_prev; - wpnew->who_prev->who_next = wpnew; - wp->who_prev = wpnew; /* linked in now */ - } - } - (void) close(utmpfd); -# if defined(UTHOST) && defined(_SEQUENT_) - endutent(); -# endif -#endif /* !WINNT */ - - if (force || vp == NULL) - return; - - /* - * The state of all logins is now known, so we can search the user's list - * of watchables to print the interesting ones. - */ - for (alldone = 0; !alldone && *vp != NULL && **vp != '\0' && - *(vp + 1) != NULL && **(vp + 1) != '\0'; - vp += 2) { /* args used in pairs... */ - - if (eq(*vp, STRany) && eq(*(vp + 1), STRany)) - alldone = 1; - - for (wp = whohead.who_next; wp->who_next != NULL; wp = wp->who_next) { - if (wp->who_status & ANNOUNCE || - (!eq(STRany, vp[0]) && - !Gmatch(str2short(wp->who_name), vp[0]) && - !Gmatch(str2short(wp->who_new), vp[0])) || - (!Gmatch(str2short(wp->who_tty), vp[1]) && - !eq(STRany, vp[1]))) - continue; /* entry doesn't qualify */ - /* already printed or not right one to print */ - - - if (wp->who_time == 0)/* utmp entry was cleared */ - wp->who_time = watch_period; - - if ((wp->who_status & OFFLINE) && - (wp->who_name[0] != '\0')) { - if (!firsttime) - print_who(wp); - wp->who_name[0] = '\0'; - wp->who_status |= ANNOUNCE; - continue; - } - if (wp->who_status & ONLINE) { - if (!firsttime) - print_who(wp); - (void) strcpy(wp->who_name, wp->who_new); - wp->who_status |= ANNOUNCE; - continue; - } - if (wp->who_status & CHANGED) { - if (!firsttime) - print_who(wp); - (void) strcpy(wp->who_name, wp->who_new); - wp->who_status |= ANNOUNCE; - continue; - } - } - } -#ifdef BSDSIGS - (void) sigsetmask(omask); -#else - (void) sigrelse(SIGINT); -#endif -} - -#ifdef WHODEBUG -static void -debugwholist(new, wp) - register struct who *new, *wp; -{ - register struct who *a; - - a = whohead.who_next; - while (a->who_next != NULL) { - xprintf("%s/%s -> ", a->who_name, a->who_tty); - a = a->who_next; - } - xprintf("TAIL\n"); - if (a != &whotail) { - xprintf(CGETS(26, 3, "BUG! last element is not whotail!\n")); - abort(); - } - a = whotail.who_prev; - xprintf(CGETS(26, 4, "backward: ")); - while (a->who_prev != NULL) { - xprintf("%s/%s -> ", a->who_name, a->who_tty); - a = a->who_prev; - } - xprintf("HEAD\n"); - if (a != &whohead) { - xprintf(CGETS(26, 5, "BUG! first element is not whohead!\n")); - abort(); - } - if (new) - xprintf(CGETS(26, 6, "new: %s/%s\n"), new->who_name, new->who_tty); - if (wp) - xprintf("wp: %s/%s\n", wp->who_name, wp->who_tty); -} -#endif /* WHODEBUG */ - - -static void -print_who(wp) - struct who *wp; -{ -#ifdef UTHOST - Char *cp = str2short(CGETS(26, 7, "%n has %a %l from %m.")); -#else - Char *cp = str2short(CGETS(26, 8, "%n has %a %l.")); -#endif /* UTHOST */ - struct varent *vp = adrof(STRwho); - Char buf[BUFSIZE]; - - if (vp && vp->vec[0]) - cp = vp->vec[0]; - - tprintf(FMT_WHO, buf, cp, BUFSIZE, NULL, wp->who_time, (ptr_t) wp); - for (cp = buf; *cp;) - xputchar(*cp++); - xputchar('\n'); -} /* end print_who */ - - -const char * -who_info(ptr, c, wbuf, wbufsiz) - ptr_t ptr; - int c; - char *wbuf; - size_t wbufsiz; -{ - struct who *wp = (struct who *) ptr; -#ifdef UTHOST - char *wb = wbuf; - int flg; - char *pb; -#endif /* UTHOST */ - - switch (c) { - case 'n': /* user name */ - switch (wp->who_status & STMASK) { - case ONLINE: - case CHANGED: - return wp->who_new; - case OFFLINE: - return wp->who_name; - default: - break; - } - break; - - case 'a': - switch (wp->who_status & STMASK) { - case ONLINE: - return CGETS(26, 9, "logged on"); - case OFFLINE: - return CGETS(26, 10, "logged off"); - case CHANGED: - xsnprintf(wbuf, wbufsiz, CGETS(26, 11, "replaced %s on"), - wp->who_name); - return wbuf; - default: - break; - } - break; - -#ifdef UTHOST - case 'm': - if (wp->who_host[0] == '\0') - return CGETS(26, 12, "local"); - else { - /* the ':' stuff is for <host>:<display>.<screen> */ - for (pb = wp->who_host, flg = Isdigit(*pb) ? '\0' : '.'; - *pb != '\0' && - (*pb != flg || ((pb = strchr(pb, ':')) != 0)); - pb++) { - if (*pb == ':') - flg = '\0'; - *wb++ = Isupper(*pb) ? Tolower(*pb) : *pb; - } - *wb = '\0'; - return wbuf; - } - - case 'M': - if (wp->who_host[0] == '\0') - return CGETS(26, 12, "local"); - else { - for (pb = wp->who_host; *pb != '\0'; pb++) - *wb++ = Isupper(*pb) ? Tolower(*pb) : *pb; - *wb = '\0'; - return wbuf; - } -#endif /* UTHOST */ - - case 'l': - return wp->who_tty; - - default: - wbuf[0] = '%'; - wbuf[1] = (char) c; - wbuf[2] = '\0'; - return wbuf; - } - return NULL; -} - -void -/*ARGSUSED*/ -dolog(v, c) -Char **v; -struct command *c; -{ - struct who *wp; - struct varent *vp; - - USE(v); - USE(c); - vp = adrof(STRwatch); /* lint insists vp isn't used unless we */ - if (vp == NULL) /* unless we assign it outside the if */ - stderror(ERR_NOWATCH); - resetwatch(); - wp = whohead.who_next; - while (wp->who_next != NULL) { - wp->who_name[0] = '\0'; - wp = wp->who_next; - } -} - -# ifdef UTHOST -char * -utmphost() -{ - char *tty = short2str(varval(STRtty)); - struct who *wp; - char *host = NULL; - - watch_login(1); - - for (wp = whohead.who_next; wp->who_next != NULL; wp = wp->who_next) { - if (strcmp(tty, wp->who_tty) == 0) - host = wp->who_host; - wp->who_name[0] = '\0'; - } - resetwatch(); - return host; -} -# endif /* UTHOST */ - -#ifdef WINNT -void add_to_who_list(name, mach_nm) - char *name; - char *mach_nm; -{ - - struct who *wp, *wpnew; - int comp = -1; - - wp = whohead.who_next; - while (wp->who_next && (comp = strncmp(wp->who_tty,mach_nm,UTLINLEN)) < 0) - wp = wp->who_next;/* find that tty! */ - - if (wp->who_next && comp == 0) { /* found the tty... */ - - if (*name == '\0') { - wp->who_time = 0; - wp->who_status = OFFLINE; - } - else if (strncmp(name, wp->who_name, UTNAMLEN) == 0) { - /* someone is logged in */ - wp->who_time = 0; - wp->who_status = 0; /* same guy */ - } - else { - (void) strncpy(wp->who_new, name, UTNAMLEN); - wp->who_time = 0; - if (wp->who_name[0] == '\0') - wp->who_status = ONLINE; - else - wp->who_status = CHANGED; - } - } - else { - wpnew = (struct who *) xcalloc(1, sizeof *wpnew); - (void) strncpy(wpnew->who_tty, mach_nm, UTLINLEN); - wpnew->who_time = 0; - if (*name == '\0') - wpnew->who_status = OFFLINE; - else { - (void) strncpy(wpnew->who_new, name, UTNAMLEN); - wpnew->who_status = ONLINE; - } -#ifdef WHODEBUG - debugwholist(wpnew, wp); -#endif /* WHODEBUG */ - - wpnew->who_next = wp; /* link in a new 'who' */ - wpnew->who_prev = wp->who_prev; - wpnew->who_prev->who_next = wpnew; - wp->who_prev = wpnew; /* linked in now */ - } -} -#endif /* WINNT */ -#endif /* HAVENOUTMP */ diff --git a/contrib/tcsh/tcsh.man b/contrib/tcsh/tcsh.man deleted file mode 100644 index ad7f0fb85343..000000000000 --- a/contrib/tcsh/tcsh.man +++ /dev/null @@ -1,5105 +0,0 @@ -.\" Copyright (c) 1980, 1990, 1993 -.\" The Regents of the University of California. All rights reserved. -.\" -.\" Redistribution and use in source and binary forms, with or without -.\" modification, are permitted provided that the following conditions -.\" are met: -.\" 1. Redistributions of source code must retain the above copyright -.\" notice, this list of conditions and the following disclaimer. -.\" 2. Redistributions in binary form must reproduce the above copyright -.\" notice, this list of conditions and the following disclaimer in the -.\" documentation and/or other materials provided with the distribution. -.\" 3. All advertising materials mentioning features or use of this software -.\" must display the following acknowledgment: -.\" This product includes software developed by the University of -.\" California, Berkeley and its contributors. -.\" 4. Neither the name of the University nor the names of its contributors -.\" may be used to endorse or promote products derived from this software -.\" without specific prior written permission. -.\" -.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND -.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -.\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE -.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS -.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) -.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT -.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY -.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF -.\" SUCH DAMAGE. -.\" -.\" Style notes for the tcsh man page: -.\" -.\" - Tags in lists are bold, except in the FILES section where they are -.\" italic. -.\" -.\" - References are bold for section headings and environment and shell -.\" variables and italic for commands (externals, builtins, aliases, and -.\" editor commands) and arguments to commands. -.\" -.\" - Be careful with the .B and .I macros: they handle only a limited number -.\" of words. Work around this with \fB and \fI, but only if absolutely -.\" necessary, because tcsh.man2html uses .B/.I to find name anchors. -.\" -.\" - Indent in multiples of 4, usually 8. -.\" -.\" - Use `', not '' or "", except of course in shell syntax examples. -.\" '' at the beginning of a line will vanish! -.\" -.\" - Use \-, not -. -.\" -.\" - Include the tilde when naming dot files. `~/.login', not `.login'. -.\" -.\" - Refer to external commands in man page format, e.g., `csh(1)'. However, -.\" tcsh is `tcsh', not `tcsh(1)', because this is the tcsh man page (and -.\" see the next note anyway). -.\" -.\" - Say `the shell', not `tcsh', unless distinguishing between tcsh and csh. -.\" -.\" - Say `shell variable'/`environment variable' instead of `variable' -.\" and `builtin command'/`editor command' instead of `builtin' or `command' -.\" unless the distinction is absolutely clear from context. -.\" -.\" - Use the simple present tense. `The shell uses', not `The shell will use'. -.\" -.\" - IMPORTANT: Cross-reference as much as possible. Commands, variables, -.\" etc. in the reference section should be mentioned in the appropriate -.\" descriptive section, or at least in the reference-section description -.\" of another command (or whatever) which is mentioned in a description -.\" section. Remember to note OS-specific things in "OS variant support", -.\" new features in NEW FEATURES and referenced external commands in SEE -.\" ALSO. -.\" -.\" - tcsh.man2html depends heavily on the specific nroff commands used in the -.\" man page when the script was written. Please stick closely to the style -.\" used here if you can. In particular, please don't use nroff commands -.\" which aren't already used herein. -.\" -.TH TCSH 1 "14 January 2000" "Astron 6.09.01" -.SH NAME -tcsh \- C shell with file name completion and command line editing -.SH SYNOPSIS -.B tcsh \fR[\fB\-bcdefFimnqstvVxX\fR] [\fB\-Dname\fR[\fB=value\fR]] [arg ...] -.br -.B tcsh \-l -.SH DESCRIPTION -\fItcsh\fR is an enhanced but completely compatible version of the Berkeley -UNIX C shell, \fIcsh\fR(1). -It is a command language interpreter usable both as an interactive login -shell and a shell script command processor. -It includes a command-line editor (see \fBThe command-line editor\fR), -programmable word completion (see \fBCompletion and listing\fR), -spelling correction (see \fBSpelling correction\fR), -a history mechanism (see \fBHistory substitution\fR), -job control (see \fBJobs\fR) -and a C-like syntax. -The \fBNEW FEATURES\fR section describes major enhancements of \fItcsh\fR -over \fIcsh\fR(1). -Throughout this manual, features of -\fItcsh\fR not found in most \fIcsh\fR(1) implementations -(specifically, the 4.4BSD \fIcsh\fR) -are labeled with `(+)', and features which are present in \fIcsh\fR(1) -but not usually documented are labeled with `(u)'. -.SS "Argument list processing" -If the first argument (argument 0) to the shell is `\-' then it is a -login shell. A login shell can be also specified by invoking the shell with -the \fB\-l\fR flag as the only argument. -.PP -The rest of the flag arguments are interpreted as follows: -.TP 4 -.B \-b -Forces a ``break'' from option processing, causing any -further shell arguments to be treated as non-option arguments. The remaining -arguments will not be interpreted as shell options. This may be used to pass -options to a shell script without confusion or possible subterfuge. The shell -will not run a set-user ID script without this option. -.TP 4 -.B \-c -Commands are read from the following argument (which must be present, and -must be a single argument), -stored in the \fBcommand\fR shell variable for reference, and executed. -Any remaining arguments are placed in the \fBargv\fR shell variable. -.TP 4 -.B \-d -The shell loads the directory stack from \fI~/.cshdirs\fR as described under -\fBStartup and shutdown\fR, whether or not it is a login shell. (+) -.TP 4 -.B \-D\fIname\fR[=\fIvalue\fR] -Sets the environment variable \fIname\fR to \fIvalue\fR. (Domain/OS only) (+) -.TP 4 -.B \-e -The shell exits if any invoked command terminates abnormally or -yields a non-zero exit status. -.TP 4 -.B \-f -The shell ignores \fI~/.tcshrc\fR, and thus starts faster. -.TP 4 -.B \-F -The shell uses \fIfork\fR(2) instead of \fIvfork\fR(2) to spawn processes. (Convex/OS only) (+) -.TP 4 -.B \-i -The shell is interactive and prompts for its top-level input, even if -it appears to not be a terminal. Shells are interactive without this option if -their inputs and outputs are terminals. -.TP 4 -.B \-l -The shell is a login shell. Applicable only if \fB\-l\fR is the only -flag specified. -.TP 4 -.B \-m -The shell loads \fI~/.tcshrc\fR even if it does not belong to the effective -user. Newer versions of \fIsu\fR(1) can pass \fB\-m\fR to the shell. (+) -.TP 4 -.B \-n -The shell parses commands but does not execute them. -This aids in debugging shell scripts. -.TP 4 -.B \-q -The shell accepts SIGQUIT (see \fBSignal handling\fR) and behaves when -it is used under a debugger. Job control is disabled. (u) -.TP 4 -.B \-s -Command input is taken from the standard input. -.TP 4 -.B \-t -The shell reads and executes a single line of input. A `\\' may be used to -escape the newline at the end of this line and continue onto another line. -.TP 4 -.B \-v -Sets the \fBverbose\fR shell variable, so that -command input is echoed after history substitution. -.TP 4 -.B \-x -Sets the \fBecho\fR shell variable, so that commands are echoed -immediately before execution. -.TP 4 -.B \-V -Sets the \fBverbose\fR shell variable even before executing \fI~/.tcshrc\fR. -.TP 4 -.B \-X -Is to \fB\-x\fR as \fB\-V\fR is to \fB\-v\fR. -.PP -After processing of flag arguments, if arguments remain but none of the -\fB\-c\fR, \fB\-i\fR, \fB\-s\fR, or \fB\-t\fR options were given, the first -argument is taken as the name of a file of commands, or ``script'', to -be executed. The shell opens this file and saves its name for possible -resubstitution by `$0'. Because many systems use either the standard -version 6 or version 7 shells whose shell scripts are not compatible -with this shell, the shell uses such a `standard' shell to execute a script -whose first character is not a `#', i.e., that does not start with a -comment. -.PP -Remaining arguments are placed in the \fBargv\fR shell variable. -.SS "Startup and shutdown" -A login shell begins by executing commands from the system files -\fI/etc/csh.cshrc\fR and \fI/etc/csh.login\fR. -It then executes commands from files in the user's \fBhome\fR directory: -first \fI~/.tcshrc\fR (+) -or, if \fI~/.tcshrc\fR is not found, \fI~/.cshrc\fR, -then \fI~/.history\fR (or the value of the \fBhistfile\fR shell variable), -then \fI~/.login\fR, -and finally \fI~/.cshdirs\fR (or the value of the \fBdirsfile\fR shell variable) (+). -The shell may read \fI/etc/csh.login\fR before instead of after -\fI/etc/csh.cshrc\fR, and \fI~/.login\fR before instead of after -\fI~/.tcshrc\fR or \fI~/.cshrc\fR and \fI~/.history\fR, if so compiled; -see the \fBversion\fR shell variable. (+) -.PP -Non-login shells read only \fI/etc/csh.cshrc\fR and \fI~/.tcshrc\fR -or \fI~/.cshrc\fR on startup. -.PP -Commands like \fIstty\fR(1) and \fItset\fR(1), -which need be run only once per login, usually go in one's \fI~/.login\fR file. -Users who need to use the same set of files with both \fIcsh\fR(1) and -\fItcsh\fR can have only a \fI~/.cshrc\fR which checks for the existence of the -\fBtcsh\fR shell variable (q.v.) before using \fItcsh\fR-specific commands, -or can have both a \fI~/.cshrc\fR and a \fI~/.tcshrc\fR which \fIsource\fRs -(see the builtin command) \fI~/.cshrc\fR. -The rest of this manual uses `\fI~/.tcshrc\fR' to mean `\fI~/.tcshrc\fR or, -if \fI~/.tcshrc\fR is not found, \fI~/.cshrc\fR'. -.PP -In the normal case, the shell begins reading commands from the terminal, -prompting with `> '. (Processing of arguments and the use of the shell to -process files containing command scripts are described later.) -The shell repeatedly reads a line of command input, breaks it into words, -places it on the command history list, parses it and executes each command -in the line. -.PP -One can log out by typing `^D' on an empty line, `logout' or `login' or -via the shell's autologout mechanism (see the \fBautologout\fR shell variable). -When a login shell terminates it sets the \fBlogout\fR shell variable to -`normal' or `automatic' as appropriate, then -executes commands from the files -\fI/etc/csh.logout\fR and \fI~/.logout\fR. The shell may drop DTR on logout -if so compiled; see the \fBversion\fR shell variable. -.PP -The names of the system login and logout files vary from system to system for -compatibility with different \fIcsh\fR(1) variants; see \fBFILES\fR. -.SS Editing -We first describe \fBThe command-line editor\fR. -The \fBCompletion and listing\fR and \fBSpelling correction\fR sections -describe two sets of functionality that are implemented as editor commands -but which deserve their own treatment. -Finally, \fBEditor commands\fR lists and describes -the editor commands specific to the shell and their default bindings. -.SS "The command-line editor (+)" -Command-line input can be edited using key sequences much like those used in -GNU Emacs or \fIvi\fR(1). -The editor is active only when the \fBedit\fR shell variable is set, which -it is by default in interactive shells. -The \fIbindkey\fR builtin can display and change key bindings. -Emacs-style key bindings are used by default -(unless the shell was compiled otherwise; see the \fBversion\fR shell variable), -but \fIbindkey\fR can change the key bindings to \fIvi\fR-style bindings en masse. -.PP -The shell always binds the arrow keys (as defined in the \fBTERMCAP\fR -environment variable) to -.PP -.PD 0 -.RS +4 -.TP 8 -down -\fIdown-history\fR -.TP 8 -up -\fIup-history\fR -.TP 8 -left -\fIbackward-char\fR -.TP 8 -right -\fIforward-char\fR -.PD -.RE -.PP -unless doing so would alter another single-character binding. -One can set the arrow key escape sequences to the empty string with \fIsettc\fR -to prevent these bindings. -The ANSI/VT100 sequences for arrow keys are always bound. -.PP -Other key bindings are, for the most part, what Emacs and \fIvi\fR(1) -users would expect and can easily be displayed by \fIbindkey\fR, so there -is no need to list them here. Likewise, \fIbindkey\fR can list the editor -commands with a short description of each. -.PP -Note that editor commands do not have the same notion of a ``word'' as does the -shell. The editor delimits words with any non-alphanumeric characters not in -the shell variable \fBwordchars\fR, while the shell recognizes only whitespace -and some of the characters with special meanings to it, listed under -\fBLexical structure\fR. -.SS "Completion and listing (+)" -The shell is often able to complete words when given a unique abbreviation. -Type part of a word (for example `ls /usr/lost') and hit the tab key to -run the \fIcomplete-word\fR editor command. -The shell completes the filename `/usr/lost' to `/usr/lost+found/', -replacing the incomplete word with the complete word in the input buffer. -(Note the terminal `/'; completion adds a `/' to the -end of completed directories and a space to the end of other completed words, -to speed typing and provide a visual indicator of successful completion. -The \fBaddsuffix\fR shell variable can be unset to prevent this.) -If no match is found (perhaps `/usr/lost+found' doesn't exist), -the terminal bell rings. -If the word is already complete (perhaps there is a `/usr/lost' on your -system, or perhaps you were thinking too far ahead and typed the whole thing) -a `/' or space is added to the end if it isn't already there. -.PP -Completion works anywhere in the line, not at just the end; completed -text pushes the rest of the line to the right. Completion in the middle of a word -often results in leftover characters to the right of the cursor that need -to be deleted. -.PP -Commands and variables can be completed in much the same way. -For example, typing `em[tab]' would complete `em' to -`emacs' if \fIemacs\fR were the only command on your system beginning with `em'. -Completion can find a command in any directory in \fBpath\fR or if -given a full pathname. -Typing `echo $ar[tab]' would complete `$ar' to `$argv' -if no other variable began with `ar'. -.PP -The shell parses the input buffer to determine whether the word you want to -complete should be completed as a filename, command or variable. -The first word in the buffer and the first word following -`;', `|', `|&', `&&' or `||' is considered to be a command. -A word beginning with `$' is considered to be a variable. -Anything else is a filename. An empty line is `completed' as a filename. -.PP -You can list the possible completions of a word at any time by typing `^D' -to run the \fIdelete-char-or-list-or-eof\fR editor command. -The shell lists the possible completions using the \fIls\-F\fR builtin (q.v.) -and reprints the prompt and unfinished command line, for example: -.IP "" 4 -> ls /usr/l[^D] -.br -lbin/ lib/ local/ lost+found/ -.br -> ls /usr/l -.PP -If the \fBautolist\fR shell variable is set, the shell lists the remaining -choices (if any) whenever completion fails: -.IP "" 4 -> set autolist -.br -> nm /usr/lib/libt[tab] -.br -libtermcap.a@ libtermlib.a@ -.br -> nm /usr/lib/libterm -.PP -If \fBautolist\fR is set to `ambiguous', choices are listed only when -completion fails and adds no new characters to the word being completed. -.PP -A filename to be completed can contain variables, your own or others' home -directories abbreviated with `~' (see \fBFilename substitution\fR) and -directory stack entries abbreviated with `=' -(see \fBDirectory stack substitution\fR). For example, -.IP "" 4 -> ls ~k[^D] -.br -kahn kas kellogg -.br -> ls ~ke[tab] -.br -> ls ~kellogg/ -.PP -or -.IP "" 4 -> set local = /usr/local -.br -> ls $lo[tab] -.br -> ls $local/[^D] -.br -bin/ etc/ lib/ man/ src/ -.br -> ls $local/ -.PP -Note that variables can also be expanded explicitly with the -\fIexpand-variables\fR editor command. -.PP -\fIdelete-char-or-list-or-eof\fR lists at only the end of the line; -in the middle of a line it deletes the character under the cursor and -on an empty line it logs one out or, if \fBignoreeof\fR is set, does nothing. -`M-^D', bound to the editor command \fIlist-choices\fR, lists completion -possibilities anywhere on a line, and \fIlist-choices\fR (or any one of the -related editor commands that do or don't delete, list and/or log out, -listed under \fIdelete-char-or-list-or-eof\fR) can be bound to `^D' with -the \fIbindkey\fR builtin command if so desired. -.PP -The \fIcomplete-word-fwd\fR and \fIcomplete-word-back\fR editor commands -(not bound to any keys by default) can be used to cycle up and down through -the list of possible completions, replacing the current word with the next or -previous word in the list. -.PP -The shell variable \fBfignore\fR can be set to a list of suffixes to be -ignored by completion. Consider the following: -.IP "" 4 -> ls -.br -Makefile condiments.h~ main.o side.c -.br -README main.c meal side.o -.br -condiments.h main.c~ -.br -> set fignore = (.o \\~) -.br -> emacs ma[^D] -.br -main.c main.c~ main.o -.br -> emacs ma[tab] -.br -> emacs main.c -.PP -`main.c~' and `main.o' are ignored by completion (but not listing), -because they end in suffixes in \fBfignore\fR. -Note that a `\\' was needed in front of `~' to prevent it from being -expanded to \fBhome\fR as described under \fBFilename substitution\fR. -\fBfignore\fR is ignored if only one completion is possible. -.PP -If the \fBcomplete\fR shell variable is set to `enhance', completion -1) ignores case and 2) considers periods, hyphens and underscores -(`.', `\-' and `_') to be word separators and hyphens and underscores to -be equivalent. If you had the following files -.IP "" 4 -comp.lang.c comp.lang.perl comp.std.c++ -.br -comp.lang.c++ comp.std.c -.PP -and typed `mail \-f c.l.c[tab]', it would be completed to -`mail \-f comp.lang.c', and ^D would list `comp.lang.c' and `comp.lang.c++'. -`mail \-f c..c++[^D]' would list `comp.lang.c++' and `comp.std.c++'. Typing -`rm a\-\-file[^D]' in the following directory -.IP "" 4 -A_silly_file a-hyphenated-file another_silly_file -.PP -would list all three files, because case is ignored and hyphens and -underscores are equivalent. Periods, however, are not equivalent to -hyphens or underscores. -.PP -Completion and listing are affected by several other shell variables: -\fBrecexact\fR can be set to complete on the shortest possible unique -match, even if more typing might result in a longer match: -.IP "" 4 -> ls -.br -fodder foo food foonly -.br -> set recexact -.br -> rm fo[tab] -.PP -just beeps, because `fo' could expand to `fod' or `foo', but if we type -another `o', -.IP "" 4 -> rm foo[tab] -.br -> rm foo -.PP -the completion completes on `foo', even though `food' and `foonly' -also match. -\fBautoexpand\fR can be set to run the \fIexpand-history\fR editor command -before each completion attempt, \fBautocorrect\fR can be set to -spelling-correct the word to be completed (see \fBSpelling correction\fR) -before each completion attempt and \fBcorrect\fR can be set to complete -commands automatically after one hits `return'. -\fBmatchbeep\fR can be set to make completion beep or not beep in a variety -of situations, and \fBnobeep\fR can be set to never beep at all. -\fBnostat\fR can be set to a list of directories and/or patterns that -match directories to prevent the completion mechanism from \fIstat\fR(2)ing -those directories. -\fBlistmax\fR and \fBlistmaxrows\fR can be set to limit the number of items -and rows (respectively) that are listed without asking first. -\fBrecognize_only_executables\fR can be set to make the shell list only -executables when listing commands, but it is quite slow. -.PP -Finally, the \fIcomplete\fR builtin command can be used to tell the shell how -to complete words other than filenames, commands and variables. -Completion and listing do not work on glob-patterns (see \fBFilename substitution\fR), -but the \fIlist-glob\fR and \fIexpand-glob\fR editor commands perform -equivalent functions for glob-patterns. -.SS "Spelling correction (+)" -The shell can sometimes correct the spelling of filenames, commands and variable names -as well as completing and listing them. -.PP -Individual words can be spelling-corrected with the \fIspell-word\fR -editor command (usually bound to M-s and M-S) -and the entire input buffer with \fIspell-line\fR (usually bound to M-$). -The \fBcorrect\fR shell variable can be set to `cmd' to correct the -command name or `all' to correct the entire line each time return is typed, -and \fBautocorrect\fR can be set to correct the word to be completed -before each completion attempt. -.PP -When spelling correction is invoked in any of these ways and -the shell thinks that any part of the command line is misspelled, -it prompts with the corrected line: -.IP "" 4 -> set correct = cmd -.br -> lz /usr/bin -.br -CORRECT>ls /usr/bin (y|n|e|a)? -.PP -One can answer `y' or space to execute the corrected line, -`e' to leave the uncorrected command in the input buffer, -`a' to abort the command as if `^C' had been hit, and -anything else to execute the original line unchanged. -.PP -Spelling correction recognizes user-defined completions (see the -\fIcomplete\fR builtin command). If an input word in a position for -which a completion is defined resembles a word in the completion list, -spelling correction registers a misspelling and suggests the latter -word as a correction. However, if the input word does not match any of -the possible completions for that position, spelling correction does -not register a misspelling. -.PP -Like completion, spelling correction works anywhere in the line, -pushing the rest of the line to the right and possibly leaving -extra characters to the right of the cursor. -.PP -Beware: spelling correction is not guaranteed to work the way one intends, -and is provided mostly as an experimental feature. -Suggestions and improvements are welcome. -.SS "Editor commands (+)" -`bindkey' lists key bindings and `bindkey \-l' lists and briefly describes -editor commands. -Only new or especially interesting editor commands are described here. -See \fIemacs\fR(1) and \fIvi\fR(1) for descriptions of each editor's -key bindings. -.PP -The character or characters to which each command is bound by default is -given in parentheses. `^\fIcharacter\fR' means a control character and -`M-\fIcharacter\fR' a meta character, typed as escape-\fIcharacter\fR -on terminals without a meta key. Case counts, but commands that are bound -to letters by default are bound to both lower- and uppercase letters for -convenience. -.TP 8 -.B complete-word \fR(tab) -Completes a word as described under \fBCompletion and listing\fR. -.TP 8 -.B complete-word-back \fR(not bound) -Like \fIcomplete-word-fwd\fR, but steps up from the end of the list. -.TP 8 -.B complete-word-fwd \fR(not bound) -Replaces the current word with the first word in the list of possible -completions. May be repeated to step down through the list. -At the end of the list, beeps and reverts to the incomplete word. -.TP 8 -.B complete-word-raw \fR(^X-tab) -Like \fIcomplete-word\fR, but ignores user-defined completions. -.TP 8 -.B copy-prev-word \fR(M-^_) -Copies the previous word in the current line into the input buffer. -See also \fIinsert-last-word\fR. -.TP 8 -.B dabbrev-expand \fR(M-/) -Expands the current word to the most recent preceding one for which -the current is a leading substring, wrapping around the history list -(once) if necessary. -Repeating \fIdabbrev-expand\fR without any intervening typing -changes to the next previous word etc., skipping identical matches -much like \fIhistory-search-backward\fR does. -.TP 8 -.B delete-char \fR(not bound) -Deletes the character under the cursor. -See also \fIdelete-char-or-list-or-eof\fR. -.TP 8 -.B delete-char-or-eof \fR(not bound) -Does \fIdelete-char\fR if there is a character under the cursor -or \fIend-of-file\fR on an empty line. -See also \fIdelete-char-or-list-or-eof\fR. -.TP 8 -.B delete-char-or-list \fR(not bound) -Does \fIdelete-char\fR if there is a character under the cursor -or \fIlist-choices\fR at the end of the line. -See also \fIdelete-char-or-list-or-eof\fR. -.TP 8 -.B delete-char-or-list-or-eof \fR(^D) -Does \fIdelete-char\fR if there is a character under the cursor, -\fIlist-choices\fR at the end of the line -or \fIend-of-file\fR on an empty line. -See also those three commands, each of which does only a single action, and -\fIdelete-char-or-eof\fR, \fIdelete-char-or-list\fR and \fIlist-or-eof\fR, -each of which does a different two out of the three. -.TP 8 -.B down-history \fR(down-arrow, ^N) -Like \fIup-history\fR, but steps down, stopping at the original input line. -.TP 8 -.B end-of-file \fR(not bound) -Signals an end of file, causing the shell to exit unless the \fBignoreeof\fR -shell variable (q.v.) is set to prevent this. -See also \fIdelete-char-or-list-or-eof\fR. -.TP 8 -.B expand-history \fR(M-space) -Expands history substitutions in the current word. -See \fBHistory substitution\fR. -See also \fImagic-space\fR, \fItoggle-literal-history\fR and -the \fBautoexpand\fR shell variable. -.TP 8 -.B expand-glob \fR(^X-*) -Expands the glob-pattern to the left of the cursor. -See \fBFilename substitution\fR. -.TP 8 -.B expand-line \fR(not bound) -Like \fIexpand-history\fR, but -expands history substitutions in each word in the input buffer, -.TP 8 -.B expand-variables \fR(^X-$) -Expands the variable to the left of the cursor. -See \fBVariable substitution\fR. -.TP 8 -.B history-search-backward \fR(M-p, M-P) -Searches backwards through the history list for a command beginning with -the current contents of the input buffer up to the cursor and copies it -into the input buffer. -The search string may be a glob-pattern (see \fBFilename substitution\fR) -containing `*', `?', `[]' or `{}'. -\fIup-history\fR and \fIdown-history\fR will proceed from the -appropriate point in the history list. -Emacs mode only. -See also \fIhistory-search-forward\fR and \fIi-search-back\fR. -.TP 8 -.B history-search-forward \fR(M-n, M-N) -Like \fIhistory-search-backward\fR, but searches forward. -.TP 8 -.B i-search-back \fR(not bound) -Searches backward like \fIhistory-search-backward\fR, copies the first match -into the input buffer with the cursor positioned at the end of the pattern, -and prompts with `bck: ' and the first match. Additional characters may be -typed to extend the search, \fIi-search-back\fR may be typed to continue -searching with the same pattern, wrapping around the history list if -necessary, (\fIi-search-back\fR must be bound to a -single character for this to work) or one of the following special characters -may be typed: -.PP -.RS +8 -.RS +4 -.PD 0 -.TP 8 -^W -Appends the rest of the word under the cursor to the search pattern. -.TP 8 -delete (or any character bound to \fIbackward-delete-char\fR) -Undoes the effect of the last character typed and deletes a character -from the search pattern if appropriate. -.TP 8 -^G -If the previous search was successful, aborts the entire search. -If not, goes back to the last successful search. -.TP 8 -escape -Ends the search, leaving the current line in the input buffer. -.RE -.PD -.PP -Any other character not bound to \fIself-insert-command\fR terminates the -search, leaving the current line in the input buffer, and -is then interpreted as normal input. In particular, a carriage return -causes the current line to be executed. -Emacs mode only. -See also \fIi-search-fwd\fR and \fIhistory-search-backward\fR. -.RE -.TP 8 -.B i-search-fwd \fR(not bound) -Like \fIi-search-back\fR, but searches forward. -.TP 8 -.B insert-last-word \fR(M-_) -Inserts the last word of the previous input line (`!$') into the input buffer. -See also \fIcopy-prev-word\fR. -.TP 8 -.B list-choices \fR(M-^D) -Lists completion possibilities as described under \fBCompletion and listing\fR. -See also \fIdelete-char-or-list-or-eof\fR and \fIlist-choices-raw\fR. -.TP 8 -.B list-choices-raw \fR(^X-^D) -Like \fIlist-choices\fR, but ignores user-defined completions. -.TP 8 -.B list-glob \fR(^X-g, ^X-G) -Lists (via the \fIls\-F\fR builtin) matches to the glob-pattern -(see \fBFilename substitution\fR) to the left of the cursor. -.TP 8 -.B list-or-eof \fR(not bound) -Does \fIlist-choices\fR -or \fIend-of-file\fR on an empty line. -See also \fIdelete-char-or-list-or-eof\fR. -.TP 8 -.B magic-space \fR(not bound) -Expands history substitutions in the current line, -like \fIexpand-history\fR, and appends a space. -\fImagic-space\fR is designed to be bound to the space bar, -but is not bound by default. -.TP 8 -.B normalize-command \fR(^X-?) -Searches for the current word in PATH and, if it is found, replaces it with -the full path to the executable. Special characters are quoted. Aliases are -expanded and quoted but commands within aliases are not. This command is -useful with commands that take commands as arguments, e.g., `dbx' and `sh \-x'. -.TP 8 -.B normalize-path \fR(^X-n, ^X-N) -Expands the current word as described under the `expand' setting -of the \fBsymlinks\fR shell variable. -.TP 8 -.B overwrite-mode \fR(unbound) -Toggles between input and overwrite modes. -.TP 8 -.B run-fg-editor \fR(M-^Z) -Saves the current input line and -looks for a stopped job with a name equal to the last component of the -file name part of the \fBEDITOR\fR or \fBVISUAL\fR environment variables, -or, if neither is set, `ed' or `vi'. -If such a job is found, it is restarted as if `fg %\fIjob\fR' had been -typed. This is used to toggle back and forth between an editor and -the shell easily. Some people bind this command to `^Z' so they -can do this even more easily. -.TP -.B run-help \fR(M-h, M-H) -Searches for documentation on the current command, using the same notion of -`current command' as the completion routines, and prints it. There is no way -to use a pager; \fIrun-help\fR is designed for short help files. -If the special alias \fBhelpcommand\fR is defined, it is run with the -command name as a sole argument. Else, -documentation should be in a file named \fIcommand\fR.help, \fIcommand\fR.1, -\fIcommand\fR.6, \fIcommand\fR.8 or \fIcommand\fR, which should be in one -of the directories listed in the \fBHPATH\fR environment variable. -If there is more than one help file only the first is printed. -.TP 8 -.B self-insert-command \fR(text characters) -In insert mode (the default), inserts the typed character into the input line after the character under the cursor. -In overwrite mode, replaces the character under the cursor with the typed character. -The input mode is normally preserved between lines, but the -\fBinputmode\fR shell variable can be set to `insert' or `overwrite' to put the -editor in that mode at the beginning of each line. -See also \fIoverwrite-mode\fR. -.TP 8 -.B sequence-lead-in \fR(arrow prefix, meta prefix, ^X) -Indicates that the following characters are part of a -multi-key sequence. Binding a command to a multi-key sequence really creates -two bindings: the first character to \fIsequence-lead-in\fR and the -whole sequence to the command. All sequences beginning with a character -bound to \fIsequence-lead-in\fR are effectively bound to \fIundefined-key\fR -unless bound to another command. -.TP 8 -.B spell-line \fR(M-$) -Attempts to correct the spelling of each word in the input buffer, like -\fIspell-word\fR, but ignores words whose first character is one of -`\-', `!', `^' or `%', or which contain `\\', `*' or `?', to avoid problems -with switches, substitutions and the like. -See \fBSpelling correction\fR. -.TP 8 -.B spell-word \fR(M-s, M-S) -Attempts to correct the spelling of the current word as described -under \fBSpelling correction\fR. -Checks each component of a word which appears to be a pathname. -.TP 8 -.B toggle-literal-history \fR(M-r, M-R) -Expands or `unexpands' history substitutions in the input buffer. -See also \fIexpand-history\fR and the \fBautoexpand\fR shell variable. -.TP 8 -.B undefined-key \fR(any unbound key) -Beeps. -.TP 8 -.B up-history \fR(up-arrow, ^P) -Copies the previous entry in the history list into the input buffer. -If \fBhistlit\fR is set, uses the literal form of the entry. -May be repeated to step up through the history list, stopping at the top. -.TP 8 -.B vi-search-back \fR(?) -Prompts with `?' for a search string (which may be a glob-pattern, as with -\fIhistory-search-backward\fR), searches for it and copies it into the -input buffer. The bell rings if no match is found. -Hitting return ends the search and leaves the last match in the input -buffer. -Hitting escape ends the search and executes the match. -\fIvi\fR mode only. -.TP 8 -.B vi-search-fwd \fR(/) -Like \fIvi-search-back\fR, but searches forward. -.TP 8 -.B which-command \fR(M-?) -Does a \fIwhich\fR (see the description of the builtin command) on the -first word of the input buffer. -.SS "Lexical structure" -The shell splits input lines into words at blanks and tabs. The special -characters `&', `|', `;', `<', `>', `(', and `)' and the doubled characters -`&&', `||', `<<' and `>>' are always separate words, whether or not they are -surrounded by whitespace. -.PP -When the shell's input is not a terminal, the character `#' is taken to begin a -comment. Each `#' and the rest of the input line on which it appears is -discarded before further parsing. -.PP -A special character (including a blank or tab) may be prevented from having -its special meaning, and possibly made part of another word, by preceding it -with a backslash (`\\') or enclosing it in single (`''), double (`"') or -backward (``') quotes. When not otherwise quoted a newline preceded by a `\\' -is equivalent to a blank, but inside quotes this sequence results in a -newline. -.PP -Furthermore, all \fBSubstitutions\fR (see below) except \fBHistory substitution\fR -can be prevented by enclosing the strings (or parts of strings) -in which they appear with single quotes or by quoting the crucial character(s) -(e.g., `$' or ``' for \fBVariable substitution\fR or \fBCommand substitution\fR respectively) -with `\\'. (\fBAlias substitution\fR is no exception: quoting in any way any -character of a word for which an \fIalias\fR has been defined prevents -substitution of the alias. The usual way of quoting an alias is to precede it -with a backslash.) \fBHistory substitution\fR is prevented by -backslashes but not by single quotes. Strings quoted with double or backward -quotes undergo \fBVariable substitution\fR and \fBCommand substitution\fR, but other -substitutions are prevented. -.PP -Text inside single or double quotes becomes a single word (or part of one). -Metacharacters in these strings, including blanks and tabs, do not form -separate words. Only in one special case (see \fBCommand substitution\fR -below) can a double-quoted string yield parts of more than one word; -single-quoted strings never do. Backward quotes are special: they signal -\fBCommand substitution\fR (q.v.), which may result in more than one word. -.PP -Quoting complex strings, particularly strings which themselves contain quoting -characters, can be confusing. Remember that quotes need not be used as they are -in human writing! It may be easier to quote not an entire string, but only -those parts of the string which need quoting, using different types of quoting -to do so if appropriate. -.PP -The \fBbackslash_quote\fR shell variable (q.v.) can be set to make backslashes -always quote `\\', `'', and `"'. (+) This may make complex quoting tasks -easier, but it can cause syntax errors in \fIcsh\fR(1) scripts. -.SS Substitutions -We now describe the various transformations the shell performs on the input in -the order in which they occur. We note in passing the data structures involved -and the commands and variables which affect them. Remember that substitutions -can be prevented by quoting as described under \fBLexical structure\fR. -.SS "History substitution" -Each command, or ``event'', input from the terminal is saved in the history -list. The previous command is always saved, and the \fBhistory\fR shell -variable can be set to a number to save that many commands. The \fBhistdup\fR -shell variable can be set to not save duplicate events or consecutive duplicate -events. -.PP -Saved commands are numbered sequentially from 1 and stamped with the time. -It is not usually necessary to use event numbers, but the current event number -can be made part of the prompt by placing an `!' in the \fBprompt\fR shell variable. -.PP -The shell actually saves history in expanded and literal (unexpanded) forms. -If the \fBhistlit\fR shell variable is set, commands that display and store -history use the literal form. -.PP -The \fIhistory\fR builtin command can print, store in a file, restore -and clear the history list at any time, -and the \fBsavehist\fR and \fBhistfile\fR shell variables can be can be set to -store the history list automatically on logout and restore it on login. -.PP -History substitutions introduce words from the history list into the input -stream, making it easy to repeat commands, repeat arguments of a previous -command in the current command, or fix spelling mistakes in the previous -command with little typing and a high degree of confidence. -.PP -History substitutions begin with the character `!'. They may begin anywhere in -the input stream, but they do not nest. The `!' may be preceded by a `\\' to -prevent its special meaning; for convenience, a `!' is passed unchanged when it -is followed by a blank, tab, newline, `=' or `('. History substitutions also -occur when an input line begins with `^'. This special abbreviation will be -described later. The characters used to signal history substitution (`!' and -`^') can be changed by setting the \fBhistchars\fR shell variable. Any input -line which contains a history substitution is printed before it is executed. -.PP -A history substitution may have an ``event specification'', which indicates -the event from which words are to be taken, a ``word designator'', -which selects particular words from the chosen event, and/or a ``modifier'', -which manipulates the selected words. -.PP -An event specification can be -.PP -.PD 0 -.RS +4 -.TP 8 -.I n -A number, referring to a particular event -.TP 8 -\-\fIn\fR -An offset, referring to the event \fIn\fR before the current event -.TP 8 -# -The current event. -This should be used carefully in \fIcsh\fR(1), where there is no check for -recursion. \fItcsh\fR allows 10 levels of recursion. (+) -.TP 8 -! -The previous event (equivalent to `\-1') -.TP 8 -.I s -The most recent event whose first word begins with the string \fIs\fR -.TP 8 -?\fIs\fR? -The most recent event which contains the string \fIs\fR. -The second `?' can be omitted if it is immediately followed by a newline. -.RE -.PD -.PP -For example, consider this bit of someone's history list: -.IP "" 4 -\ 9 8:30 nroff \-man wumpus.man -.br -10 8:31 cp wumpus.man wumpus.man.old -.br -11 8:36 vi wumpus.man -.br -12 8:37 diff wumpus.man.old wumpus.man -.PP -The commands are shown with their event numbers and time stamps. -The current event, which we haven't typed in yet, is event 13. -`!11' and `!\-2' refer to event 11. -`!!' refers to the previous event, 12. `!!' can be abbreviated `!' if it is -followed by `:' (`:' is described below). -`!n' refers to event 9, which begins with `n'. -`!?old?' also refers to event 12, which contains `old'. -Without word designators or modifiers history references simply expand to the -entire event, so we might type `!cp' to redo the copy command or `!!|more' -if the `diff' output scrolled off the top of the screen. -.PP -History references may be insulated from the surrounding text with braces if -necessary. For example, `!vdoc' would look for a command beginning with -`vdoc', and, in this example, not find one, but `!{v}doc' would expand -unambiguously to `vi wumpus.mandoc'. -Even in braces, history substitutions do not nest. -.PP -(+) While \fIcsh\fR(1) expands, for example, `!3d' to event 3 with the -letter `d' appended to it, \fItcsh\fR expands it to the last event beginning -with `3d'; only completely numeric arguments are treated as event numbers. -This makes it possible to recall events beginning with numbers. -To expand `!3d' as in \fIcsh\fR(1) say `!\\3d'. -.PP -To select words from an event we can follow the event specification by a `:' -and a designator for the desired words. The words of an input line are -numbered from 0, the first (usually command) word being 0, the second word -(first argument) being 1, etc. The basic word designators are: -.PP -.PD 0 -.RS +4 -.TP 8 -0 -The first (command) word -.TP 8 -.I n -The \fIn\fRth argument -.TP 8 -^ -The first argument, equivalent to `1' -.TP 8 -$ -The last argument -.TP 8 -% -The word matched by an ?\fIs\fR? search -.TP 8 -.I x\-y -A range of words -.TP 8 -.I \-y -Equivalent to \fI`0\-y'\fR -.TP 8 -* -Equivalent to `^\-$', but returns nothing if the event contains only 1 word -.TP 8 -.I x* -Equivalent to \fI`x\-$'\fR -.TP 8 -.I x\- -Equivalent to \fI`x*'\fR, but omitting the last word (`$') -.PD -.RE -.PP -Selected words are inserted into the command line separated by single blanks. -For example, the `diff' command in the previous example might have been -typed as `diff !!:1.old !!:1' (using `:1' to select the first argument -from the previous event) or `diff !\-2:2 !\-2:1' to select and swap the -arguments from the `cp' command. If we didn't care about the order of the -`diff' we might have said `diff !\-2:1\-2' or simply `diff !\-2:*'. -The `cp' command might have been written `cp wumpus.man !#:1.old', using `#' -to refer to the current event. -`!n:\- hurkle.man' would reuse the first two words from the `nroff' command -to say `nroff \-man hurkle.man'. -.PP -The `:' separating the event specification from the word designator can be -omitted if the argument selector begins with a `^', `$', `*', `%' or `\-'. -For example, our `diff' command might have been `diff !!^.old !!^' or, -equivalently, `diff !!$.old !!$'. However, if `!!' is abbreviated `!', -an argument selector beginning with `\-' will be interpreted as an event -specification. -.PP -A history reference may have a word designator but no event specification. -It then references the previous command. -.ig \" Not true, but we thought it was for a long time ... -, unless a previous history reference -occurred on the same line in which case this form repeats the previous -reference. Thus `!?foo?^ !$' gives the first and last arguments from the -command matching `?foo?'. -.. -Continuing our `diff' example, we could have said simply `diff -!^.old !^' or, to get the arguments in the opposite order, just `diff !*'. -.PP -The word or words in a history reference can be edited, or ``modified'', -by following it with one or more modifiers, each preceded by a `:': -.PP -.PD 0 -.RS +4 -.TP 8 -h -Remove a trailing pathname component, leaving the head. -.TP 8 -t -Remove all leading pathname components, leaving the tail. -.TP 8 -r -Remove a filename extension `.xxx', leaving the root name. -.TP 8 -e -Remove all but the extension. -.TP 8 -u -Uppercase the first lowercase letter. -.TP 8 -l -Lowercase the first uppercase letter. -.TP 8 -s\fI/l/r/\fR -Substitute \fIl\fR for \fIr\fR. -\fIl\fR is simply a string like \fIr\fR, not a regular expression as in -the eponymous \fIed\fR(1) command. -Any character may be used as the delimiter in place of `/'; -a `\\' can be used to quote the delimiter inside \fIl\fR and \fIr\fR. -The character `&' in the \fIr\fR is replaced by \fIl\fR; `\\' also quotes `&'. -If \fIl\fR is empty (``''), the \fIl\fR from a previous substitution or the -\fIs\fR from a previous `?\fIs\fR?' event specification is used. -The trailing delimiter may be omitted if it is immediately followed by a newline. -.TP 8 -& -Repeat the previous substitution. -.TP 8 -g -Apply the following modifier once to each word. -.TP 8 -a (+) -Apply the following modifier as many times as possible to a single word. -`a' and `g' can be used together to apply a modifier globally. -In the current implementation, using the `a' and `s' modifiers together can -lead to an infinite loop. For example, `:as/f/ff/' will never terminate. -This behavior might change in the future. -.TP 8 -p -Print the new command line but do not execute it. -.TP 8 -q -Quote the substituted words, preventing further substitutions. -.TP 8 -x -Like q, but break into words at blanks, tabs and newlines. -.PD -.RE -.PP -Modifiers are applied to only the first modifiable word (unless `g' is used). -It is an error for no word to be modifiable. -.PP -For example, the `diff' command might have been written as `diff wumpus.man.old -!#^:r', using `:r' to remove `.old' from the first argument on the same line -(`!#^'). We could say `echo hello out there', then `echo !*:u' to capitalize -`hello', `echo !*:au' to say it out loud, or `echo !*:agu' to really shout. -We might follow `mail \-s "I forgot my password" rot' with `!:s/rot/root' to -correct the spelling of `root' (but see \fBSpelling correction\fR for a -different approach). -.PP -There is a special abbreviation for substitutions. -`^', when it is the first character on an input line, is equivalent to `!:s^'. -Thus we might have said `^rot^root' to make the spelling correction in the -previous example. -This is the only history substitution which does not explicitly begin with `!'. -.PP -(+) In \fIcsh\fR as such, only one modifier may be applied to each history -or variable expansion. In \fItcsh\fR, more than one may be used, for example -.IP "" 4 -% mv wumpus.man /usr/man/man1/wumpus.1 -.br -% man !$:t:r -.br -man wumpus -.PP -In \fIcsh\fR, the result would be `wumpus.1:r'. A substitution followed by a -colon may need to be insulated from it with braces: -.IP "" 4 -> mv a.out /usr/games/wumpus -.br -> setenv PATH !$:h:$PATH -.br -Bad ! modifier: $. -.br -> setenv PATH !{\-2$:h}:$PATH -.br -setenv PATH /usr/games:/bin:/usr/bin:. -.PP -The first attempt would succeed in \fIcsh\fR but fails in \fItcsh\fR, -because \fItcsh\fR expects another modifier after the second colon -rather than `$'. -.PP -Finally, history can be accessed through the editor as well as through -the substitutions just described. -The \fIup-\fR and \fIdown-history\fR, \fIhistory-search-backward\fR and -\fI-forward\fR, \fIi-search-back\fR and \fI-fwd\fR, -\fIvi-search-back\fR and \fI-fwd\fR, \fIcopy-prev-word\fR -and \fIinsert-last-word\fR editor commands search for -events in the history list and copy them into the input buffer. -The \fItoggle-literal-history\fR editor command switches between the -expanded and literal forms of history lines in the input buffer. -\fIexpand-history\fR and \fIexpand-line\fR expand history substitutions -in the current word and in the entire input buffer respectively. -.SS "Alias substitution" -The shell maintains a list of aliases which can be set, unset and printed by -the \fIalias\fR and \fIunalias\fR commands. After a command line is parsed -into simple commands (see \fBCommands\fR) the first word of each command, -left-to-right, is checked to see if it has an alias. If so, the first word is -replaced by the alias. If the alias contains a history reference, it undergoes -\fBHistory substitution\fR (q.v.) as though the original command were the -previous input line. If the alias does not contain a history reference, the -argument list is left untouched. -.PP -Thus if the alias for `ls' were `ls \-l' the command `ls /usr' would become `ls -\-l /usr', the argument list here being undisturbed. If the alias for `lookup' -were `grep !^ /etc/passwd' then `lookup bill' would become `grep bill -/etc/passwd'. Aliases can be used to introduce parser metasyntax. For -example, `alias print 'pr \e!* | lpr'' defines a ``command'' (`print') which -\fIpr\fR(1)s its arguments to the line printer. -.PP -Alias substitution is repeated until the first word of the command has no -alias. If an alias substitution does not change the first word (as in the -previous example) it is flagged to prevent a loop. Other loops are detected and -cause an error. -.PP -Some aliases are referred to by the shell; see \fBSpecial aliases\fR. -.SS "Variable substitution" -The shell maintains a list of variables, each of which has as value a list of -zero or more words. -The values of shell variables can be displayed and changed with the -\fIset\fR and \fIunset\fR commands. -The system maintains its own list of ``environment'' variables. -These can be displayed and changed with \fIprintenv\fR, \fIsetenv\fR and -\fIunsetenv\fR. -.PP -(+) Variables may be made read-only with `set \-r' (q.v.) -Read-only variables may not be modified or unset; -attempting to do so will cause an error. -Once made read-only, a variable cannot be made writable, -so `set \-r' should be used with caution. -Environment variables cannot be made read-only. -.PP -Some variables are set by the shell or referred to by it. -For instance, the \fBargv\fR variable is an image of the shell's argument -list, and words of this variable's value are referred to in special ways. -Some of the variables referred to by the shell are toggles; -the shell does not care what their value is, only whether they are set or not. -For instance, the \fBverbose\fR variable is a toggle which causes command -input to be echoed. The \fB\-v\fR command line option sets this variable. -\fBSpecial shell variables\fR lists all variables which are referred to by the shell. -.PP -Other operations treat variables numerically. The `@' command permits numeric -calculations to be performed and the result assigned to a variable. Variable -values are, however, always represented as (zero or more) strings. For the -purposes of numeric operations, the null string is considered to be zero, and -the second and subsequent words of multi-word values are ignored. -.PP -After the input line is aliased and parsed, and before each command is -executed, variable substitution is performed keyed by `$' characters. This -expansion can be prevented by preceding the `$' with a `\e' except within `"'s -where it \fIalways\fR occurs, and within `''s where it \fInever\fR occurs. -Strings quoted by ``' are interpreted later (see \fBCommand substitution\fR -below) so `$' substitution does not occur there until later, -if at all. A `$' is passed unchanged if followed by a blank, tab, or -end-of-line. -.PP -Input/output redirections are recognized before variable expansion, and are -variable expanded separately. Otherwise, the command name and entire argument -list are expanded together. It is thus possible for the first (command) word -(to this point) to generate more than one word, the first of which becomes the -command name, and the rest of which become arguments. -.PP -Unless enclosed in `"' or given the `:q' modifier the results of variable -substitution may eventually be command and filename substituted. Within `"', a -variable whose value consists of multiple words expands to a (portion of a) -single word, with the words of the variable's value separated by blanks. When -the `:q' modifier is applied to a substitution the variable will expand to -multiple words with each word separated by a blank and quoted to prevent later -command or filename substitution. -.PP -The following metasequences are provided for introducing variable values into -the shell input. Except as noted, it is an error to reference a variable which -is not set. -.PP -.PD 0 -$\fIname\fR -.TP 8 -${\fIname\fR} -Substitutes the words of the value of variable \fIname\fR, each separated -by a blank. Braces insulate \fIname\fR from following characters which would -otherwise be part of it. Shell variables have names consisting of up to 20 -letters and digits starting with a letter. The underscore character is -considered a letter. If \fIname\fR is not a shell variable, but is set in the -environment, then that value is returned (but `:' modifiers and the other forms -given below are not available in this case). -.PP -$\fIname\fR[\fIselector\fR] -.TP 8 -${\fIname\fR[\fIselector\fR]} -Substitutes only the selected words from the value of \fIname\fR. -The \fIselector\fR is subjected to `$' substitution and may consist of -a single number or two numbers separated by a `\-'. -The first word of a variable's value is numbered `1'. -If the first number of a range is omitted it defaults to `1'. -If the last member of a range is omitted it defaults to `$#\fIname\fR'. -The \fIselector\fR `*' selects all words. -It is not an error for a range to be empty if the -second argument is omitted or in range. -.TP 8 -$0 -Substitutes the name of the file from which command input -is being read. An error occurs if the name is not known. -.PP -$\fInumber\fR -.TP 8 -${\fInumber\fR} -Equivalent to `$argv[\fInumber\fR]'. -.TP 8 -$* -Equivalent to `$argv', which is equivalent to `$argv[*]'. -.PD -.PP -The `:' modifiers described under \fBHistory substitution\fR, except for `:p', -can be applied to the substitutions above. More than one may be used. (+) -Braces may be needed to insulate a variable substitution from a literal colon -just as with \fBHistory substitution\fR (q.v.); any modifiers must appear -within the braces. -.PP -The following substitutions can not be modified with `:' modifiers. -.PP -.PD 0 -$?\fIname\fR -.TP 8 -${?\fIname\fR} -Substitutes the string `1' if \fIname\fR is set, `0' if it is not. -.TP 8 -$?0 -Substitutes `1' if the current input filename is known, `0' if it is not. -Always `0' in interactive shells. -.PP -$#\fIname\fR -.TP 8 -${#\fIname\fR} -Substitutes the number of words in \fIname\fR. -.TP 8 -$# -Equivalent to `$#argv'. (+) -.PP -$%\fIname\fR -.TP 8 -${%\fIname\fR} -Substitutes the number of characters in \fIname\fR. (+) -.PP -$%\fInumber\fR -.TP 8 -${%\fInumber\fR} -Substitutes the number of characters in $argv[\fInumber\fR]. (+) -.TP 8 -$? -Equivalent to `$status'. (+) -.TP 8 -$$ -Substitutes the (decimal) process number of the (parent) shell. -.TP 8 -$! -Substitutes the (decimal) process number of the last -background process started by this shell. (+) -.TP 8 -$_ -Substitutes the command line of the last command executed. (+) -.TP 8 -$< -Substitutes a line from the standard input, with no further interpretation -thereafter. It can be used to read from the keyboard in a shell script. -(+) While \fIcsh\fR always quotes $<, as if it were equivalent to `$<:q', -\fItcsh\fR does not. Furthermore, when \fItcsh\fR is waiting for a line to be -typed the user may type an interrupt to interrupt the sequence into -which the line is to be substituted, but \fIcsh\fR does not allow this. -.PD -.PP -The editor command \fIexpand-variables\fR, normally bound to `^X-$', -can be used to interactively expand individual variables. -.SS "Command, filename and directory stack substitution" -The remaining substitutions are applied selectively to the arguments of builtin -commands. This means that portions of expressions which are not evaluated are -not subjected to these expansions. For commands which are not internal to the -shell, the command name is substituted separately from the argument list. This -occurs very late, after input-output redirection is performed, and in a child -of the main shell. -.SS "Command substitution" -Command substitution is indicated by a command enclosed in ``'. The output -from such a command is broken into separate words at blanks, tabs and newlines, -and null words are discarded. The output is variable and command substituted -and put in place of the original string. -.PP -Command substitutions inside double -quotes (`"') retain blanks and tabs; only newlines force new words. The single -final newline does not force a new word in any case. It is thus possible for a -command substitution to yield only part of a word, even if the command outputs -a complete line. -.SS "Filename substitution" -If a word contains any of the characters `*', `?', `[' or `{' or begins with -the character `~' it is a candidate for filename substitution, also known as -``globbing''. This word is then regarded as a pattern (``glob-pattern''), and -replaced with an alphabetically sorted list of file names which match the -pattern. -.PP -In matching filenames, the character `.' at the beginning of a filename or -immediately following a `/', as well as the character `/' must be matched -explicitly. The character `*' matches any string of characters, including the -null string. The character `?' matches any single character. The sequence -`[...]' matches any one of the characters enclosed. Within `[...]', a pair of -characters separated by `\-' matches any character lexically between the two. -.PP -(+) Some glob-patterns can be negated: -The sequence `[^...]' matches any single character \fInot\fR specified by the -characters and/or ranges of characters in the braces. -.PP -An entire glob-pattern can also be negated with `^': -.IP "" 4 -> echo * -.br -bang crash crunch ouch -.br -> echo ^cr* -.br -bang ouch -.PP -Glob-patterns which do not use `?', `*', or `[]' or which use `{}' or `~' -(below) are not negated correctly. -.PP -The metanotation `a{b,c,d}e' is a shorthand for `abe ace ade'. -Left-to-right order is preserved: `/usr/source/s1/{oldls,ls}.c' expands -to `/usr/source/s1/oldls.c /usr/source/s1/ls.c'. The results of matches are -sorted separately at a low level to preserve this order: -`../{memo,*box}' might expand to `../memo ../box ../mbox'. -(Note that `memo' was not sorted with the results of matching `*box'.) -It is not an error when this construct expands to files which do not exist, -but it is possible to get an error from a command to which the expanded list -is passed. -This construct may be nested. -As a special case the words `{', `}' and `{}' are passed undisturbed. -.PP -The character `~' at the beginning of a filename refers to home directories. -Standing alone, i.e., `~', it expands to the invoker's home directory as -reflected in the value of the \fBhome\fR shell variable. When followed by a -name consisting of letters, digits and `\-' characters the shell searches for a -user with that name and substitutes their home directory; thus `~ken' might -expand to `/usr/ken' and `~ken/chmach' to `/usr/ken/chmach'. If the character -`~' is followed by a character other than a letter or `/' or appears elsewhere -than at the beginning of a word, it is left undisturbed. -A command like `setenv MANPATH /usr/man:/usr/local/man:~/lib/man' does not, -therefore, do home directory substitution as one might hope. -.PP -It is an error for a glob-pattern containing `*', `?', `[' or `~', with or -without `^', not to match any files. However, only one pattern in a list of -glob-patterns must match a file (so that, e.g., `rm *.a *.c *.o' would fail -only if there were no files in the current directory ending in `.a', `.c', or -`.o'), and if the \fBnonomatch\fR shell variable is set a pattern (or list -of patterns) which matches nothing is left unchanged rather than causing -an error. -.PP -The \fBnoglob\fR shell variable can be set to prevent filename substitution, -and the \fIexpand-glob\fR editor command, normally bound to `^X-*', can be -used to interactively expand individual filename substitutions. -.SS "Directory stack substitution (+)" -The directory stack is a list of directories, numbered from zero, used by the -\fIpushd\fR, \fIpopd\fR and \fIdirs\fR builtin commands (q.v.). -\fIdirs\fR can print, store in a file, restore and clear the directory stack -at any time, and the \fBsavedirs\fR and \fBdirsfile\fR shell variables can be set to -store the directory stack automatically on logout and restore it on login. -The \fBdirstack\fR shell variable can be examined to see the directory stack and -set to put arbitrary directories into the directory stack. -.PP -The character `=' followed by one or more digits expands to an entry in -the directory stack. The special case `=\-' expands to the last directory in -the stack. For example, -.IP "" 4 -> dirs \-v -.br -0 /usr/bin -.br -1 /usr/spool/uucp -.br -2 /usr/accts/sys -.br -> echo =1 -.br -/usr/spool/uucp -.br -> echo =0/calendar -.br -/usr/bin/calendar -.br -> echo =\- -.br -/usr/accts/sys -.PP -The \fBnoglob\fR and \fBnonomatch\fR shell variables and the \fIexpand-glob\fR -editor command apply to directory stack as well as filename substitutions. -.SS "Other substitutions (+)" -There are several more transformations involving filenames, not strictly -related to the above but mentioned here for completeness. -\fIAny\fR filename may be expanded to a full path when the -\fBsymlinks\fR variable (q.v.) is set to `expand'. -Quoting prevents this expansion, and -the \fInormalize-path\fR editor command does it on demand. -The \fInormalize-command\fR editor command expands commands in PATH into -full paths on demand. -Finally, \fIcd\fR and \fIpushd\fR interpret `\-' as the old working directory -(equivalent to the shell variable \fBowd\fR). -This is not a substitution at all, but an abbreviation recognized by only -those commands. Nonetheless, it too can be prevented by quoting. -.SS Commands -The next three sections describe how the shell executes commands and -deals with their input and output. -.SS Simple commands, pipelines and sequences -A simple command is a sequence of words, the first of which specifies the -command to be executed. A series of simple commands joined by `|' characters -forms a pipeline. The output of each command in a pipeline is connected to the -input of the next. -.PP -Simple commands and pipelines may be joined into sequences with `;', and will -be executed sequentially. Commands and pipelines can also be joined into -sequences with `||' or `&&', indicating, as in the C language, that the second -is to be executed only if the first fails or succeeds respectively. -.PP -A simple command, pipeline or sequence may be placed in parentheses, `()', -to form a simple command, which may in turn be a component of a pipeline or -sequence. A command, pipeline or sequence can be executed -without waiting for it to terminate by following it with an `&'. -.SS "Builtin and non-builtin command execution" -Builtin commands are executed within the shell. If any component of a -pipeline except the last is a builtin command, the pipeline is executed -in a subshell. -.PP -Parenthesized commands are always executed in a subshell. -.IP "" 4 -(cd; pwd); pwd -.PP -thus prints the \fBhome\fR directory, leaving you where you were -(printing this after the home directory), while -.IP "" 4 -cd; pwd -.PP -leaves you in the \fBhome\fR directory. Parenthesized commands are most often -used to prevent \fIcd\fR from affecting the current shell. -.PP -When a command to be executed is found not to be a builtin command the shell -attempts to execute the command via \fIexecve\fR(2). Each word in the variable -\fBpath\fR names a directory in which the shell will look for the -command. If it is given neither a \fB\-c\fR nor a \fB\-t\fR option, the shell -hashes the names in these directories into an internal table so that it will -try an \fIexecve\fR(2) in only a directory where there is a possibility that the -command resides there. This greatly speeds command location when a large -number of directories are present in the search path. If this mechanism has -been turned off (via \fIunhash\fR), if the shell was given a \fB\-c\fR or -\fB\-t\fR argument or in any case for each directory component of \fBpath\fR -which does not begin with a `/', the shell concatenates the current working -directory with the given command name to form a path name of a file which it -then attempts to execute. -.PP -If the file has execute permissions but is not an executable to the system -(i.e., it is neither an executable binary nor a script that specifies its -interpreter), then it is assumed to be a file containing shell commands and -a new shell is spawned to read it. The \fIshell\fR special alias may be set -to specify an interpreter other than the shell itself. -.PP -On systems which do not understand the `#!' script interpreter convention -the shell may be compiled to emulate it; see the \fBversion\fR shell -variable\fR. If so, the shell checks the first line of the file to -see if it is of the form `#!\fIinterpreter\fR \fIarg\fR ...'. If it is, -the shell starts \fIinterpreter\fR with the given \fIarg\fRs and feeds the -file to it on standard input. -.SS Input/output -The standard input and standard output of a command may be redirected with the -following syntax: -.PP -.PD 0 -.TP 8 -< \fIname -Open file \fIname\fR (which is first variable, command and filename -expanded) as the standard input. -.TP 8 -<< \fIword -Read the shell input up to a line which is identical to \fIword\fR. \fIword\fR -is not subjected to variable, filename or command substitution, and each input -line is compared to \fIword\fR before any substitutions are done on this input -line. Unless a quoting `\e', `"', `' or ``' appears in \fIword\fR variable and -command substitution is performed on the intervening lines, allowing `\e' to -quote `$', `\e' and ``'. Commands which are substituted have all blanks, tabs, -and newlines preserved, except for the final newline which is dropped. The -resultant text is placed in an anonymous temporary file which is given to the -command as standard input. -.PP -> \fIname -.br ->! \fIname -.br ->& \fIname -.TP 8 ->&! \fIname -The file \fIname\fR is used as standard output. If the file does not exist -then it is created; if the file exists, it is truncated, its previous contents -being lost. -.RS +8 -.PD -.PP -If the shell variable \fBnoclobber\fR is set, then the file must not exist or be a -character special file (e.g., a terminal or `/dev/null') or an error results. -This helps prevent accidental destruction of files. In this case the `!' forms -can be used to suppress this check. -.PP -The forms involving `&' route the diagnostic output into the specified file as -well as the standard output. \fIname\fR is expanded in the same way as `<' -input filenames are. -.PD 0 -.RE -.PP ->> \fIname -.br ->>& \fIname -.br ->>! \fIname -.TP 8 ->>&! \fIname -Like `>', but appends output to the end of \fIname\fR. -If the shell variable \fBnoclobber\fR is set, then it is an error for -the file \fInot\fR to exist, unless one of the `!' forms is given. -.PD -.PP -A command receives the environment in which the shell was invoked as modified -by the input-output parameters and the presence of the command in a pipeline. -Thus, unlike some previous shells, commands run from a file of shell commands -have no access to the text of the commands by default; rather they receive the -original standard input of the shell. The `<<' mechanism should be used to -present inline data. This permits shell command scripts to function as -components of pipelines and allows the shell to block read its input. Note -that the default standard input for a command run detached is \fInot\fR -the empty file \fI/dev/null\fR, but the original standard input of the shell. -If this is a terminal and if the process attempts to read from the terminal, -then the process will block and the user will be notified (see \fBJobs\fR). -.PP -Diagnostic output may be directed through a pipe with the standard output. -Simply use the form `|&' rather than just `|'. -.PP -The shell cannot presently redirect diagnostic output without also redirecting -standard output, but `(\fIcommand\fR > \fIoutput-file\fR) >& \fIerror-file\fR' -is often an acceptable workaround. Either \fIoutput-file\fR or -\fIerror-file\fR may be `/dev/tty' to send output to the terminal. -.SS Features -Having described how the shell accepts, parses and executes -command lines, we now turn to a variety of its useful features. -.SS "Control flow" -The shell contains a number of commands which can be used to regulate the -flow of control in command files (shell scripts) and (in limited but -useful ways) from terminal input. These commands all operate by forcing the -shell to reread or skip in its input and, due to the implementation, -restrict the placement of some of the commands. -.PP -The \fIforeach\fR, \fIswitch\fR, and \fIwhile\fR statements, as well as the -\fIif-then-else\fR form of the \fIif\fR statement, require that the major -keywords appear in a single simple command on an input line as shown below. -.PP -If the shell's input is not seekable, the shell buffers up input whenever -a loop is being read and performs seeks in this internal buffer to -accomplish the rereading implied by the loop. (To the extent that this -allows, backward \fIgoto\fRs will succeed on non-seekable inputs.) -.SS Expressions -The \fIif\fR, \fIwhile\fR and \fIexit\fR builtin commands -use expressions with a common syntax. The expressions can include any -of the operators described in the next three sections. Note that the \fI@\fR -builtin command (q.v.) has its own separate syntax. -.SS "Logical, arithmetical and comparison operators" -These operators are similar to those of C and have the same precedence. -They include -.IP "" 4 -|| && | ^ & == != =~ !~ <= >= -.br -< > << >> + \- * / % ! ~ ( ) -.PP -Here the precedence increases to the right, `==' `!=' `=~' and `!~', `<=' -`>=' `<' and `>', `<<' and `>>', `+' and `\-', `*' `/' and `%' being, in -groups, at the same level. The `==' `!=' `=~' and `!~' operators compare -their arguments as strings; all others operate on numbers. The operators -`=~' and `!~' are like `!=' and `==' except that the right hand side is a -glob-pattern (see \fBFilename substitution\fR) against which the left hand -operand is matched. This reduces the need for use of the \fIswitch\fR -builtin command in shell scripts when all that is really needed is -pattern matching. -.PP -Strings which begin with `0' are considered octal numbers. Null or -missing arguments are considered `0'. The results of all expressions are -strings, which represent decimal numbers. It is important to note that -no two components of an expression can appear in the same word; except -when adjacent to components of expressions which are syntactically -significant to the parser (`&' `|' `<' `>' `(' `)') they should be -surrounded by spaces. -.SS "Command exit status" -Commands can be executed in expressions and their exit status -returned by enclosing them in braces (`{}'). Remember that the braces should -be separated from the words of the command by spaces. Command executions -succeed, returning true, i.e., `1', if the command exits with status 0, -otherwise they fail, returning false, i.e., `0'. If more detailed status -information is required then the command should be executed outside of an -expression and the \fBstatus\fR shell variable examined. -.SS "File inquiry operators" -Some of these operators perform true/false tests on files and related -objects. They are of the form \fB\-\fIop file\fR, where \fIop\fR is one of -.PP -.PD 0 -.RS +4 -.TP 4 -.B r -Read access -.TP 4 -.B w -Write access -.TP 4 -.B x -Execute access -.TP 4 -.B X -Executable in the path or shell builtin, e.g., `\-X ls' and `\-X ls\-F' are -generally true, but `\-X /bin/ls' is not (+) -.TP 4 -.B e -Existence -.TP 4 -.B o -Ownership -.TP 4 -.B z -Zero size -.TP 4 -.B s -Non-zero size (+) -.TP 4 -.B f -Plain file -.TP 4 -.B d -Directory -.TP 4 -.B l -Symbolic link (+) * -.TP 4 -.B b -Block special file (+) -.TP 4 -.B c -Character special file (+) -.TP 4 -.B p -Named pipe (fifo) (+) * -.TP 4 -.B S -Socket special file (+) * -.TP 4 -.B u -Set-user-ID bit is set (+) -.TP 4 -.B g -Set-group-ID bit is set (+) -.TP 4 -.B k -Sticky bit is set (+) -.TP 4 -.B t -\fIfile\fR (which must be a digit) is an open file descriptor -for a terminal device (+) -.TP 4 -.B R -Has been migrated (convex only) (+) -.TP 4 -.B L -Applies subsequent operators in a multiple-operator test to a symbolic link -rather than to the file to which the link points (+) * -.RE -.PD -.PP -\fIfile\fR is command and filename expanded and then tested to -see if it has the specified relationship to the real user. If \fIfile\fR -does not exist or is inaccessible or, for the operators indicated by `*', -if the specified file type does not exist on the current system, -then all enquiries return false, i.e., `0'. -.PP -These operators may be combined for conciseness: `\-\fIxy file\fR' is -equivalent to `\-\fIx file\fR && \-\fIy file\fR'. (+) For example, `\-fx' is true -(returns `1') for plain executable files, but not for directories. -.PP -\fBL\fR may be used in a multiple-operator test to apply subsequent operators -to a symbolic link rather than to the file to which the link points. -For example, `\-lLo' is true for links owned by the invoking user. -\fBLr\fR, \fBLw\fR and \fBLx\fR are always true for links and false for -non-links. \fBL\fR has a different meaning when it is the last operator -in a multiple-operator test; see below. -.PP -It is possible but not useful, and sometimes misleading, to combine operators -which expect \fIfile\fR to be a file with operators which do not, -(e.g., \fBX\fR and \fBt\fR). Following \fBL\fR with a non-file operator -can lead to particularly strange results. -.PP -Other operators return other information, i.e., not just `0' or `1'. (+) -They have the same format as before; \fIop\fR may be one of -.PP -.PD 0 -.RS +4 -.TP 8 -.B A -Last file access time, as the number of seconds since the epoch -.TP 8 -.B A: -Like \fBA\fR, but in timestamp format, e.g., `Fri May 14 16:36:10 1993' -.TP 8 -.B M -Last file modification time -.TP 8 -.B M: -Like \fBM\fR, but in timestamp format -.TP 8 -.B C -Last inode modification time -.TP 8 -.B C: -Like \fBC\fR, but in timestamp format -.TP 8 -.B D -Device number -.TP 8 -.B I -Inode number -.TP 8 -.B F -Composite \fBf\fRile identifier, in the form \fIdevice\fR:\fIinode\fR -.TP 8 -.B L -The name of the file pointed to by a symbolic link -.TP 8 -.B N -Number of (hard) links -.TP 8 -.B P -Permissions, in octal, without leading zero -.TP 8 -.B P: -Like \fBP\fR, with leading zero -.TP 8 -.B P\fImode -Equivalent to `\-P \fIfile\fR & \fImode\fR', e.g., `\-P22 \fIfile\fR' returns -`22' if \fIfile\fR is writable by group and other, `20' if by group only, -and `0' if by neither -.TP 8 -.B P\fImode\fB: -Like \fBP\fImode\fB:\fR, with leading zero -.TP 8 -.B U -Numeric userid -.TP 8 -.B U: -Username, or the numeric userid if the username is unknown -.TP 8 -.B G -Numeric groupid -.TP 8 -.B G: -Groupname, or the numeric groupid if the groupname is unknown -.TP 8 -.B Z -Size, in bytes -.RE -.PD -.PP -Only one of these operators may appear in a multiple-operator test, and it -must be the last. Note that \fBL\fR has a different meaning at the end of and -elsewhere in a multiple-operator test. Because `0' is a valid return value -for many of these operators, they do not return `0' when they fail: most -return `\-1', and \fBF\fR returns `:'. -.PP -If the shell is compiled with POSIX defined (see the \fBversion\fR shell -variable), the result of a file inquiry is based on the permission bits of -the file and not on the result of the \fIaccess\fR(2) system call. -For example, if one tests a file with \fB\-w\fR whose permissions would -ordinarily allow writing but which is on a file system mounted read-only, -the test will succeed in a POSIX shell but fail in a non-POSIX shell. -.PP -File inquiry operators can also be evaluated with the \fIfiletest\fR builtin -command (q.v.) (+). -.SS Jobs -The shell associates a \fIjob\fR with each pipeline. It keeps a table of -current jobs, printed by the \fIjobs\fR command, and assigns them small integer -numbers. When a job is started asynchronously with `&', the shell prints a -line which looks like -.IP "" 4 -[1] 1234 -.PP -indicating that the job which was started asynchronously was job number 1 and -had one (top-level) process, whose process id was 1234. -.PP -If you are running a job and wish to do something else you may hit the suspend -key (usually `^Z'), -which sends a STOP signal to the current job. The shell will then normally -indicate that the job has been `Suspended' and print another prompt. -If the \fBlistjobs\fR shell variable is set, all jobs will be listed -like the \fIjobs\fR builtin command; if it is set to `long' the listing will -be in long format, like `jobs \-l'. -You can then manipulate the state of the suspended job. -You can put it in the -``background'' with the \fIbg\fR command or run some other commands and -eventually bring the job back into the ``foreground'' with \fIfg\fR. -(See also the \fIrun-fg-editor\fR editor command.) -A `^Z' takes effect immediately and is like an interrupt -in that pending output and unread input are discarded when it is typed. -The \fIwait\fR builtin command causes the shell to wait for all background -jobs to complete. -.PP -The `^]' key sends a delayed suspend signal, which does not generate a STOP -signal until a program attempts to \fIread\fR(2) it, to the current job. -This can usefully be typed ahead when you have prepared some commands for a -job which you wish to stop after it has read them. -The `^Y' key performs this function in \fIcsh\fR(1); in \fItcsh\fR, -`^Y' is an editing command. (+) -.PP -A job being run in the background stops if it tries to read from the -terminal. Background jobs are normally allowed to produce output, but this can -be disabled by giving the command `stty tostop'. If you set this tty option, -then background jobs will stop when they try to produce output like they do -when they try to read input. -.PP -There are several ways to refer to jobs in the shell. The character `%' -introduces a job name. If you wish to refer to job number 1, you can name it -as `%1'. Just naming a job brings it to the foreground; thus `%1' is a synonym -for `fg %1', bringing job 1 back into the foreground. Similarly, saying `%1 &' -resumes job 1 in the background, just like `bg %1'. A job can also be named -by an unambiguous prefix of the string typed in to start it: `%ex' would -normally restart a suspended \fIex\fR(1) job, if there were only one suspended -job whose name began with the string `ex'. It is also possible to say -`%?\fIstring\fR' to specify a job whose text contains \fIstring\fR, if there -is only one such job. -.PP -The shell maintains a notion of the current and previous jobs. In output -pertaining to jobs, the current job is marked with a `+' and the previous job -with a `\-'. The abbreviations `%+', `%', and (by analogy with the syntax of -the \fIhistory\fR mechanism) `%%' all refer to the current job, and `%\-' refers -to the previous job. -.PP -The job control mechanism requires that the \fIstty\fR(1) option `new' be set -on some systems. It is an artifact from a `new' implementation of the tty -driver which allows generation of interrupt characters from the keyboard to -tell jobs to stop. See \fIstty\fR(1) and the \fIsetty\fR builtin command for -details on setting options in the new tty driver. -.SS "Status reporting" -The shell learns immediately whenever a process changes state. It normally -informs you whenever a job becomes blocked so that no further progress is -possible, but only right before it prints a prompt. This is done so that it -does not otherwise disturb your work. If, however, you set the shell variable -\fBnotify\fR, the shell will notify you immediately of changes of status in -background jobs. There is also a shell command \fInotify\fR which marks a -single process so that its status changes will be immediately reported. By -default \fInotify\fR marks the current process; simply say `notify' after -starting a background job to mark it. -.PP -When you try to leave the shell while jobs are stopped, you will be -warned that `You have stopped jobs.' You may use the \fIjobs\fR command to see -what they are. If you do this or immediately try to exit again, the shell will -not warn you a second time, and the suspended jobs will be terminated. -.SS "Automatic, periodic and timed events (+)" -There are various ways to run commands and take other actions automatically -at various times in the ``life cycle'' of the shell. They are summarized here, -and described in detail under the appropriate \fBBuiltin commands\fR, -\fBSpecial shell variables\fR and \fBSpecial aliases\fR. -.PP -The \fIsched\fR builtin command puts commands in a scheduled-event list, -to be executed by the shell at a given time. -.PP -The \fIbeepcmd\fR, \fIcwdcmd\fR, \fIperiodic\fR, \fIprecmd\fR, and \fIpostcmd\fR -\fBSpecial aliases\fR can be set, respectively, to execute commands when the shell wants -to ring the bell, when the working directory changes, every \fBtperiod\fR -minutes, before each prompt, and before each command gets executed. -.PP -The \fBautologout\fR shell variable can be set to log out or lock the shell -after a given number of minutes of inactivity. -.PP -The \fBmail\fR shell variable can be set to check for new mail periodically. -.PP -The \fBprintexitvalue\fR shell variable can be set to print the exit status -of commands which exit with a status other than zero. -.PP -The \fBrmstar\fR shell variable can be set to ask the user, when `rm *' is -typed, if that is really what was meant. -.PP -The \fBtime\fR shell variable can be set to execute the \fItime\fR builtin -command after the completion of any process that takes more than a given -number of CPU seconds. -.PP -The \fBwatch\fR and \fBwho\fR shell variables can be set to report when -selected users log in or out, and the \fIlog\fR builtin command reports -on those users at any time. -.SS "Native Language System support (+)" -The shell is eight bit clean -(if so compiled; see the \fBversion\fR shell variable) -and thus supports character sets needing this capability. -NLS support differs depending on whether or not -the shell was compiled to use the system's NLS (again, see \fBversion\fR). -In either case, 7-bit ASCII is the default for character classification -(e.g., which characters are printable) and sorting, -and changing the \fBLANG\fR or \fBLC_CTYPE\fR environment variables -causes a check for possible changes in these respects. -.PP -When using the system's NLS, the \fIsetlocale\fR(3) function is called -to determine appropriate character classification and sorting. -This function typically examines the \fBLANG\fR and \fBLC_CTYPE\fR -environment variables; refer to the system documentation for further details. -When not using the system's NLS, the shell simulates it by assuming that the -ISO 8859-1 character set is used -whenever either of the \fBLANG\fR and \fBLC_CTYPE\fR variables are set, regardless of -their values. Sorting is not affected for the simulated NLS. -.PP -In addition, with both real and simulated NLS, all printable -characters in the range \e200\-\e377, i.e., those that have -M-\fIchar\fR bindings, are automatically rebound to \fIself-insert-command\fR. -The corresponding binding for the escape-\fIchar\fR sequence, if any, is -left alone. -These characters are not rebound if the \fBNOREBIND\fR environment variable -is set. This may be useful for the simulated NLS or a primitive real NLS -which assumes full ISO 8859-1. Otherwise, all M-\fIchar\fR bindings in the -range \e240\-\e377 are effectively undone. -Explicitly rebinding the relevant keys with \fIbindkey\fR -is of course still possible. -.PP -Unknown characters (i.e., those that are neither printable nor control -characters) are printed in the format \ennn. -If the tty is not in 8 bit mode, other 8 bit characters are printed by -converting them to ASCII and using standout mode. The shell -never changes the 7/8 bit mode of the tty and tracks user-initiated -changes of 7/8 bit mode. NLS users (or, for that matter, those who want to -use a meta key) may need to explicitly set -the tty in 8 bit mode through the appropriate \fIstty\fR(1) -command in, e.g., the \fI~/.login\fR file. -.SS "OS variant support (+)" -A number of new builtin commands are provided to support features in -particular operating systems. All are described in detail in the -\fBBuiltin commands\fR section. -.PP -On systems that support TCF (aix-ibm370, aix-ps2), -\fIgetspath\fR and \fIsetspath\fR get and set the system execution path, -\fIgetxvers\fR and \fIsetxvers\fR get and set the experimental version prefix -and \fImigrate\fR migrates processes between sites. The \fIjobs\fR builtin -prints the site on which each job is executing. -.PP -Under Domain/OS, \fIinlib\fR adds shared libraries to the current environment, -\fIrootnode\fR changes the rootnode and \fIver\fR changes the systype. -.PP -Under Mach, \fIsetpath\fR is equivalent to Mach's \fIsetpath\fR(1). -.PP -Under Masscomp/RTU and Harris CX/UX, \fIuniverse\fR sets the universe. -.PP -Under Harris CX/UX, \fIucb\fR or \fIatt\fR runs a command under the specified -universe. -.PP -Under Convex/OS, \fIwarp\fR prints or sets the universe. -.PP -The \fBVENDOR\fR, \fBOSTYPE\fR and \fBMACHTYPE\fR environment variables -indicate respectively the vendor, operating system and machine type -(microprocessor class or machine model) of the -system on which the shell thinks it is running. -These are particularly useful when sharing one's home directory between several -types of machines; one can, for example, -.IP "" 4 -set path = (~/bin.$MACHTYPE /usr/ucb /bin /usr/bin .) -.PP -in one's \fI~/.login\fR and put executables compiled for each machine in the -appropriate directory. -.PP -The \fBversion\fR shell -variable indicates what options were chosen when the shell was compiled. -.PP -Note also the \fInewgrp\fR builtin, the \fBafsuser\fR and -\fBecho_style\fR shell variables and the system-dependent locations of -the shell's input files (see \fBFILES\fR). -.SS "Signal handling" -Login shells ignore interrupts when reading the file \fI~/.logout\fR. -The shell ignores quit signals unless started with \fB\-q\fR. -Login shells catch the terminate signal, but non-login shells inherit the -terminate behavior from their parents. -Other signals have the values which the shell inherited from its parent. -.PP -In shell scripts, the shell's handling of interrupt and terminate signals -can be controlled with \fIonintr\fR, and its handling of hangups can be -controlled with \fIhup\fR and \fInohup\fR. -.PP -The shell exits on a hangup (see also the \fBlogout\fR shell variable). By -default, the shell's children do too, but the shell does not send them a -hangup when it exits. \fIhup\fR arranges for the shell to send a hangup to -a child when it exits, and \fInohup\fR sets a child to ignore hangups. -.SS "Terminal management (+)" -The shell uses three different sets of terminal (``tty'') modes: -`edit', used when editing, `quote', used when quoting literal characters, -and `execute', used when executing commands. -The shell holds some settings in each mode constant, so commands which leave -the tty in a confused state do not interfere with the shell. -The shell also matches changes in the speed and padding of the tty. -The list of tty modes that are kept constant -can be examined and modified with the \fIsetty\fR builtin. -Note that although the editor uses CBREAK mode (or its equivalent), -it takes typed-ahead characters anyway. -.PP -The \fIechotc\fR, \fIsettc\fR and \fItelltc\fR commands can be used to -manipulate and debug terminal capabilities from the command line. -.PP -On systems that support SIGWINCH or SIGWINDOW, the shell -adapts to window resizing automatically and adjusts the environment -variables \fBLINES\fR and \fBCOLUMNS\fR if set. If the environment -variable \fBTERMCAP\fR contains li# and co# fields, the shell adjusts -them to reflect the new window size. -.SH REFERENCE -The next sections of this manual describe all of the available -\fBBuiltin commands\fR, \fBSpecial aliases\fR and -\fBSpecial shell variables\fR. -.SS "Builtin commands" -.TP 8 -.B %\fIjob -A synonym for the \fIfg\fR builtin command. -.TP 8 -.B %\fIjob \fB& -A synonym for the \fIbg\fR builtin command. -.TP 8 -.B : -Does nothing, successfully. -.PP -.B @ -.br -.B @ \fIname\fB = \fIexpr -.br -.B @ \fIname\fR[\fIindex\fR]\fB = \fIexpr -.br -.B @ \fIname\fB++\fR|\fB-- -.PD 0 -.TP 8 -.B @ \fIname\fR[\fIindex\fR]\fB++\fR|\fB-- -The first form prints the values of all shell variables. -.PD -.RS +8 -.PP -The second form assigns the value of \fIexpr\fR to \fIname\fR. -The third form assigns the value of \fIexpr\fR to the \fIindex\fR'th -component of \fIname\fR; both \fIname\fR and its \fIindex\fR'th component -must already exist. -.PP -\fIexpr\fR may contain the operators `*', `+', etc., as in C. -If \fIexpr\fR contains `<', `>', `&' or `' then at least that part of -\fIexpr\fR must be placed within `()'. -Note that the syntax of \fIexpr\fR has nothing to do with that described -under \fBExpressions\fR. -.PP -The fourth and fifth forms increment (`++') or decrement (`\-\-') \fIname\fR -or its \fIindex\fR'th component. -.PP -The space between `@' and \fIname\fR is required. The spaces between -\fIname\fR and `=' and between `=' and \fIexpr\fR are optional. Components of -\fIexpr\fR must be separated by spaces. -.RE -.PD -.TP 8 -.B alias \fR[\fIname \fR[\fIwordlist\fR]] -Without arguments, prints all aliases. -With \fIname\fR, prints the alias for name. -With \fIname\fR and \fIwordlist\fR, assigns -\fIwordlist\fR as the alias of \fIname\fR. -\fIwordlist\fR is command and filename substituted. -\fIname\fR may not be `alias' or `unalias'. -See also the \fIunalias\fR builtin command. -.ig \" Obsolete tcsh command -.TP 8 -.B aliases \fR[\fIfile\fR] (+) -Without arguments, prints all aliases. -With \fIfile\fR, loads a list of aliases from \fIfile\fR, one per line. -Retained for only downward compatibility. -.. -.TP 8 -.B alloc -Shows the amount of dynamic memory acquired, broken down into used and free -memory. With an argument shows the number of free and used blocks in each size -category. The categories start at size 8 and double at each step. This -command's output may vary across system types, because systems other than the VAX -may use a different memory allocator. -.TP 8 -.B bg \fR[\fB%\fIjob\fR ...] -Puts the specified jobs (or, without arguments, the current job) -into the background, continuing each if it is stopped. -\fIjob\fR may be a number, a string, `', `%', `+' or `\-' as described -under \fBJobs\fR. -.ig \" Obsolete tcsh command -.TP 8 -.B bind \fR[\fBdefaults\fR|\fBemacs\fR|\fBvi\fR|\fIkey\fR|\fIkey command\fR] (+) -An older version of \fIbindkey\fR, retained for only downward compatibility. -Without arguments, lists all bound keys and the editor command to which each is bound. -`bind defaults', `bind emacs' and `bind vi' are equivalent to -`bindkey \-d', `bindkey \-e' and `bindkey \-v'. -With \fIkey\fR, lists the editor command to which \fIkey\fR is bound. -With \fIkey\fR and \fIcommand\fR, binds the editor command \fIcommand\fR to \fIkey\fR. -.IP "" 8 -\fIkey\fR may be a literal character, -a control character written ^\fIcharacter\fR (e.g., `^A'), -a meta character written M-\fIcharacter\fR (e.g., `M-A') -or a function key written F-\fIstring\fR (e.g., `F-foo'). -For the function key form to work, the function key prefix must be -bound to \fIsequence-lead-in\fR and \fIstring\fR must not contain that prefix. -.. -.PP -.B bindkey \fR[\fB\-l\fR|\fB\-d\fR|\fB\-e\fR|\fB\-v\fR|\fB\-u\fR] (+) -.br -\fBbindkey \fR[\fB\-a\fR] [\fB\-b\fR] [\fB\-k\fR] [\fB\-r\fR] [\fB\-\-\fR] \fIkey \fR(+) -.PD 0 -.TP 8 -\fBbindkey \fR[\fB\-a\fR] [\fB\-b\fR] [\fB\-k\fR] [\fB\-c\fR|\fB\-s\fR] [\fB\-\-\fR] \fIkey command \fR(+) -.\" .B macro can't take too many words, so I used \fB in the previous tags -Without options, the first form lists all bound keys and the editor command to which each is bound, -the second form lists the editor command to which \fIkey\fR is bound and -the third form binds the editor command \fIcommand\fR to \fIkey\fR. -Options include: -.PD -.PP -.PD 0 -.RS +8 -.TP 4 -.B \-l -Lists all editor commands and a short description of each. -.TP 4 -.B \-d -Binds all keys to the standard bindings for the default editor. -.TP 4 -.B \-e -Binds all keys to the standard GNU Emacs-like bindings. -.TP 4 -.B \-v -Binds all keys to the standard \fIvi\fR(1)-like bindings. -.TP 4 -.B \-a -Lists or changes key-bindings in the alternative key map. -This is the key map used in \fIvi\fR command mode. -.TP 4 -.B \-b -\fIkey\fR is interpreted as -a control character written ^\fIcharacter\fR (e.g., `^A') or -C-\fIcharacter\fR (e.g., `C-A'), -a meta character written M-\fIcharacter\fR (e.g., `M-A'), -a function key written F-\fIstring\fR (e.g., `F-string'), -or an extended prefix key written X-\fIcharacter\fR (e.g., `X-A'). -.TP 4 -.B \-k -\fIkey\fR is interpreted as a symbolic arrow key name, which may be one of -`down', `up', `left' or `right'. -.TP 4 -.B \-r -Removes \fIkey\fR's binding. -Be careful: `bindkey \-r' does \fInot\fR bind \fIkey\fR to -\fIself-insert-command\fR (q.v.), it unbinds \fIkey\fR completely. -.TP 4 -.B \-c -\fIcommand\fR is interpreted as a builtin or external command instead of an -editor command. -.TP 4 -.B \-s -\fIcommand\fR is taken as a literal string and treated as terminal input -when \fIkey\fR is typed. Bound keys in \fIcommand\fR are themselves -reinterpreted, and this continues for ten levels of interpretation. -.TP 4 -.B \-\- -Forces a break from option processing, so the next word is taken as \fIkey\fR -even if it begins with '\-'. -.TP 4 -.B \-u \fR(or any invalid option) -Prints a usage message. -.PD -.PP -\fIkey\fR may be a single character or a string. -If a command is bound to a string, the first character of the string is bound to -\fIsequence-lead-in\fR and the entire string is bound to the command. -.PP -Control characters in \fIkey\fR can be literal (they can be typed by preceding -them with the editor command \fIquoted-insert\fR, normally bound to `^V') or -written caret-character style, e.g., `^A'. Delete is written `^?' -(caret-question mark). \fIkey\fR and \fIcommand\fR can contain backslashed -escape sequences (in the style of System V \fIecho\fR(1)) as follows: -.RS +4 -.TP 8 -.PD 0 -.B \ea -Bell -.TP 8 -.B \eb -Backspace -.TP 8 -.B \ee -Escape -.TP 8 -.B \ef -Form feed -.TP 8 -.B \en -Newline -.TP 8 -.B \er -Carriage return -.TP 8 -.B \et -Horizontal tab -.TP 8 -.B \ev -Vertical tab -.TP 8 -.B \e\fInnn -The ASCII character corresponding to the octal number \fInnn\fR -.PD -.RE -.PP -`\e' nullifies the special meaning of the following character, if it has -any, notably `\\' and `^'. -.RE -.TP 8 -.B break -Causes execution to resume after the \fIend\fR of the nearest -enclosing \fIforeach\fR or \fIwhile\fR. The remaining commands on the -current line are executed. Multi-level breaks are thus -possible by writing them all on one line. -.TP 8 -.B breaksw -Causes a break from a \fIswitch\fR, resuming after the \fIendsw\fR. -.TP 8 -.B builtins \fR(+) -Prints the names of all builtin commands. -.TP 8 -.B bye \fR(+) -A synonym for the \fIlogout\fR builtin command. -Available only if the shell was so compiled; -see the \fBversion\fR shell variable. -.TP 8 -.B case \fIlabel\fB: -A label in a \fIswitch\fR statement as discussed below. -.TP 8 -.B cd \fR[\fB\-p\fR] [\fB\-l\fR] [\fB\-n\fR|\fB\-v\fR] [\fIname\fR] -If a directory \fIname\fR is given, changes the shell's working directory -to \fIname\fR. If not, changes to \fBhome\fR. -If \fIname\fR is `\-' it is interpreted as the previous working directory -(see \fBOther substitutions\fR). (+) -If \fIname\fR is not a subdirectory of the current directory -(and does not begin with `/', `./' or `../'), each component of the variable -\fBcdpath\fR is checked to see if it has a subdirectory \fIname\fR. Finally, if -all else fails but \fIname\fR is a shell variable whose value -begins with `/', then this is tried to see if it is a directory. -.RS +8 -.PP -With \fB\-p\fR, prints the final directory stack, just like \fIdirs\fR. -The \fB\-l\fR, \fB\-n\fR and \fB\-v\fR flags have the same effect on \fIcd\fR -as on \fIdirs\fR, and they imply \fB\-p\fR. (+) -.PP -See also the \fBimplicitcd\fR shell variable. -.RE -.TP 8 -.B chdir -A synonym for the \fIcd\fR builtin command. -.TP 8 -.B complete \fR[\fIcommand\fR [\fIword\fB/\fIpattern\fB/\fIlist\fR[\fB:\fIselect\fR]\fB/\fR[[\fIsuffix\fR]\fB/\fR] ...]] (+) -Without arguments, lists all completions. -With \fIcommand\fR, lists completions for \fIcommand\fR. -With \fIcommand\fR and \fIword\fR etc., defines completions. -.RS +8 -.PP -\fIcommand\fR may be a full command name or a glob-pattern -(see \fBFilename substitution\fR). It can begin with `\-' to indicate that -completion should be used only when \fIcommand\fR is ambiguous. -.PP -\fIword\fR specifies which word relative to the current word -is to be completed, and may be one of the following: -.PP -.PD 0 -.RS +4 -.TP 4 -.B c -Current-word completion. -\fIpattern\fR is a glob-pattern which must match the beginning of the current word on -the command line. \fIpattern\fR is ignored when completing the current word. -.TP 4 -.B C -Like \fBc\fR, but includes \fIpattern\fR when completing the current word. -.TP 4 -.B n -Next-word completion. -\fIpattern\fR is a glob-pattern which must match the beginning of the previous word on -the command line. -.TP 4 -.B N -Like \fBn\fR, but must match the beginning of the word two before the current word. -.TP 4 -.B p -Position-dependent completion. -\fIpattern\fR is a numeric range, with the same syntax used to index shell -variables, which must include the current word. -.PD -.RE -.ig \" No longer true in 6.05.04 -.PP -When \fIpattern\fR is a glob-pattern (for \fBc\fR, \fBC\fR, \fBn\fR and -\fBN\fR-type completion), a \fIpattern\fR of `*' does not match an empty -word. -.. -.PP -\fIlist\fR, the list of possible completions, may be one of the following: -.PP -.PD 0 -.RS +4 -.TP 8 -.B a -Aliases -.TP 8 -.B b -Bindings (editor commands) -.TP 8 -.B c -Commands (builtin or external commands) -.TP 8 -.B C -External commands which begin with the supplied path prefix -.TP 8 -.B d -Directories -.TP 8 -.B D -Directories which begin with the supplied path prefix -.TP 8 -.B e -Environment variables -.TP 8 -.B f -Filenames -.TP 8 -.B F -Filenames which begin with the supplied path prefix -.TP 8 -.B g -Groupnames -.TP 8 -.B j -Jobs -.TP 8 -.B l -Limits -.TP 8 -.B n -Nothing -.TP 8 -.B s -Shell variables -.TP 8 -.B S -Signals -.TP 8 -.B t -Plain (``text'') files -.TP 8 -.B T -Plain (``text'') files which begin with the supplied path prefix -.TP 8 -.B v -Any variables -.TP 8 -.B u -Usernames -.TP 8 -.B x -Like \fBn\fR, but prints \fIselect\fR when \fIlist-choices\fR is used. -.TP 8 -.B X -Completions -.TP 8 -$\fIvar\fR -Words from the variable \fIvar\fR -.TP 8 -(...) -Words from the given list -.TP 8 -`...` -Words from the output of command -.PD -.RE -.PP -\fIselect\fR is an optional glob-pattern. -If given, words from only \fIlist\fR that match \fIselect\fR are considered -and the \fBfignore\fR shell variable is ignored. -The last three types of completion may not have a \fIselect\fR -pattern, and \fBx\fR uses \fIselect\fR as an explanatory message when -the \fIlist-choices\fR editor command is used. -.PP -\fIsuffix\fR is a single character to be appended to a successful -completion. If null, no character is appended. If omitted (in which -case the fourth delimiter can also be omitted), a slash is appended to -directories and a space to other words. -.PP -Now for some examples. Some commands take only directories as arguments, -so there's no point completing plain files. -.IP "" 4 -> complete cd 'p/1/d/' -.PP -completes only the first word following `cd' (`p/1') with a directory. -\fBp\fR-type completion can also be used to narrow down command completion: -.IP "" 4 -> co[^D] -.br -complete compress -.br -> complete \-co* 'p/0/(compress)/' -.br -> co[^D] -.br -> compress -.PP -This completion completes commands (words in position 0, `p/0') -which begin with `co' (thus matching `co*') to `compress' (the only -word in the list). -The leading `\-' indicates that this completion is to be used with only -ambiguous commands. -.IP "" 4 -> complete find 'n/\-user/u/' -.PP -is an example of \fBn\fR-type completion. Any word following `find' and -immediately following `\-user' is completed from the list of users. -.IP "" 4 -> complete cc 'c/\-I/d/' -.PP -demonstrates \fBc\fR-type completion. Any word following `cc' and beginning -with `\-I' is completed as a directory. `\-I' is not taken as part of the -directory because we used lowercase \fBc\fR. -.PP -Different \fIlist\fRs are useful with different commands. -.IP "" 4 -> complete alias 'p/1/a/' -.br -> complete man 'p/*/c/' -.br -> complete set 'p/1/s/' -.br -> complete true 'p/1/x:Truth has no options./' -.PP -These complete words following `alias' with aliases, `man' with commands, -and `set' with shell variables. -`true' doesn't have any options, so \fBx\fR does nothing when completion -is attempted and prints `Truth has no options.' when completion choices are listed. -.PP -.ig \" Changed in 6.05.04 -The \fIman\fR example, and several other examples below, use -\fBp\fR-type completion, rather than \fBC\fR- or \fBn\fR-type, so that -`*' will match an empty word. -.. -Note that the \fIman\fR example, and several other examples below, could -just as well have used 'c/*' or 'n/*' as 'p/*'. -.PP -Words can be completed from a variable evaluated at completion time, -.IP "" 4 -> complete ftp 'p/1/$hostnames/' -.br -> set hostnames = (rtfm.mit.edu tesla.ee.cornell.edu) -.br -> ftp [^D] -.br -rtfm.mit.edu tesla.ee.cornell.edu -.br -> ftp [^C] -.br -> set hostnames = (rtfm.mit.edu tesla.ee.cornell.edu uunet.uu.net) -.br -> ftp [^D] -.br -rtfm.mit.edu tesla.ee.cornell.edu uunet.uu.net -.PP -or from a command run at completion time: -.IP "" 4 -> complete kill 'p/*/`ps | awk \\{print\\ \\$1\\}`/' -.br -> kill \-9 [^D] -.br -23113 23377 23380 23406 23429 23529 23530 PID -.PP -Note that the \fIcomplete\fR command does not itself quote its arguments, -so the braces, space and `$' in `{print $1}' must be quoted explicitly. -.PP -One command can have multiple completions: -.IP "" 4 -> complete dbx 'p/2/(core)/' 'p/*/c/' -.PP -completes the second argument to `dbx' with the word `core' and all other -arguments with commands. Note that the positional completion is specified -before the next-word completion. -Because completions are evaluated from left to right, if -the next-word completion were specified first it would always match -and the positional completion would never be executed. This is a -common mistake when defining a completion. -.PP -The \fIselect\fR pattern is useful when a command takes files with only -particular forms as arguments. For example, -.IP "" 4 -> complete cc 'p/*/f:*.[cao]/' -.PP -completes `cc' arguments to files ending in only `.c', `.a', or `.o'. -\fIselect\fR can also exclude files, using negation of a glob-pattern as -described under \fBFilename substitution\fR. One might use -.IP "" 4 -> complete rm 'p/*/f:^*.{c,h,cc,C,tex,1,man,l,y}/' -.PP -to exclude precious source code from `rm' completion. Of course, one -could still type excluded names manually or override the completion -mechanism using the \fIcomplete-word-raw\fR or \fIlist-choices-raw\fR -editor commands (q.v.). -.PP -The `C', `D', `F' and `T' \fIlist\fRs are like `c', `d', `f' and `t' -respectively, but they use the \fIselect\fR argument in a different way: to -restrict completion to files beginning with a particular path prefix. For -example, the Elm mail program uses `=' as an abbreviation for one's mail -directory. One might use -.IP "" 4 -> complete elm c@=@F:$HOME/Mail/@ -.PP -to complete `elm \-f =' as if it were `elm \-f ~/Mail/'. Note that we used `@' -instead of `/' to avoid confusion with the \fIselect\fR argument, and we used -`$HOME' instead of `~' because home directory substitution works at only the -beginning of a word. -.PP -\fIsuffix\fR is used to add a nonstandard suffix -(not space or `/' for directories) to completed words. -.IP "" 4 -> complete finger 'c/*@/$hostnames/' 'p/1/u/@' -.PP -completes arguments to `finger' from the list of users, appends an `@', -and then completes after the `@' from the `hostnames' variable. Note -again the order in which the completions are specified. -.PP -Finally, here's a complex example for inspiration: -.IP "" 4 -> complete find \\ -.br -\'n/\-name/f/' 'n/\-newer/f/' 'n/\-{,n}cpio/f/' \e -.br -\'n/\-exec/c/' 'n/\-ok/c/' 'n/\-user/u/' \e -.br -\'n/\-group/g/' 'n/\-fstype/(nfs 4.2)/' \e -.br -\'n/\-type/(b c d f l p s)/' \e -.br -\'c/\-/(name newer cpio ncpio exec ok user \e -.br -group fstype type atime ctime depth inum \e -.br -ls mtime nogroup nouser perm print prune \e -.br -size xdev)/' \e -.br -\'p/*/d/' -.PP -This completes words following `\-name', `\-newer', `\-cpio' or `ncpio' -(note the pattern which matches both) to files, -words following `\-exec' or `\-ok' to commands, words following `user' -and `group' to users and groups respectively -and words following `\-fstype' or `\-type' to members of the -given lists. It also completes the switches themselves from the given list -(note the use of \fBc\fR-type completion) -and completes anything not otherwise completed to a directory. Whew. -.PP -Remember that programmed completions are ignored if the word being completed -is a tilde substitution (beginning with `~') or a variable (beginning with `$'). -\fIcomplete\fR is an experimental feature, and the syntax may change -in future versions of the shell. -See also the \fIuncomplete\fR builtin command. -.RE -.TP 8 -.B continue -Continues execution of the nearest enclosing \fIwhile\fR or \fIforeach\fR. -The rest of the commands on the current line are executed. -.TP 8 -.B default: -Labels the default case in a \fIswitch\fR statement. -It should come after all \fIcase\fR labels. -.PP -.B dirs \fR[\fB\-l\fR] [\fB\-n\fR|\fB\-v\fR] -.br -.B dirs \-S\fR|\fB\-L \fR[\fIfilename\fR] (+) -.PD 0 -.TP 8 -.B dirs \-c \fR(+) -The first form prints the directory stack. The top of the stack is at the -left and the first directory in the stack is the current directory. -With \fB\-l\fR, `~' or `~\fIname\fP' in the output is expanded explicitly -to \fBhome\fR or the pathname of the home directory for user \fIname\fP. (+) -With \fB\-n\fR, entries are wrapped before they reach the edge of the screen. (+) -With \fB\-v\fR, entries are printed one per line, preceded by their stack positions. (+) -If more than one of \fB\-n\fR or \fB\-v\fR is given, \fB\-v\fR takes precedence. -\fB\-p\fR is accepted but does nothing. -.PD -.RS +8 -.PP -With \fB\-S\fR, the second form saves the directory stack to \fIfilename\fR -as a series of \fIcd\fR and \fIpushd\fR commands. -With \fB\-L\fR, the shell sources \fIfilename\fR, which is presumably -a directory stack file saved by the \fB\-S\fR option or the \fBsavedirs\fR -mechanism. -In either case, \fBdirsfile\fR is used if \fIfilename\fR is not given and -\fI~/.cshdirs\fR is used if \fBdirsfile\fR is unset. -.PP -Note that login shells do the equivalent of `dirs \-L' on startup -and, if \fBsavedirs\fR is set, `dirs \-S' before exiting. -Because only \fI~/.tcshrc\fR is normally sourced before \fI~/.cshdirs\fR, -\fBdirsfile\fR should be set in \fI~/.tcshrc\fR rather than \fI~/.login\fR. -.PP -The last form clears the directory stack. -.RE -.TP 8 -.B echo \fR[\fB\-n\fR] \fIword\fR ... -Writes each \fIword\fR to the shell's standard -output, separated by spaces and terminated with a newline. -The \fBecho_style\fR shell variable may be set to emulate (or not) the flags and escape -sequences of the BSD and/or System V versions of \fIecho\fR; see \fIecho\fR(1). -.TP 8 -.B echotc \fR[\fB\-sv\fR] \fIarg\fR ... (+) -Exercises the terminal capabilities (see \fItermcap\fR(5)) in \fIargs\fR. -For example, 'echotc home' sends the cursor to the home position, -\&'echotc cm 3 10' sends it to column 3 and row 10, and -\&'echotc ts 0; echo "This is a test."; echotc fs' prints "This is a test." -in the status line. -.RS +8 -.PP -If \fIarg\fR is 'baud', 'cols', 'lines', 'meta' or 'tabs', prints the -value of that capability ("yes" or "no" indicating that the terminal does -or does not have that capability). One might use this to make the output -from a shell script less verbose on slow terminals, or limit command -output to the number of lines on the screen: -.IP "" 4 -> set history=`echotc lines` -.br -> @ history\-\- -.PP -Termcap strings may contain wildcards which will not echo correctly. -One should use double quotes when setting a shell variable to a terminal -capability string, as in the following example that places the date in -the status line: -.IP "" 4 -> set tosl="`echotc ts 0`" -.br -> set frsl="`echotc fs`" -.br -> echo \-n "$tosl";date; echo \-n "$frsl" -.PP -With \fB\-s\fR, nonexistent capabilities return the empty string rather -than causing an error. -With \fB\-v\fR, messages are verbose. -.RE -.PP -.B else -.br -.B end -.br -.B endif -.PD 0 -.TP 8 -.B endsw -See the description of the \fIforeach\fR, \fIif\fR, \fIswitch\fR, and -\fIwhile\fR statements below. -.PD -.TP 8 -.B eval \fIarg\fR ... -Treats the arguments as input to the -shell and executes the resulting command(s) in the context -of the current shell. This is usually used to execute commands -generated as the result of command or variable substitution, -because parsing occurs before these substitutions. -See \fItset\fR(1) for a sample use of \fIeval\fR. -.TP 8 -.B exec \fIcommand\fR -Executes the specified command in place of the current shell. -.TP 8 -.B exit \fR[\fIexpr\fR] -The shell exits either with the value of the specified \fIexpr\fR -(an expression, as described under \fBExpressions\fR) -or, without \fIexpr\fR, with the value of the \fBstatus\fR variable. -.TP 8 -.B fg \fR[\fB%\fIjob\fR ...] -Brings the specified jobs (or, without arguments, the current job) -into the foreground, continuing each if it is stopped. -\fIjob\fR may be a number, a string, `', `%', `+' or `\-' as described -under \fBJobs\fR. -See also the \fIrun-fg-editor\fR editor command. -.TP 8 -.B filetest \-\fIop file\fR ... (+) -Applies \fIop\fR (which is a file inquiry operator as described under -\fBFile inquiry operators\fR) to each \fIfile\fR and returns the results as a -space-separated list. -.PP -.B foreach \fIname \fB(\fIwordlist\fB) -.br -\&... -.PD 0 -.TP 8 -.B end -Successively sets the variable \fIname\fR to each member of -\fIwordlist\fR and executes the sequence of commands between this command -and the matching \fIend\fR. (Both \fIforeach\fR and \fIend\fR -must appear alone on separate lines.) The builtin command -\fIcontinue\fR may be used to continue the loop prematurely and -the builtin command \fIbreak\fR to terminate it prematurely. -When this command is read from the terminal, the loop is read once -prompting with `foreach? ' (or \fBprompt2\fR) before any statements in -the loop are executed. If you make a mistake typing in a -loop at the terminal you can rub it out. -.PD -.TP 8 -.B getspath \fR(+) -Prints the system execution path. (TCF only) -.TP 8 -.B getxvers \fR(+) -Prints the experimental version prefix. (TCF only) -.TP 8 -.B glob \fIwordlist -Like \fIecho\fR, but no `\\' escapes are recognized and words are -delimited by null characters in the output. Useful for -programs which wish to use the shell to filename expand a list of words. -.TP 8 -.B goto \fIword -\fIword\fR is filename and command-substituted to -yield a string of the form `label'. The shell rewinds its -input as much as possible, searches for a line of the -form `label:', possibly preceded by blanks or tabs, and -continues execution after that line. -.TP 8 -.B hashstat -Prints a statistics line indicating how effective the -internal hash table has been at locating commands (and avoiding -\fIexec\fR's). An \fIexec\fR is attempted for each component of the -\fBpath\fR where the hash function indicates a possible hit, and -in each component which does not begin with a `/'. -.IP -On machines without \fIvfork\fR(2), prints only the number and size of -hash buckets. -.PP -.B history \fR[\fB\-hTr\fR] [\fIn\fR] -.br -.B history \-S\fR|\fB\-L|\fB\-M \fR[\fIfilename\fR] (+) -.PD 0 -.TP 8 -.B history \-c \fR(+) -The first form prints the history event list. -If \fIn\fR is given only the \fIn\fR most recent events are printed or saved. -With \fB\-h\fR, the history list is printed without leading numbers. If -\fB-T\fR is specified, timestamps are printed also in comment form. -(This can be used to -produce files suitable for loading with 'history \-L' or 'source \-h'.) -With \fB\-r\fR, the order of printing is most recent -first rather than oldest first. -.PD -.RS +8 -.PP -With \fB\-S\fR, the second form saves the history list to \fIfilename\fR. -If the first word of the \fBsavehist\fR shell variable is set to a -number, at most that many lines are saved. If the second word of -\fBsavehist\fR is set to `merge', the history list is merged with the -existing history file instead of replacing it (if there is one) and -sorted by time stamp. (+) Merging is intended for an environment like -the X Window System -with several shells in simultaneous use. Currently it succeeds -only when the shells quit nicely one after another. -.PP -With \fB\-L\fR, the shell appends \fIfilename\fR, which is presumably a -history list saved by the \fB\-S\fR option or the \fBsavehist\fR mechanism, -to the history list. -\fB\-M\fR is like \fB\-L\fR, but the contents of \fIfilename\fR are merged -into the history list and sorted by timestamp. -In either case, \fBhistfile\fR is used if \fIfilename\fR is not given and -\fI~/.history\fR is used if \fBhistfile\fR is unset. -`history \-L' is exactly like 'source \-h' except that it does not require a -filename. -.PP -Note that login shells do the equivalent of `history \-L' on startup -and, if \fBsavehist\fR is set, `history \-S' before exiting. -Because only \fI~/.tcshrc\fR is normally sourced before \fI~/.history\fR, -\fBhistfile\fR should be set in \fI~/.tcshrc\fR rather than \fI~/.login\fR. -.PP -If \fBhistlit\fR is set, the first and second forms print and save the literal -(unexpanded) form of the history list. -.PP -The last form clears the history list. -.RE -.TP 8 -.B hup \fR[\fIcommand\fR] \fR(+) -With \fIcommand\fR, runs \fIcommand\fR such that it will exit on a hangup -signal and arranges for the shell to send it a hangup signal when the shell -exits. -Note that commands may set their own response to hangups, overriding \fIhup\fR. -Without an argument (allowed in only a shell script), causes the shell to -exit on a hangup for the remainder of the script. -See also \fBSignal handling\fR and the \fInohup\fR builtin command. -.TP 8 -.B if (\fIexpr\fB) \fIcommand -If \fIexpr\fR (an expression, as described under \fBExpressions\fR) -evaluates true, then \fIcommand\fR is executed. -Variable substitution on \fIcommand\fR happens early, at the same time it -does for the rest of the \fIif\fR command. -\fIcommand\fR must be a simple command, not an alias, a pipeline, a command list -or a parenthesized command list, but it may have arguments. -Input/output redirection occurs even if \fIexpr\fR is -false and \fIcommand\fR is thus \fInot\fR executed; this is a bug. -.PP -.B if (\fIexpr\fB) then -.br -\&... -.br -.B else if (\fIexpr2\fB) then -.br -\&... -.br -.B else -.br -\&... -.PD 0 -.TP 8 -.B endif -If the specified \fIexpr\fR is true then the commands to the -first \fIelse\fR are executed; otherwise if \fIexpr2\fR is true then -the commands to the second \fIelse\fR are executed, etc. Any -number of \fIelse-if\fR pairs are possible; only one \fIendif\fR is -needed. The \fIelse\fR part is likewise optional. (The words -\fIelse\fR and \fIendif\fR must appear at the beginning of input lines; -the \fIif\fR must appear alone on its input line or after an -\fIelse\fR.) -.PD -.TP 8 -.B inlib \fIshared-library\fR ... (+) -Adds each \fIshared-library\fR to the current environment. There is no way -to remove a shared library. (Domain/OS only) -.TP 8 -.B jobs \fR[\fB\-l\fR] -Lists the active jobs. With \fB\-l\fR, lists process -IDs in addition to the normal information. On TCF systems, prints -the site on which each job is executing. -.PP -.B kill \fR[\fB\-\fIsignal\fR] \fB%\fIjob\fR|\fIpid\fR ... -.PD 0 -.TP 8 -.B kill \-l -The first form sends the specified \fIsignal\fR (or, if none is given, -the TERM (terminate) signal) to the specified jobs or processes. -\fIjob\fR may be a number, a string, `', `%', `+' or `\-' as described -under \fBJobs\fR. -Signals are either given by number or by name (as given in -\fI/usr/include/signal.h\fR, stripped of the prefix `SIG'). -There is no default \fIjob\fR; saying just `kill' does not send a signal -to the current job. If the signal being sent is TERM (terminate) -or HUP (hangup), then the job or process is sent a -CONT (continue) signal as well. -The second form lists the signal names. -.PD -.ig \" Obsolete tcsh command -.TP 8 -.B linedit \fR(+) -A synonym for the \fIecho\fR builtin command. -.. -.TP 8 -.B limit \fR[\fB\-h\fR] [\fIresource\fR [\fImaximum-use\fR]] -Limits the consumption by the current process and each -process it creates to not individually exceed \fImaximum-use\fR on -the specified \fIresource\fR. If no \fImaximum-use\fR is given, then -the current limit is printed; if no \fIresource\fR is given, then -all limitations are given. If the \fB\-h\fR flag is given, the -hard limits are used instead of the current limits. The -hard limits impose a ceiling on the values of the current -limits. Only the super-user may raise the hard limits, but -a user may lower or raise the current limits within the legal range. -.RS +8 -.PP -Controllable resources currently include \fIcputime\fR (the -maximum number of cpu-seconds to be used by each process), -\fIfilesize\fR (the largest single file which can be created), -\fIdatasize\fR (the maximum growth of the data+stack region via -sbrk(2) beyond the end of the program text), \fIstacksize\fR (the -maximum size of the automatically-extended stack region), -\fIcoredumpsize\fR (the size of the largest core dump that will be created), -and \fImemoryuse\fR, the maximum amount of physical memory a process -may have allocated to it at a given time. -.PP -\fImaximum-use\fR may be given as a (floating point or -integer) number followed by a scale factor. For all limits -other than \fIcputime\fR the default scale is `k' or `kilobytes' -(1024 bytes); a scale factor of `m' or `megabytes' may also -be used. For \fIcputime\fR the default scaling is `seconds', -while `m' for minutes or `h' for hours, or a time of the -form `mm:ss' giving minutes and seconds may be used. -.PP -For both \fIresource\fR names and scale factors, unambiguous -prefixes of the names suffice. -.RE -.TP 8 -.B log \fR(+) -Prints the \fBwatch\fR shell variable and reports on each user indicated -in \fBwatch\fR who is logged in, regardless of when they last logged in. -See also \fIwatchlog\fR. -.TP 8 -.B login -Terminates a login shell, replacing it with an instance of -\fI/bin/login.\fR This is one way to log off, included for -compatibility with \fIsh\fR(1). -.TP 8 -.B logout -Terminates a login shell. Especially useful if \fBignoreeof\fR is set. -.TP 8 -.B ls\-F \fR[\-\fIswitch\fR ...] [\fIfile\fR ...] (+) -Lists files like `ls \-F', but much faster. It identifies each type of -special file in the listing with a special character: -.PP -.RS +8 -.PD 0 -.TP 4 -/ -Directory -.TP 4 -* -Executable -.TP 4 -# -Block device -.TP 4 -% -Character device -.TP 4 -| -Named pipe (systems with named pipes only) -.TP 4 -= -Socket (systems with sockets only) -.TP 4 -@ -Symbolic link (systems with symbolic links only) -.TP 4 -+ -Hidden directory (AIX only) or context dependent (HP/UX only) -.TP 4 -: -Network special (HP/UX only) -.PD -.PP -If the \fBlistlinks\fR shell variable is set, symbolic links are identified -in more detail (on only systems that have them, of course): -.PP -.PD 0 -.TP 4 -@ -Symbolic link to a non-directory -.TP 4 -> -Symbolic link to a directory -.TP 4 -& -Symbolic link to nowhere -.PD -.PP -\fBlistlinks\fR also slows down \fIls\-F\fR and causes partitions holding -files pointed to by symbolic links to be mounted. -.PP -If the \fBlistflags\fR shell variable is set to `x', `a' or `A', or any -combination thereof (e.g., `xA'), they are used as flags to \fIls\-F\fR, -making it act like `ls \-xF', `ls \-Fa', `ls \-FA' or a combination -(e.g., `ls \-FxA'). -On machines where `ls \-C' is not the default, \fIls\-F\fR acts like `ls \-CF', -unless \fBlistflags\fR contains an `x', in which case it acts like `ls \-xF'. -\fIls\-F\fR passes its arguments to \fIls\fR(1) if it is given any switches, -so `alias ls ls\-F' generally does the right thing. -.PP -The \fBls\-F\fR builtin can list files using different colors depending on the -filetype or extension. See the \fBcolor\fR \fItcsh\fR variable and the -\fBLS_COLORS\fR environment variable. -.RE -.PP -.B migrate \fR[\fB\-\fIsite\fR] \fIpid\fR|\fB%\fIjobid\fR ... (+) -.PD 0 -.TP 8 -.B migrate \-\fIsite\fR (+) -The first form migrates the process or job to the site specified or the -default site determined by the system path. -The second form is equivalent to `migrate \-\fIsite\fR $$': it migrates the -current process to the specified site. Migrating the shell -itself can cause unexpected behavior, because the shell -does not like to lose its tty. (TCF only) -.PD -.TP 8 -.B newgrp \fR[\fB\-\fR] \fIgroup\fR (+) -Equivalent to `exec newgrp'; see \fInewgrp\fR(1). -Available only if the shell was so compiled; -see the \fBversion\fR shell variable. -.TP 8 -.B nice \fR[\fB+\fInumber\fR] [\fIcommand\fR] -Sets the scheduling priority for the shell to \fInumber\fR, or, without -\fInumber\fR, to 4. With \fIcommand\fR, runs \fIcommand\fR at the appropriate -priority. -The greater the \fInumber\fR, the less cpu -the process gets. The super-user may specify negative -priority by using `nice \-number ...'. Command is always -executed in a sub-shell, and the restrictions placed on -commands in simple \fIif\fR statements apply. -.TP 8 -.B nohup \fR[\fIcommand\fR] -With \fIcommand\fR, runs \fIcommand\fR such that it will ignore hangup signals. -Note that commands may set their own response to hangups, overriding \fInohup\fR. -Without an argument (allowed in only a shell script), causes the shell to -ignore hangups for the remainder of the script. -See also \fBSignal handling\fR and the \fIhup\fR builtin command. -.TP 8 -.B notify \fR[\fB%\fIjob\fR ...] -Causes the shell to notify the user asynchronously when the status of any -of the specified jobs (or, without %\fIjob\fR, the current job) changes, -instead of waiting until the next prompt as is usual. -\fIjob\fR may be a number, a string, `', `%', `+' or `\-' as described -under \fBJobs\fR. -See also the \fBnotify\fR shell variable. -.TP 8 -.B onintr \fR[\fB\-\fR|\fIlabel\fR] -Controls the action of the shell on interrupts. Without arguments, -restores the default action of the shell on interrupts, -which is to terminate shell scripts or to return to the -terminal command input level. -With `\-', causes all interrupts to be ignored. -With \fIlabel\fR, causes the shell to execute a `goto \fIlabel\fR' -when an interrupt is received or a child process terminates because it was -interrupted. -.IP "" 8 -\fIonintr\fR is ignored if the shell is running detached and in system -startup files (see \fBFILES\fR), where interrupts are disabled anyway. -.TP 8 -.B popd \fR[\fB\-p\fR] [\fB\-l\fR] [\fB\-n\fR|\fB\-v\fR] \fR[\fB+\fIn\fR] -Without arguments, pops the directory stack and returns to the new top directory. -With a number `+\fIn\fR', discards the \fIn\fR'th entry in the stack. -.IP "" 8 -Finally, all forms of \fIpopd\fR print the final directory stack, -just like \fIdirs\fR. The \fBpushdsilent\fR shell variable can be set to -prevent this and the \fB\-p\fR flag can be given to override \fBpushdsilent\fR. -The \fB\-l\fR, \fB\-n\fR and \fB\-v\fR flags have the same effect on \fIpopd\fR -as on \fIdirs\fR. (+) -.TP 8 -.B printenv \fR[\fIname\fR] (+) -Prints the names and values of all environment variables or, -with \fIname\fR, the value of the environment variable \fIname\fR. -.TP 8 -.B pushd \fR[\fB\-p\fR] [\fB\-l\fR] [\fB\-n\fR|\fB\-v\fR] [\fIname\fR|\fB+\fIn\fR] -Without arguments, exchanges the top two elements of the directory stack. -If \fBpushdtohome\fR is set, \fIpushd\fR without arguments does `pushd ~', -like \fIcd\fR. (+) -With \fIname\fR, pushes the current working directory onto the directory -stack and changes to \fIname\fR. -If \fIname\fR is `\-' it is interpreted as the previous working directory -(see \fBFilename substitution\fR). (+) -If \fBdunique\fR is set, \fIpushd\fR removes any instances of \fIname\fR -from the stack before pushing it onto the stack. (+) -With a number `+\fIn\fR', rotates the \fIn\fRth element of the -directory stack around to be the top element and changes to it. -If \fBdextract\fR is set, however, `pushd +\fIn\fR' extracts the \fIn\fRth -directory, pushes it onto the top of the stack and changes to it. (+) -.IP "" 8 -Finally, all forms of \fIpushd\fR print the final directory stack, -just like \fIdirs\fR. The \fBpushdsilent\fR shell variable can be set to -prevent this and the \fB\-p\fR flag can be given to override \fBpushdsilent\fR. -The \fB\-l\fR, \fB\-n\fR and \fB\-v\fR flags have the same effect on \fIpushd\fR -as on \fIdirs\fR. (+) -.TP 8 -.B rehash -Causes the internal hash table of the contents of the -directories in the \fBpath\fR variable to be recomputed. This is -needed if new commands are added to directories in \fBpath\fR -while you are logged in. This should be necessary only if -you add commands to one of your own directories, or if a -systems programmer changes the contents of one of the -system directories. Also flushes the cache of home directories -built by tilde expansion. -.TP 8 -.B repeat \fIcount command -The specified \fIcommand\fR, -which is subject to the same restrictions as the \fIcommand\fR -in the one line \fIif\fR statement above, is executed \fIcount\fR times. -I/O redirections occur exactly once, even if \fIcount\fR is 0. -.TP 8 -.B rootnode //\fInodename \fR(+) -Changes the rootnode to //\fInodename\fR, so that `/' will be interpreted -as `//\fInodename\fR'. (Domain/OS only) -.PP -.B sched \fR(+) -.br -.B sched \fR[\fB+\fR]\fIhh:mm command\fR \fR(+) -.PD 0 -.TP 8 -.B sched \-\fIn\fR (+) -The first form prints the scheduled-event list. -The \fBsched\fR shell variable may be set to define the format in which -the scheduled-event list is printed. -The second form adds \fIcommand\fR to the scheduled-event list. -For example, -.PD -.RS +8 -.IP "" 4 -> sched 11:00 echo It\\'s eleven o\\'clock. -.PP -causes the shell to echo `It's eleven o'clock.' at 11 AM. -The time may be in 12-hour AM/PM format -.IP "" 4 -> sched 5pm set prompt='[%h] It\\'s after 5; go home: >' -.PP -or may be relative to the current time: -.IP "" 4 -> sched +2:15 /usr/lib/uucp/uucico \-r1 \-sother -.PP -A relative time specification may not use AM/PM format. -The third form removes item \fIn\fR from the event list: -.IP "" 4 -> sched -.br - 1 Wed Apr 4 15:42 /usr/lib/uucp/uucico \-r1 \-sother -.br - 2 Wed Apr 4 17:00 set prompt=[%h] It's after 5; go home: > -.br -> sched \-2 -.br -> sched -.br - 1 Wed Apr 4 15:42 /usr/lib/uucp/uucico \-r1 \-sother -.PP -A command in the scheduled-event list is executed just before the first -prompt is printed after the time when the command is scheduled. -It is possible to miss the exact time when the command is to be run, but -an overdue command will execute at the next prompt. -A command which comes due while the shell -is waiting for user input is executed immediately. -However, normal operation of an already-running command will not -be interrupted so that a scheduled-event list element may be run. -.PP -This mechanism is similar to, but not the same as, the \fIat\fR(1) -command on some Unix systems. -Its major disadvantage is that it may not run a command at exactly the -specified time. -Its major advantage is that because \fIsched\fR runs directly from -the shell, it has access to shell variables and other structures. -This provides a mechanism for changing one's working environment -based on the time of day. -.RE -.PP -.B set -.br -.B set \fIname\fR ... -.br -.B set \fIname\fR\fB=\fIword\fR ... -.br -.B set [\-r] [\-f|\-l] \fIname\fR\fB=(\fIwordlist\fB)\fR ... (+) -.br -.B set \fIname[index]\fR\fB=\fIword\fR ... -.br -.B set \-r \fR(+) -.br -.B set \-r \fIname\fR ... (+) -.PD 0 -.TP 8 -.B set \-r \fIname\fR\fB=\fIword\fR ... (+) -The first form of the command prints the value of all shell variables. -Variables which contain more than a single word print as a -parenthesized word list. -The second form sets \fIname\fR to the null string. -The third form sets \fIname\fR to the single \fIword\fR. -The fourth form sets \fIname\fR to the list of words in -\fIwordlist\fR. In all cases the value is command and filename expanded. -If \-r is specified, the value is set read-only. If \-f or \-l are -specified, set only unique words keeping their order. -\-f prefers the first occurrence of a word, and \-l the last. -The fifth form sets the \fIindex\fR'th component of name to \fIword\fR; -this component must already exist. -The sixth form lists only the names of all shell variables that are read-only. -The seventh form makes \fIname\fR read-only, whether or not it has a value. -The second form sets \fIname\fR to the null string. -The eighth form is the same as the third form, but -make \fIname\fR read-only at the same time. -.PD -.IP "" 8 -These arguments can be repeated to set and/or make read-only multiple variables -in a single set command. Note, however, that variable expansion -happens for all arguments before any setting occurs. Note also that `=' can -be adjacent to both \fIname\fR and \fIword\fR or separated from both by -whitespace, but cannot be adjacent to only one or the other. -See also the \fIunset\fR builtin command. -.TP 8 -.B setenv \fR[\fIname \fR[\fIvalue\fR]] -Without arguments, prints the names and values of all environment variables. -Given \fIname\fR, sets the environment variable \fIname\fR to \fIvalue\fR -or, without \fIvalue\fR, to the null string. -.TP 8 -.B setpath \fIpath \fR(+) -Equivalent to \fIsetpath\fR(1). (Mach only) -.TP 8 -.B setspath\fR LOCAL|\fIsite\fR|\fIcpu\fR ... (+) -Sets the system execution path. (TCF only) -.TP 8 -.B settc \fIcap value \fR(+) -Tells the shell to believe that the terminal capability \fIcap\fR -(as defined in \fItermcap\fR(5)) has the value \fIvalue\fR. -No sanity checking is done. -Concept terminal users may have to `settc xn no' to get proper -wrapping at the rightmost column. -.TP 8 -.B setty \fR[\fB\-d\fR|\fB\-q\fR|\fB\-x\fR] [\fB\-a\fR] [[\fB+\fR|\fB\-\fR]\fImode\fR] (+) -Controls which tty modes (see \fBTerminal management\fR) -the shell does not allow to change. -\fB\-d\fR, \fB\-q\fR or \fB\-x\fR tells \fIsetty\fR to act -on the `edit', `quote' or `execute' set of tty modes respectively; without -\fB\-d\fR, \fB\-q\fR or \fB\-x\fR, `execute' is used. -.IP "" 8 -Without other arguments, \fIsetty\fR lists the modes in the chosen set -which are fixed on (`+mode') or off (`\-mode'). -The available modes, and thus the display, vary from system to system. -With \fB\-a\fR, lists all tty modes in the chosen set -whether or not they are fixed. -With \fB+\fImode\fR, \fB\-\fImode\fR or \fImode\fR, fixes \fImode\fR on or off -or removes control from \fImode\fR in the chosen set. -For example, `setty +echok echoe' fixes `echok' mode on and allows commands -to turn `echoe' mode on or off, both when the shell is executing commands. -.TP 8 -.B setxvers\fR [\fIstring\fR] (+) -Set the experimental version prefix to \fIstring\fR, or removes it -if \fIstring\fR is omitted. (TCF only) -.TP 8 -.B shift \fR[\fIvariable\fR] -Without arguments, discards \fBargv\fR[1] and shifts the members of -\fBargv\fR to the left. It is an error for \fBargv\fR not to be set or to have -less than one word as value. With \fIvariable\fR, performs the -same function on \fIvariable\fR. -.TP 8 -.B source \fR[\fB\-h\fR] \fIname\fR [\fIargs\fR ...] -The shell reads and executes commands from \fIname\fR. -The commands are not placed on the history list. -If any \fIargs\fR are given, they are placed in \fBargv\fR. (+) -\fIsource\fR commands may be nested; -if they are nested too deeply the shell may run out of file descriptors. -An error in a \fIsource\fR at any level terminates all nested -\fIsource\fR commands. -With \fB\-h\fR, commands are placed on the history list instead of being -executed, much like `history \-L'. -.TP 8 -.B stop \fB%\fIjob\fR|\fIpid\fR ... -Stops the specified jobs or processes which are executing in the background. -\fIjob\fR may be a number, a string, `', `%', `+' or `\-' as described -under \fBJobs\fR. -There is no default \fIjob\fR; saying just `stop' does not stop -the current job. -.TP 8 -.B suspend -Causes the shell to stop in its tracks, much as if it had -been sent a stop signal with \fB^Z\fR. This is most often used to -stop shells started by \fIsu\fR(1). -.PP -.B switch (\fIstring\fB) -.br -.B case \fIstr1\fB: -.PD 0 -.IP "" 4 -\&... -.br -.B breaksw -.PP -\&... -.PP -.B default: -.IP "" 4 -\&... -.br -.B breaksw -.TP 8 -.B endsw -Each case label is successively matched, against the -specified \fIstring\fR which is first command and filename expanded. -The file metacharacters `*', `?' and `[...]' may be used -in the case labels, which are variable expanded. If none -of the labels match before a `default' label is found, then -the execution begins after the default label. Each case -label and the default label must appear at the beginning of -a line. The command \fIbreaksw\fR causes execution to continue -after the \fIendsw\fR. Otherwise control may fall through case -labels and default labels as in C. If no label matches and -there is no default, execution continues after the \fIendsw\fR. -.PD -.TP 8 -.B telltc \fR(+) -Lists the values of all terminal capabilities (see \fItermcap\fR(5)). -.TP 8 -.B time \fR[\fIcommand\fR] -Executes \fIcommand\fR (which must be a simple command, not an alias, -a pipeline, a command list or a parenthesized command list) -and prints a time summary as described under the \fBtime\fR variable. -If necessary, an extra shell is created to print the time statistic when -the command completes. -Without \fIcommand\fR, prints a time summary for the current shell and its -children. -.TP 8 -.B umask \fR[\fIvalue\fR] -Sets the file creation mask to \fIvalue\fR, which is given in octal. -Common values for the mask are -002, giving all access to the group and read and execute access to others, and -022, giving read and execute access to the group and others. -Without \fIvalue\fR, prints the current file creation mask. -.TP 8 -.B unalias \fIpattern -.br -Removes all aliases whose names match \fIpattern\fR. -`unalias *' thus removes all aliases. -It is not an error for nothing to be \fIunalias\fRed. -.TP 8 -.B uncomplete \fIpattern\fR (+) -Removes all completions whose names match \fIpattern\fR. -`uncomplete *' thus removes all completions. -It is not an error for nothing to be \fIuncomplete\fRd. -.TP 8 -.B unhash -Disables use of the internal hash table to speed location of -executed programs. -.TP 8 -.B universe \fIuniverse\fR (+) -Sets the universe to \fIuniverse\fR. (Masscomp/RTU only) -.TP 8 -.B unlimit \fR[\fB\-h\fR] [\fIresource\fR] -Removes the limitation on \fIresource\fR or, if no \fIresource\fR is -specified, all \fIresource\fR limitations. -With \fB\-h\fR, the corresponding hard limits are removed. -Only the super-user may do this. -.TP 8 -.B unset \fIpattern -Removes all variables whose names match \fIpattern\fR, unless they are read-only. -`unset *' thus removes all variables unless they are read-only; -this is a bad idea. -It is not an error for nothing to be \fIunset\fR. -.TP 8 -.B unsetenv \fIpattern -Removes all environment variables whose names match \fIpattern\fR. -`unsetenv *' thus removes all environment variables; -this is a bad idea. -It is not an error for nothing to be \fIunsetenv\fRed. -.TP 8 -.B ver \fR[\fIsystype\fR [\fIcommand\fR]] (+) -Without arguments, prints \fBSYSTYPE\fR. With \fIsystype\fR, sets \fBSYSTYPE\fR -to \fIsystype\fR. With \fIsystype\fR and \fIcommand\fR, executes \fIcommand\fR -under \fIsystype\fR. \fIsystype\fR may be `bsd4.3' or `sys5.3'. -(Domain/OS only) -.TP 8 -.B wait -The shell waits for all background jobs. If the shell is interactive, an -interrupt will disrupt the wait and cause the shell to print the names and job -numbers of all outstanding jobs. -.TP 8 -.B warp \fIuniverse\fR (+) -Sets the universe to \fIuniverse\fR. (Convex/OS only) -.TP 8 -.B watchlog \fR(+) -An alternate name for the \fIlog\fR builtin command (q.v.). -Available only if the shell was so compiled; -see the \fBversion\fR shell variable. -.TP 8 -.B where \fIcommand\fR (+) -Reports all known instances of \fIcommand\fR, including aliases, builtins and -executables in \fBpath\fR. -.TP 8 -.B which\fR \fIcommand\fR (+) -Displays the command that will be executed by the shell after substitutions, -\fBpath\fR searching, etc. -The builtin command is just like \fIwhich\fR(1), but it correctly reports -\fItcsh\fR aliases and builtins and is 10 to 100 times faster. -See also the \fIwhich-command\fR editor command. -.PP -.B while (\fIexpr\fB)\fR -.br -\&... -.PD 0 -.TP 8 -.B end -Executes the commands between the \fIwhile\fR and the matching \fIend\fR -while \fIexpr\fR (an expression, as described under \fBExpressions\fR) -evaluates non-zero. -\fIwhile\fR and \fIend\fR must appear alone on their input lines. -\fIbreak\fR and \fIcontinue\fR may be used to terminate or continue the -loop prematurely. -If the input is a terminal, the user is prompted the first time -through the loop as with \fIforeach\fR. -.PD -.SS "Special aliases (+)" -If set, each of these aliases executes automatically at the indicated time. -They are all initially undefined. -.TP 8 -.B beepcmd -Runs when the shell wants to ring the terminal bell. -.TP 8 -.B cwdcmd -Runs after every change of working directory. For example, if the user is -working on an X window system using \fIxterm\fR(1) and a re-parenting window -manager that supports title bars such as \fItwm\fR(1) and does -.RS +8 -.IP "" 4 -> alias cwdcmd 'echo \-n "^[]2;${HOST}:$cwd ^G"' -.PP -then the shell will change the title of the running \fIxterm\fR(1) -to be the name of the host, a colon, and the full current working directory. -A fancier way to do that is -.IP "" 4 -> alias cwdcmd 'echo \-n "^[]2;${HOST}:$cwd^G^[]1;${HOST}^G"' -.PP -This will put the hostname and working directory on the title bar but -only the hostname in the icon manager menu. -.PP -Note that putting a \fIcd\fR, \fIpushd\fR or \fIpopd\fR in \fIcwdcmd\fR -may cause an infinite loop. It is the author's opinion that anyone doing -so will get what they deserve. -.RE -.TP 8 -.B helpcommand -Invoked by the \fBrun-help\fR editor command. The command name for which help -is sought is passed as sole argument. -For example, if one does -.RS +8 -.IP "" 4 -> alias helpcommand '\e!:1 --help' -.PP -then the help display of the command itself will be invoked, using the GNU -help calling convention. -Currently there is no easy way to account for various calling conventions (e.g., -the customary Unix `-h'), except by using a table of many commands. -.RE -.TP 8 -.B periodic -Runs every \fBtperiod\fR minutes. This provides a convenient means for -checking on common but infrequent changes such as new mail. For example, -if one does -.RS +8 -.IP "" 4 -> set tperiod = 30 -.br -> alias periodic checknews -.PP -then the \fIchecknews\fR(1) program runs every 30 minutes. -If \fIperiodic\fR is set but \fBtperiod\fR is unset or set to 0, -\fIperiodic\fR behaves like \fIprecmd\fR. -.RE -.TP 8 -.B precmd -Runs just before each prompt is printed. For example, if one does -.RS +8 -.IP "" 4 -> alias precmd date -.PP -then \fIdate\fR(1) runs just before the shell prompts for each command. -There are no limits on what \fIprecmd\fR can be set to do, but discretion -should be used. -.RE -.TP 8 -.B postcmd -Runs before each command gets executed. -.RS +8 -.IP "" 4 -> alias postcmd 'echo \-n "^[]2\e;\e!#^G"' -.PP -then executing \fIvi foo.c\fR will put the command string in the xterm title bar. -.RE -.TP 8 -.B shell -Specifies the interpreter for executable scripts which do not themselves -specify an interpreter. The first word should be a full path name to the -desired interpreter (e.g., `/bin/csh' or `/usr/local/bin/tcsh'). -.SS "Special shell variables" -The variables described in this section have special meaning to the shell. -.PP -The shell sets \fBaddsuffix\fR, \fBargv\fR, \fBautologout\fR, \fBcommand\fR, \fBecho_style\fR, -\fBedit\fR, \fBgid\fR, \fBgroup\fR, \fBhome\fR, \fBloginsh\fR, \fBoid\fR, \fBpath\fR, -\fBprompt\fR, \fBprompt2\fR, \fBprompt3\fR, \fBshell\fR, \fBshlvl\fR, -\fBtcsh\fR, \fBterm\fR, \fBtty\fR, \fBuid\fR, \fBuser\fR and \fBversion\fR at -startup; they do not change thereafter unless changed by the user. The shell -updates \fBcwd\fR, \fBdirstack\fR, \fBowd\fR and \fBstatus\fR when necessary, -and sets \fBlogout\fR on logout. -.PP -The shell synchronizes \fBafsuser\fR, \fBgroup\fR, \fBhome\fR, \fBpath\fR, \fBshlvl\fR, -\fBterm\fR and \fBuser\fR with the environment variables of the same names: -whenever the environment variable changes the shell changes the corresponding -shell variable to match (unless the shell variable is read-only) and vice -versa. Note that although \fBcwd\fR and \fBPWD\fR have identical meanings, they -are not synchronized in this manner, and that the shell automatically -interconverts the different formats of \fBpath\fR and \fBPATH\fR. -.TP 8 -.B addsuffix \fR(+) -If set, filename completion adds `/' to the end of directories and a space -to the end of normal files when they are matched exactly. -Set by default. -.TP 8 -.B afsuser \fR(+) -If set, \fBautologout\fR's autolock feature uses its value instead of -the local username for kerberos authentication. -.TP 8 -.B ampm \fR(+) -If set, all times are shown in 12-hour AM/PM format. -.TP 8 -.B argv -The arguments to the shell. Positional parameters are taken from \fBargv\fR, -i.e., `$1' is replaced by `$argv[1]', etc. -Set by default, but usually empty in interactive shells. -.TP 8 -.B autocorrect \fR(+) -If set, the \fIspell-word\fR editor command is invoked automatically before -each completion attempt. -.TP 8 -.B autoexpand \fR(+) -If set, the \fIexpand-history\fR editor command is invoked automatically -before each completion attempt. -.TP 8 -.B autolist \fR(+) -If set, possibilities are listed after an ambiguous completion. -If set to `ambiguous', possibilities are listed only when no new -characters are added by completion. -.TP 8 -.B autologout \fR(+) -The first word is the number of minutes of inactivity before automatic -logout. The optional second word is the number of minutes of inactivity -before automatic locking. -When the shell automatically logs out, -it prints `auto-logout', sets the variable logout to `automatic' and exits. -When the shell automatically locks, the user is required to enter his password -to continue working. Five incorrect attempts result in automatic logout. -Set to `60' (automatic logout after 60 minutes, and no locking) by default -in login and superuser shells, but not if the shell thinks it is running -under a window system (i.e., the \fBDISPLAY\fR environment variable is set), -the tty is a pseudo-tty (pty) or the shell was not so compiled (see the -\fBversion\fR shell variable). -See also the \fBafsuser\fR and \fBlogout\fR shell variables. -.TP 8 -.B backslash_quote \fR(+) -If set, backslashes (`\\') always quote `\\', `'', and `"'. This may make -complex quoting tasks easier, but it can cause syntax errors in \fIcsh\fR(1) -scripts. -.TP 8 -.B cdpath -A list of directories in which \fIcd\fR should search for -subdirectories if they aren't found in the current directory. -.TP 8 -.B color -If set, it enables color display for the builtin \fBls\-F\fR and it passes -\fB\-\-color=auto\fR to \fBls\fR. Alternatively, it can be set to only -\fBls\-F\fR or only \fBls\fR to enable color to only one command. Setting -it to nothing is equivalent to setting it to \fB(ls\-F ls)\fR. -.TP 8 -.B colorcat -If set, it enables color escape sequence for NLS message files. -And display colorful NLS messages. -.TP 8 -.B command \fR(+) -If set, the command which was passed to the shell with the \fB-c\fR flag (q.v.). -.TP 8 -.B complete \fR(+) -If set to `enhance', completion 1) ignores case and 2) considers -periods, hyphens and underscores (`.', `\-' and `_') to be word -separators and hyphens and underscores to be equivalent. -.TP 8 -.B continue_args \fR(+) -If set to a list of commands, the shell will continue the listed -commands, instead of starting a new one. -.TP 8 -.B continue_args \fR(+) -Same as continue, but the shell will execute: -.RS +8 -.nf - echo `pwd` $argv > ~/.<command-name>_pause; %<command-name> -.fi -.RE -.TP 8 -.B correct \fR(+) -If set to `cmd', commands are automatically spelling-corrected. -If set to `complete', commands are automatically completed. -If set to `all', the entire command line is corrected. -.TP 8 -.B cwd -The full pathname of the current directory. -See also the \fBdirstack\fR and \fBowd\fR shell variables. -.TP 8 -.B dextract \fR(+) -If set, `pushd +\fIn\fR' extracts the \fIn\fRth directory from the directory -stack rather than rotating it to the top. -.TP 8 -.B dirsfile \fR(+) -The default location in which `dirs \-S' and `dirs \-L' look for -a history file. If unset, \fI~/.cshdirs\fR is used. -Because only \fI~/.tcshrc\fR is normally sourced before \fI~/.cshdirs\fR, -\fBdirsfile\fR should be set in \fI~/.tcshrc\fR rather than \fI~/.login\fR. -.TP 8 -.B dirstack \fR(+) -An array of all the directories on the directory stack. -`$dirstack[1]' is the current working directory, `$dirstack[2]' -the first directory on the stack, etc. -Note that the current working directory is `$dirstack[1]' but `=0' in -directory stack substitutions, etc. -One can change the stack arbitrarily by setting \fBdirstack\fR, -but the first element (the current working directory) is always correct. -See also the \fBcwd\fR and \fBowd\fR shell variables. -.TP 8 -.B dspmbyte \fR(+) -If set to `euc', it enables display and editing EUC-kanji(Japanese) code. -If set to `sjis', it enables display and editing Shift-JIS(Japanese) code. -If set to the following format, it enables display and editing of original -multi-byte code format: -.RS +8 -.IP "" 4 -> set dspmbyte = 0000....(256 bytes)....0000 -.PP -The table requires \fBjust\fR 256 bytes. Each character of 256 characters -corresponds (from left to right) to the ASCII codes 0x00, 0x01, ... 0xff. Each -character -.\" (position in this table?) -is set to number 0,1,2 and 3. Each number has the following meaning: -.br - 0 ... not used for multi-byte characters. -.br - 1 ... used for the first byte of a multi-byte character. -.br - 2 ... used for the second byte of a multi-byte character. -.br - 3 ... used for both the first byte and second byte of a multi-byte character. -.\" SHK: I tried my best to get the following to be gramatically correct. -.\" However, I still don't understand what's going on here. In the - \" following example, there are three bytes, but the text seems to refer to - \" each nybble as a character. What's going on here? It this 3-byte code - \" in the table? The text above seems to imply that there are 256 - \" characters/bytes in the table. If I get some more info on this (perhaps - \" a complete example), I could fix the text to be grammatically correct. - \" (steve.kelem@xilinx.com 1999/09/13) -.PP - Example: -.br -If set to `001322', the first character (means 0x00 of the ASCII code) and -second character (means 0x01 of ASCII code) are set to `0'. Then, it is not -used for multi-byte characters. The 3rd character (0x02) is set to '2', -indicating that it is used for the first byte of a multi-byte character. -The 4th character(0x03) is set '3'. It is used for both the first byte and -the second byte of a multi-byte character. The 5th and 6th characters -(0x04,0x05) are set to '2', indicating that they are used for the second -byte of a multi-byte character. -.PP -The GNU fileutils version of ls cannot display multi-byte -filenames without the -N ( --literal ) option. If you are using -this version, set the second word of dspmbyte to "ls". If not, for -example, "ls-F -l" cannot display multi-byte filenames. -.RE -.TP 8 -.B dunique \fR(+) -If set, \fIpushd\fR removes any instances of \fIname\fR -from the stack before pushing it onto the stack. -.TP 8 -.B echo -If set, each command with its arguments is echoed just before it is -executed. For non-builtin commands all expansions occur before -echoing. Builtin commands are echoed before command and filename -substitution, because these substitutions are then done selectively. -Set by the \fB\-x\fR command line option. -.TP 8 -.B echo_style \fR(+) -The style of the \fIecho\fR builtin. May be set to -.PP -.RS +8 -.PD 0 -.TP 8 -bsd -Don't echo a newline if the first argument is `\-n'. -.TP 8 -sysv -Recognize backslashed escape sequences in echo strings. -.TP 8 -both -Recognize both the `\-n' flag and backslashed escape sequences; the default. -.TP 8 -none -Recognize neither. -.PD -.PP -Set by default to the local system default. The BSD and System V -options are described in the \fIecho\fR(1) man pages on the appropriate -systems. -.RE -.TP 8 -.B edit \fR(+) -If set, the command-line editor is used. Set by default in interactive -shells. -.TP 8 -.B ellipsis \fR(+) -If set, the `%c'/`%.' and `%C' prompt sequences (see the \fBprompt\fR -shell variable) indicate skipped directories with an ellipsis (`...') -instead of `/<skipped>'. -.TP 8 -.B fignore \fR(+) -Lists file name suffixes to be ignored by completion. -.TP 8 -.B filec -In \fItcsh\fR, completion is always used and this variable is ignored. -If set in \fIcsh\fR, filename completion is used. -.TP 8 -.B gid \fR(+) -The user's real group ID. -.TP 8 -.B group \fR(+) -The user's group name. -.TP 8 -.B histchars -A string value determining the characters used in \fBHistory -substitution\fR (q.v.). The first character of its value is used as -the history substitution character, replacing the default character -`!'. The second character of its value replaces the character `^' in -quick substitutions. -.TP 8 -.B histdup \fR(+) -Controls handling of duplicate entries in the history list. If set to -`all' only unique history events are entered in the history list. If -set to `prev' and the last history event is the same as the current -command, then the current command is not entered in the history. If -set to `erase' and the same event is found in the history list, that -old event gets erased and the current one gets inserted. Note that the -`prev' and `all' options renumber history events so there are no gaps. -.TP 8 -.B histfile \fR(+) -The default location in which `history \-S' and `history \-L' look for -a history file. If unset, \fI~/.history\fR is used. \fBhistfile\fR is -useful when sharing the same home directory between different machines, -or when saving separate histories on different terminals. Because only -\fI~/.tcshrc\fR is normally sourced before \fI~/.history\fR, -\fBhistfile\fR should be set in \fI~/.tcshrc\fR rather than -\fI~/.login\fR. -.TP 8 -.B histlit \fR(+) -If set, builtin and editor commands and the \fBsavehist\fR mechanism -use the literal (unexpanded) form of lines in the history list. See -also the \fItoggle-literal-history\fR editor command. -.TP 8 -.B history -The first word indicates the number of history events to save. The -optional second word (+) indicates the format in which history is -printed; if not given, `%h\\t%T\\t%R\\n' is used. The format sequences -are described below under \fBprompt\fR; note the variable meaning of -`%R'. Set to `100' by default. -.TP 8 -.B home -Initialized to the home directory of the invoker. The filename -expansion of `\fI~\fR' refers to this variable. -.TP 8 -.B ignoreeof -If set to the empty string or `0' and the input device is a terminal, -the \fIend-of-file\fR command (usually generated by the user by typing -`^D' on an empty line) causes the shell to print `Use "exit" to leave -tcsh.' instead of exiting. This prevents the shell from accidentally -being killed. If set to a number \fIn\fR, the shell ignores \fIn\fR - -1 consecutive \fIend-of-file\fRs and exits on the \fIn\fRth. (+) If -unset, `1' is used, i.e., the shell exits on a single `^D'. -.TP 8 -.B implicitcd \fR(+) -If set, the shell treats a directory name typed as a command as though -it were a request to change to that directory. If set to \fIverbose\fR, -the change of directory is echoed to the standard output. This behavior -is inhibited in non-interactive shell scripts, or for command strings -with more than one word. Changing directory takes precedence over -executing a like-named command, but it is done after alias -substitutions. Tilde and variable expansions work as expected. -.TP 8 -.B inputmode \fR(+) -If set to `insert' or `overwrite', puts the editor into that input mode -at the beginning of each line. -.TP 8 -.B listflags \fR(+) -If set to `x', `a' or `A', or any combination thereof (e.g., `xA'), they -are used as flags to \fIls\-F\fR, making it act like `ls \-xF', `ls -\-Fa', `ls \-FA' or a combination (e.g., `ls \-FxA'): `a' shows all -files (even if they start with a `.'), `A' shows all files but `.' and -`..', and `x' sorts across instead of down. If the second word of -\fBlistflags\fR is set, it is used as the path to `ls(1)'. -.TP 8 -.B listjobs \fR(+) -If set, all jobs are listed when a job is suspended. If set to `long', -the listing is in long format. -.TP 8 -.B listlinks \fR(+) -If set, the \fIls\-F\fR builtin command shows the type of file to which -each symbolic link points. -.TP 8 -.B listmax \fR(+) -The maximum number of items which the \fIlist-choices\fR editor command -will list without asking first. -.TP 8 -.B listmaxrows \fR(+) -The maximum number of rows of items which the \fIlist-choices\fR editor -command will list without asking first. -.TP 8 -.B loginsh \fR(+) -Set by the shell if it is a login shell. Setting or unsetting it -within a shell has no effect. See also \fBshlvl\fR. -.TP 8 -.B logout \fR(+) -Set by the shell to `normal' before a normal logout, `automatic' before -an automatic logout, and `hangup' if the shell was killed by a hangup -signal (see \fBSignal handling\fR). See also the \fBautologout\fR -shell variable. -.TP 8 -.B mail -The names of the files or directories to check for incoming mail, -separated by whitespace, and optionally preceded by a numeric word. -Before each prompt, if 10 minutes have passed since the last check, the -shell checks each file and says `You have new mail.' (or, if \fBmail\fR -contains multiple files, `You have new mail in \fIname\fR.') if the -filesize is greater than zero in size and has a modification time -greater than its access time. -.PP -.RS +8 -.PD -.PP -If you are in a login shell, then no mail file is reported unless it has -been modified after the time the shell has started up, to prevent -redundant notifications. Most login programs will tell you whether or not -you have mail when you log in. -.PP -If a file specified in \fBmail\fR is a directory, the shell will count each -file within that directory as a separate message, and will report `You have -\fIn\fR mails.' or `You have \fIn\fR mails in \fIname\fR.' as appropriate. -This functionality is provided primarily for those systems which store mail -in this manner, such as the Andrew Mail System. -.PP -If the first word of \fBmail\fR is numeric it is taken as a different mail -checking interval, in seconds. -.PP -Under very rare circumstances, the shell may report `You have mail.' instead -of `You have new mail.' -.RE -.TP 8 -.B matchbeep \fR(+) -If set to `never', completion never beeps. -If set to `nomatch', it beeps only when there is no match. -If set to `ambiguous, it beeps when there are multiple matches. -If set to `notunique', it beeps when there is one exact and other longer matches. -If unset, `ambiguous' is used. -.TP 8 -.B nobeep \fR(+) -If set, beeping is completely disabled. -See also \fBvisiblebell\fR. -.TP 8 -.B noclobber -If set, restrictions are placed on output redirection to insure that files -are not accidentally destroyed and that `>>' redirections refer to existing -files, as described in the \fBInput/output\fR section. -.TP 8 -.B noglob -If set, \fBFilename substitution\fR and \fBDirectory stack substitution\fR -(q.v.) are inhibited. This is most useful in shell scripts which do not deal -with filenames, or after a list of filenames has been obtained and further -expansions are not desirable. -.TP 8 -.B nokanji \fR(+) -If set and the shell supports Kanji (see the \fBversion\fR shell variable), -it is disabled so that the meta key can be used. -.TP 8 -.B nonomatch -If set, a \fBFilename substitution\fR or \fBDirectory stack substitution\fR -(q.v.) which does not match any -existing files is left untouched rather than causing an error. -It is still an error for the substitution to be -malformed, e.g., `echo [' still gives an error. -.TP 8 -.B nostat \fR(+) -A list of directories (or glob-patterns which match directories; see -\fBFilename substitution\fR) that should not be \fIstat\fR(2)ed during a -completion operation. This is usually used to exclude directories which -take too much time to \fIstat\fR(2), for example \fI/afs\fR. -.TP 8 -.B notify -If set, the shell announces job completions asynchronously. -The default is to present job completions just before printing a prompt. -.TP 8 -.B oid \fR(+) -The user's real organization ID. (Domain/OS only) -.TP 8 -.B owd \fR(+) -The old working directory, equivalent to the `\-' used by \fIcd\fR and \fIpushd\fR. -See also the \fBcwd\fR and \fBdirstack\fR shell variables. -.TP 8 -.B path -A list of directories in which to look for executable commands. -A null word specifies the current directory. -If there is no \fBpath\fR variable then only full path names will execute. -\fBpath\fR is set by the shell at startup from the \fBPATH\fR environment -variable or, if \fBPATH\fR does not exist, to a system-dependent default -something like `(/usr/local/bin /usr/bsd /bin /usr/bin .)'. -The shell may put `.' first or last in \fBpath\fR or omit it entirely -depending on how it was compiled; see the \fBversion\fR shell variable. -A shell which is given neither the \fB\-c\fR nor the \fB\-t\fR option -hashes the contents of the directories in \fBpath\fR after -reading \fI~/.tcshrc\fR and each time \fBpath\fR is reset. -If one adds a new command to a directory in \fBpath\fR while the shell -is active, one may need to do a \fIrehash\fR for the shell to find it. -.TP 8 -.B printexitvalue \fR(+) -If set and an interactive program exits with a non-zero status, the shell -prints `Exit \fBstatus\fR'. -.TP 8 -.B prompt -The string which is printed before reading each command from the terminal. -\fBprompt\fR may include any of the following formatting sequences (+), which -are replaced by the given information: -.PP -.RS +8 -.PD 0 -.TP 4 -%/ -The current working directory. -.TP 4 -%~ -The current working directory, but with one's home directory -represented by `~' and other users' home directories represented by -`~user' as per \fBFilename substitution\fR. `~user' substitution -happens only if the shell has already used `~\fIuser\fR' in a pathname -in the current session. -.TP 4 -%c[[0]\fIn\fR], %.[[0]\fIn\fR] -The trailing component of the current working directory, or \fIn\fR -trailing components if a digit \fIn\fR is given. -If \fIn\fR begins with `0', the number of skipped components precede -the trailing component(s) in the format `/<\fIskipped\fR>trailing'. -If the \fBellipsis\fR shell variable is set, skipped components -are represented by an ellipsis so the whole becomes `...trailing'. -`~' substitution is done as in `%~' above, but the `~' component -is ignored when counting trailing components. -.TP 4 -%C -Like %c, but without `~' substitution. -.TP 4 -%h, %!, ! -The current history event number. -.TP 4 -%M -The full hostname. -.TP 4 -%m -The hostname up to the first `.'. -.TP 4 -%S (%s) -Start (stop) standout mode. -.TP 4 -%B (%b) -Start (stop) boldfacing mode. -.TP 4 -%U (%u) -Start (stop) underline mode. -.TP 4 -%t, %@ -The time of day in 12-hour AM/PM format. -.TP 4 -%T -Like `%t', but in 24-hour format (but see the \fBampm\fR shell variable). -.TP 4 -%p -The `precise' time of day in 12-hour AM/PM format, with seconds. -.TP 4 -%P -Like `%p', but in 24-hour format (but see the \fBampm\fR shell variable). -.TP 4 -\e\fIc\fR -\fIc\fR is parsed as in \fIbindkey\fR. -.TP 4 -^\fIc\fR -\fIc\fR is parsed as in \fIbindkey\fR. -.TP 4 -%% -A single `%'. -.TP 4 -%n -The user name. -.TP 4 -%d -The weekday in `Day' format. -.TP 4 -%D -The day in `dd' format. -.TP 4 -%w -The month in `Mon' format. -.TP 4 -%W -The month in `mm' format. -.TP 4 -%y -The year in `yy' format. -.TP 4 -%Y -The year in `yyyy' format. -.TP 4 -%l -The shell's tty. -.TP 4 -%L -Clears from the end of the prompt to end of the display or the end of the line. -.TP 4 -%$ -Expands the shell or environment variable name immediately after the `$'. -.TP 4 -%# -`>' (or the first character of the \fBpromptchars\fR shell variable) -for normal users, `#' (or the second character of \fBpromptchars\fR) -for the superuser. -.TP 4 -%{\fIstring\fR%} -Includes \fIstring\fR as a literal escape sequence. -It should be used only to change terminal attributes and -should not move the cursor location. This -cannot be the last sequence in \fBprompt\fR. -.TP 4 -%? -The return code of the command executed just before the prompt. -.TP 4 -%R -In \fBprompt2\fR, the status of the parser. -In \fBprompt3\fR, the corrected string. -In \fBhistory\fR, the history string. -.PD -.PP -`%B', `%S', `%U' and `%{\fIstring\fR%}' are available in only -eight-bit-clean shells; see the \fBversion\fR shell variable. -.PP -The bold, standout and underline sequences are often used to distinguish a -superuser shell. For example, -.IP "" 4 -> set prompt = "%m [%h] %B[%@]%b [%/] you rang? " -.br -tut [37] \fB[2:54pm]\fR [/usr/accts/sys] you rang? _ -.PP -Set by default to `%# ' in interactive shells. -.RE -.TP 8 -.B prompt2 \fR(+) -The string with which to prompt in \fIwhile\fR and \fIforeach\fR loops and -after lines ending in `\\'. -The same format sequences may be used as in \fBprompt\fR (q.v.); -note the variable meaning of `%R'. -Set by default to `%R? ' in interactive shells. -.TP 8 -.B prompt3 \fR(+) -The string with which to prompt when confirming automatic spelling correction. -The same format sequences may be used as in \fBprompt\fR (q.v.); -note the variable meaning of `%R'. -Set by default to `CORRECT>%R (y|n|e|a)? ' in interactive shells. -.TP 8 -.B promptchars \fR(+) -If set (to a two-character string), the `%#' formatting sequence in the -\fBprompt\fR shell variable is replaced with the first character for -normal users and the second character for the superuser. -.TP 8 -.B pushdtohome \fR(+) -If set, \fIpushd\fR without arguments does `pushd ~', like \fIcd\fR. -.TP 8 -.B pushdsilent \fR(+) -If set, \fIpushd\fR and \fIpopd\fR do not print the directory stack. -.TP 8 -.B recexact \fR(+) -If set, completion completes on an exact match even if a longer match is -possible. -.TP 8 -.B recognize_only_executables \fR(+) -If set, command listing displays only files in the path that are -executable. Slow. -.TP 8 -.B rmstar \fR(+) -If set, the user is prompted before `rm *' is executed. -.TP 8 -.B rprompt \fR(+) -The string to print on the right-hand side of the screen (after -the command input) when the prompt is being displayed on the left. -It recognizes the same formatting characters as \fBprompt\fR. -It will automatically disappear and reappear as necessary, to ensure that -command input isn't obscured, and will appear only if the prompt, -command input, and itself will fit together on the first line. -If \fBedit\fR isn't set, then \fBrprompt\fR will be printed after -the prompt and before the command input. -.TP 8 -.B savedirs \fR(+) -If set, the shell does `dirs \-S' before exiting. -If the first word is set to a number, at most that many directory stack -entries are saved. -.TP 8 -.B savehist -If set, the shell does `history \-S' before exiting. -If the first word is set to a number, at most that many lines are saved. -(The number must be less than or equal to \fBhistory\fR.) -If the second word is set to `merge', the history list is merged with -the existing history file instead of replacing it (if there is one) and -sorted by time stamp and the most recent events are retained. (+) -.TP 8 -.B sched \fR(+) -The format in which the \fIsched\fR builtin command prints scheduled events; -if not given, `%h\\t%T\\t%R\\n' is used. -The format sequences are described above under \fBprompt\fR; -note the variable meaning of `%R'. -.TP 8 -.B shell -The file in which the shell resides. This is used in forking -shells to interpret files which have execute bits set, but -which are not executable by the system. (See the description -of \fBBuiltin and non-builtin command execution\fR.) Initialized to the -(system-dependent) home of the shell. -.TP 8 -.B shlvl \fR(+) -The number of nested shells. -Reset to 1 in login shells. -See also \fBloginsh\fR. -.TP 8 -.B status -The status returned by the last command. If it terminated -abnormally, then 0200 is added to the status. Builtin commands -which fail return exit status `1', all other builtin commands -return status `0'. -.TP 8 -.B symlinks \fR(+) -Can be set to several different values to control symbolic link (`symlink') -resolution: -.RS +8 -.PP -If set to `chase', whenever the current directory changes to a directory -containing a symbolic link, it is expanded to the real name of the directory -to which the link points. This does not work for the user's home directory; -this is a bug. -.PP -If set to `ignore', the shell tries to construct a current directory -relative to the current directory before the link was crossed. -This means that \fIcd\fRing through a symbolic link and then `cd ..'ing -returns one to the original directory. This affects only builtin commands -and filename completion. -.PP -If set to `expand', the shell tries to fix symbolic links by actually expanding -arguments which look like path names. This affects any command, not just -builtins. Unfortunately, this does not work for hard-to-recognize filenames, -such as those embedded in command options. Expansion may be prevented by -quoting. While this setting is usually the most convenient, it is sometimes -misleading and sometimes confusing when it fails to recognize an argument -which should be expanded. A compromise is to use `ignore' and use the -editor command \fInormalize-path\fR (bound by default to ^X-n) when necessary. -.PP -Some examples are in order. First, let's set up some play directories: -.IP "" 4 -> cd /tmp -.br -> mkdir from from/src to -.br -> ln \-s from/src to/dist -.PP -Here's the behavior with \fBsymlinks\fR unset, -.IP "" 4 -> cd /tmp/to/dist; echo $cwd -.br -/tmp/to/dist -.br -> cd ..; echo $cwd -.br -/tmp/from -.PP -here's the behavior with \fBsymlinks\fR set to `chase', -.IP "" 4 -> cd /tmp/to/dst; echo $cwd -.br -/tmp/from/src -.br -> cd ..; echo $cwd -.br -/tmp/from -.PP -here's the behavior with \fBsymlinks\fR set to `ignore', -.IP "" 4 -> cd /tmp/to/dist; echo $cwd -.br -/tmp/to/dst -.br -> cd ..; echo $cwd -.br -/tmp/to -.PP -and here's the behavior with \fBsymlinks\fR set to `expand'. -.IP "" 4 -> cd /tmp/to/dist; echo $cwd -.br -/tmp/to/dst -.br -> cd ..; echo $cwd -.br -/tmp/to -.br -> cd /tmp/to/dist; echo $cwd -.br -/tmp/to/dst -.br -> cd ".."; echo $cwd -.br -/tmp/from -.br -> /bin/echo .. -.br -/tmp/to -.br -> /bin/echo ".." -.br -\&.. -.PP -Note that `expand' expansion 1) works just like `ignore' for builtins -like \fIcd\fR, 2) is prevented by quoting, and 3) happens before -filenames are passed to non-builtin commands. -.RE -.TP 8 -.B tcsh \fR(+) -The version number of the shell in the format `R.VV.PP', -where `R' is the major release number, `VV' the current version -and `PP' the patchlevel. -.TP 8 -.B term -The terminal type. Usually set in \fI~/.login\fR as described under -\fBStartup and shutdown\fR. -.TP 8 -.B time -If set to a number, then the \fItime\fR builtin (q.v.) executes automatically -after each command which takes more than that many CPU seconds. -If there is a second word, it is used as a format string for the output -of the \fItime\fR builtin. (u) The following sequences may be used in the -format string: -.PP -.RS +8 -.PD 0 -.TP 4 -%U -The time the process spent in user mode in cpu seconds. -.TP 4 -%S -The time the process spent in kernel mode in cpu seconds. -.TP 4 -%E -The elapsed (wall clock) time in seconds. -.TP 4 -%P -The CPU percentage computed as (%U + %S) / %E. -.TP 4 -%W -Number of times the process was swapped. -.TP 4 -%X -The average amount in (shared) text space used in Kbytes. -.TP 4 -%D -The average amount in (unshared) data/stack space used in Kbytes. -.TP 4 -%K -The total space used (%X + %D) in Kbytes. -.TP 4 -%M -The maximum memory the process had in use at any time in Kbytes. -.TP 4 -%F -The number of major page faults (page needed to be brought from disk). -.TP 4 -%R -The number of minor page faults. -.TP 4 -%I -The number of input operations. -.TP 4 -%O -The number of output operations. -.TP 4 -%r -The number of socket messages received. -.TP 4 -%s -The number of socket messages sent. -.TP 4 -%k -The number of signals received. -.TP 4 -%w -The number of voluntary context switches (waits). -.TP 4 -%c -The number of involuntary context switches. -.PD -.PP -Only the first four sequences are supported on systems without BSD resource -limit functions. -The default time format is `%Uu %Ss %E %P %X+%Dk %I+%Oio %Fpf+%Ww' for -systems that support resource usage reporting and `%Uu %Ss %E %P' for -systems that do not. -.PP -Under Sequent's DYNIX/ptx, %X, %D, %K, %r and %s are not -available, but the following additional sequences are: -.PP -.PD 0 -.TP 4 -%Y -The number of system calls performed. -.TP 4 -%Z -The number of pages which are zero-filled on demand. -.TP 4 -%i -The number of times a process's resident set size was increased by the kernel. -.TP 4 -%d -The number of times a process's resident set size was decreased by the kernel. -.TP 4 -%l -The number of read system calls performed. -.TP 4 -%m -The number of write system calls performed. -.TP 4 -%p -The number of reads from raw disk devices. -.TP 4 -%q -The number of writes to raw disk devices. -.PD -.PP -and the default time format is `%Uu %Ss $E %P %I+%Oio %Fpf+%Ww'. -Note that the CPU percentage can be higher than 100% on multi-processors. -.RE -.TP 8 -.B tperiod \fR(+) -The period, in minutes, between executions of the \fIperiodic\fR special alias. -.TP 8 -.B tty \fR(+) -The name of the tty, or empty if not attached to one. -.TP 8 -.B uid \fR(+) -The user's real user ID. -.TP 8 -.B user -The user's login name. -.TP 8 -.B verbose -If set, causes the words of each -command to be printed, after history substitution (if any). -Set by the \fB\-v\fR command line option. -.TP 8 -.B version \fR(+) -The version ID stamp. It contains the shell's version number (see \fBtcsh\fR), -origin, release date, vendor, operating system and machine (see \fBVENDOR\fR, -\fBOSTYPE\fR and \fBMACHTYPE\fR) and a comma-separated -list of options which were set at compile time. -Options which are set by default in the distribution are noted. -.PP -.RS +8 -.PD 0 -.TP 4 -8b -The shell is eight bit clean; default -.TP 4 -7b -The shell is not eight bit clean -.TP 4 -nls -The system's NLS is used; default for systems with NLS -.TP 4 -lf -Login shells execute \fI/etc/csh.login\fR before instead of after -\fI/etc/csh.cshrc\fR and \fI~/.login\fR before instead of after -\fI~/.tcshrc\fR and \fI~/.history\fR. -.TP 4 -dl -`.' is put last in \fBpath\fR for security; default -.TP 4 -nd -`.' is omitted from \fBpath\fR for security -.TP 4 -vi -\fIvi\fR-style editing is the default rather than \fIemacs\fR -.TP 4 -dtr -Login shells drop DTR when exiting -.TP 4 -bye -\fIbye\fR is a synonym for \fIlogout\fR and \fIlog\fR -is an alternate name for \fIwatchlog\fR -.TP 4 -al -\fBautologout\fR is enabled; default -.TP 4 -kan -Kanji is used and the ISO character set is ignored, -unless the \fBnokanji\fR shell variable is set -.TP 4 -sm -The system's \fImalloc\fR(3) is used -.TP 4 -hb -The `#!<program> <args>' convention is emulated when executing shell scripts -.TP 4 -ng -The \fInewgrp\fR builtin is available -.TP 4 -rh -The shell attempts to set the \fBREMOTEHOST\fR environment variable -.TP 4 -afs -The shell verifies your password with the kerberos server if local -authentication fails. The \fBafsuser\fR shell variable or the -\fBAFSUSER\fR environment variable override your local username if set. -.PD -.PP -An administrator may enter additional strings to indicate differences -in the local version. -.RE -.TP 8 -.B visiblebell \fR(+) -If set, a screen flash is used rather than the audible bell. -See also \fBnobeep\fR. -.TP 8 -.B watch \fR(+) -A list of user/terminal pairs to watch for logins and logouts. -If either the user is `any' all terminals are watched for the given user -and vice versa. -Setting \fBwatch\fR to `(any any)' watches all users and terminals. -For example, -.RS +8 -.IP "" 4 -set watch = (george ttyd1 any console $user any) -.PP -reports activity of the user `george' on ttyd1, any user on the console, and -oneself (or a trespasser) on any terminal. -.PP -Logins and logouts are checked every 10 minutes by default, but the first -word of \fBwatch\fR can be set to a number to check every so many minutes. -For example, -.IP "" 4 -set watch = (1 any any) -.PP -reports any login/logout once every minute. For the impatient, the \fIlog\fR -builtin command triggers a \fBwatch\fR report at any time. All current logins -are reported (as with the \fIlog\fR builtin) when \fBwatch\fR is first set. -.PP -The \fBwho\fR shell variable controls the format of \fBwatch\fR reports. -.RE -.TP 8 -.B who \fR(+) -The format string for \fBwatch\fR messages. The following sequences -are replaced by the given information: -.PP -.RS +8 -.PD 0 -.TP 4 -%n -The name of the user who logged in/out. -.TP 4 -%a -The observed action, i.e., `logged on', `logged off' or `replaced \fIolduser\fR on'. -.TP 4 -%l -The terminal (tty) on which the user logged in/out. -.TP 4 -%M -The full hostname of the remote host, or `local' if the login/logout was -from the local host. -.TP 4 -%m -The hostname of the remote host up to the first `.'. -The full name is printed if it is an IP address or an X Window System display. -.PD -.PP -%M and %m are available on only systems that store the remote hostname in -\fI/etc/utmp\fR. -If unset, `%n has %a %l from %m.' is used, or `%n has %a %l.' on systems -which don't store the remote hostname. -.RE -.TP 8 -.B wordchars \fR(+) -A list of non-alphanumeric characters to be considered part of a word by the -\fIforward-word\fR, \fIbackward-word\fR etc., editor commands. -If unset, `*?_\-.[]~=' is used. -.SH ENVIRONMENT -.TP 8 -.B AFSUSER \fR(+) -Equivalent to the \fBafsuser\fR shell variable. -.TP 8 -.B COLUMNS -The number of columns in the terminal. See \fBTerminal management\fR. -.TP 8 -.B DISPLAY -Used by X Window System (see \fIX\fR(1)). -If set, the shell does not set \fBautologout\fR (q.v.). -.TP 8 -.B EDITOR -The pathname to a default editor. -See also the \fBVISUAL\fR environment variable -and the \fIrun-fg-editor\fR editor command. -.TP 8 -.B GROUP \fR(+) -Equivalent to the \fBgroup\fR shell variable. -.TP 8 -.B HOME -Equivalent to the \fBhome\fR shell variable. -.TP 8 -.B HOST \fR(+) -Initialized to the name of the machine on which the shell -is running, as determined by the \fIgethostname\fR(2) system call. -.TP 8 -.B HOSTTYPE \fR(+) -Initialized to the type of machine on which the shell -is running, as determined at compile time. This variable is obsolete and -will be removed in a future version. -.TP 8 -.B HPATH \fR(+) -A colon-separated list of directories in which the \fIrun-help\fR editor -command looks for command documentation. -.TP 8 -.B LANG -Gives the preferred character environment. -See \fBNative Language System support\fR. -.TP 8 -.B LC_CTYPE -If set, only ctype character handling is changed. -See \fBNative Language System support\fR. -.TP 8 -.B LINES -The number of lines in the terminal. See \fBTerminal management\fR. -.TP 8 -.B LS_COLORS -The format of this variable is reminiscent of the \fBtermcap(5)\fR -file format; a colon-separated list of expressions of the form -"\fIxx=string\fR", where "\fIxx\fR" is a two-character variable name. The -variables with their associated defaults are: -.PP -.RS +8 -.nf -no 0 Normal (non-filename) text -fi 0 Regular file -di 01;34 Directory -ln 01;36 Symbolic link -pi 33 Named pipe (FIFO) -so 01;35 Socket -bd 01;33 Block device -cd 01;32 Character device -ex 01;32 Executable file -mi (none) Missing file (defaults to fi) -or (none) Orphaned symbolic link (defaults to ln) -lc ^[[ Left code -rc m Right code -ec (none) End code (replaces lc+no+rc) -.fi -.PP -You need to include only the variables you want to change from -the default. -.PP -File names can also be colorized based on filename extension. -This is specified in the \fBLS_COLORS\fR variable using the syntax -\fB"*ext=string"\fR. For example, using ISO 6429 codes, to color -all C\-language source files blue you would specify \fB"*.c=34"\fR. -This would color all files ending in \fB.c\fR in blue (34) color. -.PP -Control characters can be written either in C\-style\-escaped -notation, or in stty\-like ^\-notation. The C\-style notation -adds \fB^[\fR for Escape, \fB\_\fR for a normal space character, -and \fB?\fR for Delete. In addition, the \fB^[\fR escape character -can be used to override the default interpretation of \fB^[\fR, -\fB^\fR, \fB:\fR and \fB=\fR. -.PP -Each file will be written as \fB<lc>\fR \fB<color-code>\fR -\fB<rc>\fR \fB<filename>\fR \fB<ec>\fR. If the \fB<ec>\fR -code is undefined, the sequence \fB<lc>\fR \fB<no> -\fB<rc>\fR will be used instead. This is generally more convenient -to use, but less general. The left, right and end codes are -provided so you don't have to type common parts over and over -again and to support weird terminals; you will generally not -need to change them at all unless your terminal does not use -ISO 6429 color sequences but a different system. -.PP -If your terminal does use ISO 6429 color codes, you can -compose the type codes (i.e., all except the \fBlc\fR, \fBrc\fR, -and \fBec\fR codes) from numerical commands separated by semicolons. The -most common commands are: -.PP -.RS +8 -.PD 0 -.TP 4 -0 -to restore default color -.TP 4 -1 -for brighter colors -.TP 4 -4 -for underlined text -.TP 4 -5 -for flashing text -.TP 4 -30 -for black foreground -.TP 4 -31 -for red foreground -.TP 4 -32 -for green foreground -.TP 4 -33 -for yellow (or brown) foreground -.TP 4 -34 -for blue foreground -.TP 4 -35 -for purple foreground -.TP 4 -36 -for cyan foreground -.TP 4 -37 -for white (or gray) foreground -.TP 4 -40 -for black background -.TP 4 -41 -for red background -.TP 4 -42 -for green background -.TP 4 -43 -for yellow (or brown) background -.TP 4 -44 -for blue background -.TP 4 -45 -for purple background -.TP 4 -46 -for cyan background -.TP 4 -47 -for white (or gray) background -.RE -.PP -Not all commands will work on all systems or display devices. -.PP -A few terminal programs do not recognize the default end code -properly. If all text gets colorized after you do a directory -listing, try changing the \fBno\fR and \fBfi\fR codes from 0 to the -numerical codes for your standard fore- and background colors. -.RE -.TP 8 -.B MACHTYPE \fR(+) -The machine type (microprocessor class or machine model), as determined at compile time. -.TP 8 -.B NOREBIND \fR(+) -If set, printable characters are not rebound to \fIself-insert-command\fR. -See \fBNative Language System support\fR. -.TP 8 -.B OSTYPE \fR(+) -The operating system, as determined at compile time. -.TP 8 -.B PATH -A colon-separated list of directories in which to look for executables. -Equivalent to the \fBpath\fR shell variable, but in a different format. -.TP 8 -.B PWD \fR(+) -Equivalent to the \fBcwd\fR shell variable, but not synchronized to it; -updated only after an actual directory change. -.TP 8 -.B REMOTEHOST \fR(+) -The host from which the user has logged in remotely, if this is the case and -the shell is able to determine it. Set only if the shell was so compiled; -see the \fBversion\fR shell variable. -.TP 8 -.B SHLVL \fR(+) -Equivalent to the \fBshlvl\fR shell variable. -.TP 8 -.B SYSTYPE \fR(+) -The current system type. (Domain/OS only) -.TP 8 -.B TERM -Equivalent to the \fBterm\fR shell variable. -.TP 8 -.B TERMCAP -The terminal capability string. See \fBTerminal management\fR. -.TP 8 -.B USER -Equivalent to the \fBuser\fR shell variable. -.TP 8 -.B VENDOR \fR(+) -The vendor, as determined at compile time. -.TP 8 -.B VISUAL -The pathname to a default full-screen editor. -See also the \fBEDITOR\fR environment variable -and the \fIrun-fg-editor\fR editor command. -.SH FILES -.PD 0 -.TP 16 -.I /etc/csh.cshrc -Read first by every shell. -ConvexOS, Stellix and Intel use \fI/etc/cshrc\fR and -NeXTs use \fI/etc/cshrc.std\fR. -A/UX, AMIX, Cray and IRIX have no equivalent in \fIcsh\fR(1), -but read this file in \fItcsh\fR anyway. -Solaris 2.x does not have it either, but \fItcsh\fR reads \fI/etc/.cshrc\fR. (+) -.TP 16 -.I /etc/csh.login -Read by login shells after \fI/etc/csh.cshrc\fR. -ConvexOS, Stellix and Intel use \fI/etc/login\fR, -NeXTs use \fI/etc/login.std\fR, Solaris 2.x uses \fI/etc/.login\fR and -A/UX, AMIX, Cray and IRIX use \fI/etc/cshrc\fR. -.TP 16 -.I ~/.tcshrc \fR(+) -Read by every shell after \fI/etc/csh.cshrc\fR or its equivalent. -.TP 16 -.I ~/.cshrc -Read by every shell, if \fI~/.tcshrc\fR doesn't exist, -after \fI/etc/csh.cshrc\fR or its equivalent. -This manual uses `\fI~/.tcshrc\fR' to mean `\fI~/.tcshrc\fR or, -if \fI~/.tcshrc\fR is not found, \fI~/.cshrc\fR'. -.TP 16 -.I ~/.history -Read by login shells after \fI~/.tcshrc\fR -if \fBsavehist\fR is set, but see also \fBhistfile\fR. -.TP 16 -.I ~/.login -Read by login shells after \fI~/.tcshrc\fR or \fI~/.history\fR. -The shell may be compiled to read \fI~/.login\fR before instead of after -\fI~/.tcshrc\fR and \fI~/.history\fR; see the \fBversion\fR shell variable. -.TP 16 -.I ~/.cshdirs \fR(+) -Read by login shells after \fI~/.login\fR -if \fBsavedirs\fR is set, but see also \fBdirsfile\fR. -.TP 16 -.I /etc/csh.logout -Read by login shells at logout. -ConvexOS, Stellix and Intel use \fI/etc/logout\fR and -NeXTs use \fI/etc/logout.std\fR. -A/UX, AMIX, Cray and IRIX have no equivalent in \fIcsh\fR(1), -but read this file in \fItcsh\fR anyway. -Solaris 2.x does not have it either, but \fItcsh\fR reads \fI/etc/.cshrc\fR. (+) -.TP 16 -.I ~/.logout -Read by login shells at logout after \fI/etc/csh.logout\fR or its equivalent. -.TP 16 -.I /bin/sh -Used to interpret shell scripts not starting with a `#'. -.TP 16 -.I /tmp/sh* -Temporary file for `<<'. -.TP 16 -.I /etc/passwd -Source of home directories for `~name' substitutions. -.PD -.PP -The order in which startup files are read may differ if the shell was so -compiled; see \fBStartup and shutdown\fR and the \fBversion\fR shell variable. -.SH "NEW FEATURES (+)" -This manual describes \fItcsh\fR as a single entity, -but experienced \fIcsh\fR(1) users will want to pay special attention to -\fItcsh\fR's new features. -.PP -A command-line editor, which supports GNU Emacs or \fIvi\fR(1)-style -key bindings. See \fBThe command-line editor\fR and \fBEditor commands\fR. -.PP -Programmable, interactive word completion and listing. -See \fBCompletion and listing\fR and the \fIcomplete\fR and \fIuncomplete\fR -builtin commands. -.PP -\fBSpelling correction\fR (q.v.) of filenames, commands and variables. -.PP -\fBEditor commands\fR (q.v.) which perform other useful functions in the middle of -typed commands, including documentation lookup (\fIrun-help\fR), -quick editor restarting (\fIrun-fg-editor\fR) and -command resolution (\fIwhich-command\fR). -.PP -An enhanced history mechanism. Events in the history list are time-stamped. -See also the \fIhistory\fR command and its associated shell variables, -the previously undocumented `#' event specifier and new modifiers -under \fBHistory substitution\fR, -the \fI*-history\fR, \fIhistory-search-*\fR, \fIi-search-*\fR, \fIvi-search-*\fR and -\fItoggle-literal-history\fR editor commands -and the \fBhistlit\fR shell variable. -.PP -Enhanced directory parsing and directory stack handling. -See the \fIcd\fR, \fIpushd\fR, \fIpopd\fR and \fIdirs\fR commands and their associated -shell variables, the description of \fBDirectory stack substitution\fR, -the \fBdirstack\fR, \fBowd\fR and \fBsymlinks\fR shell variables and -the \fInormalize-command\fR and \fInormalize-path\fR editor commands. -.PP -Negation in glob-patterns. See \fBFilename substitution\fR. -.PP -New \fBFile inquiry operators\fR (q.v.) and a \fIfiletest\fR -builtin which uses them. -.PP -A variety of \fBAutomatic, periodic and timed events\fR (q.v.) including -scheduled events, special aliases, automatic logout and terminal locking, -command timing and watching for logins and logouts. -.PP -Support for the Native Language System -(see \fBNative Language System support\fR), -OS variant features -(see \fBOS variant support\fR and the \fBecho_style\fR shell variable) -and system-dependent file locations (see \fBFILES\fR). -.PP -Extensive terminal-management capabilities. See \fBTerminal management\fR. -.PP -New builtin commands including \fIbuiltins\fR, \fIhup\fR, \fIls\-F\fR, -\fInewgrp\fR, \fIprintenv\fR, \fIwhich\fR and \fIwhere\fR (q.v.). -.PP -New variables that make useful information easily available to the shell. -See the \fBgid\fR, \fBloginsh\fR, \fBoid\fR, \fBshlvl\fR, \fBtcsh\fR, -\fBtty\fR, \fBuid\fR and \fBversion\fR shell variables and the \fBHOST\fR, -\fBREMOTEHOST\fR, \fBVENDOR\fR, \fBOSTYPE\fR and \fBMACHTYPE\fR environment -variables. -.PP -A new syntax for including useful information in the prompt string -(see \fBprompt\fR). -and special prompts for loops and spelling correction -(see \fBprompt2\fR and \fBprompt3\fR). -.PP -Read-only variables. See \fBVariable substitution\fR. -.SH BUGS -When a suspended command is restarted, the shell prints the directory -it started in if this is different from the current directory. This can -be misleading (i.e., wrong) as the job may have changed directories internally. -.PP -Shell builtin functions are not stoppable/restartable. Command sequences -of the form `a ; b ; c' are also not handled gracefully when stopping is -attempted. If you suspend `b', the shell will then immediately execute -`c'. This is especially noticeable if this expansion results from an -\fIalias\fR. It suffices to place the sequence of commands in ()'s to force it -to a subshell, i.e., `( a ; b ; c )'. -.PP -Control over tty output after processes are started is primitive; perhaps -this will inspire someone to work on a good virtual terminal interface. -In a virtual terminal interface much more interesting things could be -done with output control. -.PP -Alias substitution is most often used to clumsily simulate shell procedures; -shell procedures should be provided rather than aliases. -.PP -Commands within loops are not placed in the history -list. Control structures should be parsed rather than being recognized as -built-in commands. This would allow control commands to be placed anywhere, -to be combined with `|', and to be used with `&' and `;' metasyntax. -.PP -\fIforeach\fR doesn't ignore here documents when looking for its \fIend\fR. -.PP -It should be possible to use the `:' modifiers on the output of command -substitutions. -.PP -The screen update for lines longer than the screen width is very poor -if the terminal cannot move the cursor up (i.e., terminal type `dumb'). -.PP -\fBHPATH\fR and \fBNOREBIND\fR don't need to be environment variables. -.PP -Glob-patterns which do not use `?', `*' or `[]' or which use `{}' or `~' -are not negated correctly. -.PP -The single-command form of \fIif\fR does output redirection even if -the expression is false and the command is not executed. -.PP -\fIls\-F\fR includes file identification characters when sorting filenames -and does not handle control characters in filenames well. It cannot be -interrupted. -.PP -Report bugs to tcsh-bugs@mx.gw.com, preferably with fixes. If you want to -help maintain and test tcsh, send mail to listserv@mx.gw.com with the text -`subscribe tcsh <your name>' on a line by itself in the body. You can -also `subscribe tcsh-bugs <your name>' to get all bug reports, or -`subscribe tcsh-diffs <your name>' to get the development list plus -diffs for each patchlevel. -.SH THE T IN TCSH -In 1964, DEC produced the PDP-6. The PDP-10 was a later re-implementation. It -was re-christened the DECsystem-10 in 1970 or so when DEC brought out the -second model, the KI10. -.PP -TENEX was created at Bolt, Beranek & Newman (a Cambridge, Massachusetts -think tank) in -1972 as an experiment in demand-paged virtual memory operating systems. They -built a new pager for the DEC PDP-10 and created the OS to go with it. It was -extremely successful in academia. -.PP -In 1975, DEC brought out a new model of the PDP-10, the KL10; they intended to -have only a version of TENEX, which they had licensed from BBN, for the new -box. They called their version TOPS-20 (their capitalization is trademarked). -A lot of TOPS-10 users (`The OPerating System for PDP-10') objected; thus DEC -found themselves supporting two incompatible systems on the same hardware--but -then there were 6 on the PDP-11! -.PP -TENEX, and TOPS-20 to version 3, had command completion -via a user-code-level subroutine library called ULTCMD. With version 3, DEC -moved all that capability and more into the monitor (`kernel' for you Unix -types), accessed by the COMND% JSYS (`Jump to SYStem' instruction, the -supervisor call mechanism [are my IBM roots also showing?]). -.PP -The creator of tcsh was impressed by this feature and several others of TENEX -and TOPS-20, and created a version of csh which mimicked them. -.SH LIMITATIONS -Words can be no longer than 1024 characters. -.PP -The system limits argument lists to 10240 characters. -.PP -The number of arguments to a command which involves filename expansion is -limited to 1/6th the number of characters allowed in an argument list. -.PP -Command substitutions may substitute no more characters than are allowed in -an argument list. -.PP -To detect looping, the shell restricts the number of \fIalias\fR -substitutions on a single line to 20. -.SH "SEE ALSO" -csh(1), emacs(1), ls(1), newgrp(1), sh(1), setpath(1), stty(1), su(1), -tset(1), vi(1), x(1), access(2), execve(2), fork(2), killpg(2), -pipe(2), setrlimit(2), sigvec(2), stat(2), umask(2), vfork(2), wait(2), -malloc(3), setlocale(3), tty(4), a.out(5), termcap(5), environ(7), -termio(7), Introduction to the C Shell -.SH VERSION -This manual documents tcsh 6.09.01 (Astron) 2000-01-14. -.SH AUTHORS -.PD 0 -.TP 2 -William Joy -Original author of \fIcsh\fR(1) -.TP 2 -J.E. Kulp, IIASA, Laxenburg, Austria -Job control and directory stack features -.TP 2 -Ken Greer, HP Labs, 1981 -File name completion -.TP 2 -Mike Ellis, Fairchild, 1983 -Command name recognition/completion -.TP 2 -Paul Placeway, Ohio State CIS Dept., 1983-1993 -Command line editor, prompt routines, new glob syntax and numerous fixes -and speedups -.TP 2 -Karl Kleinpaste, CCI 1983-4 -Special aliases, directory stack extraction stuff, login/logout watch, -scheduled events, and the idea of the new prompt format -.TP 2 -Rayan Zachariassen, University of Toronto, 1984 -\fIls\-F\fR and \fIwhich\fR builtins and numerous bug fixes, modifications -and speedups -.TP 2 -Chris Kingsley, Caltech -Fast storage allocator routines -.TP 2 -Chris Grevstad, TRW, 1987 -Incorporated 4.3BSD \fIcsh\fR into \fItcsh\fR -.TP 2 -Christos S. Zoulas, Cornell U. EE Dept., 1987-94 -Ports to HPUX, SVR2 and SVR3, a SysV version of getwd.c, SHORT_STRINGS support -and a new version of sh.glob.c -.TP 2 -James J Dempsey, BBN, and Paul Placeway, OSU, 1988 -A/UX port -.TP 2 -Daniel Long, NNSC, 1988 -\fBwordchars\fR -.TP 2 -Patrick Wolfe, Kuck and Associates, Inc., 1988 -\fIvi\fR mode cleanup -.TP 2 -David C Lawrence, Rensselaer Polytechnic Institute, 1989 -\fBautolist\fR and ambiguous completion listing -.TP 2 -Alec Wolman, DEC, 1989 -Newlines in the prompt -.TP 2 -Matt Landau, BBN, 1989 -\fI~/.tcshrc\fR -.TP 2 -Ray Moody, Purdue Physics, 1989 -Magic space bar history expansion -.TP 2 -Mordechai ????, Intel, 1989 -printprompt() fixes and additions -.TP 2 -Kazuhiro Honda, Dept. of Computer Science, Keio University, 1989 -Automatic spelling correction and \fBprompt3\fR -.TP 2 -Per Hedeland, Ellemtel, Sweden, 1990- -Various bugfixes, improvements and manual updates -.TP 2 -Hans J. Albertsson (Sun Sweden) -\fBampm\fR, \fIsettc\fR and \fItelltc\fR -.TP 2 -Michael Bloom -Interrupt handling fixes -.TP 2 -Michael Fine, Digital Equipment Corp -Extended key support -.TP 2 -Eric Schnoebelen, Convex, 1990 -Convex support, lots of \fIcsh\fR bug fixes, -save and restore of directory stack -.TP 2 -Ron Flax, Apple, 1990 -A/UX 2.0 (re)port -.TP 2 -Dan Oscarsson, LTH Sweden, 1990 -NLS support and simulated NLS support for non NLS sites, fixes -.TP 2 -Johan Widen, SICS Sweden, 1990 -\fBshlvl\fR, Mach support, \fIcorrect-line\fR, 8-bit printing -.TP 2 -Matt Day, Sanyo Icon, 1990 -POSIX termio support, SysV limit fixes -.TP 2 -Jaap Vermeulen, Sequent, 1990-91 -Vi mode fixes, expand-line, window change fixes, Symmetry port -.TP 2 -Martin Boyer, Institut de recherche d'Hydro-Quebec, 1991 -\fBautolist\fR beeping options, modified the history search to search for -the whole string from the beginning of the line to the cursor. -.TP 2 -Scott Krotz, Motorola, 1991 -Minix port -.TP 2 -David Dawes, Sydney U. Australia, Physics Dept., 1991 -SVR4 job control fixes -.TP 2 -Jose Sousa, Interactive Systems Corp., 1991 -Extended \fIvi\fR fixes and \fIvi\fR delete command -.TP 2 -Marc Horowitz, MIT, 1991 -ANSIfication fixes, new exec hashing code, imake fixes, \fIwhere\fR -.TP 2 -Bruce Sterling Woodcock, sterling@netcom.com, 1991-1995 -ETA and Pyramid port, Makefile and lint fixes, \fBignoreeof\fR=n addition, and -various other portability changes and bug fixes -.TP 2 -Jeff Fink, 1992 -\fIcomplete-word-fwd\fR and \fIcomplete-word-back\fR -.TP 2 -Harry C. Pulley, 1992 -Coherent port -.TP 2 -Andy Phillips, Mullard Space Science Lab U.K., 1992 -VMS-POSIX port -.TP 2 -Beto Appleton, IBM Corp., 1992 -Walking process group fixes, \fIcsh\fR bug fixes, -POSIX file tests, POSIX SIGHUP -.TP 2 -Scott Bolte, Cray Computer Corp., 1992 -CSOS port -.TP 2 -Kaveh R. Ghazi, Rutgers University, 1992 -Tek, m88k, Titan and Masscomp ports and fixes. Added autoconf support. -.TP 2 -Mark Linderman, Cornell University, 1992 -OS/2 port -.TP 2 -Mika Liljeberg, liljeber@kruuna.Helsinki.FI, 1992 -Linux port -.TP 2 -Tim P. Starrin, NASA Langley Research Center Operations, 1993 -Read-only variables -.TP 2 -Dave Schweisguth, Yale University, 1993-4 -New man page and tcsh.man2html -.TP 2 -Larry Schwimmer, Stanford University, 1993 -AFS and HESIOD patches -.TP 2 -Luke Mewburn, RMIT University, 1994-6 -Enhanced directory printing in prompt, -added \fBellipsis\fR and \fBrprompt\fR. -.TP 2 -Edward Hutchins, Silicon Graphics Inc., 1996 -Added implicit cd. -.TP 2 -Martin Kraemer, 1997 -Ported to Siemens Nixdorf EBCDIC machine -.TP 2 -Amol Deshpande, Microsoft, 1997 -Ported to WIN32 (Windows/95 and Windows/NT); wrote all the missing library -and message catalog code to interface to Windows. -.TP 2 -Taga Nayuta, 1998 -Color ls additions. -.PD -.PP -.SH "THANKS TO" -Bryan Dunlap, Clayton Elwell, Karl Kleinpaste, Bob Manson, Steve Romig, -Diana Smetters, Bob Sutterfield, Mark Verber, Elizabeth Zwicky and all -the other people at Ohio State for suggestions and encouragement -.PP -All the people on the net, for putting up with, -reporting bugs in, and suggesting new additions to each and every version -.PP -Richard M. Alderson III, for writing the `T in tcsh' section diff --git a/contrib/tcsh/tcsh.man2html b/contrib/tcsh/tcsh.man2html deleted file mode 100644 index 839bcb40f77c..000000000000 --- a/contrib/tcsh/tcsh.man2html +++ /dev/null @@ -1,859 +0,0 @@ -#!/usr/local/bin/perl -# $Id: tcsh.man2html,v 1.10 1997/10/29 17:27:04 christos Exp $ - -# tcsh.man2html, Dave Schweisguth <dcs@proton.chem.yale.edu> -# -# Notes: -# -# Always puts all files in the directory tcsh.html, creating it if necessary. -# tcsh.html/top.html is the entry point, and tcsh.html/index.html is a symlink -# to tcsh.html/top.html so one needn't specify a file at all if working through -# a typically configured server. -# -# Designed for tcsh manpage. Guaranteed not to work on manpages not written -# in the exact same style of nroff -man, i.e. any other manpage. -# -# Makes links FROM items which are both a) in particular sections (see -# Configuration) and b) marked with .B or .I. Makes links TO items which -# are marked with \fB ... \fR or \fI ... \fR. -# -# Designed with X Mosaic in mind and tested lightly with lynx. I've punted on -# HTML's lack of a .PD equivalent and lynx's different <menu> handling. - -# Emulate #!/usr/local/bin/perl on systems without #! - -eval '(exit $?0)' && eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}' -& eval 'exec /usr/local/bin/perl -S $0 $argv:q' if 0; - -### Constants - -# Setup - -($whatami = $0) =~ s|.*/||; # `basename $0` -$isatty = -t STDIN; - -# Configuration - -$index = 0; # Don't make a searchable index CGI script -$cgibin = 0; # Look for $cgifile in $dir, not $cgibindir -$shortfiles = 0; # Use long filenames -$single = 0; # Make single page instead of top and sections - -$host = ''; # host:port part of server URL *** -$updir = ''; # Directories between $host and $dir *** -$dir = 'tcsh'; # Directory in which to put the pieces * -$cgifile = 'tcsh.cgi'; # CGI script name ** -$cgibindir = 'cgi-bin'; # CGI directory *** -$headerfile = 'header'; # HTML file for initial comments * -$indexfile = 'index'; # Symlink to $topfile * -$listsfile = 'lists'; # Mailing list description HTML file * -$outfile = 'tcsh.man'; # Default input file and copy of input file -$script = $whatami; # Copy of script; filename length must be OK -$topfile = 'top'; # Top-level HTML file * - -# * .htm or .html suffix added later -# ** Only used with -i or -c -# *** Only used with -c - -# Sections to inline in the top page - -%inline_me = ('NAME', 1, - 'SYNOPSIS', 1); - -# Sections in which to put name anchors and the font in which to look for -# links to those anchors - -%link_me = ('Editor commands', 'I', - 'Builtin commands', 'I', - 'Special aliases', 'I', - 'Special shell variables', 'B', - 'ENVIRONMENT', 'B', - 'FILES', 'I'); - -### Arguments and error-checking - -# Parse args - -while ($#ARGV > -1 && (($first, $rest) = ($ARGV[0] =~ /^-(.)(.*)/))) { - # Perl 5 lossage alert - if ($first =~ /[CdDGh]/) { # Switches with arguments - shift; - $arg = $rest ne '' ? $rest : $ARGV[0] ne '' ? shift : - &usage("$whatami: -$first requires an argument.\n"); - } elsif ($rest ne '') { - $ARGV[0] = "-$rest"; - } else { - shift; - } - if ($first eq '1') { $single = 1; } - elsif ($first eq 'c') { $cgibin = 1; } - elsif ($first eq 'C') { $cgibindir = $arg; } - elsif ($first eq 'd') { $updir = $arg; } - elsif ($first eq 'D') { $dir = $arg; } - elsif ($first eq 'G') { $cgifile = $arg; } - elsif ($first eq 'h') { $host = $arg; } - elsif ($first eq 'i') { $index = 1; } - elsif ($first eq 's') { $shortfiles = 1; } - elsif ($first eq 'u') { &usage(0); } - else { &usage("$whatami: -$first is not an option.\n"); } -} - -if (@ARGV == 0) { - if ($isatty) { - $infile = $outfile; # Default input file if interactive - } else { - $infile = 'STDIN'; # Read STDIN if no args and not a tty - } -} elsif (@ARGV == 1) { - $infile = $ARGV[0]; -} else { - &usage("$whatami: Please specify one and only one file.\n"); -} - -$index = $index || $cgibin; # $index is true if $cgibin is true - -if ($cgibin && ! $host) { - die "$whatami: Must specify host with -h if using -c.\n"; -} - -# Decide on HTML suffix and append it to filenames - -$html = $shortfiles ? 'htm' : 'html'; # Max 3-character extension -$dir .= ".$html"; # Directory in which to put the pieces -$headerfile .= ".$html"; # HTML file for initial comments -$topfile .= ".$html"; # Top-level HTML file (or moved notice) -$indexfile .= ".$html"; # Symlink to $topfile -$listsfile .= ".$html"; # Mailing list description HTML file - -# Check for input file - -unless ($infile eq 'STDIN') { - die "$whatami: $infile doesn't exist!\n" unless -e $infile; - die "$whatami: $infile is unreadable!\n" unless -r _; - die "$whatami: $infile is empty!\n" unless -s _; -} - -# Check for output directory and create if necessary - -if (-e $dir) { - -d _ || die "$whatami: $dir is not a directory!\n"; - -r _ && -w _ && -x _ || die "$whatami: $dir is inaccessible!\n" -} else { - mkdir($dir, 0755) || die "$whatami: Can't create $dir!\n"; -} - -# Slurp manpage - -if ($infile eq 'STDIN') { - @man = <STDIN>; -} else { - open(MAN, $infile) || die "$whatami: Error opening $infile!\n"; - @man = <MAN>; - close MAN; -} - -# Print manpage to HTML directory (can't use cp if we're reading from STDIN) - -open(MAN, ">$dir/$outfile") || die "$whatami: Can't open $dir/$outfile!\n"; -print MAN @man; -close MAN; - -# Copy script to HTML directory - -(system("cp $0 $dir") >> 8) && die "$whatami: Can't copy $0 to $dir!\n"; - -# Link top.html to index.html in case someone looks at tcsh.html/ - -system("rm -f $dir/$indexfile"); # Some systems can't ln -sf -(system("ln -s $topfile $dir/$indexfile") >> 8) - && die "$whatami: Can't link $topfile to $dir/$indexfile!\n"; - -### Get title and section headings - -$comment = 0; # 0 for text, 1 for ignored text -@sectionlines = (0); # First line of section -@sectiontypes = (0); # H or S -@sectiontexts = ('Header'); # Text of section heading -@sectionfiles = ($headerfile); # Filename in which to store section -%name = (); # Array of name anchors -@name = () if $index; # Ordered array of name anchors -$font = ''; # '' to not make names, 'B' or 'I' to do so - -$line = 0; -foreach (@man) { - if (/^\.ig/) { # Start ignoring - $comment = 1; - } elsif (/^\.\./) { # Stop ignoring - $comment = 0; - } elsif (! $comment) { # Not in .ig'ed section; do stuff - - # nroff special characters - - s/\\-/-/g; # \- - s/\\^//g; # \^ - s/^\\'/'/; # leading ' escape - s/^\\(\s)/$1/; # leading space escape - s/\\(e|\\)/\\/g; # \e, \\; must do this after other escapes - - # HTML special characters; deal with these before adding more - - s/&/&\;/g; - s/>/>\;/g; - s/</<\;/g; - - # Get title - - if (/^\.TH\s+(\w+)\s+(\w+)\s+\"([^\"]*)\"\s+\"([^\"]*)\"/) { - $title = "$1($2) $4 ($3) $1($2)"; - } - - # Build per-section info arrays - - if (($type, $text) = /^\.S([HS])\s+\"?([^\"]*)\"?/) { - - push(@sectionlines, $line); # Index of first line of section - push(@sectiontypes, $type eq 'H' ? 0 : 1); # Type of section - $text =~ s/\s*$//; # Remove trailing whitespace - push(@sectiontexts, $text); # Title of section (key for href) - $text =~ s/\s*\(\+\)$//; # Remove (+) - if ($shortfiles) { - $file = $#sectionlines; # Short filenames; use number - } else { - $file = $text; # Long filenames; use title - $file =~ s/[\s\/]+/_/g; # Replace whitespace and / with _ - } - $file .= ".$html" unless $single; - push(@sectionfiles, $file); # File in which to store section - $name{"$text B"} = ($single ? '#' : '') . $file; - # Index entry for &make_hrefs - push(@name, "$text\t" . $name{"$text B"}) if $index; - # Index entry for CGI script - # Look for anchors in the rest of this section if $link_me{$text} - # is non-null, and mark them with the font which is its value - - $font = $link_me{$text}; - } - &make_name(*name, *font, *file, *index, *_) if $font; - } - $line++; -} - -### Make top page - -open(TOP, ">$dir/$topfile"); -select TOP; - -# Top page header - -print <<EOP; -<HEAD> -<TITLE>$title</TITLE> -</HEAD> -<BODY> -<A NAME="top"></A> -<H1>$title</H1> -<HR> -EOP - -# FORM block, if we're making an index - -$action = $cgibin ? "http://$host/$cgibindir/$cgifile" : $cgifile; - -print <<EOP if $index; -<FORM METHOD="GET" ACTION="$action"> -Go directly to a section, command or variable: <INPUT NAME="input"> -</FORM> -EOP - -# Table of contents - -print <<EOP; -<H2> -EOP - -foreach $section (1 .. $#sectionlines) { - if ($sectiontypes[$section - 1] < $sectiontypes[$section]) { - print "</H2> <menu>\n"; # Indent, smaller font - } elsif ($sectiontypes[$section - 1] > $sectiontypes[$section]) { - print "</menu> <H2>\n"; # Outdent, larger font - } - if ($inline_me{$sectiontexts[$section]}) { # Section is in %inline_me - - # Print section inline - - print "$sectiontexts[$section]\n"; - print "</H2> <menu>\n"; # Indent, smaller font - &printsectionbody(*man, *sectionlines, *section, *name); - print "</menu> <H2>\n"; # Outdent, larger font - } else { - - # Print link to section - - print "<A HREF=\"", $single ? '#' : '', - "$sectionfiles[$section]\">$sectiontexts[$section]</A><BR>\n"; - } -} - -print <<EOP; -</H2> -EOP - -print "<HR>\n" if $single; - -### Make sections - -foreach $section (0 .. $#sectionlines) { - - # Skip inlined sections - - next if $inline_me{$sectiontexts[$section]}; - - if ($single) { - - # Header - - print <<EOP if $section; # Skip header section -<H2><A NAME="$sectionfiles[$section]">$sectiontexts[$section]</A></H2> -<menu> -EOP - &printsectionbody(*man, *sectionlines, *section, *name); - print <<EOP if $section; # Skip header section -<A HREF="#top">Table of Contents</A> -</menu> -EOP - - } else { - - # Make pointer line for header and trailer - - $pointers = "<A HREF=\"$topfile\">Up</A>"; - $pointers .= "\n<A HREF=\"$sectionfiles[$section + 1]\">Next</A>" - if ($section < $#sectionlines) && - ! $inline_me{$sectiontexts[$section + 1]}; - $pointers .= "\n<A HREF=\"$sectionfiles[$section - 1]\">Previous</A>" - if ($section > 1) && # section 0 is initial comments - ! $inline_me{$sectiontexts[$section - 1]}; - - # Header - - open(OUT, ">$dir/$sectionfiles[$section]"); - select OUT; - print <<EOP; -<HEAD> -<TITLE>$sectiontexts[$section]</TITLE> -</HEAD> -<BODY> -$pointers -<H2>$sectiontexts[$section]</H2> -EOP - &printsectionbody(*man, *sectionlines, *section, *name); - - # Trailer - - print <<EOP; -$pointers -</BODY> -EOP - - } -} - -select TOP unless $single; - -# Top page trailer - -print <<EOP; -</H2> -<HR> -Here are the <A HREF="$outfile">nroff manpage</A> (175K) -from which this HTML version was generated, -the <A HREF="$script">Perl script</A> which did the conversion -and the <A HREF="file://ftp.astron.com/pub/tcsh/"> -complete source code</A> for <I>tcsh</I>. -<HR> -<I>tcsh</I> is maintained by -Christos Zoulas <A HREF="mailto:christos\@gw.com"><christos\@gw.com></A> -and the <A HREF="$listsfile"><I>tcsh</I> maintainers' mailing list</A>. -Dave Schweisguth <A HREF="mailto:dcs\@proton.chem.yale.edu"><dcs\@proton.chem.yale.edu></A> -wrote the manpage and the HTML conversion script. -</BODY> -EOP - -close TOP; - -### Make lists page - -open(LISTS, ">$dir/$listsfile"); -select LISTS; -while(($_ = <DATA>) ne "END\n") { # Text stored after __END__ - s/TOPFILEHERE/$topfile/; - print; -} -close LISTS; - -### Make search script - -if ($index) { - - # URL of $dir; see comments in search script - - $root = $cgibin - ? "'http://$host/" . ($updir ? "$updir/" : '') . "$dir/'" - : '"http://$ENV{\'SERVER_NAME\'}:$ENV{\'SERVER_PORT\'}" . (($_ = $ENV{\'SCRIPT_NAME\'}) =~ s|[^/]*$||, $_)'; - - # String for passing @name to search script - - $name = join("',\n'", @name); - - open(TOP, ">$dir/$cgifile"); - select TOP; - while(($_ = <DATA>) ne "END\n") { # Text stored after __END__ - s/ROOTHERE/$root/; - s/NAMEHERE/$name/; - s/TOPFILEHERE/$topfile/; - print; - } - close TOP; - chmod(0755, "$dir/$cgifile") || - die "$whatami: Can't chmod 0755 $dir/$cgifile!\n"; - warn "$whatami: Don't forget to move $dir/$cgifile to /$cgibindir.\n" - if $cgibin; -} - -### That's all, folks - -exit; - -### Subroutines - -# Process and print the body of a section - -sub printsectionbody { - - local(*man, *sectionlines, *sline, *name) = @_; # Number of section - local($sfirst, $slast, @paralines, @paratypes, $comment, $dl, $pline, - $comment, $pfirst, $plast, @para, @tag, $changeindent); - - # Define section boundaries - - $sfirst = $sectionlines[$sline] + 1; - if ($sline == $#sectionlines) { - $slast = $#man; - } else { - $slast = $sectionlines[$sline + 1] - 1; - } - - # Find paragraph markers, ignoring those between '.ig' and '..' - - if ($man[$sfirst] =~ /^\.[PIT]P/) { - @paralines = (); - @paratypes = (); - } else { - @paralines = ($sfirst - 1); # .P follows .S[HS] by default - @paratypes = ('P'); - } - $comment = 0; - foreach ($sfirst .. $slast) { - if ($man[$_] =~ /^\.ig/) { # Start ignoring - $comment = 1; - } elsif ($man[$_] =~ /^\.\./) { # Stop ignoring - $comment = 0; - } elsif (! $comment && $man[$_] =~ /^\.([PIT])P/) { - push(@paralines, $_); - push(@paratypes, $1); - } - } - - # Process paragraphs - - $changeindent = 0; - $dl = 0; - foreach $pline (0 .. $#paralines) { - - @para = (); - $comment = 0; - - # Define para boundaries - - $pfirst = $paralines[$pline] + 1; - if ($pline == $#paralines) { - $plast = $slast; - } else { - $plast = $paralines[$pline + 1] - 1; - } - - foreach (@man[$pfirst .. $plast]) { - if (/^\.ig/) { # nroff begin ignore - if ($comment == 0) { - $comment = 2; - push(@para, "<!--\n"); - } elsif ($comment == 1) { - $comment = 2; - } elsif ($comment == 2) { - s/--/-/g; # Remove double-dashes in comments - push(@para, $_); - } - } elsif (/^\.\./) { # nroff end ignore - if ($comment == 0) { - ; - } elsif ($comment == 1) { - ; - } elsif ($comment == 2) { - $comment = 1; - } - } elsif (/^\.\\\"/) { # nroff comment - if ($comment == 0) { - $comment = 1; - push(@para, "<!--\n"); - s/^\.\\\"//; - } elsif ($comment == 1) { - s/^\.\\\"//; - } elsif ($comment == 2) { - ; - } - s/--/-/g; # Remove double-dashes in comments - push(@para, $_); - } else { # Nothing to do with comments - if ($comment == 0) { - ; - } elsif ($comment == 1) { - $comment = 0; - push(@para, "-->\n"); - } elsif ($comment == 2) { - s/--/-/g; # Remove double-dashes in comments - } - - unless ($comment) { - - if (/^\.TH/) { # Title; got this already - next; - } elsif (/^\.PD/) { # Para spacing; unimplemented - next; - } elsif (/^\.RS/) { # Indent (one width only) - $changeindent++; - next; - } elsif (/^\.RE/) { # Outdent - $changeindent--; - next; - } - - # Line break - - s/^\.br.*/<BR>/; - - # More nroff special characters - - s/^\\&\;//; # leading dot escape; save until - # now so leading dots aren't - # confused with ends of .igs - - &make_hrefs(*name, *_); - } - push(@para, $_); - } - } - - push(@para, "-->\n") if $comment; # Close open comment - - # Print paragraph - - if ($paratypes[$pline] eq 'P') { - &font(*para); - print @para; - } elsif ($paratypes[$pline] eq 'I') { - &font(*para); - print "<menu>\n", - @para, - "</menu>\n"; - } else { # T - @tag = shift(@para); - &font(*tag); - &font(*para); - print "<DL compact>\n" unless $dl; - print "<DT>\n", - @tag, - "<DD>\n", - @para; - if ($pline == $#paratypes || $paratypes[$pline + 1] ne 'T') { - # Perl 5 lossage alert - # Next para is not a definition list - $dl = 0; # Close open definition list - print "</DL>\n"; - } else { - $dl = 1; # Leave definition list open - } - } - print "<P>\n"; - - # Indent/outdent the *next* para - - while ($changeindent > 0) { - print "<menu>\n"; - $changeindent--; - } - while ($changeindent < 0) { - print "</menu>\n"; - $changeindent++; - } - } - 1; -} - -# Make one name anchor in a line; cue on fonts (.B or .I) but leave them alone - -sub make_name { - - local(*name, *font, *file, *index, *line) = @_; - local($text); - - if (($text) = ($line =~ /^\.[BI]\s+([^\s\\]+)/)) { # Found pattern - - if ( - $text !~ /^-/ # Avoid lists of options - && (length($text) > 1 # and history escapes - || $text =~ /^[%:@]$/) # Special pleading for %, :, @ - && ! $name{"$text $font"} # Skip if there's one already - ) { - # Record link - - $name{"$text $font"} = ($single ? '' : $file) . "#$text"; - push(@name, "$text\t" . $name{"$text $font"}) if $index; - - # Put in the name anchor - - $line =~ s/^(\.[BI]\s+)([^\s\\]+)/$1<A NAME=\"$text\">$2<\/A>/; - } - } - $line; -} - -# Make all the href anchors in a line; cue on fonts (\fB ... \fR or -# \fI ... \fR) but leave them alone - -sub make_hrefs { - - local(*name, *line) = @_; - local(@pieces, $piece); - - @pieces = split(/(\\f[BI][^\\]*\\fR)/, $line); - - $piece = 0; - foreach (@pieces) { - if (/\\f([BI])([^\\]*)\\fR/ # Found a possibility - - # It's not followed by (, i.e. it's not a manpage reference - - && substr($pieces[$piece + 1], 0, 1) ne '(') { - $key = "$2 $1"; - if ($name{$key}) { # If there's a matching name - s/(\\f[BI])([^\\]*)(\\fR)/$1<A HREF=\"$name{$key}\">$2<\/A>$3/; - } - } - $piece++; - } - $line = join('', @pieces); -} - -# Convert nroff font escapes to HTML -# Expects comments and breaks to be in HTML form already - -sub font { - - local(*para) = @_; - local($i, $j, @begin, @end, $part, @pieces, $bold, $italic); - - return 0 if $#para == -1; # Ignore empty paragraphs - # Perl 5 lossage alert - - # Find beginning and end of each part between HTML comments - - $i = 0; - @begin = (); - @end = (); - foreach (@para) { - push(@begin, $i + 1) if /^-->/ || /^<BR>/; - push(@end, $i - 1) if /^<!--/ || /^<BR>/; - $i++; - } - if ($para[0] =~ /^<!--/ || $para[0] =~ /^<BR>/) { - shift(@end); - } else { - unshift(@begin, 0); # Begin at the beginning - } - if ($para[$#para] =~ /^-->/ || $para[$#para] =~ /^<BR>/) { - pop(@begin); - } else { - push(@end, $#para); # End at the end - } - - # Fontify each part - - $bold = $italic = 0; - foreach $i (0 .. $#begin) { - $* = 1; - $part = join('', @para[$begin[$i] .. $end[$i]]); - $part =~ s/^\.([BI])\s+(.*)$/\\f$1$2\\fR/g; # .B, .I - @pieces = split(/(\\f[BIR])/, $part); - $part = ''; - foreach $j (@pieces) { - if ($j eq '\fB') { - if ($italic) { - $italic = 0; - $part .= '</I>'; - } - unless ($bold) { - $bold = 1; - $part .= '<B>'; - } - } elsif ($j eq '\fI') { - if ($bold) { - $bold = 0; - $part .= '</B>'; - } - unless ($italic) { - $italic = 1; - $part .= '<I>'; - } - } elsif ($j eq '\fR') { - if ($bold) { - $bold = 0; - $part .= '</B>'; - } elsif ($italic) { - $italic = 0; - $part .= '</I>'; - } - } else { - $part .= $j; - } - } - $* = 0; - - # Close bold/italic before break - - if ($end[$i] == $#para || $para[$end[$i] + 1] =~ /^<BR>/) { - # Perl 5 lossage alert - if ($bold) { - $bold = 0; - $part =~ s/(\n)?$/<\/B>$1\n/; - } elsif ($italic) { - $italic = 0; - $part =~ s/(\n)?$/<\/I>$1\n/; - } - } - - # Rebuild this section of @para - - foreach $j ($begin[$i] .. $end[$i]) { - $part =~ s/^([^\n]*(\n|$))//; - $para[$j] = $1; - } - } - - # Close bold/italic on last non-comment line - # Do this only here because fonts pass through comments - - $para[$end[$#end]] =~ s/(\n)?$/<\/B>$1/ if $bold; - $para[$end[$#end]] =~ s/(\n)?$/<\/I>$1/ if $italic; -} - -sub usage { - local ($message) = $_[0]; - - warn $message if $message; - warn <<EOP; -Usage: $whatami [-1icsu] [-C dir] [-d dir] [-h host] [file] -Without [file], reads from tcsh.man or stdin. --1 Makes a single page instead of a table of contents and sections --i Makes a CGI searchable index script, tcsh.html/tcsh.cgi, intended - for a server which respects the .cgi extension in any directory. --c Like -i, but the CGI script is intended for a server which wants - scripts in /cgi-bin (or some other privileged directory separate - from the rest of the HTML) and must be moved there by hand. --C dir Uses /dir instead of /cgi-bin as the CGI bin dir. - Meaningless without -c. --d dir Uses /dir/tcsh.html instead of /tcsh.html as the HTML dir. - Meaningless without -c. --D dir Uses /dir.html instead of /tcsh.html as the HTML dir. - Meaningless without -c. --G name Uses name instead of tcsh.cgi as the name of the CGI script. - Meaningless without -c or -i. --h host Uses host as the host:port part of the URL to the entry point. - Meaningless without -c. --s Filenames are shorter (max 8 + 3) but less descriptive. --u This message -EOP - exit !! $message; -} - -### Inlined documents. Watch for *HERE tokens. - -__END__ -<HEAD> -<TITLE>The tcsh mailing lists</TITLE> -</HEAD> -<BODY> -<A HREF="TOPFILEHERE">Up</A> -<H2>The <I>tcsh</I> mailing lists</H2> -There are three <I>tcsh</I> mailing lists: -<DL> -<DT> -<I>tcsh@mx.gw.com</I> -<DD> -The <I>tcsh</I> maintainers and testers' mailing list. -<DT> -<I>tcsh-diffs@mx.gw.com</I> -<DD> -The same as <I>tcsh@mx.gw.com</I>, plus diffs for each new -patchlevel of <I>tcsh</I>. -<DT> -<I>tcsh-bugs@mx.gw.com</I> -<DD> -Bug reports. -</DL> -You can subscribe to any of these lists by sending mail to -<I><A HREF="mailto:listserv@mx.gw.com">listserv@mx.gw.com</A></I> with the -text "subscribe <list name> <your name>" on a line by -itself in the body. <list name> is the name of the mailing list, -without "@mx.gw.com", and <your name> is your real name, not your -email address. You can also ask the list server for help by sending -only the word "help". -<P> -<A HREF="TOPFILEHERE">Up</A> -</BODY> -END -#!/usr/local/bin/perl - -# Emulate #!/usr/local/bin/perl on systems without #! - -eval '(exit $?0)' && eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}' -& eval 'exec /usr/local/bin/perl -S $0 $argv:q' if 0; - -# Setup - -# Location: doesn't work with relative URLs, so we need to know where to find -# the top and section files. -# If the search engine is in /cgi-bin, we need a hard-coded URL. -# If the search engine is in the same directory, we can figure it out from CGI -# environment variables. - -$root = ROOTHERE; -$topfile = 'TOPFILEHERE'; -@name = ( -'NAMEHERE' -); - -# Do the search - -$input = $ENV{'QUERY_STRING'}; -$input =~ s/^input=//; -$input =~ s/\+/ /g; -print "Status: 302 Found\n"; -if ($input ne '' && ($key = (grep(/^$input/, @name))[0] || - (grep(/^$input/i, @name))[0] || - (grep( /$input/i, @name))[0] )) { - $key =~ /\t([^\t]*)$/; - print "Location: $root$1\n\n"; -} else { - print "Location: $root$topfile\n\n"; -} -END diff --git a/contrib/tcsh/termcap.vms b/contrib/tcsh/termcap.vms deleted file mode 100644 index a56bc1511302..000000000000 --- a/contrib/tcsh/termcap.vms +++ /dev/null @@ -1,51 +0,0 @@ -# $Id: termcap.vms,v 1.2 1992/10/27 16:18:15 christos Exp $ -# posix /etc/termcap 1992 -# -# Minimal termcap for VMS/POSIX -# -# 7bit vt300 series -p3|vt300_series|vt300_series|dec vt320:\ - :hs:\ - :es:\ - :ts=\E[1$}\E[;H\E[K:\ - :fs=\E[0$}:\ - :ds=\E[1$}\E[D;H\E[K\E[0$}:\ - :ae=4\E(B:\ - :al=\E[L:\ - :as=2\E(<:\ - :dc=\E[P;\E[:dl=\E[M:\ - :ei=\E[4l:im=\E[4h:mi:nd=\E[C:se=\E[m:so=\E[7m:sr=\EM:\ - :ue=\E[m:up=\E[A:us=\E[4m:\ - :cr=^M:do=^J:nl=^J:bl=^G:co#80:li#24:cl=50\E[;H\E[2J:\ - :le=^H:bs:am:cm=5\E[%i%d;%dH:nd=2\E[C:up=2\E[A:\ - :ce=\E[K:cd=50\E[J:so=\E[7m:se=\E[m:us=\E[4m:ue=\E[m:\ - :md=\E[1m:mr=\E[7m:mb=\E[5m:me=\E[m:\ - :is=\E[1;24r\E[24;1H:\ - :ct=2\E[3g:st=2\EH:\ - :rf=/usr/lib/tabset/vt100:\ - :rs=\E>\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h:\ - :ks=\E[?1h\E=:ke=\E[?1l\E>:\ - :ku=\EOA:kd=\EOB:kr=\EOC:kl=\EOD:kb=^H:\ - :ho=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:ta=^I:pt:sr=5\EM:vt#3:xn:\ - :sc=\E7:rc=\E8:cs=\E[%i%d;%dr: -#vt200_series -p2|vt200_series|vt200_series|dec vt220:\ - :ae=4\E(B:\ - :al=\E[L:\ - :as=2\E(<:\ - :dc=\E[P:dl=\E[M:\ - :ei=\E[4l:im=\E[4h:mi:nd=\E[C:se=\E[m:so=\E[7m:sr=\EM:\ - :ue=\E[m:up=\E[A:us=\E[4m:\ - :cr=^M:do=^J:nl=^J:bl=^G:co#80:li#24:cl=50\E[;H\E[2J:\ - :le=^H:bs:am:cm=5\E[%i%d;%dH:nd=2\E[C:up=2\E[A:\ - :ce=3\E[K:cd=50\E[J:so=2\E[7m:se=2\E[m:us=2\E[4m:ue=2\E[m:\ - :md=2\E[1m:mr=2\E[7m:mb=2\E[5m:me=2\E[m:\ - :is=\E[1;24r\E[24;1H:\ - :ct=2\E[3g:st=2\EH:\ - :rf=/usr/lib/tabset/vt100:\ - :rs=\E>\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h:\ - :ks=\E[?1h\E=:ke=\E[?1l\E>:\ - :ku=\EOA:kd=\EOB:kr=\EOC:kl=\EOD:kb=^H:\ - :ho=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:ta=^I:pt:sr=5\EM:vt#3:xn:\ - :sc=\E7:rc=\E8:cs=\E[%i%d;%dr: -# ------------------------ diff --git a/contrib/tcsh/tw.color.c b/contrib/tcsh/tw.color.c deleted file mode 100644 index dd34e6f2e5ef..000000000000 --- a/contrib/tcsh/tw.color.c +++ /dev/null @@ -1,356 +0,0 @@ -/* $Header: /src/pub/tcsh/tw.color.c,v 1.6 2000/01/14 22:57:30 christos Exp $ */ -/* - * tw.color.c: builtin color ls-F - */ -/*- - * Copyright (c) 1998 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tw.color.c,v 1.6 2000/01/14 22:57:30 christos Exp $") - -#include "tw.h" -#include "ed.h" -#include "tc.h" - -#ifdef COLOR_LS_F - -typedef struct { - char *s; - int len; -} Str; - - -#define VAR(suffix,variable,defaultcolor) \ -{ \ - suffix, variable, { defaultcolor, sizeof(defaultcolor) - 1 }, \ - { defaultcolor, sizeof(defaultcolor) - 1 } \ -} -#define NOS '\0' /* no suffix */ - -typedef struct { - const char suffix; - const char *variable; - Str color; - Str defaultcolor; -} Variable; - -static Variable variables[] = { - VAR('/', "di", "01;34"), /* Directory */ - VAR('@', "ln", "01;36"), /* Symbolic link */ - VAR('&', "or", ""), /* Orphanned symbolic link (defaults to ln) */ - VAR('|', "pi", "33"), /* Named pipe (FIFO) */ - VAR('=', "so", "01;35"), /* Socket */ - VAR('#', "bd", "01;33"), /* Block device */ - VAR('%', "cd", "01;33"), /* Character device */ - VAR('*', "ex", "01;32"), /* Executable file */ - VAR(NOS, "fi", "0"), /* Regular file */ - VAR(NOS, "no", "0"), /* Normal (non-filename) text */ - VAR(NOS, "mi", ""), /* Missing file (defaults to fi) */ -#ifdef _OSD_POSIX - VAR(NOS, "lc", "\x27["), /* Left code (EBCDIC)*/ -#else /* _OSD_POSIX */ - VAR(NOS, "lc", "\033["), /* Left code */ -#endif /* _OSD_POSIX */ - VAR(NOS, "rc", "m"), /* Right code */ - VAR(NOS, "ec", ""), /* End code (replaces lc+no+rc) */ -}; - -enum FileType { - VDir, VSym, VOrph, VPipe, VSock, VBlock, VChr, VExe, - VFile, VNormal, VMiss, VLeft, VRight, VEnd -}; - -#define nvariables (sizeof(variables)/sizeof(variables[0])) - -typedef struct { - Str extension; /* file extension */ - Str color; /* color string */ -} Extension; - -static Extension *extensions = NULL; -static int nextensions = 0; - -static char *colors = NULL; -bool color_context_ls = FALSE; /* do colored ls */ -static bool color_context_lsmF = FALSE; /* do colored ls-F */ - -static bool getstring __P((char **, const Char **, Str *, int)); -static void put_color __P((Str *)); -static void print_color __P((Char *, size_t, int)); - -/* set_color_context(): - */ -void -set_color_context() -{ - struct varent *vp = adrof(STRcolor); - - if (!vp) { - color_context_ls = FALSE; - color_context_lsmF = FALSE; - } - else if (!vp->vec[0] || vp->vec[0][0] == '\0') { - color_context_ls = TRUE; - color_context_lsmF = TRUE; - } - else { - size_t i; - - color_context_ls = FALSE; - color_context_lsmF = FALSE; - for (i = 0; vp->vec[i]; i++) - if (Strcmp(vp->vec[i], STRls) == 0) - color_context_ls = TRUE; - else if (Strcmp(vp->vec[i], STRlsmF) == 0) - color_context_lsmF = TRUE; - } -} - - -/* getstring(): - */ -static bool -getstring(dp, sp, pd, f) - char **dp; /* dest buffer */ - const Char **sp; /* source buffer */ - Str *pd; /* pointer to dest buffer */ - int f; /* final character */ -{ - const Char *s = *sp; - char *d = *dp; - int sc; - - while (*s && (*s & CHAR) != f && (*s & CHAR) != ':') { - if ((*s & CHAR) == '\\' || (*s & CHAR) == '^') { - if ((sc = parseescape(&s)) == -1) - return 0; - else - *d++ = (char) sc; - } - else - *d++ = *s++ & CHAR; - } - - pd->s = *dp; - pd->len = (int) (d - *dp); - *sp = s; - *dp = d; - return *s == f; -} - - -/* parseLS_COLORS(): - * Parse the LS_COLORS environment variable - */ -void -parseLS_COLORS(value) - Char *value; /* LS_COLOR variable's value */ -{ - int i; - size_t len; - const Char *v; /* pointer in value */ - char *c; /* pointer in colors */ - Extension *e; /* pointer in extensions */ - jmp_buf_t osetexit; - - /* init */ - if (extensions) - xfree((ptr_t) extensions); - for (i = 0; i < nvariables; i++) - variables[i].color = variables[i].defaultcolor; - colors = NULL; - extensions = NULL; - nextensions = 0; - - if (value == NULL) - return; - - len = Strlen(value); - /* allocate memory */ - i = 1; - for (v = value; *v; v++) - if ((*v & CHAR) == ':') - i++; - extensions = (Extension *) xmalloc((size_t) (len + i * sizeof(Extension))); - colors = i * sizeof(Extension) + (char *)extensions; - nextensions = 0; - - /* init pointers */ - v = value; - c = colors; - e = &extensions[0]; - - /* Prevent from crashing if unknown parameters are given. */ - - getexit(osetexit); - - if (setexit() == 0) { - - /* parse */ - while (*v) { - switch (*v & CHAR) { - case ':': - v++; - continue; - - case '*': /* :*ext=color: */ - v++; - if (getstring(&c, &v, &e->extension, '=') && - 0 < e->extension.len) { - v++; - getstring(&c, &v, &e->color, ':'); - e++; - continue; - } - break; - - default: /* :vl=color: */ - if (v[0] && v[1] && (v[2] & CHAR) == '=') { - for (i = 0; i < nvariables; i++) - if (variables[i].variable[0] == (v[0] & CHAR) && - variables[i].variable[1] == (v[1] & CHAR)) - break; - if (i < nvariables) { - v += 3; - getstring(&c, &v, &variables[i].color, ':'); - continue; - } - else - stderror(ERR_BADCOLORVAR, v[0], v[1]); - } - break; - } - while (*v && (*v & CHAR) != ':') - v++; - } - } - - resexit(osetexit); - - nextensions = (int) (e - extensions); -} - - -/* put_color(): - */ -static void -put_color(color) - Str *color; -{ - extern bool output_raw; /* PWP: in sh.print.c */ - size_t i; - char *c = color->s; - bool original_output_raw = output_raw; - - output_raw = TRUE; - for (i = color->len; 0 < i; i--) - xputchar(*c++); - output_raw = original_output_raw; -} - - -/* print_color(): - */ -static void -print_color(fname, len, suffix) - Char *fname; - size_t len; - int suffix; -{ - int i; - char *filename = short2str(fname); - char *last = filename + len; - Str *color = &variables[VFile].color; - - switch (suffix) { - case '>': /* File is a symbolic link pointing to - * a directory */ - color = &variables[VDir].color; - break; - case '+': /* File is a hidden directory [aix] or - * context dependent [hpux] */ - case ':': /* File is network special [hpux] */ - break; - default: - for (i = 0; i < nvariables; i++) - if (variables[i].suffix != NOS && - variables[i].suffix == suffix) { - color = &variables[i].color; - break; - } - if (i == nvariables) { - for (i = 0; i < nextensions; i++) - if (strncmp(last - extensions[i].extension.len, - extensions[i].extension.s, - extensions[i].extension.len) == 0) { - color = &extensions[i].color; - break; - } - } - break; - } - - put_color(&variables[VLeft].color); - put_color(color); - put_color(&variables[VRight].color); -} - - -/* print_with_color(): - */ -void -print_with_color(filename, len, suffix) - Char *filename; - size_t len; - int suffix; -{ - if (color_context_lsmF && - (haderr ? (didfds ? is2atty : isdiagatty) : - (didfds ? is1atty : isoutatty))) { - print_color(filename, len, suffix); - xprintf("%S", filename); - if (0 < variables[VEnd].color.len) - put_color(&variables[VEnd].color); - else { - put_color(&variables[VLeft].color); - put_color(&variables[VNormal].color); - put_color(&variables[VRight].color); - } - xputchar(suffix); - } - else - xprintf("%S%c", filename, suffix); -} - - -#endif /* COLOR_LS_F */ diff --git a/contrib/tcsh/tw.comp.c b/contrib/tcsh/tw.comp.c deleted file mode 100644 index 6d5652ad1d8c..000000000000 --- a/contrib/tcsh/tw.comp.c +++ /dev/null @@ -1,626 +0,0 @@ -/* $Header: /src/pub/tcsh/tw.comp.c,v 1.31 1998/10/25 15:10:49 christos Exp $ */ -/* - * tw.comp.c: File completion builtin - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tw.comp.c,v 1.31 1998/10/25 15:10:49 christos Exp $") - -#include "tw.h" -#include "ed.h" -#include "tc.h" - -/* #define TDEBUG */ -struct varent completions; - -static int tw_result __P((Char *, Char **)); -static Char **tw_find __P((Char *, struct varent *, int)); -static Char *tw_tok __P((Char *)); -static bool tw_pos __P((Char *, int)); -static void tw_pr __P((Char **)); -static int tw_match __P((Char *, Char *)); -static void tw_prlist __P((struct varent *)); -static Char *tw_dollar __P((Char *,Char **, int, Char *, - int, const char *)); - -/* docomplete(): - * Add or list completions in the completion list - */ -/*ARGSUSED*/ -void -docomplete(v, t) - Char **v; - struct command *t; -{ - register struct varent *vp; - register Char *p; - - USE(t); - v++; - p = *v++; - if (p == 0) - tw_prlist(&completions); - else if (*v == 0) { - vp = adrof1(strip(p), &completions); - if (vp) - tw_pr(vp->vec), xputchar('\n'); - } - else - set1(strip(p), saveblk(v), &completions, VAR_READWRITE); -} /* end docomplete */ - - -/* douncomplete(): - * Remove completions from the completion list - */ -/*ARGSUSED*/ -void -douncomplete(v, t) - Char **v; - struct command *t; -{ - USE(t); - unset1(v, &completions); -} /* end douncomplete */ - - -/* tw_prlist(): - * Pretty print a list of variables - */ -static void -tw_prlist(p) - struct varent *p; -{ - register struct varent *c; - - if (setintr) -#ifdef BSDSIGS - (void) sigsetmask(sigblock((sigmask_t) 0) & ~sigmask(SIGINT)); -#else /* BSDSIGS */ - (void) sigrelse(SIGINT); -#endif /* BSDSIGS */ - - for (;;) { - while (p->v_left) - p = p->v_left; -x: - if (p->v_parent == 0) /* is it the header? */ - return; - xprintf("%s\t", short2str(p->v_name)); - tw_pr(p->vec); - xputchar('\n'); - if (p->v_right) { - p = p->v_right; - continue; - } - do { - c = p; - p = p->v_parent; - } while (p->v_right == c); - goto x; - } -} /* end tw_prlist */ - - -/* tw_pr(): - * Pretty print a completion, adding single quotes around - * a completion argument and collapsing multiple spaces to one. - */ -static void -tw_pr(cmp) - Char **cmp; -{ - bool sp, osp; - Char *ptr; - - for (; *cmp; cmp++) { - xputchar('\''); - for (osp = 0, ptr = *cmp; *ptr; ptr++) { - sp = Isspace(*ptr); - if (sp && osp) - continue; - xputchar(*ptr); - osp = sp; - } - xputchar('\''); - if (cmp[1]) - xputchar(' '); - } -} /* end tw_pr */ - - -/* tw_find(): - * Find the first matching completion. - * For commands we only look at names that start with - - */ -static Char ** -tw_find(nam, vp, cmd) - Char *nam; - register struct varent *vp; - int cmd; -{ - register Char **rv; - - for (vp = vp->v_left; vp; vp = vp->v_right) { - if (vp->v_left && (rv = tw_find(nam, vp, cmd)) != NULL) - return rv; - if (cmd) { - if (vp->v_name[0] != '-') - continue; - if (Gmatch(nam, &vp->v_name[1]) && vp->vec != NULL) - return vp->vec; - } - else - if (Gmatch(nam, vp->v_name) && vp->vec != NULL) - return vp->vec; - } - return NULL; -} /* end tw_find */ - - -/* tw_pos(): - * Return true if the position is within the specified range - */ -static bool -tw_pos(ran, wno) - Char *ran; - int wno; -{ - Char *p; - - if (ran[0] == '*' && ran[1] == '\0') - return 1; - - for (p = ran; *p && *p != '-'; p++) - continue; - - if (*p == '\0') /* range == <number> */ - return wno == getn(ran); - - if (ran == p) /* range = - <number> */ - return wno <= getn(&ran[1]); - *p++ = '\0'; - - if (*p == '\0') /* range = <number> - */ - return getn(ran) <= wno; - else /* range = <number> - <number> */ - return (getn(ran) <= wno) && (wno <= getn(p)); - -} /* end tw_pos */ - - -/* tw_tok(): - * Return the next word from string, unquoteing it. - */ -static Char * -tw_tok(str) - Char *str; -{ - static Char *bf = NULL; - - if (str != NULL) - bf = str; - - /* skip leading spaces */ - for (; *bf && Isspace(*bf); bf++) - continue; - - for (str = bf; *bf && !Isspace(*bf); bf++) { - if (ismeta(*bf)) - return INVPTR; - *bf = *bf & ~QUOTE; - } - if (*bf != '\0') - *bf++ = '\0'; - - return *str ? str : NULL; -} /* end tw_tok */ - - -/* tw_match(): - * Match a string against the pattern given. - * and return the number of matched characters - * in a prefix of the string. - */ -static int -tw_match(str, pat) - Char *str, *pat; -{ - Char *estr; - int rv = Gnmatch(str, pat, &estr); -#ifdef TDEBUG - xprintf("Gnmatch(%s, ", short2str(str)); - xprintf("%s, ", short2str(pat)); - xprintf("%s) = %d [%d]\n", short2str(estr), rv, estr - str); -#endif /* TDEBUG */ - return (int) (rv ? estr - str : -1); -} - - -/* tw_result(): - * Return what the completion action should be depending on the - * string - */ -static int -tw_result(act, pat) - Char *act, **pat; -{ - int looking; - static Char* res = NULL; - - if (res != NULL) - xfree((ptr_t) res), res = NULL; - - switch (act[0] & ~QUOTE) { - case 'X': - looking = TW_COMPLETION; - break; - case 'S': - looking = TW_SIGNAL; - break; - case 'a': - looking = TW_ALIAS; - break; - case 'b': - looking = TW_BINDING; - break; - case 'c': - looking = TW_COMMAND; - break; - case 'C': - looking = TW_PATH | TW_COMMAND; - break; - case 'd': - looking = TW_DIRECTORY; - break; - case 'D': - looking = TW_PATH | TW_DIRECTORY; - break; - case 'e': - looking = TW_ENVVAR; - break; - case 'f': - looking = TW_FILE; - break; -#ifdef COMPAT - case 'p': -#endif /* COMPAT */ - case 'F': - looking = TW_PATH | TW_FILE; - break; - case 'g': - looking = TW_GRPNAME; - break; - case 'j': - looking = TW_JOB; - break; - case 'l': - looking = TW_LIMIT; - break; - case 'n': - looking = TW_NONE; - break; - case 's': - looking = TW_SHELLVAR; - break; - case 't': - looking = TW_TEXT; - break; - case 'T': - looking = TW_PATH | TW_TEXT; - break; - case 'v': - looking = TW_VARIABLE; - break; - case 'u': - looking = TW_USER; - break; - case 'x': - looking = TW_EXPLAIN; - break; - - case '$': - *pat = res = Strsave(&act[1]); - (void) strip(res); - return(TW_VARLIST); - - case '(': - *pat = res = Strsave(&act[1]); - if ((act = Strchr(res, ')')) != NULL) - *act = '\0'; - (void) strip(res); - return TW_WORDLIST; - - case '`': - res = Strsave(act); - if ((act = Strchr(&res[1], '`')) != NULL) - *++act = '\0'; - - if (didfds == 0) { - /* - * Make sure that we have some file descriptors to - * play with, so that the processes have at least 0, 1, 2 - * open - */ - (void) dcopy(SHIN, 0); - (void) dcopy(SHOUT, 1); - (void) dcopy(SHDIAG, 2); - } - if ((act = globone(res, G_APPEND)) != NULL) { - xfree((ptr_t) res), res = NULL; - *pat = res = Strsave(act); - xfree((ptr_t) act); - return TW_WORDLIST; - } - return TW_ZERO; - - default: - stderror(ERR_COMPCOM, short2str(act)); - return TW_ZERO; - } - - switch (act[1] & ~QUOTE) { - case '\0': - return looking; - - case ':': - *pat = res = Strsave(&act[2]); - (void) strip(res); - return looking; - - default: - stderror(ERR_COMPCOM, short2str(act)); - return TW_ZERO; - } -} /* end tw_result */ - - -/* tw_dollar(): - * Expand $<n> args in buffer - */ -static Char * -tw_dollar(str, wl, nwl, buffer, sep, msg) - Char *str, **wl; - int nwl; - Char *buffer; - int sep; - const char *msg; -{ - Char *sp, *bp = buffer, *ebp = &buffer[MAXPATHLEN]; - - for (sp = str; *sp && *sp != sep && bp < ebp;) - if (sp[0] == '$' && sp[1] == ':' && Isdigit(sp[sp[2] == '-' ? 3 : 2])) { - int num, neg = 0; - sp += 2; - if (*sp == '-') { - neg = 1; - sp++; - } - for (num = *sp++ - '0'; Isdigit(*sp); num += 10 * num + *sp++ - '0') - continue; - if (neg) - num = nwl - num - 1; - if (num >= 0 && num < nwl) { - Char *ptr; - for (ptr = wl[num]; *ptr && bp < ebp - 1; *bp++ = *ptr++) - continue; - - } - } - else - *bp++ = *sp++; - - *bp = '\0'; - - if (*sp++ == sep) - return sp; - - stderror(ERR_COMPMIS, sep, msg, short2str(str)); - return --sp; -} /* end tw_dollar */ - - -/* tw_complete(): - * Return the appropriate completion for the command - * - * valid completion strings are: - * p/<range>/<completion>/[<suffix>/] positional - * c/<pattern>/<completion>/[<suffix>/] current word ignore pattern - * C/<pattern>/<completion>/[<suffix>/] current word with pattern - * n/<pattern>/<completion>/[<suffix>/] next word - * N/<pattern>/<completion>/[<suffix>/] next-next word - */ -int -tw_complete(line, word, pat, looking, suf) - Char *line, **word, **pat; - int looking, *suf; -{ - Char buf[MAXPATHLEN + 1], **vec, *ptr; - Char *wl[MAXPATHLEN/6]; - static Char nomatch[2] = { (Char) ~0, 0x00 }; - int wordno, n; - - copyn(buf, line, MAXPATHLEN); - - /* find the command */ - if ((wl[0] = tw_tok(buf)) == NULL || wl[0] == INVPTR) - return TW_ZERO; - - /* - * look for hardwired command completions using a globbing - * search and for arguments using a normal search. - */ - if ((vec = tw_find(wl[0], &completions, (looking == TW_COMMAND))) == NULL) - return looking; - - /* tokenize the line one more time :-( */ - for (wordno = 1; (wl[wordno] = tw_tok(NULL)) != NULL && - wl[wordno] != INVPTR; wordno++) - continue; - - if (wl[wordno] == INVPTR) /* Found a meta character */ - return TW_ZERO; /* de-activate completions */ -#ifdef TDEBUG - { - int i; - for (i = 0; i < wordno; i++) - xprintf("'%s' ", short2str(wl[i])); - xprintf("\n"); - } -#endif /* TDEBUG */ - - /* if the current word is empty move the last word to the next */ - if (**word == '\0') { - wl[wordno] = *word; - wordno++; - } - wl[wordno] = NULL; - - -#ifdef TDEBUG - xprintf("\r\n"); - xprintf(" w#: %d\n", wordno); - xprintf("line: %s\n", short2str(line)); - xprintf(" cmd: %s\n", short2str(wl[0])); - xprintf("word: %s\n", short2str(*word)); - xprintf("last: %s\n", wordno - 2 >= 0 ? short2str(wl[wordno-2]) : "n/a"); - xprintf("this: %s\n", wordno - 1 >= 0 ? short2str(wl[wordno-1]) : "n/a"); -#endif /* TDEBUG */ - - for (;vec != NULL && (ptr = vec[0]) != NULL; vec++) { - Char ran[MAXPATHLEN+1],/* The pattern or range X/<range>/XXXX/ */ - com[MAXPATHLEN+1],/* The completion X/XXXXX/<completion>/ */ - *pos = NULL; /* scratch pointer */ - int cmd, sep; /* the command and separator characters */ - - if (ptr[0] == '\0') - continue; - -#ifdef TDEBUG - xprintf("match %s\n", short2str(ptr)); -#endif /* TDEBUG */ - - switch (cmd = ptr[0]) { - case 'N': - pos = (wordno - 3 < 0) ? nomatch : wl[wordno - 3]; - break; - case 'n': - pos = (wordno - 2 < 0) ? nomatch : wl[wordno - 2]; - break; - case 'c': - case 'C': - pos = (wordno - 1 < 0) ? nomatch : wl[wordno - 1]; - break; - case 'p': - break; - default: - stderror(ERR_COMPINV, CGETS(27, 1, "command"), cmd); - return TW_ZERO; - } - - sep = ptr[1]; - if (!Ispunct(sep)) { - stderror(ERR_COMPINV, CGETS(27, 2, "separator"), sep); - return TW_ZERO; - } - - ptr = tw_dollar(&ptr[2], wl, wordno, ran, sep, - CGETS(27, 3, "pattern")); - if (ran[0] == '\0') /* check for empty pattern (disallowed) */ - { - stderror(ERR_COMPINC, cmd == 'p' ? CGETS(27, 4, "range") : - CGETS(27, 3, "pattern"), ""); - return TW_ZERO; - } - - ptr = tw_dollar(ptr, wl, wordno, com, sep, CGETS(27, 5, "completion")); - - if (*ptr != '\0') { - if (*ptr == sep) - *suf = ~0; - else - *suf = *ptr; - } - else - *suf = '\0'; - -#ifdef TDEBUG - xprintf("command: %c\nseparator: %c\n", cmd, sep); - xprintf("pattern: %s\n", short2str(ran)); - xprintf("completion: %s\n", short2str(com)); - xprintf("suffix: "); - switch (*suf) { - case 0: - xprintf("*auto suffix*\n"); - break; - case ~0: - xprintf("*no suffix*\n"); - break; - default: - xprintf("%c\n", *suf); - break; - } -#endif /* TDEBUG */ - - switch (cmd) { - case 'p': /* positional completion */ -#ifdef TDEBUG - xprintf("p: tw_pos(%s, %d) = ", short2str(ran), wordno - 1); - xprintf("%d\n", tw_pos(ran, wordno - 1)); -#endif /* TDEBUG */ - if (!tw_pos(ran, wordno - 1)) - continue; - return tw_result(com, pat); - - case 'N': /* match with the next-next word */ - case 'n': /* match with the next word */ - case 'c': /* match with the current word */ - case 'C': -#ifdef TDEBUG - xprintf("%c: ", cmd); -#endif /* TDEBUG */ - if ((n = tw_match(pos, ran)) < 0) - continue; - if (cmd == 'c') - *word += n; - return tw_result(com, pat); - - default: - return TW_ZERO; /* Cannot happen */ - } - } - *suf = '\0'; - return TW_ZERO; -} /* end tw_complete */ diff --git a/contrib/tcsh/tw.decls.h b/contrib/tcsh/tw.decls.h deleted file mode 100644 index 38f47fa86879..000000000000 --- a/contrib/tcsh/tw.decls.h +++ /dev/null @@ -1,126 +0,0 @@ -/* $Header: /src/pub/tcsh/tw.decls.h,v 3.16 1998/06/27 12:27:44 christos Exp $ */ -/* - * tw.decls.h: Tenex external declarations - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_tw_decls -#define _h_tw_decls - -/* - * tw.help.c - */ -extern void do_help __P((Char *)); - -/* - * tw.parse.c - */ -extern Char *dollar __P((Char *, const Char *)); -extern int tenematch __P((Char *, int, COMMAND)); -extern int t_search __P((Char *, Char *, COMMAND, - int, int, int, Char *, - int)); -extern int starting_a_command __P((Char *, Char *)); -extern void copyn __P((Char *, Char *, int)); -extern void catn __P((Char *, Char *, int)); -extern int fcompare __P((Char **, Char **)); -extern void print_by_column __P((Char *, Char *[], int, - int)); -extern int StrQcmp __P((Char *, Char *)); -extern Char *tgetenv __P((Char *)); - -/* - * tw.init.c - */ -extern void tw_alias_start __P((DIR *, Char *)); -extern void tw_cmd_start __P((DIR *, Char *)); -extern void tw_logname_start __P((DIR *, Char *)); -extern void tw_var_start __P((DIR *, Char *)); -extern void tw_complete_start __P((DIR *, Char *)); -extern void tw_file_start __P((DIR *, Char *)); -extern void tw_vl_start __P((DIR *, Char *)); -extern void tw_wl_start __P((DIR *, Char *)); -extern void tw_bind_start __P((DIR *, Char *)); -extern void tw_limit_start __P((DIR *, Char *)); -extern void tw_sig_start __P((DIR *, Char *)); -extern void tw_job_start __P((DIR *, Char *)); -extern void tw_grpname_start __P((DIR *, Char *)); -extern Char *tw_cmd_next __P((Char *, int *)); -extern Char *tw_logname_next __P((Char *, int *)); -extern Char *tw_shvar_next __P((Char *, int *)); -extern Char *tw_envvar_next __P((Char *, int *)); -extern Char *tw_var_next __P((Char *, int *)); -extern Char *tw_file_next __P((Char *, int *)); -extern Char *tw_wl_next __P((Char *, int *)); -extern Char *tw_bind_next __P((Char *, int *)); -extern Char *tw_limit_next __P((Char *, int *)); -extern Char *tw_sig_next __P((Char *, int *)); -extern Char *tw_job_next __P((Char *, int *)); -extern Char *tw_grpname_next __P((Char *, int *)); -extern void tw_dir_end __P((void)); -extern void tw_cmd_free __P((void)); -extern void tw_logname_end __P((void)); -extern void tw_grpname_end __P((void)); -extern Char *tw_item_add __P((int)); -extern Char **tw_item_get __P((void)); -extern void tw_item_free __P((void)); -extern Char *tw_item_find __P((Char *)); - -/* - * tw.spell.c - */ -extern int spell_me __P((Char *, int, int, - Char *, int)); -extern int spdir __P((Char *, Char *, Char *, - Char *)); -extern int spdist __P((Char *, Char *)); - -/* - * tw.comp.c - */ -extern void docomplete __P((Char **, - struct command *)); -extern void douncomplete __P((Char **, - struct command *)); -extern int tw_complete __P((Char *, Char **, - Char **, int, int *)); -#ifdef COLOR_LS_F -/* - * tw.color.c - */ -extern void set_color_context __P((void)); -extern void print_with_color __P((Char *, size_t, int)); -extern void parseLS_COLORS __P((Char *)); -#endif /* COLOR_LS_F */ - -#endif /* _h_tw_decls */ diff --git a/contrib/tcsh/tw.h b/contrib/tcsh/tw.h deleted file mode 100644 index 25b484c36e0a..000000000000 --- a/contrib/tcsh/tw.h +++ /dev/null @@ -1,110 +0,0 @@ -/* $Header: /src/pub/tcsh/tw.h,v 3.20 1997/10/02 16:36:35 christos Exp $ */ -/* - * tw.h: TwENEX functions headers - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#ifndef _h_tw -#define _h_tw - -#define TW_PATH 0x1000 -#define TW_ZERO 0x0fff - -#define TW_NONE 0x0000 -#define TW_COMMAND 0x0001 -#define TW_VARIABLE 0x0002 -#define TW_LOGNAME 0x0003 -#define TW_FILE 0x0004 -#define TW_DIRECTORY 0x0005 -#define TW_VARLIST 0x0006 -#define TW_USER 0x0007 -#define TW_COMPLETION 0x0008 -#define TW_ALIAS 0x0009 -#define TW_SHELLVAR 0x000a -#define TW_ENVVAR 0x000b -#define TW_BINDING 0x000c -#define TW_WORDLIST 0x000d -#define TW_LIMIT 0x000e -#define TW_SIGNAL 0x000f -#define TW_JOB 0x0010 -#define TW_EXPLAIN 0x0011 -#define TW_TEXT 0x0012 -#define TW_GRPNAME 0x0013 - -#define TW_EXEC_CHK 0x01 -#define TW_DIR_CHK 0x02 -#define TW_TEXT_CHK 0x04 - -#define TW_DIR_OK 0x10 -#define TW_PAT_OK 0x20 -#define TW_IGN_OK 0x40 - -#ifndef TRUE -# define TRUE 1 -#endif -#ifndef FALSE -# define FALSE 0 -#endif -#define ON 1 -#define OFF 0 -#define FILSIZ 512 /* Max reasonable file name length */ -#define ESC CTL_ESC('\033') -#define equal(a, b) (strcmp(a, b) == 0) - -#define is_set(var) adrof(var) -#define ismetahash(a) (ismeta(a) && (a) != '#') - -#define SEARCHLIST "HPATH" /* Env. param for helpfile searchlist */ -#define DEFAULTLIST ":/usr/man/cat1:/usr/man/cat8:/usr/man/cat6:/usr/local/man/cat1:/usr/local/man/cat8:/usr/local/man/cat6" /* if no HPATH */ - -typedef enum { - LIST, LIST_ALL, RECOGNIZE, RECOGNIZE_ALL, RECOGNIZE_SCROLL, - PRINT_HELP, SPELL, GLOB, GLOB_EXPAND, VARS_EXPAND, PATH_NORMALIZE, - COMMAND_NORMALIZE -} COMMAND; - -struct scroll_tab_list { - Char *element; - struct scroll_tab_list *next; -} ; - -extern struct scroll_tab_list *scroll_tab; -extern int curchoice; - -extern int non_unique_match; - -extern int match_unique_match; - -#include "tw.decls.h" - -#endif /* _h_tw */ diff --git a/contrib/tcsh/tw.help.c b/contrib/tcsh/tw.help.c deleted file mode 100644 index 972a0fe368c3..000000000000 --- a/contrib/tcsh/tw.help.c +++ /dev/null @@ -1,207 +0,0 @@ -/* $Header: /src/pub/tcsh/tw.help.c,v 3.17 2000/01/14 22:57:30 christos Exp $ */ -/* tw.help.c: actually look up and print documentation on a file. - * Look down the path for an appropriate file, then print it. - * Note that the printing is NOT PAGED. This is because the - * function is NOT meant to look at manual pages, it only does so - * if there is no .help file to look in. - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tw.help.c,v 3.17 2000/01/14 22:57:30 christos Exp $") - -#include "tw.h" -#include "tc.h" - - -static int f = -1; -static sigret_t cleanf __P((int)); -static Char *skipslist __P((Char *)); -static void nextslist __P((Char *, Char *)); - -static char *h_ext[] = { - ".help", ".1", ".8", ".6", "", NULL -}; - -void -do_help(command) - Char *command; -{ - Char name[FILSIZ + 1]; - Char *cmd_p, *ep; - char **sp; - - signalfun_t orig_intr; - Char curdir[MAXPATHLEN]; /* Current directory being looked at */ - register Char *hpath; /* The environment parameter */ - Char full[MAXPATHLEN]; - char buf[512]; /* full path name and buffer for read */ - int len; /* length of read buffer */ - Char *thpath; - - - /* trim off the whitespace at the beginning */ - for (cmd_p = command; *cmd_p == ' ' || *cmd_p == '\t'; cmd_p++) - continue; - - /* copy the string to a safe place */ - copyn(name, cmd_p, FILSIZ + 1); - - /* trim off the whitespace that may be at the end */ - for (cmd_p = name; - *cmd_p != ' ' && *cmd_p != '\t' && *cmd_p != '\0'; cmd_p++) - continue; - *cmd_p = '\0'; - - /* if nothing left, return */ - if (*name == '\0') - return; - - if (adrof1(STRhelpcommand, &aliases)) { /* if we have an alias */ - jmp_buf_t osetexit; - - getexit(osetexit); /* make sure to come back here */ - if (setexit() == 0) - aliasrun(2, STRhelpcommand, name); /* then use it. */ - resexit(osetexit); /* and finish up */ - } - else { /* else cat something to them */ - /* got is, now "cat" the file based on the path $HPATH */ - - hpath = str2short(getenv(SEARCHLIST)); - if (hpath == NULL) - hpath = str2short(DEFAULTLIST); - thpath = hpath = Strsave(hpath); - - for (;;) { - if (!*hpath) { - xprintf(CGETS(29, 1, "No help file for %S\n"), name); - break; - } - nextslist(hpath, curdir); - hpath = skipslist(hpath); - - /* - * now make the full path name - try first /bar/foo.help, then - * /bar/foo.1, /bar/foo.8, then finally /bar/foo.6. This is so - * that you don't spit a binary at the tty when $HPATH == $PATH. - */ - copyn(full, curdir, (int) (sizeof(full) / sizeof(Char))); - catn(full, STRslash, (int) (sizeof(full) / sizeof(Char))); - catn(full, name, (int) (sizeof(full) / sizeof(Char))); - ep = &full[Strlen(full)]; - for (sp = h_ext; *sp; sp++) { - *ep = '\0'; - catn(full, str2short(*sp), (int) (sizeof(full) / sizeof(Char))); - if ((f = open(short2str(full), O_RDONLY)) != -1) - break; - } - if (f != -1) { - /* so cat it to the terminal */ - orig_intr = (signalfun_t) sigset(SIGINT, cleanf); - while (f != -1 && (len = read(f, (char *) buf, 512)) > 0) - (void) write(SHOUT, (char *) buf, (size_t) len); -#ifdef convex - /* print error in case file is migrated */ - if (len == -1) - stderror(ERR_SYSTEM, progname, strerror(errno)); -#endif /* convex */ - (void) sigset(SIGINT, orig_intr); - if (f != -1) - (void) close(f); - break; - } - } - xfree((ptr_t) thpath); - } -} - -static sigret_t -/*ARGSUSED*/ -cleanf(snum) -int snum; -{ - USE(snum); -#ifdef UNRELSIGS - if (snum) - (void) sigset(SIGINT, cleanf); -#endif /* UNRELSIGS */ - if (f != -1) - (void) close(f); - f = -1; -#ifndef SIGVOID - return (snum); -#endif -} - -/* these next two are stolen from CMU's man(1) command for looking down - * paths. they are prety straight forward. */ - -/* - * nextslist takes a search list and copies the next path in it - * to np. A null search list entry is expanded to ".". - * If there are no entries in the search list, then np will point - * to a null string. - */ - -static void -nextslist(sl, np) - register Char *sl; - register Char *np; -{ - if (!*sl) - *np = '\000'; - else if (*sl == ':') { - *np++ = '.'; - *np = '\000'; - } - else { - while (*sl && *sl != ':') - *np++ = *sl++; - *np = '\000'; - } -} - -/* - * skipslist returns the pointer to the next entry in the search list. - */ - -static Char * -skipslist(sl) - register Char *sl; -{ - while (*sl && *sl++ != ':') - continue; - return (sl); -} diff --git a/contrib/tcsh/tw.init.c b/contrib/tcsh/tw.init.c deleted file mode 100644 index e040a88f63c0..000000000000 --- a/contrib/tcsh/tw.init.c +++ /dev/null @@ -1,1087 +0,0 @@ -/* $Header: /src/pub/tcsh/tw.init.c,v 3.25 1998/10/25 15:10:50 christos Exp $ */ -/* - * tw.init.c: Handle lists of things to complete - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tw.init.c,v 3.25 1998/10/25 15:10:50 christos Exp $") - -#include "tw.h" -#include "ed.h" -#include "tc.h" -#include "sh.proc.h" - -#if !defined(NSIG) && defined(SIGMAX) -# define NSIG (SIGMAX+1) -#endif /* !NSIG && SIGMAX */ -#if !defined(NSIG) && defined(_NSIG) -# define NSIG _NSIG -#endif /* !NSIG && _NSIG */ - -#define TW_INCR 128 - -typedef struct { - Char **list, /* List of command names */ - *buff; /* Space holding command names */ - int nlist, /* Number of items */ - nbuff, /* Current space in name buf */ - tlist, /* Total space in list */ - tbuff; /* Total space in name buf */ -} stringlist_t; - - -static struct varent *tw_vptr = NULL; /* Current shell variable */ -static Char **tw_env = NULL; /* Current environment variable */ -static Char *tw_word; /* Current word pointer */ -static struct KeyFuncs *tw_bind = NULL; /* List of the bindings */ -#ifndef HAVENOLIMIT -static struct limits *tw_limit = NULL; /* List of the resource limits */ -#endif /* HAVENOLIMIT */ -static int tw_index = 0; /* signal and job index */ -static DIR *tw_dir_fd = NULL; /* Current directory descriptor */ -static Char tw_retname[MAXPATHLEN+1]; /* Return buffer */ -static int tw_cmd_got = 0; /* What we need to do */ -static stringlist_t tw_cmd = { NULL, NULL, 0, 0, 0, 0 }; -static stringlist_t tw_item = { NULL, NULL, 0, 0, 0, 0 }; -#define TW_FL_CMD 0x01 -#define TW_FL_ALIAS 0x02 -#define TW_FL_BUILTIN 0x04 -#define TW_FL_SORT 0x08 -#define TW_FL_REL 0x10 - -static struct { /* Current element pointer */ - int cur; /* Current element number */ - Char **pathv; /* Current element in path */ - DIR *dfd; /* Current directory descriptor */ -} tw_cmd_state; - - -#ifdef BSDSIGS -static sigmask_t tw_omask; -# define TW_HOLD() tw_omask = sigblock(sigmask(SIGINT)) -# define TW_RELS() (void) sigsetmask(tw_omask) -#else /* !BSDSIGS */ -# define TW_HOLD() (void) sighold(SIGINT) -# define TW_RELS() (void) sigrelse(SIGINT) -#endif /* BSDSIGS */ - -#define SETDIR(dfd) \ - { \ - tw_dir_fd = dfd; \ - if (tw_dir_fd != NULL) \ - rewinddir(tw_dir_fd); \ - } - -#define CLRDIR(dfd) \ - if (dfd != NULL) { \ - TW_HOLD(); \ - (void) closedir(dfd); \ - dfd = NULL; \ - TW_RELS(); \ - } - -static Char *tw_str_add __P((stringlist_t *, int)); -static void tw_str_free __P((stringlist_t *)); -static Char *tw_dir_next __P((DIR *)); -static void tw_cmd_add __P((Char *name)); -static void tw_cmd_cmd __P((void)); -static void tw_cmd_builtin __P((void)); -static void tw_cmd_alias __P((void)); -static void tw_cmd_sort __P((void)); -static void tw_vptr_start __P((struct varent *)); - - -/* tw_str_add(): - * Add an item to the string list - */ -static Char * -tw_str_add(sl, len) - stringlist_t *sl; - int len; -{ - Char *ptr; - - if (sl->tlist <= sl->nlist) { - TW_HOLD(); - sl->tlist += TW_INCR; - sl->list = sl->list ? - (Char **) xrealloc((ptr_t) sl->list, - (size_t) (sl->tlist * sizeof(Char *))) : - (Char **) xmalloc((size_t) (sl->tlist * sizeof(Char *))); - TW_RELS(); - } - if (sl->tbuff <= sl->nbuff + len) { - int i; - ptr = sl->buff; - - TW_HOLD(); - sl->tbuff += TW_INCR + len; - sl->buff = sl->buff ? - (Char *) xrealloc((ptr_t) sl->buff, - (size_t) (sl->tbuff * sizeof(Char))) : - (Char *) xmalloc((size_t) (sl->tbuff * sizeof(Char))); - /* Re-thread the new pointer list, if changed */ - if (ptr != NULL && ptr != sl->buff) { - int offs = (int) (sl->buff - ptr); - for (i = 0; i < sl->nlist; i++) - sl->list[i] += offs; - } - TW_RELS(); - } - ptr = sl->list[sl->nlist++] = &sl->buff[sl->nbuff]; - sl->nbuff += len; - return ptr; -} /* tw_str_add */ - - -/* tw_str_free(): - * Free a stringlist - */ -static void -tw_str_free(sl) - stringlist_t *sl; -{ - TW_HOLD(); - if (sl->list) { - xfree((ptr_t) sl->list); - sl->list = NULL; - sl->tlist = sl->nlist = 0; - } - if (sl->buff) { - xfree((ptr_t) sl->buff); - sl->buff = NULL; - sl->tbuff = sl->nbuff = 0; - } - TW_RELS(); -} /* end tw_str_free */ - - -static Char * -tw_dir_next(dfd) - DIR *dfd; -{ - register struct dirent *dirp; - - if (dfd == NULL) - return NULL; - - if ((dirp = readdir(dfd)) != NULL) { - (void) Strcpy(tw_retname, str2short(dirp->d_name)); - return (tw_retname); - } - return NULL; -} /* end tw_dir_next */ - - -/* tw_cmd_add(): - * Add the name to the command list - */ -static void -tw_cmd_add(name) - Char *name; -{ - int len; - - len = (int) Strlen(name) + 2; - (void) Strcpy(tw_str_add(&tw_cmd, len), name); -} /* end tw_cmd_add */ - - -/* tw_cmd_free(): - * Free the command list - */ -void -tw_cmd_free() -{ - CLRDIR(tw_dir_fd) - tw_str_free(&tw_cmd); - tw_cmd_got = 0; -} /* end tw_cmd_free */ - -/* tw_cmd_cmd(): - * Add system commands to the command list - */ -static void -tw_cmd_cmd() -{ - register DIR *dirp; - register struct dirent *dp; - register Char *dir = NULL, *name; - register Char **pv; - struct varent *v = adrof(STRpath); - struct varent *recexec = adrof(STRrecognize_only_executables); - int len; - - - if (v == NULL) /* if no path */ - return; - - for (pv = v->vec; *pv; pv++) { - if (pv[0][0] != '/') { - tw_cmd_got |= TW_FL_REL; - continue; - } - - if ((dirp = opendir(short2str(*pv))) == NULL) - continue; - - if (recexec) - dir = Strspl(*pv, STRslash); - while ((dp = readdir(dirp)) != NULL) { - /* the call to executable() may make this a bit slow */ - name = str2short(dp->d_name); - if (dp->d_ino == 0 || (recexec && !executable(dir, name, 0))) - continue; - len = (int) Strlen(name) + 2; - if (name[0] == '#' || /* emacs temp files */ - name[0] == '.' || /* .files */ - name[len - 3] == '~' || /* emacs backups */ - name[len - 3] == '%') /* textedit backups */ - continue; /* Ignore! */ - tw_cmd_add(name); - } - (void) closedir(dirp); - if (recexec) - xfree((ptr_t) dir); - } -} /* end tw_cmd_cmd */ - - -/* tw_cmd_builtin(): - * Add builtins to the command list - */ -static void -tw_cmd_builtin() -{ - register struct biltins *bptr; - - for (bptr = bfunc; bptr < &bfunc[nbfunc]; bptr++) - if (bptr->bname) - tw_cmd_add(str2short(bptr->bname)); -#ifdef WINNT - for (bptr = nt_bfunc; bptr < &nt_bfunc[nt_nbfunc]; bptr++) - if (bptr->bname) - tw_cmd_add(str2short(bptr->bname)); -#endif /* WINNT*/ -} /* end tw_cmd_builtin */ - - -/* tw_cmd_alias(): - * Add aliases to the command list - */ -static void -tw_cmd_alias() -{ - register struct varent *p; - register struct varent *c; - - p = &aliases; - for (;;) { - while (p->v_left) - p = p->v_left; -x: - if (p->v_parent == 0) /* is it the header? */ - return; - if (p->v_name) - tw_cmd_add(p->v_name); - if (p->v_right) { - p = p->v_right; - continue; - } - do { - c = p; - p = p->v_parent; - } while (p->v_right == c); - goto x; - } -} /* end tw_cmd_alias */ - - -/* tw_cmd_sort(): - * Sort the command list removing duplicate elements - */ -static void -tw_cmd_sort() -{ - int fwd, i; - - TW_HOLD(); - /* sort the list. */ - qsort((ptr_t) tw_cmd.list, (size_t) tw_cmd.nlist, sizeof(Char *), - (int (*) __P((const void *, const void *))) fcompare); - - /* get rid of multiple entries */ - for (i = 0, fwd = 0; i < tw_cmd.nlist - 1; i++) { - if (Strcmp(tw_cmd.list[i], tw_cmd.list[i + 1]) == 0) /* garbage */ - fwd++; /* increase the forward ref. count */ - else if (fwd) - tw_cmd.list[i - fwd] = tw_cmd.list[i]; - } - /* Fix fencepost error -- Theodore Ts'o <tytso@athena.mit.edu> */ - if (fwd) - tw_cmd.list[i - fwd] = tw_cmd.list[i]; - tw_cmd.nlist -= fwd; - TW_RELS(); -} /* end tw_cmd_sort */ - - -/* tw_cmd_start(): - * Get the command list and sort it, if not done yet. - * Reset the current pointer to the beginning of the command list - */ -/*ARGSUSED*/ -void -tw_cmd_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - static Char *defpath[] = { STRNULL, 0 }; - USE(pat); - SETDIR(dfd) - if ((tw_cmd_got & TW_FL_CMD) == 0) { - tw_cmd_free(); - tw_cmd_cmd(); - tw_cmd_got |= TW_FL_CMD; - } - if ((tw_cmd_got & TW_FL_ALIAS) == 0) { - tw_cmd_alias(); - tw_cmd_got &= ~TW_FL_SORT; - tw_cmd_got |= TW_FL_ALIAS; - } - if ((tw_cmd_got & TW_FL_BUILTIN) == 0) { - tw_cmd_builtin(); - tw_cmd_got &= ~TW_FL_SORT; - tw_cmd_got |= TW_FL_BUILTIN; - } - if ((tw_cmd_got & TW_FL_SORT) == 0) { - tw_cmd_sort(); - tw_cmd_got |= TW_FL_SORT; - } - - tw_cmd_state.cur = 0; - CLRDIR(tw_cmd_state.dfd) - if (tw_cmd_got & TW_FL_REL) { - struct varent *vp = adrof(STRpath); - if (vp && vp->vec) - tw_cmd_state.pathv = vp->vec; - else - tw_cmd_state.pathv = defpath; - } - else - tw_cmd_state.pathv = defpath; -} /* tw_cmd_start */ - - -/* tw_cmd_next(): - * Return the next element in the command list or - * Look for commands in the relative path components - */ -Char * -tw_cmd_next(dir, flags) - Char *dir; - int *flags; -{ - Char *ptr = NULL; - - if (tw_cmd_state.cur < tw_cmd.nlist) { - *flags = TW_DIR_OK; - return tw_cmd.list[tw_cmd_state.cur++]; - } - - /* - * We need to process relatives in the path. - */ - while (((tw_cmd_state.dfd == NULL) || - ((ptr = tw_dir_next(tw_cmd_state.dfd)) == NULL)) && - (*tw_cmd_state.pathv != NULL)) { - - CLRDIR(tw_cmd_state.dfd) - - while (*tw_cmd_state.pathv && tw_cmd_state.pathv[0][0] == '/') - tw_cmd_state.pathv++; - if ((ptr = *tw_cmd_state.pathv) != 0) { - /* - * We complete directories only on '.' should that - * be changed? - */ - if (ptr[0] == '\0' || (ptr[0] == '.' && ptr[1] == '\0')) { - *dir = '\0'; - tw_cmd_state.dfd = opendir("."); - *flags = TW_DIR_OK | TW_EXEC_CHK; - } - else { - copyn(dir, *tw_cmd_state.pathv, FILSIZ); - catn(dir, STRslash, FILSIZ); - tw_cmd_state.dfd = opendir(short2str(*tw_cmd_state.pathv)); - *flags = TW_EXEC_CHK; - } - tw_cmd_state.pathv++; - } - } - return ptr; -} /* end tw_cmd_next */ - - -/* tw_vptr_start(): - * Find the first variable in the variable list - */ -static void -tw_vptr_start(c) - struct varent *c; -{ - tw_vptr = c; /* start at beginning of variable list */ - - for (;;) { - while (tw_vptr->v_left) - tw_vptr = tw_vptr->v_left; -x: - if (tw_vptr->v_parent == 0) { /* is it the header? */ - tw_vptr = NULL; - return; - } - if (tw_vptr->v_name) - return; /* found first one */ - if (tw_vptr->v_right) { - tw_vptr = tw_vptr->v_right; - continue; - } - do { - c = tw_vptr; - tw_vptr = tw_vptr->v_parent; - } while (tw_vptr->v_right == c); - goto x; - } -} /* end tw_shvar_start */ - - -/* tw_shvar_next(): - * Return the next shell variable - */ -/*ARGSUSED*/ -Char * -tw_shvar_next(dir, flags) - Char *dir; - int *flags; -{ - register struct varent *p; - register struct varent *c; - register Char *cp; - - USE(flags); - USE(dir); - if ((p = tw_vptr) == NULL) - return (NULL); /* just in case */ - - cp = p->v_name; /* we know that this name is here now */ - - /* now find the next one */ - for (;;) { - if (p->v_right) { /* if we can go right */ - p = p->v_right; - while (p->v_left) - p = p->v_left; - } - else { /* else go up */ - do { - c = p; - p = p->v_parent; - } while (p->v_right == c); - } - if (p->v_parent == 0) { /* is it the header? */ - tw_vptr = NULL; - return (cp); - } - if (p->v_name) { - tw_vptr = p; /* save state for the next call */ - return (cp); - } - } -} /* end tw_shvar_next */ - - -/* tw_envvar_next(): - * Return the next environment variable - */ -/*ARGSUSED*/ -Char * -tw_envvar_next(dir, flags) - Char *dir; - int *flags; -{ - Char *ps, *pd; - - USE(flags); - USE(dir); - if (tw_env == NULL || *tw_env == NULL) - return (NULL); - for (ps = *tw_env, pd = tw_retname; - *ps && *ps != '=' && pd <= &tw_retname[MAXPATHLEN]; *pd++ = *ps++) - continue; - *pd = '\0'; - tw_env++; - return (tw_retname); -} /* end tw_envvar_next */ - - -/* tw_var_start(): - * Begin the list of the shell and environment variables - */ -/*ARGSUSED*/ -void -tw_var_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - USE(pat); - SETDIR(dfd) - tw_vptr_start(&shvhed); - tw_env = STR_environ; -} /* end tw_var_start */ - - -/* tw_alias_start(): - * Begin the list of the shell aliases - */ -/*ARGSUSED*/ -void -tw_alias_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - USE(pat); - SETDIR(dfd) - tw_vptr_start(&aliases); - tw_env = NULL; -} /* tw_alias_start */ - - -/* tw_complete_start(): - * Begin the list of completions - */ -/*ARGSUSED*/ -void -tw_complete_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - extern struct varent completions; - - USE(pat); - SETDIR(dfd) - tw_vptr_start(&completions); - tw_env = NULL; -} /* end tw_complete_start */ - - -/* tw_var_next(): - * Return the next shell or environment variable - */ -Char * -tw_var_next(dir, flags) - Char *dir; - int *flags; -{ - Char *ptr = NULL; - - if (tw_vptr) - ptr = tw_shvar_next(dir, flags); - if (!ptr && tw_env) - ptr = tw_envvar_next(dir, flags); - return ptr; -} /* end tw_var_next */ - - -/* tw_logname_start(): - * Initialize lognames to the beginning of the list - */ -/*ARGSUSED*/ -void -tw_logname_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - USE(pat); - SETDIR(dfd) -#if !defined(_VMS_POSIX) && !defined(WINNT) - (void) setpwent(); /* Open passwd file */ -#endif /* !_VMS_POSIX && !WINNT */ -} /* end tw_logname_start */ - - -/* tw_logname_next(): - * Return the next entry from the passwd file - */ -/*ARGSUSED*/ -Char * -tw_logname_next(dir, flags) - Char *dir; - int *flags; -{ - static Char retname[MAXPATHLEN]; - struct passwd *pw; - /* - * We don't want to get interrupted inside getpwent() - * because the yellow pages code is not interruptible, - * and if we call endpwent() immediatetely after - * (in pintr()) we may be freeing an invalid pointer - */ - USE(flags); - USE(dir); - TW_HOLD(); -#if !defined(_VMS_POSIX) && !defined(WINNT) - /* ISC does not declare getpwent()? */ - pw = (struct passwd *) getpwent(); -#else /* _VMS_POSIX || WINNT */ - pw = NULL; -#endif /* !_VMS_POSIX && !WINNT */ - TW_RELS(); - - if (pw == NULL) { -#ifdef YPBUGS - fix_yp_bugs(); -#endif - return (NULL); - } - (void) Strcpy(retname, str2short(pw->pw_name)); - return (retname); -} /* end tw_logname_next */ - - -/* tw_logname_end(): - * Close the passwd file to finish the logname list - */ -void -tw_logname_end() -{ -#ifdef YPBUGS - fix_yp_bugs(); -#endif -#if !defined(_VMS_POSIX) && !defined(WINNT) - (void) endpwent(); -#endif /* !_VMS_POSIX && !WINNT */ -} /* end tw_logname_end */ - - -/* tw_grpname_start(): - * Initialize grpnames to the beginning of the list - */ -/*ARGSUSED*/ -void -tw_grpname_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - USE(pat); - SETDIR(dfd) -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT) - (void) setgrent(); /* Open group file */ -#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT */ -} /* end tw_grpname_start */ - - -/* tw_grpname_next(): - * Return the next entry from the group file - */ -/*ARGSUSED*/ -Char * -tw_grpname_next(dir, flags) - Char *dir; - int *flags; -{ - static Char retname[MAXPATHLEN]; - struct group *gr; - /* - * We don't want to get interrupted inside getgrent() - * because the yellow pages code is not interruptible, - * and if we call endgrent() immediatetely after - * (in pintr()) we may be freeing an invalid pointer - */ - USE(flags); - USE(dir); - TW_HOLD(); -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT) - gr = (struct group *) getgrent(); -#else /* _VMS_POSIX || _OSD_POSIX || WINNT */ - gr = NULL; -#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT */ - TW_RELS(); - - if (gr == NULL) { -#ifdef YPBUGS - fix_yp_bugs(); -#endif - return (NULL); - } - (void) Strcpy(retname, str2short(gr->gr_name)); - return (retname); -} /* end tw_grpname_next */ - - -/* tw_grpname_end(): - * Close the group file to finish the groupname list - */ -void -tw_grpname_end() -{ -#ifdef YPBUGS - fix_yp_bugs(); -#endif -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT) - (void) endgrent(); -#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT */ -} /* end tw_grpname_end */ - -/* tw_file_start(): - * Initialize the directory for the file list - */ -/*ARGSUSED*/ -void -tw_file_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - struct varent *vp; - USE(pat); - SETDIR(dfd) - if ((vp = adrof(STRcdpath)) != NULL) - tw_env = vp->vec; -} /* end tw_file_start */ - - -/* tw_file_next(): - * Return the next file in the directory - */ -Char * -tw_file_next(dir, flags) - Char *dir; - int *flags; -{ - Char *ptr = tw_dir_next(tw_dir_fd); - if (ptr == NULL && (*flags & TW_DIR_OK) != 0) { - CLRDIR(tw_dir_fd) - while (tw_env && *tw_env) - if ((tw_dir_fd = opendir(short2str(*tw_env))) != NULL) - break; - else - tw_env++; - - if (tw_dir_fd) { - copyn(dir, *tw_env++, MAXPATHLEN); - catn(dir, STRslash, MAXPATHLEN); - ptr = tw_dir_next(tw_dir_fd); - } - } - return ptr; -} /* end tw_file_next */ - - -/* tw_dir_end(): - * Clear directory related lists - */ -void -tw_dir_end() -{ - CLRDIR(tw_dir_fd) - CLRDIR(tw_cmd_state.dfd) -} /* end tw_dir_end */ - - -/* tw_item_free(): - * Free the item list - */ -void -tw_item_free() -{ - tw_str_free(&tw_item); -} /* end tw_item_free */ - - -/* tw_item_get(): - * Return the list of items - */ -Char ** -tw_item_get() -{ - return tw_item.list; -} /* end tw_item_get */ - - -/* tw_item_add(): - * Return a new item - */ -Char * -tw_item_add(len) - int len; -{ - return tw_str_add(&tw_item, len); -} /* tw_item_add */ - - -/* tw_item_find(): - * Find the string if it exists in the item list - * end return it. - */ -Char * -tw_item_find(str) - Char *str; -{ - int i; - - if (tw_item.list == NULL || str == NULL) - return NULL; - - for (i = 0; i < tw_item.nlist; i++) - if (tw_item.list[i] != NULL && Strcmp(tw_item.list[i], str) == 0) - return tw_item.list[i]; - return NULL; -} /* end tw_item_find */ - - -/* tw_vl_start(): - * Initialize a variable list - */ -void -tw_vl_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - SETDIR(dfd) - if ((tw_vptr = adrof(pat)) != NULL) { - tw_env = tw_vptr->vec; - tw_vptr = NULL; - } - else - tw_env = NULL; -} /* end tw_vl_start */ - - -/* - * Initialize a word list - */ -void -tw_wl_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - SETDIR(dfd); - tw_word = pat; -} /* end tw_wl_start */ - - -/* - * Return the next word from the word list - */ -/*ARGSUSED*/ -Char * -tw_wl_next(dir, flags) - Char *dir; - int *flags; -{ - USE(flags); - if (tw_word == NULL || tw_word[0] == '\0') - return NULL; - - while (*tw_word && Isspace(*tw_word)) tw_word++; - - for (dir = tw_word; *tw_word && !Isspace(*tw_word); tw_word++) - continue; - if (*tw_word) - *tw_word++ = '\0'; - return *dir ? dir : NULL; -} /* end tw_wl_next */ - - -/* tw_bind_start(): - * Begin the list of the shell bindings - */ -/*ARGSUSED*/ -void -tw_bind_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - USE(pat); - SETDIR(dfd) - tw_bind = FuncNames; -} /* end tw_bind_start */ - - -/* tw_bind_next(): - * Begin the list of the shell bindings - */ -/*ARGSUSED*/ -Char * -tw_bind_next(dir, flags) - Char *dir; - int *flags; -{ - char *ptr; - USE(flags); - if (tw_bind && tw_bind->name) { - for (ptr = tw_bind->name, dir = tw_retname; - (*dir++ = (Char) *ptr++) != '\0';) - continue; - tw_bind++; - return(tw_retname); - } - return NULL; -} /* end tw_bind_next */ - - -/* tw_limit_start(): - * Begin the list of the shell limitings - */ -/*ARGSUSED*/ -void -tw_limit_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - USE(pat); - SETDIR(dfd) -#ifndef HAVENOLIMIT - tw_limit = limits; -#endif /* ! HAVENOLIMIT */ -} /* end tw_limit_start */ - - -/* tw_limit_next(): - * Begin the list of the shell limitings - */ -/*ARGSUSED*/ -Char * -tw_limit_next(dir, flags) - Char *dir; - int *flags; -{ -#ifndef HAVENOLIMIT - char *ptr; - if (tw_limit && tw_limit->limname) { - for (ptr = tw_limit->limname, dir = tw_retname; - (*dir++ = (Char) *ptr++) != '\0';) - continue; - tw_limit++; - return(tw_retname); - } -#endif /* ! HAVENOLIMIT */ - USE(flags); - return NULL; -} /* end tw_limit_next */ - - -/* tw_sig_start(): - * Begin the list of the shell sigings - */ -/*ARGSUSED*/ -void -tw_sig_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - USE(pat); - SETDIR(dfd) - tw_index = 0; -} /* end tw_sig_start */ - - -/* tw_sig_next(): - * Begin the list of the shell sigings - */ -/*ARGSUSED*/ -Char * -tw_sig_next(dir, flags) - Char *dir; - int *flags; -{ - char *ptr; - extern int nsig; - USE(flags); - for (;tw_index < nsig; tw_index++) { - - if (mesg[tw_index].iname == NULL) - continue; - - for (ptr = mesg[tw_index].iname, dir = tw_retname; - (*dir++ = (Char) *ptr++) != '\0';) - continue; - tw_index++; - return(tw_retname); - } - return NULL; -} /* end tw_sig_next */ - - -/* tw_job_start(): - * Begin the list of the shell jobings - */ -/*ARGSUSED*/ -void -tw_job_start(dfd, pat) - DIR *dfd; - Char *pat; -{ - USE(pat); - SETDIR(dfd) - tw_index = 1; -} /* end tw_job_start */ - - -/* tw_job_next(): - * Begin the list of the shell jobings - */ -/*ARGSUSED*/ -Char * -tw_job_next(dir, flags) - Char *dir; - int *flags; -{ - Char *ptr; - struct process *j; - - USE(flags); - for (;tw_index <= pmaxindex; tw_index++) { - for (j = proclist.p_next; j != NULL; j = j->p_next) - if (j->p_index == tw_index && j->p_procid == j->p_jobid) - break; - if (j == NULL) - continue; - for (ptr = j->p_command, dir = tw_retname; (*dir++ = *ptr++) != '\0';) - continue; - *dir = '\0'; - tw_index++; - return(tw_retname); - } - return NULL; -} /* end tw_job_next */ diff --git a/contrib/tcsh/tw.parse.c b/contrib/tcsh/tw.parse.c deleted file mode 100644 index af3f1338df64..000000000000 --- a/contrib/tcsh/tw.parse.c +++ /dev/null @@ -1,2251 +0,0 @@ -/* $Header: /src/pub/tcsh/tw.parse.c,v 3.87 2000/01/14 22:57:30 christos Exp $ */ -/* - * tw.parse.c: Everyone has taken a shot in this futile effort to - * lexically analyze a csh line... Well we cannot good - * a job as good as sh.lex.c; but we try. Amazing that - * it works considering how many hands have touched this code - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tw.parse.c,v 3.87 2000/01/14 22:57:30 christos Exp $") - -#include "tw.h" -#include "ed.h" -#include "tc.h" - -#ifdef WINNT -#include "nt.const.h" -#endif /* WINNT */ -#define EVEN(x) (((x) & 1) != 1) - -#define DOT_NONE 0 /* Don't display dot files */ -#define DOT_NOT 1 /* Don't display dot or dot-dot */ -#define DOT_ALL 2 /* Display all dot files */ - -/* TW_NONE, TW_COMMAND, TW_VARIABLE, TW_LOGNAME, */ -/* TW_FILE, TW_DIRECTORY, TW_VARLIST, TW_USER, */ -/* TW_COMPLETION, TW_ALIAS, TW_SHELLVAR, TW_ENVVAR, */ -/* TW_BINDING, TW_WORDLIST, TW_LIMIT, TW_SIGNAL */ -/* TW_JOB, TW_EXPLAIN, TW_TEXT, TW_GRPNAME */ -static void (*tw_start_entry[]) __P((DIR *, Char *)) = { - tw_file_start, tw_cmd_start, tw_var_start, tw_logname_start, - tw_file_start, tw_file_start, tw_vl_start, tw_logname_start, - tw_complete_start, tw_alias_start, tw_var_start, tw_var_start, - tw_bind_start, tw_wl_start, tw_limit_start, tw_sig_start, - tw_job_start, tw_file_start, tw_file_start, tw_grpname_start -}; - -static Char * (*tw_next_entry[]) __P((Char *, int *)) = { - tw_file_next, tw_cmd_next, tw_var_next, tw_logname_next, - tw_file_next, tw_file_next, tw_var_next, tw_logname_next, - tw_var_next, tw_var_next, tw_shvar_next, tw_envvar_next, - tw_bind_next, tw_wl_next, tw_limit_next, tw_sig_next, - tw_job_next, tw_file_next, tw_file_next, tw_grpname_next -}; - -static void (*tw_end_entry[]) __P((void)) = { - tw_dir_end, tw_dir_end, tw_dir_end, tw_logname_end, - tw_dir_end, tw_dir_end, tw_dir_end, tw_logname_end, - tw_dir_end, tw_dir_end, tw_dir_end, tw_dir_end, - tw_dir_end, tw_dir_end, tw_dir_end, tw_dir_end, - tw_dir_end, tw_dir_end, tw_dir_end, tw_grpname_end -}; - -/* #define TDEBUG */ - -/* Set to TRUE if recexact is set and an exact match is found - * along with other, longer, matches. - */ - -int curchoice = -1; - -int match_unique_match = FALSE; -int non_unique_match = FALSE; -static bool SearchNoDirErr = 0; /* t_search returns -2 if dir is unreadable */ - -/* state so if a completion is interrupted, the input line doesn't get - nuked */ -int InsideCompletion = 0; - -/* do the expand or list on the command line -- SHOULD BE REPLACED */ - -extern Char NeedsRedraw; /* from ed.h */ -extern int Tty_raw_mode; -extern int TermH; /* from the editor routines */ -extern int lbuffed; /* from sh.print.c */ - -static void extract_dir_and_name __P((Char *, Char *, Char *)); -static int insert_meta __P((Char *, Char *, Char *, bool)); -static Char *tilde __P((Char *, Char *)); -static int expand_dir __P((Char *, Char *, DIR **, COMMAND)); -static bool nostat __P((Char *)); -static Char filetype __P((Char *, Char *)); -static int t_glob __P((Char ***, int)); -static int c_glob __P((Char ***)); -static int is_prefix __P((Char *, Char *)); -static int is_prefixmatch __P((Char *, Char *, int)); -static int is_suffix __P((Char *, Char *)); -static int recognize __P((Char *, Char *, int, int, int)); -static int ignored __P((Char *)); -static int isadirectory __P((Char *, Char *)); -static int tw_collect_items __P((COMMAND, int, Char *, Char *, - Char *, Char *, int)); -static int tw_collect __P((COMMAND, int, Char *, Char *, - Char **, Char *, int, DIR *)); -static Char tw_suffix __P((int, Char *, Char *, Char *, - Char *)); -static void tw_fixword __P((int, Char *, Char *, Char *, int)); -static void tw_list_items __P((int, int, int)); -static void add_scroll_tab __P((Char *)); -static void choose_scroll_tab __P((Char **, int)); -static void free_scroll_tab __P((void)); -static int find_rows __P((Char *[], int, int)); - -#ifdef notdef -/* - * If we find a set command, then we break a=b to a= and word becomes - * b else, we don't break a=b. [don't use that; splits words badly and - * messes up tw_complete()] - */ -#define isaset(c, w) ((w)[-1] == '=' && \ - ((c)[0] == 's' && (c)[1] == 'e' && (c)[2] == 't' && \ - ((c[3] == ' ' || (c)[3] == '\t')))) -#endif - -#define QLINESIZE (INBUFSIZE + 1) - -/* TRUE if character must be quoted */ -#define tricky(w) (cmap(w, _META | _DOL | _QF | _QB | _ESC | _GLOB) && w != '#') -/* TRUE if double quotes don't protect character */ -#define tricky_dq(w) (cmap(w, _DOL | _QB)) - -/* tenematch(): - * Return: - * > 1: No. of items found - * = 1: Exactly one match / spelling corrected - * = 0: No match / spelling was correct - * < 0: Error (incl spelling correction impossible) - */ -int -tenematch(inputline, num_read, command) - Char *inputline; /* match string prefix */ - int num_read; /* # actually in inputline */ - COMMAND command; /* LIST or RECOGNIZE or PRINT_HELP */ - -{ - Char qline[QLINESIZE]; - Char qu = 0, *pat = STRNULL; - Char *str_end, *cp, *wp, *wordp; - Char *cmd_start, *word_start, *word; - Char *ocmd_start = NULL, *oword_start = NULL, *oword = NULL; - int suf = 0; - int space_left; - int looking; /* what we are looking for */ - int search_ret; /* what search returned for debugging */ - int backq = 0; - - if (num_read > QLINESIZE - 1) - return -1; - str_end = &inputline[num_read]; - - word_start = inputline; - word = cmd_start = wp = qline; - for (cp = inputline; cp < str_end; cp++) { - if (!cmap(qu, _ESC)) { - if (cmap(*cp, _QF|_ESC)) { - if (qu == 0 || qu == *cp) { - qu ^= *cp; - continue; - } - } - if (qu != '\'' && cmap(*cp, _QB)) { - if ((backq ^= 1) != 0) { - ocmd_start = cmd_start; - oword_start = word_start; - oword = word; - word_start = cp + 1; - word = cmd_start = wp + 1; - } - else { - cmd_start = ocmd_start; - word_start = oword_start; - word = oword; - } - *wp++ = *cp; - continue; - } - } - if (iscmdmeta(*cp)) - cmd_start = wp + 1; - - /* Don't quote '/' to make the recognize stuff work easily */ - /* Don't quote '$' in double quotes */ - - if (cmap(*cp, _ESC) && cp < str_end - 1 && cp[1] == HIST) - *wp = *++cp | QUOTE; - else if (qu && (tricky(*cp) || *cp == '~') && !(qu == '\"' && tricky_dq(*cp))) - *wp = *cp | QUOTE; - else - *wp = *cp; - if (ismetahash(*wp) /* || isaset(cmd_start, wp + 1) */) - word = wp + 1, word_start = cp + 1; - wp++; - if (cmap(qu, _ESC)) - qu = 0; - } - *wp = 0; - -#ifdef masscomp - /* - * Avoid a nasty message from the RTU 4.1A & RTU 5.0 compiler concerning - * the "overuse of registers". According to the compiler release notes, - * incorrect code may be produced unless the offending expression is - * rewritten. Therefore, we can't just ignore it, DAS DEC-90. - */ - space_left = QLINESIZE - 1; - space_left -= word - qline; -#else - space_left = QLINESIZE - 1 - (int) (word - qline); -#endif - - /* - * SPECIAL HARDCODED COMPLETIONS: - * first word of command -> TW_COMMAND - * everything else -> TW_ZERO - * - */ - looking = starting_a_command(word - 1, qline) ? - TW_COMMAND : TW_ZERO; - - wordp = word; - -#ifdef TDEBUG - xprintf(CGETS(30, 1, "starting_a_command %d\n"), looking); - xprintf("\ncmd_start:%S:\n", cmd_start); - xprintf("qline:%S:\n", qline); - xprintf("qline:"); - for (wp = qline; *wp; wp++) - xprintf("%c", *wp & QUOTE ? '-' : ' '); - xprintf(":\n"); - xprintf("word:%S:\n", word); - xprintf("word:"); - /* Must be last, so wp is still pointing to the end of word */ - for (wp = word; *wp; wp++) - xprintf("%c", *wp & QUOTE ? '-' : ' '); - xprintf(":\n"); -#endif - - if ((looking == TW_COMMAND || looking == TW_ZERO) && - (command == RECOGNIZE || command == LIST || command == SPELL || - command == RECOGNIZE_SCROLL)) { -#ifdef TDEBUG - xprintf(CGETS(30, 2, "complete %d "), looking); -#endif - looking = tw_complete(cmd_start, &wordp, &pat, looking, &suf); -#ifdef TDEBUG - xprintf(CGETS(30, 3, "complete %d %S\n"), looking, pat); -#endif - } - - switch (command) { - Char buffer[FILSIZ + 1], *bptr; - Char *slshp; - Char *items[2], **ptr; - int i, count; - - case RECOGNIZE: - case RECOGNIZE_SCROLL: - case RECOGNIZE_ALL: - if (adrof(STRautocorrect)) { - if ((slshp = Strrchr(wordp, '/')) != NULL && slshp[1] != '\0') { - SearchNoDirErr = 1; - for (bptr = wordp; bptr < slshp; bptr++) { - /* - * do not try to correct spelling of words containing - * globbing characters - */ - if (isglob(*bptr)) { - SearchNoDirErr = 0; - break; - } - } - } - } - else - slshp = STRNULL; - search_ret = t_search(wordp, wp, command, space_left, looking, 1, - pat, suf); - SearchNoDirErr = 0; - - if (search_ret == -2) { - Char rword[FILSIZ + 1]; - - (void) Strcpy(rword, slshp); - if (slshp != STRNULL) - *slshp = '\0'; - search_ret = spell_me(wordp, QLINESIZE - (wordp - qline), looking, - pat, suf); - if (search_ret == 1) { - (void) Strcat(wordp, rword); - wp = wordp + (int) Strlen(wordp); - search_ret = t_search(wordp, wp, command, space_left, - looking, 1, pat, suf); - } - } - if (*wp && insert_meta(word_start, str_end, word, !qu) < 0) - return -1; /* error inserting */ - return search_ret; - - case SPELL: - for (bptr = word_start; bptr < str_end; bptr++) { - /* - * do not try to correct spelling of words containing globbing - * characters - */ - if (isglob(*bptr)) - return 0; - } - search_ret = spell_me(wordp, QLINESIZE - (wordp - qline), looking, - pat, suf); - if (search_ret == 1) { - if (insert_meta(word_start, str_end, word, !qu) < 0) - return -1; /* error inserting */ - } - return search_ret; - - case PRINT_HELP: - do_help(cmd_start); - return 1; - - case GLOB: - case GLOB_EXPAND: - (void) Strncpy(buffer, wordp, FILSIZ + 1); - items[0] = buffer; - items[1] = NULL; - ptr = items; - count = (looking == TW_COMMAND && Strchr(wordp, '/') == 0) ? - c_glob(&ptr) : - t_glob(&ptr, looking == TW_COMMAND); - if (count > 0) { - if (command == GLOB) - print_by_column(STRNULL, ptr, count, 0); - else { - DeleteBack(str_end - word_start);/* get rid of old word */ - for (i = 0; i < count; i++) - if (ptr[i] && *ptr[i]) { - (void) quote(ptr[i]); - if (insert_meta(0, 0, ptr[i], 0) < 0 || - InsertStr(STRspace) < 0) { - blkfree(ptr); - return -1; /* error inserting */ - } - } - } - blkfree(ptr); - } - return count; - - case VARS_EXPAND: - if (dollar(buffer, word)) { - if (insert_meta(word_start, str_end, buffer, !qu) < 0) - return -1; /* error inserting */ - return 1; - } - return 0; - - case PATH_NORMALIZE: - if ((bptr = dnormalize(wordp, symlinks == SYM_IGNORE || - symlinks == SYM_EXPAND)) != NULL) { - (void) Strcpy(buffer, bptr); - xfree((ptr_t) bptr); - if (insert_meta(word_start, str_end, buffer, !qu) < 0) - return -1; /* error inserting */ - return 1; - } - return 0; - - case COMMAND_NORMALIZE: - if (!cmd_expand(wordp, buffer)) - return 0; - if (insert_meta(word_start, str_end, buffer, !qu) < 0) - return -1; /* error inserting */ - return 1; - - case LIST: - case LIST_ALL: - search_ret = t_search(wordp, wp, LIST, space_left, looking, 1, - pat, suf); - return search_ret; - - default: - xprintf(CGETS(30, 4, "%s: Internal match error.\n"), progname); - return 1; - - } -} /* end tenematch */ - - -/* t_glob(): - * Return a list of files that match the pattern - */ -static int -t_glob(v, cmd) - register Char ***v; - int cmd; -{ - jmp_buf_t osetexit; - - if (**v == 0) - return (0); - gflag = 0, tglob(*v); - if (gflag) { - getexit(osetexit); /* make sure to come back here */ - if (setexit() == 0) - *v = globall(*v); - resexit(osetexit); - gargv = 0; - if (haderr) { - haderr = 0; - NeedsRedraw = 1; - return (-1); - } - if (*v == 0) - return (0); - } - else - return (0); - - if (cmd) { - Char **av = *v, *p; - int fwd, i, ac = gargc; - - for (i = 0, fwd = 0; i < ac; i++) - if (!executable(NULL, av[i], 0)) { - fwd++; - p = av[i]; - av[i] = NULL; - xfree((ptr_t) p); - } - else if (fwd) - av[i - fwd] = av[i]; - - if (fwd) - av[i - fwd] = av[i]; - gargc -= fwd; - av[gargc] = NULL; - } - - return (gargc); -} /* end t_glob */ - - -/* c_glob(): - * Return a list of commands that match the pattern - */ -static int -c_glob(v) - register Char ***v; -{ - Char *pat = **v, *cmd, **av; - Char dir[MAXPATHLEN+1]; - int flag, at, ac; - - if (pat == NULL) - return (0); - - ac = 0; - at = 10; - av = (Char **) xmalloc((size_t) (at * sizeof(Char *))); - av[ac] = NULL; - - tw_cmd_start(NULL, NULL); - while ((cmd = tw_cmd_next(dir, &flag)) != NULL) - if (Gmatch(cmd, pat)) { - if (ac + 1 >= at) { - at += 10; - av = (Char **) xrealloc((ptr_t) av, - (size_t) (at * sizeof(Char *))); - } - av[ac++] = Strsave(cmd); - av[ac] = NULL; - } - tw_dir_end(); - *v = av; - - return (ac); -} /* end c_glob */ - - -/* insert_meta(): - * change the word before the cursor. - * cp must point to the start of the unquoted word. - * cpend to the end of it. - * word is the text that has to be substituted. - * strategy: - * try to keep all the quote characters of the user's input. - * change quote type only if necessary. - */ -static int -insert_meta(cp, cpend, word, closequotes) - Char *cp; - Char *cpend; - Char *word; - bool closequotes; -{ - Char buffer[2 * FILSIZ + 1], *bptr, *wptr; - int in_sync = (cp != NULL); - int qu = 0; - int ndel = (int) (cp ? cpend - cp : 0); - Char w, wq; -#ifdef DSPMBYTE - int mbytepos = 1; -#endif /* DSPMBYTE */ - - for (bptr = buffer, wptr = word;;) { - if (bptr > buffer + 2 * FILSIZ - 5) - break; - - if (cp >= cpend) - in_sync = 0; -#ifdef DSPMBYTE - if (mbytepos == 1) -#endif /* DSPMBYTE */ - if (in_sync && !cmap(qu, _ESC) && cmap(*cp, _QF|_ESC)) - if (qu == 0 || qu == *cp) { - qu ^= *cp; - *bptr++ = *cp++; - continue; - } - w = *wptr; - if (w == 0) - break; - - wq = w & QUOTE; - w &= ~QUOTE; - -#ifdef DSPMBYTE - if (mbytepos == 2) - goto mbyteskip; -#endif /* DSPMBYTE */ - if (cmap(w, _ESC | _QF)) - wq = QUOTE; /* quotes are always quoted */ - - if (!wq && qu && tricky(w) && !(qu == '\"' && tricky_dq(w))) { - /* We have to unquote the character */ - in_sync = 0; - if (cmap(qu, _ESC)) - bptr[-1] = w; - else { - *bptr++ = (Char) qu; - *bptr++ = w; - if (wptr[1] == 0) - qu = 0; - else - *bptr++ = (Char) qu; - } - } else if (qu && w == qu) { - in_sync = 0; - if (bptr > buffer && bptr[-1] == qu) { - /* User misunderstanding :) */ - bptr[-1] = '\\'; - *bptr++ = w; - qu = 0; - } else { - *bptr++ = (Char) qu; - *bptr++ = '\\'; - *bptr++ = w; - *bptr++ = (Char) qu; - } - } - else if (wq && qu == '\"' && tricky_dq(w)) { - in_sync = 0; - *bptr++ = (Char) qu; - *bptr++ = '\\'; - *bptr++ = w; - *bptr++ = (Char) qu; - } else if (wq && ((!qu && (tricky(w) || (w == HISTSUB && bptr == buffer))) || (!cmap(qu, _ESC) && w == HIST))) { - in_sync = 0; - *bptr++ = '\\'; - *bptr++ = w; - } else { -#ifdef DSPMBYTE - mbyteskip: -#endif /* DSPMBYTE */ - if (in_sync && *cp++ != w) - in_sync = 0; - *bptr++ = w; -#ifdef DSPMBYTE - if (mbytepos == 1 && Ismbyte1(w)) - mbytepos = 2; - else - mbytepos = 1; -#endif /* DSPMBYTE */ - } - wptr++; - if (cmap(qu, _ESC)) - qu = 0; - } - if (closequotes && qu && !cmap(qu, _ESC)) - *bptr++ = (Char) qu; - *bptr = '\0'; - if (ndel) - DeleteBack(ndel); - return InsertStr(buffer); -} /* end insert_meta */ - - - -/* is_prefix(): - * return true if check matches initial chars in template - * This differs from PWB imatch in that if check is null - * it matches anything - */ -static int -is_prefix(check, template) - register Char *check, *template; -{ - for (; *check; check++, template++) - if ((*check & TRIM) != (*template & TRIM)) - return (FALSE); - return (TRUE); -} /* end is_prefix */ - - -/* is_prefixmatch(): - * return true if check matches initial chars in template - * This differs from PWB imatch in that if check is null - * it matches anything - * and matches on shortening of commands - */ -static int -is_prefixmatch(check, template, igncase) - Char *check, *template; - int igncase; -{ - Char MCH1, MCH2; - - for (; *check; check++, template++) { - if ((*check & TRIM) != (*template & TRIM)) { - MCH1 = (*check & TRIM); - MCH2 = (*template & TRIM); - MCH1 = Isupper(MCH1) ? Tolower(MCH1) : MCH1; - MCH2 = Isupper(MCH2) ? Tolower(MCH2) : MCH2; - if (MCH1 != MCH2) { - if (!igncase && ((*check & TRIM) == '-' || - (*check & TRIM) == '.' || - (*check & TRIM) == '_')) { - MCH1 = MCH2 = (*check & TRIM); - if (MCH1 == '_') { - MCH2 = '-'; - } else if (MCH1 == '-') { - MCH2 = '_'; - } - for (;*template && (*template & TRIM) != MCH1 && - (*template & TRIM) != MCH2; template++) - continue; - if (!*template) { - return (FALSE); - } - } else { - return (FALSE); - } - } - } - } - return (TRUE); -} /* end is_prefixmatch */ - - -/* is_suffix(): - * Return true if the chars in template appear at the - * end of check, I.e., are it's suffix. - */ -static int -is_suffix(check, template) - register Char *check, *template; -{ - register Char *t, *c; - - for (t = template; *t++;) - continue; - for (c = check; *c++;) - continue; - for (;;) { - if (t == template) - return 1; - if (c == check || (*--t & TRIM) != (*--c & TRIM)) - return 0; - } -} /* end is_suffix */ - - -/* ignored(): - * Return true if this is an ignored item - */ -static int -ignored(item) - register Char *item; -{ - struct varent *vp; - register Char **cp; - - if ((vp = adrof(STRfignore)) == NULL || (cp = vp->vec) == NULL) - return (FALSE); - for (; *cp != NULL; cp++) - if (is_suffix(item, *cp)) - return (TRUE); - return (FALSE); -} /* end ignored */ - - - -/* starting_a_command(): - * return true if the command starting at wordstart is a command - */ -int -starting_a_command(wordstart, inputline) - register Char *wordstart, *inputline; -{ - register Char *ptr, *ncmdstart; - int count; - static Char - cmdstart[] = {'`', ';', '&', '(', '|', '\0'}, - cmdalive[] = {' ', '\t', '\'', '"', '<', '>', '\0'}; - - /* - * Find if the number of backquotes is odd or even. - */ - for (ptr = wordstart, count = 0; - ptr >= inputline; - count += (*ptr-- == '`')) - continue; - /* - * if the number of backquotes is even don't include the backquote char in - * the list of command starting delimiters [if it is zero, then it does not - * matter] - */ - ncmdstart = cmdstart + EVEN(count); - - /* - * look for the characters previous to this word if we find a command - * starting delimiter we break. if we find whitespace and another previous - * word then we are not a command - * - * count is our state machine: 0 looking for anything 1 found white-space - * looking for non-ws - */ - for (count = 0; wordstart >= inputline; wordstart--) { - if (*wordstart == '\0') - continue; - if (Strchr(ncmdstart, *wordstart)) - break; - /* - * found white space - */ - if ((ptr = Strchr(cmdalive, *wordstart)) != NULL) - count = 1; - if (count == 1 && !ptr) - return (FALSE); - } - - if (wordstart > inputline) - switch (*wordstart) { - case '&': /* Look for >& */ - while (wordstart > inputline && - (*--wordstart == ' ' || *wordstart == '\t')) - continue; - if (*wordstart == '>') - return (FALSE); - break; - case '(': /* check for foreach, if etc. */ - while (wordstart > inputline && - (*--wordstart == ' ' || *wordstart == '\t')) - continue; - if (!iscmdmeta(*wordstart) && - (*wordstart != ' ' && *wordstart != '\t')) - return (FALSE); - break; - default: - break; - } - return (TRUE); -} /* end starting_a_command */ - - -/* recognize(): - * Object: extend what user typed up to an ambiguity. - * Algorithm: - * On first match, copy full item (assume it'll be the only match) - * On subsequent matches, shorten exp_name to the first - * character mismatch between exp_name and item. - * If we shorten it back to the prefix length, stop searching. - */ -static int -recognize(exp_name, item, name_length, numitems, enhanced) - Char *exp_name, *item; - int name_length, numitems, enhanced; -{ - Char MCH1, MCH2; - register Char *x, *ent; - register int len = 0; -#ifdef WINNT - struct varent *vp; - int igncase; - igncase = (vp = adrof(STRcomplete)) != NULL && - Strcmp(*(vp->vec), STRigncase) == 0; -#endif /* WINNT */ - - if (numitems == 1) { /* 1st match */ - copyn(exp_name, item, MAXNAMLEN); - return (0); - } - if (!enhanced -#ifdef WINNT - && !igncase -#endif /* WINNT */ - ) { - for (x = exp_name, ent = item; *x && (*x & TRIM) == (*ent & TRIM); x++, ent++) - len++; - } else { - for (x = exp_name, ent = item; *x; x++, ent++) { - MCH1 = *x & TRIM; - MCH2 = *ent & TRIM; - MCH1 = Isupper(MCH1) ? Tolower(MCH1) : MCH1; - MCH2 = Isupper(MCH2) ? Tolower(MCH2) : MCH2; - if (MCH1 != MCH2) - break; - len++; - } - if (*x || !*ent) /* Shorter or exact match */ - copyn(exp_name, item, MAXNAMLEN); - } - *x = '\0'; /* Shorten at 1st char diff */ - if (!(match_unique_match || is_set(STRrecexact) || (enhanced && *ent)) && len == name_length) /* Ambiguous to prefix? */ - return (-1); /* So stop now and save time */ - return (0); -} /* end recognize */ - - -/* tw_collect_items(): - * Collect items that match target. - * SPELL command: - * Returns the spelling distance of the closest match. - * else - * Returns the number of items found. - * If none found, but some ignored items were found, - * It returns the -number of ignored items. - */ -static int -tw_collect_items(command, looking, exp_dir, exp_name, target, pat, flags) - COMMAND command; - int looking; - Char *exp_dir, *exp_name, *target, *pat; - int flags; - -{ - int done = FALSE; /* Search is done */ - int showdots; /* Style to show dot files */ - int nignored = 0; /* Number of fignored items */ - int numitems = 0; /* Number of matched items */ - int name_length = (int) Strlen(target); /* Length of prefix (file name) */ - int exec_check = flags & TW_EXEC_CHK;/* need to check executability */ - int dir_check = flags & TW_DIR_CHK; /* Need to check for directories */ - int text_check = flags & TW_TEXT_CHK;/* Need to check for non-directories */ - int dir_ok = flags & TW_DIR_OK; /* Ignore directories? */ - int gpat = flags & TW_PAT_OK; /* Match against a pattern */ - int ignoring = flags & TW_IGN_OK; /* Use fignore? */ - int d = 4, nd; /* Spelling distance */ - Char *item, *ptr; - Char buf[MAXPATHLEN+1]; - struct varent *vp; - int len, enhanced; - int cnt = 0; - int igncase = 0; - - - flags = 0; - - showdots = DOT_NONE; - if ((ptr = varval(STRlistflags)) != STRNULL) - while (*ptr) - switch (*ptr++) { - case 'a': - showdots = DOT_ALL; - break; - case 'A': - showdots = DOT_NOT; - break; - default: - break; - } - - while (!done && (item = (*tw_next_entry[looking])(exp_dir, &flags))) { -#ifdef TDEBUG - xprintf("item = %S\n", item); -#endif - switch (looking) { - case TW_FILE: - case TW_DIRECTORY: - case TW_TEXT: - /* - * Don't match . files on null prefix match - */ - if (showdots == DOT_NOT && (ISDOT(item) || ISDOTDOT(item))) - done = TRUE; - if (name_length == 0 && item[0] == '.' && showdots == DOT_NONE) - done = TRUE; - break; - - case TW_COMMAND: - exec_check = flags & TW_EXEC_CHK; - dir_ok = flags & TW_DIR_OK; - break; - - default: - break; - } - - if (done) { - done = FALSE; - continue; - } - - switch (command) { - - case SPELL: /* correct the spelling of the last bit */ - if (name_length == 0) {/* zero-length word can't be misspelled */ - exp_name[0] = '\0';/* (not trying is important for ~) */ - d = 0; - done = TRUE; - break; - } - if (gpat && !Gmatch(item, pat)) - break; - /* - * Swapped the order of the spdist() arguments as suggested - * by eeide@asylum.cs.utah.edu (Eric Eide) - */ - nd = spdist(target, item); /* test the item against original */ - if (nd <= d && nd != 4) { - if (!(exec_check && !executable(exp_dir, item, dir_ok))) { - (void) Strcpy(exp_name, item); - d = nd; - if (d == 0) /* if found it exactly */ - done = TRUE; - } - } - else if (nd == 4) { - if (spdir(exp_name, exp_dir, item, target)) { - if (exec_check && !executable(exp_dir, exp_name, dir_ok)) - break; -#ifdef notdef - /* - * We don't want to stop immediately, because - * we might find an exact/better match later. - */ - d = 0; - done = TRUE; -#endif - d = 3; - } - } - break; - - case LIST: - case RECOGNIZE: - case RECOGNIZE_ALL: - case RECOGNIZE_SCROLL: - -#ifdef WINNT - igncase = (vp = adrof(STRcomplete)) != NULL && - Strcmp(*(vp->vec), STRigncase) == 0; -#endif /* WINNT */ - enhanced = (vp = adrof(STRcomplete)) != NULL && !Strcmp(*(vp->vec),STRenhance); - if (enhanced || igncase) { - if (!is_prefixmatch(target, item, igncase)) - break; - } else { - if (!is_prefix(target, item)) - break; - } - - if (exec_check && !executable(exp_dir, item, dir_ok)) - break; - - if (dir_check && !isadirectory(exp_dir, item)) - break; - - if (text_check && isadirectory(exp_dir, item)) - break; - - /* - * Only pattern match directories if we're checking - * for directories. - */ - if (gpat && !Gmatch(item, pat) && - (dir_check || !isadirectory(exp_dir, item))) - break; - - /* - * Remove duplicates in command listing and completion - * AFEB added code for TW_LOGNAME and TW_USER cases - */ - if (looking == TW_COMMAND || looking == TW_LOGNAME - || looking == TW_USER || command == LIST) { - copyn(buf, item, MAXPATHLEN); - len = (int) Strlen(buf); - switch (looking) { - case TW_COMMAND: - if (!(dir_ok && exec_check)) - break; - if (filetype(exp_dir, item) == '/') { - buf[len++] = '/'; - buf[len] = '\0'; - } - break; - - case TW_FILE: - case TW_DIRECTORY: - buf[len++] = filetype(exp_dir, item); - buf[len] = '\0'; - break; - - default: - break; - } - if ((looking == TW_COMMAND || looking == TW_USER - || looking == TW_LOGNAME) && tw_item_find(buf)) - break; - else { - /* maximum length 1 (NULL) + 1 (~ or $) + 1 (filetype) */ - ptr = tw_item_add(len + 3); - copyn(ptr, buf, MAXPATHLEN); - if (command == LIST) - numitems++; - } - } - - if (command == RECOGNIZE || command == RECOGNIZE_ALL || - command == RECOGNIZE_SCROLL) { - if (ignoring && ignored(item)) { - nignored++; - break; - } - else if (command == RECOGNIZE_SCROLL) { - add_scroll_tab(item); - cnt++; - } - - if (match_unique_match || is_set(STRrecexact)) { - if (StrQcmp(target, item) == 0) { /* EXACT match */ - copyn(exp_name, item, MAXNAMLEN); - numitems = 1; /* fake into expanding */ - non_unique_match = TRUE; - done = TRUE; - break; - } - } - if (recognize(exp_name, item, name_length, ++numitems, enhanced)) - if (command != RECOGNIZE_SCROLL) - done = TRUE; - if (enhanced && (int)Strlen(exp_name) < name_length) - copyn(exp_name, target, MAXNAMLEN); - } - break; - - default: - break; - } -#ifdef TDEBUG - xprintf("done item = %S\n", item); -#endif - } - - - if (command == RECOGNIZE_SCROLL) { - if ((cnt <= curchoice) || (curchoice == -1)) { - curchoice = -1; - nignored = 0; - numitems = 0; - } else if (numitems > 1) { - if (curchoice < -1) - curchoice = cnt - 1; - choose_scroll_tab(&exp_name, cnt); - numitems = 1; - } - } - free_scroll_tab(); - - if (command == SPELL) - return d; - else { - if (ignoring && numitems == 0 && nignored > 0) - return -nignored; - else - return numitems; - } -} - - -/* tw_suffix(): - * Find and return the appropriate suffix character - */ -/*ARGSUSED*/ -static Char -tw_suffix(looking, exp_dir, exp_name, target, name) - int looking; - Char *exp_dir, *exp_name, *target, *name; -{ - Char *ptr; - struct varent *vp; - - USE(name); - (void) strip(exp_name); - - switch (looking) { - - case TW_LOGNAME: - return '/'; - - case TW_VARIABLE: - /* - * Don't consider array variables or empty variables - */ - if ((vp = adrof(exp_name)) != NULL) { - if ((ptr = vp->vec[0]) == NULL || *ptr == '\0' || - vp->vec[1] != NULL) - return ' '; - } - else if ((ptr = tgetenv(exp_name)) == NULL || *ptr == '\0') - return ' '; - - *--target = '\0'; - - return isadirectory(exp_dir, ptr) ? '/' : ' '; - - - case TW_DIRECTORY: - return '/'; - - case TW_COMMAND: - case TW_FILE: - return isadirectory(exp_dir, exp_name) ? '/' : ' '; - - case TW_ALIAS: - case TW_VARLIST: - case TW_WORDLIST: - case TW_SHELLVAR: - case TW_ENVVAR: - case TW_USER: - case TW_BINDING: - case TW_LIMIT: - case TW_SIGNAL: - case TW_JOB: - case TW_COMPLETION: - case TW_TEXT: - case TW_GRPNAME: - return ' '; - - default: - return '\0'; - } -} /* end tw_suffix */ - - -/* tw_fixword(): - * Repair a word after a spalling or a recognizwe - */ -static void -tw_fixword(looking, word, dir, exp_name, max_word_length) - int looking; - Char *word, *dir, *exp_name; - int max_word_length; -{ - Char *ptr; - - switch (looking) { - case TW_LOGNAME: - copyn(word, STRtilde, 1); - break; - - case TW_VARIABLE: - if ((ptr = Strrchr(word, '$')) != NULL) - *++ptr = '\0'; /* Delete after the dollar */ - else - word[0] = '\0'; - break; - - case TW_DIRECTORY: - case TW_FILE: - case TW_TEXT: - copyn(word, dir, max_word_length); /* put back dir part */ - break; - - default: - word[0] = '\0'; - break; - } - - (void) quote(exp_name); - catn(word, exp_name, max_word_length); /* add extended name */ -} /* end tw_fixword */ - - -/* tw_collect(): - * Collect items. Return -1 in case we were interrupted or - * the return value of tw_collect - * This is really a wrapper for tw_collect_items, serving two - * purposes: - * 1. Handles interrupt cleanups. - * 2. Retries if we had no matches, but there were ignored matches - */ -static int -tw_collect(command, looking, exp_dir, exp_name, target, pat, flags, dir_fd) - COMMAND command; - int looking; - Char *exp_dir, *exp_name, **target, *pat; - int flags; - DIR *dir_fd; -{ - static int ni; /* static so we don't get clobbered */ - jmp_buf_t osetexit; - -#ifdef TDEBUG - xprintf("target = %S\n", *target); -#endif - ni = 0; - getexit(osetexit); - for (;;) { - (*tw_start_entry[looking])(dir_fd, pat); - InsideCompletion = 1; - if (setexit()) { - /* interrupted, clean up */ - resexit(osetexit); - InsideCompletion = 0; - haderr = 0; - -#if defined(SOLARIS2) && defined(i386) && !defined(__GNUC__) - /* Compiler bug? (from PWP) */ - if ((looking == TW_LOGNAME) || (looking == TW_USER)) - tw_logname_end(); - else - if (looking == TW_GRPNAME) - tw_grpname_end(); - else - tw_dir_end(); -#else /* !(SOLARIS2 && i386 && !__GNUC__) */ - (*tw_end_entry[looking])(); -#endif /* !(SOLARIS2 && i386 && !__GNUC__) */ - - /* flag error */ - return(-1); - } - if ((ni = tw_collect_items(command, looking, exp_dir, exp_name, - *target, pat, - ni >= 0 ? flags : - flags & ~TW_IGN_OK)) >= 0) { - resexit(osetexit); - InsideCompletion = 0; - -#if defined(SOLARIS2) && defined(i386) && !defined(__GNUC__) - /* Compiler bug? (from PWP) */ - if ((looking == TW_LOGNAME) || (looking == TW_USER)) - tw_logname_end(); - else - if (looking == TW_GRPNAME) - tw_grpname_end(); - else - tw_dir_end(); -#else /* !(SOLARIS2 && i386 && !__GNUC__) */ - (*tw_end_entry[looking])(); -#endif /* !(SOLARIS2 && i386 && !__GNUC__) */ - - return(ni); - } - } -} /* end tw_collect */ - - -/* tw_list_items(): - * List the items that were found - * - * NOTE instead of looking at numerical vars listmax and listmaxrows - * we can look at numerical var listmax, and have a string value - * listmaxtype (or similar) than can have values 'items' and 'rows' - * (by default interpreted as 'items', for backwards compatibility) - */ -static void -tw_list_items(looking, numitems, list_max) - int looking, numitems, list_max; -{ - Char *ptr; - int max_items = 0; - int max_rows = 0; - - if ((ptr = varval(STRlistmax)) != STRNULL) { - while (*ptr) { - if (!Isdigit(*ptr)) { - max_items = 0; - break; - } - max_items = max_items * 10 + *ptr++ - '0'; - } - if ((max_items > 0) && (numitems > max_items) && list_max) - max_items = numitems; - else - max_items = 0; - } - - if (max_items == 0 && (ptr = varval(STRlistmaxrows)) != STRNULL) { - int rows; - - while (*ptr) { - if (!Isdigit(*ptr)) { - max_rows = 0; - break; - } - max_rows = max_rows * 10 + *ptr++ - '0'; - } - if (max_rows != 0 && looking != TW_JOB) - rows = find_rows(tw_item_get(), numitems, TRUE); - else - rows = numitems; /* underestimate for lines wider than the termH */ - if ((max_rows > 0) && (rows > max_rows) && list_max) - max_rows = rows; - else - max_rows = 0; - } - - - if (max_items || max_rows) { - char tc; - const char *name; - int maxs; - - if (max_items) { - name = CGETS(30, 5, "items"); - maxs = max_items; - } - else { - name = CGETS(30, 6, "rows"); - maxs = max_rows; - } - - xprintf(CGETS(30, 7, "There are %d %s, list them anyway? [n/y] "), - maxs, name); - flush(); - /* We should be in Rawmode here, so no \n to catch */ - (void) read(SHIN, &tc, 1); - xprintf("%c\r\n", tc); /* echo the char, do a newline */ - /* - * Perhaps we should use the yesexpr from the - * actual locale - */ - if (strchr(CGETS(30, 13, "Yy"), tc) == NULL) - return; - } - - if (looking != TW_SIGNAL) - qsort((ptr_t) tw_item_get(), (size_t) numitems, sizeof(Char *), - (int (*) __P((const void *, const void *))) fcompare); - if (looking != TW_JOB) - print_by_column(STRNULL, tw_item_get(), numitems, TRUE); - else { - /* - * print one item on every line because jobs can have spaces - * and it is confusing. - */ - int i; - Char **w = tw_item_get(); - - for (i = 0; i < numitems; i++) { - xprintf("%S", w[i]); - if (Tty_raw_mode) - xputchar('\r'); - xputchar('\n'); - } - } -} /* end tw_list_items */ - - -/* t_search(): - * Perform a RECOGNIZE, LIST or SPELL command on string "word". - * - * Return value: - * >= 0: SPELL command: "distance" (see spdist()) - * other: No. of items found - * < 0: Error (message or beep is output) - */ -/*ARGSUSED*/ -int -t_search(word, wp, command, max_word_length, looking, list_max, pat, suf) - Char *word, *wp; /* original end-of-word */ - COMMAND command; - int max_word_length, looking, list_max; - Char *pat; - int suf; -{ - int numitems, /* Number of items matched */ - flags = 0, /* search flags */ - gpat = pat[0] != '\0', /* Glob pattern search */ - nd; /* Normalized directory return */ - Char exp_dir[FILSIZ + 1], /* dir after ~ expansion */ - dir[FILSIZ + 1], /* /x/y/z/ part in /x/y/z/f */ - exp_name[MAXNAMLEN + 1], /* the recognized (extended) */ - name[MAXNAMLEN + 1], /* f part in /d/d/d/f name */ - *target; /* Target to expand/correct/list */ - DIR *dir_fd = NULL; - - USE(wp); - - /* - * bugfix by Marty Grossman (grossman@CC5.BBN.COM): directory listing can - * dump core when interrupted - */ - tw_item_free(); - - non_unique_match = FALSE; /* See the recexact code below */ - - extract_dir_and_name(word, dir, name); - - /* - * SPECIAL HARDCODED COMPLETIONS: - * foo$variable -> TW_VARIABLE - * ~user -> TW_LOGNAME - * - */ - if ((*word == '~') && (Strchr(word, '/') == NULL)) { - looking = TW_LOGNAME; - target = name; - gpat = 0; /* Override pattern mechanism */ - } - else if ((target = Strrchr(name, '$')) != 0 && - (Strchr(name, '/') == NULL)) { - target++; - looking = TW_VARIABLE; - gpat = 0; /* Override pattern mechanism */ - } - else - target = name; - - /* - * Try to figure out what we should be looking for - */ - if (looking & TW_PATH) { - gpat = 0; /* pattern holds the pathname to be used */ - copyn(exp_dir, pat, MAXNAMLEN); - if (exp_dir[Strlen(exp_dir) - 1] != '/') - catn(exp_dir, STRslash, MAXNAMLEN); - catn(exp_dir, dir, MAXNAMLEN); - } - else - exp_dir[0] = '\0'; - - switch (looking & ~TW_PATH) { - case TW_NONE: - return -1; - - case TW_ZERO: - looking = TW_FILE; - break; - - case TW_COMMAND: - if (Strchr(word, '/') || (looking & TW_PATH)) { - looking = TW_FILE; - flags |= TW_EXEC_CHK; - flags |= TW_DIR_OK; - } -#ifdef notdef - /* PWP: don't even bother when doing ALL of the commands */ - if (looking == TW_COMMAND && (*word == '\0')) - return (-1); -#endif - break; - - - case TW_VARLIST: - case TW_WORDLIST: - gpat = 0; /* pattern holds the name of the variable */ - break; - - case TW_EXPLAIN: - if (command == LIST && pat != NULL) { - xprintf("%S", pat); - if (Tty_raw_mode) - xputchar('\r'); - xputchar('\n'); - } - return 2; - - default: - break; - } - - /* - * let fignore work only when we are not using a pattern - */ - flags |= (gpat == 0) ? TW_IGN_OK : TW_PAT_OK; - -#ifdef TDEBUG - xprintf(CGETS(30, 8, "looking = %d\n"), looking); -#endif - - switch (looking) { - case TW_ALIAS: - case TW_SHELLVAR: - case TW_ENVVAR: - case TW_BINDING: - case TW_LIMIT: - case TW_SIGNAL: - case TW_JOB: - case TW_COMPLETION: - case TW_GRPNAME: - break; - - - case TW_VARIABLE: - if ((nd = expand_dir(dir, exp_dir, &dir_fd, command)) != 0) - return nd; - break; - - case TW_DIRECTORY: - flags |= TW_DIR_CHK; - -#ifdef notyet - /* - * This is supposed to expand the directory stack. - * Problems: - * 1. Slow - * 2. directories with the same name - */ - flags |= TW_DIR_OK; -#endif -#ifdef notyet - /* - * Supposed to do delayed expansion, but it is inconsistent - * from a user-interface point of view, since it does not - * immediately obey addsuffix - */ - if ((nd = expand_dir(dir, exp_dir, &dir_fd, command)) != 0) - return nd; - if (isadirectory(exp_dir, name)) { - if (exp_dir[0] != '\0' || name[0] != '\0') { - catn(dir, name, MAXNAMLEN); - if (dir[Strlen(dir) - 1] != '/') - catn(dir, STRslash, MAXNAMLEN); - if ((nd = expand_dir(dir, exp_dir, &dir_fd, command)) != 0) - return nd; - if (word[Strlen(word) - 1] != '/') - catn(word, STRslash, MAXNAMLEN); - name[0] = '\0'; - } - } -#endif - if ((nd = expand_dir(dir, exp_dir, &dir_fd, command)) != 0) - return nd; - break; - - case TW_TEXT: - flags |= TW_TEXT_CHK; - /*FALLTHROUGH*/ - case TW_FILE: - if ((nd = expand_dir(dir, exp_dir, &dir_fd, command)) != 0) - return nd; - break; - - case TW_PATH | TW_TEXT: - case TW_PATH | TW_FILE: - case TW_PATH | TW_DIRECTORY: - case TW_PATH | TW_COMMAND: - if ((dir_fd = opendir(short2str(exp_dir))) == NULL) { - xprintf("%S: %s\n", exp_dir, strerror(errno)); - return -1; - } - if (exp_dir[Strlen(exp_dir) - 1] != '/') - catn(exp_dir, STRslash, MAXNAMLEN); - - looking &= ~TW_PATH; - - switch (looking) { - case TW_TEXT: - flags |= TW_TEXT_CHK; - break; - - case TW_FILE: - break; - - case TW_DIRECTORY: - flags |= TW_DIR_CHK; - break; - - case TW_COMMAND: - copyn(target, word, MAXNAMLEN); /* so it can match things */ - break; - - default: - abort(); /* Cannot happen */ - break; - } - break; - - case TW_LOGNAME: - word++; - /*FALLTHROUGH*/ - case TW_USER: - /* - * Check if the spelling was already correct - * From: Rob McMahon <cudcv@cu.warwick.ac.uk> - */ - if (command == SPELL && getpwnam(short2str(word)) != NULL) { -#ifdef YPBUGS - fix_yp_bugs(); -#endif /* YPBUGS */ - return (0); - } - copyn(name, word, MAXNAMLEN); /* name sans ~ */ - if (looking == TW_LOGNAME) - word--; - break; - - case TW_COMMAND: - case TW_VARLIST: - case TW_WORDLIST: - copyn(target, word, MAXNAMLEN); /* so it can match things */ - break; - - default: - xprintf(CGETS(30, 9, - "\n%s internal error: I don't know what I'm looking for!\n"), - progname); - NeedsRedraw = 1; - return (-1); - } - - numitems = tw_collect(command, looking, exp_dir, exp_name, - &target, pat, flags, dir_fd); - if (numitems == -1) - return -1; - - switch (command) { - case RECOGNIZE: - case RECOGNIZE_ALL: - case RECOGNIZE_SCROLL: - if (numitems <= 0) - return (numitems); - - tw_fixword(looking, word, dir, exp_name, max_word_length); - - if (!match_unique_match && is_set(STRaddsuffix) && numitems == 1) { - Char suffix[2]; - - suffix[1] = '\0'; - switch (suf) { - case 0: /* Automatic suffix */ - suffix[0] = tw_suffix(looking, exp_dir, exp_name, target, name); - break; - - case -1: /* No suffix */ - return numitems; - - default: /* completion specified suffix */ - suffix[0] = (Char) suf; - break; - } - catn(word, suffix, max_word_length); - } - return numitems; - - case LIST: - tw_list_items(looking, numitems, list_max); - tw_item_free(); - return (numitems); - - case SPELL: - tw_fixword(looking, word, dir, exp_name, max_word_length); - return (numitems); - - default: - xprintf("Bad tw_command\n"); - return (0); - } -} /* end t_search */ - - -/* extract_dir_and_name(): - * parse full path in file into 2 parts: directory and file names - * Should leave final slash (/) at end of dir. - */ -static void -extract_dir_and_name(path, dir, name) - Char *path, *dir, *name; -{ - register Char *p; - - p = Strrchr(path, '/'); -#ifdef WINNT - if (p == NULL) - p = Strrchr(path, ':'); -#endif /* WINNT */ - if (p == NULL) { - copyn(name, path, MAXNAMLEN); - dir[0] = '\0'; - } - else { - p++; - copyn(name, p, MAXNAMLEN); - copyn(dir, path, p - path); - } -} /* end extract_dir_and_name */ - - -/* dollar(): - * expand "/$old1/$old2/old3/" - * to "/value_of_old1/value_of_old2/old3/" - */ -Char * -dollar(new, old) - Char *new; - const Char *old; -{ - Char *p; - size_t space; - - for (space = FILSIZ, p = new; *old && space > 0;) - if (*old != '$') { - *p++ = *old++; - space--; - } - else { - if (expdollar(&p, &old, &space, QUOTE) == NULL) - return NULL; - } - *p = '\0'; - return (new); -} /* end dollar */ - - -/* tilde(): - * expand ~person/foo to home_directory_of_person/foo - * or =<stack-entry> to <dir in stack entry> - */ -static Char * -tilde(new, old) - Char *new, *old; -{ - register Char *o, *p; - - switch (old[0]) { - case '~': - for (p = new, o = &old[1]; *o && *o != '/'; *p++ = *o++) - continue; - *p = '\0'; - if (gethdir(new)) { - new[0] = '\0'; - return NULL; - } - (void) Strcat(new, o); - return new; - - case '=': - if ((p = globequal(new, old)) == NULL) { - *new = '\0'; - return NULL; - } - if (p == new) - return new; - /*FALLTHROUGH*/ - - default: - (void) Strcpy(new, old); - return new; - } -} /* end tilde */ - - -/* expand_dir(): - * Open the directory given, expanding ~user and $var - * Optionally normalize the path given - */ -static int -expand_dir(dir, edir, dfd, cmd) - Char *dir, *edir; - DIR **dfd; - COMMAND cmd; -{ - Char *nd = NULL; - Char tdir[MAXPATHLEN + 1]; - - if ((dollar(tdir, dir) == 0) || - (tilde(edir, tdir) == 0) || - !(nd = dnormalize(*edir ? edir : STRdot, symlinks == SYM_IGNORE || - symlinks == SYM_EXPAND)) || - ((*dfd = opendir(short2str(nd))) == NULL)) { - xfree((ptr_t) nd); - if (cmd == SPELL || SearchNoDirErr) - return (-2); - /* - * From: Amos Shapira <amoss@cs.huji.ac.il> - * Print a better message when completion fails - */ - xprintf("\n%S %s\n", - *edir ? edir : - (*tdir ? tdir : dir), - (errno == ENOTDIR ? CGETS(30, 10, "not a directory") : - (errno == ENOENT ? CGETS(30, 11, "not found") : - CGETS(30, 12, "unreadable")))); - NeedsRedraw = 1; - return (-1); - } - if (nd) { - if (*dir != '\0') { - Char *s, *d, *p; - - /* - * Copy and append a / if there was one - */ - for (p = edir; *p; p++) - continue; - if (*--p == '/') { - for (p = nd; *p; p++) - continue; - if (*--p != '/') - p = NULL; - } - for (d = edir, s = nd; (*d++ = *s++) != '\0';) - continue; - if (!p) { - *d-- = '\0'; - *d = '/'; - } - } - xfree((ptr_t) nd); - } - return 0; -} /* end expand_dir */ - - -/* nostat(): - * Returns true if the directory should not be stat'd, - * false otherwise. - * This way, things won't grind to a halt when you complete in /afs - * or very large directories. - */ -static bool -nostat(dir) - Char *dir; -{ - struct varent *vp; - register Char **cp; - - if ((vp = adrof(STRnostat)) == NULL || (cp = vp->vec) == NULL) - return FALSE; - for (; *cp != NULL; cp++) { - if (Strcmp(*cp, STRstar) == 0) - return TRUE; - if (Gmatch(dir, *cp)) - return TRUE; - } - return FALSE; -} /* end nostat */ - - -/* filetype(): - * Return a character that signifies a filetype - * symbology from 4.3 ls command. - */ -static Char -filetype(dir, file) - Char *dir, *file; -{ - if (dir) { - Char path[512]; - char *ptr; - struct stat statb; -#ifdef S_ISCDF - /* - * From: veals@crchh84d.bnr.ca (Percy Veals) - * An extra stat is required for HPUX CDF files. - */ - struct stat hpstatb; -#endif /* S_ISCDF */ - - if (nostat(dir)) return(' '); - - (void) Strcpy(path, dir); - catn(path, file, (int) (sizeof(path) / sizeof(Char))); - - if (lstat(ptr = short2str(path), &statb) != -1) - /* see above #define of lstat */ - { -#ifdef S_ISLNK - if (S_ISLNK(statb.st_mode)) { /* Symbolic link */ - if (adrof(STRlistlinks)) { - if (stat(ptr, &statb) == -1) - return ('&'); - else if (S_ISDIR(statb.st_mode)) - return ('>'); - else - return ('@'); - } - else - return ('@'); - } -#endif -#ifdef S_ISSOCK - if (S_ISSOCK(statb.st_mode)) /* Socket */ - return ('='); -#endif -#ifdef S_ISFIFO - if (S_ISFIFO(statb.st_mode)) /* Named Pipe */ - return ('|'); -#endif -#ifdef S_ISHIDDEN - if (S_ISHIDDEN(statb.st_mode)) /* Hidden Directory [aix] */ - return ('+'); -#endif -#ifdef S_ISCDF - (void) strcat(ptr, "+"); /* Must append a '+' and re-stat(). */ - if ((stat(ptr, &hpstatb) != -1) && S_ISCDF(hpstatb.st_mode)) - return ('+'); /* Context Dependent Files [hpux] */ -#endif -#ifdef S_ISNWK - if (S_ISNWK(statb.st_mode)) /* Network Special [hpux] */ - return (':'); -#endif -#ifdef S_ISCHR - if (S_ISCHR(statb.st_mode)) /* char device */ - return ('%'); -#endif -#ifdef S_ISBLK - if (S_ISBLK(statb.st_mode)) /* block device */ - return ('#'); -#endif -#ifdef S_ISDIR - if (S_ISDIR(statb.st_mode)) /* normal Directory */ - return ('/'); -#endif - if (statb.st_mode & (S_IXUSR|S_IXGRP|S_IXOTH)) - return ('*'); - } - } - return (' '); -} /* end filetype */ - - -/* isadirectory(): - * Return trus if the file is a directory - */ -static int -isadirectory(dir, file) /* return 1 if dir/file is a directory */ - Char *dir, *file; /* uses stat rather than lstat to get dest. */ -{ - if (dir) { - Char path[MAXPATHLEN]; - struct stat statb; - - (void) Strcpy(path, dir); - catn(path, file, (int) (sizeof(path) / sizeof(Char))); - if (stat(short2str(path), &statb) >= 0) { /* resolve through - * symlink */ -#ifdef S_ISSOCK - if (S_ISSOCK(statb.st_mode)) /* Socket */ - return 0; -#endif -#ifdef S_ISFIFO - if (S_ISFIFO(statb.st_mode)) /* Named Pipe */ - return 0; -#endif - if (S_ISDIR(statb.st_mode)) /* normal Directory */ - return 1; - } - } - return 0; -} /* end isadirectory */ - - - -/* find_rows(): - * Return how many rows needed to print sorted down columns - */ -static int -find_rows(items, count, no_file_suffix) - Char *items[]; - int count, no_file_suffix; -{ - register int i, columns, rows; - unsigned int maxwidth = 0; - - for (i = 0; i < count; i++) /* find widest string */ - maxwidth = max(maxwidth, (unsigned int) Strlen(items[i])); - - maxwidth += no_file_suffix ? 1 : 2; /* for the file tag and space */ - columns = (TermH + 1) / maxwidth; /* PWP: terminal size change */ - if (!columns) - columns = 1; - rows = (count + (columns - 1)) / columns; - - return rows; -} /* end rows_needed_by_print_by_column */ - - -/* print_by_column(): - * Print sorted down columns or across columns when the first - * word of $listflags shell variable contains 'x'. - * - */ -void -print_by_column(dir, items, count, no_file_suffix) - register Char *dir, *items[]; - int count, no_file_suffix; -{ - register int i, r, c, columns, rows; - unsigned int w, maxwidth = 0; - Char *val; - bool across; - - lbuffed = 0; /* turn off line buffering */ - - - across = ((val = varval(STRlistflags)) != STRNULL) && - (Strchr(val, 'x') != NULL); - - for (i = 0; i < count; i++) /* find widest string */ - maxwidth = max(maxwidth, (unsigned int) Strlen(items[i])); - - maxwidth += no_file_suffix ? 1 : 2; /* for the file tag and space */ - columns = TermH / maxwidth; /* PWP: terminal size change */ - if (!columns || !isatty(didfds ? 1 : SHOUT)) - columns = 1; - rows = (count + (columns - 1)) / columns; - - i = -1; - for (r = 0; r < rows; r++) { - for (c = 0; c < columns; c++) { - i = across ? (i + 1) : (c * rows + r); - - if (i < count) { - w = (unsigned int) Strlen(items[i]); - -#ifdef COLOR_LS_F - if (no_file_suffix) { - /* Print the command name */ - Char f = items[i][w - 1]; - items[i][w - 1] = 0; - print_with_color(items[i], w - 1, f); - } - else { - /* Print filename followed by '/' or '*' or ' ' */ - print_with_color(items[i], w, filetype(dir, items[i])); - w++; - } -#else /* ifndef COLOR_LS_F */ - if (no_file_suffix) { - /* Print the command name */ - xprintf("%S", items[i]); - } - else { - /* Print filename followed by '/' or '*' or ' ' */ - xprintf("%S%c", items[i], - filetype(dir, items[i])); - w++; - } -#endif /* COLOR_LS_F */ - - if (c < (columns - 1)) /* Not last column? */ - for (; w < maxwidth; w++) - xputchar(' '); - } - else if (across) - break; - } - if (Tty_raw_mode) - xputchar('\r'); - xputchar('\n'); - } - - lbuffed = 1; /* turn back on line buffering */ - flush(); -} /* end print_by_column */ - - -/* StrQcmp(): - * Compare strings ignoring the quoting chars - */ -int -StrQcmp(str1, str2) - register Char *str1, *str2; -{ - for (; *str1 && samecase(*str1 & TRIM) == samecase(*str2 & TRIM); - str1++, str2++) - continue; - /* - * The following case analysis is necessary so that characters which look - * negative collate low against normal characters but high against the - * end-of-string NUL. - */ - if (*str1 == '\0' && *str2 == '\0') - return (0); - else if (*str1 == '\0') - return (-1); - else if (*str2 == '\0') - return (1); - else - return ((*str1 & TRIM) - (*str2 & TRIM)); -} /* end StrQcmp */ - - -/* fcompare(): - * Comparison routine for qsort - */ -int -fcompare(file1, file2) - Char **file1, **file2; -{ - return (int) collate(*file1, *file2); -} /* end fcompare */ - - -/* catn(): - * Concatenate src onto tail of des. - * Des is a string whose maximum length is count. - * Always null terminate. - */ -void -catn(des, src, count) - register Char *des, *src; - int count; -{ - while (--count >= 0 && *des) - des++; - while (--count >= 0) - if ((*des++ = *src++) == 0) - return; - *des = '\0'; -} /* end catn */ - - -/* copyn(): - * like strncpy but always leave room for trailing \0 - * and always null terminate. - */ -void -copyn(des, src, count) - register Char *des, *src; - int count; -{ - while (--count >= 0) - if ((*des++ = *src++) == 0) - return; - *des = '\0'; -} /* end copyn */ - - -/* tgetenv(): - * like it's normal string counter-part - * [apollo uses that in tc.os.c, so it cannot be static] - */ -Char * -tgetenv(str) - Char *str; -{ - Char **var; - int len, res; - - len = (int) Strlen(str); - /* Search the STR_environ for the entry matching str. */ - for (var = STR_environ; var != NULL && *var != NULL; var++) - if (Strlen(*var) >= len && (*var)[len] == '=') { - /* Temporarily terminate the string so we can copy the variable - name. */ - (*var)[len] = '\0'; - res = StrQcmp(*var, str); - /* Restore the '=' and return a pointer to the value of the - environment variable. */ - (*var)[len] = '='; - if (res == 0) - return (&((*var)[len + 1])); - } - return (NULL); -} /* end tgetenv */ - - -struct scroll_tab_list *scroll_tab = 0; - -static void -add_scroll_tab(item) - Char *item; -{ - struct scroll_tab_list *new_scroll; - - new_scroll = (struct scroll_tab_list *) xmalloc((size_t) - sizeof(struct scroll_tab_list)); - new_scroll->element = Strsave(item); - new_scroll->next = scroll_tab; - scroll_tab = new_scroll; -} - -static void -choose_scroll_tab(exp_name, cnt) - Char **exp_name; - int cnt; -{ - struct scroll_tab_list *loop; - int tmp = cnt; - Char **ptr; - - ptr = (Char **) xmalloc((size_t) sizeof(Char *) * cnt); - - for(loop = scroll_tab; loop && (tmp >= 0); loop = loop->next) - ptr[--tmp] = loop->element; - - qsort((ptr_t) ptr, (size_t) cnt, sizeof(Char *), - (int (*) __P((const void *, const void *))) fcompare); - - copyn(*exp_name, ptr[curchoice], (int) Strlen(ptr[curchoice])); - xfree((ptr_t) ptr); -} - -static void -free_scroll_tab() -{ - struct scroll_tab_list *loop; - - while(scroll_tab) { - loop = scroll_tab; - scroll_tab = scroll_tab->next; - xfree((ptr_t) loop->element); - xfree((ptr_t) loop); - } -} diff --git a/contrib/tcsh/tw.spell.c b/contrib/tcsh/tw.spell.c deleted file mode 100644 index e784edd2585b..000000000000 --- a/contrib/tcsh/tw.spell.c +++ /dev/null @@ -1,168 +0,0 @@ -/* $Header: /src/pub/tcsh/tw.spell.c,v 3.14 1996/04/26 19:23:27 christos Exp $ */ -/* - * tw.spell.c: Spell check words - */ -/*- - * Copyright (c) 1980, 1991 The Regents of the University of California. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by the University of - * California, Berkeley and its contributors. - * 4. Neither the name of the University nor the names of its contributors - * may be used to endorse or promote products derived from this software - * without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND - * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE - * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL - * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS - * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) - * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT - * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY - * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF - * SUCH DAMAGE. - */ -#include "sh.h" - -RCSID("$Id: tw.spell.c,v 3.14 1996/04/26 19:23:27 christos Exp $") - -#include "tw.h" - -/* spell_me : return corrrectly spelled filename. From K&P spname */ -int -spell_me(oldname, oldsize, looking, pat, suf) - Char *oldname; - int oldsize, looking; - Char *pat; - int suf; -{ - /* The +1 is to fool hp's optimizer */ - Char guess[FILSIZ + 1], newname[FILSIZ + 1]; - register Char *new = newname, *old = oldname; - register Char *p, *cp, *ws; - bool foundslash = 0; - int retval; - - for (;;) { - while (*old == '/') { /* skip '/' */ - *new++ = *old++; - foundslash = 1; - } - /* do not try to correct spelling of single letter words */ - if (*old != '\0' && old[1] == '\0') - *new++ = *old++; - *new = '\0'; - if (*old == '\0') { - retval = (StrQcmp(oldname, newname) != 0); - copyn(oldname, newname, oldsize); /* shove it back. */ - return retval; - } - p = guess; /* start at beginning of buf */ - if (newname[0]) /* add current dir if any */ - for (cp = newname; *cp; cp++) - if (p < guess + FILSIZ) - *p++ = *cp; - ws = p; - for (; *old != '/' && *old != '\0'; old++)/* add current file name */ - if (p < guess + FILSIZ) - *p++ = *old; - *p = '\0'; /* terminate it */ - - /* - * Don't tell t_search we're looking for cmd if no '/' in the name so - * far but there are later - or it will look for *all* commands - */ - /* (*should* say "looking for directory" whenever '/' is next...) */ - retval = t_search(guess, p, SPELL, FILSIZ, - looking == TW_COMMAND && (foundslash || *old != '/') ? - TW_COMMAND : looking, 1, pat, suf); - if (retval >= 4 || retval < 0) - return -1; /* hopeless */ - for (p = ws; (*new = *p++) != '\0'; new++) - continue; - } -/*NOTREACHED*/ -#ifdef notdef - return (0); /* lint on the vax under mtXinu complains! */ -#endif -} - -#define EQ(s,t) (StrQcmp(s,t) == 0) - -/* - * spdist() is taken from Kernighan & Pike, - * _The_UNIX_Programming_Environment_ - * and adapted somewhat to correspond better to psychological reality. - * (Note the changes to the return values) - * - * According to Pollock and Zamora, CACM April 1984 (V. 27, No. 4), - * page 363, the correct order for this is: - * OMISSION = TRANSPOSITION > INSERTION > SUBSTITUTION - * thus, it was exactly backwards in the old version. -- PWP - */ - -int -spdist(s, t) - register Char *s, *t; -{ - for (; (*s & TRIM) == (*t & TRIM); t++, s++) - if (*t == '\0') - return 0; /* exact match */ - if (*s) { - if (*t) { - if (s[1] && t[1] && (*s & TRIM) == (t[1] & TRIM) && - (*t & TRIM) == (s[1] & TRIM) && EQ(s + 2, t + 2)) - return 1; /* transposition */ - if (EQ(s + 1, t + 1)) - return 3; /* 1 char mismatch */ - } - if (EQ(s + 1, t)) - return 2; /* extra character */ - } - if (*t && EQ(s, t + 1)) - return 1; /* missing character */ - return 4; -} - -int -spdir(extended_name, tilded_dir, item, name) - Char *extended_name; - Char *tilded_dir; - Char *item; - Char *name; -{ - Char path[MAXPATHLEN + 1]; - Char *s; - Char oldch; - - if (ISDOT(item) || ISDOTDOT(item)) - return 0; - - for (s = name; *s != 0 && (*s & TRIM) == (*item & TRIM); s++, item++) - continue; - if (*s == 0 || s[1] == 0 || *item != 0) - return 0; - - (void) Strcpy(path, tilded_dir); - oldch = *s; - *s = '/'; - catn(path, name, (int) (sizeof(path) / sizeof(Char))); - if (access(short2str(path), F_OK) == 0) { - (void) Strcpy(extended_name, name); - return 1; - } - *s = oldch; - return 0; -} diff --git a/contrib/tcsh/vms.termcap.c b/contrib/tcsh/vms.termcap.c deleted file mode 100644 index d48802e56dc4..000000000000 --- a/contrib/tcsh/vms.termcap.c +++ /dev/null @@ -1,337 +0,0 @@ -/* $Header: /src/pub/tcsh/vms.termcap.c,v 1.5 1997/10/02 16:36:36 christos Exp $ */ -/* - * termcap.c 1.1 20/7/87 agc Joypace Ltd - * - * Copyright Joypace Ltd, London, UK, 1987. All rights reserved. - * This file may be freely distributed provided that this notice - * remains attached. - * - * A public domain implementation of the termcap(3) routines. - */ -#include "sh.h" -RCSID("$Id: vms.termcap.c,v 1.5 1997/10/02 16:36:36 christos Exp $") -#if defined(_VMS_POSIX) || defined(_OSD_POSIX) -/* efth 1988-Apr-29 - - - Correct when TERM != name and TERMCAP is defined [tgetent] - - Correct the comparison for the terminal name [tgetent] - - Correct the value of ^x escapes [tgetstr] - - Added %r to reverse row/column [tgoto] - - Paul Gillingwater <paul@actrix.gen.nz> July 1992 - - Modified to allow terminal aliases in termcap file - - Uses TERMCAP environment variable for file only -*/ - -#include <stdio.h> -#include <string.h> - -#define CAPABLEN 2 - -#define ISSPACE(c) ((c) == ' ' || (c) == '\t' || (c) == '\r' || (c) == '\n') -#define ISDIGIT(x) ((x) >= '0' && (x) <= '9') - -char *capab; /* the capability itself */ - -extern char *getenv(); /* new, improved getenv */ -extern FILE *fopen(); /* old fopen */ - -/* - * tgetent - get the termcap entry for terminal name, and put it - * in bp (which must be an array of 1024 chars). Returns 1 if - * termcap entry found, 0 if not found, and -1 if file not found. - */ - -int -tgetent(bp, name) -char *bp; -char *name; -{ - FILE *fp; - char *termfile; - char *cp, - *ptr, /* temporary pointer */ - tmp[1024]; /* buffer for terminal name */ - short len = strlen(name); - - capab = bp; - - /* Use TERMCAP to override default. */ - - termfile = getenv("TERMCAP"); - if (termfile == NULL ) termfile = "/etc/termcap"; - - if ((fp = fopen(termfile, "r")) == (FILE *) NULL) { - fprintf(stderr, CGETS(31, 1, - "Can't open TERMCAP: [%s]\n"), termfile); - fprintf(stderr, CGETS(31, 2, "Can't open %s.\n"), termfile); - sleep(1); - return(-1); - } - - while (fgets(bp, 1024, fp) != NULL) { - /* Any line starting with # or NL is skipped as a comment */ - if ((*bp == '#') || (*bp == '\n')) continue; - - /* Look for lines which end with two backslashes, - and then append the next line. */ - while (*(cp = &bp[strlen(bp) - 2]) == '\\') - fgets(cp, 1024, fp); - - /* Skip over any spaces or tabs */ - for (++cp ; ISSPACE(*cp) ; cp++); - - /* Make sure "name" matches exactly (efth) */ - -/* Here we might want to look at any aliases as well. We'll use -sscanf to look at aliases. These are delimited by '|'. */ - - sscanf(bp,"%[^|]",tmp); - if (strncmp(name, tmp, len) == 0) { - fclose(fp); -#ifdef DEBUG - fprintf(stderr, CGETS(31, 3, "Found %s in %s.\n"), name, termfile); - sleep(1); -#endif /* DEBUG */ - return(1); - } - ptr = bp; - while ((ptr = strchr(ptr,'|')) != NULL) { - ptr++; - if (strchr(ptr,'|') == NULL) break; - sscanf(ptr,"%[^|]",tmp); - if (strncmp(name, tmp, len) == 0) { - fclose(fp); -#ifdef DEBUG - fprintf(stderr,CGETS(31, 3, "Found %s in %s.\n"), name, termfile); - sleep(1); -#endif /* DEBUG */ - return(1); - } - } - } - /* If we get here, then we haven't found a match. */ - fclose(fp); -#ifdef DEBUG - fprintf(stderr,CGETS(31, 4, "No match found for %s in file %s\n"), - name, termfile); - sleep(1); -#endif /* DEBUG */ - return(0); - -} - -/* - * tgetnum - get the numeric terminal capability corresponding - * to id. Returns the value, -1 if invalid. - */ -int -tgetnum(id) -char *id; -{ - char *cp; - int ret; - - if ((cp = capab) == NULL || id == NULL) - return(-1); - while (*++cp != ':') - ; - for (++cp ; *cp ; cp++) { - while (ISSPACE(*cp)) - cp++; - if (strncmp(cp, id, CAPABLEN) == 0) { - while (*cp && *cp != ':' && *cp != '#') - cp++; - if (*cp != '#') - return(-1); - for (ret = 0, cp++ ; *cp && ISDIGIT(*cp) ; cp++) - ret = ret * 10 + *cp - '0'; - return(ret); - } - while (*cp && *cp != ':') - cp++; - } - return(-1); -} - -/* - * tgetflag - get the boolean flag corresponding to id. Returns -1 - * if invalid, 0 if the flag is not in termcap entry, or 1 if it is - * present. - */ -int -tgetflag(id) -char *id; -{ - char *cp; - - if ((cp = capab) == NULL || id == NULL) - return(-1); - while (*++cp != ':') - ; - for (++cp ; *cp ; cp++) { - while (ISSPACE(*cp)) - cp++; - if (strncmp(cp, id, CAPABLEN) == 0) - return(1); - while (*cp && *cp != ':') - cp++; - } - return(0); -} - -/* - * tgetstr - get the string capability corresponding to id and place - * it in area (advancing area at same time). Expand escape sequences - * etc. Returns the string, or NULL if it can't do it. - */ -char * -tgetstr(id, area) -char *id; -char **area; -{ - char *cp; - char *ret; - int i; - - if ((cp = capab) == NULL || id == NULL) - return(NULL); - while (*++cp != ':') - ; - for (++cp ; *cp ; cp++) { - while (ISSPACE(*cp)) - cp++; - if (strncmp(cp, id, CAPABLEN) == 0) { - while (*cp && *cp != ':' && *cp != '=') - cp++; - if (*cp != '=') - return(NULL); - for (ret = *area, cp++; *cp && *cp != ':' ; - (*area)++, cp++) - switch(*cp) { - case '^' : - **area = *++cp - '@'; /* fix (efth)*/ - break; - case '\\' : - switch(*++cp) { - case 'E' : - **area = CTL_ESC('\033'); - break; - case 'n' : - **area = '\n'; - break; - case 'r' : - **area = '\r'; - break; - case 't' : - **area = '\t'; - break; - case 'b' : - **area = '\b'; - break; - case 'f' : - **area = '\f'; - break; - case '0' : - case '1' : - case '2' : - case '3' : - for (i=0 ; *cp && ISDIGIT(*cp) ; - cp++) - i = i * 8 + *cp - '0'; - **area = i; - cp--; - break; - case '^' : - case '\\' : - **area = *cp; - break; - } - break; - default : - **area = *cp; - } - *(*area)++ = '\0'; - return(ret); - } - while (*cp && *cp != ':') - cp++; - } - return(NULL); -} - -/* - * tgoto - given the cursor motion string cm, make up the string - * for the cursor to go to (destcol, destline), and return the string. - * Returns "OOPS" if something's gone wrong, or the string otherwise. - */ -char * -tgoto(cm, destcol, destline) -char *cm; -int destcol; -int destline; -{ - register char *rp; - static char ret[24]; - int incr = 0; - int argno = 0, numval; - - for (rp = ret ; *cm ; cm++) { - switch(*cm) { - case '%' : - switch(*++cm) { - case '+' : - numval = (argno == 0 ? destline : destcol); - argno = 1 - argno; - *rp++ = numval + incr + *++cm; - break; - - case '%' : - *rp++ = '%'; - break; - - case 'i' : - incr = 1; - break; - - case 'd' : - numval = (argno == 0 ? destline : destcol); - numval += incr; - argno = 1 - argno; - *rp++ = '0' + (numval/10); - *rp++ = '0' + (numval%10); - break; - - case 'r' : - argno = 1; - break; - } - - break; - default : - *rp++ = *cm; - } - } - *rp = '\0'; - return(ret); -} - -/* - * tputs - put the string cp out onto the terminal, using the function - * outc. This should do padding for the terminal, but I can't find a - * terminal that needs padding at the moment... - */ -int -tputs(cp, affcnt, outc) -register char *cp; -int affcnt; -int (*outc)(); -{ - if (cp == NULL) - return(1); - /* do any padding interpretation - left null for MINIX just now */ - while (*cp) - (*outc)(*cp++); - return(1); -} -#endif /* _VMS_POSIX */ |