diff options
| author | mp <mp@FreeBSD.org> | 2009-07-10 21:00:38 +0000 |
|---|---|---|
| committer | mp <mp@FreeBSD.org> | 2009-07-10 21:00:38 +0000 |
| commit | 5c3d0e09d7926f4fe8b7ca838a2ed52b6e33e4b5 (patch) | |
| tree | dae2d3ff4ed630baaed92bc0340cb55a8c9b01cd /contrib/tcsh | |
| parent | e863b68dceedacef4fea511d5f1e2c5666b2b2ee (diff) | |
| download | FreeBSD-src-5c3d0e09d7926f4fe8b7ca838a2ed52b6e33e4b5.zip FreeBSD-src-5c3d0e09d7926f4fe8b7ca838a2ed52b6e33e4b5.tar.gz | |
Flatten vendor/tcsh/dist.
Diffstat (limited to 'contrib/tcsh')
475 files changed, 0 insertions, 96309 deletions
diff --git a/contrib/tcsh/Copyright b/contrib/tcsh/Copyright deleted file mode 100644 index 6ba10c4..0000000 --- a/contrib/tcsh/Copyright +++ /dev/null @@ -1,32 +0,0 @@ -/*- - * 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. - */ diff --git a/contrib/tcsh/FAQ b/contrib/tcsh/FAQ deleted file mode 100644 index 92aadc7..0000000 --- a/contrib/tcsh/FAQ +++ /dev/null @@ -1,304 +0,0 @@ - - [Home] FAQ - - Home | RecentChanges | Preferences - _________________________________________________________________ - - 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. Where can I find tcsh sources? - - See http://www.tcsh.org/MostRecentRelease for download locations. - _________________________________________________________________ - - 2. 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 one of these would work.. - - stty -parity -evenp -oddp cs8 -istrip (rs6000) - stty -parenb -istrip cs8 - - Finally, tcsh will bind all printable meta characters to the self - insert command. If you don't want that to happen (i.e. use the - printable meta characters for commands) setenv NOREBIND. - _________________________________________________________________ - - 3. 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. Pick one of the following as a workaround: - - dbxtool < /dev/null >& /dev/null & - /usr/etc/setsid dbxtool & - - If that does not work, for dbxtool at least you can add "sh stty sane" - in your .dbxinit - _________________________________________________________________ - - 4. 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. - _________________________________________________________________ - - 5. 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. - _________________________________________________________________ - - 6. 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 :-) - _________________________________________________________________ - - 7. I am using SunView or 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. - _________________________________________________________________ - - 8. 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'; or - - Unset edit in tcsh. - _________________________________________________________________ - - 9. 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. - - Unset edit in tcsh. Using shelltool instead of cmdtool does not fix - this. - _________________________________________________________________ - - 10. 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. - _________________________________________________________________ - - 11. Where do I get the public domain directory library? - - Anonymous ftp to prep.ai.mit.edu:/pub/gnu/dirent.tar.Z - _________________________________________________________________ - - 12. 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: - - 1. Run fixincludes from the gcc distribution. - 2. Add -traditional to the gcc flags. - 3. Compile with cc. - _________________________________________________________________ - - 13. 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. - _________________________________________________________________ - - 14. 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"... - _________________________________________________________________ - - 15. 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. - _________________________________________________________________ - - 16. I am trying to compile tcsh and I am getting compile errors that - look like: - - >sh.c:???: `STR???' undeclared, outside of functions [gcc] - >"sh.c", line ???: STR??? undefined [cc] - - You interrupted make, while it was making the automatically generated - headers. Type 'make clean; make' - _________________________________________________________________ - - 17. 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'. - _________________________________________________________________ - - 18. 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. - _________________________________________________________________ - - 19. 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 - _________________________________________________________________ - - 20. 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 - _________________________________________________________________ - - 21. 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. - _________________________________________________________________ - - 22. If you need help generating your .cshrc file, check out: - - http://www.imada.sdu.dk/~blackie/dotfile/ - - or - http://www.dotfiles.com - _________________________________________________________________ - - 23. 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. - _________________________________________________________________ - - 24. 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. - _________________________________________________________________ - - 25. 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. - _________________________________________________________________ - - 26. Refreshing in command line editing can appear broken on some OS's - - This is because the termcap/terminfo description lies about the - ability of the terminal to use tabs. At least on Compaq/DEC Alpha - OSF/1 3.x and 4.x systems, stty -tabs will cause problems. - _________________________________________________________________ - - 27. Where can I learn the merits of tcsh vs. bash vs. csh vs. sh etc? - - You can read the manual page section titled [NEW FEATURES] listing - features that tcsh adds to csh. - - You can read Tom Christiansen's [Csh Programming Considered Harmful], - a document advocating that csh (and by extension, tcsh) should not be - used for writing shell scripts. - - XXX: Need to find something about [bash], but bash is sh-compatible - and has many of the same interactive features of tcsh (command - completion does not appear to be as flexible, though). - - [Curtains up: introducing the Z shell] has a pretty good rundown on - zsh. Aside from the arguments about csh being evil, tcsh appears to - compare well with zsh [zsh]. Zsh is sh and ksh compatible, with many - of the interactive features of tcsh. - _________________________________________________________________ - - 28. Why does FreeBSD's tcsh do history browsing differently than I - expect? - - On FreeBSD, by default, the up arrow is set to - "history-search-backward", rather than the default "up-history". As a - result, if you type (part of) a word and press up arrow, you'll see - previous commands that match the prefix. Pretty useful, actually, - although it takes some getting used to. You can use bindkey to see - your settings, and to rebind up & down differently if desired. - _________________________________________________________________ - - Everything else is a bug :-( - - Christos - _________________________________________________________________ - - Home | RecentChanges | Preferences - Edit text of this page | View other revisions - Last edited April 29, 2004 15:02 (diff) - Search: ____________________ diff --git a/contrib/tcsh/Fixes b/contrib/tcsh/Fixes deleted file mode 100644 index 7da8ac9..0000000 --- a/contrib/tcsh/Fixes +++ /dev/null @@ -1,1844 +0,0 @@ - 74. V6.15.00 - 20070303 - 73. fix extension eating windows code (christos) - 72. fix loop in %R history expansion (christos) - 71. sched +X source file disables interrupts (Mike Sullivan) - 70. One off copying macro buffers (Jean-Luc Leger) - 69. Avoid infinite loops in :ga modifiers when the LHS is a substring of the - RHS. - 68. Automatically disable WIDE_STRINGS with --disable-nls (Miloslav Trmac) - 67. V6.14.07 - 20060825 - 66. rename set to setv to avoid clashes (christos) - 65. Eliminate sighold/sigrelse (christos) - 64. Compilation cleanups. (Martin Kraemer) - 63. Don't rebuild needlessly when generated files are unchanged - (Martin Kraemer) - 62. Fix confusion between Char and eChar (Martin Kraemer) - 61. V6.14.06 - 20060824 - 60. set PROGRAM_ENVIRONMENT for OSD_POSIX (Martin Kraemer) - 59. EBCDIC patch (Martin Kraemer) - 58. Remove globbing support in history rearches (Ryan Barrett) - 57. Highlighting patch (Ryan Barrett) - 56. Mark-Cursor exchange emacs editing fix (Martin Kraemer) - 55. V6.14.05 - 20060304 - 54. don't limit termcap strings to 1K (Alan Ferrency) - 53. protect against null path. - 52. Be more conservative in wide_read PR#29 - 51. remove HAVE_STRCOLL; not needed anymore (Miloslav Trmac) - 50. remove imake support and make nls configurable by configure - (Miloslav Trmac) - 49. V6.14.04 - 20060214 - 48. Fixes build failure with !SHORT_STRINGS (Miloslav Trmac) - 47. Fixes constness warnings with !SHORT_STRINGS: short2str is "strip()", - which modifies its argument. Rather than verify this is safe in all - callers, I have added caching_strip() to mirror the behavior of other - modes. (Miloslav Trmac) - 46. Fixes some constness warnings with SHORT_STRINGS; this is orthogonal - to both build errors with SHORT_STRINGS in 6.14.03, and - short_strings.patch. (Miloslav Trmac) - 45. config-catalogs.patch: Autodetect catalog support (#14). (Miloslav Trmac) - 44. auth.patch: Handle false positives in getauthid() detection, - IIRC on FreeBSD. (Miloslav Trmac) - 43. crypt.patch: Autodetect whether <crypt.h> is available. (Miloslav Trmac) - 42. sigint.patch: Block SIGINT while waiting on children. - This is necessary, but I'll still have to look on the older - releases to find out why it was not necessary before - ("before" = 6.13 on Linux). (Miloslav Trmac) - 41. config-package.patch: Readd package version to configure.in, - the testsuite uses it. - (TODO: a better integration with package.h) (Miloslav Trmac) - 40. item_len.patch: Truncate item.len when truncating the string, - just to be sure. (Miloslav Trmac) - 39. va_list.patch: Add missing va_end(). (Miloslav Trmac) - 38. Use va_copy in xvasprintf(); emulate va_copy as suggested in - Autoconf manual if it is not available. (Miloslav Trmac) - 37. declarations.patch: Replace some #ifdef nests by autodetecting - whether the guarded declaration is necessary. - I'm only guessing this is the intent of the #ifdefs, though. - Declare environ unconditionally, it is a bit hard to detect - and the declaration is correct for Linux, anyway. (Miloslav Trmac) - 36. warning.patch: Fix a const warning. - 35. More color-ls variables (Jean-Luc Leger) - 34. V6.14.03 - 20060212 - 33. Signal related changes (Miloslav Trmac) - 32. Misc cast cleanups and code clarification (Miloslav Trmac) - 31. Use dynamically allocated buffers everywhere (Miloslav Trmac) - 30. Fix reading of invalid byte sequences (Miloslav Trmac) - 29. read should only increment count when it succeeds (Miloslav Trmac) - 28. testsuiteadditions (Miloslav Trmac) - 27. -n fixes (Miloslav Trmac) - 26. signness warnings (Miloslav Trmac) - 25. Prevent infinite recursion in catclose (Gerhard Niklasch) - 24. Add Dragonfly (Joerg Sonnenberger) - 23. Check for wcwidth returning a negative number (TOMITA Yoshinori) - 22. recognize "li" and "co" in echotc (Martin Kraemer) [PR/7] - 21. Don't use T_Cols for wrapping purposes; use TermH consistently - (Martin Kraemer) [PR/8] - 20. Don't display duplicate utmp records (Miloslav Trmac) [PR/17] - 19. Clarify hashing and -f sections of man page (Volker Quetschke) [PR/20] - 18. Dave Yearke: configure did not recognize solaris 10 [PR/18] - 17. CYGWIN: Don't lowercase commands and allow foo.exe on command line. - (Corinna Vinschen) [PR/19] - 16. CYGWIN: cd /foo && cd .. ends up erroneously in // for systems that - HAVE_SLASHSLASH [PR/21] - 15. %j was broken (Peter Kruse) - 14. Extend // handling in pathnames from being apollo specific to also - cygwin (Corinna Vinschen) - 13. Fix uppercase/lowercase transformations (Jean-Luc Leger) - 12. Fix symlink expansion (revert from 6.10.00) (Jean-Luc Leger and Christos) - 11. Fix literal sequence in prompt (Miloslav Trmac) - 10. V6.14.02 - 20050412 - 9. Prototype fixes (Miloslav Trmac and Jean-Luc Leger) - 8. V6.14.01 - 20050411 - 7. Make =- refer to $owd (H.Merijn Brand) - 6. Use prototypes (almost) everywhere (Miloslav Trmac) (issue #5) - 5. Fix doc path in Cygwin installation (Corinna Vinschen) - 4. Fix column size calculation (Martin Kraemer) - 3. Implement newline-and-hold and newline-and-down-history (Per Hedeland) - 2. Messages fixes for the ja (Japanese) locale (NAKAMURA Takeshi) (issue #4) - 1. Enable charset conversion in nls (Miloslav Trmac) (issue #3) - - 76. V6.14.00 - 20050325 - 75. Additional messages for the ja (Japanese) locale (NAKAMURA Takeshi) - 74. V6.13.10 - 20050321 - 73. Implement --help (Tom Warzeka) - 72. Clamp solaris autologout time - 71. Add support for "limit heapsize" (Martin Kraemer) - 70. Improved autoconf for utmp/utmpx (Miloslav Trmac) - 69. V6.13.09 - 20050303 - 68. Autoconf additions (Miloslav Trmac and Jean-Luc Leger) - 67. Fix erroneous sign extension when printing huge numbers (Martin Kraemer) - 66. Handle delay in termcap entries (Martin Kraemer) - 65. EBCDIC and BS2000 fixes (Martin Kraemer) - 64. Avoid the SCCS percent-S-percent sequence differently (Kimmo Suominen) - 63. Mark position update fixes (Martin Kraemer) - 62. Define BSDLIMIT and BSDTIMES for Cygwin (Corinna Vinschen) - 61. Fix NLSFrom prototype (Martin Kraemer) - 60. V6.13.08 - 20050303 - 59. Add test for socklen_t in autoconf - 58. Fix problems with NLSFrom prototype - 57. Deal with AIX's utmpx lossage - 56. V6.13.07 - 20050118 - 55. constifications, XXX: duplicate prototype on setpgrp(). - 54. iconv fixes (Miloslav Trmac) - 53. literal code cleanups (Miloslav Trmac) - 52. move intptr_t definition to sh.h and include both stdint.h and inttypes.h - 51. Fix dup2() issues, and introduce FSAFE as the highest file descriptor - to be left untouched. This is to avoid closing hesiod/nis etc file - descriptors behind their backs. I need to really fix file descriptor - handling one day. - 50. forward<->reverse char conversion verification (Miloslav Trmac) - 49. japanese locale additions (Yoshiyuki Sakakibara) - 48. wide character/utf 8 cleanups (Michael Schroeder) - 47. V6.13.06 - 20050105 - 46. autoconf cleanup (Miloslav Trmac) - 45. Fix literal refresh code (Michael Schroeder) - 44. Fix history printing bug with WIDE_STRINGS - 43. V6.13.05 - 20041121 - 42. deal with not having intptr_t - 41. get rid of bool. - 40. Protect HAVE_ICONV with NLS_CATALOGS - 39. Deal with wchar_t being unsigned. - 38. If we HAVEUTMPX redefine some utmp functions in terms of utmpx ones. - 37. V6.13.04 - 20041120 - 36. Fix display problems with two-column characters when using WIDE_STRINGS. - (Miloslav Trmac) - 35. Change charset declarations for some of the translations. - (Miloslav Trmac) - 34. Set O_LARGEFILE properly (Miloslav Trmac) - 33. Use libc functions to access utmp data (Miloslav Trmac) - 32. t_pmatch() was not really case-insensitive when cs == 8 - (Miloslav Trmac) - 31. Fix escaping of "control" bytes 0x80..0x9F when they are actually - parts of UTF-8 character representation. (Miloslav Trmac) - 30. V6.13.03 - 20041120 - 29. More close_on_exec fixes (Miloslav Trmac) - 28. SUSE dspmbyte fixes (via Harald) - 27. Newline handling in command substitution controlled by csubstnonl - (Miloslav Trmac) - 26. Fix UNC prompt expansion (WIN32) (Yasuhiro Matsumoto) - 25. Fix incorrect xprintf() usage (Miloslav Trmac) - 24. Additional architectures support for $HOSTTYPE and $MACHTYPE - (Miloslav Trmac) - 23. Use nl_langinfo(CODESET) to determine $dspmbyte (Miloslav Trmac) - 22. Complete arguments that contant a # (Steven Grady) - 21. Set close-on-exec in subshells - 20. Compilation fixes (Miloslav Trmac) - 19. V6.13.02 - 20040804 - 18. de-register, de-extern, de-shadow, and const poison. - 17. WIDE_STRINGS support (Miloslav Trmac) - 16. warning cleanups (Miloslav Trmac) - 15. nlsclose() arg passing, exp2 is now a gcc builtin (Mark Peek) - 14. iconv malloc portability fix. - 13. make automatic dspmbyte determination case insensitive - 12. V6.13.01 - 20040724 - 11. bug fix in automatic dspmbyte setting (Miloslav Trmac) - 10. iconv patches (Miloslav Trmac) - 9. cygwin signal fixes; only init 32 signals, don't set bit flag on error; - breaks SIGHUP. (Corinna Vinschen) - 8. Make sure terminal size change takes effect immediately. - 7. Obey $printexitvalue for builtins. - 6. FreeBSD PR/66420: Allow history parsing to be special so that it - can handle inline # characters (Oliver Eikemeier) - 5. new termname builtin from (Andrew Stevenson) - 4. if ($var =~ *[^0-9]*) echo not numeric, fix (Andrew Stevenson) - 3. completion fix to avoid dup hosts from ssh_known_hosts - (Eric D. Hendrickson) - 2. vc++ 7.1 compilation fix (Steve Schockley) - 1. UTF-8 handling for both single and double width characters, but - no combining character support. (Michael Schroeder) - - 36. V6.13.00 - 20040519 - 35. V6.12.03 - 20040322 - 34. turn on kanji and dspmbyte by default; add check for utf8 locales, - and turn parsing of that automatically based on $LANG. - 33. Fix compilation issue under Windows/NT and charset incorrect patch - (Yoshiyuki Sakakibara) - 32. completion additions (Tom Warzeka) - 31. compilation fix (Martin Kraemer) - 30. V6.12.02 - 20040221 - 29. Glob completion listing addition (Tom Warzeka) - 28. BS2000 bs2cmd builtin. (Martin Kraemer) - 27. Fix interrupt resetting code when /etc startup scripts have syntax errors - (Mark A. Grondona) - 26. Clarification of kill-ring commands (Per Hedeland) - 25. Debian completion additions (Martin Godisch) - 24. Japanese character set fixes (Juehiro-san) from debian - 23. NLS charset fixes; disabled since they only work with gnu gencat - (Martin Godisch) - 22. Fix HPUX >= 11 resource (Jack Cummings) - 21. Handle breaksw that jumps out of loops. - 20. Revert #16. It causes worse problems. - 19. Avoid using execl() because the last NULL does not always promoted to - a pointer because the function is variadic (Harti Brandt) - 18. revert ignoreeof to the 6.11.00 behavior and document it (Martin Godisch) - 17. do a case insensitive comparison for the multibyte vars (Martin Godisch) - 16. don't sigsuspend() for an already exited job - 15. glob all arguments in source (Martin Godisch) - 14. various debian fixes (Martin Godisch) - 13. setenv syntax check revert (Satoshi I. Nozawa) - 12. EAGAIN typo (dan harkless) - 11. filec compilation issue on hpux (beebe) - 10. win32 compilation fixes for O_LARGEFILE (amol) - 9. Don't go into an infinite loop when tcgetpgrp() returns an error. - 8. Cygwin fixes (Corinna Vinschen) - 7. NLS catclose() bug avoidance (KAJIMOTO Masato) - 6. V6.12.01 - 20030208 - 5. Misc NT cleanup. No more GPL code (amol) - 4. use strtol() to detect errors in builtin kill (Peter Jeremy) - 3. Recognize linux systems on mips* (Maciej W. Rozycki) - 2. Enable complete=igncase on unix (Stephen Krauth) - 1. Eliminate maxitems (Todd Miller) - - 58. V6.12.00 - 20020732 - 57. misc cleanups. - 56. V6.11.05 - 20020712 - 55. We should have socklen_t in the INET6 case, but we leave int otherwise. - 54. Fixed for Darwin/Rhapsody (Mark Peek) - 53. provide new config.sub and config.guess from ftp://ftp.gnu.org/gnu/config/ - (Nelson Beebe) - 52. V6.11.04 - 20020709 - 51. Dissallow setting of environment variables that do not contain - alphanumeric names (Ton Voon) - 50. Don't expand path components that don't resolve to path names (Jonathan - Chen) - 49. Make $ignoreeof agree with the man page (Matias Moreno Meringer) - 48. Fix argument passing in tc.prompt.c expdollar (Nelson Beebe) - 47. Completion fixes from FreeBSD (Mark Peek) - 46. FreeBSD's sbsize limit (Mark Peek) - 45. Fix repeat 3 repeat 2 echo foo - 44. Fix I/O redirection in scripts (Ian D Allen) - 43. Fix ` \\\n ` evaluation (Jean-Luc Leger) - 42. add --version (Nelson Beebe) - 41. portability fixes for sed (Nelson Beebe) - 40. undef sv_handler for AIX's benefit. (Nelson Beebe) - 39. Add a test for ss_family that disables IPV6 (linux/ppc, osf/1 have - problems) (Nelson Beebe) - 38. Disable ipv6 for Apple (Nelson Beebe) - 37. Fix darwin configure entry (Nelson Beebe) - 36. V6.11.03 - 20020701 - 35. Add Ian D. Allen's bug list. - 34. If we are invoked as csh, default to bsd echo (Matej Vela) - 33. Don't close file descriptors too early because setuid scripts fail. - (Jill Pryse-Davies) - 32. Completion updates (Tom Warzeka) - 31. Fix compilation issue on SunOS4 with _POSIX_VDISABLE (Tom Warzeka) - 30. ukrainian update (Olexander Kunytsa) - 29. DSPMBYTE=utf8 patch (Jean-Luc Leger) - 28. fix ipv4 only compilation, remove extra sigsetmask() call (Takayuki Nakao) - 27. window change can cause free to be re-entered causing abort (Mark Peek) - 26. vp->vec vetting, suggested by Ian Dall. - 25. V6.11.02 - 20020516 - 24. Fix prompt bugs in $var and %c0n (TAKAI Kousuke) - 23. Add Cray SV2 config (Rafal Maszkowski) - 22. Add pdf manual page (Warren Ferguson) - 21. Fix REMOTEHOST lossage in with AF_LOCAL sockets (Tom Mander) - 20. Fix win32 break because of TIOCSTI (Amol) - 19. Fix TIOCSTI for hpux 11 (Igor Schein) - 18. Avoid collapsing paths that refer to non-existent components - (Martin Kraemer) - 17. Make -shell invocations always treated as a login shell. - 16. V6.11.01 - 20020308 - 15. Fixes to polish nls locale (Pawe³ Niewiadomski) - 14. russian locale fixes (Alexey Dokuchaev) - 13. document door support (Shaen) - 12. tcsh euc handling extensions (Alexey Zelkin) - 11. Make sure that jobcmd does not clobber the current job (Rob McMahon) - 10. Make sure that the output of verbose and echo do not end up in the - command output (Victor I. Pasko) - 9. Add %j in prompt [needs more work; is not right the first time - after proclist changes] (Hr. Peter Kruse) - 8. `` commands with embedded newlines would ignore commands following - the new line (Victor I. Pasko) - 7. Re-initialize nls if NLSPATH is changed (Naoki Wakamatsu) - 6. Fix 64 bit compilation with linux and resource limits. - 5. Avoid double globbing when ls-F needs to fork (Joe Townsend) - 4. put back csh filec compatible support. - 3. add support for quads in xprintf in the presence of gcc. - 2. unlimit should set rlim.rlim_max to rlim.rlim_cur if max < cur. - 1. Make ~user work again when the home directory is '/'. - - 40. V6.11.00 - 20010902 - 39. Completion fixes (Tom Warzeka) - 38. make c_insert not static so that it can be used from win32 (amol) - 37. Fix rmstar not to corrupt memory when we say no. (Mark Peek) - 36. V6.10.02 - 20010806 - 35. polish nls locale (Pawe³ Niewiadomski)) - 34. Fix a tcsetattr race running background jobs as the last line on an xterm - window (Andrew Brown) - 33. jobcmd alias (Greg Parker) - 32. hpux11 support (Joshua Weage) - 31. Fix SHORT_STRINGS compilation (Daniel Trinkle) - 30. Add kill -s (Mark Peek) - 29. Don't recognize all mips as dec (Bjorn Knutsson) - 28. Fix GLOB_QUOTE problem (noted by Per) I introduced in 6.10.01. - 27. Port to concurrent's powermaxos (Matt Majka) - 26. New builtin srcfile (Amol) - 25. Fix bindkey "\\" cmd (reported by Ismail H. Tuncer) - 24. %0Xc was broken in the prompt if the user's home directory was '/'. - (reported by Edward Glowacki) - 23. V6.10.01 - 20010426 - 22. LARGEFILE support on Linux. - 21. Add big5 multibyte support (Yen-Ming Lee) - 20. Check the return value of setpriority (Dima Dorfman) - 19. Avoid constructing paths with // on DomainOS (Nickolai Zeldovich) - 18. Russian translation (Ilmar S. Habibulin) - 17. Fix hostdefs for alpha support in FreeBSD (Andrey A. Chernov) - 16. Add door support in colorls (Shaen) - 15. Add BSD_STYLE_COLORLS for FreeBSD (Anand) - 14. MAXHOSTNAMELEN needs to be 256 (Kris Kennaway) - 13. Document stty -tabs problems on compaq (Nelson H. F. Beebe) - 12. Fix broken comment, and new versions of config.guess and config.sub - (H.Merijn Brand) - 11. fix redrawing in the recognize case (Andrew Brown) - 10. don't call qsort with 0 items. (Luke Mewburn) - 9. fix echo;echo;echo; not outputing anything (Andrey A. Chernov) - 8. Fix shell word parsing in dabbrev-expand (Per Hedeland) - 7. hpux fixes (Chienting Lin) - 6. Implement kill ring (Per Hedeland) - 5. Avoid core-dumping when a very long $HOME gets passed in (Kris Kennaway) - 4. Add rlimit_vmem for linux based on rlimit_as (N KomaZaki) - 3. back out symlink=expand path check. - 2. Add Estonian translation (Toomas Soome) - 1. Accept empty $savedirs to mean infinity. - - 57. V6.10.00 - 20001119 - 56. Completion fixes (Tom Warzeka) - 55. add missing linux kanji define (Tsuyoshi Kawabe) - 54. More WINNT_NATIVE fixes (amol) - 53. Fix compile error on winnt (Yoshiyuki Sakakibara) - 52. nonstopux configure and makefile fixes (Tom Bates) - 51. V6.09.04 - 20001111 - 50. Order of initialization for multibyte display was wrong - (HyunChul Kim) - 49. Follow the guideline for linux for japanese locale: - http://www.linux.or.jp/JF/JFdocs/Japanese-Locale-Policy.txt - (Tomohiro KUBOTA) - 48. Ukrainian nls map (Olexander Kunytsa) - 47. exit immeditiately if we get an error while we are setting up - (Michael Shalayeff) - 46. (unset path; unsetenv PATH; rehash) -> crash (Kent Vander Velden) - 45. change winnt to winnt_native (Randolph Fritz) - 44. Support home/end in the editor (Andrey A. Chernov) - 43. Typo s/gycwin/cygwin/ in tc.os.h (Andreas Schott) - 42. Alpha ev6 addition (Karen R. McArthur) - 41. DSPMBYTE patch from (Issei Suzuki) - 40. Security fix for here-doc tmp files (proton@ENERGYMECH.NET) - 39. Fix resource limit rounding *again* (Johannes Gross) - 38. Fix $ expansion in prompt (Takashi Sumiyoshi) - 37. V6.09.03 - 20000715 - 36. cygwin port fixes (Arihiro Yoshida) - 35. Add a new "catalog" variable that specifies which NLS catalog - to be used (Issei Suzuki) - 34. cleanup and addition of page up/down (amol) - 33. fix vfork compile problem. - 32. use inet_addr instead of inet_aton for portability. - 31. V6.09.02 - 20000704 - 30. lots more completions (George Cox) - 29. change FILSIZ to BUFSIZE [now that BUFSIZE >> MAXPATHLEN] and - avoid a potential buffer overflow in sh.dir.c (Volker Schmidt) - 28. _MINIX_VMD port (Martijn van Buul) - 27. inet6 handling for remotehost and configure (Hajimu UMEMOTO) - 26. aix-4 does not need gethostname (Darren Reed) - 25. IBM OS/390 Unix Systems Services support (Peter Prymmer) - 24. Fix prompt formatting (Andrey A. Chernov) - 23. Use HostType from Imakefile correctly (Kjetil Torgrim Homme) - 22. Handle long and expanded history lines better (Boleslaw Ciesielski) - 21. With symlinks=expand expand valid paths only (Martin Kraemer) - 20. Make one-byte charsets work with KANJI (Andrey A. Chernov) - 19. NT-specific executable detection moved to NT code (amol) - 18. New "complete module" (Dan Nicolaescu) - 17. Correctly display scaling string in limit error messages (Nathan Ahlstrom) - 16. Don't display "unset watch" message when not appropriate (kim) - 15. V6.09.01 - 20000114 - 14. Circumvent IRIX4D ESTALE bug by exiting. - 13. IRIS4D de-linting. - 12. Finnish nls catalogs (Jukka A. Ukkonen) - 11. Even more multibyte fixes (Taga Nayuta) - 10. Patches to statically link tcsh under solaris-2.6 (John Hawkinson) - 9. Manual page typos (R. Bernstein) - 8. HP/UX-11 (9000/800) HP/UX-10.20 (9000/820) (Haflidi Sigtryggur Magnusson) - 7. Color-ls fixes (Luis Francisco Gonzalez) - 6. 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) - 5. Time percentage wrap fix (Simon Burge) - 4. EUCKR support (HyunChul Kim) - 3. Grammar and typo fixes for tcsh.man (Steve Kelem) - 2. More multibyte fixes (Rodney Ruddock) - 1. 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 9dc3323..0000000 --- a/contrib/tcsh/Imakefile +++ /dev/null @@ -1,624 +0,0 @@ -XCOMM -XCOMM $tcsh: Imakefile,v 1.85 2006/03/02 18:46:44 christos Exp $ -XCOMM -XCOMM Imakefile for tcsh 6.12 -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 - -# if defined(LinuxArchitecture) || defined(GNUArchitecture) -# define ConfigH linux -# endif - -# ifdef AlphaArchitecture -# if !defined(LinuxArchitecture) && !defined(GNUArchitecture) -# 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.12 - -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 glob.c \ - sh.char.h sh.dir.h sh.proc.h sh.h \ - sh.decls.h 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.file.${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 01395f0..0000000 --- a/contrib/tcsh/MAKEDIFFS +++ /dev/null @@ -1,41 +0,0 @@ -#!/bin/sh -# -# MAKEDIFFS.sh: Make context diffs for the csh sources -# -# $tcsh: MAKEDIFFS,v 3.1 2006/03/02 18:46:44 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 f2238e8..0000000 --- a/contrib/tcsh/MAKESHAR +++ /dev/null @@ -1,121 +0,0 @@ -#!/bin/sh -# -# MAKESHAR.sh: Make a shar file for the sources -# -# $tcsh: MAKESHAR,v 3.2 2006/03/02 18:46:44 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.ADMIN b/contrib/tcsh/Makefile.ADMIN deleted file mode 100644 index 9661906..0000000 --- a/contrib/tcsh/Makefile.ADMIN +++ /dev/null @@ -1,20 +0,0 @@ -# -# Makefile.ADMIN -# -# Maintenance tasks -# -# You can refetch files from the website, then run "cvs diff" to -# sanity check any changes before committing. -# - -LYNX= lynx -dump -nolist -TRIM= expand | sed -e 's/^ *$$//' | cat -s -WEB= http://www.tcsh.org/page? - -.for i in FAQ WishList -$i: force - ${LYNX} ${WEB}$i | ${TRIM} > ${.TARGET} -.endfor - -.DUMMY: force -force: diff --git a/contrib/tcsh/Makefile.in b/contrib/tcsh/Makefile.in deleted file mode 100644 index f925c5a..0000000 --- a/contrib/tcsh/Makefile.in +++ /dev/null @@ -1,699 +0,0 @@ -# $tcsh: Makefile.in,v 3.36 2006/08/24 20:56:31 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=@PACKAGE_VERSION@ -BUILD=tcsh$(EXEEXT) -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='"${bindir}/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) @LIBICONV@ - - - -# 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 -Wmissing-prototypes -Wstrict-prototypes -Wpointer-arith -Werror -Wmissing-declarations -Wredundant-decls -Wnested-externs -Wsign-compare -Wcast-qual -Wreturn-type -Wswitch -Wshadow -Wwrite-strings -#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) -EXEEXT=@EXEEXT@ -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.file.${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.nls.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.nls.${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 \ - tests/testsuite.at -TESTFILES= tests/aliases.at tests/arguments.at tests/commands.at \ - tests/expr.at tests/lexical.at tests/mb-eucjp.at tests/mb-utf8.at \ - tests/noexec.at tests/syntax.at tests/subst.at tests/variables.at \ - tests/sh.dol.at - -VHSRCS=${PVSRCS} ${AVSRCS} - -CONFSRCS=config/* - -ALLSRCS= ${SHSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${VHSRCS} -DISTSRCS= ${PSSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${AVSRCS} $(TESTFILES) - - -OBJS= ${SHOBJS} ${TWOBJS} ${EDOBJS} ${TCOBJS} - - -all: ${BUILD} - -tcsh$(EXEEXT):$(P) ${OBJS} - rm -f tcsh$(EXEEXT) core - ${CC} -o tcsh$(EXEEXT) ${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$(EXEEXT) core - purify `echo ${CC} | sed -e s,-B/bin/,,` -o tcsh$(EXEEXT) ${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 $@.tmp - @echo "/* Do not edit this file, make creates it */" > $@.tmp - ./gethost $(srcdir)/host.defs >> $@.tmp - @if [ -f $@ ] && cmp -s $@.tmp $@; then echo $@ unchanged.; rm -f $@.tmp; else mv -f $@.tmp $@; echo $@ recreated.; fi - -tcsh.ps: tcsh.man - rm -f tcsh.ps - -ptroff -t -man $(srcdir)/tcsh.man > tcsh.ps - -.c.${SUF}: - ${CC} ${CF} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ${EXTRAFLAGS} $< - -.SUFFIXES: .s .i - -.c.i: - ${CC} -E ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ${EXTRAFLAGS} $< | cat -s > $@ - -.c.s: - ${CC} -S ${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 $@.tmp - @echo '/* Do not edit this file, make creates it. */' > $@.tmp - @echo '#ifndef _h_ed_defns' >> $@.tmp - @echo '#define _h_ed_defns' >> $@.tmp - grep '[FV]_' $(srcdir)/ed.defns.c | grep '^#define' >> $@.tmp - @echo '#endif /* _h_ed_defns */' >> $@.tmp - @if [ -f $@ ] && cmp -s $@.tmp $@; then echo $@ unchanged.; rm -f $@.tmp; else mv -f $@.tmp $@; echo $@ recreated.; fi - -sh.err.h: sh.err.c - @rm -f $@.tmp - @echo '/* Do not edit this file, make creates it. */' > $@.tmp - @echo '#ifndef _h_sh_err' >> $@.tmp - @echo '#define _h_sh_err' >> $@.tmp - grep 'ERR_' $(srcdir)/sh.err.c | grep '^#define' >> $@.tmp - @echo '#endif /* _h_sh_err */' >> $@.tmp - @if [ -f $@ ] && cmp -s $@.tmp $@; then echo $@ unchanged.; rm -f $@.tmp; else mv -f $@.tmp $@; echo $@ recreated.; fi - -tc.const.h: tc.const.c sh.char.h config.h config_f.h sh.types.h sh.err.h - @rm -f $@.tmp - @echo '/* Do not edit this file, make creates it. */' > $@.tmp - @echo '#ifndef _h_tc_const' >> $@.tmp - @echo '#define _h_tc_const' >> $@.tmp - ${CPP} $(CPPFLAGS) ${DFLAGS} ${EXTRAFLAGS} -D_h_tc_const\ - $(srcdir)/tc.const.c | \ - sed -n -e 's/^\(Char STR[a-zA-Z0-9_]*\) *\[ *\].*/extern \1[];/p' | \ - sort >> $@.tmp - @echo '#endif /* _h_tc_const */' >> $@.tmp - @if [ -f $@ ] && cmp -s $@.tmp $@; then echo $@ unchanged.; rm -f $@.tmp; else mv -f $@.tmp $@; echo $@ recreated.; fi - -$(srcdir)/tests/package.m4: $(srcdir)/configure.in - { \ - echo '# Signature of the current package.'; \ - echo 'm4_define([AT_PACKAGE_NAME], [@PACKAGE_NAME@])'; \ - echo 'm4_define([AT_PACKAGE_TARNAME], [@PACKAGE_TARNAME@])'; \ - echo 'm4_define([AT_PACKAGE_VERSION], [@PACKAGE_VERSION@])'; \ - echo 'm4_define([AT_PACKAGE_STRING], [@PACKAGE_STRING@])'; \ - echo 'm4_define([AT_PACKAGE_BUGREPORT], [@PACKAGE_BUGREPORT@])'; \ - } >$(srcdir)/tests/package.m4 - -$(srcdir)/tests/testsuite: tests/package.m4 tests/testsuite.at $(TESTFILES) - autom4te --language=autotest -I $(srcdir)/tests \ - $(srcdir)/tests/testsuite.at -o $@.tmp - mv $@.tmp $@ - -atconfig: config.status - $(SHELL) ./config.status ./atconfig - - -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$(EXEEXT) - -mkdir -p ${DESTBIN} - -mv -f ${DESTBIN}/tcsh$(EXEEXT) ${DESTBIN}/tcsh.old - cp tcsh$(EXEEXT) ${DESTBIN}/tcsh$(EXEEXT) - -strip ${DESTBIN}/tcsh$(EXEEXT) - chmod 755 ${DESTBIN}/tcsh$(EXEEXT) - -install.man: tcsh.man - -mkdir -p ${DESTMAN} - -rm -f ${DESTMAN}/tcsh.${MANSECT} - cp $(srcdir)/tcsh.man ${DESTMAN}/tcsh.${MANSECT} - chmod 444 ${DESTMAN}/tcsh.${MANSECT} - -install.cygwin: install install.man - -mkdir -p ${DESTDIR}${prefix}/share/doc/tcsh - cp ${srcdir}/FAQ ${srcdir}/Fixes ${DESTDIR}${prefix}/share/doc/tcsh - cp ${srcdir}/NewThings ${srcdir}/README ${DESTDIR}${prefix}/share/doc/tcsh - cp ${srcdir}/WishList ${srcdir}/Y2K ${DESTDIR}${prefix}/share/doc/tcsh - perl ${srcdir}/tcsh.man2html ${srcdir}/tcsh.man - cp -rp tcsh.html ${DESTDIR}${prefix}/share/doc/tcsh - -mkdir -p ${DESTDIR}/etc/profile.d - -mkdir -p ${DESTDIR}/etc/postinstall - cp -p ${srcdir}/cygwin/etc/csh.* ${DESTDIR}/etc - cp -p ${srcdir}/cygwin/etc/profile.d/*.tcsh ${DESTDIR}/etc/profile.d - cp -p ${srcdir}/cygwin/etc/postinstall/tcsh.sh ${DESTDIR}/etc/postinstall - -# 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$(EXEEXT) tcsh.a _MAKE_LOG gethost - ${RM} -f *.${SUF} *.i *.s - ${RM} -f 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 Makefile config.h config_p.h - ${RM} -f config.status config.cache config.log tcsh.ps - ${RM} -f missing - ${RM} -rf autom4te.cache - ${RM} -f *~ #* - -distclean: veryclean - -cleandir: veryclean - -tags: /tmp - ${CTAGS} sh*.c - -tar.Z: - rm -f tcsh-${VERSION}.tar.Z - rm -rf tcsh-${VERSION} - -mkdir tcsh-${VERSION} tcsh-${VERSION}/config tcsh-${VERSION}/tests - 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 tcsh-${VERSION}/tests - 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 tcsh-${VERSION}/tests - 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} tcsh-${VERSION}/tests - ./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 - -check: atconfig $(srcdir)/tests/testsuite - $(SHELL) $(srcdir)/tests/testsuite - -# -# Dependencies -# -config.h: config_f.h - -TCH=tc.h tc.const.h tc.decls.h tc.nls.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} tc.nls.${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 1af09d9..0000000 --- a/contrib/tcsh/Makefile.std +++ /dev/null @@ -1,628 +0,0 @@ -# $tcsh: Makefile.std,v 1.97 2006/03/02 18:46:44 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.12 -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 - -# Minix-VMD -# CFLAGS= -O -D_ANSI_H -I /usr/include/bsdcompat $(INCLUDES) - -# 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.file.${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.nls.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.nls.${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.nls.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} tc.nls.${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 d3a258b..0000000 --- a/contrib/tcsh/Makefile.vms +++ /dev/null @@ -1,594 +0,0 @@ -# $tcsh: Makefile.vms,v 1.39 2006/03/02 18:46:44 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.12 -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.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.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.nls.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} tc.nls.${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 a372fbb..0000000 --- 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 43d29bc..0000000 --- a/contrib/tcsh/Ported +++ /dev/null @@ -1,1062 +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 : ibm390 -COMPILER: c89 -CFLAGS : normal -LIBES : -lcurses -OS : os390 R 2.7 -CONFIG : os390 -ENVIRON : USS (formerly OpenEdition, aka POSIX) -NOTES : Used GNU make for OS/390. -NOTES : Use `CFLAGS="" ./configure` to avoid -g and make binary -NOTES : half as large. -VERSION : 6.09.00 - -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 : Cray Research -MODELS : SV1, probably also SV2 -COMPILER: cc -CFLAGS : normal -LIBES : -ltermlib -OS : Unicos 10.0.1.0 -CONFIG : cray -ENVIRON : n/a -NOTES : none -VERSION : 6.11 - -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 -UNeXT" configure && make -VERSION : 6.08.00 - -VENDOR : Apple -MODELS : any -COMPILER: cc -CFLAGS : -O3 -pipe -g -arch ppc -arch i386 -OS : Darwin -CONFIG : darwin -ENVIRON : n/a -NOTES : CFLAGS="-O3 -pipe -g -arch ppc -arch i386 -UNeXT" configure && make -VERSION : 6.11.05 - -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 9648c27..0000000 --- a/contrib/tcsh/README +++ /dev/null @@ -1,207 +0,0 @@ -This is tcsh version 6.15. 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 doesn't work, goto step 1. - Run "./configure --help" to see possible options. After running - configure, goto step 3. - -1) Otherwise copy Makefile.std to Makefile. 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 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. - -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 DESTBIN and DESTMAN 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. - -12) PLEASE file any bug reports (and fixes), code for new features at: - - http://bugs.gw.com/ - - Comments, questions, etc. (even flames) are welcome via email to: - - The tcsh bugs mailing list - tcsh-bugs@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 - -*************************************************************************** - -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 dfe2e2f..0000000 --- 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/RELEASE-PROCEDURE b/contrib/tcsh/RELEASE-PROCEDURE deleted file mode 100644 index 54de676..0000000 --- a/contrib/tcsh/RELEASE-PROCEDURE +++ /dev/null @@ -1,27 +0,0 @@ -HOW TO RELEASE TCSH - -1) Update version number and date in patchlevel.h -2) Note the new version and date in Fixes -3) Updated tcsh.man to have the new version and date also - (two separate lines, with the date in different formats) -4) Commit changes into CVS -5) Tag the release with TCSHx_yy_zz where - x == REV - yy == VERS - zz == PATCHLEVEL - from patchlevel.h (the new values you picked) -6) Export the code using the new tag you created. Rename - the directory from "tcsh" to "tcsh-x.yy.zz" and create - tcsh-x.yy.zz.tar.gz (or tcsh-x.yy.tar.gz for public - releases where zz [PATCHLEVEL] is zero) -7) Export the previous release as well -8) Remove files that should not be in a release: - - Announce* - - Copyright - - Makefile.ADMIN - - RELEASE-PROCEDURE (this file) -9) Generate a "diff -urN" between the two directories you - have exported, save it in patchz.gz (z is PATCHLEVEL) -10) Make the patch and the source tarball available on ftp -11) Mail an announcement to tcsh@mx.gw.com -12) Mail the patch to tcsh-diffs@mx.gw.com diff --git a/contrib/tcsh/WishList b/contrib/tcsh/WishList deleted file mode 100644 index 6eb5acf..0000000 --- a/contrib/tcsh/WishList +++ /dev/null @@ -1,320 +0,0 @@ - - [Home] WishList - - Home | RecentChanges | Preferences - _________________________________________________________________ - - Surprised by this behavior...is this a bug? - - (Goal: e.g. distinguish between completely numeric args/names and - those containing non-numerics) - - % touch 1023 pex103 pex103a 104a z101 16a02 1999 2001 2001_A_Space_Odyssey - % ls -1 *[^0-9]* - 104a - 16a02 - 2001_A_Space_Odyssey - pex103 - pex103a - z101 - # (great, looks good to me. Got everything containing a nonnumeric, no more, n -o less.) - - % foreach p ( 1023 pex103 pex103a 104a z101 16a02 1999 2001 2001_A_Space_Odyss -ey ) - foreach? if ( $p !~ *[^0-9]* ) echo $p - foreach? end - # (no output. Huh?) - - % foreach p ( 1023 pex103 pex103a 104a z101 16a02 1999 2001 2001_A_Space_Odyss -ey ) - foreach? if ( $p =~ *[^0-9]* ) echo $p - foreach? end - 1023 (!) - pex103 - pex103a - 104a - z101 - 16a02 - 1999 (!) - 2001 (!) - 2001_A_Space_Odyssey - # (Huh?) - - The [MAN page description] for =~ and !~ just refer to "(see [Filename - substitution])', but evidently there is a (unexplained) difference. - The actual filename globbing looks correct to me, but the pattern - matching operator behavior is unexpected, if I'm not missing - something. - - tcsh 6.09.00 - - - bhooglan - _________________________________________________________________ - - I'm a long-time faithful user of tcsh, and one thing has always bugged - me -- the need to type "rehash" at a prompt when adding a new command. - My suggestions is to change tcsh so before printing "Command not - found.", it first searches its entire path and rebuilds its hash - table. Only after doing this, and if the command is still not in the - path, then print "Command not found.". I realize there are some - extreme cases in which this is suboptimal, but in most cases with - normal users this would be a big win, and simplify the manual and - perhaps even the code. - _________________________________________________________________ - - Wish "tcsh -l" would accept other flags. At least "-c". - - Currently I can't get ssh to have the right environment unless it is a - login shell. The .ssh/environment doesn't work for me because I login - to different machines with different environments. One thing to do - would be to not have the different environment for login compared to - other shells, but what I would really like is something like... - - ssh remote_application_server "tcsh -l -c application" - - The "ssh -t" doesn't work for me and I don't know why. - - Thanks Tim - - Fix limit vmemoryuse in Linux - - In Linux tcsh is unable to limit vmemoryuse. This is because - RLIMIT_VMEM isn't defined, instead Linux has RLIMIT_AS which means the - same. On Google groups I found patches suggested by Komazaki at - http://groups.google.com/groups?hl=sv&lr=&ie=UTF-8&oe=ISO-2022-JP&selm - =m3snmczvfc.wl%40thinkpad.osk.3web.ne.jp.osk.3web.ne.jp and Ogawa - Hirofumi suggests a patch at - http://groups.google.com/groups?hl=sv&lr=&ie=UTF-8&selm=87snmba4id.fsf - %40devron.myhome.or.jp None of these patches seems to have been - included in version 6.12 as 6.12 still has this problem. - - /Henrik?? - - New idea: use last line (or n'th line) of output as input to new - command. - - I often find myself typing something like: - - >locate lshort - /usr/local/stow/share/texmf/doc/latex/general/lshort.dvi . . . - /usr/local/store/share/texmf/doc/latex/general/lshort.dvi - - >xdvi /usr/local/store/share/texmf/doc/latex/general/lshort.dvi - - Now the way I accomplish writing the last line, is by moving the mouse - over the last line, and the copy paste it. It would be very nice, if - the shell could keep the last n lines of output in a buffer. This way - one could avoid using the mouse by typing something like: - - >xdvi <M-1> - - which would insert the last line of output, similarly <M-2> could - insert the second last line of output. (the exact commands used is of - course configured via bindkey). - - This could save me a couple of times to the mouse everyday - - di010070@diku.dk - - The shell does not capture any output from commands it runs, so - this is really more a feature for the terminal (be it hardware - or software). --Kim - - Fix memory leak related to aliasrun(). Precmd, Cwdcmd etc. leak - memory. - - Fix migrate -site $$... Seems to hang... (aix370) - - Fix history in loops. - - New idea: sed operations on variables. - - 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. - - </blockquote> - - 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. - - Make manual page references links in the HTML version of the manual. - - It is possible to match the words with ([0-9]) after them. Links could - be using the manual page CGI at http://www.tac.eu.org/cgi-bin/man-cgi - for content. - - Add OpenBSD?? to the Makefile, etc. - - A Csh compatability mode would be nice: I know tcsh is supposed to be - fully csh compatible, but csh scripts containing such constructs as - '$<' , 'if ( -d $file ) cd $file' or any of a great number of other - valid csh commands, will produce syntax errors or the like with tcsh, - which is frustrating when writing/maintaining csh scripts which have - to run on systems with only tcsh and systems with only csh. If such a - thing exists, I couldn't find it after searching the man page for two - hours, and it should be better documented - - Add hooks for command completion Either for a dynamically loaded - library, or a callback to another program that allows another pass to - complete the command. As a trivial example, the module could duplicate - the functionality of aliases. A tcsh_mud.so could define sigh, groan, - cheer, lol, etc to produce output if they weren't actually valid - commands. - - Properly deal with : in filename substitution - - Given something like - - blah.foo:*.foo - - expand it properly to something like - - blah.foo:baz.foo:bob.foo:bar.foo - - It already does this, if you have a file named like that... --Kim - - Directory commands don't handle blanks in filenames. If I have an - environment variable such as: - -% setenv TOMCAT '/c/Program? Files/Apache? Software Foundation/Tomcat? 5.0' -and then do the following, setenv complains that it has too many arguments. -% cd /tmp -% cd "$TOMCAT" -setenv: Too many arguments -% dirs -/c/Program? Files/Apache? Software Foundation/Tomcat? 5.0 /tmp -% pushd "$TOMCAT" -/c/Program? Files/Apache? Software Foundation/Tomcat? 5.0 -setenv: Too many arguments. -% pushd /tmp -/tmp /c/Program? Files/Apache? Software Foundation/Tomcat? 5.0 -% pushd -/c/Program? Files/Apache? Software Foundation/Tomcat? 5.0 /tmp -setenv: Too many arguments. - - Wish tcsh would feature fc (fix command) as in bash !Wish tcsh would - featuer fc (fix command) as in bash ! - - i wish for read-only CVS access to the sources (as i am on the - bleeding egde) - - Functions would be useful! As would being able to redirect stderr (or - other file descriptors) independently of stdout! -- Rohan Talip - - Don't complete commands with non-executable files. For example if I - have a file called README in a directory in the PATH, and I type R TAB - tcsh will complete README as a command. But README does not have the x - bit set, so it's kind of pointless to have that completion. - - --> Setting the shell variable "recognize_only_executables" will give - you this behavior. --Waz - - If I have in my .tcshrc: complete {cd,pushd} p/1/d/ and I type - "complete cd" at the shell prompt nothing is printed. It would be nice - if {cd,pushd} p/1/d/ was printed. - - --> I had programmed this feature a while ago but have not submitted - it because the implementation is not robust enough to keep TCSH from - crashing when special characters are part of the pattern. I'll get - back to it at some point! --Waz - - It would be nice if "set autolist" would be on by default. - - --- - - Unicode (UTF-8) doesn't seem to work. It's not even possible to "make - catalogs" in unicode environment. Also unicode support (and other - multibyte encodings) should depend on environment variables - (LC_CTYPE), not on "set dspmbyte". On unicode terminal translations - show empty characters instead of messages. - - In addition to message catalogs, there are more problems: -ipi:~/test/tcsh/bin> ls -tcsh åäö -ipi:~/test/tcsh/bin> set dspmbyte utf8 -ipi:~/test/tcsh/bin> ls ??? -ls: No match. - - Unicode is used more and more, and is default on many environments, so - this really should be fixed. --mpaananen - _________________________________________________________________ - - When I have a script called from complete I would like to have the the - existing text from the command line passed to that script so that it - can look at all existing words to detemine what it should output as - the completion list. - - For example: - - complete prog 'n/-x/`myscript`' - - Then when I do this: - - > prog -a A -b B -x <TAB> - - The script would get 'prog -a A -b B -x ' which would allow the script - to base its -x completions on the options given for -a and -b (or if - they aren't present give nothing - or a message saying that they are - required). Setting a temporary environment variable before executing - the command would also work and would probably be safer. - - Perhaps this info is already available as a special variable that can - be manually passed to the script: complete prog 'n/-x/`myscript - $cmd_line`'? - - Update: I looked into this further by actually downloading the code - and looking through it. It doesn't seem that this information is - available anywhere, but I did manage to achieve what I wanted by - adding the following two lines around the call to tw_complete (line - 278, tw.parse.c 6.12.00): - - added> tsetenv(STRCURRCMDLINE, (Char *)&qline); - looking = tw_complete(cmd_start, &wordp, &pat, looking, &suf); - - added> Unsetenv(STRCURRCMDLINE); - - And I added a definition for STRCURRCMDLINE to be "CURRCMDLINE". - - This provides the environment variable CURRCMDLINE to any - script/program running under complete. The only issue I see is picking - a sufficiently obscure environment variable that noone else is likely - to use, but have it readable enough to understand what it is for. It - also shouldn't overwrite an existing ENV variable if it is already in - use. - _________________________________________________________________ - - Home | RecentChanges | Preferences - Edit text of this page | View other revisions - Last edited March 25, 2004 10:27 (diff) - Search: ____________________ diff --git a/contrib/tcsh/Y2K b/contrib/tcsh/Y2K deleted file mode 100644 index daf6cd0..0000000 --- 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 42edcbd..0000000 --- a/contrib/tcsh/complete.tcsh +++ /dev/null @@ -1,1196 +0,0 @@ -# -# $tcsh: complete.tcsh,v 1.47 2006/03/02 18:46:44 christos Exp $ -# example file using the new completion code -# -# Debian GNU/Linux -# /usr/share/doc/tcsh/examples/complete.gz -# -# This file may be read from user's ~/.cshrc or ~/.tcshrc file by -# decompressing it into the home directory as ~/.complete and -# then adding the line "source ~/.complete" and maybe defining -# some of the shell variables described below. -# -# Added two Debian-specific completions: dpkg and dpkg-deb (who -# wrote them?). Changed completions of several commands. The ones -# are evaluated if the `traditional_complete' shell variable is -# defined. -# -# Debian enhancements by Vadim Vygonets <vadik@cs.huji.ac.il>. -# Bugfixes and apt completions by Miklos Quartus <miklos.quartus@nokia.com>. -# Cleanup by Martin A. Godisch <martin@godisch.de>. - -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 - if ( ! $?hosts ) 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 | grep -E -v "^#" | 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 - if ( -r $HOME/.ssh/known_hosts ) then - set f=`cat $HOME/.ssh/known_hosts | cut -f 1 -d \ ` >& /dev/null - set f=`cat $HOME/.ssh/known_hosts | cut -f 1 -d \ | sed -e 's/,/ /g'` >& /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/ - if ($?traditional_complete) then - complete tex n/*/f:*.tex/ # Only files that match *.tex - else - complete tex n/*/f:*.{tex,texi}/ # Files that match *.tex and *.texi - endif - 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,cpp,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 - if ($?traditional_complete) then - complete zcat n/*/f:*.Z/ - else - # "zcat" may be linked to "compress" or "gzip" - if (-X zcat) then - zcat --version >& /dev/null - if ($status != 0) then - complete zcat n/*/f:*.Z/ - else - complete zcat c/--/"(force help license quiet version)"/ \ - c/-/"(f h L q V -)"/ n/*/f:*.{gz,Z,z,zip}/ - endif - endif - endif - - 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 {refile,sprev,snext,scan,pick,rmm,inc,folder,show} \ - 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 - if ($?traditional_complete) then - 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)//' - else - complete ./configure \ - 'c@--{prefix,exec-prefix,bindir,sbindir,libexecdir,datadir,sysconfdir,sharedstatedir,localstatedir,infodir,mandir,srcdir,x-includes,x-libraries}=*@x:<directory e.g. /usr/local>'@ \ - 'c/--cachefile=*/x:<filename>/' \ - 'c/--{enable,disable,with}-*/x:<feature>//' \ - 'c/--*=/x:<directory>//' \ - 'c/--/(prefix= exec-prefix= bindir= \ - sbindir= libexecdir= datadir= sysconfdir= \ - sharedstatedir= localstatedir= infodir= \ - mandir= srcdir= x-includes= x-libraries= cachefile= \ - enable- disable- with- \ - help no-create quiet silent version verbose )//' - endif - 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 'find ${MODULEPATH:as/:/ /} -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%{unl*,sw*,inits*}%`echo "$LOADEDMODULES:as/:/ /"`%' \ - 'n%{lo*,di*,he*,inita*,initr*}%`eval Compl_module`%' \ - 'N%{sw*,initsw*}%`eval Compl_module`%' 'C%-%(-append)%' 'n%{use,unu*,av*}%d%' 'n%-append%d%' \ - 'C%[^-]*%`eval Compl_module`%' - endif - - # from George Cox - complete acroread 'p/*/f:*.{pdf,PDF}/' - complete apachectl 'c/*/(start stop restart fullstatus status graceful \ - configtest help)/' - complete appletviewer 'p/*/f:*.class/' - complete bison 'c/--/(debug defines file-prefix= fixed-output-files \ - help name-prefix= no-lines no-parser output= \ - token-table verbose version yacc)/' \ - 'c/-/(b d h k l n o p t v y V)/' 'n/-b/f/' 'n/-o/f/' \ - 'n/-p/f/' - complete bzcat c/--/"(help test quiet verbose license version)"/ \ - c/-/"(h t L V -)"/ n/*/f:*.{bz2,tbz}/ - complete bunzip2 c/--/"(help keep force test stdout quiet verbose \ - license version)"/ c/-/"(h k f t c q v L V -)"/ \ - n/*/f:*.{bz2,tbz}/ - complete bzip2 c/--/"(help decompress compress keep force test \ - stdout quiet verbose license version small)"/ \ - c/-/"(h d z k f t c q v L V s 1 2 3 4 5 6 7 8 9 -)"/ \ - n/{-d,--decompress}/f:*.{bz2,tbz}/ \ - N/{-d,--decompress}/f:*.{bz2,tbz}/ n/*/f:^*.{bz2,tbz}/ - complete c++ 'p/*/f:*.{c++,cxx,c,cc,C,cpp}/' - complete co 'p@1@`\ls -1a RCS | sed -e "s/\(.*\),v/\1/"`@' - complete crontab 'n/-u/u/' - complete camcontrol 'p/1/(cmd debug defects devlist eject inquiry \ - modepage negotiate periphlist rescan reset start \ - stop tags tur)/' - complete ctlinnd 'p/1/(addhist allow begin cancel changegroup \ - checkfile drop feedinfo flush flushlogs go hangup \ - logmode mode name newgroup param pause readers refile \ - reject reload renumber reserve rmgroup send shutdown \ - kill throttle trace xabort xexec)/' - complete cvs 'c/--/(help help-commands help-synonyms)/' \ - 'p/1/(add admin annotate checkout commit diff \ - edit editors export history import init log login \ - logout rdiff release remove rtag status tag unedit \ - update watch watchers)/' 'n/-a/(edit unedit commit \ - all none)/' 'n/watch/(on off add remove)/' - complete cxx 'p/*/f:*.{c++,cxx,c,cc,C,cpp}/' - complete detex 'p/*/f:*.tex/' - complete edquota 'n/*/u/' - complete exec 'p/1/c/' - complete ghostview 'p/*/f:*.ps/' - complete gv 'p/*/f:*.ps/' - complete ifconfig 'p@1@`ifconfig -l`@' 'n/*/(range phase link netmask \ - mtu vlandev vlan metric mediaopt down delete \ - broadcast arp debug)/' - complete imake 'c/-I/d/' - complete ipfw 'p/1/(flush add delete list show zero)/' \ - 'n/add/(allow permit accept pass deny drop reject \ - reset count skipto num divert port tee port)/' - complete javac 'p/*/f:*.java/' - complete ldif2ldbm 'n/-i/f:*.ldif/' - complete libtool 'c/--mode=/(compile execute finish install link \ - uninstall)/' 'c/--/(config debug dry-run features \ - finish help quiet silent version mode=)/' - complete libtoolize 'c/--/(automake copy debug dry-run force help ltdl \ - ltdl-tar version)/' - complete links 'c/-/(assume-codepage async-dns download-dir \ - format-cache-size ftp-proxy help http-proxy \ - max-connections max-connections-to-host \ - memory-cache-size receive-timeout retries \ - unrestartable-receive-timeout version)/' - complete natd c/-/'(alias_address config deny_incoming dynamic \ - inport interface log log_denied log_facility \ - outport outport port pptpalias proxy_only \ - proxy_rule redirect_address redirect_port \ - reverse same_ports unregistered_only use_sockets \ - verbose)'/ 'n@-interface@`ifconfig -l`@' - complete netstat 'n@-I@`ifconfig -l`@' - complete objdump 'c/--/(adjust-vma= all-headers architecture= \ - archive-headers debugging demangle disassemble \ - disassemble-all disassemble-zeroes dynamic-reloc \ - dynamic-syms endian= file-headers full-contents \ - headers help info line-numbers no-show-raw-insn \ - prefix-addresses private-headers reloc section-headers \ - section=source stabs start-address= stop-address= \ - syms target= version wide)/' \ - 'c/-/(a h i f C d D p r R t T x s S l w)/' - complete xmodmap 'c/-/(display help grammar verbose quiet n e pm pk \ - pke pp)/' - complete lynx 'c/-/(accept_all_cookies anonymous assume_charset= \ - assume_local_charset= assume_unrec_charset= auth= base \ - book buried_news cache= case cfg= child cookie_file= \ - cookies core crawl debug_partial display= dump editor= \ - emacskeys enable_scrollback error_file= force_html \ - force_secure forms_options from ftp get_data head help \ - hiddenlinks= historical homepage= image_links index= \ - ismap link= localhost mime_header minimal \ - newschunksize= newsmaxchunk= nobrowse nocc nocolor \ - nofilereferer nolist nolog nopause noprint noredir \ - noreferer nostatus number_links partial partial_thres \ - pauth= popup post_data preparsed print pseudo_inlines \ - raw realm reload restrictions= resubmit_posts rlogin \ - selective show_cursor soft_dquotes source stack_dump \ - startfile_ok tagsoup telnet term= tlog trace traversal \ - underscore useragent= validate verbose version vikeys \ - width=)/' 'c/(http|ftp)/$URLS/' - complete gmake 'c/{--directory=,--include-dir=}/d/' \ - 'c/{--assume-new,--assume-old,--makefile,--new-file,--what-if,--file}/f/' \ - 'c/--/(assume-new= assume-old= debug directory= \ - dry-run environment-overrides file= help \ - ignore-errors include-dir= jobs[=N] just-print \ - keep-going load-average[=N] makefile= max-load[=N] \ - new-file= no-builtin-rules no-keep-going \ - no-print-directory old-file= print-data-base \ - print-directory question quiet recon silent stop \ - touch version warn-undefined-variables what-if=)/' \ - 'n@*@`cat -s GNUMakefile Makefile makefile |& sed -n -e "/No such file/d" -e "s/^\([A-Za-z0-9-]*\):.*/\1/p"`@' \ - 'n/=/f/' 'n/-f/f/' - complete mixer p/1/'(vol bass treble synth pcm speaker mic cd mix \ - pcm2 rec igain ogain line1 line2 line3)'/ \ - p@2@'`mixer $:-1 | awk \{\ print\ \$7\ \}`'@ - - complete mpg123 'c/--/(2to1 4to1 8bit aggressive au audiodevice \ - auth buffer cdr check doublespeed equalizer frames \ - gain halfspeed headphones left lineout list mix mono \ - proxy quiet random rate reopen resync right scale \ - shuffle single0 single1 skip speaker stdout stereo \ - test verbose wav)/' - complete mysqladmin 'n/*/(create drop extended-status flush-hosts \ - flush-logs flush-status flush-tables flush-privileges \ - kill password ping processlist reload refresh \ - shutdown status variables version)/' - complete mutt c@-f=@F:${HOME}/Mail/@ \ - n/-a/f/ \ - n/-F/f/ n/-H/f/ \ - n/-s/x:'<subject line>'/ \ - n/-e/x:'<command>'/ \ - n@-b@'`cat ${HOME}/.muttrc-alias | awk '"'"'{print $2 }'"'"\`@ \ - n@-c@'`cat ${HOME}/.muttrc-alias | awk '"'"'{print $2 }'"'"\`@ \ - n@*@'`cat ${HOME}/.muttrc-alias | awk '"'"'{print $2 }'"'"\`@ - complete ndc 'n/*/(status dumpdb reload stats trace notrace \ - querylog start stop restart )/' - if ($?traditional_complete) then - complete nm \ - 'c/--/(debug-syms defined-only demangle dynamic \ - extern-only format= help line-numbers no-demangle \ - no-sort numeric-sort portability print-armap \ - print-file-name reverse-sort size-sort undefined-only \ - version)/' 'p/*/f:^*.{h,C,c,cc}/' - else - complete nm \ - 'c/--radix=/x:<radix: _o_ctal _d_ecimal he_x_adecimal>/' \ - 'c/--target=/x:<bfdname>/' \ - 'c/--format=/(bsd sysv posix)/n/' \ - 'c/--/(debugsyms extern-only demangle dynamic print-armap \ - print-file-name numeric-sort no-sort reverse-sort \ - size-sort undefined-only portability target= radix= \ - format= defined-only\ line-numbers no-demangle version \ - help)//' \ - 'n/*/f:^*.{h,c,cc,s,S}/' - endif - complete nmap 'n@-e@`ifconfig -l`@' 'p/*/$hostnames/' - complete perldoc 'n@*@`\ls -1 /usr/libdata/perl/5.*/pod | sed s%\\.pod.\*\$%%`@' - complete postfix 'n/*/(start stop reload abort flush check)/' - complete postmap 'n/1/(hash: regexp:)' 'c/hash:/f/' 'c/regexp:/f/' - complete rcsdiff 'p@1@`\ls -1a RCS | sed -e "s/\(.*\),v/\1/"`@' - complete X 'c/-/(I a ac allowMouseOpenFail allowNonLocalModInDev \ - allowNonLocalXvidtune ar1 ar2 audit auth bestRefresh \ - bgamma bpp broadcast bs c cc class co core deferglyphs \ - disableModInDev disableVidMode displayID dpi dpms f fc \ - flipPixels fn fp gamma ggamma help indirect kb keeptty \ - ld lf logo ls nolisten string noloadxkb nolock nopn \ - once p pn port probeonly query quiet r rgamma s \ - showconfig sp su t terminate to tst v verbose version \ - weight wm x xkbdb xkbmap)/' - complete users 'c/--/(help version)/' 'p/1/x:"<accounting_file>"/' - complete vidcontrol 'p/1/(132x25 132x30 132x43 132x50 132x60 40x25 80x25 \ - 80x30 80x43 80x50 80x60 EGA_80x25 EGA_80x43 \ - VESA_132x25 VESA_132x30 VESA_132x43 VESA_132x50 \ - VESA_132x60 VESA_800x600 VGA_320x200 VGA_40x25 \ - VGA_80x25 VGA_80x30 VGA_80x50 VGA_80x60)/' - complete vim 'n/*/f:^*.[oa]/' - complete where 'n/*/c/' - complete which 'n/*/c/' - complete wmsetbg 'c/-/(display D S a b c d e m p s t u w)/' \ - 'c/--/(back-color center colors dither help match \ - maxscale parse scale smooth tile update-domain \ - update-wmaker version workspace)/' - complete xdb 'p/1/c/' - complete xdvi 'c/-/(allowshell debug display expert gamma hushchars \ - hushchecksums hushspecials install interpreter keep \ - margins nogrey noinstall nomakepk noscan paper safer \ - shrinkbuttonn thorough topmargin underlink version)/' \ - 'n/-paper/(a4 a4r a5 a5r)/' 'p/*/f:*.dvi/' - complete xlock 'c/-/(allowaccess allowroot debug description \ - echokeys enablesaver grabmouse grabserver hide inroot \ - install inwindow mono mousemotion nolock remote \ - resetsaver sound timeelapsed use3d usefirst verbose \ - wireframe background batchcount bg bitmap both3d \ - count cycles delay delta3d display dpmsoff \ - dpmsstandby dpmssuspend endCmd erasedelay erasemode \ - erasetime fg font foreground geometry help \ - icongeometry info invalid left3d lockdelay logoutCmd \ - mailCmd mailIcon message messagefile messagefont \ - messagesfile mode name ncolors nice nomailIcon none3d \ - parent password planfont program resources right3d \ - saturation size startCmd timeout username validate \ - version visual)/' 'n/-mode/(ant atlantis ball bat \ - blot bouboule bounce braid bubble bubble3d bug cage \ - cartoon clock coral crystal daisy dclock decay deco \ - demon dilemma discrete drift eyes fadeplot flag flame \ - flow forest galaxy gears goop grav helix hop hyper \ - ico ifs image invert julia kaleid kumppa lament laser \ - life life1d life3d lightning lisa lissie loop lyapunov \ - mandelbrot marquee matrix maze moebius morph3d \ - mountain munch nose pacman penrose petal pipes puzzle \ - pyro qix roll rotor rubik shape sierpinski slip sphere \ - spiral spline sproingies stairs star starfish strange \ - superquadrics swarm swirl tetris thornbird triangle \ - tube turtle vines voters wator wire world worm xjack \ - blank bomb random)/' - complete xfig 'c/-/(display)/' 'p/*/f:*.fig/' - complete wget c/--/"(accept= append-output= background cache= \ - continue convert-links cut-dirs= debug \ - delete-after directory-prefix= domains= \ - dont-remove-listing dot-style= exclude-directories= \ - exclude-domains= execute= follow-ftp \ - force-directories force-html glob= header= help \ - http-passwd= http-user= ignore-length \ - include-directories= input-file= level= mirror \ - no-clobber no-directories no-host-directories \ - no-host-lookup no-parent non-verbose \ - output-document= output-file= passive-ftp \ - proxy-passwd= proxy-user= proxy= quiet quota= \ - recursive reject= relative retr-symlinks save-headers \ - server-response span-hosts spider timeout= \ - timestamping tries= user-agent= verbose version wait=)"/ - - # these from Tom Warzeka <tom@waz.cc> - - # 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/ - - set _maildir = /var/mail - 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 - unset _maildir - - if (! $?MANPATH) then - if (-r /usr/share/man) then - setenv MANPATH /usr/share/man: - else - setenv MANPATH /usr/man: - endif - endif - - if ($?traditional_complete) then - # use of $MANPATH from Dan Nicolaescu <dann@ics.uci.edu> - # use of 'find' adapted from Lubomir Host <host8@kepler.fmph.uniba.sk> - complete man \ - 'n@1@`set q = "$MANPATH:as%:%/man1 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.1.\*\$%%`@'\ - 'n@2@`set q = "$MANPATH:as%:%/man2 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.2.\*\$%%`@'\ - 'n@3@`set q = "$MANPATH:as%:%/man3 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.3.\*\$%%`@'\ - 'n@4@`set q = "$MANPATH:as%:%/man4 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.4.\*\$%%`@'\ - 'n@5@`set q = "$MANPATH:as%:%/man5 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.5.\*\$%%`@'\ - 'n@6@`set q = "$MANPATH:as%:%/man6 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.6.\*\$%%`@'\ - 'n@7@`set q = "$MANPATH:as%:%/man7 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.7.\*\$%%`@'\ - 'n@8@`set q = "$MANPATH:as%:%/man8 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.8.\*\$%%`@'\ - 'n@9@`set q = "$MANPATH:as%:%/man9 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.9.\*\$%%`@'\ - 'n@0@`set q = "$MANPATH:as%:%/man0 %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.0.\*\$%%`@'\ - 'n@n@`set q = "$MANPATH:as%:%/mann %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.n.\*\$%%`@'\ - 'n@o@`set q = "$MANPATH:as%:%/mano %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.o.\*\$%%`@'\ - 'n@l@`set q = "$MANPATH:as%:%/manl %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.l.\*\$%%`@'\ - 'n@p@`set q = "$MANPATH:as%:%/manp %" ; \ls -1 $q |& sed -e s%^.\*:.\*\$%% -e s%\\.p.\*\$%%`@'\ - c@-@"(- f k M P s S t)"@ n@-f@c@ n@-k@x:'<keyword>'@ n@-[MP]@d@ \ - 'N@-[MP]@`\ls -1 $:-1/man? |& sed -n s%\\..\\+\$%%p`@' \ - 'n@-[sS]@`\ls -1 $MANPATH:as%:% % |& sed -n s%^man%%p | sort -u`@'\ - 'n@*@`find $MANPATH:as%:% % \( -type f -o -type l \) -printf "%f " |& sed -e "s%find: .*: No such file or directory%%" -e "s%\([^\.]\+\)\.\([^ ]*\) %\1 %g"`@' - #n@*@c@ # old way -- commands only - else - 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 P s t)"/ n/-f/c/ n/-k/x:'<keyword>'/ n/-P/d/ \ - N@-P@'`\ls -1 $:-1/man? | sed s%\\..\*\$%%`'@ n/*/c/ - endif - - 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 uuencode p/1/f/ p/2/x:'<decode_pathname>'/ n/*/n/ - complete uudecode c/-/"(f)"/ n/-f/f:*.{uu,UU}/ p/1/f:*.{uu,UU}/ n/*/n/ - - complete xhost c/[+-]/\$hosts/ n/*/\$hosts/ - complete xpdf c/-/"(z g remote raise quit cmap rgb papercolor \ - eucjp t1lib freetype ps paperw paperh level1 \ - upw fullscreen cmd q v h help)"/ \ - n/-z/x:'<zoom (-5 .. +5) or "page" or "width">'/ \ - n/-g/x:'<geometry>'/ n/-remote/x:'<name>'/ \ - n/-rgb/x:'<number>'/ n/-papercolor/x:'<color>'/ \ - n/-{t1lib,freetype}/x:'<font_type>'/ \ - n/-ps/x:'<PS_file>'/ n/-paperw/x:'<width>'/ \ - n/-paperh/x:'<height>'/ n/-upw/x:'<password>'/ \ - n/-/f:*.{pdf,PDF}/ \ - N/-{z,g,remote,rgb,papercolor,t1lib,freetype,ps,paperw,paperh,upw}/f:*.{pdf,PDF}/ \ - N/-/x:'<page>'/ p/1/f:*.{pdf,PDF}/ p/2/x:'<page>'/ - - complete tcsh c/-D*=/'x:<value>'/ c/-D/'x:<name>'/ \ - c/-/"(b c d D e f F i l m n q s t v V x X -version)"/ \ - n/-c/c/ n/{-l,--version}/n/ n/*/'f:*.{,t}csh'/ - - complete rpm c/--/"(query verify nodeps nofiles nomd5 noscripts \ - nogpg nopgp install upgrade freshen erase allmatches \ - notriggers repackage test rebuild recompile initdb \ - rebuilddb addsign resign querytags showrc setperms \ - setugids all file group package querybynumber qf \ - triggeredby whatprovides whatrequires changelog \ - configfiles docfiles dump filesbypkg info last list \ - provides queryformat requires scripts state triggers \ - triggerscripts allfiles badreloc excludepath checksig \ - excludedocs force hash ignoresize ignorearch ignoreos \ - includedocs justdb noorder oldpackage percent prefix \ - relocate replace-files replacepkgs buildroot clean \ - nobuild rmsource rmspec short-circuit sign target \ - help version quiet rcfile pipe dbpath root specfile)"/\ - c/-/"(q V K i U F e ba bb bp bc bi bl bs ta tb tp tc \ - ti tl ts a f g p c d l R s h ? v vv -)"/ \ - n/{-f,--file}/f/ n/{-g,--group}/g/ n/--pipe/c/ n/--dbpath/d/ \ - n/--querybynumber/x:'<number>'/ n/--triggeredby/x:'<package>'/\ - n/--what{provides,requires}/x:'<capability>'/ n/--root/d/ \ - n/--{qf,queryformat}/x:'<format>'/ n/--buildroot/d/ \ - n/--excludepath/x:'<oldpath>'/ n/--prefix/x:'<newpath>'/ \ - n/--relocate/x:'<oldpath=newpath>'/ n/--target/x:'<platform>'/\ - n/--rcfile/x:'<filelist>'/ n/--specfile/x:'<specfile>'/ \ - n/{-[iUFep],--{install,upgrade,freshen,erase,package}}/f:*.rpm/ - - # these conform to the latest GNU versions available at press time ... - # updates by John Gotts <jgotts@engin.umich.edu> - if (-X emacs) then - # TW note: if your version of GNU Emacs supports the "--version" option, - # uncomment this line and comment the next to automatically - # detect the version, else set "_emacs_ver" to your version. - #set _emacs_ver=`emacs --version | sed -e 's%GNU Emacs %%' -e q | cut -d . -f1-2` - set _emacs_ver=21.3 - set _emacs_dir=`which emacs | sed s%/bin/emacs%%` - complete emacs c/--/"(batch terminal display no-windows no-init-file \ - user debug-init unibyte multibyte version help \ - no-site-file funcall load eval insert kill)"/ \ - c/-/"(t d nw q u f l -)"/ c/+/x:'<line_number>'/ \ - n/{-t,--terminal}/x:'<terminal>'/ n/{-d,--display}/x:'<display>'/ \ - n/{-u,--user}/u/ n/{-f,--funcall}/x:'<lisp_function>'/ \ - n@{-l,--load}@F:$_emacs_dir/share/emacs/$_emacs_ver/lisp@ \ - n/--eval/x:'<expression>'/ n/--insert/f/ n/*/f:^*[\#~]/ - unset _emacs_ver _emacs_dir - endif - - 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 dcop 'p/1/`$:0`/ /' \ - 'p/2/`$:0 $:1 | awk \{print\ \$1\}`/ /' \ - 'p/3/`$:0 $:1 $:2 | sed "s%.* \(.*\)(.*%\1%"`/ /' - - - 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 sed c/--/"(quiet silent version help expression file)"/ \ - c/-/"(n V e f -)"/ n/{-e,--expression}/x:'<script>'/ \ - n/{-f,--file}/f:*.sed/ N/-{e,f,-{file,expression}}/f/ \ - n/-/x:'<script>'/ N/-/f/ p/1/x:'<script>'/ p/2/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 env 'c/*=/f/' 'p/1/e/=/' 'p/2/c/' - - 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 -)"/ \ - C@/dev@f@ \ - n/-c*f/x:'<new_tar_file, device_file, or "-">'/ \ - n/{-[Adrtux]j*f,--file}/f:*.{tar.bz2,tbz}/ \ - n/{-[Adrtux]z*f,--file}/f:*.{tar.gz,tgz}/ \ - n/{-[Adrtux]Z*f,--file}/f:*.{tar.Z,taz}/ \ - n/{-[Adrtux]*f,--file}/f:*.tar/ \ - N/{-xj*f,--file}/'`tar -tjf $:-1`'/ \ - N/{-xz*f,--file}/'`tar -tzf $:-1`'/ \ - N/{-xZ*f,--file}/'`tar -tZf $:-1`'/ \ - 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)"/ - - # Linux filesystems - complete mount c/-/"(a f F h l n o r s t U v V w)"/ n/-[hV]/n/ \ - n/-o/x:'<options>'/ n/-t/x:'<vfstype>'/ \ - n/-L/x:'<label>'/ n/-U/x:'<uuid>'/ \ - n@*@'`grep -v "^#" /etc/fstab | tr -s " " " " | cut -f 2`'@ - complete umount c/-/"(a h n r t v V)"/ n/-t/x:'<vfstype>'/ \ - n/*/'`mount | cut -d " " -f 3`'/ - # Solaris 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`'/ - - # these deal with NIS (formerly YP); if it's not running you don't need 'em - if (-X domainname) then - set _domain = "`domainname`" - set _ypdir = /var/yp # directory where NIS (YP) maps are kept - if ("$_domain" != "" && "$_domain" != "noname") then - 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@ - endif - unset _domain _ypdir - endif - - 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/' - complete dvilj 'p/*/f:*.dvi/' - endif - - # From Alphonse Bendt - complete ant \ - 'n/-f/f:*.xml/' \ - 'n@*@`cat build.xml | sed -n -e "s/[ \t]*<target[\t\n]*name=.\([a-zA-Z0-9_:]*\).*/\1/p"`@' - - if ($?P4CLIENT && -X perl) then - # This is from Greg Allen. - set p4cmds=(add branch branches commands change changes client clients \ - counter counters delete depot depots describe diff diff2 \ - edit filelog files fix fixes fstat group groups have help \ - info integrate integrated job jobs jobspec label labels \ - labelsync lock obliterate opened passwd print protect rename \ - reopen resolve resolved revert review reviews set submit \ - sync triggers unlock user users verify where) - complete p4 'p/1/$p4cmds/' 'n/help/$p4cmds/' \ - 'n%{-l,label}%`p4 labels | sed "s/Label \([^ ]*\) .*/\1/"`%' \ - 'n%-t%`p4 $:1s | sed "s/[^ ]* \([^ ]*\) .*/\1/"`%' \ - 'c%*@%`p4 labels | sed "s/Label \([^ ]*\) .*/\1/"`%' \ - 'c@//*/*@`p4 files $:-0... |& perl -nle "m%\Q$:-0\E([^#][^/# ] \ - *)%;print "\$"1 if \\\!/no such/&&\!"\$"h{"\$"1}++"`@@' \ - 'c@//@`p4 depots | sed "s/Depot \([^ ]*\) .*/\1/"`@/@' - endif - - - if (! $?traditional_complete) then - uncomplete vi - uncomplete vim - complete {vi,vim,gvim,nvi,elvis} n/*/f:^*.{o,a,so,sa,aux,dvi,log,fig,bbl,blg,bst,idx,ilg,ind,toc}/ - complete {ispell,spell,spellword} 'n@-d@`ls /usr/lib/ispell/*.aff | sed -e "s/\.aff//" `@' 'n/*/f:^*.{o,a,so,sa,aux,dvi,log,fig,bbl,blg,bst,idx,ilg,ind,toc}/' - complete elm 'n/-[Ai]/f/' 'c@=@F:$HOME/Mail/@' 'n/-s/x:\<subject\>/' - complete ncftp 'n@*@`sed -e '1,2d' $HOME/.ncftp/bookmarks | cut -f 1,2 -d "," | tr "," "\012" | sort | uniq ` '@ - complete bibtex 'n@*@`ls *.aux | sed -e "s/\.aux//"`'@ - complete dvi2tty n/*/f:*.dvi/ # Only files that match *.dvi - uncomplete gv - uncomplete ghostview - complete {gv,ghostview} 'n/*/f:*.{ps,eps,epsi}/' - complete enscript \ - 'c/--/(columns= pages= header= no-header truncate-lines \ - line-numbers setpagedevice= escapes font= \ - header-font= fancy-header no-job-header \ - highlight-bars indent= filter= borders page-prefeed \ - no-page-prefeed lineprinter lines-per-page= mail \ - media= copies= newline= output= missing-characters \ - printer= quiet silent landscape portrait \ - baselineskip= statusdict= title= tabsize= underlay= \ - verbose version encoding pass-through download-font= \ - filter-stdin= help highlight-bar-gray= list-media \ - list-options non-printable-format= page-label-format= \ - printer-options= ul-angle= ul-font= ul-gray= \ - ul-position= ul-style= \ - )/' - endif - - complete dpkg \ - 'c/--{admindir,instdir,root}=/d/' \ - 'c/--debug=/n/' \ - 'c/--{admindir,debug,instdir,root}/(=)//' \ - 'c/--/(admindir= debug= instdir= root= \ - assert-support-predepends assert-working-epoch \ - audit auto-deconfigure clear-avail \ - compare-versions configure contents control \ - extract force-bad-path field \ - force-configure-any force-conflicts \ - force-depends force-depends-version force-help \ - force-hold force-non-root \ - force-overwrite-diverted \ - force-remove-essential force-remove-reinstreq \ - forget-old-unavail fsys-tarfile get-selections \ - help ignore-depends info install largemem \ - license list listfiles merge-avail no-act \ - pending predep-package print-architecture \ - print-gnu-build-architecture \ - print-installation-architecture print-avail \ - purge record-avail recursive refuse-downgrade \ - remove search set-selections selected-only \ - skip-same-version smallmem status unpack \ - update-avail version vextract \ - )//' \ - 'n/{-l}/`dpkg -l|awk \{print\ \$2\}`/' \ - 'n/*/f:*.deb'/ - complete dpkg-deb 'c/--{build}=/d/' \ - 'c/--/(build contents info field control extract \ - vextract fsys-tarfile help version \ - license)//' \ - 'n/*/f:*.deb/' - complete apt-get \ - 'c/--/(build config-file diff-only download-only \ - fix-broken fix-missing force-yes help ignore-hold no-download \ - no-upgrade option print-uris purge reinstall quiet simulate \ - show-upgraded target-release tar-only version yes )/' \ - 'c/-/(b c= d f h m o= q qq s t x y )/' \ - 'n/{source,build-dep}/x:<pkgname>/' \ - 'n/{remove}/`dpkg -l|grep ^ii|awk \{print\ \$2\}`/' \ - 'n/{install}/`apt-cache pkgnames | sort`/' \ - 'C/*/(update upgrade dselect-upgrade source \ - build-dep check clean autoclean install remove)/' - complete apt-cache \ - 'c/--/(all-versions config-file generate full help important \ - names-only option pkg-cache quiet recurse src-cache version )/' \ - 'c/-/(c= h i o= p= q s= v)/' \ - 'n/{search}/x:<regex>/' \ - 'n/{pkgnames,policy,show,showpkg,depends,dotty}/`apt-cache pkgnames | sort`/' \ - 'C/*/(add gencaches showpkg stats dump dumpavail unmet show \ - search depends pkgnames dotty policy )/' - - unset noglob - unset _complete - unset traditional_complete -endif - -end: - onintr diff --git a/contrib/tcsh/config.guess b/contrib/tcsh/config.guess deleted file mode 100755 index ffcb643..0000000 --- a/contrib/tcsh/config.guess +++ /dev/null @@ -1,1351 +0,0 @@ -#! /bin/sh -# Attempt to guess a canonical system name. -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -# 2000, 2001, 2002 Free Software Foundation, Inc. - -timestamp='2002-07-09' - -# This file is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - -# Originally written by Per Bothner <per@bothner.com>. -# Please send patches to <config-patches@gnu.org>. Submit a context -# diff and a properly formatted ChangeLog entry. -# -# This script attempts to guess a canonical system name similar to -# config.sub. If it succeeds, it prints the system name on stdout, and -# exits with 0. Otherwise, it exits with 1. -# -# The plan is that this can be called by configure scripts if you -# don't specify an explicit build system type. - -me=`echo "$0" | sed -e 's,.*/,,'` - -usage="\ -Usage: $0 [OPTION] - -Output the configuration name of the system \`$me' is run on. - -Operation modes: - -h, --help print this help, then exit - -t, --time-stamp print date of last modification, then exit - -v, --version print version number, then exit - -Report bugs and patches to <config-patches@gnu.org>." - -version="\ -GNU config.guess ($timestamp) - -Originally written by Per Bothner. -Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -Free Software Foundation, Inc. - -This is free software; see the source for copying conditions. There is NO -warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." - -help=" -Try \`$me --help' for more information." - -# Parse command line -while test $# -gt 0 ; do - case $1 in - --time-stamp | --time* | -t ) - echo "$timestamp" ; exit 0 ;; - --version | -v ) - echo "$version" ; exit 0 ;; - --help | --h* | -h ) - echo "$usage"; exit 0 ;; - -- ) # Stop option processing - shift; break ;; - - ) # Use stdin as input. - break ;; - -* ) - echo "$me: invalid option $1$help" >&2 - exit 1 ;; - * ) - break ;; - esac -done - -if test $# != 0; then - echo "$me: too many arguments$help" >&2 - exit 1 -fi - -trap 'exit 1' 1 2 15 - -# CC_FOR_BUILD -- compiler used by this script. Note that the use of a -# compiler to aid in system detection is discouraged as it requires -# temporary files to be created and, as you can see below, it is a -# headache to deal with in a portable fashion. - -# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still -# use `HOST_CC' if defined, but it is deprecated. - -# This shell variable is my proudest work .. or something. --bje - -set_cc_for_build='tmpdir=${TMPDIR-/tmp}/config-guess-$$ ; -(old=`umask` && umask 077 && mkdir $tmpdir && umask $old && unset old) - || (echo "$me: cannot create $tmpdir" >&2 && exit 1) ; -dummy=$tmpdir/dummy ; -files="$dummy.c $dummy.o $dummy.rel $dummy" ; -trap '"'"'rm -f $files; rmdir $tmpdir; exit 1'"'"' 1 2 15 ; -case $CC_FOR_BUILD,$HOST_CC,$CC in - ,,) echo "int x;" > $dummy.c ; - for c in cc gcc c89 c99 ; do - if ($c $dummy.c -c -o $dummy.o) >/dev/null 2>&1 ; then - CC_FOR_BUILD="$c"; break ; - fi ; - done ; - rm -f $files ; - if test x"$CC_FOR_BUILD" = x ; then - CC_FOR_BUILD=no_compiler_found ; - fi - ;; - ,,*) CC_FOR_BUILD=$CC ;; - ,*,*) CC_FOR_BUILD=$HOST_CC ;; -esac ; -unset files' - -# This is needed to find uname on a Pyramid OSx when run in the BSD universe. -# (ghazi@noc.rutgers.edu 1994-08-24) -if (test -f /.attbin/uname) >/dev/null 2>&1 ; then - PATH=$PATH:/.attbin ; export PATH -fi - -UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown -UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown -UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown -UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown - -# Note: order is significant - the case branches are not exclusive. - -case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in - *:NetBSD:*:*) - # NetBSD (nbsd) targets should (where applicable) match one or - # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*, - # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently - # switched to ELF, *-*-netbsd* would select the old - # object file format. This provides both forward - # compatibility and a consistent mechanism for selecting the - # object file format. - # - # Note: NetBSD doesn't particularly care about the vendor - # portion of the name. We always set it to "unknown". - sysctl="sysctl -n hw.machine_arch" - UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ - /usr/sbin/$sysctl 2>/dev/null || echo unknown)` - case "${UNAME_MACHINE_ARCH}" in - armeb) machine=armeb-unknown ;; - arm*) machine=arm-unknown ;; - sh3el) machine=shl-unknown ;; - sh3eb) machine=sh-unknown ;; - *) machine=${UNAME_MACHINE_ARCH}-unknown ;; - esac - # The Operating System including object format, if it has switched - # to ELF recently, or will in the future. - case "${UNAME_MACHINE_ARCH}" in - arm*|i386|m68k|ns32k|sh3*|sparc|vax) - eval $set_cc_for_build - if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ - | grep __ELF__ >/dev/null - then - # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). - # Return netbsd for either. FIX? - os=netbsd - else - os=netbsdelf - fi - ;; - *) - os=netbsd - ;; - esac - # The OS release - release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` - # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: - # contains redundant information, the shorter form: - # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. - echo "${machine}-${os}${release}" - exit 0 ;; - amiga:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - arc:OpenBSD:*:*) - echo mipsel-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - hp300:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - mac68k:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - macppc:OpenBSD:*:*) - echo powerpc-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - mvme68k:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - mvme88k:OpenBSD:*:*) - echo m88k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - mvmeppc:OpenBSD:*:*) - echo powerpc-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - pmax:OpenBSD:*:*) - echo mipsel-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - sgi:OpenBSD:*:*) - echo mipseb-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - sun3:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - wgrisc:OpenBSD:*:*) - echo mipsel-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - *:OpenBSD:*:*) - echo ${UNAME_MACHINE}-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - alpha:OSF1:*:*) - if test $UNAME_RELEASE = "V4.0"; then - UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` - fi - # A Vn.n version is a released version. - # A Tn.n version is a released field test version. - # A Xn.n version is an unreleased experimental baselevel. - # 1.2 uses "1.2" for uname -r. - cat <<EOF >$dummy.s - .data -\$Lformat: - .byte 37,100,45,37,120,10,0 # "%d-%x\n" - - .text - .globl main - .align 4 - .ent main -main: - .frame \$30,16,\$26,0 - ldgp \$29,0(\$27) - .prologue 1 - .long 0x47e03d80 # implver \$0 - lda \$2,-1 - .long 0x47e20c21 # amask \$2,\$1 - lda \$16,\$Lformat - mov \$0,\$17 - not \$1,\$18 - jsr \$26,printf - ldgp \$29,0(\$26) - mov 0,\$16 - jsr \$26,exit - .end main -EOF - eval $set_cc_for_build - $CC_FOR_BUILD $dummy.s -o $dummy 2>/dev/null - if test "$?" = 0 ; then - case `$dummy` in - 0-0) - UNAME_MACHINE="alpha" - ;; - 1-0) - UNAME_MACHINE="alphaev5" - ;; - 1-1) - UNAME_MACHINE="alphaev56" - ;; - 1-101) - UNAME_MACHINE="alphapca56" - ;; - 2-303) - UNAME_MACHINE="alphaev6" - ;; - 2-307) - UNAME_MACHINE="alphaev67" - ;; - 2-1307) - UNAME_MACHINE="alphaev68" - ;; - esac - fi - rm -f $dummy.s $dummy && rmdir $tmpdir - echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[VTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` - exit 0 ;; - Alpha\ *:Windows_NT*:*) - # How do we know it's Interix rather than the generic POSIX subsystem? - # Should we change UNAME_MACHINE based on the output of uname instead - # of the specific Alpha model? - echo alpha-pc-interix - exit 0 ;; - 21064:Windows_NT:50:3) - echo alpha-dec-winnt3.5 - exit 0 ;; - Amiga*:UNIX_System_V:4.0:*) - echo m68k-unknown-sysv4 - exit 0;; - *:[Aa]miga[Oo][Ss]:*:*) - echo ${UNAME_MACHINE}-unknown-amigaos - exit 0 ;; - *:[Mm]orph[Oo][Ss]:*:*) - echo ${UNAME_MACHINE}-unknown-morphos - exit 0 ;; - *:OS/390:*:*) - echo i370-ibm-openedition - exit 0 ;; - arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) - echo arm-acorn-riscix${UNAME_RELEASE} - exit 0;; - SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) - echo hppa1.1-hitachi-hiuxmpp - exit 0;; - Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) - # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. - if test "`(/bin/universe) 2>/dev/null`" = att ; then - echo pyramid-pyramid-sysv3 - else - echo pyramid-pyramid-bsd - fi - exit 0 ;; - NILE*:*:*:dcosx) - echo pyramid-pyramid-svr4 - exit 0 ;; - DRS?6000:UNIX_SV:4.2*:7*) - case `/usr/bin/uname -p` in - sparc) echo sparc-icl-nx7 && exit 0 ;; - esac ;; - sun4H:SunOS:5.*:*) - echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) - echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - i86pc:SunOS:5.*:*) - echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - sun4*:SunOS:6*:*) - # According to config.sub, this is the proper way to canonicalize - # SunOS6. Hard to guess exactly what SunOS6 will be like, but - # it's likely to be more like Solaris than SunOS4. - echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - sun4*:SunOS:*:*) - case "`/usr/bin/arch -k`" in - Series*|S4*) - UNAME_RELEASE=`uname -v` - ;; - esac - # Japanese Language versions have a version number like `4.1.3-JL'. - echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` - exit 0 ;; - sun3*:SunOS:*:*) - echo m68k-sun-sunos${UNAME_RELEASE} - exit 0 ;; - sun*:*:4.2BSD:*) - UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` - test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 - case "`/bin/arch`" in - sun3) - echo m68k-sun-sunos${UNAME_RELEASE} - ;; - sun4) - echo sparc-sun-sunos${UNAME_RELEASE} - ;; - esac - exit 0 ;; - aushp:SunOS:*:*) - echo sparc-auspex-sunos${UNAME_RELEASE} - exit 0 ;; - # The situation for MiNT is a little confusing. The machine name - # can be virtually everything (everything which is not - # "atarist" or "atariste" at least should have a processor - # > m68000). The system name ranges from "MiNT" over "FreeMiNT" - # to the lowercase version "mint" (or "freemint"). Finally - # the system name "TOS" denotes a system which is actually not - # MiNT. But MiNT is downward compatible to TOS, so this should - # be no problem. - atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit 0 ;; - atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit 0 ;; - *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit 0 ;; - milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) - echo m68k-milan-mint${UNAME_RELEASE} - exit 0 ;; - hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) - echo m68k-hades-mint${UNAME_RELEASE} - exit 0 ;; - *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) - echo m68k-unknown-mint${UNAME_RELEASE} - exit 0 ;; - powerpc:machten:*:*) - echo powerpc-apple-machten${UNAME_RELEASE} - exit 0 ;; - RISC*:Mach:*:*) - echo mips-dec-mach_bsd4.3 - exit 0 ;; - RISC*:ULTRIX:*:*) - echo mips-dec-ultrix${UNAME_RELEASE} - exit 0 ;; - VAX*:ULTRIX*:*:*) - echo vax-dec-ultrix${UNAME_RELEASE} - exit 0 ;; - 2020:CLIX:*:* | 2430:CLIX:*:*) - echo clipper-intergraph-clix${UNAME_RELEASE} - exit 0 ;; - mips:*:*:UMIPS | mips:*:*:RISCos) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c -#ifdef __cplusplus -#include <stdio.h> /* for printf() prototype */ - int main (int argc, char *argv[]) { -#else - int main (argc, argv) int argc; char *argv[]; { -#endif - #if defined (host_mips) && defined (MIPSEB) - #if defined (SYSTYPE_SYSV) - printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); - #endif - #if defined (SYSTYPE_SVR4) - printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); - #endif - #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) - printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); - #endif - #endif - exit (-1); - } -EOF - $CC_FOR_BUILD $dummy.c -o $dummy \ - && $dummy `echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` \ - && rm -f $dummy.c $dummy && rmdir $tmpdir && exit 0 - rm -f $dummy.c $dummy && rmdir $tmpdir - echo mips-mips-riscos${UNAME_RELEASE} - exit 0 ;; - Motorola:PowerMAX_OS:*:*) - echo powerpc-motorola-powermax - exit 0 ;; - Night_Hawk:*:*:PowerMAX_OS) - echo powerpc-harris-powermax - exit 0 ;; - Night_Hawk:Power_UNIX:*:*) - echo powerpc-harris-powerunix - exit 0 ;; - m88k:CX/UX:7*:*) - echo m88k-harris-cxux7 - exit 0 ;; - m88k:*:4*:R4*) - echo m88k-motorola-sysv4 - exit 0 ;; - m88k:*:3*:R3*) - echo m88k-motorola-sysv3 - exit 0 ;; - AViiON:dgux:*:*) - # DG/UX returns AViiON for all architectures - UNAME_PROCESSOR=`/usr/bin/uname -p` - if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] - then - if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ - [ ${TARGET_BINARY_INTERFACE}x = x ] - then - echo m88k-dg-dgux${UNAME_RELEASE} - else - echo m88k-dg-dguxbcs${UNAME_RELEASE} - fi - else - echo i586-dg-dgux${UNAME_RELEASE} - fi - exit 0 ;; - M88*:DolphinOS:*:*) # DolphinOS (SVR3) - echo m88k-dolphin-sysv3 - exit 0 ;; - M88*:*:R3*:*) - # Delta 88k system running SVR3 - echo m88k-motorola-sysv3 - exit 0 ;; - XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) - echo m88k-tektronix-sysv3 - exit 0 ;; - Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) - echo m68k-tektronix-bsd - exit 0 ;; - *:IRIX*:*:*) - echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` - exit 0 ;; - ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. - echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id - exit 0 ;; # Note that: echo "'`uname -s`'" gives 'AIX ' - i*86:AIX:*:*) - echo i386-ibm-aix - exit 0 ;; - ia64:AIX:*:*) - if [ -x /usr/bin/oslevel ] ; then - IBM_REV=`/usr/bin/oslevel` - else - IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} - fi - echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} - exit 0 ;; - *:AIX:2:3) - if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include <sys/systemcfg.h> - - main() - { - if (!__power_pc()) - exit(1); - puts("powerpc-ibm-aix3.2.5"); - exit(0); - } -EOF - $CC_FOR_BUILD $dummy.c -o $dummy && $dummy && rm -f $dummy.c $dummy && rmdir $tmpdir && exit 0 - rm -f $dummy.c $dummy && rmdir $tmpdir - echo rs6000-ibm-aix3.2.5 - elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then - echo rs6000-ibm-aix3.2.4 - else - echo rs6000-ibm-aix3.2 - fi - exit 0 ;; - *:AIX:*:[45]) - IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` - if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then - IBM_ARCH=rs6000 - else - IBM_ARCH=powerpc - fi - if [ -x /usr/bin/oslevel ] ; then - IBM_REV=`/usr/bin/oslevel` - else - IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} - fi - echo ${IBM_ARCH}-ibm-aix${IBM_REV} - exit 0 ;; - *:AIX:*:*) - echo rs6000-ibm-aix - exit 0 ;; - ibmrt:4.4BSD:*|romp-ibm:BSD:*) - echo romp-ibm-bsd4.4 - exit 0 ;; - ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and - echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to - exit 0 ;; # report: romp-ibm BSD 4.3 - *:BOSX:*:*) - echo rs6000-bull-bosx - exit 0 ;; - DPX/2?00:B.O.S.:*:*) - echo m68k-bull-sysv3 - exit 0 ;; - 9000/[34]??:4.3bsd:1.*:*) - echo m68k-hp-bsd - exit 0 ;; - hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) - echo m68k-hp-bsd4.4 - exit 0 ;; - 9000/[34678]??:HP-UX:*:*) - HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` - case "${UNAME_MACHINE}" in - 9000/31? ) HP_ARCH=m68000 ;; - 9000/[34]?? ) HP_ARCH=m68k ;; - 9000/[678][0-9][0-9]) - if [ -x /usr/bin/getconf ]; then - sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` - sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` - case "${sc_cpu_version}" in - 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 - 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 - 532) # CPU_PA_RISC2_0 - case "${sc_kernel_bits}" in - 32) HP_ARCH="hppa2.0n" ;; - 64) HP_ARCH="hppa2.0w" ;; - '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 - esac ;; - esac - fi - if [ "${HP_ARCH}" = "" ]; then - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - - #define _HPUX_SOURCE - #include <stdlib.h> - #include <unistd.h> - - int main () - { - #if defined(_SC_KERNEL_BITS) - long bits = sysconf(_SC_KERNEL_BITS); - #endif - long cpu = sysconf (_SC_CPU_VERSION); - - switch (cpu) - { - case CPU_PA_RISC1_0: puts ("hppa1.0"); break; - case CPU_PA_RISC1_1: puts ("hppa1.1"); break; - case CPU_PA_RISC2_0: - #if defined(_SC_KERNEL_BITS) - switch (bits) - { - case 64: puts ("hppa2.0w"); break; - case 32: puts ("hppa2.0n"); break; - default: puts ("hppa2.0"); break; - } break; - #else /* !defined(_SC_KERNEL_BITS) */ - puts ("hppa2.0"); break; - #endif - default: puts ("hppa1.0"); break; - } - exit (0); - } -EOF - (CCOPTS= $CC_FOR_BUILD $dummy.c -o $dummy 2>/dev/null) && HP_ARCH=`$dummy` - if test -z "$HP_ARCH"; then HP_ARCH=hppa; fi - rm -f $dummy.c $dummy && rmdir $tmpdir - fi ;; - esac - echo ${HP_ARCH}-hp-hpux${HPUX_REV} - exit 0 ;; - ia64:HP-UX:*:*) - HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` - echo ia64-hp-hpux${HPUX_REV} - exit 0 ;; - 3050*:HI-UX:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include <unistd.h> - int - main () - { - long cpu = sysconf (_SC_CPU_VERSION); - /* The order matters, because CPU_IS_HP_MC68K erroneously returns - true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct - results, however. */ - if (CPU_IS_PA_RISC (cpu)) - { - switch (cpu) - { - case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; - case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; - case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; - default: puts ("hppa-hitachi-hiuxwe2"); break; - } - } - else if (CPU_IS_HP_MC68K (cpu)) - puts ("m68k-hitachi-hiuxwe2"); - else puts ("unknown-hitachi-hiuxwe2"); - exit (0); - } -EOF - $CC_FOR_BUILD $dummy.c -o $dummy && $dummy && rm -f $dummy.c $dummy && rmdir $tmpdir && exit 0 - rm -f $dummy.c $dummy && rmdir $tmpdir - echo unknown-hitachi-hiuxwe2 - exit 0 ;; - 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) - echo hppa1.1-hp-bsd - exit 0 ;; - 9000/8??:4.3bsd:*:*) - echo hppa1.0-hp-bsd - exit 0 ;; - *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) - echo hppa1.0-hp-mpeix - exit 0 ;; - hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) - echo hppa1.1-hp-osf - exit 0 ;; - hp8??:OSF1:*:*) - echo hppa1.0-hp-osf - exit 0 ;; - i*86:OSF1:*:*) - if [ -x /usr/sbin/sysversion ] ; then - echo ${UNAME_MACHINE}-unknown-osf1mk - else - echo ${UNAME_MACHINE}-unknown-osf1 - fi - exit 0 ;; - parisc*:Lites*:*:*) - echo hppa1.1-hp-lites - exit 0 ;; - C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) - echo c1-convex-bsd - exit 0 ;; - C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit 0 ;; - C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) - echo c34-convex-bsd - exit 0 ;; - C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) - echo c38-convex-bsd - exit 0 ;; - C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) - echo c4-convex-bsd - exit 0 ;; - CRAY*Y-MP:*:*:*) - echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*[A-Z]90:*:*:*) - echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ - | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ - -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ - -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*TS:*:*:*) - echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*T3D:*:*:*) - echo alpha-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*T3E:*:*:*) - echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*SV1:*:*:*) - echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) - FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` - FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` - FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` - echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" - exit 0 ;; - i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) - echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} - exit 0 ;; - sparc*:BSD/OS:*:*) - echo sparc-unknown-bsdi${UNAME_RELEASE} - exit 0 ;; - *:BSD/OS:*:*) - echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} - exit 0 ;; - *:FreeBSD:*:*) - # Determine whether the default compiler uses glibc. - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include <features.h> - #if __GLIBC__ >= 2 - LIBC=gnu - #else - LIBC= - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=` - rm -f $dummy.c && rmdir $tmpdir - echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`${LIBC:+-$LIBC} - exit 0 ;; - i*:CYGWIN*:*) - echo ${UNAME_MACHINE}-pc-cygwin - exit 0 ;; - i*:MINGW*:*) - echo ${UNAME_MACHINE}-pc-mingw32 - exit 0 ;; - i*:PW*:*) - echo ${UNAME_MACHINE}-pc-pw32 - exit 0 ;; - x86:Interix*:3*) - echo i386-pc-interix3 - exit 0 ;; - i*:Windows_NT*:* | Pentium*:Windows_NT*:*) - # How do we know it's Interix rather than the generic POSIX subsystem? - # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we - # UNAME_MACHINE based on the output of uname instead of i386? - echo i386-pc-interix - exit 0 ;; - i*:UWIN*:*) - echo ${UNAME_MACHINE}-pc-uwin - exit 0 ;; - p*:CYGWIN*:*) - echo powerpcle-unknown-cygwin - exit 0 ;; - prep*:SunOS:5.*:*) - echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - *:GNU:*:*) - echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` - exit 0 ;; - i*86:Minix:*:*) - echo ${UNAME_MACHINE}-pc-minix - exit 0 ;; - arm*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - ia64:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - m68*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - mips:Linux:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #undef CPU - #undef mips - #undef mipsel - #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) - CPU=mipsel - #else - #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) - CPU=mips - #else - CPU= - #endif - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=` - rm -f $dummy.c && rmdir $tmpdir - test x"${CPU}" != x && echo "${CPU}-pc-linux-gnu" && exit 0 - ;; - ppc:Linux:*:*) - echo powerpc-unknown-linux-gnu - exit 0 ;; - ppc64:Linux:*:*) - echo powerpc64-unknown-linux-gnu - exit 0 ;; - alpha:Linux:*:*) - case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in - EV5) UNAME_MACHINE=alphaev5 ;; - EV56) UNAME_MACHINE=alphaev56 ;; - PCA56) UNAME_MACHINE=alphapca56 ;; - PCA57) UNAME_MACHINE=alphapca56 ;; - EV6) UNAME_MACHINE=alphaev6 ;; - EV67) UNAME_MACHINE=alphaev67 ;; - EV68*) UNAME_MACHINE=alphaev68 ;; - esac - objdump --private-headers /bin/sh | grep ld.so.1 >/dev/null - if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi - echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} - exit 0 ;; - parisc:Linux:*:* | hppa:Linux:*:*) - # Look for CPU level - case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in - PA7*) echo hppa1.1-unknown-linux-gnu ;; - PA8*) echo hppa2.0-unknown-linux-gnu ;; - *) echo hppa-unknown-linux-gnu ;; - esac - exit 0 ;; - parisc64:Linux:*:* | hppa64:Linux:*:*) - echo hppa64-unknown-linux-gnu - exit 0 ;; - s390:Linux:*:* | s390x:Linux:*:*) - echo ${UNAME_MACHINE}-ibm-linux - exit 0 ;; - sh*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - sparc:Linux:*:* | sparc64:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - x86_64:Linux:*:*) - echo x86_64-unknown-linux-gnu - exit 0 ;; - i*86:Linux:*:*) - # The BFD linker knows what the default object file format is, so - # first see if it will tell us. cd to the root directory to prevent - # problems with other programs or directories called `ld' in the path. - # Set LC_ALL=C to ensure ld outputs messages in English. - ld_supported_targets=`cd /; LC_ALL=C ld --help 2>&1 \ - | sed -ne '/supported targets:/!d - s/[ ][ ]*/ /g - s/.*supported targets: *// - s/ .*// - p'` - case "$ld_supported_targets" in - elf32-i386) - TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu" - ;; - a.out-i386-linux) - echo "${UNAME_MACHINE}-pc-linux-gnuaout" - exit 0 ;; - coff-i386) - echo "${UNAME_MACHINE}-pc-linux-gnucoff" - exit 0 ;; - "") - # Either a pre-BFD a.out linker (linux-gnuoldld) or - # one that does not give us useful --help. - echo "${UNAME_MACHINE}-pc-linux-gnuoldld" - exit 0 ;; - esac - # Determine whether the default compiler is a.out or elf - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include <features.h> - #ifdef __ELF__ - # ifdef __GLIBC__ - # if __GLIBC__ >= 2 - LIBC=gnu - # else - LIBC=gnulibc1 - # endif - # else - LIBC=gnulibc1 - # endif - #else - #ifdef __INTEL_COMPILER - LIBC=gnu - #else - LIBC=gnuaout - #endif - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=` - rm -f $dummy.c && rmdir $tmpdir - test x"${LIBC}" != x && echo "${UNAME_MACHINE}-pc-linux-${LIBC}" && exit 0 - test x"${TENTATIVE}" != x && echo "${TENTATIVE}" && exit 0 - ;; - i*86:DYNIX/ptx:4*:*) - # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. - # earlier versions are messed up and put the nodename in both - # sysname and nodename. - echo i386-sequent-sysv4 - exit 0 ;; - i*86:UNIX_SV:4.2MP:2.*) - # Unixware is an offshoot of SVR4, but it has its own version - # number series starting with 2... - # I am not positive that other SVR4 systems won't match this, - # I just have to hope. -- rms. - # Use sysv4.2uw... so that sysv4* matches it. - echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} - exit 0 ;; - i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) - UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` - if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then - echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} - else - echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} - fi - exit 0 ;; - i*86:*:5:[78]*) - case `/bin/uname -X | grep "^Machine"` in - *486*) UNAME_MACHINE=i486 ;; - *Pentium) UNAME_MACHINE=i586 ;; - *Pent*|*Celeron) UNAME_MACHINE=i686 ;; - esac - echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} - exit 0 ;; - i*86:*:3.2:*) - if test -f /usr/options/cb.name; then - UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name` - echo ${UNAME_MACHINE}-pc-isc$UNAME_REL - elif /bin/uname -X 2>/dev/null >/dev/null ; then - UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` - (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 - (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ - && UNAME_MACHINE=i586 - (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ - && UNAME_MACHINE=i686 - (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ - && UNAME_MACHINE=i686 - echo ${UNAME_MACHINE}-pc-sco$UNAME_REL - else - echo ${UNAME_MACHINE}-pc-sysv32 - fi - exit 0 ;; - i*86:*DOS:*:*) - echo ${UNAME_MACHINE}-pc-msdosdjgpp - exit 0 ;; - pc:*:*:*) - # Left here for compatibility: - # uname -m prints for DJGPP always 'pc', but it prints nothing about - # the processor, so we play safe by assuming i386. - echo i386-pc-msdosdjgpp - exit 0 ;; - Intel:Mach:3*:*) - echo i386-pc-mach3 - exit 0 ;; - paragon:*:*:*) - echo i860-intel-osf1 - exit 0 ;; - i860:*:4.*:*) # i860-SVR4 - if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then - echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 - else # Add other i860-SVR4 vendors below as they are discovered. - echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 - fi - exit 0 ;; - mini*:CTIX:SYS*5:*) - # "miniframe" - echo m68010-convergent-sysv - exit 0 ;; - M68*:*:R3V[567]*:*) - test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; - 3[34]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0) - OS_REL='' - test -r /etc/.relid \ - && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` - /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ - && echo i486-ncr-sysv4.3${OS_REL} && exit 0 - /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ - && echo i586-ncr-sysv4.3${OS_REL} && exit 0 ;; - 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) - /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ - && echo i486-ncr-sysv4 && exit 0 ;; - m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) - echo m68k-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - mc68030:UNIX_System_V:4.*:*) - echo m68k-atari-sysv4 - exit 0 ;; - i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*) - echo i386-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - TSUNAMI:LynxOS:2.*:*) - echo sparc-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - rs6000:LynxOS:2.*:*) - echo rs6000-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*) - echo powerpc-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - SM[BE]S:UNIX_SV:*:*) - echo mips-dde-sysv${UNAME_RELEASE} - exit 0 ;; - RM*:ReliantUNIX-*:*:*) - echo mips-sni-sysv4 - exit 0 ;; - RM*:SINIX-*:*:*) - echo mips-sni-sysv4 - exit 0 ;; - *:SINIX-*:*:*) - if uname -p 2>/dev/null >/dev/null ; then - UNAME_MACHINE=`(uname -p) 2>/dev/null` - echo ${UNAME_MACHINE}-sni-sysv4 - else - echo ns32k-sni-sysv - fi - exit 0 ;; - PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort - # says <Richard.M.Bartel@ccMail.Census.GOV> - echo i586-unisys-sysv4 - exit 0 ;; - *:UNIX_System_V:4*:FTX*) - # From Gerald Hewes <hewes@openmarket.com>. - # How about differentiating between stratus architectures? -djm - echo hppa1.1-stratus-sysv4 - exit 0 ;; - *:*:*:FTX*) - # From seanf@swdc.stratus.com. - echo i860-stratus-sysv4 - exit 0 ;; - *:VOS:*:*) - # From Paul.Green@stratus.com. - echo hppa1.1-stratus-vos - exit 0 ;; - mc68*:A/UX:*:*) - echo m68k-apple-aux${UNAME_RELEASE} - exit 0 ;; - news*:NEWS-OS:6*:*) - echo mips-sony-newsos6 - exit 0 ;; - R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) - if [ -d /usr/nec ]; then - echo mips-nec-sysv${UNAME_RELEASE} - else - echo mips-unknown-sysv${UNAME_RELEASE} - fi - exit 0 ;; - BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. - echo powerpc-be-beos - exit 0 ;; - BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. - echo powerpc-apple-beos - exit 0 ;; - BePC:BeOS:*:*) # BeOS running on Intel PC compatible. - echo i586-pc-beos - exit 0 ;; - SX-4:SUPER-UX:*:*) - echo sx4-nec-superux${UNAME_RELEASE} - exit 0 ;; - SX-5:SUPER-UX:*:*) - echo sx5-nec-superux${UNAME_RELEASE} - exit 0 ;; - Power*:Rhapsody:*:*) - echo powerpc-apple-rhapsody${UNAME_RELEASE} - exit 0 ;; - *:Rhapsody:*:*) - echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} - exit 0 ;; - *:Darwin:*:*) - echo `uname -p`-apple-darwin${UNAME_RELEASE} - exit 0 ;; - *:procnto*:*:* | *:QNX:[0123456789]*:*) - UNAME_PROCESSOR=`uname -p` - if test "$UNAME_PROCESSOR" = "x86"; then - UNAME_PROCESSOR=i386 - UNAME_MACHINE=pc - fi - echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} - exit 0 ;; - *:QNX:*:4*) - echo i386-pc-qnx - exit 0 ;; - NSR-[GKLNPTVW]:NONSTOP_KERNEL:*:*) - echo nsr-tandem-nsk${UNAME_RELEASE} - exit 0 ;; - *:NonStop-UX:*:*) - echo mips-compaq-nonstopux - exit 0 ;; - BS2000:POSIX*:*:*) - echo bs2000-siemens-sysv - exit 0 ;; - DS/*:UNIX_System_V:*:*) - echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} - exit 0 ;; - *:Plan9:*:*) - # "uname -m" is not consistent, so use $cputype instead. 386 - # is converted to i386 for consistency with other x86 - # operating systems. - if test "$cputype" = "386"; then - UNAME_MACHINE=i386 - else - UNAME_MACHINE="$cputype" - fi - echo ${UNAME_MACHINE}-unknown-plan9 - exit 0 ;; - i*86:OS/2:*:*) - # If we were able to find `uname', then EMX Unix compatibility - # is probably installed. - echo ${UNAME_MACHINE}-pc-os2-emx - exit 0 ;; - *:TOPS-10:*:*) - echo pdp10-unknown-tops10 - exit 0 ;; - *:TENEX:*:*) - echo pdp10-unknown-tenex - exit 0 ;; - KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) - echo pdp10-dec-tops20 - exit 0 ;; - XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) - echo pdp10-xkl-tops20 - exit 0 ;; - *:TOPS-20:*:*) - echo pdp10-unknown-tops20 - exit 0 ;; - *:ITS:*:*) - echo pdp10-unknown-its - exit 0 ;; - i*86:XTS-300:*:STOP) - echo ${UNAME_MACHINE}-unknown-stop - exit 0 ;; - i*86:atheos:*:*) - echo ${UNAME_MACHINE}-unknown-atheos - exit 0 ;; -esac - -#echo '(No uname command or uname output not recognized.)' 1>&2 -#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 - -eval $set_cc_for_build -cat >$dummy.c <<EOF -#ifdef _SEQUENT_ -# include <sys/types.h> -# include <sys/utsname.h> -#endif -main () -{ -#if defined (sony) -#if defined (MIPSEB) - /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, - I don't know.... */ - printf ("mips-sony-bsd\n"); exit (0); -#else -#include <sys/param.h> - printf ("m68k-sony-newsos%s\n", -#ifdef NEWSOS4 - "4" -#else - "" -#endif - ); exit (0); -#endif -#endif - -#if defined (__arm) && defined (__acorn) && defined (__unix) - printf ("arm-acorn-riscix"); exit (0); -#endif - -#if defined (hp300) && !defined (hpux) - printf ("m68k-hp-bsd\n"); exit (0); -#endif - -#if defined (NeXT) -#if !defined (__ARCHITECTURE__) -#define __ARCHITECTURE__ "m68k" -#endif - int version; - version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; - if (version < 4) - printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); - else - printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); - exit (0); -#endif - -#if defined (MULTIMAX) || defined (n16) -#if defined (UMAXV) - printf ("ns32k-encore-sysv\n"); exit (0); -#else -#if defined (CMU) - printf ("ns32k-encore-mach\n"); exit (0); -#else - printf ("ns32k-encore-bsd\n"); exit (0); -#endif -#endif -#endif - -#if defined (__386BSD__) - printf ("i386-pc-bsd\n"); exit (0); -#endif - -#if defined (sequent) -#if defined (i386) - printf ("i386-sequent-dynix\n"); exit (0); -#endif -#if defined (ns32000) - printf ("ns32k-sequent-dynix\n"); exit (0); -#endif -#endif - -#if defined (_SEQUENT_) - struct utsname un; - - uname(&un); - - if (strncmp(un.version, "V2", 2) == 0) { - printf ("i386-sequent-ptx2\n"); exit (0); - } - if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ - printf ("i386-sequent-ptx1\n"); exit (0); - } - printf ("i386-sequent-ptx\n"); exit (0); - -#endif - -#if defined (vax) -# if !defined (ultrix) -# include <sys/param.h> -# if defined (BSD) -# if BSD == 43 - printf ("vax-dec-bsd4.3\n"); exit (0); -# else -# if BSD == 199006 - printf ("vax-dec-bsd4.3reno\n"); exit (0); -# else - printf ("vax-dec-bsd\n"); exit (0); -# endif -# endif -# else - printf ("vax-dec-bsd\n"); exit (0); -# endif -# else - printf ("vax-dec-ultrix\n"); exit (0); -# endif -#endif - -#if defined (alliant) && defined (i860) - printf ("i860-alliant-bsd\n"); exit (0); -#endif - - exit (1); -} -EOF - -$CC_FOR_BUILD $dummy.c -o $dummy 2>/dev/null && $dummy && rm -f $dummy.c $dummy && rmdir $tmpdir && exit 0 -rm -f $dummy.c $dummy && rmdir $tmpdir - -# Apollos put the system type in the environment. - -test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; } - -# Convex versions that predate uname can use getsysinfo(1) - -if [ -x /usr/convex/getsysinfo ] -then - case `getsysinfo -f cpu_type` in - c1*) - echo c1-convex-bsd - exit 0 ;; - c2*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit 0 ;; - c34*) - echo c34-convex-bsd - exit 0 ;; - c38*) - echo c38-convex-bsd - exit 0 ;; - c4*) - echo c4-convex-bsd - exit 0 ;; - esac -fi - -cat >&2 <<EOF -$0: unable to guess system type - -This script, last modified $timestamp, has failed to recognize -the operating system you are using. It is advised that you -download the most up to date version of the config scripts from - - ftp://ftp.gnu.org/pub/gnu/config/ - -If the version you run ($0) is already up to date, please -send the following data and any information you think might be -pertinent to <config-patches@gnu.org> in order to provide the needed -information to handle your system. - -config.guess timestamp = $timestamp - -uname -m = `(uname -m) 2>/dev/null || echo unknown` -uname -r = `(uname -r) 2>/dev/null || echo unknown` -uname -s = `(uname -s) 2>/dev/null || echo unknown` -uname -v = `(uname -v) 2>/dev/null || echo unknown` - -/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` -/bin/uname -X = `(/bin/uname -X) 2>/dev/null` - -hostinfo = `(hostinfo) 2>/dev/null` -/bin/universe = `(/bin/universe) 2>/dev/null` -/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` -/bin/arch = `(/bin/arch) 2>/dev/null` -/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` -/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` - -UNAME_MACHINE = ${UNAME_MACHINE} -UNAME_RELEASE = ${UNAME_RELEASE} -UNAME_SYSTEM = ${UNAME_SYSTEM} -UNAME_VERSION = ${UNAME_VERSION} -EOF - -exit 1 - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "timestamp='" -# time-stamp-format: "%:y-%02m-%02d" -# time-stamp-end: "'" -# End: diff --git a/contrib/tcsh/config.h.in b/contrib/tcsh/config.h.in deleted file mode 100644 index f2211a5..0000000 --- a/contrib/tcsh/config.h.in +++ /dev/null @@ -1,233 +0,0 @@ -/* config.h.in. Generated from configure.in by autoheader. */ - -/* Define to the type of elements in the array set by `getgroups'. Usually - this is either `int' or `gid_t'. */ -#undef GETGROUPS_T - -/* Define to 1 if the `getpgrp' function requires zero arguments. */ -#undef GETPGRP_VOID - -/* Define to 1 if you have the <auth.h> header file. */ -#undef HAVE_AUTH_H - -/* Define to 1 if you have the `catgets' function. */ -#undef HAVE_CATGETS - -/* Define to 1 if you have the <crypt.h> header file. */ -#undef HAVE_CRYPT_H - -/* Define to 1 if you have the declaration of `crypt', and to 0 if you don't. - */ -#undef HAVE_DECL_CRYPT - -/* Define to 1 if you have the declaration of `environ', and to 0 if you - don't. */ -#undef HAVE_DECL_ENVIRON - -/* Define to 1 if you have the declaration of `gethostname', and to 0 if you - don't. */ -#undef HAVE_DECL_GETHOSTNAME - -/* Define to 1 if you have the declaration of `getpgrp', and to 0 if you - don't. */ -#undef HAVE_DECL_GETPGRP - -/* Define to 1 if you have the <dirent.h> header file, and it defines `DIR'. - */ -#undef HAVE_DIRENT_H - -/* Define to 1 if you have the `dup2' function. */ -#undef HAVE_DUP2 - -/* Define to 1 if you have the `getauthid' function. */ -#undef HAVE_GETAUTHID - -/* Define to 1 if you have the `getcwd' function. */ -#undef HAVE_GETCWD - -/* Define to 1 if you have the `gethostname' function. */ -#undef HAVE_GETHOSTNAME - -/* Define to 1 if you have the `getpwent' function. */ -#undef HAVE_GETPWENT - -/* Define to 1 if you have the `getutent' function. */ -#undef HAVE_GETUTENT - -/* Define if you have the iconv() function. */ -#undef HAVE_ICONV - -/* Define to 1 if you have the <inttypes.h> header file. */ -#undef HAVE_INTTYPES_H - -/* Define to 1 if the system has the type `long long'. */ -#undef HAVE_LONG_LONG - -/* Define to 1 if mbrtowc and mbstate_t are properly declared. */ -#undef HAVE_MBRTOWC - -/* Define to 1 if you have the `memmove' function. */ -#undef HAVE_MEMMOVE - -/* Define to 1 if you have the <memory.h> header file. */ -#undef HAVE_MEMORY_H - -/* Define to 1 if you have the `memset' function. */ -#undef HAVE_MEMSET - -/* Define to 1 if you have the <ndir.h> header file, and it defines `DIR'. */ -#undef HAVE_NDIR_H - -/* Define to 1 if you have the `nice' function. */ -#undef HAVE_NICE - -/* Define to 1 if you have the `nl_langinfo' function. */ -#undef HAVE_NL_LANGINFO - -/* Define to 1 if you have the `sbrk' function. */ -#undef HAVE_SBRK - -/* Define to 1 if you have the `setpgid' function. */ -#undef HAVE_SETPGID - -/* Define to 1 if you have the `setpriority' function. */ -#undef HAVE_SETPRIORITY - -/* Define to 1 if you have the <shadow.h> header file. */ -#undef HAVE_SHADOW_H - -/* Define to 1 if you have the <stdint.h> header file. */ -#undef HAVE_STDINT_H - -/* Define to 1 if you have the <stdlib.h> header file. */ -#undef HAVE_STDLIB_H - -/* Define to 1 if you have the `strcoll' function and it is properly defined. - */ -#undef HAVE_STRCOLL - -/* Define to 1 if you have the `strerror' function. */ -#undef HAVE_STRERROR - -/* Define to 1 if you have the <strings.h> header file. */ -#undef HAVE_STRINGS_H - -/* Define to 1 if you have the <string.h> header file. */ -#undef HAVE_STRING_H - -/* Define to 1 if you have the `strstr' function. */ -#undef HAVE_STRSTR - -/* Define to 1 if `d_ino' is member of `struct dirent'. */ -#undef HAVE_STRUCT_DIRENT_D_INO - -/* Define to 1 if `ss_family' is member of `struct sockaddr_storage'. */ -#undef HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY - -/* Define to 1 if `ut_host' is member of `struct utmp'. */ -#undef HAVE_STRUCT_UTMP_UT_HOST - -/* Define to 1 if `ut_tv' is member of `struct utmp'. */ -#undef HAVE_STRUCT_UTMP_UT_TV - -/* Define to 1 if `ut_user' is member of `struct utmp'. */ -#undef HAVE_STRUCT_UTMP_UT_USER - -/* Define to 1 if `ut_xtime' is member of `struct utmp'. */ -#undef HAVE_STRUCT_UTMP_UT_XTIME - -/* Define to 1 if you have the `sysconf' function. */ -#undef HAVE_SYSCONF - -/* Define to 1 if you have the <sys/dir.h> header file, and it defines `DIR'. - */ -#undef HAVE_SYS_DIR_H - -/* Define to 1 if you have the <sys/ndir.h> header file, and it defines `DIR'. - */ -#undef HAVE_SYS_NDIR_H - -/* Define to 1 if you have the <sys/stat.h> header file. */ -#undef HAVE_SYS_STAT_H - -/* Define to 1 if you have the <sys/types.h> header file. */ -#undef HAVE_SYS_TYPES_H - -/* Define to 1 if you have the <unistd.h> header file. */ -#undef HAVE_UNISTD_H - -/* Define to 1 if you have the <utmpx.h> header file. */ -#undef HAVE_UTMPX_H - -/* Define to 1 if you have the <utmp.h> header file. */ -#undef HAVE_UTMP_H - -/* Define to 1 if you have the <wchar.h> header file. */ -#undef HAVE_WCHAR_H - -/* Define to 1 if you have the <wctype.h> header file. */ -#undef HAVE_WCTYPE_H - -/* Define to 1 if you have the `wcwidth' function. */ -#undef HAVE_WCWIDTH - -/* Define as const if the declaration of iconv() needs const. */ -#undef ICONV_CONST - -/* Support NLS. */ -#undef NLS - -/* Define to the address where bug reports for this package should be sent. */ -#undef PACKAGE_BUGREPORT - -/* Define to the full name of this package. */ -#undef PACKAGE_NAME - -/* Define to the full name and version of this package. */ -#undef PACKAGE_STRING - -/* Define to the one symbol short name of this package. */ -#undef PACKAGE_TARNAME - -/* Define to the version of this package. */ -#undef PACKAGE_VERSION - -/* Define to 1 if the `setpgrp' function takes no argument. */ -#undef SETPGRP_VOID - -/* The size of a `wchar_t', as computed by sizeof. */ -#undef SIZEOF_WCHAR_T - -/* Define to 1 if the `S_IS*' macros in <sys/stat.h> do not work properly. */ -#undef STAT_MACROS_BROKEN - -/* Define to 1 if you have the ANSI C header files. */ -#undef STDC_HEADERS - -/* Define to empty if `const' does not conform to ANSI C. */ -#undef const - -/* Define to `int' if <sys/types.h> doesn't define. */ -#undef gid_t - -/* Define to `int' if <sys/types.h> does not define. */ -#undef mode_t - -/* Define to `unsigned' if <sys/types.h> does not define. */ -#undef size_t - -/* Define to `int' if neither <sys/types.h> nor <sys/socket.h> define. */ -#undef socklen_t - -/* Define to `int' not defined in <sys/types.h>. */ -#undef ssize_t - -/* Define to `int' if <sys/types.h> doesn't define. */ -#undef uid_t - -/* Define to empty if the keyword `volatile' does not work. Warning: valid - code using `volatile' can become incorrect without. Disable with care. */ -#undef volatile - -#include "config_p.h" -#include "config_f.h" diff --git a/contrib/tcsh/config.sub b/contrib/tcsh/config.sub deleted file mode 100755 index 9ff085e..0000000 --- a/contrib/tcsh/config.sub +++ /dev/null @@ -1,1460 +0,0 @@ -#! /bin/sh -# Configuration validation subroutine script. -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -# 2000, 2001, 2002 Free Software Foundation, Inc. - -timestamp='2002-07-03' - -# This file is (in principle) common to ALL GNU software. -# The presence of a machine in this file suggests that SOME GNU software -# can handle that machine. It does not imply ALL GNU software can. -# -# This file is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, -# Boston, MA 02111-1307, USA. - -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - -# Please send patches to <config-patches@gnu.org>. Submit a context -# diff and a properly formatted ChangeLog entry. -# -# Configuration subroutine to validate and canonicalize a configuration type. -# Supply the specified configuration type as an argument. -# If it is invalid, we print an error message on stderr and exit with code 1. -# Otherwise, we print the canonical config type on stdout and succeed. - -# This file is supposed to be the same for all GNU packages -# and recognize all the CPU types, system types and aliases -# that are meaningful with *any* GNU software. -# Each package is responsible for reporting which valid configurations -# it does not support. The user should be able to distinguish -# a failure to support a valid configuration from a meaningless -# configuration. - -# The goal of this file is to map all the various variations of a given -# machine specification into a single specification in the form: -# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM -# or in some cases, the newer four-part form: -# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM -# It is wrong to echo any other type of specification. - -me=`echo "$0" | sed -e 's,.*/,,'` - -usage="\ -Usage: $0 [OPTION] CPU-MFR-OPSYS - $0 [OPTION] ALIAS - -Canonicalize a configuration name. - -Operation modes: - -h, --help print this help, then exit - -t, --time-stamp print date of last modification, then exit - -v, --version print version number, then exit - -Report bugs and patches to <config-patches@gnu.org>." - -version="\ -GNU config.sub ($timestamp) - -Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -Free Software Foundation, Inc. - -This is free software; see the source for copying conditions. There is NO -warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." - -help=" -Try \`$me --help' for more information." - -# Parse command line -while test $# -gt 0 ; do - case $1 in - --time-stamp | --time* | -t ) - echo "$timestamp" ; exit 0 ;; - --version | -v ) - echo "$version" ; exit 0 ;; - --help | --h* | -h ) - echo "$usage"; exit 0 ;; - -- ) # Stop option processing - shift; break ;; - - ) # Use stdin as input. - break ;; - -* ) - echo "$me: invalid option $1$help" - exit 1 ;; - - *local*) - # First pass through any local machine types. - echo $1 - exit 0;; - - * ) - break ;; - esac -done - -case $# in - 0) echo "$me: missing argument$help" >&2 - exit 1;; - 1) ;; - *) echo "$me: too many arguments$help" >&2 - exit 1;; -esac - -# Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). -# Here we must recognize all the valid KERNEL-OS combinations. -maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` -case $maybe_os in - nto-qnx* | linux-gnu* | freebsd*-gnu* | storm-chaos* | os2-emx* | windows32-* | rtmk-nova*) - os=-$maybe_os - basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` - ;; - *) - basic_machine=`echo $1 | sed 's/-[^-]*$//'` - if [ $basic_machine != $1 ] - then os=`echo $1 | sed 's/.*-/-/'` - else os=; fi - ;; -esac - -### Let's recognize common machines as not being operating systems so -### that things like config.sub decstation-3100 work. We also -### recognize some manufacturers as not being operating systems, so we -### can provide default operating systems below. -case $os in - -sun*os*) - # Prevent following clause from handling this invalid input. - ;; - -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ - -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ - -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ - -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ - -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ - -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ - -apple | -axis) - os= - basic_machine=$1 - ;; - -sim | -cisco | -oki | -wec | -winbond) - os= - basic_machine=$1 - ;; - -scout) - ;; - -wrs) - os=-vxworks - basic_machine=$1 - ;; - -chorusos*) - os=-chorusos - basic_machine=$1 - ;; - -chorusrdb) - os=-chorusrdb - basic_machine=$1 - ;; - -hiux*) - os=-hiuxwe2 - ;; - -sco5) - os=-sco3.2v5 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco4) - os=-sco3.2v4 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco3.2.[4-9]*) - os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco3.2v[4-9]*) - # Don't forget version if it is 3.2v4 or newer. - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco*) - os=-sco3.2v2 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -udk*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -isc) - os=-isc2.2 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -clix*) - basic_machine=clipper-intergraph - ;; - -isc*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -lynx*) - os=-lynxos - ;; - -ptx*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` - ;; - -windowsnt*) - os=`echo $os | sed -e 's/windowsnt/winnt/'` - ;; - -psos*) - os=-psos - ;; - -mint | -mint[0-9]*) - basic_machine=m68k-atari - os=-mint - ;; -esac - -# Decode aliases for certain CPU-COMPANY combinations. -case $basic_machine in - # Recognize the basic CPU types without company name. - # Some are omitted here because they have special meanings below. - 1750a | 580 \ - | a29k \ - | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ - | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ - | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr \ - | c4x | clipper \ - | d10v | d30v | dlx | dsp16xx \ - | fr30 | frv \ - | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ - | i370 | i860 | i960 | ia64 \ - | ip2k \ - | m32r | m68000 | m68k | m88k | mcore \ - | mips | mipsbe | mipseb | mipsel | mipsle \ - | mips16 \ - | mips64 | mips64el \ - | mips64orion | mips64orionel \ - | mips64vr4100 | mips64vr4100el \ - | mips64vr4300 | mips64vr4300el \ - | mips64vr5000 | mips64vr5000el \ - | mipsisa32 | mipsisa32el \ - | mipsisa64 | mipsisa64el \ - | mipsisa64sb1 | mipsisa64sb1el \ - | mipstx39 | mipstx39el \ - | mn10200 | mn10300 \ - | ns16k | ns32k \ - | openrisc | or32 \ - | pdp10 | pdp11 | pj | pjl \ - | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \ - | pyramid \ - | sh | sh[1234] | sh3e | sh[34]eb | shbe | shle | sh[1234]le | sh3ele \ - | sh64 | sh64le \ - | sparc | sparc64 | sparc86x | sparclet | sparclite | sparcv9 | sparcv9b \ - | strongarm \ - | tahoe | thumb | tic80 | tron \ - | v850 | v850e \ - | we32k \ - | x86 | xscale | xstormy16 | xtensa \ - | z8k) - basic_machine=$basic_machine-unknown - ;; - m6811 | m68hc11 | m6812 | m68hc12) - # Motorola 68HC11/12. - basic_machine=$basic_machine-unknown - os=-none - ;; - m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) - ;; - - # We use `pc' rather than `unknown' - # because (1) that's what they normally are, and - # (2) the word "unknown" tends to confuse beginning users. - i*86 | x86_64) - basic_machine=$basic_machine-pc - ;; - # Object if more than one company name word. - *-*-*) - echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 - exit 1 - ;; - # Recognize the basic CPU types with company name. - 580-* \ - | a29k-* \ - | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ - | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ - | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ - | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ - | avr-* \ - | bs2000-* \ - | c[123]* | c30-* | [cjt]90-* | c54x-* \ - | clipper-* | cydra-* \ - | d10v-* | d30v-* | dlx-* \ - | elxsi-* \ - | f30[01]-* | f700-* | fr30-* | frv-* | fx80-* \ - | h8300-* | h8500-* \ - | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ - | i*86-* | i860-* | i960-* | ia64-* \ - | ip2k-* \ - | m32r-* \ - | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ - | m88110-* | m88k-* | mcore-* \ - | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ - | mips16-* \ - | mips64-* | mips64el-* \ - | mips64orion-* | mips64orionel-* \ - | mips64vr4100-* | mips64vr4100el-* \ - | mips64vr4300-* | mips64vr4300el-* \ - | mips64vr5000-* | mips64vr5000el-* \ - | mipsisa32-* | mipsisa32el-* \ - | mipsisa64-* | mipsisa64el-* \ - | mipsisa64sb1-* | mipsisa64sb1el-* \ - | mipstx39 | mipstx39el \ - | none-* | np1-* | ns16k-* | ns32k-* \ - | orion-* \ - | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ - | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \ - | pyramid-* \ - | romp-* | rs6000-* \ - | sh-* | sh[1234]-* | sh3e-* | sh[34]eb-* | shbe-* \ - | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ - | sparc-* | sparc64-* | sparc86x-* | sparclet-* | sparclite-* \ - | sparcv9-* | sparcv9b-* | strongarm-* | sv1-* | sx?-* \ - | tahoe-* | thumb-* | tic30-* | tic54x-* | tic80-* | tron-* \ - | v850-* | v850e-* | vax-* \ - | we32k-* \ - | x86-* | x86_64-* | xps100-* | xscale-* | xstormy16-* \ - | xtensa-* \ - | ymp-* \ - | z8k-*) - ;; - # Recognize the various machine names and aliases which stand - # for a CPU type and a company and sometimes even an OS. - 386bsd) - basic_machine=i386-unknown - os=-bsd - ;; - 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) - basic_machine=m68000-att - ;; - 3b*) - basic_machine=we32k-att - ;; - a29khif) - basic_machine=a29k-amd - os=-udi - ;; - adobe68k) - basic_machine=m68010-adobe - os=-scout - ;; - alliant | fx80) - basic_machine=fx80-alliant - ;; - altos | altos3068) - basic_machine=m68k-altos - ;; - am29k) - basic_machine=a29k-none - os=-bsd - ;; - amdahl) - basic_machine=580-amdahl - os=-sysv - ;; - amiga | amiga-*) - basic_machine=m68k-unknown - ;; - amigaos | amigados) - basic_machine=m68k-unknown - os=-amigaos - ;; - amigaunix | amix) - basic_machine=m68k-unknown - os=-sysv4 - ;; - apollo68) - basic_machine=m68k-apollo - os=-sysv - ;; - apollo68bsd) - basic_machine=m68k-apollo - os=-bsd - ;; - aux) - basic_machine=m68k-apple - os=-aux - ;; - balance) - basic_machine=ns32k-sequent - os=-dynix - ;; - c90) - basic_machine=c90-cray - os=-unicos - ;; - convex-c1) - basic_machine=c1-convex - os=-bsd - ;; - convex-c2) - basic_machine=c2-convex - os=-bsd - ;; - convex-c32) - basic_machine=c32-convex - os=-bsd - ;; - convex-c34) - basic_machine=c34-convex - os=-bsd - ;; - convex-c38) - basic_machine=c38-convex - os=-bsd - ;; - cray | j90) - basic_machine=j90-cray - os=-unicos - ;; - crds | unos) - basic_machine=m68k-crds - ;; - cris | cris-* | etrax*) - basic_machine=cris-axis - ;; - da30 | da30-*) - basic_machine=m68k-da30 - ;; - decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) - basic_machine=mips-dec - ;; - decsystem10* | dec10*) - basic_machine=pdp10-dec - os=-tops10 - ;; - decsystem20* | dec20*) - basic_machine=pdp10-dec - os=-tops20 - ;; - delta | 3300 | motorola-3300 | motorola-delta \ - | 3300-motorola | delta-motorola) - basic_machine=m68k-motorola - ;; - delta88) - basic_machine=m88k-motorola - os=-sysv3 - ;; - dpx20 | dpx20-*) - basic_machine=rs6000-bull - os=-bosx - ;; - dpx2* | dpx2*-bull) - basic_machine=m68k-bull - os=-sysv3 - ;; - ebmon29k) - basic_machine=a29k-amd - os=-ebmon - ;; - elxsi) - basic_machine=elxsi-elxsi - os=-bsd - ;; - encore | umax | mmax) - basic_machine=ns32k-encore - ;; - es1800 | OSE68k | ose68k | ose | OSE) - basic_machine=m68k-ericsson - os=-ose - ;; - fx2800) - basic_machine=i860-alliant - ;; - genix) - basic_machine=ns32k-ns - ;; - gmicro) - basic_machine=tron-gmicro - os=-sysv - ;; - go32) - basic_machine=i386-pc - os=-go32 - ;; - h3050r* | hiux*) - basic_machine=hppa1.1-hitachi - os=-hiuxwe2 - ;; - h8300hms) - basic_machine=h8300-hitachi - os=-hms - ;; - h8300xray) - basic_machine=h8300-hitachi - os=-xray - ;; - h8500hms) - basic_machine=h8500-hitachi - os=-hms - ;; - harris) - basic_machine=m88k-harris - os=-sysv3 - ;; - hp300-*) - basic_machine=m68k-hp - ;; - hp300bsd) - basic_machine=m68k-hp - os=-bsd - ;; - hp300hpux) - basic_machine=m68k-hp - os=-hpux - ;; - hp3k9[0-9][0-9] | hp9[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hp9k2[0-9][0-9] | hp9k31[0-9]) - basic_machine=m68000-hp - ;; - hp9k3[2-9][0-9]) - basic_machine=m68k-hp - ;; - hp9k6[0-9][0-9] | hp6[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hp9k7[0-79][0-9] | hp7[0-79][0-9]) - basic_machine=hppa1.1-hp - ;; - hp9k78[0-9] | hp78[0-9]) - # FIXME: really hppa2.0-hp - basic_machine=hppa1.1-hp - ;; - hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) - # FIXME: really hppa2.0-hp - basic_machine=hppa1.1-hp - ;; - hp9k8[0-9][13679] | hp8[0-9][13679]) - basic_machine=hppa1.1-hp - ;; - hp9k8[0-9][0-9] | hp8[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hppa-next) - os=-nextstep3 - ;; - hppaosf) - basic_machine=hppa1.1-hp - os=-osf - ;; - hppro) - basic_machine=hppa1.1-hp - os=-proelf - ;; - i370-ibm* | ibm*) - basic_machine=i370-ibm - ;; -# I'm not sure what "Sysv32" means. Should this be sysv3.2? - i*86v32) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv32 - ;; - i*86v4*) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv4 - ;; - i*86v) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv - ;; - i*86sol2) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-solaris2 - ;; - i386mach) - basic_machine=i386-mach - os=-mach - ;; - i386-vsta | vsta) - basic_machine=i386-unknown - os=-vsta - ;; - iris | iris4d) - basic_machine=mips-sgi - case $os in - -irix*) - ;; - *) - os=-irix4 - ;; - esac - ;; - isi68 | isi) - basic_machine=m68k-isi - os=-sysv - ;; - m88k-omron*) - basic_machine=m88k-omron - ;; - magnum | m3230) - basic_machine=mips-mips - os=-sysv - ;; - merlin) - basic_machine=ns32k-utek - os=-sysv - ;; - mingw32) - basic_machine=i386-pc - os=-mingw32 - ;; - miniframe) - basic_machine=m68000-convergent - ;; - *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) - basic_machine=m68k-atari - os=-mint - ;; - mips3*-*) - basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` - ;; - mips3*) - basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown - ;; - mmix*) - basic_machine=mmix-knuth - os=-mmixware - ;; - monitor) - basic_machine=m68k-rom68k - os=-coff - ;; - morphos) - basic_machine=powerpc-unknown - os=-morphos - ;; - msdos) - basic_machine=i386-pc - os=-msdos - ;; - mvs) - basic_machine=i370-ibm - os=-mvs - ;; - ncr3000) - basic_machine=i486-ncr - os=-sysv4 - ;; - netbsd386) - basic_machine=i386-unknown - os=-netbsd - ;; - netwinder) - basic_machine=armv4l-rebel - os=-linux - ;; - news | news700 | news800 | news900) - basic_machine=m68k-sony - os=-newsos - ;; - news1000) - basic_machine=m68030-sony - os=-newsos - ;; - news-3600 | risc-news) - basic_machine=mips-sony - os=-newsos - ;; - necv70) - basic_machine=v70-nec - os=-sysv - ;; - next | m*-next ) - basic_machine=m68k-next - case $os in - -nextstep* ) - ;; - -ns2*) - os=-nextstep2 - ;; - *) - os=-nextstep3 - ;; - esac - ;; - nh3000) - basic_machine=m68k-harris - os=-cxux - ;; - nh[45]000) - basic_machine=m88k-harris - os=-cxux - ;; - nindy960) - basic_machine=i960-intel - os=-nindy - ;; - mon960) - basic_machine=i960-intel - os=-mon960 - ;; - nonstopux) - basic_machine=mips-compaq - os=-nonstopux - ;; - np1) - basic_machine=np1-gould - ;; - nsr-tandem) - basic_machine=nsr-tandem - ;; - op50n-* | op60c-*) - basic_machine=hppa1.1-oki - os=-proelf - ;; - or32 | or32-*) - basic_machine=or32-unknown - os=-coff - ;; - OSE68000 | ose68000) - basic_machine=m68000-ericsson - os=-ose - ;; - os68k) - basic_machine=m68k-none - os=-os68k - ;; - pa-hitachi) - basic_machine=hppa1.1-hitachi - os=-hiuxwe2 - ;; - paragon) - basic_machine=i860-intel - os=-osf - ;; - pbd) - basic_machine=sparc-tti - ;; - pbb) - basic_machine=m68k-tti - ;; - pc532 | pc532-*) - basic_machine=ns32k-pc532 - ;; - pentium | p5 | k5 | k6 | nexgen | viac3) - basic_machine=i586-pc - ;; - pentiumpro | p6 | 6x86 | athlon) - basic_machine=i686-pc - ;; - pentiumii | pentium2) - basic_machine=i686-pc - ;; - pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) - basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pentiumpro-* | p6-* | 6x86-* | athlon-*) - basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pentiumii-* | pentium2-*) - basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pn) - basic_machine=pn-gould - ;; - power) basic_machine=power-ibm - ;; - ppc) basic_machine=powerpc-unknown - ;; - ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppcle | powerpclittle | ppc-le | powerpc-little) - basic_machine=powerpcle-unknown - ;; - ppcle-* | powerpclittle-*) - basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppc64) basic_machine=powerpc64-unknown - ;; - ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppc64le | powerpc64little | ppc64-le | powerpc64-little) - basic_machine=powerpc64le-unknown - ;; - ppc64le-* | powerpc64little-*) - basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ps2) - basic_machine=i386-ibm - ;; - pw32) - basic_machine=i586-unknown - os=-pw32 - ;; - rom68k) - basic_machine=m68k-rom68k - os=-coff - ;; - rm[46]00) - basic_machine=mips-siemens - ;; - rtpc | rtpc-*) - basic_machine=romp-ibm - ;; - s390 | s390-*) - basic_machine=s390-ibm - ;; - s390x | s390x-*) - basic_machine=s390x-ibm - ;; - sa29200) - basic_machine=a29k-amd - os=-udi - ;; - sequent) - basic_machine=i386-sequent - ;; - sh) - basic_machine=sh-hitachi - os=-hms - ;; - sparclite-wrs | simso-wrs) - basic_machine=sparclite-wrs - os=-vxworks - ;; - sps7) - basic_machine=m68k-bull - os=-sysv2 - ;; - spur) - basic_machine=spur-unknown - ;; - st2000) - basic_machine=m68k-tandem - ;; - stratus) - basic_machine=i860-stratus - os=-sysv4 - ;; - sun2) - basic_machine=m68000-sun - ;; - sun2os3) - basic_machine=m68000-sun - os=-sunos3 - ;; - sun2os4) - basic_machine=m68000-sun - os=-sunos4 - ;; - sun3os3) - basic_machine=m68k-sun - os=-sunos3 - ;; - sun3os4) - basic_machine=m68k-sun - os=-sunos4 - ;; - sun4os3) - basic_machine=sparc-sun - os=-sunos3 - ;; - sun4os4) - basic_machine=sparc-sun - os=-sunos4 - ;; - sun4sol2) - basic_machine=sparc-sun - os=-solaris2 - ;; - sun3 | sun3-*) - basic_machine=m68k-sun - ;; - sun4) - basic_machine=sparc-sun - ;; - sun386 | sun386i | roadrunner) - basic_machine=i386-sun - ;; - sv1) - basic_machine=sv1-cray - os=-unicos - ;; - symmetry) - basic_machine=i386-sequent - os=-dynix - ;; - t3d) - basic_machine=alpha-cray - os=-unicos - ;; - t3e) - basic_machine=alphaev5-cray - os=-unicos - ;; - t90) - basic_machine=t90-cray - os=-unicos - ;; - tic54x | c54x*) - basic_machine=tic54x-unknown - os=-coff - ;; - tx39) - basic_machine=mipstx39-unknown - ;; - tx39el) - basic_machine=mipstx39el-unknown - ;; - toad1) - basic_machine=pdp10-xkl - os=-tops20 - ;; - tower | tower-32) - basic_machine=m68k-ncr - ;; - udi29k) - basic_machine=a29k-amd - os=-udi - ;; - ultra3) - basic_machine=a29k-nyu - os=-sym1 - ;; - v810 | necv810) - basic_machine=v810-nec - os=-none - ;; - vaxv) - basic_machine=vax-dec - os=-sysv - ;; - vms) - basic_machine=vax-dec - os=-vms - ;; - vpp*|vx|vx-*) - basic_machine=f301-fujitsu - ;; - vxworks960) - basic_machine=i960-wrs - os=-vxworks - ;; - vxworks68) - basic_machine=m68k-wrs - os=-vxworks - ;; - vxworks29k) - basic_machine=a29k-wrs - os=-vxworks - ;; - w65*) - basic_machine=w65-wdc - os=-none - ;; - w89k-*) - basic_machine=hppa1.1-winbond - os=-proelf - ;; - windows32) - basic_machine=i386-pc - os=-windows32-msvcrt - ;; - xps | xps100) - basic_machine=xps100-honeywell - ;; - ymp) - basic_machine=ymp-cray - os=-unicos - ;; - z8k-*-coff) - basic_machine=z8k-unknown - os=-sim - ;; - none) - basic_machine=none-none - os=-none - ;; - -# Here we handle the default manufacturer of certain CPU types. It is in -# some cases the only manufacturer, in others, it is the most popular. - w89k) - basic_machine=hppa1.1-winbond - ;; - op50n) - basic_machine=hppa1.1-oki - ;; - op60c) - basic_machine=hppa1.1-oki - ;; - romp) - basic_machine=romp-ibm - ;; - rs6000) - basic_machine=rs6000-ibm - ;; - vax) - basic_machine=vax-dec - ;; - pdp10) - # there are many clones, so DEC is not a safe bet - basic_machine=pdp10-unknown - ;; - pdp11) - basic_machine=pdp11-dec - ;; - we32k) - basic_machine=we32k-att - ;; - sh3 | sh4 | sh3eb | sh4eb | sh[1234]le | sh3ele) - basic_machine=sh-unknown - ;; - sh64) - basic_machine=sh64-unknown - ;; - sparc | sparcv9 | sparcv9b) - basic_machine=sparc-sun - ;; - cydra) - basic_machine=cydra-cydrome - ;; - orion) - basic_machine=orion-highlevel - ;; - orion105) - basic_machine=clipper-highlevel - ;; - mac | mpw | mac-mpw) - basic_machine=m68k-apple - ;; - pmac | pmac-mpw) - basic_machine=powerpc-apple - ;; - c4x*) - basic_machine=c4x-none - os=-coff - ;; - *-unknown) - # Make sure to match an already-canonicalized machine name. - ;; - *) - echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 - exit 1 - ;; -esac - -# Here we canonicalize certain aliases for manufacturers. -case $basic_machine in - *-digital*) - basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` - ;; - *-commodore*) - basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` - ;; - *) - ;; -esac - -# Decode manufacturer-specific aliases for certain operating systems. - -if [ x"$os" != x"" ] -then -case $os in - # First match some system type aliases - # that might get confused with valid system types. - # -solaris* is a basic system type, with this one exception. - -solaris1 | -solaris1.*) - os=`echo $os | sed -e 's|solaris1|sunos4|'` - ;; - -solaris) - os=-solaris2 - ;; - -svr4*) - os=-sysv4 - ;; - -unixware*) - os=-sysv4.2uw - ;; - -gnu/linux*) - os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` - ;; - # First accept the basic system types. - # The portable systems comes first. - # Each alternative MUST END IN A *, to match a version number. - # -sysv* is not here because it comes later, after sysvr4. - -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ - | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\ - | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ - | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ - | -aos* \ - | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ - | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ - | -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \ - | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ - | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ - | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ - | -chorusos* | -chorusrdb* \ - | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ - | -mingw32* | -linux-gnu* | -uxpv* | -beos* | -mpeix* | -udk* \ - | -interix* | -uwin* | -rhapsody* | -darwin* | -opened* \ - | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ - | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ - | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ - | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* | -powermax*) - # Remember, each alternative MUST END IN *, to match a version number. - ;; - -qnx*) - case $basic_machine in - x86-* | i*86-*) - ;; - *) - os=-nto$os - ;; - esac - ;; - -nto*) - os=-nto-qnx - ;; - -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ - | -windows* | -osx | -abug | -netware* | -os9* | -beos* \ - | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) - ;; - -mac*) - os=`echo $os | sed -e 's|mac|macos|'` - ;; - -linux*) - os=`echo $os | sed -e 's|linux|linux-gnu|'` - ;; - -sunos5*) - os=`echo $os | sed -e 's|sunos5|solaris2|'` - ;; - -sunos6*) - os=`echo $os | sed -e 's|sunos6|solaris3|'` - ;; - -opened*) - os=-openedition - ;; - -wince*) - os=-wince - ;; - -osfrose*) - os=-osfrose - ;; - -osf*) - os=-osf - ;; - -utek*) - os=-bsd - ;; - -dynix*) - os=-bsd - ;; - -acis*) - os=-aos - ;; - -atheos*) - os=-atheos - ;; - -386bsd) - os=-bsd - ;; - -ctix* | -uts*) - os=-sysv - ;; - -nova*) - os=-rtmk-nova - ;; - -ns2 ) - os=-nextstep2 - ;; - -nsk*) - os=-nsk - ;; - # Preserve the version number of sinix5. - -sinix5.*) - os=`echo $os | sed -e 's|sinix|sysv|'` - ;; - -sinix*) - os=-sysv4 - ;; - -triton*) - os=-sysv3 - ;; - -oss*) - os=-sysv3 - ;; - -svr4) - os=-sysv4 - ;; - -svr3) - os=-sysv3 - ;; - -sysvr4) - os=-sysv4 - ;; - # This must come after -sysvr4. - -sysv*) - ;; - -ose*) - os=-ose - ;; - -es1800*) - os=-ose - ;; - -xenix) - os=-xenix - ;; - -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) - os=-mint - ;; - -none) - ;; - *) - # Get rid of the `-' at the beginning of $os. - os=`echo $os | sed 's/[^-]*-//'` - echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 - exit 1 - ;; -esac -else - -# Here we handle the default operating systems that come with various machines. -# The value should be what the vendor currently ships out the door with their -# machine or put another way, the most popular os provided with the machine. - -# Note that if you're going to try to match "-MANUFACTURER" here (say, -# "-sun"), then you have to tell the case statement up towards the top -# that MANUFACTURER isn't an operating system. Otherwise, code above -# will signal an error saying that MANUFACTURER isn't an operating -# system, and we'll never get to this point. - -case $basic_machine in - *-acorn) - os=-riscix1.2 - ;; - arm*-rebel) - os=-linux - ;; - arm*-semi) - os=-aout - ;; - # This must come before the *-dec entry. - pdp10-*) - os=-tops20 - ;; - pdp11-*) - os=-none - ;; - *-dec | vax-*) - os=-ultrix4.2 - ;; - m68*-apollo) - os=-domain - ;; - i386-sun) - os=-sunos4.0.2 - ;; - m68000-sun) - os=-sunos3 - # This also exists in the configure program, but was not the - # default. - # os=-sunos4 - ;; - m68*-cisco) - os=-aout - ;; - mips*-cisco) - os=-elf - ;; - mips*-*) - os=-elf - ;; - or32-*) - os=-coff - ;; - *-tti) # must be before sparc entry or we get the wrong os. - os=-sysv3 - ;; - sparc-* | *-sun) - os=-sunos4.1.1 - ;; - *-be) - os=-beos - ;; - *-ibm) - os=-aix - ;; - *-wec) - os=-proelf - ;; - *-winbond) - os=-proelf - ;; - *-oki) - os=-proelf - ;; - *-hp) - os=-hpux - ;; - *-hitachi) - os=-hiux - ;; - i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) - os=-sysv - ;; - *-cbm) - os=-amigaos - ;; - *-dg) - os=-dgux - ;; - *-dolphin) - os=-sysv3 - ;; - m68k-ccur) - os=-rtu - ;; - m88k-omron*) - os=-luna - ;; - *-next ) - os=-nextstep - ;; - *-sequent) - os=-ptx - ;; - *-crds) - os=-unos - ;; - *-ns) - os=-genix - ;; - i370-*) - os=-mvs - ;; - *-next) - os=-nextstep3 - ;; - *-gould) - os=-sysv - ;; - *-highlevel) - os=-bsd - ;; - *-encore) - os=-bsd - ;; - *-sgi) - os=-irix - ;; - *-siemens) - os=-sysv4 - ;; - *-masscomp) - os=-rtu - ;; - f30[01]-fujitsu | f700-fujitsu) - os=-uxpv - ;; - *-rom68k) - os=-coff - ;; - *-*bug) - os=-coff - ;; - *-apple) - os=-macos - ;; - *-atari*) - os=-mint - ;; - *) - os=-none - ;; -esac -fi - -# Here we handle the case where we know the os, and the CPU type, but not the -# manufacturer. We pick the logical manufacturer. -vendor=unknown -case $basic_machine in - *-unknown) - case $os in - -riscix*) - vendor=acorn - ;; - -sunos*) - vendor=sun - ;; - -aix*) - vendor=ibm - ;; - -beos*) - vendor=be - ;; - -hpux*) - vendor=hp - ;; - -mpeix*) - vendor=hp - ;; - -hiux*) - vendor=hitachi - ;; - -unos*) - vendor=crds - ;; - -dgux*) - vendor=dg - ;; - -luna*) - vendor=omron - ;; - -genix*) - vendor=ns - ;; - -mvs* | -opened*) - vendor=ibm - ;; - -ptx*) - vendor=sequent - ;; - -vxsim* | -vxworks* | -windiss*) - vendor=wrs - ;; - -aux*) - vendor=apple - ;; - -hms*) - vendor=hitachi - ;; - -mpw* | -macos*) - vendor=apple - ;; - -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) - vendor=atari - ;; - -vos*) - vendor=stratus - ;; - esac - basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` - ;; -esac - -echo $basic_machine$os -exit 0 - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "timestamp='" -# time-stamp-format: "%:y-%02m-%02d" -# time-stamp-end: "'" -# End: diff --git a/contrib/tcsh/config/bsd4.4 b/contrib/tcsh/config/bsd4.4 deleted file mode 100644 index 6be4ebb..0000000 --- a/contrib/tcsh/config/bsd4.4 +++ /dev/null @@ -1,108 +0,0 @@ -/* - * config.h -- configure various defines for tcsh - * - * All source files should #include this FIRST. - * - * Edit this to match your system type. - */ - -#ifndef _h_config -#define _h_config -/****************** System dependant compilation flags ****************/ -/* - * POSIX This system supports IEEE Std 1003.1-1988 (POSIX). - */ -#define POSIX - -/* - * POSIXJOBS This system supports the optional IEEE Std 1003.1-1988 (POSIX) - * job control facilities. - */ -#define POSIXJOBS - -/* - * VFORK This machine has a vfork(). - * It used to be that for job control to work, this define - * was mandatory. This is not the case any more. - * If you think you still need it, but you don't have vfork, - * define this anyway and then do #define vfork fork. - * I do this anyway on a Sun because of yellow pages brain damage, - * [should not be needed under 4.1] - * and on the iris4d cause SGI's fork is sufficiently "virtual" - * that vfork isn't necessary. (Besides, SGI's vfork is weird). - * Note that some machines eg. rs6000 have a vfork, but not - * with the berkeley semantics, so we cannot use it there either. - */ -#define VFORK - -/* - * BSDJOBS You have BSD-style job control (both process groups and - * a tty that deals correctly - */ -#define BSDJOBS - -/* - * BSDTIMES You have BSD-style process time stuff (like rusage) - * This may or may not be true. For example, Apple Unix - * (OREO) has BSDJOBS but not BSDTIMES. - */ -#define BSDTIMES - -/* - * BSDLIMIT You have BSD-style resource limit stuff (getrlimit/setrlimit) - */ -#define BSDLIMIT - -/* - * TERMIO You have struct termio instead of struct sgttyb. - * This is usually the case for SYSV systems, where - * BSD uses sgttyb. POSIX systems should define this - * anyway, even though they use struct termios. - */ -#define TERMIO - -/* - * SYSVREL Your machine is SYSV based (HPUX, A/UX) - * NOTE: don't do this if you are on a Pyramid -- tcsh is - * built in a BSD universe. - * Set SYSVREL to 1, 2, 3, or 4, depending the version of System V - * you are running. Or set it to 0 if you are not SYSV based - */ -#define SYSVREL 0 - -/* - * YPBUGS Work around Sun YP bugs that cause expansion of ~username - * to send command output to /dev/null - */ -#undef YPBUGS - -/****************** local defines *********************/ - -#if defined(__FreeBSD__) -#define NLS_BUGS -#define BSD_STYLE_COLORLS -#endif - -#if defined(__bsdi__) -/* - * _PATH_TCSHELL if you've change the installation location (vix) - */ -#include <sys/param.h> -# ifdef _BSDI_VERSION >= 199701 -# define _PATH_TCSHELL "/bin/tcsh" -# undef SYSMALLOC -# define SYSMALLOC -# else -# define _PATH_TCSHELL "/usr/contrib/bin/tcsh" -# endif - -# undef NLS_CATALOGS - -#elif defined(__APPLE__) -# define SYSMALLOC - -#else -# define NLS_CATALOGS -#endif - -#endif /* _h_config */ diff --git a/contrib/tcsh/config_f.h b/contrib/tcsh/config_f.h deleted file mode 100644 index aee7363..0000000 --- a/contrib/tcsh/config_f.h +++ /dev/null @@ -1,225 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/config_f.h,v 3.40 2006/08/28 14:53:04 mitr 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. 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 at least 16 bit characters instead of 8 bit chars - * This fixes up quoting problems and eases implementation - * of nls... - * - */ -#define SHORT_STRINGS - -/* - * WIDE_STRINGS Represent strings using wide characters - * Allows proper function in multibyte encodings like UTF-8 - */ -#if defined (SHORT_STRINGS) && defined (NLS) && SIZEOF_WCHAR_T >= 4 && defined (HAVE_MBRTOWC) && !defined (WINNT_NATIVE) && !defined(_OSD_POSIX) -# define WIDE_STRINGS -#endif - -/* - * 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. - */ -#if defined (NLS) && defined (HAVE_CATGETS) -# define NLS_CATALOGS -#endif - -/* - * 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 (or WIDE_STRINGS) - * - */ -#define KANJI - -/* - * DSPMBYTE add variable "dspmbyte" and display multi-byte string at - * only output, when "dspmbyte" is set. Should be used with - * KANJI - */ -#if defined (SHORT_STRINGS) && !defined (WIDE_STRINGS) -# define DSPMBYTE -#endif - -/* - * 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) || defined(__MVS__) || defined (__linux__) -# 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 - -/* - * FILEC support for old style file completion - */ -#define FILEC - -/* - * 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 */ - -/* Consistency checks */ -#ifdef WIDE_STRINGS -# if SIZEOF_WCHAR_T < 4 - #error "wchar_t must be at least 4 bytes for WIDE_STRINGS" -# endif - -# ifdef WINNT_NATIVE - #error "WIDE_STRINGS cannot be used together with WINNT_NATIVE" -# endif - -# ifndef SHORT_STRINGS - #error "SHORT_STRINGS must be defined if WIDE_STRINGS is defined" -# endif - -# ifndef NLS - #error "NLS must be defined if WIDE_STRINGS is defined" -# endif - -# ifdef DSPMBYTE - #error "DSPMBYTE must not be defined if WIDE_STRINGS is defined" -# endif -#endif - -#if !defined (SHORT_STRINGS) && defined (DSPMBYTE) - #error "SHORT_STRINGS must be defined if DSPMBYTE is defined" -#endif - -#endif /* _h_config_f */ diff --git a/contrib/tcsh/configure b/contrib/tcsh/configure deleted file mode 100755 index 00cf593..0000000 --- a/contrib/tcsh/configure +++ /dev/null @@ -1,9631 +0,0 @@ -#! /bin/sh -# Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.59 for tcsh 6.15.00. -# -# Report bugs to <http://bugs.gw.com/>. -# -# Copyright (C) 2003 Free Software Foundation, Inc. -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. -## --------------------- ## -## M4sh Initialization. ## -## --------------------- ## - -# Be Bourne compatible -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' -elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then - set -o posix -fi -DUALCASE=1; export DUALCASE # for MKS sh - -# Support unset when possible. -if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then - as_unset=unset -else - as_unset=false -fi - - -# Work around bugs in pre-3.0 UWIN ksh. -$as_unset ENV MAIL MAILPATH -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -for as_var in \ - LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ - LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ - LC_TELEPHONE LC_TIME -do - if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then - eval $as_var=C; export $as_var - else - $as_unset $as_var - fi -done - -# Required to use basename. -if expr a : '\(a\)' >/dev/null 2>&1; then - as_expr=expr -else - as_expr=false -fi - -if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - - -# Name of the executable. -as_me=`$as_basename "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)$' \| \ - . : '\(.\)' 2>/dev/null || -echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } - /^X\/\(\/\/\)$/{ s//\1/; q; } - /^X\/\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - - -# PATH needs CR, and LINENO needs CR and PATH. -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - echo "#! /bin/sh" >conf$$.sh - echo "exit 0" >>conf$$.sh - chmod +x conf$$.sh - if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then - PATH_SEPARATOR=';' - else - PATH_SEPARATOR=: - fi - rm -f conf$$.sh -fi - - - as_lineno_1=$LINENO - as_lineno_2=$LINENO - as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x$as_lineno_3" = "x$as_lineno_2" || { - # Find who we are. Look in the path if we contain no path at all - # relative or not. - case $0 in - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break -done - - ;; - esac - # We did not find ourselves, most probably we were run as `sh COMMAND' - # in which case we are not to be found in the path. - if test "x$as_myself" = x; then - as_myself=$0 - fi - if test ! -f "$as_myself"; then - { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 - { (exit 1); exit 1; }; } - fi - case $CONFIG_SHELL in - '') - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for as_base in sh bash ksh sh5; do - case $as_dir in - /*) - if ("$as_dir/$as_base" -c ' - as_lineno_1=$LINENO - as_lineno_2=$LINENO - as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then - $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } - $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } - CONFIG_SHELL=$as_dir/$as_base - export CONFIG_SHELL - exec "$CONFIG_SHELL" "$0" ${1+"$@"} - fi;; - esac - done -done -;; - esac - - # Create $as_me.lineno as a copy of $as_myself, but with $LINENO - # uniformly replaced by the line number. The first 'sed' inserts a - # line-number line before each line; the second 'sed' does the real - # work. The second script uses 'N' to pair each line-number line - # with the numbered line, and appends trailing '-' during - # substitution so that $LINENO is not a special case at line end. - # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the - # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) - sed '=' <$as_myself | - sed ' - N - s,$,-, - : loop - s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, - t loop - s,-$,, - s,^['$as_cr_digits']*\n,, - ' >$as_me.lineno && - chmod +x $as_me.lineno || - { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 - { (exit 1); exit 1; }; } - - # Don't try to exec as it changes $[0], causing all sort of problems - # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensible to this). - . ./$as_me.lineno - # Exit status is that of the last command. - exit -} - - -case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in - *c*,-n*) ECHO_N= ECHO_C=' -' ECHO_T=' ' ;; - *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; - *) ECHO_N= ECHO_C='\c' ECHO_T= ;; -esac - -if expr a : '\(a\)' >/dev/null 2>&1; then - as_expr=expr -else - as_expr=false -fi - -rm -f conf$$ conf$$.exe conf$$.file -echo >conf$$.file -if ln -s conf$$.file conf$$ 2>/dev/null; then - # We could just check for DJGPP; but this test a) works b) is more generic - # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). - if test -f conf$$.exe; then - # Don't use ln at all; we don't have any links - as_ln_s='cp -p' - else - as_ln_s='ln -s' - fi -elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln -else - as_ln_s='cp -p' -fi -rm -f conf$$ conf$$.exe conf$$.file - -if mkdir -p . 2>/dev/null; then - as_mkdir_p=: -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - -as_executable_p="test -f" - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - -# IFS -# We need space, tab and new line, in precisely that order. -as_nl=' -' -IFS=" $as_nl" - -# CDPATH. -$as_unset CDPATH - - -# Name of the host. -# hostname on some systems (SVR3.2, Linux) returns a bogus exit status, -# so uname gets run too. -ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` - -exec 6>&1 - -# -# Initializations. -# -ac_default_prefix=/usr/local -ac_config_libobj_dir=. -cross_compiling=no -subdirs= -MFLAGS= -MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} - -# Maximum number of lines to put in a shell here document. -# This variable seems obsolete. It should probably be removed, and -# only ac_max_sed_lines should be used. -: ${ac_max_here_lines=38} - -# Identity of this package. -PACKAGE_NAME='tcsh' -PACKAGE_TARNAME='tcsh' -PACKAGE_VERSION='6.15.00' -PACKAGE_STRING='tcsh 6.15.00' -PACKAGE_BUGREPORT='http://bugs.gw.com/' - -ac_unique_file="tc.vers.c" -# Factoring default headers for most tests. -ac_includes_default="\ -#include <stdio.h> -#if HAVE_SYS_TYPES_H -# include <sys/types.h> -#endif -#if HAVE_SYS_STAT_H -# include <sys/stat.h> -#endif -#if STDC_HEADERS -# include <stdlib.h> -# include <stddef.h> -#else -# if HAVE_STDLIB_H -# include <stdlib.h> -# endif -#endif -#if HAVE_STRING_H -# if !STDC_HEADERS && HAVE_MEMORY_H -# include <memory.h> -# endif -# include <string.h> -#endif -#if HAVE_STRINGS_H -# include <strings.h> -#endif -#if HAVE_INTTYPES_H -# include <inttypes.h> -#else -# if HAVE_STDINT_H -# include <stdint.h> -# endif -#endif -#if HAVE_UNISTD_H -# include <unistd.h> -#endif" - -ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datadir sysconfdir sharedstatedir localstatedir libdir includedir oldincludedir infodir mandir build_alias host_alias target_alias DEFS ECHO_C ECHO_N ECHO_T LIBS build build_cpu build_vendor build_os host host_cpu host_vendor host_os CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT CPP EGREP LIBICONV LTLIBICONV DFLAGS HESDEF HESLIB LIBOBJS LTLIBOBJS' -ac_subst_files='' - -# Initialize some variables set by options. -ac_init_help= -ac_init_version=false -# The variables have the same names as the options, with -# dashes changed to underlines. -cache_file=/dev/null -exec_prefix=NONE -no_create= -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -verbose= -x_includes=NONE -x_libraries=NONE - -# Installation directory options. -# These are left unexpanded so users can "make install exec_prefix=/foo" -# and all the variables that are supposed to be based on exec_prefix -# by default will actually change. -# Use braces instead of parens because sh, perl, etc. also accept them. -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datadir='${prefix}/share' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -libdir='${exec_prefix}/lib' -includedir='${prefix}/include' -oldincludedir='/usr/include' -infodir='${prefix}/info' -mandir='${prefix}/man' - -ac_prev= -for ac_option -do - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval "$ac_prev=\$ac_option" - ac_prev= - continue - fi - - ac_optarg=`expr "x$ac_option" : 'x[^=]*=\(.*\)'` - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case $ac_option in - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir=$ac_optarg ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build_alias ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build_alias=$ac_optarg ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file=$ac_optarg ;; - - --config-cache | -C) - cache_file=config.cache ;; - - -datadir | --datadir | --datadi | --datad | --data | --dat | --da) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ - | --da=*) - datadir=$ac_optarg ;; - - -disable-* | --disable-*) - ac_feature=`expr "x$ac_option" : 'x-*disable-\(.*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_feature" : ".*[^-_$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid feature name: $ac_feature" >&2 - { (exit 1); exit 1; }; } - ac_feature=`echo $ac_feature | sed 's/-/_/g'` - eval "enable_$ac_feature=no" ;; - - -enable-* | --enable-*) - ac_feature=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_feature" : ".*[^-_$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid feature name: $ac_feature" >&2 - { (exit 1); exit 1; }; } - ac_feature=`echo $ac_feature | sed 's/-/_/g'` - case $ac_option in - *=*) ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"`;; - *) ac_optarg=yes ;; - esac - eval "enable_$ac_feature='$ac_optarg'" ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix=$ac_optarg ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he | -h) - ac_init_help=long ;; - -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) - ac_init_help=recursive ;; - -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) - ac_init_help=short ;; - - -host | --host | --hos | --ho) - ac_prev=host_alias ;; - -host=* | --host=* | --hos=* | --ho=*) - host_alias=$ac_optarg ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir=$ac_optarg ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir=$ac_optarg ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir=$ac_optarg ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir=$ac_optarg ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst \ - | --locals | --local | --loca | --loc | --lo) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* \ - | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) - localstatedir=$ac_optarg ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir=$ac_optarg ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c | -n) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir=$ac_optarg ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix=$ac_optarg ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix=$ac_optarg ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix=$ac_optarg ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name=$ac_optarg ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir=$ac_optarg ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir=$ac_optarg ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site=$ac_optarg ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir=$ac_optarg ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir=$ac_optarg ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target_alias ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target_alias=$ac_optarg ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers | -V) - ac_init_version=: ;; - - -with-* | --with-*) - ac_package=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_package" : ".*[^-_$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid package name: $ac_package" >&2 - { (exit 1); exit 1; }; } - ac_package=`echo $ac_package| sed 's/-/_/g'` - case $ac_option in - *=*) ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"`;; - *) ac_optarg=yes ;; - esac - eval "with_$ac_package='$ac_optarg'" ;; - - -without-* | --without-*) - ac_package=`expr "x$ac_option" : 'x-*without-\(.*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_package" : ".*[^-_$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid package name: $ac_package" >&2 - { (exit 1); exit 1; }; } - ac_package=`echo $ac_package | sed 's/-/_/g'` - eval "with_$ac_package=no" ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes=$ac_optarg ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries=$ac_optarg ;; - - -*) { echo "$as_me: error: unrecognized option: $ac_option -Try \`$0 --help' for more information." >&2 - { (exit 1); exit 1; }; } - ;; - - *=*) - ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - expr "x$ac_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid variable name: $ac_envvar" >&2 - { (exit 1); exit 1; }; } - ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` - eval "$ac_envvar='$ac_optarg'" - export $ac_envvar ;; - - *) - # FIXME: should be removed in autoconf 3.0. - echo "$as_me: WARNING: you should use --build, --host, --target" >&2 - expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && - echo "$as_me: WARNING: invalid host type: $ac_option" >&2 - : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} - ;; - - esac -done - -if test -n "$ac_prev"; then - ac_option=--`echo $ac_prev | sed 's/_/-/g'` - { echo "$as_me: error: missing argument to $ac_option" >&2 - { (exit 1); exit 1; }; } -fi - -# Be sure to have absolute paths. -for ac_var in exec_prefix prefix -do - eval ac_val=$`echo $ac_var` - case $ac_val in - [\\/$]* | ?:[\\/]* | NONE | '' ) ;; - *) { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 - { (exit 1); exit 1; }; };; - esac -done - -# Be sure to have absolute paths. -for ac_var in bindir sbindir libexecdir datadir sysconfdir sharedstatedir \ - localstatedir libdir includedir oldincludedir infodir mandir -do - eval ac_val=$`echo $ac_var` - case $ac_val in - [\\/$]* | ?:[\\/]* ) ;; - *) { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 - { (exit 1); exit 1; }; };; - esac -done - -# There might be people who depend on the old broken behavior: `$host' -# used to hold the argument of --host etc. -# FIXME: To remove some day. -build=$build_alias -host=$host_alias -target=$target_alias - -# FIXME: To remove some day. -if test "x$host_alias" != x; then - if test "x$build_alias" = x; then - cross_compiling=maybe - echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. - If a cross compiler is detected then cross compile mode will be used." >&2 - elif test "x$build_alias" != "x$host_alias"; then - cross_compiling=yes - fi -fi - -ac_tool_prefix= -test -n "$host_alias" && ac_tool_prefix=$host_alias- - -test "$silent" = yes && exec 6>/dev/null - - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then its parent. - ac_confdir=`(dirname "$0") 2>/dev/null || -$as_expr X"$0" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$0" : 'X\(//\)[^/]' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| \ - . : '\(.\)' 2>/dev/null || -echo X"$0" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } - /^X\(\/\/\)[^/].*/{ s//\1/; q; } - /^X\(\/\/\)$/{ s//\1/; q; } - /^X\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - srcdir=$ac_confdir - if test ! -r $srcdir/$ac_unique_file; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r $srcdir/$ac_unique_file; then - if test "$ac_srcdir_defaulted" = yes; then - { echo "$as_me: error: cannot find sources ($ac_unique_file) in $ac_confdir or .." >&2 - { (exit 1); exit 1; }; } - else - { echo "$as_me: error: cannot find sources ($ac_unique_file) in $srcdir" >&2 - { (exit 1); exit 1; }; } - fi -fi -(cd $srcdir && test -r ./$ac_unique_file) 2>/dev/null || - { echo "$as_me: error: sources are in $srcdir, but \`cd $srcdir' does not work" >&2 - { (exit 1); exit 1; }; } -srcdir=`echo "$srcdir" | sed 's%\([^\\/]\)[\\/]*$%\1%'` -ac_env_build_alias_set=${build_alias+set} -ac_env_build_alias_value=$build_alias -ac_cv_env_build_alias_set=${build_alias+set} -ac_cv_env_build_alias_value=$build_alias -ac_env_host_alias_set=${host_alias+set} -ac_env_host_alias_value=$host_alias -ac_cv_env_host_alias_set=${host_alias+set} -ac_cv_env_host_alias_value=$host_alias -ac_env_target_alias_set=${target_alias+set} -ac_env_target_alias_value=$target_alias -ac_cv_env_target_alias_set=${target_alias+set} -ac_cv_env_target_alias_value=$target_alias -ac_env_CC_set=${CC+set} -ac_env_CC_value=$CC -ac_cv_env_CC_set=${CC+set} -ac_cv_env_CC_value=$CC -ac_env_CFLAGS_set=${CFLAGS+set} -ac_env_CFLAGS_value=$CFLAGS -ac_cv_env_CFLAGS_set=${CFLAGS+set} -ac_cv_env_CFLAGS_value=$CFLAGS -ac_env_LDFLAGS_set=${LDFLAGS+set} -ac_env_LDFLAGS_value=$LDFLAGS -ac_cv_env_LDFLAGS_set=${LDFLAGS+set} -ac_cv_env_LDFLAGS_value=$LDFLAGS -ac_env_CPPFLAGS_set=${CPPFLAGS+set} -ac_env_CPPFLAGS_value=$CPPFLAGS -ac_cv_env_CPPFLAGS_set=${CPPFLAGS+set} -ac_cv_env_CPPFLAGS_value=$CPPFLAGS -ac_env_CPP_set=${CPP+set} -ac_env_CPP_value=$CPP -ac_cv_env_CPP_set=${CPP+set} -ac_cv_env_CPP_value=$CPP - -# -# Report the --help message. -# -if test "$ac_init_help" = "long"; then - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat <<_ACEOF -\`configure' configures tcsh 6.15.00 to adapt to many kinds of systems. - -Usage: $0 [OPTION]... [VAR=VALUE]... - -To assign environment variables (e.g., CC, CFLAGS...), specify them as -VAR=VALUE. See below for descriptions of some of the useful variables. - -Defaults for the options are specified in brackets. - -Configuration: - -h, --help display this help and exit - --help=short display options specific to this package - --help=recursive display the short help of all the included packages - -V, --version display version information and exit - -q, --quiet, --silent do not print \`checking...' messages - --cache-file=FILE cache test results in FILE [disabled] - -C, --config-cache alias for \`--cache-file=config.cache' - -n, --no-create do not create output files - --srcdir=DIR find the sources in DIR [configure dir or \`..'] - -_ACEOF - - cat <<_ACEOF -Installation directories: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [PREFIX] - -By default, \`make install' will install all the files in -\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify -an installation prefix other than \`$ac_default_prefix' using \`--prefix', -for instance \`--prefix=\$HOME'. - -For better control, use the options below. - -Fine tuning of the installation directories: - --bindir=DIR user executables [EPREFIX/bin] - --sbindir=DIR system admin executables [EPREFIX/sbin] - --libexecdir=DIR program executables [EPREFIX/libexec] - --datadir=DIR read-only architecture-independent data [PREFIX/share] - --sysconfdir=DIR read-only single-machine data [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] - --localstatedir=DIR modifiable single-machine data [PREFIX/var] - --libdir=DIR object code libraries [EPREFIX/lib] - --includedir=DIR C header files [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc [/usr/include] - --infodir=DIR info documentation [PREFIX/info] - --mandir=DIR man documentation [PREFIX/man] -_ACEOF - - cat <<\_ACEOF - -System types: - --build=BUILD configure for building on BUILD [guessed] - --host=HOST cross-compile to build programs to run on HOST [BUILD] -_ACEOF -fi - -if test -n "$ac_init_help"; then - case $ac_init_help in - short | recursive ) echo "Configuration of tcsh 6.15.00:";; - esac - cat <<\_ACEOF - -Optional Features: - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --disable-rpath do not hardcode runtime library paths - --disable-nls Disable NLS support - -Optional Packages: - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --with-gnu-ld assume the C compiler uses GNU ld default=no - --with-libiconv-prefix[=DIR] search for libiconv in DIR/include and DIR/lib - --without-libiconv-prefix don't search for libiconv in includedir and libdir - --with-hesiod=PREFIX Use Hesiod lookup for ~ expansion - -Some influential environment variables: - CC C compiler command - CFLAGS C compiler flags - LDFLAGS linker flags, e.g. -L<lib dir> if you have libraries in a - nonstandard directory <lib dir> - CPPFLAGS C/C++ preprocessor flags, e.g. -I<include dir> if you have - headers in a nonstandard directory <include dir> - CPP C preprocessor - -Use these variables to override the choices made by `configure' or to help -it to find libraries and programs with nonstandard names/locations. - -Report bugs to <http://bugs.gw.com/>. -_ACEOF -fi - -if test "$ac_init_help" = "recursive"; then - # If there are subdirs, report their specific --help. - ac_popdir=`pwd` - for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue - test -d $ac_dir || continue - ac_builddir=. - -if test "$ac_dir" != .; then - ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` - # A "../" for each directory in $ac_dir_suffix. - ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` -else - ac_dir_suffix= ac_top_builddir= -fi - -case $srcdir in - .) # No --srcdir option. We are building in place. - ac_srcdir=. - if test -z "$ac_top_builddir"; then - ac_top_srcdir=. - else - ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` - fi ;; - [\\/]* | ?:[\\/]* ) # Absolute path. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir ;; - *) # Relative path. - ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_builddir$srcdir ;; -esac - -# Do not use `cd foo && pwd` to compute absolute paths, because -# the directories may not exist. -case `pwd` in -.) ac_abs_builddir="$ac_dir";; -*) - case "$ac_dir" in - .) ac_abs_builddir=`pwd`;; - [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; - *) ac_abs_builddir=`pwd`/"$ac_dir";; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_top_builddir=${ac_top_builddir}.;; -*) - case ${ac_top_builddir}. in - .) ac_abs_top_builddir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; - *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_srcdir=$ac_srcdir;; -*) - case $ac_srcdir in - .) ac_abs_srcdir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; - *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_top_srcdir=$ac_top_srcdir;; -*) - case $ac_top_srcdir in - .) ac_abs_top_srcdir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; - *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; - esac;; -esac - - cd $ac_dir - # Check for guested configure; otherwise get Cygnus style configure. - if test -f $ac_srcdir/configure.gnu; then - echo - $SHELL $ac_srcdir/configure.gnu --help=recursive - elif test -f $ac_srcdir/configure; then - echo - $SHELL $ac_srcdir/configure --help=recursive - elif test -f $ac_srcdir/configure.ac || - test -f $ac_srcdir/configure.in; then - echo - $ac_configure --help - else - echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 - fi - cd $ac_popdir - done -fi - -test -n "$ac_init_help" && exit 0 -if $ac_init_version; then - cat <<\_ACEOF -tcsh configure 6.15.00 -generated by GNU Autoconf 2.59 - -Copyright (C) 2003 Free Software Foundation, Inc. -This configure script is free software; the Free Software Foundation -gives unlimited permission to copy, distribute and modify it. -_ACEOF - exit 0 -fi -exec 5>config.log -cat >&5 <<_ACEOF -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. - -It was created by tcsh $as_me 6.15.00, which was -generated by GNU Autoconf 2.59. Invocation command line was - - $ $0 $@ - -_ACEOF -{ -cat <<_ASUNAME -## --------- ## -## Platform. ## -## --------- ## - -hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` -uname -m = `(uname -m) 2>/dev/null || echo unknown` -uname -r = `(uname -r) 2>/dev/null || echo unknown` -uname -s = `(uname -s) 2>/dev/null || echo unknown` -uname -v = `(uname -v) 2>/dev/null || echo unknown` - -/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` -/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` - -/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` -/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` -/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -hostinfo = `(hostinfo) 2>/dev/null || echo unknown` -/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` -/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` -/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` - -_ASUNAME - -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - echo "PATH: $as_dir" -done - -} >&5 - -cat >&5 <<_ACEOF - - -## ----------- ## -## Core tests. ## -## ----------- ## - -_ACEOF - - -# Keep a trace of the command line. -# Strip out --no-create and --no-recursion so they do not pile up. -# Strip out --silent because we don't want to record it for future runs. -# Also quote any args containing shell meta-characters. -# Make two passes to allow for proper duplicate-argument suppression. -ac_configure_args= -ac_configure_args0= -ac_configure_args1= -ac_sep= -ac_must_keep_next=false -for ac_pass in 1 2 -do - for ac_arg - do - case $ac_arg in - -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - continue ;; - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?\"\']*) - ac_arg=`echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; - esac - case $ac_pass in - 1) ac_configure_args0="$ac_configure_args0 '$ac_arg'" ;; - 2) - ac_configure_args1="$ac_configure_args1 '$ac_arg'" - if test $ac_must_keep_next = true; then - ac_must_keep_next=false # Got value, back to normal. - else - case $ac_arg in - *=* | --config-cache | -C | -disable-* | --disable-* \ - | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ - | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ - | -with-* | --with-* | -without-* | --without-* | --x) - case "$ac_configure_args0 " in - "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; - esac - ;; - -* ) ac_must_keep_next=true ;; - esac - fi - ac_configure_args="$ac_configure_args$ac_sep'$ac_arg'" - # Get rid of the leading space. - ac_sep=" " - ;; - esac - done -done -$as_unset ac_configure_args0 || test "${ac_configure_args0+set}" != set || { ac_configure_args0=; export ac_configure_args0; } -$as_unset ac_configure_args1 || test "${ac_configure_args1+set}" != set || { ac_configure_args1=; export ac_configure_args1; } - -# When interrupted or exit'd, cleanup temporary files, and complete -# config.log. We remove comments because anyway the quotes in there -# would cause problems or look ugly. -# WARNING: Be sure not to use single quotes in there, as some shells, -# such as our DU 5.0 friend, will then `close' the trap. -trap 'exit_status=$? - # Save into config.log some information that might help in debugging. - { - echo - - cat <<\_ASBOX -## ---------------- ## -## Cache variables. ## -## ---------------- ## -_ASBOX - echo - # The following way of writing the cache mishandles newlines in values, -{ - (set) 2>&1 | - case `(ac_space='"'"' '"'"'; set | grep ac_space) 2>&1` in - *ac_space=\ *) - sed -n \ - "s/'"'"'/'"'"'\\\\'"'"''"'"'/g; - s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='"'"'\\2'"'"'/p" - ;; - *) - sed -n \ - "s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1=\\2/p" - ;; - esac; -} - echo - - cat <<\_ASBOX -## ----------------- ## -## Output variables. ## -## ----------------- ## -_ASBOX - echo - for ac_var in $ac_subst_vars - do - eval ac_val=$`echo $ac_var` - echo "$ac_var='"'"'$ac_val'"'"'" - done | sort - echo - - if test -n "$ac_subst_files"; then - cat <<\_ASBOX -## ------------- ## -## Output files. ## -## ------------- ## -_ASBOX - echo - for ac_var in $ac_subst_files - do - eval ac_val=$`echo $ac_var` - echo "$ac_var='"'"'$ac_val'"'"'" - done | sort - echo - fi - - if test -s confdefs.h; then - cat <<\_ASBOX -## ----------- ## -## confdefs.h. ## -## ----------- ## -_ASBOX - echo - sed "/^$/d" confdefs.h | sort - echo - fi - test "$ac_signal" != 0 && - echo "$as_me: caught signal $ac_signal" - echo "$as_me: exit $exit_status" - } >&5 - rm -f core *.core && - rm -rf conftest* confdefs* conf$$* $ac_clean_files && - exit $exit_status - ' 0 -for ac_signal in 1 2 13 15; do - trap 'ac_signal='$ac_signal'; { (exit 1); exit 1; }' $ac_signal -done -ac_signal=0 - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -rf conftest* confdefs.h -# AIX cpp loses on an empty file, so make sure it contains at least a newline. -echo >confdefs.h - -# Predefined preprocessor variables. - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_NAME "$PACKAGE_NAME" -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_TARNAME "$PACKAGE_TARNAME" -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_VERSION "$PACKAGE_VERSION" -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_STRING "$PACKAGE_STRING" -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" -_ACEOF - - -# Let the site file select an alternate cache file if it wants to. -# Prefer explicitly selected file to automatically selected ones. -if test -z "$CONFIG_SITE"; then - if test "x$prefix" != xNONE; then - CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" - else - CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" - fi -fi -for ac_site_file in $CONFIG_SITE; do - if test -r "$ac_site_file"; then - { echo "$as_me:$LINENO: loading site script $ac_site_file" >&5 -echo "$as_me: loading site script $ac_site_file" >&6;} - sed 's/^/| /' "$ac_site_file" >&5 - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - # Some versions of bash will fail to source /dev/null (special - # files actually), so we avoid doing that. - if test -f "$cache_file"; then - { echo "$as_me:$LINENO: loading cache $cache_file" >&5 -echo "$as_me: loading cache $cache_file" >&6;} - case $cache_file in - [\\/]* | ?:[\\/]* ) . $cache_file;; - *) . ./$cache_file;; - esac - fi -else - { echo "$as_me:$LINENO: creating cache $cache_file" >&5 -echo "$as_me: creating cache $cache_file" >&6;} - >$cache_file -fi - -# Check that the precious variables saved in the cache have kept the same -# value. -ac_cache_corrupted=false -for ac_var in `(set) 2>&1 | - sed -n 's/^ac_env_\([a-zA-Z_0-9]*\)_set=.*/\1/p'`; do - eval ac_old_set=\$ac_cv_env_${ac_var}_set - eval ac_new_set=\$ac_env_${ac_var}_set - eval ac_old_val="\$ac_cv_env_${ac_var}_value" - eval ac_new_val="\$ac_env_${ac_var}_value" - case $ac_old_set,$ac_new_set in - set,) - { echo "$as_me:$LINENO: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 -echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,set) - { echo "$as_me:$LINENO: error: \`$ac_var' was not set in the previous run" >&5 -echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,);; - *) - if test "x$ac_old_val" != "x$ac_new_val"; then - { echo "$as_me:$LINENO: error: \`$ac_var' has changed since the previous run:" >&5 -echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} - { echo "$as_me:$LINENO: former value: $ac_old_val" >&5 -echo "$as_me: former value: $ac_old_val" >&2;} - { echo "$as_me:$LINENO: current value: $ac_new_val" >&5 -echo "$as_me: current value: $ac_new_val" >&2;} - ac_cache_corrupted=: - fi;; - esac - # Pass precious variables to config.status. - if test "$ac_new_set" = set; then - case $ac_new_val in - *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?\"\']*) - ac_arg=$ac_var=`echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; - *) ac_arg=$ac_var=$ac_new_val ;; - esac - case " $ac_configure_args " in - *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. - *) ac_configure_args="$ac_configure_args '$ac_arg'" ;; - esac - fi -done -if $ac_cache_corrupted; then - { echo "$as_me:$LINENO: error: changes in the environment can compromise the build" >&5 -echo "$as_me: error: changes in the environment can compromise the build" >&2;} - { { echo "$as_me:$LINENO: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&5 -echo "$as_me: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&2;} - { (exit 1); exit 1; }; } -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ac_config_headers="$ac_config_headers config.h" - - ac_config_commands="$ac_config_commands ./atconfig" - - - -ac_aux_dir= -for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do - if test -f $ac_dir/install-sh; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install-sh -c" - break - elif test -f $ac_dir/install.sh; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install.sh -c" - break - elif test -f $ac_dir/shtool; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/shtool install -c" - break - fi -done -if test -z "$ac_aux_dir"; then - { { echo "$as_me:$LINENO: error: cannot find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." >&5 -echo "$as_me: error: cannot find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." >&2;} - { (exit 1); exit 1; }; } -fi -ac_config_guess="$SHELL $ac_aux_dir/config.guess" -ac_config_sub="$SHELL $ac_aux_dir/config.sub" -ac_configure="$SHELL $ac_aux_dir/configure" # This should be Cygnus configure. - -# Make sure we can run config.sub. -$ac_config_sub sun4 >/dev/null 2>&1 || - { { echo "$as_me:$LINENO: error: cannot run $ac_config_sub" >&5 -echo "$as_me: error: cannot run $ac_config_sub" >&2;} - { (exit 1); exit 1; }; } - -echo "$as_me:$LINENO: checking build system type" >&5 -echo $ECHO_N "checking build system type... $ECHO_C" >&6 -if test "${ac_cv_build+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_cv_build_alias=$build_alias -test -z "$ac_cv_build_alias" && - ac_cv_build_alias=`$ac_config_guess` -test -z "$ac_cv_build_alias" && - { { echo "$as_me:$LINENO: error: cannot guess build type; you must specify one" >&5 -echo "$as_me: error: cannot guess build type; you must specify one" >&2;} - { (exit 1); exit 1; }; } -ac_cv_build=`$ac_config_sub $ac_cv_build_alias` || - { { echo "$as_me:$LINENO: error: $ac_config_sub $ac_cv_build_alias failed" >&5 -echo "$as_me: error: $ac_config_sub $ac_cv_build_alias failed" >&2;} - { (exit 1); exit 1; }; } - -fi -echo "$as_me:$LINENO: result: $ac_cv_build" >&5 -echo "${ECHO_T}$ac_cv_build" >&6 -build=$ac_cv_build -build_cpu=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -build_vendor=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -build_os=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` - - -echo "$as_me:$LINENO: checking host system type" >&5 -echo $ECHO_N "checking host system type... $ECHO_C" >&6 -if test "${ac_cv_host+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_cv_host_alias=$host_alias -test -z "$ac_cv_host_alias" && - ac_cv_host_alias=$ac_cv_build_alias -ac_cv_host=`$ac_config_sub $ac_cv_host_alias` || - { { echo "$as_me:$LINENO: error: $ac_config_sub $ac_cv_host_alias failed" >&5 -echo "$as_me: error: $ac_config_sub $ac_cv_host_alias failed" >&2;} - { (exit 1); exit 1; }; } - -fi -echo "$as_me:$LINENO: result: $ac_cv_host" >&5 -echo "${ECHO_T}$ac_cv_host" >&6 -host=$ac_cv_host -host_cpu=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` -host_vendor=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` -host_os=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` - - - -echo "$as_me:$LINENO: checking cached host tuple" >&5 -echo $ECHO_N "checking cached host tuple... $ECHO_C" >&6 -if { test x"${ac_cv_host_system_type+set}" = x"set" && - test x"$ac_cv_host_system_type" != x"$host"; }; then - echo "$as_me:$LINENO: result: different" >&5 -echo "${ECHO_T}different" >&6 - { { echo "$as_me:$LINENO: error: remove config.cache and re-run configure" >&5 -echo "$as_me: error: remove config.cache and re-run configure" >&2;} - { (exit 1); exit 1; }; } -else - echo "$as_me:$LINENO: result: ok" >&5 -echo "${ECHO_T}ok" >&6 -fi -ac_cv_host_system_type="$host" - - - -case "${host}" in - - ## Alpha (DEC) machines. - alpha*-dec-osf* ) - tcsh_config_file=decosf1 - ;; - - ## Ultrix - *-dec-ultrix* ) - tcsh_config_file=ultrix - ;; - - ## DGUX - *-dg-dguxR4* ) - tcsh_config_file=dgux5.4 - ;; - m88k-dg-dgux5.4R* ) - tcsh_config_file=dgux5.4 - ;; - - ## HP/UX - *-hp-hpux7* ) - tcsh_config_file=hpux7 - ;; - *-hp-hpux[89]* ) - tcsh_config_file=hpux8 - ;; - *-hp-hpux1[0-9]* ) - tcsh_config_file=hpux11 - ;; - - ## IBM AIX systems - *-ibm-aix*) - tcsh_config_file=aix - ;; - - ## SX-4 - sx4-nec-*) - CC='cc -h0,ansi,novector,float0' - LDFLAGS='-Gsmall' - tcsh_config_file=superux8 - ;; - - ## IBM OS/390 systems - *-ibm-os390*) - CC='c89' - tcsh_config_file=os390 - ;; - - ## Linux - *-*-linux* | *-*-gnu* | *-*-k*bsd*-gnu) - tcsh_config_file=linux - ;; - - ## Motorola systems - m68k-motorola-sysv* ) - tcsh_config_file=sysV68 - ;; - m88k-motorola-sysv3* ) - tcsh_config_file=sysV88 - ;; - - ## NetBSD systems - *-*-netbsd*) - tcsh_config_file=bsd4.4 - ;; - - ## FreeBSD systems - *-*-freebsd*) - tcsh_config_file=bsd4.4 - ;; - - ## OpenBSD systems - *-*-openbsd*) - tcsh_config_file=bsd4.4 - ;; - - ## BSDI systems - *-*-bsdi*) - tcsh_config_file=bsd4.4 - ;; - - ## Mac OS X Server - *-*-rhapsody* ) - tcsh_config_file=bsd4.4 - ;; - - ## Mac OS X Server - *-*-darwin* ) - tcsh_config_file=bsd4.4 - ;; - - ## DragonFly systems - *-*-dragonfly*) - tcsh_config_file=bsd4.4 - ;; - - ## Silicon Graphics machines - *-sgi-iri* ) - tcsh_config_file=irix - case "${host_os}" in - irix[34]*) # Irix-3.x - Irix 4.x - NON_GNU_DFLAGS='-D__STDC__' - LIBS='-lsun -lbsd -lc_s' - ;; - irix5* | irix6.[01]*) # Irix 5.x, Irix 6.0 - 6.1 - LIBS='-lbsd' - ;; - irix6.[2-9]*) # Irix 6.2 and later - tcsh_config_file=irix62 - ;; - esac - ;; - - ## Suns - *-sun-sunos3* ) - tcsh_config_file=sunos35 - ;; - *-sun-sunos4.0* ) - tcsh_config_file=sunos40 - ;; - *-sun-sunos4.1.[12]* ) - tcsh_config_file=sunos41 - ;; - *-sun-sunos4.1.[3456]* ) - tcsh_config_file=sunos413 - ;; - *-*-solaris2.[01] ) # Should handle sparc or x86 - tcsh_config_file=sol2 - ;; - *-sun-solaris2.2 ) # Sparc only release - tcsh_config_file=sol22 - ;; - *-sun-solaris2.3 ) # Sparc only release - tcsh_config_file=sol23 - ;; - *-*-solaris2.[45] ) # Should handle sparc, x86 and powerpc - tcsh_config_file=sol24 - ;; - *-*-solaris2.* ) # Should handle sparc, x86 and powerpc - tcsh_config_file=sol26 - ;; - - ## Dell SVR4 - *-dell-sysv4* ) - tcsh_config_file=sysv4 - DFLAGS="$DFLAGS -DDELL" - ;; - - ## SVR4 (Generic and otherwise) - *-*-sysv4* ) - tcsh_config_file=sysv4 - ;; - - ## Tektronix systems - m68k-tektronix-bsd* ) - tcsh_config_file=bsd - NON_GNU_DFLAGS='-DBSD -DUTek' - ;; - m88k-tektronix-sysv3* ) - tcsh_config_file=tekXD88 - ;; - - ## SCO - *-sco3.2v5*) - tcsh_config_file=sco32v5 - ;; - *-sco3.2v4*) - tcsh_config_file=sco32v4 - ;; - *-sco3.2v2*) - tcsh_config_file=sco32v2 - ;; - - ## Siemens BS2000 Mainframe - bs2000-siemens-*) - tcsh_config_file=bs2000 - ;; - - ## Convex - *-convex*) - tcsh_config_file=convex - ;; - - ## Cray - *-cray-unicos*) - tcsh_config_file=cray - ;; - - ## Red Hat Cygwin - *-cygwin) - tcsh_config_file=cygwin32 - ;; - - ## mips-compaq-nonstopux - *-*-nonstopux) - tcsh_config_file=sysv4 - ;; - - ## Apollo Domain/OS - *-apollo-*) - tcsh_config_file=apollo - ;; - - * ) - { { echo "$as_me:$LINENO: error: Tcsh can't guess the configuration file name -for \`${host}' systems. -Check tcsh's \`Ported' file for manual configuration instructions." >&5 -echo "$as_me: error: Tcsh can't guess the configuration file name -for \`${host}' systems. -Check tcsh's \`Ported' file for manual configuration instructions." >&2;} - { (exit 1); exit 1; }; } - ;; - -esac - -echo "Tcsh will use configuration file \`$tcsh_config_file'." -cp ${srcdir}/config/${tcsh_config_file} config_p.h - - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. -set dummy ${ac_tool_prefix}gcc; ac_word=$2 -echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}gcc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6 -else - echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6 -fi - -fi -if test -z "$ac_cv_prog_CC"; then - ac_ct_CC=$CC - # Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="gcc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 -echo "${ECHO_T}$ac_ct_CC" >&6 -else - echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6 -fi - - CC=$ac_ct_CC -else - CC="$ac_cv_prog_CC" -fi - -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. -set dummy ${ac_tool_prefix}cc; ac_word=$2 -echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}cc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6 -else - echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6 -fi - -fi -if test -z "$ac_cv_prog_CC"; then - ac_ct_CC=$CC - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="cc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 -echo "${ECHO_T}$ac_ct_CC" >&6 -else - echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6 -fi - - CC=$ac_ct_CC -else - CC="$ac_cv_prog_CC" -fi - -fi -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - ac_prog_rejected=no -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done - -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# != 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" - fi -fi -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6 -else - echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6 -fi - -fi -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - for ac_prog in cl - do - # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. -set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="$ac_tool_prefix$ac_prog" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6 -else - echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6 -fi - - test -n "$CC" && break - done -fi -if test -z "$CC"; then - ac_ct_CC=$CC - for ac_prog in cl -do - # Extract the first word of "$ac_prog", so it can be a program name with args. -set dummy $ac_prog; ac_word=$2 -echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="$ac_prog" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 -echo "${ECHO_T}$ac_ct_CC" >&6 -else - echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6 -fi - - test -n "$ac_ct_CC" && break -done - - CC=$ac_ct_CC -fi - -fi - - -test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH -See \`config.log' for more details." >&5 -echo "$as_me: error: no acceptable C compiler found in \$PATH -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } - -# Provide some information about the compiler. -echo "$as_me:$LINENO:" \ - "checking for C compiler version" >&5 -ac_compiler=`set X $ac_compile; echo $2` -{ (eval echo "$as_me:$LINENO: \"$ac_compiler --version </dev/null >&5\"") >&5 - (eval $ac_compiler --version </dev/null >&5) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } -{ (eval echo "$as_me:$LINENO: \"$ac_compiler -v </dev/null >&5\"") >&5 - (eval $ac_compiler -v </dev/null >&5) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } -{ (eval echo "$as_me:$LINENO: \"$ac_compiler -V </dev/null >&5\"") >&5 - (eval $ac_compiler -V </dev/null >&5) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files a.out a.exe b.out" -# Try to create an executable without -o first, disregard a.out. -# It will help us diagnose broken compilers, and finding out an intuition -# of exeext. -echo "$as_me:$LINENO: checking for C compiler default output file name" >&5 -echo $ECHO_N "checking for C compiler default output file name... $ECHO_C" >&6 -ac_link_default=`echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` -if { (eval echo "$as_me:$LINENO: \"$ac_link_default\"") >&5 - (eval $ac_link_default) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then - # Find the output, starting from the most likely. This scheme is -# not robust to junk in `.', hence go to wildcards (a.*) only as a last -# resort. - -# Be careful to initialize this variable, since it used to be cached. -# Otherwise an old cache value of `no' led to `EXEEXT = no' in a Makefile. -ac_cv_exeext= -# b.out is created by i960 compilers. -for ac_file in a_out.exe a.exe conftest.exe a.out conftest a.* conftest.* b.out -do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.o | *.obj ) - ;; - conftest.$ac_ext ) - # This is the source file. - ;; - [ab].out ) - # We found the default executable, but exeext='' is most - # certainly right. - break;; - *.* ) - ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - # FIXME: I believe we export ac_cv_exeext for Libtool, - # but it would be cool to find out if it's true. Does anybody - # maintain Libtool? --akim. - export ac_cv_exeext - break;; - * ) - break;; - esac -done -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { echo "$as_me:$LINENO: error: C compiler cannot create executables -See \`config.log' for more details." >&5 -echo "$as_me: error: C compiler cannot create executables -See \`config.log' for more details." >&2;} - { (exit 77); exit 77; }; } -fi - -ac_exeext=$ac_cv_exeext -echo "$as_me:$LINENO: result: $ac_file" >&5 -echo "${ECHO_T}$ac_file" >&6 - -# Check the compiler produces executables we can run. If not, either -# the compiler is broken, or we cross compile. -echo "$as_me:$LINENO: checking whether the C compiler works" >&5 -echo $ECHO_N "checking whether the C compiler works... $ECHO_C" >&6 -# FIXME: These cross compiler hacks should be removed for Autoconf 3.0 -# If not cross compiling, check that we can run a simple program. -if test "$cross_compiling" != yes; then - if { ac_try='./$ac_file' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - cross_compiling=no - else - if test "$cross_compiling" = maybe; then - cross_compiling=yes - else - { { echo "$as_me:$LINENO: error: cannot run C compiled programs. -If you meant to cross compile, use \`--host'. -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot run C compiled programs. -If you meant to cross compile, use \`--host'. -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } - fi - fi -fi -echo "$as_me:$LINENO: result: yes" >&5 -echo "${ECHO_T}yes" >&6 - -rm -f a.out a.exe conftest$ac_cv_exeext b.out -ac_clean_files=$ac_clean_files_save -# Check the compiler produces executables we can run. If not, either -# the compiler is broken, or we cross compile. -echo "$as_me:$LINENO: checking whether we are cross compiling" >&5 -echo $ECHO_N "checking whether we are cross compiling... $ECHO_C" >&6 -echo "$as_me:$LINENO: result: $cross_compiling" >&5 -echo "${ECHO_T}$cross_compiling" >&6 - -echo "$as_me:$LINENO: checking for suffix of executables" >&5 -echo $ECHO_N "checking for suffix of executables... $ECHO_C" >&6 -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then - # If both `conftest.exe' and `conftest' are `present' (well, observable) -# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will -# work properly (i.e., refer to `conftest.exe'), while it won't with -# `rm'. -for ac_file in conftest.exe conftest conftest.*; do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.o | *.obj ) ;; - *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - export ac_cv_exeext - break;; - * ) break;; - esac -done -else - { { echo "$as_me:$LINENO: error: cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } -fi - -rm -f conftest$ac_cv_exeext -echo "$as_me:$LINENO: result: $ac_cv_exeext" >&5 -echo "${ECHO_T}$ac_cv_exeext" >&6 - -rm -f conftest.$ac_ext -EXEEXT=$ac_cv_exeext -ac_exeext=$EXEEXT -echo "$as_me:$LINENO: checking for suffix of object files" >&5 -echo $ECHO_N "checking for suffix of object files... $ECHO_C" >&6 -if test "${ac_cv_objext+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.o conftest.obj -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then - for ac_file in `(ls conftest.o conftest.obj; ls conftest.*) 2>/dev/null`; do - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg ) ;; - *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` - break;; - esac -done -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { echo "$as_me:$LINENO: error: cannot compute suffix of object files: cannot compile -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute suffix of object files: cannot compile -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } -fi - -rm -f conftest.$ac_cv_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_objext" >&5 -echo "${ECHO_T}$ac_cv_objext" >&6 -OBJEXT=$ac_cv_objext -ac_objext=$OBJEXT -echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 -echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6 -if test "${ac_cv_c_compiler_gnu+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ -#ifndef __GNUC__ - choke me -#endif - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_compiler_gnu=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_compiler_gnu=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -ac_cv_c_compiler_gnu=$ac_compiler_gnu - -fi -echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 -echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6 -GCC=`test $ac_compiler_gnu = yes && echo yes` -ac_test_CFLAGS=${CFLAGS+set} -ac_save_CFLAGS=$CFLAGS -CFLAGS="-g" -echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 -echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6 -if test "${ac_cv_prog_cc_g+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_prog_cc_g=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_prog_cc_g=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 -echo "${ECHO_T}$ac_cv_prog_cc_g" >&6 -if test "$ac_test_CFLAGS" = set; then - CFLAGS=$ac_save_CFLAGS -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi -echo "$as_me:$LINENO: checking for $CC option to accept ANSI C" >&5 -echo $ECHO_N "checking for $CC option to accept ANSI C... $ECHO_C" >&6 -if test "${ac_cv_prog_cc_stdc+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_cv_prog_cc_stdc=no -ac_save_CC=$CC -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdarg.h> -#include <stdio.h> -#include <sys/types.h> -#include <sys/stat.h> -/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ -struct buf { int x; }; -FILE * (*rcsopen) (struct buf *, struct stat *, int); -static char *e (p, i) - char **p; - int i; -{ - return p[i]; -} -static char *f (char * (*g) (char **, int), char **p, ...) -{ - char *s; - va_list v; - va_start (v,p); - s = g (p, va_arg (v,int)); - va_end (v); - return s; -} - -/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has - function prototypes and stuff, but not '\xHH' hex character constants. - These don't provoke an error unfortunately, instead are silently treated - as 'x'. The following induces an error, until -std1 is added to get - proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an - array size at least. It's necessary to write '\x00'==0 to get something - that's true only with -std1. */ -int osf4_cc_array ['\x00' == 0 ? 1 : -1]; - -int test (int i, double x); -struct s1 {int (*f) (int a);}; -struct s2 {int (*f) (double a);}; -int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); -int argc; -char **argv; -int -main () -{ -return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; - ; - return 0; -} -_ACEOF -# Don't try gcc -ansi; that turns off useful extensions and -# breaks some systems' header files. -# AIX -qlanglvl=ansi -# Ultrix and OSF/1 -std1 -# HP-UX 10.20 and later -Ae -# HP-UX older versions -Aa -D_HPUX_SOURCE -# SVR4 -Xc -D__EXTENSIONS__ -for ac_arg in "" -qlanglvl=ansi -std1 -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" -do - CC="$ac_save_CC $ac_arg" - rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_prog_cc_stdc=$ac_arg -break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext -done -rm -f conftest.$ac_ext conftest.$ac_objext -CC=$ac_save_CC - -fi - -case "x$ac_cv_prog_cc_stdc" in - x|xno) - echo "$as_me:$LINENO: result: none needed" >&5 -echo "${ECHO_T}none needed" >&6 ;; - *) - echo "$as_me:$LINENO: result: $ac_cv_prog_cc_stdc" >&5 -echo "${ECHO_T}$ac_cv_prog_cc_stdc" >&6 - CC="$CC $ac_cv_prog_cc_stdc" ;; -esac - -# Some people use a C++ compiler to compile C. Since we use `exit', -# in C++ we need to declare it. In case someone uses the same compiler -# for both compiling C and C++ we need to have the C++ compiler decide -# the declaration of exit, since it's the most demanding environment. -cat >conftest.$ac_ext <<_ACEOF -#ifndef __cplusplus - choke me -#endif -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - for ac_declaration in \ - '' \ - 'extern "C" void std::exit (int) throw (); using std::exit;' \ - 'extern "C" void std::exit (int); using std::exit;' \ - 'extern "C" void exit (int) throw ();' \ - 'extern "C" void exit (int);' \ - 'void exit (int);' -do - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_declaration -#include <stdlib.h> -int -main () -{ -exit (42); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -continue -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_declaration -int -main () -{ -exit (42); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -done -rm -f conftest* -if test -n "$ac_declaration"; then - echo '#ifdef __cplusplus' >>confdefs.h - echo $ac_declaration >>confdefs.h - echo '#endif' >>confdefs.h -fi - -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -echo "$as_me:$LINENO: checking how to run the C preprocessor" >&5 -echo $ECHO_N "checking how to run the C preprocessor... $ECHO_C" >&6 -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then - if test "${ac_cv_prog_CPP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - # Double quotes because CPP needs to be expanded - for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" - do - ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since - # <limits.h> exists even on freestanding compilers. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#ifdef __STDC__ -# include <limits.h> -#else -# include <assert.h> -#endif - Syntax error -_ACEOF -if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 - (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null; then - if test -s conftest.err; then - ac_cpp_err=$ac_c_preproc_warn_flag - ac_cpp_err=$ac_cpp_err$ac_c_werror_flag - else - ac_cpp_err= - fi -else - ac_cpp_err=yes -fi -if test -z "$ac_cpp_err"; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - # Broken: fails on valid input. -continue -fi -rm -f conftest.err conftest.$ac_ext - - # OK, works on sane cases. Now check whether non-existent headers - # can be detected and how. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <ac_nonexistent.h> -_ACEOF -if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 - (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null; then - if test -s conftest.err; then - ac_cpp_err=$ac_c_preproc_warn_flag - ac_cpp_err=$ac_cpp_err$ac_c_werror_flag - else - ac_cpp_err= - fi -else - ac_cpp_err=yes -fi -if test -z "$ac_cpp_err"; then - # Broken: success on invalid input. -continue -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - # Passes both tests. -ac_preproc_ok=: -break -fi -rm -f conftest.err conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.err conftest.$ac_ext -if $ac_preproc_ok; then - break -fi - - done - ac_cv_prog_CPP=$CPP - -fi - CPP=$ac_cv_prog_CPP -else - ac_cv_prog_CPP=$CPP -fi -echo "$as_me:$LINENO: result: $CPP" >&5 -echo "${ECHO_T}$CPP" >&6 -ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since - # <limits.h> exists even on freestanding compilers. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#ifdef __STDC__ -# include <limits.h> -#else -# include <assert.h> -#endif - Syntax error -_ACEOF -if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 - (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null; then - if test -s conftest.err; then - ac_cpp_err=$ac_c_preproc_warn_flag - ac_cpp_err=$ac_cpp_err$ac_c_werror_flag - else - ac_cpp_err= - fi -else - ac_cpp_err=yes -fi -if test -z "$ac_cpp_err"; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - # Broken: fails on valid input. -continue -fi -rm -f conftest.err conftest.$ac_ext - - # OK, works on sane cases. Now check whether non-existent headers - # can be detected and how. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <ac_nonexistent.h> -_ACEOF -if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 - (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null; then - if test -s conftest.err; then - ac_cpp_err=$ac_c_preproc_warn_flag - ac_cpp_err=$ac_cpp_err$ac_c_werror_flag - else - ac_cpp_err= - fi -else - ac_cpp_err=yes -fi -if test -z "$ac_cpp_err"; then - # Broken: success on invalid input. -continue -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - # Passes both tests. -ac_preproc_ok=: -break -fi -rm -f conftest.err conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.err conftest.$ac_ext -if $ac_preproc_ok; then - : -else - { { echo "$as_me:$LINENO: error: C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details." >&5 -echo "$as_me: error: C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - - -echo "$as_me:$LINENO: checking for egrep" >&5 -echo $ECHO_N "checking for egrep... $ECHO_C" >&6 -if test "${ac_cv_prog_egrep+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if echo a | (grep -E '(a|b)') >/dev/null 2>&1 - then ac_cv_prog_egrep='grep -E' - else ac_cv_prog_egrep='egrep' - fi -fi -echo "$as_me:$LINENO: result: $ac_cv_prog_egrep" >&5 -echo "${ECHO_T}$ac_cv_prog_egrep" >&6 - EGREP=$ac_cv_prog_egrep - - -if test $ac_cv_c_compiler_gnu = yes; then - echo "$as_me:$LINENO: checking whether $CC needs -traditional" >&5 -echo $ECHO_N "checking whether $CC needs -traditional... $ECHO_C" >&6 -if test "${ac_cv_prog_gcc_traditional+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_pattern="Autoconf.*'x'" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sgtty.h> -Autoconf TIOCGETP -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "$ac_pattern" >/dev/null 2>&1; then - ac_cv_prog_gcc_traditional=yes -else - ac_cv_prog_gcc_traditional=no -fi -rm -f conftest* - - - if test $ac_cv_prog_gcc_traditional = no; then - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <termio.h> -Autoconf TCGETA -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "$ac_pattern" >/dev/null 2>&1; then - ac_cv_prog_gcc_traditional=yes -fi -rm -f conftest* - - fi -fi -echo "$as_me:$LINENO: result: $ac_cv_prog_gcc_traditional" >&5 -echo "${ECHO_T}$ac_cv_prog_gcc_traditional" >&6 - if test $ac_cv_prog_gcc_traditional = yes; then - CC="$CC -traditional" - fi -fi - - -if test "x$GCC" != xyes ; then - DFLAGS="$DFLAGS $NON_GNU_DFLAGS" - CFLAGS="$CFLAGS $NON_GNU_CFLAGS" -fi - -echo "$as_me:$LINENO: checking for library containing crypt" >&5 -echo $ECHO_N "checking for library containing crypt... $ECHO_C" >&6 -if test "${ac_cv_search_crypt+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_func_search_save_LIBS=$LIBS -ac_cv_search_crypt=no -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char crypt (); -int -main () -{ -crypt (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_crypt="none required" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test "$ac_cv_search_crypt" = no; then - for ac_lib in crypt; do - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char crypt (); -int -main () -{ -crypt (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_crypt="-l$ac_lib" -break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - done -fi -LIBS=$ac_func_search_save_LIBS -fi -echo "$as_me:$LINENO: result: $ac_cv_search_crypt" >&5 -echo "${ECHO_T}$ac_cv_search_crypt" >&6 -if test "$ac_cv_search_crypt" != no; then - test "$ac_cv_search_crypt" = "none required" || LIBS="$ac_cv_search_crypt $LIBS" - -fi - -echo "$as_me:$LINENO: checking for library containing getspnam" >&5 -echo $ECHO_N "checking for library containing getspnam... $ECHO_C" >&6 -if test "${ac_cv_search_getspnam+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_func_search_save_LIBS=$LIBS -ac_cv_search_getspnam=no -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char getspnam (); -int -main () -{ -getspnam (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_getspnam="none required" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test "$ac_cv_search_getspnam" = no; then - for ac_lib in sec; do - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char getspnam (); -int -main () -{ -getspnam (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_getspnam="-l$ac_lib" -break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - done -fi -LIBS=$ac_func_search_save_LIBS -fi -echo "$as_me:$LINENO: result: $ac_cv_search_getspnam" >&5 -echo "${ECHO_T}$ac_cv_search_getspnam" >&6 -if test "$ac_cv_search_getspnam" != no; then - test "$ac_cv_search_getspnam" = "none required" || LIBS="$ac_cv_search_getspnam $LIBS" - -fi - -echo "$as_me:$LINENO: checking for library containing tgetent" >&5 -echo $ECHO_N "checking for library containing tgetent... $ECHO_C" >&6 -if test "${ac_cv_search_tgetent+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_func_search_save_LIBS=$LIBS -ac_cv_search_tgetent=no -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char tgetent (); -int -main () -{ -tgetent (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_tgetent="none required" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test "$ac_cv_search_tgetent" = no; then - for ac_lib in termlib termcap curses ncurses; do - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char tgetent (); -int -main () -{ -tgetent (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_tgetent="-l$ac_lib" -break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - done -fi -LIBS=$ac_func_search_save_LIBS -fi -echo "$as_me:$LINENO: result: $ac_cv_search_tgetent" >&5 -echo "${ECHO_T}$ac_cv_search_tgetent" >&6 -if test "$ac_cv_search_tgetent" != no; then - test "$ac_cv_search_tgetent" = "none required" || LIBS="$ac_cv_search_tgetent $LIBS" - -fi - -echo "$as_me:$LINENO: checking for library containing gethostbyname" >&5 -echo $ECHO_N "checking for library containing gethostbyname... $ECHO_C" >&6 -if test "${ac_cv_search_gethostbyname+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_func_search_save_LIBS=$LIBS -ac_cv_search_gethostbyname=no -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char gethostbyname (); -int -main () -{ -gethostbyname (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_gethostbyname="none required" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test "$ac_cv_search_gethostbyname" = no; then - for ac_lib in nsl; do - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char gethostbyname (); -int -main () -{ -gethostbyname (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_gethostbyname="-l$ac_lib" -break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - done -fi -LIBS=$ac_func_search_save_LIBS -fi -echo "$as_me:$LINENO: result: $ac_cv_search_gethostbyname" >&5 -echo "${ECHO_T}$ac_cv_search_gethostbyname" >&6 -if test "$ac_cv_search_gethostbyname" != no; then - test "$ac_cv_search_gethostbyname" = "none required" || LIBS="$ac_cv_search_gethostbyname $LIBS" - -fi - -echo "$as_me:$LINENO: checking for library containing connect" >&5 -echo $ECHO_N "checking for library containing connect... $ECHO_C" >&6 -if test "${ac_cv_search_connect+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_func_search_save_LIBS=$LIBS -ac_cv_search_connect=no -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char connect (); -int -main () -{ -connect (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_connect="none required" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test "$ac_cv_search_connect" = no; then - for ac_lib in socket; do - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char connect (); -int -main () -{ -connect (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_connect="-l$ac_lib" -break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - done -fi -LIBS=$ac_func_search_save_LIBS -fi -echo "$as_me:$LINENO: result: $ac_cv_search_connect" >&5 -echo "${ECHO_T}$ac_cv_search_connect" >&6 -if test "$ac_cv_search_connect" != no; then - test "$ac_cv_search_connect" = "none required" || LIBS="$ac_cv_search_connect $LIBS" - -fi - - - if test "X$prefix" = "XNONE"; then - acl_final_prefix="$ac_default_prefix" - else - acl_final_prefix="$prefix" - fi - if test "X$exec_prefix" = "XNONE"; then - acl_final_exec_prefix='${prefix}' - else - acl_final_exec_prefix="$exec_prefix" - fi - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - eval acl_final_exec_prefix=\"$acl_final_exec_prefix\" - prefix="$acl_save_prefix" - - -# Check whether --with-gnu-ld or --without-gnu-ld was given. -if test "${with_gnu_ld+set}" = set; then - withval="$with_gnu_ld" - test "$withval" = no || with_gnu_ld=yes -else - with_gnu_ld=no -fi; -# Prepare PATH_SEPARATOR. -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - echo "#! /bin/sh" >conf$$.sh - echo "exit 0" >>conf$$.sh - chmod +x conf$$.sh - if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then - PATH_SEPARATOR=';' - else - PATH_SEPARATOR=: - fi - rm -f conf$$.sh -fi -ac_prog=ld -if test "$GCC" = yes; then - # Check if gcc -print-prog-name=ld gives a path. - echo "$as_me:$LINENO: checking for ld used by GCC" >&5 -echo $ECHO_N "checking for ld used by GCC... $ECHO_C" >&6 - case $host in - *-*-mingw*) - # gcc leaves a trailing carriage return which upsets mingw - ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; - *) - ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; - esac - case $ac_prog in - # Accept absolute paths. - [\\/]* | [A-Za-z]:[\\/]*) - re_direlt='/[^/][^/]*/\.\./' - # Canonicalize the path of ld - ac_prog=`echo $ac_prog| sed 's%\\\\%/%g'` - while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do - ac_prog=`echo $ac_prog| sed "s%$re_direlt%/%"` - done - test -z "$LD" && LD="$ac_prog" - ;; - "") - # If it fails, then pretend we aren't using GCC. - ac_prog=ld - ;; - *) - # If it is relative, then search for the first ld in PATH. - with_gnu_ld=unknown - ;; - esac -elif test "$with_gnu_ld" = yes; then - echo "$as_me:$LINENO: checking for GNU ld" >&5 -echo $ECHO_N "checking for GNU ld... $ECHO_C" >&6 -else - echo "$as_me:$LINENO: checking for non-GNU ld" >&5 -echo $ECHO_N "checking for non-GNU ld... $ECHO_C" >&6 -fi -if test "${acl_cv_path_LD+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -z "$LD"; then - IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}${PATH_SEPARATOR-:}" - for ac_dir in $PATH; do - test -z "$ac_dir" && ac_dir=. - if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then - acl_cv_path_LD="$ac_dir/$ac_prog" - # Check to see if the program is GNU ld. I'd rather use --version, - # but apparently some GNU ld's only accept -v. - # Break only if it was the GNU/non-GNU ld that we prefer. - case `"$acl_cv_path_LD" -v 2>&1 < /dev/null` in - *GNU* | *'with BFD'*) - test "$with_gnu_ld" != no && break ;; - *) - test "$with_gnu_ld" != yes && break ;; - esac - fi - done - IFS="$ac_save_ifs" -else - acl_cv_path_LD="$LD" # Let the user override the test with a path. -fi -fi - -LD="$acl_cv_path_LD" -if test -n "$LD"; then - echo "$as_me:$LINENO: result: $LD" >&5 -echo "${ECHO_T}$LD" >&6 -else - echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6 -fi -test -z "$LD" && { { echo "$as_me:$LINENO: error: no acceptable ld found in \$PATH" >&5 -echo "$as_me: error: no acceptable ld found in \$PATH" >&2;} - { (exit 1); exit 1; }; } -echo "$as_me:$LINENO: checking if the linker ($LD) is GNU ld" >&5 -echo $ECHO_N "checking if the linker ($LD) is GNU ld... $ECHO_C" >&6 -if test "${acl_cv_prog_gnu_ld+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - # I'd rather use --version here, but apparently some GNU ld's only accept -v. -case `$LD -v 2>&1 </dev/null` in -*GNU* | *'with BFD'*) - acl_cv_prog_gnu_ld=yes ;; -*) - acl_cv_prog_gnu_ld=no ;; -esac -fi -echo "$as_me:$LINENO: result: $acl_cv_prog_gnu_ld" >&5 -echo "${ECHO_T}$acl_cv_prog_gnu_ld" >&6 -with_gnu_ld=$acl_cv_prog_gnu_ld - - - - - echo "$as_me:$LINENO: checking for shared library run path origin" >&5 -echo $ECHO_N "checking for shared library run path origin... $ECHO_C" >&6 -if test "${acl_cv_rpath+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - - CC="$CC" GCC="$GCC" LDFLAGS="$LDFLAGS" LD="$LD" with_gnu_ld="$with_gnu_ld" \ - ${CONFIG_SHELL-/bin/sh} "$ac_aux_dir/config.rpath" "$host" > conftest.sh - . ./conftest.sh - rm -f ./conftest.sh - acl_cv_rpath=done - -fi -echo "$as_me:$LINENO: result: $acl_cv_rpath" >&5 -echo "${ECHO_T}$acl_cv_rpath" >&6 - wl="$acl_cv_wl" - libext="$acl_cv_libext" - shlibext="$acl_cv_shlibext" - hardcode_libdir_flag_spec="$acl_cv_hardcode_libdir_flag_spec" - hardcode_libdir_separator="$acl_cv_hardcode_libdir_separator" - hardcode_direct="$acl_cv_hardcode_direct" - hardcode_minus_L="$acl_cv_hardcode_minus_L" - # Check whether --enable-rpath or --disable-rpath was given. -if test "${enable_rpath+set}" = set; then - enableval="$enable_rpath" - : -else - enable_rpath=yes -fi; - - - - - - - - use_additional=yes - - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - acl_save_exec_prefix="$exec_prefix" - exec_prefix="$acl_final_exec_prefix" - - eval additional_includedir=\"$includedir\" - eval additional_libdir=\"$libdir\" - - exec_prefix="$acl_save_exec_prefix" - prefix="$acl_save_prefix" - - -# Check whether --with-libiconv-prefix or --without-libiconv-prefix was given. -if test "${with_libiconv_prefix+set}" = set; then - withval="$with_libiconv_prefix" - - if test "X$withval" = "Xno"; then - use_additional=no - else - if test "X$withval" = "X"; then - - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - acl_save_exec_prefix="$exec_prefix" - exec_prefix="$acl_final_exec_prefix" - - eval additional_includedir=\"$includedir\" - eval additional_libdir=\"$libdir\" - - exec_prefix="$acl_save_exec_prefix" - prefix="$acl_save_prefix" - - else - additional_includedir="$withval/include" - additional_libdir="$withval/lib" - fi - fi - -fi; - LIBICONV= - LTLIBICONV= - INCICONV= - rpathdirs= - ltrpathdirs= - names_already_handled= - names_next_round='iconv ' - while test -n "$names_next_round"; do - names_this_round="$names_next_round" - names_next_round= - for name in $names_this_round; do - already_handled= - for n in $names_already_handled; do - if test "$n" = "$name"; then - already_handled=yes - break - fi - done - if test -z "$already_handled"; then - names_already_handled="$names_already_handled $name" - uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./-|ABCDEFGHIJKLMNOPQRSTUVWXYZ___|'` - eval value=\"\$HAVE_LIB$uppername\" - if test -n "$value"; then - if test "$value" = yes; then - eval value=\"\$LIB$uppername\" - test -z "$value" || LIBICONV="${LIBICONV}${LIBICONV:+ }$value" - eval value=\"\$LTLIB$uppername\" - test -z "$value" || LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }$value" - else - : - fi - else - found_dir= - found_la= - found_so= - found_a= - if test $use_additional = yes; then - if test -n "$shlibext" && test -f "$additional_libdir/lib$name.$shlibext"; then - found_dir="$additional_libdir" - found_so="$additional_libdir/lib$name.$shlibext" - if test -f "$additional_libdir/lib$name.la"; then - found_la="$additional_libdir/lib$name.la" - fi - else - if test -f "$additional_libdir/lib$name.$libext"; then - found_dir="$additional_libdir" - found_a="$additional_libdir/lib$name.$libext" - if test -f "$additional_libdir/lib$name.la"; then - found_la="$additional_libdir/lib$name.la" - fi - fi - fi - fi - if test "X$found_dir" = "X"; then - for x in $LDFLAGS $LTLIBICONV; do - - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - acl_save_exec_prefix="$exec_prefix" - exec_prefix="$acl_final_exec_prefix" - eval x=\"$x\" - exec_prefix="$acl_save_exec_prefix" - prefix="$acl_save_prefix" - - case "$x" in - -L*) - dir=`echo "X$x" | sed -e 's/^X-L//'` - if test -n "$shlibext" && test -f "$dir/lib$name.$shlibext"; then - found_dir="$dir" - found_so="$dir/lib$name.$shlibext" - if test -f "$dir/lib$name.la"; then - found_la="$dir/lib$name.la" - fi - else - if test -f "$dir/lib$name.$libext"; then - found_dir="$dir" - found_a="$dir/lib$name.$libext" - if test -f "$dir/lib$name.la"; then - found_la="$dir/lib$name.la" - fi - fi - fi - ;; - esac - if test "X$found_dir" != "X"; then - break - fi - done - fi - if test "X$found_dir" != "X"; then - LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }-L$found_dir -l$name" - if test "X$found_so" != "X"; then - if test "$enable_rpath" = no || test "X$found_dir" = "X/usr/lib"; then - LIBICONV="${LIBICONV}${LIBICONV:+ }$found_so" - else - haveit= - for x in $ltrpathdirs; do - if test "X$x" = "X$found_dir"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - ltrpathdirs="$ltrpathdirs $found_dir" - fi - if test "$hardcode_direct" = yes; then - LIBICONV="${LIBICONV}${LIBICONV:+ }$found_so" - else - if test -n "$hardcode_libdir_flag_spec" && test "$hardcode_minus_L" = no; then - LIBICONV="${LIBICONV}${LIBICONV:+ }$found_so" - haveit= - for x in $rpathdirs; do - if test "X$x" = "X$found_dir"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - rpathdirs="$rpathdirs $found_dir" - fi - else - haveit= - for x in $LDFLAGS $LIBICONV; do - - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - acl_save_exec_prefix="$exec_prefix" - exec_prefix="$acl_final_exec_prefix" - eval x=\"$x\" - exec_prefix="$acl_save_exec_prefix" - prefix="$acl_save_prefix" - - if test "X$x" = "X-L$found_dir"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - LIBICONV="${LIBICONV}${LIBICONV:+ }-L$found_dir" - fi - if test "$hardcode_minus_L" != no; then - LIBICONV="${LIBICONV}${LIBICONV:+ }$found_so" - else - LIBICONV="${LIBICONV}${LIBICONV:+ }-l$name" - fi - fi - fi - fi - else - if test "X$found_a" != "X"; then - LIBICONV="${LIBICONV}${LIBICONV:+ }$found_a" - else - LIBICONV="${LIBICONV}${LIBICONV:+ }-L$found_dir -l$name" - fi - fi - additional_includedir= - case "$found_dir" in - */lib | */lib/) - basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e 's,/lib/*$,,'` - additional_includedir="$basedir/include" - ;; - esac - if test "X$additional_includedir" != "X"; then - if test "X$additional_includedir" != "X/usr/include"; then - haveit= - if test "X$additional_includedir" = "X/usr/local/include"; then - if test -n "$GCC"; then - case $host_os in - linux* | gnu* | k*bsd*-gnu) haveit=yes;; - esac - fi - fi - if test -z "$haveit"; then - for x in $CPPFLAGS $INCICONV; do - - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - acl_save_exec_prefix="$exec_prefix" - exec_prefix="$acl_final_exec_prefix" - eval x=\"$x\" - exec_prefix="$acl_save_exec_prefix" - prefix="$acl_save_prefix" - - if test "X$x" = "X-I$additional_includedir"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - if test -d "$additional_includedir"; then - INCICONV="${INCICONV}${INCICONV:+ }-I$additional_includedir" - fi - fi - fi - fi - fi - if test -n "$found_la"; then - save_libdir="$libdir" - case "$found_la" in - */* | *\\*) . "$found_la" ;; - *) . "./$found_la" ;; - esac - libdir="$save_libdir" - for dep in $dependency_libs; do - case "$dep" in - -L*) - additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'` - if test "X$additional_libdir" != "X/usr/lib"; then - haveit= - if test "X$additional_libdir" = "X/usr/local/lib"; then - if test -n "$GCC"; then - case $host_os in - linux* | gnu* | k*bsd*-gnu) haveit=yes;; - esac - fi - fi - if test -z "$haveit"; then - haveit= - for x in $LDFLAGS $LIBICONV; do - - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - acl_save_exec_prefix="$exec_prefix" - exec_prefix="$acl_final_exec_prefix" - eval x=\"$x\" - exec_prefix="$acl_save_exec_prefix" - prefix="$acl_save_prefix" - - if test "X$x" = "X-L$additional_libdir"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - if test -d "$additional_libdir"; then - LIBICONV="${LIBICONV}${LIBICONV:+ }-L$additional_libdir" - fi - fi - haveit= - for x in $LDFLAGS $LTLIBICONV; do - - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - acl_save_exec_prefix="$exec_prefix" - exec_prefix="$acl_final_exec_prefix" - eval x=\"$x\" - exec_prefix="$acl_save_exec_prefix" - prefix="$acl_save_prefix" - - if test "X$x" = "X-L$additional_libdir"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - if test -d "$additional_libdir"; then - LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }-L$additional_libdir" - fi - fi - fi - fi - ;; - -R*) - dir=`echo "X$dep" | sed -e 's/^X-R//'` - if test "$enable_rpath" != no; then - haveit= - for x in $rpathdirs; do - if test "X$x" = "X$dir"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - rpathdirs="$rpathdirs $dir" - fi - haveit= - for x in $ltrpathdirs; do - if test "X$x" = "X$dir"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - ltrpathdirs="$ltrpathdirs $dir" - fi - fi - ;; - -l*) - names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'` - ;; - *.la) - names_next_round="$names_next_round "`echo "X$dep" | sed -e 's,^X.*/,,' -e 's,^lib,,' -e 's,\.la$,,'` - ;; - *) - LIBICONV="${LIBICONV}${LIBICONV:+ }$dep" - LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }$dep" - ;; - esac - done - fi - else - LIBICONV="${LIBICONV}${LIBICONV:+ }-l$name" - LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }-l$name" - fi - fi - fi - done - done - if test "X$rpathdirs" != "X"; then - if test -n "$hardcode_libdir_separator"; then - alldirs= - for found_dir in $rpathdirs; do - alldirs="${alldirs}${alldirs:+$hardcode_libdir_separator}$found_dir" - done - acl_save_libdir="$libdir" - libdir="$alldirs" - eval flag=\"$hardcode_libdir_flag_spec\" - libdir="$acl_save_libdir" - LIBICONV="${LIBICONV}${LIBICONV:+ }$flag" - else - for found_dir in $rpathdirs; do - acl_save_libdir="$libdir" - libdir="$found_dir" - eval flag=\"$hardcode_libdir_flag_spec\" - libdir="$acl_save_libdir" - LIBICONV="${LIBICONV}${LIBICONV:+ }$flag" - done - fi - fi - if test "X$ltrpathdirs" != "X"; then - for found_dir in $ltrpathdirs; do - LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }-R$found_dir" - done - fi - - - - - - - - am_save_CPPFLAGS="$CPPFLAGS" - - for element in $INCICONV; do - haveit= - for x in $CPPFLAGS; do - - acl_save_prefix="$prefix" - prefix="$acl_final_prefix" - acl_save_exec_prefix="$exec_prefix" - exec_prefix="$acl_final_exec_prefix" - eval x=\"$x\" - exec_prefix="$acl_save_exec_prefix" - prefix="$acl_save_prefix" - - if test "X$x" = "X$element"; then - haveit=yes - break - fi - done - if test -z "$haveit"; then - CPPFLAGS="${CPPFLAGS}${CPPFLAGS:+ }$element" - fi - done - - - echo "$as_me:$LINENO: checking for iconv" >&5 -echo $ECHO_N "checking for iconv... $ECHO_C" >&6 -if test "${am_cv_func_iconv+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - - am_cv_func_iconv="no, consider installing GNU libiconv" - am_cv_lib_iconv=no - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdlib.h> -#include <iconv.h> -int -main () -{ -iconv_t cd = iconv_open("",""); - iconv(cd,NULL,NULL,NULL,NULL); - iconv_close(cd); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - am_cv_func_iconv=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - if test "$am_cv_func_iconv" != yes; then - am_save_LIBS="$LIBS" - LIBS="$LIBS $LIBICONV" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdlib.h> -#include <iconv.h> -int -main () -{ -iconv_t cd = iconv_open("",""); - iconv(cd,NULL,NULL,NULL,NULL); - iconv_close(cd); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - am_cv_lib_iconv=yes - am_cv_func_iconv=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - LIBS="$am_save_LIBS" - fi - -fi -echo "$as_me:$LINENO: result: $am_cv_func_iconv" >&5 -echo "${ECHO_T}$am_cv_func_iconv" >&6 - if test "$am_cv_func_iconv" = yes; then - -cat >>confdefs.h <<\_ACEOF -#define HAVE_ICONV 1 -_ACEOF - - fi - if test "$am_cv_lib_iconv" = yes; then - echo "$as_me:$LINENO: checking how to link with libiconv" >&5 -echo $ECHO_N "checking how to link with libiconv... $ECHO_C" >&6 - echo "$as_me:$LINENO: result: $LIBICONV" >&5 -echo "${ECHO_T}$LIBICONV" >&6 - else - CPPFLAGS="$am_save_CPPFLAGS" - LIBICONV= - LTLIBICONV= - fi - - - - if test "$am_cv_func_iconv" = yes; then - echo "$as_me:$LINENO: checking for iconv declaration" >&5 -echo $ECHO_N "checking for iconv declaration... $ECHO_C" >&6 - if test "${am_cv_proto_iconv+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -#include <stdlib.h> -#include <iconv.h> -extern -#ifdef __cplusplus -"C" -#endif -#if defined(__STDC__) || defined(__cplusplus) -size_t iconv (iconv_t cd, char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft); -#else -size_t iconv(); -#endif - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - am_cv_proto_iconv_arg1="" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -am_cv_proto_iconv_arg1="const" -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext - am_cv_proto_iconv="extern size_t iconv (iconv_t cd, $am_cv_proto_iconv_arg1 char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);" -fi - - am_cv_proto_iconv=`echo "$am_cv_proto_iconv" | tr -s ' ' | sed -e 's/( /(/'` - echo "$as_me:$LINENO: result: ${ac_t:- - }$am_cv_proto_iconv" >&5 -echo "${ECHO_T}${ac_t:- - }$am_cv_proto_iconv" >&6 - -cat >>confdefs.h <<_ACEOF -#define ICONV_CONST $am_cv_proto_iconv_arg1 -_ACEOF - - fi - - -echo "$as_me:$LINENO: checking for ANSI C header files" >&5 -echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6 -if test "${ac_cv_header_stdc+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdlib.h> -#include <stdarg.h> -#include <string.h> -#include <float.h> - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_header_stdc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_header_stdc=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <string.h> - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "memchr" >/dev/null 2>&1; then - : -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdlib.h> - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "free" >/dev/null 2>&1; then - : -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. - if test "$cross_compiling" = yes; then - : -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <ctype.h> -#if ((' ' & 0x0FF) == 0x020) -# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#else -# define ISLOWER(c) \ - (('a' <= (c) && (c) <= 'i') \ - || ('j' <= (c) && (c) <= 'r') \ - || ('s' <= (c) && (c) <= 'z')) -# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) -#endif - -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int -main () -{ - int i; - for (i = 0; i < 256; i++) - if (XOR (islower (i), ISLOWER (i)) - || toupper (i) != TOUPPER (i)) - exit(2); - exit (0); -} -_ACEOF -rm -f conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - : -else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_header_stdc=no -fi -rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext -fi -fi -fi -echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 -echo "${ECHO_T}$ac_cv_header_stdc" >&6 -if test $ac_cv_header_stdc = yes; then - -cat >>confdefs.h <<\_ACEOF -#define STDC_HEADERS 1 -_ACEOF - -fi - -# On IRIX 5.3, sys/types and inttypes.h are conflicting. - - - - - - - - - -for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ - inttypes.h stdint.h unistd.h -do -as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` -echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default - -#include <$ac_header> -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - eval "$as_ac_Header=yes" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -eval "$as_ac_Header=no" -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 -if test `eval echo '${'$as_ac_Header'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 -_ACEOF - -fi - -done - - - - - - - - - -for ac_header in auth.h crypt.h inttypes.h shadow.h stdint.h utmp.h utmpx.h -do -as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 -else - # Is the header compilable? -echo "$as_me:$LINENO: checking $ac_header usability" >&5 -echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -#include <$ac_header> -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_header_compiler=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_header_compiler=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 -echo "${ECHO_T}$ac_header_compiler" >&6 - -# Is the header present? -echo "$as_me:$LINENO: checking $ac_header presence" >&5 -echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <$ac_header> -_ACEOF -if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 - (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null; then - if test -s conftest.err; then - ac_cpp_err=$ac_c_preproc_warn_flag - ac_cpp_err=$ac_cpp_err$ac_c_werror_flag - else - ac_cpp_err= - fi -else - ac_cpp_err=yes -fi -if test -z "$ac_cpp_err"; then - ac_header_preproc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_header_preproc=no -fi -rm -f conftest.err conftest.$ac_ext -echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 -echo "${ECHO_T}$ac_header_preproc" >&6 - -# So? What about this header? -case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in - yes:no: ) - { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 -echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} - ac_header_preproc=yes - ;; - no:yes:* ) - { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 -echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 -echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 -echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 -echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 -echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} - ( - cat <<\_ASBOX -## ---------------------------------- ## -## Report this to http://bugs.gw.com/ ## -## ---------------------------------- ## -_ASBOX - ) | - sed "s/^/$as_me: WARNING: /" >&2 - ;; -esac -echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - eval "$as_ac_Header=\$ac_header_preproc" -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 - -fi -if test `eval echo '${'$as_ac_Header'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 -_ACEOF - -fi - -done - - -for ac_header in wchar.h -do -as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 -else - # Is the header compilable? -echo "$as_me:$LINENO: checking $ac_header usability" >&5 -echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -#include <$ac_header> -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_header_compiler=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_header_compiler=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 -echo "${ECHO_T}$ac_header_compiler" >&6 - -# Is the header present? -echo "$as_me:$LINENO: checking $ac_header presence" >&5 -echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <$ac_header> -_ACEOF -if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 - (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null; then - if test -s conftest.err; then - ac_cpp_err=$ac_c_preproc_warn_flag - ac_cpp_err=$ac_cpp_err$ac_c_werror_flag - else - ac_cpp_err= - fi -else - ac_cpp_err=yes -fi -if test -z "$ac_cpp_err"; then - ac_header_preproc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_header_preproc=no -fi -rm -f conftest.err conftest.$ac_ext -echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 -echo "${ECHO_T}$ac_header_preproc" >&6 - -# So? What about this header? -case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in - yes:no: ) - { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 -echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} - ac_header_preproc=yes - ;; - no:yes:* ) - { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 -echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 -echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 -echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 -echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 -echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} - ( - cat <<\_ASBOX -## ---------------------------------- ## -## Report this to http://bugs.gw.com/ ## -## ---------------------------------- ## -_ASBOX - ) | - sed "s/^/$as_me: WARNING: /" >&2 - ;; -esac -echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - eval "$as_ac_Header=\$ac_header_preproc" -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 - -fi -if test `eval echo '${'$as_ac_Header'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 -_ACEOF - echo "$as_me:$LINENO: checking for wchar_t" >&5 -echo $ECHO_N "checking for wchar_t... $ECHO_C" >&6 -if test "${ac_cv_type_wchar_t+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdio.h> -#include <wchar.h> - -int -main () -{ -if ((wchar_t *) 0) - return 0; -if (sizeof (wchar_t)) - return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_type_wchar_t=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_type_wchar_t=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_type_wchar_t" >&5 -echo "${ECHO_T}$ac_cv_type_wchar_t" >&6 - -echo "$as_me:$LINENO: checking size of wchar_t" >&5 -echo $ECHO_N "checking size of wchar_t... $ECHO_C" >&6 -if test "${ac_cv_sizeof_wchar_t+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test "$ac_cv_type_wchar_t" = yes; then - # The cast to unsigned long works around a bug in the HP C Compiler - # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects - # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. - # This bug is HP SR number 8606223364. - if test "$cross_compiling" = yes; then - # Depending upon the size, compute the lo and hi bounds. -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdio.h> -#include <wchar.h> - -int -main () -{ -static int test_array [1 - 2 * !(((long) (sizeof (wchar_t))) >= 0)]; -test_array [0] = 0 - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_lo=0 ac_mid=0 - while :; do - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdio.h> -#include <wchar.h> - -int -main () -{ -static int test_array [1 - 2 * !(((long) (sizeof (wchar_t))) <= $ac_mid)]; -test_array [0] = 0 - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_hi=$ac_mid; break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_lo=`expr $ac_mid + 1` - if test $ac_lo -le $ac_mid; then - ac_lo= ac_hi= - break - fi - ac_mid=`expr 2 '*' $ac_mid + 1` -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext - done -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdio.h> -#include <wchar.h> - -int -main () -{ -static int test_array [1 - 2 * !(((long) (sizeof (wchar_t))) < 0)]; -test_array [0] = 0 - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_hi=-1 ac_mid=-1 - while :; do - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdio.h> -#include <wchar.h> - -int -main () -{ -static int test_array [1 - 2 * !(((long) (sizeof (wchar_t))) >= $ac_mid)]; -test_array [0] = 0 - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_lo=$ac_mid; break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_hi=`expr '(' $ac_mid ')' - 1` - if test $ac_mid -le $ac_hi; then - ac_lo= ac_hi= - break - fi - ac_mid=`expr 2 '*' $ac_mid` -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext - done -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_lo= ac_hi= -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -# Binary search between lo and hi bounds. -while test "x$ac_lo" != "x$ac_hi"; do - ac_mid=`expr '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo` - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdio.h> -#include <wchar.h> - -int -main () -{ -static int test_array [1 - 2 * !(((long) (sizeof (wchar_t))) <= $ac_mid)]; -test_array [0] = 0 - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_hi=$ac_mid -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_lo=`expr '(' $ac_mid ')' + 1` -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -done -case $ac_lo in -?*) ac_cv_sizeof_wchar_t=$ac_lo;; -'') { { echo "$as_me:$LINENO: error: cannot compute sizeof (wchar_t), 77 -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute sizeof (wchar_t), 77 -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } ;; -esac -else - if test "$cross_compiling" = yes; then - { { echo "$as_me:$LINENO: error: cannot run test program while cross compiling -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot run test program while cross compiling -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdio.h> -#include <wchar.h> - -long longval () { return (long) (sizeof (wchar_t)); } -unsigned long ulongval () { return (long) (sizeof (wchar_t)); } -#include <stdio.h> -#include <stdlib.h> -int -main () -{ - - FILE *f = fopen ("conftest.val", "w"); - if (! f) - exit (1); - if (((long) (sizeof (wchar_t))) < 0) - { - long i = longval (); - if (i != ((long) (sizeof (wchar_t)))) - exit (1); - fprintf (f, "%ld\n", i); - } - else - { - unsigned long i = ulongval (); - if (i != ((long) (sizeof (wchar_t)))) - exit (1); - fprintf (f, "%lu\n", i); - } - exit (ferror (f) || fclose (f) != 0); - - ; - return 0; -} -_ACEOF -rm -f conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_sizeof_wchar_t=`cat conftest.val` -else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -{ { echo "$as_me:$LINENO: error: cannot compute sizeof (wchar_t), 77 -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute sizeof (wchar_t), 77 -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } -fi -rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext -fi -fi -rm -f conftest.val -else - ac_cv_sizeof_wchar_t=0 -fi -fi -echo "$as_me:$LINENO: result: $ac_cv_sizeof_wchar_t" >&5 -echo "${ECHO_T}$ac_cv_sizeof_wchar_t" >&6 -cat >>confdefs.h <<_ACEOF -#define SIZEOF_WCHAR_T $ac_cv_sizeof_wchar_t -_ACEOF - - - -for ac_header in wctype.h -do -as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 -else - # Is the header compilable? -echo "$as_me:$LINENO: checking $ac_header usability" >&5 -echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -#include <$ac_header> -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_header_compiler=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_header_compiler=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 -echo "${ECHO_T}$ac_header_compiler" >&6 - -# Is the header present? -echo "$as_me:$LINENO: checking $ac_header presence" >&5 -echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <$ac_header> -_ACEOF -if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 - (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null; then - if test -s conftest.err; then - ac_cpp_err=$ac_c_preproc_warn_flag - ac_cpp_err=$ac_cpp_err$ac_c_werror_flag - else - ac_cpp_err= - fi -else - ac_cpp_err=yes -fi -if test -z "$ac_cpp_err"; then - ac_header_preproc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_header_preproc=no -fi -rm -f conftest.err conftest.$ac_ext -echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 -echo "${ECHO_T}$ac_header_preproc" >&6 - -# So? What about this header? -case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in - yes:no: ) - { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 -echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} - ac_header_preproc=yes - ;; - no:yes:* ) - { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 -echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 -echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 -echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 -echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 -echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} - ( - cat <<\_ASBOX -## ---------------------------------- ## -## Report this to http://bugs.gw.com/ ## -## ---------------------------------- ## -_ASBOX - ) | - sed "s/^/$as_me: WARNING: /" >&2 - ;; -esac -echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - eval "$as_ac_Header=\$ac_header_preproc" -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 - -fi -if test `eval echo '${'$as_ac_Header'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 -_ACEOF - -fi - -done - -fi - -done - - - - - - -ac_header_dirent=no -for ac_hdr in dirent.h sys/ndir.h sys/dir.h ndir.h; do - as_ac_Header=`echo "ac_cv_header_dirent_$ac_hdr" | $as_tr_sh` -echo "$as_me:$LINENO: checking for $ac_hdr that defines DIR" >&5 -echo $ECHO_N "checking for $ac_hdr that defines DIR... $ECHO_C" >&6 -if eval "test \"\${$as_ac_Header+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#include <$ac_hdr> - -int -main () -{ -if ((DIR *) 0) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - eval "$as_ac_Header=yes" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -eval "$as_ac_Header=no" -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 -if test `eval echo '${'$as_ac_Header'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_hdr" | $as_tr_cpp` 1 -_ACEOF - -ac_header_dirent=$ac_hdr; break -fi - -done -# Two versions of opendir et al. are in -ldir and -lx on SCO Xenix. -if test $ac_header_dirent = dirent.h; then - echo "$as_me:$LINENO: checking for library containing opendir" >&5 -echo $ECHO_N "checking for library containing opendir... $ECHO_C" >&6 -if test "${ac_cv_search_opendir+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_func_search_save_LIBS=$LIBS -ac_cv_search_opendir=no -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char opendir (); -int -main () -{ -opendir (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_opendir="none required" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test "$ac_cv_search_opendir" = no; then - for ac_lib in dir; do - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char opendir (); -int -main () -{ -opendir (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_opendir="-l$ac_lib" -break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - done -fi -LIBS=$ac_func_search_save_LIBS -fi -echo "$as_me:$LINENO: result: $ac_cv_search_opendir" >&5 -echo "${ECHO_T}$ac_cv_search_opendir" >&6 -if test "$ac_cv_search_opendir" != no; then - test "$ac_cv_search_opendir" = "none required" || LIBS="$ac_cv_search_opendir $LIBS" - -fi - -else - echo "$as_me:$LINENO: checking for library containing opendir" >&5 -echo $ECHO_N "checking for library containing opendir... $ECHO_C" >&6 -if test "${ac_cv_search_opendir+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_func_search_save_LIBS=$LIBS -ac_cv_search_opendir=no -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char opendir (); -int -main () -{ -opendir (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_opendir="none required" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test "$ac_cv_search_opendir" = no; then - for ac_lib in x; do - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char opendir (); -int -main () -{ -opendir (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_search_opendir="-l$ac_lib" -break -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext - done -fi -LIBS=$ac_func_search_save_LIBS -fi -echo "$as_me:$LINENO: result: $ac_cv_search_opendir" >&5 -echo "${ECHO_T}$ac_cv_search_opendir" >&6 -if test "$ac_cv_search_opendir" != no; then - test "$ac_cv_search_opendir" = "none required" || LIBS="$ac_cv_search_opendir $LIBS" - -fi - -fi - -echo "$as_me:$LINENO: checking whether stat file-mode macros are broken" >&5 -echo $ECHO_N "checking whether stat file-mode macros are broken... $ECHO_C" >&6 -if test "${ac_cv_header_stat_broken+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#include <sys/stat.h> - -#if defined(S_ISBLK) && defined(S_IFDIR) -# if S_ISBLK (S_IFDIR) -You lose. -# endif -#endif - -#if defined(S_ISBLK) && defined(S_IFCHR) -# if S_ISBLK (S_IFCHR) -You lose. -# endif -#endif - -#if defined(S_ISLNK) && defined(S_IFREG) -# if S_ISLNK (S_IFREG) -You lose. -# endif -#endif - -#if defined(S_ISSOCK) && defined(S_IFREG) -# if S_ISSOCK (S_IFREG) -You lose. -# endif -#endif - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "You lose" >/dev/null 2>&1; then - ac_cv_header_stat_broken=yes -else - ac_cv_header_stat_broken=no -fi -rm -f conftest* - -fi -echo "$as_me:$LINENO: result: $ac_cv_header_stat_broken" >&5 -echo "${ECHO_T}$ac_cv_header_stat_broken" >&6 -if test $ac_cv_header_stat_broken = yes; then - -cat >>confdefs.h <<\_ACEOF -#define STAT_MACROS_BROKEN 1 -_ACEOF - -fi - -echo "$as_me:$LINENO: checking for ANSI C header files" >&5 -echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6 -if test "${ac_cv_header_stdc+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdlib.h> -#include <stdarg.h> -#include <string.h> -#include <float.h> - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_header_stdc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_header_stdc=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <string.h> - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "memchr" >/dev/null 2>&1; then - : -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <stdlib.h> - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "free" >/dev/null 2>&1; then - : -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. - if test "$cross_compiling" = yes; then - : -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <ctype.h> -#if ((' ' & 0x0FF) == 0x020) -# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#else -# define ISLOWER(c) \ - (('a' <= (c) && (c) <= 'i') \ - || ('j' <= (c) && (c) <= 'r') \ - || ('s' <= (c) && (c) <= 'z')) -# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) -#endif - -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int -main () -{ - int i; - for (i = 0; i < 256; i++) - if (XOR (islower (i), ISLOWER (i)) - || toupper (i) != TOUPPER (i)) - exit(2); - exit (0); -} -_ACEOF -rm -f conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - : -else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_header_stdc=no -fi -rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext -fi -fi -fi -echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 -echo "${ECHO_T}$ac_cv_header_stdc" >&6 -if test $ac_cv_header_stdc = yes; then - -cat >>confdefs.h <<\_ACEOF -#define STDC_HEADERS 1 -_ACEOF - -fi - - -echo "$as_me:$LINENO: checking for long long" >&5 -echo $ECHO_N "checking for long long... $ECHO_C" >&6 -if test "${ac_cv_type_long_long+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -int -main () -{ -if ((long long *) 0) - return 0; -if (sizeof (long long)) - return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_type_long_long=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_type_long_long=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_type_long_long" >&5 -echo "${ECHO_T}$ac_cv_type_long_long" >&6 -if test $ac_cv_type_long_long = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_LONG_LONG 1 -_ACEOF - - -fi - -echo "$as_me:$LINENO: checking for uid_t in sys/types.h" >&5 -echo $ECHO_N "checking for uid_t in sys/types.h... $ECHO_C" >&6 -if test "${ac_cv_type_uid_t+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "uid_t" >/dev/null 2>&1; then - ac_cv_type_uid_t=yes -else - ac_cv_type_uid_t=no -fi -rm -f conftest* - -fi -echo "$as_me:$LINENO: result: $ac_cv_type_uid_t" >&5 -echo "${ECHO_T}$ac_cv_type_uid_t" >&6 -if test $ac_cv_type_uid_t = no; then - -cat >>confdefs.h <<\_ACEOF -#define uid_t int -_ACEOF - - -cat >>confdefs.h <<\_ACEOF -#define gid_t int -_ACEOF - -fi - -echo "$as_me:$LINENO: checking type of array argument to getgroups" >&5 -echo $ECHO_N "checking type of array argument to getgroups... $ECHO_C" >&6 -if test "${ac_cv_type_getgroups+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test "$cross_compiling" = yes; then - ac_cv_type_getgroups=cross -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -/* Thanks to Mike Rendell for this test. */ -#include <sys/types.h> -#define NGID 256 -#undef MAX -#define MAX(x, y) ((x) > (y) ? (x) : (y)) - -int -main () -{ - gid_t gidset[NGID]; - int i, n; - union { gid_t gval; long lval; } val; - - val.lval = -1; - for (i = 0; i < NGID; i++) - gidset[i] = val.gval; - n = getgroups (sizeof (gidset) / MAX (sizeof (int), sizeof (gid_t)) - 1, - gidset); - /* Exit non-zero if getgroups seems to require an array of ints. This - happens when gid_t is short but getgroups modifies an array of ints. */ - exit ((n > 0 && gidset[n] != val.gval) ? 1 : 0); -} -_ACEOF -rm -f conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_type_getgroups=gid_t -else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_type_getgroups=int -fi -rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext -fi -if test $ac_cv_type_getgroups = cross; then - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <unistd.h> - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "getgroups.*int.*gid_t" >/dev/null 2>&1; then - ac_cv_type_getgroups=gid_t -else - ac_cv_type_getgroups=int -fi -rm -f conftest* - -fi -fi -echo "$as_me:$LINENO: result: $ac_cv_type_getgroups" >&5 -echo "${ECHO_T}$ac_cv_type_getgroups" >&6 - -cat >>confdefs.h <<_ACEOF -#define GETGROUPS_T $ac_cv_type_getgroups -_ACEOF - - -echo "$as_me:$LINENO: checking for mode_t" >&5 -echo $ECHO_N "checking for mode_t... $ECHO_C" >&6 -if test "${ac_cv_type_mode_t+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -int -main () -{ -if ((mode_t *) 0) - return 0; -if (sizeof (mode_t)) - return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_type_mode_t=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_type_mode_t=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_type_mode_t" >&5 -echo "${ECHO_T}$ac_cv_type_mode_t" >&6 -if test $ac_cv_type_mode_t = yes; then - : -else - -cat >>confdefs.h <<_ACEOF -#define mode_t int -_ACEOF - -fi - -echo "$as_me:$LINENO: checking for size_t" >&5 -echo $ECHO_N "checking for size_t... $ECHO_C" >&6 -if test "${ac_cv_type_size_t+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -int -main () -{ -if ((size_t *) 0) - return 0; -if (sizeof (size_t)) - return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_type_size_t=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_type_size_t=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_type_size_t" >&5 -echo "${ECHO_T}$ac_cv_type_size_t" >&6 -if test $ac_cv_type_size_t = yes; then - : -else - -cat >>confdefs.h <<_ACEOF -#define size_t unsigned -_ACEOF - -fi - -echo "$as_me:$LINENO: checking for uid_t in sys/types.h" >&5 -echo $ECHO_N "checking for uid_t in sys/types.h... $ECHO_C" >&6 -if test "${ac_cv_type_uid_t+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "uid_t" >/dev/null 2>&1; then - ac_cv_type_uid_t=yes -else - ac_cv_type_uid_t=no -fi -rm -f conftest* - -fi -echo "$as_me:$LINENO: result: $ac_cv_type_uid_t" >&5 -echo "${ECHO_T}$ac_cv_type_uid_t" >&6 -if test $ac_cv_type_uid_t = no; then - -cat >>confdefs.h <<\_ACEOF -#define uid_t int -_ACEOF - - -cat >>confdefs.h <<\_ACEOF -#define gid_t int -_ACEOF - -fi - - - - -echo "$as_me:$LINENO: checking for ssize_t" >&5 -echo $ECHO_N "checking for ssize_t... $ECHO_C" >&6 -if test "${ac_cv_type_ssize_t+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -#include <sys/types.h> - - -int -main () -{ -if ((ssize_t *) 0) - return 0; -if (sizeof (ssize_t)) - return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_type_ssize_t=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_type_ssize_t=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_type_ssize_t" >&5 -echo "${ECHO_T}$ac_cv_type_ssize_t" >&6 -if test $ac_cv_type_ssize_t = yes; then - : -else - -cat >>confdefs.h <<\_ACEOF -#define ssize_t int -_ACEOF - -fi - - - - - -echo "$as_me:$LINENO: checking for socklen_t" >&5 -echo $ECHO_N "checking for socklen_t... $ECHO_C" >&6 -if test "${ac_cv_type_socklen_t+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -#include <sys/types.h> -#include <sys/socket.h> - - -int -main () -{ -if ((socklen_t *) 0) - return 0; -if (sizeof (socklen_t)) - return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_type_socklen_t=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_type_socklen_t=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_type_socklen_t" >&5 -echo "${ECHO_T}$ac_cv_type_socklen_t" >&6 -if test $ac_cv_type_socklen_t = yes; then - : -else - -cat >>confdefs.h <<\_ACEOF -#define socklen_t int -_ACEOF - -fi - - - - -echo "$as_me:$LINENO: checking for struct dirent.d_ino" >&5 -echo $ECHO_N "checking for struct dirent.d_ino... $ECHO_C" >&6 -if test "${ac_cv_member_struct_dirent_d_ino+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#ifdef HAVE_DIRENT_H -# include <dirent.h> -#else -# ifdef HAVE_NDIR_H -# include <ndir.h> -# else -# include <sys/dir.h> -# endif -# define dirent direct -#endif - -int -main () -{ -static struct dirent ac_aggr; -if (ac_aggr.d_ino) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_dirent_d_ino=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#ifdef HAVE_DIRENT_H -# include <dirent.h> -#else -# ifdef HAVE_NDIR_H -# include <ndir.h> -# else -# include <sys/dir.h> -# endif -# define dirent direct -#endif - -int -main () -{ -static struct dirent ac_aggr; -if (sizeof ac_aggr.d_ino) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_dirent_d_ino=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_member_struct_dirent_d_ino=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_member_struct_dirent_d_ino" >&5 -echo "${ECHO_T}$ac_cv_member_struct_dirent_d_ino" >&6 -if test $ac_cv_member_struct_dirent_d_ino = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_DIRENT_D_INO 1 -_ACEOF - - -fi - -echo "$as_me:$LINENO: checking for struct utmp.ut_host" >&5 -echo $ECHO_N "checking for struct utmp.ut_host... $ECHO_C" >&6 -if test "${ac_cv_member_struct_utmp_ut_host+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif - -int -main () -{ -static struct utmp ac_aggr; -if (ac_aggr.ut_host) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_utmp_ut_host=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif - -int -main () -{ -static struct utmp ac_aggr; -if (sizeof ac_aggr.ut_host) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_utmp_ut_host=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_member_struct_utmp_ut_host=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_member_struct_utmp_ut_host" >&5 -echo "${ECHO_T}$ac_cv_member_struct_utmp_ut_host" >&6 -if test $ac_cv_member_struct_utmp_ut_host = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_UTMP_UT_HOST 1 -_ACEOF - - -fi -echo "$as_me:$LINENO: checking for struct utmp.ut_user" >&5 -echo $ECHO_N "checking for struct utmp.ut_user... $ECHO_C" >&6 -if test "${ac_cv_member_struct_utmp_ut_user+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif - -int -main () -{ -static struct utmp ac_aggr; -if (ac_aggr.ut_user) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_utmp_ut_user=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif - -int -main () -{ -static struct utmp ac_aggr; -if (sizeof ac_aggr.ut_user) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_utmp_ut_user=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_member_struct_utmp_ut_user=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_member_struct_utmp_ut_user" >&5 -echo "${ECHO_T}$ac_cv_member_struct_utmp_ut_user" >&6 -if test $ac_cv_member_struct_utmp_ut_user = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_UTMP_UT_USER 1 -_ACEOF - - -fi -echo "$as_me:$LINENO: checking for struct utmp.ut_tv" >&5 -echo $ECHO_N "checking for struct utmp.ut_tv... $ECHO_C" >&6 -if test "${ac_cv_member_struct_utmp_ut_tv+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif - -int -main () -{ -static struct utmp ac_aggr; -if (ac_aggr.ut_tv) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_utmp_ut_tv=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif - -int -main () -{ -static struct utmp ac_aggr; -if (sizeof ac_aggr.ut_tv) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_utmp_ut_tv=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_member_struct_utmp_ut_tv=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_member_struct_utmp_ut_tv" >&5 -echo "${ECHO_T}$ac_cv_member_struct_utmp_ut_tv" >&6 -if test $ac_cv_member_struct_utmp_ut_tv = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_UTMP_UT_TV 1 -_ACEOF - - -fi -echo "$as_me:$LINENO: checking for struct utmp.ut_xtime" >&5 -echo $ECHO_N "checking for struct utmp.ut_xtime... $ECHO_C" >&6 -if test "${ac_cv_member_struct_utmp_ut_xtime+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif - -int -main () -{ -static struct utmp ac_aggr; -if (ac_aggr.ut_xtime) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_utmp_ut_xtime=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif - -int -main () -{ -static struct utmp ac_aggr; -if (sizeof ac_aggr.ut_xtime) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_utmp_ut_xtime=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_member_struct_utmp_ut_xtime=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_member_struct_utmp_ut_xtime" >&5 -echo "${ECHO_T}$ac_cv_member_struct_utmp_ut_xtime" >&6 -if test $ac_cv_member_struct_utmp_ut_xtime = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_UTMP_UT_XTIME 1 -_ACEOF - - -fi - -echo "$as_me:$LINENO: checking for struct sockaddr_storage.ss_family" >&5 -echo $ECHO_N "checking for struct sockaddr_storage.ss_family... $ECHO_C" >&6 -if test "${ac_cv_member_struct_sockaddr_storage_ss_family+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#include <sys/socket.h> - -int -main () -{ -static struct sockaddr_storage ac_aggr; -if (ac_aggr.ss_family) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_sockaddr_storage_ss_family=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <sys/types.h> -#include <sys/socket.h> - -int -main () -{ -static struct sockaddr_storage ac_aggr; -if (sizeof ac_aggr.ss_family) -return 0; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_member_struct_sockaddr_storage_ss_family=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_member_struct_sockaddr_storage_ss_family=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_member_struct_sockaddr_storage_ss_family" >&5 -echo "${ECHO_T}$ac_cv_member_struct_sockaddr_storage_ss_family" >&6 -if test $ac_cv_member_struct_sockaddr_storage_ss_family = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY 1 -_ACEOF - - -fi - - -echo "$as_me:$LINENO: checking for an ANSI C-conforming const" >&5 -echo $ECHO_N "checking for an ANSI C-conforming const... $ECHO_C" >&6 -if test "${ac_cv_c_const+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ -/* FIXME: Include the comments suggested by Paul. */ -#ifndef __cplusplus - /* Ultrix mips cc rejects this. */ - typedef int charset[2]; - const charset x; - /* SunOS 4.1.1 cc rejects this. */ - char const *const *ccp; - char **p; - /* NEC SVR4.0.2 mips cc rejects this. */ - struct point {int x, y;}; - static struct point const zero = {0,0}; - /* AIX XL C 1.02.0.0 rejects this. - It does not let you subtract one const X* pointer from another in - an arm of an if-expression whose if-part is not a constant - expression */ - const char *g = "string"; - ccp = &g + (g ? g-g : 0); - /* HPUX 7.0 cc rejects these. */ - ++ccp; - p = (char**) ccp; - ccp = (char const *const *) p; - { /* SCO 3.2v4 cc rejects this. */ - char *t; - char const *s = 0 ? (char *) 0 : (char const *) 0; - - *t++ = 0; - } - { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ - int x[] = {25, 17}; - const int *foo = &x[0]; - ++foo; - } - { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ - typedef const int *iptr; - iptr p = 0; - ++p; - } - { /* AIX XL C 1.02.0.0 rejects this saying - "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ - struct s { int j; const int *ap[3]; }; - struct s *b; b->j = 5; - } - { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ - const int foo = 10; - } -#endif - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_c_const=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_c_const=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_c_const" >&5 -echo "${ECHO_T}$ac_cv_c_const" >&6 -if test $ac_cv_c_const = no; then - -cat >>confdefs.h <<\_ACEOF -#define const -_ACEOF - -fi - -echo "$as_me:$LINENO: checking for working volatile" >&5 -echo $ECHO_N "checking for working volatile... $ECHO_C" >&6 -if test "${ac_cv_c_volatile+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - -volatile int x; -int * volatile y; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_c_volatile=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_c_volatile=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_c_volatile" >&5 -echo "${ECHO_T}$ac_cv_c_volatile" >&6 -if test $ac_cv_c_volatile = no; then - -cat >>confdefs.h <<\_ACEOF -#define volatile -_ACEOF - -fi - - -echo "$as_me:$LINENO: checking whether crypt is declared" >&5 -echo $ECHO_N "checking whether crypt is declared... $ECHO_C" >&6 -if test "${ac_cv_have_decl_crypt+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include "config_p.h" -$ac_includes_default -#ifdef HAVE_CRYPT_H -#include <crypt.h> -#endif - - -int -main () -{ -#ifndef crypt - char *p = (char *) crypt; -#endif - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_have_decl_crypt=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_have_decl_crypt=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_have_decl_crypt" >&5 -echo "${ECHO_T}$ac_cv_have_decl_crypt" >&6 -if test $ac_cv_have_decl_crypt = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_CRYPT 1 -_ACEOF - - -else - cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_CRYPT 0 -_ACEOF - - -fi -echo "$as_me:$LINENO: checking whether environ is declared" >&5 -echo $ECHO_N "checking whether environ is declared... $ECHO_C" >&6 -if test "${ac_cv_have_decl_environ+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include "config_p.h" -$ac_includes_default -#ifdef HAVE_CRYPT_H -#include <crypt.h> -#endif - - -int -main () -{ -#ifndef environ - char *p = (char *) environ; -#endif - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_have_decl_environ=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_have_decl_environ=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_have_decl_environ" >&5 -echo "${ECHO_T}$ac_cv_have_decl_environ" >&6 -if test $ac_cv_have_decl_environ = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_ENVIRON 1 -_ACEOF - - -else - cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_ENVIRON 0 -_ACEOF - - -fi -echo "$as_me:$LINENO: checking whether gethostname is declared" >&5 -echo $ECHO_N "checking whether gethostname is declared... $ECHO_C" >&6 -if test "${ac_cv_have_decl_gethostname+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include "config_p.h" -$ac_includes_default -#ifdef HAVE_CRYPT_H -#include <crypt.h> -#endif - - -int -main () -{ -#ifndef gethostname - char *p = (char *) gethostname; -#endif - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_have_decl_gethostname=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_have_decl_gethostname=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_have_decl_gethostname" >&5 -echo "${ECHO_T}$ac_cv_have_decl_gethostname" >&6 -if test $ac_cv_have_decl_gethostname = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_GETHOSTNAME 1 -_ACEOF - - -else - cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_GETHOSTNAME 0 -_ACEOF - - -fi -echo "$as_me:$LINENO: checking whether getpgrp is declared" >&5 -echo $ECHO_N "checking whether getpgrp is declared... $ECHO_C" >&6 -if test "${ac_cv_have_decl_getpgrp+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include "config_p.h" -$ac_includes_default -#ifdef HAVE_CRYPT_H -#include <crypt.h> -#endif - - -int -main () -{ -#ifndef getpgrp - char *p = (char *) getpgrp; -#endif - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_have_decl_getpgrp=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_have_decl_getpgrp=no -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_have_decl_getpgrp" >&5 -echo "${ECHO_T}$ac_cv_have_decl_getpgrp" >&6 -if test $ac_cv_have_decl_getpgrp = yes; then - -cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_GETPGRP 1 -_ACEOF - - -else - cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_GETPGRP 0 -_ACEOF - - -fi - - -echo "$as_me:$LINENO: checking for setlocale" >&5 -echo $ECHO_N "checking for setlocale... $ECHO_C" >&6 -if test "${ac_cv_func_setlocale+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -/* Define setlocale to an innocuous variant, in case <limits.h> declares setlocale. - For example, HP-UX 11i <limits.h> declares gettimeofday. */ -#define setlocale innocuous_setlocale - -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char setlocale (); below. - Prefer <limits.h> to <assert.h> if __STDC__ is defined, since - <limits.h> exists even on freestanding compilers. */ - -#ifdef __STDC__ -# include <limits.h> -#else -# include <assert.h> -#endif - -#undef setlocale - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -{ -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char setlocale (); -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_setlocale) || defined (__stub___setlocale) -choke me -#else -char (*f) () = setlocale; -#endif -#ifdef __cplusplus -} -#endif - -int -main () -{ -return f != setlocale; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_func_setlocale=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_func_setlocale=no -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_func_setlocale" >&5 -echo "${ECHO_T}$ac_cv_func_setlocale" >&6 -if test $ac_cv_func_setlocale = yes; then - have_setlocale=yes -else - have_setlocale=no -fi - - - - - - - - - - - - - - - - - - - -for ac_func in catgets dup2 getauthid getcwd gethostname getpwent getutent memmove memset nice nl_langinfo sbrk setpgid setpriority strerror strstr sysconf wcwidth -do -as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` -echo "$as_me:$LINENO: checking for $ac_func" >&5 -echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 -if eval "test \"\${$as_ac_var+set}\" = set"; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -/* Define $ac_func to an innocuous variant, in case <limits.h> declares $ac_func. - For example, HP-UX 11i <limits.h> declares gettimeofday. */ -#define $ac_func innocuous_$ac_func - -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func (); below. - Prefer <limits.h> to <assert.h> if __STDC__ is defined, since - <limits.h> exists even on freestanding compilers. */ - -#ifdef __STDC__ -# include <limits.h> -#else -# include <assert.h> -#endif - -#undef $ac_func - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -{ -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char $ac_func (); -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) -choke me -#else -char (*f) () = $ac_func; -#endif -#ifdef __cplusplus -} -#endif - -int -main () -{ -return f != $ac_func; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - eval "$as_ac_var=yes" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -eval "$as_ac_var=no" -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 -if test `eval echo '${'$as_ac_var'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 -_ACEOF - -fi -done - -echo "$as_me:$LINENO: checking whether getpgrp requires zero arguments" >&5 -echo $ECHO_N "checking whether getpgrp requires zero arguments... $ECHO_C" >&6 -if test "${ac_cv_func_getpgrp_void+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - # Use it with a single arg. -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -int -main () -{ -getpgrp (0); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 - (eval $ac_compile) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest.$ac_objext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_func_getpgrp_void=no -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_func_getpgrp_void=yes -fi -rm -f conftest.err conftest.$ac_objext conftest.$ac_ext - -fi -echo "$as_me:$LINENO: result: $ac_cv_func_getpgrp_void" >&5 -echo "${ECHO_T}$ac_cv_func_getpgrp_void" >&6 -if test $ac_cv_func_getpgrp_void = yes; then - -cat >>confdefs.h <<\_ACEOF -#define GETPGRP_VOID 1 -_ACEOF - -fi - - - echo "$as_me:$LINENO: checking whether mbrtowc and mbstate_t are properly declared" >&5 -echo $ECHO_N "checking whether mbrtowc and mbstate_t are properly declared... $ECHO_C" >&6 -if test "${ac_cv_func_mbrtowc+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <wchar.h> -int -main () -{ -mbstate_t state; return ! (sizeof state && mbrtowc); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_func_mbrtowc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_func_mbrtowc=no -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_func_mbrtowc" >&5 -echo "${ECHO_T}$ac_cv_func_mbrtowc" >&6 - if test $ac_cv_func_mbrtowc = yes; then - -cat >>confdefs.h <<\_ACEOF -#define HAVE_MBRTOWC 1 -_ACEOF - - fi - -echo "$as_me:$LINENO: checking whether setpgrp takes no argument" >&5 -echo $ECHO_N "checking whether setpgrp takes no argument... $ECHO_C" >&6 -if test "${ac_cv_func_setpgrp_void+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test "$cross_compiling" = yes; then - { { echo "$as_me:$LINENO: error: cannot check setpgrp when cross compiling" >&5 -echo "$as_me: error: cannot check setpgrp when cross compiling" >&2;} - { (exit 1); exit 1; }; } -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#if HAVE_UNISTD_H -# include <unistd.h> -#endif - -int -main () -{ -/* If this system has a BSD-style setpgrp which takes arguments, - setpgrp(1, 1) will fail with ESRCH and return -1, in that case - exit successfully. */ - exit (setpgrp (1,1) == -1 ? 0 : 1); - ; - return 0; -} -_ACEOF -rm -f conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_func_setpgrp_void=no -else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_func_setpgrp_void=yes -fi -rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext -fi -fi -echo "$as_me:$LINENO: result: $ac_cv_func_setpgrp_void" >&5 -echo "${ECHO_T}$ac_cv_func_setpgrp_void" >&6 -if test $ac_cv_func_setpgrp_void = yes; then - -cat >>confdefs.h <<\_ACEOF -#define SETPGRP_VOID 1 -_ACEOF - -fi - -echo "$as_me:$LINENO: checking for working strcoll" >&5 -echo $ECHO_N "checking for working strcoll... $ECHO_C" >&6 -if test "${ac_cv_func_strcoll_works+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test "$cross_compiling" = yes; then - ac_cv_func_strcoll_works=no -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -int -main () -{ -exit (strcoll ("abc", "def") >= 0 || - strcoll ("ABC", "DEF") >= 0 || - strcoll ("123", "456") >= 0) - ; - return 0; -} -_ACEOF -rm -f conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_func_strcoll_works=yes -else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_func_strcoll_works=no -fi -rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext -fi -fi -echo "$as_me:$LINENO: result: $ac_cv_func_strcoll_works" >&5 -echo "${ECHO_T}$ac_cv_func_strcoll_works" >&6 -if test $ac_cv_func_strcoll_works = yes; then - -cat >>confdefs.h <<\_ACEOF -#define HAVE_STRCOLL 1 -_ACEOF - -fi - - - - - -if test "$have_setlocale" != no; then - # Check whether --enable-nls or --disable-nls was given. -if test "${enable_nls+set}" = set; then - enableval="$enable_nls" - -else - enable_nls=yes -fi; - if test "x$enable_nls" != xno; then - -cat >>confdefs.h <<\_ACEOF -#define NLS 1 -_ACEOF - - fi -fi - - -# Check whether --with-hesiod or --without-hesiod was given. -if test "${with_hesiod+set}" = set; then - withval="$with_hesiod" - hesiod="$withval" -else - hesiod=no -fi; -if test "$hesiod" != no; then - HESLIB="-lhesiod" - echo "$as_me:$LINENO: checking for res_send" >&5 -echo $ECHO_N "checking for res_send... $ECHO_C" >&6 -if test "${ac_cv_func_res_send+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -/* Define res_send to an innocuous variant, in case <limits.h> declares res_send. - For example, HP-UX 11i <limits.h> declares gettimeofday. */ -#define res_send innocuous_res_send - -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char res_send (); below. - Prefer <limits.h> to <assert.h> if __STDC__ is defined, since - <limits.h> exists even on freestanding compilers. */ - -#ifdef __STDC__ -# include <limits.h> -#else -# include <assert.h> -#endif - -#undef res_send - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -{ -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char res_send (); -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined (__stub_res_send) || defined (__stub___res_send) -choke me -#else -char (*f) () = res_send; -#endif -#ifdef __cplusplus -} -#endif - -int -main () -{ -return f != res_send; - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_func_res_send=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_func_res_send=no -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -fi -echo "$as_me:$LINENO: result: $ac_cv_func_res_send" >&5 -echo "${ECHO_T}$ac_cv_func_res_send" >&6 -if test $ac_cv_func_res_send = yes; then - : -else - echo "$as_me:$LINENO: checking for res_send in -lresolv" >&5 -echo $ECHO_N "checking for res_send in -lresolv... $ECHO_C" >&6 -if test "${ac_cv_lib_resolv_res_send+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lresolv $LIBS" -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -/* Override any gcc2 internal prototype to avoid an error. */ -#ifdef __cplusplus -extern "C" -#endif -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char res_send (); -int -main () -{ -res_send (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && - { ac_try='test -z "$ac_c_werror_flag" - || test ! -s conftest.err' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; } && - { ac_try='test -s conftest$ac_exeext' - { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 - (eval $ac_try) 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - ac_cv_lib_resolv_res_send=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -ac_cv_lib_resolv_res_send=no -fi -rm -f conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -echo "$as_me:$LINENO: result: $ac_cv_lib_resolv_res_send" >&5 -echo "${ECHO_T}$ac_cv_lib_resolv_res_send" >&6 -if test $ac_cv_lib_resolv_res_send = yes; then - HESLIB="$HESLIB -lresolv" -fi - -fi - - HESDEF=-DHESIOD - if test "$hesiod" != yes; then - HESDEF="$HESDEF -I$hesiod/include" - HESLIB="-L$hesiod/lib $HESLIB" - fi -fi - - - - ac_config_files="$ac_config_files Makefile" - -cat >confcache <<\_ACEOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs, see configure's option --config-cache. -# It is not useful on other systems. If it contains results you don't -# want to keep, you may remove or edit it. -# -# config.status only pays attention to the cache file if you give it -# the --recheck option to rerun configure. -# -# `ac_cv_env_foo' variables (set or unset) will be overridden when -# loading this file, other *unset* `ac_cv_foo' will be assigned the -# following values. - -_ACEOF - -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, don't put newlines in cache variables' values. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -{ - (set) 2>&1 | - case `(ac_space=' '; set | grep ac_space) 2>&1` in - *ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote - # substitution turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - "s/'/'\\\\''/g; - s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" - ;; - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n \ - "s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1=\\2/p" - ;; - esac; -} | - sed ' - t clear - : clear - s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ - t end - /^ac_cv_env/!s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ - : end' >>confcache -if diff $cache_file confcache >/dev/null 2>&1; then :; else - if test -w $cache_file; then - test "x$cache_file" != "x/dev/null" && echo "updating cache $cache_file" - cat confcache >$cache_file - else - echo "not updating unwritable cache $cache_file" - fi -fi -rm -f confcache - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -# VPATH may cause trouble with some makes, so we remove $(srcdir), -# ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and -# trailing colons and then remove the whole line if VPATH becomes empty -# (actually we leave an empty line to preserve line numbers). -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=/{ -s/:*\$(srcdir):*/:/; -s/:*\${srcdir}:*/:/; -s/:*@srcdir@:*/:/; -s/^\([^=]*=[ ]*\):*/\1/; -s/:*$//; -s/^[^=]*=[ ]*$//; -}' -fi - -DEFS=-DHAVE_CONFIG_H - -ac_libobjs= -ac_ltlibobjs= -for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue - # 1. Remove the extension, and $U if already installed. - ac_i=`echo "$ac_i" | - sed 's/\$U\././;s/\.o$//;s/\.obj$//'` - # 2. Add them. - ac_libobjs="$ac_libobjs $ac_i\$U.$ac_objext" - ac_ltlibobjs="$ac_ltlibobjs $ac_i"'$U.lo' -done -LIBOBJS=$ac_libobjs - -LTLIBOBJS=$ac_ltlibobjs - - - -: ${CONFIG_STATUS=./config.status} -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files $CONFIG_STATUS" -{ echo "$as_me:$LINENO: creating $CONFIG_STATUS" >&5 -echo "$as_me: creating $CONFIG_STATUS" >&6;} -cat >$CONFIG_STATUS <<_ACEOF -#! $SHELL -# Generated by $as_me. -# Run this file to recreate the current configuration. -# Compiler output produced by configure, useful for debugging -# configure, is in config.log if it exists. - -debug=false -ac_cs_recheck=false -ac_cs_silent=false -SHELL=\${CONFIG_SHELL-$SHELL} -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF -## --------------------- ## -## M4sh Initialization. ## -## --------------------- ## - -# Be Bourne compatible -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' -elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then - set -o posix -fi -DUALCASE=1; export DUALCASE # for MKS sh - -# Support unset when possible. -if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then - as_unset=unset -else - as_unset=false -fi - - -# Work around bugs in pre-3.0 UWIN ksh. -$as_unset ENV MAIL MAILPATH -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -for as_var in \ - LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ - LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ - LC_TELEPHONE LC_TIME -do - if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then - eval $as_var=C; export $as_var - else - $as_unset $as_var - fi -done - -# Required to use basename. -if expr a : '\(a\)' >/dev/null 2>&1; then - as_expr=expr -else - as_expr=false -fi - -if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - - -# Name of the executable. -as_me=`$as_basename "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)$' \| \ - . : '\(.\)' 2>/dev/null || -echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } - /^X\/\(\/\/\)$/{ s//\1/; q; } - /^X\/\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - - -# PATH needs CR, and LINENO needs CR and PATH. -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - echo "#! /bin/sh" >conf$$.sh - echo "exit 0" >>conf$$.sh - chmod +x conf$$.sh - if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then - PATH_SEPARATOR=';' - else - PATH_SEPARATOR=: - fi - rm -f conf$$.sh -fi - - - as_lineno_1=$LINENO - as_lineno_2=$LINENO - as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x$as_lineno_3" = "x$as_lineno_2" || { - # Find who we are. Look in the path if we contain no path at all - # relative or not. - case $0 in - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break -done - - ;; - esac - # We did not find ourselves, most probably we were run as `sh COMMAND' - # in which case we are not to be found in the path. - if test "x$as_myself" = x; then - as_myself=$0 - fi - if test ! -f "$as_myself"; then - { { echo "$as_me:$LINENO: error: cannot find myself; rerun with an absolute path" >&5 -echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2;} - { (exit 1); exit 1; }; } - fi - case $CONFIG_SHELL in - '') - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for as_base in sh bash ksh sh5; do - case $as_dir in - /*) - if ("$as_dir/$as_base" -c ' - as_lineno_1=$LINENO - as_lineno_2=$LINENO - as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then - $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } - $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } - CONFIG_SHELL=$as_dir/$as_base - export CONFIG_SHELL - exec "$CONFIG_SHELL" "$0" ${1+"$@"} - fi;; - esac - done -done -;; - esac - - # Create $as_me.lineno as a copy of $as_myself, but with $LINENO - # uniformly replaced by the line number. The first 'sed' inserts a - # line-number line before each line; the second 'sed' does the real - # work. The second script uses 'N' to pair each line-number line - # with the numbered line, and appends trailing '-' during - # substitution so that $LINENO is not a special case at line end. - # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the - # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) - sed '=' <$as_myself | - sed ' - N - s,$,-, - : loop - s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, - t loop - s,-$,, - s,^['$as_cr_digits']*\n,, - ' >$as_me.lineno && - chmod +x $as_me.lineno || - { { echo "$as_me:$LINENO: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&5 -echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2;} - { (exit 1); exit 1; }; } - - # Don't try to exec as it changes $[0], causing all sort of problems - # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensible to this). - . ./$as_me.lineno - # Exit status is that of the last command. - exit -} - - -case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in - *c*,-n*) ECHO_N= ECHO_C=' -' ECHO_T=' ' ;; - *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; - *) ECHO_N= ECHO_C='\c' ECHO_T= ;; -esac - -if expr a : '\(a\)' >/dev/null 2>&1; then - as_expr=expr -else - as_expr=false -fi - -rm -f conf$$ conf$$.exe conf$$.file -echo >conf$$.file -if ln -s conf$$.file conf$$ 2>/dev/null; then - # We could just check for DJGPP; but this test a) works b) is more generic - # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). - if test -f conf$$.exe; then - # Don't use ln at all; we don't have any links - as_ln_s='cp -p' - else - as_ln_s='ln -s' - fi -elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln -else - as_ln_s='cp -p' -fi -rm -f conf$$ conf$$.exe conf$$.file - -if mkdir -p . 2>/dev/null; then - as_mkdir_p=: -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - -as_executable_p="test -f" - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - -# IFS -# We need space, tab and new line, in precisely that order. -as_nl=' -' -IFS=" $as_nl" - -# CDPATH. -$as_unset CDPATH - -exec 6>&1 - -# Open the log real soon, to keep \$[0] and so on meaningful, and to -# report actual input values of CONFIG_FILES etc. instead of their -# values after options handling. Logging --version etc. is OK. -exec 5>>config.log -{ - echo - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## Running $as_me. ## -_ASBOX -} >&5 -cat >&5 <<_CSEOF - -This file was extended by tcsh $as_me 6.15.00, which was -generated by GNU Autoconf 2.59. Invocation command line was - - CONFIG_FILES = $CONFIG_FILES - CONFIG_HEADERS = $CONFIG_HEADERS - CONFIG_LINKS = $CONFIG_LINKS - CONFIG_COMMANDS = $CONFIG_COMMANDS - $ $0 $@ - -_CSEOF -echo "on `(hostname || uname -n) 2>/dev/null | sed 1q`" >&5 -echo >&5 -_ACEOF - -# Files that config.status was made for. -if test -n "$ac_config_files"; then - echo "config_files=\"$ac_config_files\"" >>$CONFIG_STATUS -fi - -if test -n "$ac_config_headers"; then - echo "config_headers=\"$ac_config_headers\"" >>$CONFIG_STATUS -fi - -if test -n "$ac_config_links"; then - echo "config_links=\"$ac_config_links\"" >>$CONFIG_STATUS -fi - -if test -n "$ac_config_commands"; then - echo "config_commands=\"$ac_config_commands\"" >>$CONFIG_STATUS -fi - -cat >>$CONFIG_STATUS <<\_ACEOF - -ac_cs_usage="\ -\`$as_me' instantiates files from templates according to the -current configuration. - -Usage: $0 [OPTIONS] [FILE]... - - -h, --help print this help, then exit - -V, --version print version number, then exit - -q, --quiet do not print progress messages - -d, --debug don't remove temporary files - --recheck update $as_me by reconfiguring in the same conditions - --file=FILE[:TEMPLATE] - instantiate the configuration file FILE - --header=FILE[:TEMPLATE] - instantiate the configuration header FILE - -Configuration files: -$config_files - -Configuration headers: -$config_headers - -Configuration commands: -$config_commands - -Report bugs to <bug-autoconf@gnu.org>." -_ACEOF - -cat >>$CONFIG_STATUS <<_ACEOF -ac_cs_version="\\ -tcsh config.status 6.15.00 -configured by $0, generated by GNU Autoconf 2.59, - with options \\"`echo "$ac_configure_args" | sed 's/[\\""\`\$]/\\\\&/g'`\\" - -Copyright (C) 2003 Free Software Foundation, Inc. -This config.status script is free software; the Free Software Foundation -gives unlimited permission to copy, distribute and modify it." -srcdir=$srcdir -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF -# If no file are specified by the user, then we need to provide default -# value. By we need to know if files were specified by the user. -ac_need_defaults=: -while test $# != 0 -do - case $1 in - --*=*) - ac_option=`expr "x$1" : 'x\([^=]*\)='` - ac_optarg=`expr "x$1" : 'x[^=]*=\(.*\)'` - ac_shift=: - ;; - -*) - ac_option=$1 - ac_optarg=$2 - ac_shift=shift - ;; - *) # This is not an option, so the user has probably given explicit - # arguments. - ac_option=$1 - ac_need_defaults=false;; - esac - - case $ac_option in - # Handling of the options. -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - ac_cs_recheck=: ;; - --version | --vers* | -V ) - echo "$ac_cs_version"; exit 0 ;; - --he | --h) - # Conflict between --help and --header - { { echo "$as_me:$LINENO: error: ambiguous option: $1 -Try \`$0 --help' for more information." >&5 -echo "$as_me: error: ambiguous option: $1 -Try \`$0 --help' for more information." >&2;} - { (exit 1); exit 1; }; };; - --help | --hel | -h ) - echo "$ac_cs_usage"; exit 0 ;; - --debug | --d* | -d ) - debug=: ;; - --file | --fil | --fi | --f ) - $ac_shift - CONFIG_FILES="$CONFIG_FILES $ac_optarg" - ac_need_defaults=false;; - --header | --heade | --head | --hea ) - $ac_shift - CONFIG_HEADERS="$CONFIG_HEADERS $ac_optarg" - ac_need_defaults=false;; - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil | --si | --s) - ac_cs_silent=: ;; - - # This is an error. - -*) { { echo "$as_me:$LINENO: error: unrecognized option: $1 -Try \`$0 --help' for more information." >&5 -echo "$as_me: error: unrecognized option: $1 -Try \`$0 --help' for more information." >&2;} - { (exit 1); exit 1; }; } ;; - - *) ac_config_targets="$ac_config_targets $1" ;; - - esac - shift -done - -ac_configure_extra_args= - -if $ac_cs_silent; then - exec 6>/dev/null - ac_configure_extra_args="$ac_configure_extra_args --silent" -fi - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF -if \$ac_cs_recheck; then - echo "running $SHELL $0 " $ac_configure_args \$ac_configure_extra_args " --no-create --no-recursion" >&6 - exec $SHELL $0 $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion -fi - -_ACEOF - - - - - -cat >>$CONFIG_STATUS <<\_ACEOF -for ac_config_target in $ac_config_targets -do - case "$ac_config_target" in - # Handling of arguments. - "Makefile" ) CONFIG_FILES="$CONFIG_FILES Makefile" ;; - "./atconfig" ) CONFIG_COMMANDS="$CONFIG_COMMANDS ./atconfig" ;; - "config.h" ) CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; - *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 -echo "$as_me: error: invalid argument: $ac_config_target" >&2;} - { (exit 1); exit 1; }; };; - esac -done - -# If the user did not use the arguments to specify the items to instantiate, -# then the envvar interface is used. Set only those that are not. -# We use the long form for the default assignment because of an extremely -# bizarre bug on SunOS 4.1.3. -if $ac_need_defaults; then - test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files - test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers - test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands -fi - -# Have a temporary directory for convenience. Make it in the build tree -# simply because there is no reason to put it here, and in addition, -# creating and moving files from /tmp can sometimes cause problems. -# Create a temporary directory, and hook for its removal unless debugging. -$debug || -{ - trap 'exit_status=$?; rm -rf $tmp && exit $exit_status' 0 - trap '{ (exit 1); exit 1; }' 1 2 13 15 -} - -# Create a (secure) tmp directory for tmp files. - -{ - tmp=`(umask 077 && mktemp -d -q "./confstatXXXXXX") 2>/dev/null` && - test -n "$tmp" && test -d "$tmp" -} || -{ - tmp=./confstat$$-$RANDOM - (umask 077 && mkdir $tmp) -} || -{ - echo "$me: cannot create a temporary directory in ." >&2 - { (exit 1); exit 1; } -} - -_ACEOF - -cat >>$CONFIG_STATUS <<_ACEOF - -# -# CONFIG_FILES section. -# - -# No need to generate the scripts if there are no CONFIG_FILES. -# This happens for instance when ./config.status config.h -if test -n "\$CONFIG_FILES"; then - # Protect against being on the right side of a sed subst in config.status. - sed 's/,@/@@/; s/@,/@@/; s/,;t t\$/@;t t/; /@;t t\$/s/[\\\\&,]/\\\\&/g; - s/@@/,@/; s/@@/@,/; s/@;t t\$/,;t t/' >\$tmp/subs.sed <<\\CEOF -s,@SHELL@,$SHELL,;t t -s,@PATH_SEPARATOR@,$PATH_SEPARATOR,;t t -s,@PACKAGE_NAME@,$PACKAGE_NAME,;t t -s,@PACKAGE_TARNAME@,$PACKAGE_TARNAME,;t t -s,@PACKAGE_VERSION@,$PACKAGE_VERSION,;t t -s,@PACKAGE_STRING@,$PACKAGE_STRING,;t t -s,@PACKAGE_BUGREPORT@,$PACKAGE_BUGREPORT,;t t -s,@exec_prefix@,$exec_prefix,;t t -s,@prefix@,$prefix,;t t -s,@program_transform_name@,$program_transform_name,;t t -s,@bindir@,$bindir,;t t -s,@sbindir@,$sbindir,;t t -s,@libexecdir@,$libexecdir,;t t -s,@datadir@,$datadir,;t t -s,@sysconfdir@,$sysconfdir,;t t -s,@sharedstatedir@,$sharedstatedir,;t t -s,@localstatedir@,$localstatedir,;t t -s,@libdir@,$libdir,;t t -s,@includedir@,$includedir,;t t -s,@oldincludedir@,$oldincludedir,;t t -s,@infodir@,$infodir,;t t -s,@mandir@,$mandir,;t t -s,@build_alias@,$build_alias,;t t -s,@host_alias@,$host_alias,;t t -s,@target_alias@,$target_alias,;t t -s,@DEFS@,$DEFS,;t t -s,@ECHO_C@,$ECHO_C,;t t -s,@ECHO_N@,$ECHO_N,;t t -s,@ECHO_T@,$ECHO_T,;t t -s,@LIBS@,$LIBS,;t t -s,@build@,$build,;t t -s,@build_cpu@,$build_cpu,;t t -s,@build_vendor@,$build_vendor,;t t -s,@build_os@,$build_os,;t t -s,@host@,$host,;t t -s,@host_cpu@,$host_cpu,;t t -s,@host_vendor@,$host_vendor,;t t -s,@host_os@,$host_os,;t t -s,@CC@,$CC,;t t -s,@CFLAGS@,$CFLAGS,;t t -s,@LDFLAGS@,$LDFLAGS,;t t -s,@CPPFLAGS@,$CPPFLAGS,;t t -s,@ac_ct_CC@,$ac_ct_CC,;t t -s,@EXEEXT@,$EXEEXT,;t t -s,@OBJEXT@,$OBJEXT,;t t -s,@CPP@,$CPP,;t t -s,@EGREP@,$EGREP,;t t -s,@LIBICONV@,$LIBICONV,;t t -s,@LTLIBICONV@,$LTLIBICONV,;t t -s,@DFLAGS@,$DFLAGS,;t t -s,@HESDEF@,$HESDEF,;t t -s,@HESLIB@,$HESLIB,;t t -s,@LIBOBJS@,$LIBOBJS,;t t -s,@LTLIBOBJS@,$LTLIBOBJS,;t t -CEOF - -_ACEOF - - cat >>$CONFIG_STATUS <<\_ACEOF - # Split the substitutions into bite-sized pieces for seds with - # small command number limits, like on Digital OSF/1 and HP-UX. - ac_max_sed_lines=48 - ac_sed_frag=1 # Number of current file. - ac_beg=1 # First line for current file. - ac_end=$ac_max_sed_lines # Line after last line for current file. - ac_more_lines=: - ac_sed_cmds= - while $ac_more_lines; do - if test $ac_beg -gt 1; then - sed "1,${ac_beg}d; ${ac_end}q" $tmp/subs.sed >$tmp/subs.frag - else - sed "${ac_end}q" $tmp/subs.sed >$tmp/subs.frag - fi - if test ! -s $tmp/subs.frag; then - ac_more_lines=false - else - # The purpose of the label and of the branching condition is to - # speed up the sed processing (if there are no `@' at all, there - # is no need to browse any of the substitutions). - # These are the two extra sed commands mentioned above. - (echo ':t - /@[a-zA-Z_][a-zA-Z_0-9]*@/!b' && cat $tmp/subs.frag) >$tmp/subs-$ac_sed_frag.sed - if test -z "$ac_sed_cmds"; then - ac_sed_cmds="sed -f $tmp/subs-$ac_sed_frag.sed" - else - ac_sed_cmds="$ac_sed_cmds | sed -f $tmp/subs-$ac_sed_frag.sed" - fi - ac_sed_frag=`expr $ac_sed_frag + 1` - ac_beg=$ac_end - ac_end=`expr $ac_end + $ac_max_sed_lines` - fi - done - if test -z "$ac_sed_cmds"; then - ac_sed_cmds=cat - fi -fi # test -n "$CONFIG_FILES" - -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF -for ac_file in : $CONFIG_FILES; do test "x$ac_file" = x: && continue - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case $ac_file in - - | *:- | *:-:* ) # input from stdin - cat >$tmp/stdin - ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` - ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; - *:* ) ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` - ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; - * ) ac_file_in=$ac_file.in ;; - esac - - # Compute @srcdir@, @top_srcdir@, and @INSTALL@ for subdirectories. - ac_dir=`(dirname "$ac_file") 2>/dev/null || -$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$ac_file" : 'X\(//\)[^/]' \| \ - X"$ac_file" : 'X\(//\)$' \| \ - X"$ac_file" : 'X\(/\)' \| \ - . : '\(.\)' 2>/dev/null || -echo X"$ac_file" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } - /^X\(\/\/\)[^/].*/{ s//\1/; q; } - /^X\(\/\/\)$/{ s//\1/; q; } - /^X\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - { if $as_mkdir_p; then - mkdir -p "$ac_dir" - else - as_dir="$ac_dir" - as_dirs= - while test ! -d "$as_dir"; do - as_dirs="$as_dir $as_dirs" - as_dir=`(dirname "$as_dir") 2>/dev/null || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| \ - . : '\(.\)' 2>/dev/null || -echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } - /^X\(\/\/\)[^/].*/{ s//\1/; q; } - /^X\(\/\/\)$/{ s//\1/; q; } - /^X\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - done - test ! -n "$as_dirs" || mkdir $as_dirs - fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 -echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} - { (exit 1); exit 1; }; }; } - - ac_builddir=. - -if test "$ac_dir" != .; then - ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` - # A "../" for each directory in $ac_dir_suffix. - ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` -else - ac_dir_suffix= ac_top_builddir= -fi - -case $srcdir in - .) # No --srcdir option. We are building in place. - ac_srcdir=. - if test -z "$ac_top_builddir"; then - ac_top_srcdir=. - else - ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` - fi ;; - [\\/]* | ?:[\\/]* ) # Absolute path. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir ;; - *) # Relative path. - ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_builddir$srcdir ;; -esac - -# Do not use `cd foo && pwd` to compute absolute paths, because -# the directories may not exist. -case `pwd` in -.) ac_abs_builddir="$ac_dir";; -*) - case "$ac_dir" in - .) ac_abs_builddir=`pwd`;; - [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; - *) ac_abs_builddir=`pwd`/"$ac_dir";; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_top_builddir=${ac_top_builddir}.;; -*) - case ${ac_top_builddir}. in - .) ac_abs_top_builddir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; - *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_srcdir=$ac_srcdir;; -*) - case $ac_srcdir in - .) ac_abs_srcdir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; - *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_top_srcdir=$ac_top_srcdir;; -*) - case $ac_top_srcdir in - .) ac_abs_top_srcdir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; - *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; - esac;; -esac - - - - if test x"$ac_file" != x-; then - { echo "$as_me:$LINENO: creating $ac_file" >&5 -echo "$as_me: creating $ac_file" >&6;} - rm -f "$ac_file" - fi - # Let's still pretend it is `configure' which instantiates (i.e., don't - # use $as_me), people would be surprised to read: - # /* config.h. Generated by config.status. */ - if test x"$ac_file" = x-; then - configure_input= - else - configure_input="$ac_file. " - fi - configure_input=$configure_input"Generated from `echo $ac_file_in | - sed 's,.*/,,'` by configure." - - # First look for the input files in the build tree, otherwise in the - # src tree. - ac_file_inputs=`IFS=: - for f in $ac_file_in; do - case $f in - -) echo $tmp/stdin ;; - [\\/$]*) - # Absolute (can't be DOS-style, as IFS=:) - test -f "$f" || { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 -echo "$as_me: error: cannot find input file: $f" >&2;} - { (exit 1); exit 1; }; } - echo "$f";; - *) # Relative - if test -f "$f"; then - # Build tree - echo "$f" - elif test -f "$srcdir/$f"; then - # Source tree - echo "$srcdir/$f" - else - # /dev/null tree - { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 -echo "$as_me: error: cannot find input file: $f" >&2;} - { (exit 1); exit 1; }; } - fi;; - esac - done` || { (exit 1); exit 1; } -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF - sed "$ac_vpsub -$extrasub -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF -:t -/@[a-zA-Z_][a-zA-Z_0-9]*@/!b -s,@configure_input@,$configure_input,;t t -s,@srcdir@,$ac_srcdir,;t t -s,@abs_srcdir@,$ac_abs_srcdir,;t t -s,@top_srcdir@,$ac_top_srcdir,;t t -s,@abs_top_srcdir@,$ac_abs_top_srcdir,;t t -s,@builddir@,$ac_builddir,;t t -s,@abs_builddir@,$ac_abs_builddir,;t t -s,@top_builddir@,$ac_top_builddir,;t t -s,@abs_top_builddir@,$ac_abs_top_builddir,;t t -" $ac_file_inputs | (eval "$ac_sed_cmds") >$tmp/out - rm -f $tmp/stdin - if test x"$ac_file" != x-; then - mv $tmp/out $ac_file - else - cat $tmp/out - rm -f $tmp/out - fi - -done -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF - -# -# CONFIG_HEADER section. -# - -# These sed commands are passed to sed as "A NAME B NAME C VALUE D", where -# NAME is the cpp macro being defined and VALUE is the value it is being given. -# -# ac_d sets the value in "#define NAME VALUE" lines. -ac_dA='s,^\([ ]*\)#\([ ]*define[ ][ ]*\)' -ac_dB='[ ].*$,\1#\2' -ac_dC=' ' -ac_dD=',;t' -# ac_u turns "#undef NAME" without trailing blanks into "#define NAME VALUE". -ac_uA='s,^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' -ac_uB='$,\1#\2define\3' -ac_uC=' ' -ac_uD=',;t' - -for ac_file in : $CONFIG_HEADERS; do test "x$ac_file" = x: && continue - # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". - case $ac_file in - - | *:- | *:-:* ) # input from stdin - cat >$tmp/stdin - ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` - ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; - *:* ) ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` - ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; - * ) ac_file_in=$ac_file.in ;; - esac - - test x"$ac_file" != x- && { echo "$as_me:$LINENO: creating $ac_file" >&5 -echo "$as_me: creating $ac_file" >&6;} - - # First look for the input files in the build tree, otherwise in the - # src tree. - ac_file_inputs=`IFS=: - for f in $ac_file_in; do - case $f in - -) echo $tmp/stdin ;; - [\\/$]*) - # Absolute (can't be DOS-style, as IFS=:) - test -f "$f" || { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 -echo "$as_me: error: cannot find input file: $f" >&2;} - { (exit 1); exit 1; }; } - # Do quote $f, to prevent DOS paths from being IFS'd. - echo "$f";; - *) # Relative - if test -f "$f"; then - # Build tree - echo "$f" - elif test -f "$srcdir/$f"; then - # Source tree - echo "$srcdir/$f" - else - # /dev/null tree - { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 -echo "$as_me: error: cannot find input file: $f" >&2;} - { (exit 1); exit 1; }; } - fi;; - esac - done` || { (exit 1); exit 1; } - # Remove the trailing spaces. - sed 's/[ ]*$//' $ac_file_inputs >$tmp/in - -_ACEOF - -# Transform confdefs.h into two sed scripts, `conftest.defines' and -# `conftest.undefs', that substitutes the proper values into -# config.h.in to produce config.h. The first handles `#define' -# templates, and the second `#undef' templates. -# And first: Protect against being on the right side of a sed subst in -# config.status. Protect against being in an unquoted here document -# in config.status. -rm -f conftest.defines conftest.undefs -# Using a here document instead of a string reduces the quoting nightmare. -# Putting comments in sed scripts is not portable. -# -# `end' is used to avoid that the second main sed command (meant for -# 0-ary CPP macros) applies to n-ary macro definitions. -# See the Autoconf documentation for `clear'. -cat >confdef2sed.sed <<\_ACEOF -s/[\\&,]/\\&/g -s,[\\$`],\\&,g -t clear -: clear -s,^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*\)\(([^)]*)\)[ ]*\(.*\)$,${ac_dA}\1${ac_dB}\1\2${ac_dC}\3${ac_dD},gp -t end -s,^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)$,${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD},gp -: end -_ACEOF -# If some macros were called several times there might be several times -# the same #defines, which is useless. Nevertheless, we may not want to -# sort them, since we want the *last* AC-DEFINE to be honored. -uniq confdefs.h | sed -n -f confdef2sed.sed >conftest.defines -sed 's/ac_d/ac_u/g' conftest.defines >conftest.undefs -rm -f confdef2sed.sed - -# This sed command replaces #undef with comments. This is necessary, for -# example, in the case of _POSIX_SOURCE, which is predefined and required -# on some systems where configure will not decide to define it. -cat >>conftest.undefs <<\_ACEOF -s,^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*,/* & */, -_ACEOF - -# Break up conftest.defines because some shells have a limit on the size -# of here documents, and old seds have small limits too (100 cmds). -echo ' # Handle all the #define templates only if necessary.' >>$CONFIG_STATUS -echo ' if grep "^[ ]*#[ ]*define" $tmp/in >/dev/null; then' >>$CONFIG_STATUS -echo ' # If there are no defines, we may have an empty if/fi' >>$CONFIG_STATUS -echo ' :' >>$CONFIG_STATUS -rm -f conftest.tail -while grep . conftest.defines >/dev/null -do - # Write a limited-size here document to $tmp/defines.sed. - echo ' cat >$tmp/defines.sed <<CEOF' >>$CONFIG_STATUS - # Speed up: don't consider the non `#define' lines. - echo '/^[ ]*#[ ]*define/!b' >>$CONFIG_STATUS - # Work around the forget-to-reset-the-flag bug. - echo 't clr' >>$CONFIG_STATUS - echo ': clr' >>$CONFIG_STATUS - sed ${ac_max_here_lines}q conftest.defines >>$CONFIG_STATUS - echo 'CEOF - sed -f $tmp/defines.sed $tmp/in >$tmp/out - rm -f $tmp/in - mv $tmp/out $tmp/in -' >>$CONFIG_STATUS - sed 1,${ac_max_here_lines}d conftest.defines >conftest.tail - rm -f conftest.defines - mv conftest.tail conftest.defines -done -rm -f conftest.defines -echo ' fi # grep' >>$CONFIG_STATUS -echo >>$CONFIG_STATUS - -# Break up conftest.undefs because some shells have a limit on the size -# of here documents, and old seds have small limits too (100 cmds). -echo ' # Handle all the #undef templates' >>$CONFIG_STATUS -rm -f conftest.tail -while grep . conftest.undefs >/dev/null -do - # Write a limited-size here document to $tmp/undefs.sed. - echo ' cat >$tmp/undefs.sed <<CEOF' >>$CONFIG_STATUS - # Speed up: don't consider the non `#undef' - echo '/^[ ]*#[ ]*undef/!b' >>$CONFIG_STATUS - # Work around the forget-to-reset-the-flag bug. - echo 't clr' >>$CONFIG_STATUS - echo ': clr' >>$CONFIG_STATUS - sed ${ac_max_here_lines}q conftest.undefs >>$CONFIG_STATUS - echo 'CEOF - sed -f $tmp/undefs.sed $tmp/in >$tmp/out - rm -f $tmp/in - mv $tmp/out $tmp/in -' >>$CONFIG_STATUS - sed 1,${ac_max_here_lines}d conftest.undefs >conftest.tail - rm -f conftest.undefs - mv conftest.tail conftest.undefs -done -rm -f conftest.undefs - -cat >>$CONFIG_STATUS <<\_ACEOF - # Let's still pretend it is `configure' which instantiates (i.e., don't - # use $as_me), people would be surprised to read: - # /* config.h. Generated by config.status. */ - if test x"$ac_file" = x-; then - echo "/* Generated by configure. */" >$tmp/config.h - else - echo "/* $ac_file. Generated by configure. */" >$tmp/config.h - fi - cat $tmp/in >>$tmp/config.h - rm -f $tmp/in - if test x"$ac_file" != x-; then - if diff $ac_file $tmp/config.h >/dev/null 2>&1; then - { echo "$as_me:$LINENO: $ac_file is unchanged" >&5 -echo "$as_me: $ac_file is unchanged" >&6;} - else - ac_dir=`(dirname "$ac_file") 2>/dev/null || -$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$ac_file" : 'X\(//\)[^/]' \| \ - X"$ac_file" : 'X\(//\)$' \| \ - X"$ac_file" : 'X\(/\)' \| \ - . : '\(.\)' 2>/dev/null || -echo X"$ac_file" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } - /^X\(\/\/\)[^/].*/{ s//\1/; q; } - /^X\(\/\/\)$/{ s//\1/; q; } - /^X\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - { if $as_mkdir_p; then - mkdir -p "$ac_dir" - else - as_dir="$ac_dir" - as_dirs= - while test ! -d "$as_dir"; do - as_dirs="$as_dir $as_dirs" - as_dir=`(dirname "$as_dir") 2>/dev/null || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| \ - . : '\(.\)' 2>/dev/null || -echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } - /^X\(\/\/\)[^/].*/{ s//\1/; q; } - /^X\(\/\/\)$/{ s//\1/; q; } - /^X\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - done - test ! -n "$as_dirs" || mkdir $as_dirs - fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 -echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} - { (exit 1); exit 1; }; }; } - - rm -f $ac_file - mv $tmp/config.h $ac_file - fi - else - cat $tmp/config.h - rm -f $tmp/config.h - fi -done -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF - -# -# CONFIG_COMMANDS section. -# -for ac_file in : $CONFIG_COMMANDS; do test "x$ac_file" = x: && continue - ac_dest=`echo "$ac_file" | sed 's,:.*,,'` - ac_source=`echo "$ac_file" | sed 's,[^:]*:,,'` - ac_dir=`(dirname "$ac_dest") 2>/dev/null || -$as_expr X"$ac_dest" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$ac_dest" : 'X\(//\)[^/]' \| \ - X"$ac_dest" : 'X\(//\)$' \| \ - X"$ac_dest" : 'X\(/\)' \| \ - . : '\(.\)' 2>/dev/null || -echo X"$ac_dest" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } - /^X\(\/\/\)[^/].*/{ s//\1/; q; } - /^X\(\/\/\)$/{ s//\1/; q; } - /^X\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - { if $as_mkdir_p; then - mkdir -p "$ac_dir" - else - as_dir="$ac_dir" - as_dirs= - while test ! -d "$as_dir"; do - as_dirs="$as_dir $as_dirs" - as_dir=`(dirname "$as_dir") 2>/dev/null || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| \ - . : '\(.\)' 2>/dev/null || -echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } - /^X\(\/\/\)[^/].*/{ s//\1/; q; } - /^X\(\/\/\)$/{ s//\1/; q; } - /^X\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - done - test ! -n "$as_dirs" || mkdir $as_dirs - fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 -echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} - { (exit 1); exit 1; }; }; } - - ac_builddir=. - -if test "$ac_dir" != .; then - ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` - # A "../" for each directory in $ac_dir_suffix. - ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` -else - ac_dir_suffix= ac_top_builddir= -fi - -case $srcdir in - .) # No --srcdir option. We are building in place. - ac_srcdir=. - if test -z "$ac_top_builddir"; then - ac_top_srcdir=. - else - ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` - fi ;; - [\\/]* | ?:[\\/]* ) # Absolute path. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir ;; - *) # Relative path. - ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_builddir$srcdir ;; -esac - -# Do not use `cd foo && pwd` to compute absolute paths, because -# the directories may not exist. -case `pwd` in -.) ac_abs_builddir="$ac_dir";; -*) - case "$ac_dir" in - .) ac_abs_builddir=`pwd`;; - [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; - *) ac_abs_builddir=`pwd`/"$ac_dir";; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_top_builddir=${ac_top_builddir}.;; -*) - case ${ac_top_builddir}. in - .) ac_abs_top_builddir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; - *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_srcdir=$ac_srcdir;; -*) - case $ac_srcdir in - .) ac_abs_srcdir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; - *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; - esac;; -esac -case $ac_abs_builddir in -.) ac_abs_top_srcdir=$ac_top_srcdir;; -*) - case $ac_top_srcdir in - .) ac_abs_top_srcdir=$ac_abs_builddir;; - [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; - *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; - esac;; -esac - - - { echo "$as_me:$LINENO: executing $ac_dest commands" >&5 -echo "$as_me: executing $ac_dest commands" >&6;} - case $ac_dest in - ./atconfig ) cat >./atconfig <<ATEOF -# Configurable variable values for building test suites. -# Generated by $0. -# Copyright (C) 2000, 2001, 2003 Free Software Foundation, Inc. - -# The test suite will define top_srcdir=$at_top_srcdir/../.. etc. -at_testdir='.' -abs_builddir='$ac_abs_builddir' -at_srcdir='$ac_srcdir' -abs_srcdir='$ac_abs_srcdir' -at_top_srcdir='$ac_top_srcdir' -abs_top_srcdir='$ac_abs_top_srcdir' -at_top_builddir='$ac_top_builddir' -abs_top_builddir='$ac_abs_top_builddir' - -AUTOTEST_PATH='.' - -SHELL=\${CONFIG_SHELL-'$SHELL'} -ATEOF - ;; - esac -done -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF - -{ (exit 0); exit 0; } -_ACEOF -chmod +x $CONFIG_STATUS -ac_clean_files=$ac_clean_files_save - - -# configure is writing to config.log, and then calls config.status. -# config.status does its own redirection, appending to config.log. -# Unfortunately, on DOS this fails, as config.log is still kept open -# by configure, so config.status won't be able to write to it; its -# output is simply discarded. So we exec the FD to /dev/null, -# effectively closing config.log, so it can be properly (re)opened and -# appended to by config.status. When coming back to configure, we -# need to make the FD available again. -if test "$no_create" != yes; then - ac_cs_success=: - ac_config_status_args= - test "$silent" = yes && - ac_config_status_args="$ac_config_status_args --quiet" - exec 5>/dev/null - $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false - exec 5>>config.log - # Use ||, not &&, to avoid exiting from the if with $? = 1, which - # would make configure fail if this is the last instruction. - $ac_cs_success || { (exit 1); exit 1; } -fi - diff --git a/contrib/tcsh/configure.in b/contrib/tcsh/configure.in deleted file mode 100644 index 604ac71..0000000 --- a/contrib/tcsh/configure.in +++ /dev/null @@ -1,429 +0,0 @@ -dnl Autoconf script for tcsh -dnl To rebuild the `configure' script from this, execute the command -dnl autoconf -dnl in the directory containing this script. -dnl -dnl You'll also need a version of config.guess from a gnu package -dnl -dnl Written by Kaveh Ghazi (ghazi@caip.rutgers.edu) 5/11/96. -dnl - -AC_PREREQ([2.59])dnl Minimum Autoconf version required. -AC_INIT([tcsh], [6.15.00], [http://bugs.gw.com/]) -AC_CONFIG_SRCDIR([tc.vers.c]) -AC_CONFIG_HEADERS([config.h]) -AC_CONFIG_TESTDIR([.], [.]) - -AC_CANONICAL_HOST - -AC_MSG_CHECKING([cached host tuple]) -if { test x"${ac_cv_host_system_type+set}" = x"set" && - test x"$ac_cv_host_system_type" != x"$host"; }; then - AC_MSG_RESULT([different]) - AC_MSG_ERROR([remove config.cache and re-run configure]) -else - AC_MSG_RESULT(ok) -fi -ac_cv_host_system_type="$host" - - -changequote(, )dnl - -case "${host}" in - - ## Alpha (DEC) machines. - alpha*-dec-osf* ) - tcsh_config_file=decosf1 - ;; - - ## Ultrix - *-dec-ultrix* ) - tcsh_config_file=ultrix - ;; - - ## DGUX - *-dg-dguxR4* ) - tcsh_config_file=dgux5.4 - ;; - m88k-dg-dgux5.4R* ) - tcsh_config_file=dgux5.4 - ;; - - ## HP/UX - *-hp-hpux7* ) - tcsh_config_file=hpux7 - ;; - *-hp-hpux[89]* ) - tcsh_config_file=hpux8 - ;; - *-hp-hpux1[0-9]* ) - tcsh_config_file=hpux11 - ;; - - ## IBM AIX systems - *-ibm-aix*) - tcsh_config_file=aix - ;; - - ## SX-4 - sx4-nec-*) - CC='cc -h0,ansi,novector,float0' - LDFLAGS='-Gsmall' - tcsh_config_file=superux8 - ;; - - ## IBM OS/390 systems - *-ibm-os390*) - CC='c89' - tcsh_config_file=os390 - ;; - - ## Linux - *-*-linux* | *-*-gnu* | *-*-k*bsd*-gnu) - tcsh_config_file=linux - ;; - - ## Motorola systems - m68k-motorola-sysv* ) - tcsh_config_file=sysV68 - ;; - m88k-motorola-sysv3* ) - tcsh_config_file=sysV88 - ;; - - ## NetBSD systems - *-*-netbsd*) - tcsh_config_file=bsd4.4 - ;; - - ## FreeBSD systems - *-*-freebsd*) - tcsh_config_file=bsd4.4 - ;; - - ## OpenBSD systems - *-*-openbsd*) - tcsh_config_file=bsd4.4 - ;; - - ## BSDI systems - *-*-bsdi*) - tcsh_config_file=bsd4.4 - ;; - - ## Mac OS X Server - *-*-rhapsody* ) - tcsh_config_file=bsd4.4 - ;; - - ## Mac OS X Server - *-*-darwin* ) - tcsh_config_file=bsd4.4 - ;; - - ## DragonFly systems - *-*-dragonfly*) - tcsh_config_file=bsd4.4 - ;; - - ## Silicon Graphics machines - *-sgi-iri* ) - tcsh_config_file=irix - case "${host_os}" in - irix[34]*) # Irix-3.x - Irix 4.x - NON_GNU_DFLAGS='-D__STDC__' - LIBS='-lsun -lbsd -lc_s' - ;; - irix5* | irix6.[01]*) # Irix 5.x, Irix 6.0 - 6.1 - LIBS='-lbsd' - ;; - irix6.[2-9]*) # Irix 6.2 and later - tcsh_config_file=irix62 - ;; - esac - ;; - - ## Suns - *-sun-sunos3* ) - tcsh_config_file=sunos35 - ;; - *-sun-sunos4.0* ) - tcsh_config_file=sunos40 - ;; - *-sun-sunos4.1.[12]* ) - tcsh_config_file=sunos41 - ;; - *-sun-sunos4.1.[3456]* ) - tcsh_config_file=sunos413 - ;; - *-*-solaris2.[01] ) # Should handle sparc or x86 - tcsh_config_file=sol2 - ;; - *-sun-solaris2.2 ) # Sparc only release - tcsh_config_file=sol22 - ;; - *-sun-solaris2.3 ) # Sparc only release - tcsh_config_file=sol23 - ;; - *-*-solaris2.[45] ) # Should handle sparc, x86 and powerpc - tcsh_config_file=sol24 - ;; - *-*-solaris2.* ) # Should handle sparc, x86 and powerpc - tcsh_config_file=sol26 - ;; - - ## Dell SVR4 - *-dell-sysv4* ) - tcsh_config_file=sysv4 - DFLAGS="$DFLAGS -DDELL" - ;; - - ## SVR4 (Generic and otherwise) - *-*-sysv4* ) - tcsh_config_file=sysv4 - ;; - - ## Tektronix systems - m68k-tektronix-bsd* ) - tcsh_config_file=bsd - NON_GNU_DFLAGS='-DBSD -DUTek' - ;; - m88k-tektronix-sysv3* ) - tcsh_config_file=tekXD88 - ;; - - ## SCO - *-sco3.2v5*) - tcsh_config_file=sco32v5 - ;; - *-sco3.2v4*) - tcsh_config_file=sco32v4 - ;; - *-sco3.2v2*) - tcsh_config_file=sco32v2 - ;; - - ## Siemens BS2000 Mainframe - bs2000-siemens-*) - tcsh_config_file=bs2000 - ;; - - ## Convex - *-convex*) - tcsh_config_file=convex - ;; - - ## Cray - *-cray-unicos*) - tcsh_config_file=cray - ;; - - ## Red Hat Cygwin - *-cygwin) - tcsh_config_file=cygwin32 - ;; - - ## mips-compaq-nonstopux - *-*-nonstopux) - tcsh_config_file=sysv4 - ;; - - ## Apollo Domain/OS - *-apollo-*) - tcsh_config_file=apollo - ;; - - * ) - changequote([, ])dnl - AC_MSG_ERROR([Tcsh can't guess the configuration file name -for `${host}' systems. -Check tcsh's `Ported' file for manual configuration instructions.]) - changequote(, )dnl - ;; - -esac - -echo "Tcsh will use configuration file \`$tcsh_config_file'." -changequote([, ])dnl -cp ${srcdir}/config/${tcsh_config_file} config_p.h -AH_BOTTOM( -[#include "config_p.h" -#include "config_f.h"]) - -dnl Checks for programs -AC_PROG_CC -AC_PROG_CPP -AC_PROG_GCC_TRADITIONAL - -if test "x$GCC" != xyes ; then - DFLAGS="$DFLAGS $NON_GNU_DFLAGS" - CFLAGS="$CFLAGS $NON_GNU_CFLAGS" -fi - -dnl Checks for libraries -AC_SEARCH_LIBS(crypt, crypt) -AC_SEARCH_LIBS(getspnam, sec) -AC_SEARCH_LIBS(tgetent, termlib termcap curses ncurses) -AC_SEARCH_LIBS(gethostbyname, nsl) -AC_SEARCH_LIBS(connect, socket) -AM_ICONV - -dnl Checks for header files -AC_CHECK_HEADERS([auth.h crypt.h inttypes.h shadow.h stdint.h utmp.h utmpx.h]) -AC_CHECK_HEADERS([wchar.h], - [AC_CHECK_SIZEOF([wchar_t], [], [dnl -#include <stdio.h> -#include <wchar.h>]) - AC_CHECK_HEADERS([wctype.h])]) -AC_HEADER_DIRENT -AC_HEADER_STAT -AC_HEADER_STDC - -dnl Checks for types -AC_CHECK_TYPES([long long]) -AC_TYPE_GETGROUPS -AC_TYPE_MODE_T -AC_TYPE_SIZE_T -AC_TYPE_UID_T - -AC_DEFUN([AC_TYPE_SSIZE_T], [ -AC_CHECK_TYPE(ssize_t,, -AC_DEFINE(ssize_t, int, [Define to `int' not defined in <sys/types.h>.]), -[ -#include <sys/types.h> -]) -]) -AC_TYPE_SSIZE_T - -AC_DEFUN([AC_TYPE_SOCKLEN_T], [ -AC_CHECK_TYPE(socklen_t,, -AC_DEFINE(socklen_t, int, [Define to `int' if neither <sys/types.h> nor <sys/socket.h> define.]), -[ -#include <sys/types.h> -#include <sys/socket.h> -]) -]) -AC_TYPE_SOCKLEN_T - - -dnl Checks for structures -AC_CHECK_MEMBERS([struct dirent.d_ino], , , -[#ifdef HAVE_DIRENT_H -# include <dirent.h> -#else -# ifdef HAVE_NDIR_H -# include <ndir.h> -# else -# include <sys/dir.h> -# endif -# define dirent direct -#endif]) -AC_CHECK_MEMBERS([struct utmp.ut_host, struct utmp.ut_user, struct utmp.ut_tv, - struct utmp.ut_xtime], , , -[#include <sys/types.h> -#ifdef HAVE_UTMPX_H -#include <utmpx.h> -#define utmp utmpx -#elif defined HAVE_UTMP_H -#include <utmp.h> -#endif]) -AC_CHECK_MEMBERS([struct sockaddr_storage.ss_family], , , -[#include <sys/types.h> -#include <sys/socket.h>]) - -dnl Checks for compiler characteristics -AC_C_CONST -AC_C_VOLATILE - -dnl checks for library functions -AC_CHECK_DECLS([crypt, environ, gethostname, getpgrp], , , -[#include "config_p.h" -AC_INCLUDES_DEFAULT([]) -#ifdef HAVE_CRYPT_H -#include <crypt.h> -#endif -]) -AC_CHECK_FUNC([setlocale], [have_setlocale=yes], [have_setlocale=no]) -AC_CHECK_FUNCS([catgets dup2 getauthid getcwd gethostname getpwent] dnl - [getutent memmove memset nice nl_langinfo sbrk setpgid setpriority] dnl - [strerror strstr sysconf wcwidth]) -AC_FUNC_GETPGRP -AC_FUNC_MBRTOWC -AC_FUNC_SETPGRP -AC_FUNC_STRCOLL - -dnl This is not good enough; we need sockaddr_storage too. -dnl See whether we can use IPv6 related functions -dnl AC_DEFUN([IPv6_CHECK_FUNC], [ -dnl changequote(, )dnl -dnl ac_tr_lib=HAVE_`echo $1 | sed -e 's/[^a-zA-Z0-9_]/_/g' \ -dnl -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'` -dnl changequote([, ])dnl -dnl AC_CHECK_FUNC($1, [dnl -dnl AC_DEFINE_UNQUOTED($ac_tr_lib) -dnl ac_cv_lib_inet6_$1=no], [dnl -dnl AC_MSG_CHECKING([whether your system has IPv6 directory]) -dnl AC_CACHE_VAL(ipv6_cv_dir, [dnl -dnl for ipv6_cv_dir in /usr/local/v6 /usr/inet6 no; do -dnl if test $ipv6_cv_dir = no -o -d $ipv6_cv_dir; then -dnl break -dnl fi -dnl done])dnl -dnl AC_MSG_RESULT($ipv6_cv_dir) -dnl if test $ipv6_cv_dir = no; then -dnl ac_cv_lib_inet6_$1=no -dnl else -dnl if test x$ipv6_libinet6 = x; then -dnl ipv6_libinet6=no -dnl SAVELDFLAGS="$LDFLAGS" -dnl LDFLAGS="-L$ipv6_cv_dir/lib" -dnl fi -dnl AC_CHECK_LIB(inet6, $1, [dnl -dnl AC_DEFINE_UNQUOTED($ac_tr_lib) -dnl if test $ipv6_libinet6 = no; then -dnl ipv6_libinet6=yes -dnl LIBS="$LIBS -linet6" -dnl fi],)dnl -dnl if test $ipv6_libinet6 = no; then -dnl LDFLAGS="$SAVELDFLAGS" -dnl fi -dnl fi])dnl -dnl if test $ac_cv_func_$1 = yes -o $ac_cv_lib_inet6_$1 = yes -dnl then -dnl ipv6_cv_$1=yes -dnl ifelse([$2], , :, [$2]) -dnl else -dnl ipv6_cv_$1=no -dnl ifelse([$3], , :, [$3]) -dnl fi]) -dnl IPv6_CHECK_FUNC(getnameinfo, DFLAGS="$DFLAGS -DINET6") - -AC_SUBST(DFLAGS) - -dnl Checks for system services -if test "$have_setlocale" != no; then - AC_ARG_ENABLE([nls], AS_HELP_STRING([--disable-nls], [Disable NLS support]), - [], [enable_nls=yes]) - if test "x$enable_nls" != xno; then - AC_DEFINE([NLS], [1], [Support NLS.]) - fi -fi - -AC_ARG_WITH(hesiod, - [ --with-hesiod=PREFIX Use Hesiod lookup for ~ expansion], - [hesiod="$withval"], [hesiod=no]) -if test "$hesiod" != no; then - HESLIB="-lhesiod" - AC_CHECK_FUNC(res_send, :, - AC_CHECK_LIB(resolv, res_send, HESLIB="$HESLIB -lresolv")) - HESDEF=-DHESIOD - if test "$hesiod" != yes; then - HESDEF="$HESDEF -I$hesiod/include" - HESLIB="-L$hesiod/lib $HESLIB" - fi -fi -AC_SUBST(HESDEF) -AC_SUBST(HESLIB) - -AC_CONFIG_FILES([Makefile]) -AC_OUTPUT diff --git a/contrib/tcsh/csh-mode.el b/contrib/tcsh/csh-mode.el deleted file mode 100644 index 3b638db..0000000 --- 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 <software@harkless.org> -;; -;; 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 <software@harkless.org> -;; 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 9f09c68..0000000 --- a/contrib/tcsh/ed.chared.c +++ /dev/null @@ -1,3870 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.chared.c,v 3.93 2006/08/23 15:03:13 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. 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("$tcsh: ed.chared.c,v 3.93 2006/08/23 15:03:13 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 struct Strbuf patbuf; /* = Strbuf_INIT; Search target */ -/* - * 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 (int); -void c_insert (int); -void c_delafter (int); -void c_delbefore (int); -static int c_to_class (Char); -static Char *c_prev_word (Char *, Char *, int); -static Char *c_next_word (Char *, Char *, int); -static Char *c_number (Char *, int *, int); -static Char *c_expand (Char *); -static void c_excl (Char *); -static void c_substitute (void); -static void c_delfini (void); -static int c_hmatch (Char *); -static void c_hsetpat (void); -#ifdef COMMENT -static void c_get_word (Char **, Char **); -#endif -static Char *c_preword (Char *, Char *, int, Char *); -static Char *c_nexword (Char *, Char *, int); -static Char *c_endword (Char *, Char *, int, Char *); -static Char *c_eword (Char *, Char *, int); -static void c_push_kill (Char *, Char *); -static void c_save_inputbuf (void); -static CCRETVAL c_search_line (Char *, int); -static CCRETVAL v_repeat_srch (int); -static CCRETVAL e_inc_search (int); -#ifdef notyet -static CCRETVAL e_insert_str (Char *); -#endif -static CCRETVAL v_search (int); -static CCRETVAL v_csearch_fwd (Char, int, int); -static CCRETVAL v_action (int); -static CCRETVAL v_csearch_back (Char, int, int); - -static void -c_alternativ_key_map(int state) -{ - switch (state) { - case 0: - CurrentKeyMap = CcKeyMap; - break; - case 1: - CurrentKeyMap = CcAltMap; - break; - default: - return; - } - - AltKeyMap = (Char) state; -} - -void -c_insert(int num) -{ - 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; - if (Mark && Mark > Cursor) - Mark += num; - } - LastChar += num; -} - -void -c_delafter(int num) -{ - Char *cp, *kp = NULL; - - if (num > LastChar - Cursor) - num = (int) (LastChar - Cursor); /* bounds check */ - - if (num > 0) { /* if I can delete anything */ - 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 + num <= LastChar; cp++) - *cp = cp[num]; - LastChar -= num; - /* Mark was within the range of the deleted word? */ - if (Mark && Mark > Cursor && Mark <= Cursor+num) - Mark = Cursor; - /* Mark after the deleted word? */ - else if (Mark && Mark > Cursor) - Mark -= num; - } -#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 */ -} - -void -c_delbefore(int num) /* delete before dot, with bounds checking */ -{ - Char *cp, *kp = NULL; - - if (num > Cursor - InputBuf) - num = (int) (Cursor - InputBuf); /* bounds check */ - - if (num > 0) { /* if I can delete anything */ - 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 + num <= LastChar; cp++) - *cp = cp[num]; - LastChar -= num; - Cursor -= num; - /* Mark was within the range of the deleted word? */ - if (Mark && Mark > Cursor && Mark <= Cursor+num) - Mark = Cursor; - /* Mark after the deleted word? */ - else if (Mark && Mark > Cursor) - Mark -= num; - } -} - -static Char * -c_preword(Char *p, Char *low, int n, Char *delim) -{ - while (n--) { - Char *prev = low; - Char *new; - - while (prev < p) { /* Skip initial non-word chars */ - if (!Strchr(delim, *prev) || *(prev-1) == (Char)'\\') - break; - prev++; - } - - new = prev; - - while (new < p) { - prev = new; - new = c_endword(prev-1, p, 1, delim); /* Skip to next non-word char */ - new++; /* Step away from end of word */ - while (new <= p) { /* Skip trailing non-word chars */ - if (!Strchr(delim, *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(Char 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(Char *p, Char *low, 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--) { - 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(Char *p, Char *high, 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--) { - 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(Char *p, Char *high, 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(Char *p, int *num, int dval) -{ - int i; - int sign = 1; - - if (*++p == '^') { - *num = 1; - return(p); - } - if (*p == '$') { - if (*++p != '-') { - *num = INT_MAX; /* 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(Char *p) -{ - Char *q; - struct Hist *h = Histlist.Hnext; - struct wordent *l; - int i, from, to, dval; - int all_dig; - int been_once = 0; - Char *op = p; - Char *buf; - size_t buf_len; - Char *modbuf; - - buf = NULL; - if (!h) - goto excl_err; -excl_sw: - switch (*(q = p + 1)) { - - case '^': - buf = expand_lex(&h->Hlex, 1, 1); - break; - - case '$': - if ((l = (h->Hlex).prev) != 0) - buf = expand_lex(l->prev->prev, 0, 0); - break; - - case '*': - buf = expand_lex(&h->Hlex, 1, INT_MAX); - break; - - default: - if (been_once) { /* unknown argument */ - /* assume it's a modifier, e.g. !foo:h, and get whole cmd */ - buf = expand_lex(&h->Hlex, 0, INT_MAX); - 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 = INT_MAX; - } - else { - to = from; - } - if (from < 0 || to < from) - goto excl_err; - buf = expand_lex(&h->Hlex, from, to); - } - else /* get whole cmd */ - buf = expand_lex(&h->Hlex, 0, INT_MAX); - break; - } - if (buf == NULL) - buf = SAVE(""); - - /* - * Apply modifiers, if any. - */ - if (q[1] == ':') { - modbuf = 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(buf, (int) q[2])) != NULL) { - xfree(buf); - buf = 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; - } - } - - buf_len = Strlen(buf); - /* - * Now replace the text from op to q inclusive with the text from buf. - */ - q++; - - /* - * Now replace text non-inclusively like a real CS major! - */ - if (LastChar + buf_len - (q - op) >= InputLim) - goto excl_err; - (void) memmove(op + buf_len, q, (LastChar - q) * sizeof(Char)); - LastChar += buf_len - (q - op); - Cursor += buf_len - (q - op); - (void) memcpy(op, buf, buf_len * sizeof(Char)); - *LastChar = '\0'; - xfree(buf); - return op + buf_len; -excl_err: - xfree(buf); - 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(Char *p) -{ - int i; - 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(void) -{ - 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(void) /* Finish up delete action */ -{ - 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); - 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(Char *p, Char *high, int n, Char *delim) -{ - Char inquote = 0; - p++; - - while (n--) { - while (p < high) { /* Skip non-word chars */ - if (!Strchr(delim, *p) || *(p-1) == (Char)'\\') - break; - p++; - } - while (p < high) { /* Skip string */ - if ((*p == (Char)'\'' || *p == (Char)'"')) { /* Quotation marks? */ - if (inquote || *(p-1) != (Char)'\\') { /* Should it be honored? */ - if (inquote == 0) inquote = *p; - else if (inquote == *p) inquote = 0; - } - } - /* Break if unquoted non-word char */ - if (!inquote && Strchr(delim, *p) && *(p-1) != (Char)'\\') - break; - p++; - } - } - - p--; - return(p); -} - - -static Char * -c_eword(Char *p, Char *high, 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); -} - -/* Set the max length of the kill ring */ -void -SetKillRing(int max) -{ - CStr *new; - int count, i, j; - - if (max < 1) - max = 1; /* no ring, but always one buffer */ - if (max == KillRingMax) - return; - new = xcalloc(max, sizeof(CStr)); - if (KillRing != NULL) { - if (KillRingLen != 0) { - if (max >= KillRingLen) { - count = KillRingLen; - j = KillPos; - } else { - count = max; - j = (KillPos - count + KillRingLen) % KillRingLen; - } - for (i = 0; i < KillRingLen; i++) { - if (i < count) /* copy latest */ - new[i] = KillRing[j]; - else /* free the others */ - xfree(KillRing[j].buf); - j = (j + 1) % KillRingLen; - } - KillRingLen = count; - KillPos = count % max; - YankPos = count - 1; - } - xfree(KillRing); - } - KillRing = new; - KillRingMax = max; -} - -/* Push string from start upto (but not including) end onto kill ring */ -static void -c_push_kill(Char *start, Char *end) -{ - CStr save, *pos; - Char *dp, *cp, *kp; - int len = end - start, i, j, k; - - /* Check for duplicates? */ - if (KillRingLen > 0 && (dp = varval(STRkilldup)) != STRNULL) { - YankPos = (KillPos - 1 + KillRingLen) % KillRingLen; - if (eq(dp, STRerase)) { /* erase earlier one (actually move up) */ - j = YankPos; - for (i = 0; i < KillRingLen; i++) { - if (Strncmp(KillRing[j].buf, start, (size_t) len) == 0 && - KillRing[j].buf[len] == '\0') { - save = KillRing[j]; - for ( ; i > 0; i--) { - k = j; - j = (j + 1) % KillRingLen; - KillRing[k] = KillRing[j]; - } - KillRing[j] = save; - return; - } - j = (j - 1 + KillRingLen) % KillRingLen; - } - } else if (eq(dp, STRall)) { /* skip if any earlier */ - for (i = 0; i < KillRingLen; i++) - if (Strncmp(KillRing[i].buf, start, (size_t) len) == 0 && - KillRing[i].buf[len] == '\0') - return; - } else if (eq(dp, STRprev)) { /* skip if immediately previous */ - j = YankPos; - if (Strncmp(KillRing[j].buf, start, (size_t) len) == 0 && - KillRing[j].buf[len] == '\0') - return; - } - } - - /* No duplicate, go ahead and push */ - len++; /* need space for '\0' */ - YankPos = KillPos; - if (KillRingLen < KillRingMax) - KillRingLen++; - pos = &KillRing[KillPos]; - KillPos = (KillPos + 1) % KillRingMax; - if (pos->len < len) { - pos->buf = xrealloc(pos->buf, len * sizeof(Char)); - pos->len = len; - } - cp = start; - kp = pos->buf; - while (cp < end) - *kp++ = *cp++; - *kp = '\0'; -} - -/* Save InputBuf etc in SavedBuf etc for restore after cmd exec */ -static void -c_save_inputbuf() -{ - SavedBuf.len = 0; - Strbuf_append(&SavedBuf, InputBuf); - Strbuf_terminate(&SavedBuf); - LastSaved = LastChar - InputBuf; - CursSaved = Cursor - InputBuf; - HistSaved = Hist_num; - RestoreSaved = 1; -} - -CCRETVAL -GetHistLine() -{ - struct Hist *hp; - int h; - - if (Hist_num == 0) { /* if really the current line */ - if (HistBuf.s != NULL) - copyn(InputBuf, HistBuf.s, INBUFSIZE);/*FIXBUF*/ - else - *InputBuf = '\0'; - LastChar = InputBuf + HistBuf.len; - -#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);/*FIXBUF*/ - CurrentHistLit = 1; - } - else { - Char *p; - - p = sprlex(&hp->Hlex); - copyn(InputBuf, p, sizeof(InputBuf) / sizeof(Char));/*FIXBUF*/ - xfree(p); - CurrentHistLit = 0; - } - LastChar = Strend(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(Char *pattern, int dir) -{ - Char *cp; - size_t len; - - len = Strlen(pattern); - - if (dir == F_UP_SEARCH_HIST) { - for (cp = Cursor; cp >= InputBuf; cp--) - if (Strncmp(cp, pattern, 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, len) == 0 || - Gmatch(cp, pattern)) { - Cursor = cp; - return(CC_NORM); - } - return(CC_ERROR); - } -} - -static CCRETVAL -e_inc_search(int dir) -{ - static const Char STRfwd[] = { 'f', 'w', 'd', '\0' }, - STRbck[] = { 'b', 'c', 'k', '\0' }; - static Char pchar = ':'; /* ':' = normal, '?' = failed */ - static Char endcmd[2]; - const Char *cp; - Char ch, - *oldCursor = Cursor, - oldpchar = pchar; - CCRETVAL ret = CC_NORM; - int oldHist_num = Hist_num, - oldpatlen = patbuf.len, - newdir = dir, - done, redo; - - if (LastChar + sizeof(STRfwd)/sizeof(Char) + 2 + patbuf.len >= InputLim) - return(CC_ERROR); - - for (;;) { - - if (patbuf.len == 0) { /* first round */ - pchar = ':'; - Strbuf_append1(&patbuf, '*'); - } - done = redo = 0; - *LastChar++ = '\n'; - for (cp = newdir == F_UP_SEARCH_HIST ? STRbck : STRfwd; - *cp; *LastChar++ = *cp++) - continue; - *LastChar++ = pchar; - for (cp = &patbuf.s[1]; cp < &patbuf.s[patbuf.len]; - *LastChar++ = *cp++) - continue; - *LastChar = '\0'; - if (adrof(STRhighlight) && pchar == ':') { - /* if the no-glob-search patch is applied, remove the - 1 below */ - IncMatchLen = patbuf.len - 1; - ClearLines(); - ClearDisp(); - } - Refresh(); - - if (GetNextChar(&ch) != 1) - return(e_send_eof(0)); - - switch (ch > NT_NUM_KEYS - ? F_INSERT : CurrentKeyMap[(unsigned char) ch]) { - case F_INSERT: - case F_DIGIT: - case F_MAGIC_SPACE: - if (LastChar + 1 >= InputLim) /*FIXBUF*/ - SoundBeep(); - else { - Strbuf_append1(&patbuf, 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 (patbuf.len > 1) - done++; - else - SoundBeep(); - break; - - default: - switch (ASC(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.s[1]; ; cp++) - if (cp >= &patbuf.s[patbuf.len]) { - Cursor += patbuf.len - 1; - cp = c_next_word(Cursor, LastChar, 1); - while (Cursor < cp && *Cursor != '\n') { - if (LastChar + 1 >= InputLim) {/*FIXBUF*/ - SoundBeep(); - break; - } - Strbuf_append1(&patbuf, *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.s[patbuf.len - 1], ch = ']'; cp > patbuf.s; cp--) - if (*cp == '[' || *cp == ']') { - ch = *cp; - break; - } - - if (patbuf.len > 1 && ch != '[') { - if (redo && newdir == dir) { - if (pchar == '?') { /* wrap around */ - Hist_num = newdir == F_UP_SEARCH_HIST ? 0 : INT_MAX; - if (GetHistLine() == CC_ERROR) - /* Hist_num was fixed by first call */ - (void) GetHistLine(); - Cursor = newdir == F_UP_SEARCH_HIST ? - LastChar : InputBuf; - } else - Cursor += newdir == F_UP_SEARCH_HIST ? -1 : 1; - } - Strbuf_append1(&patbuf, '*'); - Strbuf_terminate(&patbuf); - if (Cursor < InputBuf || Cursor > LastChar || - (ret = c_search_line(&patbuf.s[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.s[1], newdir); - } - } - patbuf.s[--patbuf.len] = '\0'; - if (ret == CC_ERROR) { - SoundBeep(); - if (Hist_num != oldHist_num) { - Hist_num = oldHist_num; - if (GetHistLine() == 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; - patbuf.len = oldpatlen; - if (Hist_num != oldHist_num) { - Hist_num = oldHist_num; - if (GetHistLine() == CC_ERROR) - return(CC_ERROR); - } - Cursor = oldCursor; - if (ret == CC_ERROR) - Refresh(); - } - if (done || ret != CC_NORM) - return(ret); - - } - -} - -static CCRETVAL -v_search(int dir) -{ - struct Strbuf tmpbuf = Strbuf_INIT; - Char ch; - Char *oldbuf; - Char *oldlc, *oldc; - - cleanup_push(&tmpbuf, Strbuf_cleanup); - oldbuf = Strsave(InputBuf); - cleanup_push(oldbuf, xfree); - oldlc = LastChar; - oldc = Cursor; - Strbuf_append1(&tmpbuf, '*'); - - 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) { - cleanup_until(&tmpbuf); - return(e_send_eof(0)); - } - switch (ASC(ch)) { - case 0010: /* Delete and backspace */ - case 0177: - if (tmpbuf.len > 1) { - *Cursor-- = '\0'; - LastChar = Cursor; - tmpbuf.len--; - } - else { - copyn(InputBuf, oldbuf, INBUFSIZE);/*FIXBUF*/ - LastChar = oldlc; - Cursor = oldc; - cleanup_until(&tmpbuf); - return(CC_REFRESH); - } - Refresh(); - ch = 0; - break; - - case 0033: /* ESC */ -#ifdef IS_ASCII - case '\r': /* Newline */ - case '\n': -#else - case '\012': /* ASCII Line feed */ - case '\015': /* ASCII (or EBCDIC) Return */ -#endif - break; - - default: - Strbuf_append1(&tmpbuf, ch); - *Cursor++ = ch; - LastChar = Cursor; - Refresh(); - ch = 0; - break; - } - } - cleanup_until(oldbuf); - - if (tmpbuf.len == 1) { - /* - * Use the old pattern, but wild-card it. - */ - if (patbuf.len == 0) { - InputBuf[0] = '\0'; - LastChar = InputBuf; - Cursor = InputBuf; - Refresh(); - cleanup_until(&tmpbuf); - return(CC_ERROR); - } - if (patbuf.s[0] != '*') { - oldbuf = Strsave(patbuf.s); - patbuf.len = 0; - Strbuf_append1(&patbuf, '*'); - Strbuf_append(&patbuf, oldbuf); - xfree(oldbuf); - Strbuf_append1(&patbuf, '*'); - Strbuf_terminate(&patbuf); - } - } - else { - Strbuf_append1(&tmpbuf, '*'); - Strbuf_terminate(&tmpbuf); - patbuf.len = 0; - Strbuf_append(&patbuf, tmpbuf.s); - Strbuf_terminate(&patbuf); - } - cleanup_until(&tmpbuf); - 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 (ASC(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(Char 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(Char c) -{ /* bound to keys that arn't really assigned */ - USE(c); - SoundBeep(); - flush(); - return(CC_NORM); -} - -#ifdef notyet -static CCRETVAL -e_insert_str(Char *c) -{ - int i, n; - - n = Strlen(c); - if (LastChar + Argument * n >= InputLim) - return(CC_ERROR); /* end of buffer space */ - if (inputmode != MODE_INSERT) { - c_delafter(Argument * Strlen(c)); - } - c_insert(Argument * n); - while (Argument--) { - for (i = 0; i < n; i++) - *Cursor++ = c[i]; - } - Refresh(); - return(CC_NORM); -} -#endif - -CCRETVAL -e_insert(Char c) -{ -#ifndef SHORT_STRINGS - c &= ASCII; /* no meta chars ever */ -#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 (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(1); /* fast refresh for one char. */ - } - else { - if (inputmode != MODE_INSERT) { - int i; - 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); - - return(CC_NORM); -} - -int -InsertStr(Char *s) /* insert ASCIZ s at cursor (for complete) */ -{ - 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(int n) /* delete the n characters before . */ -{ - if (n <= 0) - return; - if (Cursor >= &InputBuf[n]) { - c_delbefore(n); /* delete before dot */ - } -} - -CCRETVAL -e_digit(Char c) /* gray magic here */ -{ - 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(1); /* fast refresh for one char. */ - } - return(CC_NORM); -} - -CCRETVAL -e_argdigit(Char c) /* for ESC-n */ -{ -#ifdef IS_ASCII - c &= ASCII; -#else - c = CTL_ESC(ASC(c) & ASCII); /* stripping for EBCDIC done the ASCII way */ -#endif - - 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(Char c) /* command mode 0 for vi */ -{ - 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(Char c) -{ /* always ignore argument */ - USE(c); - if (adrof(STRhighlight) && MarkIsSet) { - MarkIsSet = 0; - ClearLines(); - ClearDisp(); - Refresh(); - } - MarkIsSet = 0; - - /* 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_newline_hold(Char c) -{ - USE(c); - c_save_inputbuf(); - HistSaved = 0; - *LastChar++ = '\n'; /* for the benefit of CSH */ - *LastChar = '\0'; /* just in case */ - return(CC_NEWLINE); -} - -/*ARGSUSED*/ -CCRETVAL -e_newline_down_hist(Char c) -{ - USE(c); - if (Hist_num > 1) { - HistSaved = Hist_num; - } - *LastChar++ = '\n'; /* for the benefit of CSH */ - *LastChar = '\0'; /* just in case */ - return(CC_NEWLINE); -} - -/*ARGSUSED*/ -CCRETVAL -e_send_eof(Char c) -{ /* for when ^D is ONLY send-eof */ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_EOF); -} - -/*ARGSUSED*/ -CCRETVAL -e_complete(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE); -} - -/*ARGSUSED*/ -CCRETVAL -e_complete_back(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE_BACK); -} - -/*ARGSUSED*/ -CCRETVAL -e_complete_fwd(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE_FWD); -} - -/*ARGSUSED*/ -CCRETVAL -e_complete_all(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE_ALL); -} - -/*ARGSUSED*/ -CCRETVAL -v_cm_complete(Char c) -{ - USE(c); - if (Cursor < LastChar) - Cursor++; - *LastChar = '\0'; /* just in case */ - return(CC_COMPLETE); -} - -/*ARGSUSED*/ -CCRETVAL -e_toggle_hist(Char 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);/*FIXBUF*/ - CurrentHistLit = 1; - } - else { - return CC_ERROR; - } - } - else { - Char *p; - - p = sprlex(&hp->Hlex); - copyn(InputBuf, p, sizeof(InputBuf) / sizeof(Char));/*FIXBUF*/ - xfree(p); - CurrentHistLit = 0; - } - - LastChar = Strend(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(Char c) -{ - Char beep = 0; - - USE(c); - UndoAction = TCSHOP_NOP; - *LastChar = '\0'; /* just in case */ - - if (Hist_num == 0) { /* save the current buffer away */ - HistBuf.len = 0; - Strbuf_append(&HistBuf, InputBuf); - Strbuf_terminate(&HistBuf); - } - - Hist_num += Argument; - - if (GetHistLine() == CC_ERROR) { - beep = 1; - (void) GetHistLine(); /* 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(Char 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(GetHistLine()); -} - - - -/* - * c_hmatch() return True if the pattern matches the prefix - */ -static int -c_hmatch(Char *str) -{ - if (Strncmp(patbuf.s, str, patbuf.len) == 0) - return 1; - return Gmatch(str, patbuf.s); -} - -/* - * c_hsetpat(): Set the history seatch pattern - */ -static void -c_hsetpat(void) -{ - if (LastCmd != F_UP_SEARCH_HIST && LastCmd != F_DOWN_SEARCH_HIST) { - patbuf.len = 0; - Strbuf_appendn(&patbuf, InputBuf, Cursor - InputBuf); - Strbuf_terminate(&patbuf); - } -#ifdef SDEBUG - xprintf("\nHist_num = %d\n", Hist_num); - xprintf("patlen = %d\n", (int)patbuf.len); - xprintf("patbuf = \"%S\"\n", patbuf.s); - xprintf("Cursor %d LastChar %d\n", Cursor - InputBuf, LastChar - InputBuf); -#endif -} - -/*ARGSUSED*/ -CCRETVAL -e_up_search_hist(Char c) -{ - struct Hist *hp; - int h; - int 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) { - HistBuf.len = 0; - Strbuf_append(&HistBuf, InputBuf); - Strbuf_terminate(&HistBuf); - } - - - 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 *hl; - int matched; - - if (hp->histline == NULL) - hp->histline = sprlex(&hp->Hlex); - if (HistLit) - hl = hp->histline; - else { - hl = sprlex(&hp->Hlex); - cleanup_push(hl, xfree); - } -#ifdef SDEBUG - xprintf("Comparing with \"%S\"\n", hl); -#endif - matched = (Strncmp(hl, InputBuf, (size_t) (LastChar - InputBuf)) || - hl[LastChar-InputBuf]) && c_hmatch(hl); - if (!HistLit) - cleanup_until(hl); - if (matched) { - found++; - break; - } - h++; - hp = hp->Hnext; - } - - if (!found) { -#ifdef SDEBUG - xprintf("not found\n"); -#endif - return(CC_ERROR); - } - - Hist_num = h; - - return(GetHistLine()); -} - -/*ARGSUSED*/ -CCRETVAL -e_down_search_hist(Char c) -{ - struct Hist *hp; - int h; - int 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 *hl; - if (hp->histline == NULL) - hp->histline = sprlex(&hp->Hlex); - if (HistLit) - hl = hp->histline; - else { - hl = sprlex(&hp->Hlex); - cleanup_push(hl, xfree); - } -#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; - if (!HistLit) - cleanup_until(hl); - hp = hp->Hnext; - } - - if (!found) { /* is it the current history number? */ - if (!c_hmatch(HistBuf.s)) { -#ifdef SDEBUG - xprintf("not found\n"); -#endif - return(CC_ERROR); - } - } - - Hist_num = found; - - return(GetHistLine()); -} - -/*ARGSUSED*/ -CCRETVAL -e_helpme(Char c) -{ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_HELPME); -} - -/*ARGSUSED*/ -CCRETVAL -e_correct(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_CORRECT); -} - -/*ARGSUSED*/ -CCRETVAL -e_correctl(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_CORRECT_L); -} - -/*ARGSUSED*/ -CCRETVAL -e_run_fg_editor(Char c) -{ - struct process *pp; - - USE(c); - if ((pp = find_stop_ed()) != NULL) { - /* save our editor state so we can restore it */ - c_save_inputbuf(); - 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(); - RestoreSaved = 0; - HistSaved = 0; - } - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_list_choices(Char c) -{ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_LIST_CHOICES); -} - -/*ARGSUSED*/ -CCRETVAL -e_list_all(Char c) -{ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_LIST_ALL); -} - -/*ARGSUSED*/ -CCRETVAL -e_list_glob(Char c) -{ - USE(c); - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_LIST_GLOB); -} - -/*ARGSUSED*/ -CCRETVAL -e_expand_glob(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_EXPAND_GLOB); -} - -/*ARGSUSED*/ -CCRETVAL -e_normalize_path(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_NORMALIZE_PATH); -} - -/*ARGSUSED*/ -CCRETVAL -e_normalize_command(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_NORMALIZE_COMMAND); -} - -/*ARGSUSED*/ -CCRETVAL -e_expand_vars(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - return(CC_EXPAND_VARS); -} - -/*ARGSUSED*/ -CCRETVAL -e_which(Char c) -{ /* do a fast command line which(1) */ - USE(c); - c_save_inputbuf(); - Hist_num = 0; /* for the history commands */ - PastBottom(); - *LastChar = '\0'; /* just in case */ - return(CC_WHICH); -} - -/*ARGSUSED*/ -CCRETVAL -e_last_item(Char c) -{ /* insert the last element of the prev. cmd */ - struct Hist *hp; - struct wordent *wp, *firstp; - int i; - Char *expanded; - - 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; - } - - expanded = expand_lex(wp->prev, 0, i - 1); - if (InsertStr(expanded)) { - xfree(expanded); - return(CC_ERROR); - } - - xfree(expanded); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_dabbrev_expand(Char c) -{ /* expand to preceding word matching prefix */ - Char *cp, *ncp, *bp; - struct Hist *hp; - int arg = 0, i; - size_t len = 0; - int found = 0; - Char *hbuf; - static int oldevent, hist, word; - static Char *start, *oldcursor; - - USE(c); - if (Argument <= 0) - return(CC_ERROR); - - cp = c_preword(Cursor, InputBuf, 1, STRshwordsep); - if (cp == Cursor || Isspace(*cp)) - return(CC_ERROR); - - hbuf = NULL; - hp = Histlist.Hnext; - bp = InputBuf; - if (Argument == 1 && eventno == oldevent && cp == start && - Cursor == oldcursor && patbuf.len > 0 - && Strncmp(patbuf.s, cp, patbuf.len) == 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" */ - goto err_hbuf; - hbuf = expand_lex(&hp->Hlex, 0, INT_MAX); - cp = Strend(hbuf); - bp = hbuf; - hp = hp->Hnext; - } - cp = c_preword(cp, bp, word, STRshwordsep); - } else { /* starting new search */ - oldevent = eventno; - start = cp; - patbuf.len = 0; - Strbuf_appendn(&patbuf, cp, Cursor - cp); - hist = 0; - word = 0; - } - - while (!found) { - ncp = c_preword(cp, bp, 1, STRshwordsep); - if (ncp == cp || Isspace(*ncp)) { /* beginning of line */ - hist++; - word = 0; - if (hp == NULL) - goto err_hbuf; - hbuf = expand_lex(&hp->Hlex, 0, INT_MAX); - cp = Strend(hbuf); - bp = hbuf; - hp = hp->Hnext; - continue; - } else { - word++; - len = c_endword(ncp-1, cp, 1, STRshwordsep) - ncp + 1; - cp = ncp; - } - if (len > patbuf.len && Strncmp(cp, patbuf.s, patbuf.len) == 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 != (size_t)(Cursor - start) - || Strncmp(cp, start, len) != 0) - found++; - } - } - } - - if (LastChar + len - (Cursor - start) >= InputLim) - goto err_hbuf; /* no room */ - DeleteBack(Cursor - start); - c_insert(len); - while (len--) - *Cursor++ = *cp++; - oldcursor = Cursor; - xfree(hbuf); - return(CC_REFRESH); - - err_hbuf: - xfree(hbuf); - return CC_ERROR; -} - -/*ARGSUSED*/ -CCRETVAL -e_yank_kill(Char c) -{ /* almost like GnuEmacs */ - int len; - Char *kp, *cp; - - USE(c); - if (KillRingLen == 0) /* nothing killed */ - return(CC_ERROR); - len = Strlen(KillRing[YankPos].buf); - if (LastChar + len >= InputLim) - return(CC_ERROR); /* end of buffer space */ - - /* else */ - cp = Cursor; /* for speed */ - - c_insert(len); /* open the space, */ - for (kp = KillRing[YankPos].buf; *kp; kp++) /* copy the chars */ - *cp++ = *kp; - - if (Argument == 1) { /* if no arg */ - Mark = Cursor; /* mark at beginning, cursor at end */ - Cursor = cp; - } else { - Mark = cp; /* else cursor at beginning, mark at end */ - } - - if (adrof(STRhighlight) && MarkIsSet) { - ClearLines(); - ClearDisp(); - } - MarkIsSet = 0; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_yank_pop(Char c) -{ /* almost like GnuEmacs */ - int m_bef_c, del_len, ins_len; - Char *kp, *cp; - - USE(c); - -#if 0 - /* XXX This "should" be here, but doesn't work, since LastCmd - gets set on CC_ERROR and CC_ARGHACK, which it shouldn't(?). - (But what about F_ARGFOUR?) I.e. if you hit M-y twice the - second one will "succeed" even if the first one wasn't preceded - by a yank, and giving an argument is impossible. Now we "succeed" - regardless of previous command, which is wrong too of course. */ - if (LastCmd != F_YANK_KILL && LastCmd != F_YANK_POP) - return(CC_ERROR); -#endif - - if (KillRingLen == 0) /* nothing killed */ - return(CC_ERROR); - YankPos -= Argument; - while (YankPos < 0) - YankPos += KillRingLen; - YankPos %= KillRingLen; - - if (Cursor > Mark) { - del_len = Cursor - Mark; - m_bef_c = 1; - } else { - del_len = Mark - Cursor; - m_bef_c = 0; - } - ins_len = Strlen(KillRing[YankPos].buf); - if (LastChar + ins_len - del_len >= InputLim) - return(CC_ERROR); /* end of buffer space */ - - if (m_bef_c) { - c_delbefore(del_len); - } else { - c_delafter(del_len); - } - cp = Cursor; /* for speed */ - - c_insert(ins_len); /* open the space, */ - for (kp = KillRing[YankPos].buf; *kp; kp++) /* copy the chars */ - *cp++ = *kp; - - if (m_bef_c) { - Mark = Cursor; /* mark at beginning, cursor at end */ - Cursor = cp; - } else { - Mark = cp; /* else cursor at beginning, mark at end */ - } - - if (adrof(STRhighlight) && MarkIsSet) { - ClearLines(); - ClearDisp(); - } - MarkIsSet = 0; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_delprev(Char c) /* Backspace key in insert mode */ -{ - int rc; - - USE(c); - rc = CC_ERROR; - - if (InsertPos != 0) { - if (Argument <= Cursor - InsertPos) { - c_delbefore(Argument); /* delete before */ - rc = CC_REFRESH; - } - } - return(rc); -} /* v_delprev */ - -/*ARGSUSED*/ -CCRETVAL -e_delprev(Char c) -{ - USE(c); - if (Cursor > InputBuf) { - c_delbefore(Argument); /* delete before dot */ - return(CC_REFRESH); - } - else { - return(CC_ERROR); - } -} - -/*ARGSUSED*/ -CCRETVAL -e_delwordprev(Char c) -{ - Char *cp; - - USE(c); - if (Cursor == InputBuf) - return(CC_ERROR); - /* else */ - - cp = c_prev_word(Cursor, InputBuf, Argument); - - c_push_kill(cp, Cursor); /* save the text */ - - c_delbefore((int)(Cursor - cp)); /* delete before dot */ - 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(Char 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(Char 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(Char 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(Char 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(Char 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(Char c) -{ - Char *cp; - - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - cp = c_next_word(Cursor, LastChar, Argument); - - c_push_kill(Cursor, cp); /* save the text */ - - c_delafter((int)(cp - Cursor)); /* delete after dot */ - if (Cursor > LastChar) - Cursor = LastChar; /* bounds check */ - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_toend(Char 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(Char 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(Char c) -{ - USE(c); - c_push_kill(Cursor, LastChar); /* copy it */ - LastChar = Cursor; /* zap! -- delete to end */ - if (Mark > Cursor) - Mark = Cursor; - MarkIsSet = 0; - return(CC_REFRESH); -} - - -/*ARGSUSED*/ -CCRETVAL -e_killbeg(Char c) -{ - USE(c); - c_push_kill(InputBuf, Cursor); /* copy it */ - c_delbefore((int)(Cursor - InputBuf)); - if (Mark && Mark > Cursor) - Mark -= Cursor-InputBuf; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_killall(Char c) -{ - USE(c); - c_push_kill(InputBuf, LastChar); /* copy it */ - Cursor = Mark = LastChar = InputBuf; /* zap! -- delete all of it */ - MarkIsSet = 0; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_killregion(Char c) -{ - USE(c); - if (!Mark) - return(CC_ERROR); - - if (Mark > Cursor) { - c_push_kill(Cursor, Mark); /* copy it */ - c_delafter((int)(Mark - Cursor)); /* delete it - UNUSED BY VI mode */ - Mark = Cursor; - } - else { /* mark is before cursor */ - c_push_kill(Mark, Cursor); /* copy it */ - c_delbefore((int)(Cursor - Mark)); - } - if (adrof(STRhighlight) && MarkIsSet) { - ClearLines(); - ClearDisp(); - } - MarkIsSet = 0; - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_copyregion(Char c) -{ - USE(c); - if (!Mark) - return(CC_ERROR); - - if (Mark > Cursor) { - c_push_kill(Cursor, Mark); /* copy it */ - } - else { /* mark is before cursor */ - c_push_kill(Mark, Cursor); /* copy it */ - } - return(CC_NORM); /* don't even need to Refresh() */ -} - -/*ARGSUSED*/ -CCRETVAL -e_charswitch(Char cc) -{ - 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(Char cc) -{ /* gosmacs style ^T */ - 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); - } -} - -/*ARGSUSED*/ -CCRETVAL -e_charback(Char c) -{ - USE(c); - if (Cursor > InputBuf) { - if (Argument > Cursor - InputBuf) - Cursor = InputBuf; - else - Cursor -= Argument; - - if (VImode) - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); - } - else { - return(CC_ERROR); - } -} - -/*ARGSUSED*/ -CCRETVAL -v_wordback(Char c) -{ - USE(c); - if (Cursor == InputBuf) - return(CC_ERROR); - /* else */ - - Cursor = c_preword(Cursor, InputBuf, Argument, STRshwspace); /* bounds check */ - - if (ActionFlag & TCSHOP_DELETE) { - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_wordback(Char 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); -} - -/*ARGSUSED*/ -CCRETVAL -e_charfwd(Char c) -{ - USE(c); - if (Cursor < LastChar) { - Cursor += Argument; - 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(Char 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(Char 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(Char 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(int c) -{ - CCRETVAL rv = CC_ERROR; -#ifdef SDEBUG - xprintf("dir %d patlen %d patbuf %S\n", - c, (int)patbuf.len, patbuf.s); -#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(Char ch, int count, int 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(Char ch, int count, int 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(int c) -{ - 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(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(Char 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(Char 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(Char 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(Char c) -{ - USE(c); - if (adrof(STRhighlight) && MarkIsSet && Mark != Cursor) { - ClearLines(); - ClearDisp(); - Refresh(); - } - Mark = Cursor; - MarkIsSet = 1; - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_exchange_mark(Char c) -{ - Char *cp; - - USE(c); - cp = Cursor; - Cursor = Mark; - Mark = cp; - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_argfour(Char c) -{ /* multiply current argument by 4 */ - USE(c); - if (Argument > 1000000) - return CC_ERROR; - DoingArg = 1; - Argument *= 4; - return(CC_ARGHACK); -} - -static void -quote_mode_cleanup(void *unused) -{ - USE(unused); - QuoteModeOff(); -} - -/*ARGSUSED*/ -CCRETVAL -e_quote(Char c) -{ - Char ch; - int num; - - USE(c); - QuoteModeOn(); - cleanup_push(&c, quote_mode_cleanup); /* Using &c just as a mark */ - num = GetNextChar(&ch); - cleanup_until(&c); - if (num == 1) - return e_insert(ch); - else - return e_send_eof(0); -} - -/*ARGSUSED*/ -CCRETVAL -e_metanext(Char c) -{ - USE(c); - MetaNext = 1; - return(CC_ARGHACK); /* preserve argument */ -} - -#ifdef notdef -/*ARGSUSED*/ -CCRETVAL -e_extendnext(Char c) -{ - CurrentKeyMap = CcAltMap; - return(CC_ARGHACK); /* preserve argument */ -} - -#endif - -/*ARGSUSED*/ -CCRETVAL -v_insbeg(Char 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(Char 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(Char 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(Char c) -{ /* vi mode substitute for one char */ - USE(c); - c_delafter(Argument); - c_alternativ_key_map(0); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_substline(Char c) -{ /* vi mode replace whole line */ - USE(c); - (void) e_killall(0); - c_alternativ_key_map(0); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -v_chgtoend(Char 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(Char 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(Char 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(Char 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(Char cc) -{ - Char c; - - USE(cc); - if (Cursor < LastChar) { -#ifndef WINNT_NATIVE - c = *Cursor; -#else - c = CHAR & *Cursor; -#endif /* WINNT_NATIVE */ - if (Isupper(c)) - *Cursor++ = Tolower(c); - else if (Islower(c)) - *Cursor++ = Toupper(c); - else - Cursor++; - RefPlusOne(1); /* fast refresh for one char */ - return(CC_NORM); - } - return(CC_ERROR); -} - -/*ARGSUSED*/ -CCRETVAL -e_expand(Char c) -{ - Char *p; - - 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(Char c) -{ /* erase all of current line, start again */ - USE(c); - ResetInLine(0); /* reset the input pointers */ - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_redisp(Char c) -{ - USE(c); - ClearLines(); - ClearDisp(); - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_cleardisp(Char c) -{ - USE(c); - ClearScreen(); /* clear the whole real screen */ - ClearDisp(); /* reset everything */ - return(CC_REFRESH); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_int(Char c) -{ - USE(c); -#if defined(_MINIX) || defined(WINNT_NATIVE) - /* SAK PATCH: erase all of current line, start again */ - ResetInLine(0); /* reset the input pointers */ - xputchar('\n'); - ClearDisp(); - return (CC_REFRESH); -#else /* !_MINIX && !WINNT_NATIVE */ - /* do no editing */ - return (CC_NORM); -#endif /* _MINIX || WINNT_NATIVE */ -} - -/* - * 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(Char c) -{ -#ifdef TIOCSTI - int was_raw = Tty_raw_mode; - char buf[MB_LEN_MAX]; - size_t i, len; - - if (was_raw) - (void) Cookedmode(); - - (void) xwrite(SHIN, "\n", 1); - len = one_wctomb(buf, c & CHAR); - for (i = 0; i < len; i++) - (void) ioctl(SHIN, TIOCSTI, (ioctl_t) &buf[i]); - - if (was_raw) - (void) Rawmode(); - return(e_redisp(c)); -#else /* !TIOCSTI */ - return(CC_ERROR); -#endif /* !TIOCSTI */ -} - -/*ARGSUSED*/ -CCRETVAL -e_insovr(Char c) -{ - USE(c); - inputmode = (inputmode == MODE_INSERT ? MODE_REPLACE : MODE_INSERT); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_dsusp(Char c) -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_flusho(Char c) -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_quit(Char c) -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_tsusp(Char c) -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_tty_stopo(Char c) -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_expand_history(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - c_substitute(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_magic_space(Char c) -{ - USE(c); - *LastChar = '\0'; /* just in case */ - c_substitute(); - return(e_insert(' ')); -} - -/*ARGSUSED*/ -CCRETVAL -e_inc_fwd(Char c) -{ - CCRETVAL ret; - - USE(c); - patbuf.len = 0; - MarkIsSet = 0; - ret = e_inc_search(F_DOWN_SEARCH_HIST); - if (adrof(STRhighlight) && IncMatchLen) { - IncMatchLen = 0; - ClearLines(); - ClearDisp(); - Refresh(); - } - IncMatchLen = 0; - return ret; -} - - -/*ARGSUSED*/ -CCRETVAL -e_inc_back(Char c) -{ - CCRETVAL ret; - - USE(c); - patbuf.len = 0; - MarkIsSet = 0; - ret = e_inc_search(F_UP_SEARCH_HIST); - if (adrof(STRhighlight) && IncMatchLen) { - IncMatchLen = 0; - ClearLines(); - ClearDisp(); - Refresh(); - } - IncMatchLen = 0; - return ret; -} - -/*ARGSUSED*/ -CCRETVAL -e_copyprev(Char c) -{ - 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(Char c) -{ - USE(c); - /* do no editing */ - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -e_load_average(Char 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(Char 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(Char c) -{ - USE(c); - return(v_action(TCSHOP_DELETE)); -} - - -/*ARGSUSED*/ -CCRETVAL -v_endword(Char c) -{ - USE(c); - if (Cursor == LastChar) - return(CC_ERROR); - /* else */ - - Cursor = c_endword(Cursor, LastChar, Argument, STRshwspace); - - if (ActionFlag & TCSHOP_DELETE) - { - Cursor++; - c_delfini(); - return(CC_REFRESH); - } - - RefCursor(); - return(CC_NORM); -} - -/*ARGSUSED*/ -CCRETVAL -v_eword(Char 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(Char 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(Char 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(Char 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(Char 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(Char 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(Char 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(Char c) -{ - int loop; - 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(Char c) -{ - USE(c); - return v_search(F_UP_SEARCH_HIST); -} - -/*ARGSUSED*/ -CCRETVAL -v_dsh_meta(Char c) -{ - USE(c); - return v_search(F_DOWN_SEARCH_HIST); -} - -/*ARGSUSED*/ -CCRETVAL -v_rsrch_fwd(Char c) -{ - USE(c); - if (patbuf.len == 0) return(CC_ERROR); - return(v_repeat_srch(searchdir)); -} - -/*ARGSUSED*/ -CCRETVAL -v_rsrch_back(Char c) -{ - USE(c); - if (patbuf.len == 0) return(CC_ERROR); - return(v_repeat_srch(searchdir == F_UP_SEARCH_HIST ? - F_DOWN_SEARCH_HIST : F_UP_SEARCH_HIST)); -} - -#ifndef WINNT_NATIVE -/* 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(Char c) -{ - USE(c); - return CC_ERROR; -} - -CCRETVAL -e_paste_from_clipboard(Char c) -{ - USE(c); - return (CC_ERROR); -} - -CCRETVAL -e_dosify_next(Char c) -{ - USE(c); - return (CC_ERROR); -} -CCRETVAL -e_dosify_prev(Char c) -{ - USE(c); - return (CC_ERROR); -} -CCRETVAL -e_page_up(Char c) -{ - USE(c); - return (CC_ERROR); -} -CCRETVAL -e_page_down(Char c) -{ - USE(c); - return (CC_ERROR); -} -#endif /* !WINNT_NATIVE */ - -#ifdef notdef -void -MoveCursor(int n) /* move cursor + right - left char */ -{ - Cursor = Cursor + n; - if (Cursor < InputBuf) - Cursor = InputBuf; - if (Cursor > LastChar) - Cursor = LastChar; - return; -} - -Char * -GetCursor(void) -{ - return(Cursor); -} - -int -PutCursor(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 a9628ce..0000000 --- a/contrib/tcsh/ed.decls.h +++ /dev/null @@ -1,280 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.decls.h,v 3.44 2006/08/23 15:03:13 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. 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 (Char *); -extern void DeleteBack (int); -extern void SetKillRing (int); -extern CCRETVAL GetHistLine (void); - -/* - * ed.init.c - */ -#ifdef SIG_WINDOW -extern void check_window_size (int); -extern void window_change (int); -#endif /* SIG_WINDOW */ -extern int ed_Setup (int); -extern void ed_Init (void); -extern int Cookedmode (void); -extern int Rawmode (void); -extern void ed_set_tty_eight_bit (void); - -extern void QuoteModeOn (void); -extern void QuoteModeOff (void); -extern void ResetInLine (int); -extern int Load_input_line (void); - -/* - * ed.term.c: - */ -extern void dosetty (Char **, struct command *); -extern int tty_getty (int, ttydata_t *); -extern int tty_setty (int, ttydata_t *); -extern void tty_getchar (ttydata_t *, unsigned char *); -extern void tty_setchar (ttydata_t *, unsigned char *); -extern speed_t tty_getspeed (ttydata_t *); -extern int tty_gettabs (ttydata_t *); -extern int tty_geteightbit (ttydata_t *); -extern int tty_cooked_mode (ttydata_t *); -#ifdef _IBMR2 -extern void tty_setdisc (int, int); -#endif /* _IBMR2 */ - -/* - * ed.screen.c - */ -extern void terminit (void); -extern void SetAttributes (Char); -extern void so_write (Char *, int); -extern void ClearScreen (void); -extern void MoveToLine (int); -extern void MoveToChar (int); -extern void ClearEOL (int); -extern void Insert_write (Char *, int); -extern void DeleteChars (int); -extern void TellTC (void); -extern void SetTC (char *, char *); -extern void EchoTC (Char **); -extern int SetArrowKeys (const CStr *, XmapVal *, int); -extern int IsArrowKey (Char *); -extern void ResetArrowKeys (void); -extern void DefaultArrowKeys (void); -extern int ClearArrowKeys (const CStr *); -extern void PrintArrowKeys (const CStr *); -extern void BindArrowKeys (void); -extern void SoundBeep (void); -extern int CanWeTab (void); -extern void ChangeSize (int, int); -#ifdef SIG_WINDOW -extern int GetSize (int *, int *); -#endif /* SIG_WINDOW */ -extern void ClearToBottom (void); -extern void GetTermCaps (void); -extern void StartHighlight (void); -extern void StopHighlight (void); - -/* - * ed.defns.c - */ -extern void editinit (void); -extern void ed_InitNLSMaps (void); -#ifdef DEBUG_EDIT -extern void CheckMaps (void); -#endif -extern void ed_InitMaps (void); -extern void ed_InitEmacsMaps (void); -extern void ed_InitVIMaps (void); - -extern CCRETVAL e_unassigned (Char); -extern CCRETVAL e_insert (Char); -extern CCRETVAL e_newline (Char); -extern CCRETVAL e_delprev (Char); -extern CCRETVAL e_delnext (Char); -/* added by mtk@ari.ncl.omron.co.jp (920818) */ -extern CCRETVAL e_delnext_eof (Char); -extern CCRETVAL e_delnext_list (Char); -extern CCRETVAL e_delnext_list_eof (Char); /* for ^D */ -extern CCRETVAL e_toend (Char); -extern CCRETVAL e_tobeg (Char); -extern CCRETVAL e_charback (Char); -extern CCRETVAL e_charfwd (Char); -extern CCRETVAL e_quote (Char); -extern CCRETVAL e_startover (Char); -extern CCRETVAL e_redisp (Char); -extern CCRETVAL e_wordback (Char); -extern CCRETVAL e_wordfwd (Char); -extern CCRETVAL v_wordbegnext (Char); -extern CCRETVAL e_uppercase (Char); -extern CCRETVAL e_lowercase (Char); -extern CCRETVAL e_capitolcase (Char); -extern CCRETVAL e_cleardisp (Char); -extern CCRETVAL e_complete (Char); -extern CCRETVAL e_correct (Char); -extern CCRETVAL e_correctl (Char); -extern CCRETVAL e_up_hist (Char); -extern CCRETVAL e_down_hist (Char); -extern CCRETVAL e_up_search_hist (Char); -extern CCRETVAL e_down_search_hist (Char); -extern CCRETVAL e_helpme (Char); -extern CCRETVAL e_list_choices (Char); -extern CCRETVAL e_delwordprev (Char); -extern CCRETVAL e_delwordnext (Char); -extern CCRETVAL e_digit (Char); -extern CCRETVAL e_argdigit (Char); -extern CCRETVAL v_zero (Char); -extern CCRETVAL e_killend (Char); -extern CCRETVAL e_killbeg (Char); -extern CCRETVAL e_metanext (Char); -#ifdef notdef -extern CCRETVAL e_extendnext (Char); -#endif -extern CCRETVAL e_send_eof (Char); -extern CCRETVAL e_charswitch (Char); -extern CCRETVAL e_gcharswitch (Char); -extern CCRETVAL e_which (Char); -extern CCRETVAL e_yank_kill (Char); -extern CCRETVAL e_tty_dsusp (Char); -extern CCRETVAL e_tty_flusho (Char); -extern CCRETVAL e_tty_quit (Char); -extern CCRETVAL e_tty_tsusp (Char); -extern CCRETVAL e_tty_stopo (Char); -extern CCRETVAL e_tty_starto (Char); -extern CCRETVAL e_argfour (Char); -extern CCRETVAL e_set_mark (Char); -extern CCRETVAL e_exchange_mark (Char); -extern CCRETVAL e_last_item (Char); -extern CCRETVAL v_cmd_mode (Char); -extern CCRETVAL v_insert (Char); -extern CCRETVAL v_replmode (Char); -extern CCRETVAL v_replone (Char); -extern CCRETVAL v_substline (Char); -extern CCRETVAL v_substchar (Char); -extern CCRETVAL v_add (Char); -extern CCRETVAL v_addend (Char); -extern CCRETVAL v_insbeg (Char); -extern CCRETVAL v_chgtoend (Char); -extern CCRETVAL e_killregion (Char); -extern CCRETVAL e_killall (Char); -extern CCRETVAL e_copyregion (Char); -extern CCRETVAL e_tty_int (Char); -extern CCRETVAL e_run_fg_editor (Char); -extern CCRETVAL e_list_eof (Char); -extern CCRETVAL e_expand_history (Char); -extern CCRETVAL e_magic_space (Char); -extern CCRETVAL e_list_glob (Char); -extern CCRETVAL e_expand_glob (Char); -extern CCRETVAL e_insovr (Char); -extern CCRETVAL v_cm_complete (Char); -extern CCRETVAL e_copyprev (Char); -extern CCRETVAL v_change_case (Char); -extern CCRETVAL e_expand (Char); -extern CCRETVAL e_expand_vars (Char); -extern CCRETVAL e_toggle_hist (Char); -extern CCRETVAL e_load_average (Char); -extern CCRETVAL v_delprev (Char); -extern CCRETVAL v_delmeta (Char); -extern CCRETVAL v_wordfwd (Char); -extern CCRETVAL v_wordback (Char); -extern CCRETVAL v_endword (Char); -extern CCRETVAL v_eword (Char); -extern CCRETVAL v_undo (Char); -extern CCRETVAL v_ush_meta (Char); -extern CCRETVAL v_dsh_meta (Char); -extern CCRETVAL v_rsrch_fwd (Char); -extern CCRETVAL v_rsrch_back (Char); -extern CCRETVAL v_char_fwd (Char); -extern CCRETVAL v_char_back (Char); -extern CCRETVAL v_chgmeta (Char); -extern CCRETVAL e_inc_fwd (Char); -extern CCRETVAL e_inc_back (Char); -extern CCRETVAL v_rchar_fwd (Char); -extern CCRETVAL v_rchar_back (Char); -extern CCRETVAL v_charto_fwd (Char); -extern CCRETVAL v_charto_back (Char); -extern CCRETVAL e_normalize_path (Char); -extern CCRETVAL e_normalize_command (Char); -extern CCRETVAL e_stuff_char (Char); -extern CCRETVAL e_list_all (Char); -extern CCRETVAL e_complete_all (Char); -extern CCRETVAL e_complete_fwd (Char); -extern CCRETVAL e_complete_back (Char); -extern CCRETVAL e_dabbrev_expand (Char); -extern CCRETVAL e_copy_to_clipboard (Char); -extern CCRETVAL e_paste_from_clipboard (Char); -extern CCRETVAL e_dosify_next (Char); -extern CCRETVAL e_dosify_prev (Char); -extern CCRETVAL e_page_up (Char); -extern CCRETVAL e_page_down (Char); -extern CCRETVAL e_yank_pop (Char); -extern CCRETVAL e_newline_hold (Char); -extern CCRETVAL e_newline_down_hist (Char); - -/* - * ed.inputl.c - */ -extern int Inputl (void); -extern int GetNextChar (Char *); -extern void UngetNextChar (Char); -extern void PushMacro (Char *); - -/* - * ed.refresh.c - */ -extern void ClearLines (void); -extern void ClearDisp (void); -extern void Refresh (void); -extern void RefCursor (void); -extern void RefPlusOne (int); -extern void PastBottom (void); - -/* - * ed.xmap.c - */ -extern XmapVal *XmapStr (CStr *); -extern XmapVal *XmapCmd (int); -extern void AddXkey (const CStr *, XmapVal *, int); -extern void ClearXkey (KEYCMD *, const CStr *); -extern int GetXkey (CStr *, XmapVal *); -extern void ResetXmap (void); -extern int DeleteXkey (const CStr *); -extern void PrintXkey (const CStr *); -extern void printOne (const Char *, const XmapVal *, int); -extern eChar parseescape (const Char **); -extern unsigned char *unparsestring (const CStr *, const Char *); - -#endif /* _h_ed_decls */ diff --git a/contrib/tcsh/ed.defns.c b/contrib/tcsh/ed.defns.c deleted file mode 100644 index 5124bde..0000000 --- a/contrib/tcsh/ed.defns.c +++ /dev/null @@ -1,1984 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.defns.c,v 3.46 2006/03/02 18:46:44 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. 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("$tcsh: ed.defns.c,v 3.46 2006/03/02 18:46:44 christos Exp $") - -#include "ed.h" - -static void ed_InitMetaBindings (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 - e_page_up, -#define F_PAGE_UP 117 - e_page_down, -#define F_PAGE_DOWN 118 - e_yank_pop, -#define F_YANK_POP 119 - e_newline_hold, -#define F_NEWLINE_HOLD 120 - e_newline_down_hist, -#define F_NEWLINE_DOWN_HIST 121 - 0 /* DUMMY VALUE */ -#define F_NUM_FNS 122 - -}; - -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_NATIVE -extern KEYCMD CcEmacsMap[]; -extern KEYCMD CcViMap[]; -extern KEYCMD CcViCmdMap[]; -#else /* !WINNT_NATIVE*/ -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_NEWLINE_HOLD, /* 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_YANK_POP, /* 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_NEWLINE_HOLD, /* 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_YANK_POP, /* 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_NATIVE */ - - -void -editinit(void) -{ - struct KeyFuncs *f; - -#if defined(NLS_CATALOGS) || defined(WINNT_NATIVE) - int i; - - for (i = 0; i < F_NUM_FUNCNAMES; i++) - xfree((ptr_t)(intptr_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 = "newline-and-hold"; - f->func = F_NEWLINE_HOLD; - f->desc = CSAVS(3, 122, "Execute command and keep current line"); - - f++; - f->name = "newline-and-down-history"; - f->func = F_NEWLINE_DOWN_HIST; - f->desc = CSAVS(3, 123, "Execute command and move to next history line"); - - 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 = "yank-pop"; - f->func = F_YANK_POP; - f->desc = CSAVS(3, 115, - "Replace just-yanked text with yank from earlier kill"); - - f++; - f->name = "e_copy_to_clipboard"; - f->func = F_COPY_CLIP; - f->desc = CSAVS(3, 116, - "(WIN32 only) Copy cut buffer to system clipboard"); - - f++; - f->name = "e_paste_from_clipboard"; - f->func = F_PASTE_CLIP; - f->desc = CSAVS(3, 117, - "(WIN32 only) Paste clipboard buffer at cursor position"); - - f++; - f->name = "e_dosify_next"; - f->func = F_DOSIFY_NEXT; - f->desc = CSAVS(3, 118, - "(WIN32 only) Convert each '/' in next word to '\\\\'"); - - f++; - f->name = "e_dosify_prev"; - f->func = F_DOSIFY_PREV; - f->desc = CSAVS(3, 119, - "(WIN32 only) Convert each '/' in previous word to '\\\\'"); - - f++; - f->name = "e_page_up"; - f->func = F_PAGE_UP; - f->desc = CSAVS(3, 120, "(WIN32 only) Page visible console window up"); - - f++; - f->name = "e_page_down"; - f->func = F_PAGE_DOWN; - f->desc = CSAVS(3, 121, "(WIN32 only) Page visible console window down"); - - f++; - f->name = NULL; - f->func = 0; - f->desc = NULL; - - f++; - if (f - FuncNames != F_NUM_FUNCNAMES) - abort(); -} - -#ifdef DEBUG_EDIT -void -CheckMaps(void) -{ /* 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 - -int MapsAreInited = 0; -int NLSMapsAreInited = 0; -int NoNLSRebind; - -void -ed_InitNLSMaps(void) -{ - int i; - - if (AsciiOnly) - return; - if (NoNLSRebind) - return; - for (i = 0200; i <= 0377; i++) { - if (Isprint(CTL_ESC(i))) { - CcKeyMap[CTL_ESC(i)] = F_INSERT; - } - } - NLSMapsAreInited = 1; -} - -static void -ed_InitMetaBindings(void) -{ - Char buf[3]; - int i; - CStr cstr; - KEYCMD *map; - - map = CcKeyMap; - for (i = 0; i <= 0377 && CcKeyMap[CTL_ESC(i)] != F_METANEXT; i++) - continue; - if (i > 0377) { - for (i = 0; i <= 0377 && CcAltMap[CTL_ESC(i)] != F_METANEXT; i++) - continue; - if (i > 0377) { - i = '\033'; - if (VImode) - map = CcAltMap; - } - else { - map = CcAltMap; - } - } - buf[0] = (Char)CTL_ESC(i); - buf[2] = 0; - cstr.buf = buf; - cstr.len = 2; - for (i = 0200; i <= 0377; i++) { - if (map[CTL_ESC(i)] != F_INSERT && map[CTL_ESC(i)] != F_UNASSIGNED && map[CTL_ESC(i)] != F_XKEY) { - buf[1] = CTL_ESC(i & ASCII); - AddXkey(&cstr, XmapCmd((int) map[CTL_ESC(i)]), XK_CMD); - } - } - map[buf[0]] = F_XKEY; -} - -void -ed_InitVIMaps(void) -{ - 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(void) -{ - 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(void) -{ - if (MapsAreInited) - return; -#ifndef IS_ASCII - /* 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 }; - 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 /* !IS_ASCII */ - -#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 10e519c..0000000 --- a/contrib/tcsh/ed.h +++ /dev/null @@ -1,250 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.h,v 3.49 2006/08/23 15:03:13 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. 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 MAXMACROLEVELS 10 /* max number of nested kbd macros */ - -#ifndef WINNT_NATIVE -# define NT_NUM_KEYS 256 -#endif /* WINNT_NATIVE */ - -/****************************************************************************/ -/* 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) (Char); /* pointer to function returning CCRETVAL */ - -struct KeyFuncs { /* for the "bind" shell command */ - const char *name; /* function name for bind command */ - int func; /* function numeric value */ - const 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 { /* 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 *//*FIXBUF*/ -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 MarkIsSet; /* true if the mark has been set explicitly */ -EXTERN Char DoingArg; /* true if we have an argument */ -EXTERN int Argument; /* "universal" argument value */ -EXTERN KEYCMD LastCmd; /* previous command executed */ -EXTERN CStr *KillRing; /* kill ring */ -EXTERN int KillRingMax; /* max length of kill ring */ -EXTERN int KillRingLen; /* current length of kill ring */ -EXTERN int KillPos; /* points to next kill */ -EXTERN int YankPos; /* points to next yank */ - -EXTERN Char UndoBuf[INBUFSIZE];/*FIXBUF*/ -EXTERN Char *UndoPtr; -EXTERN int UndoSize; -EXTERN int UndoAction; - -EXTERN struct Strbuf HistBuf; /* = Strbuf_INIT; history buffer */ -EXTERN int Hist_num; /* what point up the history we are at now. */ -/* buffer for which command and others */ -EXTERN struct Strbuf SavedBuf; /* = Strbuf_INIT; */ -EXTERN size_t LastSaved; /* points to end of saved buffer */ -EXTERN size_t CursSaved; /* points to the cursor point in saved buf */ -EXTERN int HistSaved; /* Hist_num is saved in this */ -EXTERN char RestoreSaved; /* true if SavedBuf should be restored */ -EXTERN int IncMatchLen; /* current match length during incremental search */ -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 */ -extern int Tty_raw_mode; - -/* - * These are truly extern - */ -extern int MacroLvl; -extern Char *litptr; /* Entries start at offsets divisible by LIT_FACTOR */ -#define LIT_FACTOR 4 -extern int didsetty; - -EXTERN Char *KeyMacro[MAXMACROLEVELS]; - -/* CHAR_DBWIDTH in Display and Vdisplay means the non-first column of a character - that is wider than one "regular" position. The cursor should never point - in the middle of a multiple-column character. */ -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)) - -#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 { - const char *t_name; - unsigned int t_setmask; - unsigned int t_clrmask; -} ttyperm_t[NN_IO][M_NN]; - -extern ttyperm_t ttylist; -#include "ed.term.h" -#include "ed.decls.h" - -#ifndef POSIX -/* - * We don't prototype these, cause some systems have them wrong! - */ -extern int tgetent (); -extern char *tgetstr (); -extern int tgetflag (); -extern int tgetnum (); -extern char *tgoto (); -# define PUTPURE putpure -# define PUTRAW putraw -#else -extern int tgetent (char *, const char *); -extern char *tgetstr (const char *, char **); -extern int tgetflag (const char *); -extern int tgetnum (const char *); -extern char *tgoto (const char *, int, int); -extern void tputs (const char *, int, void (*)(int)); -# define PUTPURE ((void (*)(int)) putpure) -# define PUTRAW ((void (*)(int)) putraw) -#endif - -#endif /* _h_ed */ diff --git a/contrib/tcsh/ed.init.c b/contrib/tcsh/ed.init.c deleted file mode 100644 index c7dfcce..0000000 --- a/contrib/tcsh/ed.init.c +++ /dev/null @@ -1,708 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.init.c,v 3.60 2006/08/24 20:56:31 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. 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("$tcsh: ed.init.c,v 3.60 2006/08/24 20:56:31 christos Exp $") - -#include "ed.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 int GotTermCaps; - -static ttydata_t extty, edtty, tstty; -#define qutty tstty - -#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(int force) -{ - int lins, cols; - - /* don't want to confuse things here */ - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - /* - * 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); - } - windowchg = 0; - cleanup_until(&pintr_disabled); /* can change it again */ -} - -void -/*ARGSUSED*/ -window_change(int snum) -{ - USE(snum); - windowchg = 1; -} - -#endif /* SIG_WINDOW */ - -void -ed_set_tty_eight_bit(void) -{ - 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(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_NATIVE) - { - 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_NATIVE */ - vdisable = (unsigned char) _POSIX_VDISABLE; -#endif /* POSIX && _PC_VDISABLE && !BSD4_4 && !WINNT_NATIVE */ - - if ((imode = adrof(STRinputmode)) != NULL && imode->vec != 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; - SetKillRing(getn(varval(STRkillring))); - -#ifndef WINNT_NATIVE - 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 - { - sigset_t set; - (void)signal(SIG_WINDOW, window_change); /* for window systems */ - sigemptyset(&set); - sigaddset(&set, SIG_WINDOW); - (void)sigprocmask(SIG_UNBLOCK, &set, NULL); - } -# endif -#else /* WINNT_NATIVE */ -# ifdef DEBUG - if (rst) - xprintf("rst received in ed_Setup() %d\n", rst); -# endif -#endif /* WINNT_NATIVE */ - havesetup = 1; - return(0); -} - -void -ed_Init(void) -{ - ResetInLine(1); /* reset the input pointers */ - GettingInput = 0; /* just in case */ -#ifdef notdef - /* XXX This code was here before the kill ring: - LastKill = KillBuf; / * no kill buffer * / - If there was any reason for that other than to make sure LastKill - was initialized, the code below should go in here instead - but - it doesn't seem reasonable to lose the entire kill ring (which is - "self-initializing") just because you set $term or whatever, so - presumably this whole '#ifdef notdef' should just be taken out. */ - - { /* no kill ring - why? */ - int i; - for (i = 0; i < KillRingMax; i++) { - xfree(KillRing[i].buf); - KillRing[i].buf = NULL; - KillRing[i].len = 0; - } - YankPos = KillPos = 0; - KillRingLen = 0; - } -#endif - -#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_NATIVE -# 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_NATIVE */ -} - -/* - * Check and re-init the line. set the terminal into 1 char at a time mode. - */ -int -Rawmode(void) -{ - if (Tty_raw_mode) - return (0); - -#ifdef WINNT_NATIVE - do_nt_raw_mode(); -#else /* !WINNT_NATIVE */ -# 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 */ - - { - 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_NATIVE */ - Tty_raw_mode = 1; - flush(); /* flush any buffered output */ - return (0); -} - -int -Cookedmode(void) -{ /* set tty in normal setup */ -#ifdef WINNT_NATIVE - do_nt_cooked_mode(); -#else - sigset_t set, oset; - int res; - -# ifdef _IBMR2 - tty_setdisc(SHTTY, EX_IO); -# endif /* _IBMR2 */ - - if (!Tty_raw_mode) - return (0); - - /* hold this for reseting tty */ - sigemptyset(&set); - sigaddset(&set, SIGINT); - (void)sigprocmask(SIG_BLOCK, &set, &oset); - cleanup_push(&oset, sigprocmask_cleanup); - res = tty_setty(SHTTY, &extty); - cleanup_until(&oset); - if (res == -1) { -# ifdef DEBUG_TTY - xprintf("Cookedmode: tty_setty: %s\n", strerror(errno)); -# endif /* DEBUG_TTY */ - return -1; - } -#endif /* WINNT_NATIVE */ - - Tty_raw_mode = 0; - return (0); -} - -void -ResetInLine(int macro) -{ - Cursor = InputBuf; /* reset cursor */ - LastChar = InputBuf; - InputLim = &InputBuf[INBUFSIZE - 2];/*FIXBUF*/ - Mark = InputBuf; - MarkIsSet = 0; - MetaNext = 0; - CurrentKeyMap = CcKeyMap; - AltKeyMap = 0; - Hist_num = 0; - DoingArg = 0; - Argument = 1; - LastCmd = F_UNASSIGNED; /* previous command executed */ - IncMatchLen = 0; - if (macro) - MacroLvl = -1; /* no currently active macros */ -} - -int -Load_input_line(void) -{ - static Char *Input_Line = NULL; -#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(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 = xread(SHIN, buf, 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(void) -{ - if (MacroLvl >= 0) - return; - -#ifndef WINNT_NATIVE - 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_NATIVE */ - Tty_quote_mode = 1; - return; -} - -void -QuoteModeOff(void) -{ - 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 a97058e..0000000 --- a/contrib/tcsh/ed.inputl.c +++ /dev/null @@ -1,947 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.inputl.c,v 3.66 2006/11/29 22:32:24 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. 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("$tcsh: ed.inputl.c,v 3.66 2006/11/29 22:32:24 christos Exp $") - -#include "ed.h" -#include "ed.defns.h" /* for the function names */ -#include "tw.h" /* for twenex stuff */ - -#define OKCMD INT_MAX - -/* ed.inputl -- routines to get a single line from the input. */ - -extern int MapsAreInited; - -/* mismatched first character */ -static Char mismatch[] = - {'!', '^' , '\\', '-', '%', '\0', '"', '\'', '`', '\0' }; - -static int Repair (void); -static int GetNextCommand (KEYCMD *, Char *); -static int SpellLine (int); -static int CompleteLine (void); -static void RunCommand (Char *); -static void doeval1 (Char **); - -static int rotate = 0; - - -static int -Repair(void) -{ - if (NeedsRedraw) { - ClearLines(); - ClearDisp(); - NeedsRedraw = 0; - } - Refresh(); - Argument = 1; - DoingArg = 0; - curchoice = -1; - return (int) (LastChar - InputBuf); -} - -/* CCRETVAL */ -int -Inputl(void) -{ - CCRETVAL retval; - KEYCMD cmdnum = 0; - 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; - 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 && imode->vec != NULL) { - 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; - tellwhat = 0; - - if (RestoreSaved) { - copyn(InputBuf, SavedBuf.s, INBUFSIZE);/*FIXBUF*/ - LastChar = InputBuf + LastSaved; - Cursor = InputBuf + CursSaved; - Hist_num = HistSaved; - HistSaved = 0; - RestoreSaved = 0; - } - if (HistSaved) { - Hist_num = HistSaved; - GetHistLine(); - HistSaved = 0; - } - 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])/*FIXBUF*/ - 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; - *LastChar++ = '\n'; /* for the benifit of CSH */ - num = (int) (LastChar - InputBuf); /* number characters read */ - break; - - case CC_NEWLINE: /* normal end of line */ - curlen = 0; - curchoice = -1; - matchval = 1; - if (crct && crct->vec != NULL && (!Strcmp(*(crct->vec), STRcmd) || - !Strcmp(*(crct->vec), STRall))) { - Char *Origin; - - PastBottom(); - Origin = Strsave(InputBuf); - cleanup_push(Origin, xfree); - SaveChar = LastChar; - if (SpellLine(!Strcmp(*(crct->vec), STRcmd)) == 1) { - Char *Change; - - PastBottom(); - Change = Strsave(InputBuf); - cleanup_push(Change, xfree); - *Strchr(Change, '\n') = '\0'; - CorrChar = LastChar; /* Save the corrected end */ - LastChar = InputBuf; /* Null the current line */ - SoundBeep(); - printprompt(2, short2str(Change)); - cleanup_until(Change); - Refresh(); - if (xread(SHIN, &tch, 1) < 0) { -#ifdef convex - /* - * need to print error message in case file - * is migrated - */ - if (errno) - stderror(ERR_SYSTEM, progname, strerror(errno)); -#else - cleanup_until(Origin); - break; -#endif - } - ch = tch; - if (ch == 'y' || ch == ' ') { - LastChar = CorrChar; /* Restore the corrected end */ - xprintf(CGETS(6, 2, "yes\n")); - } - else { - Strcpy(InputBuf, Origin); - LastChar = SaveChar; - if (ch == 'e') { - xprintf(CGETS(6, 3, "edit\n")); - *LastChar-- = '\0'; - Cursor = LastChar; - printprompt(3, NULL); - ClearLines(); - ClearDisp(); - Refresh(); - cleanup_until(Origin); - break; - } - else if (ch == 'a') { - xprintf(CGETS(6, 4, "abort\n")); - LastChar = InputBuf; /* Null the current line */ - Cursor = LastChar; - printprompt(0, NULL); - Refresh(); - cleanup_until(Origin); - break; - } - xprintf(CGETS(6, 5, "no\n")); - } - flush(); - } - cleanup_until(Origin); - } else if (crct && crct->vec != NULL && - !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 && matchbeep->vec != NULL && - (Strcmp(*(matchbeep->vec), STRnotunique) == 0)) - SoundBeep(); - break; - case 0: - if (matchbeep && matchbeep->vec != NULL) { - 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 && matchbeep->vec != NULL) { - 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 && autol->vec != NULL && - (Strcmp(*(autol->vec), STRambiguous) != 0 || - expnum == Cursor - InputBuf)) { - if (adrof(STRhighlight) && MarkIsSet) { - /* clear highlighting before showing completions */ - MarkIsSet = 0; - ClearLines(); - ClearDisp(); - Refresh(); - MarkIsSet = 1; - } - 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 */ - if (adrof(STRhighlight)) { - ClearLines(); - ClearDisp(); - Refresh(); - } - 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(Char *str) -{ - if (str != NULL && MacroLvl + 1 < MAXMACROLEVELS) { - MacroLvl++; - KeyMacro[MacroLvl] = str; - } - else { - SoundBeep(); - flush(); - } -} - -struct eval1_state -{ - Char **evalvec, *evalp; -}; - -static void -eval1_cleanup(void *xstate) -{ - struct eval1_state *state; - - state = xstate; - evalvec = state->evalvec; - evalp = state->evalp; - doneinp = 0; -} - -/* - * Like eval, only using the current file descriptors - */ -static void -doeval1(Char **v) -{ - struct eval1_state state; - Char **gv; - int gflag; - - gflag = tglob(v); - if (gflag) { - gv = v = globall(v, gflag); - if (v == 0) - stderror(ERR_NOMATCH); - v = copyblk(v); - } - else { - gv = NULL; - v = copyblk(v); - trim(v); - } - if (gv) - cleanup_push(gv, blk_cleanup); - - state.evalvec = evalvec; - state.evalp = evalp; - evalvec = v; - evalp = 0; - cleanup_push(&state, eval1_cleanup); - process(0); - cleanup_until(&state); - if (gv) - cleanup_until(gv); -} - -static void -RunCommand(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(KEYCMD *cmdnum, 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 ( -#ifdef DSPMBYTE - _enable_mbdisp && -#else - MB_LEN_MAX == 1 && -#endif - !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 -#ifdef WINNT_NATIVE - cmd = CurrentKeyMap[(unsigned char) *ch]; -#else - cmd = F_INSERT; -#endif - if (cmd == F_XKEY) { - XmapVal val; - CStr cstr; - cstr.buf = ch; - cstr.len = 1; - 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; -} - -static Char ungetchar; -static int haveungetchar; - -void -UngetNextChar(Char cp) -{ - ungetchar = cp; - haveungetchar = 1; -} - -int -GetNextChar(Char *cp) -{ - int num_read; - int tried = 0; - char cbuf[MB_LEN_MAX]; - size_t cbp; - - if (haveungetchar) { - haveungetchar = 0; - *cp = ungetchar; - return 1; - } - 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_NATIVE - __nt_want_vcode = 1; -#endif /* WINNT_NATIVE */ -#ifdef SIG_WINDOW - if (windowchg) - (void) check_window_size(0); /* for window systems */ -#endif /* SIG_WINDOW */ - cbp = 0; - for (;;) { - while ((num_read = xread(SHIN, cbuf + cbp, 1)) == -1) { - if (!tried && fixio(SHIN, errno) != -1) - tried = 1; - else { -# ifdef convex - /* need to print error message in case the file is migrated */ - stderror(ERR_SYSTEM, progname, strerror(errno)); -# endif /* convex */ -# ifdef WINNT_NATIVE - __nt_want_vcode = 0; -# endif /* WINNT_NATIVE */ - *cp = '\0'; /* Loses possible partial character */ - return -1; - } - } - if (AsciiOnly) { - *cp = (unsigned char)*cbuf; - } else { - cbp++; - if (normal_mbtowc(cp, cbuf, cbp) == -1) { - reset_mbtowc(); - if (cbp < MB_CUR_MAX) - continue; /* Maybe a partial character */ - /* And drop the following bytes, if any */ - *cp = (unsigned char)*cbuf | INVALID_BYTE; - } - } - break; - } -#ifdef WINNT_NATIVE - /* This is the part that doesn't work with WIDE_STRINGS */ - if (__nt_want_vcode == 2) - *cp = __nt_vcode; - __nt_want_vcode = 0; -#endif /* WINNT_NATIVE */ - 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(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_NATIVE - /* - * This hack avoids correcting drive letter changes - */ - if((Cursor - InputBuf) != 2 || (char)InputBuf[1] != ':') -#endif /* WINNT_NATIVE */ - { -#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(void) -{ - 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 afba75e..0000000 --- a/contrib/tcsh/ed.refresh.c +++ /dev/null @@ -1,1330 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.refresh.c,v 3.46 2006/08/23 15:03:14 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. 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("$tcsh: ed.refresh.c,v 3.46 2006/08/23 15:03:14 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; -static int vcursor_h, vcursor_v; -static int rprompt_h, rprompt_v; - -static int MakeLiteral (Char *, int, Char); -static int Draw (Char *, int); -static void Vdraw (Char, int); -static void RefreshPromptpart (Char *); -static void update_line (Char *, Char *, int); -static void str_insert (Char *, int, int, Char *, int); -static void str_delete (Char *, int, int, int); -static void str_cp (Char *, Char *, int); -#ifndef WINNT_NATIVE -static -#else -extern -#endif - void PutPlusOne (Char, int); -static void cpy_pad_spaces (Char *, Char *, int); -#if defined(DEBUG_UPDATE) || defined(DEBUG_REFRESH) || defined(DEBUG_LITERAL) -static void dprintf (char *, ...); -#ifdef DEBUG_UPDATE -static void dprintstr (char *, const Char *, const Char *); - -static void -dprintstr(char *str, const Char *f, const Char *t) -{ - dprintf("%s:\"", str); - while (f < t) { - if (ASC(*f) & ~ASCII) - dprintf("[%x]", *f++); - else - dprintf("%c", CTL_ESC(ASCII & ASC(*f++))); - } - 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 -dprintf(char *fmt, ...) -{ - static int fd = -1; - char *dtty; - - if ((dtty = getenv("DEBUGTTY"))) { - int o; - va_list va; - va_start(va, fmt); - - if (fd == -1) - fd = xopen(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 int litlen = 0, litalloc = 0; - -static int MakeLiteral(Char *str, int len, Char addlit) -{ - int i, addlitlen = 0; - Char *addlitptr = 0; - if (addlit) { - if ((addlit & LITERAL) != 0) { - addlitptr = litptr + (addlit & ~LITERAL) * LIT_FACTOR; - addlitlen = Strlen(addlitptr); - } else { - addlitptr = &addlit; - addlitlen = 1; - } - for (i = 0; i < litlen; i += LIT_FACTOR) - if (!Strncmp(addlitptr, litptr + i, addlitlen) && !Strncmp(str, litptr + i + addlitlen, len) && litptr[i + addlitlen + len] == 0) - return (i / LIT_FACTOR) | LITERAL; - } else { - addlitlen = 0; - for (i = 0; i < litlen; i += LIT_FACTOR) - if (!Strncmp(str, litptr + i, len) && litptr[i + len] == 0) - return (i / LIT_FACTOR) | LITERAL; - } - if (litlen + addlitlen + len + 1 + (LIT_FACTOR - 1) > litalloc) { - Char *newlitptr; - int add = 256; - while (len + addlitlen + 1 + (LIT_FACTOR - 1) > add) - add *= 2; - newlitptr = xrealloc(litptr, (litalloc + add) * sizeof(Char)); - if (!newlitptr) - return '?'; - litptr = newlitptr; - litalloc += add; - if (addlitptr && addlitptr != &addlit) - addlitptr = litptr + (addlit & ~LITERAL) * LIT_FACTOR; - } - i = litlen / LIT_FACTOR; - if (i >= LITERAL || i == CHAR_DBWIDTH) - return '?'; - if (addlitptr) { - Strncpy(litptr + litlen, addlitptr, addlitlen); - litlen += addlitlen; - } - Strncpy(litptr + litlen, str, len); - litlen += len; - do - litptr[litlen++] = 0; - while (litlen % LIT_FACTOR); - return i | LITERAL; -} - -static int -Draw(Char *cp, int nocomb) /* draw char at cp, expand tabs, ctl chars */ -{ - int w, i, lv, lh; - Char c, attr; - - attr = *cp & ~CHAR; - c = *cp & CHAR; - w = NLSClassify(c, nocomb); - switch (w) { - case NLSCLASS_NL: - Vdraw('\0', 0); /* assure end of line */ - vcursor_h = 0; /* reset cursor pos */ - vcursor_v++; - break; - case NLSCLASS_TAB: - do { - Vdraw(' ', 1); - } while ((vcursor_h & 07) != 0); - break; - case NLSCLASS_CTRL: - Vdraw('^' | attr, 1); - if (c == CTL_ESC('\177')) { - Vdraw('?' | attr, 1); - } else { -#ifdef IS_ASCII - /* uncontrolify it; works only for iso8859-1 like sets */ - Vdraw(c | 0100 | attr, 1); -#else - Vdraw(_toebcdic[_toascii[c]|0100] | attr, 1); -#endif - } - break; - case NLSCLASS_ILLEGAL: - Vdraw('\\' | attr, 1); - Vdraw((((c >> 6) & 7) + '0') | attr, 1); - Vdraw((((c >> 3) & 7) + '0') | attr, 1); - Vdraw(((c & 7) + '0') | attr, 1); - break; - case NLSCLASS_ILLEGAL2: - case NLSCLASS_ILLEGAL3: - case NLSCLASS_ILLEGAL4: - Vdraw('\\' | attr, 1); - Vdraw('U' | attr, 1); - Vdraw('+' | attr, 1); - for (i = 8 * NLSCLASS_ILLEGAL_SIZE(w) - 4; i >= 0; i -= 4) - Vdraw("0123456789ABCDEF"[(c >> i) & 15] | attr, 1); - break; - case 0: - lv = vcursor_v; - lh = vcursor_h; - for (;;) { - lh--; - if (lh < 0) { - lv--; - if (lv < 0) - break; - lh = Strlen(Vdisplay[lv]) - 1; - } - if (Vdisplay[lv][lh] != CHAR_DBWIDTH) - break; - } - if (lv < 0) { - Vdraw('\\' | attr, 1); - Vdraw((((c >> 6) & 7) + '0') | attr, 1); - Vdraw((((c >> 3) & 7) + '0') | attr, 1); - Vdraw(((c & 7) + '0') | attr, 1); - break; - } - Vdisplay[lv][lh] = MakeLiteral(cp, 1, Vdisplay[lv][lh]); - break; - default: - Vdraw(*cp, w); - break; - } - return 1; -} - -static void -Vdraw(Char c, int width) /* draw char c onto V lines */ -{ -#ifdef DEBUG_REFRESH -# ifdef SHORT_STRINGS - dprintf("Vdrawing %6.6o '%c' %d\r\n", (unsigned)c, (int)(c & ASCII), width); -# else - dprintf("Vdrawing %3.3o '%c' %d\r\n", (unsigned)c, (int)c, width); -# endif /* SHORT_STRNGS */ -#endif /* DEBUG_REFRESH */ - - /* Hopefully this is what all the terminals do with multi-column characters - that "span line breaks". */ - while (vcursor_h + width > TermH) - Vdraw(' ', 1); - Vdisplay[vcursor_v][vcursor_h] = c; - if (width) - vcursor_h++; /* advance to next place */ - while (--width > 0) - Vdisplay[vcursor_v][vcursor_h++] = CHAR_DBWIDTH; - 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(Char *buf) -{ - Char *cp; - int w; - - if (buf == NULL) - return; - for (cp = buf; *cp; ) { - if (*cp & LITERAL) { - Char *litstart = cp; - while (*cp & LITERAL) - cp++; - if (*cp) { - w = NLSWidth(*cp & CHAR); - Vdraw(MakeLiteral(litstart, cp + 1 - litstart, 0), w); - cp++; - } - 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 - cp += Draw(cp, cp == buf); - } -} - -/* - * 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. - */ -#ifndef WINNT_NATIVE -static -#endif -int OldvcV = 0; - -void -Refresh(void) -{ - int cur_line; - Char *cp; - int cur_h, cur_v = 0, new_vcv; - int rhdiff; - Char oldgetting; - -#ifdef DEBUG_REFRESH - dprintf("Prompt = :%s:\r\n", short2str(Prompt)); - 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(RPrompt); - rprompt_h = vcursor_h; - rprompt_v = vcursor_v; - - /* reset the Vdraw cursor, draw prompt */ - vcursor_h = 0; - vcursor_v = 0; - RefreshPromptpart(Prompt); - cur_h = -1; /* set flag in case I'm not set */ - - /* draw the current input buffer */ - for (cp = InputBuf; (cp < LastChar); ) { - if (cp >= Cursor && cur_h == -1) { - cur_h = vcursor_h; /* save for later */ - cur_v = vcursor_v; - Cursor = cp; - } - cp += Draw(cp, cp == InputBuf); - } - - 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 */ - Vdraw(' ', 1); - RefreshPromptpart(RPrompt); - } - 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', 1); /* put NUL on end */ - -#if defined (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_NATIVE - flush(); -#endif /* WINNT_NATIVE */ - - /* - * 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 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_NATIVE - flush(); -#endif /* WINNT_NATIVE */ - 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(void) -{ /* used to go to last used screen line */ - MoveToLine(OldvcV); -} - -#endif - -void -PastBottom(void) -{ /* 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(Char *d, int dat, int dlen, Char *s, int num) -{ - 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(Char *d, int dat, int dlen, int num) -{ - 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(Char *a, Char *b, int n) -{ - while (n-- && *b) - *a++ = *b++; -} - - -/* **************************************************************** - 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(Char *old, Char *new, int cur_line) -{ - Char *o, *n, *p, c; - Char *ofd, *ols, *oe, *nfd, *nls, *ne; - Char *osb, *ose, *nsb, *nse; - int fx, sx; - - /* - * find first diff (won't be CHAR_DBWIDTH in either line) - */ - for (o = old, n = new; *o && (*o == *n); o++, n++) - continue; - ofd = o; - nfd = n; - - /* - * Find the end of both old and new - */ - o = Strend(o); - - /* - * Remove any trailing blanks off of the end, being careful not to - * back up past the beginning. - */ - if (!(adrof(STRhighlight) && MarkIsSet)) { - while (ofd < o) { - if (o[-1] != ' ') - break; - o--; - } - } - oe = o; - *oe = (Char) 0; - - n = Strend(n); - - /* remove blanks from end of new */ - if (!(adrof(STRhighlight) && MarkIsSet)) { - 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; - if (*o != *n) { - o++; - n++; - } - while (*o == CHAR_DBWIDTH) { - o++; - n++; - } - 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); - - /* - * 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_NATIVE - ClearEOL((oe - old) - (ne - new)); -#else - /* - * The calculation above does not work too well on NT - */ - ClearEOL(TermH - CursorH); -#endif /*WINNT_NATIVE*/ - /* - * 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_NATIVE - ClearEOL(olen - (ne - new)); -#else - /* - * The calculation above does not work too well on NT - */ - ClearEOL(TermH - CursorH); -#endif /*WINNT_NATIVE*/ - } - } - - /* - * 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(Char *dst, Char *src, int width) -{ - 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(void) -{ /* only move to new cursor pos */ - Char *cp; - int w, h, th, v; - - /* first we must find where the cursor is... */ - h = 0; - v = 0; - th = TermH; /* optimize for speed */ - - for (cp = Prompt; cp != NULL && *cp; ) { /* do prompt */ - if (*cp & LITERAL) { - cp++; - continue; - } - w = NLSClassify(*cp & CHAR, cp == Prompt); - cp++; - switch(w) { - case NLSCLASS_NL: - h = 0; - v++; - break; - case NLSCLASS_TAB: - while (++h & 07) - ; - break; - case NLSCLASS_CTRL: - h += 2; - break; - case NLSCLASS_ILLEGAL: - h += 4; - break; - case NLSCLASS_ILLEGAL2: - case NLSCLASS_ILLEGAL3: - case NLSCLASS_ILLEGAL4: - h += 3 + 2 * NLSCLASS_ILLEGAL_SIZE(w); - break; - default: - h += w; - } - if (h >= th) { /* check, extra long tabs picked up here also */ - h -= th; - v++; - } - } - - for (cp = InputBuf; cp < Cursor;) { /* do input buffer to Cursor */ - w = NLSClassify(*cp & CHAR, cp == InputBuf); - cp++; - switch(w) { - case NLSCLASS_NL: - h = 0; - v++; - break; - case NLSCLASS_TAB: - while (++h & 07) - ; - break; - case NLSCLASS_CTRL: - h += 2; - break; - case NLSCLASS_ILLEGAL: - h += 4; - break; - case NLSCLASS_ILLEGAL2: - case NLSCLASS_ILLEGAL3: - case NLSCLASS_ILLEGAL4: - h += 3 + 2 * NLSCLASS_ILLEGAL_SIZE(w); - break; - default: - h += w; - } - if (h >= th) { /* check, extra long tabs picked up here also */ - h -= th; - v++; - } - } - - /* now go there */ - MoveToLine(v); - MoveToChar(h); - if (adrof(STRhighlight) && MarkIsSet) { - ClearLines(); - ClearDisp(); - Refresh(); - } - flush(); -} - -#ifndef WINTT_NATIVE -static void -PutPlusOne(Char c, int width) -{ - while (width > 1 && CursorH + width > TermH) - PutPlusOne(' ', 1); - if ((c & LITERAL) != 0) { - Char *d; - for (d = litptr + (c & ~LITERAL) * LIT_FACTOR; *d; d++) - (void) putwraw(*d); - } else { - (void) putwraw(c); - } - Display[CursorV][CursorH++] = (Char) c; - while (--width > 0) - Display[CursorV][CursorH++] = CHAR_DBWIDTH; - 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'); - } - } -} -#endif - -void -RefPlusOne(int l) -{ /* we added just one char, handle it fast. - * assumes that screen cursor == real cursor */ - Char *cp, c; - int w; - - if (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; - } - cp = Cursor - l; - c = *cp & CHAR; - w = NLSClassify(c, cp == InputBuf); - switch(w) { - case NLSCLASS_CTRL: - PutPlusOne('^', 1); - if (c == CTL_ESC('\177')) { - PutPlusOne('?', 1); - break; - } -#ifdef IS_ASCII - /* uncontrolify it; works only for iso8859-1 like sets */ - PutPlusOne((c | 0100), 1); -#else - PutPlusOne(_toebcdic[_toascii[c]|0100], 1); -#endif - break; - case NLSCLASS_ILLEGAL: - PutPlusOne('\\', 1); - PutPlusOne(((c >> 6) & 7) + '0', 1); - PutPlusOne(((c >> 3) & 7) + '0', 1); - PutPlusOne((c & 7) + '0', 1); - break; - case 1: - if (adrof(STRhighlight) && MarkIsSet) - StartHighlight(); - if (l > 1) - PutPlusOne(MakeLiteral(cp, l, 0), 1); - else - PutPlusOne(*cp, 1); - if (adrof(STRhighlight) && MarkIsSet) - StopHighlight(); - break; - default: - Refresh(); /* too hard to handle */ - return; - } - flush(); -} - -/* clear the screen buffers so that new new prompt starts fresh. */ - -void -ClearDisp(void) -{ - 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; - litlen = 0; -} - -void -ClearLines(void) -{ /* Make sure all lines are *really* blank */ - 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 c0ede76..0000000 --- a/contrib/tcsh/ed.screen.c +++ /dev/null @@ -1,1661 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.screen.c,v 3.75 2006/08/24 20:56:31 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. 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("$tcsh: ed.screen.c,v 3.75 2006/08/24 20:56:31 christos Exp $") - -#include "ed.h" -#include "tc.h" -#include "ed.defns.h" - -/* #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 const struct { - const char *b_name; - speed_t 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_at7 0 -#define T_al 1 -#define T_bl 2 -#define T_cd 3 -#define T_ce 4 -#define T_ch 5 -#define T_cl 6 -#define T_dc 7 -#define T_dl 8 -#define T_dm 9 -#define T_ed 10 -#define T_ei 11 -#define T_fs 12 -#define T_ho 13 -#define T_ic 14 -#define T_im 15 -#define T_ip 16 -#define T_kd 17 -#define T_kh 18 -#define T_kl 19 -#define T_kr 20 -#define T_ku 21 -#define T_md 22 -#define T_me 23 -#define T_mr 24 -#define T_nd 25 -#define T_se 26 -#define T_so 27 -#define T_ts 28 -#define T_up 29 -#define T_us 30 -#define T_ue 31 -#define T_vb 32 -#define T_DC 33 -#define T_DO 34 -#define T_IC 35 -#define T_LE 36 -#define T_RI 37 -#define T_UP 38 -#define T_str 39 - -static struct termcapstr { - const char *name; - const 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 { - const char *name; - const char *long_name; - int val; -} tval[T_val + 1]; - -void -terminit(void) -{ -#ifdef NLS_CATALOGS - int i; - - for (i = 0; i < T_str + 1; i++) - xfree((ptr_t)(intptr_t)tstr[i].long_name); - - for (i = 0; i < T_val + 1; i++) - xfree((ptr_t)(intptr_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_kh].name = "kh"; - tstr[T_kh].long_name = CSAVS(4, 43, "send cursor home"); - - tstr[T_at7].name = "@7"; - tstr[T_at7].long_name = CSAVS(4, 44, "send cursor end"); - - tstr[T_mr].name = "mr"; - tstr[T_mr].long_name = CSAVS(4, 45, "begin reverse video"); - - 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 int me_all = 0; /* does two or more of the attributes use me */ - -static void ReBufferDisplay (void); -static void TCset (struct termcapstr *, const char *); - - -static void -TCset(struct termcapstr *t, const char *cap) -{ - if (cap == NULL || *cap == '\0') { - xfree(t->str); - t->str = NULL; - } else { - size_t size; - - size = strlen(cap) + 1; - t->str = xrealloc(t->str, size); - memcpy(t->str, cap, size); - } -} - - -/*ARGSUSED*/ -void -TellTC(void) -{ - struct termcapstr *t; - char *first, *s; - - 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)); - s = strsave(T_HasMeta ? CGETS(7, 5, "a") : CGETS(7, 6, "no")); - cleanup_push(s, xfree); - first = s; - xprintf(CGETS(7, 4, "\tIt has %s meta key\n"), s); - s = strsave(T_Tabs ? "" : CGETS(7, 8, " not")); - cleanup_push(s, xfree); - xprintf(CGETS(7, 7, "\tIt can%s use tabs\n"), s); - s = strsave((T_Margin&MARGIN_AUTO) ? - CGETS(7, 10, "has") : CGETS(7, 11, "does not have")); - cleanup_push(s, xfree); - xprintf(CGETS(7, 9, "\tIt %s automatic margins\n"), s); - if (T_Margin & MARGIN_AUTO) { - s = strsave((T_Margin & MARGIN_MAGIC) ? - CGETS(7, 10, "has") : CGETS(7, 11, "does not have")); - cleanup_push(s, xfree); - xprintf(CGETS(7, 12, "\tIt %s magic margins\n"), s); - } - for (t = tstr; t->name != NULL; t++) { - s = strsave(t->str && *t->str ? t->str : CGETS(7, 13, "(empty)")); - cleanup_push(s, xfree); - xprintf("\t%36s (%s) == %s\n", t->long_name, t->name, s); - cleanup_until(s); - } - xputchar('\n'); - cleanup_until(first); -} - - -static void -ReBufferDisplay(void) -{ - int i; - Char **b; - - b = Display; - Display = NULL; - blkfree(b); - b = Vdisplay; - Vdisplay = NULL; - blkfree(b); - TermH = Val(T_co); - TermV = (INBUFSIZE * 4) / TermH + 1;/*FIXBUF*/ - b = xmalloc(sizeof(*b) * (TermV + 1)); - for (i = 0; i < TermV; i++) - b[i] = xmalloc(sizeof(*b[i]) * (TermH + 1)); - b[TermV] = NULL; - Display = b; - b = xmalloc(sizeof(*b) * (TermV + 1)); - for (i = 0; i < TermV; i++) - b[i] = xmalloc(sizeof(*b[i]) * (TermH + 1)); - b[TermV] = NULL; - Vdisplay = b; -} - -void -SetTC(char *what, char *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) { - TCset(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 = Val(T_pt); - T_HasMeta = Val(T_km); - T_Margin = Val(T_am) ? MARGIN_AUTO : 0; - T_Margin |= 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(Char **v) -{ - char *cap, *scap, *cv; - int arg_need, arg_cols, arg_rows; - int verbose = 0, silent = 0; - char *area; - static const char fmts[] = "%s\n", fmtd[] = "%d\n"; - struct termcapstr *t; - char buf[TC_BUFSIZE]; - Char **globbed; - - area = buf; - - setname("echotc"); - - v = glob_all_or_error(v); - globbed = v; - cleanup_push(globbed, blk_cleanup); - - if (!*v || *v[0] == '\0') - goto end; - 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') - goto end; - cv = strsave(short2str(*v)); - cleanup_push(cv, xfree); - if (strcmp(cv, "tabs") == 0) { - xprintf(fmts, T_Tabs ? CGETS(7, 14, "yes") : - CGETS(7, 15, "no")); - goto end_flush; - } - else if (strcmp(cv, "meta") == 0) { - xprintf(fmts, Val(T_km) ? CGETS(7, 14, "yes") : - CGETS(7, 15, "no")); - goto end_flush; - } - else if (strcmp(cv, "xn") == 0) { - xprintf(fmts, T_Margin & MARGIN_MAGIC ? CGETS(7, 14, "yes") : - CGETS(7, 15, "no")); - goto end_flush; - } - else if (strcmp(cv, "am") == 0) { - xprintf(fmts, T_Margin & MARGIN_AUTO ? CGETS(7, 14, "yes") : - CGETS(7, 15, "no")); - goto end_flush; - } - 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); - goto end_flush; - } - xprintf(fmtd, 0); - goto end_flush; - } - else if (strcmp(cv, "rows") == 0 || strcmp(cv, "lines") == 0 || - strcmp(cv, "li") == 0) { - xprintf(fmtd, Val(T_li)); - goto end_flush; - } - else if (strcmp(cv, "cols") == 0 || strcmp(cv, "co") == 0) { - xprintf(fmtd, Val(T_co)); - goto end_flush; - } - - /* - * 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")); - goto end; - } - if (silent) - goto end; - 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) - goto end; - 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) - goto end; - 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) - goto end; - else - stderror(ERR_NAME | ERR_TCNARGS, cv, 2); - } - arg_cols = atoi(short2str(*v)); - v++; - if (!*v || *v[0] == '\0') { - if (silent) - goto end; - else - stderror(ERR_NAME | ERR_TCNARGS, cv, 2); - } - arg_rows = atoi(short2str(*v)); - v++; - if (*v && *v[0]) { - if (silent) - goto end; - else - stderror(ERR_NAME | ERR_TCARGS, cv, arg_need); - } - (void) tputs(tgoto(scap, arg_cols, arg_rows), arg_rows, PUTRAW); - break; - } - end_flush: - flush(); - end: - cleanup_until(globbed); -} - -int GotTermCaps = 0; - -static struct { - Char *name; - int key; - XmapVal fun; - int type; -} arrow[] = { -#define A_K_DN 0 - { STRdown, T_kd, { 0 }, 0 }, -#define A_K_UP 1 - { STRup, T_ku, { 0 }, 0 }, -#define A_K_LT 2 - { STRleft, T_kl, { 0 }, 0 }, -#define A_K_RT 3 - { STRright, T_kr, { 0 }, 0 }, -#define A_K_HO 4 - { STRhome, T_kh, { 0 }, 0 }, -#define A_K_EN 5 - { STRend, T_at7, { 0 }, 0} -}; -#define A_K_NKEYS 6 - -void -ResetArrowKeys(void) -{ - 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; - - arrow[A_K_HO].fun.cmd = F_TOBEG; - arrow[A_K_HO].type = XK_CMD; - - arrow[A_K_EN].fun.cmd = F_TOEND; - arrow[A_K_EN].type = XK_CMD; -} - -void -DefaultArrowKeys(void) -{ - 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 strH[] = {033, '[', 'H', '\0'}; - static Char strF[] = {033, '[', 'F', '\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'}; - static Char stOH[] = {033, 'O', 'H', '\0'}; - static Char stOF[] = {033, 'O', 'F', '\0'}; - - CStr cs; -#ifndef IS_ASCII - if (strA[0] == 033) - { - strA[0] = CTL_ESC('\033'); - strB[0] = CTL_ESC('\033'); - strC[0] = CTL_ESC('\033'); - strD[0] = CTL_ESC('\033'); - strH[0] = CTL_ESC('\033'); - strF[0] = CTL_ESC('\033'); - stOA[0] = CTL_ESC('\033'); - stOB[0] = CTL_ESC('\033'); - stOC[0] = CTL_ESC('\033'); - stOD[0] = CTL_ESC('\033'); - stOH[0] = CTL_ESC('\033'); - stOF[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 = strH; AddXkey(&cs, &arrow[A_K_HO].fun, arrow[A_K_HO].type); - cs.buf = strF; AddXkey(&cs, &arrow[A_K_EN].fun, arrow[A_K_EN].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); - cs.buf = stOH; AddXkey(&cs, &arrow[A_K_HO].fun, arrow[A_K_HO].type); - cs.buf = stOF; AddXkey(&cs, &arrow[A_K_EN].fun, arrow[A_K_EN].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 = &strH[1]; AddXkey(&cs, &arrow[A_K_HO].fun, arrow[A_K_HO].type); - cs.buf = &strF[1]; AddXkey(&cs, &arrow[A_K_EN].fun, arrow[A_K_EN].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); - cs.buf = &stOH[1]; AddXkey(&cs, &arrow[A_K_HO].fun, arrow[A_K_HO].type); - cs.buf = &stOF[1]; AddXkey(&cs, &arrow[A_K_EN].fun, arrow[A_K_EN].type); - } -} - - -int -SetArrowKeys(const CStr *name, XmapVal *fun, int type) -{ - int i; - for (i = 0; i < A_K_NKEYS; i++) - if (Strcmp(name->buf, arrow[i].name) == 0) { - arrow[i].fun = *fun; - arrow[i].type = type; - return 0; - } - return -1; -} - -int -IsArrowKey(Char *name) -{ - int i; - for (i = 0; i < A_K_NKEYS; i++) - if (Strcmp(name, arrow[i].name) == 0) - return 1; - return 0; -} - -int -ClearArrowKeys(const CStr *name) -{ - int i; - for (i = 0; i < A_K_NKEYS; i++) - if (Strcmp(name->buf, arrow[i].name) == 0) { - arrow[i].type = XK_NOD; - return 0; - } - return -1; -} - -void -PrintArrowKeys(const CStr *name) -{ - int i; - - for (i = 0; i < A_K_NKEYS; i++) - if (name->len == 0 || Strcmp(name->buf, arrow[i].name) == 0) - if (arrow[i].type != XK_NOD) - printOne(arrow[i].name, &arrow[i].fun, arrow[i].type); -} - - -void -BindArrowKeys(void) -{ - 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 < A_K_NKEYS; 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(Char 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; - } - } - } - } -} - -int highlighting = 0; - -void -StartHighlight() -{ - (void) tputs(Str(T_mr), 1, PUTPURE); - highlighting = 1; -} - -void -StopHighlight() -{ - (void) tputs(Str(T_me), 1, PUTPURE); - highlighting = 0; -} - -/* PWP 6-27-88 -- if the tty driver thinks that we can tab, we ask termcap */ -int -CanWeTab(void) -{ - return (Val(T_pt)); -} - -/* move to line <where> (first line == 0) as efficiently as possible; */ -void -MoveToLine(int where) -{ - 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; - - if (del > 0) { - while (del > 0) { - if ((T_Margin & MARGIN_AUTO) && Display[CursorV][0] != '\0') { - size_t h; - - for (h = TermH - 1; h > 0 && Display[CursorV][h] == CHAR_DBWIDTH; - h--) - ; - /* move without newline */ - MoveToChar(h); - so_write(&Display[CursorV][CursorH], TermH - CursorH); /* 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); - } - } - CursorV = where; /* now where is here */ -} - -void -MoveToChar(int where) /* move to character position (where) */ -{ /* as efficiently as possible */ - int del; - -mc_again: - 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; - } - - 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 I can do tabs, use them */ - if (T_Tabs) { - if ((CursorH & 0370) != (where & ~0x7) - && Display[CursorV][where & ~0x7] != CHAR_DBWIDTH) { - /* if not within tab stop */ - for (i = (CursorH & 0370); i < (where & ~0x7); i += 8) - (void) putraw('\t'); /* then tab over */ - CursorH = where & ~0x7; - /* 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'); - } - } - } - CursorH = where; /* now where is here */ -} - -void -so_write(Char *cp, int n) -{ - int cur_pos, prompt_len = 0, region_start = 0, region_end = 0; - - 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; - } - - if (adrof(STRhighlight)) { - /* find length of prompt */ - Char *promptc; - for (promptc = Prompt; *promptc; promptc++); - prompt_len = promptc - Prompt; - - /* find region start and end points */ - if (IncMatchLen) { - region_start = (Cursor - InputBuf) + prompt_len; - region_end = region_start + IncMatchLen; - } else if (MarkIsSet) { - region_start = (min(Cursor, Mark) - InputBuf) + prompt_len; - region_end = (max(Cursor, Mark) - InputBuf) + prompt_len; - } - } - - do { - if (adrof(STRhighlight)) { - cur_pos = CursorV * TermH + CursorH; - if (!highlighting && - cur_pos >= region_start && cur_pos < region_end) - StartHighlight(); - else if (highlighting && cur_pos >= region_end) - StopHighlight(); - - /* don't highlight over the cursor. the highlighting's reverse - * video would cancel it out. :P */ - if (highlighting && cur_pos == (Cursor - InputBuf) + prompt_len) - StopHighlight(); - } - - if (*cp != CHAR_DBWIDTH) { - if (*cp & LITERAL) { - Char *d; -#ifdef DEBUG_LITERAL - xprintf("so: litnum %d\r\n", (int)(*cp & ~LITERAL)); -#endif /* DEBUG_LITERAL */ - for (d = litptr + (*cp & ~LITERAL) * LIT_FACTOR; *d; d++) - (void) putwraw(*d); - } - else - (void) putwraw(*cp); - } - cp++; - CursorH++; - } while (--n); - - if (adrof(STRhighlight) && highlighting) - StopHighlight(); - - 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 xc; - if ((xc = Display[CursorV][CursorH]) != '\0') { - so_write(&xc, 1); - while(Display[CursorV][CursorH] == CHAR_DBWIDTH) - CursorH++; - } - else { - (void) putraw(' '); - CursorH = 1; - } - } - } - else /* no wrap, but cursor stays on screen */ - CursorH = TermH - 1; - } -} - - -void -DeleteChars(int num) /* deletes <num> characters */ -{ - 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); -} - -/* Puts terminal in insert character mode, or inserts num characters in the - line */ -void -Insert_write(Char *cp, int num) -{ - 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); - - so_write(cp, num); /* this updates CursorH/V */ - - 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 */ - - so_write(cp++, 1); /* this updates CursorH/V */ - - if (GoodStr(T_ip)) /* have to make num chars insert */ - (void) tputs(Str(T_ip), 1, PUTPURE);/* pad the inserted char */ - - } while (--num); - -} - -/* clear to end of line. There are num characters to clear */ -void -ClearEOL(int num) -{ - 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(void) -{ /* 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(void) -{ /* 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 - (void) putraw(CTL_ESC('\007')); /* an ASCII bell; ^G */ -} - -void -ClearToBottom(void) -{ /* 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(void) -{ /* read in the needed terminal capabilites */ - int i; - const char *ptr; - char buf[TC_BUFSIZE]; - static char bp[TC_BUFSIZE]; - char *area; - struct termcapstr *t; - - -#ifdef SIG_WINDOW - sigset_t oset, set; - int lins, cols; - - /* don't want to confuse things here */ - sigemptyset(&set); - sigaddset(&set, SIG_WINDOW); - (void)sigprocmask(SIG_BLOCK, &set, &oset); - cleanup_push(&oset, sigprocmask_cleanup); -#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++) - TCset(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++) - TCset(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 = Val(T_pt); - T_HasMeta = Val(T_km); - T_Margin = Val(T_am) ? MARGIN_AUTO : 0; - T_Margin |= 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); - - cleanup_until(&oset); /* can change it again */ -#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(int *lins, int *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 /* SIG_WINDOW */ - -void -ChangeSize(int lins, int cols) -{ - /* - * Just in case - */ - Val(T_co) = (cols < 2) ? 80 : cols; - Val(T_li) = (lins < 1) ? 24 : lins; - -#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 *p; - char *tptr; - - if (getenv("COLUMNS")) { - p = Itoa(Val(T_co), 0, 0); - cleanup_push(p, xfree); - tsetenv(STRCOLUMNS, p); - cleanup_until(p); - } - - if (getenv("LINES")) { - p = Itoa(Val(T_li), 0, 0); - cleanup_push(p, xfree); - tsetenv(STRLINES, p); - cleanup_until(p); - } - - if ((tptr = getenv("TERMCAP")) != NULL) { - /* Leave 64 characters slop in case we enlarge the termcap string */ - Char termcap[TC_BUFSIZE+64], backup[TC_BUFSIZE+64], *ptr; - Char buf[4]; - - ptr = str2short(tptr); - (void) Strncpy(termcap, ptr, TC_BUFSIZE); - termcap[TC_BUFSIZE-1] = '\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 { - size_t len = (ptr - termcap) + Strlen(buf); - (void) Strncpy(backup, termcap, len); - backup[len] = '\0'; - p = Itoa(Val(T_co), 0, 0); - (void) Strcat(backup + len, p); - xfree(p); - 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 { - size_t len = (ptr - backup) + Strlen(buf); - (void) Strncpy(termcap, backup, len); - termcap[len] = '\0'; - p = Itoa(Val(T_li), 0, 0); - (void) Strcat(termcap, p); - xfree(p); - ptr = Strchr(ptr, ':'); - (void) Strcat(termcap, ptr); - } - /* - * Chop the termcap string at TC_BUFSIZE-1 characters to avoid - * core-dumps in the termcap routines - */ - termcap[TC_BUFSIZE - 1] = '\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 a235e11..0000000 --- a/contrib/tcsh/ed.term.c +++ /dev/null @@ -1,1140 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.term.c,v 1.36 2006/03/02 18:46:44 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. 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_NATIVE - -RCSID("$tcsh: ed.term.c,v 1.36 2006/03/02 18:46:44 christos Exp $") - -#include "ed.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 const struct tcshmodes { - const 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(EAGAIN) -# define OKERROR(e) (((e) == EAGAIN) || ((e) == EINTR)) -#elif defined(EWOULDBLOCK) -# define OKERROR(e) (((e) == EWOULDBLOCK) || ((e) == EINTR)) -#else -# define OKERROR(e) ((e) == EINTR) -#endif - -#ifdef __NetBSD__ -#define KLUDGE (errno == ENOTTY && count < 10) -#else -#define KLUDGE 0 -#endif - -/* Retry a system call */ -#define RETRY(x) \ -do { \ - int count; \ - \ - for (count = 0;; count++) \ - if ((x) == -1) { \ - if (OKERROR(errno) || KLUDGE) \ - continue; \ - else \ - return -1; \ - } \ - else \ - break; \ -} while (0) - -/*ARGSUSED*/ -void -dosetty(Char **v, struct command *t) -{ - const struct tcshmodes *m; - char x, *d, *cmdname; - int aflag = 0; - Char *s; - int z = EX_IO; - - USE(t); - cmdname = strsave(short2str(*v++)); - cleanup_push(cmdname, xfree); - setname(cmdname); - - 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 >= TermH) { - 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'); - cleanup_until(cmdname); - 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; - } - } - cleanup_until(cmdname); -} /* end dosetty */ - -int -tty_getty(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(int fd, ttydata_t *td) -{ -#ifdef POSIX - RETRY(xtcsetattr(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(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(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(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(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(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(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(int fd, int dis) -{ - static int 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(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_NATIVE */ -int -tty_cooked_mode(void *td) -{ - return do_nt_check_cooked_mode(); -} -#endif /* !WINNT_NATIVE */ diff --git a/contrib/tcsh/ed.term.h b/contrib/tcsh/ed.term.h deleted file mode 100644 index c610130..0000000 --- a/contrib/tcsh/ed.term.h +++ /dev/null @@ -1,522 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.term.h,v 1.17 2004/12/25 21:15:06 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. 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 - * Also for RH6.2 on the alpha, defined TIOCGLTC, but does not have - * struct ltchars - */ -#if (defined(hpux) && defined(VSUSP) && defined(VDSUSP) && defined(VWERASE) && defined(VLNEXT)) || defined(__linux__) || defined(__GNU__) || defined(__GLIBC__) -# 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)) - -/* - * Terminal dependend data structures - */ -typedef struct { -#ifdef WINNT_NATIVE - int dummy; -#else /* !WINNT_NATIVE */ -# 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_NATIVE */ -} ttydata_t; - -#endif /* _h_ed_term */ diff --git a/contrib/tcsh/ed.xmap.c b/contrib/tcsh/ed.xmap.c deleted file mode 100644 index 866bc83..0000000 --- a/contrib/tcsh/ed.xmap.c +++ /dev/null @@ -1,760 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/ed.xmap.c,v 3.36 2006/11/29 22:30:09 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. 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("$tcsh: ed.xmap.c,v 3.36 2006/11/29 22:30:09 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 */ - - -/* Some declarations of procedures */ -static int TraverseMap (XmapNode *, CStr *, XmapVal *); -static int TryNode (XmapNode *, CStr *, XmapVal *, int); -static XmapNode *GetFreeNode (CStr *); -static void PutFreeNode (XmapNode *); -static int TryDeleteNode (XmapNode **, CStr *); -static int Lookup (struct Strbuf *, const CStr *, - const XmapNode *); -static void Enumerate (struct Strbuf *, const XmapNode *); -static void unparsech (struct Strbuf *, Char); - - -XmapVal * -XmapCmd(int cmd) -{ - static XmapVal xm; - xm.cmd = (KEYCMD) cmd; - return &xm; -} - -XmapVal * -XmapStr(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(void) -{ - PutFreeNode(Xmap); - Xmap = NULL; - - DefaultArrowKeys(); - return; -} - - -/* GetXkey(): - * Calls the recursive function with entry point Xmap - */ -int -GetXkey(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(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(const 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(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) { - size_t len; - - /* 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: - xfree(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; - len = (val->str.len + 1) * sizeof(*ptr->val.str.buf); - ptr->val.str.buf = xmalloc(len); - (void) memcpy(ptr->val.str.buf, val->str.buf, 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(KEYCMD *map, const 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(const CStr *Xkey) -{ - CStr s; - - s = *Xkey; - if (s.len == 0) { - xprintf(CGETS(9, 3, "DeleteXkey: Null extended-key not allowed.\n")); - return (-1); - } - - if (Xmap == NULL) - return (0); - - (void) TryDeleteNode(&Xmap, &s); - return (0); -} - -/* Destroys str */ -static int -TryDeleteNode(XmapNode **inptr, CStr *str) -{ - XmapNode *ptr; - - 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); - inptr = &xm->sibling; - ptr = xm->sibling; - } - - str->buf++; - str->len--; - - if (str->len == 0) { - /* we're there */ - *inptr = 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); - *inptr = 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(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: - xfree(ptr->val.str.buf); - break; - default: - abort(); - break; - } - xfree(ptr); -} - - -/* GetFreeNode(): - * Returns pointer to an XmapNode for ch. - */ -static XmapNode * -GetFreeNode(CStr *ch) -{ - XmapNode *ptr; - - ptr = xmalloc(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(const CStr *key) -{ - struct Strbuf buf = Strbuf_INIT; - 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; - - Strbuf_append1(&buf, '"'); - cleanup_push(&buf, Strbuf_cleanup); - if (Lookup(&buf, &cs, Xmap) <= -1) - /* key is not bound */ - xprintf(CGETS(9, 4, "Unbound extended key \"%S\"\n"), cs.buf); - cleanup_until(&buf); -} - -/* Lookup(): - * look for the string starting at node ptr. - * Print if last node - */ -static int -Lookup(struct Strbuf *buf, const CStr *str, const XmapNode *ptr) -{ - if (ptr == NULL) - return (-1); /* cannot have null ptr */ - - if (str->len == 0) { - /* no more chars in string. Enumerate from here. */ - Enumerate(buf, ptr); - return (0); - } - else { - /* If match put this char into buf. Recurse */ - if (ptr->ch == *(str->buf)) { - /* match found */ - unparsech(buf, ptr->ch); - if (ptr->next != NULL) { - /* not yet at leaf */ - CStr tstr; - tstr.buf = str->buf + 1; - tstr.len = str->len - 1; - return (Lookup(buf, &tstr, ptr->next)); - } - else { - /* next node is null so key should be complete */ - if (str->len == 1) { - Strbuf_append1(buf, '"'); - Strbuf_terminate(buf); - printOne(buf->s, &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(buf, str, ptr->sibling)); - else - return (-1); - } - } -} - -static void -Enumerate(struct Strbuf *buf, const XmapNode *ptr) -{ - size_t old_len; - - if (ptr == NULL) { -#ifdef DEBUG_EDIT - xprintf(CGETS(9, 6, "Enumerate: BUG!! Null ptr passed\n!")); -#endif - return; - } - - old_len = buf->len; - unparsech(buf, ptr->ch); /* put this char at end of string */ - if (ptr->next == NULL) { - /* print this Xkey and function */ - Strbuf_append1(buf, '"'); - Strbuf_terminate(buf); - printOne(buf->s, &ptr->val, ptr->type); - } - else - Enumerate(buf, ptr->next); - - /* go to sibling if there is one */ - if (ptr->sibling) { - buf->len = old_len; - Enumerate(buf, ptr->sibling); - } -} - - -/* PrintOne(): - * Print the specified key and its associated - * function specified by val - */ -void -printOne(const Char *key, const XmapVal *val, int ntype) -{ - struct KeyFuncs *fp; - static const char *fmt = "%s\n"; - - xprintf("%-15S-> ", key); - if (val != NULL) - switch (ntype) { - case XK_STR: - case XK_EXE: { - unsigned char *p; - - p = unparsestring(&val->str, ntype == XK_STR ? STRQQ : STRBB); - cleanup_push(p, xfree); - xprintf(fmt, p); - cleanup_until(p); - 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, CGETS(9, 7, "no input")); -} - -static void -unparsech(struct Strbuf *buf, Char ch) -{ - if (ch == 0) { - Strbuf_append1(buf, '^'); - Strbuf_append1(buf, '@'); - } - else if (Iscntrl(ch)) { - Strbuf_append1(buf, '^'); - if (ch == CTL_ESC('\177')) - Strbuf_append1(buf, '?'); - else -#ifdef IS_ASCII - Strbuf_append1(buf, ch | 0100); -#else - Strbuf_append1(buf, _toebcdic[_toascii[ch]|0100]); -#endif - } - else if (ch == '^') { - Strbuf_append1(buf, '\\'); - Strbuf_append1(buf, '^'); - } else if (ch == '\\') { - Strbuf_append1(buf, '\\'); - Strbuf_append1(buf, '\\'); - } else if (ch == ' ' || (Isprint(ch) && !Isspace(ch))) { - Strbuf_append1(buf, ch); - } - else { - Strbuf_append1(buf, '\\'); - Strbuf_append1(buf, ((ch >> 6) & 7) + '0'); - Strbuf_append1(buf, ((ch >> 3) & 7) + '0'); - Strbuf_append1(buf, (ch & 7) + '0'); - } -} - -eChar -parseescape(const Char **ptr) -{ - const Char *p; - Char c; - - p = *ptr; - - if ((p[1] & CHAR) == 0) { - xprintf(CGETS(9, 8, "Something must follow: %c\n"), (char)*p); - return CHAR_ERR; - } - 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 '\\': - c = '\\'; - break; - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - { - int cnt, val; - Char 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 & ~0xff) != 0) { - xprintf(CGETS(9, 9, - "Octal constant does not fit in a char.\n")); - return 0; - } -#ifndef IS_ASCII - 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++; -#ifdef IS_ASCII - c = ((*p & CHAR) == '?') ? CTL_ESC('\177') : ((*p & CHAR) & 0237); -#else - 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 - } - else - c = *p; - *ptr = p; - return (c); -} - - -unsigned char * -unparsestring(const CStr *str, const Char *sep) -{ - unsigned char *buf, *b; - Char p; - int l; - - /* Worst-case is "\uuu" or result of wctomb() for each char from str */ - buf = xmalloc((str->len + 1) * max(4, MB_LEN_MAX)); - b = buf; - if (sep[0]) -#ifndef WINNT_NATIVE - *b++ = sep[0]; -#else /* WINNT_NATIVE */ - *b++ = CHAR & sep[0]; -#endif /* !WINNT_NATIVE */ - - for (l = 0; l < str->len; l++) { - p = str->buf[l]; - if (Iscntrl(p)) { - *b++ = '^'; - if (p == CTL_ESC('\177')) - *b++ = '?'; - else -#ifdef IS_ASCII - *b++ = (unsigned char) (p | 0100); -#else - *b++ = _toebcdic[_toascii[p]|0100]; -#endif - } - else if (p == '^' || p == '\\') { - *b++ = '\\'; - *b++ = (unsigned char) p; - } - else if (p == ' ' || (Isprint(p) && !Isspace(p))) - b += one_wctomb((char *)b, p & CHAR); - else { - *b++ = '\\'; - *b++ = ((p >> 6) & 7) + '0'; - *b++ = ((p >> 3) & 7) + '0'; - *b++ = (p & 7) + '0'; - } - } - if (sep[0] && sep[1]) -#ifndef WINNT_NATIVE - *b++ = sep[1]; -#else /* WINNT_NATIVE */ - *b++ = CHAR & sep[1]; -#endif /* !WINNT_NATIVE */ - *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 0359d8b..0000000 --- a/contrib/tcsh/eight-bit.me +++ /dev/null @@ -1,143 +0,0 @@ -.\" $tcsh: eight-bit.me,v 3.2 2006/03/02 18:46:44 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 efc095b..0000000 --- a/contrib/tcsh/gethost.c +++ /dev/null @@ -1,329 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/gethost.c,v 1.12 2006/03/02 18:46:44 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. 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("$tcsh: gethost.c,v 1.12 2006/03/02 18:46:44 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> - -#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 (char *); -static char *gettoken (char **, char *); - -int main (int, char *[]); - -/* findtoken(): - * Return the token number of the given token - */ -static int -findtoken(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(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(int argc, char *argv[]) -{ - char line[INBUFSIZE]; - char *pname; - const 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 f369fc6..0000000 --- a/contrib/tcsh/glob.3 +++ /dev/null @@ -1,482 +0,0 @@ -.\" $NetBSD: glob.3,v 1.17 2001/03/16 21:09:05 christos Exp $ -.\" -.\" Copyright (c) 1989, 1991, 1993, 1994 -.\" 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. 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.3 8.3 (Berkeley) 4/16/94 -.\" -.Dd March 31, 1998 -.Dt GLOB 3 -.Os -.Sh NAME -.Nm glob , -.Nm globfree -.Nd generate pathnames matching a pattern -.Sh LIBRARY -.Lb libc -.Sh SYNOPSIS -.Fd #include <glob.h> -.Ft int -.Fn glob "const char *pattern" "int flags" "const int (*errfunc)(const char *, int)" "glob_t *pglob" -.Ft void -.Fn globfree "glob_t *pglob" -.Sh DESCRIPTION -The -.Fn glob -function -is a pathname generator that implements the rules for file name pattern -matching used by the shell. -.Pp -The include file -.Pa glob.h -defines the structure type -.Fa glob_t , -which contains at least the following fields: -.Bd -literal -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; -.Ed -.Pp -The argument -.Fa pattern -is a pointer to a pathname pattern to be expanded. -The -.Fn glob -argument -matches all accessible pathnames against the pattern and creates -a list of the pathnames that match. -In order to have access to a pathname, -.Fn glob -requires search permission on every component of a path except the last -and read permission on each directory of any filename component of -.Fa pattern -that contains any of the special characters -.Ql * , -.Ql ? -or -.Ql [ . -.Pp -The -.Fn glob -argument -stores the number of matched pathnames into the -.Fa gl_pathc -field, and a pointer to a list of pointers to pathnames into the -.Fa gl_pathv -field. -The first pointer after the last pathname is -.Dv 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 -.Fa pglob . -The -.Fn glob -function allocates other space as needed, including the memory pointed -to by -.Fa gl_pathv . -.Pp -The argument -.Fa flags -is used to modify the behavior of -.Fn glob . -The value of -.Fa flags -is the bitwise inclusive -.Tn OR -of any of the following -values defined in -.Pa glob.h : -.Bl -tag -width GLOB_ALTDIRFUNC -.It Dv GLOB_APPEND -Append pathnames generated to the ones from a previous call (or calls) -to -.Fn glob . -The value of -.Fa 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 -.Dv GLOB_DOOFFS -flag, nor change the value of -.Fa gl_offs -when -.Dv GLOB_DOOFFS -is set, nor (obviously) call -.Fn globfree -for -.Fa pglob . -.It Dv GLOB_DOOFFS -Make use of the -.Fa gl_offs -field. -If this flag is set, -.Fa gl_offs -is used to specify how many -.Dv NULL -pointers to prepend to the beginning -of the -.Fa gl_pathv -field. -In other words, -.Fa gl_pathv -will point to -.Fa gl_offs -.Dv NULL -pointers, -followed by -.Fa gl_pathc -pathname pointers, followed by a -.Dv NULL -pointer. -.It Dv GLOB_ERR -Causes -.Fn glob -to return when it encounters a directory that it cannot open or read. -Ordinarily, -.Fn glob -continues to find matches. -.It Dv GLOB_MARK -Each pathname that is a directory that matches -.Fa pattern -has a slash -appended. -.It Dv GLOB_NOCHECK -If -.Fa pattern -does not match any pathname, then -.Fn glob -returns a list -consisting of only -.Fa pattern , -with the number of total pathnames is set to 1, and the number of matched -pathnames set to 0. -.It Dv GLOB_NOSORT -By default, the pathnames are sorted in ascending -.Tn ASCII -order; -this flag prevents that sorting (speeding up -.Fn glob ) . -.El -.Pp -The following values may also be included in -.Fa flags , -however, they are non-standard extensions to -.St -p1003.2 . -.Bl -tag -width GLOB_ALTDIRFUNC -.It Dv GLOB_ALTDIRFUNC -The following additional fields in the pglob structure have been -initialized with alternate functions for glob to use to open, read, -and close directories and to get stat information on names found -in those directories. -.Bd -literal - void *(*gl_opendir)(const char * name); - struct dirent *(*gl_readdir)(void *); - void (*gl_closedir)(void *); - int (*gl_lstat)(const char *name, struct stat *st); - int (*gl_stat)(const char *name, struct stat *st); -.Ed -.Pp -This extension is provided to allow programs such as -.Xr restore 8 -to provide globbing from directories stored on tape. -.It Dv GLOB_BRACE -Pre-process the pattern string to expand -.Ql {pat,pat,...} -strings like -.Xr csh 1 . -The pattern -.Ql {} -is left unexpanded for historical reasons -.Po -.Xr csh 1 -does the same thing to ease typing of -.Xr find 1 -patterns -.Pc . -.It Dv GLOB_MAGCHAR -Set by the -.Fn glob -function if the pattern included globbing characters. -See the description of the usage of the -.Fa gl_matchc -structure member for more details. -.It Dv GLOB_NOMAGIC -Is the same as -.Dv GLOB_NOCHECK -but it only appends the -.Fa pattern -if it does not contain any of the special characters ``*'', ``?'' or ``[''. -.Dv GLOB_NOMAGIC -is provided to simplify implementing the historic -.Xr csh 1 -globbing behavior and should probably not be used anywhere else. -.It Dv GLOB_NOESCAPE -Disable the use of the backslash -.Pq Ql \e -character for quoting. -.It Dv GLOB_TILDE -Expand patterns that start with -.Ql ~ -to user name home directories. -.It Dv GLOB_LIMIT -Limit the amount of memory used by matches to -.Li ARG_MAX -This option should be set for programs that can be coerced to a denial of -service attack via patterns that expand to a very large number of matches, -such as a long string of -.Li */../*/.. -.El -.Pp -If, during the search, a directory is encountered that cannot be opened -or read and -.Fa errfunc -is -.Pf non- Dv NULL , -.Fn glob -calls -.Fa (*errfunc)(path, errno) . -This may be unintuitive: a pattern like -.Ql */Makefile -will try to -.Xr stat 2 -.Ql foo/Makefile -even if -.Ql foo -is not a directory, resulting in a -call to -.Fa errfunc . -The error routine can suppress this action by testing for -.Dv ENOENT -and -.Dv ENOTDIR ; -however, the -.Dv GLOB_ERR -flag will still cause an immediate -return when this happens. -.Pp -If -.Fa errfunc -returns non-zero, -.Fn glob -stops the scan and returns -.Dv GLOB_ABORTED -after setting -.Fa gl_pathc -and -.Fa gl_pathv -to reflect any paths already matched. -This also happens if an error is encountered and -.Dv GLOB_ERR -is set in -.Fa flags , -regardless of the return value of -.Fa errfunc , -if called. -If -.Dv GLOB_ERR -is not set and either -.Fa errfunc -is -.Dv NULL -or -.Fa errfunc -returns zero, the error is ignored. -.Pp -The -.Fn globfree -function frees any space associated with -.Fa pglob -from a previous call(s) to -.Fn glob . -.Pp -The historical -.Dv GLOB_QUOTE -flag is no longer supported. -Per -.St -p1003.2-92 , -backslash escaping of special characters is the default behaviour; -it may be disabled by specifying the -.Dv GLOB_NOESCAPE -flag. -.Sh RETURN VALUES -On successful completion, -.Fn glob -returns zero. -In addition the fields of -.Fa pglob -contain the values described below: -.Bl -tag -width GLOB_NOCHECK -.It Fa gl_pathc -contains the total number of matched pathnames so far. -This includes other matches from previous invocations of -.Fn glob -if -.Dv GLOB_APPEND -was specified. -.It Fa gl_matchc -contains the number of matched pathnames in the current invocation of -.Fn glob . -.It Fa gl_flags -contains a copy of the -.Fa flags -parameter with the bit -.Dv GLOB_MAGCHAR -set if -.Fa pattern -contained any of the special characters ``*'', ``?'' or ``['', cleared -if not. -.It Fa gl_pathv -contains a pointer to a -.Dv NULL Ns -terminated -list of matched pathnames. -However, if -.Fa gl_pathc -is zero, the contents of -.Fa gl_pathv -are undefined. -.El -.Pp -If -.Fn glob -terminates due to an error, it sets -.Va errno -and returns one of the following non-zero constants, which are defined -in the include file -.Aq Pa glob.h : -.Bl -tag -width GLOB_ABORTEDXXX -.It Dv GLOB_ABORTED -The scan was stopped because an error was encountered and either -.Dv GLOB_ERR -was set or -.Fa (*errfunc)() -returned non-zero. -.It Dv GLOB_NOMATCH -The pattern does not match any existing pathname, and -.Dv GLOB_NOCHECK -was not set int -.Dv flags . -.It Dv GLOB_NOSPACE -An attempt to allocate memory failed, or if -.Va errno -was 0 -.Li GLOB_LIMIT -was specified in the flags and -.Li ARG_MAX -patterns were matched. -.El -.Pp -The historical -.Dv GLOB_ABEND -return constant is no longer supported. Portable applications should use the -.Dv GLOB_ABORTED -constant instead. -.Pp -The arguments -.Fa pglob\->gl_pathc -and -.Fa pglob\->gl_pathv -are still set as specified above. -.Sh ENVIRONMENT -.Bl -tag -width HOME -compact -.It Ev HOME -If defined, used as the home directory of the current user in -tilde expansions. -.El -.Sh EXAMPLE -A rough equivalent of -.Ql "ls -l *.c *.h" -can be obtained with the -following code: -.Bd -literal -offset indent -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); -.Ed -.Sh SEE ALSO -.Xr sh 1 , -.Xr fnmatch 3 , -.Xr regexp 3 -.Sh STANDARDS -The -.Fn glob -function is expected to be -.St -p1003.2 -compatible with the exception -that the flags -.Dv GLOB_ALTDIRFUNC, -.Dv GLOB_BRACE -.Dv GLOB_MAGCHAR, -.Dv GLOB_NOMAGIC, -.Dv GLOB_TILDE, -and -.Dv GLOB_LIMIT -and the fields -.Fa gl_matchc -and -.Fa gl_flags -should not be used by applications striving for strict -.Tn POSIX -conformance. -.Sh HISTORY -The -.Fn glob -and -.Fn globfree -functions first appeared in -.Bx 4.4 . -.Sh BUGS -Patterns longer than -.Dv MAXPATHLEN -may cause unchecked errors. -.Pp -The -.Fn glob -function may fail and set -.Va errno -for any of the errors specified for the library routines -.Xr stat 2 , -.Xr closedir 3 , -.Xr opendir 3 , -.Xr readdir 3 , -.Xr malloc 3 , -and -.Xr free 3 . diff --git a/contrib/tcsh/glob.c b/contrib/tcsh/glob.c deleted file mode 100644 index 844ee36..0000000 --- a/contrib/tcsh/glob.c +++ /dev/null @@ -1,717 +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. 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 WINNT_NATIVE - #pragma warning(disable:4244) -#endif /* WINNT_NATIVE */ - -#define Char __Char -#include "sh.h" -#include "glob.h" - -#undef Char -#undef QUOTE -#undef TILDE -#undef META -#undef ismeta -#undef Strchr - -#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 (Char *, glob_t *, int); -static int glob2 (struct strbuf *, const Char *, glob_t *, int); -static int glob3 (struct strbuf *, const Char *, const Char *, - glob_t *, int); -static void globextend (const char *, glob_t *); -static int match (const char *, const Char *, const Char *, - int); -static int compare (const void *, const void *); -static DIR *Opendir (const char *); -#ifdef S_IFLNK -static int Lstat (const char *, struct stat *); -#endif -static int Stat (const char *, struct stat *sb); -static Char *Strchr (Char *, int); -#ifdef DEBUG -static void qprintf (const 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 LCHAR(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) - -int -globcharcoll(__Char c1, __Char c2, int cs) -{ -#if defined(NLS) && defined(LC_COLLATE) && defined(HAVE_STRCOLL) -# if defined(WIDE_STRINGS) - wchar_t s1[2], s2[2]; - - if (c1 == c2) - return (0); - if (cs) { - c1 = towlower(c1); - c2 = towlower(c2); - } else { - /* This should not be here, but I'll rather leave it in than engage in - a LC_COLLATE flamewar about a shell I don't use... */ - if (iswlower(c1) && iswupper(c2)) - return (1); - if (iswupper(c1) && iswlower(c2)) - return (-1); - } - s1[0] = c1; - s2[0] = c2; - s1[1] = s2[1] = '\0'; - return wcscoll(s1, s2); -# else /* not WIDE_STRINGS */ - 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 (cs) { - c1 = islower(c1) ? c1 : tolower(c1); - c2 = islower(c2) ? c2 : tolower(c2); - } else { - if (islower(c1) && isupper(c2)) - return (1); - if (isupper(c1) && islower(c2)) - return (-1); - } - s1[0] = c1; - s2[0] = c2; - s1[1] = s2[1] = '\0'; - return strcoll(s1, s2); -# endif -#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(const char *str) -{ -#if defined(hpux) || defined(__hpux) - struct stat st; -#endif - - if (!*str) - return (opendir(".")); -#if defined(hpux) || defined(__hpux) - /* - * Opendir on some device files hangs, so avoid it - */ - if (stat(str, &st) == -1 || !S_ISDIR(st.st_mode)) - return NULL; -#endif - return opendir(str); -} - -#ifdef S_IFLNK -static int -Lstat(const char *fn, struct stat *sb) -{ - int st; - - st = lstat(fn, sb); -# ifdef NAMEI_BUG - if (*fn != 0 && strend(fn)[-1] == '/' && !S_ISDIR(sb->st_mode)) - st = -1; -# endif /* NAMEI_BUG */ - return st; -} -#else -#define Lstat Stat -#endif /* S_IFLNK */ - -static int -Stat(const char *fn, struct stat *sb) -{ - int st; - - st = stat(fn, sb); -#ifdef NAMEI_BUG - if (*fn != 0 && strend(fn)[-1] == '/' && !S_ISDIR(sb->st_mode)) - st = -1; -#endif /* NAMEI_BUG */ - return st; -} - -static Char * -Strchr(Char *str, int ch) -{ - do - if (*str == ch) - return (str); - while (*str++); - return (NULL); -} - -#ifdef DEBUG -static void -qprintf(const Char *s) -{ - const 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(const void *p, const void *q) -{ -#if defined(NLS) && defined(HAVE_STRCOLL) - return (strcoll(*(char *const *) p, *(char *const *) q)); -#else - return (strcmp(*(char *const *) p, *(char *const *) q)); -#endif /* NLS && HAVE_STRCOLL */ -} - -/* - * 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(const char *pattern, int flags, int (*errfunc) (const char *, int), - glob_t *pglob) -{ - int err, oldpathc; - Char *bufnext, m_not; - const unsigned char *patnext; - int c, not; - Char *qpatnext, *patbuf; - int no_match; - - patnext = (const 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; - } - - patbuf = xmalloc((strlen(pattern) + 1) * sizeof(*patbuf)); - bufnext = patbuf; - - no_match = *patnext == not; - if (no_match) - patnext++; - - if (flags & GLOB_QUOTE) { - /* Protect the quoted characters */ - while ((c = *patnext++) != EOS) { -#ifdef WIDE_STRINGS - int len; - - len = mblen((const char *)(patnext - 1), MB_LEN_MAX); - if (len == -1) - mblen(NULL, 0); - if (len > 1) { - *bufnext++ = (Char) c; - while (--len != 0) - *bufnext++ = (Char) (*patnext++ | M_PROTECT); - } else -#endif /* WIDE_STRINGS */ - if (c == QUOTE) { - if ((c = *patnext++) == EOS) { - c = QUOTE; - --patnext; - } - *bufnext++ = (Char) (c | M_PROTECT); - } - else - *bufnext++ = (Char) c; - } - } - else - while ((c = *patnext++) != EOS) - *bufnext++ = (Char) c; - *bufnext = EOS; - - bufnext = patbuf; - qpatnext = patbuf; - while ((c = *qpatnext++) != EOS) { - 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++ = LCHAR(c); - if (*qpatnext == RANGE && - (c = qpatnext[1]) != RBRACKET) { - *bufnext++ = M_RNG; - *bufnext++ = LCHAR(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++ = LCHAR(c); - break; - } - } - *bufnext = EOS; -#ifdef DEBUG - qprintf(patbuf); -#endif - - if ((err = glob1(patbuf, pglob, no_match)) != 0) { - xfree(patbuf); - 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)) - globextend(pattern, pglob); - else { - char *copy, *dest; - const char *src; - - /* copy pattern, interpreting quotes */ - copy = xmalloc(strlen(pattern) + 1); - dest = copy; - src = pattern; - while (*src != EOS) { - if (*src == QUOTE) { - if (*++src == EOS) - --src; - } - *dest++ = *src++; - } - *dest = EOS; - globextend(copy, pglob); - xfree(copy); - } - xfree(patbuf); - return 0; - } - else if (!(flags & GLOB_NOSORT) && (pglob->gl_pathc != oldpathc)) - qsort(pglob->gl_pathv + pglob->gl_offs + oldpathc, - pglob->gl_pathc - oldpathc, sizeof(char *), compare); - xfree(patbuf); - return (0); -} - -static int -glob1(Char *pattern, glob_t *pglob, int no_match) -{ - struct strbuf pathbuf = strbuf_INIT; - int err; - - /* - * a null pathname is invalid -- POSIX 1003.1 sect. 2.4. - */ - if (*pattern == EOS) - return (0); - err = glob2(&pathbuf, pattern, pglob, no_match); - xfree(pathbuf.s); - return err; -} - -/* - * 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(struct strbuf *pathbuf, const Char *pattern, glob_t *pglob, int no_match) -{ - struct stat sbuf; - int anymeta; - const Char *p; - size_t orig_len; - - /* - * loop over pattern segments until end of pattern or until segment with - * meta character found. - */ - anymeta = 0; - for (;;) { - if (*pattern == EOS) { /* end of pattern? */ - strbuf_terminate(pathbuf); - - if (Lstat(pathbuf->s, &sbuf)) - return (0); - - if (((pglob->gl_flags & GLOB_MARK) && - pathbuf->s[pathbuf->len - 1] != SEP) && - (S_ISDIR(sbuf.st_mode) -#ifdef S_IFLNK - || (S_ISLNK(sbuf.st_mode) && - (Stat(pathbuf->s, &sbuf) == 0) && - S_ISDIR(sbuf.st_mode)) -#endif - )) { - strbuf_append1(pathbuf, SEP); - strbuf_terminate(pathbuf); - } - ++pglob->gl_matchc; - globextend(pathbuf->s, pglob); - return 0; - } - - /* find end of next segment, tentatively copy to pathbuf */ - p = pattern; - orig_len = pathbuf->len; - while (*p != EOS && *p != SEP) { - if (ismeta(*p)) - anymeta = 1; - strbuf_append1(pathbuf, *p++); - } - - if (!anymeta) { /* no expansion, do next segment */ - pattern = p; - while (*pattern == SEP) - strbuf_append1(pathbuf, *pattern++); - } - else { /* need expansion, recurse */ - pathbuf->len = orig_len; - return (glob3(pathbuf, pattern, p, pglob, no_match)); - } - } - /* NOTREACHED */ -} - - -static int -glob3(struct strbuf *pathbuf, const Char *pattern, const Char *restpattern, - glob_t *pglob, int no_match) -{ - DIR *dirp; - struct dirent *dp; - int err; - Char m_not = (pglob->gl_flags & GLOB_ALTNOT) ? M_ALTNOT : M_NOT; - size_t orig_len; - - strbuf_terminate(pathbuf); - errno = 0; - - if (!(dirp = Opendir(pathbuf->s))) { - /* todo: don't call for ENOENT or ENOTDIR? */ - if ((pglob->gl_errfunc && (*pglob->gl_errfunc) (pathbuf->s, errno)) || - (pglob->gl_flags & GLOB_ERR)) - return (GLOB_ABEND); - else - return (0); - } - - err = 0; - - orig_len = pathbuf->len; - /* search directory for matching names */ - while ((dp = readdir(dirp)) != NULL) { - /* initial DOT must be matched literally */ - if (dp->d_name[0] == DOT && *pattern != DOT) - continue; - pathbuf->len = orig_len; - strbuf_append(pathbuf, dp->d_name); - strbuf_terminate(pathbuf); - if (match(pathbuf->s + orig_len, pattern, restpattern, (int) m_not) - == no_match) - continue; - err = glob2(pathbuf, restpattern, pglob, no_match); - if (err) - break; - } - /* todo: check error from readdir? */ - 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 void -globextend(const char *path, glob_t *pglob) -{ - char **pathv; - int i; - size_t newsize; - - newsize = sizeof(*pathv) * (2 + pglob->gl_pathc + pglob->gl_offs); - pathv = xrealloc(pglob->gl_pathv, newsize); - - 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; - - pathv[pglob->gl_offs + pglob->gl_pathc++] = strsave(path); - pathv[pglob->gl_offs + pglob->gl_pathc] = NULL; -} - -static size_t -One_Char_mbtowc(__Char *pwc, const Char *s, size_t n) -{ -#ifdef WIDE_STRINGS - char buf[MB_LEN_MAX], *p; - - if (n > MB_LEN_MAX) - n = MB_LEN_MAX; - p = buf; - while (p < buf + n && (*p++ = LCHAR(*s++)) != 0) - ; - return one_mbtowc(pwc, buf, n); -#else - *pwc = *s & CHAR; - return 1; -#endif -} - -/* - * pattern matching function for filenames. Each occurrence of the * - * pattern causes a recursion level. - */ -static int -match(const char *name, const Char *pat, const Char *patend, int m_not) -{ - int ok, negate_range; - Char c; - - while (pat < patend) { - size_t lwk; - __Char wc, wk; - - c = *pat; /* Only for M_MASK bits */ - pat += One_Char_mbtowc(&wc, pat, MB_LEN_MAX); - lwk = one_mbtowc(&wk, name, MB_LEN_MAX); - switch (c & M_MASK) { - case M_ALL: - if (pat == patend) - return (1); - for (;;) { - if (match(name, pat, patend, m_not)) - return (1); - if (*name == EOS) - break; - name += lwk; - lwk = one_mbtowc(&wk, name, MB_LEN_MAX); - } - return (0); - case M_ONE: - if (*name == EOS) - return (0); - name += lwk; - break; - case M_SET: - ok = 0; - if (*name == EOS) - return (0); - name += lwk; - if ((negate_range = ((*pat & M_MASK) == m_not)) != 0) - ++pat; - while ((*pat & M_MASK) != M_END) { - pat += One_Char_mbtowc(&wc, pat, MB_LEN_MAX); - if ((*pat & M_MASK) == M_RNG) { - __Char wc2; - - pat++; - pat += One_Char_mbtowc(&wc2, pat, MB_LEN_MAX); - if (globcharcoll(wc, wk, 0) <= 0 && - globcharcoll(wk, wc2, 0) <= 0) - ok = 1; - } else if (wc == wk) - ok = 1; - } - pat += One_Char_mbtowc(&wc, pat, MB_LEN_MAX); - if (ok == negate_range) - return (0); - break; - default: - name += lwk; - if (samecase(wk) != samecase(wc)) - return (0); - break; - } - } - return (*name == EOS); -} - -/* free allocated data belonging to a glob_t structure */ -void -globfree(glob_t *pglob) -{ - int i; - char **pp; - - if (pglob->gl_pathv != NULL) { - pp = pglob->gl_pathv + pglob->gl_offs; - for (i = pglob->gl_pathc; i--; ++pp) - if (*pp) - xfree(*pp), *pp = NULL; - xfree(pglob->gl_pathv), pglob->gl_pathv = NULL; - } -} diff --git a/contrib/tcsh/glob.h b/contrib/tcsh/glob.h deleted file mode 100644 index 0a6fd39..0000000 --- a/contrib/tcsh/glob.h +++ /dev/null @@ -1,91 +0,0 @@ -/* $NetBSD: glob.h,v 1.13 2001/03/16 21:02:42 christos Exp $ */ - -/* - * Copyright (c) 1989, 1993 - * 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. 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 8.1 (Berkeley) 6/2/93 - */ - -#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. */ - char **gl_pathv; /* List of paths matching pattern. */ - /* Copy of errfunc parameter to glob. */ - int (*gl_errfunc) (const char *, int); - - /* - * Alternate filesystem access methods for glob; replacement - * versions of closedir(3), readdir(3), opendir(3), stat(2) - * and lstat(2). - */ - void (*gl_closedir) (void *); - struct dirent *(*gl_readdir) (void *); - void *(*gl_opendir) (const char *); - int (*gl_lstat) (const char *, struct stat *); - int (*gl_stat) (const char *, struct stat *); -} glob_t; - -#define GLOB_APPEND 0x0001 /* Append to output from previous call. */ -#define GLOB_DOOFFS 0x0002 /* Use gl_offs. */ -#define GLOB_ERR 0x0004 /* Return on error. */ -#define GLOB_MARK 0x0008 /* Append / to matching directories. */ -#define GLOB_NOCHECK 0x0010 /* Return pattern itself if nothing matches. */ -#define GLOB_NOSORT 0x0020 /* Don't sort. */ -#define GLOB_NOESCAPE 0x1000 /* Disable backslash escaping. */ - -#define GLOB_NOSPACE (-1) /* Malloc call failed. */ -#define GLOB_ABORTED (-2) /* Unignored error. */ -#define GLOB_NOMATCH (-3) /* No match, and GLOB_NOCHECK was not set. */ -#define GLOB_NOSYS (-4) /* Implementation does not support function. */ - -/* #if !defined(_POSIX_C_SOURCE) && !defined(_XOPEN_SOURCE) */ -#define GLOB_ALTDIRFUNC 0x0040 /* Use alternately specified directory funcs. */ -#define GLOB_BRACE 0x0080 /* Expand braces ala csh. */ -#define GLOB_MAGCHAR 0x0100 /* Pattern had globbing characters. */ -#define GLOB_NOMAGIC 0x0200 /* GLOB_NOCHECK without magic chars (csh). */ -#define GLOB_LIMIT 0x0400 /* Limit memory used by matches to ARG_MAX */ -#define GLOB_TILDE 0x0800 /* Expand tilde names from the passwd file. */ -#define GLOB_ALTNOT 0x1000 /* use alternate glob character [^ not !] */ -#define GLOB_QUOTE 0x2000 /* XXX: source compatibility */ - -#define GLOB_ABEND GLOB_ABORTED /* source compatibility */ -/* #endif */ - -int glob (const char *, int, int (*)(const char *, int), glob_t *); -void globfree (glob_t *); -int globcharcoll (Char, Char, int); - -#endif /* !_GLOB_H_ */ diff --git a/contrib/tcsh/host.defs b/contrib/tcsh/host.defs deleted file mode 100644 index 60b18e8..0000000 --- a/contrib/tcsh/host.defs +++ /dev/null @@ -1,1158 +0,0 @@ -newcode : -/* $Header: /p/tcsh/cvsroot/tcsh/host.defs,v 1.43 2006/03/02 18:46:44 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. 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("$tcsh: host.defs,v 1.43 2006/03/02 18:46:44 christos Exp $") - -endcode : - -macro : M_mips64el : (defined(mips64) || defined(__mips64)) && (defined(MIPSEL) || defined(__MIPSEL)) -macro : M_mips64eb : (defined(mips64) || defined(__mips64)) && (defined(MIPSEB) || defined(__MIPSEB)) -macro : M_mipsel : (!defined(M_mips64el)) && (defined(mips) || defined(__mips)) && (defined(MIPSEL) || defined(__MIPSEL)) -macro : M_mipseb : (!defined(M_mips64eb)) && (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(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(void) -{ -# 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(void) -{ - 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(void) -{ - const char *hosttype; - const char *ostype; - const char *vendor; - const char *machtype; - -endcode : - - -newdef : defined(HOSTTYPE) -hosttype: : HOSTTYPE -enddef : - - -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) || defined(__GNU__) || defined(__GLIBC__) -comment : Linus Torvalds's linux -vendor : defined(M_intel) : "intel" -hosttype: defined(__ia64__) : "ia64-linux" -hosttype: defined(__powerpc64__) : "powerpc64-linux" -hosttype: defined(__s390x__) : "s390x-linux" -hosttype: defined(__s390__) : "s390-linux" -hosttype: defined(__x86_64__) : "x86_64-linux" -hosttype: defined(M_i586) : "i586-linux" -hosttype: defined(M_i486) : "i486-linux" -hosttype: defined(M_i386) : "i386-linux" -ostype : : "linux" -machtype: defined(__ia64__) : "ia64" -machtype: defined(__powerpc64__) : "powerpc64" -machtype: defined(__s390x__) : "s390x" -machtype: defined(__s390__) : "s390" -machtype: defined(__x86_64__) : "x86_64" -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" -machtype: defined(M_mipsel) : "mipsel" -machtype: defined(M_mipseb) : "mipseb" -machtype: defined(M_mips64el) : "mips64el" -machtype: defined(M_mips64eb) : "mips64eb" -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) || defined(__arm__) : "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) : "dec" -vendor : defined(mips) : "mips" -vendor : defined(sparc) : "sun" -vendor : defined(sun3) : "sun" -vendor : defined(vax) : "digital" -hosttype: : "NetBSD" -ostype : : "NetBSD" -machtype: defined(arm32) || defined(__APCS_32__) : "arm32" -machtype: defined(arm26) || defined(__APCS_26__) : "arm26" -machtype: defined(arm) || defined(__arm__) : "arm" -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(__alpha) : "digital" -vendor : defined(M_intel) : "intel" -hosttype: : "FreeBSD" -ostype : : "FreeBSD" -machtype: defined(__alpha) : "alpha" -machtype: defined(M_i386) : "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(concurrent) -comment : Concurrent PowerHawk -vendor : : "concurrent" -hosttype: : "powerhawk" -ostype : : "powermax_os" -machtype: : "powerhawk" -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__) && defined(__MACH__) -comment : OS X -vendor : : "apple" -hosttype: defined(__i386__) : "intel-pc" -hosttype: defined(__ppc__) : "powermac" -ostype : : "darwin" -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)) && !defined(_OSD_POSIX) -comment : Fujitsu Siemens Computers (former "Siemens Nixdorf Informationssysteme"): SINIX aka. ReliantUNIX, a SVR4 derivative -vendor : : "fsc" -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 : Fujitsu Siemens Computers (former "Siemens Nixdorf Informationssysteme"): BS2000 POSIX (mainframe, EBCDIC) -vendor : : "fsc" -hosttype: : "bs2000" -ostype : : "osdposix" -machtype: #machine(7500) : "s390" -machtype: #machine(mips) : "mips" -machtype: #machine(sparc) : "sparc" -machtype: : "bs2000" -enddef : - -newdef : defined(__MVS__) -comment : ibm uss s/390 (mainframe, EBCDIC) -vendor : : "ibm" -hosttype: : "s390" -ostype : : "os390" -machtype: : "s390" -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" -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 c8e6d10..0000000 --- a/contrib/tcsh/imake.config +++ /dev/null @@ -1,65 +0,0 @@ -/* - * $tcsh: imake.config,v 1.5 2006/03/02 18:46:44 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 6ebe46d..0000000 --- a/contrib/tcsh/install-sh +++ /dev/null @@ -1,323 +0,0 @@ -#!/bin/sh -# install - install a program, script, or datafile - -scriptversion=2004-12-17.09 - -# This originates from X11R5 (mit/util/scripts/install.sh), which was -# later released in X11R6 (xc/config/util/install.sh) with the -# following copyright and license. -# -# Copyright (C) 1994 X Consortium -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- -# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -# -# Except as contained in this notice, the name of the X Consortium shall not -# be used in advertising or otherwise to promote the sale, use or other deal- -# ings in this Software without prior written authorization from the X Consor- -# tium. -# -# -# FSF changes to this file are in the public domain. -# -# 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}" - -chmodcmd="$chmodprog 0755" -chowncmd= -chgrpcmd= -stripcmd= -rmcmd="$rmprog -f" -mvcmd="$mvprog" -src= -dst= -dir_arg= -dstarg= -no_target_directory= - -usage="Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE - or: $0 [OPTION]... SRCFILES... DIRECTORY - or: $0 [OPTION]... -t DIRECTORY SRCFILES... - or: $0 [OPTION]... -d DIRECTORIES... - -In the 1st form, copy SRCFILE to DSTFILE. -In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. -In the 4th, create DIRECTORIES. - -Options: --c (ignored) --d create directories instead of installing files. --g GROUP $chgrpprog installed files to GROUP. --m MODE $chmodprog installed files to MODE. --o USER $chownprog installed files to USER. --s $stripprog installed files. --t DIRECTORY install into DIRECTORY. --T report an error if DSTFILE is a directory. ---help display this help and exit. ---version display version info and exit. - -Environment variables override the default commands: - CHGRPPROG CHMODPROG CHOWNPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG -" - -while test -n "$1"; do - case $1 in - -c) shift - continue;; - - -d) dir_arg=true - shift - continue;; - - -g) chgrpcmd="$chgrpprog $2" - shift - shift - continue;; - - --help) echo "$usage"; exit 0;; - - -m) chmodcmd="$chmodprog $2" - shift - shift - continue;; - - -o) chowncmd="$chownprog $2" - shift - shift - continue;; - - -s) stripcmd=$stripprog - shift - continue;; - - -t) dstarg=$2 - shift - shift - continue;; - - -T) no_target_directory=true - shift - continue;; - - --version) echo "$0 $scriptversion"; exit 0;; - - *) # When -d is used, all remaining arguments are directories to create. - # When -t is used, the destination is already specified. - test -n "$dir_arg$dstarg" && break - # Otherwise, the last argument is the destination. Remove it from $@. - for arg - do - if test -n "$dstarg"; then - # $@ is not empty: it contains at least $arg. - set fnord "$@" "$dstarg" - shift # fnord - fi - shift # arg - dstarg=$arg - done - break;; - esac -done - -if test -z "$1"; then - if test -z "$dir_arg"; then - echo "$0: no input file specified." >&2 - exit 1 - fi - # It's OK to call `install-sh -d' without argument. - # This can happen when creating conditional directories. - exit 0 -fi - -for src -do - # Protect names starting with `-'. - case $src in - -*) src=./$src ;; - esac - - if test -n "$dir_arg"; then - dst=$src - src= - - if test -d "$dst"; then - mkdircmd=: - chmodcmd= - else - mkdircmd=$mkdirprog - fi - else - # Waiting for this to be detected by the "$cpprog $src $dsttmp" command - # might cause directories to be created, which would be especially bad - # if $src (and thus $dsttmp) contains '*'. - if test ! -f "$src" && test ! -d "$src"; then - echo "$0: $src does not exist." >&2 - exit 1 - fi - - if test -z "$dstarg"; then - echo "$0: no destination specified." >&2 - exit 1 - fi - - dst=$dstarg - # Protect names starting with `-'. - case $dst in - -*) dst=./$dst ;; - esac - - # If destination is a directory, append the input filename; won't work - # if double slashes aren't ignored. - if test -d "$dst"; then - if test -n "$no_target_directory"; then - echo "$0: $dstarg: Is a directory" >&2 - exit 1 - fi - dst=$dst/`basename "$src"` - fi - fi - - # This sed command emulates the dirname command. - dstdir=`echo "$dst" | sed -e 's,/*$,,;s,[^/]*$,,;s,/*$,,;s,^$,.,'` - - # Make sure that the destination directory exists. - - # Skip lots of stat calls in the usual case. - if test ! -d "$dstdir"; then - defaultIFS=' - ' - IFS="${IFS-$defaultIFS}" - - oIFS=$IFS - # Some sh's can't handle IFS=/ for some reason. - IFS='%' - set x `echo "$dstdir" | sed -e 's@/@%@g' -e 's@^%@/@'` - shift - IFS=$oIFS - - pathcomp= - - while test $# -ne 0 ; do - pathcomp=$pathcomp$1 - shift - if test ! -d "$pathcomp"; then - $mkdirprog "$pathcomp" - # mkdir can fail with a `File exist' error in case several - # install-sh are creating the directory concurrently. This - # is OK. - test -d "$pathcomp" || exit - fi - pathcomp=$pathcomp/ - done - fi - - if test -n "$dir_arg"; then - $doit $mkdircmd "$dst" \ - && { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \ - && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \ - && { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \ - && { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; } - - else - dstfile=`basename "$dst"` - - # Make a couple of temp file names in the proper directory. - dsttmp=$dstdir/_inst.$$_ - rmtmp=$dstdir/_rm.$$_ - - # Trap to clean up those temp files at exit. - trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 - trap '(exit $?); exit' 1 2 13 15 - - # Copy the file name to the temp name. - $doit $cpprog "$src" "$dsttmp" && - - # 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 $cpprog $src $dsttmp" command. - # - { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \ - && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \ - && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \ - && { test -z "$chmodcmd" || $doit $chmodcmd "$dsttmp"; } && - - # Now rename the file to the real destination. - { $doit $mvcmd -f "$dsttmp" "$dstdir/$dstfile" 2>/dev/null \ - || { - # The rename failed, perhaps because mv can't rename something else - # to itself, or perhaps because mv is so ancient that it does not - # support -f. - - # Now remove or move aside any old file at destination location. - # We try this two ways since rm can't unlink itself on some - # systems and the destination file might be busy for other - # reasons. In this case, the final cleanup might fail but the new - # file should still install successfully. - { - if test -f "$dstdir/$dstfile"; then - $doit $rmcmd -f "$dstdir/$dstfile" 2>/dev/null \ - || $doit $mvcmd -f "$dstdir/$dstfile" "$rmtmp" 2>/dev/null \ - || { - echo "$0: cannot unlink or rename $dstdir/$dstfile" >&2 - (exit 1); exit 1 - } - else - : - fi - } && - - # Now rename the file to the real destination. - $doit $mvcmd "$dsttmp" "$dstdir/$dstfile" - } - } - fi || { (exit 1); exit 1; } -done - -# The final little trick to "correctly" pass the exit status to the exit trap. -{ - (exit 0); exit 0 -} - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "scriptversion=" -# time-stamp-format: "%:y-%02m-%02d.%02H" -# time-stamp-end: "$" -# End: diff --git a/contrib/tcsh/ma.setp.c b/contrib/tcsh/ma.setp.c deleted file mode 100644 index 1036fa9..0000000 --- a/contrib/tcsh/ma.setp.c +++ /dev/null @@ -1,594 +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("$tcsh: ma.setp.c,v 1.18 2006/03/02 18:46:44 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 (char **); -static void savepaths (char **); -static void freepaths (void); -static void rcmd (char *); -static void icmd (char *, char *); -static void iacmd (char *, char *); -static void ibcmd (char *, char *); -static void incmd (char *, int); -static void insert (struct pelem *, int, char *); -static void dcmd (char *); -static void dncmd (int); -static void delete (struct pelem *, int); -static void ccmd (char *, char *); -static void cncmd (char *, int); -static void change (struct pelem *, int, char *); -static int locate (struct pelem *, char *); - - - -int -setpath(char **paths, char **cmds, char *localsyspath, int dosuffix, - int printerrors) -{ - char *cmd, *cmd1, *cmd2; - 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(char **paths) -{ - char *path, *val, *p, *q; - int i, done; - 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 = xmalloc(sizeof(struct pelem)); - setzero(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(char **paths) -{ - char *p, *q; - int npath, i, len; - 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(void) -{ - char *p; - int i; - 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(char *localsyspath) /* reset path with localsyspath */ -{ - int n, done; - char *new, *p; - struct pelem *pe; - char newbuf[MAXPATHLEN+1];/*FIXBUF*/ - - 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(char *path, char *localsyspath) /* insert path before localsyspath */ -{ - int n; - char *new; - struct pelem *pe; - char newbuf[MAXPATHLEN+1];/*FIXBUF*/ - - 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(char *inpath, char *path) /* insert path after inpath */ -{ - int n; - 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(char *inpath, char *path) /* insert path before inpath */ -{ - int n; - 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(char *path, int n) /* insert path at position n */ -{ - struct pelem *pe; - - for (pe = pathhead; pe; pe = pe->pnext) - insert(pe, n, path); -} - -static void -insert(struct pelem *pe, int loc, char *key) -{ - int i; - char *new; - char newbuf[2000];/*FIXBUF*/ - - 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(char *path) /* delete path */ -{ - int n; - 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(int n) /* delete at position n */ -{ - 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(struct pelem *pe, int n) -{ - 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(char *inpath, char *path) /* change inpath to path */ -{ - int n; - 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(char *path, int n) /* change at position n to path */ -{ - 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(struct pelem *pe, int loc, char *key) -{ - char *new; - char newbuf[MAXPATHLEN+1];/*FIXBUF*/ - - 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(struct pelem *pe, char *key) -{ - int i; - char *realkey; - char keybuf[MAXPATHLEN+1];/*FIXBUF*/ - - 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 4025067..0000000 --- a/contrib/tcsh/mi.termios.c +++ /dev/null @@ -1,393 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/mi.termios.c,v 1.5 2006/03/02 18:46:44 christos Exp $ */ -/* termios.c - fake termios interface using sgtty interface - * by Magnus Doell and Bruce Evans. - * - */ -#include "sh.h" -RCSID("$tcsh: mi.termios.c,v 1.5 2006/03/02 18:46:44 christos Exp $") - -#if defined(_MINIX) && !defined(_MINIX_VMD) - - -/* 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 && !_MINIX_VMD */ diff --git a/contrib/tcsh/mi.varargs.h b/contrib/tcsh/mi.varargs.h deleted file mode 100644 index 0a9dfb5..0000000 --- a/contrib/tcsh/mi.varargs.h +++ /dev/null @@ -1,15 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/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 205ac68..0000000 --- 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/charset b/contrib/tcsh/nls/C/charset deleted file mode 100644 index f272278..0000000 --- a/contrib/tcsh/nls/C/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=US-ASCII -$set 255 -1 US-ASCII diff --git a/contrib/tcsh/nls/C/set1 b/contrib/tcsh/nls/C/set1 deleted file mode 100644 index d63a046..0000000 --- a/contrib/tcsh/nls/C/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.6 2006/03/02 18:46:45 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 49648ec..0000000 --- a/contrib/tcsh/nls/C/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.3 2006/03/02 18:46:45 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 8655001..0000000 --- a/contrib/tcsh/nls/C/set11 +++ /dev/null @@ -1,31 +0,0 @@ -$ $tcsh: set11,v 1.4 2006/03/02 18:46:45 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 -8 -b file batch mode, read and execute commands from `file' \n\ --c command run `command' from next argument \n\ --d load directory stack from `~/.cshdirs' \n\ --Dname[=value] define environment variable `name' to `value' (DomainOS only) \n\ --e exit on any error \n\ --f start faster by ignoring the start-up file \n\ --F use fork() instead of vfork() when spawning (ConvexOS only) \n\ --i interactive, even when input is not from a terminal \n\ --l act as a login shell, must be the only option specified \n\ --m load the start-up file, whether or not owned by effective user \n\ --n file no execute mode, just check syntax of the following `file' \n\ --q accept SIGQUIT for running under a debugger \n\ --s read commands from standard input \n\ --t read one line from standard input \n\ --v echo commands after history substitution \n\ --V like -v but including commands read from the start-up file \n\ --x echo commands immediately before execution \n\ --X like -x but including commands read from the start-up file \n\ ---help print this message and exit \n\ ---version print the version shell variable and exit \n\ -\nSee the tcsh(1) manual page for detailed information.\n diff --git a/contrib/tcsh/nls/C/set12 b/contrib/tcsh/nls/C/set12 deleted file mode 100644 index 31e9783..0000000 --- a/contrib/tcsh/nls/C/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.4 2006/03/02 18:46:45 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 69a42d2..0000000 --- a/contrib/tcsh/nls/C/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.3 2006/03/02 18:46:45 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 dc39600..0000000 --- a/contrib/tcsh/nls/C/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.4 2006/03/02 18:46:45 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 7f51d77..0000000 --- a/contrib/tcsh/nls/C/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.4 2006/03/02 18:46:45 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 4c078f8..0000000 --- a/contrib/tcsh/nls/C/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.4 2006/03/02 18:46:45 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 a7ed634..0000000 --- a/contrib/tcsh/nls/C/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.6 2006/03/02 18:46:45 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 -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/C/set18 b/contrib/tcsh/nls/C/set18 deleted file mode 100644 index 7ef5f80..0000000 --- a/contrib/tcsh/nls/C/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.3 2006/03/02 18:46:45 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 1f10336..0000000 --- a/contrib/tcsh/nls/C/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.4 2006/03/02 18:46:45 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 62df232..0000000 --- a/contrib/tcsh/nls/C/set2 +++ /dev/null @@ -1,111 +0,0 @@ -$ $tcsh: set2,v 1.5 2006/03/02 18:46:45 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 7fb4d66..0000000 --- a/contrib/tcsh/nls/C/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.3 2006/03/02 18:46:45 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 5795061..0000000 --- a/contrib/tcsh/nls/C/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.3 2006/03/02 18:46:45 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 daf4ec1..0000000 --- a/contrib/tcsh/nls/C/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.3 2006/03/02 18:46:45 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 176853d..0000000 --- a/contrib/tcsh/nls/C/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.4 2006/03/02 18:46:45 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 1a45f01..0000000 --- a/contrib/tcsh/nls/C/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.3 2006/03/02 18:46:45 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 9e48309..0000000 --- a/contrib/tcsh/nls/C/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.3 2006/03/02 18:46:45 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 5921cf7..0000000 --- a/contrib/tcsh/nls/C/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.3 2006/03/02 18:46:45 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 3aea7b4..0000000 --- a/contrib/tcsh/nls/C/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.3 2006/03/02 18:46:45 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 b3c4f11..0000000 --- a/contrib/tcsh/nls/C/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.3 2006/03/02 18:46:45 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 7841e25..0000000 --- a/contrib/tcsh/nls/C/set3 +++ /dev/null @@ -1,126 +0,0 @@ -$ $tcsh: set3,v 1.6 2006/03/02 18:46:45 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 -115 Replace just-yanked text with yank from earlier kill -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down -122 Execute command and keep current line -123 Execute command and move to next history line diff --git a/contrib/tcsh/nls/C/set30 b/contrib/tcsh/nls/C/set30 deleted file mode 100644 index 99aa3ff..0000000 --- a/contrib/tcsh/nls/C/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.5 2006/03/02 18:46:45 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 9a30f26..0000000 --- a/contrib/tcsh/nls/C/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.3 2006/03/02 18:46:45 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 69da635..0000000 --- a/contrib/tcsh/nls/C/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.3 2006/03/02 18:46:45 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 d06b29e..0000000 --- a/contrib/tcsh/nls/C/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.3 2006/03/02 18:46:45 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 8046939..0000000 --- a/contrib/tcsh/nls/C/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.3 2006/03/02 18:46:45 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 8de5768..0000000 --- a/contrib/tcsh/nls/C/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.4 2006/03/02 18:46:45 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 7003bdd..0000000 --- a/contrib/tcsh/nls/C/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.3 2006/03/02 18:46:45 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 284411d..0000000 --- a/contrib/tcsh/nls/C/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.3 2006/03/02 18:46:45 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 1bcb436..0000000 --- a/contrib/tcsh/nls/Makefile +++ /dev/null @@ -1,24 +0,0 @@ -# $tcsh: Makefile,v 1.14 2006/03/02 18:46:45 christos Exp $ - -SUBDIRS= C et finnish french german greek italian ja pl russian \ - spanish ukrainian -#GENCAT= gencat --new -CHARSET= charset -GENCAT= gencat - -catalogs: - @for i in ${SUBDIRS} ; \ - do \ - echo "$$i"; \ - cd $$i; \ - cat ${CHARSET} 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/et/charset b/contrib/tcsh/nls/et/charset deleted file mode 100644 index 0b13559..0000000 --- a/contrib/tcsh/nls/et/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=ISO-8859-1 -$set 255 -1 ISO-8859-1 diff --git a/contrib/tcsh/nls/et/set1 b/contrib/tcsh/nls/et/set1 deleted file mode 100644 index 03864df..0000000 --- a/contrib/tcsh/nls/et/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.3 2006/03/02 18:46:45 christos Exp $ -$ Error messages -$set 1 -1 Süntaksi viga -2 %s ei ole lubatud -3 Sõna on liiga pikk -4 $< rida on liiga pikk -5 $0 jaoks pole faili -6 Mittetäielik [] muutja -7 $ laiendus peab lõppema enne ] -8 Halb : täiendaja $ (%c) -9 Viga indeksis -10 Vigane number -11 Sõnad on otsas -12 Faili nimi on puudu -13 Sisemine täiendi viga -14 Käsku pole -15 Liiga vähe argumente -16 Liiga palju argumente -17 Seda aliast on liiga ohtlik luua -18 Tühi if -19 Ebaõige then -20 Sõnad pole sulgudes -21 %s ei leita -22 Vigane mask -23 Pole sellist limiiti -24 Argument on liiga suur -25 Vigane või tundmatu skaleerimis faktor -26 Defineerimata muutuja -27 Kataloogi pinu pole nii sügav -28 Vigane signaali number -29 Tundmatu signaal; kill -l annab signaalid -30 Muutuja nimi peab algama tähega -31 Muutuja nimi on liiga pikk -32 Muutuja nimi võib koosneda ainult tähtedest ja numbritest -33 Sellel käsuinterpretaatoril puudub töökontroll -34 Avaldises on süntaksi viga -35 Kodukataloogi pole -36 Kodukataloogi ei saa minna -37 Vigane tühi käsk -38 Omistamisel pole avaldist -39 Tundmatu operaator -40 Arusaamatu -41 %s: Fail on olemas -42 Võtme -c argumendi lõpus on langkriips -43 Katkestatud -44 Indeks on piiridest väljas -45 Rea ületäitumine -46 Sellist tööd pole -47 Terminalilt ei saa -48 Pole while/foreach sees -49 Protsessid on otsas -50 Ei leia -51 Puuduv %c -52 Ei leia sümbolit %c -53 Mälu on otsas -54 Toru ei saa luua -55 %s: %s -56 %s -57 Kasuta: jobs [ -l ] -58 Argumendid peavad olema tööde või protsesside identifikaatorid -59 Käesolevat tööd pole -60 Pole eelmist tööd -61 Pole mustrile vastavat tööd -62 Fork süveneb > %d; võibolla `...` tsükkel -63 Alamshellis pole töökontrolli -64 Sünkroniseerimise tõrge: Protsessi %d pole -65 %sTeil on peatatud töid -66 %sTeil on seisatud töid -67 Pole teist kataloogi -68 Kataloogi pinu on tühi -69 Halb kataloog -70 kasuta: %s [-%s]%s -71 -h võtmel puudub operand -72 Pole meldimise shell -73 Nulliga jagamine -74 Jäägi leidmine nulliga -75 Vigane skaala; te mõtlesite ehk "%s"? -76 Login shelli ei saa peatada (praegu) -77 Tundmatu kasutaja: %s -78 $home muutujat pole väärtustatud -79 Kasuta: history [-%s] [# sündmuste number] -80 $, ! või < pole lubatud kasutada koos $# või $? -81 Reavahetus muutuja nimes -82 * pole lubatud kasutada koos $# või $? -83 $?<number> või $#<number> pole lubatud -84 Lubamatu muutuja nimi -85 Reavahetus muutuja indeksis -86 Laiendamise puhvri ületäitumine -87 Muutuja süntaksi viga -88 Vigane ! kasutamine -89 Eelmist asendust pole -90 Vigane asendamine -91 Eelmist vasakut poolt pole -92 Parem pool on liiga pikk -93 Vigane ! modifikaator: %c -94 Modifikaator ebaõnnestus -95 Asenduse puhvri ületäitumine -96 Vigane ! argumendi valik -97 Pole eelmist otsimist -98 %s: Sündmust pole -99 Liiga palju ) -100 Liiga palju ( -101 Halvasti paigutatud ( -102 Suunamisel pole nime antud -103 Segane väljundi suunamine -104 << ei saa () vahel kasutada -105 Segane sisendi suunamine -106 Halvasti paigutatud () -107 Aliaste tsükkel -108 $watch muutuja pole seatud -109 Plaanitud sündmuseid pole -110 Kasuta: sched -<sündmuse#>.\nKasuta: sched [+]hh:mm <käsk> -111 Niipalju sündmuseid pole -112 Pole käsku, mida käivitada -113 Vigane sündmuseaeg -114 Suhteline aeg ei ole am/pm notatsiooniga kooskõlas -115 Termcap sõne on liiga pikk -116 Kasuta: settc %s [yes|no] -117 Tundmatu omadus `%s' -118 Tundmatu termcap parameeter `%%%c' -119 `%s' jaoks on liiga palju argumente (%d) -120 `%s' nõuab %d argumenti -121 Kasuta: echotc [-v|-s] [<omadus> [<argumendid>]] -122 %s: %s. Vale arhitektuur -123 !# Ajaloo tsükkel -124 Vigane failipäring -125 Valija ületäitumine -126 Tundmatu võti: `-%s'\nKasuta: %s [ -bcdefilmnqstvVxX -Dnimi[=väärtus] ] [ argument ... ] -127 Tundmatu võti: `-%s'\nKasuta: %s [ -bcdefFilmnqstvVxX ] [ argument ... ] -128 Tundmatu võti: `-%s'\nKasuta: %s [ -bcdefilmnqstvVxX ] [ argument ... ] -129 \nVigane täiendus: "%s" -130 \nVigane %s: '%c' -131 \nEraldaja '%c' puudub pärast %s "%s" -132 \nMittetäielik %s: "%s" -133 -m võtmel pole operandi -134 Kasuta: unlimit [-fh] [limiidid] -135 $%S on ainult lugemiseks -136 Pole sellist tööd -137 Tundmatu colorls muutuja `%c%c' diff --git a/contrib/tcsh/nls/et/set10 b/contrib/tcsh/nls/et/set10 deleted file mode 100644 index d330cdb..0000000 --- a/contrib/tcsh/nls/et/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: vigane käsk '%s'.\n -2 setpath: käsule '%s' pole piisavalt argumente.\n -3 setpath: teel '%s' pole väärtust\n -4 setpath: %s ei leitud %s's\n -5 setpath: %d ei ole korrektne positsioon %s's\n diff --git a/contrib/tcsh/nls/et/set11 b/contrib/tcsh/nls/et/set11 deleted file mode 100644 index ca85161..0000000 --- a/contrib/tcsh/nls/et/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ sh.c -$set 11 -1 Hoiatus: tty (%s) pole kättesaadav.\n -2 Seega ei saa kasutada tööde kontrolli.\n -3 Teil on %d kirja.\n -4 Teil on %d kirja failis %s.\n -5 Teil on %skiri.\n -6 uus -7 Teil on %skiri failis %s.\n diff --git a/contrib/tcsh/nls/et/set12 b/contrib/tcsh/nls/et/set12 deleted file mode 100644 index 9c6b1be9..0000000 --- a/contrib/tcsh/nls/et/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: Proovin startida kataloogist "%s"\n diff --git a/contrib/tcsh/nls/et/set13 b/contrib/tcsh/nls/et/set13 deleted file mode 100644 index a71a9af..0000000 --- a/contrib/tcsh/nls/et/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.2 2006/03/02 18:46:45 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: käsuinterpretaatori sisekäsk.\n -6 %S: Käsku pole.\n -7 where: / käsunimes on mõttetu\n -8 %S on tegelikult -9 %S on sisekäsk\n -10 hash miss: diff --git a/contrib/tcsh/nls/et/set14 b/contrib/tcsh/nls/et/set14 deleted file mode 100644 index 95b36c5..0000000 --- a/contrib/tcsh/nls/et/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ sh.file.c -$set 14 -1 \nÄhh!! Liiga palju %s!!\n -2 nimesid paroolifailis -3 faile diff --git a/contrib/tcsh/nls/et/set15 b/contrib/tcsh/nls/et/set15 deleted file mode 100644 index 4f5561f..0000000 --- a/contrib/tcsh/nls/et/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: Ei õnnestu %s%s piirangut\n -2 eemaldada -3 seada -4 \040kõva diff --git a/contrib/tcsh/nls/et/set16 b/contrib/tcsh/nls/et/set16 deleted file mode 100644 index 1596568..0000000 --- a/contrib/tcsh/nls/et/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ sh.lex.c -$set 16 -1 Seadsin tty pgrp numbrilt %d numbrile %d\n -2 \nKasuta töö lõpetamiseks käsku "logout".\n -3 \nKasuta "exit" käsku %s katkestamiseks.\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/et/set17 b/contrib/tcsh/nls/et/set17 deleted file mode 100644 index e154d7b..0000000 --- a/contrib/tcsh/nls/et/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.3 2006/03/02 18:46:45 christos Exp $ -$ sh.proc.c -$set 17 -1 BUG: ootan taustatöö järel!\n -2 Exit %d\n -3 BUG: process flushed twice -4 Töötab -5 Signaal -6 Exit %-25d -7 Valmis -8 BUG: staatus=%-9o -9 \040(mälupilt päästetud) -10 \040(töökataloog: -11 (töökataloog nüüd: -12 %S: Juba peatatud\n -13 %S: Juba seisatud\n -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/et/set18 b/contrib/tcsh/nls/et/set18 deleted file mode 100644 index fc31346..0000000 --- a/contrib/tcsh/nls/et/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ sh.set.c -$set 18 -1 Hoiatus: nõmedalt pikk PATH sai lühendatud\n diff --git a/contrib/tcsh/nls/et/set19 b/contrib/tcsh/nls/et/set19 deleted file mode 100644 index 6f653d0..0000000 --- a/contrib/tcsh/nls/et/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: Mälu on otsas\n -2 free(%lx) kasutati enne mälu haaramist. -3 free(%lx) enne mälu algust. -4 free(%lx) pärast mälu lõppu. -5 free(%lx) halb plokk. -6 free(%lx) vigane piirkonna kontroll. -7 free(%lx) vigane plokkide indeks. -8 %s mälu kasutamine hetkel:\nvaba:\t -9 \nkasutatud:\t -10 \n\tKokku kasutusel: %d, kokku vaba: %d\n -11 \tMälu vahemikus 0x%lx kuni 0x%lx. Tegelik algus 0x%lx\n -12 Mälu vahemikus 0x%lx kuni 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/et/set2 b/contrib/tcsh/nls/et/set2 deleted file mode 100644 index ea1f4c9..0000000 --- a/contrib/tcsh/nls/et/set2 +++ /dev/null @@ -1,111 +0,0 @@ -$ $tcsh: set2,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ Signal names -$set 2 -1 Null signaal -2 Hangup -3 Katkestus -4 Quit -5 Vigane instruktsioon -6 Trace/BPT trap -7 Abort -8 IOT trap -9 System Crash Imminent -10 Error exit -11 EMT trap -12 Floating exception -13 Tapetud -14 Kasutaja signaal 1 -15 Kasutaja signaal 2 -16 Segmenteerimise rike -17 Viga siinil -18 Program range error -19 Operand range error -20 Vigane süsteemifunktsioon -21 Katkenud toru -22 Alarmkell -23 Terminated -24 Alamprotsessi olek muutus -25 Alamprotsessi surm -26 Apollo-spetsiifiline tõrge -27 Alamprotsess peatatud või lõpetas -28 Alamprotsess lõpetas -29 Voolutõrge -30 Resource Lost -31 Break (Ctrl-Break) -32 Sisend/väljund võimalik -33 Asünkroonne S/V (select) -34 Urgent condition on I/O channel -35 Multitasking wake-up -36 Multitasking kill -37 Fortrani asünkroonne S/V lõpetas -38 Recovery -39 Mitteparandatav mälu viga -40 CPU aja piirang on ületatud -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 registri paarsuse viga -45 Information request -46 Peatatud (signaal) -47 Seisatud (signaal) -48 Peatatud -49 Seisatud -50 Jätkab -51 Peatatud (tty sisend) -52 Seisatud (tty sisend) -53 Peatatud (tty väljund) -54 Seisatud (tty väljund) -55 Akna olek muutus -56 Akna suurus muutus -57 Telefoni olek muutus -58 Cpu aja piirang on ületatud -59 Faili suuruse piirang on ületatud -60 Virtuaalaja alarm -61 Profiling time alarm -62 DIL signaal -63 Pollable event occured -64 Protsessi lwpd on blokeeritud -65 Spetsiaalne LWP signaal -66 Spetsiaalne CPR Signaal -67 Spetsiaalne CPR Signaal -68 Esimene reaalaja signaal -69 Teine reaalaja signaal -70 Kolmas reaalaja signaal -71 Neljas reaalaja signaal -72 Neljas viimane reaalaja signaal -73 Kolmas viimane reaalaja signaal -74 Teine viimane reaalaja signaal -75 Viimane reaalaja signaal -76 LAN Asünkroonne 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 Prioriteedi muutus -88 Tuvastati tõeline tupiksituatsioon -89 Uus sisendsümbol -90 Pinu piirang on ületatud -91 Kasutamata signaal -92 LM overlay -93 süsteemi külmutamine -94 süsteemi sulatamine -95 tupiksituatsioon -96 mälu suuruse piirang on ületatud -97 andmete suuruse piirang on ületatud -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 XMU suuruse piirang on ületatud -105 RLG0 piirang on ületatud -106 RLG1 piirang on ületatud -107 RLG2 piirang on ületatud -108 RLG3 piirang on ületatud diff --git a/contrib/tcsh/nls/et/set20 b/contrib/tcsh/nls/et/set20 deleted file mode 100644 index 3ba741b..0000000 --- a/contrib/tcsh/nls/et/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tc.bind.c -$set 20 -1 Vigane klahvi nimi `%S'\n -2 Halb klahv: %S\n -3 Halb käsk: %S\n -4 Halb klahvi spetsifikatsioon %S\n -5 Null sõne spetsifikatsioonis\n -6 Standardsed klahviseosed\n -7 Alternatiivsed klahviseosed\n -8 Mitme-sümbolised seosed\n -9 Seosed nooleklahvidele\n -10 %-15s-> on defineerimata\n -11 BUG!!! %s pole seotud.\n -12 Kasuta: bindkey [võtmed] [--] [KLAHV [KÄSK]]\n -13 -a esita või seo KLAHVI alternatiivne tabel\n -14 -b käsitle KLAHVI kui C-, M-, F- või X- klahvi nime\n -15 -s käsitle COMMAND kui literaalset väljundsõne\n -16 -c käsitle COMMAND kui sisemist või välist käsku\n -17 -v seo kõik klahvid vi seostega\n -18 -e seo kõik klahvid emacsi seostega\n -19 -d seo kõik klahvid vaikimisi toimeti seostega\n -20 -l esita toimeti käsud koos kirjeldustega\n -21 -r kustuta KLAHVILT seos\n -22 -k kasuta KLAHVI kui noole-klahvi sümbolnime\n -23 -- katkesta võtmete töötlemine\n -24 -u (või suvaline vigane võti) see teade\n -25 Ilma KLAHVI või KÄSUTA trükib kõik seosed\n -26 Ilma KÄSUTA trükib seosed KLAHVILE.\n -27 Halb klahvi spetsifikatsioon -- null sõne\n -28 Halb klahvi spetsifikatsioon -- tühi sõne\n -29 Halb funktsioon-klahvi spetsifikatsioon. Null klahv pole lubatud\n -30 Halb klahvi spetsifikatsioon -- vigane kuueteistkümnend number\n -31 Halb klahvi spetsifikatsioon -- vigane kaheksand number\n -32 Halb klahvi spetsifikatsioon -- vigane kümnend number\n -33 Halb funktsioon-klahvi spetsifikatsioon.\n -34 Null klahv pole lubatud\n -35 halb klahvi spetsifikatsioon -- tundmatu nimi "%S"\n -36 kasuta: bind [KLAHV | KÄSK KLAHV | "emacs" | "vi" | "-a"]\n -37 Vigane funktsioon -38 %s\t\ton defineerimata\n diff --git a/contrib/tcsh/nls/et/set21 b/contrib/tcsh/nls/et/set21 deleted file mode 100644 index e435c1a..0000000 --- a/contrib/tcsh/nls/et/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tc.disc.c -$set 21 -1 Lokaalseid sümboleid ei õnnestu lugeda.\n -2 Lokaalseid sümboleid ei õnnestu seada.\n diff --git a/contrib/tcsh/nls/et/set22 b/contrib/tcsh/nls/et/set22 deleted file mode 100644 index e619e53..0000000 --- a/contrib/tcsh/nls/et/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t on tegelikult -2 \nKasutaja %s: vale parool\n -3 Vigane alias 'precmd' eemaldatud.\n -4 Vigane alias 'cwdcmd' eemaldatud.\n -5 Vigane alias 'beepcmd' eemaldatud.\n -6 Vigane alias 'periodic' eemaldatud.\n -7 töötlen käsurida\n -8 Kas te tÕepoolest tahate kustutada kõik failid? [e/j] -9 katkestan failide kustutamise!\n -10 käsurida on nüüd:\n -11 töötlen käsurida\n -12 ühes loenditest\n -13 käsurida on nüüd:\n -14 jJ diff --git a/contrib/tcsh/nls/et/set23 b/contrib/tcsh/nls/et/set23 deleted file mode 100644 index 72432d0..0000000 --- a/contrib/tcsh/nls/et/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tc.os.c -$set 23 -1 Vigane cpu/saidi nimi -2 Saidi tee on liiga pikk -3 tundmatu -4 sait: %s\n -5 %d: Saiti pole\n -6 setlocal: %s: %s\n -7 Saiti pole -8 Te olete lõksus universumis, mida te pole loonud -9 Getwarp ebaõnnestus -10 Vigane warp -11 Setwarp ebaõnnestus -12 Vigane universum -13 Tundmatu viga: %d -14 sysname: %s\n -15 nodename: %s\n -16 release: %s\n -17 versioon: %s\n -18 masin: %s\n -19 getwd: ".." ei saa avada (%s) -20 getwd: Ei saa minna kataloogi ".." (%s) -21 getwd: Viga lugedes ".." (%s) -22 getwd: Ei saa tagasi "." kataloogi (%s) -23 getwd: "/" atribuute ei saa lugeda (%s) -24 getwd: "." atribuute ei saa lugeda (%s) -25 getwd: Kataloogi "%s" atribuute ei saa lugeda (%s) -26 getwd: Kataloogi "%s" ei saa avada (%s) -27 getwd: Kataloogis ".." pole kataloogi "." (%s) -28 Vigane süsteemi tüüp -29 Süsteemi tüüp ei ole määratud -30 Liiga palju argumente -31 Vigane argument diff --git a/contrib/tcsh/nls/et/set24 b/contrib/tcsh/nls/et/set24 deleted file mode 100644 index 4c3e637..0000000 --- a/contrib/tcsh/nls/et/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tc.sched.c -$set 24 -1 Häkk! diff --git a/contrib/tcsh/nls/et/set25 b/contrib/tcsh/nls/et/set25 deleted file mode 100644 index c35deb7..0000000 --- a/contrib/tcsh/nls/et/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tc.sig.c -$set 25 -1 our wait %d\n -2 viga: bsd_signal(%d) pole signaal\n -3 viga: bsd_signal(%d) - sigaction ebaõnnestus, errno = %d\n diff --git a/contrib/tcsh/nls/et/set26 b/contrib/tcsh/nls/et/set26 deleted file mode 100644 index e5b3967..0000000 --- a/contrib/tcsh/nls/et/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tc.who.c -$set 26 -1 Ei saa lugeda %s atribuute. Anna käsk "unset watch".\n -2 %s ei saa avada. Anna käsk "unset watch".\n -3 BUG! viimane element ei ole viimasena registreeritud!\n -4 tagurpidi: -5 BUG! esimene element ei ole esimesena registreeritud!\n -6 uus: %s/%s\n -7 %n %a terminalil %l masinast %m. -8 %n %a terminalil %l. -9 töötab -10 lõpetas töö -11 asendas %s terminalil -12 kohalik diff --git a/contrib/tcsh/nls/et/set27 b/contrib/tcsh/nls/et/set27 deleted file mode 100644 index 57bd18f..0000000 --- a/contrib/tcsh/nls/et/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tw.comp.c -$set 27 -1 käsk -2 eraldaja -3 muster -4 vahemik -5 täiendamine diff --git a/contrib/tcsh/nls/et/set29 b/contrib/tcsh/nls/et/set29 deleted file mode 100644 index 8e0f6da..0000000 --- a/contrib/tcsh/nls/et/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ tw.help.c -$set 29 -1 %S'ile pole abiteksti\n diff --git a/contrib/tcsh/nls/et/set3 b/contrib/tcsh/nls/et/set3 deleted file mode 100644 index 4c06d39..0000000 --- a/contrib/tcsh/nls/et/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.3 2006/03/02 18:46:45 christos Exp $ -$ Editor function descriptions -$set 3 -1 Liigu sümbol tagasi -2 Kustuta sümbol kursori tagant -3 Lõika jooksva sõna algusest kursorini - salvesta lõikepuhvris -4 Lõika rea algusest kursorini - salvesta lõikepuhvris -5 Liigu jooksva sõna algusse -6 Liigu rea algusse -7 Tähed kursorist kuni sõnalõpuni suurteks -8 Vi muuda kursori aluse sümboli suurust ja liigu sümbol edasi -9 Vi muuda realõpuni -10 Puhasta ekraan jättes jooksva rea ülemiseks -11 Täienda jooksev sõna -12 Vali täiendusi liikudes nimekirjas edasi -13 Vali täiendusi liikudes nimekirjas tagasi -14 Täienda jooksev sõna, ignoreeri programmeeritud täiendusi -15 Kopeeri jooksev sõna kursorini -16 Kopeeri ala märgist kursorini lõikepuhvrisse -17 Avalda eelneva sõnani, millele see on prefiks -18 Kustuta sümbol kursori alt -19 Kustuta sümbol kursori alt või teata tühja rea korral faililõpust -20 Kustuta sümbol kursori alt või rea lõpu korral näita täiendusi -21 Kustuta sümbol kursori alt, näita täiendusi või teata faililõpust -22 Lõika kursorist jooksva sõna lõpuni - salvesta lõikepuhvris -23 Kui alustatud, lisab argumendile, muidu lisab numbri -24 Number, mis alustab argumenti -25 Liigu järgmisele ajaloo reale -26 Sümbolid väiketähtedeks kursorist jooksva sõna lõpuni -27 Näita faililõppu -28 Kursor realõppu -29 Vaheta kursor ja märk -30 Avalda faili nimes metasümbolid -31 Avalda ajaloo käsud -32 Avalda real ajaloo käsud -33 Avalda muutujad -34 Liigu sümbol edasi -35 Liigu edasi jooksva sõna lõppu -36 Vaheta kursori ees kaks sümbolit -37 Otsi ajaloos tagasi jooksva rea algusega rida -38 Otsi ajaloos edasi jooksva rea algusega rida -39 Lisa eelmise käsu viimane element -40 Inkrementaalne edaspidi otsing -41 Inkrementaalne tagurpidi otsing -42 Puhasta rida -43 Lõika realõpuni ja salvesta lõikepuhvris -44 Lõika ala märgist kursorini ja salvesta lõikepuhvris -45 Lõika kogu rida ja salvesta lõikepuhvris -46 Näita täiendamise valikud -47 Näita täiendamise valikuid ignoreerides programmeeritud täiendusi -48 Näita faili nimes metasümbolite leide -49 Näita täiendamise valikuid või teavita tühja rea korral faililõpust -50 Näita masina koormust ja jooksva protsessi olekut -51 Avalda ajaloo käsud ja lisa tühik -52 Täida käsklus -53 Avalda failiteed, eemaldades algusest . ja .. -54 Avalda käsk failiteeks või aliaseks -55 Lülita lisamis- või ülekirjutamismood -56 Lisa järgmisele kirjutatavale sümbolile kaheksas bitt -57 Lisa järgmine kirjutatav sümbol reale kvoodituna -58 Näita kõik uuesti -59 Taaskäivita peatatud toimeti -60 Esita jooksva käsu abiinfo -61 See sümbol lisatakse reale -62 See sümbol on sümboljärjendis esimene -63 Sea märk -64 Paranda jooksva sõna õigekirja -65 Paranda terve rea õigekirja -66 Saada sümbol terminalile vahendusmoodis -67 Lülita ajaloo literaalne või leksiline mood -68 Vaheta kursori alune ja kursorist vasakul asuvad sümbolid -69 Vaheta kursori ees kaks sümbolit -70 Tty viivitusega peatamine sümbol -71 Tty tühjenda väljund sümbol -72 Tty katkesta sümbol -73 Tty välju sümbol -74 Tty peata sümbol -75 Tty luba väljund sümbol -76 Tty keela väljund sümbol -77 Tähistab sidumata sümbolit -78 Emacsi universaalne argument (argument korda 4) -79 Liigu eelmisele ajaloo reale -80 Sümbolid suurtähtedeks kursorist jooksva sõna lõpuni -81 Vi liigu järgmise sõna algusse -82 Vi sisene peale kursorit lisamismoodi -83 Vi sisene rea lõpus lisamismoodi -84 Vi muuda kursori aluse sümboli suurust ja liigu ühe sümboli võrra edasi -85 Vi muuda prefiks käsklust -86 Vi muuda realõpuni -87 Sisene vi käsumoodi (kasuta alternatiivseid klahvi seoseid) -88 Vi käsu mood täienda jooksev sõna -89 Vi liigu eelmisele sümbolile (backspace) -90 Vi kustuta prefiks käsklus -91 Vi liigu jooksva tühikuga eraldatud sõna lõppu -92 Vi liigu jooksva sõna lõppu -93 Vi liigu tagasi määratud sümbolini -94 Vi liigu edasi määratud sümbolini -95 Vi liigu tagasi määratud sümbolile -96 Vi liigu edasi määratud sümbolile -97 Sisene vi lisamismoodi -98 Sisene rea alguses vi lisamismoodi -99 Vi korda antud sümboli otsimist samas suunas -100 Vi korda antud sümboli otsimist vastupidises suunas -101 Vi korda antud otsimist samas suunas -102 Vi korda antud otsimist vastupidises suunas -103 Vi asenda kursori alt sümbol järgmisena kirjutatava sümboliga -104 Vi asendusre¸iim -105 Vi otsi ajaloost tagurpidi -106 Vi otsi ajaloost edaspidi -107 Vi asenda kursori alune sümbol ja mine sisesamisre¸iimi -108 Vi asenda kogu rida -109 Vi mine eelmise sõna juurde -110 Vi mine järgmise sõna juurde -111 Vi taasta viimane muutus -112 Vi mine rea algusse -113 Käivita jooksval sõnal käsk which -114 Kleebi lõikepuhver alates kursori positsioonist -115 Replace just-yanked text with yank from earlier kill -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down diff --git a/contrib/tcsh/nls/et/set30 b/contrib/tcsh/nls/et/set30 deleted file mode 100644 index f629dc8..0000000 --- a/contrib/tcsh/nls/et/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.2 2006/03/02 18:46:45 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 elementi -6 veergu -7 Leidsin %d %s, näitan neid? [e/j] -8 looking = %d\n -9 \n%s sisemine viga: Ma ei tea, mida ma otsin!\n -10 pole kataloog -11 pole leitav -12 loetamatu -13 jJ diff --git a/contrib/tcsh/nls/et/set31 b/contrib/tcsh/nls/et/set31 deleted file mode 100644 index 500c1db..0000000 --- a/contrib/tcsh/nls/et/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ vms.termcap.c -$set 31 -1 TERMCAP ei saa avada: [%s]\n -2 %s ei saa avada.\n -3 Leidsin %s failis %s.\n -4 %s pole failis %s\n diff --git a/contrib/tcsh/nls/et/set4 b/contrib/tcsh/nls/et/set4 deleted file mode 100644 index 3ec5b44..0000000 --- a/contrib/tcsh/nls/et/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ Termcap strings -$set 4 -1 lisa uus tühi rida -2 kuuldav kell -3 puhasta põhjani -4 puhasta rea lõpuni -5 kursori horisontaal positsioon -6 ekraani puhastamine -7 sümboli kustutamine -8 rea kustutamine -9 alusta kustutamis mood -10 lõpeta kustutamis mood -11 lõpeta vahelekirjutamise mood -12 kursor olekurealt -13 kursor koju -14 lisa sümbol -15 alusta vahelekirjutamise mood -16 lisa täide -17 saadab kursori alla -18 saadab kursori vasakule -19 saadab kursori paremale -20 saadab kursori üles -21 alusta rasvast -22 atribuutide lõpp -23 mitte-purustav tühik -24 lõpeta rõhutatud -25 alusta rõhutatud -26 kursor olekureale -27 kursor ühe võrra üles -28 alusta allajoonimist -29 lõpeta allajoonimine -30 nähtav kell -31 kustuta mitu sümbolit -32 kursor korduvalt alla -33 lisa mitu sümbolit -34 kursor korduvalt vasakule -35 kursor korduvalt paremale -36 kursor korduvalt üles -37 Omab automaatseid ääri -38 Saab kasutada füüsilist tabulaatorit -39 Ridade arv -40 Veergude arv -41 Omab meta klahvi -42 Parem äär ignoreerib uut rida diff --git a/contrib/tcsh/nls/et/set5 b/contrib/tcsh/nls/et/set5 deleted file mode 100644 index aecf6e8..0000000 --- a/contrib/tcsh/nls/et/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ ed.chared.c -$set 5 -1 Tööjärjekorra koormuse info puudub\n diff --git a/contrib/tcsh/nls/et/set6 b/contrib/tcsh/nls/et/set6 deleted file mode 100644 index 3b6c6cd..0000000 --- a/contrib/tcsh/nls/et/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ ed.inputl.c -$set 6 -1 VIGA: vigane käsk klahvilt 0%o\r\n -2 jah\n -3 paranda\n -4 katkesta\n -5 ei\n -6 Pole sellist käsku\n -7 Arusaamatu käsk\n -8 *** toimeti fataalne VIGA ***\r\n\n diff --git a/contrib/tcsh/nls/et/set7 b/contrib/tcsh/nls/et/set7 deleted file mode 100644 index f1da7b3..0000000 --- a/contrib/tcsh/nls/et/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tTcsh arvab, et teie terminal omab\n -2 \tjärgnevaid omadusi:\n\n -3 \tTal on %d veergu ja %d rida\n -4 \tTa %s meta klahvi\n -5 omab -6 ei oma -7 \tTal on%s tabulaatori omadus\n -8 puudu -9 \tTa %s automaatseid ääri\n -10 omab -11 ei oma -12 \tTa %s maagilisi ääri\n -13 (tühi) -14 jah -15 ei -16 VIGA: ei saa kustutada\r\n -17 DeleteChars: num on mõttetu: %d\r\n -18 VIGA: cannot insert\r\n -19 StartInsert: num on mõttetu: %d\r\n -20 %s: Ei saa avada /etc/termcap.\n -21 %s: Terminali tüübil "%s" puudub kirje\n -22 %s: kasutan rumala terminali seadeid.\n -23 %s: HOIATUS: Teie terminal ei saa liikuda üles.\n -24 Pikkade ridade toimetamine võib olla kummaline.\n -25 puudub puhasta EOL omadus.\n -26 puudub kustuta sümbol omadus.\n -27 puudub lisa sümbol omadus.\n diff --git a/contrib/tcsh/nls/et/set8 b/contrib/tcsh/nls/et/set8 deleted file mode 100644 index 0ac4be4..0000000 --- a/contrib/tcsh/nls/et/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ ed.term.c -$set 8 -1 Tundmatu võti -2 Vigane argument diff --git a/contrib/tcsh/nls/et/set9 b/contrib/tcsh/nls/et/set9 deleted file mode 100644 index f8e157a..0000000 --- a/contrib/tcsh/nls/et/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.2 2006/03/02 18:46:45 christos Exp $ -$ ed.xmap.c -$set 9 -1 AddXkey: Null pikkusega laiend-klahv ei ole lubatud.\n -2 AddXkey: käsuni viiv järjend pole lubatud\n -3 DeleteXkey: Null pikkusega laiend-klahv ei ole lubatud.\n -4 Sidumata laiendatud klahv "%S"\n -5 Mõned laiendatud klahvid on sisemise trükipuhvri jaoks liiga pikad -6 Enumerate: BUG!! Null viit anti\n! -7 sisendit pole -8 Midagi peab järgnema: %c\n -9 kaheksand-konstant ei mahu sümbolisse.\n diff --git a/contrib/tcsh/nls/finnish/charset b/contrib/tcsh/nls/finnish/charset deleted file mode 100644 index 0b13559..0000000 --- a/contrib/tcsh/nls/finnish/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=ISO-8859-1 -$set 255 -1 ISO-8859-1 diff --git a/contrib/tcsh/nls/finnish/set1 b/contrib/tcsh/nls/finnish/set1 deleted file mode 100644 index 98c89b3..0000000 --- a/contrib/tcsh/nls/finnish/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.3 2006/03/02 18:46:46 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 7d1a72e..0000000 --- a/contrib/tcsh/nls/finnish/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.2 2006/03/02 18:46:46 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 dc1617e..0000000 --- a/contrib/tcsh/nls/finnish/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.2 2006/03/02 18:46:46 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 87bf07a..0000000 --- a/contrib/tcsh/nls/finnish/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.2 2006/03/02 18:46:46 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 08a9f4c..0000000 --- a/contrib/tcsh/nls/finnish/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.2 2006/03/02 18:46:46 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 23fefed..0000000 --- a/contrib/tcsh/nls/finnish/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.3 2006/03/02 18:46:46 christos Exp $ -$ sh.file.c -$set 14 -1 \nAuts!! Liian monta %s!!\n -2 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 684a5dd..0000000 --- a/contrib/tcsh/nls/finnish/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.2 2006/03/02 18:46:46 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 4a61d02..0000000 --- a/contrib/tcsh/nls/finnish/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.2 2006/03/02 18:46:46 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 4657343..0000000 --- a/contrib/tcsh/nls/finnish/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.3 2006/03/02 18:46:46 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 -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/finnish/set18 b/contrib/tcsh/nls/finnish/set18 deleted file mode 100644 index d29d38d..0000000 --- a/contrib/tcsh/nls/finnish/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.2 2006/03/02 18:46:46 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 8e6621f..0000000 --- a/contrib/tcsh/nls/finnish/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.2 2006/03/02 18:46:46 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 e3bc86e..0000000 --- a/contrib/tcsh/nls/finnish/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $tcsh: set2,v 1.2 2006/03/02 18:46:46 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 4bbc86a..0000000 --- a/contrib/tcsh/nls/finnish/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.3 2006/03/02 18:46:46 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 näppäinmäärittelyt\n -7 Vaihtoehtoiset näppäinmäärittelyt\n -8 Monimerkkiset määrittelyt\n -9 Nuolinäppäinmäärittelyt\n -10 %-15s-> ei ole määritelty\n -11 VIKA!!! %s ei ole määritelty mihinkään näppäimeen.\n -12 Käyttö: bindkey [valitsimet] [--] [NÄPPÄIN [KOMENTO]]\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 Ilman NÄPPÄINTÄ tai KOMENTOA tulostetaan kaikki määrittelyt\n -26 Ilman KOMENTOA tulostetaan NÄPPÄIMEN määrittely.\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 Käyttö: bind [NÄPPÄIN | KOMENTO NÄPPÄIN | "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 7d42da1..0000000 --- a/contrib/tcsh/nls/finnish/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.2 2006/03/02 18:46:46 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 f0b3abf..0000000 --- a/contrib/tcsh/nls/finnish/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.3 2006/03/02 18:46:46 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 diff --git a/contrib/tcsh/nls/finnish/set23 b/contrib/tcsh/nls/finnish/set23 deleted file mode 100644 index 0bf9797..0000000 --- a/contrib/tcsh/nls/finnish/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.2 2006/03/02 18:46:46 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 23f90fd..0000000 --- a/contrib/tcsh/nls/finnish/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.2 2006/03/02 18:46:46 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 9e6a008..0000000 --- a/contrib/tcsh/nls/finnish/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.2 2006/03/02 18:46:46 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 d20e9f7..0000000 --- a/contrib/tcsh/nls/finnish/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.2 2006/03/02 18:46:46 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 decc69a..0000000 --- a/contrib/tcsh/nls/finnish/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.2 2006/03/02 18:46:46 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 7ccd214..0000000 --- a/contrib/tcsh/nls/finnish/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.2 2006/03/02 18:46:46 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 3ce02ba..0000000 --- a/contrib/tcsh/nls/finnish/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.3 2006/03/02 18:46:46 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 -115 Korvaa viimeksi liimattu teksti aikaisemmalla leikkauksella -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down diff --git a/contrib/tcsh/nls/finnish/set30 b/contrib/tcsh/nls/finnish/set30 deleted file mode 100644 index 5e8957b..0000000 --- a/contrib/tcsh/nls/finnish/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.3 2006/03/02 18:46:46 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 YyKk diff --git a/contrib/tcsh/nls/finnish/set31 b/contrib/tcsh/nls/finnish/set31 deleted file mode 100644 index e7b1414..0000000 --- a/contrib/tcsh/nls/finnish/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.2 2006/03/02 18:46:46 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 7a86315..0000000 --- a/contrib/tcsh/nls/finnish/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.2 2006/03/02 18:46:46 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 c584aab..0000000 --- a/contrib/tcsh/nls/finnish/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 2006/03/02 18:46:46 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 f26af6f..0000000 --- a/contrib/tcsh/nls/finnish/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.2 2006/03/02 18:46:46 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 954a75e..0000000 --- a/contrib/tcsh/nls/finnish/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.2 2006/03/02 18:46:46 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 ae231a8..0000000 --- a/contrib/tcsh/nls/finnish/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 2006/03/02 18:46:46 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 befc4a8..0000000 --- a/contrib/tcsh/nls/finnish/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.2 2006/03/02 18:46:46 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/charset b/contrib/tcsh/nls/french/charset deleted file mode 100644 index 0b13559..0000000 --- a/contrib/tcsh/nls/french/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=ISO-8859-1 -$set 255 -1 ISO-8859-1 diff --git a/contrib/tcsh/nls/french/set1 b/contrib/tcsh/nls/french/set1 deleted file mode 100644 index 111cfed..0000000 --- a/contrib/tcsh/nls/french/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.4 2006/03/02 18:46:46 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 8df42bd..0000000 --- a/contrib/tcsh/nls/french/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.2 2006/03/02 18:46:46 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 1f58163..0000000 --- a/contrib/tcsh/nls/french/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.3 2006/03/02 18:46:46 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 8b04a6a..0000000 --- a/contrib/tcsh/nls/french/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.3 2006/03/02 18:46:46 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 fd768ab..0000000 --- a/contrib/tcsh/nls/french/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.2 2006/03/02 18:46:46 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 a543a0b..0000000 --- a/contrib/tcsh/nls/french/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.2 2006/03/02 18:46:46 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 9d40044..0000000 --- a/contrib/tcsh/nls/french/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.2 2006/03/02 18:46:46 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 e5a18c6..0000000 --- a/contrib/tcsh/nls/french/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.3 2006/03/02 18:46:46 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 ad57470..0000000 --- a/contrib/tcsh/nls/french/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.4 2006/03/02 18:46:46 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 -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/french/set18 b/contrib/tcsh/nls/french/set18 deleted file mode 100644 index c0caa26..0000000 --- a/contrib/tcsh/nls/french/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.2 2006/03/02 18:46:46 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 cafc960..0000000 --- a/contrib/tcsh/nls/french/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.3 2006/03/02 18:46:46 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 c6b0eeb..0000000 --- a/contrib/tcsh/nls/french/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $tcsh: set2,v 1.3 2006/03/02 18:46:46 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 2595d06..0000000 --- a/contrib/tcsh/nls/french/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.2 2006/03/02 18:46:46 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 670e9e5..0000000 --- a/contrib/tcsh/nls/french/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.2 2006/03/02 18:46:46 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 c59fe97..0000000 --- a/contrib/tcsh/nls/french/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.2 2006/03/02 18:46:46 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 5fb6339..0000000 --- a/contrib/tcsh/nls/french/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.3 2006/03/02 18:46:46 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 f97ef1c..0000000 --- a/contrib/tcsh/nls/french/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.2 2006/03/02 18:46:46 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 7bf62ac..0000000 --- a/contrib/tcsh/nls/french/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.2 2006/03/02 18:46:46 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 b5139e7..0000000 --- a/contrib/tcsh/nls/french/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.2 2006/03/02 18:46:46 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 e86b26c..0000000 --- a/contrib/tcsh/nls/french/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.2 2006/03/02 18:46:46 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 b90aeae..0000000 --- a/contrib/tcsh/nls/french/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.2 2006/03/02 18:46:46 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 797524a..0000000 --- a/contrib/tcsh/nls/french/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.3 2006/03/02 18:46:46 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 -115 Replace just-yanked text with yank from earlier kill -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down diff --git a/contrib/tcsh/nls/french/set30 b/contrib/tcsh/nls/french/set30 deleted file mode 100644 index e35a39a..0000000 --- a/contrib/tcsh/nls/french/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.3 2006/03/02 18:46:46 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 e63d2d4..0000000 --- a/contrib/tcsh/nls/french/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.2 2006/03/02 18:46:46 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 8e63fb1..0000000 --- a/contrib/tcsh/nls/french/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.2 2006/03/02 18:46:46 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 edf169c..0000000 --- a/contrib/tcsh/nls/french/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 2006/03/02 18:46:46 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 886832e..0000000 --- a/contrib/tcsh/nls/french/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.2 2006/03/02 18:46:46 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 9971ea6..0000000 --- a/contrib/tcsh/nls/french/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.3 2006/03/02 18:46:46 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 4ab49b9..0000000 --- a/contrib/tcsh/nls/french/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 2006/03/02 18:46:46 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 a47cf62..0000000 --- a/contrib/tcsh/nls/french/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.2 2006/03/02 18:46:46 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/charset b/contrib/tcsh/nls/german/charset deleted file mode 100644 index 0b13559..0000000 --- a/contrib/tcsh/nls/german/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=ISO-8859-1 -$set 255 -1 ISO-8859-1 diff --git a/contrib/tcsh/nls/german/set1 b/contrib/tcsh/nls/german/set1 deleted file mode 100644 index e6f75ad..0000000 --- a/contrib/tcsh/nls/german/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.6 2006/03/02 18:46:46 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 185aa61..0000000 --- a/contrib/tcsh/nls/german/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.5 2006/03/02 18:46:46 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 603eb51..0000000 --- a/contrib/tcsh/nls/german/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.5 2006/03/02 18:46:46 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 101b178..0000000 --- a/contrib/tcsh/nls/german/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.4 2006/03/02 18:46:46 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 5da0fd2..0000000 --- a/contrib/tcsh/nls/german/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.3 2006/03/02 18:46:46 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 e5b65df..0000000 --- a/contrib/tcsh/nls/german/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.4 2006/03/02 18:46:46 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 bc215c8..0000000 --- a/contrib/tcsh/nls/german/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.4 2006/03/02 18:46:46 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 bc26108..0000000 --- a/contrib/tcsh/nls/german/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.3 2006/03/02 18:46:46 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 e00de87..0000000 --- a/contrib/tcsh/nls/german/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.5 2006/03/02 18:46:46 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 -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/german/set18 b/contrib/tcsh/nls/german/set18 deleted file mode 100644 index 40e56d8..0000000 --- a/contrib/tcsh/nls/german/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.3 2006/03/02 18:46:46 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 d852451..0000000 --- a/contrib/tcsh/nls/german/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.3 2006/03/02 18:46:46 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 6f36bc6..0000000 --- a/contrib/tcsh/nls/german/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $tcsh: set2,v 1.5 2006/03/02 18:46:46 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 638c00e..0000000 --- a/contrib/tcsh/nls/german/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.3 2006/03/02 18:46:46 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 32a2774..0000000 --- a/contrib/tcsh/nls/german/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.3 2006/03/02 18:46:46 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 0e93b38..0000000 --- a/contrib/tcsh/nls/german/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.3 2006/03/02 18:46:46 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 42a9cbd..0000000 --- a/contrib/tcsh/nls/german/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.4 2006/03/02 18:46:46 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 dee8054..0000000 --- a/contrib/tcsh/nls/german/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.3 2006/03/02 18:46:46 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 a034603..0000000 --- a/contrib/tcsh/nls/german/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.3 2006/03/02 18:46:46 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 c9d1270..0000000 --- a/contrib/tcsh/nls/german/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.4 2006/03/02 18:46:46 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 9ad802f..0000000 --- a/contrib/tcsh/nls/german/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.3 2006/03/02 18:46:46 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 16ef38a..0000000 --- a/contrib/tcsh/nls/german/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.3 2006/03/02 18:46:46 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 f2b642c..0000000 --- a/contrib/tcsh/nls/german/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.6 2006/03/02 18:46:46 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 -115 Replace just-yanked text with yank from earlier kill -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down diff --git a/contrib/tcsh/nls/german/set30 b/contrib/tcsh/nls/german/set30 deleted file mode 100644 index 534886e..0000000 --- a/contrib/tcsh/nls/german/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.4 2006/03/02 18:46:46 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 9532256..0000000 --- a/contrib/tcsh/nls/german/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.3 2006/03/02 18:46:46 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 baee552..0000000 --- a/contrib/tcsh/nls/german/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.3 2006/03/02 18:46:46 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 2161749..0000000 --- a/contrib/tcsh/nls/german/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.3 2006/03/02 18:46:46 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 350b1d0..0000000 --- a/contrib/tcsh/nls/german/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.3 2006/03/02 18:46:46 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 8aee38d..0000000 --- a/contrib/tcsh/nls/german/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.5 2006/03/02 18:46:46 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 4e09b22..0000000 --- a/contrib/tcsh/nls/german/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.3 2006/03/02 18:46:46 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 e8607a3..0000000 --- a/contrib/tcsh/nls/german/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.4 2006/03/02 18:46:46 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/charset b/contrib/tcsh/nls/greek/charset deleted file mode 100644 index 6d1ef11..0000000 --- a/contrib/tcsh/nls/greek/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=ISO-8859-7 -$set 255 -1 ISO-8859-7 diff --git a/contrib/tcsh/nls/greek/set1 b/contrib/tcsh/nls/greek/set1 deleted file mode 100644 index 3599c34..0000000 --- a/contrib/tcsh/nls/greek/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.4 2006/03/02 18:46:46 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 a215d49..0000000 --- a/contrib/tcsh/nls/greek/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.3 2006/03/02 18:46:46 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 82c1888..0000000 --- a/contrib/tcsh/nls/greek/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.2 2006/03/02 18:46:46 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 379ae78..0000000 --- a/contrib/tcsh/nls/greek/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.3 2006/03/02 18:46:46 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 9ec55e1..0000000 --- a/contrib/tcsh/nls/greek/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.2 2006/03/02 18:46:46 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 0547940..0000000 --- a/contrib/tcsh/nls/greek/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.3 2006/03/02 18:46:46 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 ff17a6e..0000000 --- a/contrib/tcsh/nls/greek/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.2 2006/03/02 18:46:46 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 e4dcca8..0000000 --- a/contrib/tcsh/nls/greek/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.3 2006/03/02 18:46:46 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 4ac0106..0000000 --- a/contrib/tcsh/nls/greek/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.3 2006/03/02 18:46:46 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 -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/greek/set18 b/contrib/tcsh/nls/greek/set18 deleted file mode 100644 index ffd82b6..0000000 --- a/contrib/tcsh/nls/greek/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.2 2006/03/02 18:46:46 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 718b43f..0000000 --- a/contrib/tcsh/nls/greek/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.2 2006/03/02 18:46:46 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 d54db2f..0000000 --- a/contrib/tcsh/nls/greek/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $tcsh: set2,v 1.3 2006/03/02 18:46:46 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 077a3a0..0000000 --- a/contrib/tcsh/nls/greek/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.4 2006/03/02 18:46:46 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 3ef206b..0000000 --- a/contrib/tcsh/nls/greek/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.2 2006/03/02 18:46:46 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 2395031..0000000 --- a/contrib/tcsh/nls/greek/set22 +++ /dev/null @@ -1,18 +0,0 @@ -$ $tcsh: set22,v 1.2 2006/03/02 18:46:46 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 813c2b1..0000000 --- a/contrib/tcsh/nls/greek/set23 +++ /dev/null @@ -1,31 +0,0 @@ -$ $tcsh: set23,v 1.3 2006/03/02 18:46:46 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 f97ef1c..0000000 --- a/contrib/tcsh/nls/greek/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.2 2006/03/02 18:46:46 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 406d710..0000000 --- a/contrib/tcsh/nls/greek/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.2 2006/03/02 18:46:46 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 d081bbc..0000000 --- a/contrib/tcsh/nls/greek/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.3 2006/03/02 18:46:46 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 4e91416..0000000 --- a/contrib/tcsh/nls/greek/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.2 2006/03/02 18:46:46 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 cf0b9eb..0000000 --- a/contrib/tcsh/nls/greek/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.2 2006/03/02 18:46:46 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 b66cc1a..0000000 --- a/contrib/tcsh/nls/greek/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.4 2006/03/02 18:46:46 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 óôçí ôñÝ÷ïõóá èÝóç -115 Replace just-yanked text with yank from earlier kill -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down diff --git a/contrib/tcsh/nls/greek/set30 b/contrib/tcsh/nls/greek/set30 deleted file mode 100644 index 473f331..0000000 --- a/contrib/tcsh/nls/greek/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.2 2006/03/02 18:46:46 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 d23de88..0000000 --- a/contrib/tcsh/nls/greek/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.2 2006/03/02 18:46:47 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 84fbc92..0000000 --- a/contrib/tcsh/nls/greek/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.3 2006/03/02 18:46:47 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 1125e85..0000000 --- a/contrib/tcsh/nls/greek/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 2006/03/02 18:46:47 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 0a494c1..0000000 --- a/contrib/tcsh/nls/greek/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.2 2006/03/02 18:46:47 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 b88d2ff..0000000 --- a/contrib/tcsh/nls/greek/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.3 2006/03/02 18:46:47 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 23fb6c8..0000000 --- a/contrib/tcsh/nls/greek/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 2006/03/02 18:46:47 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 9ed5f7c..0000000 --- a/contrib/tcsh/nls/greek/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.3 2006/03/02 18:46:47 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/charset b/contrib/tcsh/nls/italian/charset deleted file mode 100644 index 0b13559..0000000 --- a/contrib/tcsh/nls/italian/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=ISO-8859-1 -$set 255 -1 ISO-8859-1 diff --git a/contrib/tcsh/nls/italian/set1 b/contrib/tcsh/nls/italian/set1 deleted file mode 100644 index de09941..0000000 --- a/contrib/tcsh/nls/italian/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.2 2006/03/02 18:46:47 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 531565b..0000000 --- a/contrib/tcsh/nls/italian/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.2 2006/03/02 18:46:47 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 70a5192..0000000 --- a/contrib/tcsh/nls/italian/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.2 2006/03/02 18:46:47 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 5a3c19b..0000000 --- a/contrib/tcsh/nls/italian/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.2 2006/03/02 18:46:47 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 ed5f797..0000000 --- a/contrib/tcsh/nls/italian/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.2 2006/03/02 18:46:47 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 a3b3bc2..0000000 --- a/contrib/tcsh/nls/italian/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.2 2006/03/02 18:46:47 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 3db0bc3..0000000 --- a/contrib/tcsh/nls/italian/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.2 2006/03/02 18:46:47 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 0ec4eaa..0000000 --- a/contrib/tcsh/nls/italian/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.2 2006/03/02 18:46:47 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 40e2868..0000000 --- a/contrib/tcsh/nls/italian/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.3 2006/03/02 18:46:47 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 -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/italian/set18 b/contrib/tcsh/nls/italian/set18 deleted file mode 100644 index 83a612c..0000000 --- a/contrib/tcsh/nls/italian/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.2 2006/03/02 18:46:47 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 9226ef6..0000000 --- a/contrib/tcsh/nls/italian/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.2 2006/03/02 18:46:47 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 cbf9a05..0000000 --- a/contrib/tcsh/nls/italian/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $tcsh: set2,v 1.2 2006/03/02 18:46:47 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 5d33cca..0000000 --- a/contrib/tcsh/nls/italian/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.2 2006/03/02 18:46:47 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 9bc2e04..0000000 --- a/contrib/tcsh/nls/italian/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.3 2006/03/02 18:46:47 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 ab94433..0000000 --- a/contrib/tcsh/nls/italian/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.2 2006/03/02 18:46:47 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 8b71649..0000000 --- a/contrib/tcsh/nls/italian/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.2 2006/03/02 18:46:47 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 95457cc..0000000 --- a/contrib/tcsh/nls/italian/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.2 2006/03/02 18:46:47 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 2cc50a8..0000000 --- a/contrib/tcsh/nls/italian/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.2 2006/03/02 18:46:47 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 911cb6c..0000000 --- a/contrib/tcsh/nls/italian/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.2 2006/03/02 18:46:47 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 4a42895..0000000 --- a/contrib/tcsh/nls/italian/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.2 2006/03/02 18:46:47 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 9519a4d..0000000 --- a/contrib/tcsh/nls/italian/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.2 2006/03/02 18:46:47 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 eaff36a..0000000 --- a/contrib/tcsh/nls/italian/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.3 2006/03/02 18:46:47 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 -115 Replace just-yanked text with yank from earlier kill -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down diff --git a/contrib/tcsh/nls/italian/set30 b/contrib/tcsh/nls/italian/set30 deleted file mode 100644 index b118429..0000000 --- a/contrib/tcsh/nls/italian/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.2 2006/03/02 18:46:47 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 046f1ba..0000000 --- a/contrib/tcsh/nls/italian/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.2 2006/03/02 18:46:47 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 5e96ba3..0000000 --- a/contrib/tcsh/nls/italian/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.2 2006/03/02 18:46:47 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 40dcae8..0000000 --- a/contrib/tcsh/nls/italian/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 2006/03/02 18:46:47 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 68994a6..0000000 --- a/contrib/tcsh/nls/italian/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.2 2006/03/02 18:46:47 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 0e843a7..0000000 --- a/contrib/tcsh/nls/italian/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.2 2006/03/02 18:46:47 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 f5b210b..0000000 --- a/contrib/tcsh/nls/italian/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 2006/03/02 18:46:47 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 f4e50ff..0000000 --- a/contrib/tcsh/nls/italian/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.2 2006/03/02 18:46:47 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/charset b/contrib/tcsh/nls/ja/charset deleted file mode 100644 index 74cc93e..0000000 --- a/contrib/tcsh/nls/ja/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=EUC-JP -$set 255 -1 EUC-JP diff --git a/contrib/tcsh/nls/ja/set1 b/contrib/tcsh/nls/ja/set1 deleted file mode 100644 index c53da1d..0000000 --- a/contrib/tcsh/nls/ja/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.5 2006/03/02 18:46:47 christos Exp $ -$ Error messages -$set 1 -1 ʸˡ¤¬´Ö°ã¤Ã¤Æ¤¤¤Þ¤¹ -2 %s ¤Ï³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤Þ¤»¤ó -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] [¥¤¥Ù¥ó¥ÈÈÖ¹æ] -80 $¡¢ ! ¤â¤·¤¯¤Ï < ¤Ï $# ¤â¤·¤¯¤Ï $? ¤È°ì½ï¤Ë¤Ï»ÈÍѤǤ¤Þ¤»¤ó -81 ÊÑ¿ô̾¤Ë²þ¹Ô¤¬Æþ¤Ã¤Æ¤¤¤Þ¤¹ -82 * ¤Ï $# ¤â¤·¤¯¤Ï $? ¤È°ì½ï¤Ë¤Ï»ÈÍѤǤ¤Þ¤»¤ó -83 $?<¿ô»ú> ¤â¤·¤¯¤Ï $#<¿ô»ú> ¤Ï»ÈÍѤǤ¤Þ¤»¤ó -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 -<¹àÌÜÈÖ¹æ>.\n·Á¼°: sched [+]hh:mm <¥³¥Þ¥ó¥É> -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 e09a8e5..0000000 --- a/contrib/tcsh/nls/ja/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.2 2006/03/02 18:46:47 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 bc00dbf..0000000 --- a/contrib/tcsh/nls/ja/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.2 2006/03/02 18:46:47 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 d3a3318..0000000 --- a/contrib/tcsh/nls/ja/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.2 2006/03/02 18:46:47 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 cc8c20f..0000000 --- a/contrib/tcsh/nls/ja/set13 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set13,v 1.2 2006/03/02 18:46:47 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 5cfb860..0000000 --- a/contrib/tcsh/nls/ja/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.2 2006/03/02 18:46:47 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 7edcc43..0000000 --- a/contrib/tcsh/nls/ja/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.3 2006/03/02 18:46:47 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 bf9de54..0000000 --- a/contrib/tcsh/nls/ja/set17 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set17,v 1.3 2006/03/02 18:46:47 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 -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/ja/set18 b/contrib/tcsh/nls/ja/set18 deleted file mode 100644 index b9364ac..0000000 --- a/contrib/tcsh/nls/ja/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.2 2006/03/02 18:46:47 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 34e780c..0000000 --- a/contrib/tcsh/nls/ja/set2 +++ /dev/null @@ -1,94 +0,0 @@ -$ $tcsh: set2,v 1.2 2006/03/02 18:46:47 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 9a7783e..0000000 --- a/contrib/tcsh/nls/ja/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.2 2006/03/02 18:46:47 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 0c3ca90..0000000 --- a/contrib/tcsh/nls/ja/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.2 2006/03/02 18:46:47 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 9f67ef6..0000000 --- a/contrib/tcsh/nls/ja/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.3 2006/03/02 18:46:47 christos Exp $ -$ tw.help.c -$set 29 -1 %S ÍѤΥإë¥×¥Õ¥¡¥¤¥ë¤¬¤¢¤ê¤Þ¤»¤ó\n diff --git a/contrib/tcsh/nls/ja/set3 b/contrib/tcsh/nls/ja/set3 deleted file mode 100644 index cc3dc3b..0000000 --- a/contrib/tcsh/nls/ja/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.4 2001/04/26 19:07:48 kim Exp $ -$ Editor function descriptions -$set 3 -1 1ʸ»úÌá¤ë -2 ¥«¡¼¥½¥ë°ÌÃÖ¤Îʸ»ú¤òºï½ü -3 ¸½ºß¤Î¥ï¡¼¥É¤ÎÀèƬ¤«¤é¥«¡¼¥½¥ë¤Þ¤Ç¤òºï½ü - ¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤ËÊݸ -4 ¹ÔƬ¤«¤é¥«¡¼¥½¥ë¤Þ¤Ç¤òºï½ü - ¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤ËÊݸ -5 ¸½ºß¤Î¥ï¡¼¥É¤ÎÀèƬ¤Ë°ÜÆ° -6 ¹ÔƬ¤Ë°ÜÆ° -7 ¥«¡¼¥½¥ë°ÌÃÖ¤«¤é¥ï¡¼¥É¤ÎËöÈø¤Þ¤Ç¤ò¥¥ã¥Ô¥¿¥é¥¤¥º -8 ¥«¡¼¥½¥ë°ÌÃÖ¤ÎÂçʸ»ú¾®Ê¸»ú¤òÊÑ´¹¤·¡¢1ʸ»ú°ÜÆ°(vi) -9 ¹ÔËö¤Þ¤Ç¤òÊѹ¹(vi) -10 ²èÌÌ¥¯¥ê¥¢¤·¤Æ¸½ºß¹Ô¤ò²èÌ̤κǾå¹Ô¤Ë -11 ¸½ºß¤Î¥ï¡¼¥É¤òÊä´° -12 Tab forward through files -13 Tab backward through files -14 ¥×¥í¥°¥é¥à²Äǽ¤ÊÊä´°¤ò»È¤ï¤Ê¤¤¸½ºß¤Î¥ï¡¼¥É¤ÎÊä´° -15 ¸½ºß¤Î¥ï¡¼¥É¤Î¥«¡¼¥½¥ë°ÌÃ֤ޤǤò¥³¥Ô¡¼ -16 ¥Þ¡¼¥¯°ÌÃÖ¤«¤é¥«¡¼¥½¥ë¤Þ¤Ç¤ÎÎΰè¤ò¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤Ë¥³¥Ô¡¼ -17 Expand to preceding word for which this is a prefix -18 ¥«¡¼¥½¥ë°ÌÃÖ¤Îʸ»ú¤òºï½ü -19 ¥«¡¼¥½¥ë°ÌÃÖ¤Îʸ»ú¤òºï½ü¡£¶õ¹Ô¤Ç¤Ïend of file¤ò¼¨¤¹ -20 ¥«¡¼¥½¥ë°ÌÃÖ¤Îʸ»ú¤òºï½ü¡£¹ÔËö¤Ç¤ÏÊä´°¸õÊä°ìÍ÷ -21 ¥«¡¼¥½¥ë°ÌÃÖ¤Îʸ»ú¤òºï½ü¡£end of file¤òsignal¤â¤·¤¯¤ÏÊä´°¸õÊä°ìÍ÷ -22 ¥«¡¼¥½¥ë°ÌÃÖ¤«¤é¸½ºß¤Î¥ï¡¼¥É¤ÎËöÈø¤Þ¤Ç¤òºï½ü¡£¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤ËÊݸ¡£ -23 Adds to argument if started or enters digit -24 Digit that starts argument -25 ¼¡¤ÎÍúÎò¹Ô¤Ë°ÜÆ° -26 ¥«¡¼¥½¥ë°ÌÃÖ¤«¤é¸½ºß¤Î¥ï¡¼¥É¤ÎËöÈø¤Þ¤Ç¤ò¾®Ê¸»ú¤Ë¤¹¤ë -27 ¥Õ¥¡¥¤¥ë½ªÃ¼¤òɽ¼¨ -28 ¹ÔËö¤Ë¥«¡¼¥½¥ë¤ò°ÜÆ° -29 ¥«¡¼¥½¥ë¤È¥Þ¡¼¥¯¤òÆþ¤ìÂؤ¨¤ë -30 ¥Õ¥¡¥¤¥ë̾¤Î¥ï¥¤¥ë¥É¥«¡¼¥É¤òŸ³« -31 ÍúÎò¥¨¥¹¥±¥¤¥×¤òŸ³« -32 ¹ÔÃæ¤ÎÍúÎò¥¨¥¹¥±¥¤¥×¤òŸ³« -33 ÊÑ¿ô¤òŸ³« -34 1ʸ»ú¿Ê¤à -35 ¸½ºß¤Î¥ï¡¼¥ÉËö¤Þ¤Ç°ÜÆ° -36 ¥«¡¼¥½¥ë¤ÎÁ°¤Î2ʸ»ú¤òÆþ¤ìÂؤ¨¤ë -37 ¸½ºß¹Ô¤ÈƱ¤¸¤è¤¦¤Ë»Ï¤Þ¤ë¤â¤Î¤òÍúÎòÃ椫¤é¸å¤í¸þ¤¤Ë¸¡º÷ -38 ¸½ºß¹Ô¤ÈƱ¤¸¤è¤¦¤Ë»Ï¤Þ¤ë¤â¤Î¤òÍúÎòÃ椫¤éÁ°¸þ¤¤Ë¸¡º÷ -39 Á°¤Î¥³¥Þ¥ó¥É¤ÎºÇ¸å¤Î¹àÌܤòÁÞÆþ -40 ½çÊý¸þ¥¤¥ó¥¯¥ê¥á¥ó¥¿¥ë¸¡º÷ -41 µÕÊý¸þ¥¤¥ó¥¯¥ê¥á¥ó¥¿¥ë¸¡º÷ -42 1¹Ô¥¯¥ê¥¢ -43 ¹ÔËö¤Þ¤Çºï½ü¤·¤Æ¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤ËÊݸ -44 ¥Þ¡¼¥¯°ÌÃÖ¤«¤é¥«¡¼¥½¥ë¤Þ¤Ç¤ÎÎΰè¤òºï½ü¤·¤Æ¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤ËÊݸ -45 1¹ÔÁ´ÂΤòºï½ü¤·¤Æ¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤ËÊݸ -46 Êä´°¸õÊä¤Î°ìÍ÷ -47 ¥×¥í¥°¥é¥à²Äǽ¤ÊÊä´°¤ò»ÈÍѤ·¤Ê¤¤Êä´°¸õÊä¤Î°ìÍ÷ -48 ¥ï¥¤¥ë¥É¥«¡¼¥É¤Ë¹çÃפ¹¤ë¥Õ¥¡¥¤¥ë̾¤Î°ìÍ÷ -49 Êä´°¸õÊä¤Î°ìÍ÷¡£¶õ¹Ô¤Î¾ì¹ç¤Ïend of file¤ò¼¨¤¹¡£ -50 Ê¿¶ÑÉé²Ù¤È¸½ºß¤Î¥×¥í¥»¥¹¤Î¾õÂÖ¤òɽ¼¨ -51 ÍúÎò¥¨¥¹¥±¥¤¥×¤òŸ³«¤·¤Æ¶õÇò¤òÁÞÆþ -52 ¥³¥Þ¥ó¥É¼Â¹Ô -53 ¥Ñ¥¹Ì¾¤òŸ³«(.¤ä..¤Ç»Ï¤Þ¤ë¤â¤Î¤ò½ü¤¯) -54 ¥³¥Þ¥ó¥É¤ò¼ÂºÝ¤Î¥Ñ¥¹Ì¾¤äÊÌ̾¤ËŸ³« -55 ÁÞÆþ¥â¡¼¥É¤«¤é¾å½ñ¤¥â¡¼¥É¤Ø¤ÎÀÚ¤êÂؤ¨¤â¤·¤¯¤Ï¤½¤ÎµÕ -56 ¼¡¤ËÂǤÄʸ»ú¤Î8bit¤á¤òΩ¤Æ¤ë -57 ¼¡¤ËÂǤÄʸ»ú¤ò¹Ô¤Ë¤½¤Î¤Þ¤Þ²Ã¤¨¤ë -58 ¤¹¤Ù¤Æ¤òºÆÉÁ²è -59 Ää»ß¤·¤Æ¤¤¤¿¥¨¥Ç¥£¥¿¡¼¤òºÆµ¯Æ° -60 ¸½ºß¤Î¥³¥Þ¥ó¥É¤Î¥Ø¥ë¥×¤òõ¤¹ -61 ¤³¤Îʸ»ú¤Ï¹Ô¤Ë²Ã¤¨¤é¤ì¤ë -62 ¤³¤Îʸ»ú¤Ïʸ»ú¥·¡¼¥±¥ó¥¹¤ÎÀèƬ -63 ¥«¡¼¥½¥ë°ÌÃÖ¤ò¥Þ¡¼¥¯¤¹¤ë -64 ¸½ºß¤Î¥ï¡¼¥É¤ÎÄÖ¤ê¤òÄûÀµ -65 1¹ÔÁ´ÂΤÎÄÖ¤ê¤òÄûÀµC -66 ʸ»ú¤òcocked¥â¡¼¥É¤Çtty¤ËÁ÷¤ë -67 Toggle between literal and lexical current history line -68 ¥«¡¼¥½¥ë¤Îº¸¤Îʸ»ú¤ò1¤Ä¾®¤µ¤¤¤â¤Î¤Ë¤¹¤ë -69 ¥«¡¼¥½¥ë¤ÎÁ°¤Î2¤Ä¤Îʸ»ú¤òÆþ¤ìÂؤ¨¤ë -70 delayed suspendʸ»ú¤ò»î¤¹ -71 flush outputʸ»ú¤ò»î¤¹ -72 interruptʸ»ú¤ò»î¤¹ -73 quitʸ»ú¤ò»î¤¹ -74 suspendʸ»ú¤ò»î¤¹ -75 allow outputʸ»ú¤ò»î¤¹ -76 disallowʸ»ú¤ò»î¤¹ -77 ³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤Ê¤¤Ê¸»ú¤òɽ¼¨ -78 Emacs universal argument (argument times 4) -79 1¤ÄÁ°¤ÎÍúÎò¹Ô¤Ë°ÜÆ° -80 ¥«¡¼¥½¥ë°ÌÃÖ¤«¤é¸½ºß¤Î¥ï¡¼¥É¤ÎËöÈø¤Þ¤Ç¤òÂçʸ»ú¤Ë¤¹¤ë -81 ¼¡¤Î¥ï¡¼¥É¤ÎÀèƬ¤Ø°ÜÆ°(vi) -82 ¥«¡¼¥½¥ë¤Î¸å¤í¤ØÁÞÆþ¥â¡¼¥É¤Ø°Ü¹Ô(vi) -83 ¥«¡¼¥½¥ë°ÌÃÖ¤ËÁÞÆþ¥â¡¼¥É¤Ø°Ü¹Ô(vi) -84 ¥«¡¼¥½¥ë°ÌÃÖ¤ÎÂçʸ»ú¾®Ê¸»ú¤òÊÑ´¹¤·¡¢1ʸ»ú¿Ê¤à(vi) -85 Vi change prefix command -86 ¹ÔËö¤Þ¤Ç¤òÊѹ¹(vi) -87 ¥³¥Þ¥ó¥É¥â¡¼¥É¤Ø°Ü¹Ô (¥¡¼³ä¤êÅö¤ÆÊѹ¹)(vi) -88 ¥³¥Þ¥ó¥É¥â¡¼¥É¤Ç¤Î¸½ºß¤Î¥ï¡¼¥É¤ÎÊä´°(vi) -89 Á°¤Îʸ»ú¤Ë°ÜÆ°(¥Ð¥Ã¥¯¥¹¥Ú¥¤¥¹)(vi) -90 Vi delete prefix command -91 ¸½ºß¤Î¥ï¡¼¥É´Ö¤Î¶õÇò¤ÎËöÈø¤Ë°ÜÆ°(vi) -92 ¸½ºß¤Î¥ï¡¼¥É¤ÎËöÈø¤Ë°ÜÆ°(vi) -93 µÕÊý¸þ¤Î»ØÄꤵ¤ì¤¿Ê¸»ú¤Ë°ÜÆ°(vi) -94 ½çÊýË¡¤Î»ØÄꤵ¤ì¤¿Ê¸»ú¤Ë°ÜÆ°(vi) -95 µÕÊý¸þ¤Î»ØÄꤵ¤ì¤¿Ê¸»ú¤ÎľÁ°¤Þ¤Ç°ÜÆ°(vi) -96 ½çÊý¸þ¤Î»ØÄꤵ¤ì¤¿Ê¸»ú¤ÎľÁ°¤Þ¤Ç°ÜÆ°(vi) -97 vi¤ÎÁÞÆþ¥â¡¼¥É¤Ë°Ü¹Ô -98 ¹ÔƬ¤Çvi¤ÎÁÞÆþ¥â¡¼¥É¤Ë°Ü¹Ô -99 ¸½ºß¤Î1ʸ»ú¸¡º÷¤òƱ¤¸Êý¸þ¤Ë·«¤êÊÖ¤¹(vi) -100 ¸½ºß¤Î1ʸ»ú¸¡º÷¤òÈ¿ÂÐÊý¸þ¤Ë·«¤êÊÖ¤¹(vi) -101 ¸½ºß¤Î¸¡º÷¤òƱ¤¸Êý¸þ¤Ë·«¤êÊÖ¤¹(vi) -102 ¸½ºß¤Î¸¡º÷¤òÈ¿ÂÐÊý¸þ¤Ë·«¤êÊÖ¤¹(vi) -103 °ÌÃÖ¤Î1ʸ»ú¤ò¼¡¤ËÂǤÄ1ʸ»ú¤ÈÃÖ´¹(vi) -104 ÃÖ´¹¥â¡¼¥Éreplace mode(vi) -105 µÕÊý¸þÍúÎò¸¡º÷(vi) -106 ½çÊý¸þÍúÎò¸¡º÷(vi) -107 ¥«¡¼¥½¥ë°ÌÃÖ¤Îʸ»ú¤òÃÖ´¹¤·¤ÆÁÞÆþ¥â¡¼¥É¤Ë°Ü¹Ô(vi) -108 1¹ÔÁ´ÃÖ´¹(vi) -109 Á°¤Î¥ï¡¼¥É¤Ø°ÜÆ°(vi) -110 ¼¡¤Î¥ï¡¼¥É¤Ø°Ü¹Ô(vi) -111 ľÁ°¤ÎÊѹ¹¤ò¼è¤ê¾Ã¤¹(vi) -112 ¹Ô¤ÎÀèƬ¤Ø°ÜÆ°(vi) -113 Perform which of current command -114 ¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤ÎÆâÍƤò¥«¡¼¥½¥ë°ÌÃ֤ˎ¤êÉÕ¤±¤ë -115 Replace just-yanked text with yank from earlier kill -116 (WIN32¤Î¤ß) ¥«¥Ã¥È¥Ð¥Ã¥Õ¥¡¡¼¤ÎÆâÍƤò¥·¥¹¥Æ¥à¤Î¥¯¥ê¥Ã¥×¥Ü¡¼¥É¤Ë¥³¥Ô¡¼ -117 (WIN32¤Î¤ß) ¥¯¥ê¥Ã¥×¥Ü¡¼¥É¤ÎÆâÍƤò¥«¡¼¥½¥ë°ÌÃ֤ˎ¤êÉÕ¤± -118 (WIN32¤Î¤ß) ¼¡¤Î¥ï¡¼¥ÉÃæ¤Î'/'¤ò¤¹¤Ù¤Æ'\\\\'¤ËÊÑ´¹ -119 (WIN32¤Î¤ß) Á°¤Î¥ï¡¼¥ÉÃæ¤Î'/'¤ò¤¹¤Ù¤Æ'\\\\'¤ËÊÑ´¹ -120 (WIN32¤Î¤ß) Page visible console window up -121 (WIN32¤Î¤ß) Page visible console window down diff --git a/contrib/tcsh/nls/ja/set30 b/contrib/tcsh/nls/ja/set30 deleted file mode 100644 index d48bdc3..0000000 --- a/contrib/tcsh/nls/ja/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.2 2006/03/02 18:46:47 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/set4 b/contrib/tcsh/nls/ja/set4 deleted file mode 100644 index 3743178..0000000 --- a/contrib/tcsh/nls/ja/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ Termcap strings -$set 4 -1 ¶õ¹ÔÁÞÆþ -2 ²ÄÄ°¥Ù¥ë -3 ²èÌÌËö¤Þ¤Ç¾Ãµî -4 ¹ÔËö¤Þ¤Ç¾Ãµî -5 ¥«¡¼¥½¥ë¿åÊ¿°ÜÆ° -6 ²èÌ̾õî -7 1ʸ»úºï½ü -8 1¹Ôºï½ü -9 ºï½ü¥â¡¼¥É³«»Ï -10 ºï½ü¥â¡¼¥É½ªÎ» -11 ÁÞÆþ¥â¡¼¥É½ªÎ» -12 ¥¹¥Æ¡¼¥¿¥¹¹Ô¤«¤é¥«¡¼¥½¥ë¤òÉüµ¢ -13 ¥«¡¼¥½¥ë¤ò¥Û¡¼¥à°ÌÃÖ¤Ø -14 ʸ»úÁÞÆþ -15 ÁÞÆþ¥â¡¼¥É³«»Ï -16 ¥Ñ¥Ç¥£¥ó¥°ÁÞÆþ -17 ¥«¡¼¥½¥ë²¼°ÜÆ° -18 ¥«¡¼¥½¥ëº¸°ÜÆ° -19 ¥«¡¼¥½¥ë±¦°ÜÆ° -20 ¥«¡¼¥½¥ë¾å°ÜÆ° -21 ÂÀ»ú³«»Ï -22 °À½ªÎ» -23 ʬ³ä¶Ø»ß¶õÇò -24 ¶¯Ä´½ªÎ» -25 ¶¯Ä´³«»Ï -26 ¥«¡¼¥½¥ë¤ò¥¹¥Æ¡¼¥¿¥¹¹Ô¤Ø -27 ¥«¡¼¥½¥ë¤ò1¤Ä¾å¤Ø -28 ²¼Àþ³«»Ï -29 ²¼Àþ½ªÎ» -30 ²Ä»ë¥Ù¥ë -31 Ê£¿ôʸ»úºï½ü -32 ¥«¡¼¥½¥ë²¼°ÜÆ°(multiple) -33 Ê£¿ôʸ»úÁÞÆþ -34 ¥«¡¼¥½¥ëjº¸°ÜÆ°(multiple) -35 ¥«¡¼¥½¥ë±¦°ÜÆ°(multiple) -36 ¥«¡¼¥½¥ë¾å°ÜÆ°(multiple) -37 ¼«Æ°¥Þ¡¼¥¸¥ó²Äǽ -38 ʪÍý¥¿¥Ö»ÈÍѲÄǽ -39 ¹Ô¿ô -40 ·å¿ô -41 ¥á¥¿¥¡¼¤¢¤ê -42 ±¦¥Þ¡¼¥¸¥ó¤ò̵»ë¤·¤¿²þ¹Ô diff --git a/contrib/tcsh/nls/ja/set5 b/contrib/tcsh/nls/ja/set5 deleted file mode 100644 index 9241818..0000000 --- a/contrib/tcsh/nls/ja/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 2006/03/02 18:46:47 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 203f664..0000000 --- a/contrib/tcsh/nls/ja/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.2 2006/03/02 18:46:47 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/set7 b/contrib/tcsh/nls/ja/set7 deleted file mode 100644 index 911ad75..0000000 --- a/contrib/tcsh/nls/ja/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ ed.screen.c -$set 7 -1 \n\tTcsh ¤Î¿ä¬¤Ç¤Ï¡¢¤¢¤Ê¤¿¤ÎüËö¤Ï\n -2 \t°Ê²¼¤ÎÆÃÀ¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹:\n\n -3 \t%d ·å %d ¹Ô\n -4 \tmeta ¥¡¼¤ò%s\n -5 »ý¤Ã¤Æ¤¤¤Þ¤¹ -6 »ý¤Ã¤Æ¤¤¤Þ¤»¤ó -7 \ttab ¤ò»È¤¦%s\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: ·Ù¹ð: ¤¢¤Ê¤¿¤ÎüËö¤Ï move up ¤Ç¤¤Þ¤»¤ó.\n -24 Ť¤¹Ô¤Î¤¿¤áÊÔ½¸¤¬¤ª¤«¤·¤¯¤Ê¤Ã¤Æ¤¤¤Þ¤¹.\n -25 ¹ÔËö¤Þ¤Ç¾Ãµî¤¹¤ë¤¿¤á¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤»¤ó.\n -26 ʸ»úºï½ü¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤»¤ó.\n -27 ʸ»úÁÞÆþ¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤»¤ó.\n diff --git a/contrib/tcsh/nls/ja/set8 b/contrib/tcsh/nls/ja/set8 deleted file mode 100644 index f979f4e..0000000 --- a/contrib/tcsh/nls/ja/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ ed.term.c -$set 8 -1 ÉÔÌÀ¤Êswitch -2 ÉÔÀµ¤Ê¥¢¡¼¥®¥å¥á¥ó¥È¤Ç¤¹ diff --git a/contrib/tcsh/nls/pl/README b/contrib/tcsh/nls/pl/README deleted file mode 100644 index 073b1fa..0000000 --- a/contrib/tcsh/nls/pl/README +++ /dev/null @@ -1,3 +0,0 @@ -T³umaczenia dokona³ Pawe³ Niewiadomski <new@linuxpl.org>. -Licencja GPL. Wszelkie informacje o b³êdach proszê kierowaæ do mnie -(chcia³bym aby t³umaczenie to by³o jak najlepsze)
\ No newline at end of file diff --git a/contrib/tcsh/nls/pl/charset b/contrib/tcsh/nls/pl/charset deleted file mode 100644 index 9932e07..0000000 --- a/contrib/tcsh/nls/pl/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=ISO-8859-2 -$set 255 -1 ISO-8859-2 diff --git a/contrib/tcsh/nls/pl/set1 b/contrib/tcsh/nls/pl/set1 deleted file mode 100644 index d9106f5..0000000 --- a/contrib/tcsh/nls/pl/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.5 1998/06/27 12:27:55 christos Exp $ -$ Error messages -$set 1 -1 B³±d sk³adni -2 %s jest niedozwolone -3 Zbyt d³ugie s³owo -4 $< zbyt d³uga linia -5 Brak pliku dla $0 -6 Niekompletny modyfikator [] -7 ekspansja $ musi zakoñczyæ siê przed ] -8 B³±d : modyfikator w $ (%c) -9 B³±d subskrypcji -10 ¬le stworzona liczba -11 Brak s³ów -12 Brakuje nazwy pliku -13 Wewnêtrzny b³±d podczas dopasowywania -14 Nie znaleziono polecenia -15 Zbyt ma³o argumentów -16 Zbyt du¿o argumentów -17 Zbyt niebezpiecznie aliasowaæ -18 Pusty if -19 Nieprawid³owy then -20 S³owa nie s± w nawiasach -21 %s nie zosta³ znaleziony -22 Nieprawid³owa maska -23 Nie ma takiego limitu -24 Zbyt du¿y argument -25 Nieprawid³owy, lub nieznany wspó³czynnik skali -26 Niezdefiniowana zmienna -27 Stos katalogów nie jest a¿ tak g³êboki -28 Z³y numer sygna³u -29 Nieznany sygna³; kill -l poka¿e znane sygna³y -30 Nazwa zmiennej musi zaczynaæ siê od litery -31 Nazwa zmiennej jest zbyt d³uga -32 Nazwa zmiennej musi zawieraæ znaki alfanumeryczne -33 Brak kontroli pracami w tej pow³oce -34 B³±d sk³adni wyra¿enia -35 Brak katalogu domowego -36 Nie mogê przej¶æ do katalogu domowego -37 Nieprawid³owe puste polecenie -38 Wyra¿enie pozbawione przyporz±dkowania -39 Nieznany operator -40 Niejasne -41 %s: Plik istnieje -42 Argument dla -c zakoñczony jest backslashem -43 Przerwano -44 Za du¿a warto¶æ przyporz±dkowania -45 Przepe³nienie linii -46 Brak takiej pracy -47 Z terminala nie mogê -48 Nie w while/foreach -49 Brak innych procesów -50 Brak pasuj±cych -51 Brakuje %c -52 Niedopasowany %c -53 Brak pamiêci -54 Nie mogê stworzyæ potoku -55 %s: %s -56 %s -57 U¿ycie: jobs [ -l ] -58 Argumentami powinny byæ identyfikatory prac lub procesów -59 Nie ma aktualnej pracy -60 Brak poprzednich prac -61 Brak prac pasuj±cych do wzorca -62 Zagnie¿d¿enie fork > %d; prawdopodobnie pêtla `...` -63 Brak kontroli pracami w podpow³okach -64 B³±d synchronizacji: Proces %d nie zosta³ znaleziony -65 %sIstniej± u¶pione prace -66 %sIstniej± zatrzymane prace -67 Brak innych katalogów -68 Stos katalogów jest pusty -69 Z³y katalog -70 U¿ycie: %s [-%s]%s -71 Brak operandu dla flagi -h -72 To nie jest pow³oka logowania -73 Dzielenie przez 0 -74 Modula przez 0 -75 Z³a skala; czy my¶la³e¶ o "%s"? -76 Nie mo¿na zatrzymaæ pow³oki logowania (na razie) -77 Nieznany u¿ytkownik: %s -78 Zmienna $home nie jest ustawiona -79 U¿ycie: history [-%s] [# liczba zdarzeñ] -80 $, ! i < s± niedozwolone z $#, lub $? -81 Znak nowej linii w nazwie zmiennej -82 * jest zabronione z $# i $? -83 $?<cyfra> lub $#<cyfra> s± zabronione -84 Nielegalna nazwa zmiennej -85 Znak nowej linii w indeksie zmiennych -86 Przepe³nienie bufora ekspansji -87 S³adnia zmiennej -88 Z³a forma ! -89 Brak poprzedniego dopasowania -90 Z³e dopasowanie -91 No previous left hand side -92 Right hand side too long -93 Z³y modyfikator ! : %c -94 Modyfikator zawiód³ -95 Przepe³nienie bufora dopasowania -96 Z³y ! selektor argumentów -97 Brak poprzedniego wyszukiwania -98 %s: Zdarzenie nie zosta³o znalezione -99 Zbyt wiele ) -100 Zbyt wiele ( -101 ¬le wstawiony ( -102 Brakuje nazwy dla przekierowania -103 Niejasne przekierowanie wyj¶cia -104 Nie mo¿na << wewn±trz () -105 Niejasne przekierowanie wej¶cia -106 ¬le wstawione () -107 Zapêtlenie siê aliasów -108 Zmienna $watch nie zosta³a ustawiona -109 Brak zaplanowanych prac -110 U¿ycie: sched -<item#>.\nU¿ycie: sched [+]hh:mm <polecenie> -111 Nie ma a¿ tylu zaplanowanych prac -112 Brak programu do uruchomienia -113 Nieprawid³owy czas dla pracy -114 Czas relatywny jest sprzeczny z am/pm -115 Brak miejsc w ³añcuchu termcap -116 U¿ycie: settc %s [yes|no] -117 Nieznana zdolno¶æ `%s' -118 Nieznany parametr termcap `%%%c' -119 Zbyt wiele argumentów dla `%s' (%d) -120 `%s' requires %d arguments -121 U¿ycie: echotc [-v|-s] [<zdolno¶æ> [<argumenty>]] -122 %s: %s. Nieprawid³owa architektura -123 !# Zapêtlenie siê historii -124 Zniekszta³cony zapytanie na temat pliku -125 Przepe³nienie selektora -126 Nieznana opcja: `-%s'\nU¿ycie: %s [ -bcdefilmnqstvVxX -Dnazwa[=warto¶æ] ] [ argument ... ] -127 Nieznana opcja: `-%s'\nU¿ycie: %s [ -bcdefFilmnqstvVxX ] [ argument ... ] -128 Nieznana opcja: `-%s'\nU¿ycie: %s [ -bcdefilmnqstvVxX ] [ argument ... ] -129 \nNieprawid³owe dope³nienie: "%s" -130 \nNieprawid³owe %s: '%c' -131 \nBrakuje separatora '%c' po %s "%s" -132 \nNiekompletne %s: "%s" -133 Brak operandu dla flagi -m -134 U¿ycie: unlimit [-fh] [limity] -135 $%S jest tylko-do-odczytu -136 Brak takiej pracy -137 Nieznana zmienna colorls `%c%c' diff --git a/contrib/tcsh/nls/pl/set10 b/contrib/tcsh/nls/pl/set10 deleted file mode 100644 index 0c9dfb7..0000000 --- a/contrib/tcsh/nls/pl/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ ma.setp.c -$set 10 -1 setpath: nieprawid³owe polecenie '%s'.\n -2 setpath: za ma³o argumentów dla polecenia '%s'.\n -3 setpath: brakuje warto¶ci w ¶cie¿ce '%s'\n -4 setpath: %s nie zosta³ znaleziony w %s\n -5 setpath: %d nie jest prawid³ow± pozycj± w %s\n diff --git a/contrib/tcsh/nls/pl/set11 b/contrib/tcsh/nls/pl/set11 deleted file mode 100644 index aade2f9..0000000 --- a/contrib/tcsh/nls/pl/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ sh.c -$set 11 -1 Uwaga: brak dostêpu do tty (%s).\n -2 Innymi s³owy brak zarz±dzania pracami w tej pow³oce.\n -3 Masz %d wiadomo¶ci.\n -4 Masz %d wiadomo¶ci w %s.\n -5 Masz %spocztê.\n -6 now± -7 Masz %spocztê w %s.\n diff --git a/contrib/tcsh/nls/pl/set12 b/contrib/tcsh/nls/pl/set12 deleted file mode 100644 index afbb146..0000000 --- a/contrib/tcsh/nls/pl/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.3 1996/04/26 20:31:52 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: Próbujê wystartowaæ z "%s"\n diff --git a/contrib/tcsh/nls/pl/set13 b/contrib/tcsh/nls/pl/set13 deleted file mode 100644 index 4d44a0b..0000000 --- a/contrib/tcsh/nls/pl/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: 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 maska odpluskwiania = 0x%08x\n -4 %d trafieñ, %d chybieñ, %d%%\n -5 %S: polecenie wbudowane w pow³okê.\n -6 %S: Nie znaleziono polecenia.\n -7 gdzie: / w poleceniu nie ma sensu\n -8 %S jest aliasem do -9 %S jest wbudowane w pow³okê\n -10 chybieñ hash: diff --git a/contrib/tcsh/nls/pl/set14 b/contrib/tcsh/nls/pl/set14 deleted file mode 100644 index b456721..0000000 --- a/contrib/tcsh/nls/pl/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.3 1998/11/24 18:18:06 christos Exp $ -$ sh.file.c -$set 14 -1 \nKurcze!! Zbyt wiele %s!!\n -2 nazw w pliku hase³ -3 pliki diff --git a/contrib/tcsh/nls/pl/set15 b/contrib/tcsh/nls/pl/set15 deleted file mode 100644 index 8f04af3..0000000 --- a/contrib/tcsh/nls/pl/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.3 1996/10/19 17:52:32 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: Nie mogê limitowaæ %s%s\n -2 usuñ -3 ustaw -4 \040twardy diff --git a/contrib/tcsh/nls/pl/set16 b/contrib/tcsh/nls/pl/set16 deleted file mode 100644 index 2d07f5f..0000000 --- a/contrib/tcsh/nls/pl/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: 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 \nAby wylogowaæ siê u¿yj "logout".\n -3 \nAby opu¶ciæ %s u¿yj "exit".\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/pl/set17 b/contrib/tcsh/nls/pl/set17 deleted file mode 100644 index e72adaa..0000000 --- a/contrib/tcsh/nls/pl/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.3 1996/10/19 17:52:33 christos Exp $ -$ sh.proc.c -$set 17 -1 PLUSKWA: czekam na zadanie pracuj±ce w tle!\n -2 Zakoñczono %d\n -3 PLUSKWA: proces wywo³any drugi raz -4 Running -5 Sygna³ -6 Zwrócono %-25d -7 Zakoñczony -8 PLUSKWA: status=%-9o -9 \040(zrzucono core) -10 \040(KR: -11 (KR jest: -12 %S: Ju¿ jest zawieszony\n -13 %S: Ju¿ jest zatrzymany\n -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/pl/set18 b/contrib/tcsh/nls/pl/set18 deleted file mode 100644 index 02b3d75..0000000 --- a/contrib/tcsh/nls/pl/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ sh.set.c -$set 18 -1 Uwaga: ¶miesznie d³uga PATH zosta³a obciêta\n diff --git a/contrib/tcsh/nls/pl/set19 b/contrib/tcsh/nls/pl/set19 deleted file mode 100644 index 6170f4b..0000000 --- a/contrib/tcsh/nls/pl/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.3 1996/04/26 20:31:58 christos Exp $ -$ tc.alloc.c -$set 19 -1 n-bajtów=%d: Brak pamiêci\n -2 free(%lx) wywo³any przez jak±kolwiek allokacj±. -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 aktualnie allokowana pamiêæ:\nwolna:\t -9 \nu¿ywane:\t -10 \n\tAktualnie w u¿yciu: %d, wolnych: %d\n -11 \tZaallokowano pamiêæ od 0x%lx do 0x%lx. Wierzcho³ek 0x%lx\n -12 Zaallokowano pamiêæ od 0x%lx do 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/pl/set2 b/contrib/tcsh/nls/pl/set2 deleted file mode 100644 index 549c0b7..0000000 --- a/contrib/tcsh/nls/pl/set2 +++ /dev/null @@ -1,111 +0,0 @@ -$ $tcsh: set2,v 1.4 1998/10/25 15:12:38 christos Exp $ -$ Signal names -$set 2 -1 Pusty sygna³ -2 Hangup -3 Przerwij -4 Quit -5 Nieprawdi³owa instrukcja -6 Trace/BPT trap -7 Abort -8 IOT trap -9 System Crash Imminent -10 Error exit -11 EMT trap -12 Floating exception -13 Zabity -14 User signal 1 -15 User signal 2 -16 Naruszenie ochrony pamiêci -17 B³±d szyny -18 Program range error -19 Operand range error -20 Nieprawid³owe wywo³anie systemowe -21 Broken pipe -22 Alarm clock -23 Zakoñczono -24 Child status change -25 ¦mieræ potomka -26 Apollo-specific fault -27 Potomek zakoñczy³ dzia³anie, lub zosta³ wy³±czony -28 Potomek zakoñczy³ dzia³anie -29 Brak zasilania -30 Resource Lost -31 Przerwanie (Ctrl-Break) -32 Input/output possible signal -33 Asynchroniczne We/Wy (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 Limit czasu CPU przekroczony -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 Zawieszony (sygna³) -47 Zatrzymany (sygna³) -48 Zawieszony -49 Zatrzymany -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/pl/set20 b/contrib/tcsh/nls/pl/set20 deleted file mode 100644 index 370e41a..0000000 --- a/contrib/tcsh/nls/pl/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: 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/pl/set21 b/contrib/tcsh/nls/pl/set21 deleted file mode 100644 index bed58d2..0000000 --- a/contrib/tcsh/nls/pl/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: 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/pl/set22 b/contrib/tcsh/nls/pl/set22 deleted file mode 100644 index a4436bd..0000000 --- a/contrib/tcsh/nls/pl/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: 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/pl/set23 b/contrib/tcsh/nls/pl/set23 deleted file mode 100644 index 4f90b8f..0000000 --- a/contrib/tcsh/nls/pl/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: 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: Nie znaleziono komputera\n -6 setlocal: %s: %s\n -7 Komputer nie zosta³ znaleziony -8 You're trapped in a universe you never made -9 Getwarp failed -10 Invalid warp -11 Setwarp failed -12 Illegal universe -13 Nieznany b³±d: %d -14 sysname: %s\n -15 nodename: %s\n -16 release: %s\n -17 version: %s\n -18 machine: %s\n -19 getwd: Nie mogê otworzyæ ".." (%s) -20 getwd: Nie mogê przej¶æ do ".." (%s) -21 getwd: B³±d odczytu w ".." (%s) -22 getwd: Nie mogê przej¶æ do "." (%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 Nieprawid³owy typ systemu -29 Typ systemu nie zosta³ ustawiony -30 Zbyt du¿o argumentów -31 Nieprawid³owy argument diff --git a/contrib/tcsh/nls/pl/set24 b/contrib/tcsh/nls/pl/set24 deleted file mode 100644 index 4e8e6d3..0000000 --- a/contrib/tcsh/nls/pl/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: 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/pl/set25 b/contrib/tcsh/nls/pl/set25 deleted file mode 100644 index 704b47d..0000000 --- a/contrib/tcsh/nls/pl/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: 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/pl/set26 b/contrib/tcsh/nls/pl/set26 deleted file mode 100644 index 40e95f8..0000000 --- a/contrib/tcsh/nls/pl/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: 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/pl/set27 b/contrib/tcsh/nls/pl/set27 deleted file mode 100644 index 2f44418..0000000 --- a/contrib/tcsh/nls/pl/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tw.comp.c -$set 27 -1 polecenie -2 separator -3 pattern -4 zasiêg -5 completion diff --git a/contrib/tcsh/nls/pl/set29 b/contrib/tcsh/nls/pl/set29 deleted file mode 100644 index a9a0836..0000000 --- a/contrib/tcsh/nls/pl/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ tw.help.c -$set 29 -1 Brak pliku pomocy dla %S\n diff --git a/contrib/tcsh/nls/pl/set3 b/contrib/tcsh/nls/pl/set3 deleted file mode 100644 index 0873bb9..0000000 --- a/contrib/tcsh/nls/pl/set3 +++ /dev/null @@ -1,117 +0,0 @@ -$ $tcsh: set3,v 1.3 1995/04/24 14:12:51 christos Exp $ -$ Editor function descriptions -$set 3 -1 Przejd¼ znak wstecz -2 Usuñ znak za kursorem -3 Obetnij od pocz±tku s³owa do kursora, zachowaj w buforze wyciêæ -4 Obetnij od pocz±tku linii do kursora, zachowaj w buforze wyciêæ -5 Przejd¼ do pocz±tku aktualnego s³owa -6 Przejd¼ do pocz±tku linii -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/pl/set30 b/contrib/tcsh/nls/pl/set30 deleted file mode 100644 index 45145e0..0000000 --- a/contrib/tcsh/nls/pl/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: 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 elementów -6 wierszy -7 Jest %d %s, pokazaæ je? [n/y] -8 looking = %d\n -9 \ntcsh internal error: I don't know what I'm looking for!\n -10 nie jest katalogiem -11 nie zosta³ znaleziony -12 jest nieczytelny -13 yY diff --git a/contrib/tcsh/nls/pl/set31 b/contrib/tcsh/nls/pl/set31 deleted file mode 100644 index 89e9015..0000000 --- a/contrib/tcsh/nls/pl/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ vms.termcap.c -$set 31 -1 Nie mogê otworzyæ TERMCAP: [%s]\n -2 Nie mogê otworzyæ %s.\n -3 Znaleziono %s w %s.\n -4 Nie znaleziono %s w pliku %s\n diff --git a/contrib/tcsh/nls/pl/set4 b/contrib/tcsh/nls/pl/set4 deleted file mode 100644 index 997fed4..0000000 --- a/contrib/tcsh/nls/pl/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: 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/pl/set5 b/contrib/tcsh/nls/pl/set5 deleted file mode 100644 index 9dbe6d2..0000000 --- a/contrib/tcsh/nls/pl/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ ed.chared.c -$set 5 -1 ¦rednie obci±¿enie niedostêpne\n diff --git a/contrib/tcsh/nls/pl/set6 b/contrib/tcsh/nls/pl/set6 deleted file mode 100644 index bcbfcfb..0000000 --- a/contrib/tcsh/nls/pl/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: 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 tak\n -3 edytuj\n -4 przerwij\n -5 nie\n -6 Brak pasuj±cego polecenia\n -7 Niejasne polecenie\n -8 *** B£¡D fatalny edytora ***\r\n\n diff --git a/contrib/tcsh/nls/pl/set7 b/contrib/tcsh/nls/pl/set7 deleted file mode 100644 index 1bd60d0..0000000 --- a/contrib/tcsh/nls/pl/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: 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/pl/set8 b/contrib/tcsh/nls/pl/set8 deleted file mode 100644 index 0686721..0000000 --- a/contrib/tcsh/nls/pl/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 1995/03/19 18:07:15 christos Exp $ -$ ed.term.c -$set 8 -1 Nieprawid³owy prze³±cznik -2 Nieprawid³owy argument diff --git a/contrib/tcsh/nls/pl/set9 b/contrib/tcsh/nls/pl/set9 deleted file mode 100644 index 8e3aeec..0000000 --- a/contrib/tcsh/nls/pl/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: 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/russian/charset b/contrib/tcsh/nls/russian/charset deleted file mode 100644 index 59ed4cf..0000000 --- a/contrib/tcsh/nls/russian/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=KOI8-R -$set 255 -1 KOI8-R diff --git a/contrib/tcsh/nls/russian/set1 b/contrib/tcsh/nls/russian/set1 deleted file mode 100644 index 7acaf44..0000000 --- a/contrib/tcsh/nls/russian/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.4 2006/03/02 18:46:47 christos Exp $ -$ Error messages -$set 1 -1 óÉÎÔÁËÓÉÞÅÓËÁÑ ÏÛÉÂËÁ -2 %s ÎÅÄÏÐÕÓÔÉÍÏ -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 îÅÔ ÔÁËÏÇÏ ÐÒÅÄÅÌÁ -24 áÒÇÕÍÅÎÔ ÓÌÉÛËÏÍ ×ÅÌÉË -25 îÅ×ÅÒÎÙÊ ÉÌÉ ÎÅÉÚ×ÅÓÔÎÙÊ ÆÁËÔÏÒ Õ×ÅÌÉÞÅÎÉÑ -26 îÅÏÐÒÅÄÅÌÅÎÎÁÑ ÐÅÒÅÍÅÎÎÁÑ -27 óÔÅË ËÁÔÁÌÏÇÏ× ÎÅ ÔÁËÏÊ ÇÌÕÂÏËÉÊ -28 îÅ×ÅÒÎÙÊ ÎÏÍÅÒ ÓÉÇÎÁÌÁ -29 îÅÉÚ×ÅÓÔÎÙÊ ÓÉÇÎÁÌ; kill -l ×Ù×ÅÄÅÔ ÓÐÉÓÏË ÓÉÇÎÁÌÏ× -30 éÍÑ ÐÅÒÅÍÅÎÎÏÊ ÄÏÌÖÎÏ ÎÁÞÉÎÁÔØÓÑ Ó ÂÕË×Ù -31 óÌÉÛËÏÍ ÄÌÉÎÎÏÅ ÉÍÑ ÐÅÒÅÍÅÎÎÏÊ -32 ÷ ÉÍÅÎÉ ÐÅÒÅÍÅÎÎÏÊ ÄÏÌÖÎÙ ÓÏÄÅÒÖÁÔØÓÑ ÁÌÆÁ×ÉÔÎÏ-ÃÉÆÒÏ×ÙÅ ÓÉÍ×ÏÌÙ -33 õÐÒÁ×ÌÅÎÉÅ ÚÁÄÁÎÉÑÍÉ ÏÔÓÕÔÓÔ×ÕÅÔ × ÜÔÏÍ ÛÅÌÌÅ -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 áÒÇÕÍÅÎÔÙ ÄÏÌÖÎÙ Ñ×ÌÑÔØÓÑ ÉÄÅÎÔÉÆÉËÁÔÏÒÁÍÉ ÚÁÄÁÎÉÊ ÉÌÉ ÐÒÏÃÅÓÓÏ× -59 îÅÔ ÔÅËÕÝÅÇÏ ÚÁÄÁÎÉÑ -60 îÅÔ ÐÒÅÄÙÄÕÝÅÇÏ ÚÁÄÁÎÉÑ -61 óÏÏÔ×ÅÔÓÔ×ÕÀÝÅÅ ÛÁÂÌÏÎÕ ÚÁÄÁÎÉÅ ÏÔÓÕÔÓÔ×ÕÅÔ -62 ÷ÌÏÖÅÎÎÏÓÔØ fork > %d; ×ÏÚÍÏÖÎÏ ÜÔÏ ÃÉËÌ `...` -63 õÐÒÁ×ÌÅÎÉÅ ÚÁÄÁÎÉÑÍÉ ÏÔÓÕÔÓÔ×ÕÅÔ × ÓÁÂÛÅÌÌÁÈ -64 ïÛÉÂËÁ ÓÉÎÈÒÏÎÉÚÁÃÉÉ: ðÒÏÃÅÓÓ %d ÎÅ ÎÁÊÄÅÎ -65 %sóÕÝÅÓÔ×ÕÀÔ ÏÔÌÏÖÅÎÎÙÅ ÚÁÄÁÎÉÑ -66 %sóÕÝÅÓÔ×ÕÀÔ ÏÓÔÁÎÏ×ÌÅÎÎÙÅ ÚÁÄÁÎÉÑ -67 îÅÔ ÄÒÕÇÏÇÏ ËÁÔÁÌÏÇÁ -68 óÔÅË ËÁÔÁÌÏÇÏ× ÐÕÓÔ -69 îÅ×ÅÒÎÏÅ ÉÍÑ ËÁÔÁÌÏÇÁ -70 éÓÐÏÌØÚÏ×ÁÎÉÅ: %s [-%s]%s -71 ïÔÓÕÔÓÔ×ÕÅÔ ÏÐÅÒÁÎÄ ÄÌÑ ÆÌÁÇÁ -h -72 îÅ Ñ×ÌÑÅÔÓÑ login-ÛÅÌÌÏÍ -73 äÅÌÅÎÉÅ ÎÁ 0 -74 ïÓÔÁÔÏË ÏÔ ÄÅÌÅÎÉÑ ÎÁ 0 -75 ðÌÏÈÏÊ scaling; ×Ù ÉÍÅÅÔÅ × ×ÉÄÕ "%s"? -76 îÅ ÍÏÇÕ ÏÔÌÏÖÉÔØ login-ÛÅÌÌ (ÐÏËÁ) -77 îÅÉÚ×ÅÓÔÎÙÊ ÐÏÌØÚÏ×ÁÔÅÌØ: %s -78 ðÅÒÅÍÅÎÎÁÑ $home ÎÅ ÕÓÔÁÎÏ×ÌÅÎÁ -79 éÓÐÏÌØÚÏ×ÁÎÉÅ: history [-%s] [# ÞÉÓÌÏ ÓÏÂÙÔÉÊ] -80 $, ! ÉÌÉ < ÚÁÐÒÅÝÅÎÏ ÉÓÐÏÌØÚÏ×ÁÔØ Ó $# ÉÌÉ $? -81 ðÅÒÅ×ÏÄ ÓÔÒÏËÉ × ÉÍÅÎÉ ÐÅÒÅÍÅÎÎÏÊ -82 * ÚÁÐÒÅÝÅÎÏ ÉÓÐÏÌØÚÏ×ÁÔØ Ó $# ÉÌÉ $? -83 $?<ÃÉÆÒÁ> ÉÌÉ $#<ÃÉÆÒÁ> ÚÁÐÒÅÝÅÎÏ -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 -<ÎÏÍÅÒ ÜÌÅÍÅÎÔÁ>.\néÓÐÏÌØÚÏ×ÁÎÉÅ: sched [+]þþ:íí <ËÏÍÁÎÄÁ> -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> [<ÁÒÇÕÍÅÎÔÙ>]] -122 %s: %s. îÅ×ÅÒÎÁÑ ÁÒÈÉÔÅËÔÕÒÁ -123 !# ÚÁÃÉËÌÉ×ÁÎÉÅ ÐÁÍÑÔÉ ËÏÍÁÎÄ -124 îÅÐÒÁ×ÉÌØÎÏ ÓÆÏÒÍÉÒÏ×ÁÎÎÙÊ ÆÁÊÌÏ×ÙÊ ÚÁÐÒÏÓ -125 ðÅÒÅÐÏÌÎÅÎÉÅ ÓÅÌÅËÔÏÒÁ -126 îÅÉÚ×ÅÓÔÎÁÑ ÏÐÃÉÑ: `-%s'\néÓÐÏÌØÚÏ×ÁÎÉÅ: %s [ -bcdefilmnqstvVxX -DÉÍÑ[=ÚÎÁÞÅÎÉÅ] ] [ ÁÒÇÕÍÅÎÔ ... ] -127 îÅÉÚ×ÅÓÔÎÁÑ ÏÐÃÉÑ: `-%s'\néÓÐÏÌØÚÏ×ÁÎÉÅ: %s [ -bcdefFilmnqstvVxX ] [ ÁÒÇÕÍÅÎÔ ... ] -128 îÅÉÚ×ÅÓÔÎÁÑ ÏÐÃÉÑ: `-%s'\néÓÐÏÌØÚÏ×ÁÎÉÅ: %s [ -bcdefilmnqstvVxX ] [ ÁÒÇÕÍÅÎÔ ... ] -129 \nîÅ×ÅÒÎÏÅ ÄÏÓÔÒÁÉ×ÁÎÉÅ: "%s" -130 \nîÅ×ÅÒÎÙÊ %s: '%c' -131 \nïÔÓÕÔÓÔ×ÕÅÔ ÓÅÐÁÒÁÔÏÒ '%c' ÐÏÓÌÅ %s "%s" -132 \n%s ÎÅ ÐÏÌÎÏ: "%s" -133 ïÔÓÕÔÓÔ×ÕÅÔ ÏÐÅÒÁÎÄ ÄÌÑ ÆÌÁÇÁ -m -134 éÓÐÏÌØÚÏ×ÁÎÉÅ: unlimit [-fh] [ÐÒÅÄÅÌÙ] -135 $%S ÔÏÌØËÏ ÄÌÑ ÞÔÅÎÉÑ -136 îÅÔ ÔÁËÏÇÏ ÚÁÄÁÎÉÑ -137 îÅÉÚ×ÅÓÔÎÏÅ ÚÎÁÞÅÎÉÅ `%c%c' ÐÅÒÅÍÅÎÎÏÊ colorls diff --git a/contrib/tcsh/nls/russian/set10 b/contrib/tcsh/nls/russian/set10 deleted file mode 100644 index 273abd2..0000000 --- a/contrib/tcsh/nls/russian/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.3 2006/03/02 18:46:47 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/russian/set11 b/contrib/tcsh/nls/russian/set11 deleted file mode 100644 index b165bd7..0000000 --- a/contrib/tcsh/nls/russian/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ sh.c -$set 11 -1 ðÒÅÄÕÐÒÅÖÄÅÎÉÅ: ÎÅÔ ÄÏÓÔÕÐÁ Ë tty (%s).\n -2 ðÏÜÔÏÍÕ ÕÐÒÁ×ÌÅÎÉÅ ÚÁÄÁÎÉÑÍÉ × ÜÔÏÍ ÛÅÌÌÅ ÏÔÓÕÔÓÔ×ÕÅÔ.\n -3 äÌÑ ×ÁÓ ÅÓÔØ %d ÐÏÞÔÏ×ÙÈ ÓÏÏÂÝÅÎÉÑ(Ê).\n -4 äÌÑ ×ÁÓ ÅÓÔØ %d ÐÏÞÔÏ×ÙÈ ÓÏÏÂÝÅÎÉÑ(Ê) × %s.\n -5 äÌÑ ×ÁÓ ÅÓÔØ %sÐÏÞÔÁ.\n -6 ÎÏ×ÁÑ -7 äÌÑ ×ÁÓ ÅÓÔØ %sÐÏÞÔÁ × %s.\n diff --git a/contrib/tcsh/nls/russian/set12 b/contrib/tcsh/nls/russian/set12 deleted file mode 100644 index b676c6c..0000000 --- a/contrib/tcsh/nls/russian/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: ðÙÔÁÀÓØ ÎÁÞÁÔØ Ó "%s"\n diff --git a/contrib/tcsh/nls/russian/set13 b/contrib/tcsh/nls/russian/set13 deleted file mode 100644 index 206ea89..0000000 --- a/contrib/tcsh/nls/russian/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.3 2006/03/02 18:46:47 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 ÚÎÁÞÅÎÉÅ mask ÄÌÑ ÏÔÌÁÄËÉ = 0x%08x\n -4 %d ÓÏ×ÐÁÄÅÎÉÑ(Ê), %d ÐÒÏÍÁÈÁ(Ï×), %d%%\n -5 %S: ×ÎÕÔÒÅÎÎÑÑ ËÏÍÁÎÄÁ.\n -6 %S: ëÏÍÁÎÄÁ ÎÅ ÎÁÊÄÅÎÁ.\n -7 where: / × ËÏÍÁÎÄÅ ÎÅ ÉÍÅÅÔ ÓÍÙÓÌÁ\n -8 %S ÐÅÒÅÏÐÒÅÄÅÌÅÎÏ ÎÁ -9 %S Ñ×ÌÑÅÔÓÑ ×ÎÕÔÒÅÎÎÅÊ ËÏÍÁÎÄÏÊ\n -10 hash miss: diff --git a/contrib/tcsh/nls/russian/set14 b/contrib/tcsh/nls/russian/set14 deleted file mode 100644 index d9632d8..0000000 --- a/contrib/tcsh/nls/russian/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ sh.file.c -$set 14 -1 \nYikes!! óÌÉÛËÏÍ ÍÎÏÇÏ %s!!\n -2 ÉÍÅÎ × ÆÁÊÌÅ ÐÁÒÏÌÅÊ -3 ÆÁÊÌÙ diff --git a/contrib/tcsh/nls/russian/set15 b/contrib/tcsh/nls/russian/set15 deleted file mode 100644 index 60c2a36..0000000 --- a/contrib/tcsh/nls/russian/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: îÅ ÍÏÇÕ %s%s ÐÒÅÄÅÌ\n -2 ÕÄÁÌÉÔØ -3 ÕÓÔÁÎÏ×ÉÔØ -4 \040ÖÅÓÔËÉÊ diff --git a/contrib/tcsh/nls/russian/set16 b/contrib/tcsh/nls/russian/set16 deleted file mode 100644 index 877acbe..0000000 --- a/contrib/tcsh/nls/russian/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ sh.lex.c -$set 16 -1 Reset tty pgrp from %d to %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/russian/set17 b/contrib/tcsh/nls/russian/set17 deleted file mode 100644 index 8d7384da..0000000 --- a/contrib/tcsh/nls/russian/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.4 2006/03/02 18:46:47 christos Exp $ -$ sh.proc.c -$set 17 -1 BUG: waiting for background job!\n -2 ÷ÙÈÏÄ %d\n -3 BUG: process flushed twice -4 ÷ÙÐÏÌÎÑÅÔÓÑ -5 óÉÇÎÁÌ -6 Exit %-25d -7 ïËÏÎÞÅÎÏ -8 BUG: status=%-9o -9 \040(core dumped) -10 \040(wd: -11 wd now: -12 %S: õÖÅ ÏÔÌÏÖÅÎÏ\n -13 %S: õÖÅ ÏÓÔÁÎÏ×ÌÅÎÏ\n -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/russian/set18 b/contrib/tcsh/nls/russian/set18 deleted file mode 100644 index 277af0d..0000000 --- a/contrib/tcsh/nls/russian/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.3 2006/03/02 18:46:47 christos Exp $ -$ sh.set.c -$set 18 -1 ðÒÅÄÕÐÒÅÖÄÅÎÉÅ: þÅÒÅÓÞÕÒ ÄÌÉÎÎÙÊ PATH ÏÂÒÅÚÁÎ\n diff --git a/contrib/tcsh/nls/russian/set19 b/contrib/tcsh/nls/russian/set19 deleted file mode 100644 index 2824aba..0000000 --- a/contrib/tcsh/nls/russian/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.3 2006/03/02 18:46:47 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: îÅÔ ÐÁÍÑÔÉ\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\t÷ÓÅÇÏ ÉÓÐÏÌØÚÕÅÔÓÑ: %d, ×ÓÅÇÏ Ó×ÏÂÏÄÎÏ: %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/russian/set2 b/contrib/tcsh/nls/russian/set2 deleted file mode 100644 index 1466e73..0000000 --- a/contrib/tcsh/nls/russian/set2 +++ /dev/null @@ -1,111 +0,0 @@ -$ $tcsh: set2,v 1.3 2006/03/02 18:46:47 christos Exp $ -$ Signal names -$set 2 -1 îÕÌÅ×ÏÊ ÓÉÇÎÁÌ -2 òÁÚÒÙ× Ó×ÑÚÉ -3 ðÒÅÒÙ×ÁÎÉÅ -4 ÷ÙÈÏÄ -5 îÅ×ÅÒÎÁÑ ÉÎÓÔÒÕËÃÉÑ -6 Trace/BPT trap -7 á×ÁÒÉÊÎÏÅ ÚÁ×ÅÒÛÅÎÉÅ -8 IOT trap -9 System Crash Imminent -10 ÷ÙÈÏÄ ÐÏ ÏÛÉÂËÅ -11 EMT trap -12 ïÛÉÂËÁ ÏÐÅÒÁÃÉÉ Ó ÐÌÁ×ÁÀÝÅÊ ÔÏÞËÏÊ -13 õÂÉÔ -14 ðÏÌØÚÏ×ÁÔÅÌØÓËÉÊ ÓÉÇÎÁÌ 1 -15 ðÏÌØÚÏ×ÁÔÅÌØÓËÉÊ ÓÉÇÎÁÌ 2 -16 ïÛÉÂËÁ ÓÅÇÍÅÎÔÁÃÉÉ -17 ïÛÉÂËÁ ÁÄÒÅÓÁÃÉÉ ÎÁ ÛÉÎÅ -18 Program range error -19 Operand range error -20 îÅ×ÅÒÎÙÊ ÓÉÓÔÅÍÎÙÊ ×ÙÚÏ× -21 Broken pipe -22 Alarm clock -23 ðÒÅÒ×ÁÎÏ -24 éÚÍÅÎÅÎÉÅ ÓÏÓÔÏÑÎÉÑ ÐÏÔÏÍËÁ -25 óÍÅÒÔØ ÐÏÔÏÍËÁ -26 Apollo-specific fault -27 ðÏÔÏÍÏË ÏÓÔÁÎÏ×ÉÌÓÑ ÉÌÉ ÚÁ×ÅÒÛÉÌÓÑ -28 ðÏÔÏÍÏË ÚÁ×ÅÒÛÉÌÓÑ -29 óÂÏÊ ÐÉÔÁÎÉÑ -30 Resource Lost -31 Break (Ctrl-Break) -32 Input/output possible signal -33 áÓÉÎÈÒÏÎÎÙÊ ××ÏÄ/×Ù×ÏÄ (select) -34 Urgent condition on I/O channel -35 Multitasking wake-up -36 Multitasking kill -37 Fortran asynchronous I/O completion -38 Recovery -39 îÅÉÓÐÒÁ×ÉÍÁÑ ÏÛÉÂËÁ ÐÁÍÑÔÉ -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 -45 úÁÐÒÏÓ ÎÁ ÉÎÆÏÒÍÁÃÉÀ -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/russian/set20 b/contrib/tcsh/nls/russian/set20 deleted file mode 100644 index d8df302..0000000 --- a/contrib/tcsh/nls/russian/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.5 2006/03/02 18:46:47 christos Exp $ -$ tc.bind.c -$set 20 -1 îÅ×ÅÒÎÏÅ ÉÍÑ ËÌÁ×ÉÛÉ `%S'\n -2 ðÌÏÈÏÅ ÉÍÑ ËÌÁ×ÉÛÉ: %S\n -3 ðÌÏÈÏÅ ÉÍÑ ËÏÍÁÎÄÙ: %S\n -4 ðÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ËÌÁ×ÉÛÉ %S\n -5 ðÕÓÔÁÑ ÓÔÒÏËÁ\n -6 óÔÁÎÄÁÒÔÎÙÅ ÐÒÉ×ÑÚËÉ ËÌÁ×ÉÛ\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- ÉÌÉ X- ÎÁÚ×ÁÎÉÅ ËÌÁ×ÉÛÉ\n -15 -s ×ÏÓÐÒÉÎÉÍÁÔØ ëïíáîäÕ ËÁË ÓÔÒÏËÕ, ËÏÔÏÒÕÀ ÎÕÖÎÏ ×Ù×ÅÓÔÉ\n -16 -c ×ÏÓÐÒÉÎÉÍÁÔØ ëïíáîäÕ ËÁË ×ÓÔÒÏÅÎÎÕÀ ÉÌÉ ×ÎÅÛÎÀÀ ËÏÍÁÎÄÕ\n -17 -v ÐÒÉ×ÑÚÁÔØ ×ÓÅ ËÌÁ×ÉÛÉ × ÓÏÏÔ×ÅÔÓÔ×ÉÉ Ó ÒÅÄÁËÔÏÒÏÍ vi\n -18 -e ÐÒÉ×ÑÚÁÔØ ×ÓÅ ËÌÁ×ÉÛÉ × ÓÏÏÔ×ÅÔÓÔ×ÉÉ Ó ÒÅÄÁËÔÏÒÏÍ emacs\n -19 -d ÐÒÉ×ÑÚÁÔØ ×ÓÅ ËÌÁ×ÉÛÉ × ÓÏÏÔ×ÅÔÓÔ×ÉÉ Ó ÒÅÄÁËÔÏÒÏÍ ÐÏ ÕÍÏÌÞÁÎÉÀ\n -20 -l ×Ù×ÅÓÔÉ ÓÐÉÓÏË ËÏÍÁÎÄ ÒÅÄÁËÔÏÒÁ É ÉÈ ÏÐÉÓÁÎÉÑ\n -21 -r ÕÄÁÌÉÔØ ÐÒÉ×ÑÚËÕ ëìá÷éûÉ\n -22 -k ×ÏÓÐÒÉÎÉÍÁÔØ ëìá÷éûÕ ËÁË Ñ×ÎÏÅ ÎÁÚ×ÁÎÉÅ ÕÐÒÁ×ÌÑÀÝÅÊ ËÌÁ×ÉÛÉ\n -23 -- ÎÅ ×ÏÓÐÒÉÎÉÍÁÔØ ×ÓÅ ÐÏÓÌÅÄÕÀÝÉÅ ÐÁÒÁÍÅÔÒÙ ËÁË ÏÐÃÉÉ\n -24 -u (ÉÌÉ ÌÀÂÁÑ ÎÅÐÒÁ×ÉÌØÎÁÑ ÏÐÃÉÑ) ×Ù×ÅÓÔÉ ÜÔÏÔ ÔÅËÓÔ\n -25 âÅÚ ëìá÷éûÉ ÉÌÉ ëïíáîäÙ, ×Ù×ÅÓÔÉ ×ÓÅ ÐÒÉ×ÑÚËÉ.\n -26 âÅÚ ëïíáîäÙ, ×Ù×ÅÓÔÉ ÐÒÉ×ÑÚËÕ ëìá÷éûÉ\n.\n -27 ÐÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ËÌÁ×ÉÛÉ -- ÎÕÌÅ×ÁÑ ÓÔÒÏËÁ\n -28 ÐÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ËÌÁ×ÉÛÉ -- ÐÕÓÔÁÑ ÓÔÒÏËÁ\n -29 ðÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ÆÕÎËÃÉÏÎÁÌØÎÏÊ ËÌÁ×ÉÛÉ. îÕÌÅ×ÁÑ ËÌÁ×ÉÛÁ ÚÁÐÒÅÝÅÎÁ\n -30 ÐÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ËÌÁ×ÉÛÉ -- ÎÅ×ÅÒÎÙÊ ÛÅÓÔÎÁÄÃÁÔÅÒÉÞÎÙÊ ÎÏÍÅÒ\n -31 ÐÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ËÌÁ×ÉÛÉ -- ÎÅ×ÅÒÎÙÊ ×ÏÓØÍÅÒÉÞÎÙÊ ÎÏÍÅÒ\n -32 ÐÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ËÌÁ×ÉÛÉ -- ÎÅ×ÅÒÎÙÊ ÄÅÓÑÔÉÞÎÙÊ ÎÏÍÅÒ\n -33 ðÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ÆÕÎËÃÉÏÎÁÌØÎÏÊ ËÌÁ×ÉÛÉ.\n -34 îÕÌÅ×ÙÅ ËÌÁ×ÉÛÉ ÚÁÐÒÅÝÅÎÙ\n -35 ÐÌÏÈÁÑ ÓÐÅÃÉÆÉËÁÃÉÑ ËÌÁ×ÉÛÉ -- ÎÅÉÚ×ÅÓÔÎÏÅ ÉÍÑ "%S"\n -36 ÉÓÐÏÌØÚÏ×ÁÎÉÅ: bind [ëìá÷éûÁ | ëïíáîäÁ ëìá÷éûÁ | "emacs" | "vi" | "-a"]\n -37 îÅ×ÅÒÎÁÑ ÆÕÎËÃÉÑ -38 %s\t\tÎÅ ÏÐÒÅÄÅÌÅÎ\n diff --git a/contrib/tcsh/nls/russian/set21 b/contrib/tcsh/nls/russian/set21 deleted file mode 100644 index 38562a9..0000000 --- a/contrib/tcsh/nls/russian/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.2 2006/03/02 18:46:47 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/russian/set22 b/contrib/tcsh/nls/russian/set22 deleted file mode 100644 index 02b53f5..0000000 --- a/contrib/tcsh/nls/russian/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.4 2006/03/02 18:46:47 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t ÐÅÒÅÏÐÒÅÄÅÌÅÎÏ × -2 \nîÅ×ÅÒÎÙÊ ÐÁÒÏÌØ ÄÌÑ %s\n -3 ïÛÉÂÏÞÎÏÅ ÐÅÒÅÏÐÒÅÄÅÌÅÎÉÅ '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/russian/set23 b/contrib/tcsh/nls/russian/set23 deleted file mode 100644 index 7d77ab8..0000000 --- a/contrib/tcsh/nls/russian/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.3 2006/03/02 18:46:47 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: îÅ ÍÏÇÕ ÏÔËÒÙÔØ ".." (%s) -20 getwd: îÅ ÍÏÇÕ ÓÍÅÎÉÔØ ËÁÔÁÌÏÇ ÎÁ ".." (%s) -21 getwd: ïÛÉÂËÁ ÞÔÅÎÉÑ × ".." (%s) -22 getwd: îÅ ÍÏÇÕ ×ÅÒÎÕÔØÓÑ ÎÁÚÁÄ × "." (%s) -23 getwd: îÅ ÍÏÇÕ ×ÙÐÏÌÎÉÔØ stat ÎÁ "/" (%s) -24 getwd: îÅ ÍÏÇÕ ×ÙÐÏÌÎÉÔØ stat ÎÁ "." (%s) -25 getwd: îÅ ÍÏÇÕ ×ÙÐÏÌÎÉÔØ stat ÎÁ ËÁÔÁÌÏÇ "%s" (%s) -26 getwd: îÅ ÍÏÇÕ ÏÔËÒÙÔØ ËÁÔÁÌÏÇ "%s" (%s) -27 getwd: îÅ ÍÏÇÕ ÎÁÊÔÉ "." × ".." (%s) -28 îÅ×ÅÒÎÙÊ ÔÉÐ ÓÉÓÔÅÍÙ -29 ôÉÐ ÓÉÓÔÅÍÙ ÎÅ ÕÓÔÁÎÏ×ÌÅÎ -30 óÌÉÛËÏÍ ÍÎÏÇÏ ÁÒÇÕÍÅÎÔÏ× -31 îÅ×ÅÒÎÙÊ ÁÒÇÕÍÅÎÔ diff --git a/contrib/tcsh/nls/russian/set24 b/contrib/tcsh/nls/russian/set24 deleted file mode 100644 index 0c3ca90..0000000 --- a/contrib/tcsh/nls/russian/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ tc.sched.c -$set 24 -1 kludge diff --git a/contrib/tcsh/nls/russian/set25 b/contrib/tcsh/nls/russian/set25 deleted file mode 100644 index ff9aab9..0000000 --- a/contrib/tcsh/nls/russian/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.2 2006/03/02 18:46:47 christos Exp $ -$ tc.sig.c -$set 25 -1 our wait %d\n -2 ÏÛÉÂËÁ: bsd_signal(%d) ÓÉÇÎÁÌ ×ÙÛÅÌ ÚÁ ÐÒÅÄÅÌÙ ÉÎÔÅÒ×ÁÌÁ\n -3 ÏÛÉÂËÁ: bsd_signal(%d) - sigaction ÚÁ×ÅÒÛÉÌÓÑ ÎÅÕÄÁÞÎÏ, errno %d\n diff --git a/contrib/tcsh/nls/russian/set26 b/contrib/tcsh/nls/russian/set26 deleted file mode 100644 index 5aefd22..0000000 --- a/contrib/tcsh/nls/russian/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ tc.who.c -$set 26 -1 ÎÅ ÍÏÇÕ ×ÙÐÏÌÎÉÔØ stat ÎÁ %s. ðÏÖÁÌÕÊÓÔÁ, ×ÙÐÏÌÎÉÔÅ "unset watch".\n -2 %s ÎÅ ÍÏÖÅÔ ÂÙÔØ ÏÔËÒÙÔ. ðÏÖÁÌÕÊÓÔÁ, ×ÙÐÏÌÎÉÔÅ "unset watch".\n -3 BUG! ÐÏÓÌÅÄÎÉÊ ÜÌÅÍÅÎÔ ÎÅ Ñ×ÌÑÅÔÓÑ whotail!\n -4 ÎÁÚÁÄ: -5 BUG! ÐÅÒ×ÙÊ ÜÌÅÍÅÎÔ ÎÅ Ñ×ÌÑÅÔÓÑ whohead!\n -6 ÎÏ×ÙÊ: %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 ÌÏËÁÌØÎÙÊ diff --git a/contrib/tcsh/nls/russian/set27 b/contrib/tcsh/nls/russian/set27 deleted file mode 100644 index a995389..0000000 --- a/contrib/tcsh/nls/russian/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.4 2006/03/02 18:46:48 christos Exp $ -$ tw.comp.c -$set 27 -1 ËÏÍÁÎÄÁ -2 ÓÅÐÁÒÁÔÏÒ -3 ÛÁÂÌÏÎ -4 ÉÎÔÅÒ×ÁÌ -5 ÚÁ×ÅÒÛÅÎÉÅ diff --git a/contrib/tcsh/nls/russian/set29 b/contrib/tcsh/nls/russian/set29 deleted file mode 100644 index b7b4da9..0000000 --- a/contrib/tcsh/nls/russian/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.2 2006/03/02 18:46:48 christos Exp $ -$ tw.help.c -$set 29 -1 ïÔÓÕÔÓÔ×ÕÅÔ ÆÁÊÌ ÐÏÍÏÝÉ ÄÌÑ %S\n diff --git a/contrib/tcsh/nls/russian/set3 b/contrib/tcsh/nls/russian/set3 deleted file mode 100644 index 1eb6471..0000000 --- a/contrib/tcsh/nls/russian/set3 +++ /dev/null @@ -1,117 +0,0 @@ -$ $tcsh: set3,v 1.4 2006/03/02 18:46:48 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/russian/set30 b/contrib/tcsh/nls/russian/set30 deleted file mode 100644 index 7ac5fe6..0000000 --- a/contrib/tcsh/nls/russian/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.4 2006/03/02 18:46:48 christos Exp $ -$ tw.parse.c -$set 30 -1 starting_a_command %d\n -2 complete %d -3 complete %d %S\n -4 %s: ÷ÎÕÔÒÅÎÎÑÑ match error.\n -5 ÜÌÅÍÅÎÔÏ× -6 ÒÑÄÏ× -7 îÁÊÄÅÎÏ %d %s, ×Ù ÄÅÊÓÔ×ÉÔÅÌØÎÏ ÈÏÔÉÔÅ ×Ù×ÅÓÔÉ ÉÈ ×ÓÅÈ? [n/y] -8 looking = %d\n -9 \n×ÎÕÔÒÅÎÎÑÑ ÏÛÉÂËÁ tcsh: Ñ ÎÅ ÚÎÁÀ, ÞÔÏ Ñ ÉÝÕ!\n -10 ÎÅ ËÁÔÁÌÏÇ -11 ÎÅ ÎÁÊÄÅÎÏ -12 ÎÅÞÉÔÁÅÍÏ -13 yY diff --git a/contrib/tcsh/nls/russian/set31 b/contrib/tcsh/nls/russian/set31 deleted file mode 100644 index 908cb02..0000000 --- a/contrib/tcsh/nls/russian/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.3 2006/03/02 18:46:48 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/russian/set4 b/contrib/tcsh/nls/russian/set4 deleted file mode 100644 index 58d8415..0000000 --- a/contrib/tcsh/nls/russian/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ Termcap strings -$set 4 -1 ÄÏÂÁ×ÉÔØ ÎÏ×ÕÀ ÐÕÓÔÕÀ ÓÔÒÏËÕ -2 Ú×ÕËÏ×ÏÊ Ú×ÏÎÏË -3 ÏÞÉÓÔÉÔØ ÄÏ ËÏÎÃÁ -4 ÏÞÉÓÔÉÔØ ÄÏ ËÏÎÃÁ ÓÔÒÏËÉ -5 ËÕÒÓÏÒ ÎÁ ÇÏÒÉÚÏÎÔÁÌØÎÕÀ ÐÏÚÉÃÉÀ -6 ÏÞÉÓÔÉÔØ ÜËÒÁÎ -7 ÕÄÁÌÉÔØ ÓÉÍ×ÏÌ -8 ÕÄÁÌÉÔØ ÓÔÒÏËÕ -9 ÐÅÒÅÊÔÉ × ÒÅÖÉÍ ÕÄÁÌÅÎÉÑ -10 ×ÙÊÔÉ ÉÚ ÒÅÖÉÍÁ ÕÄÁÌÅÎÉÑ -11 ×ÙÊÔÉ ÉÚ ÒÅÖÉÍÁ ×ÓÔÁ×ËÉ -12 cursor from status line -13 home cursor -14 ×ÓÔÁ×ÉÔØ ÓÉÍ×ÏÌ -15 ÐÅÒÅÊÔÉ × ÒÅÖÉÍ ×ÓÔÁ×ËÉ -16 insert padding -17 ÐÅÒÅÍÅÓÔÉÔØ ËÕÒÓÏÒ ×ÎÉÚ -18 ÐÅÒÅÍÅÓÔÉÔØ ËÕÒÓÏÒ ×ÌÅ×Ï -19 ÐÅÒÅÍÅÓÔÉÔØ ËÕÒÓÏÒ ×ÐÒÁ×Ï -20 ÐÅÒÅÍÅÓÔÉÔØ ËÕÒÓÏÒ ××ÅÒÈ -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 ×ÉÚÕÁÌØÎÙÊ Ú×ÏÎÏË -31 ÕÄÁÌÉÔØ ÎÅÓËÏÌØËÏ ÓÉÍ×ÏÌÏ× -32 cursor down multiple -33 ×ÓÔÁ×ÉÔØ ÎÅÓËÏÌØËÏ ÓÉÍ×ÏÌÏ× -34 cursor left multiple -35 cursor right multiple -36 cursor up multiple -37 Has automatic margins -38 Can use physical tabs -39 þÉÓÌÏ ÓÔÒÏË -40 þÉÓÔÏ ÓÔÏÌÂÃÏ× -41 Has meta key -42 Newline ignored at right margin diff --git a/contrib/tcsh/nls/russian/set5 b/contrib/tcsh/nls/russian/set5 deleted file mode 100644 index 6e48898..0000000 --- a/contrib/tcsh/nls/russian/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 2006/03/02 18:46:48 christos Exp $ -$ ed.chared.c -$set 5 -1 óÒÅÄÎÑÑ ÚÁÇÒÕÚËÁ ÎÅÄÏÓÔÕÐÎÁ\n diff --git a/contrib/tcsh/nls/russian/set6 b/contrib/tcsh/nls/russian/set6 deleted file mode 100644 index bffc35e..0000000 --- a/contrib/tcsh/nls/russian/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.3 2006/03/02 18:46:48 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/russian/set7 b/contrib/tcsh/nls/russian/set7 deleted file mode 100644 index 7f7cbc7..0000000 --- a/contrib/tcsh/nls/russian/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.3 2006/03/02 18:46:48 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 ÉÍÅÅÔ -11 ÎÅ ÉÍÅÅÔ -12 \tIt %s magic margins\n -13 (ÐÕÓÔÏ) -14 ÄÁ -15 ÎÅÔ -16 ïûéâëá: ÎÅ ÍÏÇÕ ÕÄÁÌÉÔØ\r\n -17 DeleteChars: num is riduculous: %d\r\n -18 ïûéâëá: ÎÅ ÍÏÇÕ ×ÓÔÁ×ÉÔØ\r\n -19 StartInsert: num is riduculous: %d\r\n -20 %s: îÅ ÍÏÇÕ ÏÔËÒÙÔØ /etc/termcap.\n -21 %s: No entry for terminal type "%s"\n -22 %s: using dumb terminal settings.\n -23 %s: ÷îéíáîéå: 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/russian/set8 b/contrib/tcsh/nls/russian/set8 deleted file mode 100644 index 80bede0..0000000 --- a/contrib/tcsh/nls/russian/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 2006/03/02 18:46:48 christos Exp $ -$ ed.term.c -$set 8 -1 îÅÉÚ×ÅÓÔÎÙÊ ÐÅÒÅËÌÀÞÁÔÅÌØ -2 îÅ×ÅÒÎÙÊ ÁÒÇÕÍÅÎÔ diff --git a/contrib/tcsh/nls/russian/set9 b/contrib/tcsh/nls/russian/set9 deleted file mode 100644 index cef9379..0000000 --- a/contrib/tcsh/nls/russian/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.3 2006/03/02 18:46:48 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!! ðÅÒÅÄÁÎ ÎÕÌÅ×ÏÊ ÕËÁÚÁÔÅÌØ!\n -7 ÎÅÔ ××ÏÄÉÍÙÈ ÄÁÎÎÙÈ -8 Something must follow: %c\n -9 ÷ÏÓØÍÅÒÉÞÎÁÑ ËÏÎÓÔÁÎÔÁ ÎÅ ÕÍÅÝÁÅÔÓÑ × char.\n diff --git a/contrib/tcsh/nls/spanish/charset b/contrib/tcsh/nls/spanish/charset deleted file mode 100644 index 0b13559..0000000 --- a/contrib/tcsh/nls/spanish/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=ISO-8859-1 -$set 255 -1 ISO-8859-1 diff --git a/contrib/tcsh/nls/spanish/set1 b/contrib/tcsh/nls/spanish/set1 deleted file mode 100644 index 0accb67..0000000 --- a/contrib/tcsh/nls/spanish/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.3 2006/03/02 18:46:48 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 8d5b057..0000000 --- a/contrib/tcsh/nls/spanish/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.2 2006/03/02 18:46:48 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 cb96ec8..0000000 --- a/contrib/tcsh/nls/spanish/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.2 2006/03/02 18:46:48 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 06f43f4..0000000 --- a/contrib/tcsh/nls/spanish/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.2 2006/03/02 18:46:48 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 12b32b0..0000000 --- a/contrib/tcsh/nls/spanish/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.2 2006/03/02 18:46:48 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 5bb621e..0000000 --- a/contrib/tcsh/nls/spanish/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.2 2006/03/02 18:46:48 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 825af2e..0000000 --- a/contrib/tcsh/nls/spanish/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.2 2006/03/02 18:46:48 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 0482ffa..0000000 --- a/contrib/tcsh/nls/spanish/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.2 2006/03/02 18:46:48 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 02df187..0000000 --- a/contrib/tcsh/nls/spanish/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.3 2006/03/02 18:46:48 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 -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/spanish/set18 b/contrib/tcsh/nls/spanish/set18 deleted file mode 100644 index b2d7736..0000000 --- a/contrib/tcsh/nls/spanish/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.2 2006/03/02 18:46:48 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 fdce85d..0000000 --- a/contrib/tcsh/nls/spanish/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.2 2006/03/02 18:46:48 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 b73c693..0000000 --- a/contrib/tcsh/nls/spanish/set2 +++ /dev/null @@ -1,92 +0,0 @@ -$ $tcsh: set2,v 1.2 2006/03/02 18:46:48 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 9458fef..0000000 --- a/contrib/tcsh/nls/spanish/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.3 2006/03/02 18:46:48 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 706127b..0000000 --- a/contrib/tcsh/nls/spanish/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.2 2006/03/02 18:46:48 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 fb311ae..0000000 --- a/contrib/tcsh/nls/spanish/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.2 2006/03/02 18:46:48 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 86a81e4..0000000 --- a/contrib/tcsh/nls/spanish/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.2 2006/03/02 18:46:48 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 b12289d..0000000 --- a/contrib/tcsh/nls/spanish/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.2 2006/03/02 18:46:48 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 c81ef4a..0000000 --- a/contrib/tcsh/nls/spanish/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.2 2006/03/02 18:46:48 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 74c990e..0000000 --- a/contrib/tcsh/nls/spanish/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.2 2006/03/02 18:46:48 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 6f75760..0000000 --- a/contrib/tcsh/nls/spanish/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.2 2006/03/02 18:46:48 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 c7a4921..0000000 --- a/contrib/tcsh/nls/spanish/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.2 2006/03/02 18:46:48 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 2465dec..0000000 --- a/contrib/tcsh/nls/spanish/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.3 2006/03/02 18:46:48 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 -115 Replace just-yanked text with yank from earlier kill -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down diff --git a/contrib/tcsh/nls/spanish/set30 b/contrib/tcsh/nls/spanish/set30 deleted file mode 100644 index ea9e5be..0000000 --- a/contrib/tcsh/nls/spanish/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.2 2006/03/02 18:46:48 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 52a50b9..0000000 --- a/contrib/tcsh/nls/spanish/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.2 2006/03/02 18:46:48 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 1ca3b69..0000000 --- a/contrib/tcsh/nls/spanish/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.2 2006/03/02 18:46:48 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 4ec38af..0000000 --- a/contrib/tcsh/nls/spanish/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.2 2006/03/02 18:46:48 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 06ded32..0000000 --- a/contrib/tcsh/nls/spanish/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.2 2006/03/02 18:46:48 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 a50dbcd..0000000 --- a/contrib/tcsh/nls/spanish/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.2 2006/03/02 18:46:48 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 abda415..0000000 --- a/contrib/tcsh/nls/spanish/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.2 2006/03/02 18:46:48 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 c94db08..0000000 --- a/contrib/tcsh/nls/spanish/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.2 2006/03/02 18:46:48 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/nls/ukrainian/charset b/contrib/tcsh/nls/ukrainian/charset deleted file mode 100644 index fd65f43..0000000 --- a/contrib/tcsh/nls/ukrainian/charset +++ /dev/null @@ -1,3 +0,0 @@ -$ codeset=KOI8-U -$set 255 -1 KOI8-U diff --git a/contrib/tcsh/nls/ukrainian/set1 b/contrib/tcsh/nls/ukrainian/set1 deleted file mode 100644 index 2a4aa95..0000000 --- a/contrib/tcsh/nls/ukrainian/set1 +++ /dev/null @@ -1,140 +0,0 @@ -$ $tcsh: set1,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ Error messages -$set 1 -1 óÉÎÔÁËÓÉÞÎÁ ÐÏÍÉÌËÁ -2 %s ÎÅ ÄÏÚ×ÏÌѤÔØÓÑ -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 îÅËÏÒÅËÔÎÁ ÍÁÓËÁ -23 ôÁËÏÇÏ Ì¦Í¦ÔÕ ÎÅ ¦ÓÎÕ¤ -24 úÁÄÏ×ÇÉÊ ÐÁÒÁÍÅÔÒ -25 Improper or unknown scale factor -26 îÅ×ÉÚÎÁÞÅÎÁ ÚͦÎÎÁ -27 óÔÅË ËÁÔÁÌÏÇ¦× ÎÅ ÔÁËÉÊ ×ÖÅ ¦ ×ÅÌÉËÉÊ -28 îÅצÒÎÉÊ ÎÏÍÅÒ ÓÉÇÎÁÌÕ -29 îÅצÄÏÍÉÊ ÓÉÇÎÁÌ; kill -l ÐÏËÁÚÕ¤ ×Ó¦ ÍÏÖÌÉצ -30 ¶Í'Ñ ÚͦÎÎϧ ÍÁ¤ ÐÏÞÉÎÁÔÉÓÑ Ú Ì¦ÔÅÒÉ -31 úÁÄÏ×ÇÅ ¦Í'Ñ ÚͦÎÎϧ -32 ¶Í'Ñ ÚͦÎÎϧ ÍÁ¤ ÐÏÞÉÎÁÔÉÓÑ Ú ÁÌÆÁצÔÎÏ-ÃÉÆÒÏ×ÏÇÏ ÓÉÍ×ÏÌÕ -33 ãÑ ÏÂÏÌÏÎËÁ ΊͦÓÔÉÔØ ÚÁÓÏÂ¦× ËÅÒÕ×ÁÎÎÑ ÚÁÄÁÞÁÍÉ -34 óÉÎÔÁËÓ ×ÉÒÁÚÕ -35 îÅÍÁ¤ ÄÏÍÁÛÎØÏÇÏ ËÁÔÁÌÏÇÕ -36 îÅ ÍÏÖÕ ÐÅÒÅÊÔÉ ÄÏ ÄÏÍÁÛÎØÏÇÏ ËÁÔÁÌÏÇÕ -37 îÅËÏÒÅËÔÎÁ ÐÏÒÏÖÎÑ ËÏÍÁÎÄÁ -38 Assignment missing expression -39 îÅצÄÏÍÉÊ ÏÐÅÒÁÔÏÒ -40 îÅÏÄÎÏÚÎÁÞÎÏ -41 %s: æÁÊÌ ¦ÓÎÕ¤ -42 áÒÇÕÍÅÎÔ -c ÚÁ˦ÎÞÕ¤ÔØÓÑ backslash'ÅÍ -43 ðÅÒÅÒ×ÁÎÏ -44 Subscript out of range -45 ðÅÒÅÐÏ×ÎÅÎÎÑ ÒÑÄËÕ -46 îÅÍÁ¤ ÔÁËϧ ÚÁÄÁÞ¦ -47 îÅÍÏÖÌÉ×Ï Ú ÔÅÒͦÎÁÌÕ -48 îÅ Õ while/foreach -49 îÅ ÍÏÖÎÁ ¦ÌØÛÅ ÐÒÏÃÅÓ¦× -50 îÅÍÁ¤ ÓЦ×ÐÁÄÁÎØ -51 ðÒÏÐÕÝÅÎÏ %c -52 ÷¦ÄÓÕÔÎ¦Ê ×¦ÄÐÏצÄÎÉË ÄÏ %c -53 íÁÌÏ ÐÁÍ'ÑÔ¦ -54 îÅ ÍÏÖÕ ÓÔ×ÏÒÉÔÉ ËÁÎÁÌ -55 %s: %s -56 %s -57 ÷ÉËÏÒÉÓÔÁÎÎÑ: jobs [ -l ] -58 áÒÇÕÍÅÎÔÏÍ ÍÁ¤ ÂÕÔÉ ÎÏÍÅÒ ÚÁÄÁÞ¦ ÞÉ ÐÒÏÃÅÓÕ -59 îÅÍÁ¤ ÐÏÔÏÞÎϧ ÚÁÄÁÞ¦ -60 îÅÍÁ¤ ÐÏÐÅÒÅÄÎØϧ ÚÁÄÁÞ¦ -61 öÏÄÎÁ ÚÁÄÁÞÁ ΊצÄÐÏצÄÁ¤ ÛÁÂÌÏÎÕ -62 Fork nesting > %d; maybe `...` loop -63 ð¦ÄÏÂÏÌÏÎËÁ ΊͦÓÔÉÔÉÔØ ÚÁÓÏÂ¦× ËÅÒÕ×ÁÎÎÑ ÚÁÄÁÞÁÍÉ -64 Sync fault: Process %d not found -65 %sýÅ ¤ 'ЦÄצÛÅΦ' ÚÁÄÁÞ¦ -66 %sýÅ ¤ 'ÐÒÉÚÕÐÉÎÅΦ' ÚÁÄÁÞ¦ -67 îÅÍÁ¤ ¦ÎÛÉÈ ËÁÔÁÌÏÇ¦× -68 óÔÅË ËÁÔÁÌÏÇ¦× ÐÕÓÔÉÊ -69 ðÏÇÁÎÉÊ ËÁÔÁÌÏÇ -70 ÷ÉËÏÒÉÓÔÁÎÎÑ: %s [-%s]%s -71 ÷¦ÄÓÕÔÎ¦Ê ÏÐÅÒÁÎÄ ÐÒÁÐÏÒÃÑ -h -72 ãÅ ÎÅ ÐÅÒ×ÉÎÎÁ ÏÂÏÌÏÎËÁ -73 ä¦ÌÅÎÎÑ ÎÁ 0 -74 ä¦ÌÅÎÎÑ ÎÁ 0 -75 Bad scaling; did you mean "%s"? -76 îÅ ÍÏÖÕ Ð¦ÄצÓÉÔÉ ÐÅÒ×ÉÎÎÕ ÏÂÏÌÏÎËÕ (ÐÏËÉ ÝÏ) -77 îÅצÄÏÍÉÊ ËÏÒÉÓÔÕ×ÁÞ: %s -78 úͦÎÎÁ $home ÎÅ ×ÉÚÎÁÞÅÎÁ -79 ÷ÉËÏÒÉÓÔÁÎÎÑ: history [-%s] [# ˦ÌØ˦ÓÔØ ÐÏĦÊ] -80 îÅ ÍÏÖÎÁ ×ÉËÏÒÉÓÔÏ×Õ×ÁÔÉ $, ! ÔÁ < ÒÁÚÏÍ Ú $# ÞÉ $? -81 óÉÍ×ÏÌ ÎÏ×ÏÇÏ ÒÑÄËÕ × ¦ÍÅΦ ÚͦÎÎϧ -82 îÅ ÍÏÖÎÁ ×ÉËÏÒÉÓÔÏ×Õ×ÁÔÉ * ÒÁÚÏÍ Ú $# ÞÉ $? -83 îÅ ÍÏÖÎÁ ×ÉËÏÒÉÓÔÏ×Õ×ÁÔÉ $?<ÃÉÆÒÁ> ÞÉ $#<ÃÉÆÒÁ> -84 îÅÐÒÁ×ÉÌØÎÅ ¦Í'Ñ ÚͦÎÎϧ -85 óÉÍ×ÏÌ ÎÏ×ÏÇÏ ÒÑÄËÁ × ¦ÎÄÅËÓ¦ ÚͦÎÎϧ -86 ðÅÒÅÐÏ×ÎÅÎÎÑ ÂÕÆÅÒÕ ÒÏÚÛÉÒÅÎÎÑ -87 óÉÎÔÁËÓ ÚͦÎÎϧ -88 îÅÐÒÁ×ÉÌØÎÁ ÆÏÒÍÁ '!' -89 ýÅ ÎÅ ÂÕÌÏ Ð¦ÄÓÔÁÎÏ×ÏË -90 ðÏÇÁÎÁ ЦÄÓÔÁÎÏ×ËÁ -91 No previous left hand side -92 Right hand side too long -93 ðÏÇÁÎÉÊ ÍÏÄÉƦËÁÔÏÒ !: %c -94 îÅ×ÄÁÞÁ ÍÏÄÉƦËÁÔÏÒÁ -95 ðÅÒÅÐÏ×ÎÅÎÎÑ ÂÕÆÅÒÕ Ð¦ÄÓÔÁÎÏ×ËÉ -96 Bad ! arg selector -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 Out of termcap string space -116 ÷ÉËÏÒÉÓÔÁÎÎÑ: settc %s [yes|no] -117 Unknown capability `%s' -118 îÅצÄÏÍÉÊ ÐÁÒÁÍÅÔÒ termcap `%%%c' -119 úÁÂÁÇÁÔÏ ÁÒÇÕÍÅÎÔ¦× ÄÌÑ `%s' (%d) -120 `%s' ×ÉÍÁÇÁ¤ %d ÁÒÇÕÍÅÎÔ(¦×) -121 ÷ÉËÏÒÉÓÔÁÎÎÑ: echotc [-v|-s] [<capability> [<args>]] -122 %s: %s. îÅÐÒÁ×ÉÌØÎÁ ÁÒȦÔÅËÔÕÒÁ -123 !# úÁÃÉËÌÅÎÎÑ ¦ÓÔÏÒ¦§ -124 Malformed file inquiry -125 ðÅÒÅÐÏ×ÎÅÎÎÑ ÓÅÌÅËÔÏÒÁ -126 îÅצÄÏÍÉÊ ÐÁÒÁÍÅÔÒ: `-%s'\n÷ÉËÏÒÉÓÔÁÎÎÑ: %s [ -bcdefilmnqstvVxX -D¦Í'Ñ[=ÚÎÁÞÅÎÎÑ] ] [ ÁÒÇÕÍÅÎÔ ... ] -127 îÅצÄÏÍÉÊ ÐÁÒÁÍÅÔÒ: `-%s'\n÷ÉËÏÒÉÓÔÁÎÎÑ: %s [ -bcdefFilmnqstvVxX ] [ ÁÒÇÕÍÅÎÔ ... ] -128 îÅצÄÏÍÉÊ ÐÁÒÁÍÅÔÒ: `-%s'\n÷ÉËÏÒÉÓÔÁÎÎÑ: %s [ -bcdefilmnqstvVxX ] [ ÁÒÇÕÍÅÎÔ ... ] -129 \nîÅצÒÎÅ ÚÁ×ÅÒÛÅÎÑ: "%s" -130 \nîÅצÒÎÅ %s: '%c' -131 \nðÒÏÐÕÝÅÎÏ ÒÏÚĦÌØÎÉË '%c' ЦÓÌÑ %s "%s" -132 \nîÅÐÏ×ÎÅ %s: "%s" -133 ÷¦ÄÓÕÔÎ¦Ê ÏÐÅÒÁÎÄ ÐÒÁÐÏÒÃÑ -m -134 ÷ÉËÏÒÉÓÔÁÎÎÑ: unlimit [-fh] [̦ͦÔÉ] -135 $%S ÌÉÛÅ ÄÌÑ ÞÉÔÁÎÎÑ -136 îÅÍÁ¤ ÔÁËϧ ÚÁÄÁÞ¦ -137 îÅצÄÏÍÅ ÚÎÁÞÅÎÎÑ ÚͦÎÎϧ colorls: `%c%c' diff --git a/contrib/tcsh/nls/ukrainian/set10 b/contrib/tcsh/nls/ukrainian/set10 deleted file mode 100644 index a406c51..0000000 --- a/contrib/tcsh/nls/ukrainian/set10 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set10,v 1.3 2006/03/02 18:46:48 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/ukrainian/set11 b/contrib/tcsh/nls/ukrainian/set11 deleted file mode 100644 index 4fa15f6..0000000 --- a/contrib/tcsh/nls/ukrainian/set11 +++ /dev/null @@ -1,10 +0,0 @@ -$ $tcsh: set11,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ sh.c -$set 11 -1 õ×ÁÇÁ: ÎÅÍÁ¤ ÄÏÓÔÕÐÕ ÄÏ tty (%s).\n -2 ÷ÓÅ ÝÅ ÎÅÍÁ ËÅÒÕ×ÁÎÎÑ ÚÁÄÁÞÁÍÉ × Ã¦Ê ÏÂÏÌÏÎæ.\n -3 ë¦ÌØ˦ÓÔØ ÌÉÓÔ¦×: %d.\n -4 ë¦ÌØ˦ÓÔØ ÌÉÓÔ¦×: %d (× %s).\n -5 õ ÷ÁÓ ¤ %sÐÏÛÔÁ.\n -6 ÎÏ×Á -7 õ ÷ÁÓ ¤ %sÐÏÛÔÁ × %s.\n diff --git a/contrib/tcsh/nls/ukrainian/set12 b/contrib/tcsh/nls/ukrainian/set12 deleted file mode 100644 index d55bcfa..0000000 --- a/contrib/tcsh/nls/ukrainian/set12 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set12,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ sh.dir.c -$set 12 -1 %s: óÐÒÏÂÕÀ ÐÏÞÁÔÉ Ú "%s"\n diff --git a/contrib/tcsh/nls/ukrainian/set13 b/contrib/tcsh/nls/ukrainian/set13 deleted file mode 100644 index a7f08b3..0000000 --- a/contrib/tcsh/nls/ukrainian/set13 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set13,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ sh.exec.c -$set 13 -1 ÈÅÛ=%-4d dir=%-2d prog=%s\n -2 %d hash buckets of %d bits each\n -3 debug mask = 0x%08x\n -4 %d ÐÏÐÁÄÁÎØ, %d ÐÒÏÍÁȦ×, %d%%\n -5 %S: ×ÂÕÄÏ×ÁÎÁ ËÏÍÁÎÄÁ.\n -6 %S: ëÏÍÁÎÄÕ ÎÅ ÚÎÁÊÄÅÎÏ.\n -7 where: ÓÉÍ×ÏÌ / × ËÏÍÁÎÄÁÈ ÎÅ ÍÁ¤ ÚͦÓÔÕ\n -8 %S ÐÅÒÅÎÁÚÎÁÞÅÎÏ Õ -9 %S ×ÎÕÔÒ¦ÛÎÑ ËÏÍÁÎÄÁ ÏÂÏÌÏÎËÉ\n -10 ÐÒÏÍÁÈÉ ÈÅÛÕ: diff --git a/contrib/tcsh/nls/ukrainian/set14 b/contrib/tcsh/nls/ukrainian/set14 deleted file mode 100644 index faa6ac6..0000000 --- a/contrib/tcsh/nls/ukrainian/set14 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set14,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ sh.file.c -$set 14 -1 \nïÊ!! úÁÂÁÇÁÔÏ %s!!\n -2 ¦ÍÅÎ Õ ÆÁÊ̦ ÐÁÒÏÌ¦× -3 ÆÁÊÌ¦× diff --git a/contrib/tcsh/nls/ukrainian/set15 b/contrib/tcsh/nls/ukrainian/set15 deleted file mode 100644 index 498362f..0000000 --- a/contrib/tcsh/nls/ukrainian/set15 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set15,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ sh.func.c -$set 15 -1 %s: %s: îÅ ÍÏÖÕ %s%s ̦ͦÔ\n -2 ÚÎÑÔÉ -3 ×ÉÓÔÁ×ÉÔÉ -4 \040ÖÏÒÓÔËÉÊ diff --git a/contrib/tcsh/nls/ukrainian/set16 b/contrib/tcsh/nls/ukrainian/set16 deleted file mode 100644 index f5cb670..0000000 --- a/contrib/tcsh/nls/ukrainian/set16 +++ /dev/null @@ -1,13 +0,0 @@ -$ $tcsh: set16,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ sh.lex.c -$set 16 -1 Reset tty pgrp from %d to %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/ukrainian/set17 b/contrib/tcsh/nls/ukrainian/set17 deleted file mode 100644 index f790544..0000000 --- a/contrib/tcsh/nls/ukrainian/set17 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set17,v 1.4 2006/03/02 18:46:48 christos Exp $ -$ sh.proc.c -$set 17 -1 ðïíéìëá: ÏÞ¦ËÕ×ÁÎÎÑ ÆÏÎÏ×ϧ ÚÁÄÁÞ¦!\n -2 úÁ×ÅÒÛÅÎÎÑ %d\n -3 ðïíéìëá: process flushed twice -4 úÁÐÕÝÅÎÏ -5 óÉÇÎÁÌ -6 úÁ×ÅÒÛÅÎÎÑ %-25d -7 úÁ×ÅÒÛÅÎÏ -8 ðïíéìëá: ÓÔÁÔÕÓ=%-9o -9 \040(ÚÁÐÉÓÁÎÏ core) -10 \040(wd: -11 wd ÔÅÐÅÒ: -12 %S: ×ÖŠЦÄצÛÅÎÏ\n -13 %S: ×ÖÅ ÐÒÉÚÕÐÉÎÅÎÏ\n -14 %S: Badly formed number\n diff --git a/contrib/tcsh/nls/ukrainian/set18 b/contrib/tcsh/nls/ukrainian/set18 deleted file mode 100644 index c3d82bf..0000000 --- a/contrib/tcsh/nls/ukrainian/set18 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set18,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ sh.set.c -$set 18 -1 õ×ÁÇÁ: ÚÁÄÏ×ÇÉÊ PATH ÏÂÒ¦ÚÁÎÏ\n diff --git a/contrib/tcsh/nls/ukrainian/set19 b/contrib/tcsh/nls/ukrainian/set19 deleted file mode 100644 index ae57dfa..0000000 --- a/contrib/tcsh/nls/ukrainian/set19 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set19,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ tc.alloc.c -$set 19 -1 nbytes=%d: íÁÌÏ ÐÁÍ'ÑÔ¦\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:\nצÌØÎÏ:\t -9 \nÚÁÎÑÔÏ:\t -10 \n\t÷ÓØÏÇÏ ÚÁÎÑÔÏ: %d, ×ÓØÏÇÏ ×¦ÌØÎÏ: %d\n -11 \túÁÎÑÔÏ ÐÁÍ'ÑÔØ Ú 0x%lx ÄÏ 0x%lx. Real top at 0x%lx\n -12 úÁÎÑÔÏ ÐÁÍ'ÑÔØ Ú 0x%lx ÄÏ 0x%lx (%ld).\n diff --git a/contrib/tcsh/nls/ukrainian/set2 b/contrib/tcsh/nls/ukrainian/set2 deleted file mode 100644 index b25777f..0000000 --- a/contrib/tcsh/nls/ukrainian/set2 +++ /dev/null @@ -1,111 +0,0 @@ -$ $tcsh: set2,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ Signal names -$set 2 -1 îÕÌØÏ×ÉÊ ÓÉÇÎÁÌ -2 Hangup -3 ðÅÒÅÒÉ×ÁÎÎÑ -4 ÷ÉÈ¦Ä -5 îÅËÏÒÅËÔÎÁ ¦ÎÓÔÒÕËæÑn -6 Trace/BPT trap -7 á×ÁÒ¦ÊÎÅ ÚÁ×ÅÒÛÅÎÎÑ -8 IOT trap -9 System Crash Imminent -10 ðÏÍÉÌËÁ ÚÁ×ÅÒÛÅÎÎÑ -11 EMT trap -12 ðÏÍÉÌËÁ ÏÐÅÒÁæ§ Ú ÐÌÁ×ÁÀÞÏÀ ËÏÍÏÀ -13 ÷ÂÉÔÏ -14 óÉÇÎÁÌ ËÏÒÉÓÔÕ×ÁÞÁ 1 -15 óÉÇÎÁÌ ËÏÒÉÓÔÕ×ÁÞÁ 2 -16 ðÏÍÉÌËÁ ÁÄÒÅÓÁæ§ -17 Bus error -18 Program range error -19 Operand range error -20 ðÏÇÁÎÉÊ ÓÉÓÔÅÍÎÉÊ ×ÉËÌÉË -21 ïÂÒÉ× ËÁÎÁÌÕ -22 Alarm clock -23 Terminated -24 úͦÎÁ ÓÔÁÔÕÓÕ ÎÁÝÁÄËÁ -25 óÍÅÒÔØ ÎÁÝÁÄËÁ -26 Apollo-specific fault -27 Child stopped or exited -28 Child exited -29 úÂ¦Ê ÖÉ×ÌÅÎÎÑ -30 ÷ÔÒÁÔÁ ÒÅÓÕÒÓÕ -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 -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 ð¦ÄצÛÅÎÏ (ÓÉÇÎÁÌ) -47 ðÒÉÚÕÐÉÎÅÎÏ (ÓÉÇÎÁÌ) -48 ð¦ÄצÛÅÎÏ -49 ðÒÉÚÕÐÉÎÅÎÏ -50 ðÒÏÄÏ×ÖÅÎÏ -51 ð¦ÄצÛÅÎÏ (tty input) -52 ðÒÉÚÕÐÉÎÅÎÏ (tty input) -53 ð¦ÄצÛÅÎÏ (tty output) -54 ðÒÉÚÕÐÉÎÅÎÏ (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/ukrainian/set20 b/contrib/tcsh/nls/ukrainian/set20 deleted file mode 100644 index 64be44e..0000000 --- a/contrib/tcsh/nls/ukrainian/set20 +++ /dev/null @@ -1,41 +0,0 @@ -$ $tcsh: set20,v 1.3 2006/03/02 18:46:48 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-> ÎÅ ×ÉÚÎÁÞÅÎÏ\n -11 BUG!!! %s isn't bound to anything.\n -12 ÷ÉËÏÒÉÓÔÁÎÎÑ: bindkey [ÐÁÒÁÍÅÔÒÉ] [--] [ëìàþ [ëïíáîäá]]\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 ÷ÉËÏÒÉÓÔÁÎÎÑ: bind [KEY | COMMAND KEY | "emacs" | "vi" | "-a"]\n -37 îÅצÒÎÁ ÆÕÎËÃ¦Ñ -38 %s\t\tÎÅ ×ÉÚÎÁÞÅÎÏ\n diff --git a/contrib/tcsh/nls/ukrainian/set21 b/contrib/tcsh/nls/ukrainian/set21 deleted file mode 100644 index 8d6c3a8..0000000 --- a/contrib/tcsh/nls/ukrainian/set21 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set21,v 1.3 2006/03/02 18:46:48 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/ukrainian/set22 b/contrib/tcsh/nls/ukrainian/set22 deleted file mode 100644 index 534298e..0000000 --- a/contrib/tcsh/nls/ukrainian/set22 +++ /dev/null @@ -1,17 +0,0 @@ -$ $tcsh: set22,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ tc.func.c -$set 22 -1 %S: \t ÐÅÒÅ×ÉÚÎÁÞÅÎÏ ÎÁ -2 \nîÅצÒÎÉÊ ÐÁÒÏÌØ ËÏÒÉÓÔÕ×ÁÞÁ %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 ÓÉÎÔÁËÓÉÞÎÉÊ ÒÏÚÂ¦Ò ËÏÍÁÎÄÎÏÇÏ ÒÑÄËÁ\n -8 ÷É ÓÐÒÁ×Ħ ÈÏÞÅÔÅ ×ÉÄÁÌÉÔÉ ×Ó¦ ÆÁÊÌÉ? [n/y] -9 ÐÒÏÐÕÓËÁ¤ÍÏ ×ÉÄÁÌÅÎÎÑ ×Ó¦È ÆÁÊ̦×!\n -10 ËÏÍÁÎÄÎÉÊ ÒÑÄÏË ÔÅÐÅÒ:\n -11 ÓÉÎÔÁËÓÉÞÎÉÊ ÒÏÚÂ¦Ò ËÏÍÁÎÄÎÏÇÏ ÒÑÄËÁ\n -12 × ÏÄÎÏÍÕ ¦Ú ÓÐÉÓ˦×\n -13 ËÏÍÁÎÄÎÉÊ ÒÑÄÏË ÔÅÐÅÒ:\n -14 yY diff --git a/contrib/tcsh/nls/ukrainian/set23 b/contrib/tcsh/nls/ukrainian/set23 deleted file mode 100644 index f62702b..0000000 --- a/contrib/tcsh/nls/ukrainian/set23 +++ /dev/null @@ -1,34 +0,0 @@ -$ $tcsh: set23,v 1.3 2006/03/02 18:46:48 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 ×ÅÒÓ¦Ñ: %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 îÅצÒÎÉÊ ÔÉÐ ÓÉÓÔÅÍÉ -29 ôÉÐ ÓÉÓÔÅÍÉ ÎÅ ×ÉÚÎÁÞÅÎÏ -30 úÁÂÁÇÁÔÏ ÁÒÇÕÍÅÎÔ¦× -31 îÅצÒÎÉÊ ÁÒÇÕÍÅÎÔ diff --git a/contrib/tcsh/nls/ukrainian/set24 b/contrib/tcsh/nls/ukrainian/set24 deleted file mode 100644 index 80482f6..0000000 --- a/contrib/tcsh/nls/ukrainian/set24 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set24,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ tc.sched.c -$set 24 -1 kludge diff --git a/contrib/tcsh/nls/ukrainian/set25 b/contrib/tcsh/nls/ukrainian/set25 deleted file mode 100644 index 0769521..0000000 --- a/contrib/tcsh/nls/ukrainian/set25 +++ /dev/null @@ -1,6 +0,0 @@ -$ $tcsh: set25,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ tc.sig.c -$set 25 -1 our wait %d\n -2 ÐÏÍÉÌËÁ: bsd_signal(%d) ÓÉÇÎÁÌ ÚÁ ÍÅÖÁÍÉ ¦ÎÔÅÒ×ÁÌÕ\n -3 ÐÏÍÉÌËÁ: bsd_signal(%d) - ÎÅ×ÄÁÞÁ sigaction, ËÏÄ ÐÏÍÉÌËÉ %d\n diff --git a/contrib/tcsh/nls/ukrainian/set26 b/contrib/tcsh/nls/ukrainian/set26 deleted file mode 100644 index 4c28ab2..0000000 --- a/contrib/tcsh/nls/ukrainian/set26 +++ /dev/null @@ -1,15 +0,0 @@ -$ $tcsh: set26,v 1.3 2006/03/02 18:46:48 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 ðïíéìëá! last element is not whotail!\n -4 backward: -5 ðïíéìëá! first element is not whohead!\n -6 new: %s/%s\n -7 ëÏÒÉÓÔÕ×ÁÞ %n %a %l (%m). -8 ëÏÒÉÓÔÕ×ÁÞ %n %a %l. -9 ЦÄ'¤ÄÎÁ×ÓÑ ÄÏ -10 צÄ'¤ÄÎÁ×ÓÑ ×¦Ä -11 ÚÁͦÎÉ× %s ÎÁ -12 ÌÏËÁÌØÎÏ diff --git a/contrib/tcsh/nls/ukrainian/set27 b/contrib/tcsh/nls/ukrainian/set27 deleted file mode 100644 index 2670e90..0000000 --- a/contrib/tcsh/nls/ukrainian/set27 +++ /dev/null @@ -1,8 +0,0 @@ -$ $tcsh: set27,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ tw.comp.c -$set 27 -1 ËÏÍÁÎÄÁ -2 ÒÏÚĦÌØÎÉË -3 ÛÁÂÌÏÎ -4 ÐÒÏͦÖÏË -5 ÚÁ×ÅÒÛÅÎÎÑ diff --git a/contrib/tcsh/nls/ukrainian/set29 b/contrib/tcsh/nls/ukrainian/set29 deleted file mode 100644 index 02c4746..0000000 --- a/contrib/tcsh/nls/ukrainian/set29 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set29,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ tw.help.c -$set 29 -1 ÷¦ÄÓÕÔÎ¦Ê ÆÁÊÌ ÄÏצÄËÉ ÄÌÑ %S\n diff --git a/contrib/tcsh/nls/ukrainian/set3 b/contrib/tcsh/nls/ukrainian/set3 deleted file mode 100644 index 615c9d8..0000000 --- a/contrib/tcsh/nls/ukrainian/set3 +++ /dev/null @@ -1,124 +0,0 @@ -$ $tcsh: set3,v 1.4 2006/03/02 18:46:48 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 -115 Replace just-yanked text with yank from earlier kill -116 (WIN32 only) Copy cut buffer to system clipboard -117 (WIN32 only) Paste clipboard buffer at cursor position -118 (WIN32 only) Convert each '/' in next word to '\\\\' -119 (WIN32 only) Convert each '/' in previous word to '\\\\' -120 (WIN32 only) Page visible console window up -121 (WIN32 only) Page visible console window down diff --git a/contrib/tcsh/nls/ukrainian/set30 b/contrib/tcsh/nls/ukrainian/set30 deleted file mode 100644 index 8b835de..0000000 --- a/contrib/tcsh/nls/ukrainian/set30 +++ /dev/null @@ -1,16 +0,0 @@ -$ $tcsh: set30,v 1.3 2006/03/02 18:46:48 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 ôÕÔ %d %s, ×ÓÅ-ÔÁËÉ ÐÏËÁÚÕ×ÁÔÉ? [n/y] -8 looking = %d\n -9 \n×ÎÕÔÒ¦ÛÎÑ ÐÏÍÉÌËÁ tcsh: ÷ÖÅ Ê ÎÅ ÚÎÁÀ, ÝÏ ÓÁÍÅ Ñ ÛÕËÁÀ!\n -10 ÎÅ ËÁÔÁÌÏÇ -11 ÎÅ ÚÎÁÊÄÅÎÏ -12 ÎÅ ÞÉÔÁ¤ÔØÓÑ -13 yY diff --git a/contrib/tcsh/nls/ukrainian/set31 b/contrib/tcsh/nls/ukrainian/set31 deleted file mode 100644 index f0b8752..0000000 --- a/contrib/tcsh/nls/ukrainian/set31 +++ /dev/null @@ -1,7 +0,0 @@ -$ $tcsh: set31,v 1.3 2006/03/02 18:46:48 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/ukrainian/set4 b/contrib/tcsh/nls/ukrainian/set4 deleted file mode 100644 index a407091..0000000 --- a/contrib/tcsh/nls/ukrainian/set4 +++ /dev/null @@ -1,45 +0,0 @@ -$ $tcsh: set4,v 1.3 2006/03/02 18:46:48 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/ukrainian/set5 b/contrib/tcsh/nls/ukrainian/set5 deleted file mode 100644 index 8540d1d..0000000 --- a/contrib/tcsh/nls/ukrainian/set5 +++ /dev/null @@ -1,4 +0,0 @@ -$ $tcsh: set5,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ ed.chared.c -$set 5 -1 îÅÄÏÓÔÕÐÎÅ ÚÎÁÞÅÎÎÑ: ÓÅÒÅÄΤ ÚÁ×ÁÎÔÁÖÅÎÎÑ\n diff --git a/contrib/tcsh/nls/ukrainian/set6 b/contrib/tcsh/nls/ukrainian/set6 deleted file mode 100644 index a86cef7..0000000 --- a/contrib/tcsh/nls/ukrainian/set6 +++ /dev/null @@ -1,11 +0,0 @@ -$ $tcsh: set6,v 1.3 2006/03/02 18:46:48 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 îÅÍÁ¤ ÓÈÏÖϧ ËÏÍÁÎÄÉ\n -7 îÅÏÄÎÏÚÎÁÞÎÁ ËÏÍÁÎÄÁ\n -8 *** æÁÔÁÌØÎÁ ðïíéìëá ÒÅÄÁËÔÏÒÁ ***\r\n\n diff --git a/contrib/tcsh/nls/ukrainian/set7 b/contrib/tcsh/nls/ukrainian/set7 deleted file mode 100644 index 8a1bcbf..0000000 --- a/contrib/tcsh/nls/ukrainian/set7 +++ /dev/null @@ -1,30 +0,0 @@ -$ $tcsh: set7,v 1.3 2006/03/02 18:46:48 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 ÔÁË -15 Φ -16 ðïíéìëá: cannot delete\r\n -17 DeleteChars: num is riduculous: %d\r\n -18 ðïíéìëá: 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: ×ÉËÏÒÉÓÔÁÎÎÑ ÎÁÓÔÒÏÊÏË ÔÕÐÏÇÏ ÔÅÒͦÎÁÌÕ.\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/ukrainian/set8 b/contrib/tcsh/nls/ukrainian/set8 deleted file mode 100644 index 693f9b0..0000000 --- a/contrib/tcsh/nls/ukrainian/set8 +++ /dev/null @@ -1,5 +0,0 @@ -$ $tcsh: set8,v 1.3 2006/03/02 18:46:48 christos Exp $ -$ ed.term.c -$set 8 -1 îÅצÄÏÍÉÊ ÐÅÒÅÍÉËÁÞ -2 îÅצÒÎÉÊ ÁÒÇÕÍÅÎÔ diff --git a/contrib/tcsh/nls/ukrainian/set9 b/contrib/tcsh/nls/ukrainian/set9 deleted file mode 100644 index 97971f5..0000000 --- a/contrib/tcsh/nls/ukrainian/set9 +++ /dev/null @@ -1,12 +0,0 @@ -$ $tcsh: set9,v 1.3 2006/03/02 18:46:48 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: ðïíéìëá!! 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/patchlevel.h b/contrib/tcsh/patchlevel.h deleted file mode 100644 index f1c5a10..0000000 --- a/contrib/tcsh/patchlevel.h +++ /dev/null @@ -1,14 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/patchlevel.h,v 3.161 2007/03/03 20:01:26 christos Exp $ */ -/* - * patchlevel.h: Our life story. - */ -#ifndef _h_patchlevel -#define _h_patchlevel - -#define ORIGIN "Astron" -#define REV 6 -#define VERS 15 -#define PATCHLEVEL 0 -#define DATE "2007-03-03" - -#endif /* _h_patchlevel */ diff --git a/contrib/tcsh/pathnames.h b/contrib/tcsh/pathnames.h deleted file mode 100644 index 80d86eb..0000000 --- a/contrib/tcsh/pathnames.h +++ /dev/null @@ -1,165 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/pathnames.h,v 3.18 2002/03/08 17:36:46 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. 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 89056f5..0000000 --- a/contrib/tcsh/sh.c +++ /dev/null @@ -1,2364 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.c,v 3.136 2007/02/22 21:57:37 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. 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("$tcsh: sh.c,v 3.136 2007/02/22 21:57:37 christos Exp $") - -#include "tc.h" -#include "ed.h" -#include "tw.h" - -extern int MapsAreInited; -extern int NLSMapsAreInited; - -/* - * 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"; - -struct sigaction parintr; /* Parents interrupt catch */ -struct sigaction parterm; /* Parents terminate catch */ - -#ifdef TESLA -int do_logout = 0; -#endif /* TESLA */ - - -int 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 fast = 0; -static int mflag = 0; -static int prompt = 1; -int enterhist = 0; -int tellwhat = 0; -time_t t_period; -Char *ffile = NULL; -int dolzero = 0; -int insource = 0; -int exitset = 0; -static time_t chktim; /* Time mail last checked */ -char *progname; -int tcsh; - -/* - * 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 OLDSTD; - int SHIN; - int SHOUT; - int SHDIAG; - int intty; - struct whyle *whyles; - Char *gointr; - Char *arginp; - Char *evalp; - Char **evalvec; - Char *alvecp; - Char **alvec; - int onelflg; - int enterhist; - Char **argv; - Char **av; - Char HIST; - int cantell; - struct Bin B; -}; - -static int srccat (Char *, Char *); -#ifndef WINNT_NATIVE -static int srcfile (const char *, int, int, Char **); -#else -int srcfile (const char *, int, int, Char **); -#endif /*WINNT_NATIVE*/ -static void srcunit (int, int, int, Char **); -static void mailchk (void); -#ifndef _PATH_DEFPATH -static Char **defaultpath (void); -#endif -static void record (void); -static void st_save (struct saved_state *, int, int, - Char **, Char **); -static void st_restore (void *); - - int main (int, char **); - -int -main(int argc, char **argv) -{ - int batch = 0; - volatile int nexececho = 0; - int nofile = 0; - volatile int nverbose = 0; - volatile int rdirs = 0; - int quitit = 0; - Char *cp; -#ifdef AUTOLOGOUT - Char *cp2; -#endif - char *tcp, *ttyn; - int f, reenter; - char **tempv; - int osetintr; - struct sigaction oparintr; - -#ifdef WINNT_NATIVE - nt_init(); -#endif /* WINNT_NATIVE */ -#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(dmove(xopen("/tmp/tcsh.trace", - O_WRONLY|O_CREAT|O_LARGEFILE, 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 = xopen(_PATH_DEVNULL, O_RDONLY|O_LARGEFILE)) == -1 && - (f = xopen("/", O_RDONLY|O_LARGEFILE)) == -1) - exit(1); - while (f < 3); - xclose(f); - } - -#ifdef O_TEXT - setmode(0, O_TEXT); -#endif - - osinit(); /* Os dependent initialization */ - - - { - char *t; - - t = strrchr(argv[0], '/'); -#ifdef WINNT_NATIVE - { - char *s = strrchr(argv[0], '\\'); - if (s) - t = s; - } -#endif /* WINNT_NATIVE */ - 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 */ - setcopy(STRhistory, str2short("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(); - /* - * 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'); -#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 != '-') { - char *argv0; - - /* - * Mangle the argv space - */ - tempv[1][0] = '\0'; - tempv[1][1] = '\0'; - tempv[1] = NULL; - argv0 = strspl("-", *tempv); - *tempv = argv0; - argc--; - } - if (loginsh) { - (void) time(&chktim); - setNS(STRloginsh); - } - - 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(CTL_ESC(k)); k++) - continue; - AsciiOnly = MB_CUR_MAX == 1 && 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 = ttyname(SHIN); - xclose(SHIN); - SHIN = xopen(ttyn, O_RDWR|O_LARGEFILE); - 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) - setv(STRtty, cp = SAVE(ttyn + 5), VAR_READWRITE); - else - setv(STRtty, cp = SAVE(ttyn), VAR_READWRITE); - } - else - setv(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 */ - setcopy(STRautologout, STRrootdefautologout, VAR_READWRITE); - else - if (loginsh) - /* users get autologout set to 0 */ - setcopy(STRautologout, 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) { - cp2 = cp2 + 1; - } - else - cp2 = cp; - if (!(((Strncmp(cp2, STRtty, 3) == 0) && Isalpha(cp2[3])) || - Strstr(cp, STRslptssl) != NULL)) { - if (getenv("DISPLAY") == NULL) { - /* NOT on X window shells */ - setcopy(STRautologout, STRdefautologout, VAR_READWRITE); - } - } - } - } -# endif /* convex */ -#endif /* AUTOLOGOUT */ - - sigset_interrupting(SIGALRM, queue_alrmcatch); - - setcopy(STRstatus, STR0, VAR_READWRITE); - - /* - * get and set machine specific environment variables - */ - getmachine(); - - - /* - * Publish the selected echo style - */ -#if ECHO_STYLE != BSD_ECHO - if (tcsh) { -# if ECHO_STYLE == NONE_ECHO - setcopy(STRecho_style, STRnone, VAR_READWRITE); -# endif /* ECHO_STYLE == NONE_ECHO */ -# if ECHO_STYLE == SYSV_ECHO - setcopy(STRecho_style, STRsysv, VAR_READWRITE); -# endif /* ECHO_STYLE == SYSV_ECHO */ -# if ECHO_STYLE == BOTH_ECHO - setcopy(STRecho_style, STRboth, VAR_READWRITE); -# endif /* ECHO_STYLE == BOTH_ECHO */ - } else -#endif /* ECHO_STYLE != BSD_ECHO */ - setcopy(STRecho_style, STRbsd, VAR_READWRITE); - - /* - * 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 - setv(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; - struct passwd *pw; - struct group *gr; - - -#ifdef apollo - int oid = getoid(); - - setv(STRoid, Itoa(oid, 0, 0), VAR_READWRITE); -#endif /* apollo */ - - setv(STRuid, Itoa(uid, 0, 0), VAR_READWRITE); - - setv(STRgid, Itoa(gid, 0, 0), VAR_READWRITE); - - cln = getenv("LOGNAME"); - cus = getenv("USER"); - if (cus != NULL) - setv(STRuser, quote(SAVE(cus)), VAR_READWRITE); - else if (cln != NULL) - setv(STRuser, quote(SAVE(cln)), VAR_READWRITE); - else if ((pw = xgetpwuid(uid)) == NULL) - setcopy(STRuser, str2short("unknown"), VAR_READWRITE); - else - setcopy(STRuser, str2short(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) - setv(STRgroup, quote(SAVE(cgr)), VAR_READWRITE); - else if ((gr = xgetgrgid(gid)) == NULL) - setcopy(STRgroup, str2short("unknown"), VAR_READWRITE); - else - setcopy(STRgroup, str2short(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) { - setv(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) - setNS(STRedit); - - - /* - * still more mutability: make the complete routine automatically add the - * suffix of file names... - */ - setNS(STRaddsuffix); - - /* - * Compatibility with tcsh >= 6.12 by default - */ - setNS(STRcsubstnonl); - - /* - * Random default kill ring size - */ - setcopy(STRkillring, str2short("30"), 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). - */ - - size_t 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)) - setv(STRshell, quote(SAVE(tcp)), VAR_READWRITE); - else - sh_len = 0; - } - if (sh_len == 0) - setcopy(STRshell, STR_SHELLPATH, VAR_READWRITE); - } - -#ifdef _OSD_POSIX /* BS2000 needs this variable set to "SHELL" */ - if ((tcp = getenv("PROGRAM_ENVIRONMENT")) == NULL) - tcp = "SHELL"; - tsetenv(STRPROGRAM_ENVIRONMENT, quote(str2short(tcp))); -#endif /* _OSD_POSIX */ - -#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_NATIVE - { - char *tmp; - Char *tmp2; - if ((tmp = getenv("TMP")) != NULL) { - tmp = xasprintf("%s/%s", tmp, "sh"); - tmp2 = SAVE(tmp); - xfree(tmp); - } - else { - tmp2 = SAVE(""); - } - shtemp = Strspl(tmp2, doldol); /* For << */ - xfree(tmp2); - } -#else /* !WINNT_NATIVE */ - shtemp = Strspl(STRtmpsh, doldol); /* For << */ -#endif /* WINNT_NATIVE */ - - /* - * 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. - */ - sigaction(SIGINT, NULL, &parintr); - sigaction(SIGTERM, NULL, &parterm); - - -#ifdef TCF - /* Enable process migration on ourselves and our progeny */ - (void) signal(SIGMIGRATE, SIG_DFL); -#endif /* TCF */ - - /* - * dspkanji/dspmbyte autosetting - */ - /* PATCH IDEA FROM Issei.Suzuki VERY THANKS */ -#if defined(DSPMBYTE) -#if defined(NLS) && defined(LC_CTYPE) - if (((tcp = setlocale(LC_CTYPE, NULL)) != NULL || (tcp = getenv("LANG")) != NULL) && !adrof(CHECK_MBYTEVAR)) { -#else - if ((tcp = getenv("LANG")) != NULL && !adrof(CHECK_MBYTEVAR)) { -#endif - autoset_dspmbyte(str2short(tcp)); - } -#if defined(WINNT_NATIVE) - else if (!adrof(CHECK_MBYTEVAR)) - nt_autoset_dspmbyte(); -#endif /* WINNT_NATIVE */ -#endif - - fix_version(); /* publish the shell version */ - - if (argc > 1 && strcmp(argv[1], "--version") == 0) { - xprintf("%S\n", varval(STRversion)); - xexit(0); - } - if (argc > 1 && strcmp(argv[1], "--help") == 0) { - xprintf("%S\n\n", varval(STRversion)); - xprintf(CGETS(11, 8, HELP_STRING)); - xexit(0); - } - /* - * 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) - setv(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. - */ - { - int count; - - cp = Strend(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 */ - { - 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': - /* - * 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 = xopen(tempv[0], O_RDONLY|O_LARGEFILE); - if (nofile < 0) { - child = 1; /* So this ... */ - /* ... doesn't return */ - stderror(ERR_SYSTEM, tempv[0], strerror(errno)); - } -#ifdef O_TEXT - setmode(nofile, O_TEXT); -#endif - xfree(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++; - } - - /* - * Call to closem() used to be part of initdesc(). Now called below where - * the script name argument has become stdin. Kernel may have used a file - * descriptor to hold the name of the script (setuid case) and this name - * mustn't be lost by closing the fd too soon. - */ - closem(); - - /* - * 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) - setcopy(STRprompt, STRdeftcshprompt, VAR_READWRITE); - else - setcopy(STRprompt, STRdefcshprompt, VAR_READWRITE); - /* that's a meta-questionmark */ - setcopy(STRprompt2, STRmquestion, VAR_READWRITE); - setcopy(STRprompt3, 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) { - struct sigaction osig; - - **argv = '-'; - if (!quitit) /* Wary! */ - (void) signal(SIGQUIT, SIG_IGN); - pintr_disabled = 1; - sigset_interrupting(SIGINT, queue_pintr); - (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. - */ - sigaction(SIGHUP, NULL, &osig); - if (loginsh || osig.sa_handler != SIG_IGN) - /* exit processing on HUP */ - sigset_interrupting(SIGHUP, queue_phup); -#ifdef SIGXCPU - sigaction(SIGXCPU, NULL, &osig); - if (loginsh || osig.sa_handler != SIG_IGN) - /* exit processing on XCPU */ - sigset_interrupting(SIGXCPU, queue_phup); -#endif -#ifdef SIGXFSZ - sigaction(SIGXFSZ, NULL, &osig); - if (loginsh || osig.sa_handler != SIG_IGN) - /* exit processing on XFSZ */ - sigset_interrupting(SIGXFSZ, queue_phup); -#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) { - struct sigaction old; - - sigaction(SIGTTIN, NULL, &old); - signal(SIGTTIN, SIG_DFL); - (void) kill(0, SIGTTIN); - sigaction(SIGTTIN, &old, NULL); - 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.sa_handler == 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 - */ - sigset_interrupting(SIGCHLD, queue_pchild); - - 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. - */ - osetintr = setintr; - oparintr = parintr; - (void)cleanup_push_mark(); /* There is no outer handler */ - if (setexit() != 0) /* PWP */ - reenter = 1; - else - reenter = 0; - exitset++; - haderr = 0; /* In case second time through */ - if (!fast && reenter == 0) { - /* Will have varval(STRhome) here because set fast if don't */ - { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - setintr = 0;/*FIXRESET:cleanup*/ - /* onintr in /etc/ files has no effect */ - parintr.sa_handler = SIG_IGN;/*FIXRESET: cleanup*/ -#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 - cleanup_until(&pintr_disabled); - 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 (!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 (loginsh || rdirs) - loaddirs(NULL); - } - /* Reset interrupt flag */ - setintr = osetintr; - parintr = oparintr; - exitset--; - - /* 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 */ - } - - /* - * 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"); - xclose(SHIN); - child = 1; -#ifdef TESLA - do_logout = 1; -#endif /* TESLA */ - goodbye(NULL, NULL); - } - else { - xprintf("exit\n"); - } - } - record(); - exitstat(); - return (0); -} - -void -untty(void) -{ -#ifdef BSDJOBS - if (tpgrp > 0 && opgrp != shpgrp) { - (void) setpgid(0, opgrp); - (void) tcsetpgrp(FSHTTY, opgrp); - (void) resetdisc(FSHTTY); - } -#endif /* BSDJOBS */ -} - -void -importpath(Char *cp) -{ - size_t i = 0; - Char *dp; - 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 = xcalloc(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_NATIVE - else if (*dp == '\\') - *dp = '/'; -#endif /* WINNT_NATIVE */ - dp++; - } - pv[i] = 0; - cleanup_push(pv, blk_cleanup); - setq(STRpath, pv, &shvhed, VAR_READWRITE); - cleanup_ignore(pv); - cleanup_until(pv); -} - -/* - * Source to the file which is the catenation of the argument names. - */ -static int -srccat(Char *cp, Char *dp) -{ - if (cp[0] == '/' && cp[1] == '\0') - return srcfile(short2str(dp), (mflag ? 0 : 1), 0, NULL); - else { - Char *ep; - char *ptr; - int rv; - -#ifdef WINNT_NATIVE - ep = Strend(cp); - if (ep != cp && ep[-1] == '/' && dp[0] == '/') /* silly win95 */ - dp++; -#endif /* WINNT_NATIVE */ - - ep = Strspl(cp, dp); - cleanup_push(ep, xfree); - ptr = short2str(ep); - - rv = srcfile(ptr, (mflag ? 0 : 1), 0, NULL); - cleanup_until(ep); - return rv; - } -} - -/* - * Source to a file putting the file descriptor in a safe place (> 2). - */ -#ifndef WINNT_NATIVE -static int -#else -int -#endif /*WINNT_NATIVE*/ -srcfile(const char *f, int onlyown, int flag, Char **av) -{ - int unit; - - if ((unit = xopen(f, O_RDONLY|O_LARGEFILE)) == -1) - return 0; -#ifdef O_TEXT - setmode(unit, O_TEXT); -#endif - cleanup_push(&unit, open_cleanup); - unit = dmove(unit, -1); - cleanup_ignore(&unit); - cleanup_until(&unit); - - (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(struct saved_state *st, int unit, int hflg, Char **al, Char **av) -{ - st->insource = insource; - st->SHIN = SHIN; - /* Want to preserve the meaning of "source file >output". - * Save old descriptors, move new 0,1,2 to safe places and assign - * them to SH* and let process() redo 0,1,2 from them. - * - * The macro returns true if d1 and d2 are good and they point to - * different things. If you don't avoid saving duplicate - * descriptors, you really limit the depth of "source" recursion - * you can do because of all the open file descriptors. -IAN! - */ -#define NEED_SAVE_FD(d1,d2) \ - (fstat(d1, &s1) != -1 && fstat(d2, &s2) != -1 \ - && (s1.st_ino != s2.st_ino || s1.st_dev != s2.st_dev) ) - - st->OLDSTD = st->SHOUT = st->SHDIAG = -1;/* test later to restore these */ - if (didfds) { - struct stat s1, s2; - if (NEED_SAVE_FD(0,OLDSTD)) { - st->OLDSTD = OLDSTD; - OLDSTD = dmove(0, -1); - (void)close_on_exec(OLDSTD, 1); - } - if (NEED_SAVE_FD(1,SHOUT)) { - st->SHOUT = SHOUT; - SHOUT = dmove(1, -1); - (void)close_on_exec(SHOUT, 1); - } - if (NEED_SAVE_FD(2,SHDIAG)) { - st->SHDIAG = SHDIAG; - SHDIAG = dmove(2, -1); - (void)close_on_exec(SHDIAG, 1); - } - donefds(); - } - - 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 && vp->vec != NULL) - st->argv = saveblk(vp->vec); - else - st->argv = NULL; - setq(STRargv, saveblk(av), &shvhed, VAR_READWRITE); - } - else - st->argv = NULL; - st->av = av; - - 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(void *xst) -{ - struct saved_state *st; - - st = xst; - if (st->SHIN == -1) - return; - - /* Reset input arena */ - { - int i; - Char** nfbuf = fbuf; - int nfblocks = fblocks; - - fblocks = 0; - fbuf = NULL; - for (i = 0; i < nfblocks; i++) - xfree(nfbuf[i]); - xfree(nfbuf); - } - cpybin(B, st->B); - - xclose(SHIN); - - insource = st->insource; - SHIN = st->SHIN; - if (st->OLDSTD != -1) - xclose(OLDSTD), OLDSTD = st->OLDSTD; - if (st->SHOUT != -1) - xclose(SHOUT), SHOUT = st->SHOUT; - if (st->SHDIAG != -1) - xclose(SHDIAG), SHDIAG = st->SHDIAG; - 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 (st->av != NULL && *st->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(int unit, int onlyown, int hflg, Char **av) -{ - struct saved_state st; - - st.SHIN = -1; /* st_restore checks this */ - - if (unit < 0) - return; - - if (onlyown) { - struct stat stb; - - if (fstat(unit, &stb) < 0) { - xclose(unit); - return; - } - } - - /* Does nothing before st_save() because st.SHIN == -1 */ - cleanup_push(&st, st_restore); - if (setintr) { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - - /* 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) { - cleanup_until(&pintr_disabled); - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - - process(0); /* 0 -> blow away on errors */ - - /* Restore the old state */ - cleanup_until(&st); -} - - -/*ARGSUSED*/ -void -goodbye(Char **v, struct command *c) -{ - USE(v); - USE(c); - record(); - - if (loginsh) { - size_t omark; - sigset_t set; - - signal(SIGQUIT, SIG_IGN); - sigaddset(&set, SIGQUIT); - sigprocmask(SIG_UNBLOCK, &set, NULL); - signal(SIGINT, SIG_IGN); - sigaddset(&set, SIGINT); - signal(SIGTERM, SIG_IGN); - sigaddset(&set, SIGTERM); - signal(SIGHUP, SIG_IGN); - sigaddset(&set, SIGHUP); - sigprocmask(SIG_UNBLOCK, &set, NULL); - phup_disabled = 1; - setintr = 0; /* No interrupts after "logout" */ - /* Trap errors inside .logout */ - omark = cleanup_push_mark(); - if (setexit() == 0) { - if (!(adrof(STRlogout))) - setcopy(STRlogout, 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 */ - } - cleanup_pop_mark(omark); - } - exitstat(); -} - -void -exitstat(void) -{ -#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 - */ -void -phup(void) -{ - if (loginsh) { - setcopy(STRlogout, 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(SIGHUP); -} - -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) */ - -void -pintr(void) -{ - just_signaled = 1; - pintr1(1); -} - -void -pintr1(int wantnl) -{ - if (setintr) { - if (pjobs) { - pjobs = 0; - xputchar('\n'); - dojobs(jobargv, NULL); - stderror(ERR_NAME | ERR_INTR); - } - } - /* MH - handle interrupted completions specially */ - { - if (InsideCompletion) - stderror(ERR_SILENT); - } - /* JV - Make sure we shut off inputl */ - { - (void) Cookedmode(); - GettingInput = 0; - } - drainoline(); -#ifdef HAVE_GETPWENT - (void) endpwent(); -#endif - - /* - * 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); - 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. - */ -void -process(int catch) -{ - jmp_buf_t osetexit; - /* PWP: This might get nuked my longjmp so don't make it a register var */ - size_t omark; - - getexit(osetexit); - omark = cleanup_push_mark(); - exitset++; - for (;;) { - struct command *t; - int hadhist, old_pintr_disabled; - - (void) setexit(); - pendjob(); - - justpr = enterhist; /* execute if not entering history */ - - if (haderr) { - if (!catch) { - /* unwind */ - doneinp = 0; - cleanup_pop_mark(omark); - 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(); - 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 == TCSH_F_SEEK) - printprompt(0, NULL); - flush(); - setalarm(1); - } - if (seterr) { - xfree(seterr); - seterr = NULL; - } - - /* - * Interruptible during interactive reads - */ - if (setintr) - pintr_push_enable(&old_pintr_disabled); - hadhist = lex(¶ml); - if (setintr) - cleanup_until(&old_pintr_disabled); - cleanup_push(¶ml, lex_cleanup); - - /* - * Echo not only on VERBOSE, but also with history expansion. If there - * is a lexical error then we forego history echo. - */ - if ((hadhist && !seterr && intty && !tellwhat && !Expand && !whyles) || - adrof(STRverbose)) { - int odidfds = didfds; - haderr = 1; - didfds = 0; - prlex(¶ml); - flush(); - haderr = 0; - didfds = odidfds; - } - (void) alarm(0); /* Autologout OFF */ - alrmcatch_disabled = 1; - - /* - * 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) - goto cmd_done; - - /* - * If had a tellwhat from twenex() then do - */ - if (tellwhat) { - (void) tellmewhat(¶ml, NULL); - goto cmd_done; - } - - 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. - */ - t = syntax(paraml.next, ¶ml, 0); - cleanup_push(t, syntax_cleanup); - if (seterr) - stderror(ERR_OLD); - - postcmd(); - /* - * 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, TRUE); - - /* - * Made it! - */ -#ifdef SIG_WINDOW - if (windowchg || (catch && intty && !whyles && !tellwhat)) { - (void) check_window_size(0); /* for window systems */ - } -#endif /* SIG_WINDOW */ - setcopy(STR_, InputBuf, VAR_READWRITE | VAR_NOGLOB); - cmd_done: - cleanup_until(¶ml); - } - exitset--; - cleanup_pop_mark(omark); - resexit(osetexit); -} - -/*ARGSUSED*/ -void -dosource(Char **t, struct command *c) -{ - Char *f; - int hflg = 0; - char *file; - - 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); - file = strsave(short2str(f)); - cleanup_push(file, xfree); - xfree(f); - t = glob_all_or_error(t); - if ((!srcfile(file, 0, hflg, t)) && (!hflg) && (!bequiet)) - stderror(ERR_SYSTEM, file, strerror(errno)); - cleanup_until(file); -} - -/* - * 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(void) -{ - struct varent *v; - Char **vp; - time_t t; - int intvl, cnt; - struct stat stb; - int new; - - v = adrof(STRmail); - if (v == NULL || v->vec == NULL) - 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; - struct stat stc; - - tempfilename = xasprintf("%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)) { - xfree(tempfilename); - continue; - } - - mailbox = opendir(mboxdir); - xfree(tempfilename); - if (mailbox == 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 { - char *type; - - if (stb.st_size == 0 || stb.st_atime > stb.st_mtime || - (stb.st_atime <= chktim && stb.st_mtime <= chktim) || - (loginsh && !new)) - continue; - type = strsave(new ? CGETS(11, 6, "new ") : ""); - cleanup_push(type, xfree); - if (cnt == 1) - xprintf(CGETS(11, 5, "You have %smail.\n"), type); - else - xprintf(CGETS(11, 7, "You have %smail in %s.\n"), type, filename); - cleanup_until(type); - } - } - 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 return home directory of the user, or NULL. - */ -Char * -gethdir(const Char *home) -{ - Char *h; - - /* - * Is it us? - */ - if (*home == '\0') { - if ((h = varval(STRhome)) != STRNULL) - return Strsave(h); - else - return NULL; - } - - /* - * Look in the cache - */ - if ((h = gettilde(home)) == NULL) - return NULL; - else - return Strsave(h); -} - -/* - * Move the initial descriptors to their eventual - * resting places, closing all other units. - */ -void -initdesc(void) -{ -#ifdef NLS_BUGS -#ifdef NLS_CATALOGS - nlsclose(); -#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); -#ifdef NLS_BUGS -#ifdef NLS_CATALOGS - nlsinit(); -#endif /* NLS_CATALOGS */ -#endif /* NLS_BUGS */ -} - - -void -#ifdef PROF -done(int i) -#else -xexit(int i) -#endif -{ -#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) - nlsclose(); -#endif /* NLS_CATALOGS */ -#ifdef WINNT_NATIVE - nt_cleanup(); -#endif /* WINNT_NATIVE */ - _exit(i); -} - -#ifndef _PATH_DEFPATH -static Char ** -defaultpath(void) -{ - char *ptr; - Char **blk, **blkp; - struct stat stb; - - blkp = blk = xmalloc(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(void) -{ - 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 ee93c4f..0000000 --- a/contrib/tcsh/sh.char.c +++ /dev/null @@ -1,1368 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.char.c,v 3.19 2006/03/02 18:46:44 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. 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("$tcsh: sh.char.c,v 3.19 2006/03/02 18:46:44 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, -}; - -unsigned short _mbmap_big5[256] = { -/* This is latest big5 charmap, so called "Big5+" */ -/* first byte 0x81 - 0xfe */ -/* second byte 0x40 - 0x7e, 0x80 - 0xfe */ -/* 0x00 - 0x3f = 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, -/* 0x40 - 0x7e = 2 */ - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, - /* 0x7f = 0 */ - _MB2, _MB2, _MB2, 0, -/* 0x80 = 2, 0x81 - 0xfe = 3 */ - _MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, - /* 0xff = 0 */ - _MB1|_MB2, _MB1|_MB2, _MB1|_MB2, 0, -}; - -unsigned short _mbmap_utf8[256] = { -/* utf8 uses up to 6 bytes */ -/* first byte 0xc0 - 0xfd */ -/* any further bytes 0x80 - 0xbf */ -/* 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 - bf : all _MB2 */ - _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, - _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, _MB2, -/* c0 - fc : all _MB1 */ - _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, - _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, - _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, - _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, - _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, - _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, - _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, -/* f8 f9 fa fb fc fd fe ff*/ - _MB1, _MB1, _MB1, _MB1, _MB1, _MB1, 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*/ - -#ifdef __MVS__ -/* - The IBM 1047 coded char set to/from ISO 8859-1 mapping differs from - the POSIX-BC mapping in several places - */ -unsigned short _toascii[256] = { - 0x00, 0x01, 0x02, 0x03, 0x9c, 0x09, 0x86, 0x7f, - 0x97, 0x8d, 0x8e, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, - 0x10, 0x11, 0x12, 0x13, 0x9d, 0x0a, 0x08, 0x87, - 0x18, 0x19, 0x92, 0x8f, 0x1c, 0x1d, 0x1e, 0x1f, - 0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x17, 0x1b, - 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x05, 0x06, 0x07, - 0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04, - 0x98, 0x99, 0x9a, 0x9b, 0x14, 0x15, 0x9e, 0x1a, - 0x20, 0xa0, 0xe2, 0xe4, 0xe0, 0xe1, 0xe3, 0xe5, - 0xe7, 0xf1, 0xa2, 0x2e, 0x3c, 0x28, 0x2b, 0x7c, - 0x26, 0xe9, 0xea, 0xeb, 0xe8, 0xed, 0xee, 0xef, - 0xec, 0xdf, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x5e, - 0x2d, 0x2f, 0xc2, 0xc4, 0xc0, 0xc1, 0xc3, 0xc5, - 0xc7, 0xd1, 0xa6, 0x2c, 0x25, 0x5f, 0x3e, 0x3f, - 0xf8, 0xc9, 0xca, 0xcb, 0xc8, 0xcd, 0xce, 0xcf, - 0xcc, 0x60, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22, - 0xd8, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, - 0x68, 0x69, 0xab, 0xbb, 0xf0, 0xfd, 0xfe, 0xb1, - 0xb0, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70, - 0x71, 0x72, 0xaa, 0xba, 0xe6, 0xb8, 0xc6, 0xa4, - 0xb5, 0x7e, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, - 0x79, 0x7a, 0xa1, 0xbf, 0xd0, 0x5b, 0xde, 0xae, - 0xac, 0xa3, 0xa5, 0xb7, 0xa9, 0xa7, 0xb6, 0xbc, - 0xbd, 0xbe, 0xdd, 0xa8, 0xaf, 0x5d, 0xb4, 0xd7, - 0x7b, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, - 0x48, 0x49, 0xad, 0xf4, 0xf6, 0xf2, 0xf3, 0xf5, - 0x7d, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50, - 0x51, 0x52, 0xb9, 0xfb, 0xfc, 0xf9, 0xfa, 0xff, - 0x5c, 0xf7, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, - 0x59, 0x5a, 0xb2, 0xd4, 0xd6, 0xd2, 0xd3, 0xd5, - 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, - 0x38, 0x39, 0xb3, 0xdb, 0xdc, 0xd9, 0xda, 0x9f, -}; -unsigned short _toebcdic[256] = { - 0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f, - 0x16, 0x05, 0x15, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, - 0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26, - 0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f, - 0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d, - 0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61, - 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, - 0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f, - 0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, - 0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, - 0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, - 0xe7, 0xe8, 0xe9, 0xad, 0xe0, 0xbd, 0x5f, 0x6d, - 0x79, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, - 0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, - 0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, - 0xa7, 0xa8, 0xa9, 0xc0, 0x4f, 0xd0, 0xa1, 0x07, - 0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x06, 0x17, - 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x09, 0x0a, 0x1b, - 0x30, 0x31, 0x1a, 0x33, 0x34, 0x35, 0x36, 0x08, - 0x38, 0x39, 0x3a, 0x3b, 0x04, 0x14, 0x3e, 0xff, - 0x41, 0xaa, 0x4a, 0xb1, 0x9f, 0xb2, 0x6a, 0xb5, - 0xbb, 0xb4, 0x9a, 0x8a, 0xb0, 0xca, 0xaf, 0xbc, - 0x90, 0x8f, 0xea, 0xfa, 0xbe, 0xa0, 0xb6, 0xb3, - 0x9d, 0xda, 0x9b, 0x8b, 0xb7, 0xb8, 0xb9, 0xab, - 0x64, 0x65, 0x62, 0x66, 0x63, 0x67, 0x9e, 0x68, - 0x74, 0x71, 0x72, 0x73, 0x78, 0x75, 0x76, 0x77, - 0xac, 0x69, 0xed, 0xee, 0xeb, 0xef, 0xec, 0xbf, - 0x80, 0xfd, 0xfe, 0xfb, 0xfc, 0xba, 0xae, 0x59, - 0x44, 0x45, 0x42, 0x46, 0x43, 0x47, 0x9c, 0x48, - 0x54, 0x51, 0x52, 0x53, 0x58, 0x55, 0x56, 0x57, - 0x8c, 0x49, 0xcd, 0xce, 0xcb, 0xcf, 0xcc, 0xe1, - 0x70, 0xdd, 0xde, 0xdb, 0xdc, 0x8d, 0x8e, 0xdf -}; -#endif /*__MVS__*/ diff --git a/contrib/tcsh/sh.char.h b/contrib/tcsh/sh.char.h deleted file mode 100644 index de2b5c0..0000000 --- a/contrib/tcsh/sh.char.h +++ /dev/null @@ -1,275 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.char.h,v 3.32 2006/09/26 16:44:37 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. 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> -# ifdef WIDE_STRINGS -# ifdef HAVE_WCTYPE_H -# include <wctype.h> -# else -# include <wchar.h> -# endif -# endif -#endif - -typedef unsigned char tcshuc; -#ifdef _MINIX -# undef _SP -#endif /* _MINIX */ -extern unsigned short _cmap[]; -#if defined(DSPMBYTE) -# 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[]; -extern unsigned short _mbmap_big5[]; -extern unsigned short _mbmap_utf8[]; -/* 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, _, or locale-specific */ -#define _UP 0x0400 /* A-Z, or locale-specific */ -#define _DOW 0x0800 /* a-z, or locale-specific */ -#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 */ - -#ifdef IS_ASCII -# define ASC(ch) (ch) -# define CTL_ESC(ch) (ch) -#else -# ifdef _OSD_POSIX -/* "BS2000 OSD" is a POSIX on a main frame using a EBCDIC char set */ -# include <ascii_ebcdic.h> -# else -/* "OS/390 USS" is a POSIX on a main frame using an IBM1047 char set */ -# endif - 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)] -#endif /*IS_ASCII*/ - -#ifdef WIDE_STRINGS -# define cmap(c, bits) \ - (((c) < 0) ? 0 : \ - ((c) & QUOTE) || (c) >= 0x0080 ? 0 : (_cmap[(tcshuc)ASC(c)] & (bits))) -#elif defined(SHORT_STRINGS) && defined(KANJI) -# define cmap(c, bits) \ - (((c) < 0) ? 0 : \ - (((c) & QUOTE) || ((ASC(c) & 0x80) && adrof(STRnokanji))) ? \ - 0 : (_cmap[(tcshuc)ASC(c)] & (bits))) -#else /* SHORT_STRINGS && KANJI */ -# define cmap(c, bits) \ - (((c) < 0) ? 0 : \ - ((c) & QUOTE) ? 0 : (_cmap[(tcshuc)ASC(c)] & (bits))) -#endif /* SHORT_STRINGS && KANJI */ - -#define isglob(c) cmap((c), _GLOB) -#define isspc(c) cmap((c), _SP) -#define ismeta(c) cmap((c), _META) -#define iscmdmeta(c) cmap((c), _CMD) -#ifdef WIDE_STRINGS -#define letter(c) (((c) & QUOTE) ? 0 : \ - (iswalpha((tcshuc) (c)) || (c) == '_')) -#define alnum(c) (((c) & QUOTE) ? 0 : \ - (iswalnum((tcshuc) (c)) || (c) == '_')) -#else -#define letter(c) (((Char)(c) & QUOTE) ? 0 : \ - (isalpha((tcshuc) (c)) || (c) == '_')) -#define alnum(c) (((Char)(c) & QUOTE) ? 0 : \ - (isalnum((tcshuc) (c)) || (c) == '_')) -#endif - -#if defined(DSPMBYTE) -# define IsmbyteU(c) (Ismbyte1((Char)(c))||(Ismbyte2((Char)(c))&&((c)&0200))) -#endif - -#ifdef NLS -# ifdef WIDE_STRINGS -# define Isspace(c) (((c) & QUOTE) ? 0 : iswspace(c)) -# define Isdigit(c) (((c) & QUOTE) ? 0 : iswdigit(c)) -# define Isalpha(c) (((c) & QUOTE) ? 0 : iswalpha(c)) -# define Islower(c) (((c) & QUOTE) ? 0 : iswlower(c)) -# define Isupper(c) (((c) & QUOTE) ? 0 : iswupper(c)) -# define Tolower(c) (((c) & QUOTE) ? 0 : (wchar_t)towlower(c)) -# define Toupper(c) (((c) & QUOTE) ? 0 : (wchar_t)towupper(c)) -# define Isxdigit(c) (((c) & QUOTE) ? 0 : iswxdigit(c)) -# define Isalnum(c) (((c) & QUOTE) ? 0 : iswalnum(c)) -# define Iscntrl(c) (((c) & QUOTE) ? 0 : iswcntrl(c)) -# define Isprint(c) (((c) & QUOTE) ? 0 : iswprint(c)) -# define Ispunct(c) (((c) & QUOTE) ? 0 : iswpunct(c)) -# elif defined (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_NATIVE -# 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_NATIVE */ -# 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_NATIVE */ -# 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)) -# define Tolower(c) (_cmap_lower[ASC(c)]) -# define Toupper(c) (_cmap_upper[ASC(c)]) -# 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 41cddba..0000000 --- a/contrib/tcsh/sh.decls.h +++ /dev/null @@ -1,432 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.decls.h,v 3.53 2006/08/24 20:56:31 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. 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 Char *gethdir (const Char *); -extern void dosource (Char **, struct command *); -extern void exitstat (void); -extern void goodbye (Char **, struct command *); -extern void importpath (Char *); -extern void initdesc (void); -extern void pintr (void); -extern void pintr1 (int); -extern void phup (void); -extern void process (int); -extern void untty (void); -#ifdef PROF -extern void done (int); -#else -extern void xexit (int); -#endif - -/* - * sh.dir.c - */ -extern void dinit (Char *); -extern void dodirs (Char **, struct command *); -extern Char *dcanon (Char *, Char *); -extern void dtildepr (Char *); -extern void dtilde (void); -extern void dochngd (Char **, struct command *); -extern Char *dnormalize (const Char *, int); -extern void dopushd (Char **, struct command *); -extern void dopopd (Char **, struct command *); -extern void dfree (struct directory *); -extern void dsetstack (void); -extern const Char *getstakd (int); -extern void recdirs (Char *, int); -extern void loaddirs (Char *); - -/* - * sh.dol.c - */ -extern void Dfix (struct command *); -extern Char *Dfix1 (Char *); -extern void heredoc (Char *); - -/* - * sh.err.c - */ -extern void reset (void); -extern void cleanup_push_internal(void *, void (*fn) (void *) -#ifdef CLEANUP_DEBUG - , const char *, size_t -#define cleanup_push(v, f) cleanup_push_internal(v, f, __FILE__, __LINE__) -#else -#define cleanup_push(v, f) cleanup_push_internal(v, f) -#endif -); -extern void cleanup_ignore(void *); -extern void cleanup_until (void *); -extern void cleanup_until_mark(void); -extern size_t cleanup_push_mark(void); -extern void cleanup_pop_mark(size_t); -extern void open_cleanup(void *); -extern void opendir_cleanup(void *); -extern void sigint_cleanup(void *); -extern void sigprocmask_cleanup(void *); -extern void xfree_indirect(void *); -extern void errinit (void); -extern void seterror (unsigned int, ...); -extern void stderror (unsigned int, ...); - -/* - * sh.exec.c - */ -extern void doexec (struct command *, int); -extern void dohash (Char **, struct command *); -extern void dounhash (Char **, struct command *); -extern void execash (Char **, struct command *); -extern void hashstat (Char **, struct command *); -extern void xechoit (Char **); -extern int executable (const Char *, const Char *, int); -extern int tellmewhat (struct wordent *, Char **); -extern void dowhere (Char **, struct command *); -extern int find_cmd (Char *, int); - -/* - * sh.exp.c - */ -extern Char *filetest (Char *, Char ***, int); -extern int expr (Char ***); -extern int exp0 (Char ***, int); - -/* - * sh.file.c - */ -#if defined(FILEC) && defined(TIOCSTI) -extern size_t tenex (Char *, size_t); -#endif - -/* - * sh.func.c - */ -extern void tsetenv (const Char *, const Char *); -extern void Unsetenv (Char *); -extern void doalias (Char **, struct command *); -extern void dobreak (Char **, struct command *); -extern void docontin (Char **, struct command *); -extern void doecho (Char **, struct command *); -extern void doelse (Char **, struct command *); -extern void doend (Char **, struct command *); -extern void doeval (Char **, struct command *); -extern void doexit (Char **, struct command *); -extern void doforeach (Char **, struct command *); -extern void doglob (Char **, struct command *); -extern void dogoto (Char **, struct command *); -extern void doif (Char **, struct command *); -extern void dolimit (Char **, struct command *); -extern void dologin (Char **, struct command *); -extern void dologout (Char **, struct command *); -#ifdef NEWGRP -extern void donewgrp (Char **, struct command *); -#endif -extern void donohup (Char **, struct command *); -extern void dohup (Char **, struct command *); -extern void doonintr (Char **, struct command *); -extern void doprintenv (Char **, struct command *); -extern void dorepeat (Char **, struct command *); -extern void dofiletest (Char **, struct command *); -extern void dosetenv (Char **, struct command *); -extern void dosuspend (Char **, struct command *); -extern void doswbrk (Char **, struct command *); -extern void doswitch (Char **, struct command *); -extern void doumask (Char **, struct command *); -extern void dounlimit (Char **, struct command *); -extern void dounsetenv (Char **, struct command *); -extern void dowhile (Char **, struct command *); -extern void dozip (Char **, struct command *); -extern void func (struct command *, - const struct biltins *); -extern void gotolab (Char *); -extern const struct biltins *isbfunc (struct command *); -extern void prvars (void); -extern int srchx (Char *); -extern void unalias (Char **, struct command *); -extern void wfree (void); -extern void dobuiltins (Char **, struct command *); -extern void reexecute (struct command *); - -/* - * sh.glob.c - */ -extern Char *globequal (Char *); -extern Char **dobackp (Char *, int); -extern Char *globone (Char *, int); -extern int Gmatch (const Char *, const Char *); -extern int Gnmatch (const Char *, const Char *, - const Char **); -extern Char **globall (Char **, int); -extern Char **glob_all_or_error(Char **); -extern void rscan (Char **, void (*)(Char)); -extern int tglob (Char **); -extern void trim (Char **); - -#if !defined(WINNT_NATIVE) && defined(NLS_CATALOGS) -extern char *xcatgets (nl_catd, int, int, const char *); -#if defined(HAVE_ICONV) && defined(HAVE_NL_LANGINFO) -extern char *iconv_catgets (nl_catd, int, int, const char *); -#endif -#endif -extern void nlsinit (void); -extern void nlsclose (void); -extern int t_pmatch (const Char *, const Char *, - const Char **, int); - -/* - * sh.hist.c - */ -extern void dohist (Char **, struct command *); -extern struct Hist *enthist (int, struct wordent *, int, int); -extern void savehist (struct wordent *, int); -extern char *fmthist (int, ptr_t); -extern void rechist (Char *, int); -extern void loadhist (Char *, int); - -/* - * sh.init.c - */ -extern void mesginit (void); - -/* - * sh.lex.c - */ -extern void addla (Char *); -extern void bseek (struct Ain *); -extern void btell (struct Ain *); -extern void btoeof (void); -extern void copylex (struct wordent *, struct wordent *); -extern Char *domod (Char *, Char); -extern void freelex (struct wordent *); -extern int lex (struct wordent *); -extern void lex_cleanup (void *); -extern void prlex (struct wordent *); -extern eChar readc (int); -extern void settell (void); -extern void unreadc (Char); - - -/* - * sh.misc.c - */ -extern int any (const char *, Char); -extern Char **blkcpy (Char **, Char **); -extern void blkfree (Char **); -extern void blk_cleanup (void *); -extern void blk_indirect_cleanup(void *); -extern int blklen (Char **); -extern void blkpr (Char *const *); -extern Char *blkexpand (Char *const *); -extern Char **blkspl (Char **, Char **); -extern void closem (void); -#ifndef CLOSE_ON_EXEC -extern void closech (void); -#endif /* !CLOSE_ON_EXEC */ -extern Char **copyblk (Char **); -extern int dcopy (int, int); -extern int dmove (int, int); -extern void donefds (void); -extern Char lastchr (Char *); -extern void lshift (Char **, int); -extern int number (Char *); -extern int prefix (const Char *, const Char *); -extern Char **saveblk (Char **); -extern void setzero (void *, size_t); -extern Char *strip (Char *); -extern Char *quote (Char *); -extern const Char *quote_meta (struct Strbuf *, const Char *); -extern char *strnsave (const char *, size_t); -extern char *strsave (const char *); -extern void udvar (Char *); -#ifndef POSIX -extern char *strstr (const char *, const char *); -#endif /* !POSIX */ -extern char *strspl (const char *, const char *); -extern char *strend (const char *); -extern char *areadlink (const char *); -extern void xclose (int); -extern void xclosedir (DIR *); -extern int xcreat (const char *, mode_t); -extern struct group *xgetgrgid (gid_t); -extern struct passwd *xgetpwnam (const char *); -extern struct passwd *xgetpwuid (uid_t); -extern int xopen (const char *, int, ...); -extern ssize_t xread (int, void *, size_t); -extern int xtcsetattr (int, int, const struct termios *); -extern ssize_t xwrite (int, const void *, size_t); - -/* - * sh.parse.c - */ -extern void alias (struct wordent *); -extern void freesyn (struct command *); -extern struct command *syntax (const struct wordent *, - const struct wordent *, int); -extern void syntax_cleanup(void *); - -/* - * sh.print.c - */ -extern void drainoline (void); -extern void flush (void); -#ifdef BSDTIMES -extern void pcsecs (unsigned long); -#else /* !BSDTIMES */ -# ifdef POSIX -extern void pcsecs (clock_t); -# else /* !POSIX */ -extern void pcsecs (time_t); -# endif /* !POSIX */ -#endif /* BSDTIMES */ -#ifdef BSDLIMIT -extern void psecs (unsigned long); -#endif /* BSDLIMIT */ -extern int putpure (int); -extern int putraw (int); -extern void xputchar (int); -#ifdef WIDE_STRINGS -extern void putwraw (Char); -extern void xputwchar (Char); -#else -# define putwraw(C) putraw(C) -# define xputwchar(C) xputchar(C) -#endif -extern void output_raw_restore(void *); - - -/* - * sh.proc.c - */ -extern void dobg (Char **, struct command *); -extern void dobg1 (Char **, struct command *); -extern void dofg (Char **, struct command *); -extern void dofg1 (Char **, struct command *); -extern void dojobs (Char **, struct command *); -extern void dokill (Char **, struct command *); -extern void donotify (Char **, struct command *); -extern void dostop (Char **, struct command *); -extern void dowait (Char **, struct command *); -extern void palloc (pid_t, struct command *); -extern void panystop (int); -extern void pchild (void); -extern void pendjob (void); -extern pid_t pfork (struct command *, int); -extern void pgetty (int, pid_t); -extern void pjwait (struct process *); -extern void pnote (void); -extern void psavejob (void); -extern void psavejob_cleanup(void *); -extern int pstart (struct process *, int); -extern void pwait (void); -extern struct process *pfind (Char *); - -/* - * sh.sem.c - */ -extern void execute (struct command *, int, int *, - int *, int); -extern void mypipe (int *); - -/* - * sh.set.c - */ -extern struct varent *adrof1 (const Char *, struct varent *); -extern void doset (Char **, struct command *); -extern void dolet (Char **, struct command *); -extern Char *putn (int); -extern int getn (Char *); -extern Char *value1 (Char *, struct varent *); -extern void setcopy (const Char *, const Char *, int); -extern void setv (const Char *, Char *, int); -extern void set1 (const Char *, Char **, - struct varent *, int); -extern void setq (const Char *, Char **, - struct varent *, int); -extern void unset (Char **, struct command *); -extern void unset1 (Char *[], struct varent *); -extern void unsetv (Char *); -extern void setNS (Char *); -extern void shift (Char **, struct command *); -extern void plist (struct varent *, int); -extern Char *unparse (struct command *); -#if defined(DSPMBYTE) -extern void update_dspmbyte_vars (void); -extern void autoset_dspmbyte (const Char *); -#endif - -/* - * sh.time.c - */ -extern void donice (Char **, struct command *); -extern void dotime (Char **, struct command *); -#ifdef BSDTIMES -extern void prusage (struct sysrusage *, - struct sysrusage *, - timeval_t *, timeval_t *); -extern void ruadd (struct sysrusage *, - struct sysrusage *); -#else /* BSDTIMES */ -# ifdef _SEQUENT_ -extern void prusage (struct process_stats *, - struct process_stats *, - timeval_t *, timeval_t *); -extern void ruadd (struct process_stats *, - struct process_stats *); -# else /* !_SEQUENT_ */ -# ifdef POSIX -extern void prusage (struct tms *, struct tms *, - clock_t, clock_t); -# else /* !POSIX */ -extern void prusage (struct tms *, struct tms *, - time_t, time_t); -# endif /* !POSIX */ -# endif /* !_SEQUENT_ */ -#endif /* BSDTIMES */ -extern void settimes (void); -#if defined(BSDTIMES) || defined(_SEQUENT_) -extern void tvsub (struct timeval *, - struct timeval *, - struct timeval *); -#endif /* BSDTIMES || _SEQUENT_ */ - -/* - * tw.parse.c - */ -extern void copyn (Char *, const Char *, size_t); -extern void catn (Char *, const Char *, int); - -#endif /* _h_sh_decls */ diff --git a/contrib/tcsh/sh.dir.c b/contrib/tcsh/sh.dir.c deleted file mode 100644 index 3fd8d70..0000000 --- a/contrib/tcsh/sh.dir.c +++ /dev/null @@ -1,1410 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.dir.c,v 3.79 2006/09/25 18:17:26 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. 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 "ed.h" - -RCSID("$tcsh: sh.dir.c,v 3.79 2006/09/25 18:17:26 christos Exp $") - -/* - * C Shell - directory management - */ - -static Char *agetcwd (void); -static void dstart (const char *); -static struct directory *dfind (Char *); -static Char *dfollow (Char *); -static void printdirs (int); -static Char *dgoto (Char *); -static void dnewcwd (struct directory *, int); -static void dset (Char *); -static void dextract (struct directory *); -static int skipargs (Char ***, const char *, - const char *); -static void dgetstack (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 Char * -agetcwd(void) -{ - char *buf; - Char *cwd; - size_t len; - - len = MAXPATHLEN; - buf = xmalloc(len); - while (getcwd(buf, len) == NULL) { - int err; - - err = errno; - if (err != ERANGE) { - xfree(buf); - errno = err; - return NULL; - } - len *= 2; - buf = xrealloc(buf, len); - } - if (*buf == '\0') { - xfree(buf); - return NULL; - } - cwd = SAVE(buf); - xfree(buf); - return cwd; -} - -static void -dstart(const char *from) -{ - xprintf(CGETS(12, 1, "%s: Trying to start from \"%s\"\n"), progname, from); -} - -/* - * dinit - initialize current working directory - */ -void -dinit(Char *hp) -{ - Char *cp, *tcp; - struct directory *dp; - - /* Don't believe the login shell home, because it may be a symlink */ - tcp = agetcwd(); - if (tcp == NULL) { - xprintf("%s: %s\n", progname, strerror(errno)); - if (hp && *hp) { - char *xcp = short2str(hp); - dstart(xcp); - if (chdir(xcp) == -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; - int swd_ok; - - swd_ok = stat(short2str(tcp), &swd) == 0; - /* - * See if $HOME is the working directory we got and use that - */ - if (swd_ok && hp && *hp && 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 (swd_ok && (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 = SAVE(cwd); - cleanup_push(tcp, xfree); - } - } - cleanup_push(tcp, xfree); - cp = dcanon(tcp, STRNULL); - cleanup_ignore(tcp); - cleanup_until(tcp); - } -#else /* S_IFLNK */ - cleanup_push(tcp, xfree); - cp = dcanon(tcp, STRNULL); - cleanup_ignore(tcp); - cleanup_until(tcp); -#endif /* S_IFLNK */ - } - - dp = 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); - setcopy(STRdirstack, dp->di_name, VAR_READWRITE|VAR_NOGLOB); -} - -static void -dset(Char *dp) -{ - /* - * Don't call set() directly cause if the directory contains ` or - * other junk characters glob will fail. - */ - setcopy(STRowd, varval(STRcwd), VAR_READWRITE|VAR_NOGLOB); - setcopy(STRcwd, 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(Char ***v, const char *dstr, const 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 (*s != '\0') /* examine flags */ - { - if ((p = strchr(dstr, *s++)) != NULL) - dflag |= (1 << (p - dstr)); - else - stderror(ERR_DIRUS, short2str(**v), dstr, str); - } - } - 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(Char **v, struct command *c) -{ - static const 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(int dflag) -{ - struct directory *dp; - Char *s, *user; - int idx, len, cur; - - 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 >= TermH - 1 && len < TermH) { - 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(Char *dir) -{ - Char* user; - if ((user = getusername(&dir)) != NULL) - xprintf("~%-S%S", user, dir); - else - xprintf("%S", dir); -} - -void -dtilde(void) -{ - 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(const Char *cp, int expnd) -{ - -/* 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 (expnd) { - struct Strbuf buf = Strbuf_INIT; - int dotdot = 0; - Char *dp, *cwd; - const Char *start = cp; -# ifdef HAVE_SLASHSLASH - int slashslash; -# endif /* HAVE_SLASHSLASH */ - - /* - * count the number of "../xxx" or "xxx/../xxx" in the path - */ - for ( ; *cp && *(cp + 1); cp++) - if (IS_DOTDOT(start, cp)) - dotdot++; - - /* - * if none, we are done. - */ - if (dotdot == 0) - return (Strsave(start)); - -# ifdef notdef - struct stat sb; - /* - * We disable this test because: - * cd /tmp; mkdir dir1 dir2; cd dir2; ln -s /tmp/dir1; cd dir1; - * echo ../../dir1 does not expand. We had enabled this before - * because it was bothering people with expansions in compilation - * lines like -I../../foo. Maybe we need some kind of finer grain - * control? - * - * If the path doesn't exist, we are done too. - */ - if (lstat(short2str(start), &sb) != 0 && errno == ENOENT) - return (Strsave(start)); -# endif - - cwd = xmalloc((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 HAVE_SLASHSLASH - slashslash = cwd[0] == '/' && cwd[1] == '/'; -# endif /* HAVE_SLASHSLASH */ - - /* - * Ignore . and count ..'s - */ - cp = start; - do { - dotdot = 0; - buf.len = 0; - while (*cp) - if (IS_DOT(start, cp)) { - if (*++cp) - cp++; - } - else if (IS_DOTDOT(start, cp)) { - if (buf.len != 0) - break; /* finish analyzing .././../xxx/[..] */ - dotdot++; - cp += 2; - if (*cp) - cp++; - } - else - Strbuf_append1(&buf, *cp++); - - Strbuf_terminate(&buf); - while (dotdot > 0) - if ((dp = Strrchr(cwd, '/')) != NULL) { -# ifdef HAVE_SLASHSLASH - if (dp == &cwd[1]) - slashslash = 1; -# endif /* HAVE_SLASHSLASH */ - *dp = '\0'; - dotdot--; - } - else - break; - - if (!*cwd) { /* too many ..'s, starts with "/" */ - cwd[0] = '/'; -# ifdef HAVE_SLASHSLASH - /* - * Only append another slash, if already the former cwd - * was in a double-slash path. - */ - cwd[1] = slashslash ? '/' : '\0'; - cwd[2] = '\0'; -# else /* !HAVE_SLASHSLASH */ - cwd[1] = '\0'; -# endif /* HAVE_SLASHSLASH */ - } -# ifdef HAVE_SLASHSLASH - else if (slashslash && cwd[1] == '\0') { - cwd[1] = '/'; - cwd[2] = '\0'; - } -# endif /* HAVE_SLASHSLASH */ - - if (buf.len != 0) { - size_t i; - - i = Strlen(cwd); - if (TRM(cwd[i - 1]) != '/') { - cwd[i++] = '/'; - cwd[i] = '\0'; - } - dp = Strspl(cwd, TRM(buf.s[0]) == '/' ? &buf.s[1] : buf.s); - xfree(cwd); - cwd = dp; - i = Strlen(cwd) - 1; - if (TRM(cwd[i]) == '/') - cwd[i] = '\0'; - } - /* Reduction of ".." following the stuff we collected in buf - * only makes sense if the directory item in buf really exists. - * Avoid reduction of "-I../.." (typical compiler call) to "" - * or "/usr/nonexistant/../bin" to "/usr/bin": - */ - if (cwd[0]) { - struct stat exists; - if (0 != stat(short2str(cwd), &exists)) { - xfree(buf.s); - xfree(cwd); - return Strsave(start); - } - } - } while (*cp != '\0'); - xfree(buf.s); - return cwd; - } -#endif /* S_IFLNK */ - return Strsave(cp); -} - - -/* - * dochngd - implement chdir command. - */ -/*ARGSUSED*/ -void -dochngd(Char **v, struct command *c) -{ - Char *cp; - 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 = 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(Char *cp) -{ - Char *dp, *ret; - - if (!ABSOLUTEP(cp)) - { - Char *p, *q; - size_t cwdlen; - - cwdlen = Strlen(dcwd->di_name); - if (cwdlen == 1) /* root */ - cwdlen = 0; - dp = xmalloc((cwdlen + Strlen(cp) + 2) * 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 */ - Strcpy(p, cp); - xfree(cp); - cp = dp; - dp += cwdlen; - } - else - dp = cp; - -#if defined(WINNT_NATIVE) - return agetcwd(); -#elif defined(__CYGWIN__) - if (ABSOLUTEP(cp) && cp[1] == ':') { /* Only DOS paths are treated that way */ - return agetcwd(); - } else { - cleanup_push(cp, xfree); - ret = dcanon(cp, dp); - cleanup_ignore(cp); - cleanup_until(cp); - } -#else /* !WINNT_NATIVE */ - cleanup_push(cp, xfree); - ret = dcanon(cp, dp); - cleanup_ignore(cp); - cleanup_until(cp); -#endif /* WINNT_NATIVE */ - return ret; -} - -/* - * dfollow - change to arg directory; fall back on cdpath if not valid - */ -static Char * -dfollow(Char *cp) -{ - Char *dp; - struct varent *c; - int serrno; - - cp = globone(cp, G_ERROR); - cleanup_push(cp, xfree); -#ifdef apollo - if (Strchr(cp, '`')) { - char *dptr; - if (chdir(dptr = short2str(cp)) < 0) - stderror(ERR_SYSTEM, dptr, strerror(errno)); - dp = agetcwd(); - cleanup_push(dp, xfree); - if (dp != NULL) { - cleanup_until(cp); - return dgoto(dp); - } - else - stderror(ERR_SYSTEM, dptr, strerror(errno)); - } -#endif /* apollo */ - - /* - * 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) { - cleanup_until(cp); - return dgoto(dp); - } - else { - xfree(dp); - if (chdir(short2str(cp)) >= 0) { - cleanup_ignore(cp); - cleanup_until(cp); - return dgoto(cp); - } - else if (errno != ENOENT && errno != ENOTDIR) { - int err; - - err = errno; - stderror(ERR_SYSTEM, short2str(cp), strerror(err)); - } - serrno = errno; - } - - if (cp[0] != '/' && !prefix(STRdotsl, cp) && !prefix(STRdotdotsl, cp) - && (c = adrof(STRcdpath)) && c->vec != NULL) { - struct Strbuf buf = Strbuf_INIT; - Char **cdp; - - for (cdp = c->vec; *cdp; cdp++) { - buf.len = 0; - Strbuf_append(&buf, *cdp); - Strbuf_append1(&buf, '/'); - Strbuf_append(&buf, cp); - Strbuf_terminate(&buf); - /* - * We always want to fix the directory here - * If we are normalizing symlinks - */ - dp = dnormalize(buf.s, symlinks == SYM_IGNORE || - symlinks == SYM_EXPAND); - if (chdir(short2str(dp)) >= 0) { - printd = 1; - xfree(buf.s); - cleanup_until(cp); - return dgoto(dp); - } - else if (chdir(short2str(cp)) >= 0) { - printd = 1; - xfree(dp); - xfree(buf.s); - cleanup_ignore(cp); - cleanup_until(cp); - return dgoto(cp); - } - } - xfree(buf.s); - } - dp = varval(cp); - if ((dp[0] == '/' || dp[0] == '.') && chdir(short2str(dp)) >= 0) { - cleanup_until(cp); - cp = Strsave(dp); - printd = 1; - return dgoto(cp); - } - /* - * on login source of ~/.cshdirs, errors are eaten. the dir stack is all - * directories we could get to. - */ - if (!bequiet) - stderror(ERR_SYSTEM, short2str(cp), strerror(serrno)); - cleanup_until(cp); - 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(Char **v, struct command *c) -{ - struct directory *dp; - 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); - if ((cp = dfollow(cp)) == NULL) - return; - dp = 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 { - Char *ccp; - - if ((ccp = dfollow(cp)) == NULL) - return; - dp = 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(Char *cp) -{ - struct directory *dp; - int i; - 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(Char **v, struct command *c) -{ - Char *cp; - 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; - dfree(dp); - if (dp == dcwd) { - dnewcwd(p, dflag); - } - else { - printdirs(dflag); - } -} - -/* - * dfree - free the directory (or keep it if it still has ref count) - */ -void -dfree(struct directory *dp) -{ - - if (dp->di_count != 0) { - dp->di_next = dp->di_prev = 0; - } - else { - xfree(dp->di_name); - xfree(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(Char *cp, Char *p) -{ - Char *sp; - Char *p1, *p2; /* general purpose */ - int slash; -#ifdef HAVE_SLASHSLASH - int slashslash; -#endif /* HAVE_SLASHSLASH */ - size_t clen; - -#ifdef S_IFLNK /* if we have symlinks */ - Char *mlink, *newcp; - char *tlink; - size_t cc; -#endif /* S_IFLNK */ - - clen = Strlen(cp); - - /* - * 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 try to - * correct it. - */ - if (!ABSOLUTEP(cp)) { - Char *tmpdir; - size_t len; - - p1 = varval(STRcwd); - if (p1 == STRNULL || !ABSOLUTEP(p1)) { - Char *new_cwd = agetcwd(); - - if (new_cwd == NULL) { - xprintf("%s: %s\n", progname, strerror(errno)); - setcopy(STRcwd, str2short("/"), VAR_READWRITE|VAR_NOGLOB); - } - else - setv(STRcwd, new_cwd, VAR_READWRITE|VAR_NOGLOB); - p1 = varval(STRcwd); - } - len = Strlen(p1); - tmpdir = xmalloc((len + clen + 2) * sizeof (*tmpdir)); - (void) Strcpy(tmpdir, p1); - (void) Strcat(tmpdir, STRslash); - (void) Strcat(tmpdir, cp); - xfree(cp); - cp = p = tmpdir; - } - -#ifdef HAVE_SLASHSLASH - slashslash = (cp[0] == '/' && cp[1] == '/'); -#endif /* HAVE_SLASHSLASH */ - - 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 HAVE_SLASHSLASH - if (&cp[1] == sp && sp[0] == '.' && sp[1] == '.' && sp[2] == '\0') - slashslash = 1; -#endif /* HAVE_SLASHSLASH */ - 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 && */ - (tlink = areadlink(short2str(cp))) != NULL) { - mlink = str2short(tlink); - xfree(tlink); - - if (slash) - *p = '/'; - /* - * Point p to the '/' in "/..", and restore the '/'. - */ - *(p = sp) = '/'; - if (*mlink != '/') { - /* - * 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/" + mlink + "/.." and rest - */ - p1 = newcp = xmalloc(((sp - cp) + Strlen(mlink) + - Strlen(p) + 1) * sizeof(Char)); - /* - * Copy new path into newcp - */ - for (p2 = cp; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = mlink; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = p; (*p1++ = *p2++) != '\0';) - continue; - /* - * Restart canonicalization at expanded "/xxx". - */ - p = sp - cp - 1 + newcp; - } - else { - newcp = Strspl(mlink, p); - /* - * Restart canonicalization at beginning - */ - p = newcp; - } - xfree(cp); - cp = newcp; -#ifdef HAVE_SLASHSLASH - slashslash = (cp[0] == '/' && cp[1] == '/'); -#endif /* HAVE_SLASHSLASH */ - 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 && - (tlink = areadlink(short2str(cp))) != NULL) { - mlink = str2short(tlink); - xfree(tlink); - - /* - * restore the '/'. - */ - if (slash) - *p = '/'; - - /* - * point sp to p (rather than backing up). - */ - sp = p; - - if (*mlink != '/') { - /* - * 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/" + mlink + "/.." and rest - */ - p1 = newcp = xmalloc(((sp - cp) + Strlen(mlink) + - Strlen(p) + 1) * sizeof(Char)); - /* - * Copy new path into newcp - */ - for (p2 = cp; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = mlink; (*p1++ = *p2++) != '\0';) - continue; - for (p1--, p2 = p; (*p1++ = *p2++) != '\0';) - continue; - /* - * Restart canonicalization at expanded "/xxx". - */ - p = sp - cp - 1 + newcp; - } - else { - newcp = Strspl(mlink, p); - /* - * Restart canonicalization at beginning - */ - p = newcp; - } - xfree(cp); - cp = newcp; -#ifdef HAVE_SLASHSLASH - slashslash = (cp[0] == '/' && cp[1] == '/'); -#endif /* HAVE_SLASHSLASH */ - continue; /* canonicalize the mlink */ - } -#endif /* S_IFLNK */ - if (slash) - *p = '/'; - } - } - - /* - * fix home... - */ -#ifdef S_IFLNK - p1 = varval(STRhome); - cc = Strlen(p1); - /* - * See if we're not in a subdir of STRhome - */ - if (p1 && *p1 == '/' && (Strncmp(p1, cp, 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; - Char *copy; - - /* - * 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 = copy = Strsave(cp); - 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(cp); - cp = newcp; - } - xfree(copy); - } -#endif /* S_IFLNK */ - -#ifdef HAVE_SLASHSLASH - if (slashslash) { - if (cp[1] != '/') { - p = xmalloc((Strlen(cp) + 2) * sizeof(Char)); - *p = '/'; - (void) Strcpy(&p[1], cp); - xfree(cp); - cp = p; - } - } - if (cp[1] == '/' && cp[2] == '/') { - for (p1 = &cp[1], p2 = &cp[2]; (*p1++ = *p2++) != '\0';) - continue; - } -#endif /* HAVE_SLASHSLASH */ - return cp; -} - - -/* - * dnewcwd - make a new directory in the loop the current one - */ -static void -dnewcwd(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(void) -{ - Char **cp; - struct varent *vp; - struct directory *dn, *dp; - - if ((vp = adrof(STRdirstack)) == NULL || vp->vec == 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 = 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(void) -{ - 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 = xmalloc((i + 1) * sizeof(Char *)); - for (dn = dhead.di_prev; dn != &dhead; dn = dn->di_prev, dbp++) - *dbp = Strsave(dn->di_name); - *dbp = NULL; - cleanup_push(dblk, blk_cleanup); - setq(STRdirstack, dblk, &shvhed, VAR_READWRITE); - cleanup_ignore(dblk); - cleanup_until(dblk); -} - -/* - * 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. - */ -const Char * -getstakd(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 NULL; - } - } - return dp->di_name; -} - -/* - * 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(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; -} - -static void -bequiet_cleanup(void *dummy) -{ - USE(dummy); - bequiet = 0; -} - -void -loaddirs(Char *fname) -{ - static Char *loaddirs_cmd[] = { STRsource, NULL, NULL }; - - bequiet = 1; - cleanup_push(&bequiet, bequiet_cleanup); - if (fname) - loaddirs_cmd[1] = fname; - else if ((fname = varval(STRdirsfile)) != STRNULL) - loaddirs_cmd[1] = fname; - else - loaddirs_cmd[1] = STRtildotdirs; - dosource(loaddirs_cmd, NULL); - cleanup_until(&bequiet); -} - -/* - * 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(Char *fname, int def) -{ - int fp, ftmp, oldidfds; - int cdflag = 0; - struct directory *dp; - unsigned int num; - Char *snum; - struct Strbuf qname = Strbuf_INIT; - - 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); - cleanup_push(fname, xfree); - - if ((fp = xcreat(short2str(fname), 0600)) == -1) { - cleanup_until(fname); - return; - } - - if ((snum = varval(STRsavedirs)) == STRNULL || snum[0] == '\0') - num = (unsigned int) ~0; - else - num = (unsigned int) atoi(short2str(snum)); - - oldidfds = didfds; - didfds = 0; - ftmp = SHOUT; - SHOUT = fp; - - cleanup_push(&qname, Strbuf_cleanup); - 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); - - xclose(fp); - SHOUT = ftmp; - didfds = oldidfds; - cleanup_until(fname); -} diff --git a/contrib/tcsh/sh.dir.h b/contrib/tcsh/sh.dir.h deleted file mode 100644 index 121cf19..0000000 --- a/contrib/tcsh/sh.dir.h +++ /dev/null @@ -1,57 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.dir.h,v 3.6 2002/03/08 17:36:46 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. 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 73ac3b2..0000000 --- a/contrib/tcsh/sh.dol.c +++ /dev/null @@ -1,1094 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.dol.c,v 3.70 2006/09/14 18:30:16 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. 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("$tcsh: sh.dol.c,v 3.70 2006/09/14 18:30:16 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 Char Dpeekc; /* Peek for DgetC */ -static eChar Dpeekrd; /* Peek for Dreadc */ -static Char *Dcp, *const *Dvp; /* Input vector for Dreadc */ - -#define DEOF CHAR_ERR - -#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. - */ -static Char *dolp; /* Remaining chars from this word */ -static Char **dolnxt; /* Further words */ -static int dolcnt; /* Count of further words */ -static struct Strbuf dolmod; /* = Strbuf_INIT; : modifier characters */ -static int dolmcnt; /* :gx -> INT_MAX, else 1 */ -static int dol_flag_a; /* :ax -> 1, else 0 */ - -static Char **Dfix2 (Char *const *); -static int Dpack (struct Strbuf *); -static int Dword (struct blk_buf *); -static void dolerror (Char *); -static eChar DgetC (int); -static void Dgetdol (void); -static void fixDolMod (void); -static void setDolp (Char *); -static void unDredc (eChar); -static eChar Dredc (void); -static void Dtestq (Char); - -/* - * Fix up the $ expansions and quotations in the - * argument list to command t. - */ -void -Dfix(struct command *t) -{ - Char **pp; - 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++) { - if (cmap(*p, _DOL | QUOTES)) { /* $, \, ', ", ` */ - Char **expanded; - - expanded = Dfix2(t->t_dcom); /* found one */ - blkfree(t->t_dcom); - t->t_dcom = expanded; - return; - } - } - } -} - -/* - * $ substitute one word, for i/o redirection - */ -Char * -Dfix1(Char *cp) -{ - Char *Dv[2], **expanded; - - if (noexec) - return (0); - Dv[0] = cp; - Dv[1] = NULL; - expanded = Dfix2(Dv); - if (expanded[0] == NULL || expanded[1] != NULL) { - blkfree(expanded); - setname(short2str(cp)); - stderror(ERR_NAME | ERR_AMBIG); - } - cp = Strsave(expanded[0]); - blkfree(expanded); - return (cp); -} - -/* - * Subroutine to do actual fixing after state initialization. - */ -static Char ** -Dfix2(Char *const *v) -{ - struct blk_buf bb = BLK_BUF_INIT; - - 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 (...) */ - cleanup_push(&bb, bb_cleanup); - while (Dword(&bb)) - continue; - cleanup_ignore(&bb); - cleanup_until(&bb); - return bb_finish(&bb); -} - -/* - * Pack up more characters in this word - */ -static int -Dpack(struct Strbuf *wbuf) -{ - eChar c; - - for (;;) { - c = DgetC(DODOL); - if (c == '\\') { - c = DgetC(0); - if (c == DEOF) { - unDredc(c); - return 1; - } - if (c == '\n') - c = ' '; - else - c |= QUOTE; - } - if (c == DEOF) { - unDredc(c); - return 1; - } - if (cmap(c, _SP | _NL | _QF | _QB)) { /* sp \t\n'"` */ - unDgetC(c); - if (cmap(c, QUOTES)) - return 0; - return 1; - } - Strbuf_append1(wbuf, (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(struct blk_buf *bb) -{ - eChar c, c1; - struct Strbuf wbuf = Strbuf_INIT; - int dolflg; - int sofar = 0; - - cleanup_push(&wbuf, Strbuf_cleanup); - for (;;) { - c = DgetC(DODOL); - switch (c) { - - case DEOF: - if (sofar == 0) { - cleanup_until(&wbuf); - return (0); - } - /* finish this word and catch the code above the next time */ - unDredc(c); - /*FALLTHROUGH*/ - - case '\n': - goto end; - - case ' ': - case '\t': - continue; - - case '`': - /* We preserve ` quotations which are done yet later */ - Strbuf_append1(&wbuf, (Char) c); - /*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, (int)c1); - if ((c & (QUOTE | TRIM)) == ('\n' | QUOTE)) { - if (wbuf.len != 0 && (wbuf.s[wbuf.len - 1] & TRIM) == '\\') - wbuf.len--; - } - switch (c1) { - - case '"': - /* - * Leave any `s alone for later. Other chars are all - * quoted, thus `...` can tell it was within "...". - */ - Strbuf_append1(&wbuf, c == '`' ? '`' : c | QUOTE); - break; - - case '\'': - /* Prevent all further interpretation */ - Strbuf_append1(&wbuf, c | QUOTE); - break; - - case '`': - /* Leave all text alone for later */ - Strbuf_append1(&wbuf, (Char) c); - break; - - default: - break; - } - } - if (c1 == '`') - Strbuf_append1(&wbuf, '`'); - sofar = 1; - if (Dpack(&wbuf) != 0) - goto end; - continue; - - case '\\': - c = DgetC(0); /* No $ subst! */ - if (c == '\n' || c == DEOF) - continue; - c |= QUOTE; - break; - - default: - break; - } - unDgetC(c); - sofar = 1; - if (Dpack(&wbuf) != 0) - goto end; - } - - end: - cleanup_ignore(&wbuf); - cleanup_until(&wbuf); - bb_append(bb, Strbuf_finish(&wbuf)); - return 1; -} - - -/* - * 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 eChar -DgetC(int flag) -{ - Char c; - -top: - if ((c = Dpeekc) != 0) { - Dpeekc = 0; - return (c); - } - if (lap < labuf.len) { - c = labuf.s[lap++] & (QUOTE | TRIM); -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(Char *s) -{ - setname(short2str(s)); - stderror(ERR_NAME | ERR_RANGE); -} - -/* - * Handle the multitudinous $ expansion forms. - * Ugh. - */ -static void -Dgetdol(void) -{ - Char *np; - struct varent *vp = NULL; - struct Strbuf name = Strbuf_INIT; - eChar c, sc; - int subscr = 0, lwb = 1, upb = 0; - int dimen = 0, bitset = 0, length = 0; - static Char *dolbang = NULL; - - cleanup_push(&name, Strbuf_cleanup); - dolmod.len = dolmcnt = dol_flag_a = 0; - c = sc = DgetC(0); - if (c == DEOF) { - stderror(ERR_SYNTAX); - return; - } - 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) { - xfree(dolbang); - setDolp(dolbang = putn(backpid)); - } - cleanup_until(&name); - goto eatbrac; - - case '$': - if (dimen || bitset || length) - stderror(ERR_SYNTAX); - setDolp(doldol); - cleanup_until(&name); - goto eatbrac; - - case '<'|QUOTE: { - static struct Strbuf wbuf; /* = Strbuf_INIT; */ - - if (bitset) - stderror(ERR_NOTALLOWED, "$?<"); - if (dimen) - stderror(ERR_NOTALLOWED, "$#<"); - if (length) - stderror(ERR_NOTALLOWED, "$%<"); - wbuf.len = 0; - { - char cbuf[MB_LEN_MAX]; - size_t cbp = 0; - int old_pintr_disabled; - - for (;;) { - int len; - ssize_t res; - Char wc; - - pintr_push_enable(&old_pintr_disabled); - res = force_read(OLDSTD, cbuf + cbp, 1); - cleanup_until(&old_pintr_disabled); - if (res != 1) - break; - cbp++; - len = normal_mbtowc(&wc, cbuf, cbp); - if (len == -1) { - reset_mbtowc(); - if (cbp < MB_LEN_MAX) - continue; /* Maybe a partial character */ - wc = (unsigned char)*cbuf | INVALID_BYTE; - } - if (len <= 0) - len = 1; - if (cbp != (size_t)len) - memmove(cbuf, cbuf + len, cbp - len); - cbp -= len; - if (wc == '\n') - break; - Strbuf_append1(&wbuf, wc); - } - while (cbp != 0) { - int len; - Char wc; - - len = normal_mbtowc(&wc, cbuf, cbp); - if (len == -1) { - reset_mbtowc(); - wc = (unsigned char)*cbuf | INVALID_BYTE; - } - if (len <= 0) - len = 1; - if (cbp != (size_t)len) - memmove(cbuf, cbuf + len, cbp - len); - cbp -= len; - if (wc == '\n') - break; - Strbuf_append1(&wbuf, wc); - } - Strbuf_terminate(&wbuf); - } - - fixDolMod(); - setDolp(wbuf.s); /* Kept allocated until next $< expansion */ - cleanup_until(&name); - goto eatbrac; - } - - case '*': - Strbuf_append(&name, STRargv); - Strbuf_terminate(&name); - vp = adrof(STRargv); - subscr = -1; /* Prevent eating [...] */ - break; - - case DEOF: - case '\n': - np = dimen ? STRargv : (bitset ? STRstatus : NULL); - if (np) { - bitset = 0; - Strbuf_append(&name, np); - Strbuf_terminate(&name); - vp = adrof(np); - subscr = -1; /* Prevent eating [...] */ - unDredc(c); - break; - } - else - stderror(ERR_SYNTAX); - /*NOTREACHED*/ - - default: - if (Isdigit(c)) { - if (dimen) - stderror(ERR_NOTALLOWED, "$#<num>"); - subscr = 0; - do { - subscr = subscr * 10 + c - '0'; - c = DgetC(0); - } while (c != DEOF && Isdigit(c)); - unDredc(c); - if (subscr < 0) - stderror(ERR_RANGE); - if (subscr == 0) { - if (bitset) { - dolp = dolzero ? STR1 : STR0; - cleanup_until(&name); - goto eatbrac; - } - if (ffile == 0) - stderror(ERR_DOLZERO); - if (length) { - length = Strlen(ffile); - addla(putn(length)); - } - else { - fixDolMod(); - setDolp(ffile); - } - cleanup_until(&name); - 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; - cleanup_until(&name); - goto eatmod; - } - break; - } - if (c == DEOF || !alnum(c)) { - np = dimen ? STRargv : (bitset ? STRstatus : NULL); - if (np) { - bitset = 0; - Strbuf_append(&name, np); - Strbuf_terminate(&name); - vp = adrof(np); - subscr = -1; /* Prevent eating [...] */ - unDredc(c); - break; - } - else - stderror(ERR_VARALNUM); - } - for (;;) { - Strbuf_append1(&name, (Char) c); - c = DgetC(0); - if (c == DEOF || !alnum(c)) - break; - } - Strbuf_terminate(&name); - unDredc(c); - vp = adrof(name.s); - } - if (bitset) { - dolp = (vp || getenv(short2str(name.s))) ? STR1 : STR0; - cleanup_until(&name); - goto eatbrac; - } - if (vp == NULL || vp->vec == NULL) { - np = str2short(getenv(short2str(name.s))); - if (np) { - static Char *env_val; /* = NULL; */ - - cleanup_until(&name); - fixDolMod(); - xfree(env_val); - env_val = Strsave(np); - setDolp(env_val); - goto eatbrac; - } - udvar(name.s); - /* NOTREACHED */ - } - cleanup_until(&name); - c = DgetC(0); - upb = blklen(vp->vec); - if (dimen == 0 && subscr == 0 && c == '[') { - name = Strbuf_init; - cleanup_push(&name, Strbuf_cleanup); - np = name.s; - for (;;) { - c = DgetC(DODOL); /* Allow $ expand within [ ] */ - if (c == ']') - break; - if (c == '\n' || c == DEOF) - stderror(ERR_INCBR); - Strbuf_append1(&name, (Char) c); - } - Strbuf_terminate(&name); - np = name.s; - 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)) { - cleanup_until(&name); - dolerror(vp->v_name); - return; - } - lwb = i; - if (!*np) - upb = lwb, np = STRstar; - } - if (*np == '*') - np++; - else if (*np != '-') - stderror(ERR_MISSING, '-'); - else { - int i = upb; - - np++; - if (Isdigit(*np)) { - i = 0; - while (Isdigit(*np)) - i = i * 10 + *np++ - '0'; - if (i < 0 || i > upb) { - cleanup_until(&name); - dolerror(vp->v_name); - return; - } - } - if (i < lwb) - upb = lwb - 1; - else - upb = i; - } - if (lwb == 0) { - if (upb != 0) { - cleanup_until(&name); - dolerror(vp->v_name); - return; - } - upb = -1; - } - if (*np) - stderror(ERR_SYNTAX); - cleanup_until(&name); - } - else { - if (subscr > 0) { - if (subscr > upb) - lwb = 1, upb = 0; - else - lwb = upb = subscr; - } - unDredc(c); - } - if (dimen) { - /* this is a kludge. It prevents Dgetdol() from */ - /* pushing erroneous ${#<error> values into the labuf. */ - if (sc == '{') { - c = Dredc(); - if (c != '}') - stderror(ERR_MISSING, '}'); - unDredc(c); - } - addla(putn(upb - lwb + 1)); - } - else if (length) { - int i; - - 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 - addla(putn(length)); - } - 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(void) -{ - eChar c; - - c = DgetC(0); - if (c == ':') { - do { - c = DgetC(0), dolmcnt = 1, dol_flag_a = 0; - if (c == 'g' || c == 'a') { - if (c == 'g') - dolmcnt = INT_MAX; - else - dol_flag_a = 1; - c = DgetC(0); - } - if ((c == 'g' && dolmcnt != INT_MAX) || - (c == 'a' && dol_flag_a == 0)) { - if (c == 'g') - dolmcnt = INT_MAX; - else - dol_flag_a = 1; - c = DgetC(0); - } - - if (c == 's') { /* [eichin:19910926.0755EST] */ - int delimcnt = 2; - eChar delim = DgetC(0); - Strbuf_append1(&dolmod, (Char) c); - Strbuf_append1(&dolmod, (Char) delim); - - if (delim == DEOF || !delim || letter(delim) - || Isdigit(delim) || any(" \t\n", delim)) { - seterror(ERR_BADSUBST); - break; - } - while ((c = DgetC(0)) != DEOF) { - Strbuf_append1(&dolmod, (Char) c); - if(c == delim) delimcnt--; - if(!delimcnt) break; - } - if(delimcnt) { - seterror(ERR_BADSUBST); - break; - } - continue; - } - if (!any("luhtrqxes", c)) - stderror(ERR_BADMOD, (int)c); - Strbuf_append1(&dolmod, (Char) c); - if (c == 'q') - dolmcnt = INT_MAX; - } - while ((c = DgetC(0)) == ':'); - unDredc(c); - } - else - unDredc(c); -} - -static void -setDolp(Char *cp) -{ - Char *dp; - size_t i; - - if (dolmod.len == 0 || dolmcnt == 0) { - dolp = cp; - return; - } - cp = Strsave(cp); - for (i = 0; i < dolmod.len; i++) { - int didmod = 0; - - /* handle s// [eichin:19910926.0510EST] */ - if(dolmod.s[i] == 's') { - Char delim; - Char *lhsub, *rhsub, *np; - size_t lhlen = 0, rhlen = 0; - - delim = dolmod.s[++i]; - if (!delim || letter(delim) - || Isdigit(delim) || any(" \t\n", delim)) { - seterror(ERR_BADSUBST); - break; - } - lhsub = &dolmod.s[++i]; - while(dolmod.s[i] != delim && dolmod.s[++i]) { - lhlen++; - } - dolmod.s[i] = 0; - rhsub = &dolmod.s[++i]; - while(dolmod.s[i] != delim && dolmod.s[++i]) { - rhlen++; - } - dolmod.s[i] = 0; - - strip(lhsub); - strip(cp); - dp = cp; - do { - dp = Strstr(dp, lhsub); - if (dp) { - ptrdiff_t diff = dp - cp; - np = xmalloc((Strlen(cp) + 1 - lhlen + rhlen) * - sizeof(Char)); - (void) Strncpy(np, cp, diff); - (void) Strcpy(np + diff, rhsub); - (void) Strcpy(np + diff + rhlen, dp + lhlen); - - dp = np + diff + 1; - xfree(cp); - cp = np; - didmod = 1; - } else { - /* should this do a seterror? */ - break; - } - } - while (dol_flag_a != 0); - /* - * restore dolmod for additional words - */ - dolmod.s[i] = rhsub[-1] = (Char) delim; - } else { - - do { - if ((dp = domod(cp, dolmod.s[i])) != NULL) { - didmod = 1; - if (Strcmp(cp, dp) == 0) { - xfree(cp); - cp = dp; - break; - } - else { - xfree(cp); - cp = dp; - } - } - else - break; - } - while (dol_flag_a != 0); - } - if (didmod && dolmcnt != INT_MAX) - dolmcnt--; -#ifdef notdef - else - break; -#endif - } - - addla(cp); - - dolp = STRNULL; - if (seterr) - stderror(ERR_OLD); -} - -static void -unDredc(eChar c) -{ - - Dpeekrd = c; -} - -static eChar -Dredc(void) -{ - Char 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 int gflag; - -static void -Dtestq(Char c) -{ - - if (cmap(c, QUOTES)) - gflag = 1; -} - -static void -inheredoc_cleanup(void *dummy) -{ - USE(dummy); - inheredoc = 0; -} - -/* - * 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(Char *term) -{ - eChar c; - Char *Dv[2]; - struct Strbuf lbuf = Strbuf_INIT, mbuf = Strbuf_INIT; - Char obuf[BUFSIZE + 1]; -#define OBUF_END (obuf + sizeof(obuf) / sizeof (*obuf) - 1) - Char *lbp, *obp, *mbp; - Char **vp; - int quoted; - char *tmp; -#ifndef WINNT_NATIVE - struct timeval tv; - -again: -#endif /* WINNT_NATIVE */ - tmp = short2str(shtemp); -#ifndef O_CREAT -# define O_CREAT 0 - if (xcreat(tmp, 0600) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); -#endif - xclose(0); -#ifndef O_TEMPORARY -# define O_TEMPORARY 0 -#endif -#ifndef O_EXCL -# define O_EXCL 0 -#endif - if (xopen(tmp, O_RDWR|O_CREAT|O_EXCL|O_TEMPORARY|O_LARGEFILE, 0600) == - -1) { - int oerrno = errno; -#ifndef WINNT_NATIVE - if (errno == EEXIST) { - if (unlink(tmp) == -1) { - (void) gettimeofday(&tv, NULL); - xfree(shtemp); - mbp = putn((((int)tv.tv_sec) ^ - ((int)tv.tv_usec) ^ ((int)getpid())) & 0x00ffffff); - shtemp = Strspl(STRtmpsh, mbp); - xfree(mbp); - } - goto again; - } -#endif /* WINNT_NATIVE */ - (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; - obp = obuf; - obuf[BUFSIZE] = 0; - inheredoc = 1; - cleanup_push(&inheredoc, inheredoc_cleanup); -#ifdef WINNT_NATIVE - __dup_stdin = 1; -#endif /* WINNT_NATIVE */ -#ifdef O_TEXT - setmode(1, O_TEXT); -#endif -#ifdef O_BINARY - setmode(0, O_BINARY); -#endif - cleanup_push(&lbuf, Strbuf_cleanup); - cleanup_push(&mbuf, Strbuf_cleanup); - for (;;) { - Char **words; - - /* - * Read up a line - */ - lbuf.len = 0; - for (;;) { - c = readc(1); /* 1 -> Want EOF returns */ - if (c == CHAR_ERR || c == '\n') - break; - if ((c &= TRIM) != 0) - Strbuf_append1(&lbuf, (Char) c); - } - Strbuf_terminate(&lbuf); - - /* - * Check for EOF or compare to terminator -- before expansion - */ - if (c == CHAR_ERR || eq(lbuf.s, term)) - break; - - /* - * If term was quoted or -n just pass it on - */ - if (quoted || noexec) { - Strbuf_append1(&lbuf, '\n'); - Strbuf_terminate(&lbuf); - for (lbp = lbuf.s; (c = *lbp++) != 0;) { - *obp++ = (Char) c; - if (obp == OBUF_END) { - tmp = short2str(obuf); - (void) xwrite(0, tmp, strlen (tmp)); - obp = obuf; - } - } - continue; - } - - /* - * Term wasn't quoted so variable and then command expand the input - * line - */ - Dcp = lbuf.s; - Dvp = Dv + 1; - mbuf.len = 0; - 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; - } - Strbuf_append1(&mbuf, (Char) c); - } - Strbuf_terminate(&mbuf); - - /* - * If any ` in line do command substitution - */ - mbp = mbuf.s; - 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. - */ - words = dobackp(mbp, 1); - } - else - /* Setup trivial vector similar to return of dobackp */ - Dv[0] = mbp, Dv[1] = NULL, words = 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= words; *vp; vp++) { - for (mbp = *vp; *mbp; mbp++) { - *obp++ = *mbp & TRIM; - if (obp == OBUF_END) { - tmp = short2str(obuf); - (void) xwrite(0, tmp, strlen (tmp)); - obp = obuf; - } - } - *obp++ = '\n'; - if (obp == OBUF_END) { - tmp = short2str(obuf); - (void) xwrite(0, tmp, strlen (tmp)); - obp = obuf; - } - } - if (words != Dv) - blkfree(words); - } - *obp = 0; - tmp = short2str(obuf); - (void) xwrite(0, tmp, strlen (tmp)); - (void) lseek(0, (off_t) 0, L_SET); - cleanup_until(&inheredoc); -} diff --git a/contrib/tcsh/sh.err.c b/contrib/tcsh/sh.err.c deleted file mode 100644 index 4da927c..0000000 --- a/contrib/tcsh/sh.err.c +++ /dev/null @@ -1,647 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.err.c,v 3.48 2006/03/02 18:46:44 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. 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" -#include <assert.h> - -RCSID("$tcsh: sh.err.c,v 3.48 2006/03/02 18:46:44 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 const char *elst[NO_ERRORS] INIT_ZERO_STRUCT; - -/* - * Init the elst depending on the locale - */ -void -errinit(void) -{ -#ifdef NLS_CATALOGS - size_t i; - - for (i = 0; i < NO_ERRORS; i++) - xfree((char *)(intptr_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'"); -} - -/* Cleanup data. */ -struct cleanup_entry -{ - void *var; - void (*fn) (void *); -#ifdef CLEANUP_DEBUG - const char *file; - size_t line; -#endif -}; - -static struct cleanup_entry *cleanup_stack; /* = NULL; */ -static size_t cleanup_sp; /* = 0; Next free entry */ -static size_t cleanup_mark; /* = 0; Last entry to handle before unwinding */ -static size_t cleanup_stack_size; /* = 0 */ - -/* fn() will be run with all signals blocked, so it should not do anything - risky. */ -void -cleanup_push_internal(void *var, void (*fn) (void *) -#ifdef CLEANUP_DEBUG - , const char *file, size_t line -#endif -) -{ - struct cleanup_entry *ce; - - if (cleanup_sp == cleanup_stack_size) { - if (cleanup_stack_size == 0) - cleanup_stack_size = 64; /* Arbitrary */ - else - cleanup_stack_size *= 2; - cleanup_stack = xrealloc(cleanup_stack, - cleanup_stack_size * sizeof (*cleanup_stack)); - } - ce = cleanup_stack + cleanup_sp; - ce->var = var; - ce->fn = fn; -#ifdef CLEANUP_DEBUG - ce->file = file; - ce->line = line; -#endif - cleanup_sp++; -} - -static void -cleanup_ignore_fn(void *dummy) -{ - USE(dummy); -} - -void -cleanup_ignore(void *var) -{ - struct cleanup_entry *ce; - - ce = cleanup_stack + cleanup_sp; - while (ce != cleanup_stack) { - ce--; - if (ce->var == var) { - ce->fn = cleanup_ignore_fn; - return; - } - } - abort(); -} - -void -cleanup_until(void *last_var) -{ - while (cleanup_sp != 0) { - struct cleanup_entry ce; - - cleanup_sp--; - ce = cleanup_stack[cleanup_sp]; - ce.fn(ce.var); - if (ce.var == last_var) - return; - } - abort(); -} - -void -cleanup_until_mark(void) -{ - while (cleanup_sp > cleanup_mark) { - struct cleanup_entry ce; - - cleanup_sp--; - ce = cleanup_stack[cleanup_sp]; - ce.fn(ce.var); - } -} - -size_t -cleanup_push_mark(void) -{ - size_t old_mark; - - old_mark = cleanup_mark; - cleanup_mark = cleanup_sp; - return old_mark; -} - -void -cleanup_pop_mark(size_t mark) -{ - assert (mark <= cleanup_sp); - cleanup_mark = mark; -} - -void -sigint_cleanup(void *xsa) -{ - const struct sigaction *sa; - - sa = xsa; - sigaction(SIGINT, sa, NULL); -} - -void -sigprocmask_cleanup(void *xmask) -{ - sigset_t *mask; - - mask = xmask; - sigprocmask(SIG_SETMASK, mask, NULL); -} - -void -open_cleanup(void *xptr) -{ - int *ptr; - - ptr = xptr; - xclose(*ptr); -} - -void -opendir_cleanup(void *xdir) -{ - DIR *dir; - - dir = xdir; - xclosedir(dir); -} - -void -xfree_indirect(void *xptr) -{ - void **ptr; /* This is actually type punning :( */ - - ptr = xptr; - xfree(*ptr); -} - -void -reset(void) -{ - cleanup_until_mark(); - _reset(); -} - -/* - * 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*/ -seterror(unsigned int id, ...) -{ - if (seterr == 0) { - va_list va; - - va_start(va, id); - if (id >= sizeof(elst) / sizeof(elst[0])) - id = ERR_INVALID; - seterr = xvasprintf(elst[id], va); - va_end(va); - } -} - -/* - * 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*/ -stderror(unsigned int id, ...) -{ - va_list va; - int flags; - int vareturn; - - va_start(va, id); - - /* - * 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();/*FIXRESET*/ - haderr = 1; /* Now to diagnostic output */ - - if (!(flags & ERR_SILENT)) { - if (flags & ERR_NAME) - xprintf("%s: ", bname);/*FIXRESET*/ - if ((flags & ERR_OLD)) { - /* Old error. */ - xprintf("%s.\n", seterr);/*FIXRESET*/ - } else { - xvprintf(elst[id], va);/*FIXRESET*/ - xprintf(".\n");/*FIXRESET*/ - } - } - } else { - vareturn = 1; /* Return immediately after va_end */ - } - va_end(va); - if (vareturn) - return; - - if (seterr) { - xfree(seterr); - seterr = NULL; - } - - didfds = 0; /* Forget about 0,1,2 */ - /* - * Go away if -e or we are a child shell - */ - if (!exitset || 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(); - - setcopy(STRstatus, STR1, VAR_READWRITE);/*FIXRESET*/ -#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 d5a80fe..0000000 --- a/contrib/tcsh/sh.exec.c +++ /dev/null @@ -1,1171 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.exec.c,v 3.73 2006/08/24 20:56:31 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. 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("$tcsh: sh.exec.c,v 3.73 2006/08/24 20:56:31 christos Exp $") - -#include "tc.h" -#include "tw.h" -#ifdef WINNT_NATIVE -#include <nt.const.h> -#endif /*WINNT_NATIVE*/ - -/* - * 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)] & \ - (1UL << (i & (widthof(t) - 1)))) -# define tbis(f, i, t) (((t *) xhash)[(f)] |= \ - (1UL << (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 (void); -static void texec (Char *, Char **); -int hashname (Char *); -static int iscommand (Char *); - -void -doexec(struct command *t, int do_glob) -{ - Char *dp, **pv, **av, *sav; - struct varent *v; - int slash, gflag; - 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; - if (do_glob) - gflag = tglob(blk); - if (gflag) { - pv = globall(blk, gflag); - if (pv == 0) { - setname(short2str(blk[0])); - stderror(ERR_NAME | ERR_NOMATCH); - } - } - else - pv = saveblk(blk); - cleanup_push(pv, blk_cleanup); - - trim(pv); - - exerr = 0; - expath = Strsave(pv[0]); -#ifdef VFORK - Vexpath = expath; -#endif /* VFORK */ - - v = adrof(STRpath); - if (v == 0 && expath[0] != '/' && expath[0] != '.') - pexerr(); - slash = any(short2str(expath), '/'); - - /* - * Glob the argument list, if necessary. Otherwise trim off the quote bits. - */ - gflag = 0; - av = &t->t_dcom[1]; - if (do_glob) - gflag = tglob(av); - if (gflag) { - av = globall(av, gflag); - if (av == 0) { - setname(short2str(expath)); - stderror(ERR_NAME | ERR_NOMATCH); - } - } - else - av = saveblk(av); - - blkfree(t->t_dcom); - cleanup_ignore(pv); - cleanup_until(pv); - t->t_dcom = blkspl(pv, av); - xfree(pv); - xfree(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. - */ - { - sigset_t set; - sigemptyset(&set); - sigaddset(&set, SIGINT); - sigaddset(&set, SIGCHLD); - sigprocmask(SIG_UNBLOCK, &set, NULL); - } - pintr_disabled = 0; - pchild_disabled = 0; - - /* - * If no path, no words in path, or a / in the filename then restrict the - * command search. - */ - if (v == NULL || v->vec == NULL || v->vec[0] == NULL || slash) - pv = justabs; - else - pv = v->vec; - sav = Strspl(STRslash, *av);/* / command name for postpending */ -#ifndef VFORK - cleanup_push(sav, xfree); -#else /* 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 */ - texec(*av, av); - else { - dp = Strspl(*pv, sav); -#ifndef VFORK - cleanup_push(dp, xfree); -#else /* VFORK */ - Vdp = dp; -#endif /* VFORK */ - - texec(dp, av); -#ifndef VFORK - cleanup_until(dp); -#else /* VFORK */ - Vdp = 0; - xfree(dp); -#endif /* VFORK */ - } -#ifdef VFORK - misses++; -#endif /* VFORK */ -cont: - pv++; - i++; - } while (*pv); -#ifdef VFORK - hits--; -#endif /* VFORK */ -#ifndef VFORK - cleanup_until(sav); -#else /* VFORK */ - Vsav = 0; - xfree(sav); -#endif /* VFORK */ - pexerr(); -} - -static void -pexerr(void) -{ - /* Couldn't find the damn thing */ - if (expath) { - setname(short2str(expath)); -#ifdef VFORK - Vexpath = 0; -#endif /* VFORK */ - xfree(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(Char *sf, Char **st) -{ - char **t; - char *f; - 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_NATIVE - nt_feed_to_cmd(f,t); -#endif /* WINNT_NATIVE */ - /* - * 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 = xopen(f, O_RDONLY|O_LARGEFILE)) != -1) { - int nread; -#ifdef O_TEXT - setmode(fd, O_TEXT); -#endif - if ((nread = xread(fd, pref, 2)) == 2) { - if (!isprint((unsigned char)pref[0]) && - (pref[0] != '\n' && pref[0] != '\t')) { - int err; - - err = errno; - xclose(fd); - /* - * We *know* what ENOEXEC means. - */ - stderror(ERR_ARCH, f, strerror(err)); - } - } - else if (nread < 0) { -#ifdef convex - int err; - - err = errno; - xclose(fd); - /* need to print error incase the file is migrated */ - stderror(ERR_SYSTEM, f, strerror(err)); -#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 == NULL || v->vec == NULL) { - 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) - xclose(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(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); - xfree(expath); - expath = Strsave(sf); -#ifdef VFORK - Vexpath = expath; -#endif /* VFORK */ - } - break; - } -} - -struct execash_state -{ - int saveIN, saveOUT, saveDIAG, saveSTD; - int SHIN, SHOUT, SHDIAG, OLDSTD; - int didfds; -#ifndef CLOSE_ON_EXEC - int didcch; -#endif - struct sigaction sigint, sigquit, sigterm; -}; - -static void -execash_cleanup(void *xstate) -{ - struct execash_state *state; - - state = xstate; - sigaction(SIGINT, &state->sigint, NULL); - sigaction(SIGQUIT, &state->sigquit, NULL); - sigaction(SIGTERM, &state->sigterm, NULL); - - doneinp = 0; -#ifndef CLOSE_ON_EXEC - didcch = state->didcch; -#endif /* CLOSE_ON_EXEC */ - didfds = state->didfds; - xclose(SHIN); - xclose(SHOUT); - xclose(SHDIAG); - xclose(OLDSTD); - close_on_exec(SHIN = dmove(state->saveIN, state->SHIN), 1); - close_on_exec(SHOUT = dmove(state->saveOUT, state->SHOUT), 1); - close_on_exec(SHDIAG = dmove(state->saveDIAG, state->SHDIAG), 1); - close_on_exec(OLDSTD = dmove(state->saveSTD, state->OLDSTD), 1); -} - -/*ARGSUSED*/ -void -execash(Char **t, struct command *kp) -{ - struct execash_state state; - - 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); - - - sigaction(SIGINT, &parintr, &state.sigint); - sigaction(SIGQUIT, &parintr, &state.sigquit); - sigaction(SIGTERM, &parterm, &state.sigterm); - - state.didfds = didfds; -#ifndef CLOSE_ON_EXEC - state.didcch = didcch; -#endif /* CLOSE_ON_EXEC */ - state.SHIN = SHIN; - state.SHOUT = SHOUT; - state.SHDIAG = SHDIAG; - state.OLDSTD = OLDSTD; - - (void)close_on_exec (state.saveIN = dcopy(SHIN, -1), 1); - (void)close_on_exec (state.saveOUT = dcopy(SHOUT, -1), 1); - (void)close_on_exec (state.saveDIAG = dcopy(SHDIAG, -1), 1); - (void)close_on_exec (state.saveSTD = dcopy(OLDSTD, -1), 1); - - lshift(kp->t_dcom, 1); - - (void)close_on_exec (SHIN = dcopy(0, -1), 1); - (void)close_on_exec (SHOUT = dcopy(1, -1), 1); - (void)close_on_exec (SHDIAG = dcopy(2, -1), 1); -#ifndef CLOSE_ON_EXEC - didcch = 0; -#endif /* CLOSE_ON_EXEC */ - didfds = 0; - cleanup_push(&state, execash_cleanup); - - /* - * Decrement the shell level - */ - shlvl(-1); -#ifdef WINNT_NATIVE - __nt_really_exec=1; -#endif /* WINNT_NATIVE */ - doexec(kp, 1); - - cleanup_until(&state); -} - -void -xechoit(Char **t) -{ - if (adrof(STRecho)) { - int odidfds = didfds; - flush(); - haderr = 1; - didfds = 0; - blkpr(t), xputchar('\n'); - flush(); - didfds = odidfds; - haderr = 0; - } -} - -/*ARGSUSED*/ -void -dohash(Char **vv, struct command *c) -{ -#ifdef COMMENT - struct stat stb; -#endif - DIR *dirp; - struct dirent *dp; - int i = 0; - struct varent *v = adrof(STRpath); - Char **pv; - int hashval; -#ifdef WINNT_NATIVE - int is_windir; /* check if it is the windows directory */ - USE(hashval); -#endif /* WINNT_NATIVE */ - - 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; - if (v == NULL) - return; - for (pv = v->vec; pv && *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 */ - - xfree(xhash); - xhash = xcalloc(hashlength * hashwidth, 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; pv++, i++) { - if (!ABSOLUTEP(pv[0])) - continue; - dirp = opendir(short2str(*pv)); - if (dirp == NULL) - continue; - cleanup_push(dirp, opendir_cleanup); -#ifdef COMMENT /* this isn't needed. opendir won't open - * non-dirs */ - if (fstat(dirp->dd_fd, &stb) < 0 || !S_ISDIR(stb.st_mode)) { - cleanup_until(dirp); - continue; - } -#endif -#ifdef WINNT_NATIVE - is_windir = nt_check_if_windir(short2str(*pv)); -#endif /* WINNT_NATIVE */ - 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_NATIVE - nt_check_name_and_hash(is_windir, dp->d_name, i); -#else /* !WINNT_NATIVE*/ -#if defined(_UWIN) || defined(__CYGWIN__) - /* Turn foo.{exe,com,bat} into foo since UWIN's readdir returns - * the file with the .exe, .com, .bat extension - */ - { - ssize_t ext = strlen(dp->d_name) - 4; - if ((ext > 0) && (strcasecmp(&dp->d_name[ext], ".exe") == 0 || - strcasecmp(&dp->d_name[ext], ".bat") == 0 || - strcasecmp(&dp->d_name[ext], ".com") == 0)) { -#ifdef __CYGWIN__ - /* Also store the variation with extension. */ - hashval = hashname(str2short(dp->d_name)); - bis(hashval, i); -#endif /* __CYGWIN__ */ - dp->d_name[ext] = '\0'; - } - } -#endif /* _UWIN || __CYGWIN__ */ -# 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_NATIVE */ - } - cleanup_until(dirp); - } -} - -/*ARGSUSED*/ -void -dounhash(Char **v, struct command *c) -{ - USE(c); - USE(v); - havhash = 0; -#ifdef FASTHASH - xfree(xhash); - xhash = NULL; -#endif /* FASTHASH */ -} - -/*ARGSUSED*/ -void -hashstat(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. - */ -int -hashname(Char *cp) -{ - unsigned long h; - - for (h = 0; *cp; cp++) - h = hash(h, *cp); - return ((int) h); -} - -static int -iscommand(Char *name) -{ - Char **pv; - Char *sav; - struct varent *v; - int slash = any(short2str(name), '/'); - int hashval, i; - - v = adrof(STRpath); - if (v == NULL || v->vec == NULL || v->vec[0] == NULL || 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(sav); - return i + 1; - } - } - else { - if (executable(*pv, sav, 0)) { - xfree(sav); - return i + 1; - } - } -cont: - pv++; - i++; - } while (*pv); - xfree(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!! - */ - -#ifndef WINNT_NATIVE -/* - * 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(const Char *dir, const Char *name, int dir_ok) -{ - struct stat stbuf; - char *strname; - - if (dir && *dir) { - Char *path; - - path = Strspl(dir, name); - strname = short2str(path); - xfree(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 */ - (stbuf.st_mode & (S_IXOTH | S_IXGRP | S_IXUSR)) && - access(strname, X_OK) == 0 - ))); -} -#endif /*!WINNT_NATIVE*/ - -struct tellmewhat_s0_cleanup -{ - Char **dest, *val; -}; - -static void -tellmewhat_s0_cleanup(void *xstate) -{ - struct tellmewhat_s0_cleanup *state; - - state = xstate; - *state->dest = state->val; -} - -int -tellmewhat(struct wordent *lexp, Char **str) -{ - struct tellmewhat_s0_cleanup s0; - int i; - const struct biltins *bptr; - struct wordent *sp = lexp->next; - int aliased = 0, found; - Char *s1, *s2, *cmd; - Char qc; - - if (adrof1(sp->word, &aliases)) { - alias(lexp); - sp = lexp->next; - aliased = 1; - } - - s0.dest = &sp->word; /* to get the memory freeing right... */ - s0.val = sp->word; - cleanup_push(&s0, tellmewhat_s0_cleanup); - - /* 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 - *str = Strsave(sp->word); - cleanup_until(&s0); - return TRUE; - } - } -#ifdef WINNT_NATIVE - 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 - *str = Strsave(sp->word); - cleanup_until(&s0); - return TRUE; - } - } -#endif /* WINNT_NATIVE*/ - - sp->word = cmd = globone(sp->word, G_IGNORE); - cleanup_push(cmd, xfree); - - if ((i = iscommand(sp->word)) != 0) { - Char **pv; - struct varent *v; - int slash = any(short2str(sp->word), '/'); - - v = adrof(STRpath); - if (v == NULL || v->vec == NULL || v->vec[0] == NULL || slash) - pv = justabs; - else - pv = v->vec; - - pv += i - 1; - if (pv[0][0] == 0 || eq(pv[0], STRdot)) { - if (!slash) { - sp->word = Strspl(STRdotsl, sp->word); - cleanup_push(sp->word, xfree); - prlex(lexp); - cleanup_until(sp->word); - } - else - prlex(lexp); - } - else { - s1 = Strspl(*pv, STRslash); - sp->word = Strspl(s1, sp->word); - xfree(s1); - cleanup_push(sp->word, xfree); - if (str == NULL) - prlex(lexp); - else - *str = Strsave(sp->word); - cleanup_until(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 - *str = Strsave(sp->word); - found = 0; - } - cleanup_until(&s0); - 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(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) - setcopy(STRstatus, STR1, VAR_READWRITE); -} - -int -find_cmd(Char *cmd, int prt) -{ - struct varent *var; - const 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); - if (var->vec != NULL) - 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_NATIVE - 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_NATIVE*/ - - /* last, look through the path for the command */ - - if ((var = adrof(STRpath)) == NULL) - return rval; - - hashval = havhash ? hashname(cmd) : 0; - - sv = Strspl(STRslash, cmd); - cleanup_push(sv, xfree); - - for (pv = var->vec, i = 0; pv && *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; - } - } - cleanup_until(sv); - return rval; -} -#ifdef WINNT_NATIVE -int hashval_extern(cp) - Char *cp; -{ - return havhash?hashname(cp):0; -} -int bit_extern(val,i) - int val; - int i; -{ - return bit(val,i); -} -void bis_extern(val,i) - int val; - int i; -{ - bis(val,i); -} -#endif /* WINNT_NATIVE */ - diff --git a/contrib/tcsh/sh.exp.c b/contrib/tcsh/sh.exp.c deleted file mode 100644 index e242676..0000000 --- a/contrib/tcsh/sh.exp.c +++ /dev/null @@ -1,1005 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.exp.c,v 3.51 2006/05/13 21:25:20 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. 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("$tcsh: sh.exp.c,v 3.51 2006/05/13 21:25:20 christos Exp $") - -#include "tw.h" - -/* - * 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 (const Char *, int); -static int exp1 (Char ***, int); -static int exp2x (Char ***, int); -static int exp2a (Char ***, int); -static int exp2b (Char ***, int); -static int exp2c (Char ***, int); -static Char *exp3 (Char ***, int); -static Char *exp3a (Char ***, int); -static Char *exp4 (Char ***, int); -static Char *exp5 (Char ***, int); -static Char *exp6 (Char ***, int); -static void evalav (Char **); -static int isa (Char *, int); -static int egetn (Char *); - - -#ifdef EDEBUG -static void etracc (char *, Char *, Char ***); -static void etraci (char *, int, Char ***); -#else /* !EDEBUG */ -#define etracc(A, B, C) ((void)0) -#define etraci(A, B, C) ((void)0) -#endif /* !EDEBUG */ - - -/* - * shell access function according to POSIX and non POSIX - * From Beto Appleton (beto@aixwiz.aix.ibm.com) - */ -static int -sh_access(const 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 { - /* you can be in several groups */ - long n; - GETGROUPS_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. - */ -# if defined (HAVE_SYSCONF) && defined (_SC_NGROUPS_MAX) - if ((n = sysconf(_SC_NGROUPS_MAX)) == -1) -# endif /* _SC_NGROUPS_MAX */ - n = NGROUPS_MAX; - if (n <= 0) - n = getgroups(0, (GETGROUPS_T *) NULL); - - if (n > 0) { - groups = xmalloc(n * sizeof(*groups)); - 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(Char ***vp) -{ - return (exp0(vp, 0)); -} - -int -exp0(Char ***vp, int ignore) -{ - int p1 = exp1(vp, ignore); - - etraci("exp0 p1", p1, vp); - if (**vp && eq(**vp, STRor2)) { - int p2; - - (*vp)++; - p2 = exp0(vp, (ignore & TEXP_IGNORE) || p1); - etraci("exp0 p2", p2, vp); - return (p1 || p2); - } - return (p1); -} - -static int -exp1(Char ***vp, int ignore) -{ - int p1 = exp2x(vp, ignore); - - etraci("exp1 p1", p1, vp); - if (**vp && eq(**vp, STRand2)) { - int p2; - - (*vp)++; - p2 = exp1(vp, (ignore & TEXP_IGNORE) || !p1); - etraci("exp1 p2", p2, vp); - return (p1 && p2); - } - return (p1); -} - -static int -exp2x(Char ***vp, int ignore) -{ - int p1 = exp2a(vp, ignore); - - etraci("exp3 p1", p1, vp); - if (**vp && eq(**vp, STRor)) { - int p2; - - (*vp)++; - p2 = exp2x(vp, ignore); - etraci("exp3 p2", p2, vp); - return (p1 | p2); - } - return (p1); -} - -static int -exp2a(Char ***vp, int ignore) -{ - int p1 = exp2b(vp, ignore); - - etraci("exp2a p1", p1, vp); - if (**vp && eq(**vp, STRcaret)) { - int p2; - - (*vp)++; - p2 = exp2a(vp, ignore); - etraci("exp2a p2", p2, vp); - return (p1 ^ p2); - } - return (p1); -} - -static int -exp2b(Char ***vp, int ignore) -{ - int p1 = exp2c(vp, ignore); - - etraci("exp2b p1", p1, vp); - if (**vp && eq(**vp, STRand)) { - int p2; - - (*vp)++; - p2 = exp2b(vp, ignore); - etraci("exp2b p2", p2, vp); - return (p1 & p2); - } - return (p1); -} - -static int -exp2c(Char ***vp, int ignore) -{ - Char *p1 = exp3(vp, ignore); - Char *p2; - int i; - - cleanup_push(p1, xfree); - etracc("exp2c p1", p1, vp); - if ((i = isa(**vp, EQOP)) != 0) { - (*vp)++; - if (i == EQMATCH || i == NOTEQMATCH) - ignore |= TEXP_NOGLOB; - p2 = exp3(vp, ignore); - cleanup_push(p2, xfree); - etracc("exp2c p2", p2, vp); - 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; - } - cleanup_until(p1); - return (i); - } - i = egetn(p1); - cleanup_until(p1); - return (i); -} - -static Char * -exp3(Char ***vp, int ignore) -{ - Char *p1, *p2; - int i; - - p1 = exp3a(vp, ignore); - etracc("exp3 p1", p1, vp); - if ((i = isa(**vp, RELOP)) != 0) { - (*vp)++; - if (**vp && eq(**vp, STRequal)) - i |= 1, (*vp)++; - cleanup_push(p1, xfree); - p2 = exp3(vp, ignore); - cleanup_push(p2, xfree); - etracc("exp3 p2", p2, vp); - 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; - } - cleanup_until(p1); - return (putn(i)); - } - return (p1); -} - -static Char * -exp3a(Char ***vp, int ignore) -{ - Char *p1, *p2; - const Char *op; - int i; - - p1 = exp4(vp, ignore); - etracc("exp3a p1", p1, vp); - op = **vp; - if (op && any("<>", op[0]) && op[0] == op[1]) { - (*vp)++; - cleanup_push(p1, xfree); - p2 = exp3a(vp, ignore); - cleanup_push(p2, xfree); - etracc("exp3a p2", p2, vp); - if (op[0] == '<') - i = egetn(p1) << egetn(p2); - else - i = egetn(p1) >> egetn(p2); - cleanup_until(p1); - return (putn(i)); - } - return (p1); -} - -static Char * -exp4(Char ***vp, int ignore) -{ - Char *p1, *p2; - int i = 0; - - p1 = exp5(vp, ignore); - etracc("exp4 p1", p1, vp); - if (isa(**vp, ADDOP)) { - const Char *op = *(*vp)++; - - cleanup_push(p1, xfree); - p2 = exp4(vp, ignore); - cleanup_push(p2, xfree); - etracc("exp4 p2", p2, vp); - if (!(ignore & TEXP_IGNORE)) - switch (op[0]) { - - case '+': - i = egetn(p1) + egetn(p2); - break; - - case '-': - i = egetn(p1) - egetn(p2); - break; - } - cleanup_until(p1); - return (putn(i)); - } - return (p1); -} - -static Char * -exp5(Char ***vp, int ignore) -{ - Char *p1, *p2; - int i = 0; - - p1 = exp6(vp, ignore); - etracc("exp5 p1", p1, vp); - - if (isa(**vp, MULOP)) { - const Char *op = *(*vp)++; - if ((ignore & TEXP_NOGLOB) != 0) { - /* - * We are just trying to get the right side of - * a =~ or !~ operator - */ - xfree(p1); - return Strsave(op); - } - - cleanup_push(p1, xfree); - p2 = exp5(vp, ignore); - cleanup_push(p2, xfree); - etracc("exp5 p2", p2, vp); - 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; - } - cleanup_until(p1); - return (putn(i)); - } - return (p1); -} - -static Char * -exp6(Char ***vp, int ignore) -{ - int ccode, i = 0; - Char *cp; - - if (**vp == 0) - stderror(ERR_NAME | ERR_EXPRESSION); - if (eq(**vp, STRbang)) { - (*vp)++; - cp = exp6(vp, ignore); - cleanup_push(cp, xfree); - etracc("exp6 ! cp", cp, vp); - i = egetn(cp); - cleanup_until(cp); - return (putn(!i)); - } - if (eq(**vp, STRtilde)) { - (*vp)++; - cp = exp6(vp, ignore); - cleanup_push(cp, xfree); - etracc("exp6 ~ cp", cp, vp); - i = egetn(cp); - cleanup_until(cp); - return (putn(~i)); - } - if (eq(**vp, STRLparen)) { - (*vp)++; - ccode = exp0(vp, ignore); - etraci("exp6 () ccode", ccode, vp); - if (**vp == 0 || ***vp != ')') - stderror(ERR_NAME | ERR_EXPRESSION); - (*vp)++; - return (putn(ccode)); - } - if (eq(**vp, STRLbrace)) { - 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(); - cleanup_push(&faket, psavejob_cleanup); /* faket is only a marker */ - if (pfork(&faket, -1) == 0) { - *--(*vp) = 0; - evalav(v); - exitstat(); - } - pwait(); - cleanup_until(&faket); - etraci("exp6 {} status", egetn(varval(STRstatus)), vp); - 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)); - etracc("exp6 default", cp, vp); - return (ignore & TEXP_NOGLOB ? Strsave(cp) : globone(cp, G_APPEND)); -} - - -/* - * Extended file tests - * From: John Rowe <rowe@excc.exeter.ac.uk> - */ -Char * -filetest(Char *cp, Char ***vp, int 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; - int 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); - cleanup_push(ep, xfree); - 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) { - cleanup_until(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) { - cleanup_until(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 = xmalloc((2 + Strlen(strdev) + Strlen(strino)) - * sizeof(Char)); - (void) Strcat(Strcat(Strcpy(strF, strdev), STRcolon), strino); - xfree(strdev); - xfree(strino); - cleanup_until(ep); - return(strF); - - case 'L': - if ( *(ft + 1) ) { - i = 1; - break; - } -#ifdef S_ISLNK - filnam = short2str(ep); - string = areadlink(filnam); - strF = string == NULL ? errval : str2short(string); - xfree(string); - cleanup_until(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'; - cleanup_until(ep); - return(Strsave(str2short(string))); - - case 'U': - if (altout && (pw = xgetpwuid(st->st_uid))) { - cleanup_until(ep); - return(Strsave(str2short(pw->pw_name))); - } - i = (int) st->st_uid; - break; - - case 'G': - if (altout && (gr = xgetgrgid(st->st_gid))) { - cleanup_until(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'; - cleanup_until(ep); - return(Strsave(strF)); - } - i = (int) footime; - break; - - } - } - while (*++ft && i); - etraci("exp6 -? i", i, vp); - cleanup_until(ep); - return (putn(i)); -} - - -static void -evalav(Char **v) -{ - struct wordent paraml1; - struct wordent *hp = ¶ml1; - struct command *t; - struct wordent *wdp = hp; - - setcopy(STRstatus, STR0, VAR_READWRITE); - hp->prev = hp->next = hp; - hp->word = STRNULL; - while (*v) { - struct wordent *new = xcalloc(1, sizeof *wdp); - - new->prev = wdp; - new->next = hp; - wdp->next = new; - wdp = new; - wdp->word = Strsave(*v++); - } - hp->prev = wdp; - cleanup_push(¶ml1, lex_cleanup); - alias(¶ml1); - t = syntax(paraml1.next, ¶ml1, 0); - cleanup_push(t, syntax_cleanup); - if (seterr) - stderror(ERR_OLD); - execute(t, -1, NULL, NULL, TRUE); - cleanup_until(¶ml1); -} - -static int -isa(Char *cp, 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(Char *cp) -{ - if (*cp && *cp != '-' && !Isdigit(*cp)) - stderror(ERR_NAME | ERR_EXPRESSION); - return (getn(cp)); -} - -/* Phew! */ - -#ifdef EDEBUG -static void -etraci(char *str, int i, Char ***vp) -{ - xprintf("%s=%d\t", str, i); - blkpr(*vp); - xputchar('\n'); -} -static void -etracc(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 6955358..0000000 --- a/contrib/tcsh/sh.file.c +++ /dev/null @@ -1,763 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.file.c,v 3.35 2006/08/23 15:03:14 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. 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 "ed.h" - -RCSID("$tcsh: sh.file.c,v 3.35 2006/08/23 15:03:14 christos Exp $") - -#if defined(FILEC) && defined(TIOCSTI) - -/* - * 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 (int); -static void back_to_col_1 (void); -static void pushback (const Char *); -static int filetype (const Char *, const Char *); -static void print_by_column (const Char *, Char *[], size_t); -static Char *tilde (const Char *); -static void retype (void); -static void beep (void); -static void print_recognized_stuff (const Char *); -static void extract_dir_and_name (const Char *, Char **, const Char **); -static Char *getitem (DIR *, int); -static size_t tsearch (Char *, COMMAND, size_t); -static int compare (const void *, const void *); -static int recognize (Char **, Char *, size_t, size_t); -static int is_prefix (const Char *, const Char *); -static int is_suffix (const Char *, const Char *); -static int ignored (const 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. - */ -int filec = 0; - -static void -setup_tty(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) xtcsetattr(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(void) -{ -#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 */ - - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - -#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) xtcsetattr(SHOUT, TCSANOW, &tty); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty); -# endif /* POSIX */ - (void) xwrite(SHOUT, "\r", 1); -# ifdef POSIX - (void) xtcsetattr(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) xwrite(SHOUT, "\r", 1); - (void) ioctl(SHIN, TIOCSETN, (ioctl_t) & tty_normal); -#endif /* TERMIO */ - - cleanup_until(&pintr_disabled); -} - -/* - * Push string contents back into tty queue - */ -static void -pushback(const Char *string) -{ - const Char *p; -#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 */ - - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - -#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) xtcsetattr(SHOUT, TCSANOW, &tty); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty); -# endif /* POSIX */ - - for (p = string; *p != '\0'; p++) { - char buf[MB_LEN_MAX]; - size_t i, len; - - len = one_wctomb(buf, *p & CHAR); - for (i = 0; i < len; i++) - (void) ioctl(SHOUT, TIOCSTI, (ioctl_t) &buf[i]); - } -# ifdef POSIX - (void) xtcsetattr(SHOUT, TCSANOW, &tty_normal); -# else - (void) ioctl(SHOUT, TCSETAW, (ioctl_t) &tty_normal); -# endif /* POSIX */ -#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 */ - - cleanup_until(&pintr_disabled); -} - -static int -filetype(const Char *dir, const Char *file) -{ - Char *path; - char *spath; - struct stat statb; - - path = Strspl(dir, file); - spath = short2str(path); - xfree(path); - if (lstat(spath, &statb) == 0) { - switch (statb.st_mode & S_IFMT) { - case S_IFDIR: - return ('/'); - - case S_IFLNK: - if (stat(spath, &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 (' '); -} - -/* - * Print sorted down columns - */ -static void -print_by_column(const Char *dir, Char *items[], size_t count) -{ - struct winsize win; - size_t i; - int 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) { - 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(const Char *old) -{ - const Char *o, *home; - struct passwd *pw; - - if (old[0] != '~') - return (Strsave(old)); - old++; - - for (o = old; *o != '\0' && *o != '/'; o++) - ; - if (o == old) - home = varval(STRhome); - else { - Char *person; - - person = Strnsave(old, o - old); - pw = xgetpwnam(short2str(person)); - xfree(person); - if (pw == NULL) - return (NULL); - home = str2short(pw->pw_dir); - } - return Strspl(home, o); -} - -/* - * Cause pending line to be printed - */ -static void -retype(void) -{ -#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) xtcsetattr(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(void) -{ - if (adrof(STRnobeep) == 0) -#ifdef IS_ASCII - (void) xwrite(SHOUT, "\007", 1); -#else - { - unsigned char beep_ch = CTL_ESC('\007'); - (void) xwrite(SHOUT, &beep_ch, 1); - } -#endif -} - -/* - * Erase that silly ^[ and - * print the recognized part of the string - */ -static void -print_recognized_stuff(const 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(const Char *path, Char **dir, const Char **name) -{ - const Char *p; - - p = Strrchr(path, '/'); - if (p == NULL) - p = path; - else - p++; - *name = p; - *dir = Strnsave(path, p - path); -} - -static Char * -getitem(DIR *dir_fd, int looking_for_lognames) -{ - struct passwd *pw; - struct dirent *dirp; - - if (looking_for_lognames) { -#ifndef HAVE_GETPWENT - return (NULL); -#else - if ((pw = getpwent()) == NULL) - return (NULL); - return (str2short(pw->pw_name)); -#endif /* atp vmsposix */ - } - if ((dirp = readdir(dir_fd)) != NULL) - return (str2short(dirp->d_name)); - return (NULL); -} - -/* - * Perform a RECOGNIZE or LIST command on string "word". - */ -static size_t -tsearch(Char *word, COMMAND command, size_t max_word_length) -{ - DIR *dir_fd; - int ignoring = TRUE, nignored = 0; - int looking_for_lognames; - Char *tilded_dir = NULL, *dir = NULL; - Char *extended_name = NULL; - const Char *name; - Char *item; - struct blk_buf items = BLK_BUF_INIT; - size_t name_length; - - looking_for_lognames = (*word == '~') && (Strchr(word, '/') == NULL); - if (looking_for_lognames) { -#ifdef HAVE_GETPWENT - (void) setpwent(); -#endif - name = word + 1; /* name sans ~ */ - dir_fd = NULL; - cleanup_push(dir, xfree); - } - else { - extract_dir_and_name(word, &dir, &name); - cleanup_push(dir, xfree); - tilded_dir = tilde(dir); - if (tilded_dir == NULL) - goto end; - cleanup_push(tilded_dir, xfree); - dir_fd = opendir(*tilded_dir ? short2str(tilded_dir) : "."); - if (dir_fd == NULL) - goto end; - } - - name_length = Strlen(name); - cleanup_push(&extended_name, xfree_indirect); - cleanup_push(&items, bb_cleanup); -again: /* search for matches */ - while ((item = getitem(dir_fd, looking_for_lognames)) != NULL) { - 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) - bb_append(&items, Strsave(item)); - else { /* RECOGNIZE command */ - if (ignoring && ignored(item)) - nignored++; - else if (recognize(&extended_name, item, name_length, ++items.len)) - break; - } - } - if (ignoring && items.len == 0 && nignored > 0) { - ignoring = FALSE; - nignored = 0; - if (looking_for_lognames) { -#ifdef HAVE_GETPWENT - (void) setpwent(); -#endif /* atp vmsposix */ - } else - rewinddir(dir_fd); - goto again; - } - - if (looking_for_lognames) { -#ifndef HAVE_GETPWENT - (void) endpwent(); -#endif - } else - xclosedir(dir_fd); - if (items.len != 0) { - if (command == RECOGNIZE) { - if (looking_for_lognames) - copyn(word, STRtilde, 2);/*FIXBUF, sort of */ - else - /* put back dir part */ - copyn(word, dir, max_word_length);/*FIXBUF*/ - /* add extended name */ - catn(word, extended_name, max_word_length);/*FIXBUF*/ - } - else { /* LIST */ - qsort(items.vec, items.len, sizeof(items.vec[0]), compare); - print_by_column(looking_for_lognames ? NULL : tilded_dir, - items.vec, items.len); - } - } - end: - cleanup_until(dir); - return items.len; -} - - -static int -compare(const void *p, const void *q) -{ -#ifdef WIDE_STRINGS - errno = 0; - - return (wcscoll(*(Char *const *) p, *(Char *const *) q)); -#else - char *p1, *q1; - int res; - - p1 = strsave(short2str(*(Char *const *) p)); - q1 = strsave(short2str(*(Char *const *) q)); -# if defined(NLS) && defined(HAVE_STRCOLL) - res = strcoll(p1, q1); -# else - res = strcmp(p1, q1); -# endif /* NLS && HAVE_STRCOLL */ - xfree (p1); - xfree (q1); - return res; -#endif /* not WIDE_STRINGS */ -} - -/* - * 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(Char **extended_name, Char *item, size_t name_length, - size_t numitems) -{ - if (numitems == 1) /* 1st match */ - *extended_name = Strsave(item); - else { /* 2nd & subsequent matches */ - Char *x, *ent; - size_t 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(const Char *check, const Char *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(const Char *check, const Char *template) -{ - const Char *c, *t; - - for (c = check; *c++;); - for (t = template; *t++;); - for (;;) { - if (t == template) - return 1; - if (c == check || *--t != *--c) - return 0; - } -} - -static void -setup_tty_cleanup(void *dummy) -{ - USE(dummy); - setup_tty(OFF); -} - -size_t -tenex(Char *inputline, size_t inputline_size) -{ - size_t numitems; - ssize_t num_read; - char tinputline[BUFSIZE + 1];/*FIXBUF*/ - - setup_tty(ON); - cleanup_push(&num_read, setup_tty_cleanup); /* num_read is only a marker */ - - while ((num_read = xread(SHIN, tinputline, BUFSIZE)) > 0) {/*FIXBUF*/ - static const Char delims[] = {' ', '\'', '"', '\t', ';', '&', '<', - '>', '(', ')', '|', '^', '%', '\0'}; - Char *str_end, *word_start, last_Char, should_retype; - size_t space_left; - COMMAND command; - - tinputline[num_read] = 0; - Strcpy(inputline, str2short(tinputline));/*FIXBUF*/ - num_read = Strlen(inputline); - last_Char = CTL_ESC(ASC(inputline[num_read - 1]) & ASCII); - - if (last_Char == '\n' || (size_t)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(); - } - cleanup_until(&num_read); - return (num_read); -} - -static int -ignored(const Char *item) -{ - struct varent *vp; - 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 && TIOCSTI */ diff --git a/contrib/tcsh/sh.func.c b/contrib/tcsh/sh.func.c deleted file mode 100644 index 92e2447..0000000 --- a/contrib/tcsh/sh.func.c +++ /dev/null @@ -1,2457 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.func.c,v 3.143 2006/08/24 20:56:31 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. 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("$tcsh: sh.func.c,v 3.143 2006/08/24 20:56:31 christos Exp $") - -#include "ed.h" -#include "tw.h" -#include "tc.h" -#ifdef WINNT_NATIVE -#include "nt.const.h" -#endif /* WINNT_NATIVE */ - -#if defined (NLS_CATALOGS) && defined(HAVE_ICONV) && defined(HAVE_NL_LANGINFO) -#include <langinfo.h> -static iconv_t catgets_iconv; /* Or (iconv_t)-1 */ -#endif - -/* - * C shell - */ - -extern int MapsAreInited; -extern int NLSMapsAreInited; -extern int GotTermCaps; - -static int zlast = -1; - -static void islogin (void); -static void preread (void); -static void doagain (void); -static const char *isrchx (int); -static void search (int, int, Char *); -static int getword (struct Strbuf *); -static void toend (void); -static void xecho (int, Char **); -static int islocale_var (Char *); -static void wpfree (struct whyle *); - -const struct biltins * -isbfunc(struct command *t) -{ - Char *cp = t->t_dcom[0]; - const 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_NATIVE - return nt_check_additional_builtins(cp); -#endif /*WINNT_NATIVE*/ - return (0); -} - -void -func(struct command *t, const 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(Char **v, struct command *c) -{ - Char *cp; - Char *vv = v[1]; - - USE(c); - if (parintr.sa_handler == SIG_IGN) - return; - if (setintr && intty) - stderror(ERR_NAME | ERR_TERMINAL); - cp = gointr; - gointr = 0; - xfree(cp); - if (vv == 0) { - if (setintr) - sigset_interrupting(SIGINT, queue_pintr); - else - (void) signal(SIGINT, SIG_DFL); - gointr = 0; - } - else if (eq((vv = strip(vv)), STRminus)) { - (void) signal(SIGINT, SIG_IGN); - gointr = Strsave(STRminus); - } - else { - gointr = Strsave(vv); - sigset_interrupting(SIGINT, queue_pintr); - } -} - -/*ARGSUSED*/ -void -donohup(Char **v, struct command *c) -{ - USE(c); - USE(v); - if (intty) - stderror(ERR_NAME | ERR_TERMINAL); - if (setintr == 0) { - (void) signal(SIGHUP, SIG_IGN); - phup_disabled = 1; -#ifdef CC - submit(getpid()); -#endif /* CC */ - } -} - -/*ARGSUSED*/ -void -dohup(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(Char **v, struct command *c) -{ - USE(c); - USE(v); -} - -/*ARGSUSED*/ -void -dofiletest(Char **v, struct command *c) -{ - Char **globbed, **fileptr, *ftest, *res; - - USE(c); - if (*(ftest = *++v) != '-') - stderror(ERR_NAME | ERR_FILEINQ); - ++v; - - v = glob_all_or_error(v); - globbed = v; - cleanup_push(globbed, blk_cleanup); - - while (*(fileptr = v++) != '\0') { - res = filetest(ftest, &fileptr, 0); - cleanup_push(res, xfree); - xprintf("%S", res); - cleanup_until(res); - if (*v) - xprintf(" "); - } - xprintf("\n"); - - cleanup_until(globbed); -} - -void -prvars(void) -{ - plist(&shvhed, VAR_ALL); -} - -/*ARGSUSED*/ -void -doalias(Char **v, struct command *c) -{ - struct varent *vp; - 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 && vp->vec) - 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(Char **v, struct command *c) -{ - USE(c); - unset1(v, &aliases); - tw_cmd_free(); -} - -/*ARGSUSED*/ -void -dologout(Char **v, struct command *c) -{ - USE(c); - USE(v); - islogin(); - goodbye(NULL, NULL); -} - -/*ARGSUSED*/ -void -dologin(Char **v, struct command *c) -{ -#ifdef WINNT_NATIVE - USE(c); - USE(v); -#else /* !WINNT_NATIVE */ - char **p = short2blk(v); - - USE(c); - cleanup_push((Char **)p, blk_cleanup); - islogin(); - rechist(NULL, adrof(STRsavehist) != NULL); - sigaction(SIGTERM, &parterm, NULL); - (void) execv(_PATH_BIN_LOGIN, p); - (void) execv(_PATH_USRBIN_LOGIN, p); - cleanup_until((Char **)p); - untty(); - xexit(1); -#endif /* !WINNT_NATIVE */ -} - - -#ifdef NEWGRP -/*ARGSUSED*/ -void -donewgrp(Char **v, struct command *c) -{ - char **p; - if (chkstop == 0 && setintr) - panystop(0); - sigaction(SIGTERM, &parterm, NULL); - 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(void) -{ - if (chkstop == 0 && setintr) - panystop(0); - if (loginsh) - return; - stderror(ERR_NOTLOGIN); -} - -void -doif(Char **v, struct command *kp) -{ - int i; - Char **vv; - - v++; - i = noexec ? 1 : 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(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, TRUE); -} - -/*ARGSUSED*/ -void -doelse (Char **v, struct command *c) -{ - USE(c); - USE(v); - if (!noexec) - search(TC_ELSE, 0, NULL); -} - -/*ARGSUSED*/ -void -dogoto(Char **v, struct command *c) -{ - Char *lp; - - USE(c); - lp = globone(v[1], G_ERROR); - cleanup_push(lp, xfree); - if (!noexec) - gotolab(lp); - cleanup_until(lp); -} - -void -gotolab(Char *lab) -{ - 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 == TCSH_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(Char **v, struct command *c) -{ - Char *cp, *lp; - - USE(c); - v++; - if (!*v || *(*v++) != '(') - stderror(ERR_SYNTAX); - cp = **v == ')' ? STRNULL : *v++; - if (*(*v++) != ')') - v--; - if (*v) - stderror(ERR_SYNTAX); - lp = globone(cp, G_ERROR); - cleanup_push(lp, xfree); - if (!noexec) - search(TC_SWITCH, 0, lp); - cleanup_until(lp); -} - -/*ARGSUSED*/ -void -dobreak(Char **v, struct command *c) -{ - USE(v); - USE(c); - if (whyles == NULL) - stderror(ERR_NAME | ERR_NOTWHILE); - if (!noexec) - toend(); -} - -/*ARGSUSED*/ -void -doexit(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) { - setv(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? */ - xclose(SHIN); -} - -/*ARGSUSED*/ -void -doforeach(Char **v, struct command *c) -{ - Char *cp, *sp; - struct whyle *nwp; - int gflag; - - 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); - cp = *v++; - if (v[0][0] != '(' || v[blklen(v) - 1][0] != ')') - stderror(ERR_NAME | ERR_NOPAREN); - v++; - gflag = tglob(v); - if (gflag) { - v = globall(v, gflag); - if (v == 0 && !noexec) - stderror(ERR_NAME | ERR_NOMATCH); - } - else { - v = saveblk(v); - trim(v); - } - nwp = xcalloc(1, sizeof *nwp); - nwp->w_fe = nwp->w_fe0 = v; - btell(&nwp->w_start); - nwp->w_fename = Strsave(cp); - nwp->w_next = whyles; - nwp->w_end.type = TCSH_F_SEEK; - whyles = nwp; - /* - * Pre-read the loop so as to be more comprehensible to a terminal user. - */ - zlast = TC_FOREACH; - if (intty) - preread(); - if (!noexec) - doagain(); -} - -/*ARGSUSED*/ -void -dowhile(Char **v, struct command *c) -{ - int status; - int 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 (noexec) - status = 0; - else if (intty && !again) - status = !exp0(&v, 1); - else - status = !expr(&v); - if (*v && !noexec) - stderror(ERR_NAME | ERR_EXPRESSION); - if (!again) { - struct whyle *nwp = xcalloc(1, sizeof(*nwp)); - - nwp->w_start = lineloc; - nwp->w_end.type = TCSH_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(void) -{ - int old_pintr_disabled; - - whyles->w_end.type = TCSH_I_SEEK; - if (setintr) - pintr_push_enable(&old_pintr_disabled); - search(TC_BREAK, 0, NULL); /* read the expression in */ - if (setintr) - cleanup_until(&old_pintr_disabled); - btell(&whyles->w_end); -} - -/*ARGSUSED*/ -void -doend(Char **v, struct command *c) -{ - USE(v); - USE(c); - if (!whyles) - stderror(ERR_NAME | ERR_NOTWHILE); - btell(&whyles->w_end); - if (!noexec) - doagain(); -} - -/*ARGSUSED*/ -void -docontin(Char **v, struct command *c) -{ - USE(v); - USE(c); - if (!whyles) - stderror(ERR_NAME | ERR_NOTWHILE); - if (!noexec) - doagain(); -} - -static void -doagain(void) -{ - /* 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; - } - setv(whyles->w_fename, quote(Strsave(*whyles->w_fe++)), VAR_READWRITE); - bseek(&whyles->w_start); -} - -void -dorepeat(Char **v, struct command *kp) -{ - int i = 1; - - do { - i *= getn(v[1]); - lshift(v, 2); - } while (v[0] != NULL && Strcmp(v[0], STRrepeat) == 0); - if (noexec) - i = 1; - - if (setintr) { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - while (i > 0) { - if (setintr && pintr_disabled == 1) { - cleanup_until(&pintr_disabled); - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - reexecute(kp); - --i; - } - cleanup_until(&pintr_disabled); - donefds(); -} - -/*ARGSUSED*/ -void -doswbrk(Char **v, struct command *c) -{ - USE(v); - USE(c); - if (!noexec) - search(TC_BRKSW, 0, NULL); -} - -int -srchx(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 const char * -isrchx(int n) -{ - struct srch *sp, *sp2; - - for (sp = srchn, sp2 = srchn + nsrchn; sp < sp2; sp++) - if (sp->s_value == n) - return (sp->s_name); - return (""); -} - - -static int Stype; -static Char *Sgoal; - -static void -search(int type, int level, Char *goal) -{ - struct Strbuf word = Strbuf_INIT; - Char *cp; - struct whyle *wp; - int wlevel = 0; - - Stype = type; - Sgoal = goal; - if (type == TC_GOTO) { - struct Ain a; - a.type = TCSH_F_SEEK; - a.f_seek = 0; - bseek(&a); - } - cleanup_push(&word, Strbuf_cleanup); - do { - if (intty && fseekp == feobp && aret == TCSH_F_SEEK) - printprompt(1, isrchx(type == TC_BREAK ? zlast : type)); - /* xprintf("? "), flush(); */ - (void) getword(&word); - Strbuf_terminate(&word); - switch (srchx(word.s)) { - - case TC_ELSE: - if (level == 0 && type == TC_IF) - goto end; - break; - - case TC_IF: - while (getword(&word)) - continue; - if ((type == TC_IF || type == TC_ELSE) && - eq(word.s, STRthen)) - level++; - break; - - case TC_ENDIF: - if (type == TC_IF || type == TC_ELSE) - level--; - break; - - case TC_FOREACH: - case TC_WHILE: - wlevel++; - if (type == TC_BREAK) - level++; - break; - - case TC_END: - if (type == TC_BRKSW) { - if (wlevel == 0) { - wp = whyles; - if (wp) { - whyles = wp->w_next; - wpfree(wp); - } - } - } - if (type == TC_BREAK) - level--; - wlevel--; - 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(&word) && eq(word.s, goal)) - level = -1; - break; - - default: - if (type != TC_GOTO && (type != TC_SWITCH || level != 0)) - break; - if (word.len == 0 || word.s[word.len - 1] != ':') - break; - word.s[--word.len] = 0; - if ((type == TC_GOTO && eq(word.s, goal)) || - (type == TC_SWITCH && eq(word.s, STRdefault))) - level = -1; - break; - - case TC_CASE: - if (type != TC_SWITCH || level != 0) - break; - (void) getword(&word); - if (word.len != 0 && word.s[word.len - 1] == ':') - word.s[--word.len] = 0; - cp = strip(Dfix1(word.s)); - cleanup_push(cp, xfree); - if (Gmatch(goal, cp)) - level = -1; - cleanup_until(cp); - break; - - case TC_DEFAULT: - if (type == TC_SWITCH && level == 0) - level = -1; - break; - } - (void) getword(NULL); - } while (level >= 0); - end: - cleanup_until(&word); -} - -static int -getword(struct Strbuf *wp) -{ - int found = 0, first; - eChar c, d; - - if (wp) - wp->len = 0; - c = readc(1); - d = 0; - do { - while (c == ' ' || c == '\t') - c = readc(1); - if (c == '#') - do - c = readc(1); - while (c != CHAR_ERR && c != '\n'); - if (c == CHAR_ERR) - 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 == CHAR_ERR) - goto past; - if (wp) - Strbuf_append1(wp, (Char) c); - if (!first && !d && c == '(') { - if (wp) - goto past_word_end; - else - break; - } - first = 0; - } while ((d || (c != ' ' && c != '\t')) && c != '\n'); - } while (wp == 0); - - past_word_end: - unreadc(c); - if (found) { - wp->len--; - Strbuf_terminate(wp); - } - - 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(void) -{ - if (whyles->w_end.type == TCSH_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(); -} - -static void -wpfree(struct whyle *wp) -{ - if (wp->w_fe0) - blkfree(wp->w_fe0); - xfree(wp->w_fename); - xfree(wp); -} - -void -wfree(void) -{ - struct Ain o; - struct whyle *nwp; -#ifdef lint - nwp = NULL; /* sun lint is dumb! */ -#endif - -#ifdef FDEBUG - static const 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) { - 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 != TCSH_I_SEEK && wp->w_start.type == wp->w_end.type && - wp->w_start.type == o.type) { - if (wp->w_end.type == TCSH_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; - } - } - - wpfree(wp); - } -} - -/*ARGSUSED*/ -void -doecho(Char **v, struct command *c) -{ - USE(c); - xecho(' ', v); -} - -/*ARGSUSED*/ -void -doglob(Char **v, struct command *c) -{ - USE(c); - xecho(0, v); - flush(); -} - -static void -xecho(int sep, Char **v) -{ - Char *cp, **globbed = NULL; - int nonl = 0; - int echo_style = 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; - } - - v++; - if (*v == 0) - goto done; - if (setintr) { - int old_pintr_disabled; - pintr_push_enable(&old_pintr_disabled); - v = glob_all_or_error(v); - cleanup_until(&old_pintr_disabled); - } else { - v = glob_all_or_error(v); - } - globbed = v; - if (globbed != NULL) - cleanup_push(globbed, blk_cleanup); - - if ((echo_style & BSD_ECHO) != 0 && sep == ' ' && *v && eq(*v, STRmn)) - nonl++, v++; - - while ((cp = *v++) != 0) { - Char c; - - if (setintr) { - int old_pintr_disabled; - - pintr_push_enable(&old_pintr_disabled); - cleanup_until(&old_pintr_disabled); - } - 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 = CTL_ESC('\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; - } - } - xputwchar(c | QUOTE); - - } - if (*v) - xputchar(sep | QUOTE); - } -done: - if (sep && nonl == 0) - xputchar('\n'); - else - flush(); - if (globbed != NULL) - cleanup_until(globbed); -} - -/* check whether an environment variable should invoke 'set_locale()' */ -static int -islocale_var(Char *var) -{ - static Char *locale_vars[] = { - STRLANG, STRLC_ALL, STRLC_CTYPE, STRLC_NUMERIC, - STRLC_TIME, STRLC_COLLATE, STRLC_MESSAGES, STRLC_MONETARY, 0 - }; - Char **v; - - for (v = locale_vars; *v; ++v) - if (eq(var, *v)) - return 1; - return 0; -} - -static void -xlate_cr_cleanup(void *dummy) -{ - USE(dummy); - xlate_cr = 0; -} - -/*ARGSUSED*/ -void -doprintenv(Char **v, struct command *c) -{ - Char *e; - - USE(c); - v++; - if (*v == 0) { - Char **ep; - - xlate_cr = 1; - cleanup_push(&xlate_cr, xlate_cr_cleanup); - for (ep = STR_environ; *ep; ep++) { - if (setintr) { - int old_pintr_disabled; - - pintr_push_enable(&old_pintr_disabled); - cleanup_until(&old_pintr_disabled); - } - xprintf("%S\n", *ep); - } - cleanup_until(&xlate_cr); - } - else if ((e = tgetenv(*v)) != NULL) { - int old_output_raw; - - old_output_raw = output_raw; - output_raw = 1; - cleanup_push(&old_output_raw, output_raw_restore); - xprintf("%S\n", e); - cleanup_until(&old_output_raw); - } - else - setcopy(STRstatus, 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(Char **v, struct command *c) -{ - Char *vp, *lp; - - USE(c); - if (*++v == 0) { - doprintenv(--v, 0); - return; - } - - vp = *v++; - - lp = vp; - - for (; *lp != '\0' ; lp++) { - if (*lp == '=') - stderror(ERR_NAME | ERR_SYNTAX); - } - if ((lp = *v++) == 0) - lp = STRNULL; - - lp = globone(lp, G_APPEND); - cleanup_push(lp, xfree); - tsetenv(vp, lp); - if (eq(vp, STRKPATH)) { - importpath(lp); - dohash(NULL, NULL); - cleanup_until(lp); - return; - } - -#ifdef apollo - if (eq(vp, STRSYSTYPE)) { - dohash(NULL, NULL); - cleanup_until(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 LC_CTYPE - (void) setlocale(LC_CTYPE, ""); /* for iscntrl */ -# endif /* LC_CTYPE */ -# ifdef NLS_CATALOGS -# ifdef LC_MESSAGES - (void) setlocale(LC_MESSAGES, ""); -# endif /* LC_MESSAGES */ - nlsclose(); - nlsinit(); -# endif /* NLS_CATALOGS */ -# 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(CTL_ESC(k)); k++) - continue; - AsciiOnly = MB_CUR_MAX == 1 && k > 0377; -#else /* !NLS */ - AsciiOnly = 0; -#endif /* NLS */ - NLSMapsAreInited = 0; - ed_Init(); - if (MapsAreInited && !NLSMapsAreInited) - ed_InitNLSMaps(); - cleanup_until(lp); - return; - } - -#ifdef NLS_CATALOGS - if (eq(vp, STRNLSPATH)) { - nlsclose(); - nlsinit(); - } -#endif - - if (eq(vp, STRNOREBIND)) { - NoNLSRebind = 1; - MapsAreInited = 0; - NLSMapsAreInited = 0; - ed_InitMaps(); - cleanup_until(lp); - return; - } -#ifdef WINNT_NATIVE - if (eq(vp, STRtcshlang)) { - nlsinit(); - cleanup_until(lp); - return; - } -#endif /* WINNT_NATIVE */ - if (eq(vp, STRKTERM)) { - char *t; - - setv(STRterm, quote(lp), VAR_READWRITE); /* lp memory used here */ - cleanup_ignore(lp); - cleanup_until(lp); - t = short2str(lp); - if (noediting && strcmp(t, "unknown") != 0 && strcmp(t,"dumb") != 0) { - editing = 1; - noediting = 0; - setNS(STRedit); - } - GotTermCaps = 0; - ed_Init(); - return; - } - - if (eq(vp, STRKHOME)) { - Char *canon; - /* - * convert to canonical pathname (possibly resolving symlinks) - */ - canon = dcanon(lp, lp); - cleanup_ignore(lp); - cleanup_until(lp); - cleanup_push(canon, xfree); - setv(STRhome, quote(canon), VAR_READWRITE); /* lp memory used here */ - cleanup_ignore(canon); - cleanup_until(canon); - - /* fix directory stack for new tilde home */ - dtilde(); - return; - } - - if (eq(vp, STRKSHLVL)) { - setv(STRshlvl, quote(lp), VAR_READWRITE); /* lp memory used here */ - cleanup_ignore(lp); - cleanup_until(lp); - return; - } - - if (eq(vp, STRKUSER)) { - setv(STRuser, quote(lp), VAR_READWRITE); /* lp memory used here */ - cleanup_ignore(lp); - cleanup_until(lp); - return; - } - - if (eq(vp, STRKGROUP)) { - setv(STRgroup, quote(lp), VAR_READWRITE); /* lp memory used here */ - cleanup_ignore(lp); - cleanup_until(lp); - return; - } - -#ifdef COLOR_LS_F - if (eq(vp, STRLS_COLORS)) { - parseLS_COLORS(lp); - cleanup_until(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)) { - cleanup_until(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 - cleanup_until(lp); - ed_Init(); - return; - } -#endif /* SIG_WINDOW */ - cleanup_until(lp); -} - -/*ARGSUSED*/ -void -dounsetenv(Char **v, struct command *c) -{ - Char **ep, *p, *n, *name; - int i, maxi; - - USE(c); - /* - * 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 = xmalloc((maxi + 1) * sizeof(Char)); - cleanup_push(name, xfree); - - 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 LC_CTYPE - (void) setlocale(LC_CTYPE, ""); /* for iscntrl */ -# endif /* LC_CTYPE */ -# ifdef NLS_CATALOGS -# ifdef LC_MESSAGES - (void) setlocale(LC_MESSAGES, ""); -# endif /* LC_MESSAGES */ - nlsclose(); - nlsinit(); -# endif /* NLS_CATALOGS */ -# 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(CTL_ESC(k)); k++) - continue; - AsciiOnly = MB_CUR_MAX == 1 && 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_NATIVE - else if (eq(name,(STRtcshlang))) { - nls_dll_unload(); - nlsinit(); - } -#endif /* WINNT_NATIVE */ -#ifdef COLOR_LS_F - else if (eq(name, STRLS_COLORS)) - parseLS_COLORS(n); -#endif /* COLOR_LS_F */ -#ifdef NLS_CATALOGS - else if (eq(name, STRNLSPATH)) { - nlsclose(); - nlsinit(); - } -#endif - /* - * start again cause the environment changes - */ - break; - } - cleanup_until(name); -} - -void -tsetenv(const Char *name, const Char *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 *cname; - - if (name == NULL) - return; - cname = strsave(short2str(name)); - setenv(cname, short2str(val), 1); - xfree(cname); -#else /* !SETENV_IN_LIB */ - Char **ep = STR_environ; - const Char *ccp; - Char *cp, *dp; - Char *blk[2]; - Char **oep = ep; - -#ifdef WINNT_NATIVE - nt_set_env(name,val); -#endif /* WINNT_NATIVE */ - for (; *ep; ep++) { -#ifdef WINNT_NATIVE - for (ccp = name, dp = *ep; *ccp && Tolower(*ccp & TRIM) == Tolower(*dp); - ccp++, dp++) -#else - for (ccp = name, dp = *ep; *ccp && (*ccp & TRIM) == *dp; ccp++, dp++) -#endif /* WINNT_NATIVE */ - continue; - if (*ccp != 0 || *dp != '=') - continue; - cp = Strspl(STRequal, val); - xfree(*ep); - *ep = strip(Strspl(name, cp)); - xfree(cp); - blkfree((Char **) environ); - environ = short2blk(STR_environ); - return; - } - cp = Strspl(name, STRequal); - blk[0] = strip(Strspl(cp, val)); - xfree(cp); - blk[1] = 0; - STR_environ = blkspl(STR_environ, blk); - blkfree((Char **) environ); - environ = short2blk(STR_environ); - xfree(oep); -#endif /* SETENV_IN_LIB */ -} - -void -Unsetenv(Char *name) -{ - Char **ep = STR_environ; - Char *cp, *dp; - Char **oep = ep; - -#ifdef WINNT_NATIVE - nt_set_env(name,NULL); -#endif /*WINNT_NATIVE */ - 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(cp); - xfree(oep); - return; - } -} - -/*ARGSUSED*/ -void -doumask(Char **v, struct command *c) -{ - Char *cp = v[1]; - 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; -# ifdef _OSD_POSIX /* BS2000 */ -# include <ulimit.h> -# endif -# 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(__linux__) || defined(__GNU__) || defined(__GLIBC__) || (HPUXVERSION >= 1100)) && !defined(__386BSD__) - typedef rlim_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) && (HPUXVERSION < 1100) && 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) && (HPUXVERSION < 1100) && 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. */ -/* XXX: I don't understand if RLIMIT_AS is defined, why don't we define */ -/* RLIMIT_VMEM based on it? */ -# ifndef RLIMIT_VMEM -# define RLIMIT_VMEM 6 -# endif -# ifndef RLIMIT_AS -# define RLIMIT_AS RLIMIT_VMEM -# endif -# endif /* SYSVREL > 3 && BSDLIMIT */ - -# if (defined(__linux__) || defined(__GNU__) || defined(__GLIBC__)) && defined(RLIMIT_AS) && !defined(RLIMIT_VMEM) -# define RLIMIT_VMEM RLIMIT_AS -# endif - -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 */ - -# if defined(RLIMIT_HEAP) /* found on BS2000/OSD systems */ - { RLIMIT_HEAP, "heapsize", 1024, "kbytes" }, -# endif /* RLIMIT_HEAP */ - -# 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 */ - -# if defined(RLIMIT_OFILE) && !defined(RLIMIT_NOFILE) - { RLIMIT_OFILE, "openfiles", 1, "" }, -# endif /* RLIMIT_OFILE && !defined(RLIMIT_NOFILE) */ - -# ifdef RLIMIT_SBSIZE - { RLIMIT_SBSIZE, "sbsize", 1, "" }, -# endif /* RLIMIT_SBSIZE */ - - { -1, NULL, 0, NULL } -}; - -static struct limits *findlim (Char *); -static RLIM_TYPE getval (struct limits *, Char **); -static void limtail (Char *, const char *); -static void plim (struct limits *, int); -static int setlim (struct limits *, int, RLIM_TYPE); - -#ifdef convex -static RLIM_TYPE -restrict_limit(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(Char *cp) -{ - struct limits *lp, *res; - - res = 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(Char **v, struct command *c) -{ - struct limits *lp; - 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(struct limits *lp, Char **v) -{ - float f; - 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 restrict_limit((f * lp->limdiv) + 0.5); - 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(Char *cp, const char *str) -{ - const char *sp; - - sp = str; - while (*cp && *cp == (Char)*str) - cp++, str++; - if (*cp) - stderror(ERR_BADSCALE, sp); -} - - -/*ARGSUSED*/ -static void -plim(struct limits *lp, int hard) -{ -# ifdef BSDLIMIT - struct rlimit rlim; -# endif /* BSDLIMIT */ - RLIM_TYPE limit; - int xdiv = lp->limdiv; - - xprintf("%-13.13s", 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 - xdiv = (xdiv == 1024 ? 2 : 1); - } -# endif /* !BSDLIMIT || FILESIZE512 */ - - if (limit == RLIM_INFINITY) - xprintf("unlimited"); - else -# if defined(RLIMIT_CPU) && defined(_OSD_POSIX) - if (lp->limconst == RLIMIT_CPU && - (unsigned long)limit >= 0x7ffffffdUL) - xprintf("unlimited"); - else -# endif -# ifdef RLIMIT_CPU - if (lp->limconst == RLIMIT_CPU) - psecs(limit); - else -# endif /* RLIMIT_CPU */ - xprintf("%ld %s", (long) (limit / xdiv), lp->limscale); - xputchar('\n'); -} - -/*ARGSUSED*/ -void -dounlimit(Char **v, struct command *c) -{ - 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(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 (rlim.rlim_cur > rlim.rlim_max) - rlim.rlim_max = rlim.rlim_cur; - - 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 */ - int err; - char *op, *type; - - err = errno; - op = strsave(limit == RLIM_INFINITY ? CGETS(15, 2, "remove") : - CGETS(15, 3, "set")); - cleanup_push(op, xfree); - type = strsave(hard ? CGETS(15, 4, " hard") : ""); - cleanup_push(type, xfree); - xprintf(CGETS(15, 1, "%s: %s: Can't %s%s limit (%s)\n"), bname, - lp->limname, op, type, strerror(err)); - cleanup_until(op); - return (-1); - } - return (0); -} - -#endif /* !HAVENOLIMIT */ - -/*ARGSUSED*/ -void -dosuspend(Char **v, struct command *c) -{ -#ifdef BSDJOBS - int ctpgrp; - struct sigaction old; -#endif /* BSDJOBS */ - - USE(c); - USE(v); - - if (loginsh) - stderror(ERR_SUSPLOG); - untty(); - -#ifdef BSDJOBS - sigaction(SIGTSTP, NULL, &old); - signal(SIGTSTP, SIG_DFL); - (void) kill(0, SIGTSTP); - /* the shell stops here */ - sigaction(SIGTSTP, &old, NULL); -#else /* !BSDJOBS */ - stderror(ERR_JOBCONTROL); -#endif /* BSDJOBS */ - -#ifdef BSDJOBS - if (tpgrp != -1) { -retry: - ctpgrp = tcgetpgrp(FSHTTY); - if (ctpgrp == -1) - stderror(ERR_SYSTEM, "tcgetpgrp", strerror(errno)); - if (ctpgrp != opgrp) { - sigaction(SIGTTIN, NULL, &old); - signal(SIGTTIN, SIG_DFL); - (void) kill(0, SIGTTIN); - sigaction(SIGTTIN, &old, NULL); - 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! - */ - -struct doeval_state -{ - Char **evalvec, *evalp; - int didfds; -#ifndef CLOSE_ON_EXEC - int didcch; -#endif - int saveIN, saveOUT, saveDIAG; - int SHIN, SHOUT, SHDIAG; -}; - -static void -doeval_cleanup(void *xstate) -{ - struct doeval_state *state; - - state = xstate; - evalvec = state->evalvec; - evalp = state->evalp; - doneinp = 0; -#ifndef CLOSE_ON_EXEC - didcch = state->didcch; -#endif /* CLOSE_ON_EXEC */ - didfds = state->didfds; - xclose(SHIN); - xclose(SHOUT); - xclose(SHDIAG); - close_on_exec(SHIN = dmove(state->saveIN, state->SHIN), 1); - close_on_exec(SHOUT = dmove(state->saveOUT, state->SHOUT), 1); - close_on_exec(SHDIAG = dmove(state->saveDIAG, state->SHDIAG), 1); -} - -/*ARGSUSED*/ -void -doeval(Char **v, struct command *c) -{ - struct doeval_state state; - int gflag; - Char **gv; - - USE(c); - v++; - if (*v == 0) - return; - gflag = tglob(v); - if (gflag) { - gv = v = globall(v, gflag); - if (v == 0) - stderror(ERR_NOMATCH); - cleanup_push(gv, blk_cleanup); - v = copyblk(v); - } - else { - gv = NULL; - v = copyblk(v); - trim(v); - } - - state.evalvec = evalvec; - state.evalp = evalp; - state.didfds = didfds; -#ifndef CLOSE_ON_EXEC - state.didcch = didcch; -#endif /* CLOSE_ON_EXEC */ - state.SHIN = SHIN; - state.SHOUT = SHOUT; - state.SHDIAG = SHDIAG; - - (void)close_on_exec(state.saveIN = dcopy(SHIN, -1), 1); - (void)close_on_exec(state.saveOUT = dcopy(SHOUT, -1), 1); - (void)close_on_exec(state.saveDIAG = dcopy(SHDIAG, -1), 1); - - cleanup_push(&state, doeval_cleanup); - - evalvec = v; - evalp = 0; - (void)close_on_exec(SHIN = dcopy(0, -1), 1); - (void)close_on_exec(SHOUT = dcopy(1, -1), 1); - (void)close_on_exec(SHDIAG = dcopy(2, -1), 1); -#ifndef CLOSE_ON_EXEC - didcch = 0; -#endif /* CLOSE_ON_EXEC */ - didfds = 0; - process(0); - - cleanup_until(&state); - - if (gv) - cleanup_until(gv); -} - -/*************************************************************************/ -/* print list of builtin commands */ - -static void -lbuffed_cleanup (void *dummy) -{ - USE(dummy); - lbuffed = 1; -} - -/*ARGSUSED*/ -void -dobuiltins(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) - */ - const struct biltins *b; - int row, col, columns, rows; - unsigned int w, maxwidth; - - USE(c); - USE(v); - lbuffed = 0; /* turn off line buffering */ - cleanup_push(&lbuffed, lbuffed_cleanup); - - /* 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_NATIVE - nt_print_builtins(maxwidth); -#else - if (Tty_raw_mode) - xputchar('\r'); - xputchar('\n'); -#endif /* WINNT_NATIVE */ - - cleanup_until(&lbuffed); /* turn back on line buffering */ - flush(); -} - -#ifdef NLS_CATALOGS -char * -xcatgets(nl_catd ctd, int set_id, int msg_id, const char *s) -{ - char *res; - - errno = 0; - while ((res = catgets(ctd, set_id, msg_id, s)) == s && errno == EINTR) { - handle_pending_signals(); - errno = 0; - } - return res; -} - - -# if defined(HAVE_ICONV) && defined(HAVE_NL_LANGINFO) -char * -iconv_catgets(nl_catd ctd, int set_id, int msg_id, const char *s) -{ - static char *buf = NULL; - static size_t buf_size = 0; - - char *orig, *dest, *p; - ICONV_CONST char *src; - size_t src_size, dest_size; - - orig = xcatgets(ctd, set_id, msg_id, s); - if (catgets_iconv == (iconv_t)-1 || orig == s) - return orig; - src = orig; - src_size = strlen(src) + 1; - if (buf == NULL && (buf = xmalloc(buf_size = src_size + 32)) == NULL) - return orig; - dest = buf; - while (src_size != 0) { - dest_size = buf + buf_size - dest; - if (iconv(catgets_iconv, &src, &src_size, &dest, &dest_size) - == (size_t)-1) { - switch (errno) { - case E2BIG: - if ((p = xrealloc(buf, buf_size * 2)) == NULL) - return orig; - buf_size *= 2; - dest = p + (dest - buf); - buf = p; - break; - - case EILSEQ: case EINVAL: default: - return orig; - } - } - } - return buf; -} -# endif /* HAVE_ICONV && HAVE_NL_LANGINFO */ -#endif /* NLS_CATALOGS */ - -void -nlsinit(void) -{ -#ifdef NLS_CATALOGS - static const char default_catalog[] = "tcsh"; - - char *catalog = (char *)(intptr_t)default_catalog; - - if (adrof(STRcatalog) != NULL) - catalog = xasprintf("tcsh.%s", short2str(varval(STRcatalog))); - catd = catopen(catalog, MCLoadBySet); - if (catalog != default_catalog) - xfree(catalog); -#if defined(HAVE_ICONV) && defined(HAVE_NL_LANGINFO) - /* xcatgets (), not CGETS, the charset name should be in ASCII anyway. */ - catgets_iconv = iconv_open (nl_langinfo (CODESET), - xcatgets(catd, 255, 1, "ASCII")); -#endif /* HAVE_ICONV && HAVE_NL_LANGINFO */ -#endif /* NLS_CATALOGS */ -#ifdef WINNT_NATIVE - nls_dll_init(); -#endif /* WINNT_NATIVE */ - 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 */ -} - -void -nlsclose(void) -{ -#ifdef NLS_CATALOGS -#if defined(HAVE_ICONV) && defined(HAVE_NL_LANGINFO) - if (catgets_iconv != (iconv_t)-1) { - iconv_close(catgets_iconv); - catgets_iconv = (iconv_t)-1; - } -#endif /* HAVE_ICONV && HAVE_NL_LANGINFO */ - if (catd != (nl_catd)-1) { - /* - * catclose can call other functions which can call longjmp - * making us re-enter this code. Prevent infinite recursion - * by resetting catd. Problem reported and solved by: - * Gerhard Niklasch - */ - nl_catd oldcatd = catd; - catd = (nl_catd)-1; - while (catclose(oldcatd) == -1 && errno == EINTR) - handle_pending_signals(); - } -#endif /* NLS_CATALOGS */ -} diff --git a/contrib/tcsh/sh.glob.c b/contrib/tcsh/sh.glob.c deleted file mode 100644 index a7215f3..0000000 --- a/contrib/tcsh/sh.glob.c +++ /dev/null @@ -1,1024 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.glob.c,v 3.74 2006/10/14 17:57:21 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. 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("$tcsh: sh.glob.c,v 3.74 2006/10/14 17:57:21 christos Exp $") - -#include "tc.h" -#include "tw.h" - -#include "glob.h" - -/* - * 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 LBRC '{' -#define RBRC '}' -#define LBRK '[' -#define RBRK ']' -#define EOS '\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 (Char *); -static Char *handleone (Char *, Char **, int); -static Char **libglob (Char **); -static Char **globexpand (Char **, int); -static int globbrace (const Char *, Char ***); -static void expbrace (Char ***, Char ***, int); -static void pword (struct blk_buf *, struct Strbuf *); -static void backeval (struct blk_buf *, struct Strbuf *, Char *, - int); -static Char * -globtilde(Char *s) -{ - Char *name, *u, *home, *res; - - u = s; - for (s++; *s && *s != '/' && *s != ':'; s++) - continue; - name = Strnsave(u + 1, s - (u + 1)); - cleanup_push(name, xfree); - home = gethdir(name); - if (home == NULL) { - if (adrof(STRnonomatch)) { - cleanup_until(name); - return u; - } - if (*name) - stderror(ERR_UNKUSER, short2str(name)); - else - stderror(ERR_NOHOME); - } - cleanup_until(name); - if (home[0] == '/' && home[1] == '\0' && s[0] == '/') - res = Strsave(s); - else - res = Strspl(home, s); - xfree(home); - xfree(u); - return res; -} - -/* Returns a newly allocated string, old or NULL */ -Char * -globequal(Char *old) -{ - int dig; - const Char *dir; - Char *b; - - /* - * 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] == '/')) { - /* =- */ - const Char *olddir = varval (STRowd); - - if (olddir && *olddir && - !dcwd->di_next->di_name && !dcwd->di_prev->di_name) - return Strspl(olddir, &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; - - dir = getstakd(dig); - if (dir == NULL) - return NULL; - return Strspl(dir, b); -} - -static int -globbrace(const Char *s, Char ***bl) -{ - struct Strbuf gbuf = Strbuf_INIT; - struct blk_buf bb = BLK_BUF_INIT; - int i; - const Char *p, *pm, *pe, *pl; - size_t prefix_len; - - /* copy part up to the brace */ - for (p = s; *p != LBRC; p++) - ; - prefix_len = p - s; - - /* check for balanced braces */ - for (i = 0, pe = ++p; *pe; pe++) - if (*pe == LBRK) { - /* Ignore everything between [] */ - for (++pe; *pe != RBRK && *pe != EOS; pe++) - continue; - if (*pe == EOS) - return (-RBRK); - } - else if (*pe == LBRC) - i++; - else if (*pe == RBRC) { - if (i == 0) - break; - i--; - } - - if (i != 0 || *pe == '\0') - return (-RBRC); - - Strbuf_appendn(&gbuf, s, prefix_len); - - for (i = 0, pl = pm = p; pm <= pe; pm++) - switch (*pm) { - case LBRK: - for (++pm; *pm != RBRK && *pm != EOS; pm++) - continue; - if (*pm == EOS) { - bb_cleanup(&bb); - xfree(gbuf.s); - return (-RBRK); - } - break; - case LBRC: - i++; - break; - case RBRC: - if (i) { - i--; - break; - } - /* FALLTHROUGH */ - case ',': - if (i && *pm == ',') - break; - else { - gbuf.len = prefix_len; - Strbuf_appendn(&gbuf, pl, pm - pl); - Strbuf_append(&gbuf, pe + 1); - Strbuf_terminate(&gbuf); - bb_append(&bb, Strsave(gbuf.s)); - pl = pm + 1; - } - break; - default: - break; - } - *bl = bb_finish(&bb); - xfree(gbuf.s); - return bb.len; -} - - -static void -expbrace(Char ***nvp, Char ***elp, int size) -{ - Char **vl, **el, **nv, *s; - - vl = nv = *nvp; - if (elp != NULL) - el = *elp; - else - el = vl + blklen(vl); - - for (s = *vl; s; s = *++vl) { - Char **vp, **bp; - - /* leave {} untouched for find */ - if (s[0] == '{' && (s[1] == '\0' || (s[1] == '}' && s[2] == '\0'))) - continue; - if (Strchr(s, '{') != NULL) { - Char **bl = NULL; - int len; - - if ((len = globbrace(s, &bl)) < 0) - stderror(ERR_MISSING, -len); - xfree(s); - if (len == 1) { - *vl-- = *bl; - xfree(bl); - continue; - } - if (&el[len] >= &nv[size]) { - size_t l, e; - l = &el[len] - &nv[size]; - size += GLOBSPACE > l ? GLOBSPACE : l; - l = vl - nv; - e = el - nv; - nv = xrealloc(nv, size * sizeof(Char *)); - *nvp = nv; /* To keep cleanups working */ - 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(bl); - } - - } - if (elp != NULL) - *elp = el; -} - -static Char ** -globexpand(Char **v, int noglob) -{ - Char *s; - Char ***fnv, **vl, **el; - int size = GLOBSPACE; - - - fnv = xmalloc(sizeof(Char ***)); - *fnv = vl = xmalloc(sizeof(Char *) * size); - *vl = NULL; - cleanup_push(fnv, blk_indirect_cleanup); - - /* - * Step 1: expand backquotes. - */ - while ((s = *v++) != '\0') { - if (Strchr(s, '`')) { - int i; - Char **expanded; - - expanded = dobackp(s, 0); - for (i = 0; expanded[i] != NULL; i++) { - *vl++ = expanded[i]; - if (vl == &(*fnv)[size]) { - size += GLOBSPACE; - *fnv = xrealloc(*fnv, size * sizeof(Char *)); - vl = &(*fnv)[size - GLOBSPACE]; - } - } - xfree(expanded); - } - else { - *vl++ = Strsave(s); - if (vl == &(*fnv)[size]) { - size += GLOBSPACE; - *fnv = xrealloc(*fnv, size * sizeof(Char *)); - vl = &(*fnv)[size - GLOBSPACE]; - } - } - *vl = NULL; - } - - if (noglob) - goto done; - - /* - * Step 2: expand braces - */ - el = vl; - expbrace(fnv, &el, size); - - - /* - * Step 3: expand ~ = - */ - vl = *fnv; - for (s = *vl; s; s = *++vl) - switch (*s) { - Char *ns; - case '~': - *vl = globtilde(s); - break; - case '=': - if ((ns = globequal(s)) == NULL) { - if (!adrof(STRnonomatch)) - stderror(ERR_DEEP); /* Error */ - } - if (ns && ns != s) { - /* Expansion succeeded */ - xfree(s); - *vl = ns; - } - break; - default: - break; - } - vl = *fnv; - - /* - * 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(s); - } - } - - done: - cleanup_ignore(fnv); - cleanup_until(fnv); - vl = *fnv; - xfree(fnv); - return vl; -} - -static Char * -handleone(Char *str, Char **vl, int action) -{ - size_t 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 = vl; (p = *t++) != NULL; chars++) - chars += Strlen(p); - str = xmalloc(chars * sizeof(Char)); - for (t = vl, strp = str; (p = *t++) != '\0'; chars++) { - while (*p) - *strp++ = *p++ & TRIM; - *strp++ = ' '; - } - *--strp = '\0'; - blkfree(vl); - break; - case G_IGNORE: - str = Strsave(strip(*vl)); - blkfree(vl); - break; - default: - break; - } - return (str); -} - -static Char ** -libglob(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(Char *str, int action) -{ - Char *v[2], **vl, **vo; - int gflg, noglob; - - noglob = adrof(STRnoglob) != 0; - v[0] = str; - v[1] = 0; - gflg = tglob(v); - if (gflg == G_NONE) - return (strip(Strsave(str))); - - if (gflg & G_CSH) { - /* - * Expand back-quote, tilde and brace - */ - vo = globexpand(v, noglob); - if (noglob || (gflg & G_GLOB) == 0) { - vl = vo; - goto result; - } - cleanup_push(vo, blk_cleanup); - } - else if (noglob || (gflg & G_GLOB) == 0) - return (strip(Strsave(str))); - else - vo = v; - - vl = libglob(vo); - if (gflg & G_CSH) { - if (vl != vo) - cleanup_until(vo); - else - cleanup_ignore(vo); - } - if (vl == NULL) { - setname(short2str(str)); - stderror(ERR_NAME | ERR_NOMATCH); - } - result: - if (vl[0] == NULL) { - xfree(vl); - return (Strsave(STRNULL)); - } - if (vl[1]) - return (handleone(str, vl, action)); - else { - str = strip(*vl); - xfree(vl); - return (str); - } -} - -Char ** -globall(Char **v, int gflg) -{ - Char **vl, **vo; - int noglob; - - if (!v || !v[0]) - return saveblk(v); - - noglob = adrof(STRnoglob) != 0; - - if (gflg & G_CSH) - /* - * Expand back-quote, tilde and brace - */ - vl = vo = globexpand(v, noglob); - else - vl = vo = saveblk(v); - - if (!noglob && (gflg & G_GLOB)) { - cleanup_push(vo, blk_cleanup); - vl = libglob(vo); - if (vl == vo) - cleanup_ignore(vo); - cleanup_until(vo); - } - else - trim(vl); - - return vl; -} - -Char ** -glob_all_or_error(Char **v) -{ - int gflag; - - gflag = tglob(v); - if (gflag) { - v = globall(v, gflag); - if (v == NULL) - stderror(ERR_NAME | ERR_NOMATCH); - } else { - v = saveblk(v); - trim(v); - } - return v; -} - -void -rscan(Char **t, void (*f) (Char)) -{ - Char *p; - - while ((p = *t++) != '\0') - while (*p) - (*f) (*p++); -} - -void -trim(Char **t) -{ - Char *p; - - while ((p = *t++) != '\0') - while (*p) - *p++ &= TRIM; -} - -int -tglob(Char **t) -{ - int gflag; - const Char *p; - - gflag = 0; - while ((p = *t++) != '\0') { - if (*p == '~' || *p == '=') - gflag |= G_CSH; - else if (*p == '{' && - (p[1] == '\0' || (p[1] == '}' && p[2] == '\0'))) - continue; - while (*p != '\0') { - if (*p == '`') { - gflag |= G_CSH; -#ifdef notdef - /* - * We do want to expand echo `echo '*'`, so we don't\ - * use this piece of code anymore. - */ - p++; - while (*p && *p != '`') - if (*p++ == '\\') { - if (*p) /* Quoted chars */ - p++; - else - break; - } - if (!*p) /* The matching ` */ - break; -#endif - } - else if (*p == '{') - gflag |= G_CSH; - else if (isglob(*p)) - gflag |= G_GLOB; - else if (symlinks == SYM_EXPAND && - p[1] && ISDOTDOT(p) && (p == *(t-1) || *(p-1) == '/') ) - gflag |= G_CSH; - p++; - } - } - return gflag; -} - -/* - * 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(Char *cp, int literal) -{ - struct Strbuf word = Strbuf_INIT; - struct blk_buf bb = BLK_BUF_INIT; - Char *lp, *rp, *ep; - - cleanup_push(&bb, bb_cleanup); - cleanup_push(&word, Strbuf_cleanup); - for (;;) { - for (lp = cp; *lp != '\0' && *lp != '`'; lp++) - ; - Strbuf_appendn(&word, cp, lp - cp); - if (*lp == 0) - break; - lp++; - for (rp = lp; *rp && *rp != '`'; rp++) - if (*rp == '\\') { - rp++; - if (!*rp) - goto oops; - } - if (!*rp) { - oops: - stderror(ERR_UNMATCHED, '`'); - } - ep = Strnsave(lp, rp - lp); - cleanup_push(ep, xfree); - backeval(&bb, &word, ep, literal); - cleanup_until(ep); - cp = rp + 1; - } - if (word.len != 0) - pword(&bb, &word); - cleanup_ignore(&bb); - cleanup_until(&bb); - return bb_finish(&bb); -} - - -static void -backeval(struct blk_buf *bb, struct Strbuf *word, Char *cp, int literal) -{ - int icnt; - Char c, *ip; - struct command faket; - int 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(); - cleanup_push(&faket, psavejob_cleanup); /* faket is only a marker */ - - /* - * 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); - cleanup_push(&pvec[0], open_cleanup); - cleanup_push(&pvec[1], open_cleanup); - if (pfork(&faket, -1) == 0) { - jmp_buf_t osetexit; - struct command *t; - size_t omark; - - xclose(pvec[0]); - (void) dmove(pvec[1], 1); - (void) dmove(SHDIAG, 2); - initdesc(); - closem(); - arginp = cp; - for (arginp = cp; *cp; cp++) { - *cp &= TRIM; - if (is_set(STRcsubstnonl) && (*cp == '\n' || *cp == '\r')) - *cp = ' '; - } - - /* - * In the child ``forget'' everything about current aliases or - * eval vectors. - */ - alvec = NULL; - evalvec = NULL; - alvecp = NULL; - evalp = NULL; - - omark = cleanup_push_mark(); - getexit(osetexit); - for (;;) { - (void) setexit(); - justpr = 0; - - if (haderr) { - /* unwind */ - doneinp = 0; - cleanup_pop_mark(omark); - resexit(osetexit); - reset(); - } - if (seterr) { - xfree(seterr); - seterr = NULL; - } - - (void) lex(¶ml); - cleanup_push(¶ml, lex_cleanup); - if (seterr) - stderror(ERR_OLD); - alias(¶ml); - t = syntax(paraml.next, ¶ml, 0); - cleanup_push(t, syntax_cleanup); - if (seterr) - stderror(ERR_OLD); -#ifdef SIGTSTP - signal(SIGTSTP, SIG_IGN); -#endif -#ifdef SIGTTIN - signal(SIGTTIN, SIG_IGN); -#endif -#ifdef SIGTTOU - signal(SIGTTOU, SIG_IGN); -#endif - execute(t, -1, NULL, NULL, TRUE); - - cleanup_until(¶ml); - } - } - cleanup_until(&pvec[1]); - c = 0; - ip = NULL; - do { - int cnt = 0; - char *tmp; - - tmp = tibuf; - for (;;) { - while (icnt == 0) { - int i, eof; - - ip = ibuf; - icnt = xread(pvec[0], tmp, tibuf + BUFSIZE - tmp); - eof = 0; - if (icnt <= 0) { - if (tmp == tibuf) - goto eof; - icnt = 0; - eof = 1; - } - icnt += tmp - tibuf; - i = 0; - tmp = tibuf; - while (tmp < tibuf + icnt) { - int len; - - len = normal_mbtowc(&ip[i], tmp, tibuf + icnt - tmp); - if (len == -1) { - reset_mbtowc(); - if (!eof && (size_t)(tibuf + icnt - tmp) < MB_CUR_MAX) { - break; /* Maybe a partial character */ - } - ip[i] = (unsigned char) *tmp | INVALID_BYTE; /* Error */ - } - if (len <= 0) - len = 1; - i++; - tmp += len; - } - if (tmp != tibuf) - memmove (tibuf, tmp, tibuf + icnt - tmp); - tmp = tibuf + (tibuf + icnt - tmp); - icnt = i; - } - if (hadnl) - break; - --icnt; - c = (*ip++ & TRIM); - if (c == 0) - break; -#ifdef WINNT_NATIVE - if (c == '\r') - c = ' '; -#endif /* WINNT_NATIVE */ - 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++; - Strbuf_append1(word, 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 != 0 && (cnt || literal)) - pword(bb, word); - hadnl = 0; - } while (c > 0); - eof: - cleanup_until(&pvec[0]); - pwait(); - cleanup_until(&faket); /* psavejob_cleanup(); */ -} - -static void -pword(struct blk_buf *bb, struct Strbuf *word) -{ - Char *s; - - s = Strbuf_finish(word); - bb_append(bb, s); - *word = Strbuf_init; -} - -int -Gmatch(const Char *string, const Char *pattern) -{ - return Gnmatch(string, pattern, NULL); -} - -int -Gnmatch(const Char *string, const Char *pattern, const Char **endstr) -{ - Char ***fblk, **p; - const Char *tstring = string; - int gpol = 1, gres = 0; - - if (*pattern == '^') { - gpol = 0; - pattern++; - } - - fblk = xmalloc(sizeof(Char ***)); - *fblk = xmalloc(GLOBSPACE * sizeof(Char *)); - (*fblk)[0] = Strsave(pattern); - (*fblk)[1] = NULL; - - cleanup_push(fblk, blk_indirect_cleanup); - expbrace(fblk, NULL, GLOBSPACE); - - if (endstr == NULL) - /* Exact matches only */ - for (p = *fblk; *p; p++) - gres |= t_pmatch(string, *p, &tstring, 1) == 2 ? 1 : 0; - else { - const Char *end; - - /* partial matches */ - end = Strend(string); - for (p = *fblk; *p; p++) - if (t_pmatch(string, *p, &tstring, 1) != 0) { - gres |= 1; - if (end > tstring) - end = tstring; - } - *endstr = end; - } - - cleanup_until(fblk); - return(gres == gpol); -} - -/* t_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. - */ -int -t_pmatch(const Char *string, const Char *pattern, const Char **estr, int cs) -{ - Char stringc, patternc, rangec; - int match, negate_range; - const Char *pestr, *nstring; - - for (nstring = string;; string = nstring) { - stringc = *nstring++ & TRIM; - patternc = *pattern++ & TRIM; - switch (patternc) { - case '\0': - *estr = string; - return (stringc == '\0' ? 2 : 1); - case '?': - if (stringc == 0) - return (0); - break; - case '*': - if (!*pattern) { - *estr = Strend(string); - return (2); - } - pestr = NULL; - - for (;;) { - switch(t_pmatch(string, pattern, estr, cs)) { - case 0: - break; - case 1: - pestr = *estr;/*FIXME: does not guarantee longest match */ - break; - case 2: - return 2; - default: - abort(); /* Cannot happen */ - } - stringc = *string++ & TRIM; - if (!stringc) - break; - } - - if (pestr) { - *estr = pestr; - return 1; - } - else - return 0; - - case '[': - match = 0; - if ((negate_range = (*pattern == '^')) != 0) - pattern++; - while ((rangec = *pattern++ & TRIM) != '\0') { - if (rangec == ']') - break; - if (match) - continue; - if (*pattern == '-' && pattern[1] != ']') { - Char rangec2; - pattern++; - rangec2 = *pattern++ & TRIM; - match = (globcharcoll(stringc, rangec2, 0) <= 0 && - globcharcoll(rangec, stringc, 0) <= 0); - } - else - match = (stringc == rangec); - } - if (rangec == '\0') - stderror(ERR_NAME | ERR_MISSING, ']'); - if ((!match) && (stringc == '\0')) - return (0); - if (match == negate_range) - return (0); - break; - default: - if (cs ? patternc != stringc - : Tolower(patternc) != Tolower(stringc)) - return (0); - break; - } - } -} diff --git a/contrib/tcsh/sh.h b/contrib/tcsh/sh.h deleted file mode 100644 index 6bd594e..0000000 --- a/contrib/tcsh/sh.h +++ /dev/null @@ -1,1264 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.h,v 3.146 2006/07/03 22:59:01 mitr 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. 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" - -#include <stddef.h> -#include <signal.h> - -#ifdef HAVE_ICONV -# include <iconv.h> -#endif - -#ifdef HAVE_STDINT_H -# include <stdint.h> -#endif - -#ifdef HAVE_INTTYPES_H -# include <inttypes.h> -#endif - -#if !defined(HAVE_STDINT_H) && !defined(HAVE_INTTYPES_H) && !defined(WINNT_NATIVE) -typedef unsigned long intptr_t; -#endif - -#ifndef EXTERN -# define EXTERN extern -#else /* !EXTERN */ -# ifdef WINNT_NATIVE -# define IZERO = 0 -# define IZERO_STRUCT = {0} -# endif /* WINNT_NATIVE */ -#endif /* EXTERN */ - -#ifndef IZERO -# define IZERO -#endif /* IZERO */ -#ifndef IZERO_STRUCT -# define IZERO_STRUCT -#endif /* IZERO_STRUCT */ - -#ifndef WINNT_NATIVE -# define INIT_ZERO -# define INIT_ZERO_STRUCT -# define force_read xread -#endif /*!WINNT_NATIVE */ -/* - * Sanity - */ -#if defined(_POSIX_SOURCE) && !defined(POSIX) -# define POSIX -#endif - -#if defined(POSIXJOBS) && !defined(BSDJOBS) -# define BSDJOBS -#endif - -#ifdef SHORT_STRINGS -# ifdef WIDE_STRINGS -#include <wchar.h> -typedef wchar_t Char; -typedef unsigned long uChar; -typedef wint_t eChar; /* Can contain any Char value or CHAR_ERR */ -#define CHAR_ERR WEOF /* Pretty please, use bit 31... */ -#define normal_mbtowc(PWC, S, N) rt_mbtowc(PWC, S, N) -#define reset_mbtowc() mbtowc(NULL, NULL, 0) -# else -typedef short Char; -typedef unsigned short uChar; -typedef int eChar; -#define CHAR_ERR (-1) -#define normal_mbtowc(PWC, S, N) ((void)(N), *(PWC) = (unsigned char)*(S), 1) -#define reset_mbtowc() ((void)0) -# endif -# define SAVE(a) (Strsave(str2short(a))) -#else -typedef char Char; -typedef unsigned char uChar; -typedef int eChar; -#define CHAR_ERR (-1) -#define normal_mbtowc(PWC, S, N) ((void)(N), *(PWC) = (unsigned char)*(S), 1) -#define reset_mbtowc() ((void)0) -# define SAVE(a) (strsave(a)) -#endif - -/* Elide unused argument warnings */ -#define USE(a) (void) (a) - -/* - * Return true if the path is absolute - */ -#if defined(WINNT_NATIVE) -# define ABSOLUTEP(p) ((p)[0] == '/' || \ - (Isalpha((p)[0]) && (p)[1] == ':')) -#elif defined(__CYGWIN__) -# define ABSOLUTEP(p) ((p)[0] == '/' || \ - (Isalpha((p)[0]) && (p)[1] == ':' && \ - ((p)[2] == '\0' || (p)[2] == '/'))) -#else /* !WINNT_NATIVE && !__CYGWIN__ */ -# define ABSOLUTEP(p) (*(p) == '/') -#endif /* WINNT_NATIVE || __CYGWIN__ */ - -/* - * 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 < 4096 -# undef BUFSIZE -# define BUFSIZE 4096 /* buffer size should be no less than this */ -# endif -#else -# define BUFSIZE 4096 -#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 FSAFE 5 /* We keep the first 5 descriptors untouched */ -#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_NATIVE) -# define PATHSEP ';' -# else /* unix */ -# define PATHSEP ':' -# endif /* __EMX__ || WINNT_NATIVE */ -#endif /* !PATHSEP */ - -#if defined(__HP_CXD_SPP) && !defined(__hpux) -# include <sys/cnx_stat.h> -# define stat stat64 -# define fstat fstat64 -# define lstat lstat64 -#endif /* __HP_CXD_SPP && !__hpux */ - -/* - * 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) && !defined(WINNT_NATIVE) -# include <sys/times.h> -#endif /* (POSIX || SYSVREL > 0) && !WINNT_NATIVE */ - -#ifdef NLS -# include <locale.h> -#endif /* NLS */ - - -#if !defined(_MINIX) && !defined(_VMS_POSIX) && !defined(WINNT_NATIVE) && !defined(__MVS__) -# include <sys/param.h> -#endif /* !_MINIX && !_VMS_POSIX && !WINNT_NATIVE && !__MVS__ */ -#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) && !defined(__MVS__) -# 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_NATIVE -# 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_NATIVE */ - -#ifdef sonyrisc -# include <sys/ttold.h> -#endif /* sonyrisc */ - -#if defined(POSIX) && !defined(WINNT_NATIVE) -# include <unistd.h> - -/* - * the gcc+protoize version of <stdlib.h> - * redefines malloc(), so we define the following - * to avoid it. - */ -# if defined(SYSMALLOC) || defined(linux) || defined(__GNU__) || defined(__GLIBC__) || defined(sgi) || defined(_OSD_POSIX) -# define NO_FIX_MALLOC -# include <stdlib.h> -# else /* glibc */ -# 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 /* glibc || sgi */ -#endif /* POSIX && !WINNT_NATIVE */ -#include <limits.h> - -#if SYSVREL > 0 || defined(_IBMR2) || defined(_MINIX) || defined(linux) || defined(__GNU__) || defined(__GLIBC__) -# 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(_VMS_POSIX) && !defined(WINNT_NATIVE) -# 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)) && !defined(__MVS__) -# include <sys/filio.h> -#endif /* (!FIOCLEX && SUNOS4) || (SYSVREL == 4 && !_SEQUENT_ && !SCO && !_SX ) */ - -#if !defined(_MINIX) && !defined(supermax) && !defined(WINNT_NATIVE) && !defined(IRIS4D) -# include <sys/file.h> -#endif /* !_MINIX && !supermax && !WINNT_NATIVE && !defined(IRIS4D) */ - -#if !defined(O_RDONLY) || !defined(O_NDELAY) -# include <fcntl.h> -#endif -#ifndef O_LARGEFILE -# define O_LARGEFILE 0 -#endif - -#include <errno.h> - -#include <setjmp.h> - -#include <stdarg.h> - -#ifdef HAVE_DIRENT_H -# include <dirent.h> -#else -# ifdef HAVE_NDIR_H -# include <ndir.h> -# else -# include <sys/dir.h> -# endif -# define dirent direct -#endif /* HAVE_DIRENT_H */ -#ifndef HAVE_STRUCT_DIRENT_D_INO -# define d_ino d_fileno -#endif -#if defined(hpux) || defined(sgi) || defined(OREO) -# include <stdio.h> /* So the fgetpwent() prototypes work */ -#endif /* hpux || sgi || OREO */ -#ifndef WINNT_NATIVE -#include <pwd.h> -#include <grp.h> -#endif /* WINNT_NATIVE */ -#ifdef HAVE_SHADOW_H -# include <shadow.h> -#endif /* HAVE_SHADOW_H */ -#ifdef HAVE_AUTH_H -# include <auth.h> -#endif /* HAVE_AUTH_H */ -#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> -# if (defined(_SS_SIZE) || defined(_SS_MAXSIZE)) && defined(HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY) -# if !defined(__APPLE__) /* Damnit, where is getnameinfo() folks? */ -# if !defined(sgi) -# if !defined(__CYGWIN__) -# define INET6 -# endif /* __CYGWIN__ */ -# endif /* sgi */ -# endif /* __APPLE__ */ -# endif -# include <sys/uio.h> /* For struct iovec */ -#endif /* REMOTEHOST */ - -#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 */ - -/* - * ASCII vs. EBCDIC - */ -#if 'Z' - 'A' == 25 -# ifndef IS_ASCII -# define IS_ASCII -# endif -#endif - -#include "sh.types.h" - -#if !HAVE_DECL_GETPGRP -# ifndef GETPGRP_VOID -extern pid_t getpgrp (int); -# else -extern pid_t getpgrp (void); -# endif -#endif - -#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 SYSMALLOC -# define xmalloc(i) smalloc(i) -# define xrealloc(p, i) srealloc(p, i) -# define xcalloc(n, s) scalloc(n, s) -# define xfree sfree -#else -# define xmalloc(i) malloc(i) -# define xrealloc(p, i) realloc(p, i) -# define xcalloc(n, s) calloc(n, s) -# define xfree free -#endif /* SYSMALLOC */ -#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 - */ - -#ifdef HESIOD -# include <hesiod.h> -#endif /* HESIOD */ - -#ifdef REMOTEHOST -# include <netdb.h> -#endif /* REMOTEHOST */ - -#ifndef MAXHOSTNAMELEN -# ifdef HOST_NAME_MAX -# define MAXHOSTNAMELEN (HOST_NAME_MAX + 1) -# elif defined(SCO) && (SYSVREL > 3) -# include <sys/socket.h> -# else -# define MAXHOSTNAMELEN 256 -# 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 int chkstop IZERO; /* Warned of stopped jobs... allow exit */ - -#if (defined(FIOCLEX) && defined(FIONCLEX)) || defined(F_SETFD) -# define CLOSE_ON_EXEC -#else -EXTERN int didcch IZERO; /* Have closed unused fd's for child */ -#endif /* (FIOCLEX && FIONCLEX) || F_SETFD */ - -EXTERN int didfds IZERO; /* Have setup i/o fd's for child */ -EXTERN int doneinp IZERO; /* EOF indicator after reset from readc */ -EXTERN int exiterr IZERO; /* Exit if error or non-zero exit status */ -EXTERN int child IZERO; /* Child shell ... errors cause exit */ -EXTERN int haderr IZERO; /* Reset was because of an error */ -EXTERN int intty IZERO; /* Input is a tty */ -EXTERN int intact IZERO; /* We are interactive... therefore prompt */ -EXTERN int justpr IZERO; /* Just print because of :p hist mod */ -EXTERN int loginsh IZERO; /* We are a loginsh -> .login/.logout */ -EXTERN int neednote IZERO; /* Need to pnotify() */ -EXTERN int noexec IZERO; /* Don't execute, just syntax check */ -EXTERN int pjobs IZERO; /* want to print jobs if interrupted */ -EXTERN int setintr IZERO; /* Set interrupts on/off -> Wait intr... */ -EXTERN int havhash IZERO; /* path hashing is available */ -EXTERN int editing IZERO; /* doing filename expansion and line editing */ -EXTERN int noediting IZERO; /* initial $term defaulted to noedit */ -EXTERN int bslash_quote IZERO;/* PWP: tcsh-style quoting? (in sh.c) */ -EXTERN int isoutatty IZERO; /* is SHOUT a tty */ -EXTERN int isdiagatty IZERO;/* is SHDIAG a tty */ -EXTERN int is1atty IZERO; /* is file descriptor 1 a tty (didfds mode) */ -EXTERN int is2atty IZERO; /* is file descriptor 2 a tty (didfds mode) */ -EXTERN int arun IZERO; /* Currently running multi-line-aliases */ -EXTERN int implicit_cd IZERO;/* implicit cd enabled?(1=enabled,2=verbose) */ -EXTERN int inheredoc IZERO; /* Currently parsing a heredoc */ -/* We received a window change event */ -EXTERN volatile sig_atomic_t windowchg IZERO; -#if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE) -EXTERN int dspmbyte_ls; -#endif - -/* - * 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 int dolzero; /* if $?0 should return true... */ - -extern char *seterr; /* Error message from scanner/parser */ -#ifndef errno -extern int errno; /* Error from C library routines */ -#endif -extern int exitset; -/* Temp name for << shell files in /tmp, for xfree() */ -EXTERN Char *shtemp IZERO; - -#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 time_t seconds0; -#endif /* BSDTIMES */ - -#ifndef HZ -# define HZ 100 /* for division into seconds */ -#endif - -/* - * Miscellany - */ -EXTERN Char *doldol; /* Character pid for $$ */ -EXTERN pid_t 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 uid_t uid, euid; /* Invokers real and effective */ -EXTERN gid_t gid, egid; /* User and group ids */ -EXTERN pid_t opgrp, /* Initial pgrp and tty pgrp */ - shpgrp, /* Pgrp of shell */ - tpgrp; /* Terminal process group */ - /* If tpgrp is -1, leave tty alone! */ - -EXTERN Char *Prompt; /* The actual printed prompt or NULL */ -EXTERN Char *RPrompt; /* Right-hand side prompt or NULL */ - -/* - * 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 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)) - -extern jmp_buf_t reslab; - -EXTERN Char *gointr; /* Label for an onintr transfer */ - -extern struct sigaction parintr; /* Parents interrupt catch */ -extern struct sigaction 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 WIDE_STRINGS /* Implies SHORT_STRINGS */ -/* 31st char bit used for 'ing (not 32nd, we want all values nonnegative) */ -# define QUOTE 0x40000000 -# define TRIM 0x3FFFFFFF /* Mask to strip quote bit */ -# define UNDER 0x20000000 /* Underline flag */ -# define BOLD 0x10000000 /* Bold flag */ -# define STANDOUT 0x08000000 /* Standout flag */ -# define LITERAL 0x04000000 /* Literal character flag */ -# define ATTRIBUTES 0x3C000000 /* The bits used for attributes */ -# define INVALID_BYTE 0x00200000 /* Invalid character on input */ -# define CHAR 0x003FFFFF /* Mask to mask out the character */ -#elif defined (SHORT_STRINGS) -# define QUOTE ((Char) 0100000)/* 16nth char bit used for 'ing */ -# define TRIM 0073777 /* Mask to strip quote/lit 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 INVALID_BYTE 0 -# 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 INVALID_BYTE 0 -# define CHAR 0000177 /* Mask to mask out the character */ -#endif -#define CHAR_DBWIDTH (LITERAL|(LITERAL-1)) - -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. - * - * If (WIDE_STRINGS && cantell), fbobp is always a byte offset, but - * (fseekp - fbobp) and (feobp - fbobp) are character offsets (usable for - * fbuf indexing). - * - * If (!cantell), all offsets are character offsets; if (!WIDE_STRINGS), there - * is no difference between byte and character offsets. - */ -EXTERN struct Bin { - off_t Bfseekp; /* Seek pointer, generally != lseek() value */ - 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 */ -#ifdef WIDE_STRINGS - /* Number of bytes in each character if (cantell) */ - unsigned char Bfclens[BUFSIZE + 1]; -#endif -} B; - -/* - * This structure allows us to seek inside aliases - */ -struct Ain { - int type; -#define TCSH_I_SEEK 0 /* Invalid seek */ -#define TCSH_A_SEEK 1 /* Alias seek */ -#define TCSH_F_SEEK 2 /* File seek */ -#define TCSH_E_SEEK 3 /* Eval seek */ - union { - off_t _f_seek; /* A byte offset if (cantell) */ - 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 -#define fclens B.Bfclens - -/* - * 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 int 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 struct Strbuf labuf; -EXTERN size_t lap; /* N/A if == labuf.len, index into labuf.s otherwise */ - -/* - * 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) (Char **, struct command *); -#endif /* hpux && __STDC__ && !__GNUC__ */ - -extern const struct biltins { - const char *bname; - bfunc_t bfunct; - int minargs, maxargs; -} bfunc[]; -extern int nbfunc; -#ifdef WINNT_NATIVE -extern struct biltins nt_bfunc[]; -extern int nt_nbfunc; -#endif /* WINNT_NATIVE*/ -extern int bequiet; - -extern struct srch { - const 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 - */ - -#ifdef __CYGWIN__ -# undef MAXPATHLEN -#endif /* __CYGWIN__ */ - -#ifndef MAXPATHLEN -# ifdef PATH_MAX -# define MAXPATHLEN PATH_MAX -# else -# define MAXPATHLEN 2048 -# endif -#endif /* MAXPATHLEN */ - -#ifndef HAVENOLIMIT -/* - * resource limits - */ -extern struct limits { - int limconst; - const char *limname; - int limdiv; - const char *limscale; -} limits[]; -#endif /* !HAVENOLIMIT */ - -/* - * 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 -# ifdef WIDE_STRINGS -# define samecase(x) (towlower(x)) -# else -# define samecase(x) (isupper((unsigned char)(x)) ? \ - tolower((unsigned char)(x)) : (x)) -# endif -#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 Strcasecmp(a, b) strcasecmp(a, b) - -#define Strspl(a, b) strspl(a, b) -#define Strnsave(a, b) strnsave(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) caching_strip(a) -#else -#ifdef WIDE_STRINGS -#define Strchr(a, b) wcschr(a, b) -#define Strrchr(a, b) wcsrchr(a, b) -#define Strcat(a, b) wcscat(a, b) -#define Strncat(a, b, c) wcsncat(a, b, c) -#define Strcpy(a, b) wcscpy(a, b) -#define Strncpy(a, b, c) wcsncpy(a, b, c) -#define Strlen(a) wcslen(a) -#define Strcmp(a, b) wcscmp(a, b) -#define Strncmp(a, b, c) wcsncmp(a, b, c) -#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) -#endif -#define Strcasecmp(a, b) s_strcasecmp(a, b) - -#define Strspl(a, b) s_strspl(a, b) -#define Strnsave(a, b) s_strnsave(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 const 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 { - const char *iname; /* name from /usr/include */ - const 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; -extern int xlate_cr; -extern int output_raw; -extern int lbuffed; -extern time_t Htime; -extern int numeof; -extern int insource; -extern char linbuf[]; -extern char *linp; -extern int nsig; -#ifdef VFORK -extern int use_fork; -#endif -extern int tellwhat; -extern int NoNLSRebind; -#if !HAVE_DECL_ENVIRON -extern char **environ; -#endif - -#include "tc.h" - -#ifndef WINNT_NATIVE -# ifdef NLS_CATALOGS -# if defined(linux) || defined(__GNU__) || defined(__GLIBC__) -# 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 (nl_catd, int, int, const char *); - nl_catd catopen (const char *, int); - int catclose (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; -# if defined(HAVE_ICONV) && defined(HAVE_NL_LANGINFO) -# define CGETS(b, c, d) iconv_catgets(catd, b, c, d) -# else -# define CGETS(b, c, d) xcatgets(catd, b, c, d) -# endif -# 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_NATIVE */ -# define CGETS(b, c, d) nt_cgets( b, c, d) -# define CSAVS(b, c, d) strsave(CGETS(b, c, d)) -#endif /* WINNT_NATIVE */ - -#if defined(FILEC) -extern int filec; -#endif /* FILEC */ - -#include "sh.decls.h" -/* - * 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)) - -/* - * explanation for use by the "--help" option - */ -#define HELP_STRING "\ --b file batch mode, read and execute commands from `file' \n\ --c command run `command' from next argument \n\ --d load directory stack from `~/.cshdirs' \n\ --Dname[=value] define environment variable `name' to `value' (DomainOS only) \n\ --e exit on any error \n\ --f start faster by ignoring the start-up file \n\ --F use fork() instead of vfork() when spawning (ConvexOS only) \n\ --i interactive, even when input is not from a terminal \n\ --l act as a login shell, must be the only option specified \n\ --m load the start-up file, whether or not owned by effective user \n\ --n file no execute mode, just check syntax of the following `file' \n\ --q accept SIGQUIT for running under a debugger \n\ --s read commands from standard input \n\ --t read one line from standard input \n\ --v echo commands after history substitution \n\ --V like -v but including commands read from the start-up file \n\ --x echo commands immediately before execution \n\ --X like -x but including commands read from the start-up file \n\ ---help print this message and exit \n\ ---version print the version shell variable and exit \n\ -\nSee the tcsh(1) manual page for detailed information.\n" - -#include "tc.nls.h" - -#endif /* _h_sh */ diff --git a/contrib/tcsh/sh.hist.c b/contrib/tcsh/sh.hist.c deleted file mode 100644 index 72b376a..0000000 --- a/contrib/tcsh/sh.hist.c +++ /dev/null @@ -1,458 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.hist.c,v 3.40 2007/03/01 17:14:51 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. 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("$tcsh: sh.hist.c,v 3.40 2007/03/01 17:14:51 christos Exp $") - -#include "tc.h" - -extern int histvalid; -extern struct Strbuf histline; -Char HistLit = 0; - -static int heq (const struct wordent *, const struct wordent *); -static void hfree (struct Hist *); -static void dohist1 (struct Hist *, int *, int); -static void phist (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(struct wordent *sp, int mflg) -{ - struct Hist *hp, *np; - int histlen = 0; - Char *cp; - - /* throw away null lines */ - if (sp && sp->next->word[0] == '\n') - return; - cp = varval(STRhistory); - while (*cp) { - if (!Isdigit(*cp)) { - histlen = 0; - break; - } - histlen = histlen * 10 + *cp++ - '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 int -heq(const struct wordent *a0, const struct wordent *b0) -{ - const 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(int event, struct wordent *lp, int docopy, int mflg) -{ - struct Hist *p = NULL, *pp = &Histlist; - int n, r; - struct Hist *np; - const 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 : xmalloc(sizeof(*np)); - - /* Pick up timestamp set by lex() in Htime if reading saved history */ - if (Htime != 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.s); - 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(struct Hist *hp) -{ - - freelex(&hp->Hlex); - if (hp->histline) - xfree(hp->histline); - xfree(hp); -} - - -/*ARGSUSED*/ -void -dohist(Char **vp, struct command *c) -{ - int n, hflg = 0; - - USE(c); - if (getn(varval(STRhistory)) == 0) - return; - 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); - else if (hflg & HIST_SAVE) - rechist(*vp, 1); - else { - if (*vp) - n = getn(*vp); - else { - n = getn(varval(STRhistory)); - } - dohist1(Histlist.Hnext, &n, hflg); - } -} - -static void -dohist1(struct Hist *hp, int *np, int hflg) -{ - int print = (*np) > 0; - - for (; hp != 0; hp = hp->Hnext) { - if (setintr) { - int old_pintr_disabled; - - pintr_push_enable(&old_pintr_disabled); - cleanup_until(&old_pintr_disabled); - } - (*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(struct Hist *hp, int hflg) -{ - if (hflg & HIST_ONLY) { - int old_output_raw; - - /* - * 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) - */ - old_output_raw = output_raw; - output_raw = 1; - cleanup_push(&old_output_raw, output_raw_restore); - if (hflg & HIST_TIME) - /* - * Make file entry with history time in format: - * "+NNNNNNNNNN" (10 digits, left padded with ascii '0') - */ - - xprintf("#+%010lu\n", (unsigned long)hp->Htime); - - if (HistLit && hp->histline) - xprintf("%S\n", hp->histline); - else - prlex(&hp->Hlex); - cleanup_until(&old_output_raw); - } - else { - Char *cp = str2short("%h\t%T\t%R\n"); - Char *p; - struct varent *vp = adrof(STRhistory); - - if (vp && vp->vec != NULL && vp->vec[0] && vp->vec[1]) - cp = vp->vec[1]; - - p = tprintf(FMT_HISTORY, cp, NULL, hp->Htime, hp); - cleanup_push(p, xfree); - for (cp = p; *cp;) - xputwchar(*cp++); - cleanup_until(p); - } -} - - -char * -fmthist(int fmt, ptr_t ptr) -{ - struct Hist *hp = ptr; - char *buf; - - switch (fmt) { - case 'h': - return xasprintf("%6d", hp->Hnum); - case 'R': - if (HistLit && hp->histline) - return xasprintf("%S", hp->histline); - else { - Char *istr, *ip; - char *p; - - istr = sprlex(&hp->Hlex); - buf = xmalloc(Strlen(istr) * MB_LEN_MAX + 1); - - for (p = buf, ip = istr; *ip != '\0'; ip++) - p += one_wctomb(p, CHAR & *ip); - - *p = '\0'; - xfree(istr); - return buf; - } - default: - buf = xmalloc(1); - buf[0] = '\0'; - return buf; - } -} - -void -rechist(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); - cleanup_push(fname, xfree); - - /* - * The 'savehist merge' feature is intended for an environment - * with numerous shells being 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 && shist->vec != NULL) - if (shist->vec[1] && eq(shist->vec[1], STRmerge)) - loadhist(fname, 1); - fp = xcreat(short2str(fname), 0600); - if (fp == -1) { - didfds = oldidfds; - cleanup_until(fname); - return; - } - ftmp = SHOUT; - SHOUT = fp; - dumphist[2] = snum; - dohist(dumphist, NULL); - xclose(fp); - SHOUT = ftmp; - didfds = oldidfds; - cleanup_until(fname); -} - - -void -loadhist(Char *fname, int 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 aacff5b..0000000 --- a/contrib/tcsh/sh.init.c +++ /dev/null @@ -1,1073 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.init.c,v 3.63 2006/08/23 01:49:32 mitr 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. 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("$tcsh: sh.init.c,v 3.63 2006/08/23 01:49:32 mitr Exp $") - -#include "ed.h" -#include "tw.h" - -/* - * C shell - */ - -#define INF INT_MAX - -const struct biltins bfunc[] = { - { ":", dozip, 0, INF }, - { "@", dolet, 0, INF }, - { "alias", doalias, 0, INF }, - { "alloc", showall, 0, 1 }, -#if defined(_CX_UX) - { "att", doatt, 0, INF }, -#endif /* _CX_UX */ - { "bg", dobg, 0, INF }, - { "bindkey", dobindkey, 0, 8 }, - { "break", dobreak, 0, 0 }, - { "breaksw", doswbrk, 0, 0 }, -#ifdef _OSD_POSIX - { "bs2cmd", dobs2cmd, 1, INF }, -#endif /* OBSOLETE */ - { "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, 0, 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 }, -#ifndef WINNT_NATIVE - { "termname", dotermname, 0, 1 }, -#endif - { "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 */ -#if defined(POSIX) && !defined(__CYGWIN__) -# 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(void) -{ - -#ifdef NLS_CATALOGS - int i; - - for (i = 0; i < NUMSIG; i++) { - xfree((char *)(intptr_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 (SIGRTMIN + 1 < SIGRTMAX && SIGRTMIN + 1 < NUMSIG && - mesg[SIGRTMIN+1].pname == NULL) { - mesg[SIGRTMIN+1].iname = "RTMIN+1"; - mesg[SIGRTMIN+1].pname = CSAVS(2, 69, "Second Realtime Signal"); - } - - if (SIGRTMIN + 2 < SIGRTMAX && SIGRTMIN + 2 < NUMSIG && - mesg[SIGRTMIN+2].pname == NULL) { - mesg[SIGRTMIN+2].iname = "RTMIN+2"; - mesg[SIGRTMIN+2].pname = CSAVS(2, 70, "Third Realtime Signal"); - } - - if (SIGRTMIN + 3 < SIGRTMAX && SIGRTMIN + 3 < NUMSIG && - 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 (SIGRTMAX - 3 > SIGRTMIN && mesg[SIGRTMAX-3].pname == NULL) { - mesg[SIGRTMAX-3].iname = "RTMAX-3"; - mesg[SIGRTMAX-3].pname = CSAVS(2, 72, - "Fourth Last Realtime Signal"); - } - - if (SIGRTMAX - 2 > SIGRTMIN && mesg[SIGRTMAX-2].pname == NULL) { - mesg[SIGRTMAX-2].iname = "RTMAX-2"; - mesg[SIGRTMAX-2].pname = CSAVS(2, 73, - "Third Last Realtime Signal"); - } - - if (SIGRTMAX - 1 > SIGRTMIN && mesg[SIGRTMAX-1].pname == NULL) { - mesg[SIGRTMAX-1].iname = "RTMAX-1"; - mesg[SIGRTMAX-1].pname = CSAVS(2, 74, - "Second Last Realtime Signal"); - } - - if (SIGRTMAX > SIGRTMIN && 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 8eccb4d..0000000 --- a/contrib/tcsh/sh.lex.c +++ /dev/null @@ -1,1836 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.lex.c,v 3.77 2006/09/27 17:01:06 mitr 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. 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("$tcsh: sh.lex.c,v 3.77 2006/09/27 17:01:06 mitr Exp $") - -#include "ed.h" - -#include <assert.h> -/* #define DEBUG_INP */ -/* #define DEBUG_SEEK */ - -/* - * C shell - */ - -#define FLAG_G 1 -#define FLAG_A 2 -/* - * 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 (int); -static eChar getC1 (int); -static void getdol (void); -static void getexcl (Char); -static struct Hist *findev (Char *, int); -static void setexclp (Char *); -static eChar bgetc (void); -static void balloc (int); -static void bfree (void); -static struct wordent *gethent (Char); -static int matchs (const Char *, const Char *); -static int getsel (int *, int *, int); -static struct wordent *getsub (struct wordent *); -static Char *subword (Char *, Char, int *, size_t *); -static struct wordent *dosub (Char, struct wordent *, int); -static ssize_t wide_read (int, Char *, size_t, int); - -/* - * 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 = TCSH_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. - */ -struct Strbuf labuf; /* = Strbuf_INIT; */ - -/* - * 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 int hadhist = 0; - -/* - * Avoid alias expansion recursion via \!# - */ -int hleft; - -struct Strbuf histline; /* = Strbuf_INIT; last line input */ - -int histvalid = 0; /* is histline valid */ - -static Char getCtmp; - -#define getC(f) (((getCtmp = peekc) != '\0') ? (peekc = 0, (eChar)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 (Char *); - -/* - * special parsing rules apply for source -h - */ -extern int enterhist; - -int -lex(struct wordent *hp) -{ - struct wordent *wdp; - eChar c; - int parsehtime = enterhist; - - histvalid = 0; - histline.len = 0; - - btell(&lineloc); - hp->next = hp->prev = hp; - hp->word = STRNULL; - hadhist = 0; - do - c = readc(0); - while (c == ' ' || c == '\t'); - if (c == (eChar)HISTSUB && intty) - /* ^lef^rit from tty is short !:s^lef^rit */ - getexcl(c); - else - unreadc(c); - cleanup_push(hp, lex_cleanup); - 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 = xmalloc(sizeof(*new)); - new->word = NULL; - new->prev = wdp; - new->next = hp; - wdp->next = new; - hp->prev = new; - wdp = new; - wdp->word = word(parsehtime); - parsehtime = 0; - } while (wdp->word[0] != '\n'); - cleanup_ignore(hp); - cleanup_until(hp); - Strbuf_terminate(&histline); - if (histline.len != 0 && histline.s[histline.len - 1] == '\n') - histline.s[histline.len - 1] = '\0'; - histvalid = 1; - - return (hadhist); -} - -static time_t -a2time_t(Char *wordx) -{ - /* 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 (!wordx || *(s = wordx) != '+') - 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(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(struct wordent *hp, struct wordent *fp) -{ - struct wordent *wdp; - - wdp = hp; - fp = fp->next; - do { - struct wordent *new; - - new = xmalloc(sizeof(*new)); - new->word = NULL; - 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(struct wordent *vp) -{ - struct wordent *fp; - - while (vp->next != vp) { - fp = vp->next; - vp->next = fp->next; - xfree(fp->word); - xfree(fp); - } - vp->prev = vp; -} - -void -lex_cleanup(void *xvp) -{ - struct wordent *vp; - - vp = xvp; - freelex(vp); -} - -static Char * -word(int parsehtime) -{ - eChar c, c1; - struct Strbuf wbuf = Strbuf_INIT; - Char hbuf[12]; - int h; - int dolflg; - - cleanup_push(&wbuf, Strbuf_cleanup); -loop: - while ((c = getC(DOALL)) == ' ' || c == '\t') - continue; - if (cmap(c, _META | _ESC)) - switch (c) { - case '&': - case '|': - case '<': - case '>': - Strbuf_append1(&wbuf, c); - c1 = getC(DOALL); - if (c1 == c) - Strbuf_append1(&wbuf, c1); - else - ungetC(c1); - goto ret; - - case '#': - if (intty || (enterhist && !parsehtime)) - break; - c = 0; - h = 0; - do { - c1 = c; - c = getC(0); - if (h < 11 && parsehtime) - hbuf[h++] = c; - } while (c != '\n'); - if (parsehtime) { - hbuf[11] = '\0'; - Htime = a2time_t(hbuf); - } - if (c1 == '\\') - goto loop; - /*FALLTHROUGH*/ - - case ';': - case '(': - case ')': - case '\n': - Strbuf_append1(&wbuf, c); - goto ret; - - case '\\': - c = getC(0); - if (c == '\n') { - if (onelflg == 1) - onelflg = 2; - goto loop; - } - if (c != (eChar)HIST) - Strbuf_append1(&wbuf, '\\'); - c |= QUOTE; - default: - break; - } - c1 = 0; - dolflg = DOALL; - for (;;) { - 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 == (eChar)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 != (eChar)HIST) - Strbuf_append1(&wbuf, '\\'); - c |= QUOTE; - } - else if (cmap(c, _QF | _QB)) { /* '"` */ - c1 = c; - dolflg = c == '"' ? DOALL : DOEXCL; - } - else if (c != '#' || (!intty && !enterhist)) { - ungetC(c); - break; - } - } - Strbuf_append1(&wbuf, c); - c = getC(dolflg); - } -ret: - cleanup_ignore(&wbuf); - cleanup_until(&wbuf); - return Strbuf_finish(&wbuf); -} - -static eChar -getC1(int flag) -{ - eChar c; - - for (;;) { - if ((c = peekc) != 0) { - peekc = 0; - return (c); - } - if (lap < labuf.len) { - c = labuf.s[lap++]; - 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 == (eChar)HIST && (flag & DOEXCL)) { - getexcl(0); - continue; - } - break; - } - return (c); -} - -static void -getdol(void) -{ - struct Strbuf name = Strbuf_INIT; - eChar c; - eChar sc; - int special = 0; - - c = sc = getC(DOEXCL); - if (any("\t \n", c)) { - ungetD(c); - ungetC('$' | QUOTE); - return; - } - cleanup_push(&name, Strbuf_cleanup); - Strbuf_append1(&name, '$'); - if (c == '{') - Strbuf_append1(&name, c), c = getC(DOEXCL); - if (c == '#' || c == '?' || c == '%') - special++, Strbuf_append1(&name, c), c = getC(DOEXCL); - Strbuf_append1(&name, c); - switch (c) { - - case '<': - case '$': - case '!': - if (special) - seterror(ERR_SPDOLLT); - goto end; - - case '\n': - ungetD(c); - name.len--; - if (!special) - seterror(ERR_NEWLINE); - goto end; - - case '*': - if (special) - seterror(ERR_SPSTAR); - goto end; - - default: - if (Isdigit(c)) { -#ifdef notdef - /* let $?0 pass for now */ - if (special) { - seterror(ERR_DIGIT); - goto end; - } -#endif - while ((c = getC(DOEXCL)) != 0) { - if (!Isdigit(c)) - break; - Strbuf_append1(&name, c); - } - } - else if (letter(c)) { - while ((c = getC(DOEXCL)) != 0) { - /* Bugfix for ${v123x} from Chris Torek, DAS DEC-90. */ - if (!letter(c) && !Isdigit(c)) - break; - Strbuf_append1(&name, c); - } - } - else { - if (!special) - seterror(ERR_VARILL); - else { - ungetD(c); - name.len--; - } - goto end; - } - break; - } - if (c == '[') { - Strbuf_append1(&name, c); - 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); - name.len--; - seterror(ERR_NLINDEX); - goto end; - } - Strbuf_append1(&name, c); - } while (c != ']'); - c = getC(DOEXCL); - } - if (c == ':') { - /* - * if the :g modifier is followed by a newline, then error right away! - * -strike - */ - - int gmodflag = 0, amodflag = 0; - - do { - Strbuf_append1(&name, c), c = getC(DOEXCL); - if (c == 'g' || c == 'a') { - if (c == 'g') - gmodflag++; - else - amodflag++; - Strbuf_append1(&name, c); c = getC(DOEXCL); - } - if ((c == 'g' && !gmodflag) || (c == 'a' && !amodflag)) { - if (c == 'g') - gmodflag++; - else - amodflag++; - Strbuf_append1(&name, c); c = getC(DOEXCL); - } - Strbuf_append1(&name, c); - /* scan s// [eichin:19910926.0512EST] */ - if (c == 's') { - int delimcnt = 2; - eChar delim = getC(0); - - Strbuf_append1(&name, delim); - if (!delim || letter(delim) - || Isdigit(delim) || any(" \t\n", delim)) { - seterror(ERR_BADSUBST); - break; - } - while ((c = getC(0)) != CHAR_ERR) { - Strbuf_append1(&name, 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); - goto end; - } - } - while ((c = getC(DOEXCL)) == ':'); - ungetD(c); - } - else - ungetD(c); - if (sc == '{') { - c = getC(DOEXCL); - if (c != '}') { - ungetD(c); - seterror(ERR_MISSING, '}'); - goto end; - } - Strbuf_append1(&name, c); - } - end: - cleanup_ignore(&name); - cleanup_until(&name); - addla(Strbuf_finish(&name)); -} - -/* xfree()'s its argument */ -void -addla(Char *cp) -{ - static struct Strbuf buf; /* = Strbuf_INIT; */ - - buf.len = 0; - Strbuf_appendn(&buf, labuf.s + lap, labuf.len - lap); - labuf.len = 0; - Strbuf_append(&labuf, cp); - Strbuf_terminate(&labuf); - Strbuf_appendn(&labuf, buf.s, buf.len); - xfree(cp); - lap = 0; -} - -/* left-hand side of last :s or search string of last ?event? */ -static struct Strbuf lhsb; /* = Strbuf_INIT; */ -static struct Strbuf slhs; /* = Strbuf_INIT; left-hand side of last :s */ -static struct Strbuf rhsb; /* = Strbuf_INIT; right-hand side of last :s */ -static int quesarg; - -static void -getexcl(Char sc) -{ - struct wordent *hp, *ip; - int left, right, dol; - eChar c; - - if (sc == 0) { - sc = getC(0); - if (sc != '{') { - ungetC(sc); - sc = 0; - } - } - quesarg = -1; - - 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(struct wordent *en) -{ - eChar delim; - eChar c; - eChar sc; - int global; - - do { - exclnxt = 0; - global = 0; - sc = c = getC(0); - while (c == 'g' || c == 'a') { - global |= (c == 'g') ? FLAG_G : FLAG_A; - sc = c = getC(0); - } - - switch (c) { - case 'p': - justpr++; - return (en); - - case 'x': - case 'q': - global |= FLAG_G; - /*FALLTHROUGH*/ - - case 'h': - case 'r': - case 't': - case 'e': - case 'u': - case 'l': - break; - - case '&': - if (slhs.len == 0) { - seterror(ERR_NOSUBST); - return (en); - } - lhsb.len = 0; - Strbuf_append(&lhsb, slhs.s); - Strbuf_terminate(&lhsb); - break; - -#ifdef notdef - case '~': - if (lhsb.len == 0) - goto badlhs; - break; -#endif - - case 's': - delim = getC(0); - if (letter(delim) || Isdigit(delim) || any(" \t\n", delim)) { - unreadc(delim); - lhsb.len = 0; - seterror(ERR_BADSUBST); - return (en); - } - Strbuf_terminate(&lhsb); - lhsb.len = 0; - for (;;) { - c = getC(0); - if (c == '\n') { - unreadc(c); - break; - } - if (c == delim) - break; - if (c == '\\') { - c = getC(0); - if (c != delim && c != '\\') - Strbuf_append1(&lhsb, '\\'); - } - Strbuf_append1(&lhsb, c); - } - if (lhsb.len != 0) - Strbuf_terminate(&lhsb); - else if (lhsb.s[0] == 0) { - seterror(ERR_LHS); - return (en); - } else - lhsb.len = Strlen(lhsb.s); /* lhsb.s wasn't changed */ - rhsb.len = 0; - for (;;) { - c = getC(0); - if (c == '\n') { - unreadc(c); - break; - } - if (c == delim) - break; - if (c == '\\') { - c = getC(0); - if (c != delim /* && c != '~' */ ) - Strbuf_append1(&rhsb, '\\'); - } - Strbuf_append1(&rhsb, c); - } - Strbuf_terminate(&rhsb); - break; - - default: - if (c == '\n') - unreadc(c); - seterror(ERR_BADBANGMOD, (int)c); - return (en); - } - slhs.len = 0; - if (lhsb.s != NULL && lhsb.len != 0) - Strbuf_append(&slhs, lhsb.s); - Strbuf_terminate(&slhs); - if (exclc) - en = dosub(sc, en, global); - } - while ((c = getC(0)) == ':'); - unreadc(c); - 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(Char sc, struct wordent *en, int global) -{ - struct wordent lexi; - int 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 = 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 & FLAG_G) || didsub == 0) { - size_t pos; - - pos = 0; - tword = subword(en->word, sc, &didone, &pos); - if (didone) - didsub = 1; - if (global & FLAG_A) { - while (didone && tword != STRNULL) { - otword = tword; - tword = subword(otword, sc, &didone, &pos); - if (Strcmp(tword, otword) == 0) { - xfree(otword); - break; - } - else - xfree(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); -} - -/* Return a newly allocated result of one modification of CP using the - operation TYPE. Set ADID to 1 if a modification was performed. - If TYPE == 's', perform substitutions only from *START_POS on and set - *START_POS to the position of next substitution attempt. */ -static Char * -subword(Char *cp, Char type, int *adid, size_t *start_pos) -{ - Char *wp; - const Char *mp, *np; - - 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) { - *adid = 0; - return (Strsave(cp)); - } - *adid = 1; - return (wp); - - default: - for (mp = cp + *start_pos; *mp; mp++) { - if (matchs(mp, lhsb.s)) { - struct Strbuf wbuf = Strbuf_INIT; - - Strbuf_appendn(&wbuf, cp, mp - cp); - for (np = rhsb.s; *np; np++) - switch (*np) { - - case '\\': - if (np[1] == '&') - np++; - /* fall into ... */ - - default: - Strbuf_append1(&wbuf, *np); - continue; - - case '&': - Strbuf_append(&wbuf, lhsb.s); - continue; - } - *start_pos = wbuf.len; - Strbuf_append(&wbuf, mp + lhsb.len); - *adid = 1; - return Strbuf_finish(&wbuf); - } - } - *adid = 0; - return (Strsave(cp)); - } -} - -Char * -domod(Char *cp, Char 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 = NLSChangeCase(cp, 1); - return wp ? wp : Strsave(cp); - - case 'u': - wp = NLSChangeCase(cp, 0); - return wp ? wp : Strsave(cp); - - case 'h': - case 't': - if (!any(short2str(cp), '/')) - return (type == 't' ? Strsave(cp) : 0); - wp = Strrchr(cp, '/'); - if (type == 'h') - xp = Strnsave(cp, wp - cp); - 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 = Strnsave(cp, wp - cp); - return (xp); - } - return (Strsave(type == 'e' ? STRNULL : cp)); - default: - break; - } - return (0); -} - -static int -matchs(const Char *str, const Char *pat) -{ - while (*str && *pat && *str == *pat) - str++, pat++; - return (*pat == 0); -} - -static int -getsel(int *al, int *ar, int dol) -{ - eChar c = getC(0); - int i; - int 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(Char sc) -{ - struct Hist *hp; - Char *np; - eChar c; - int event; - int back = 0; - - c = sc == HISTSUB ? (eChar)HIST : getC(0); - if (c == (eChar)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); - } - Strbuf_terminate(&lhsb); - lhsb.len = 0; - event = 0; - while (!cmap(c, _ESC | _META | _QF | _QB) && !any("^*-%${}:#", c)) { - if (event != -1 && Isdigit(c)) - event = event * 10 + c - '0'; - else - event = -1; - Strbuf_append1(&lhsb, c); - c = getC(0); - } - unreadc(c); - if (lhsb.len == 0) { - lhsb.len = Strlen(lhsb.s); /* lhsb.s wasn't changed */ - ungetC(HIST); - return (0); - } - Strbuf_terminate(&lhsb); - if (event != -1) { - /* - * History had only digits - */ - if (back) - event = eventno + (alhistp == 0) - event; - break; - } - if (back) { - Strbuf_append1(&lhsb, '\0'); /* Allocate space */ - Strbuf_terminate(&lhsb); - memmove(lhsb.s + 1, lhsb.s, (lhsb.len - 1) * sizeof (*lhsb.s)); - lhsb.s[0] = '-'; - } - hp = findev(lhsb.s, 0); - if (hp) - lastev = hp->Hnum; - return (&hp->Hlex); - - case '?': - Strbuf_terminate(&lhsb); - lhsb.len = 0; - for (;;) { - c = getC(0); - if (c == '\n') { - unreadc(c); - break; - } - if (c == '?') - break; - Strbuf_append1(&lhsb, c); - } - if (lhsb.len == 0) { - lhsb.len = Strlen(lhsb.s); /* lhsb.s wasn't changed */ - if (lhsb.len == 0) { - seterror(ERR_NOSEARCH); - return (0); - } - } - else - Strbuf_terminate(&lhsb); - hp = findev(lhsb.s, 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)); - xfree(np); - return (0); -} - -static struct Hist * -findev(Char *cp, int 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(Char *cp) -{ - if (cp && cp[0] == '\n') - return; - exclp = cp; -} - -void -unreadc(Char c) -{ - peekread = (Char) c; -} - -eChar -readc(int wanteof) -{ - eChar c; - static int sincereal; /* Number of real EOFs we've seen */ - -#ifdef DEBUG_INP - xprintf("readc\n"); -#endif - if ((c = peekread) != 0) { - peekread = 0; - return (c); - } - -top: - aret = TCSH_F_SEEK; - if (alvecp) { - arun = 1; -#ifdef DEBUG_INP - xprintf("alvecp %c\n", *alvecp & 0xff); -#endif - aret = TCSH_A_SEEK; - if ((c = *alvecp++) != 0) - return (c); - if (alvec && *alvec) { - alvecp = *alvec++; - return (' '); - } - else { - alvecp = NULL; - aret = TCSH_F_SEEK; - return('\n'); - } - } - if (alvec) { - arun = 1; - if ((alvecp = *alvec) != 0) { - alvec++; - goto top; - } - /* Infinite source! */ - return ('\n'); - } - arun = 0; - if (evalp) { - aret = TCSH_E_SEEK; - if ((c = *evalp++) != 0) - return (c); - if (evalvec && *evalvec) { - evalp = *evalvec++; - return (' '); - } - aret = TCSH_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 CHAR_ERR; - exitstat(); - } - if (arginp) { - if ((c = *arginp++) == 0) { - arginp = INVPTR; - return ('\n'); - } - return (c); - } -#ifdef BSDJOBS -reread: -#endif /* BSDJOBS */ - c = bgetc(); - if (c == CHAR_ERR) { -#ifndef WINNT_NATIVE -# ifndef POSIX -# ifdef TERMIO - struct termio tty; -# else /* SGTTYB */ - struct sgttyb tty; -# endif /* TERMIO */ -# else /* POSIX */ - struct termios tty; -# endif /* POSIX */ -#endif /* !WINNT_NATIVE */ - if (wanteof) - return CHAR_ERR; - /* was isatty but raw with ignoreeof yields problems */ -#ifndef WINNT_NATIVE -# 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_NATIVE */ - if (isatty(SHIN)) -#endif /* !WINNT_NATIVE */ - { -#ifdef BSDJOBS - pid_t ctpgrp; -#endif /* BSDJOBS */ - - if (numeof != 0 && ++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(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"), - (int)ctpgrp, (int)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); - Strbuf_append1(&histline, c); - return (c); -} - -static void -balloc(int buf) -{ - Char **nfbuf; - - while (buf >= fblocks) { - nfbuf = xcalloc(fblocks + 2, sizeof(Char **)); - if (fbuf) { - (void) blkcpy(nfbuf, fbuf); - xfree(fbuf); - } - fbuf = nfbuf; - fbuf[fblocks] = xcalloc(BUFSIZE, sizeof(Char)); - fblocks++; - } -} - -static ssize_t -wide_read(int fildes, Char *buf, size_t nchars, int use_fclens) -{ - char cbuf[BUFSIZE + 1]; - ssize_t res, r = 0; - size_t partial; - int err; - - if (nchars == 0) - return 0; - assert (nchars <= sizeof(cbuf) / sizeof(*cbuf)); - USE(use_fclens); - res = 0; - partial = 0; - do { - size_t i; - size_t len = nchars > partial ? nchars - partial : 1; - - if (partial + len >= sizeof(cbuf) / sizeof(*cbuf)) - break; - - r = xread(fildes, cbuf + partial, len); - - if (partial == 0 && r <= 0) - break; - partial += r; - i = 0; - while (i < partial && nchars != 0) { - int tlen; - - tlen = normal_mbtowc(buf + res, cbuf + i, partial - i); - if (tlen == -1) { - reset_mbtowc(); - if ((partial - i) < MB_LEN_MAX && r > 0) - /* Maybe a partial character and there is still a chance - to read more */ - break; - buf[res] = (unsigned char)cbuf[i] | INVALID_BYTE; - } - if (tlen <= 0) - tlen = 1; -#ifdef WIDE_STRINGS - if (use_fclens) - fclens[res] = tlen; -#endif - i += tlen; - res++; - nchars--; - } - if (i != partial) - memmove(cbuf, cbuf + i, partial - i); - partial -= i; - } while (partial != 0 && nchars > 0); - /* Throwing away possible partial multibyte characters on error if the - stream is not seekable */ - err = errno; - lseek(fildes, -(off_t)partial, L_INCR); - errno = err; - return res != 0 ? res : r; -} - -static eChar -bgetc(void) -{ - Char ch; - int c, off, buf; - int numleft = 0, roomleft; - - if (cantell) { - if (fseekp < fbobp || fseekp > feobp) { - fbobp = feobp = fseekp; - (void) lseek(SHIN, fseekp, L_SET); - } - if (fseekp == feobp) { -#ifdef WIDE_STRINGS - off_t bytes; - size_t i; - - bytes = fbobp; - for (i = 0; i < (size_t)(feobp - fbobp); i++) - bytes += fclens[i]; - fseekp = feobp = bytes; -#endif - fbobp = feobp; - c = wide_read(SHIN, fbuf[0], BUFSIZE, 1); -#ifdef convex - if (c < 0) - stderror(ERR_SYSTEM, progname, strerror(errno)); -#endif /* convex */ - if (c <= 0) - return CHAR_ERR; - feobp += c; - } -#ifndef WINNT_NATIVE - ch = fbuf[0][fseekp - fbobp]; - fseekp++; -#else - do { - ch = fbuf[0][fseekp - fbobp]; - fseekp++; - } while(ch == '\r'); -#endif /* !WINNT_NATIVE */ - return (ch); - } - - while (fseekp >= feobp) { - if ((editing -#if defined(FILEC) && defined(TIOCSTI) - || filec -#endif /* FILEC && TIOCSTI */ - ) && intty) { /* then use twenex routine */ - fseekp = feobp; /* where else? */ -#if defined(FILEC) && defined(TIOCSTI) - if (!editing) - c = numleft = tenex(InputBuf, BUFSIZE); - else -#endif /* FILEC && TIOCSTI */ - 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) memcpy(fbuf[buf] + off, InputBuf + c - numleft, - roomleft * sizeof(Char)); - numleft -= roomleft; - feobp += roomleft; - } - } else { - off = (int) feobp % BUFSIZE; - buf = (int) feobp / BUFSIZE; - balloc(buf); - roomleft = BUFSIZE - off; - c = wide_read(SHIN, fbuf[buf] + off, roomleft, 0); - if (c > 0) - feobp += c; - } - if (c == 0 || (c < 0 && fixio(SHIN, errno) == -1)) - return CHAR_ERR; - } -#ifdef SIG_WINDOW - if (windowchg) - (void) check_window_size(0); /* for window systems */ -#endif /* SIG_WINDOW */ -#ifndef WINNT_NATIVE - ch = fbuf[(int) fseekp / BUFSIZE][(int) fseekp % BUFSIZE]; - fseekp++; -#else - do { - ch = fbuf[(int) fseekp / BUFSIZE][(int) fseekp % BUFSIZE]; - fseekp++; - } while(ch == '\r'); -#endif /* !WINNT_NATIVE */ - return (ch); -} - -static void -bfree(void) -{ - int sb, i; - - if (cantell) - return; - if (whyles) - return; - sb = (int) (fseekp - 1) / BUFSIZE; - if (sb > 0) { - for (i = 0; i < sb; i++) - xfree(fbuf[i]); - (void) blkcpy(fbuf, &fbuf[sb]); - fseekp -= BUFSIZE * sb; - feobp -= BUFSIZE * sb; - fblocks -= sb; - } -} - -void -bseek(struct Ain *l) -{ - switch (aret = l->type) { - case TCSH_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 TCSH_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 TCSH_F_SEEK: -#ifdef DEBUG_SEEK - xprintf(CGETS(16, 6, "seek to file %x\n"), fseekp); -#endif - fseekp = l->f_seek; -#ifdef WIDE_STRINGS - if (cantell) { - if (fseekp >= fbobp && feobp >= fbobp) { - size_t i; - off_t o; - - o = fbobp; - for (i = 0; i < (size_t)(feobp - fbobp); i++) { - if (fseekp == o) { - fseekp = fbobp + i; - return; - } - o += fclens[i]; - } - if (fseekp == o) { - fseekp = feobp; - return; - } - } - fbobp = feobp = fseekp + 1; /* To force lseek() */ - } -#endif - return; - default: - xprintf(CGETS(16, 7, "Bad seek type %d\n"), aret); - abort(); - } -} - -/* any similarity to bell telephone is purely accidental */ -void -btell(struct Ain *l) -{ - switch (l->type = aret) { - case TCSH_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 TCSH_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 TCSH_F_SEEK: -#ifdef WIDE_STRINGS - if (cantell && fseekp >= fbobp && fseekp <= feobp) { - size_t i; - - l->f_seek = fbobp; - for (i = 0; i < (size_t)(fseekp - fbobp); i++) - l->f_seek += fclens[i]; - } else -#endif - /*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) -{ - (void) lseek(SHIN, (off_t) 0, L_XTND); - aret = TCSH_F_SEEK; - fseekp = feobp; - alvec = NULL; - alvecp = NULL; - evalvec = NULL; - evalp = NULL; - wfree(); - bfree(); -} - -void -settell(void) -{ - off_t x; - cantell = 0; - if (arginp || onelflg || intty) - return; - if ((x = lseek(SHIN, (off_t) 0, L_INCR)) == -1) - return; - fbuf = xcalloc(2, sizeof(Char **)); - fblocks = 1; - fbuf[0] = 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 7c4094f..0000000 --- a/contrib/tcsh/sh.misc.c +++ /dev/null @@ -1,666 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.misc.c,v 3.45 2006/10/14 17:57:21 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. 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("$tcsh: sh.misc.c,v 3.45 2006/10/14 17:57:21 christos Exp $") - -static int renum (int, int); -static Char **blkend (Char **); -static Char **blkcat (Char **, Char **); -static int xdup2 (int, int); - -/* - * C Shell - */ - -int -any(const char *s, Char c) -{ - if (!s) - return (0); /* Check for nil pointer */ - while (*s) - if ((Char)*s++ == c) - return (1); - return (0); -} - -void -setzero(void *p, size_t size) -{ - memset(p, 0, size); -} - -char * -strnsave(const char *s, size_t len) -{ - char *r; - - r = xmalloc(len + 1); - memcpy(r, s, len); - r[len] = '\0'; - return r; -} - -char * -strsave(const char *s) -{ - char *r; - size_t size; - - if (s == NULL) - s = ""; - size = strlen(s) + 1; - r = xmalloc(size); - memcpy(r, s, size); - return (r); -} - -static Char ** -blkend(Char **up) -{ - - while (*up) - up++; - return (up); -} - - -void -blkpr(Char *const *av) -{ - - for (; *av; av++) { - xprintf("%S", *av); - if (av[1]) - xprintf(" "); - } -} - -Char * -blkexpand(Char *const *av) -{ - struct Strbuf buf = Strbuf_INIT; - - for (; *av; av++) { - Strbuf_append(&buf, *av); - if (av[1]) - Strbuf_append1(&buf, ' '); - } - return Strbuf_finish(&buf); -} - -int -blklen(Char **av) -{ - int i = 0; - - while (*av++) - i++; - return (i); -} - -Char ** -blkcpy(Char **oav, Char **bv) -{ - Char **av = oav; - - while ((*av++ = *bv++) != NULL) - continue; - return (oav); -} - -static Char ** -blkcat(Char **up, Char **vp) -{ - - (void) blkcpy(blkend(up), vp); - return (up); -} - -void -blkfree(Char **av0) -{ - Char **av = av0; - - if (!av0) - return; - for (; *av; av++) - xfree(*av); - xfree(av0); -} - -void -blk_cleanup(void *ptr) -{ - blkfree(ptr); -} - -void -blk_indirect_cleanup(void *xptr) -{ - Char ***ptr; - - ptr = xptr; - blkfree(*ptr); - xfree(ptr); -} - -Char ** -saveblk(Char **v) -{ - Char **newv, **onewv; - - if (v == NULL) - return NULL; - - onewv = newv = xcalloc(blklen(v) + 1, sizeof(Char **)); - - while (*v) - *newv++ = Strsave(*v++); - return (onewv); -} - -#ifndef HAVE_STRSTR -char * -strstr(const char *s, const char *t) -{ - do { - const char *ss = s; - const char *tt = t; - - do - if (*tt == '\0') - return (s); - while (*ss++ == *tt++); - } while (*s++ != '\0'); - return (NULL); -} -#endif /* !HAVE_STRSTR */ - -char * -strspl(const char *cp, const char *dp) -{ - char *ep; - size_t cl, dl; - - if (!cp) - cp = ""; - if (!dp) - dp = ""; - cl = strlen(cp); - dl = strlen(dp); - ep = xmalloc((cl + dl + 1) * sizeof(char)); - memcpy(ep, cp, cl); - memcpy(ep + cl, dp, dl + 1); - return (ep); -} - -Char ** -blkspl(Char **up, Char **vp) -{ - Char **wp = xcalloc(blklen(up) + blklen(vp) + 1, sizeof(Char **)); - - (void) blkcpy(wp, up); - return (blkcat(wp, vp)); -} - -Char -lastchr(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(void) -{ - int f, num_files; - -#ifdef NLS_BUGS -#ifdef NLS_CATALOGS - nlsclose(); -#endif /* NLS_CATALOGS */ -#endif /* NLS_BUGS */ -#ifdef YPBUGS - /* suggested by Justin Bur; thanks to Karl Kleinpaste */ - fix_yp_bugs(); -#endif /* YPBUGS */ - num_files = NOFILE; - for (f = 0; f < num_files; f++) - if (f != SHIN && f != SHOUT && f != SHDIAG && f != OLDSTD && - f != FSHTTY -#ifdef MALLOC_TRACE - && f != 25 -#endif /* MALLOC_TRACE */ - ) - { - xclose(f); -#ifdef NISPLUS - if(f < 3) - (void) xopen(_PATH_DEVNULL, O_RDONLY|O_LARGEFILE); -#endif /* NISPLUS */ - } -#ifdef NLS_BUGS -#ifdef NLS_CATALOGS - nlsinit(); -#endif /* NLS_CATALOGS */ -#endif /* NLS_BUGS */ -} - -#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(void) -{ - int f, num_files; - - if (didcch) - return; - didcch = 1; - SHIN = 0; - SHOUT = 1; - SHDIAG = 2; - OLDSTD = 0; - isoutatty = isatty(SHOUT); - isdiagatty = isatty(SHDIAG); - num_files = NOFILE; - for (f = 3; f < num_files; f++) - xclose(f); -} - -#endif /* CLOSE_ON_EXEC */ - -void -donefds(void) -{ - - xclose(0); - xclose(1); - xclose(2); - didfds = 0; -#ifdef NISPLUS - { - int fd = xopen(_PATH_DEVNULL, O_RDONLY|O_LARGEFILE); - (void)dcopy(fd, 1); - (void)dcopy(fd, 2); - (void)dmove(fd, 0); - } -#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 > FSAFE. This also happens in dcopy. - */ -int -dmove(int i, int j) -{ - - if (i == j || i < 0) - return (i); -#ifdef HAVE_DUP2 - if (j >= 0) { - (void) xdup2(i, j); - if (j != i) - xclose(i); - return (j); - } -#endif - j = dcopy(i, j); - if (j != i) - xclose(i); - return (j); -} - -int -dcopy(int i, int j) -{ - - if (i == j || i < 0 || (j < 0 && i > FSAFE)) - return (i); - if (j >= 0) { -#ifdef HAVE_DUP2 - (void) xdup2(i, j); - return (j); -#else - xclose(j); -#endif - } - return (renum(i, j)); -} - -static int -renum(int i, int j) -{ - int k = dup(i); - - if (k < 0) - return (-1); - if (j == -1 && k > FSAFE) - return (k); - if (k != j) { - j = renum(k, j); - xclose(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(Char **v, int c) -{ - Char **u; - - for (u = v; *u && --c >= 0; u++) - xfree(*u); - (void) blkcpy(v, u); -} - -int -number(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(Char **v) -{ - Char **nv = xcalloc(blklen(v) + 1, sizeof(Char **)); - - return (blkcpy(nv, v)); -} - -char * -strend(const char *cp) -{ - if (!cp) - return ((char *)(intptr_t)cp); - while (*cp) - cp++; - return ((char *)(intptr_t)cp); -} - -Char * -strip(Char *cp) -{ - Char *dp = cp; - - if (!cp) - return (cp); - while ((*dp++ &= TRIM) != '\0') - continue; - return (cp); -} - -Char * -quote(Char *cp) -{ - Char *dp = cp; - - if (!cp) - return (cp); - while (*dp != '\0') - *dp++ |= QUOTE; - return (cp); -} - -const Char * -quote_meta(struct Strbuf *buf, const Char *s) -{ - buf->len = 0; - while (*s != '\0') { - if (cmap(*s, _META | _DOL | _QF | _QB | _ESC | _GLOB)) - Strbuf_append1(buf, '\\'); - Strbuf_append1(buf, *s++); - } - Strbuf_terminate(buf); - return buf->s; -} - -void -udvar(Char *name) -{ - setname(short2str(name)); - stderror(ERR_NAME | ERR_UNDVAR); -} - -int -prefix(const Char *sub, const Char *str) -{ - - for (;;) { - if (*sub == 0) - return (1); - if (*str == 0) - return (0); - if ((*sub++ & TRIM) != (*str++ & TRIM)) - return (0); - } -} -#ifndef WINNT_NATIVE -char * -areadlink(const char *path) -{ - char *buf; - size_t size; - ssize_t res; - - size = MAXPATHLEN + 1; - buf = xmalloc(size); - while ((size_t)(res = readlink(path, buf, size)) == size) { - size *= 2; - buf = xrealloc(buf, size); - } - if (res == -1) { - int err; - - err = errno; - xfree(buf); - errno = err; - return NULL; - } - buf[res] = '\0'; - return xrealloc(buf, res + 1); -} -#endif /*!WINNT_NATIVE*/ - -void -xclose(int fildes) -{ - if (fildes < 0) - return; - while (close(fildes) == -1 && errno == EINTR) - handle_pending_signals(); -} - -void -xclosedir(DIR *dirp) -{ - while (closedir(dirp) == -1 && errno == EINTR) - handle_pending_signals(); -} - -int -xcreat(const char *path, mode_t mode) -{ - int res; - - while ((res = creat(path, mode)) == -1 && errno == EINTR) - handle_pending_signals(); - return res; -} - -#ifdef HAVE_DUP2 -static int -xdup2(int fildes, int fildes2) -{ - int res; - - while ((res = dup2(fildes, fildes2)) == -1 && errno == EINTR) - handle_pending_signals(); - return res; -} -#endif - -struct group * -xgetgrgid(gid_t xgid) -{ - struct group *res; - - errno = 0; - while ((res = getgrgid(xgid)) == NULL && errno == EINTR) { - handle_pending_signals(); - errno = 0; - } - return res; -} - -struct passwd * -xgetpwnam(const char *name) -{ - struct passwd *res; - - errno = 0; - while ((res = getpwnam(name)) == NULL && errno == EINTR) { - handle_pending_signals(); - errno = 0; - } - return res; -} - -struct passwd * -xgetpwuid(uid_t xuid) -{ - struct passwd *res; - - errno = 0; - while ((res = getpwuid(xuid)) == NULL && errno == EINTR) { - handle_pending_signals(); - errno = 0; - } - return res; -} - -int -xopen(const char *path, int oflag, ...) -{ - int res; - - if ((oflag & O_CREAT) == 0) { - while ((res = open(path, oflag)) == -1 && errno == EINTR) - handle_pending_signals(); - } else { - va_list ap; - mode_t mode; - - va_start(ap, oflag); - /* "int" should actually be "mode_t after default argument - promotions". "int" is the best guess we have, "mode_t" used to be - "unsigned short", which we obviously can't use. */ - mode = va_arg(ap, int); - va_end(ap); - while ((res = open(path, oflag, mode)) == -1 && errno == EINTR) - handle_pending_signals(); - } - return res; -} - -ssize_t -xread(int fildes, void *buf, size_t nbyte) -{ - ssize_t res; - - /* This is where we will be blocked most of the time, so handle signals - that didn't interrupt any system call. */ - do - handle_pending_signals(); - while ((res = read(fildes, buf, nbyte)) == -1 && errno == EINTR); - return res; -} - -#ifdef POSIX -int -xtcsetattr(int fildes, int optional_actions, const struct termios *termios_p) -{ - int res; - - while ((res = tcsetattr(fildes, optional_actions, termios_p)) == -1 && - errno == EINTR) - handle_pending_signals(); - return res; -} -#endif - -ssize_t -xwrite(int fildes, const void *buf, size_t nbyte) -{ - ssize_t res; - - /* This is where we will be blocked most of the time, so handle signals - that didn't interrupt any system call. */ - do - handle_pending_signals(); - while ((res = write(fildes, buf, nbyte)) == -1 && errno == EINTR); - return res; -} diff --git a/contrib/tcsh/sh.parse.c b/contrib/tcsh/sh.parse.c deleted file mode 100644 index 2ef20c4..0000000 --- a/contrib/tcsh/sh.parse.c +++ /dev/null @@ -1,690 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.parse.c,v 3.18 2006/03/02 18:46:44 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. 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("$tcsh: sh.parse.c,v 3.18 2006/03/02 18:46:44 christos Exp $") - -/* - * C shell - */ -static int asyntax (struct wordent *, struct wordent *); -static int asyn0 (struct wordent *, struct wordent *); -static int asyn3 (struct wordent *, struct wordent *); -static struct wordent *freenod (struct wordent *, struct wordent *); -static struct command *syn0 (const struct wordent *, const struct wordent *, int); -static struct command *syn1 (const struct wordent *, const struct wordent *, int); -static struct command *syn1a (const struct wordent *, const struct wordent *, int); -static struct command *syn1b (const struct wordent *, const struct wordent *, int); -static struct command *syn2 (const struct wordent *, const struct wordent *, int); -static struct command *syn3 (const struct wordent *, const 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. - */ -extern int hleft; -void -alias(struct wordent *lexp) -{ - int aleft; - - aleft = ALEFT; - hleft = HLEFT; - do { - if (--aleft == 0) - stderror(ERR_ALIASLOOP); - } while (asyntax(lexp->next, lexp) != 0); -} - -static int -asyntax(struct wordent *p1, struct wordent *p2) -{ - while (p1 != p2) { - if (!any(";&\n", p1->word[0])) - return asyn0(p1, p2); - p1 = p1->next; - } - return 0; -} - -static int -asyn0(struct wordent *p1, struct wordent *p2) -{ - struct wordent *p; - 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; - if (asyn3(p1, p) != 0) - return 1; - return asyntax(p->next, p2); - - default: - break; - } - if (l == 0) - return asyn3(p1, p2); - return 0; -} - -static void -alvec_cleanup(void *dummy) -{ - USE(dummy); - alhistp = NULL; - alhistt = NULL; - alvec = NULL; -} - -static int -asyn3(struct wordent *p1, struct wordent *p2) -{ - struct varent *ap; - struct wordent alout; - int redid; - - if (p1 == p2) - return 0; - if (p1->word[0] == '(') { - for (p2 = p2->prev; p2->word[0] != ')'; p2 = p2->prev) - if (p2 == p1) - return 0; - if (p2 == p1->next) - return 0; - return asyn0(p1->next, p2); - } - ap = adrof1(p1->word, &aliases); - if (ap == 0) - return 0; - alhistp = p1->prev; - alhistt = p2; - alvec = ap->vec; - cleanup_push(&alvec, alvec_cleanup); - redid = lex(&alout); - cleanup_until(&alvec); - 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(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(alout.prev->word); - xfree(alout.prev); - } - return 1; -} - -static struct wordent * -freenod(struct wordent *p1, struct wordent *p2) -{ - struct wordent *retp = p1->prev; - - while (p1 != p2) { - xfree(p1->word); - p1 = p1->next; - xfree(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(const struct wordent *p1, const struct wordent *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(const struct wordent *p1, const struct wordent *p2, int flags) -{ - const struct wordent *p; - 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 = 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 = 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(const struct wordent *p1, const struct wordent *p2, int flags) -{ - const struct wordent *p; - 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 = 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(const struct wordent *p1, const struct wordent *p2, int flags) -{ - const struct wordent *p; - struct command *t; - 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 = 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(const struct wordent *p1, const struct wordent *p2, int flags) -{ - const struct wordent *p; - struct command *t; - 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 = 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(const struct wordent *p1, const struct wordent *p2, int flags) -{ - const struct wordent *p, *pn; - struct command *t; - 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 = 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 const 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(const struct wordent *p1, const struct wordent *p2, int flags) -{ - const struct wordent *p; - const struct wordent *lp, *rp; - struct command *t; - int l; - Char **av; - int n, c; - int 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 = xcalloc(1, sizeof(*t)); - av = xcalloc(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(struct command *t) -{ - Char **v; - - if (t == 0) - return; - switch (t->t_dtyp) { - - case NODE_COMMAND: - for (v = t->t_dcom; *v; v++) - xfree(*v); - xfree(t->t_dcom); - xfree(t->t_dlef); - xfree(t->t_drit); - break; - case NODE_PAREN: - freesyn(t->t_dspr); - xfree(t->t_dlef); - xfree(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(t); -} - -void -syntax_cleanup(void *xt) -{ - struct command *t; - - t = xt; - freesyn(t); -} diff --git a/contrib/tcsh/sh.print.c b/contrib/tcsh/sh.print.c deleted file mode 100644 index 4fc79cf..0000000 --- a/contrib/tcsh/sh.print.c +++ /dev/null @@ -1,298 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.print.c,v 3.33 2006/08/23 15:03:14 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. 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("$tcsh: sh.print.c,v 3.33 2006/08/23 15:03:14 christos Exp $") - -#include "ed.h" - -extern int Tty_eight_bit; - -int lbuffed = 1; /* true if line buffered */ - -static void p2dig (unsigned int); - -/* - * C Shell - */ - -#if defined(BSDLIMIT) || defined(RLIMIT_CPU) -void -psecs(unsigned long l) -{ - 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 /* PWP: print mm:ss.dd, l is in sec*100 */ -#ifdef BSDTIMES -pcsecs(unsigned long l) -#else /* BSDTIMES */ -# ifndef POSIX -pcsecs(time_t l) -# else /* POSIX */ -pcsecs(clock_t l) -# endif /* POSIX */ -#endif /* BSDTIMES */ -{ - 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(unsigned i) -{ - - xprintf("%u%u", i / 10, i % 10); -} - -char linbuf[2048]; /* was 128 */ -char *linp = linbuf; -int output_raw = 0; /* PWP */ -int xlate_cr = 0; /* HE */ - -/* For cleanup_push() */ -void -output_raw_restore(void *xorig) -{ - int *orig; - - orig = xorig; - output_raw = *orig; -} - -#ifdef WIDE_STRINGS -void -putwraw(Char c) -{ - char buf[MB_LEN_MAX]; - size_t i, len; - - len = one_wctomb(buf, c & CHAR); - for (i = 0; i < len; i++) - putraw((unsigned char)buf[i] | (c & ~CHAR)); -} - -void -xputwchar(Char c) -{ - char buf[MB_LEN_MAX]; - size_t i, len; - - len = one_wctomb(buf, c & CHAR); - for (i = 0; i < len; i++) - xputchar((unsigned char)buf[i] | (c & ~CHAR)); -} -#endif - -void -xputchar(int c) -{ - int atr; - - atr = c & ATTRIBUTES & TRIM; - c &= CHAR | QUOTE; - if (!output_raw && (c & QUOTE) == 0) { - if (iscntrl(c) && (ASC(c) < 0x80 || MB_CUR_MAX == 1)) { - if (c != '\t' && c != '\n' -#ifdef COLORCAT - && !(adrof(STRcolorcat) && c == CTL_ESC('\033')) -#endif - && (xlate_cr || c != '\r')) - { - xputchar('^' | atr); - if (c == CTL_ESC('\177')) - c = '?'; - else - /* Note: for IS_ASCII, this compiles to: c = c | 0100 */ - c = CTL_ESC(ASC(c)|0100); - } - } - else if (!isprint(c) && (ASC(c) < 0x80 || MB_CUR_MAX == 1)) { - 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(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(int c) -{ - c &= CHAR; - - *linp++ = (char) c; - if (linp >= &linbuf[sizeof linbuf - 10]) - flush(); - return (1); -} - -void -drainoline(void) -{ - linp = linbuf; -} - -void -flush(void) -{ - int unit; - static int interrupted = 0; - - /* int lmode; */ - - if (linp == linbuf) - return; - if (GettingInput && !Tty_raw_mode && linp < &linbuf[sizeof linbuf - 10]) - return; - if (interrupted) { - interrupted = 0; - linp = linbuf; /* avoid recursion 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) xwrite(unit, "\n", 1); - } -#endif -#endif - if (xwrite(unit, linbuf, linp - linbuf) == -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 a8ebc74..0000000 --- a/contrib/tcsh/sh.proc.c +++ /dev/null @@ -1,1990 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.proc.c,v 3.104 2006/09/27 16:59:04 mitr 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. 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("$tcsh: sh.proc.c,v 3.104 2006/09/27 16:59:04 mitr Exp $") - -#include "ed.h" -#include "tc.h" -#include "tc.wait.h" - -#ifdef WINNT_NATIVE -#undef POSIX -#define POSIX -#endif /* WINNT_NATIVE */ -#ifdef aiws -# undef HZ -# define HZ 16 -#endif /* aiws */ - -#if defined(_BSD) || (defined(IRIS4D) && __STDC__) || defined(__lucid) || defined(linux) || defined(__GNU__) || defined(__GLIBC__) -# define BSDWAIT -#endif /* _BSD || (IRIS4D && __STDC__) || __lucid || glibc */ -#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 */ - -#ifndef JOBDEBUG -# define jobdebug_xprintf(x) (void)0 -# define jobdebug_flush() (void)0 -#else -# define jobdebug_xprintf(s) xprintf s -# define jobdebug_flush() flush() -#endif - -/* - * 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 -static struct rusage zru; -# 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 BSDTIMES -static int timesdone; /* shtimes buffer full ? */ -#endif /* BSDTIMES */ - -#ifndef RUSAGE_CHILDREN -# define RUSAGE_CHILDREN -1 -#endif /* RUSAGE_CHILDREN */ - -static void pflushall (void); -static void pflush (struct process *); -static void pfree (struct process *); -static void pclrcurr (struct process *); -static void padd (struct command *); -static int pprint (struct process *, int); -static void ptprint (struct process *); -static void pads (Char *); -static void pkill (Char **, int); -static struct process *pgetcurr (struct process *); -static void okpcntl (void); -static void setttypgrp (int); - -/* - * pchild - call queued 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! - */ -void -pchild(void) -{ - struct process *pp; - struct process *fp; - pid_t pid; -#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; - - if (!timesdone) { - timesdone++; - (void) times(&shtimes); - } -# endif /* !_SEQUENT_ */ -#endif /* !BSDTIMES */ - - jobdebug_xprintf(("pchild()\n")); - -loop: - jobdebug_xprintf(("Waiting...\n")); - jobdebug_flush(); - errno = 0; /* reset, just in case */ - -#ifndef WINNT_NATIVE -# 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(__GNU__) || defined(__GLIBC__) || (defined(IRIS4D) && 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 -# ifndef BSDWAIT - /* no wait3, therefore no rusage */ - /* on Sys V, this may hang. I hope it's not going to be a problem */ - pid = wait(&w); -# else /* BSDWAIT */ - /* - * 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 /* BSDWAIT */ -# endif /* !HAVEwait3 */ -# endif /* !BSDTIMES */ -# endif /* !BSDJOBS */ -#else /* WINNT_NATIVE */ - pid = waitpid(-1, &w, - (setintr && (intty || insource) ? WNOHANG | WUNTRACED : WNOHANG)); -#endif /* WINNT_NATIVE */ - - jobdebug_xprintf(("parent %d pid %d, retval %x termsig %x retcode %x\n", - (int)getpid(), (int)pid, w, WTERMSIG(w), - WEXITSTATUS(w))); - jobdebug_flush(); - - if ((pid == 0) || (pid == -1)) { - handle_pending_signals(); - jobdebug_xprintf(("errno == %d\n", errno)); - if (errno == EINTR) - goto loop; - goto end; - } - for (pp = proclist.p_next; pp != NULL; pp = pp->p_next) - if (pid == pp->p_procid) - goto found; -#if !defined(BSDJOBS) && !defined(WINNT_NATIVE) - /* this should never have happened */ - stderror(ERR_SYNC, pid); - xexit(0); -#else /* BSDJOBS || WINNT_NATIVE */ - goto loop; -#endif /* !BSDJOBS && !WINNT_NATIVE */ -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_ */ - pp->p_etime = times(&proctimes); -# 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) { - xputchar('\r' | QUOTE); - xputchar('\n'); - } -#ifdef notdef - else if ((jobflags & (PTIME|PSTOPPED)) == PTIME) - ptprint(fp); -#endif /* notdef */ - } - } - else { - if (jobflags & PNOTIFY || adrof(STRnotify)) { - xputchar('\r' | QUOTE); - xputchar('\n'); - (void) pprint(pp, NUMBER | NAME | REASON); - if ((jobflags & PSTOPPED) == 0) - pflush(pp); - 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 = 1; - } - } - } -#if defined(BSDJOBS) || defined(HAVEwait3) ||defined(WINNT_NATIVE) - goto loop; -#endif /* BSDJOBS || HAVEwait3 */ - end: - ; -} - -void -pnote(void) -{ - struct process *pp; - int flags; - - neednote = 0; - for (pp = proclist.p_next; pp != NULL; pp = pp->p_next) { - if (pp->p_flags & PNEEDNOTE) { - pchild_disabled++; - cleanup_push(&pchild_disabled, disabled_cleanup); - pp->p_flags &= ~PNEEDNOTE; - flags = pprint(pp, NUMBER | NAME | REASON); - if ((flags & (PRUNNING | PSTOPPED)) == 0) - pflush(pp); - cleanup_until(&pchild_disabled); - } - } -} - - -static void -pfree(struct process *pp) -{ - xfree(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(pp); -} - - -/* - * pwait - wait for current job to terminate, maintaining integrity - * of current and previous job indicators. - */ -void -pwait(void) -{ - struct process *fp, *pp; - - /* - * Here's where dead procs get flushed. - */ - 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; - } - pjwait(pcurrjob); -} - - -/* - * pjwait - wait for a job to finish or become stopped - * It is assumed to be in the foreground state (PFOREGND) - */ -void -pjwait(struct process *pp) -{ - struct process *fp; - int jobflags, reason; - sigset_t oset, set, pause_mask; - Char *reason_str; - - 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; - sigemptyset(&set); - sigaddset(&set, SIGINT); - sigaddset(&set, SIGCHLD); - (void)sigprocmask(SIG_BLOCK, &set, &oset); - cleanup_push(&oset, sigprocmask_cleanup); - pause_mask = oset; - sigdelset(&pause_mask, SIGCHLD); - for (;;) { - handle_pending_signals(); - jobflags = 0; - do - jobflags |= fp->p_flags; - while ((fp = (fp->p_friends)) != pp); - if ((jobflags & PRUNNING) == 0) - break; - jobdebug_xprintf(("%d starting to sigsuspend for SIGCHLD on %d\n", - getpid(), fp->p_procid)); - sigsuspend(&pause_mask); - } - cleanup_until(&oset); - jobdebug_xprintf(("%d returned from sigsuspend loop\n", getpid())); -#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); - reason_str = putn(reason); - cleanup_push(reason_str, xfree); - setv(STRstatus, reason_str, VAR_READWRITE); - cleanup_ignore(reason_str); - cleanup_until(reason_str); - if (reason && exiterr) - exitstat(); - pflush(pp); -} - -/* - * dowait - wait for all processes to finish - */ - -/*ARGSUSED*/ -void -dowait(Char **v, struct command *c) -{ - struct process *pp; - sigset_t pause_mask; - - USE(c); - USE(v); - pjobs++; - sigprocmask(SIG_BLOCK, NULL, &pause_mask); - sigdelset(&pause_mask, SIGCHLD); - if (setintr) - sigdelset(&pause_mask, SIGINT); -loop: - for (pp = proclist.p_next; pp; pp = pp->p_next) - if (pp->p_procid && /* pp->p_procid == pp->p_jobid && */ - pp->p_flags & PRUNNING) { - handle_pending_signals(); - sigsuspend(&pause_mask); - handle_pending_signals(); - goto loop; - } - pjobs = 0; -} - -/* - * pflushall - flush all jobs from list (e.g. at fork()) - */ -static void -pflushall(void) -{ - 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(struct process *pp) -{ - struct process *np; - 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(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 size_t cmdlen; -static Char *cmdp; - -/* GrP - * unparse - Export padd() functionality - */ -Char * -unparse(struct command *t) -{ - cmdp = command; - cmdlen = 0; - padd(t); - *cmdp++ = '\0'; - return Strsave(command); -} - - -/* - * palloc - allocate a process structure and fill it up. - * an important assumption is made that the process is running. - */ -void -palloc(pid_t pid, struct command *t) -{ - struct process *pp; - int i; - - pp = xcalloc(1, 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; - - pp->p_btime = times(&tmptimes); - } -# endif /* !_SEQUENT_ */ -#endif /* !BSDTIMES */ -} - -static void -padd(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(Char *cp) -{ - size_t i; - - /* - * Avoid the Quoted Space alias hack! Reported by: - * sam@john-bigboote.ICS.UCI.EDU (Sam Horrocks) - */ - if (cp[0] == STRQNULL[0]) - cp++; - - i = 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(void) -{ - pholdjob = pcurrjob; - pcurrjob = NULL; -} - -void -psavejob_cleanup(void *dummy) -{ - USE(dummy); - pcurrjob = pholdjob; - pholdjob = NULL; -} - -/* - * pendjob - indicate that a job (set of commands) has been completed - * or is about to begin. - */ -void -pendjob(void) -{ - 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(struct process *pp, int flag) -{ - int status, reason; - struct process *tp; - int jobflags, pstatus, pcond; - const 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 = (tp != pp || (inpipe && tp == pp)); -#else /* !BACKPIPE */ - pcond = (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) { - 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; - int free_ptr; - - free_ptr = 0; - ptr = (char *)(intptr_t)mesg[pp->p_reason & 0177].pname; - if (ptr == NULL) { - ptr = xasprintf("%s %d", CGETS(17, 5, "Signal"), - pp->p_reason & 0177); - cleanup_push(ptr, xfree); - free_ptr = 1; - } - xprintf(format, ptr); - if (free_ptr != 0) - cleanup_until(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(struct process *tp) -{ -#ifdef BSDTIMES - struct timeval tetime, diff; - static struct timeval ztime; - struct sysrusage ru; - 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; - 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; - 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(Char **v, struct command *c) -{ - struct process *pp; - 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(Char **v, struct command *c) -{ - 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; - } - pjwait(pp); - } while (*v && *++v); -} - -/* - * %... - builtin - put the job into the foreground - */ -/*ARGSUSED*/ -void -dofg1(Char **v, struct command *c) -{ - 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; - } - pjwait(pp); -} - -/* - * dobg - builtin - put the job into the background - */ -/*ARGSUSED*/ -void -dobg(Char **v, struct command *c) -{ - 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(Char **v, struct command *c) -{ - 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(Char **v, struct command *c) -{ - USE(c); -#ifdef BSDJOBS - pkill(++v, SIGSTOP); -#endif /* BSDJOBS */ -} - -/* - * dokill - builtin - superset of kill (1) - */ -/*ARGSUSED*/ -void -dokill(Char **v, struct command *c) -{ - int signum, len = 0; - const char *name; - Char *sigptr; - - 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 >= TermH - 1) { - xputchar('\n'); - len = strlen(name) + 1; - } - xprintf("%s ", name); - } - } - xputchar('\n'); - return; - } - sigptr = &v[0][1]; - if (v[0][1] == 's') { - if (v[1]) { - v++; - sigptr = &v[0][0]; - } else { - stderror(ERR_NAME | ERR_TOOFEW); - } - } - if (Isdigit(*sigptr)) { - char *ep; - signum = strtoul(short2str(sigptr), &ep, 0); - if (*ep || signum < 0 || signum > (MAXSIG-1)) - stderror(ERR_NAME | ERR_BADSIG); - } - else { - for (signum = 0; signum <= nsig; signum++) - if (mesg[signum].iname && - eq(sigptr, str2short(mesg[signum].iname))) - goto gotsig; - setname(short2str(sigptr)); - stderror(ERR_NAME | ERR_UNKSIG); - } -gotsig: - v++; - } - else - signum = SIGTERM; - pkill(v, signum); -} - -static void -pkill(Char **v, int signum) -{ - struct process *pp, *np; - int jobflags = 0, err1 = 0; - pid_t pid; - Char *cp, **vp, **globbed; - - /* Avoid globbing %?x patterns */ - for (vp = v; vp && *vp; vp++) - if (**vp == '%') - (void) quote(*vp); - - v = glob_all_or_error(v); - globbed = v; - cleanup_push(globbed, blk_cleanup); - - pchild_disabled++; - cleanup_push(&pchild_disabled, disabled_cleanup); - if (setintr) { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - - 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 { - char *ep; -#ifndef WINNT_NATIVE - pid = strtol(short2str(cp), &ep, 10); -#else - pid = strtoul(short2str(cp), &ep, 0); -#endif /* WINNT_NATIVE */ - if (*ep) - stderror(ERR_NAME | ERR_JOBARGS); - else 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++; - } - cleanup_until(&pchild_disabled); - if (err1) - stderror(ERR_SILENT); -} - -/* - * pstart - start the job in foreground/background - */ -int -pstart(struct process *pp, int foregnd) -{ - int rv = 0; - struct process *np; - /* We don't use jobflags in this function right now (see below) */ - /* long jobflags = 0; */ - - pchild_disabled++; - cleanup_push(&pchild_disabled, disabled_cleanup); - 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); - - /* GrP run jobcmd hook if foregrounding */ - if (foregnd) { - job_cmd(pp->p_command); - } - -#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 SIGCHLD. - * 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 */ - cleanup_until(&pchild_disabled); - return rv != -1; -} - -void -panystop(int neednl) -{ - 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(Char *cp) -{ - 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] == '?') { - 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(struct process *pp) -{ - struct process *np; - 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(Char **v, struct command *c) -{ - struct process *pp; - - USE(c); - pp = pfind(*++v); - pp->p_flags |= PNOTIFY; -} - -#ifdef SIGSYNCH -static void -synch_handler(int sno) -{ - USE(sno); -} -#endif /* SIGSYNCH */ - -/* - * 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. - */ - -pid_t -pfork(struct command *t, int wanttty) -{ - pid_t pid; - int ignint = 0; - pid_t pgrp; -#ifdef SIGSYNCH - struct sigaction osa, nsa; -#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)); - - /* - * Check for maximum nesting of 16 processes to avoid Forking loops - */ - if (child == 16) - stderror(ERR_NESTING, 16); -#ifdef SIGSYNCH - nsa.sa_handler = synch_handler; - sigfillset(&nsa.sa_mask); - nsa.sa_flags = SA_RESTART; - if (sigaction(SIGSYNCH, &nsa, &osa)) - stderror(ERR_SYSTEM, "pfork: sigaction set", strerror(errno)); -#endif /* SIGSYNCH */ - /* - * Hold pchild() until we have the process installed in our table. - */ - if (wanttty < 0) { - pchild_disabled++; - cleanup_push(&pchild_disabled, disabled_cleanup); - } - while ((pid = fork()) == -1) - if (setintr == 0) - (void) sleep(FORKSLEEP); - else - stderror(ERR_NOPROC); - if (pid == 0) { - (void)cleanup_push_mark(); /* Never to be popped */ - pchild_disabled = 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 */ - /* - * 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 */ - sigaction(SIGTERM, &parterm, NULL); - } - else if (tpgrp == -1 && (t->t_dflg & F_NOINTERRUPT)) { - (void) signal(SIGINT, SIG_IGN); - (void) signal(SIGQUIT, SIG_IGN); - } -#ifdef OREO - signal(SIGIO, SIG_IGN); /* 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 HAVE_SETPRIORITY - if (setpriority(PRIO_PROCESS, 0, nval) == -1 && errno) - stderror(ERR_SYSTEM, "setpriority", strerror(errno)); -#else /* !HAVE_SETPRIORITY */ - (void) nice(nval); -#endif /* !HAVE_SETPRIORITY */ - } -#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 - { - sigset_t pause_mask; - - /* - * 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. - */ - sigprocmask(SIG_BLOCK, NULL, &pause); - sigdelset(&pause_mask, SIGCHLD); - sigdelset(&pause_mask, SIGSYNCH); - sigsuspend(&pause_mask); - handle_pending_signals(); - if (sigaction(SIGSYNCH, &osa, NULL)) - stderror(ERR_SYSTEM, "pfork parent: sigaction restore", - strerror(errno)); - } -#endif /* SIGSYNCH */ - - if (wanttty < 0) - cleanup_until(&pchild_disabled); - } - return (pid); -} - -static void -okpcntl(void) -{ - if (tpgrp == -1) - stderror(ERR_JOBCONTROL); - if (tpgrp == 0) - stderror(ERR_JOBCTRLSUB); -} - - -static void -setttypgrp(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 - struct sigaction old; - - /* - * tcsetpgrp will set SIGTTOU to all the the processes in - * the background according to POSIX... We ignore this here. - */ - sigaction(SIGTTOU, NULL, &old); - signal(SIGTTOU, SIG_IGN); -#endif - (void) tcsetpgrp(FSHTTY, pgrp); -# ifdef POSIXJOBS - sigaction(SIGTTOU, &old, NULL); -# 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(int wanttty, pid_t pgrp) -{ -#ifdef BSDJOBS -# ifdef POSIXJOBS - sigset_t oset, set; -# endif /* POSIXJOBS */ - - jobdebug_xprintf(("wanttty %d pid %d opgrp%d pgrp %d tpgrp %d\n", - wanttty, (int)getpid(), (int)pgrp, (int)mygetpgrp(), - (int)tcgetpgrp(FSHTTY))); -# ifdef POSIXJOBS - /* - * christos: I am blocking the tty signals till I've set things - * correctly.... - */ - if (wanttty > 0) { - sigemptyset(&set); - sigaddset(&set, SIGTSTP); - sigaddset(&set, SIGTTIN); - (void)sigprocmask(SIG_BLOCK, &set, &oset); - cleanup_push(&oset, sigprocmask_cleanup); - } -# 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); - cleanup_until(&oset); - } -# endif /* POSIXJOBS */ - - jobdebug_xprintf(("wanttty %d pid %d pgrp %d tpgrp %d\n", - wanttty, getpid(), mygetpgrp(), tcgetpgrp(FSHTTY))); - - 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 90b5e04..0000000 --- a/contrib/tcsh/sh.proc.h +++ /dev/null @@ -1,128 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.proc.h,v 3.12 2006/01/12 19:55:38 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. 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 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 */ - -#endif /* _h_sh_proc */ diff --git a/contrib/tcsh/sh.sem.c b/contrib/tcsh/sh.sem.c deleted file mode 100644 index 0ae1502..0000000 --- a/contrib/tcsh/sh.sem.c +++ /dev/null @@ -1,954 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.sem.c,v 3.78 2006/10/14 17:23:39 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. 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("$tcsh: sh.sem.c,v 3.78 2006/10/14 17:23:39 christos Exp $") - -#include "tc.h" -#include "tw.h" -#ifdef WINNT_NATIVE -#include "nt.const.h" -#endif /*WINNT_NATIVE*/ - -#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) && !defined(__GNU__) && !defined(__GLIBC__) -# include <vfork.h> -# endif /* !MACH && SYSVREL == 0 && !Lynx && !BSD4_4 && !glibc */ -#endif /* __sparc__ || sparc */ - -#ifdef VFORK -static void vffree (int); -#endif -static Char *splicepipe (struct command *, Char *); -static void doio (struct command *, int *, int *); -static void chkclob (const 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(struct command *t, volatile int wanttty, int *pipein, int *pipeout, - int do_glob) -{ - int forked = 0; - const struct biltins * volatile bifunc; - pid_t pid = 0; - int pv[2]; - sigset_t set; - static sigset_t csigset; -#ifdef VFORK - static int onosigchld = 0; -#endif /* VFORK */ - static int nosigchld = 0; - - (void) &wanttty; - (void) &forked; - (void) &bifunc; - - if (t == 0) - return; - -#ifdef WINNT_NATIVE - { - 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_NATIVE */ - - /* - * 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; - struct stat stbuf; - char *pathname; - - sCName = dollar(t->t_dcom[0]); - if (sCName != NULL && sCName[0] == '~') { - struct Strbuf buf = Strbuf_INIT; - const Char *name_end; - - for (name_end = sCName + 1; *name_end != '\0' && *name_end != '/'; - name_end++) - continue; - if (name_end != sCName + 1) { - Char *name, *home; - - name = Strnsave(sCName + 1, name_end - (sCName + 1)); - home = gethdir(name); - if (home != NULL) { - Strbuf_append(&buf, home); - xfree(home); - } else - Strbuf_append(&buf, name); - xfree(name); - } else - Strbuf_append(&buf, varval(STRhome)); - Strbuf_append(&buf, name_end); - xfree(sCName); - sCName = Strbuf_finish(&buf); - } - - pathname = short2str(sCName); - xfree(sCName); - /* if this is a dir, tack a "cd" on as the first arg */ - if (pathname != NULL && - ((stat(pathname, &stbuf) != -1 && S_ISDIR(stbuf.st_mode)) -#ifdef WINNT_NATIVE - || (pathname[0] && pathname[1] == ':' && pathname[2] == '\0') -#endif /* WINNT_NATIVE */ - )) { - Char *vCD[2]; - Char **ot_dcom = t->t_dcom; - - vCD[0] = Strsave(STRcd); - vCD[1] = NULL; - t->t_dcom = blkspl(vCD, ot_dcom); - xfree(ot_dcom); - if (implicit_cd > 1) { - blkpr(t->t_dcom); - xputchar( '\n' ); - } - } - } - - /* - * 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) - memmove(t->t_dcom[0], t->t_dcom[0] + 1, - (Strlen(t->t_dcom[0] + 1) + 1) * sizeof (*t->t_dcom[0])); - 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) { - xclose(0); - heredoc(t->t_dlef); - if (noexec) - xclose(0); - } - - setcopy(STRstatus, 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) { - /* - * Continue for builtins that are part of the scripting language - */ - if (bifunc == NULL) - break; - 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; - } - - /* - * GrP Executing a command - run jobcmd hook - * Don't run for builtins - * Don't run if we're not in a tty - * Don't run if we're not really executing - */ - if (t->t_dtyp == NODE_COMMAND && !bifunc && !noexec && intty) { - Char *cmd = unparse(t); - - cleanup_push(cmd, xfree); - job_cmd(cmd); - cleanup_until(cmd); - } - - /* - * 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) { - sigemptyset(&set); - sigaddset(&set, SIGCHLD); - (void)sigprocmask(SIG_BLOCK, &set, &csigset); - - nosigchld = 1; - } - - pid = pfork(t, wanttty); - if (pid == 0 && nosigchld) { - sigprocmask(SIG_SETMASK, &csigset, NULL); - 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; - sigset_t oset, ocsigset; -# ifndef CLOSE_ON_EXEC - int odidcch; -# endif /* !CLOSE_ON_EXEC */ - - /* - * 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 - struct sigaction savesv[NSIGSAVED]; - sigset_t savesm; - -# endif /* SAVESIGVEC */ - if (wanttty >= 0 && !nosigchld && !noexec) { - sigemptyset(&set); - sigaddset(&set, SIGCHLD); - (void)sigprocmask(SIG_BLOCK, &set, &csigset); - nosigchld = 1; - } - sigemptyset(&set); - sigaddset(&set, SIGCHLD); - sigaddset(&set, SIGINT); - (void)sigprocmask(SIG_BLOCK, &set, &oset); - 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; - ocsigset = csigset; - onosigchld = nosigchld; - Vsav = Vdp = 0; - Vexpath = 0; - Vt = 0; -# ifdef SAVESIGVEC - savesigvec(savesv, savesm); -# endif /* SAVESIGVEC */ - if (use_fork) - pid = fork(); - else - pid = vfork(); - - if (pid < 0) { -# ifdef SAVESIGVEC - restoresigvec(savesv, savesm); -# endif /* SAVESIGVEC */ - sigprocmask(SIG_SETMASK, &oset, NULL); - 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; - csigset = ocsigset; - nosigchld = onosigchld; - - xfree(Vsav); - Vsav = 0; - xfree(Vdp); - Vdp = 0; - xfree(Vexpath); - Vexpath = 0; - blk_cleanup(Vt); - Vt = 0; - /* this is from pfork() */ - palloc(pid, t); - sigprocmask(SIG_SETMASK, &oset, NULL); - } - else { /* child */ - /* this is from pfork() */ - pid_t pgrp; - int ignint = 0; - if (nosigchld) { - sigprocmask(SIG_SETMASK, &csigset, NULL); - 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 */ - - sigaction(SIGTERM, &parterm, NULL); - } - 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 HAVE_SETPRIORITY - if (setpriority(PRIO_PROCESS, 0, nval) == -1 && errno) - stderror(ERR_SYSTEM, "setpriority", - strerror(errno)); -# else /* !HAVE_SETPRIORITY */ - (void) nice(nval); -# endif /* HAVE_SETPRIORITY */ - } -# 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) { - xclose(pipeout[0]); - xclose(pipeout[1]); - } - if ((t->t_dflg & F_PIPEIN) != 0) - break; -#else /* !BACKPIPE */ - if (didfds == 0 && t->t_dflg & F_PIPEIN) { - xclose(pipein[0]); - xclose(pipein[1]); - } - if ((t->t_dflg & F_PIPEOUT) != 0) - break; -#endif /* BACKPIPE */ - - if (nosigchld) { - sigprocmask(SIG_SETMASK, &csigset, NULL); - nosigchld = 0; - } - if ((t->t_dflg & F_AMPERSAND) == 0) - pwait(); - break; - } - - doio(t, pipein, pipeout); -#ifdef BACKPIPE - if (t->t_dflg & F_PIPEIN) { - xclose(pipein[0]); - xclose(pipein[1]); - } -#else /* !BACKPIPE */ - if (t->t_dflg & F_PIPEOUT) { - xclose(pipeout[0]); - xclose(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(); - else { - if (adrof(STRprintexitvalue)) { - int rv = getn(varval(STRstatus)); - if (rv != 0) - xprintf(CGETS(17, 2, "Exit %d\n"), rv); - } - } - break; - } - if (t->t_dtyp != NODE_PAREN) { - doexec(t, do_glob); - /* NOTREACHED */ - } - /* - * For () commands must put new 0,1,2 in FSH* and recurse - */ - (void)close_on_exec(OLDSTD = dcopy(0, FOLDSTD), 1); - (void)close_on_exec(SHOUT = dcopy(1, FSHOUT), 1); - isoutatty = isatty(SHOUT); - (void)close_on_exec(SHDIAG = dcopy(2, FSHDIAG), 1); - isdiagatty = isatty(SHDIAG); - xclose(SHIN); - SHIN = -1; -#ifndef CLOSE_ON_EXEC - didcch = 0; -#else - (void) close_on_exec(FSHOUT, 1); - (void) close_on_exec(FSHDIAG, 1); - (void) close_on_exec(FOLDSTD, 1); -#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, do_glob); - 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, do_glob); - 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, do_glob); -#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, do_glob); - 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, do_glob); -#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, do_glob); - /* - * 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, do_glob); - } - 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, do_glob); - 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, do_glob); - } - 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 void -/*ARGSUSED*/ -vffree(int snum) -{ - USE(snum); - - _exit(1); -} -#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(struct command *t, Char *cp) -{ - Char *blk[2]; - - if (adrof(STRnoambiguous)) { - Char **pv; - int gflag; - - blk[0] = Dfix1(cp); /* expand $ */ - blk[1] = NULL; - - gflag = tglob(blk); - if (gflag) { - pv = globall(blk, gflag); - if (pv == NULL) { - setname(short2str(blk[0])); - xfree(blk[0]); - stderror(ERR_NAME | ERR_NOMATCH); - } - if (pv[1] != NULL) { /* we need to fix the command vector */ - Char **av = blkspl(t->t_dcom, &pv[1]); - xfree(t->t_dcom); - t->t_dcom = av; - } - xfree(blk[0]); - blk[0] = pv[0]; - xfree(pv); - } - } - else { - Char *buf; - - buf = Dfix1(cp); - cleanup_push(buf, xfree); - blk[0] = globone(buf, G_ERROR); - cleanup_until(buf); - } - return(blk[0]); -} - -/* - * Perform io redirection. - * We may or maynot be forked here. - */ -static void -doio(struct command *t, int *pipein, int *pipeout) -{ - int fd; - Char *cp; - 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; - - /* - * 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); - tmp = strsave(short2str(cp)); - xfree(cp); - cleanup_push(tmp, xfree); - if ((fd = xopen(tmp, O_RDONLY|O_LARGEFILE)) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); - cleanup_until(tmp); - /* allow input files larger than 2Gb */ -#ifndef WINNT_NATIVE - (void) fcntl(fd, F_SETFL, fcntl(fd, F_GETFL) | O_LARGEFILE); -#endif /*!WINNT_NATIVE*/ - (void) dmove(fd, 0); - } - else if (flags & F_PIPEIN) { - xclose(0); - (void) dup(pipein[0]); - xclose(pipein[0]); - xclose(pipein[1]); - } - else if ((flags & F_NOINTERRUPT) && tpgrp == -1) { - xclose(0); - (void) xopen(_PATH_DEVNULL, O_RDONLY|O_LARGEFILE); - } - else { - xclose(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; - - cp = splicepipe(t, t->t_drit); - tmp = strsave(short2str(cp)); - xfree(cp); - cleanup_push(tmp, xfree); - /* - * so > /dev/std{out,err} work - */ - (void) dcopy(SHOUT, 1); - (void) dcopy(SHDIAG, 2); - if ((flags & F_APPEND) != 0) { -#ifdef O_APPEND - fd = xopen(tmp, O_WRONLY|O_APPEND|O_LARGEFILE); -#else /* !O_APPEND */ - fd = xopen(tmp, O_WRONLY|O_LARGEFILE); - (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 = xcreat(tmp, 0666)) < 0) - stderror(ERR_SYSTEM, tmp, strerror(errno)); - /* allow input files larger than 2Gb */ -#ifndef WINNT_NATIVE - (void) fcntl(fd, F_SETFL, fcntl(fd, F_GETFL) | O_LARGEFILE); -#endif /*!WINNT_NATIVE*/ - } - cleanup_until(tmp); - (void) dmove(fd, 1); - is1atty = isatty(1); - } - else if (flags & F_PIPEOUT) { - xclose(1); - (void) dup(pipeout[1]); - is1atty = 0; - } - else { - xclose(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 */ - } - - xclose(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(int *pv) -{ - - if (pipe(pv) < 0) - goto oops; - (void)close_on_exec(pv[0] = dmove(pv[0], -1), 1); - (void)close_on_exec(pv[1] = dmove(pv[1], -1), 1); - if (pv[0] >= 0 && pv[1] >= 0) - return; - if (pv[0] >= 0) - xclose(pv[0]); - if (pv[1] >= 0) - xclose(pv[1]); -oops: - stderror(ERR_PIPE); -} - -static void -chkclob(const 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 8253e02..0000000 --- a/contrib/tcsh/sh.set.c +++ /dev/null @@ -1,1253 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.set.c,v 3.70 2006/08/24 20:56:31 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. 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("$tcsh: sh.set.c,v 3.70 2006/08/24 20:56:31 christos Exp $") - -#include "ed.h" -#include "tw.h" - -#ifdef HAVE_NL_LANGINFO -#include <langinfo.h> -#endif - -extern int GotTermCaps; -int numeof = 0; - -static void update_vars (Char *); -static Char *getinx (Char *, int *); -static void asx (Char *, int, Char *); -static struct varent *getvx (Char *, int); -static Char *xset (Char *, Char ***); -static Char *operate (int, Char *, Char *); -static void putn1 (unsigned); -static struct varent *madrof (Char *, struct varent *); -static void unsetv1 (struct varent *); -static void exportpath (Char **); -static void balance (struct varent *, int, int); - -/* - * C Shell - */ - -static void -update_vars(Char *vp) -{ - if (eq(vp, STRpath)) { - struct varent *p = adrof(STRpath); - if (p == NULL) - stderror(ERR_NAME | ERR_UNDVAR); - else { - exportpath(p->vec); - dohash(NULL, NULL); - } - } - else if (eq(vp, STRhistchars)) { - Char *pn = varval(vp); - - HIST = *pn++; - HISTSUB = *pn; - } - else if (eq(vp, STRpromptchars)) { - 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)) { - 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; - setNS(STRedit); - } - ed_Init(); /* reset the editor */ - } - else if (eq(vp, STRhome)) { - Char *cp, *canon; - - cp = Strsave(varval(vp)); /* get the old value back */ - cleanup_push(cp, xfree); - - /* - * convert to cononical pathname (possibly resolving symlinks) - */ - canon = dcanon(cp, cp); - cleanup_ignore(cp); - cleanup_until(cp); - cleanup_push(canon, xfree); - - setcopy(vp, canon, VAR_READWRITE); /* have to save the new val */ - - /* and now mirror home with HOME */ - tsetenv(STRKHOME, canon); - /* fix directory stack for new tilde home */ - dtilde(); - cleanup_until(canon); - } - 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, STRignoreeof)) { - Char *cp; - numeof = 0; - for ((cp = varval(STRignoreeof)); cp && *cp; cp++) { - if (!Isdigit(*cp)) { - numeof = 0; - break; - } - numeof = numeof * 10 + *cp - '0'; - } - if (numeof <= 0) numeof = 26; /* Sanity check */ - } - 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(); - } - else if (eq(vp, STRkillring)) { - SetKillRing(getn(varval(vp))); - } -#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 -#ifdef NLS_CATALOGS - else if (eq(vp, STRcatalog)) { - nlsclose(); - nlsinit(); - } -#if defined(FILEC) && defined(TIOCSTI) - else if (eq(vp, STRfilec)) - filec = 1; -#endif -#endif /* NLS_CATALOGS */ -} - - -/*ARGSUSED*/ -void -doset(Char **v, struct command *c) -{ - Char *p; - Char *vp, op; - Char **vecp; - int hadsub; - int subscr; - int flags = VAR_READWRITE; - int first_match = 0; - int last_match = 0; - int 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 == '[') { - 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)) { - 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) { - Char *copy; - - copy = Strsave(p); - cleanup_push(copy, xfree); - asx(vp, subscr, copy); - cleanup_ignore(copy); - cleanup_until(copy); - } - else - setv(vp, Strsave(p), flags); - update_vars(vp); - } while ((p = *v++) != NULL); -} - -static Char * -getinx(Char *cp, 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(Char *vp, int subscr, Char *p) -{ - struct varent *v = getvx(vp, subscr); - Char *prev; - - if (v->v_flags & VAR_READONLY) - stderror(ERR_READONLY|ERR_NAME, v->v_name); - prev = v->vec[subscr - 1]; - cleanup_push(prev, xfree); - v->vec[subscr - 1] = globone(p, G_APPEND); - cleanup_until(prev); -} - -static struct varent * -getvx(Char *vp, int subscr) -{ - 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(Char **v, struct command *dummy) -{ - Char *p; - Char *vp, c, op; - int 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 == '[') { - 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); - cleanup_push(vp, xfree); - 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); - stderror(ERR_NAME | ERR_SYNTAX); - } - if (c != '=') - stderror(ERR_NAME | ERR_UNKNOWNOP); - p = xset(p, &v); - } - } - cleanup_push(p, xfree); - if (op == '=') { - if (hadsub) - asx(vp, subscr, p); - else - setv(vp, p, VAR_READWRITE); - cleanup_ignore(p); - } - else if (hadsub) { - struct varent *gv = getvx(vp, subscr); - Char *val; - - val = operate(op, gv->vec[subscr - 1], p); - cleanup_push(val, xfree); - asx(vp, subscr, val); - cleanup_ignore(val); - cleanup_until(val); - } - else { - Char *val; - - val = operate(op, varval(vp), p); - cleanup_push(val, xfree); - setv(vp, val, VAR_READWRITE); - cleanup_ignore(val); - cleanup_until(val); - } - update_vars(vp); - cleanup_until(vp); - } while ((p = *v++) != NULL); -} - -static Char * -xset(Char *cp, Char ***vp) -{ - Char *dp; - - if (*cp) { - dp = Strsave(cp); - --(*vp); - xfree(** vp); - **vp = dp; - } - return (putn(expr(vp))); -} - -static Char * -operate(int op, Char *vp, Char *p) -{ - Char opr[2]; - Char *vec[5]; - Char **v = vec; - Char **vecp = v; - int i; - - if (op != '=') { - if (*vp) - *v++ = vp; - opr[0] = 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; - -Char * -putn(int n) -{ - Char nbuf[(CHAR_BIT * sizeof (n) + 2) / 3 + 2]; /* Enough even for octal */ - - putp = nbuf; - if (n < 0) { - n = -n; - *putp++ = '-'; - } - putn1(n); - *putp = 0; - return (Strsave(nbuf)); -} - -static void -putn1(unsigned n) -{ - if (n > 9) - putn1(n / 10); - *putp++ = n % 10 + '0'; -} - -int -getn(Char *cp) -{ - 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(Char *var, struct varent *head) -{ - struct varent *vp; - - if (!var || !head) /* PWP: extra error checking */ - return (STRNULL); - - vp = adrof1(var, head); - return ((vp == NULL || vp->vec == NULL || vp->vec[0] == NULL) ? - STRNULL : vp->vec[0]); -} - -static struct varent * -madrof(Char *pat, struct varent *vp) -{ - 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(const Char *name, 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; -} - -void -setcopy(const Char *var, const Char *val, int flags) -{ - Char *copy; - - copy = Strsave(val); - cleanup_push(copy, xfree); - setv(var, copy, flags); - cleanup_ignore(copy); - cleanup_until(copy); -} - -/* - * The caller is responsible for putting value in a safe place - */ -void -setv(const Char *var, Char *val, int flags) -{ - Char **vec = xmalloc(2 * sizeof(Char **)); - - vec[0] = val; - vec[1] = 0; - set1(var, vec, &shvhed, flags); -} - -void -set1(const Char *var, Char **vec, struct varent *head, int flags) -{ - Char **oldv = vec; - - if ((flags & VAR_NOGLOB) == 0) { - int gflag; - - gflag = tglob(oldv); - if (gflag) { - vec = globall(oldv, gflag); - if (vec == 0) { - blkfree(oldv); - stderror(ERR_NAME | ERR_NOMATCH); - } - blkfree(oldv); - } - } - /* - * 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) { - xfree(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) */ - xfree(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(const Char *name, Char **vec, struct varent *p, int flags) -{ - struct varent *c; - 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 = xmalloc(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(Char **v, struct command *c) -{ - int did_roe, did_edit; - - USE(c); - did_roe = adrof(STRrecognize_only_executables) != NULL; - did_edit = adrof(STRedit) != NULL; - unset1(v, &shvhed); - -#if defined(FILEC) && defined(TIOCSTI) - if (adrof(STRfilec) == 0) - filec = 0; -#endif /* FILEC && TIOCSTI */ - - if (adrof(STRhistchars) == 0) { - HIST = '!'; - HISTSUB = '^'; - } - if (adrof(STRignoreeof) == 0) - numeof = 0; - 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 (adrof(STRkillring) == 0) - SetKillRing(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 -#ifdef NLS_CATALOGS - nlsclose(); - nlsinit(); -#endif /* NLS_CATALOGS */ -} - -void -unset1(Char *v[], struct varent *head) -{ - struct varent *vp; - 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(Char *var) -{ - struct varent *vp; - - if ((vp = adrof1(var, &shvhed)) == 0) - udvar(var); - unsetv1(vp); -} - -static void -unsetv1(struct varent *p) -{ - struct varent *c, *pp; - int f; - - /* - * Free associated memory first to avoid complications. - */ - blkfree(p->vec); - xfree(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(p); - balance(pp, f, 1); -} - -void -setNS(Char *cp) -{ - setcopy(cp, STRNULL, VAR_READWRITE); -} - -/*ARGSUSED*/ -void -shift(Char **v, struct command *c) -{ - struct varent *argv; - Char *name; - - USE(c); - v++; - name = *v; - if (name == 0) - name = STRargv; - else - (void) strip(name); - argv = adrof(name); - if (argv == NULL || argv->vec == NULL) - udvar(name); - if (argv->vec[0] == 0) - stderror(ERR_NAME | ERR_NOMORE); - lshift(argv->vec, 1); - update_vars(name); -} - -static void -exportpath(Char **val) -{ - struct Strbuf buf = Strbuf_INIT; - Char *exppath; - - if (val) - while (*val) { - Strbuf_append(&buf, *val++); - if (*val == 0 || eq(*val, STRRparen)) - break; - Strbuf_append1(&buf, PATHSEP); - } - exppath = Strbuf_finish(&buf); - cleanup_push(exppath, xfree); - tsetenv(STRKPATH, exppath); - cleanup_until(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(struct varent *p) -{ - return (p); -} -static struct varent * -rright(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(struct varent *p, int f, int d) -{ - struct varent *pp; - -#ifndef lint - struct varent *t; /* used by the rotate macros */ -#endif /* !lint */ - 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: /* single 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: /* single 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(struct varent *p, int what) -{ - struct varent *c; - int len; - - for (;;) { - while (p->v_left) - p = p->v_left; -x: - if (p->v_parent == 0) /* is it the header? */ - break; - if ((p->v_flags & what) != 0) { - if (setintr) { - int old_pintr_disabled; - - pintr_push_enable(&old_pintr_disabled); - cleanup_until(&old_pintr_disabled); - } - 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) -extern int dspmbyte_ls; - -void -update_dspmbyte_vars(void) -{ - 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, STRsjis)) - iskcode = 1; - else if (eq(dstr1, STReuc)) - iskcode = 2; - else if (eq(dstr1, STRbig5)) - iskcode = 3; - else if (eq(dstr1, STRutf8)) - iskcode = 4; - 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; - case 3: - /* 3 ... big5 */ - _cmap[lp] = _cmap_mbyte[lp]; - _mbmap[lp] = _mbmap_big5[lp]; - break; - case 4: - /* 4 ... utf8 */ - _cmap[lp] = _cmap_mbyte[lp]; - _mbmap[lp] = _mbmap_utf8[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] = 0; - setcopy(STRmbytemap, mbmapstr, VAR_READWRITE); - } -#endif /* MBYTEMAP */ -} - -/* dspkanji/dspmbyte autosetting */ -/* PATCH IDEA FROM Issei.Suzuki VERY THANKS */ -void -autoset_dspmbyte(const Char *pcp) -{ - int i; - static const struct dspm_autoset_Table { - Char *n; - Char *v; - } dspmt[] = { - { STRLANGEUCJP, STReuc }, - { STRLANGEUCKR, STReuc }, - { STRLANGEUCZH, STReuc }, - { STRLANGEUCJPB, STReuc }, - { STRLANGEUCKRB, STReuc }, - { STRLANGEUCZHB, STReuc }, -#ifdef linux - { STRLANGEUCJPC, STReuc }, -#endif - { STRLANGSJIS, STRsjis }, - { STRLANGSJISB, STRsjis }, - { STRLANGBIG5, STRbig5 }, - { STRstarutfstar8, STRutf8 }, - { NULL, NULL } - }; -#if defined(HAVE_NL_LANGINFO) && defined(CODESET) - static const struct dspm_autoset_Table dspmc[] = { - { STRstarutfstar8, STRutf8 }, - { STReuc, STReuc }, - { STRGB2312, STReuc }, - { STRLANGBIG5, STRbig5 }, - { NULL, NULL } - }; - Char *codeset; - - codeset = str2short(nl_langinfo(CODESET)); - if (*codeset != '\0') { - for (i = 0; dspmc[i].n; i++) { - const Char *estr; - if (dspmc[i].n[0] && t_pmatch(pcp, dspmc[i].n, &estr, 0) > 0) { - setcopy(CHECK_MBYTEVAR, dspmc[i].v, VAR_READWRITE); - update_dspmbyte_vars(); - return; - } - } - } -#endif - - if (*pcp == '\0') - return; - - for (i = 0; dspmt[i].n; i++) { - const Char *estr; - if (dspmt[i].n[0] && t_pmatch(pcp, dspmt[i].n, &estr, 0) > 0) { - setcopy(CHECK_MBYTEVAR, 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 f8ff370..0000000 --- a/contrib/tcsh/sh.time.c +++ /dev/null @@ -1,739 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.time.c,v 3.33 2006/03/02 18:46:44 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. 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("$tcsh: sh.time.c,v 3.33 2006/03/02 18:46:44 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 (clock_t, clock_t); -# else /* ! POSIX */ -static void pdtimet (time_t, time_t); -# endif /* ! POSIX */ -#else /* BSDTIMES || _SEQUENT_ */ -static void tvadd (timeval_t *, timeval_t *); -static void pdeltat (timeval_t *, timeval_t *); -#endif /* BSDTIMES || _SEQUENT_ */ - -void -settimes(void) -{ -#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); - time0 = times(×0); - 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(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; - - timedol = times(×_dol); - 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(Char **v, struct command *c) -{ - 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 HAVE_SETPRIORITY - if (setpriority(PRIO_PROCESS, 0, nval) == -1 && errno) - stderror(ERR_SYSTEM, "setpriority", strerror(errno)); -#else /* !HAVE_SETPRIORITY */ - (void) nice(nval); -#endif /* HAVE_SETPRIORITY */ -} - -#ifdef BSDTIMES -void -ruadd(struct sysrusage *ru, struct sysrusage *ru2) -{ - tvadd(&ru->ru_utime, &ru2->ru_utime); - tvadd(&ru->ru_stime, &ru2->ru_stime); -#ifndef _OSD_POSIX - 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; -#endif /*bs2000*/ - -# 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(struct process_stats *ru, struct process_stats *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(struct sysrusage *r0, struct sysrusage *r1, timeval_t *e, timeval_t *b) - -#else /* BSDTIMES */ -# ifdef _SEQUENT_ -void -prusage(struct process_stats *r0, struct process_stats *r1, timeval_t e, - timeval_t b) - -# else /* _SEQUENT_ */ -# ifndef POSIX -void -prusage(struct tms *bs, struct tms *es, time_t e, time_t b) -# else /* POSIX */ -void -prusage(struct tms *bs, struct tms *es, clock_t e, clock_t b) -# endif /* POSIX */ -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ -{ -#ifdef BSDTIMES - 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_ - 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 - time_t t = (es->tms_utime - bs->tms_utime + - es->tms_stime - bs->tms_stime) * 100 / HZ; - -# else /* POSIX */ - clock_t t = (es->tms_utime - bs->tms_utime + - es->tms_stime - bs->tms_stime) * 100 / clk_tck; - -# endif /* POSIX */ -# endif /* _SEQUENT_ */ -#endif /* BSDTIMES */ - - const char *cp; - long i; - 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 && 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 : (long)(t * 1000.0 / ms); -#endif /* convex */ - xprintf("%ld.%01ld%%", i / 10, i % 10); /* nn.n% */ - break; - -#ifdef BSDTIMES - case 'W': /* number of swaps */ -#ifdef _OSD_POSIX - i = 0; -#else - i = r1->ru_nswap - r0->ru_nswap; -#endif - 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 */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", t == 0 ? 0L : - IADJUST(r1->ru_ixrss - r0->ru_ixrss) / t); -#endif - break; - - case 'D': /* (average) unshared data size */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", t == 0 ? 0L : - IADJUST(r1->ru_idrss + r1->ru_isrss - - (r0->ru_idrss + r0->ru_isrss)) / t); -#endif - break; - - case 'K': /* (average) total data memory used */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - 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); -#endif - 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 */ -# ifdef _OSD_POSIX - xprintf("0",0); -# else - xprintf("%ld", r1->ru_maxrss / 2L); -# endif -# endif /* convex */ -#endif /* SUNOS4 */ - break; - - case 'F': /* page faults */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_majflt - r0->ru_majflt); -#endif - break; - - case 'R': /* page reclaims */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_minflt - r0->ru_minflt); -#endif - break; - - case 'I': /* FS blocks in */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_inblock - r0->ru_inblock); -#endif - break; - - case 'O': /* FS blocks out */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_oublock - r0->ru_oublock); -#endif - 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 */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_msgrcv - r0->ru_msgrcv); -#endif - break; - - case 's': /* PWP: socket messages sent */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_msgsnd - r0->ru_msgsnd); -#endif - break; - - case 'k': /* PWP: signals received */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_nsignals - r0->ru_nsignals); -#endif - break; - - case 'w': /* PWP: voluntary context switches (waits) */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_nvcsw - r0->ru_nvcsw); -#endif - break; - - case 'c': /* PWP: involuntary context switches */ -#ifdef _OSD_POSIX - xprintf("0",0); -#else - xprintf("%ld", r1->ru_nivcsw - r0->ru_nivcsw); -#endif - 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(timeval_t *t1, timeval_t *t0) -{ - timeval_t td; - - tvsub(&td, t1, t0); - xprintf("%ld.%03ld", td.tv_sec, td.tv_usec / 1000L); -} - -static void -tvadd(timeval_t *tsum, timeval_t *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(timeval_t *tdiff, timeval_t *t1, timeval_t *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 -#ifndef POSIX -pdtimet(time_t eval, time_t bval) - -#else /* POSIX */ -pdtimet(clock_t eval, clock_t 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 58bc70a..0000000 --- a/contrib/tcsh/sh.types.h +++ /dev/null @@ -1,397 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/sh.types.h,v 3.43 2006/01/12 19:55:38 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. 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 _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 -# ifndef _PTR_T -# define _PTR_T -# ifdef __GNUC__ - typedef void * ptr_t; -# else - typedef char * ptr_t; -# endif /* __GNUC__ */ -# endif /* _PTR_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 */ -#endif /* (sun || __sun__) && SYSVREL == 0 */ - - -/*** - *** Hp's running hpux 7.0 or 8.0 - ***/ -#ifdef __hpux - -# 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 _SPEED_T - /* I thought POSIX was supposed to protect all typedefs! */ -# define _SPEED_T -# endif /* _SPEED_T */ - -# if HPUXVERSION < 1100 /* XXX: Not true for 11.0 */ -extern uid_t getuid(), geteuid(); -extern gid_t getgid(), getegid(); -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(); -# endif /* HPUXVERSION < 1100 */ -# if HPUXVERSION < 800 /* XXX: Not true for 8.0 */ -extern char *sbrk(); -# endif /* HPUXVERSION < 800 */ -#endif /* __hpux */ - -#if (defined(_MINIX) && !defined(_MINIX_VMD)) || defined(__EMX__) -typedef char * caddr_t; -#endif /* (_MINIX && !_MINIX_VMD) || __EMX__ */ - -/*** - *** 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 _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* DGUX */ - - -/*** - *** 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 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 _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 */ - - -/*** - *** Apple AUX. - ***/ -#ifdef OREO -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* OREO */ - -/*** - *** Concurrent (Masscomp) running RTU 4.1A & RTU 5.0. - **** [RTU 6.0 from mike connor] - *** Added, DAS DEC-90. - ***/ -#ifdef masscomp -# ifdef RTU6 -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -# ifndef _SPEED_T -# define _SPEED_T -# endif /* _SPEED_T */ -#endif /* RTU6 */ -#endif /* masscomp */ - -/* - * Motorola MPC running R32V2 (sysV88) - */ -#ifdef sysV88 -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* sysV88 */ - -/* - * Amdahl running UTS (Sys V3) - */ -#ifdef uts -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* uts */ - -/* - * Tektronix XD88/10 running UTekV (Sys V3) - */ -#ifdef UTekV -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* UTekV*/ - -/* - * BBN Butterfly gp1000 - */ -#ifdef butterfly -# ifndef _PID_T -# define _PID_T -# endif /* _PID_T */ -#endif /* butterfly */ - -/* - * 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 */ - -/*** - *** 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 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 _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 976d2dd..0000000 --- a/contrib/tcsh/snames.h +++ /dev/null @@ -1,88 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/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 7262cc7..0000000 --- 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 53546fe..0000000 --- a/contrib/tcsh/tc.alloc.c +++ /dev/null @@ -1,611 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.alloc.c,v 3.46 2006/03/02 18:46:44 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. 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("$tcsh: tc.alloc.c,v 3.46 2006/03/02 18:46:44 christos Exp $") - -#define RCHECK -#define DEBUG - -static char *memtop = NULL; /* PWP: top of current memory */ -static char *membot = NULL; /* PWP: bottom of allocatable memory */ - -int dont_free = 0; - -#ifdef WINNT_NATIVE -# define malloc fmalloc -# define free ffree -# define calloc fcalloc -# define realloc frealloc -#endif /* WINNT_NATIVE */ - -#if !defined(DEBUG) || defined(SYSMALLOC) -static void -out_of_memory (void) -{ - static const char msg[] = "Out of memory\n"; - - write(didfds ? 2 : SHDIAG, msg, strlen(msg)); - _exit(1); -} -#endif - -#ifndef SYSMALLOC - -#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 (union overhead *, int); -static void morecore (int); -#endif - - -#ifdef DEBUG -# define CHECK(a, str, p) \ - if (a) { \ - xprintf(str, p); \ - xprintf(" (memtop = %p membot = %p)\n", memtop, membot); \ - abort(); \ - } -#else -# define CHECK(a, str, p) \ - if (a) { \ - xprintf(str, p); \ - xprintf(" (memtop = %p membot = %p)\n", memtop, membot); \ - return; \ - } -#endif - -memalign_t -malloc(size_t nbytes) -{ -#ifndef lint - union overhead *p; - int bucket = 0; - 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 = nextf[bucket]) == NULL) { - child++; -#ifndef DEBUG - out_of_memory(); -#else - showall(NULL, NULL); - xprintf(CGETS(19, 1, "nbytes=%zu: 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(int bucket) -{ - union overhead *op; - int rnu; /* 2^rnu bytes will be requested */ - int nblks; /* become nblks blocks of the desired size */ - 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 = 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 = 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(ptr_t cp) -{ -#ifndef lint - int size; - 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(%p) called before any allocations."), cp); - CHECK(cp > (ptr_t) memtop, - CGETS(19, 3, "free(%p) above top of memory."), cp); - CHECK(cp < (ptr_t) membot, - CGETS(19, 4, "free(%p) below bottom of memory."), cp); - op = (union overhead *) (((caddr_t) cp) - MEMALIGN(sizeof(union overhead))); - CHECK(op->ov_magic != MAGIC, - CGETS(19, 5, "free(%p) 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(%p) bad range check."), cp); -#endif - CHECK(op->ov_index >= NBUCKETS, - CGETS(19, 7, "free(%p) 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(size_t i, size_t j) -{ -#ifndef lint - char *cp; - - i *= j; - cp = xmalloc(i); - memset(cp, 0, i); - - return ((memalign_t) cp); -#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(ptr_t cp, size_t nbytes) -{ -#ifndef lint - U_int onb; - union overhead *op; - ptr_t res; - 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(res, cp, 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(union overhead *freep, int srchlen) -{ - union overhead *p; - size_t i; - int 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(size_t n) -{ - ptr_t ptr; - - n = n ? n : 1; - -#ifdef HAVE_SBRK - if (membot == NULL) - membot = sbrk(0); -#endif /* HAVE_SBRK */ - - if ((ptr = malloc(n)) == NULL) - out_of_memory(); -#ifndef HAVE_SBRK - if (memtop < ((char *) ptr) + n) - memtop = ((char *) ptr) + n; - if (membot == NULL) - membot = ptr; -#endif /* !HAVE_SBRK */ - return ((memalign_t) ptr); -} - -memalign_t -srealloc(ptr_t p, size_t n) -{ - ptr_t ptr; - - n = n ? n : 1; - -#ifdef HAVE_SBRK - if (membot == NULL) - membot = sbrk(0); -#endif /* HAVE_SBRK */ - - if ((ptr = (p ? realloc(p, n) : malloc(n))) == NULL) - out_of_memory(); -#ifndef HAVE_SBRK - if (memtop < ((char *) ptr) + n) - memtop = ((char *) ptr) + n; - if (membot == NULL) - membot = ptr; -#endif /* !HAVE_SBRK */ - return ((memalign_t) ptr); -} - -memalign_t -scalloc(size_t s, size_t n) -{ - ptr_t ptr; - - n *= s; - n = n ? n : 1; - -#ifdef HAVE_SBRK - if (membot == NULL) - membot = sbrk(0); -#endif /* HAVE_SBRK */ - - if ((ptr = malloc(n)) == NULL) - out_of_memory(); - - memset (ptr, 0, n); - -#ifndef HAVE_SBRK - if (memtop < ((char *) ptr) + n) - memtop = ((char *) ptr) + n; - if (membot == NULL) - membot = ptr; -#endif /* !HAVE_SBRK */ - - return ((memalign_t) ptr); -} - -void -sfree(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(Char **v, struct command *c) -{ -#ifndef SYSMALLOC - size_t i, j; - 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(" %4zd", j); - totfree += j * (1 << (i + 3)); - } - xprintf(CGETS(19, 9, "\nused:\t")); - for (i = 0; i < NBUCKETS; i++) { - xprintf(" %4d", 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 -#ifdef HAVE_SBRK - memtop = sbrk(0); -#endif /* HAVE_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 45c58d9..0000000 --- a/contrib/tcsh/tc.bind.c +++ /dev/null @@ -1,536 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.bind.c,v 3.44 2006/03/02 18:46:44 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. 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("$tcsh: tc.bind.c,v 3.44 2006/03/02 18:46:44 christos Exp $") - -#include "ed.h" -#include "ed.defns.h" - -static void printkey (const KEYCMD *, CStr *); -static KEYCMD parsecmd (Char *); -static void bad_spec (const Char *); -static CStr *parsestring (const Char *, CStr *); -static CStr *parsebind (const Char *, CStr *); -static void print_all_keys (void); -static void printkeys (KEYCMD *, int, int); -static void bindkey_usage (void); -static void list_functions (void); - -extern int MapsAreInited; - - - - -/*ARGSUSED*/ -void -dobindkey(Char **v, struct command *c) -{ - KEYCMD *map; - int ntype, no, removeb, key, bindk; - Char *par; - Char p; - KEYCMD cmd; - CStr in; - CStr out; - uChar ch; - - USE(c); - if (!MapsAreInited) - ed_InitMaps(); - - map = CcKeyMap; - ntype = XK_CMD; - key = removeb = bindk = 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': - bindk = 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': - removeb = 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 = Strsave(v[no++]); - in.len = Strlen(in.buf); - } - else { - if (bindk) { - if (parsebind(v[no++], &in) == NULL) - return; - } - else { - if (parsestring(v[no++], &in) == NULL) - return; - } - } - cleanup_push(in.buf, xfree); - -#ifndef WINNT_NATIVE - if (in.buf[0] > 0xFF) { - bad_spec(in.buf); - cleanup_until(in.buf); - return; - } -#endif - ch = (uChar) in.buf[0]; - - if (removeb) { - if (key) - (void) ClearArrowKeys(&in); - else 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; - } - cleanup_until(in.buf); - return; - } - if (!v[no]) { - if (key) - PrintArrowKeys(&in); - else - printkey(map, &in); - cleanup_until(in.buf); - return; - } - if (v[no + 1]) { - bindkey_usage(); - cleanup_until(in.buf); - return; - } - switch (ntype) { - case XK_STR: - case XK_EXE: - if (parsestring(v[no], &out) == NULL) { - cleanup_until(in.buf); - return; - } - cleanup_push(out.buf, xfree); - if (key) { - if (SetArrowKeys(&in, XmapStr(&out), ntype) == -1) - xprintf(CGETS(20, 2, "Bad key name: %S\n"), in.buf); - else - cleanup_ignore(out.buf); - } - else - AddXkey(&in, XmapStr(&out), ntype); - map[ch] = F_XKEY; - break; - case XK_CMD: - if ((cmd = parsecmd(v[no])) == 0) { - cleanup_until(in.buf); - 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; - } - cleanup_until(in.buf); - if (key) - BindArrowKeys(); -} - -static void -printkey(const KEYCMD *map, CStr *in) -{ - struct KeyFuncs *fp; - - if (in->len < 2) { - unsigned char *unparsed; - - unparsed = unparsestring(in, STRQQ); - cleanup_push(unparsed, xfree); - for (fp = FuncNames; fp->name; fp++) { - if (fp->func == map[(uChar) *(in->buf)]) { - xprintf("%s\t->\t%s\n", unparsed, fp->name); - } - } - cleanup_until(unparsed); - } - else - PrintXkey(in); -} - -static KEYCMD -parsecmd(Char *str) -{ - 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(const Char *str) -{ - xprintf(CGETS(20, 4, "Bad key spec %S\n"), str); -} - -static CStr * -parsebind(const Char *s, CStr *str) -{ - struct Strbuf b = Strbuf_INIT; - - cleanup_push(&b, Strbuf_cleanup); - if (Iscntrl(*s)) { - Strbuf_append1(&b, *s); - goto end; - } - - switch (*s) { - case '^': - s++; -#ifdef IS_ASCII - Strbuf_append1(&b, (*s == '?') ? '\177' : ((*s & CHAR) & 0237)); -#else - Strbuf_append1(&b, (*s == '?') ? CTL_ESC('\177') - : _toebcdic[_toascii[*s & CHAR] & 0237]); -#endif - break; - - case 'F': - case 'M': - case 'X': - case 'C': -#ifdef WINNT_NATIVE - case 'N': -#endif /* WINNT_NATIVE */ - if (s[1] != '-' || s[2] == '\0') - goto bad_spec; - s += 2; - switch (s[-2]) { - case 'F': case 'f': /* Turn into ^[str */ - Strbuf_append1(&b, CTL_ESC('\033')); - Strbuf_append(&b, s); - break; - - case 'C': case 'c': /* Turn into ^c */ -#ifdef IS_ASCII - Strbuf_append1(&b, (*s == '?') ? '\177' : ((*s & CHAR) & 0237)); -#else - Strbuf_append1(&b, (*s == '?') ? CTL_ESC('\177') - : _toebcdic[_toascii[*s & CHAR] & 0237]); -#endif - break; - - case 'X' : case 'x': /* Turn into ^Xc */ -#ifdef IS_ASCII - Strbuf_append1(&b, 'X' & 0237); -#else - Strbuf_append1(&b, _toebcdic[_toascii['X'] & 0237]); -#endif - Strbuf_append1(&b, *s); - break; - - case 'M' : case 'm': /* Turn into 0x80|c */ - if (!NoNLSRebind) { - Strbuf_append1(&b, CTL_ESC('\033')); - Strbuf_append1(&b, *s); - } else { -#ifdef IS_ASCII - Strbuf_append1(&b, *s | 0x80); -#else - Strbuf_append1(&b, _toebcdic[_toascii[*s] | 0x80]); -#endif - } - break; -#ifdef WINNT_NATIVE - case 'N' : case 'n': /* NT */ - { - Char bnt; - - bnt = nt_translate_bindkey(s); - if (bnt != 0) - Strbuf_append1(&b, bnt); - else - bad_spec(s); - } - break; -#endif /* WINNT_NATIVE */ - - default: - abort(); - } - break; - - default: - goto bad_spec; - } - - end: - cleanup_ignore(&b); - cleanup_until(&b); - Strbuf_terminate(&b); - str->buf = xrealloc(b.s, (b.len + 1) * sizeof (*str->buf)); - str->len = b.len; - return str; - - bad_spec: - bad_spec(s); - cleanup_until(&b); - return NULL; -} - - -static CStr * -parsestring(const Char *str, CStr *buf) -{ - struct Strbuf b = Strbuf_INIT; - const Char *p; - eChar es; - - if (*str == 0) { - xprintf(CGETS(20, 5, "Null string specification\n")); - return NULL; - } - - cleanup_push(&b, Strbuf_cleanup); - for (p = str; *p != 0; p++) { - if ((*p & CHAR) == '\\' || (*p & CHAR) == '^') { - if ((es = parseescape(&p)) == CHAR_ERR) { - cleanup_until(&b); - return 0; - } else - Strbuf_append1(&b, es); - } - else - Strbuf_append1(&b, *p & CHAR); - } - cleanup_ignore(&b); - cleanup_until(&b); - Strbuf_terminate(&b); - buf->buf = xrealloc(b.s, (b.len + 1) * sizeof (*buf->buf)); - buf->len = b.len; - return buf; -} - -static void -print_all_keys(void) -{ - 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(KEYCMD *map, int first, int last) -{ - struct KeyFuncs *fp; - Char firstbuf[2], lastbuf[2]; - CStr fb, lb; - unsigned char *unparsed; - 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; - - unparsed = unparsestring(&fb, STRQQ); - cleanup_push(unparsed, xfree); - if (map[first] == F_UNASSIGNED) { - if (first == last) - xprintf(CGETS(20, 10, "%-15s-> is undefined\n"), unparsed); - cleanup_until(unparsed); - return; - } - - for (fp = FuncNames; fp->name; fp++) { - if (fp->func == map[first]) { - if (first == last) - xprintf("%-15s-> %s\n", unparsed, fp->name); - else { - unsigned char *p; - - p = unparsestring(&lb, STRQQ); - cleanup_push(p, xfree); - xprintf("%-4s to %-7s-> %s\n", unparsed, p, fp->name); - } - cleanup_until(unparsed); - return; - } - } - xprintf(CGETS(20, 11, "BUG!!! %s isn't bound to anything.\n"), unparsed); - if (map == CcKeyMap) - xprintf("CcKeyMap[%d] == %d\n", first, CcKeyMap[first]); - else - xprintf("CcAltMap[%d] == %d\n", first, CcAltMap[first]); - cleanup_until(unparsed); -} - -static void -bindkey_usage(void) -{ - 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(void) -{ - struct KeyFuncs *fp; - - for (fp = FuncNames; fp->name; fp++) { - xprintf("%s\n %s\n", fp->name, fp->desc); - } -} diff --git a/contrib/tcsh/tc.const.c b/contrib/tcsh/tc.const.c deleted file mode 100644 index d63de6f..0000000 --- a/contrib/tcsh/tc.const.c +++ /dev/null @@ -1,500 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.const.c,v 3.84 2006/10/29 19:02:17 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. 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("$tcsh: tc.const.c,v 3.84 2006/10/29 19:02:17 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 STRslptssl[] = { '/', '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 STRcsubstnonl[] = { 'c', 's', 'u', 'b', 's', 't', 'n', 'o', 'n', 'l', - '\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 NLS_CATALOGS -Char STRcatalog[] = { 'c', 'a', 't', 'a', 'l', 'o', 'g', '\0' }; -Char STRNLSPATH[] = { 'N', 'L', 'S', 'P', 'A', 'T', 'H', '\0' }; -#endif /* NLS_CATALOGS */ -#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' }; -# ifdef BSDCOLORLS -Char STRmmliteral[] = { '-', 'G', '\0' }; -# else -Char STRmmliteral[] = { '-', '-', 'l', 'i', 't', 'e', 'r', 'a', 'l', '\0' }; -# endif -Char STReuc[] = { 'e', 'u', 'c', '\0' }; -Char STRsjis[] = { 's', 'j', 'i', 's', '\0' }; -Char STRbig5[] = { 'b', 'i', 'g', '5', '\0' }; -Char STRutf8[] = { 'u', 't', 'f', '8', '\0' }; -Char STRstarutfstar8[] = { '*', 'u', 't', 'f', '*', '8', '\0' }; -Char STRGB2312[] = { 'g', 'b', '2', '3', '1', '2', '\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(,STRLANGEUCJPC) = EUCJP Trap */ -/* STRLANGEUCKR,STRLANGEUCKRB = EUCKR Trap */ -/* STRLANGEUCZH,STRLANGEUCZHB = EUCZH Trap */ -/* STRLANGSJIS,STRLANGSJISB = SJIS Trap */ -# if defined(__uxps__) || defined(sgi) || defined(aix) || defined(__CYGWIN__) -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(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' }; -Char STRLANGBIG5[] = { 'z', 'h', '_', 'T', 'W', '.', 'B', 'i', 'g', '5', - '\0' }; -Char STRLANGEUCZH[] = { '\0' }; -Char STRLANGEUCZHB[] = { '\0' }; -# elif defined(linux) || defined(__GNU__) || defined(__GLIBC__) -Char STRLANGEUCJP[] = { 'j', 'a', '_', 'J', 'P', '.', 'E', 'U', 'C', '-', - 'J', 'P', '\0' }; -Char STRLANGEUCKR[] = { 'k', 'o', '_', 'K', 'R', '.', 'E', 'U', 'C', '\0' }; -Char STRLANGEUCJPB[] = { 'j', 'a', '_', 'J', 'P', '.', 'e', 'u', 'c', 'J', - 'P', '\0' }; -Char STRLANGEUCKRB[] = { 'k', 'o', '_', 'K', 'R', '.', 'e', 'u', 'c', '\0' }; -Char STRLANGEUCJPC[] = { 'j', 'a', '_', 'J', 'P', '.', 'u', 'j', 'i', 's', - '\0' }; -Char STRLANGSJIS[] = { 'j', 'a', '_', 'J', 'P', '.', 'S', 'J', 'I', 'S', - '\0' }; -Char STRLANGSJISB[] = { '\0' }; -Char STRLANGBIG5[] = { 'z', 'h', '_', 'T', 'W', '.', 'B', 'i', 'g', '5', - '\0' }; -Char STRLANGEUCZH[] = { '\0' }; -Char STRLANGEUCZHB[] = { '\0' }; -# elif (defined(__FreeBSD__) || defined(__NetBSD__)) -Char STRLANGEUCJP[] = { 'j', 'a', '_', 'J', 'P', '.', 'e', 'u', 'c', 'J', - 'P', '\0' }; -Char STRLANGEUCJPB[] = { 'j', 'a', '_', 'J', 'P', '.', 'E', 'U', 'C', '\0' }; -Char STRLANGEUCKR[] = { 'k', 'o', '_', 'K', 'R', '.', 'e', 'u', 'c', 'K', - 'R', '\0' }; -Char STRLANGEUCKRB[] = { 'k', 'o', '_', 'K', 'R', '.', 'E', 'U', 'C', '\0' }; -Char STRLANGEUCZH[] = { 'z', 'h', '_', 'C', 'N', '.', 'e', 'u', 'c', 'C', - 'N', '\0' }; -Char STRLANGEUCZHB[] = { 'z', 'h', '_', 'C', 'N', '.', 'E', 'U', 'C', '\0' }; -Char STRLANGSJIS[] = { 'j', 'a', '_', 'J', 'P', '.', 'S', 'J', 'I', 'S', - '\0' }; -Char STRLANGSJISB[] = { 'j', 'a', '_', 'J', 'P', '.', 'S', 'h', 'i', 'f', - 't', '_', 'J', 'I', 'S', '\0' }; -Char STRLANGBIG5[] = { 'z', 'h', '_', 'T', 'W', '.', 'B', 'i', 'g', '5', - '\0' }; -# elif defined(__uxpm__) -Char STRLANGEUCJP[] = { 'j', 'a', 'p', 'a', 'n', '\0' }; -Char STRLANGEUCKR[] = { 'k', 'o', 'r', 'e', 'a', '\0' }; -Char STRLANGEUCZH[] = { '\0' }; -Char STRLANGEUCJPB[] = { '\0' }; -Char STRLANGEUCKRB[] = { '\0' }; -Char STRLANGEUCZHB[] = { '\0' }; -Char STRLANGSJIS[] = { '\0' }; -Char STRLANGSJISB[] = { '\0' }; -Char STRLANGBIG5[] = { '\0' }; -# elif defined(SOLARIS2) -Char STRLANGEUCJP[] = { 'j', 'a', '\0' }; -Char STRLANGEUCKR[] = { 'k', 'o', '\0' }; -Char STRLANGEUCZH[] = { '\0' }; -Char STRLANGEUCJPB[] = { 'j', 'a', 'p', 'a', 'n', 'e', 's', 'e', '\0' }; -Char STRLANGEUCKRB[] = { 'k', 'o', 'r', 'e', 'a', 'n', '\0' }; -Char STRLANGEUCZHB[] = { '\0' }; -Char STRLANGSJIS[] = { '\0' }; -Char STRLANGSJISB[] = { '\0' }; -Char STRLANGBIG5[] = { '\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 STRLANGEUCZH[] = { '\0' }; -Char STRLANGEUCJPB[] = { '\0' }; -Char STRLANGEUCKRB[] = { '\0' }; -Char STRLANGEUCZHB[] = { '\0' }; -Char STRLANGSJIS[] = { '\0' }; -Char STRLANGSJISB[] = { '\0' }; -Char STRLANGBIG5[] = { '\0' }; -# else -Char STRLANGEUCJP[] = { '\0' }; -Char STRLANGEUCKR[] = { '\0' }; -Char STRLANGEUCZH[] = { '\0' }; -Char STRLANGEUCJPB[] = { '\0' }; -Char STRLANGEUCKRB[] = { '\0' }; -Char STRLANGEUCZHB[] = { '\0' }; -Char STRLANGSJIS[] = { '\0' }; -Char STRLANGSJISB[] = { '\0' }; -Char STRLANGBIG5[] = { '\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 STRjobcmd[] = { 'j', 'o', 'b', 'c', 'm', 'd', '\0' }; /*GrP*/ -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' }; -#if defined(FILEC) && defined(TIOCSTI) -Char STRfilec[] = { 'f', 'i', 'l', 'e', 'c', '\0' }; -#endif /* FILEC && TIOCSTI */ -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 STRigncase[] = { 'i', 'g', 'n', 'c', 'a', 's', '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 STRpadhour[] = { 'p', 'a', 'd', 'h', 'o', 'u', 'r', '\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 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 STRhighlight[] = { 'h', 'i', 'g', 'h', 'l', 'i', 'g', 'h', 't', '\0' }; - -Char STRimplicitcd[] = { 'i', 'm', 'p', 'l', 'i', 'c', 'i', 't', - 'c', 'd', '\0' }; -Char STRkillring[] = { 'k', 'i', 'l', 'l', 'r', 'i', 'n', 'g', '\0' }; -Char STRkilldup[] = { 'k', 'i', 'l', 'l', 'd', 'u', 'p', '\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_ALL[] = { 'L', 'C', '_', 'A', 'L', 'L', '\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 */ - -#if defined (_OSD_POSIX) /* BS2000 needs this variable set to "SHELL" */ -Char STRPROGRAM_ENVIRONMENT[] = { 'P', 'R', 'O', 'G', 'R', 'A', 'M', '_', 'E', 'N', 'V', 'I', 'R', 'O', 'N', 'M', 'E', 'N', 'T', '\0'}; -#endif /* _OSD_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 */ - -#ifndef IS_ASCII -Char STRwarnebcdic[] = { 'w', 'a', 'r', 'n', 'e', 'b', 'c', 'd', 'i', 'c', '\0' }; -#endif - -Char STRmCF[] = { '-', 'C', 'F', '\0', '\0' }; -#ifdef COLOR_LS_F -Char STRlsmF[] = { 'l', 's', '-', 'F', '\0' }; -Char STRcolor[] = { 'c', 'o', 'l', 'o', 'r', '\0' }; -#ifdef BSD_STYLE_COLORLS -Char STRmmcolormauto[] = { '-', 'G', '\0' }; -#else -Char STRmmcolormauto[] = { '-', '-', 'c', 'o', 'l', 'o', 'r', '=', 'a', 'u', 't', 'o', '\0' }; -#endif /* BSD_STYLE_COLORLS */ -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' }; -Char STRend[] = { 'e', 'n', 'd', '\0' }; - -#ifdef COLORCAT -Char STRcolorcat[] = { 'c', 'o', 'l', 'o', 'r', 'c', 'a', 't', '\0' }; -#endif - -Char STRshwspace[] = { ' ', '\t', '\0' }; -Char STRshwordsep[] = { ' ', '\t', '&', '|', ';', '<', '>', '(', ')', '\0' }; -Char STRrepeat[] = { 'r', 'e', 'p', 'e', 'a', 't', '\0' }; - -Char STReof[] = { '^', 'D', '\b', '\b', '\0' }; diff --git a/contrib/tcsh/tc.decls.h b/contrib/tcsh/tc.decls.h deleted file mode 100644 index 1da345d..0000000 --- a/contrib/tcsh/tc.decls.h +++ /dev/null @@ -1,339 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.decls.h,v 3.63 2006/02/14 14:07:36 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. 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 - -struct blk_buf; -struct strbuf; -struct Strbuf; - -/* - * tc.alloc.c - */ -#ifndef SYSMALLOC -#ifndef WINNT_NATIVE -#ifndef __linux__ -extern void free (ptr_t); -extern memalign_t malloc (size_t); -extern memalign_t realloc (ptr_t, size_t); -extern memalign_t calloc (size_t, size_t); -#endif -#endif /* !WINNT_NATIVE */ -#else /* SYSMALLOC */ -extern void sfree (ptr_t); -extern memalign_t smalloc (size_t); -extern memalign_t srealloc (ptr_t, size_t); -extern memalign_t scalloc (size_t, size_t); -#endif /* SYSMALLOC */ -extern void showall (Char **, struct command *); - -/* - * tc.bind.c - */ -extern void dobindkey (Char **, struct command *); - -/* - * tc.defs.c: - */ -extern void getmachine (void); - - -/* - * tc.disc.c - */ -extern int setdisc (int); -extern int resetdisc (int); - -/* - * tc.func.c - */ -extern Char *expand_lex (const struct wordent *, int, int); -extern Char *sprlex (const struct wordent *); -extern Char *Itoa (int, size_t, Char); -extern void dolist (Char **, struct command *); -extern void dotermname (Char **, struct command *); -extern void dotelltc (Char **, struct command *); -extern void doechotc (Char **, struct command *); -extern void dosettc (Char **, struct command *); -extern int cmd_expand (Char *, Char **); -extern void dowhich (Char **, struct command *); -extern struct process *find_stop_ed (void); -extern void fg_proc_entry (struct process *); -extern void alrmcatch (void); -extern void precmd (void); -extern void postcmd (void); -extern void cwd_cmd (void); -extern void beep_cmd (void); -extern void period_cmd (void); -extern void job_cmd (Char *); -extern void aliasrun (int, Char *, Char *); -extern void setalarm (int); -extern void rmstar (struct wordent *); -extern void continue_jobs (struct wordent *); -extern Char *gettilde (const Char *); -extern Char *getusername (Char **); -#ifdef OBSOLETE -extern void doaliases (Char **, struct command *); -#endif /* OBSOLETE */ -extern void shlvl (int); -extern int fixio (int, int); -extern int collate (const Char *, const Char *); -#ifdef HASHBANG -extern int hashbang (int, Char ***); -#endif /* HASHBANG */ -#ifdef REMOTEHOST -extern void remotehost (void); -#endif /* REMOTEHOST */ - - -/* - * tc.os.c - */ -#ifdef MACH -extern void dosetpath (Char **, struct command *); -#endif /* MACH */ - -#ifdef TCF -extern void dogetxvers (Char **, struct command *); -extern void dosetxvers (Char **, struct command *); -extern void dogetspath (Char **, struct command *); -extern void dosetspath (Char **, struct command *); -extern char *sitename (pid_t); -extern void domigrate (Char **, struct command *); -#endif /* TCF */ - -#ifdef WARP -extern void dowarp (Char **, struct command *); -#endif /* WARP */ - -#if defined(_CRAY) && !defined(_CRAYMPP) -extern void dodmmode (Char **, struct command *); -#endif /* _CRAY && !_CRAYMPP */ - -#if defined(masscomp) || defined(hcx) -extern void douniverse (Char **, struct command *); -#endif /* masscomp */ - -#if defined(_OSD_POSIX) /* BS2000 */ -extern void dobs2cmd (Char **, struct command *); -#endif /* _OSD_POSIX */ - -#if defined(hcx) -extern void doatt (Char **, struct command *); -extern void doucb (Char **, struct command *); -#endif /* hcx */ - -#ifdef _SEQUENT_ -extern void pr_stat_sub (struct process_stats *, - struct process_stats *, - struct process_stats *); -#endif /* _SEQUENT_ */ - -#ifdef NEEDtcgetpgrp -extern pid_t xtcgetpgrp (int); -extern int xtcsetpgrp (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 (void); -#endif /* YPBUGS */ -#ifdef STRCOLLBUG -extern void fix_strcoll_bug (void); -#endif /* STRCOLLBUG */ - -extern void osinit (void); - -#ifndef HAVE_MEMMOVE -extern void *xmemmove (void *, const void *, size_t); -# define memmove(a, b, c) xmemmove(a, b, c) -#endif /* !HAVE_MEMMOVE */ - -#ifndef HAVE_MEMSET -extern void *xmemset (void *, int, size_t); -# define memset(a, b, c) xmemset(a, b, c) -#endif /* !HAVE_MEMSET */ - - -#ifndef HAVE_GETCWD -extern char *xgetcwd (char *, size_t); -# undef getcwd -# define getcwd(a, b) xgetcwd(a, b) -#endif /* !HAVE_GETCWD */ - -#ifndef HAVE_GETHOSTNAME -extern int xgethostname (char *, int); -# undef gethostname -# define gethostname(a, b) xgethostname(a, b) -#endif /* !HAVE_GETHOSTNAME */ - -#ifndef HAVE_NICE -extern int xnice (int); -# undef nice -# define nice(a) xnice(a) -#endif /* !HAVE_NICE */ - -#ifndef HAVE_STRERROR -extern char *xstrerror (int); -# undef strerror -# define strerror(a) xstrerror(a) -#endif /* !HAVE_STRERROR */ - -#ifdef apollo -extern void doinlib (Char **, struct command *); -extern void dover (Char **, struct command *); -extern void dorootnode (Char **, struct command *); -extern int getv (Char *); -#endif /* apollo */ - - -/* - * tc.printf.h - */ -#ifndef __GNUC__ -#define __attribute__(a) -#endif -extern pret_t xprintf (const char *, ...) - __attribute__((__format__(__printf__, 1, 2))); -extern pret_t xsnprintf (char *, size_t, const char *, ...) - __attribute__((__format__(__printf__, 3, 4))); -extern char *xasprintf (const char *, ...) - __attribute__((__format__(__printf__, 1, 2))); -extern pret_t xvprintf (const char *, va_list) - __attribute__((__format__(__printf__, 1, 0))); -extern pret_t xvsnprintf (char *, size_t, const char *, va_list) - __attribute__((__format__(__printf__, 3, 0))); -extern char *xvasprintf (const char *, va_list) - __attribute__((__format__(__printf__, 1, 0))); - -/* - * tc.prompt.c - */ -extern void dateinit (void); -extern void printprompt (int, const char *); -extern int expdollar (struct Strbuf *, const Char **, Char); -extern Char *tprintf (int, const Char *, const char *, - time_t, ptr_t); - -/* - * tc.sched.c - */ -extern time_t sched_next (void); -extern void dosched (Char **, struct command *); -extern void sched_run (void); - -/* - * tc.str.c: - */ -#ifdef WIDE_STRINGS -extern size_t one_mbtowc (wchar_t *, const char *, size_t); -extern size_t one_wctomb (char *, wchar_t); -extern int rt_mbtowc (wchar_t *, const char *, size_t); -#else -#define one_mbtowc(PWC, S, N) \ - ((void)(N), *(PWC) = (unsigned char)*(S), (size_t)1) -#define one_wctomb(S, WCHAR) (*(S) = (WCHAR), (size_t)1) -#endif -#ifdef SHORT_STRINGS -extern Char *s_strchr (const Char *, int); -extern Char *s_strrchr (const Char *, int); -extern Char *s_strcat (Char *, const Char *); -# ifdef NOTUSED -extern Char *s_strncat (Char *, const Char *, size_t); -# endif /* NOTUSED */ -extern Char *s_strcpy (Char *, const Char *); -extern Char *s_strncpy (Char *, const Char *, size_t); -extern Char *s_strspl (const Char *, const Char *); -extern size_t s_strlen (const Char *); -extern int s_strcmp (const Char *, const Char *); -extern int s_strncmp (const Char *, const Char *, size_t); -extern int s_strcasecmp (const Char *, const Char *); -extern Char *s_strnsave (const Char *, size_t); -extern Char *s_strsave (const Char *); -extern Char *s_strend (const Char *); -extern Char *s_strstr (const Char *, const Char *); -extern Char *str2short (const char *); -extern Char **blk2short (char **); -extern char *short2str (const Char *); -extern char **short2blk (Char **); -#else /* !SHORT_STRINGS */ -extern char *caching_strip (const char *); -#endif -extern char *short2qstr (const Char *); - -extern void bb_append (struct blk_buf *, Char *); -extern void bb_cleanup (void *); -extern Char **bb_finish (struct blk_buf *); - -extern void strbuf_terminate(struct strbuf *); -extern void strbuf_append1(struct strbuf *, char); -extern void strbuf_appendn(struct strbuf *, const char *, - size_t); -extern void strbuf_append (struct strbuf *, const char *); -extern char *strbuf_finish (struct strbuf *); -extern void strbuf_cleanup(void *); -extern void Strbuf_terminate(struct Strbuf *); -extern void Strbuf_append1(struct Strbuf *, Char); -extern void Strbuf_appendn(struct Strbuf *, const Char *, - size_t); -extern void Strbuf_append (struct Strbuf *, const Char *); -extern Char *Strbuf_finish (struct Strbuf *); -extern void Strbuf_cleanup(void *); - - -/* - * tc.vers.c: - */ -extern void fix_version (void); - -/* - * tc.who.c - */ -#if defined (HAVE_UTMP_H) || defined (HAVE_UTMPX_H) || defined (WINNT_NATIVE) -extern void initwatch (void); -extern void resetwatch (void); -extern void watch_login (int); -extern char *who_info (ptr_t, int); -extern void dolog (Char **, struct command *); -# ifdef HAVE_STRUCT_UTMP_UT_HOST -extern char *utmphost (void); -extern size_t utmphostsize (void); -# endif /* HAVE_STRUCT_UTMP_UT_HOST */ -#else -# define HAVENOUTMP -#endif - -#endif /* _h_tc_decls */ diff --git a/contrib/tcsh/tc.disc.c b/contrib/tcsh/tc.disc.c deleted file mode 100644 index 30f46c4..0000000 --- a/contrib/tcsh/tc.disc.c +++ /dev/null @@ -1,196 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.disc.c,v 3.17 2006/03/02 18:46:45 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. 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("$tcsh: tc.disc.c,v 3.17 2006/03/02 18:46:45 christos Exp $") - -#ifdef OREO -#include <compat.h> -#endif /* OREO */ - -#include "ed.h" - -static int 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(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 - USE(f); - return (0); -# endif /* TIOCGETD && NTTYDISC */ -#endif /* !HAVE_DISC */ -} /* end setdisc */ - - -int -/*ARGSUSED*/ -resetdisc(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 */ - } - USE(f); - return (0); -} /* end resetdisc */ diff --git a/contrib/tcsh/tc.func.c b/contrib/tcsh/tc.func.c deleted file mode 100644 index e2db430..0000000 --- a/contrib/tcsh/tc.func.c +++ /dev/null @@ -1,2088 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.func.c,v 3.136 2006/09/01 12:51:35 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. 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("$tcsh: tc.func.c,v 3.136 2006/09/01 12:51:35 christos Exp $") - -#include "ed.h" -#include "ed.defns.h" /* for the function names */ -#include "tw.h" -#include "tc.h" -#ifdef WINNT_NATIVE -#include "nt.const.h" -#else /* WINNT_NATIVE */ -#include <sys/wait.h> -#endif /* WINNT_NATIVE */ - -#ifdef AFS -#include <afs/stds.h> -#include <afs/kautils.h> -long ka_UserAuthenticateGeneral(); -#endif /* AFS */ - -#ifdef TESLA -extern int do_logout; -#endif /* TESLA */ -extern time_t t_period; -extern int just_signaled; -static int precmd_active = 0; -static int jobcmd_active = 0; /* GrP */ -static int postcmd_active = 0; -static int periodic_active = 0; -static int cwdcmd_active = 0; /* PWP: for cwd_cmd */ -static int beepcmd_active = 0; -static void (*alm_fun)(void) = NULL; - -static void auto_logout (void); -static char *xgetpass (const char *); -static void auto_lock (void); -#ifdef BSDJOBS -static void insert (struct wordent *, int); -static void insert_we (struct wordent *, struct wordent *); -static int inlist (Char *, Char *); -#endif /* BSDJOBS */ -static int tildecompare (const void *, const void *); -static Char *gethomedir (const Char *); -#ifdef REMOTEHOST -static void palarm (int); -static void getremotehost (int); -#endif /* REMOTEHOST */ - -/* - * Tops-C shell - */ - -/* - * expand_lex: Take the given lex and return an expanded version of it. - * 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: this is a combination of the old sprlex() and the expand_lex from - the magic-space stuff */ - -Char * -expand_lex(const struct wordent *sp0, int from, int to) -{ - struct Strbuf buf = Strbuf_INIT; - const struct wordent *sp; - Char *s; - Char prev_c; - int i; - - prev_c = '\0'; - - if (!sp0 || (sp = sp0->next) == sp0 || sp == (sp0 = sp0->prev)) - return Strbuf_finish(&buf); /* null lex */ - - for (i = 0; ; i++) { - if ((i >= from) && (i <= to)) { /* if in range */ - for (s = sp->word; *s; 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 != '\\')))) { - Strbuf_append1(&buf, '\\'); - } - Strbuf_append1(&buf, *s & TRIM); - prev_c = *s; - } - Strbuf_append1(&buf, ' '); - } - sp = sp->next; - if (sp == sp0) - break; - } - if (buf.len != 0) - buf.len--; /* get rid of trailing space */ - - return Strbuf_finish(&buf); -} - -Char * -sprlex(const struct wordent *sp0) -{ - return expand_lex(sp0, 0, INT_MAX); -} - - -Char * -Itoa(int n, size_t min_digits, Char 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], *res, *p, *s; - 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; - - p = buf; - do { - *p++ = un % 10 + '0'; - un /= 10; - } while ((pad && --min_digits > 0) || un != 0); - - res = xmalloc((p - buf + 2) * sizeof(*res)); - s = res; - if (n < 0) - *s++ = '-'; - while (p > buf) - *s++ = *--p | attributes; - - *s = '\0'; - return res; -} - - -/*ARGSUSED*/ -void -dolist(Char **v, struct command *c) -{ - Char **globbed; - int i, k; - struct stat st; - - USE(c); - if (*++v == NULL) { - struct Strbuf word = Strbuf_INIT; - - Strbuf_terminate(&word); - cleanup_push(&word, Strbuf_cleanup); - (void) t_search(&word, LIST, TW_ZERO, 0, STRNULL, 0); - cleanup_until(&word); - return; - } - v = glob_all_or_error(v); - globbed = v; - cleanup_push(globbed, blk_cleanup); - 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. - */ - Char *lspath; - struct command *t; - struct wordent cmd, *nextword, *lastword; - Char *cp; - struct varent *vp; - - if (setintr) { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - if (seterr) { - xfree(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 != 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 = xcalloc(1, sizeof cmd); - nextword->word = Strsave(lspath); - lastword->next = nextword; - nextword->prev = lastword; - lastword = nextword; - nextword = 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 = 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 = 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 = xcalloc(1, sizeof cmd); - nextword->word = quote(Strsave(cp)); - lastword->next = nextword; - nextword->prev = lastword; - lastword = nextword; - } - lastword->next = &cmd; - cmd.prev = lastword; - cleanup_push(&cmd, lex_cleanup); - - /* build a syntax tree for the command. */ - t = syntax(cmd.next, &cmd, 0); - cleanup_push(t, syntax_cleanup); - if (seterr) - stderror(ERR_OLD); - /* expand aliases like process() does */ - /* alias(&cmd); */ - /* execute the parse tree. */ - execute(t, tpgrp > 0 ? tpgrp : -1, NULL, NULL, FALSE); - /* done. free the lex list and parse tree. */ - cleanup_until(&cmd); - if (setintr) - cleanup_until(&pintr_disabled); - } - else { - Char *dp, *tmp; - struct Strbuf buf = Strbuf_INIT; - - cleanup_push(&buf, Strbuf_cleanup); - for (k = 0, i = 0; v[k] != NULL; k++) { - tmp = dnormalize(v[k], symlinks == SYM_IGNORE); - cleanup_push(tmp, xfree); - dp = Strend(tmp) - 1; - if (*dp == '/' && dp != tmp) -#ifdef apollo - if (dp != &tmp[1]) -#endif /* apollo */ - *dp = '\0'; - if (stat(short2str(tmp), &st) == -1) { - int err; - - err = errno; - if (k != i) { - if (i != 0) - xputchar('\n'); - print_by_column(STRNULL, &v[i], k - i, FALSE); - } - xprintf("%S: %s.\n", tmp, strerror(err)); - 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); - buf.len = 0; - for (cp = tmp; *cp; cp++) - Strbuf_append1(&buf, (*cp | QUOTE)); - Strbuf_terminate(&buf); - dp = &buf.s[buf.len - 1]; - if ( -#ifdef WINNT_NATIVE - (*dp != (Char) (':' | QUOTE)) && -#endif /* WINNT_NATIVE */ - (*dp != (Char) ('/' | QUOTE))) { - Strbuf_append1(&buf, '/'); - Strbuf_terminate(&buf); - } else - *dp &= TRIM; - (void) t_search(&buf, LIST, TW_ZERO, 0, STRNULL, 0); - i = k + 1; - } - cleanup_until(tmp); - } - cleanup_until(&buf); - if (k != i) { - if (i != 0) - xputchar('\n'); - print_by_column(STRNULL, &v[i], k - i, FALSE); - } - } - - cleanup_until(globbed); -} - -extern int GotTermCaps; - -/*ARGSUSED*/ -void -dotelltc(Char **v, struct command *c) -{ - USE(v); - USE(c); - if (!GotTermCaps) - GetTermCaps(); - TellTC(); -} - -/*ARGSUSED*/ -void -doechotc(Char **v, struct command *c) -{ - USE(c); - if (!GotTermCaps) - GetTermCaps(); - EchoTC(++v); -} - -/*ARGSUSED*/ -void -dosettc(Char **v, struct command *c) -{ - char *tv[2]; - - USE(c); - if (!GotTermCaps) - GetTermCaps(); - - tv[0] = strsave(short2str(v[1])); - cleanup_push(tv[0], xfree); - tv[1] = strsave(short2str(v[2])); - cleanup_push(tv[1], xfree); - SetTC(tv[0], tv[1]); - cleanup_until(tv[0]); -} - -/* 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(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 && vp->vec != NULL) { - if (str == NULL) { - xprintf(CGETS(22, 1, "%S: \t aliased to "), cmd); - blkpr(vp->vec); - xputchar('\n'); - } - else - *str = blkexpand(vp->vec); - } - else { - lexp[1].word = cmd; - rv = tellmewhat(lexp, str); - } - return rv; -} - - -/*ARGSUSED*/ -void -dowhich(Char **v, struct command *c) -{ - int rv = TRUE; - USE(c); - - /* - * 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. - */ - - while (*++v) - rv &= cmd_expand(*v, NULL); - - if (!rv) - setcopy(STRstatus, STR1, VAR_READWRITE); -} - -/* 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(void) -{ - struct process *pp, *retp; - const char *ep, *vp; - char *cp, *p; - size_t epl, vpl; - int 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((unsigned char)vp[vpl]); vpl++) - continue; - for (epl = 0; ep[epl] && !isspace((unsigned char)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, epl) == 0 || - strncmp(vp, cp, 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(struct process *pp) -{ - jmp_buf_t osetexit; - int ohaderr; - Char oGettingInput; - size_t omark; - - getexit(osetexit); - - pintr_disabled++; - oGettingInput = GettingInput; - GettingInput = 0; - - ohaderr = haderr; /* we need to ignore setting of haderr due to - * process getting stopped by a signal */ - omark = cleanup_push_mark(); - if (setexit() == 0) { /* come back here after pjwait */ - pendjob(); - (void) alarm(0); /* No autologout */ - alrmcatch_disabled = 1; - if (!pstart(pp, 1)) { - pp->p_procid = 0; - stderror(ERR_BADJOB, pp->p_command, strerror(errno)); - } - pjwait(pp); - } - setalarm(1); /* Autologout back on */ - cleanup_pop_mark(omark); - resexit(osetexit); - haderr = ohaderr; - GettingInput = oGettingInput; - - disabled_cleanup(&pintr_disabled); -} - -static char * -xgetpass(const char *prm) -{ - static struct strbuf pass; /* = strbuf_INIT; */ - int fd; - sigset_t oset, set; - struct sigaction sa, osa; - - sa.sa_handler = SIG_IGN; - sigemptyset(&sa.sa_mask); - sa.sa_flags = 0; - (void)sigaction(SIGINT, &sa, &osa); - - sigemptyset(&set); - sigaddset(&set, SIGINT); - (void)sigprocmask(SIG_UNBLOCK, &set, &oset); - - cleanup_push(&osa, sigint_cleanup); - cleanup_push(&oset, sigprocmask_cleanup); - (void) Rawmode(); /* Make sure, cause we want echo off */ - fd = xopen("/dev/tty", O_RDWR|O_LARGEFILE); - if (fd == -1) - fd = SHIN; - else - cleanup_push(&fd, open_cleanup); - - xprintf("%s", prm); flush(); - pass.len = 0; - for (;;) { - char c; - - if (xread(fd, &c, 1) < 1 || c == '\n') - break; - strbuf_append1(&pass, c); - } - strbuf_terminate(&pass); - - cleanup_until(&sa); - - return pass.s; -} - -#ifndef NO_CRYPT -#if !HAVE_DECL_CRYPT - extern char *crypt (); -#endif -#ifdef HAVE_CRYPT_H -#include <crypt.h> -#endif -#endif - -/* - * 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(void) -{ -#ifndef NO_CRYPT - - int i; - char *srpp = NULL; - struct passwd *pw; - -#undef XCRYPT - -#if defined(HAVE_AUTH_H) && defined(HAVE_GETAUTHUID) - - struct authorization *apw; - extern char *crypt16 (const char *, const char *); - -# define XCRYPT(a, b) crypt16(a, b) - - if ((pw = xgetpwuid(euid)) != NULL && /* effective user passwd */ - (apw = getauthuid(euid)) != NULL) /* enhanced ultrix passwd */ - srpp = apw->a_password; - -#elif defined(HAVE_SHADOW_H) - - struct spwd *spw; - -# define XCRYPT(a, b) crypt(a, b) - - if ((pw = xgetpwuid(euid)) != NULL) { /* effective user passwd */ - errno = 0; - while ((spw = getspnam(pw->pw_name)) == NULL && errno == EINTR) { - handle_pending_signals(); - errno = 0; - } - if (spw != NULL) /* shadowed passwd */ - srpp = spw->sp_pwdp; - } - -#else - -#define XCRYPT(a, b) crypt(a, b) - -#if !defined(__MVS__) - if ((pw = xgetpwuid(euid)) != NULL) /* effective user passwd */ - srpp = pw->pw_passwd; -#endif /* !MVS */ - -#endif - - if (srpp == NULL) { - auto_logout(); - /*NOTREACHED*/ - return; - } - - setalarm(0); /* Not for locking any more */ - 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, strlen(pp)); - 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(); -} - - -static void -auto_logout(void) -{ - xprintf("auto-logout\n"); - /* Don't leave the tty in raw mode */ - if (editing) - (void) Cookedmode(); - xclose(SHIN); - setcopy(STRlogout, 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); -} - -void -alrmcatch(void) -{ - (*alm_fun)(); - setalarm(1); -} - -/* - * 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(void) -{ - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - 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; - cleanup_until(&pintr_disabled); -} - -void -postcmd(void) -{ - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - 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; - cleanup_until(&pintr_disabled); -} - -/* - * 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(void) -{ - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - 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; - cleanup_until(&pintr_disabled); -} - -/* - * 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(void) -{ - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - 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; - cleanup_until(&pintr_disabled); -} - - -/* - * 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(void) -{ - Char *vp; - time_t t, interval; - - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - 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; - cleanup_until(&pintr_disabled); -} - - -/* - * GrP Greg Parker May 2001 - * Added job_cmd(), which is run every time a job is started or - * foregrounded. The command is passed a single argument, the string - * used to start the job originally. With precmd, useful for setting - * xterm titles. - * Cloned from cwd_cmd(). - */ -void -job_cmd(Char *args) -{ - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - if (jobcmd_active) { /* an error must have been caught */ - aliasrun(2, STRunalias, STRjobcmd); - xprintf(CGETS(22, 14, "Faulty alias 'jobcmd' removed.\n")); - goto leave; - } - jobcmd_active = 1; - if (!whyles && adrof1(STRjobcmd, &aliases)) { - struct process *pp = pcurrjob; /* put things back after the hook */ - aliasrun(2, STRjobcmd, args); - pcurrjob = pp; - } -leave: - jobcmd_active = 0; - cleanup_until(&pintr_disabled); -} - - -/* - * 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(int cnt, Char *s1, Char *s2) -{ - struct wordent w, *new1, *new2; /* for holding alias name */ - struct command *t = NULL; - jmp_buf_t osetexit; - int status; - size_t omark; - - getexit(osetexit); - if (seterr) { - xfree(seterr); - seterr = NULL; /* don't repeatedly print err msg. */ - } - w.word = STRNULL; - new1 = 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 = xcalloc(1, sizeof w); - new2->word = Strsave(s2); - w.next = new2->prev = new1; - new1->next = w.prev = new2; - new1->prev = new2->next = &w; - } - cleanup_push(&w, lex_cleanup); - - /* 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); - cleanup_push(t, syntax_cleanup); - if (seterr) - stderror(ERR_OLD); - - psavejob(); - cleanup_push(&cnt, psavejob_cleanup); /* cnt is used only as a marker */ - - /* catch any errors here */ - omark = cleanup_push_mark(); - 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, TRUE); - /* reset the error catcher to the old place */ - cleanup_pop_mark(omark); - resexit(osetexit); - 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 */ - } - cleanup_until(&w); - pendjob(); - /* Restore status */ - setv(STRstatus, putn(status), VAR_READWRITE); -} - -void -setalarm(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 && vp->vec != NULL) { - if ((cp = vp->vec[0]) != 0) { - if ((logout_time = (unsigned) atoi(short2str(cp)) * 60) > 0) { -#ifdef SOLARIS2 - /* - * Solaris alarm(2) uses a timer based in clock ticks - * internally so it multiplies our value with CLK_TCK... - * Of course that can overflow leading to unexpected - * results, so we clip it here. Grr. Where is that - * documented folks? - */ - if (logout_time >= 0x7fffffff / CLK_TCK) - logout_time = 0x7fffffff / CLK_TCK; -#endif /* SOLARIS2 */ - 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; - } - } - alrmcatch_disabled = 0; - (void) alarm(alrm_time); /* Autologout ON */ -} - -#undef RMDEBUG /* For now... */ - -void -rmstar(struct wordent *cp) -{ - struct wordent *we, *args; - 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(tmp->word); - del = tmp; - tmp = tmp->next; - xfree(del); - } - if (*tmp->word == ';') { - tmp->prev->next = tmp->next; - tmp->next->prev = tmp->prev; - xfree(tmp->word); - del = tmp; - tmp = tmp->next; - xfree(del); - } - we = tmp; - continue; - } - } - } - } - 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(struct wordent *cp) -{ - struct wordent *we; - 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 */ - int 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(struct wordent *pl, int file_args) -{ - struct wordent *now, *last; - Char *cmd, *bcmd, *cp1, *cp2; - size_t cmd_len; - Char *upause = STRunderpause; - size_t p_len = Strlen(upause); - - cmd_len = Strlen(pl->word); - cmd = xcalloc(1, (cmd_len + 1) * sizeof(Char)); - (void) Strcpy(cmd, pl->word); -/* Do insertions at beginning, first replace command word */ - - if (file_args) { - now = pl; - xfree(now->word); - now->word = xcalloc(1, 5 * sizeof(Char)); - (void) Strcpy(now->word, STRecho); - - now = xcalloc(1, sizeof(struct wordent)); - now->word = xcalloc(1, 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 = xcalloc(1, sizeof(struct wordent)); - now->word = xcalloc(1, 2 * sizeof(Char)); - (void) Strcpy(now->word, STRgt); - insert_we(now, last->prev); - - now = xcalloc(1, sizeof(struct wordent)); - now->word = xcalloc(1, 2 * sizeof(Char)); - (void) Strcpy(now->word, STRbang); - insert_we(now, last->prev); - - now = xcalloc(1, sizeof(struct wordent)); - now->word = xcalloc(1, (cmd_len + p_len + 4) * sizeof(Char)); - cp1 = now->word; - cp2 = cmd; - *cp1++ = '~'; - *cp1++ = '/'; - *cp1++ = '.'; - while ((*cp1++ = *cp2++) != '\0') - continue; - cp1--; - cp2 = upause; - while ((*cp1++ = *cp2++) != '\0') - continue; - insert_we(now, last->prev); - - now = xcalloc(1, sizeof(struct wordent)); - now->word = xcalloc(1, 2 * sizeof(Char)); - (void) Strcpy(now->word, STRsemi); - insert_we(now, last->prev); - bcmd = xcalloc(1, (cmd_len + 2) * sizeof(Char)); - *bcmd = '%'; - Strcpy(bcmd + 1, cmd); - now = xcalloc(1, sizeof(struct wordent)); - now->word = bcmd; - insert_we(now, last->prev); - } - else { - struct wordent *del; - - now = pl; - xfree(now->word); - now->word = xcalloc(1, (cmd_len + 2) * sizeof(Char)); - *now->word = '%'; - Strcpy(now->word + 1, cmd); - for (now = now->next; - *now->word != '\n' && *now->word != ';' && now != pl;) { - now->prev->next = now->next; - now->next->prev = now->prev; - xfree(now->word); - del = now; - now = now->next; - xfree(del); - } - } -} - -static void -insert_we(struct wordent *new, struct wordent *where) -{ - - new->prev = where; - new->next = where->next; - where->next = new; - new->next->prev = new; -} - -static int -inlist(Char *list, Char *name) -{ - 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; - size_t hlen; -} *tcache = NULL; - -#define TILINCR 10 -size_t tlength = 0; -static size_t tsize = TILINCR; - -static int -tildecompare(const void *xp1, const void *xp2) -{ - const struct tildecache *p1, *p2; - - p1 = xp1; - p2 = xp2; - return Strcmp(p1->user, p2->user); -} - -static Char * -gethomedir(const Char *us) -{ - struct passwd *pp; -#ifdef HESIOD - char **res, **res1, *cp; - Char *rp; -#endif /* HESIOD */ - - pp = xgetpwnam(short2str(us)); -#ifdef YPBUGS - fix_yp_bugs(); -#endif /* YPBUGS */ - if (pp != NULL) { -#if 0 - /* Don't return if root */ - if (pp->pw_dir[0] == '/' && pp->pw_dir[1] == '\0') - return NULL; - else -#endif - return Strsave(str2short(pp->pw_dir)); - } -#ifdef HESIOD - res = hes_resolve(short2str(us), "filsys"); - rp = NULL; - if (res != NULL) { - if ((*res) != NULL) { - /* - * 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); -#if 0 - /* Don't return if root */ - if (rp != NULL && rp[0] == '/' && rp[1] == '\0') { - xfree(rp); - rp = NULL; - } -#endif - return rp; - } -#endif /* HESIOD */ - return NULL; -} - -Char * -gettilde(const Char *us) -{ - struct tildecache *bp1, *bp2, *bp; - Char *hd; - - /* Ignore NIS special names */ - if (*us == '+' || *us == '-') - return NULL; - - if (tcache == NULL) - tcache = xmalloc(TILINCR * sizeof(struct tildecache)); - /* - * Binary search - */ - for (bp1 = tcache, bp2 = tcache + tlength; bp1 < bp2;) { - 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 = Strlen(hd); - - qsort(tcache, tlength, sizeof(struct tildecache), tildecompare); - - if (tlength == tsize) { - tsize += TILINCR; - tcache = xrealloc(tcache, 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(Char **hm) -{ - Char *h, *p; - size_t i, j; - - if (hm == NULL) { - for (i = 0; i < tlength; i++) { - xfree(tcache[i].home); - xfree(tcache[i].user); - } - xfree(tcache); - tlength = 0; - tsize = TILINCR; - tcache = NULL; - return NULL; - } - p = *hm; - if (((h = varval(STRhome)) != STRNULL) && - (Strncmp(p, h, j = Strlen(h)) == 0) && - (p[j] == '/' || p[j] == '\0')) { - *hm = &p[j]; - return STRNULL; - } - for (i = 0; i < tlength; i++) - if ((Strncmp(p, tcache[i].home, (j = tcache[i].hlen)) == 0) && - (p[j] == '/' || p[j] == '\0')) { - *hm = &p[j]; - return tcache[i].user; - } - return NULL; -} - - -/* - * set the shell-level var to 1 or apply change to it. - */ -void -shlvl(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 *p; - - p = Itoa(val, 0, 0); - cleanup_push(p, xfree); - setv(STRshlvl, p, VAR_READWRITE); - cleanup_ignore(p); - cleanup_until(p); - tsetenv(STRKSHLVL, p); - } - } - else { - setcopy(STRshlvl, STR1, VAR_READWRITE); - tsetenv(STRKSHLVL, STR1); - } -} - - -/* fixio(): - * Try to recover from a read error - */ -int -fixio(int fd, int 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(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(HAVE_STRCOLL) - 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(sa); - xfree(sb); - stderror(ERR_SYSTEM, "strcoll", strerror(errno)); - } -#else - rv = strcmp(sa, sb); -#endif /* NLS && HAVE_STRCOLL */ - - xfree(sa); - xfree(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 */ -int -hashbang(int fd, Char ***vp) -{ - struct blk_buf sarg = BLK_BUF_INIT; - char lbuf[HACKBUFSZ], *p, *ws; -#ifdef WINNT_NATIVE - int fw = 0; /* found at least one word */ - int first_word = 1; - char *real; -#endif /* WINNT_NATIVE */ - - if (xread(fd, lbuf, HACKBUFSZ) <= 0) - return -1; - - ws = 0; /* word started = 0 */ - - for (p = lbuf; p < &lbuf[HACKBUFSZ]; ) { - switch (*p) { - case ' ': - case '\t': -#ifdef WINNT_NATIVE - case '\r': -#endif /* WINNT_NATIVE */ - if (ws) { /* a blank after a word.. save it */ - *p = '\0'; -#ifdef WINNT_NATIVE - if (first_word) { - real = hb_subst(ws); - if (real != NULL) - ws = real; - } - fw = 1; - first_word = 0; -#endif /* WINNT_NATIVE */ - bb_append(&sarg, SAVE(ws)); - ws = NULL; - } - p++; - continue; - - case '\0': /* Whoa!! what the hell happened */ - goto err; - - case '\n': /* The end of the line. */ - if ( -#ifdef WINNT_NATIVE - fw || -#endif /* WINNT_NATIVE */ - ws) { /* terminate the last word */ - *p = '\0'; -#ifdef WINNT_NATIVE - /* deal with the 1-word case */ - if (first_word) { - real = hb_subst(ws); - if (real != NULL) - ws = real; - } -#endif /* !WINNT_NATIVE */ - if (ws) - bb_append(&sarg, SAVE(ws)); - } - if (sarg.len > 0) { - *vp = bb_finish(&sarg); - return 0; - } - else - goto err; - - default: - if (!ws) /* Start a new word? */ - ws = p; - p++; - break; - } - } - err: - bb_cleanup(&sarg); - return -1; -} -#endif /* HASHBANG */ - -#ifdef REMOTEHOST - -static void -palarm(int snum) -{ - USE(snum); - _exit(1); -} - -static void -getremotehost(int dest_fd) -{ - const char *host = NULL; -#ifdef INET6 - struct sockaddr_storage saddr; - static char hbuf[NI_MAXHOST]; -#else - struct hostent* hp; - struct sockaddr_in saddr; -#endif - socklen_t len = sizeof(saddr); - -#ifdef INET6 - if (getpeername(SHIN, (struct sockaddr *) &saddr, &len) != -1 && - (saddr.ss_family == AF_INET6 || saddr.ss_family == AF_INET)) { - int flag = NI_NUMERICHOST; - -#ifdef NI_WITHSCOPEID - flag |= NI_WITHSCOPEID; -#endif - getnameinfo((struct sockaddr *)&saddr, len, hbuf, sizeof(hbuf), - NULL, 0, flag); - host = hbuf; -#else - if (getpeername(SHIN, (struct sockaddr *) &saddr, &len) != -1 && - saddr.sin_family == AF_INET) { -#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); -#endif - } -#ifdef HAVE_STRUCT_UTMP_UT_HOST - else { - char *ptr; - char *name = utmphost(); - /* Avoid empty names and local X displays */ - if (name != NULL && *name != '\0' && *name != ':') { - struct in_addr addr; - char *sptr; - - /* Look for host:display.screen */ - /* - * There is conflict with IPv6 address and X DISPLAY. So, - * we assume there is no IPv6 address in utmp and don't - * touch here. - */ - if ((sptr = strchr(name, ':')) != NULL) - *sptr = '\0'; - /* Leave IPv4 address as is */ - /* - * we use inet_addr here, not inet_aton because many systems - * have not caught up yet. - */ - addr.s_addr = inet_addr(name); - if (addr.s_addr != (unsigned int)~0) - host = name; - else { - if (sptr != name) { -#ifdef INET6 - char *s, *domain; - char dbuf[MAXHOSTNAMELEN]; - struct addrinfo hints, *res = NULL; - - memset(&hints, 0, sizeof(hints)); - hints.ai_family = PF_UNSPEC; - hints.ai_socktype = SOCK_STREAM; - hints.ai_flags = AI_PASSIVE | AI_CANONNAME; - if (strlen(name) < utmphostsize()) - { - if (getaddrinfo(name, NULL, &hints, &res) != 0) - res = NULL; - } else if (gethostname(dbuf, sizeof(dbuf)) == 0 && - (dbuf[sizeof(dbuf)-1] = '\0', /*FIXME: ugly*/ - (domain = strchr(dbuf, '.')) != NULL)) { - for (s = strchr(name, '.'); - s != NULL; s = strchr(s + 1, '.')) { - if (*(s + 1) != '\0' && - (ptr = strstr(domain, s)) != NULL) { - char *cbuf; - - cbuf = strspl(name, ptr); - if (getaddrinfo(cbuf, NULL, &hints, &res) != 0) - res = NULL; - xfree(cbuf); - break; - } - } - } - if (res != NULL) { - if (res->ai_canonname != NULL) { - strncpy(hbuf, res->ai_canonname, sizeof(hbuf)); - host = hbuf; - } - freeaddrinfo(res); - } -#else - 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 - } - } - } - } -#endif - - if (host) { - size_t left; - - left = strlen(host); - while (left != 0) { - ssize_t res; - - res = xwrite(dest_fd, host, left); - if (res < 0) - _exit(1); - host += res; - left -= res; - } - } - _exit(0); -} - -/* - * From: <lesv@ppvku.ericsson.se> (Lennart Svensson) - */ -void -remotehost(void) -{ - struct sigaction sa; - struct strbuf hostname = strbuf_INIT; - int fds[2], wait_options, status; - pid_t pid, wait_res; - - sa.sa_handler = SIG_DFL; /* Make sure a zombie is created */ - sigemptyset(&sa.sa_mask); - sa.sa_flags = 0; - sigaction(SIGCHLD, &sa, NULL); - mypipe(fds); - pid = fork(); - if (pid == 0) { - sigset_t set; - xclose(fds[0]); - /* Don't get stuck if the resolver does not work! */ - signal(SIGALRM, palarm); - sigemptyset(&set); - sigaddset(&set, SIGALRM); - (void)sigprocmask(SIG_UNBLOCK, &set, NULL); - (void)alarm(2); - getremotehost(fds[1]); - /*NOTREACHED*/ - } - xclose(fds[1]); - for (;;) { - char buf[BUFSIZE]; - ssize_t res; - - res = xread(fds[0], buf, sizeof(buf)); - if (res == -1) { - hostname.len = 0; - wait_options = WNOHANG; - goto done; - } - if (res == 0) - break; - strbuf_appendn(&hostname, buf, res); - } - wait_options = 0; - done: - xclose(fds[0]); - while ((wait_res = waitpid(pid, &status, wait_options)) == -1 - && errno == EINTR) - handle_pending_signals(); - cleanup_push(&hostname, strbuf_cleanup); - if (wait_res == pid && WIFEXITED(status) && WEXITSTATUS(status) == 0) { - strbuf_terminate(&hostname); - tsetenv(STRREMOTEHOST, str2short(hostname.s)); - } - cleanup_until(&hostname); - -#ifdef YPBUGS - /* From: casper@fwi.uva.nl (Casper H.S. Dik), for Solaris 2.3 */ - fix_yp_bugs(); -#endif /* YPBUGS */ - -} -#endif /* REMOTEHOST */ - -#ifndef WINNT_NATIVE -/* - * indicate if a terminal type is defined in terminfo/termcap - * (by default the current term type). This allows ppl to look - * for a working term type automatically in their login scripts - * when using a terminal known as different things on different - * platforms - */ -void -dotermname(Char **v, struct command *c) -{ - char *termtype; - /* - * Maximum size of a termcap record. We make it twice as large. - */ - char termcap_buffer[2048]; - - USE(c); - /* try to find which entry we should be looking for */ - termtype = (v[1] == NULL ? getenv("TERM") : short2str(v[1])); - if (termtype == NULL) { - /* no luck - the user didn't provide one and none is - * specified in the environment - */ - setcopy(STRstatus, STR1, VAR_READWRITE); - return; - } - - /* - * we use the termcap function - if we are using terminfo we - * will end up with it's compatibility function - * terminfo/termcap will be initialized with the new - * type but we don't care because tcsh has cached all the things - * it needs. - */ - if (tgetent(termcap_buffer, termtype) == 1) { - xprintf("%s\n", termtype); - setcopy(STRstatus, STR0, VAR_READWRITE); - } else - setcopy(STRstatus, STR1, VAR_READWRITE); -} -#endif /* WINNT_NATIVE */ diff --git a/contrib/tcsh/tc.h b/contrib/tcsh/tc.h deleted file mode 100644 index 99a643f..0000000 --- a/contrib/tcsh/tc.h +++ /dev/null @@ -1,80 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.h,v 3.8 2006/01/12 19:55:38 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. 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" - -extern size_t tlength; - -#define FMT_PROMPT 0 -#define FMT_WHO 1 -#define FMT_HISTORY 2 -#define FMT_SCHED 3 - -struct strbuf { - char *s; - size_t len; /* Valid characters */ - size_t size; /* Allocated characters */ -}; - -struct Strbuf { - Char *s; - size_t len; /* Valid characters */ - size_t size; /* Allocated characters */ -}; - -/* We don't have explicit initializers for variables with static storage - duration, so these values should be equivalent to default initialization. */ -#define strbuf_INIT { NULL, 0, 0 } -#define Strbuf_INIT { NULL, 0, 0 } -extern const struct strbuf strbuf_init; -extern const struct Strbuf Strbuf_init; - -/* A string vector in progress */ -struct blk_buf -{ - Char **vec; - size_t len; /* Valid strings */ - size_t size; /* Allocated space for string pointers */ -}; - -#define BLK_BUF_INIT { NULL, 0, 0 } - -#endif /* _h_tc */ diff --git a/contrib/tcsh/tc.nls.c b/contrib/tcsh/tc.nls.c deleted file mode 100644 index 5a75f68..0000000 --- a/contrib/tcsh/tc.nls.c +++ /dev/null @@ -1,119 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.nls.c,v 3.21 2006/09/26 16:45:30 christos Exp $ */ -/* - * tc.nls.c: NLS 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. 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("$tcsh: tc.nls.c,v 3.21 2006/09/26 16:45:30 christos Exp $") - -#ifdef WIDE_STRINGS -int -NLSWidth(Char c) -{ -# ifdef HAVE_WCWIDTH - int l; - if (c & INVALID_BYTE) - return 1; - l = wcwidth(c); - return l >= 0 ? l : 0; -# else - return iswprint(c) != 0; -# endif -} - -int -NLSStringWidth(const Char *s) -{ - int w = 0, l; - Char c; - - while (*s) { - c = *s++; -#ifdef HAVE_WCWIDTH - if ((l = wcwidth(c)) < 0) - l = 2; -#else - l = iswprint(c) != 0; -#endif - w += l; - } - return w; -} -#endif - -Char * -NLSChangeCase(const Char *p, int mode) -{ - Char c, *n, c2 = 0; - const Char *op = p; - - for (; (c = *p) != 0; p++) { - if (mode == 0 && Islower(c)) { - c2 = Toupper(c); - break; - } else if (mode && Isupper(c)) { - c2 = Tolower(c); - break; - } - } - if (!*p) - return 0; - n = Strsave(op); - n[p - op] = c2; - return n; -} - -int -NLSClassify(Char c, int nocomb) -{ - int w; - if (c & INVALID_BYTE) - return NLSCLASS_ILLEGAL; - w = NLSWidth(c); - if ((w > 0 && !(Iscntrl(c) && (c & CHAR) < 0x100)) || (Isprint(c) && !nocomb)) - return w; - if (Iscntrl(c) && (c & CHAR) < 0x100) { - if (c == '\n') - return NLSCLASS_NL; - if (c == '\t') - return NLSCLASS_TAB; - return NLSCLASS_CTRL; - } -#ifdef WIDE_STRINGS - if (c >= 0x1000000) - return NLSCLASS_ILLEGAL4; - if (c >= 0x10000) - return NLSCLASS_ILLEGAL3; -#endif - if (c >= 0x100) - return NLSCLASS_ILLEGAL2; - return NLSCLASS_ILLEGAL; -} diff --git a/contrib/tcsh/tc.nls.h b/contrib/tcsh/tc.nls.h deleted file mode 100644 index d681a9e..0000000 --- a/contrib/tcsh/tc.nls.h +++ /dev/null @@ -1,60 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.nls.h,v 3.13 2006/02/14 14:07:36 christos Exp $ */ -/* - * tc.nls.h: NLS support - * - */ -/*- - * 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. 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_nls -#define _h_tc_nls - -#include "sh.h" - -#ifdef WIDE_STRINGS -extern int NLSWidth(Char); -extern int NLSStringWidth (const Char *); -#else -# define NLSStringWidth(s) Strlen(s) -# define NLSWidth(c) 1 -#endif - -extern Char *NLSChangeCase (const Char *, int); -extern int NLSClassify (Char, int); - -#define NLSCLASS_CTRL (-1) -#define NLSCLASS_TAB (-2) -#define NLSCLASS_NL (-3) -#define NLSCLASS_ILLEGAL (-4) -#define NLSCLASS_ILLEGAL2 (-5) -#define NLSCLASS_ILLEGAL3 (-6) -#define NLSCLASS_ILLEGAL4 (-7) - -#define NLSCLASS_ILLEGAL_SIZE(x) (-(x) - (-(NLSCLASS_ILLEGAL) - 1)) - -#endif diff --git a/contrib/tcsh/tc.os.c b/contrib/tcsh/tc.os.c deleted file mode 100644 index 7738321..0000000 --- a/contrib/tcsh/tc.os.c +++ /dev/null @@ -1,1586 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.os.c,v 3.69 2006/08/24 20:56:31 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. 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("$tcsh: tc.os.c,v 3.69 2006/08/24 20:56:31 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(Char **arglist, struct command *c) -{ - extern char *getenv(); - Char **pathvars, **cmdargs; - char **spaths, **cpaths, **cmds; - char *tcp; - unsigned int npaths, ncmds; - int i, sysflag; - - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - - /* - * 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 = xmalloc(npaths * sizeof *spaths); - setzero(spaths, npaths * sizeof *spaths); - cpaths = xmalloc((npaths + 1) * sizeof *cpaths); - setzero(cpaths, (npaths + 1) * sizeof *cpaths); - cmds = xmalloc((ncmds + 1) * sizeof *cmds); - setzero(cmds, (ncmds + 1) * sizeof *cmds); - for (i = 0; i < npaths; i++) { - char *val = getenv(short2str(pathvars[i])); - - if (val == NULL) - val = ""; - - spaths[i] = xmalloc((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);/*FIXRESET*/ - - if (val == NULL) - goto abortpath; - cmds[i] = strsave(short2str(val)); - } - - - if (setpath(cpaths, cmds, LOCALSYSPATH, sysflag, 1) < 0) { -abortpath: - if (spaths) { - for (i = 0; i < npaths; i++) - xfree(spaths[i]); - xfree(spaths); - } - xfree(cpaths); - if (cmds) { - for (i = 0; i < ncmds; i++) - xfree(cmds[i]); - xfree(cmds); - } - - cleanup_until(&pintr_disabled); - 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);/*FIXRESET*/ - if (Strcmp(name, STRKPATH) == 0) { - importpath(val);/*FIXRESET*/ - if (havhash) - dohash(NULL, NULL);/*FIXRESET*/ - } - *--val = '='; - } - } - cleanup_until(&pintr_disabled); - donefds(); -} -#endif /* MACH */ - -/*** - *** AIX - ***/ -#ifdef TCF -/* ARGSUSED */ -void -dogetxvers(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(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(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(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(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(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_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(pit_t pid, siteno_t new_site) -{ - struct sf *st; - int need_local; - - need_local = (pid == 0) || (pid == getpid()); - - if (kill3(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(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; - - pchild_disabled++; - cleanup_push(&pchild_disabled, disabled_cleanup); - if (setintr) { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - - ++v; - if (*v[0] == '-') { - /* - * Do the -site. - */ - s = short2str(&v[0][1]); - /* - * see comment in setspath() - */ - dont_free = 1; - if ((st = sfname(s)) == NULL) { - dont_free = 0; - 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 { - Char **globbed; - - v = glob_all_or_error(v); - globbed = v; - cleanup_push(globbed, blk_cleanup); - - while (v && (cp = *v)) { - if (*cp == '%') { - pp = pfind(cp); - if (kill3(- 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++; - } - cleanup_until(globbed); - } - -done: - cleanup_until(&pchild_disabled); - 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(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 void -catch_sigsys(void) -{ - sigset_t set; - sigemptyset(&set, SIGSYS); - (void)sigprocmask(SIG_UNBLOCK, &set, NULL); - longjmp(sigsys_buf, 1); -} - - -/*ARGSUSED*/ -void -dowarp(Char **v, struct command *c) -{ - int warp, oldwarp; - struct warpent *we; - volatile struct sigaction old_sigsys_handler; - char *newwarp; - - if (setjmp(sigsys_buf)) { - sigaction(SIGSYS, &old_sigsys_handler, NULL); - stderror(ERR_NAME | ERR_STRING, - CGETS(23, 8, "You're trapped in a universe you never made")); - return; - } - sigaction(SIGSYS, NULL, &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")); - } - } - sigaction(SIGSYS, &old_sigsys_handler, NULL); -} -#endif /* WARP */ - -/*** - *** Masscomp or HCX - ***/ -/* Added, DAS DEC-90. */ -#if defined(masscomp) || defined(_CX_UX) -static void -setuniverse_cleanup(void *xbuf) -{ - char *buf; - - buf = xbuf; - setuniverse(buf); -} - -/*ARGSUSED*/ -void -douniverse(Char **v, struct command *c) -{ - Char *cp = v[1]; - Char *cp2; /* dunno how many elements v comes in with */ - char ubuf[100]; - - 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")); - cleanup_push(ubuf, setuniverse_cleanup); - if (setintr) { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - lshift(v, 2); - if (setintr) - cleanup_until(&pintr_disabled); - reexecute(c); - cleanup_until(ubuf); - } - } -} -#endif /* masscomp || _CX_UX */ - -/*** - *** BS2000/OSD POSIX (Fujitsu Siemens Computers) - ***/ -#if defined(_OSD_POSIX) -static int -bs2upcase(char *str) -{ - enum { outside = ' ', singlequote='\'', doublequote='"'} string = outside; - - char *white; - - for (white = str + strlen(str) - 1; isspace(*white) && white > str; --white) - *white = '\0'; - - for (; *str != '\0'; ++str) - { - if (string == outside) - { - *str = toupper (*str); - } - if (*str == '\'') - { - if (string == outside) - string = singlequote; - else if (string != doublequote) - string = outside; - } - else if (*str == '"') - { - if (string == outside) - string = doublequote; - else if (string != singlequote) - string = outside; - } - } - if (string != outside) - { - stderror(ERR_NAME | ERR_UNMATCHED, (Char) string); - return 1; - } - return 0; -} -static int -bs2cmdlist(char *str) -{ - char *str_beg = NULL; - int ret = 0; - - enum { outside = ' ', singlequote='\'', doublequote='"'} string = outside; - - while (*str != '\0') - { - while (isspace(*str)) - ++str; - - if (*str == '\0') - break; - - str_beg = str; - - for (; *str != '\0'; ++str) - { - if (string == outside && *str == ';') /* End of command */ - { - *str++ = '\0'; - break; /* continue with next command */ - } - if (*str == '\'') - { - if (string == outside) - string = singlequote; - else if (string != doublequote) - string = outside; - } - else if (*str == '"') - { - if (string == outside) - string = doublequote; - else if (string != singlequote) - string = outside; - } - } - if (strlen(str_beg) != 0) - { - ret = bs2system(str_beg); - flush(); - if (ret != 0 /*&& !option.err_ignore*/) - break; /* do not continue after errors */ - } - } - - if (string != outside) - { - stderror(ERR_NAME | ERR_UNMATCHED, (Char) string); - return -1; - } - - return ret; -} -/*ARGSUSED*/ -void -dobs2cmd(Char **v, struct command *c) -{ - Char *cp, **globbed; - int i = 0, len = 0; - char *cmd = NULL; - int pvec[2]; - struct command faket; - Char *fakecom[2]; - char tibuf[BUFSIZE]; - int icnt, old_pintr_disabled; - static const Char STRbs2cmd[] = { 'b','s','2','c','m','d','\0' }; - - v++; - if (setintr) - pintr_push_enable(&old_pintr_disabled); - v = glob_all_or_error(v); - if (setintr) - cleanup_until(&old_pintr_disabled); - globbed = v; - cleanup_push(globbed, blk_cleanup); - - /* First round: count the string lengths */ - for (i=0; v[i]; ++i) { - len += Strlen(v[i]) + (v[i+1] != NULL); - } - - cmd = xmalloc(len+1); /* 1 for the final '\0' *//* FIXME: memory leak? */ - - /* 2nd round: fill cmd buffer */ - i = 0; - while ((cp = *v++) != 0) { - int c; - while (c = *cp++) - cmd[i++] = (char)c; - if (*v) - cmd[i++] = ' '; - } - cmd[i] = '\0'; - - /* Make upper case */ - bs2upcase(cmd); - - faket.t_dtyp = NODE_COMMAND; - faket.t_dflg = F_BACKQ|F_STDERR; - faket.t_dlef = 0; - faket.t_drit = 0; - faket.t_dspr = 0; - faket.t_dcom = fakecom; - fakecom[0] = (Char *)STRbs2cmd; - fakecom[1] = 0; - - mypipe(pvec); - cleanup_push(&pvec[0], open_cleanup); - cleanup_push(&pvec[1], open_cleanup); - if (pfork(&faket, -1) == 0) { - sigset_t set; - /* child */ - xclose(pvec[0]); - (void) dmove(pvec[1], 1); - (void) dmove(SHDIAG, 2); - initdesc(); - sigemptyset(&set); - sigaddset(&set, SIGINT); - (void)sigprocmask(SIG_UNBLOCK, &set, NULL); -#ifdef SIGTSTP - signal(SIGTSTP, SIG_IGN); -#endif -#ifdef SIGTTIN - signal(SIGTTIN, SIG_IGN); -#endif -#ifdef SIGTTOU - signal(SIGTTOU, SIG_IGN); -#endif - xexit(bs2cmdlist(cmd)); - } - cleanup_until(&pvec[1]); - for(;;) { - int old_pintr_disabled; - - if (setintr) - pintr_push_enable(&old_pintr_disabled); - icnt = xread(pvec[0], tibuf, sizeof(tibuf)); - if (setintr) - cleanup_until(&old_pintr_disabled); - if (icnt <= 0) - break; - for (i = 0; i < icnt; i++) - xputchar((unsigned char) tibuf[i]); - } - cleanup_until(&pvec[0]); - pwait(); - - flush(); - - cleanup_until(globbed); -} -#endif /* _OSD_POSIX */ - -#if defined(_CX_UX) -static void -setuniverse_cleanup(void *xbuf) -{ - char *buf; - - buf = xbuf; - setuniverse(buf); -} - -/*ARGSUSED*/ -void -doatt(Char **v, struct command *c) -{ - Char *cp = v[1]; - char ubuf[100]; - - if (cp == 0) - (void) setuniverse("att"); - else { - (void) getuniverse(ubuf); - (void) setuniverse("att"); - cleanup_push(ubuf, setuniverse_cleanup); - if (setintr) { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - lshift(v, 1); - if (setintr) - cleanup_until(&pintr_disabled); - reexecute(c); - cleanup_until(ubuf); - } -} - -/*ARGSUSED*/ -void -doucb(Char **v, struct command *c) -{ - Char *cp = v[1]; - char ubuf[100]; - - if (cp == 0) - (void) setuniverse("ucb"); - else { - (void) getuniverse(ubuf); - (void) setuniverse("ucb"); - cleanup_push(ubuf, setuniverse_cleanup); - if (setintr) { - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - } - lshift(v, 1); - if (setintr) - cleanup_until(&pintr_disabled); - reexecute(c); - cleanup_until(ubuf); - } -} -#endif /* _CX_UX */ - -#ifdef _SEQUENT_ -/* - * Compute the difference in process stats. - */ -void -pr_stat_sub(struct process_stats *p2, struct process_stats *p1, - struct process_stats *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_ */ - - -#ifndef HAVE_MEMSET -/* This is a replacement for a missing memset function */ -void *xmemset(void *loc, int value, size_t len) -{ - char *ptr = loc; - - while (len--) - *ptr++ = value; - return loc; -} -#endif /* !HAVE_MEMSET */ - - -#ifndef HAVE_MEMMOVE -/* memmove(): - * This is the ANSI form of bcopy() with the arguments backwards... - * Unlike memcpy(), it handles overlaps between source and - * destination memory - */ -void * -xmemmove(void *vdst, const void *vsrc, size_t len) -{ - const char *src = vsrc; - char *dst = 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 /* HAVE_MEMMOVE */ - - -#ifndef WINNT_NATIVE -#ifdef NEEDtcgetpgrp -pid_t -xtcgetpgrp(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(int fd, int pgrp) -{ - return ioctl(fd, TIOCSPGRP, (ioctl_t) &pgrp); -} - -#endif /* NEEDtcgetpgrp */ -#endif /* WINNT_NATIVE */ - - -#ifdef YPBUGS -void -fix_yp_bugs(void) -{ - char *mydomain; - - extern int yp_get_default_domain (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 (const char *); - - yp_unbind(mydomain); - } -} - -#endif /* YPBUGS */ - -#ifdef STRCOLLBUG -void -fix_strcoll_bug(void) -{ -#if defined(NLS) && defined(HAVE_STRCOLL) - /* - * 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 = xopen(root, O_RDONLY|O_LARGEFILE); - - (void) strcoll(root, root); - - if (fd != -1) - xclose(fd); -#endif -} -#endif /* STRCOLLBUG */ - - -#ifdef OREO -#include <compat.h> -#endif /* OREO */ - -void -osinit(void) -{ -#ifdef OREO - set42sig(); - setcompat(getcompat() & ~COMPAT_EXEC); - signal(SIGIO, SIG_IGN); /* ignore SIGIO */ -#endif /* OREO */ - -#ifdef aiws - { - struct sigstack inst; - inst.ss_sp = xmalloc(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 */ -} - -#ifndef HAVE_STRERROR -extern int sys_nerr; -extern char *sys_errlist[]; -char * -xstrerror(int i) -{ - if (i >= 0 && i < sys_nerr) { - return sys_errlist[i]; - } else { - static char *errbuf; /* = NULL; */ - - xfree(errbuf); - errbuf = xasprintf(CGETS(23, 13, "Unknown Error: %d"), i); - return errbuf; - } -} -#endif /* !HAVE_STRERROR */ - -#ifndef HAVE_GETHOSTNAME -# if !defined(_MINIX) && !defined(__EMX__) && !defined(WINNT_NATIVE) -# include <sys/utsname.h> -# endif /* !_MINIX && !__EMX__ && !WINNT_NATIVE */ - -int -xgethostname(char *name, int namlen) -{ -# if !defined(_MINIX) && !defined(__EMX__) && !defined(WINNT_NATIVE) - 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 /* !HAVE_GETHOSTNAME */ - -#ifndef HAVE_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(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 /* !HAVE_NICE */ - -#ifndef HAVE_GETCWD -static char *strnrcpy (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(char *pathname, size_t pathlen) -{ - char pathbuf[MAXPATHLEN]; /* 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); - 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 */ - - -char * -xgetcwd(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_ino & 0xffff) == st_cur.st_ino) - break; -#else - if (d->d_ino == 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)); - 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'; - closedir(dp); - } -} /* end getcwd */ -# endif /* hp9000s500 */ - -/* strnrcpy(): - * Like strncpy, going backwards and returning the new pointer - */ -static char * -strnrcpy(char *ptr, char *str, size_t siz) -{ - int len = strlen(str); - if (siz == 0) - return ptr; - - while (len && siz--) - *--ptr = str[--len]; - - return (ptr); -} /* end strnrcpy */ -#endif /* !HAVE_GETCWD */ - -#ifdef apollo -/*** - *** Domain/OS - ***/ -#include <apollo/base.h> -#include <apollo/loader.h> -#include <apollo/error.h> - - -static char * -apperr(status_$t *st) -{ - static char *buf; /* = NULL */ - 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'; - xfree(buf); - buf = xasprintf("%s (%s/%s)", e_code, e_sub, e_mod); - - return(buf); -} - -static int -llib(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(Char **v, struct command *c) -{ - Char **globbed; - - setname(short2str(*v++)); - v = glob_all_or_error(v); - globbed = v; - cleanup_push(globbed, blk_cleanup); - - while (v && *v) - llib(*v++); - cleanup_until(globbed); -} - -int -getv(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(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(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(void) -{ - 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 df8f747..0000000 --- a/contrib/tcsh/tc.os.h +++ /dev/null @@ -1,597 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.os.h,v 3.101 2006/02/14 00:52:52 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. 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 - -#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 __CYGWIN__ -# undef NOFILE -# define NOFILE sysconf(_SC_OPEN_MAX) -#endif - -#ifdef _VMS_POSIX -# ifndef NOFILE -# define NOFILE 64 -# endif /* NOFILE */ -# define nice(a) setprio((getpid()),a) -# 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 */ - -#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 */ - -#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 TIOCSTI -# include <sys/strtio.h> -# endif -#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 glibc, where all this is - * defined in <termios.h>. Wrapper added. - */ -#if !defined(linux) && !defined(__GNU__) && !defined(__GLIBC__) && !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 */ -# endif /* INTEL || u3b2 || u3b5 || ub15 || u3b20d || ISC || SCO || tower32 */ -#endif /* !glibc && !_VMS_POSIX */ - -#ifdef IRIS4D -# include <sys/time.h> -# include <sys/resource.h> -#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_NATIVE -# ifdef F_SETFD -# ifndef FD_CLOEXEC -# define FD_CLOEXEC 1 -# endif -# define close_on_exec(fd, v) fcntl((fd), F_SETFD, ((v) ? FD_CLOEXEC : 0)) -# 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_NATIVE */ -# define close_on_exec(fd, v) nt_close_on_exec((fd),(v)) -#endif /* !WINNT_NATIVE */ - -/* - * 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 */ - -#ifdef STAT_MACROS_BROKEN -# 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 /* STAT_MACROS_BROKEN */ - -#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 */ - -#if !defined (HAVE_SETPGID) && !defined (SETPGRP_VOID) -# define setpgid(pid, pgrp) setpgrp(pid, pgrp) -#endif - -#if defined(BSDJOBS) && !(defined(POSIX) && defined(POSIXJOBS)) -# define NEEDtcgetpgrp -#endif /* BSDJOBS && !(POSIX && POSIXJOBS) */ - -#ifdef RENO -/* - * RENO has this broken. It is fixed on 4.4BSD - */ -# define NEEDtcgetpgrp -#endif /* RENO */ - -#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 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 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(HAVE_GETHOSTNAME) && !HAVE_DECL_GETHOSTNAME -extern int gethostname (char *, int); -#endif - -#ifndef GETPGRP_VOID -# define mygetpgrp() getpgrp(0) -#else -# define mygetpgrp() getpgrp() -#endif - -#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 (int); -# endif /* toupper */ -# ifndef tolower -extern int tolower (int); -# endif /* tolower */ -extern caddr_t sbrk (int); -# else /* !SUNOS4 */ -# ifndef WINNT_NATIVE -# ifdef hpux -extern void abort(); -extern void qsort(); -# endif /* hpux */ -# endif /* !WINNT_NATIVE */ -# endif /* SUNOS4 */ -#ifndef _CX_UX -extern void perror(); -#endif - -# 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 BSDJOBS -# ifdef BSDTIMES -# ifdef __MACHTEN__ -extern pid_t wait3(); -# endif /* __MACHTEN__ */ -# endif /* BSDTIMES */ -# endif /* BSDJOBS */ - -# 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 HAVE_SHADOW_H -extern struct spwd *getspnam(), *getspent(); -# endif /* HAVE_SHADOW_H */ -# if defined(HAVE_AUTH_H) && defined(HAVE_GETAUTHUID) -extern struct authorization *getauthuid(); -# endif /* HAVE_AUTH_H && HAVE_GETAUTHUID */ -# 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 (int, int, ...); -extern int readlink (const char *, char *, size_t); -extern void setgrent (void); -extern void endgrent (void); -# ifdef REMOTEHOST -# ifndef _SOCKLEN_T /* Avoid Solaris 2.7 bogosity. */ -struct sockaddr; -extern int getpeername (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 (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 */ - -#ifdef SUNOS4 -# include <memory.h> /* memset should be declared in <string.h> but isn't */ -#endif /* SUNOS4 */ - -#if SYSVREL == 4 -# ifdef REMOTEHOST -/* Irix6 defines getpeername(int, void *, int *) which conflicts with - the definition below. */ -# if !defined(__sgi) && !defined(_OSD_POSIX) && !defined(__MVS__) -# ifndef _SOCKLEN_T /* Avoid Solaris 2.7 bogosity. */ -struct sockaddr; -extern int getpeername (int, struct sockaddr *, int *); -# endif /* _SOCKLEN_T */ -# endif /* !__sgi && !_OSD_POSIX && !__MVS__ */ -# endif /* REMOTEHOST */ -# ifndef BSDTIMES -extern int getrlimit (int, struct rlimit *); -extern int setrlimit (int, const struct rlimit *); -# endif /* !BSDTIMES */ -# if defined(SOLARIS2) -extern char *strerror (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 char *sbrk (ssize_t); -extern int ioctl (int, unsigned long, char *); -extern pid_t vfork (void); -extern int killpg (pid_t, int); -#endif /* __osf__ && __alpha && DECOSF1 < 200 */ - -#ifndef va_copy -# ifdef __va_copy -# define va_copy(DEST, SRC) __va_copy(DEST, SRC) -# else -# define va_copy(DEST, SRC) memcpy(&(DEST), &(SRC), sizeof(va_list)) -# endif -#endif - -#endif /* _h_tc_os */ diff --git a/contrib/tcsh/tc.printf.c b/contrib/tcsh/tc.printf.c deleted file mode 100644 index 8db69d5..0000000 --- a/contrib/tcsh/tc.printf.c +++ /dev/null @@ -1,452 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.printf.c,v 3.35 2006/03/02 18:46:45 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. 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("$tcsh: tc.printf.c,v 3.35 2006/03/02 18:46:45 christos Exp $") - -#ifdef lint -#undef va_arg -#define va_arg(a, b) (a ? (b) 0 : (b) 0) -#endif - -#define INF INT_MAX /* should be bigger than any field to print */ - -static char snil[] = "(nil)"; - -static void xaddchar (int); -static void doprnt (void (*) (int), const char *, va_list); - -static void -doprnt(void (*addchar) (int), const char *sfmt, va_list ap) -{ - char *bp; - const char *f; -#ifdef SHORT_STRINGS - const Char *Bp; -#endif /* SHORT_STRINGS */ -#ifdef HAVE_LONG_LONG - long long l; - unsigned long long u; -#else - long l; - unsigned long u; -#endif - char buf[(CHAR_BIT * sizeof (l) + 2) / 3 + 1]; /* Octal: 3 bits per char */ - int i; - int fmt; - unsigned char pad = ' '; - int flush_left = 0, f_width = 0, prec = INF, hash = 0; - int do_long = 0, do_size_t = 0; - int sign = 0; - int attributes = 0; - - - f = sfmt; - for (; *f; f++) { - if (*f != '%') { /* then just out the char */ - (*addchar) (((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(f); - while (isdigit((unsigned char) *f)) - f++; /* skip the digits */ - } - } - - if (*f == '#') { /* alternate form */ - hash = 1; - f++; - } - - if (*f == 'l') { /* long format */ - do_long++; - f++; - if (*f == 'l') { - do_long++; - f++; - } - } - if (*f == 'z') { /* size_t format */ - do_size_t++; - 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': - switch (do_long) { - case 0: - if (do_size_t) - l = (long) (va_arg(ap, size_t)); - else - l = (long) (va_arg(ap, int)); - break; - case 1: -#ifndef HAVE_LONG_LONG - default: -#endif - l = va_arg(ap, long); - break; -#ifdef HAVE_LONG_LONG - default: - l = va_arg(ap, long long); - break; -#endif - } - - 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) (pad | attributes); - for (bp--; bp >= buf; bp--) - (*addchar) (((unsigned char) *bp) | attributes); - if (flush_left) - while (f_width-- > 0) - (*addchar) (' ' | attributes); - break; - - case 'p': - do_long = 1; - hash = 1; - fmt = 'x'; - /*FALLTHROUGH*/ - case 'o': - case 'x': - case 'u': - switch (do_long) { - case 0: - if (do_size_t) - u = va_arg(ap, size_t); - else - u = va_arg(ap, unsigned int); - break; - case 1: -#ifndef HAVE_LONG_LONG - default: -#endif - u = va_arg(ap, unsigned long); - break; -#ifdef HAVE_LONG_LONG - default: - u = va_arg(ap, unsigned long long); - break; -#endif - } - 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) (pad | attributes); - for (bp--; bp >= buf; bp--) - (*addchar) (((unsigned char) *bp) | attributes); - if (flush_left) - while (i-- > 0) - (*addchar) (' ' | attributes); - break; - - - case 'c': - i = va_arg(ap, int); - (*addchar) (i | attributes); - break; - - case 'S': - case 'Q': -#ifdef SHORT_STRINGS - 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++) { - char cbuf[MB_LEN_MAX]; - size_t pos, len; - - if (fmt == 'Q' && *Bp & QUOTE) - (*addchar) ('\\' | attributes); - len = one_wctomb(cbuf, *Bp & CHAR); - for (pos = 0; pos < len; pos++) - (*addchar) ((unsigned char)cbuf[pos] | attributes - | (*Bp & ATTRIBUTES)); - Bp++; - } - if (flush_left) - while (f_width-- > 0) - (*addchar) (' ' | attributes); - break; -#endif /* SHORT_STRINGS */ - - case 's': - case 'q': - bp = va_arg(ap, char *); -lcase_s: - if (!bp) - bp = snil; - f_width = f_width - strlen(bp); - if (!flush_left) - while (f_width-- > 0) - (*addchar) (pad | attributes); - for (i = 0; *bp && i < prec; i++) { - if (fmt == 'q' && *bp & QUOTE) - (*addchar) ('\\' | attributes); - (*addchar) (((unsigned char) *bp & TRIM) | attributes); - bp++; - } - if (flush_left) - while (f_width-- > 0) - (*addchar) (' ' | attributes); - break; - - case 'a': - attributes = va_arg(ap, int); - break; - - case '%': - (*addchar) ('%' | attributes); - break; - - default: - break; - } - flush_left = 0, f_width = 0, prec = INF, hash = 0; - do_size_t = 0, do_long = 0; - sign = 0; - pad = ' '; - } - } -} - - -static char *xstring, *xestring; -static void -xaddchar(int c) -{ - if (xestring == xstring) - *xstring = '\0'; - else - *xstring++ = (char) c; -} - - -pret_t -/*VARARGS*/ -xsnprintf(char *str, size_t size, const char *fmt, ...) -{ - va_list va; - va_start(va, fmt); - - xstring = str; - xestring = str + size - 1; - doprnt(xaddchar, fmt, va); - va_end(va); - *xstring++ = '\0'; -#ifdef PURIFY - return 1; -#endif -} - -pret_t -/*VARARGS*/ -xprintf(const char *fmt, ...) -{ - va_list va; - va_start(va, fmt); - doprnt(xputchar, fmt, va); - va_end(va); -#ifdef PURIFY - return 1; -#endif -} - - -pret_t -xvprintf(const char *fmt, va_list va) -{ - doprnt(xputchar, fmt, va); -#ifdef PURIFY - return 1; -#endif -} - -pret_t -xvsnprintf(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 -} - -char * -xvasprintf(const char *fmt, va_list va) -{ - size_t size; - char *buf; - - buf = NULL; - size = 2048; /* Arbitrary */ - for (;;) { - va_list copy; - - buf = xrealloc(buf, size); - xstring = buf; - xestring = buf + size - 1; - va_copy(copy, va); - doprnt(xaddchar, fmt, copy); - va_end(copy); - if (xstring < xestring) - break; - size *= 2; - } - *xstring++ = '\0'; - return xrealloc(buf, xstring - buf); -} - -char * -xasprintf(const char *fmt, ...) -{ - va_list va; - char *ret; - - va_start (va, fmt); - ret = xvasprintf(fmt, va); - va_end(va); - return ret; -} - - -#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 -fprintf(FILE *fp, const char* fmt, ...) -{ - va_list va; - va_start(va, fmt); - doprnt(xputchar, fmt, va); - va_end(va); - return 1; -} - -int -vfprintf(FILE *fp, const char *fmt, va_list va) -{ - doprnt(xputchar, fmt, va); - return 1; -} - -#endif /* PURIFY */ diff --git a/contrib/tcsh/tc.prompt.c b/contrib/tcsh/tc.prompt.c deleted file mode 100644 index f63fdf0..0000000 --- a/contrib/tcsh/tc.prompt.c +++ /dev/null @@ -1,649 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.prompt.c,v 3.67 2006/11/17 16:26:58 christos Exp $ */ -/* - * tc.prompt.c: Prompt printing 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. 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("$tcsh: tc.prompt.c,v 3.67 2006/11/17 16:26:58 christos Exp $") - -#include "ed.h" -#include "tw.h" - -/* - * kfk 21oct1983 -- add @ (time) and / ($cwd) in prompt. - * PWP 4/27/87 -- rearange for tcsh. - * mrdch@com.tau.edu.il 6/26/89 - added ~, T and .# - rearanged to switch() - * instead of if/elseif - * Luke Mewburn, <lukem@cs.rmit.edu.au> - * 6-Sep-91 changed date format - * 16-Feb-94 rewrote directory prompt code, added $ellipsis - * 29-Dec-96 added rprompt support - */ - -static const char *month_list[12]; -static const char *day_list[7]; - -void -dateinit(void) -{ -#ifdef notyet - int i; - - setlocale(LC_TIME, ""); - - for (i = 0; i < 12; i++) - xfree((ptr_t) month_list[i]); - month_list[0] = strsave(_time_info->abbrev_month[0]); - month_list[1] = strsave(_time_info->abbrev_month[1]); - month_list[2] = strsave(_time_info->abbrev_month[2]); - month_list[3] = strsave(_time_info->abbrev_month[3]); - month_list[4] = strsave(_time_info->abbrev_month[4]); - month_list[5] = strsave(_time_info->abbrev_month[5]); - month_list[6] = strsave(_time_info->abbrev_month[6]); - month_list[7] = strsave(_time_info->abbrev_month[7]); - month_list[8] = strsave(_time_info->abbrev_month[8]); - month_list[9] = strsave(_time_info->abbrev_month[9]); - month_list[10] = strsave(_time_info->abbrev_month[10]); - month_list[11] = strsave(_time_info->abbrev_month[11]); - - for (i = 0; i < 7; i++) - xfree((ptr_t) day_list[i]); - day_list[0] = strsave(_time_info->abbrev_wkday[0]); - day_list[1] = strsave(_time_info->abbrev_wkday[1]); - day_list[2] = strsave(_time_info->abbrev_wkday[2]); - day_list[3] = strsave(_time_info->abbrev_wkday[3]); - day_list[4] = strsave(_time_info->abbrev_wkday[4]); - day_list[5] = strsave(_time_info->abbrev_wkday[5]); - day_list[6] = strsave(_time_info->abbrev_wkday[6]); -#else - month_list[0] = "Jan"; - month_list[1] = "Feb"; - month_list[2] = "Mar"; - month_list[3] = "Apr"; - month_list[4] = "May"; - month_list[5] = "Jun"; - month_list[6] = "Jul"; - month_list[7] = "Aug"; - month_list[8] = "Sep"; - month_list[9] = "Oct"; - month_list[10] = "Nov"; - month_list[11] = "Dec"; - - day_list[0] = "Sun"; - day_list[1] = "Mon"; - day_list[2] = "Tue"; - day_list[3] = "Wed"; - day_list[4] = "Thu"; - day_list[5] = "Fri"; - day_list[6] = "Sat"; -#endif -} - -void -printprompt(int promptno, const char *str) -{ - static const Char *ocp = NULL; - static const char *ostr = NULL; - time_t lclock = time(NULL); - const Char *cp; - - switch (promptno) { - default: - case 0: - cp = varval(STRprompt); - break; - case 1: - cp = varval(STRprompt2); - break; - case 2: - cp = varval(STRprompt3); - break; - case 3: - if (ocp != NULL) { - cp = ocp; - str = ostr; - } - else - cp = varval(STRprompt); - break; - } - - if (promptno < 2) { - ocp = cp; - ostr = str; - } - - xfree(Prompt); - Prompt = NULL; - Prompt = tprintf(FMT_PROMPT, cp, str, lclock, NULL); - if (!editing) { - for (cp = Prompt; *cp ; ) - (void) putwraw(*cp++); - SetAttributes(0); - flush(); - } - - xfree(RPrompt); - RPrompt = NULL; - if (promptno == 0) { /* determine rprompt if using main prompt */ - cp = varval(STRrprompt); - RPrompt = tprintf(FMT_PROMPT, cp, NULL, lclock, NULL); - /* if not editing, put rprompt after prompt */ - if (!editing && RPrompt[0] != '\0') { - for (cp = RPrompt; *cp ; ) - (void) putwraw(*cp++); - SetAttributes(0); - putraw(' '); - flush(); - } - } -} - -static void -tprintf_append_mbs(struct Strbuf *buf, const char *mbs, Char attributes) -{ - while (*mbs != 0) { - Char wc; - - mbs += one_mbtowc(&wc, mbs, MB_LEN_MAX); - Strbuf_append1(buf, wc | attributes); - } -} - -Char * -tprintf(int what, const Char *fmt, const char *str, time_t tim, ptr_t info) -{ - struct Strbuf buf = Strbuf_INIT; - Char *z, *q; - Char attributes = 0; - static int print_prompt_did_ding = 0; - char *cz; - - Char *p; - const Char *cp = fmt; - Char Scp; - struct tm *t = localtime(&tim); - - /* prompt stuff */ - static Char *olduser = NULL; - int updirs; - size_t pdirs; - - cleanup_push(&buf, Strbuf_cleanup); - for (; *cp; cp++) { - if ((*cp == '%') && ! (cp[1] == '\0')) { - cp++; - switch (*cp) { - case 'R': - if (what == FMT_HISTORY) { - cz = fmthist('R', info); - tprintf_append_mbs(&buf, cz, attributes); - xfree(cz); - } else { - if (str != NULL) - tprintf_append_mbs(&buf, str, attributes); - } - break; - case '#': - Strbuf_append1(&buf, - attributes | ((uid == 0) ? PRCHROOT : PRCH)); - break; - case '!': - case 'h': - switch (what) { - case FMT_HISTORY: - cz = fmthist('h', info); - break; - case FMT_SCHED: - cz = xasprintf("%d", *(int *)info); - break; - default: - cz = xasprintf("%d", eventno + 1); - break; - } - tprintf_append_mbs(&buf, cz, attributes); - xfree(cz); - break; - case 'T': /* 24 hour format */ - case '@': - case 't': /* 12 hour am/pm format */ - case 'p': /* With seconds */ - case 'P': - { - char ampm = 'a'; - int hr = t->tm_hour; - - /* addition by Hans J. Albertsson */ - /* and another adapted from Justin Bur */ - if (adrof(STRampm) || (*cp != 'T' && *cp != 'P')) { - if (hr >= 12) { - if (hr > 12) - hr -= 12; - ampm = 'p'; - } - else if (hr == 0) - hr = 12; - } /* else do a 24 hour clock */ - - /* "DING!" stuff by Hans also */ - if (t->tm_min || print_prompt_did_ding || - what != FMT_PROMPT || adrof(STRnoding)) { - if (t->tm_min) - print_prompt_did_ding = 0; - /* - * Pad hour to 2 characters if padhour is set, - * by ADAM David Alan Martin - */ - p = Itoa(hr, adrof(STRpadhour) ? 2 : 0, attributes); - Strbuf_append(&buf, p); - xfree(p); - Strbuf_append1(&buf, attributes | ':'); - p = Itoa(t->tm_min, 2, attributes); - Strbuf_append(&buf, p); - xfree(p); - if (*cp == 'p' || *cp == 'P') { - Strbuf_append1(&buf, attributes | ':'); - p = Itoa(t->tm_sec, 2, attributes); - Strbuf_append(&buf, p); - xfree(p); - } - if (adrof(STRampm) || (*cp != 'T' && *cp != 'P')) { - Strbuf_append1(&buf, attributes | ampm); - Strbuf_append1(&buf, attributes | 'm'); - } - } - else { /* we need to ding */ - size_t i; - - for (i = 0; STRDING[i] != 0; i++) - Strbuf_append1(&buf, attributes | STRDING[i]); - print_prompt_did_ding = 1; - } - } - break; - - case 'M': -#ifndef HAVENOUTMP - if (what == FMT_WHO) - cz = who_info(info, 'M'); - else -#endif /* HAVENOUTMP */ - cz = getenv("HOST"); - /* - * Bug pointed out by Laurent Dami <dami@cui.unige.ch>: don't - * derefrence that NULL (if HOST is not set)... - */ - if (cz != NULL) - tprintf_append_mbs(&buf, cz, attributes); - if (what == FMT_WHO) - xfree(cz); - break; - - case 'm': { - char *scz = NULL; -#ifndef HAVENOUTMP - if (what == FMT_WHO) - scz = cz = who_info(info, 'm'); - else -#endif /* HAVENOUTMP */ - cz = getenv("HOST"); - - if (cz != NULL) - while (*cz != 0 && (what == FMT_WHO || *cz != '.')) { - Char wc; - - cz += one_mbtowc(&wc, cz, MB_LEN_MAX); - Strbuf_append1(&buf, wc | attributes); - } - if (scz) - xfree(scz); - break; - } - - /* lukem: new directory prompt code */ - case '~': - case '/': - case '.': - case 'c': - case 'C': - Scp = *cp; - if (Scp == 'c') /* store format type (c == .) */ - Scp = '.'; - if ((z = varval(STRcwd)) == STRNULL) - break; /* no cwd, so don't do anything */ - - /* show ~ whenever possible - a la dirs */ - if (Scp == '~' || Scp == '.' ) { - static Char *olddir = NULL; - - if (tlength == 0 || olddir != z) { - olddir = z; /* have we changed dir? */ - olduser = getusername(&olddir); - } - if (olduser) - z = olddir; - } - updirs = pdirs = 0; - - /* option to determine fixed # of dirs from path */ - if (Scp == '.' || Scp == 'C') { - int skip; -#ifdef WINNT_NATIVE - Char *oldz = z; - if (z[1] == ':') { - Strbuf_append1(&buf, attributes | *z++); - Strbuf_append1(&buf, attributes | *z++); - } - if (*z == '/' && z[1] == '/') { - Strbuf_append1(&buf, attributes | *z++); - Strbuf_append1(&buf, attributes | *z++); - do { - Strbuf_append1(&buf, attributes | *z++); - } while(*z != '/'); - } -#endif /* WINNT_NATIVE */ - q = z; - while (*z) /* calc # of /'s */ - if (*z++ == '/') - updirs++; - -#ifdef WINNT_NATIVE - /* - * for format type c, prompt will be following... - * c:/path => c:/path - * c:/path/to => c:to - * //machine/share => //machine/share - * //machine/share/folder => //machine:folder - */ - if (oldz[0] == '/' && oldz[1] == '/' && updirs > 1) - Strbuf_append1(&buf, attributes | ':'); -#endif /* WINNT_NATIVE */ - if ((Scp == 'C' && *q != '/')) - updirs++; - - if (cp[1] == '0') { /* print <x> or ... */ - pdirs = 1; - cp++; - } - if (cp[1] >= '1' && cp[1] <= '9') { /* calc # to skip */ - skip = cp[1] - '0'; - cp++; - } - else - skip = 1; - - updirs -= skip; - while (skip-- > 0) { - while ((z > q) && (*z != '/')) - z--; /* back up */ - if (skip && z > q) - z--; - } - if (*z == '/' && z != q) - z++; - } /* . || C */ - - /* print ~[user] */ - if ((olduser) && ((Scp == '~') || - (Scp == '.' && (pdirs || (!pdirs && updirs <= 0))) )) { - Strbuf_append1(&buf, attributes | '~'); - for (q = olduser; *q; q++) - Strbuf_append1(&buf, attributes | *q); - } - - /* RWM - tell you how many dirs we've ignored */ - /* and add '/' at front of this */ - if (updirs > 0 && pdirs) { - if (adrof(STRellipsis)) { - Strbuf_append1(&buf, attributes | '.'); - Strbuf_append1(&buf, attributes | '.'); - Strbuf_append1(&buf, attributes | '.'); - } else { - Strbuf_append1(&buf, attributes | '/'); - Strbuf_append1(&buf, attributes | '<'); - if (updirs > 9) { - Strbuf_append1(&buf, attributes | '9'); - Strbuf_append1(&buf, attributes | '+'); - } else - Strbuf_append1(&buf, attributes | ('0' + updirs)); - Strbuf_append1(&buf, attributes | '>'); - } - } - - while (*z) - Strbuf_append1(&buf, attributes | *z++); - break; - /* lukem: end of new directory prompt code */ - - case 'n': -#ifndef HAVENOUTMP - if (what == FMT_WHO) { - cz = who_info(info, 'n'); - tprintf_append_mbs(&buf, cz, attributes); - xfree(cz); - } - else -#endif /* HAVENOUTMP */ - { - if ((z = varval(STRuser)) != STRNULL) - while (*z) - Strbuf_append1(&buf, attributes | *z++); - } - break; - case 'l': -#ifndef HAVENOUTMP - if (what == FMT_WHO) { - cz = who_info(info, 'l'); - tprintf_append_mbs(&buf, cz, attributes); - xfree(cz); - } - else -#endif /* HAVENOUTMP */ - { - if ((z = varval(STRtty)) != STRNULL) - while (*z) - Strbuf_append1(&buf, attributes | *z++); - } - break; - case 'd': - tprintf_append_mbs(&buf, day_list[t->tm_wday], attributes); - break; - case 'D': - p = Itoa(t->tm_mday, 2, attributes); - Strbuf_append(&buf, p); - xfree(p); - break; - case 'w': - tprintf_append_mbs(&buf, month_list[t->tm_mon], attributes); - break; - case 'W': - p = Itoa(t->tm_mon + 1, 2, attributes); - Strbuf_append(&buf, p); - xfree(p); - break; - case 'y': - p = Itoa(t->tm_year % 100, 2, attributes); - Strbuf_append(&buf, p); - xfree(p); - break; - case 'Y': - p = Itoa(t->tm_year + 1900, 4, attributes); - Strbuf_append(&buf, p); - xfree(p); - break; - case 'S': /* start standout */ - attributes |= STANDOUT; - break; - case 'B': /* start bold */ - attributes |= BOLD; - break; - case 'U': /* start underline */ - attributes |= UNDER; - break; - case 's': /* end standout */ - attributes &= ~STANDOUT; - break; - case 'b': /* end bold */ - attributes &= ~BOLD; - break; - case 'u': /* end underline */ - attributes &= ~UNDER; - break; - case 'L': - ClearToBottom(); - break; - - case 'j': - { - int njobs = -1; - struct process *pp; - - for (pp = proclist.p_next; pp; pp = pp->p_next) - njobs++; - p = Itoa(njobs, 1, attributes); - Strbuf_append(&buf, p); - xfree(p); - break; - } - case '?': - if ((z = varval(STRstatus)) != STRNULL) - while (*z) - Strbuf_append1(&buf, attributes | *z++); - break; - case '$': - expdollar(&buf, &cp, attributes); - /* cp should point the last char of current % sequence */ - cp--; - break; - case '%': - Strbuf_append1(&buf, attributes | '%'); - break; - case '{': /* literal characters start */ -#if LITERAL == 0 - /* - * No literal capability, so skip all chars in the literal - * string - */ - while (*cp != '\0' && (cp[-1] != '%' || *cp != '}')) - cp++; -#endif /* LITERAL == 0 */ - attributes |= LITERAL; - break; - case '}': /* literal characters end */ - attributes &= ~LITERAL; - break; - default: -#ifndef HAVENOUTMP - if (*cp == 'a' && what == FMT_WHO) { - cz = who_info(info, 'a'); - tprintf_append_mbs(&buf, cz, attributes); - xfree(cz); - } - else -#endif /* HAVENOUTMP */ - { - Strbuf_append1(&buf, attributes | '%'); - Strbuf_append1(&buf, attributes | *cp); - } - break; - } - } - else if (*cp == '\\' || *cp == '^') - Strbuf_append1(&buf, attributes | parseescape(&cp)); - else if (*cp == HIST) { /* EGS: handle '!'s in prompts */ - if (what == FMT_HISTORY) - cz = fmthist('h', info); - else - cz = xasprintf("%d", eventno + 1); - tprintf_append_mbs(&buf, cz, attributes); - xfree(cz); - } - else - Strbuf_append1(&buf, attributes | *cp); /* normal character */ - } - cleanup_ignore(&buf); - cleanup_until(&buf); - return Strbuf_finish(&buf); -} - -int -expdollar(struct Strbuf *buf, const Char **srcp, Char attr) -{ - struct varent *vp; - const Char *src = *srcp; - Char *var, *val; - size_t i; - int curly = 0; - - /* found a variable, expand it */ - var = xmalloc((Strlen(src) + 1) * sizeof (*var)); - for (i = 0; ; i++) { - var[i] = *++src & TRIM; - if (i == 0 && var[i] == '{') { - curly = 1; - var[i] = *++src & TRIM; - } - if (!alnum(var[i]) && var[i] != '_') { - - var[i] = '\0'; - break; - } - } - if (curly && (*src & TRIM) == '}') - src++; - - vp = adrof(var); - if (vp && vp->vec) { - for (i = 0; vp->vec[i] != NULL; i++) { - for (val = vp->vec[i]; *val; val++) - if (*val != '\n' && *val != '\r') - Strbuf_append1(buf, *val | attr); - if (vp->vec[i+1]) - Strbuf_append1(buf, ' ' | attr); - } - } - else { - val = (!vp) ? tgetenv(var) : NULL; - if (val) { - for (; *val; val++) - if (*val != '\n' && *val != '\r') - Strbuf_append1(buf, *val | attr); - } else { - *srcp = src; - xfree(var); - return 0; - } - } - - *srcp = src; - xfree(var); - return 1; -} diff --git a/contrib/tcsh/tc.sched.c b/contrib/tcsh/tc.sched.c deleted file mode 100644 index 98c68b9..0000000 --- a/contrib/tcsh/tc.sched.c +++ /dev/null @@ -1,258 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.sched.c,v 3.25 2006/03/02 18:46:45 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. 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("$tcsh: tc.sched.c,v 3.25 2006/03/02 18:46:45 christos Exp $") - -#include "ed.h" -#include "tw.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(void) -{ - if (sched_ptr) - return (sched_ptr->t_when); - return ((time_t) - 1); -} - -/*ARGSUSED*/ -void -dosched(Char **v, struct command *c) -{ - struct sched_event *tp, **pp; - time_t cur_time; - int count, hours, minutes, dif_hour, dif_min; - Char *cp; - int 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 */ -#if defined(_MINIX) && !defined(_MINIX_VMD) - char kludge[10]; - extern char *sprintf(); - sprintf(kludge, CGETS(24, 1, "kludge")); -#endif /* _MINIX && !_MINIX_VMD */ - - v++; - cp = *v++; - if (cp == NULL) { - const 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, *str; - - buf = blkexpand(tp->t_lex); - cleanup_push(buf, xfree); - str = tprintf(FMT_SCHED, fmt, short2str(buf), tp->t_when, &count); - cleanup_until(buf); - cleanup_push(str, xfree); - for (cp = str; *cp;) - xputwchar(*cp++); - cleanup_until(str); - } - 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); - pp = &sched_ptr; - tp = sched_ptr; - while (--count) { - if (tp->t_next == 0) - break; - else { - pp = &tp->t_next; - tp = tp->t_next; - } - } - if (count) - stderror(ERR_SCHEDEV); - *pp = tp->t_next; - blkfree(tp->t_lex); - xfree(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 = 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. */ - for (pp = &sched_ptr; *pp != NULL && tp->t_when >= (*pp)->t_when; - pp = &(*pp)->t_next) - ; - tp->t_next = *pp; - *pp = tp; - tp->t_lex = saveblk(v); -} - -/* - * Execute scheduled events - */ -void -sched_run(void) -{ - time_t cur_time; - struct sched_event *tp; - struct wordent cmd, *nextword, *lastword; - struct command *t; - Char **v, *cp; - - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - - (void) time(&cur_time); - - /* 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 (!(sched_ptr && sched_ptr->t_when < cur_time)) { - cleanup_until(&pintr_disabled); - return; - } - - if (GettingInput) - (void) Cookedmode(); - - while ((tp = sched_ptr) != NULL && tp->t_when < cur_time) { - if (seterr) { - xfree(seterr); - seterr = NULL; - } - cmd.word = STRNULL; - lastword = &cmd; - v = tp->t_lex; - for (cp = *v; cp; cp = *++v) { - nextword = xcalloc(1, sizeof cmd); - nextword->word = Strsave(cp); - lastword->next = nextword; - nextword->prev = lastword; - lastword = nextword; - } - lastword->next = &cmd; - cmd.prev = lastword; - sched_ptr = tp->t_next; /* looping termination cond: */ - blkfree(tp->t_lex); /* straighten out in case of */ - xfree(tp); /* command blow-up. */ - - cleanup_push(&cmd, lex_cleanup); - /* expand aliases like process() does. */ - alias(&cmd); - /* build a syntax tree for the command. */ - t = syntax(cmd.next, &cmd, 0); - cleanup_push(t, syntax_cleanup); - if (seterr) - stderror(ERR_OLD); - /* execute the parse tree. */ - execute(t, -1, NULL, NULL, TRUE); - /* done. free the lex list and parse tree. */ - cleanup_until(&cmd); - } - 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; - - cleanup_until(&pintr_disabled); -} diff --git a/contrib/tcsh/tc.sig.c b/contrib/tcsh/tc.sig.c deleted file mode 100644 index 343754f..0000000 --- a/contrib/tcsh/tc.sig.c +++ /dev/null @@ -1,139 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.sig.c,v 3.36 2006/08/24 20:56:31 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. 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("$tcsh: tc.sig.c,v 3.36 2006/08/24 20:56:31 christos Exp $") - -#include "tc.wait.h" - -void -sigset_interrupting(int sig, void (*fn) (int)) -{ - struct sigaction act; - - act.sa_handler = fn; - sigemptyset(&act.sa_mask); - act.sa_flags = 0; - if (sigaction(sig, &act, NULL) == 0) { - sigset_t set; - sigemptyset(&set); - sigaddset(&set, sig); - sigprocmask(SIG_UNBLOCK, &set, NULL); - } -} - -static volatile sig_atomic_t alrmcatch_pending; /* = 0; */ -static volatile sig_atomic_t pchild_pending; /* = 0; */ -static volatile sig_atomic_t phup_pending; /* = 0; */ -static volatile sig_atomic_t pintr_pending; /* = 0; */ -int alrmcatch_disabled; /* = 0; */ -int phup_disabled; /* = 0; */ -int pchild_disabled; /* = 0; */ -int pintr_disabled; /* = 0; */ - -void -handle_pending_signals(void) -{ - if (!phup_disabled && phup_pending) { - phup_pending = 0; - phup(); - } - if (!pintr_disabled && pintr_pending) { - pintr_pending = 0; - pintr(); - } - if (!pchild_disabled && pchild_pending) { - pchild_pending = 0; - pchild(); - } - if (!alrmcatch_disabled && alrmcatch_pending) { - alrmcatch_pending = 0; - alrmcatch(); - } -} - -void -queue_alrmcatch(int sig) -{ - USE(sig); - alrmcatch_pending = 1; -} - -void -queue_pchild(int sig) -{ - USE(sig); - pchild_pending = 1; -} - -void -queue_phup(int sig) -{ - USE(sig); - phup_pending = 1; -} - -void -queue_pintr(int sig) -{ - USE(sig); - pintr_pending = 1; -} - -void -disabled_cleanup(void *xdisabled) -{ - int *disabled; - - disabled = xdisabled; - if (--*disabled == 0) - handle_pending_signals(); -} - -void -pintr_disabled_restore(void *xold) -{ - int *old; - - old = xold; - pintr_disabled = *old; -} - -void -pintr_push_enable(int *saved) -{ - *saved = pintr_disabled; - pintr_disabled = 0; - cleanup_push(saved, pintr_disabled_restore); - handle_pending_signals(); -} diff --git a/contrib/tcsh/tc.sig.h b/contrib/tcsh/tc.sig.h deleted file mode 100644 index 3578181..0000000 --- a/contrib/tcsh/tc.sig.h +++ /dev/null @@ -1,173 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.sig.h,v 3.32 2006/03/11 15:32:00 mitr 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. 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_NATIVE) -# include <signal.h> -# ifndef SIGCHLD -# define SIGCHLD SIGCLD -# endif /* SIGCHLD */ -#else /* SYSVREL == 0 */ -# include <sys/signal.h> -#endif /* SYSVREL > 0 */ - -#if defined(__APPLE__) || defined(SUNOS4) || defined(DGUX) || defined(hp800) || (SYSVREL > 3 && defined(VFORK)) -# define SAVESIGVEC -#endif /* SUNOS4 || DGUX || hp800 || SVR4 & VFORK */ - -#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)) -# ifdef _MINIX_VMD -# define signal(a, b) signal((a), (a) == SIGCHLD ? SIG_IGN : (b)) -# endif /* _MINIX_VMD */ -#endif /* _MINIX */ - -#ifdef _VMS_POSIX -# define killpg(a, b) kill(-(a), (b)) -#endif /* atp _VMS_POSIX */ - -#ifdef aiws -# undef killpg -# define killpg(a, b) kill(-getpgrp(a), b) -#endif /* aiws */ - -#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(NSIG) -#define NSIG (sizeof(sigset_t) * 8) -#endif /* !NSIG */ -#if !defined(MAXSIG) && defined(NSIG) -# define MAXSIG NSIG -#endif /* !MAXSIG && NSIG */ - -/* - * 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 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, sm) \ - do { \ - sigset_t m__; \ - \ - sigaction(SIGINT, NULL, &(sv)[0]); \ - sigaction(SIGQUIT, NULL, &(sv)[1]); \ - sigaction(SIGTSTP, NULL, &(sv)[2]); \ - sigaction(SIGTTIN, NULL, &(sv)[3]); \ - sigaction(SIGTTOU, NULL, &(sv)[4]); \ - sigaction(SIGTERM, NULL, &(sv)[5]); \ - sigaction(SIGHUP, NULL, &(sv)[6]); \ - sigemptyset(&m__); \ - sigaddset(&m__, SIGINT); \ - sigaddset(&m__, SIGQUIT); \ - sigaddset(&m__, SIGTSTP); \ - sigaddset(&m__, SIGTTIN); \ - sigaddset(&m__, SIGTTOU); \ - sigaddset(&m__, SIGTERM); \ - sigaddset(&m__, SIGHUP); \ - sigprocmask(SIG_BLOCK, &m__, &sm); \ - } while (0) - -# define restoresigvec(sv, sm) \ - do { \ - sigaction(SIGINT, &(sv)[0], NULL); \ - sigaction(SIGQUIT, &(sv)[1], NULL); \ - sigaction(SIGTSTP, &(sv)[2], NULL); \ - sigaction(SIGTTIN, &(sv)[3], NULL); \ - sigaction(SIGTTOU, &(sv)[4], NULL); \ - sigaction(SIGTERM, &(sv)[5], NULL); \ - sigaction(SIGHUP, &(sv)[6], NULL); \ - sigprocmask(SIG_SETMASK, &sm, NULL); \ - } while (0) -# endif /* SAVESIGVEC */ - -extern int alrmcatch_disabled; -extern int pchild_disabled; -extern int phup_disabled; -extern int pintr_disabled; - -extern void sigset_interrupting(int, void (*) (int)); -extern void handle_pending_signals(void); - -extern void queue_alrmcatch(int); -extern void queue_pchild(int); -extern void queue_phup(int); -extern void queue_pintr(int); - -extern void disabled_cleanup(void *); -extern void pintr_disabled_restore(void *); -extern void pintr_push_enable(int *); - -#endif /* _h_tc_sig */ diff --git a/contrib/tcsh/tc.str.c b/contrib/tcsh/tc.str.c deleted file mode 100644 index b94671e..0000000 --- a/contrib/tcsh/tc.str.c +++ /dev/null @@ -1,599 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.str.c,v 3.26 2006/03/02 18:46:45 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. 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 <limits.h> - -RCSID("$tcsh: tc.str.c,v 3.26 2006/03/02 18:46:45 christos Exp $") - -#define MALLOC_INCR 128 -#ifdef WIDE_STRINGS -#define MALLOC_SURPLUS MB_LEN_MAX /* Space for one multibyte character */ -#else -#define MALLOC_SURPLUS 0 -#endif - -#ifdef WIDE_STRINGS -size_t -one_mbtowc(wchar_t *pwc, const char *s, size_t n) -{ - int len; - - len = rt_mbtowc(pwc, s, n); - if (len == -1) { - mbtowc(NULL, NULL, 0); - *pwc = (unsigned char)*s | INVALID_BYTE; - } - if (len <= 0) - len = 1; - return len; -} - -size_t -one_wctomb(char *s, wchar_t wchar) -{ - int len; - - if (wchar & INVALID_BYTE) { - s[0] = wchar & 0xFF; - len = 1; - } else { - len = wctomb(s, wchar); - if (len == -1) - s[0] = wchar; - if (len <= 0) - len = 1; - } - return len; -} - -int -rt_mbtowc(wchar_t *pwc, const char *s, size_t n) -{ - int ret; - char back[MB_LEN_MAX]; - - ret = mbtowc(pwc, s, n); - if (ret > 0 && (wctomb(back, *pwc) != ret || memcmp(s, back, ret) != 0)) - ret = -1; - return ret; -} -#endif - -#ifdef SHORT_STRINGS -Char ** -blk2short(char **src) -{ - size_t n; - Char **sdst, **dst; - - /* - * Count - */ - for (n = 0; src[n] != NULL; n++) - continue; - sdst = dst = xmalloc((n + 1) * sizeof(Char *)); - - for (; *src != NULL; src++) - *dst++ = SAVE(*src); - *dst = NULL; - return (sdst); -} - -char ** -short2blk(Char **src) -{ - size_t n; - char **sdst, **dst; - - /* - * Count - */ - for (n = 0; src[n] != NULL; n++) - continue; - sdst = dst = xmalloc((n + 1) * sizeof(char *)); - - for (; *src != NULL; src++) - *dst++ = strsave(short2str(*src)); - *dst = NULL; - return (sdst); -} - -Char * -str2short(const char *src) -{ - static struct Strbuf buf; /* = Strbuf_INIT; */ - - if (src == NULL) - return (NULL); - - buf.len = 0; - while (*src) { - Char wc; - - src += one_mbtowc(&wc, src, MB_LEN_MAX); - Strbuf_append1(&buf, wc); - } - Strbuf_terminate(&buf); - return buf.s; -} - -char * -short2str(const Char *src) -{ - static char *sdst = NULL; - static size_t dstsize = 0; - char *dst, *edst; - - if (src == NULL) - return (NULL); - - if (sdst == NULL) { - dstsize = MALLOC_INCR; - sdst = xmalloc((dstsize + MALLOC_SURPLUS) * sizeof(char)); - } - dst = sdst; - edst = &dst[dstsize]; - while (*src) { - dst += one_wctomb(dst, *src & CHAR); - src++; - if (dst >= edst) { - dstsize += MALLOC_INCR; - sdst = xrealloc(sdst, (dstsize + MALLOC_SURPLUS) * sizeof(char)); - edst = &sdst[dstsize]; - dst = &edst[-MALLOC_INCR]; - } - } - *dst = 0; - return (sdst); -} - -#ifndef WIDE_STRINGS -Char * -s_strcpy(Char *dst, const Char *src) -{ - Char *sdst; - - sdst = dst; - while ((*dst++ = *src++) != '\0') - continue; - return (sdst); -} - -Char * -s_strncpy(Char *dst, const Char *src, size_t n) -{ - 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(Char *dst, const Char *src) -{ - Strcpy(Strend(dst), src); - return dst; -} - -#ifdef NOTUSED -Char * -s_strncat(Char *dst, const Char *src, size_t n) -{ - Char *sdst; - - if (n == 0) - return (dst); - - sdst = dst; - - while (*dst) - dst++; - - do - if ((*dst++ = *src++) == '\0') - return(sdst); - while (--n != 0) - continue; - - *dst = '\0'; - return (sdst); -} - -#endif - -Char * -s_strchr(const Char *str, int ch) -{ - do - if (*str == ch) - return ((Char *)(intptr_t)str); - while (*str++); - return (NULL); -} - -Char * -s_strrchr(const Char *str, int ch) -{ - const Char *rstr; - - rstr = NULL; - do - if (*str == ch) - rstr = str; - while (*str++); - return ((Char *)(intptr_t)rstr); -} - -size_t -s_strlen(const Char *str) -{ - size_t n; - - for (n = 0; *str++; n++) - continue; - return (n); -} - -int -s_strcmp(const Char *str1, const Char *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(const Char *str1, const Char *str2, 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); -} -#endif /* not WIDE_STRINGS */ - -int -s_strcasecmp(const Char *str1, const Char *str2) -{ -#ifdef WIDE_STRINGS - wchar_t l1 = 0, l2 = 0; - for (; *str1 && ((*str1 == *str2 && (l1 = l2 = 0) == 0) || - (l1 = towlower(*str1)) == (l2 = towlower(*str2))); str1++, str2++) - continue; - -#else - unsigned char c1, c2, l1 = 0, l2 = 0; - for (; *str1 && ((*str1 == *str2 && (l1 = l2 = 0) == 0) || - ((c1 = (unsigned char)*str1) == *str1 && - (c2 = (unsigned char)*str2) == *str2 && - (l1 = tolower(c1)) == (l2 = tolower(c2)))); str1++, str2++) - continue; -#endif - /* - * 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 if (l1 == l2) /* They are zero when they are equal */ - return (*str1 - *str2); - else - return (l1 - l2); -} - -Char * -s_strnsave(const Char *s, size_t len) -{ - Char *n; - - n = xmalloc((len + 1) * sizeof (*n)); - memcpy(n, s, len * sizeof (*n)); - n[len] = '\0'; - return n; -} - -Char * -s_strsave(const Char *s) -{ - Char *n; - size_t size; - - if (s == NULL) - s = STRNULL; - size = (Strlen(s) + 1) * sizeof(*n); - n = xmalloc(size); - memcpy(n, s, size); - return (n); -} - -Char * -s_strspl(const Char *cp, const Char *dp) -{ - Char *res, *ep; - const Char *p, *q; - - if (!cp) - cp = STRNULL; - if (!dp) - dp = STRNULL; - for (p = cp; *p++;) - continue; - for (q = dp; *q++;) - continue; - res = xmalloc(((p - cp) + (q - dp) - 1) * sizeof(Char)); - for (ep = res, q = cp; (*ep++ = *q++) != '\0';) - continue; - for (ep--, q = dp; (*ep++ = *q++) != '\0';) - continue; - return (res); -} - -Char * -s_strend(const Char *cp) -{ - if (!cp) - return ((Char *)(intptr_t) cp); - while (*cp) - cp++; - return ((Char *)(intptr_t) cp); -} - -Char * -s_strstr(const Char *s, const Char *t) -{ - do { - const Char *ss = s; - const Char *tt = t; - - do - if (*tt == '\0') - return ((Char *)(intptr_t) s); - while (*ss++ == *tt++); - } while (*s++ != '\0'); - return (NULL); -} - -#else /* !SHORT_STRINGS */ -char * -caching_strip(const char *s) -{ - static char *buf = NULL; - static size_t buf_size = 0; - size_t size; - - if (s == NULL) - return NULL; - size = strlen(s) + 1; - if (buf_size < size) { - buf = xrealloc(buf, size); - buf_size = size; - } - memcpy(buf, s, size); - strip(buf); - return buf; -} -#endif - -char * -short2qstr(const Char *src) -{ - static char *sdst = NULL; - static size_t dstsize = 0; - char *dst, *edst; - - if (src == NULL) - return (NULL); - - if (sdst == NULL) { - dstsize = MALLOC_INCR; - sdst = xmalloc((dstsize + MALLOC_SURPLUS) * sizeof(char)); - } - dst = sdst; - edst = &dst[dstsize]; - while (*src) { - if (*src & QUOTE) { - *dst++ = '\\'; - if (dst == edst) { - dstsize += MALLOC_INCR; - sdst = xrealloc(sdst, - (dstsize + MALLOC_SURPLUS) * sizeof(char)); - edst = &sdst[dstsize]; - dst = &edst[-MALLOC_INCR]; - } - } - dst += one_wctomb(dst, *src & CHAR); - src++; - if (dst >= edst) { - dstsize += MALLOC_INCR; - sdst = xrealloc(sdst, (dstsize + MALLOC_SURPLUS) * sizeof(char)); - edst = &sdst[dstsize]; - dst = &edst[-MALLOC_INCR]; - } - } - *dst = 0; - return (sdst); -} - -static void -bb_store(struct blk_buf *bb, Char *str) -{ - if (bb->len == bb->size) { /* Keep space for terminating NULL */ - if (bb->size == 0) - bb->size = 16; /* Arbitrary */ - else - bb->size *= 2; - bb->vec = xrealloc(bb->vec, bb->size * sizeof (*bb->vec)); - } - bb->vec[bb->len] = str; -} - -void -bb_append(struct blk_buf *bb, Char *str) -{ - bb_store(bb, str); - bb->len++; -} - -void -bb_cleanup(void *xbb) -{ - struct blk_buf *bb; - size_t i; - - bb = xbb; - for (i = 0; i < bb->len; i++) - xfree(bb->vec[i]); - xfree(bb->vec); -} - -Char ** -bb_finish(struct blk_buf *bb) -{ - bb_store(bb, NULL); - return xrealloc(bb->vec, (bb->len + 1) * sizeof (*bb->vec)); -} - -#define DO_STRBUF(STRBUF, CHAR, STRLEN) \ -static void \ -STRBUF##_store1(struct STRBUF *buf, CHAR c) \ -{ \ - if (buf->size == buf->len) { \ - if (buf->size == 0) \ - buf->size = 64; /* Arbitrary */ \ - else \ - buf->size *= 2; \ - buf->s = xrealloc(buf->s, buf->size * sizeof(*buf->s)); \ - } \ - buf->s[buf->len] = c; \ -} \ - \ -/* Like strbuf_append1(buf, '\0'), but don't advance len */ \ -void \ -STRBUF##_terminate(struct STRBUF *buf) \ -{ \ - STRBUF##_store1(buf, '\0'); \ -} \ - \ -void \ -STRBUF##_append1(struct STRBUF *buf, CHAR c) \ -{ \ - STRBUF##_store1(buf, c); \ - buf->len++; \ -} \ - \ -void \ -STRBUF##_appendn(struct STRBUF *buf, const CHAR *s, size_t len) \ -{ \ - if (buf->size < buf->len + len) { \ - if (buf->size == 0) \ - buf->size = 64; /* Arbitrary */ \ - while (buf->size < buf->len + len) \ - buf->size *= 2; \ - buf->s = xrealloc(buf->s, buf->size * sizeof(*buf->s)); \ - } \ - memcpy(buf->s + buf->len, s, len * sizeof(*buf->s)); \ - buf->len += len; \ -} \ - \ -void \ -STRBUF##_append(struct STRBUF *buf, const CHAR *s) \ -{ \ - STRBUF##_appendn(buf, s, STRLEN(s)); \ -} \ - \ -CHAR * \ -STRBUF##_finish(struct STRBUF *buf) \ -{ \ - STRBUF##_append1(buf, 0); \ - return xrealloc(buf->s, buf->len * sizeof(*buf->s)); \ -} \ - \ -void \ -STRBUF##_cleanup(void *xbuf) \ -{ \ - struct STRBUF *buf; \ - \ - buf = xbuf; \ - xfree(buf->s); \ -} \ - \ -const struct STRBUF STRBUF##_init /* = STRBUF##_INIT; */ - -DO_STRBUF(strbuf, char, strlen); -DO_STRBUF(Strbuf, Char, Strlen); diff --git a/contrib/tcsh/tc.vers.c b/contrib/tcsh/tc.vers.c deleted file mode 100644 index b93e176..0000000 --- a/contrib/tcsh/tc.vers.c +++ /dev/null @@ -1,175 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.vers.c,v 3.54 2006/03/02 18:46:45 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. 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("$tcsh: tc.vers.c,v 3.54 2006/03/02 18:46:45 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(void) -{ -#ifdef WIDE_STRINGS -# define SSSTR "wide" -#elif defined (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 defined(FILEC) && defined(TIOCSTI) -# define FILECSTR ",filec" -#else -# define FILECSTR "" -#endif -/* if you want your local version to say something */ -#ifndef LOCALSTR -# define LOCALSTR "" -#endif /* LOCALSTR */ - char *version; - const Char *machtype = tgetenv(STRMACHTYPE); - const Char *vendor = tgetenv(STRVENDOR); - const Char *ostype = tgetenv(STROSTYPE); - - if (vendor == NULL) - vendor = STRunknown; - if (machtype == NULL) - machtype = STRunknown; - if (ostype == NULL) - ostype = STRunknown; - - - version = xasprintf( -"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%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, FILECSTR, LOCALSTR); - cleanup_push(version, xfree); - setcopy(STRversion, str2short(version), VAR_READWRITE); - cleanup_until(version); - version = xasprintf("%d.%.2d.%.2d", REV, VERS, PATCHLEVEL); - cleanup_push(version, xfree); - setcopy(STRtcsh, str2short(version), VAR_READWRITE); - cleanup_until(version); -} diff --git a/contrib/tcsh/tc.wait.h b/contrib/tcsh/tc.wait.h deleted file mode 100644 index 4bda506..0000000 --- a/contrib/tcsh/tc.wait.h +++ /dev/null @@ -1,155 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.wait.h,v 3.14 2004/12/25 21:15:08 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. 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) && !defined(__GNU__) && !defined(__GLIBC__) -# 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 || glibc */ -# ifdef _MINIX -# undef NEEDwait -# include "mi.wait.h" -# else -# ifndef WINNT_NATIVE -# include <sys/wait.h> -# endif /* WINNT_NATIVE */ -# endif /* _MINIX */ -#endif /* SYSVREL == 0 || glibc */ - -#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(__vax__) || defined(i386) || 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 || __vax__ || i386 || _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 2aa0686..0000000 --- a/contrib/tcsh/tc.who.c +++ /dev/null @@ -1,703 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tc.who.c,v 3.51 2006/03/03 22:08:45 amold 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. 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("$tcsh: tc.who.c,v 3.51 2006/03/03 22:08:45 amold Exp $") - -#include "tc.h" - -#ifndef HAVENOUTMP -/* - * kfk 26 Jan 1984 - for login watch functions. - */ -#include <ctype.h> - -#ifdef HAVE_UTMPX_H -# 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 - */ -# if defined(__UTMPX_FILE) && !defined(UTMPX_FILE) -# define TCSH_PATH_UTMP __UTMPX_FILE -# elif defined(_PATH_UTMPX) -# define TCSH_PATH_UTMP _PATH_UTMPX -# elif defined(UTMPX_FILE) -# define TCSH_PATH_UTMP UTMPX_FILE -# endif /* __UTMPX_FILE && !UTMPX_FILE */ -# ifdef TCSH_PATH_UTMP -# define utmp utmpx -# if defined(HAVE_STRUCT_UTMP_UT_TV) -# define ut_time ut_tv.tv_sec -# elif defined(HAVE_STRUCT_UTMP_UT_XTIME) -# define ut_time ut_xtime -# endif -# ifdef HAVE_STRUCT_UTMP_UT_USER -# define ut_name ut_user -# endif -# ifdef HAVE_GETUTENT -# define getutent getutxent -# define setutent setutxent -# define endutent endutxent -# endif /* HAVE_GETUTENT */ -# else -# ifdef HAVE_UTMP_H -# include <utmp.h> -# endif /* WINNT_NATIVE */ -# endif /* TCSH_PATH_UTMP */ -#else /* !HAVE_UTMPX_H */ -# ifdef HAVE_UTMP_H -# include <utmp.h> -# endif /* WINNT_NATIVE */ -#endif /* HAVE_UTMPX_H */ - -#ifndef BROKEN_CC -# define UTNAMLEN sizeof(((struct utmp *) 0)->ut_name) -# define UTLINLEN sizeof(((struct utmp *) 0)->ut_line) -# ifdef HAVE_STRUCT_UTMP_UT_HOST -# ifdef _SEQUENT_ -# define UTHOSTLEN 100 -# else -# define UTHOSTLEN sizeof(((struct utmp *) 0)->ut_host) -# endif -# endif /* HAVE_STRUCT_UTMP_UT_HOST */ -#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 HAVE_STRUCT_UTMP_UT_HOST -# ifdef _SEQUENT_ -# define UTHOSTLEN 100 -# else -# define UTHOSTLEN sizeof(__ut.ut_host) -# endif -# endif /* HAVE_STRUCT_UTMP_UT_HOST */ -#endif /* BROKEN_CC */ - -#ifndef TCSH_PATH_UTMP -# ifdef UTMP_FILE -# define TCSH_PATH_UTMP UTMP_FILE -# elif defined(_PATH_UTMP) -# define TCSH_PATH_UTMP _PATH_UTMP -# else -# define TCSH_PATH_UTMP "/etc/utmp" -# endif /* UTMP_FILE */ -#endif /* TCSH_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 HAVE_STRUCT_UTMP_UT_HOST - char who_host[UTHOSTLEN + 1]; -#endif /* HAVE_STRUCT_UTMP_UT_HOST */ - 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 (struct who *, struct who *); -#endif -static void print_who (struct who *); - - -#define ONLINE 01 -#define OFFLINE 02 -#define CHANGED 04 -#define STMASK 07 -#define ANNOUNCE 010 -#define CLEARED 020 - -/* - * 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(void) -{ - whohead.who_next = &whotail; - whotail.who_prev = &whohead; - stlast = 1; -#ifdef WHODEBUG - debugwholist(NULL, NULL); -#endif /* WHODEBUG */ -} - -void -resetwatch(void) -{ - watch_period = 0; - stlast = 0; -} - -/* - * Karl Kleinpaste, 26 Jan 1984. - * Watch /etc/utmp for login/logout changes. - */ -void -watch_login(int force) -{ - int comp = -1, alldone; - int firsttime = stlast == 1; -#ifdef HAVE_GETUTENT - struct utmp *uptr; -#else - int utmpfd; -#endif - struct utmp utmp; - struct who *wp, *wpnew; - struct varent *v; - Char **vp = NULL; - time_t t, interval = MAILINTVL; - struct stat sta; -#if defined(HAVE_STRUCT_UTMP_UT_HOST) && defined(_SEQUENT_) - char *host, *ut_find_host(); -#endif -#ifdef WINNT_NATIVE - static int ncbs_posted = 0; - USE(utmp); - USE(utmpfd); - USE(sta); - USE(wpnew); -#endif /* WINNT_NATIVE */ - - /* stop SIGINT, lest our login list get trashed. */ - pintr_disabled++; - cleanup_push(&pintr_disabled, disabled_cleanup); - - v = adrof(STRwatch); - if ((v == NULL || v->vec == NULL) && !force) { - cleanup_until(&pintr_disabled); - 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_NATIVE - /* - * Since NCB_ASTATs take time, start em async at least 90 secs - * before we are due -amol 6/5/97 - */ - if (!ncbs_posted) { - time_t tdiff = t - watch_period; - if (!watch_period || ((tdiff > 0) && (tdiff > (interval - 90)))) { - start_ncbs(vp); - ncbs_posted = 1; - } - } -#endif /* WINNT_NATIVE */ - if (t - watch_period < interval) { - cleanup_until(&pintr_disabled); - return; /* not long enough yet... */ - } - watch_period = t; -#ifdef WINNT_NATIVE - ncbs_posted = 0; -#else /* !WINNT_NATIVE */ - - /* - * From: Michael Schroeder <mlschroe@immd4.informatik.uni-erlangen.de> - * Don't open utmp all the time, stat it first... - */ - if (stat(TCSH_PATH_UTMP, &sta)) { - if (!force) - xprintf(CGETS(26, 1, - "cannot stat %s. Please \"unset watch\".\n"), - TCSH_PATH_UTMP); - cleanup_until(&pintr_disabled); - return; - } - if (stlast == sta.st_mtime) { - cleanup_until(&pintr_disabled); - return; - } - stlast = sta.st_mtime; -#ifdef HAVE_GETUTENT - setutent(); -#else - if ((utmpfd = xopen(TCSH_PATH_UTMP, O_RDONLY|O_LARGEFILE)) < 0) { - if (!force) - xprintf(CGETS(26, 2, - "%s cannot be opened. Please \"unset watch\".\n"), - TCSH_PATH_UTMP); - cleanup_until(&pintr_disabled); - return; - } - cleanup_push(&utmpfd, open_cleanup); -#endif - - /* - * 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 | CLEARED; - - /* - * Read in the utmp file, sort the entries, and update existing entries or - * add new entries to the status list. - */ -#ifdef HAVE_GETUTENT - while ((uptr = getutent()) != NULL) { - memcpy(&utmp, uptr, sizeof (utmp)); -#else - while (xread(utmpfd, &utmp, sizeof utmp) == sizeof utmp) { -#endif - -# 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... */ - if (utmp.ut_time < wp->who_time) - continue; -# 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 = ONLINE | ANNOUNCE; /* same guy */ - } - else { - (void) strncpy(wp->who_new, utmp.ut_name, UTNAMLEN); -# ifdef HAVE_STRUCT_UTMP_UT_HOST -# 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 /* HAVE_STRUCT_UTMP_UT_HOST */ - 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 = xcalloc(1, sizeof *wpnew); - (void) strncpy(wpnew->who_tty, utmp.ut_line, UTLINLEN); -# ifdef HAVE_STRUCT_UTMP_UT_HOST -# 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 /* HAVE_STRUCT_UTMP_UT_HOST */ - 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 */ - } - } -#ifdef HAVE_GETUTENT - endutent(); -#else - cleanup_until(&utmpfd); -#endif -# if defined(HAVE_STRUCT_UTMP_UT_HOST) && defined(_SEQUENT_) - endutent(); -# endif -#endif /* !WINNT_NATIVE */ - - if (force || vp == NULL) { - cleanup_until(&pintr_disabled); - 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_status & CLEARED) {/* utmp entry was cleared */ - wp->who_time = watch_period; - wp->who_status &= ~CLEARED; - } - - 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; - } - } - } - cleanup_until(&pintr_disabled); -} - -#ifdef WHODEBUG -static void -debugwholist(struct who *new, struct who *wp) -{ - 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(struct who *wp) -{ -#ifdef HAVE_STRUCT_UTMP_UT_HOST - Char *cp = str2short(CGETS(26, 7, "%n has %a %l from %m.")); -#else - Char *cp = str2short(CGETS(26, 8, "%n has %a %l.")); -#endif /* HAVE_STRUCT_UTMP_UT_HOST */ - struct varent *vp = adrof(STRwho); - Char *str; - - if (vp && vp->vec && vp->vec[0]) - cp = vp->vec[0]; - - str = tprintf(FMT_WHO, cp, NULL, wp->who_time, wp); - cleanup_push(str, xfree); - for (cp = str; *cp;) - xputwchar(*cp++); - cleanup_until(str); - xputchar('\n'); -} /* end print_who */ - - -char * -who_info(ptr_t ptr, int c) -{ - struct who *wp = ptr; - char *wbuf; -#ifdef HAVE_STRUCT_UTMP_UT_HOST - char *wb; - int flg; - char *pb; -#endif /* HAVE_STRUCT_UTMP_UT_HOST */ - - switch (c) { - case 'n': /* user name */ - switch (wp->who_status & STMASK) { - case ONLINE: - case CHANGED: - return strsave(wp->who_new); - case OFFLINE: - return strsave(wp->who_name); - default: - break; - } - break; - - case 'a': - switch (wp->who_status & STMASK) { - case ONLINE: - return strsave(CGETS(26, 9, "logged on")); - case OFFLINE: - return strsave(CGETS(26, 10, "logged off")); - case CHANGED: - return xasprintf(CGETS(26, 11, "replaced %s on"), wp->who_name); - default: - break; - } - break; - -#ifdef HAVE_STRUCT_UTMP_UT_HOST - case 'm': - if (wp->who_host[0] == '\0') - return strsave(CGETS(26, 12, "local")); - else { - pb = wp->who_host; - wbuf = xmalloc(strlen(pb) + 1); - wb = wbuf; - /* the ':' stuff is for <host>:<display>.<screen> */ - for (flg = isdigit((unsigned char)*pb) ? '\0' : '.'; - *pb != '\0' && (*pb != flg || ((pb = strchr(pb, ':')) != 0)); - pb++) { - if (*pb == ':') - flg = '\0'; - *wb++ = isupper((unsigned char)*pb) ? - tolower((unsigned char)*pb) : *pb; - } - *wb = '\0'; - return wbuf; - } - - case 'M': - if (wp->who_host[0] == '\0') - return strsave(CGETS(26, 12, "local")); - else { - pb = wp->who_host; - wbuf = xmalloc(strlen(pb) + 1); - wb = wbuf; - for (; *pb != '\0'; pb++) - *wb++ = isupper((unsigned char)*pb) ? - tolower((unsigned char)*pb) : *pb; - *wb = '\0'; - return wbuf; - } -#endif /* HAVE_STRUCT_UTMP_UT_HOST */ - - case 'l': - return strsave(wp->who_tty); - - default: - wbuf = xmalloc(3); - wbuf[0] = '%'; - wbuf[1] = (char) c; - wbuf[2] = '\0'; - return wbuf; - } - return NULL; -} - -void -/*ARGSUSED*/ -dolog(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 HAVE_STRUCT_UTMP_UT_HOST -size_t -utmphostsize(void) -{ - return UTHOSTLEN; -} - -char * -utmphost(void) -{ - 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 /* HAVE_STRUCT_UTMP_UT_HOST */ - -#ifdef WINNT_NATIVE -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 = 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_NATIVE */ -#endif /* HAVENOUTMP */ diff --git a/contrib/tcsh/tcsh.man b/contrib/tcsh/tcsh.man deleted file mode 100644 index 0c9c3b6..0000000 --- a/contrib/tcsh/tcsh.man +++ /dev/null @@ -1,5255 +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. 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 "3 March 2007" "Astron 6.15.00" -.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 does not load any resource or startup files, or perform any -command hashing, and thus starts faster. -.TP 4 -.B \-F -The shell uses \fIfork\fR(2) instead of \fIvfork\fR(2) to spawn processes. (+) -.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. -.TP 4 -.B \-\-help -Print a help message on the standard output and exit. (+) -.TP 4 -.B \-\-version -Print the version/platform/compilation options on the standard output and exit. -This information is also contained in the \fBversion\fR shell variable. (+) -.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 -For examples of startup files, please consult -\fIhttp://tcshrc.sourceforge.net\fR. -.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 inserts 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. -.TP 8 -.B yank-pop \fR(M-y) -When executed immediately after a \fIyank\fR or another \fIyank-pop\fR, -replaces the yanked string with the next previous string from the -killring. This also has the effect of rotating the killring, such that -this string will be considered the most recently killed by a later -\fIyank\fR command. Repeating \fIyank-pop\fR will cycle through the -killring any number of times. -.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 `!{3}d'. -.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. -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 search or event number in 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. -With the `s' modifier, only the patterns contained in the original word are -substituted, not patterns that contain any substitution result. -.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 -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 some of 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. -.PP -By default, the shell since version 6.12 replaces all newline and carriage -return characters in the command by spaces. If this is switched off by -unsetting \fBcsubstnonl\fR, newlines separate commands as usual. -.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 the shell is not given a \fB\-f\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. This hashing mechanism is -not used: -.TP 4 -.B 1. -If hashing is turned explicitly off via \fIunhash\fR. -.TP 4 -.B 2. -If the shell was given a \fB\-f\fR argument. -.TP 4 -.B 3. -For each directory component of \fBpath\fR which does not begin with a `/'. -.TP 4 -.B 4. -If the command contains a `/'. -.PP -In the above four cases the shell concatenates each component of the path -vector with the given command name to form a path name of a file which it -then attempts to execute it. If execution is successful, the search stops. -.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 -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, \fIpostcmd\fR, -and \fIjobcmd\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, before each command gets executed, after each -command gets executed, and when a job is started or is brought into the -foreground. -.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 character code -(e.g., the classification of 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 code/classification and sorting -(e.g., a 'en_CA.UTF-8' would yield "UTF-8" as a character code). -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 BS2000, \fIbs2cmd\fR executes commands of the underlying BS2000/OSD -operating system. -.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. -.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. -.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 bs2cmd \fIbs2000-command\fR (+) -Passes \fIbs2000-command\fR to the BS2000 command interpreter for -execution. Only non-interactive commands can be executed, and it is -not possible to execute any command that would overlay the image -of the current process, like /EXECUTE or /CALL-PROCEDURE. (BS2000 only) -.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 -.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 -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 0. -.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 the `-n' parameter is not 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 -.PD 0 -.TP 8 -.B kill \fR[\fB\-s \fIsignal\fR] \fB%\fIjob\fR|\fIpid\fR ... -.PD 0 -.TP 8 -.B kill \-l -The first and second forms 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 third form lists the signal names. -.PD -.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 (if supported by the OS): -.TP -\fIcputime\fR -the maximum number of cpu-seconds to be used by each process -.TP -\fIfilesize\fR -the largest single file which can be created -.TP -\fIdatasize\fR -the maximum growth of the data+stack region via sbrk(2) beyond -the end of the program text -.TP -\fIstacksize\fR -the maximum size of the automatically-extended stack region -.TP -\fIcoredumpsize\fR -the size of the largest core dump that will be created -.TP -\fImemoryuse\fR -the maximum amount of physical memory a process -may have allocated to it at a given time -.TP -\fIheapsize\fR -the maximum amount of memory a process -may allocate per \fIbrk()\fR system call -.TP -\fIdescriptors\fR or \fIopenfiles\fR -the maximum number of open files for this process -.TP -\fIconcurrency\fR -the maximum number of threads for this process -.TP -\fImemorylocked\fR -the maximum size which a process may lock into memory using mlock(2) -.TP -\fImaxproc\fR -the maximum number of simultaneous processes for this user id -.TP -\fIsbsize\fR -the maximum size of socket buffer usage for this user -.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 termname \fR[\fIterminal type\fR] \fR(+) -Tests if \fIterminal type\fR (or the current value of \fBTERM\fR if no -\fIterminal type\fR is given) has an entry in the hosts termcap(5) or -terminfo(5) database. Prints the terminal type to stdout and returns 0 -if an entry is present otherwise returns 1. -.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. -Note that \fBunlimit\fR may not exit successful, since most systems -do not allow \fIdescriptors\fR to be unlimited. -.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 jobcmd -Runs before each command gets executed, or when the command changes state. -This is similar to \fIpostcmd\fR, but it does not print builtins. -.RS +8 -.IP "" 4 -> alias jobcmd '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 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, \fBcsubstnonl\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 \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 catalog -The file name of the message catalog. -If set, tcsh use `tcsh.${catalog}' as a message catalog instead of -default `tcsh'. -.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. If set to -`igncase', the completion becomes case insensitive. -.TP 8 -.B continue \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 -.IP "" 4 -echo `pwd` $argv > ~/.<cmd>_pause; %<cmd> -.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 csubstnonl \fR(+) -If set, newlines and carriage returns in command substitution are -replaced by spaces. Set by default. -.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(+) -Has an affect iff 'dspm' is listed as part of the \fBversion\fR shell variable. -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 `big5', it enables display and editing Big5(Chinese) code. -If set to `utf8', it enables display and editing Utf8(Unicode) 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 grammatically 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 '1', -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. -.PP - Note: -.br -This variable can only be used if KANJI and DSPMBYTE has been defined at -compile time. -.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 -by default. If -.B edit -is unset, then the traditional \fIcsh\fR completion is used. -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 highlight -If set, the incremental search match (in \fIi-search-back\fR and -\fIi-search-fwd\fR) and the region between the mark and the cursor are -highlighted in reverse video. - -Highlighting requires more frequent terminal writes, which introduces extra -overhead. If you care about terminal performance, you may want to leave this -unset. -.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. Historically this setting exited after 26 successive -EOF's to avoid infinite loops. If set to a number \fIn\fR, the shell -ignores \fIn - 1\fR 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 killdup \fR(+) -Controls handling of duplicate entries in the kill ring. If set to -`all' only unique strings are entered in the kill ring. If set to -`prev' and the last killed string is the same as the current killed -string, then the current string is not entered in the ring. If set -to `erase' and the same string is found in the kill ring, the old -string is erased and the current one is inserted. -.TP 8 -.B killring \fR(+) -Indicates the number of killed strings to keep in memory. Set to `30' -by default. If unset or set to less than `2', the shell will only -keep the most recently killed string. -Strings are put in the killring by the editor commands that delete -(kill) strings of text, e.g. \fIbackward-delete-word\fR, -\fIkill-line\fR, etc, as well as the \fIcopy-region-as-kill\fR command. -The \fIyank\fR editor command will yank the most recently killed string -into the command-line, while \fIyank-pop\fR (see \fBEditor commands\fR) -can be used to yank earlier killed strings. -.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 noding -If set, disable the printing of `DING!' in the \fBprompt\fR time -specifiers at the change of hour. -.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 padhour -If set, enable the printing of padding '0' for hours, in 24 and 12 hour -formats. E.G.: 07:45:42 vs. 7:45:42 -.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 -%j -The number of jobs. -.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 -If `%t', `%@', `%T', `%p', or `%P' is used, and \fBnoding\fR is not set, -then print `DING!' on the change of hour (i.e, `:00' minutes) instead of -the actual time. -.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/dst -.PP -Here's the behavior with \fBsymlinks\fR unset, -.IP "" 4 -> cd /tmp/to/dst; echo $cwd -.br -/tmp/to/dst -.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/dst; 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/dst; echo $cwd -.br -/tmp/to/dst -.br -> cd ..; echo $cwd -.br -/tmp/to -.br -> cd /tmp/to/dst; 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 6 -8b -The shell is eight bit clean; default -.TP 6 -7b -The shell is not eight bit clean -.TP 6 -wide -The shell is multibyte encoding clean (like UTF-8) -.TP 6 -nls -The system's NLS is used; default for systems with NLS -.TP 6 -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 6 -dl -`.' is put last in \fBpath\fR for security; default -.TP 6 -nd -`.' is omitted from \fBpath\fR for security -.TP 6 -vi -\fIvi\fR-style editing is the default rather than \fIemacs\fR -.TP 6 -dtr -Login shells drop DTR when exiting -.TP 6 -bye -\fIbye\fR is a synonym for \fIlogout\fR and \fIlog\fR -is an alternate name for \fIwatchlog\fR -.TP 6 -al -\fBautologout\fR is enabled; default -.TP 6 -kan -Kanji is used if appropriate according to locale settings, -unless the \fBnokanji\fR shell variable is set -.TP 6 -sm -The system's \fImalloc\fR(3) is used -.TP 6 -hb -The `#!<program> <args>' convention is emulated when executing shell scripts -.TP 6 -ng -The \fInewgrp\fR builtin is available -.TP 6 -rh -The shell attempts to set the \fBREMOTEHOST\fR environment variable -.TP 6 -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 -.RS +4 -.PD 0 -.TP 12 -no 0 -Normal (non-filename) text -.TP 12 -fi 0 -Regular file -.TP 12 -di 01;34 -Directory -.TP 12 -ln 01;36 -Symbolic link -.TP 12 -pi 33 -Named pipe (FIFO) -.TP 12 -so 01;35 -Socket -.TP 12 -do 01;35 -Door -.TP 12 -bd 01;33 -Block device -.TP 12 -cd 01;32 -Character device -.TP 12 -ex 01;32 -Executable file -.TP 12 -mi (none) -Missing file (defaults to fi) -.TP 12 -or (none) -Orphaned symbolic link (defaults to ln) -.TP 12 -lc ^[[ -Left code -.TP 12 -rc m -Right code -.TP 12 -ec (none) -End code (replaces lc+no+rc) -.PD -.RE -.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 -.PD -.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/.logout\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 -Command substitution supports multiple commands and conditions, but not -cycles or backward \fIgoto\fRs. -.PP -Report bugs at http://bugs.gw.com/, preferably with fixes. If you want to -help maintain and test tcsh, send mail to tcsh-request@mx.gw.com with the -text `subscribe tcsh' on a line by itself in the body. -.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.15.00 (Astron) 2007-03-03. -.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 8a0cefd..0000000 --- a/contrib/tcsh/tcsh.man2html +++ /dev/null @@ -1,852 +0,0 @@ -: # -*- perl -*- -# $tcsh: tcsh.man2html,v 1.14 2006/03/02 18:46:45 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 perl -S $0 ${1+"$@"}' -& eval 'exec 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="ftp://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-bugs@mx.gw.com</I> -<DD> -Open bug and user comment discussion. -</DL> -You can subscribe to either of these lists by visiting -<I><A HREF="http://mx.gw.com/">http://mx.gw.com/</A></I> -<P> -To file a bug report or a feature suggestion (preferably -with code), please visit -<I><A HREF="http://bugs.gw.com/">http://bugs.gw.com/</A></I> -<P> -<A HREF="TOPFILEHERE">Up</A> -</BODY> -END -: # -*- perl -*- - -# Emulate #!/usr/local/bin/perl on systems without #! - -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' -& eval 'exec 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 5e7d25b..0000000 --- a/contrib/tcsh/termcap.vms +++ /dev/null @@ -1,51 +0,0 @@ -# $tcsh: termcap.vms,v 1.3 2006/03/02 18:46:45 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 3c6b57f..0000000 --- a/contrib/tcsh/tw.color.c +++ /dev/null @@ -1,346 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.color.c,v 1.24 2006/03/02 18:46:45 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. 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("$tcsh: tw.color.c,v 1.24 2006/03/02 18:46:45 christos Exp $") - -#include "tw.h" -#include "ed.h" -#include "tc.h" - -#ifdef COLOR_LS_F - -typedef struct { - const char *s; - size_t 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('>', "do", "01;35"), /* Door (solaris fast ipc mechanism) */ - 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 IS_ASCII - VAR(NOS, "lc", "\033["), /* Left code (ASCII) */ -#else - VAR(NOS, "lc", "\x27["), /* Left code (EBCDIC)*/ -#endif - VAR(NOS, "rc", "m"), /* Right code */ - VAR(NOS, "ec", ""), /* End code (replaces lc+no+rc) */ - VAR(NOS, "su", ""), /* Setuid file (u+s) */ - VAR(NOS, "sg", ""), /* Setgid file (g+s) */ - VAR(NOS, "tw", ""), /* Sticky and other writable dir (+t,o+w) */ - VAR(NOS, "ow", ""), /* Other writable dir (o+w) but not sticky */ - VAR(NOS, "st", ""), /* Sticky dir (+t) but not other writable */ -}; - -enum FileType { - VDir, VSym, VOrph, VPipe, VSock, VDoor, 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 size_t nextensions = 0; - -static char *colors = NULL; -int color_context_ls = FALSE; /* do colored ls */ -static int color_context_lsmF = FALSE; /* do colored ls-F */ - -static int getstring (char **, const Char **, Str *, int); -static void put_color (const Str *); -static void print_color (const Char *, size_t, Char); - -/* set_color_context(): - */ -void -set_color_context(void) -{ - struct varent *vp = adrof(STRcolor); - - if (vp == NULL || vp->vec == NULL) { - 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 int -getstring(char **dp, const Char **sp, Str *pd, int f) -{ - const Char *s = *sp; - char *d = *dp; - eChar sc; - - while (*s && (*s & CHAR) != (Char)f && (*s & CHAR) != ':') { - if ((*s & CHAR) == '\\' || (*s & CHAR) == '^') { - if ((sc = parseescape(&s)) == CHAR_ERR) - return 0; - } - else - sc = *s++ & CHAR; - d += one_wctomb(d, sc); - } - - pd->s = *dp; - pd->len = d - *dp; - *sp = s; - *dp = d; - return *s == (Char)f; -} - - -/* parseLS_COLORS(): - * Parse the LS_COLORS environment variable - */ -void -parseLS_COLORS(const Char *value) -{ - size_t i, len; - const Char *v; /* pointer in value */ - char *c; /* pointer in colors */ - Extension *volatile e; /* pointer in extensions */ - jmp_buf_t osetexit; - size_t omark; - - (void) &e; - - /* init */ - xfree(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 = xmalloc(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. */ - - omark = cleanup_push_mark(); - 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 ((Char)variables[i].variable[0] == (v[0] & CHAR) && - (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++; - } - } - - cleanup_pop_mark(omark); - resexit(osetexit); - - nextensions = e - extensions; -} - -/* put_color(): - */ -static void -put_color(const Str *color) -{ - size_t i; - const char *c = color->s; - int original_output_raw = output_raw; - - output_raw = TRUE; - cleanup_push(&original_output_raw, output_raw_restore); - for (i = color->len; 0 < i; i--) - xputchar(*c++); - cleanup_until(&original_output_raw); -} - - -/* print_color(): - */ -static void -print_color(const Char *fname, size_t len, Char suffix) -{ - size_t 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 && - (Char)variables[i].suffix == suffix) { - color = &variables[i].color; - break; - } - if (i == nvariables) { - for (i = 0; i < nextensions; i++) - if (len >= extensions[i].extension.len - && 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(const Char *filename, size_t len, Char 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); - } - } - else - xprintf("%S", filename); - xputwchar(suffix); -} - - -#endif /* COLOR_LS_F */ diff --git a/contrib/tcsh/tw.comp.c b/contrib/tcsh/tw.comp.c deleted file mode 100644 index 30285af..0000000 --- a/contrib/tcsh/tw.comp.c +++ /dev/null @@ -1,640 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.comp.c,v 1.41 2006/03/02 18:46:45 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. 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("$tcsh: tw.comp.c,v 1.41 2006/03/02 18:46:45 christos Exp $") - -#include "tw.h" -#include "ed.h" -#include "tc.h" - -/* #define TDEBUG */ -struct varent completions; - -static int tw_result (const Char *, Char **); -static Char **tw_find (Char *, struct varent *, int); -static Char *tw_tok (Char *); -static int tw_pos (Char *, int); -static void tw_pr (Char **); -static int tw_match (const Char *, const Char *); -static void tw_prlist (struct varent *); -static const Char *tw_dollar (const Char *,Char **, size_t, Char **, - Char, const char *); - -/* docomplete(): - * Add or list completions in the completion list - */ -/*ARGSUSED*/ -void -docomplete(Char **v, struct command *t) -{ - struct varent *vp; - Char *p; - Char **pp; - - USE(t); - v++; - p = *v++; - if (p == 0) - tw_prlist(&completions); - else if (*v == 0) { - vp = adrof1(strip(p), &completions); - if (vp && vp->vec) - tw_pr(vp->vec), xputchar('\n'); - else - { -#ifdef TDEBUG - xprintf("tw_find(%s) \n", short2str(strip(p))); -#endif /* TDEBUG */ - pp = tw_find(strip(p), &completions, FALSE); - if (pp) - tw_pr(pp), xputchar('\n'); - } - } - else - set1(strip(p), saveblk(v), &completions, VAR_READWRITE); -} /* end docomplete */ - - -/* douncomplete(): - * Remove completions from the completion list - */ -/*ARGSUSED*/ -void -douncomplete(Char **v, struct command *t) -{ - USE(t); - unset1(v, &completions); -} /* end douncomplete */ - - -/* tw_prlist(): - * Pretty print a list of variables - */ -static void -tw_prlist(struct varent *p) -{ - struct varent *c; - - for (;;) { - while (p->v_left) - p = p->v_left; -x: - if (p->v_parent == 0) /* is it the header? */ - break; - if (setintr) { - int old_pintr_disabled; - - pintr_push_enable(&old_pintr_disabled); - cleanup_until(&old_pintr_disabled); - } - xprintf("%s\t", short2str(p->v_name)); - if (p->vec) - 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(Char **cmp) -{ - int sp, osp; - Char *ptr; - - for (; *cmp; cmp++) { - xputchar('\''); - for (osp = 0, ptr = *cmp; *ptr; ptr++) { - sp = Isspace(*ptr); - if (sp && osp) - continue; - xputwchar(*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(Char *nam, struct varent *vp, int cmd) -{ - 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 int -tw_pos(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(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 (ismetahash(*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(const Char *str, const Char *pat) -{ - const 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(const Char *act, Char **pat) -{ - int looking; - static Char* res = NULL; - Char *p; - - if (res != NULL) - xfree(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 ((p = Strchr(res, ')')) != NULL) - *p = '\0'; - (void) strip(res); - return TW_WORDLIST; - - case '`': - res = Strsave(act); - if ((p = Strchr(&res[1], '`')) != NULL) - *++p = '\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 ((p = globone(res, G_APPEND)) != NULL) { - xfree(res), res = NULL; - *pat = res = Strsave(p); - xfree(p); - 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 const Char * -tw_dollar(const Char *str, Char **wl, size_t nwl, Char **result, Char sep, - const char *msg) -{ - struct Strbuf buf = Strbuf_INIT; - Char *res; - const Char *sp; - - for (sp = str; *sp && *sp != sep;) - 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 && (size_t)num < nwl) - Strbuf_append(&buf, wl[num]); - } - else - Strbuf_append1(&buf, *sp++); - - res = Strbuf_finish(&buf); - - if (*sp++ == sep) { - *result = res; - return sp; - } - - xfree(res); - /* Truncates data if WIDE_STRINGS */ - stderror(ERR_COMPMIS, (int)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(const Char *line, Char **word, Char **pat, int looking, eChar *suf) -{ - Char *buf, **vec, **wl; - static Char nomatch[2] = { (Char) ~0, 0x00 }; - const Char *ptr; - size_t wordno; - int n; - - buf = Strsave(line); - cleanup_push(buf, xfree); - /* Single-character words, empty current word, terminating NULL */ - wl = xmalloc(((Strlen(line) + 1) / 2 + 2) * sizeof (*wl)); - cleanup_push(wl, xfree); - - /* find the command */ - if ((wl[0] = tw_tok(buf)) == NULL || wl[0] == INVPTR) { - cleanup_until(buf); - 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) { - cleanup_until(buf); - 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 */ - cleanup_until(buf); - return TW_ZERO; /* de-activate completions */ - } -#ifdef TDEBUG - { - size_t 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#: %lu\n", (unsigned long)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 ? short2str(wl[wordno-2]) : "n/a"); - xprintf("this: %s\n", wordno >= 1 ? short2str(wl[wordno-1]) : "n/a"); -#endif /* TDEBUG */ - - for (;vec != NULL && (ptr = vec[0]) != NULL; vec++) { - Char *ran, /* The pattern or range X/<range>/XXXX/ */ - *com, /* The completion X/XXXXX/<completion>/ */ - *pos = NULL; /* scratch pointer */ - int cmd, res; - Char 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) ? nomatch : wl[wordno - 3]; - break; - case 'n': - pos = (wordno < 2) ? nomatch : wl[wordno - 2]; - break; - case 'c': - case 'C': - pos = (wordno < 1) ? 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)) { - /* Truncates data if WIDE_STRINGS */ - stderror(ERR_COMPINV, CGETS(27, 2, "separator"), (int)sep); - return TW_ZERO; - } - - ptr = tw_dollar(&ptr[2], wl, wordno, &ran, sep, - CGETS(27, 3, "pattern")); - cleanup_push(ran, xfree); - 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")); - cleanup_push(com, xfree); - - if (*ptr != '\0') { - if (*ptr == sep) - *suf = CHAR_ERR; - else - *suf = *ptr; - } - else - *suf = '\0'; - -#ifdef TDEBUG - xprintf("command: %c\nseparator: %c\n", cmd, (int)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 CHAR_ERR: - xprintf("*no suffix*\n"); - break; - default: - xprintf("%c\n", (int)*suf); - break; - } -#endif /* TDEBUG */ - - switch (cmd) { - case 'p': /* positional completion */ -#ifdef TDEBUG - xprintf("p: tw_pos(%s, %lu) = ", short2str(ran), - (unsigned long)wordno - 1); - xprintf("%d\n", tw_pos(ran, wordno - 1)); -#endif /* TDEBUG */ - if (!tw_pos(ran, wordno - 1)) { - cleanup_until(ran); - continue; - } - break; - - 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) { - cleanup_until(ran); - continue; - } - if (cmd == 'c') - *word += n; - break; - - default: - abort(); /* Cannot happen */ - } - res = tw_result(com, pat); - cleanup_until(buf); - return res; - } - cleanup_until(buf); - *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 912b40e..0000000 --- a/contrib/tcsh/tw.decls.h +++ /dev/null @@ -1,130 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.decls.h,v 3.22 2006/01/12 18:15:25 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. 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 (const Char *); - -/* - * tw.parse.c - */ -extern Char *dollar (const Char *); -#ifndef __MVS__ -extern int tenematch (Char *, int, COMMAND); -extern int t_search (struct Strbuf *, COMMAND, int, - int, Char *, eChar); -#endif -extern int starting_a_command (Char *, Char *); -extern int fcompare (const void *, const void *); -extern void print_by_column (Char *, Char *[], int, int); -extern int StrQcmp (const Char *, const Char *); -extern Char *tgetenv (Char *); - -/* - * tw.init.c - */ -extern void tw_alias_start (DIR *, const Char *); -extern void tw_cmd_start (DIR *, const Char *); -extern void tw_logname_start (DIR *, const Char *); -extern void tw_var_start (DIR *, const Char *); -extern void tw_complete_start (DIR *, const Char *); -extern void tw_file_start (DIR *, const Char *); -extern void tw_vl_start (DIR *, const Char *); -extern void tw_wl_start (DIR *, const Char *); -extern void tw_bind_start (DIR *, const Char *); -extern void tw_limit_start (DIR *, const Char *); -extern void tw_sig_start (DIR *, const Char *); -extern void tw_job_start (DIR *, const Char *); -extern void tw_grpname_start (DIR *, const Char *); -extern int tw_cmd_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_logname_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_shvar_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_envvar_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_var_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_file_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_wl_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_bind_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_limit_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_sig_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_job_next (struct Strbuf *, - struct Strbuf *, int *); -extern int tw_grpname_next (struct Strbuf *, - struct Strbuf *, int *); -extern void tw_dir_end (void); -extern void tw_cmd_free (void); -extern void tw_logname_end (void); -extern void tw_grpname_end (void); -extern void tw_item_add (const struct Strbuf *); -extern Char **tw_item_get (void); -extern void tw_item_free (void); -extern Char *tw_item_find (Char *); - -/* - * tw.spell.c - */ -extern int spell_me (struct Strbuf *, int, Char *, - eChar); -extern int spdir (struct Strbuf *, const Char *, - const Char *, Char *); -extern int spdist (const Char *, const Char *); - -/* - * tw.comp.c - */ -extern void docomplete (Char **, struct command *); -extern void douncomplete (Char **, struct command *); -extern int tw_complete (const Char *, Char **, - Char **, int, eChar *); -#ifdef COLOR_LS_F -/* - * tw.color.c - */ -extern void set_color_context (void); -extern void print_with_color (const Char *, size_t, Char); -extern void parseLS_COLORS (const 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 5b2e661..0000000 --- a/contrib/tcsh/tw.h +++ /dev/null @@ -1,110 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.h,v 3.25 2006/01/12 18:15:25 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. 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 ESC CTL_ESC('\033') - -#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; - -extern int InsideCompletion; - -extern struct varent completions; - -extern int color_context_ls; - -#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 2199bbd..0000000 --- a/contrib/tcsh/tw.help.c +++ /dev/null @@ -1,209 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.help.c,v 3.27 2006/08/24 20:56:31 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. 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("$tcsh: tw.help.c,v 3.27 2006/08/24 20:56:31 christos Exp $") - -#include "tw.h" -#include "tc.h" - - -static int f = -1; -static void cleanf (int); -static Char *skipslist (Char *); -static void nextslist (const Char *, Char *); - -static const char *const h_ext[] = { - ".help", ".1", ".8", ".6", "", NULL -}; - -void -do_help(const Char *command) -{ - Char *name, *cmd_p; - - /* trim off the whitespace at the beginning */ - while (*command == ' ' || *command == '\t') - command++; - - /* copy the string to a safe place */ - name = Strsave(command); - cleanup_push(name, xfree); - - /* 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') { - cleanup_until(name); - return; - } - - if (adrof1(STRhelpcommand, &aliases)) { /* if we have an alias */ - jmp_buf_t osetexit; - size_t omark; - - getexit(osetexit); /* make sure to come back here */ - omark = cleanup_push_mark(); - if (setexit() == 0) - aliasrun(2, STRhelpcommand, name); /* then use it. */ - cleanup_pop_mark(omark); - resexit(osetexit); /* and finish up */ - } - else { /* else cat something to them */ - Char *thpath, *hpath; /* The environment parameter */ - Char *curdir; /* Current directory being looked at */ - struct Strbuf full = Strbuf_INIT; - - /* 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); - cleanup_push(thpath, xfree); - curdir = xmalloc((Strlen(thpath) + 1) * sizeof (*curdir)); - cleanup_push(curdir, xfree); - cleanup_push(&full, Strbuf_cleanup); - - for (;;) { - const char *const *sp; - size_t ep; - - 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. - */ - full.len = 0; - Strbuf_append(&full, curdir); - Strbuf_append(&full, STRslash); - Strbuf_append(&full, name); - ep = full.len; - for (sp = h_ext; *sp; sp++) { - full.len = ep; - Strbuf_append(&full, str2short(*sp)); - Strbuf_terminate(&full); - if ((f = xopen(short2str(full.s), O_RDONLY|O_LARGEFILE)) != -1) - break; - } - if (f != -1) { - unsigned char buf[512]; - sigset_t oset, set; - struct sigaction osa, sa; - ssize_t len; - - /* so cat it to the terminal */ - cleanup_push(&f, open_cleanup); - sa.sa_handler = cleanf; - sigemptyset(&sa.sa_mask); - sa.sa_flags = 0; - (void)sigaction(SIGINT, &sa, &osa); - cleanup_push(&osa, sigint_cleanup); - (void)sigprocmask(SIG_UNBLOCK, &set, &oset); - cleanup_push(&oset, sigprocmask_cleanup); - while ((len = xread(f, buf, sizeof(buf))) > 0) - (void) xwrite(SHOUT, buf, len); - cleanup_until(&f); -#ifdef convex - /* print error in case file is migrated */ - if (len == -1) - stderror(ERR_SYSTEM, progname, strerror(errno)); -#endif /* convex */ - break; - } - } - } - cleanup_until(name); -} - -static void -/*ARGSUSED*/ -cleanf(int snum) -{ - USE(snum); - if (f != -1) - xclose(f); - f = -1; -} - -/* 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(const Char *sl, 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(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 29f5586..0000000 --- a/contrib/tcsh/tw.init.c +++ /dev/null @@ -1,1026 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.init.c,v 3.39 2006/03/02 18:46:45 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. 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("$tcsh: tw.init.c,v 3.39 2006/03/02 18:46:45 christos Exp $") - -#include "tw.h" -#include "ed.h" -#include "tc.h" -#include "sh.proc.h" - -#define TW_INCR 128 - -typedef struct { - Char **list, /* List of command names */ - *buff; /* Space holding command names */ - size_t 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 const 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 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 */ - size_t cur; /* Current element number */ - Char **pathv; /* Current element in path */ - DIR *dfd; /* Current directory descriptor */ -} tw_cmd_state; - - -#define SETDIR(dfd) \ - { \ - tw_dir_fd = dfd; \ - if (tw_dir_fd != NULL) \ - rewinddir(tw_dir_fd); \ - } - -#define CLRDIR(dfd) \ - if (dfd != NULL) { \ - pintr_disabled++; \ - xclosedir(dfd); \ - dfd = NULL; \ - disabled_cleanup(&pintr_disabled); \ - } - -static Char *tw_str_add (stringlist_t *, size_t); -static void tw_str_free (stringlist_t *); -static int tw_dir_next (struct Strbuf *, DIR *); -static void tw_cmd_add (const Char *name); -static void tw_cmd_cmd (void); -static void tw_cmd_builtin (void); -static void tw_cmd_alias (void); -static void tw_cmd_sort (void); -static void tw_vptr_start (struct varent *); - - -/* tw_str_add(): - * Add an item to the string list - */ -static Char * -tw_str_add(stringlist_t *sl, size_t len) -{ - Char *ptr; - - if (sl->tlist <= sl->nlist) { - pintr_disabled++; - sl->tlist += TW_INCR; - sl->list = xrealloc(sl->list, sl->tlist * sizeof(Char *)); - disabled_cleanup(&pintr_disabled); - } - if (sl->tbuff <= sl->nbuff + len) { - size_t i; - - ptr = sl->buff; - pintr_disabled++; - sl->tbuff += TW_INCR + len; - sl->buff = xrealloc(sl->buff, sl->tbuff * sizeof(Char)); - /* Re-thread the new pointer list, if changed */ - if (ptr != NULL && ptr != sl->buff) { - intptr_t offs = sl->buff - ptr; - for (i = 0; i < sl->nlist; i++) - sl->list[i] += offs; - } - disabled_cleanup(&pintr_disabled); - } - 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(stringlist_t *sl) -{ - pintr_disabled++; - if (sl->list) { - xfree(sl->list); - sl->list = NULL; - sl->tlist = sl->nlist = 0; - } - if (sl->buff) { - xfree(sl->buff); - sl->buff = NULL; - sl->tbuff = sl->nbuff = 0; - } - disabled_cleanup(&pintr_disabled); -} /* end tw_str_free */ - - -static int -tw_dir_next(struct Strbuf *res, DIR *dfd) -{ - struct dirent *dirp; - - if (dfd == NULL) - return 0; - - if ((dirp = readdir(dfd)) != NULL) { - Strbuf_append(res, str2short(dirp->d_name)); - return 1; - } - return 0; -} /* end tw_dir_next */ - - -/* tw_cmd_add(): - * Add the name to the command list - */ -static void -tw_cmd_add(const Char *name) -{ - size_t len; - - len = 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(void) -{ - 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(void) -{ - DIR *dirp; - struct dirent *dp; - Char *dir = NULL, *name; - Char **pv; - struct varent *v = adrof(STRpath); - struct varent *recexec = adrof(STRrecognize_only_executables); - size_t len; - - - if (v == NULL || v->vec == 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; - - cleanup_push(dirp, opendir_cleanup); - if (recexec) { - dir = Strspl(*pv, STRslash); - cleanup_push(dir, xfree); - } - while ((dp = readdir(dirp)) != NULL) { -#if defined(_UWIN) || defined(__CYGWIN__) - /* Turn foo.{exe,com,bat} into foo since UWIN's readdir returns - * the file with the .exe, .com, .bat extension - */ - len = strlen(dp->d_name); - if (len > 4 && (strcmp(&dp->d_name[len - 4], ".exe") == 0 || - strcmp(&dp->d_name[len - 4], ".bat") == 0 || - strcmp(&dp->d_name[len - 4], ".com") == 0)) - dp->d_name[len - 4] = '\0'; -#endif /* _UWIN || __CYGWIN__ */ - /* 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 = Strlen(name); - if (name[0] == '#' || /* emacs temp files */ - name[0] == '.' || /* .files */ - name[len - 1] == '~' || /* emacs backups */ - name[len - 1] == '%') /* textedit backups */ - continue; /* Ignore! */ - tw_cmd_add(name); - } - cleanup_until(dirp); - } -} /* end tw_cmd_cmd */ - - -/* tw_cmd_builtin(): - * Add builtins to the command list - */ -static void -tw_cmd_builtin(void) -{ - const struct biltins *bptr; - - for (bptr = bfunc; bptr < &bfunc[nbfunc]; bptr++) - if (bptr->bname) - tw_cmd_add(str2short(bptr->bname)); -#ifdef WINNT_NATIVE - for (bptr = nt_bfunc; bptr < &nt_bfunc[nt_nbfunc]; bptr++) - if (bptr->bname) - tw_cmd_add(str2short(bptr->bname)); -#endif /* WINNT_NATIVE*/ -} /* end tw_cmd_builtin */ - - -/* tw_cmd_alias(): - * Add aliases to the command list - */ -static void -tw_cmd_alias(void) -{ - struct varent *p; - 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(void) -{ - size_t fwd, i; - - pintr_disabled++; - /* sort the list. */ - qsort(tw_cmd.list, tw_cmd.nlist, sizeof(Char *), fcompare); - - /* get rid of multiple entries */ - for (i = 0, fwd = 0; i + 1 < tw_cmd.nlist; 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; - disabled_cleanup(&pintr_disabled); -} /* 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(DIR *dfd, const 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 - */ -int -tw_cmd_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - int ret = 0; - Char *ptr; - - if (tw_cmd_state.cur < tw_cmd.nlist) { - *flags = TW_DIR_OK; - Strbuf_append(res, tw_cmd.list[tw_cmd_state.cur++]); - return 1; - } - - /* - * We need to process relatives in the path. - */ - while ((tw_cmd_state.dfd == NULL || - (ret = tw_dir_next(res, tw_cmd_state.dfd)) == 0) && - *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) { - Strbuf_append(res, ptr); - ret = 1; - /* - * We complete directories only on '.' should that - * be changed? - */ - dir->len = 0; - if (ptr[0] == '\0' || (ptr[0] == '.' && ptr[1] == '\0')) { - tw_cmd_state.dfd = opendir("."); - *flags = TW_DIR_OK | TW_EXEC_CHK; - } - else { - Strbuf_append(dir, *tw_cmd_state.pathv); - Strbuf_append1(dir, '/'); - tw_cmd_state.dfd = opendir(short2str(*tw_cmd_state.pathv)); - *flags = TW_EXEC_CHK; - } - Strbuf_terminate(dir); - tw_cmd_state.pathv++; - } - } - return ret; -} /* end tw_cmd_next */ - - -/* tw_vptr_start(): - * Find the first variable in the variable list - */ -static void -tw_vptr_start(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*/ -int -tw_shvar_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - struct varent *p; - struct varent *c; - - USE(flags); - USE(dir); - if ((p = tw_vptr) == NULL) - return 0; /* just in case */ - - Strbuf_append(res, 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 1; - } - if (p->v_name) { - tw_vptr = p; /* save state for the next call */ - return 1; - } - } -} /* end tw_shvar_next */ - - -/* tw_envvar_next(): - * Return the next environment variable - */ -/*ARGSUSED*/ -int -tw_envvar_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - const Char *ps; - - USE(flags); - USE(dir); - if (tw_env == NULL || *tw_env == NULL) - return 0; - for (ps = *tw_env; *ps && *ps != '='; ps++) - continue; - Strbuf_appendn(res, *tw_env, ps - *tw_env); - tw_env++; - return 1; -} /* end tw_envvar_next */ - - -/* tw_var_start(): - * Begin the list of the shell and environment variables - */ -/*ARGSUSED*/ -void -tw_var_start(DIR *dfd, const 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(DIR *dfd, const 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(DIR *dfd, const Char *pat) -{ - 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 - */ -int -tw_var_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - int ret = 0; - - if (tw_vptr) - ret = tw_shvar_next(res, dir, flags); - if (ret == 0 && tw_env) - ret = tw_envvar_next(res, dir, flags); - return ret; -} /* end tw_var_next */ - - -/* tw_logname_start(): - * Initialize lognames to the beginning of the list - */ -/*ARGSUSED*/ -void -tw_logname_start(DIR *dfd, const Char *pat) -{ - USE(pat); - SETDIR(dfd) -#ifdef HAVE_GETPWENT - (void) setpwent(); /* Open passwd file */ -#endif -} /* end tw_logname_start */ - - -/* tw_logname_next(): - * Return the next entry from the passwd file - */ -/*ARGSUSED*/ -int -tw_logname_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - 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); - pintr_disabled++; -#ifdef HAVE_GETPWENT - pw = getpwent(); -#else - pw = NULL; -#endif - disabled_cleanup(&pintr_disabled); - - if (pw == NULL) { -#ifdef YPBUGS - fix_yp_bugs(); -#endif - return 0; - } - Strbuf_append(res, str2short(pw->pw_name)); - return 1; -} /* end tw_logname_next */ - - -/* tw_logname_end(): - * Close the passwd file to finish the logname list - */ -void -tw_logname_end(void) -{ -#ifdef YPBUGS - fix_yp_bugs(); -#endif -#ifdef HAVE_GETPWENT - (void) endpwent(); -#endif -} /* end tw_logname_end */ - - -/* tw_grpname_start(): - * Initialize grpnames to the beginning of the list - */ -/*ARGSUSED*/ -void -tw_grpname_start(DIR *dfd, const Char *pat) -{ - USE(pat); - SETDIR(dfd) -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) - (void) setgrent(); /* Open group file */ -#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT_NATIVE */ -} /* end tw_grpname_start */ - - -/* tw_grpname_next(): - * Return the next entry from the group file - */ -/*ARGSUSED*/ -int -tw_grpname_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - 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); - pintr_disabled++; -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) - errno = 0; - while ((gr = getgrent()) == NULL && errno == EINTR) { - handle_pending_signals(); - errno = 0; - } -#else /* _VMS_POSIX || _OSD_POSIX || WINNT_NATIVE */ - gr = NULL; -#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT_NATIVE */ - disabled_cleanup(&pintr_disabled); - - if (gr == NULL) { -#ifdef YPBUGS - fix_yp_bugs(); -#endif - return 0; - } - Strbuf_append(res, str2short(gr->gr_name)); - return 1; -} /* end tw_grpname_next */ - - -/* tw_grpname_end(): - * Close the group file to finish the groupname list - */ -void -tw_grpname_end(void) -{ -#ifdef YPBUGS - fix_yp_bugs(); -#endif -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) - (void) endgrent(); -#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT_NATIVE */ -} /* end tw_grpname_end */ - -/* tw_file_start(): - * Initialize the directory for the file list - */ -/*ARGSUSED*/ -void -tw_file_start(DIR *dfd, const 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 - */ -int -tw_file_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - int ret = tw_dir_next(res, tw_dir_fd); - if (ret == 0 && (*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) { - dir->len = 0; - Strbuf_append(dir, *tw_env++); - Strbuf_append1(dir, '/'); - Strbuf_terminate(dir); - ret = tw_dir_next(res, tw_dir_fd); - } - } - return ret; -} /* end tw_file_next */ - - -/* tw_dir_end(): - * Clear directory related lists - */ -void -tw_dir_end(void) -{ - CLRDIR(tw_dir_fd) - CLRDIR(tw_cmd_state.dfd) -} /* end tw_dir_end */ - - -/* tw_item_free(): - * Free the item list - */ -void -tw_item_free(void) -{ - tw_str_free(&tw_item); -} /* end tw_item_free */ - - -/* tw_item_get(): - * Return the list of items - */ -Char ** -tw_item_get(void) -{ - return tw_item.list; -} /* end tw_item_get */ - - -/* tw_item_add(): - * Return a new item for a Strbuf_terminate()'d s - */ -void -tw_item_add(const struct Strbuf *s) -{ - Char *p; - - p = tw_str_add(&tw_item, s->len + 1); - Strcpy(p, s->s); -} /* tw_item_add */ - - -/* tw_item_find(): - * Find the string if it exists in the item list - * end return it. - */ -Char * -tw_item_find(Char *str) -{ - size_t 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(DIR *dfd, const 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(DIR *dfd, const Char *pat) -{ - SETDIR(dfd); - tw_word = pat; -} /* end tw_wl_start */ - - -/* - * Return the next word from the word list - */ -/*ARGSUSED*/ -int -tw_wl_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - const Char *p; - - USE(dir); - USE(flags); - if (tw_word == NULL || tw_word[0] == '\0') - return 0; - - while (*tw_word && Isspace(*tw_word)) tw_word++; - - for (p = tw_word; *tw_word && !Isspace(*tw_word); tw_word++) - continue; - if (tw_word == p) - return 0; - Strbuf_appendn(res, p, tw_word - p); - if (*tw_word) - tw_word++; - return 1; -} /* end tw_wl_next */ - - -/* tw_bind_start(): - * Begin the list of the shell bindings - */ -/*ARGSUSED*/ -void -tw_bind_start(DIR *dfd, const Char *pat) -{ - USE(pat); - SETDIR(dfd) - tw_bind = FuncNames; -} /* end tw_bind_start */ - - -/* tw_bind_next(): - * Begin the list of the shell bindings - */ -/*ARGSUSED*/ -int -tw_bind_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - USE(dir); - USE(flags); - if (tw_bind && tw_bind->name) { - const char *ptr; - - for (ptr = tw_bind->name; *ptr != '\0'; ptr++) - Strbuf_append1(res, *ptr); - tw_bind++; - return 1; - } - return 0; -} /* end tw_bind_next */ - - -/* tw_limit_start(): - * Begin the list of the shell limitings - */ -/*ARGSUSED*/ -void -tw_limit_start(DIR *dfd, const 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*/ -int -tw_limit_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - USE(dir); - USE(flags); -#ifndef HAVENOLIMIT - if (tw_limit && tw_limit->limname) { - const char *ptr; - - for (ptr = tw_limit->limname; *ptr != '\0'; ptr++) - Strbuf_append1(res, *ptr); - tw_limit++; - return 1; - } -#endif /* ! HAVENOLIMIT */ - return 0; -} /* end tw_limit_next */ - - -/* tw_sig_start(): - * Begin the list of the shell sigings - */ -/*ARGSUSED*/ -void -tw_sig_start(DIR *dfd, const Char *pat) -{ - USE(pat); - SETDIR(dfd) - tw_index = 0; -} /* end tw_sig_start */ - - -/* tw_sig_next(): - * Begin the list of the shell sigings - */ -/*ARGSUSED*/ -int -tw_sig_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - USE(dir); - USE(flags); - for (;tw_index < nsig; tw_index++) { - const char *ptr; - - if (mesg[tw_index].iname == NULL) - continue; - - for (ptr = mesg[tw_index].iname; *ptr != '\0'; ptr++) - Strbuf_append1(res, *ptr); - tw_index++; - return 1; - } - return 0; -} /* end tw_sig_next */ - - -/* tw_job_start(): - * Begin the list of the shell jobings - */ -/*ARGSUSED*/ -void -tw_job_start(DIR *dfd, const Char *pat) -{ - USE(pat); - SETDIR(dfd) - tw_index = 1; -} /* end tw_job_start */ - - -/* tw_job_next(): - * Begin the list of the shell jobings - */ -/*ARGSUSED*/ -int -tw_job_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - struct process *j; - - USE(dir); - 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; - Strbuf_append(res, j->p_command); - tw_index++; - return 1; - } - return 0; -} /* end tw_job_next */ diff --git a/contrib/tcsh/tw.parse.c b/contrib/tcsh/tw.parse.c deleted file mode 100644 index 97cabce..0000000 --- a/contrib/tcsh/tw.parse.c +++ /dev/null @@ -1,2325 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.parse.c,v 3.123 2007/03/01 21:21:42 corinna 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. 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("$tcsh: tw.parse.c,v 3.123 2007/03/01 21:21:42 corinna Exp $") - -#include "tw.h" -#include "ed.h" -#include "tc.h" - -#include <assert.h> - -#ifdef WINNT_NATIVE -#include "nt.const.h" -#endif /* WINNT_NATIVE */ -#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 (*const tw_start_entry[]) (DIR *, const 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 int (*const tw_next_entry[]) (struct Strbuf *, struct Strbuf *, - 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 (*const tw_end_entry[]) (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 int 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 */ - -static void extract_dir_and_name (const Char *, struct Strbuf *, - Char **); -static int insert_meta (const Char *, const Char *, - const Char *, int); -static int tilde (struct Strbuf *, Char *); -static int expand_dir (const Char *, struct Strbuf *, DIR **, - COMMAND); -static int nostat (Char *); -static Char filetype (Char *, Char *); -static int t_glob (Char ***, int); -static int c_glob (Char ***); -static int is_prefix (Char *, Char *); -static int is_prefixmatch (Char *, Char *, int); -static int is_suffix (Char *, Char *); -static int recognize (struct Strbuf *, const Char *, size_t, - int, int, int); -static int ignored (Char *); -static int isadirectory (const Char *, const Char *); -static int tw_collect_items (COMMAND, int, struct Strbuf *, - struct Strbuf *, Char *, const Char *, - int); -static int tw_collect (COMMAND, int, struct Strbuf *, - struct Strbuf *, Char *, Char *, int, - DIR *); -static Char tw_suffix (int, const Char *, Char *); -static void tw_fixword (int, struct Strbuf *, Char *, Char *); -static void tw_list_items (int, int, int); -static void add_scroll_tab (Char *); -static void choose_scroll_tab (struct Strbuf *, int); -static void free_scroll_tab (void); -static int find_rows (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 - -/* 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(Char *inputline, int num_read, COMMAND command) -{ - struct Strbuf qline = Strbuf_INIT; - Char qu = 0, *pat = STRNULL; - size_t wp, word, wordp, cmd_start, oword = 0, ocmd_start = 0; - Char *str_end, *cp; - Char *word_start; - Char *oword_start = NULL; - eChar suf = 0; - int looking; /* what we are looking for */ - int search_ret; /* what search returned for debugging */ - int backq = 0; - - str_end = &inputline[num_read]; - cleanup_push(&qline, Strbuf_cleanup); - - word_start = inputline; - word = cmd_start = 0; - 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 = qline.len + 1; - } - else { - cmd_start = ocmd_start; - word_start = oword_start; - word = oword; - } - Strbuf_append1(&qline, *cp); - continue; - } - } - if (iscmdmeta(*cp)) - cmd_start = qline.len + 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) - Strbuf_append1(&qline, *++cp | QUOTE); - else if (qu && (tricky(*cp) || *cp == '~') && !(qu == '\"' && tricky_dq(*cp))) - Strbuf_append1(&qline, *cp | QUOTE); - else - Strbuf_append1(&qline, *cp); - if (ismetahash(qline.s[qline.len - 1]) - /* || isaset(qline.s + cmd_start, qline.s + qline.len) */) - word = qline.len, word_start = cp + 1; - if (cmap(qu, _ESC)) - qu = 0; - } - Strbuf_terminate(&qline); - wp = qline.len; - - /* - * SPECIAL HARDCODED COMPLETIONS: - * first word of command -> TW_COMMAND - * everything else -> TW_ZERO - * - */ - looking = starting_a_command(qline.s + word - 1, qline.s) ? - TW_COMMAND : TW_ZERO; - - wordp = word; - -#ifdef TDEBUG - { - const Char *p; - - xprintf(CGETS(30, 1, "starting_a_command %d\n"), looking); - xprintf("\ncmd_start:%S:\n", qline.s + cmd_start); - xprintf("qline:%S:\n", qline.s); - xprintf("qline:"); - for (p = qline.s; *p; p++) - xprintf("%c", *p & QUOTE ? '-' : ' '); - xprintf(":\n"); - xprintf("word:%S:\n", qline.s + word); - xprintf("word:"); - for (p = qline.s + word; *p; p++) - xprintf("%c", *p & QUOTE ? '-' : ' '); - xprintf(":\n"); - } -#endif - - if ((looking == TW_COMMAND || looking == TW_ZERO) && - (command == RECOGNIZE || command == LIST || command == SPELL || - command == RECOGNIZE_SCROLL)) { - Char *p; - -#ifdef TDEBUG - xprintf(CGETS(30, 2, "complete %d "), looking); -#endif - p = qline.s + wordp; - looking = tw_complete(qline.s + cmd_start, &p, &pat, looking, &suf); - wordp = p - qline.s; -#ifdef TDEBUG - xprintf(CGETS(30, 3, "complete %d %S\n"), looking, pat); -#endif - } - - switch (command) { - Char *bptr; - Char *items[2], **ptr; - int i, count; - - case RECOGNIZE: - case RECOGNIZE_SCROLL: - case RECOGNIZE_ALL: { - struct Strbuf wordbuf = Strbuf_INIT; - Char *slshp; - - if (adrof(STRautocorrect)) { - if ((slshp = Strrchr(qline.s + wordp, '/')) != NULL && - slshp[1] != '\0') { - SearchNoDirErr = 1; - for (bptr = qline.s + wordp; bptr < slshp; bptr++) { - /* - * do not try to correct spelling of words containing - * globbing characters - */ - if (isglob(*bptr)) { - SearchNoDirErr = 0; - break; - } - } - } - } - else - slshp = STRNULL; - Strbuf_append(&wordbuf, qline.s + wordp); - Strbuf_terminate(&wordbuf); - cleanup_push(&wordbuf, Strbuf_cleanup); - search_ret = t_search(&wordbuf, command, looking, 1, pat, suf); - qline.len = wordp; - Strbuf_append(&qline, wordbuf.s); - Strbuf_terminate(&qline); - cleanup_until(&wordbuf); - SearchNoDirErr = 0; - - if (search_ret == -2) { - Char *rword; - - rword = Strsave(slshp); - cleanup_push(rword, xfree); - if (slshp != STRNULL) - *slshp = '\0'; - wordbuf = Strbuf_init; - Strbuf_append(&wordbuf, qline.s + wordp); - Strbuf_terminate(&wordbuf); - cleanup_push(&wordbuf, Strbuf_cleanup); - search_ret = spell_me(&wordbuf, looking, pat, suf); - if (search_ret == 1) { - Strbuf_append(&wordbuf, rword); - Strbuf_terminate(&wordbuf); - wp = wordp + wordbuf.len; - search_ret = t_search(&wordbuf, command, looking, 1, pat, suf); - } - qline.len = wordp; - Strbuf_append(&qline, wordbuf.s); - Strbuf_terminate(&qline); - cleanup_until(rword); - } - if (qline.s[wp] != '\0' && - insert_meta(word_start, str_end, qline.s + word, !qu) < 0) - goto err; /* error inserting */ - break; - } - - case SPELL: { - struct Strbuf wordbuf = Strbuf_INIT; - - for (bptr = word_start; bptr < str_end; bptr++) { - /* - * do not try to correct spelling of words containing globbing - * characters - */ - if (isglob(*bptr)) { - search_ret = 0; - goto end; - } - } - Strbuf_append(&wordbuf, qline.s + wordp); - Strbuf_terminate(&wordbuf); - cleanup_push(&wordbuf, Strbuf_cleanup); - search_ret = spell_me(&wordbuf, looking, pat, suf); - qline.len = wordp; - Strbuf_append(&qline, wordbuf.s); - Strbuf_terminate(&qline); - cleanup_until(&wordbuf); - if (search_ret == 1) { - if (insert_meta(word_start, str_end, qline.s + word, !qu) < 0) - goto err; /* error inserting */ - } - break; - } - - case PRINT_HELP: - do_help(qline.s + cmd_start); - search_ret = 1; - break; - - case GLOB: - case GLOB_EXPAND: - items[0] = Strsave(qline.s + wordp); - items[1] = NULL; - cleanup_push(items[0], xfree); - ptr = items; - count = (looking == TW_COMMAND && Strchr(qline.s + wordp, '/') == 0) ? - c_glob(&ptr) : - t_glob(&ptr, looking == TW_COMMAND); - cleanup_until(items[0]); - if (ptr != items) - cleanup_push(ptr, blk_cleanup); - 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) { - if (ptr != items) - cleanup_until(ptr); - goto err; /* error inserting */ - } - } - } - } - if (ptr != items) - cleanup_until(ptr); - search_ret = count; - break; - - case VARS_EXPAND: - bptr = dollar(qline.s + word); - if (bptr != NULL) { - if (insert_meta(word_start, str_end, bptr, !qu) < 0) { - xfree(bptr); - goto err; /* error inserting */ - } - xfree(bptr); - search_ret = 1; - break; - } - search_ret = 0; - break; - - case PATH_NORMALIZE: - if ((bptr = dnormalize(qline.s + wordp, symlinks == SYM_IGNORE || - symlinks == SYM_EXPAND)) != NULL) { - if (insert_meta(word_start, str_end, bptr, !qu) < 0) { - xfree(bptr); - goto err; /* error inserting */ - } - xfree(bptr); - search_ret = 1; - break; - } - search_ret = 0; - break; - - case COMMAND_NORMALIZE: { - Char *p; - int found; - - found = !cmd_expand(qline.s + wordp, &p); - - if (!found) { - xfree(p); - search_ret = 0; - break; - } - if (insert_meta(word_start, str_end, p, !qu) < 0) { - xfree(p); - goto err; /* error inserting */ - } - xfree(p); - search_ret = 1; - break; - } - - case LIST: - case LIST_ALL: { - struct Strbuf wordbuf = Strbuf_INIT; - - Strbuf_append(&wordbuf, qline.s + wordp); - Strbuf_terminate(&wordbuf); - cleanup_push(&wordbuf, Strbuf_cleanup); - search_ret = t_search(&wordbuf, LIST, looking, 1, pat, suf); - qline.len = wordp; - Strbuf_append(&qline, wordbuf.s); - Strbuf_terminate(&qline); - cleanup_until(&wordbuf); - break; - } - - default: - xprintf(CGETS(30, 4, "%s: Internal match error.\n"), progname); - search_ret = 1; - } - end: - cleanup_until(&qline); - return search_ret; - - err: - cleanup_until(&qline); - return -1; -} /* end tenematch */ - - -/* t_glob(): - * Return a list of files that match the pattern - */ -static int -t_glob(Char ***v, int cmd) -{ - jmp_buf_t osetexit; - int gflag; - - if (**v == 0) - return (0); - gflag = tglob(*v); - if (gflag) { - size_t omark; - - getexit(osetexit); /* make sure to come back here */ - omark = cleanup_push_mark(); - if (setexit() == 0) - *v = globall(*v, gflag); - cleanup_pop_mark(omark); - resexit(osetexit); - 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; - - for (i = 0, fwd = 0; av[i] != NULL; i++) - if (!executable(NULL, av[i], 0)) { - fwd++; - p = av[i]; - av[i] = NULL; - xfree(p); - } - else if (fwd) - av[i - fwd] = av[i]; - - if (fwd) - av[i - fwd] = av[i]; - } - - return blklen(*v); -} /* end t_glob */ - - -/* c_glob(): - * Return a list of commands that match the pattern - */ -static int -c_glob(Char ***v) -{ - struct blk_buf av = BLK_BUF_INIT; - struct Strbuf cmd = Strbuf_INIT, dir = Strbuf_INIT; - Char *pat = **v; - int flag; - - if (pat == NULL) - return (0); - - cleanup_push(&av, bb_cleanup); - cleanup_push(&cmd, Strbuf_cleanup); - cleanup_push(&dir, Strbuf_cleanup); - - tw_cmd_start(NULL, NULL); - while (cmd.len = 0, tw_cmd_next(&cmd, &dir, &flag) != 0) { - Strbuf_terminate(&cmd); - if (Gmatch(cmd.s, pat)) - bb_append(&av, Strsave(cmd.s)); - } - tw_dir_end(); - *v = bb_finish(&av); - cleanup_ignore(&av); - cleanup_until(&av); - - return av.len; -} /* 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(const Char *cp, const Char *cpend, const Char *word, - int closequotes) -{ - struct Strbuf buffer = Strbuf_INIT; - Char *bptr; - const Char *wptr; - int in_sync = (cp != NULL); - Char qu = 0; - int ndel = (int) (cp ? cpend - cp : 0); - Char w, wq; - int res; - - for (wptr = word;;) { - if (cp >= cpend) - in_sync = 0; - if (in_sync && !cmap(qu, _ESC) && cmap(*cp, _QF|_ESC)) - if (qu == 0 || qu == *cp) { - qu ^= *cp; - Strbuf_append1(&buffer, *cp++); - continue; - } - w = *wptr; - if (w == 0) - break; - - wq = w & QUOTE; - w &= ~QUOTE; - - 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)) - buffer.s[buffer.len - 1] = w; - else { - Strbuf_append1(&buffer, qu); - Strbuf_append1(&buffer, w); - if (wptr[1] == 0) - qu = 0; - else - Strbuf_append1(&buffer, qu); - } - } else if (qu && w == qu) { - in_sync = 0; - if (buffer.len != 0 && buffer.s[buffer.len - 1] == qu) { - /* User misunderstanding :) */ - buffer.s[buffer.len - 1] = '\\'; - Strbuf_append1(&buffer, w); - qu = 0; - } else { - Strbuf_append1(&buffer, qu); - Strbuf_append1(&buffer, '\\'); - Strbuf_append1(&buffer, w); - Strbuf_append1(&buffer, qu); - } - } - else if (wq && qu == '\"' && tricky_dq(w)) { - in_sync = 0; - Strbuf_append1(&buffer, qu); - Strbuf_append1(&buffer, '\\'); - Strbuf_append1(&buffer, w); - Strbuf_append1(&buffer, qu); - } else if (wq && - ((!qu && (tricky(w) || (w == HISTSUB && buffer.len == 0))) || - (!cmap(qu, _ESC) && w == HIST))) { - in_sync = 0; - Strbuf_append1(&buffer, '\\'); - Strbuf_append1(&buffer, w); - } else { - if (in_sync && *cp++ != w) - in_sync = 0; - Strbuf_append1(&buffer, w); - } - wptr++; - if (cmap(qu, _ESC)) - qu = 0; - } - if (closequotes && qu && !cmap(qu, _ESC)) - Strbuf_append1(&buffer, w); - bptr = Strbuf_finish(&buffer); - if (ndel) - DeleteBack(ndel); - res = InsertStr(bptr); - xfree(bptr); - return res; -} /* 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(Char *check, Char *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(Char *check, Char *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(Char *check, Char *template) -{ - Char *t, *c; - - t = Strend(template); - c = Strend(check); - 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(Char *item) -{ - struct varent *vp; - 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(Char *wordstart, Char *inputline) -{ - Char *ptr, *ncmdstart; - int count, bsl; - 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)) { - for (ptr = wordstart, bsl = 0; *(--ptr) == '\\'; bsl++); - if (bsl & 1) { - wordstart--; - continue; - } else - 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(struct Strbuf *exp_name, const Char *item, size_t name_length, - int numitems, int enhanced, int igncase) -{ - Char MCH1, MCH2; - Char *x; - const Char *ent; - size_t len = 0; - - if (numitems == 1) { /* 1st match */ - exp_name->len = 0; - Strbuf_append(exp_name, item); - Strbuf_terminate(exp_name); - return (0); - } - if (!enhanced && !igncase) { - for (x = exp_name->s, ent = item; *x && (*x & TRIM) == (*ent & TRIM); - x++, ent++) - len++; - } else { - for (x = exp_name->s, 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 */ - memcpy(exp_name->s, item, len * sizeof(*exp_name->s)); - } - *x = '\0'; /* Shorten at 1st char diff */ - exp_name->len = x - exp_name->s; - 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 command, int looking, struct Strbuf *exp_dir, - struct Strbuf *exp_name, Char *target, const Char *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 */ - size_t name_length = 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 *ptr; - struct varent *vp; - struct Strbuf buf = Strbuf_INIT, item = Strbuf_INIT; - int enhanced = 0; - 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; - } - - cleanup_push(&item, Strbuf_cleanup); - cleanup_push(&buf, Strbuf_cleanup); - while (!done && - (item.len = 0, - tw_next_entry[looking](&item, exp_dir, &flags) != 0)) { - Strbuf_terminate(&item); -#ifdef TDEBUG - xprintf("item = %S\n", item.s); -#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.s) || ISDOTDOT(item.s))) - done = TRUE; - if (name_length == 0 && item.s[0] == '.' && showdots == DOT_NONE) - done = TRUE; - break; - - case TW_COMMAND: -#if defined(_UWIN) || defined(__CYGWIN__) - /* - * Turn foo.{exe,com,bat,cmd} into foo since UWIN's readdir returns - * the file with the .exe, .com, .bat, .cmd extension - */ - { - static const char *rext[] = { ".exe", ".bat", ".com", ".cmd" }; - size_t exti = Strlen(item.s); - - if (exti > 4) { - char *ext = short2str(&item.s[exti -= 4]); - size_t i; - - for (i = 0; i < sizeof(rext) / sizeof(rext[0]); i++) - if (strcasecmp(ext, rext[i]) == 0) { - item.len = exti; - Strbuf_terminate(&item); - break; - } - } - } -#endif /* _UWIN || __CYGWIN__ */ - 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->len = 0; /* (not trying is important for ~) */ - Strbuf_terminate(exp_name); - d = 0; - done = TRUE; - break; - } - if (gpat && !Gmatch(item.s, pat)) - break; - /* - * Swapped the order of the spdist() arguments as suggested - * by eeide@asylum.cs.utah.edu (Eric Eide) - */ - nd = spdist(target, item.s); /* test the item against original */ - if (nd <= d && nd != 4) { - if (!(exec_check && !executable(exp_dir->s, item.s, dir_ok))) { - exp_name->len = 0; - Strbuf_append(exp_name, item.s); - Strbuf_terminate(exp_name); - d = nd; - if (d == 0) /* if found it exactly */ - done = TRUE; - } - } - else if (nd == 4) { - if (spdir(exp_name, exp_dir->s, item.s, target)) { - if (exec_check && - !executable(exp_dir->s, exp_name->s, 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: - - if ((vp = adrof(STRcomplete)) != NULL && vp->vec != NULL) { - Char **cp; - for (cp = vp->vec; *cp; cp++) { - if (Strcmp(*cp, STRigncase) == 0) - igncase = 1; - if (Strcmp(*cp, STRenhance) == 0) - enhanced = 1; - } - } - - if (enhanced || igncase) { - if (!is_prefixmatch(target, item.s, igncase)) - break; - } else { - if (!is_prefix(target, item.s)) - break; - } - - if (exec_check && !executable(exp_dir->s, item.s, dir_ok)) - break; - - if (dir_check && !isadirectory(exp_dir->s, item.s)) - break; - - if (text_check && isadirectory(exp_dir->s, item.s)) - break; - - /* - * Only pattern match directories if we're checking - * for directories. - */ - if (gpat && !Gmatch(item.s, pat) && - (dir_check || !isadirectory(exp_dir->s, item.s))) - 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) { - buf.len = 0; - Strbuf_append(&buf, item.s); - switch (looking) { - case TW_COMMAND: - if (!(dir_ok && exec_check)) - break; - if (filetype(exp_dir->s, item.s) == '/') - Strbuf_append1(&buf, '/'); - break; - - case TW_FILE: - case TW_DIRECTORY: - Strbuf_append1(&buf, filetype(exp_dir->s, item.s)); - break; - - default: - break; - } - Strbuf_terminate(&buf); - if ((looking == TW_COMMAND || looking == TW_USER - || looking == TW_LOGNAME) && tw_item_find(buf.s)) - break; - else { - /* maximum length 1 (NULL) + 1 (~ or $) + 1 (filetype) */ - tw_item_add(&buf); - if (command == LIST) - numitems++; - } - } - - if (command == RECOGNIZE || command == RECOGNIZE_ALL || - command == RECOGNIZE_SCROLL) { - if (ignoring && ignored(item.s)) { - nignored++; - break; - } - else if (command == RECOGNIZE_SCROLL) { - add_scroll_tab(item.s); - cnt++; - } - - if (match_unique_match || is_set(STRrecexact)) { - if (StrQcmp(target, item.s) == 0) { /* EXACT match */ - exp_name->len = 0; - Strbuf_append(exp_name, item.s); - Strbuf_terminate(exp_name); - numitems = 1; /* fake into expanding */ - non_unique_match = TRUE; - done = TRUE; - break; - } - } - if (recognize(exp_name, item.s, name_length, ++numitems, - enhanced, igncase)) - if (command != RECOGNIZE_SCROLL) - done = TRUE; - if (enhanced && exp_name->len < name_length) { - exp_name->len = 0; - Strbuf_append(exp_name, target); - Strbuf_terminate(exp_name); - } - } - break; - - default: - break; - } -#ifdef TDEBUG - xprintf("done item = %S\n", item.s); -#endif - } - cleanup_until(&item); - - 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(int looking, const Char *exp_dir, Char *exp_name) -{ - Char *ptr; - struct varent *vp; - - (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 && vp->vec != NULL) { - if ((ptr = vp->vec[0]) == NULL || *ptr == '\0' || - vp->vec[1] != NULL) - return ' '; - } - else if ((ptr = tgetenv(exp_name)) == NULL || *ptr == '\0') - return ' '; - - 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(int looking, struct Strbuf *word, Char *dir, Char *exp_name) -{ - Char *ptr; - - switch (looking) { - case TW_LOGNAME: - word->len = 0; - Strbuf_append1(word, '~'); - break; - - case TW_VARIABLE: - if ((ptr = Strrchr(word->s, '$')) != NULL) { - word->len = ptr + 1 - word->s; /* Delete after the dollar */ - } else - word->len = 0; - break; - - case TW_DIRECTORY: - case TW_FILE: - case TW_TEXT: - word->len = 0; - Strbuf_append(word, dir); /* put back dir part */ - break; - - default: - word->len = 0; - break; - } - - (void) quote(exp_name); - Strbuf_append(word, exp_name); /* add extended name */ - Strbuf_terminate(word); -} /* 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 command, int looking, struct Strbuf *exp_dir, - struct Strbuf *exp_name, Char *target, Char *pat, int flags, - DIR *dir_fd) -{ - volatile int ni; - jmp_buf_t osetexit; - -#ifdef TDEBUG - xprintf("target = %S\n", target); -#endif - ni = 0; - getexit(osetexit); - for (;;) { - volatile size_t omark; - - (*tw_start_entry[looking])(dir_fd, pat); - InsideCompletion = 1; - if (setexit()) { - cleanup_pop_mark(omark); - resexit(osetexit); - /* interrupted, clean up */ - haderr = 0; - ni = -1; /* flag error */ - break; - } - omark = cleanup_push_mark(); - ni = tw_collect_items(command, looking, exp_dir, exp_name, target, pat, - ni >= 0 ? flags : flags & ~TW_IGN_OK); - cleanup_pop_mark(omark); - resexit(osetexit); - if (ni >= 0) - break; - } - 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(int looking, int numitems, int list_max) -{ - Char *ptr; - int max_items = 0; - int max_rows = 0; - - if (numitems == 0) - return; - - 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, *sname; - 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; - } - - sname = strsave(name); - cleanup_push(sname, xfree); - xprintf(CGETS(30, 7, "There are %d %s, list them anyway? [n/y] "), - maxs, sname); - cleanup_until(sname); - flush(); - /* We should be in Rawmode here, so no \n to catch */ - (void) xread(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(tw_item_get(), numitems, sizeof(Char *), 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(struct Strbuf *word, COMMAND command, int looking, int list_max, - Char *pat, eChar suf) -{ - int numitems, /* Number of items matched */ - flags = 0, /* search flags */ - gpat = pat[0] != '\0', /* Glob pattern search */ - res; /* Return value */ - struct Strbuf exp_dir = Strbuf_INIT;/* dir after ~ expansion */ - struct Strbuf dir = Strbuf_INIT; /* /x/y/z/ part in /x/y/z/f */ - struct Strbuf exp_name = Strbuf_INIT;/* the recognized (extended) */ - Char *name, /* f part in /d/d/d/f name */ - *target; /* Target to expand/correct/list */ - DIR *dir_fd = NULL; - - /* - * 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->s, &dir, &name); - cleanup_push(&dir, Strbuf_cleanup); - cleanup_push(&name, xfree_indirect); - - /* - * SPECIAL HARDCODED COMPLETIONS: - * foo$variable -> TW_VARIABLE - * ~user -> TW_LOGNAME - * - */ - if ((*word->s == '~') && (Strchr(word->s, '/') == 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 */ - Strbuf_append(&exp_dir, pat); - if (exp_dir.len != 0 && exp_dir.s[exp_dir.len - 1] != '/') - Strbuf_append1(&exp_dir, '/'); - Strbuf_append(&exp_dir, dir.s); - } - Strbuf_terminate(&exp_dir); - cleanup_push(&exp_dir, Strbuf_cleanup); - - switch (looking & ~TW_PATH) { - case TW_NONE: - res = -1; - goto err_dir; - - case TW_ZERO: - looking = TW_FILE; - break; - - case TW_COMMAND: - if (Strchr(word->s, '/') || (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->len == 0) { - res = -1; - goto err_dir; - } -#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'); - } - res = 2; - goto err_dir; - - 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) { - Char *user_name; - - 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 ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0) - goto err_dir; - 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 ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0) - goto err_dir; - if (isadirectory(exp_dir.s, name)) { - if (exp_dir.len != 0 || name[0] != '\0') { - Strbuf_append(&dir, name); - if (dir.s[dir.len - 1] != '/') - Strbuf_append1(&dir, '/'); - Strbuf_terminate(&dir); - if ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0) - goto err_dir; - if (word->len != 0 && word->s[word->len - 1] != '/') { - Strbuf_append1(word, '/'); - Strbuf_terminate(word); - } - name[0] = '\0'; - } - } -#endif - if ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0) - goto err_dir; - break; - - case TW_TEXT: - flags |= TW_TEXT_CHK; - /*FALLTHROUGH*/ - case TW_FILE: - if ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0) - goto err_dir; - 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.s))) == NULL) { - if (command == RECOGNIZE) - xprintf("\n"); - xprintf("%S: %s", exp_dir.s, strerror(errno)); - if (command != RECOGNIZE) - xprintf("\n"); - NeedsRedraw = 1; - res = -1; - goto err_dir; - } - if (exp_dir.len != 0 && exp_dir.s[exp_dir.len - 1] != '/') { - Strbuf_append1(&exp_dir, '/'); - Strbuf_terminate(&exp_dir); - } - - 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: - xfree(name); - target = name = Strsave(word->s); /* so it can match things */ - break; - - default: - abort(); /* Cannot happen */ - break; - } - break; - - case TW_LOGNAME: - user_name = word->s + 1; - goto do_user; - - /*FALLTHROUGH*/ - case TW_USER: - user_name = word->s; - do_user: - /* - * Check if the spelling was already correct - * From: Rob McMahon <cudcv@cu.warwick.ac.uk> - */ - if (command == SPELL && xgetpwnam(short2str(user_name)) != NULL) { -#ifdef YPBUGS - fix_yp_bugs(); -#endif /* YPBUGS */ - res = 0; - goto err_dir; - } - xfree(name); - target = name = Strsave(user_name); - break; - - case TW_COMMAND: - case TW_VARLIST: - case TW_WORDLIST: - target = name = Strsave(word->s); /* 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; - res = -1; - goto err_dir; - } - - cleanup_push(&exp_name, Strbuf_cleanup); - numitems = tw_collect(command, looking, &exp_dir, &exp_name, target, pat, - flags, dir_fd); - if (numitems == -1) - goto end; - - switch (command) { - case RECOGNIZE: - case RECOGNIZE_ALL: - case RECOGNIZE_SCROLL: - if (numitems <= 0) - break; - - Strbuf_terminate(&exp_name); - tw_fixword(looking, word, dir.s, exp_name.s); - - if (!match_unique_match && is_set(STRaddsuffix) && numitems == 1) { - switch (suf) { - case 0: /* Automatic suffix */ - Strbuf_append1(word, - tw_suffix(looking, exp_dir.s, exp_name.s)); - break; - - case CHAR_ERR: /* No suffix */ - break; - - default: /* completion specified suffix */ - Strbuf_append1(word, suf); - break; - } - Strbuf_terminate(word); - } - break; - - case LIST: - tw_list_items(looking, numitems, list_max); - tw_item_free(); - break; - - case SPELL: - Strbuf_terminate(&exp_name); - tw_fixword(looking, word, dir.s, exp_name.s); - break; - - default: - xprintf("Bad tw_command\n"); - numitems = 0; - } - end: - res = numitems; - err_dir: - cleanup_until(&dir); - return res; -} /* 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(const Char *path, struct Strbuf *dir, Char **name) -{ - Char *p; - - p = Strrchr(path, '/'); -#ifdef WINNT_NATIVE - if (p == NULL) - p = Strrchr(path, ':'); -#endif /* WINNT_NATIVE */ - if (p == NULL) - *name = Strsave(path); - else { - p++; - *name = Strsave(p); - Strbuf_appendn(dir, path, p - path); - } - Strbuf_terminate(dir); -} /* end extract_dir_and_name */ - - -/* dollar(): - * expand "/$old1/$old2/old3/" - * to "/value_of_old1/value_of_old2/old3/" - */ -Char * -dollar(const Char *old) -{ - struct Strbuf buf = Strbuf_INIT; - - while (*old) { - if (*old != '$') - Strbuf_append1(&buf, *old++); - else { - if (expdollar(&buf, &old, QUOTE) == 0) { - xfree(buf.s); - return NULL; - } - } - } - return Strbuf_finish(&buf); -} /* end dollar */ - - -/* tilde(): - * expand ~person/foo to home_directory_of_person/foo - * or =<stack-entry> to <dir in stack entry> - */ -static int -tilde(struct Strbuf *new, Char *old) -{ - Char *o, *p; - - new->len = 0; - switch (old[0]) { - case '~': { - Char *name, *home; - - old++; - for (o = old; *o && *o != '/'; o++) - continue; - name = Strnsave(old, o - old); - home = gethdir(name); - xfree(name); - if (home == NULL) - goto err; - Strbuf_append(new, home); - xfree(home); - /* If the home directory expands to "/", we do - * not want to create "//" by appending a slash from o. - */ - if (new->s[0] == '/' && new->len == 1 && *o == '/') - ++o; - Strbuf_append(new, o); - break; - } - - case '=': - if ((p = globequal(old)) == NULL) - goto err; - if (p != old) { - Strbuf_append(new, p); - xfree(p); - break; - } - /*FALLTHROUGH*/ - - default: - Strbuf_append(new, old); - break; - } - Strbuf_terminate(new); - return 0; - - err: - Strbuf_terminate(new); - return -1; -} /* end tilde */ - - -/* expand_dir(): - * Open the directory given, expanding ~user and $var - * Optionally normalize the path given - */ -static int -expand_dir(const Char *dir, struct Strbuf *edir, DIR **dfd, COMMAND cmd) -{ - Char *nd = NULL; - Char *tdir; - - tdir = dollar(dir); - cleanup_push(tdir, xfree); - if (tdir == NULL || - (tilde(edir, tdir) != 0) || - !(nd = dnormalize(edir->len ? edir->s : STRdot, - symlinks == SYM_IGNORE || symlinks == SYM_EXPAND)) || - ((*dfd = opendir(short2str(nd))) == NULL)) { - xfree(nd); - if (cmd == SPELL || SearchNoDirErr) { - cleanup_until(tdir); - return (-2); - } - /* - * From: Amos Shapira <amoss@cs.huji.ac.il> - * Print a better message when completion fails - */ - xprintf("\n%S %s\n", edir->len ? edir->s : (tdir ? tdir : dir), - (errno == ENOTDIR ? CGETS(30, 10, "not a directory") : - (errno == ENOENT ? CGETS(30, 11, "not found") : - CGETS(30, 12, "unreadable")))); - NeedsRedraw = 1; - cleanup_until(tdir); - return (-1); - } - cleanup_until(tdir); - if (nd) { - if (*dir != '\0') { - int slash; - - /* - * Copy and append a / if there was one - */ - slash = edir->len != 0 && edir->s[edir->len - 1] == '/'; - edir->len = 0; - Strbuf_append(edir, nd); - if (slash != 0 && edir->s[edir->len - 1] != '/') - Strbuf_append1(edir, '/'); - Strbuf_terminate(edir); - } - xfree(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 int -nostat(Char *dir) -{ - struct varent *vp; - 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(Char *dir, Char *file) -{ - if (dir) { - Char *path; - char *ptr; - struct stat statb; - - if (nostat(dir)) return(' '); - - path = Strspl(dir, file); - ptr = short2str(path); - xfree(path); - - if (lstat(ptr, &statb) != -1) { -#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 - { - struct stat hpstatb; - char *p2; - - p2 = strspl(ptr, "+"); /* Must append a '+' and re-stat(). */ - if ((stat(p2, &hpstatb) != -1) && S_ISCDF(hpstatb.st_mode)) { - xfree(p2); - return ('+'); /* Context Dependent Files [hpux] */ - } - xfree(p2); - } -#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(const Char *dir, const Char *file) - /* return 1 if dir/file is a directory */ - /* uses stat rather than lstat to get dest. */ -{ - if (dir) { - Char *path; - char *cpath; - struct stat statb; - - path = Strspl(dir, file); - cpath = short2str(path); - xfree(path); - if (stat(cpath, &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(Char *items[], int count, int no_file_suffix) -{ - 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(Char *dir, Char *items[], int count, int no_file_suffix) -{ - int i, r, c, columns, rows; - size_t w; - unsigned int wx, maxwidth = 0; - Char *val; - int 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) NLSStringWidth(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) { - wx = 0; - w = 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); - items[i][w - 1] = f; - } - else { - /* Print filename followed by '/' or '*' or ' ' */ - print_with_color(items[i], w, filetype(dir, items[i])); - wx++; - } -#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])); - wx++; - } -#endif /* COLOR_LS_F */ - - if (c < (columns - 1)) { /* Not last column? */ - w = NLSStringWidth(items[i]) + wx; - 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(const Char *str1, const Char *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, (Char **, Char **) - */ -int -fcompare(const void *xfile1, const void *xfile2) -{ - const Char *const *file1 = xfile1, *const *file2 = xfile2; - - return 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(Char *des, const Char *src, int count) -{ - while (*des && --count > 0) - 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(Char *des, const Char *src, size_t count) -{ - while (--count != 0) - if ((*des++ = *src++) == 0) - return; - *des = '\0'; -} /* end copyn */ - - -/* tgetenv(): - * like it's normal string counter-part - */ -Char * -tgetenv(Char *str) -{ - Char **var; - size_t len; - int res; - - len = 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(Char *item) -{ - struct scroll_tab_list *new_scroll; - - new_scroll = xmalloc(sizeof(struct scroll_tab_list)); - new_scroll->element = Strsave(item); - new_scroll->next = scroll_tab; - scroll_tab = new_scroll; -} - -static void -choose_scroll_tab(struct Strbuf *exp_name, int cnt) -{ - struct scroll_tab_list *loop; - int tmp = cnt; - Char **ptr; - - ptr = xmalloc(sizeof(Char *) * cnt); - cleanup_push(ptr, xfree); - - for(loop = scroll_tab; loop && (tmp >= 0); loop = loop->next) - ptr[--tmp] = loop->element; - - qsort(ptr, cnt, sizeof(Char *), fcompare); - - exp_name->len = 0; - Strbuf_append(exp_name, ptr[curchoice]); - Strbuf_terminate(exp_name); - cleanup_until(ptr); -} - -static void -free_scroll_tab(void) -{ - struct scroll_tab_list *loop; - - while(scroll_tab) { - loop = scroll_tab; - scroll_tab = scroll_tab->next; - xfree(loop->element); - xfree(loop); - } -} diff --git a/contrib/tcsh/tw.spell.c b/contrib/tcsh/tw.spell.c deleted file mode 100644 index 4754108..0000000 --- a/contrib/tcsh/tw.spell.c +++ /dev/null @@ -1,162 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.spell.c,v 3.21 2006/03/02 18:46:45 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. 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("$tcsh: tw.spell.c,v 3.21 2006/03/02 18:46:45 christos Exp $") - -#include "tw.h" - -/* spell_me : return corrrectly spelled filename. From K&P spname */ -int -spell_me(struct Strbuf *oldname, int looking, Char *pat, eChar suf) -{ - struct Strbuf guess = Strbuf_INIT, newname = Strbuf_INIT; - const Char *old = oldname->s; - size_t ws; - int foundslash = 0; - int retval; - - cleanup_push(&guess, Strbuf_cleanup); - cleanup_push(&newname, Strbuf_cleanup); - for (;;) { - while (*old == '/') { /* skip '/' */ - Strbuf_append1(&newname, *old++); - foundslash = 1; - } - /* do not try to correct spelling of single letter words */ - if (*old != '\0' && old[1] == '\0') - Strbuf_append1(&newname, *old++); - Strbuf_terminate(&newname); - if (*old == '\0') { - retval = (StrQcmp(oldname->s, newname.s) != 0); - cleanup_ignore(&newname); - xfree(oldname->s); - *oldname = newname; /* shove it back. */ - cleanup_until(&guess); - return retval; - } - guess.len = 0; /* start at beginning of buf */ - Strbuf_append(&guess, newname.s); /* add current dir if any */ - ws = guess.len; - for (; *old != '/' && *old != '\0'; old++)/* add current file name */ - Strbuf_append1(&guess, *old); - Strbuf_terminate(&guess); - - /* - * 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, SPELL, - looking == TW_COMMAND && (foundslash || *old != '/') ? - TW_COMMAND : looking, 1, pat, suf); - if (retval >= 4 || retval < 0) { - cleanup_until(&guess); - return -1; /* hopeless */ - } - Strbuf_append(&newname, guess.s + ws); - } -/*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(const Char *s, const Char *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(struct Strbuf *extended_name, const Char *tilded_dir, const Char *item, - Char *name) -{ - Char *path, *s, oldch; - char *p; - - 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; - - path = xmalloc((Strlen(tilded_dir) + Strlen(name) + 1) * sizeof (*path)); - (void) Strcpy(path, tilded_dir); - oldch = *s; - *s = '/'; - Strcat(path, name); - p = short2str(path); - xfree(path); - if (access(p, F_OK) == 0) { - extended_name->len = 0; - Strbuf_append(extended_name, name); - Strbuf_terminate(extended_name); - /* FIXME: *s = oldch? */ - 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 58ce7e8..0000000 --- a/contrib/tcsh/vms.termcap.c +++ /dev/null @@ -1,333 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/vms.termcap.c,v 1.11 2006/03/02 18:46:45 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("$tcsh: vms.termcap.c,v 1.11 2006/03/02 18:46:45 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 */ -#ifndef fopen -extern FILE *fopen(); /* old fopen */ -#endif - -/* - * 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(char *bp, char *name) -{ - FILE *fp; - char *termfile; - char *cp, - *ptr, /* temporary pointer */ - tmp[1024]; /* buffer for terminal name *//*FIXBUF*/ - size_t 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(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(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(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(char *cm, int destcol, int destline) -{ - 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(char *cp, int affcnt, int (*outc)()) -{ - unsigned long delay = 0; - - if (cp == NULL) - return(1); - /* do any padding interpretation - left null for MINIX just now */ - for (delay = 0; *cp && ISDIGIT(*cp) ; cp++) - delay = delay * 10 + *cp - '0'; - while (*cp) - (*outc)(*cp++); -#ifdef _OSD_POSIX - usleep(delay*100); /* strictly spoken, it should be *1000 */ -#endif - return(1); -} -#endif /* _VMS_POSIX || _OSD_POSIX */ |
