6.09.01 vendor update.

This commit is contained in:
David E. O'Brien 2000-04-20 04:22:36 +00:00
parent c80476e4c3
commit 8e66bd9ec8
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/vendor/tcsh/dist/; revision=59415
svn path=/vendor/tcsh/6.09.01/; revision=59417; tag=vendor/tcsh/6.09.01
58 changed files with 1388 additions and 450 deletions

View File

@ -1,3 +1,20 @@
78. V6.09.01 - 20000114
79. Circumvent IRIX4D ESTALE bug by exiting.
78. IRIS4D de-linting.
77. Finnish nls catalogs (Jukka A. Ukkonen)
76. Even more multibyte fixes (Taga Nayuta)
75. Patches to statically link tcsh under solaris-2.6 (John Hawkinson)
74. Manual page typos (R. Bernstein)
73. HP/UX-11 (9000/800) HP/UX-10.20 (9000/820) (Haflidi Sigtryggur Magnusson)
72. Color-ls fixes (Luis Francisco Gonzalez)
71. Don't re-use time0 to compare to stat's st_mtime, cause it could be
the value returned from times(2) which is the ticks since system
startup (Frank van der Linden)
70. Time percentage wrap fix (Simon Burge)
69. EUCKR support (HyunChul Kim)
68. Grammar and typo fixes for tcsh.man (Steve Kelem)
67. More multibyte fixes (Rodney Ruddock)
66. Change 6.08 -> 6.09 where I missed it; update for utlrix 4.5 (Simon Burge)
65. V6.09.00 - 19990816
64. Add csh emacs mode (Dan Harkless)
63. Make sure the the glob buffer matches the word buffer size (Brian Biswas)

View File

@ -1,7 +1,7 @@
XCOMM
XCOMM $Id: Imakefile,v 1.76 1999/06/09 19:26:36 christos Exp $
XCOMM $Id: Imakefile,v 1.77 2000/01/14 22:57:25 christos Exp $
XCOMM
XCOMM Imakefile for tcsh 6.08
XCOMM Imakefile for tcsh 6.09
XCOMM Marc Horowitz, MIT SIPB
XCOMM
@ -480,7 +480,7 @@ LDLIBS = MyLibs
#endif
SUF = o
VERSION = 6.08
VERSION = 6.09
SHSRCS= sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \
sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \

View File

@ -1,4 +1,4 @@
# $Id: Makefile.in,v 3.12 1998/11/24 18:17:08 christos Exp $
# $Id: Makefile.in,v 3.13 2000/01/14 22:57:25 christos Exp $
# Makefile.in 4.3 6/11/83
#
# C Shell with process control; VM/UNIX VAX Makefile
@ -8,7 +8,7 @@
# things; Paul Placeway, CIS Dept., Ohio State University
#
SHELL=/bin/sh
VERSION=6.08
VERSION=6.09
BUILD=tcsh
VPATH=@srcdir@
srcdir=@srcdir@
@ -154,6 +154,13 @@ LDFLAGS= @LDFLAGS@ ## This is set by autoconf.
#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.
################################################################
@ -336,6 +343,10 @@ tcsh:$(P) ${OBJS}
rm -f tcsh core
${CC} -o tcsh ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS}
tcsh.sbin:$(P) ${OBJS}
rm -f tcsh.sbin core
${CC} -o tcsh.sbin ${SBINLDFLAGS} ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS}
# Purify
pure:$(P) ${OBJS}
rm -f tcsh core

View File

@ -1,4 +1,4 @@
# $Id: Makefile.std,v 1.88 1998/10/02 10:56:47 christos Exp $
# $Id: Makefile.std,v 1.89 2000/01/14 22:57:25 christos Exp $
# Makefile.std 4.3 6/11/83
#
# C Shell with process control; VM/UNIX VAX Makefile
@ -8,7 +8,7 @@
# things; Paul Placeway, CIS Dept., Ohio State University
#
SHELL=/bin/sh
VERSION=6.08
VERSION=6.09
BUILD=tcsh
srcdir=.

View File

@ -1,4 +1,4 @@
# $Id: Makefile.vms,v 1.32 1998/10/02 10:56:49 christos Exp $
# $Id: Makefile.vms,v 1.33 2000/01/14 22:57:25 christos Exp $
# Makefile.vms 4.3 6/11/83
#
# C Shell with process control; VM/UNIX VAX Makefile
@ -8,7 +8,7 @@
# things; Paul Placeway, CIS Dept., Ohio State University
#
SHELL=/bin/sh
VERSION=6.08
VERSION=6.09
BUILD=tcsh
################################################################

View File

@ -155,7 +155,7 @@ 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
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);
@ -163,7 +163,7 @@ 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.07.11
VERSION : 6.09.00
VENDOR : apple
MODELS : macII
@ -1014,3 +1014,15 @@ 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

View File

@ -1,4 +1,4 @@
This is tcsh version 6.08. Tcsh is a version of the Berkeley
This is tcsh version 6.09. Tcsh is a version of the Berkeley
C-Shell, with the addition of: a command line editor, command and file
name completion, listing, etc. and a bunch of small additions to the
shell itself.

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/ed.init.c,v 3.41 1999/02/06 15:01:16 christos Exp $ */
/* $Header: /src/pub/tcsh/ed.init.c,v 3.42 2000/01/14 22:57:26 christos Exp $ */
/*
* ed.init.c: Editor initializations
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: ed.init.c,v 3.41 1999/02/06 15:01:16 christos Exp $")
RCSID("$Id: ed.init.c,v 3.42 2000/01/14 22:57:26 christos Exp $")
#include "ed.h"
#include "ed.term.h"
@ -139,6 +139,7 @@ sigret_t
window_change(snum)
int snum;
{
USE(snum);
#ifdef UNRELSIGS
/* If we were called as a signal handler, restore it. */
if (snum > 0)

View File

@ -158,6 +158,12 @@ globcharcoll(c1, c2)
if (c1 == c2)
return (0);
/*
* From kevin lyda <kevin@suberic.net>:
* strcoll does not guarantee case sorting, so we pre-process now:
*/
if (islower(c1) && isupper(c2))
return (1);
s1[0] = c1;
s2[0] = c2;
s1[1] = s2[1] = '\0';
@ -348,6 +354,14 @@ glob(pattern, flags, errfunc, pglob)
if (flags & GLOB_QUOTE) {
/* Protect the quoted characters */
while (bufnext < bufend && (c = *patnext++) != EOS)
#ifdef DSPMBYTE
if (Ismbyte1(c) && *patnext != EOS)
{
*bufnext++ = (Char) c;
*bufnext++ = (Char) *patnext++;
}
else
#endif /* DSPMBYTE */
if (c == QUOTE) {
if ((c = *patnext++) == EOS) {
c = QUOTE;
@ -367,6 +381,14 @@ glob(pattern, flags, errfunc, pglob)
qpatnext = patbuf;
/* we don't need to check for buffer overflow any more */
while ((c = *qpatnext++) != EOS) {
#ifdef DSPMBYTE
if (Ismbyte1(c) && *qpatnext != EOS)
{
*bufnext++ = CHAR(c);
*bufnext++ = CHAR(*qpatnext++);
}
else
#endif /* DSPMBYTE */
switch (c) {
case LBRACKET:
c = *qpatnext;
@ -452,7 +474,7 @@ glob(pattern, flags, errfunc, pglob)
}
return (globextend(patbuf, pglob));
}
else if (!(flags & GLOB_NOSORT))
else if (!(flags & GLOB_NOSORT) && (pglob->gl_pathc != oldpathc))
qsort((char *) (pglob->gl_pathv + pglob->gl_offs + oldpathc),
pglob->gl_pathc - oldpathc, sizeof(char *),
(int (*) __P((const void *, const void *))) compare);

View File

@ -1,5 +1,5 @@
SUBDIRS= C german french italian ja greek spanish
SUBDIRS= C finnish french german greek italian ja spanish
#GENCAT= gencat -new
GENCAT= gencat

View File

@ -0,0 +1,140 @@
$ $Id: set1,v 1.1 2000/01/14 22:57:31 christos Exp $
$ Error messages
$set 1
1 Kielioppivirhe
2 %s ei ole sallittu
3 Liian pitkä sana
4 $< rivi liian pitkä
5 Puuttuva tiedosto $0
6 Vajavainen [] muunnos
7 $ -laajennuksen on päätyttävä ennen ']'-merkkiä
8 Virheellinen : -muunnos $ (%c)
9 Indeksivirhe
10 Virheellinen numero
11 Liian vähän sanoja
12 Puuttuva tiedoston nimi
13 Sisäinen laajennusvirhe (glob)
14 Käskyä ei löydy
15 Liian vähän argumentteja
16 Liian monta argumenttia
17 Vaarallinen alias
18 Tyhjä ehto (if)
19 Soveltumaton seuraus (then)
20 Sanat eivät ole suluissa
21 %s ei löydy
22 Soveltumaton maski
23 Rajoite tuntematon
24 Liian suuri argumentti
25 Soveltumaton tai tuntematon muunnoskerroin
26 Määrittelemätön muuttuja
27 Hakemistopino on matalampi
28 Virheellinen signaalin numero
29 Tuntematon signaali; kill -l tulostaa signaalit
30 Muutujan nimi on aloitettava kirjaimella
31 Liian pitkä muuttuja nimi
32 Muuttujan nimi on koostuttava kirjaimista ja numeroista
33 Tässä komentotulkissa ei ole töiden hallintaa
34 Lauseke virheellinen
35 Kotihakemisto puuttuu
36 Siirtyminen kotihakemistoon ei onnistu
37 Tyhjä käsky
38 Sijoituksesta puuttuu lauseke
39 Tuntematon operaattori
40 Tulkinnanvarainen
41 %s: Tiedosto ei ole uusi
42 Parametrin -c argumentti päätty takakenoviivaan (\\)
43 Keskeytetty
44 Indeksi viittaa rajojen ulkopuollelle
45 Rivin ylivuoto
46 Olematon työ
47 Ei onnistu päätteeltä
48 Silmukan (while/foreach) ulkopuolella
49 Lisää prosesseja ei voida luoda
50 Ei vastaavuuksia (match)
51 Puuttuva %c
52 Ylimääräinen/pariton %c
53 Muisti loppu
54 Putkea ei voida luoda
55 %s: %s
56 %s
57 Käyttö: jobs [ -l ]
58 Argumenttien on oltava töiden tai prosessien tunnisteita
59 Ei tämänhetkistä työtä
60 Ei edellistä työtä
61 Mikään työ ei vastaa mallia
62 Sisäkkäinen prosessin luonti (fork) > %d; mahdollisesti `...` silmukka
63 Alemman tason komentotulkeissa ei ole töidenhallintaa
64 Synkronointivirhe: Prosessia %d ei löydy
65 %sTilapäisesti keskeytettyjä töitä
66 %sPysähtyneenä olevia töitä
67 Toinen hakemisto puuttuu
68 Hakemistopino on tyhjä
69 Virheellinen hakemisto
70 Käyttö: %s [-%s]%s
71 Lipulle -h ei ole argumenttia
72 Tämä ei ole ensimmäisen tason komentotulkki (login shell)
73 Jako 0:lla
74 Jakojäännös 0:lla
75 Virheellinen muunnoskerroin; tarkoititko "%s"?
76 Ensimmäisen tason komentotulkkia ei voi keskeyttää (vielä)
77 Tuntematon käyttäjä: %s
78 Muuttujaa $home ei ole asetettu
79 Käyttö: history [-%s] [# tapahtumien/käskyjen lukumäärä]
80 $, ! tai < ei ole sallittu $# eikä $? yhteydessä
81 Muuttujan nimi sisältää rivin vaihdon
82 * ei ole sallittu $# eikä $? yhteydessä
83 $?<numero> tai $#<numero> ei ole sallittu
84 Soveltumaton muuttujan nimi
85 Rivin vaihto muutujan indeksissä
86 Laajennuspuskurin ylivuoto
87 Muuttujassa kielioppivirhe
88 Virheellinen ! -muoto
89 Edellistä korvaavaa merkkijonoa ei ole
90 Virheellinen korvaava merkkijono
91 Edellistä vasemmanpuolista merkkijonoa ei ole
92 Oikeanpuolinen merkkijono on liian pitkä
93 Virheellinen ! -muunnos: %c
94 Muunnos epäonnistui
95 Korvauspuskurin ylivuoto
96 Virheellinen ! argumenttivalitsin
97 Edellistä hakua ei ole
98 %s: Tapahtumaa/käskyä ei löydy
99 Liian paljon loppusulkuja ')'
100 Liian paljon alkusulkuja '('
101 Virheellisesti sijoitettu alkusulku '('
102 Uudelleen ohjauksesta puuttuu nimi
103 Tulkinnanvarainen tulostuksen ohjaus
104 Ohjaus << ei onnistu sulkujen '()' sisällä
105 Tulkinnanvarainen syötteen ohjaus
106 Virheelisesti sijoitetut sulut '()'
107 Silmukka alias-määrittelyissä
108 Muuttujaa $watch ei ole asetettu
109 Jonossa ei ole tapahtumia
110 Käyttö: sched -<tapahtumien lukumäärä>.\nKäyttö: sched [+]tt:mm <käsky>
111 Jonotettuja tapahtumia ei ole niin monta
112 Suoritettava käsky puuttuu
113 Virheellinen tapahtuma-aika
114 Suhteellinen ajan määre ei sovellu käytettäväksi am/pm yhteydessä
115 Päätetyypin kuvaukselle (termcap) ei ole tarpeeksi tilaa
116 Käyttö: settc %s [yes|no]
117 Tuntematon toiminne `%s'
118 Tuntematon päätetyypin (termcap) parameteri `%%%c'
119 Liian paljon argumentteja käskylle `%s' (%d)
120 `%s' edellyttää %d argumenttia
121 Käyttö: echotc [-v|-s] [<toiminne> [<argumentit>]]
122 %s: %s. Väärä laitearkkitehtuuri
123 !# Silmukka komentohistoriassa
124 Virheellinen tiedostotesti
125 Valitsimen ylivuoto
126 Tuntematon valitsin: `-%s'\nKäyttö: %s [ -bcdefilmnqstvVxX -Dnimi[=arvo] ] [ argumentti ... ]
127 Tuntematon valitsin: `-%s'\nKäyttö: %s [ -bcdefFilmnqstvVxX ] [ argumentti ... ]
128 Tuntematon valitsin: `-%s'\nKäyttö: %s [ -bcdefilmnqstvVxX ] [ argumentti ... ]
129 \nSoveltumaton täydennys: "%s"
130 \nSoveltumaton %s: '%c'
131 \nErotin '%c' puuttuu %s "%s" jäljestä
132 \nVajaa %s: "%s"
133 Valitsimelle -m ei ole kohdeargumenttia
134 Käyttö: unlimit [-fh] [rajoitteet (limits)]
135 Muuttujalle $%S ei voida asettaa arvoa
136 Viitattua työtä ei ole
137 Tuntematon colorls -muuttuja `%c%c'

View File

@ -0,0 +1,8 @@
$ $Id: set10,v 1.1 2000/01/14 22:57:31 christos Exp $
$ ma.setp.c
$set 10
1 setpath: Virheellinen komento '%s'.\n
2 setpath: Argumentit ovat riittämättömiä komennolle '%s'.\n
3 setpath: Arvoa ei löydy hakupolusta '%s'\n
4 setpath: %s ei löydy paikasta %s\n
5 setpath: %d ei ole hyväksyttävä sijainti paikassa %s\n

View File

@ -0,0 +1,10 @@
$ $Id: set11,v 1.1 2000/01/14 22:57:32 christos Exp $
$ sh.c
$set 11
1 Varoitus: ei yhteyttä päätteeseen (%s).\n
2 Niinpä tässä komentotulkissa ei ole töiden hallintaa.\n
3 Sinulla on %d sähköpostiviestiä.\n
4 Sinulla on %d viestiä tiedostossa %s.\n
5 Sinulla on %spostia.\n
6 uutta
7 Sinulla on %spostia tiedostossa %s.\n

View File

@ -0,0 +1,4 @@
$ $Id: set12,v 1.1 2000/01/14 22:57:32 christos Exp $
$ sh.dir.c
$set 12
1 %s: Yritetään käynnistää hakemistosta "%s"\n

View File

@ -0,0 +1,13 @@
$ $Id: set13,v 1.1 2000/01/14 22:57:32 christos Exp $
$ sh.exec.c
$set 13
1 hash=%-4d dir=%-2d prog=%s\n
2 %d hajautusluokkaa, joista jokaisessa %d bittiä\n
3 debug mask = 0x%08x\n
4 %d osumia, %d harhoja, %d%%\n
5 %S: Komentotulkin sisäinen komento.\n
6 %S: Komentoa ei löydy.\n
7 where: / käskyssä on mahdoton ajatus\n
8 %S on alias komennolle
9 %S on komentotulkin sisäinen komento\n
10 hajautusharha:

View File

@ -0,0 +1,6 @@
$ $Id: set14,v 1.1 2000/01/14 22:57:32 christos Exp $
$ sh.file.c
$set 14
1 \nAuts!! Liian monta %s!!\n
3 nimeä käyttäjätietokannassa
3 tiedostoa

View File

@ -0,0 +1,7 @@
$ $Id: set15,v 1.1 2000/01/14 22:57:32 christos Exp $
$ sh.func.c
$set 15
1 %s: %s: rajoitusta ei voida %s %s\n
2 poistaa
3 asettaa
4 ehdottomaksi

View File

@ -0,0 +1,13 @@
$ $Id: set16,v 1.1 2000/01/14 22:57:32 christos Exp $
$ sh.lex.c
$set 16
1 Päätteen prosessiryhmä vaihdettu arvosta %d %d:ksi.\n
2 \nSano "logout" kirjoittautuaksesi ulos järjestelmästä.\n
3 \nSano "exit" lopettaaksesi %s:n\n
4 seek to eval %x %x\n
5 seek to alias %x %x\n
6 seek to file %x\n
7 Virheellinen seek-tyyppi %d\n
8 tell eval %x %x\n
9 tell alias %x %x\n
10 tell file %x\n

View File

@ -0,0 +1,16 @@
$ $Id: set17,v 1.1 2000/01/14 22:57:32 christos Exp $
$ sh.proc.c
$set 17
1 VIKA: taustatyötä!\n
2 Paluuarvo %d\n
3 VIKA: prosessi on hävitetty jo kertaalleen
4 Ajossa
5 Signaali
6 Paluuarvo %-25d
7 Valmis
8 VIKA: status=%-9o
9 \040(muistin tila talletettu)
10 \040(hakemisto:
11 hakemisto nyt:
12 %S: On jo keskeytetty\n
13 %S: On jo pysäytetty\n

View File

@ -0,0 +1,4 @@
$ $Id: set18,v 1.1 2000/01/14 22:57:32 christos Exp $
$ sh.set.c
$set 18
1 Varoitus: Kohtuuttoman pitkä hakupolku (PATH) katkaistu.\n

View File

@ -0,0 +1,15 @@
$ $Id: set19,v 1.1 2000/01/14 22:57:32 christos Exp $
$ tc.alloc.c
$set 19
1 nbytes=%d: Muisti loppu\n
2 free(%lx) kutsuttu ennen kuin mitään on varattu.
3 free(%lx) arvo on sallitun muistialueen yläpuolella.
4 free(%lx) arvo on sallitun muistialueen alapuolella.
5 free(%lx) Virheellinen/viallinen lohko.
6 free(%lx) Lohko ei ole dynaamisesti varatulla alueella.
7 free(%lx) Virheellinen lohkon indeksi.
8 %s tämänhetkinen muistin varauksien tila:\nvapaana:\t
9 \nkäytössä:\t
10 \n\tYhteensä käytössä: %d, yhteensä vapaana: %d\n
11 \tVarattu muisti alueella 0x%lx .. 0x%lx. Todellinen huippu 0x%lx\n
12 Varattu muisti alueella 0x%lx .. 0x%lx (%ld).\n

View File

@ -0,0 +1,94 @@
$ $Id: set2,v 1.1 2000/01/14 22:57:32 christos Exp $
$ Signal names
$set 2
1 Null-signaali
2 Yhteyden katkaisu
3 Keskeytys
4 Lopetus
5 Virheellinen konekäsky
6 Seuranta-ansa (BPT)
7 Hätäkeskeytys
8 Syöttö-/tulostusansa
9 Järjestelmän alasajo odotettavissa
10 Virheellinen päättyminen
11 Jäljittelyansa (EMT)
12 Liukulukupoikkeus
13 Tapettu
14 Käyttäjän signaal1 1
15 Käyttäjän signaali 2
16 Väärä muistilohko
17 Väylävirhe
18 Viittaus ohjelma-alueen ulkopuolelle
19 Data sallittujen arvojen ulkopuolella
20 Tuntematon järjestelmäkutsu
21 Murtunut putki
22 Herätyskello
23 Päätetty
24 Poikasen tila muuttunut
25 Poikanen kuollut
26 Apollon laitekohtainen virhe
27 Poikanen pysähtynyt tai poistunut
28 Poikanen poistunut
29 Tehonsyöttö pettänyt
30 Resurssi menetetty
31 Break (Ctrl-Break)
32 Syöte/tulostus mahdollista
33 Epäsynkroninen syöte/tulostus (select)
34 Kiireellinen syöte-/tulostustapahtuma
35 Herätys moniajossa
36 Tappaminen moniajossa
37 Fortranin epäsynkroninen syöte/tulostus valmis
38 Toipuminen
39 Korjauskelvoton muistivirhe
40 Keskusyksikköajan raja ylitetty
41 Järjestelmän sulkeminen odotettavissa
42 Pienoistehtäväryhmän ei-herätystä lippu asetettu
43 Säievirhe - (yksityiskohtaisempia tietoja käskyllä cord -T)
44 rekisterin pariteettivirhe (CRAY Y-MP)
45 Tiedotepyyntö
46 Keskeytetty (signaali)
47 Pysäytetty (signaali)
48 Keskeytetty
49 Pysäytetty
50 Suoritus jatkuu
51 Keskeytetty (päätesyöte)
52 Pysäytetty (päätetulostus)
53 Keskeytetty (päätetulostus)
54 Pysäytetty (päätetulostus)
55 Ikkunan tila muuttunut
56 Ikkunan koko muuttunut
57 Puhelinlinjan tila muuttunut
58 Keskusyksikköajan raja ylitetty
59 Tiedostokoon raja ylitetty
60 Käyttökelpoisen ajan ajastin laukesi
61 Ohjelman ajankäytönseurannan ajastin laukesi
62 DIL-signaali
63 Tutkittava tapahtuma (poll)
64 Prosessin kevytprosessit Process's lwps are blocked
65 Erityinen kevytprossisignaali (LWP)
66 Erityinen CPR-signaali
67 Erityinen CPR-signaali
68 Ensimmäinen tosiaikasignaali
69 Toinen tosiaikasignaali
70 Kolmas tosiaikasignaali
71 Neljäs tosiaikasignaali
72 Neljänneksi viimeinen tosiaikasignaali
73 Kolmanneksi viimeinen tosiaikasignaali
74 Toiseksi viimeinen tosiaikasignaali
75 Viimeinen tosiaikasignaali
76 Paikallisverkko (epäsynkroninen syöte/tulostus)
77 Näennäispääte (syöte/tulostus valmiina)
78 Syöte-/tulostustoimenpidettä edellytetään
79 HFT seurantatila luovutettu
80 HFT seurantatila vapautettava
81 HFT äänenhallinta valmis
82 Uutta dataa HFT-rengaspuskurissa
83 Muuta prosessi
84 Turvallinen huomionäppäin
85 Vuorottelutarve
86 SS$_DEBUG -signaali
87 Etusija muuttunut (priority)
88 Todellinen lukkiintumistila
89 Uusi merkki syötteessä
90 Pinon raja ylitetty
91 Käyttämätön signaali

View File

@ -0,0 +1,41 @@
$ $Id: set20,v 1.1 2000/01/14 22:57:32 christos Exp $
$ tc.bind.c
$set 20
1 Invalid key name `%S'\n
2 Bad key name: %S\n
3 Bad command name: %S\n
4 Bad key spec %S\n
5 Null string specification\n
6 Standard key bindings\n
7 Alternative key bindings\n
8 Multi-character bindings\n
9 Arrow key bindings\n
10 %-15s-> is undefined\n
11 BUG!!! %s isn't bound to anything.\n
12 Usage: bindkey [options] [--] [KEY [COMMAND]]\n
13 -a list or bind KEY in alternative key map\n
14 -b interpret KEY as a C-, M-, F- or X- key name\n
15 -s interpret COMMAND as a literal string to be output\n
16 -c interpret COMMAND as a builtin or external command\n
17 -v bind all keys to vi bindings\n
18 -e bind all keys to emacs bindings\n
19 -d bind all keys to default editor's bindings\n
20 -l list editor commands with descriptions\n
21 -r remove KEY's binding\n
22 -k interpret KEY as a symbolic arrow-key name\n
23 -- force a break from option processing\n
24 -u (or any invalid option) this message\n
25 Without KEY or COMMAND, prints all bindings\n
26 Without COMMAND, prints the binding for KEY.\n
27 bad key specification -- null string\n
28 bad key specification -- empty string\n
29 Bad function-key specification. Null key not allowed\n
30 bad key specification -- malformed hex number\n
31 bad key specification -- malformed octal number\n
32 bad key specification -- malformed decimal number\n
33 Bad function-key specification.\n
34 Null key not allowed\n
35 bad key specification -- unknown name "%S"\n
36 usage: bind [KEY | COMMAND KEY | "emacs" | "vi" | "-a"]\n
37 Invalid function
38 %s\t\tis undefined\n

View File

@ -0,0 +1,5 @@
$ $Id: set21,v 1.1 2000/01/14 22:57:32 christos Exp $
$ tc.disc.c
$set 21
1 Couldn't get local chars.\n
2 Couldn't set local chars.\n

View File

@ -0,0 +1,18 @@
$ $Id: set22,v 1.1 2000/01/14 22:57:33 christos Exp $
$ tc.func.c
$set 22
1 %S: \t on alias komennolle
2 \nTunnussana ei ole käyttäjän %s\n
3 Virheellinen alias 'precmd' poistettu.\n
4 Virheellinen alias 'cwdcmd' poistettu.\n
5 Virheellinen alias 'beepcmd' poistettu.\n
6 Virheellinen alias 'periodic' poistettu.\n
7 Jäsennetään komentoriviä\n
8 Haluatko todella tuhota kaikki tiedostot? [e/k]
9 Ohitetaan tiedostojen tuhoaminen!\n
10 Komentorivi on nyt:\n
11 Jäsennetään komentoriviä\n
12 on yhdellä listoista\n
13 Komentorivi on nyt:\n
$ 14 YyKk
14 Kk

View File

@ -0,0 +1,34 @@
$ $Id: set23,v 1.1 2000/01/14 22:57:33 christos Exp $
$ tc.os.c
$set 23
1 Virheellinen solmun nimi
2 Solmun polku liian pitkä
3 tuntematon
4 solmu: %s\n
5 %d: Solmua ei löydy\n
6 setlocal: %s: %s\n
7 Solmua ei löydy
8 Olet ansassa maailmassa (universe), mitä et itse luonut.
9 Getwarp epäonnistui
10 Virheellinen warp
11 Setwarp epäonnistui
12 Virheellinen maailma (universe)
13 Tuntematon virhe: %d
14 sysname: %s\n
15 nodename: %s\n
16 release: %s\n
17 version: %s\n
18 machine: %s\n
19 getwd: Avaus ei onnistu ".." (%s)
20 getwd: En voi siirtyä hakemistoon ".." (%s)
21 getwd: Virhe luettaessa hakemistoa ".." (%s)
22 getwd: En voi siirtyä takaisin hakemistoon "." (%s)
23 getwd: En voi testata (stat) hakemistoa "/" (%s)
24 getwd: En voi testata (stat) hakemistoa "." (%s)
25 getwd: En voi testata (stat) hakemistoa "%s" (%s)
26 getwd: En voi avata hakemistoa "%s" (%s)
27 getwd: Hakemisto "." ei löydy hakemistosta ".." (%s)
28 Virheellinen järjestelmän tyyppi
29 Järjestelmän tyyppiä ei asetettu
30 Liian monta argumenttia
31 Virheellinen argumentti

View File

@ -0,0 +1,4 @@
$ $Id: set24,v 1.1 2000/01/14 22:57:33 christos Exp $
$ tc.sched.c
$set 24
1 jippo (kludge)

View File

@ -0,0 +1,6 @@
$ $Id: set25,v 1.1 2000/01/14 22:57:33 christos Exp $
$ tc.sig.c
$set 25
1 our wait %d\n
2 virhe: bsd_signal(%d) signaali on sallitun arvoalueen ulkopuolella\n
3 virhe: bsd_signal(%d) - sigaction epäonnistui, errno %d\n

View File

@ -0,0 +1,15 @@
$ $Id: set26,v 1.1 2000/01/14 22:57:33 christos Exp $
$ tc.who.c
$set 26
1 Testaaminen ei onnistu: stat(%s). Ole hyvä ja suorita "unset watch".\n
2 %s ei avaudu. Ole hyvä ja suorita "unset watch".\n
3 VIKA! viimeinen osa ei ole whotail!\n
4 takaperin:
5 VIKA! ensimmäinen osa ei ole whohead!\n
6 uusi: %s/%s\n
7 %n on %a %l koneelta %m.
8 %n on %a %l.
9 kirjoittautunut sisään linjalle
10 kirjoittautunut ulos linjalta
11 korvannut tunnuksen %s linjalla
12 localhost

View File

@ -0,0 +1,8 @@
$ $Id: set27,v 1.1 2000/01/14 22:57:33 christos Exp $
$ tw.comp.c
$set 27
1 komento
2 erotin
3 malli
4 arvojoukko
5 täydennys

View File

@ -0,0 +1,4 @@
$ $Id: set29,v 1.1 2000/01/14 22:57:33 christos Exp $
$ tw.help.c
$set 29
1 Ei löydy aputiedostoa komennolle %S\n

View File

@ -0,0 +1,118 @@
$ $Id: set3,v 1.1 2000/01/14 22:57:33 christos Exp $
$ Editor function descriptions
$set 3
1 Siirry taaksepäin yksi merkki
2 Poista kursoria edeltävä merkki
3 Leikkaa sanan alusta kursoriin - talleteta leikkauspuskuriin
4 Leikkaa rivin alusta kursoriin - talleteta leikkauspuskuriin
5 Siirry sanan alkuun
6 Siirry rivin alkuun
7 Vaihda isoiksi kirjaimiksi kursorista sanan loppuun
8 Vi: Vaihda kirjain kursorin alla ison ja pienen välillä, ja etene merkki
9 Vi: muuta rivin loppuun
10 Puhdista kuvaruutu jättäen keskeneräinen rivi ylimmäksi
11 Täydennä sana
12 Etene tiedostojen läpi yksi kerrallaan
13 Peruuta tiedostojen läpi yksi kerrallaan
14 Täydennä sana huomioimatta ohjelmoitavia täydennyksiä
15 Kopioi sana kursoriin saakka
16 Kopioi leikkauspuskuriin alue merkistä kursoriin
17 Laajenna edelliseksi sanaksi, missä on tämä alkuosa
18 Poista merkki kursorin alta
19 Poista merkki kursorin alta ja ilmoita tiedoston loppu tyhjällä rivillä
20 Poista merkki kursorin alta ja näytä täydennykset, mikäli rivin lopussa
21 Poista merkki kursorin alta ja ilmoita täydennykset tai tiedoston loppu
22 Leikkaa kursorista sanan loppuun - talleteta leikkauspuskuriin
23 Lisää argumenttiin, mikäli sekvenssi on aloitettu tai kyseessä on numero
24 Numero, mikä aloittaa argumentin
25 Siirry seuraavalle riville historiassa
26 Muuta pieniksi kirjaimiksi kursorista sanan loppuun
27 Ilmoita tiedoston loppu
28 Siirrä kursori rivin loppuun
29 Vaihda kursorin ja merkin paikkaa
30 Laajenna tiedoston nimen jokerimerkit
31 Laajenna viittaukset komentohistoriaan
32 Laajenna viittaukset komentohistoriaan suoraan paikallaan
33 Laajenna muuttujat
34 Siirry eteenpäin yksi merkki
35 Siirry eteenpäin sanan loppuun
36 Vaihda keskenään kursoria edeltävät kaksi merkkiä
37 Etsi historiasta taaksepäin riviä, mikä alkaa kuten tämä
38 Etsi historiasta eteenpäin riviä, mikä alkaa kuten tämä
39 Lisää viimeisen komennon viimeinen osa
40 Täsmentyvä haku eteenpäin
41 Täsmentyvä haku taaksepäin
42 Tyhjennä rivi
43 Leikkaa kursorista rivin loppuun ja talleta leikkauspuskuriin
44 Leikkaa alue merkistä kursoriin ja talleta leikkauspuskuriin
45 Leikkaa koko rivi ja talleta leikkauspuskuriin
46 Näytä täydennysvaihtoehdot
47 Näytä täydennysvaihtoehdot ohittaen ohjelmoitavat taydennykset
48 Näytä tiedostojen nimien jokerimerkkivastaavuudet
49 Näytä täydennysvaihtoehdot tai ilmoita tiedoston loppu, jos rivi on tyhjä
50 Näytä kuormituskeskiarvot ja tämänhetkisen prosessin tila
51 Laajenna historiaviittaukset ja lisää välilyönti
52 Suorita komento
53 Laajenna hakupolut ja korvaa tai taydennä jokainen '.' ja '..'
54 Laajenna komennot kokonaisiksi hakupoluiksi tai alias-vastineiksi
55 Vaihda toimintatilaa lisäyksen ja päällekirjoituksen välillä
56 Lisää 8. bitti seuraavaan merkkiin (meta)
57 Lisää seuraava merkki riville sellaisenaan ilman tulkintaa
58 Näytä kaikki uudestaan
59 Jatka pysäytettyä tekstinkäsittelyä
60 Etsi aputietoja tästä komennosta
61 Tämä merkki lisätään riville
62 Tämä merkki aloittaa merkkisarjan
63 Aseta merkki kursorin kohdalle
64 Korjaa sanan kirjoitusasu
65 Korjaa koko rivin kirjoitusasu
66 Lähetä merkki päätteelle erikoismerkkien tulkinnan ja muunnoksien jälkeen
67 Vaihda esitystä raa'an ja täydennetyn historiarivin välillä
68 Vaihda kursoria edeltävä merkki ja kursorin alla oleva merkki keskenään
69 Vaihda kursoria edeltävät kaksi merkkiä keskenään
70 Tty viivästetty pysäytysmerkki (TSTP)
71 Tty tulosteen hävittämismerkki
72 Tty keskeytysmerkki (INT)
73 Tty lopetusmerkki (QUIT)
74 Tty pysäytysmerkki (STOP)
75 Tty salli tulostus -merkki
76 Tty estä tulostus -merkki
77 Ilmoitus sitomattomasta merkistä
78 Emacs-tyylin toistettava argumentti (4 kertaa argumentti)
79 Siirry edelliselle historiariville
80 Muuta kirjaimet kursorista sanan loppuun isoiksi
81 Vi: siirry seuraavan sanan alkuun
82 Vi: vaihda lisäystilaan kursorin jälkeen
83 Vi: vaihda lisäystilaan rivin lopussa
84 Vi: vaihda kirjain kursorin alla ison ja pienen välillä, ja etene merkki
85 Vi: vaihda (sanan) alkuliite/-osa
86 Vi: vaihda kursorista rivin loppuun
87 Vaihda vi:n komentotilaan (vaihtoehtoisin näppäinmäärittelyin)
88 Vi: komentotilan täydennä sana
89 Vi: siirry edelliseen merkkiin (backspace, välilyönti taaksepäin)
90 Vi: poista (sanan) alkuliite/-osa
91 Vi: siirry seuraavaan välilyönnin rajoittamaan sanan loppuun
92 Vi: siirry seuraavaan sanan loppuun
93 Vi: siirry edelliseen annetun mallin mukaiseen merkkiin
94 Vi: siirry seuraavaan annetun mallin mukaiseen merkkiin
95 Vi: siirry edelliseen annetun mallin mukaisen merkin jälkeiseen merkkiin
96 Vi: siirry seuraavaan annetun mallin mukaista merkkiä edeltävään merkkiin
97 Vaihda vi-tilaan
98 Vaihda vi:n lisäystilaan rivin alussa
99 Vi: toista viimeinen merkkihaku jatkaen etsintää samaan suuntaan
100 Vi: toista viimeinen merkkihaku jatkaen etsintää päinvastaiseen suuntaan
101 Vi: toista viimeinen haku jatkaen etsintää samaan suuntaan
102 Vi: toista viimeinen haku jatkaen etsintää päinvastaiseen suuntaan
103 Vi: vaihda kursorin alla oleva merkki seuraavaan näppäiltyyn merkkiin
104 Vi: korvaustila
105 Vi: etsi historiasta taaksepäin
106 Vi: etsi historiasta eteenpäin
107 Vi: korvaa kursorin alla oleva merkki ja siirry lisäystilaan
108 Vi: korvaa koko rivi
109 Vi: siirry edelliseen sanaan
110 Vi: siirry seuraavaan sanaan
111 Vi: peruuta muutos
112 Vi: siirry rivin alkuun
113 Suorita 'which' tälle komennolle
114 Liimaa/lisää leikkauspuskurin sisältö kursorin paikalle

View File

@ -0,0 +1,16 @@
$ $Id: set30,v 1.1 2000/01/14 22:57:33 christos Exp $
$ tw.parse.c
$set 30
1 starting_a_command %d\n
2 complete %d
3 complete %d %S\n
4 %s: Internal match error.\n
5 items
6 rows
7 There are %d %s, list them anyway? [n/y]
8 looking = %d\n
9 \ntcsh internal error: I don't know what I'm looking for!\n
10 not a directory
11 not found
12 unreadable
13 Yy

View File

@ -0,0 +1,7 @@
$ $Id: set31,v 1.1 2000/01/14 22:57:33 christos Exp $
$ vms.termcap.c
$set 31
1 Can't open TERMCAP: [%s]\n
2 Can't open %s.\n
3 Found %s in %s.\n
4 No match found for %s in file %s\n

View File

@ -0,0 +1,45 @@
$ $Id: set4,v 1.1 2000/01/14 22:57:33 christos Exp $
$ Termcap strings
$set 4
1 add new blank line
2 audible bell
3 clear to bottom
4 clear to end of line
5 cursor to horiz pos
6 clear screen
7 delete a character
8 delete a line
9 start delete mode
10 end delete mode
11 end insert mode
12 cursor from status line
13 home cursor
14 insert character
15 start insert mode
16 insert padding
17 sends cursor down
18 sends cursor left
19 sends cursor right
20 sends cursor up
21 begin bold
22 end attributes
23 non destructive space
24 end standout
25 begin standout
26 cursor to status line
27 cursor up one
28 begin underline
29 end underline
30 visible bell
31 delete multiple chars
32 cursor down multiple
33 insert multiple chars
34 cursor left multiple
35 cursor right multiple
36 cursor up multiple
37 Has automatic margins
38 Can use physical tabs
39 Number of lines
40 Number of columns
41 Has meta key
42 Newline ignored at right margin

View File

@ -0,0 +1,4 @@
$ $Id: set5,v 1.1 2000/01/14 22:57:33 christos Exp $
$ ed.chared.c
$set 5
1 Kuormituskeskiarvoja ei ole saatavilla\n

View File

@ -0,0 +1,11 @@
$ $Id: set6,v 1.1 2000/01/14 22:57:34 christos Exp $
$ ed.inputl.c
$set 6
1 VIKA: Virheellinen komento näppäimeltä 0%o\r\n
2 kyllä\n
3 muokkaa\n
4 keskeytä\n
5 ei\n
6 Ei malliin sopivaa komentoa\n
7 Tulkinnanvarainen komento\n
8 *** kohtalokas VIKA tekstinkäsittelyssä ***\r\n\n

View File

@ -0,0 +1,30 @@
$ $Id: set7,v 1.1 2000/01/14 22:57:34 christos Exp $
$ ed.screen.c
$set 7
1 \n\tTcsh:n mielestä päätteelläsi on\n
2 \tseuraavat ominaisuudet:\n\n
3 \tSiinä on %d palstaa ja %d riviä.\n
4 \tMeta-näppäin %s käytettävissä.\n
5 on
6 ei ole
7 \tSe %sosaa hyödyntää tabulaattorimerkkejä.\n
8 not
9 \tSiinä %s luottaa automaattisiin marginaaleihin.\n
10 voi
11 ei voi
12 \tSiinä %s luottaa taikamarginaaleihin. (magic margin)\n
13 (empty)
14 yes
15 no
16 VIRHE: Ei pysty tuhoamaan merkkejä.\r\n
17 DeleteChars: Numeroarvo on naurettava: %d\r\n
18 VIRHE: Ei pysty lisäämään merkkejä keskelle riviä.\r\n
19 StartInsert: Numeroarvo on naurettava: %d\r\n
20 %s: Ei pystytä avaamaan tiedostoa /etc/termcap.\n
21 %s: Päätetyypille "%s" ei löydy määrittely\n
22 %s: Käytän tyhmän (dumb) päätteen asetuksia.\n
23 %s: VAROITUS: Päätteesi ei osaa siirtää kursoria ylöspäin.\n
24 Pitkillä riveillä tekstinkäsittely voi olla lievästi outoa.\n
25 Päätteestäsi puuttuu toiminto "tuhoa rivin loppuun".\n
26 Päätteestäsi puuttuu toiminto "tuhoa merkki".\n
27 Päätteestäsi puuttuu toiminto "lisää merkki aiempien väliin".\n

View File

@ -0,0 +1,5 @@
$ $Id: set8,v 1.1 2000/01/14 22:57:34 christos Exp $
$ ed.term.c
$set 8
1 Tuntematon valitsin
2 Soveltumaton argumentti

View File

@ -0,0 +1,12 @@
$ $Id: set9,v 1.1 2000/01/14 22:57:34 christos Exp $
$ ed.xmap.c
$set 9
1 AddXkey: Null extended-key not allowed.\n
2 AddXkey: sequence-lead-in command not allowed\n
3 DeleteXkey: Null extended-key not allowed.\n
4 Sitomaton laajennettu näppäin "%S"\n
5 Jotkin laajennetut näppäimet ovat liian pitkiä sisäiseen tulostuspuskurille
6 Enumerate: VIKA!! Välitetty null-osoitin\n!
7 ei syötettä
8 Jotain on seurattava: %c\n
9 Oktaalivakio ei mahdu char-tyypin muuttujaan.\n

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/patchlevel.h,v 3.121 1999/08/16 20:06:57 christos Exp $ */
/* $Header: /src/pub/tcsh/patchlevel.h,v 3.122 2000/01/14 22:57:26 christos Exp $ */
/*
* patchlevel.h: Our life story.
*/
@ -8,7 +8,7 @@
#define ORIGIN "Astron"
#define REV 6
#define VERS 9
#define PATCHLEVEL 0
#define DATE "1999-08-16"
#define PATCHLEVEL 1
#define DATE "2000-01-14"
#endif /* _h_patchlevel */

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.c,v 3.89 1999/08/13 16:32:51 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.c,v 3.90 2000/01/14 22:57:27 christos Exp $ */
/*
* sh.c: Main shell routines
*/
@ -43,7 +43,7 @@ char copyright[] =
All rights reserved.\n";
#endif /* not lint */
RCSID("$Id: sh.c,v 3.89 1999/08/13 16:32:51 christos Exp $")
RCSID("$Id: sh.c,v 3.90 2000/01/14 22:57:27 christos Exp $")
#include "tc.h"
#include "ed.h"
@ -2188,7 +2188,7 @@ mailchk()
#if defined(BSDTIMES) || defined(_SEQUENT_)
new = stb.st_mtime > time0.tv_sec;
#else
new = stb.st_mtime > time0;
new = stb.st_mtime > seconds0;
#endif
if (S_ISDIR(stb.st_mode)) {
DIR *mailbox;
@ -2207,7 +2207,7 @@ mailchk()
#if defined(BSDTIMES) || defined(_SEQUENT_)
new = stb.st_mtime > time0.tv_sec;
#else
new = stb.st_mtime > time0;
new = stb.st_mtime > seconds0;
#endif
mboxdir = tempfilename;
}

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.dol.c,v 3.38 1998/10/25 15:10:05 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.dol.c,v 3.39 2000/01/14 22:57:27 christos Exp $ */
/*
* sh.dol.c: Variable substitutions
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: sh.dol.c,v 3.38 1998/10/25 15:10:05 christos Exp $")
RCSID("$Id: sh.dol.c,v 3.39 2000/01/14 22:57:27 christos Exp $")
/*
* C shell
@ -110,6 +110,11 @@ Dfix(t)
/* Note that t_dcom isn't trimmed thus !...:q's aren't lost */
for (pp = t->t_dcom; (p = *pp++) != NULL;) {
for (; *p; p++) {
#ifdef DSPMBYTE
if (Ismbyte1(*p) && *(p + 1))
p ++;
else
#endif DSPMBYTE
if (cmap(*p, _DOL | QUOTES)) { /* $, \, ', ", ` */
Dfix2(t->t_dcom); /* found one */
blkfree(t->t_dcom);
@ -171,9 +176,28 @@ Dpack(wbuf, wp)
{
register int c;
register int i = MAXWLEN - (int) (wp - wbuf);
#if defined(DSPMBYTE)
int mbytepos = 1;
#endif /* DSPMBYTE */
for (;;) {
c = DgetC(DODOL);
#if defined(DSPMBYTE)
if (mbytepos == 1 && Ismbyte1(c)) {
/* An MB1 byte that may be followed by a MB2 byte */
mbytepos = 2;
}
else {
/* check if MB1 byte followed by an MB2 byte */
if (mbytepos == 2 && Ismbyte2(c)) {
/* MB1 + MB2 make the character */
mbytepos = 1; /* reset */
goto mbyteskip;
}
mbytepos = 1; /* reset */
/* wasn't followed, so the two bytes make two characters */
}
#endif /* DSPMBYTE */
if (c == '\\') {
c = DgetC(0);
if (c == DEOF) {
@ -201,6 +225,7 @@ Dpack(wbuf, wp)
Gcat(STRNULL, wbuf);
return (NULL);
}
mbyteskip:
if (--i <= 0)
stderror(ERR_WTOOLONG);
*wp++ = (Char) c;

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.exec.c,v 3.47 1999/04/20 07:48:44 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.exec.c,v 3.48 2000/01/14 22:57:27 christos Exp $ */
/*
* sh.exec.c: Search, find, and execute a command!
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: sh.exec.c,v 3.47 1999/04/20 07:48:44 christos Exp $")
RCSID("$Id: sh.exec.c,v 3.48 2000/01/14 22:57:27 christos Exp $")
#include "tc.h"
#include "tw.h"
@ -827,7 +827,7 @@ static int
hashname(cp)
register Char *cp;
{
register long h;
register unsigned long h;
for (h = 0; *cp; cp++)
h = hash(h, *cp);

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.func.c,v 3.85 1999/08/16 20:05:49 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.func.c,v 3.86 2000/01/14 22:57:27 christos Exp $ */
/*
* sh.func.c: csh builtin functions
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: sh.func.c,v 3.85 1999/08/16 20:05:49 christos Exp $")
RCSID("$Id: sh.func.c,v 3.86 2000/01/14 22:57:27 christos Exp $")
#include "ed.h"
#include "tw.h"
@ -1688,7 +1688,7 @@ doumask(v, c)
USE(c);
if (cp == 0) {
i = umask(0);
i = (int)umask(0);
(void) umask(i);
xprintf("%o\n", i);
return;

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.glob.c,v 3.43 1998/10/25 15:10:14 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.glob.c,v 3.44 2000/01/14 22:57:28 christos Exp $ */
/*
* sh.glob.c: Regular expression expansion
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: sh.glob.c,v 3.43 1998/10/25 15:10:14 christos Exp $")
RCSID("$Id: sh.glob.c,v 3.44 2000/01/14 22:57:28 christos Exp $")
#include "tc.h"
@ -190,9 +190,19 @@ globbrace(s, p, bl)
/* check for balanced braces */
for (i = 0, pe = ++p; *pe; pe++)
#ifdef DSPMBYTE
if (Ismbyte1(*pe) && *(pe + 1) != EOS)
pe ++;
else
#endif /* DSPMBYTE */
if (*pe == LBRK) {
/* Ignore everything between [] */
for (++pe; *pe != RBRK && *pe != EOS; pe++)
#ifdef DSPMBYTE
if (Ismbyte1(*pe) && *(pe + 1) != EOS)
pe ++;
else
#endif /* DSPMBYTE */
continue;
if (*pe == EOS) {
blkfree(nv);
@ -213,9 +223,19 @@ globbrace(s, p, bl)
}
for (i = 0, pl = pm = p; pm <= pe; pm++)
#ifdef DSPMBYTE
if (Ismbyte1(*pm) && pm + 1 <= pe)
pm ++;
else
#endif /* DSPMBYTE */
switch (*pm) {
case LBRK:
for (++pm; *pm != RBRK && *pm != EOS; pm++)
#ifdef DSPMBYTE
if (Ismbyte1(*pm) && *(pm + 1) != EOS)
pm ++;
else
#endif /* DSPMBYTE */
continue;
if (*pm == EOS) {
*vl = NULL;
@ -287,6 +307,12 @@ expbrace(nvp, elp, size)
Char **bl;
int len;
#if defined (DSPMBYTE)
if (b != s && Ismbyte2(*b) && Ismbyte1(*(b-1))) {
/* The "{" is the 2nd byte of a MB character */
continue;
}
#endif /* DSPMBYTE */
if ((len = globbrace(s, b, &bl)) < 0) {
xfree((ptr_t) nv);
stderror(ERR_MISSING, -len);
@ -727,7 +753,15 @@ dobackp(cp, literal)
pargc = 0;
pnleft = LONGBSIZE - 4;
for (;;) {
#if defined(DSPMBYTE)
for (lp = cp;; lp++) {
if (*lp == '`' &&
(lp-1 < cp || !Ismbyte2(*lp) || !Ismbyte1(*(lp-1)))) {
break;
}
#else /* DSPMBYTE */
for (lp = cp; *lp != '`'; lp++) {
#endif /* DSPMBYTE */
if (*lp == 0) {
if (pargcp != pargs)
pword(LONGBSIZE);

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.h,v 3.86 1998/10/25 15:10:16 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.h,v 3.87 2000/01/14 22:57:28 christos Exp $ */
/*
* sh.h: Catch it all globals and includes file!
*/
@ -324,9 +324,9 @@ typedef int sigret_t;
# include <sys/filio.h>
#endif /* (!FIOCLEX && SUNOS4) || (SYSVREL == 4 && !_SEQUENT_ && !SCO && !_SX ) */
#if !defined(_MINIX) && !defined(COHERENT) && !defined(supermax) && !defined(WINNT)
#if !defined(_MINIX) && !defined(COHERENT) && !defined(supermax) && !defined(WINNT) && !defined(IRIS4D)
# include <sys/file.h>
#endif /* !_MINIX && !COHERENT && !supermax && !WINNT */
#endif /* !_MINIX && !COHERENT && !supermax && !WINNT && !defined(IRIS4D) */
#if !defined(O_RDONLY) || !defined(O_NDELAY)
# include <fcntl.h>
@ -610,6 +610,7 @@ EXTERN clock_t clk_tck;
# endif /* POSIX */
EXTERN struct tms shtimes; /* shell and child times for process timing */
# endif /* _SEQUENT_ */
EXTERN long seconds0;
#endif /* BSDTIMES */
#ifndef HZ

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.lex.c,v 3.49 1998/04/08 13:58:54 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.lex.c,v 3.50 2000/01/14 22:57:28 christos Exp $ */
/*
* sh.lex.c: Lexical analysis into tokens
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: sh.lex.c,v 3.49 1998/04/08 13:58:54 christos Exp $")
RCSID("$Id: sh.lex.c,v 3.50 2000/01/14 22:57:28 christos Exp $")
#include "ed.h"
/* #define DEBUG_INP */
@ -295,6 +295,9 @@ word()
int h;
bool dolflg;
int i;
#if defined(DSPMBYTE)
int mbytepos = 1;
#endif /* DSPMBYTE */
wp = wbuf;
i = BUFSIZE - 4;
@ -355,6 +358,13 @@ word()
c1 = 0;
dolflg = DOALL;
for (;;) {
#if defined(DSPMBYTE)
if (mbytepos == 2)
mbytepos = 1;
else if (mbytepos == 1 && Ismbyte1(c) && 2 <= i)
mbytepos = 2;
else
#endif /* DSPMBYTE */
if (c1) {
if (c == c1) {
c1 = 0;

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.print.c,v 3.18 1999/05/11 13:07:51 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.print.c,v 3.19 2000/01/14 22:57:28 christos Exp $ */
/*
* sh.print.c: Primitive Output routines.
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: sh.print.c,v 3.18 1999/05/11 13:07:51 christos Exp $")
RCSID("$Id: sh.print.c,v 3.19 2000/01/14 22:57:28 christos Exp $")
#include "ed.h"
@ -258,6 +258,12 @@ flush()
#endif
#ifdef EBADF
case EBADF:
#endif
#ifdef ESTALE
/*
* Lost our file descriptor, exit (IRIS4D)
*/
case ESTALE:
#endif
/*
* Over our quota, writing the history file

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.set.c,v 3.35 1998/10/25 15:10:26 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.set.c,v 3.36 2000/01/14 22:57:28 christos Exp $ */
/*
* sh.set.c: Setting and Clearing of variables
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: sh.set.c,v 3.35 1998/10/25 15:10:26 christos Exp $")
RCSID("$Id: sh.set.c,v 3.36 2000/01/14 22:57:28 christos Exp $")
#include "ed.h"
#include "tw.h"
@ -1188,8 +1188,10 @@ autoset_dspmbyte(pcp)
Char *n;
Char *v;
} dspmt[] = {
{ STRLANGEUC, STRKEUC },
{ STRLANGEUCB, STRKEUC },
{ STRLANGEUCJP, STRKEUC },
{ STRLANGEUCKR, STRKEUC },
{ STRLANGEUCJPB, STRKEUC },
{ STRLANGEUCKRB, STRKEUC },
{ STRLANGSJIS, STRKSJIS },
{ STRLANGSJISB, STRKSJIS },
{ NULL, NULL }

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.time.c,v 3.20 1998/11/24 18:17:38 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.time.c,v 3.21 2000/01/14 22:57:29 christos Exp $ */
/*
* sh.time.c: Shell time keeping and printing.
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: sh.time.c,v 3.20 1998/11/24 18:17:38 christos Exp $")
RCSID("$Id: sh.time.c,v 3.21 2000/01/14 22:57:29 christos Exp $")
#ifdef SUNOS4
# include <machine/param.h>
@ -86,10 +86,11 @@ settimes()
(void) get_process_stats(&time0, PS_SELF, &ru0, &ruch);
ruadd(&ru0, &ruch);
# else /* _SEQUENT_ */
seconds0 = time(NULL);
# ifndef COHERENT
time0 = times(&times0);
# else /* !COHERENT */
time0 = HZ * time(NULL);
time0 = HZ * seconds0;
times(&times0);
# endif /* !COHERENT */
times0.tms_stime += times0.tms_cstime;
@ -454,9 +455,9 @@ prusage(bs, es, e, b)
if ((sysinfo.cpu_count == 0) &&
(getsysinfo(SYSINFO_SIZE, &sysinfo) < 0))
sysinfo.cpu_count = 1;
i = (ms == 0) ? 0 : (t * 1000 / (ms * sysinfo.cpu_count));
i = (ms == 0) ? 0 : (t * 1000.0 / (ms * sysinfo.cpu_count));
#else /* convex */
i = (ms == 0) ? 0 : (t * 1000 / ms);
i = (ms == 0) ? 0 : (t * 1000.0 / ms);
#endif /* convex */
xprintf("%ld.%01ld%%", i / 10, i % 10); /* nn.n% */
break;

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/sh.types.h,v 3.36 1998/04/21 16:08:51 christos Exp $ */
/* $Header: /src/pub/tcsh/sh.types.h,v 3.37 2000/01/14 22:57:29 christos Exp $ */
/* sh.types.h: Do the necessary typedefs for each system.
* Up till now I avoided making this into a separate file
* But I just wanted to eliminate the whole mess from sh.h
@ -312,6 +312,10 @@ typedef char * caddr_t;
# ifndef _PID_T
# define _PID_T
# endif /* _PID_T */
# ifndef _PTR_T
# define _PTR_T
typedef void * ptr_t;
# endif /* _PTR_T */
#endif /* ultrix || __ultrix */

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/tc.const.c,v 3.52 1999/05/11 13:07:52 christos Exp $ */
/* $Header: /src/pub/tcsh/tc.const.c,v 3.53 2000/01/14 22:57:29 christos Exp $ */
/*
* sh.const.c: String constants for tcsh.
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: tc.const.c,v 3.52 1999/05/11 13:07:52 christos Exp $")
RCSID("$Id: tc.const.c,v 3.53 2000/01/14 22:57:29 christos Exp $")
Char STRlogout[] = { 'l', 'o', 'g', 'o', 'u', 't', '\0' };
Char STRautologout[] = { 'a', 'u', 't', 'o', 'l', 'o', 'g', 'o', 'u', 't',
@ -127,41 +127,55 @@ Char STRmbytemap[] = { 'm', 'b', 'y', 't', 'e', 'm', 'a', 'p', '\0' };
# endif /* MBYTEMAP */
/* PATCH IDEA FROM Issei.Suzuki VERY THANKS */
/* dspmbyte autoset trap */
/* STRLANGEUC,STRLANGEUCB = EUC Trap */
/* STRLANGEUCJP,STRLANGEUCJPB = EUCJP Trap */
/* STRLANGEUCKR,STRLANGEUCKRB = EUCKR Trap */
/* STRLANGSJIS,STRLANGSJISB = SJIS Trap */
# if defined(__FreeBSD__) || defined(__uxps__) || defined(linux) || defined(sgi) || defined(aix) /* linux? */
Char STRLANGEUC[] = { 'j', 'a', '_', 'J', 'P', '.', 'E', 'U', 'C', '\0' };
Char STRLANGEUCJP[] = { 'j', 'a', '_', 'J', 'P', '.', 'E', 'U', 'C', '\0' };
Char STRLANGEUCKR[] = { 'k', 'o', '_', 'K', 'R', '.', 'E', 'U', 'C', '\0' };
# if defined(__uxps__)
Char STRLANGEUCB[] = { 'j', 'a', 'p', 'a', 'n', '\0' };
Char STRLANGEUCJPB[] = { 'j', 'a', 'p', 'a', 'n', '\0' };
Char STRLANGEUCKRB[] = { 'k', 'o', 'r', 'e', 'a', '\0' };
# elif defined(linux)
Char STRLANGEUCB[] = { 'j', 'a', '_', 'J', 'P', '.', 'u', 'j', 'i', 's',
Char STRLANGEUCJPB[] = { 'j', 'a', '_', 'J', 'P', '.', 'u', 'j', 'i', 's',
'\0' };
Char STRLANGEUCKRB[] = { 'k', 'o', '_', 'K', 'R', '.', 'e', 'u', 'c', '\0' };
# elif defined(aix)
Char STRLANGEUCB[] = { 'j', 'a', '_', 'J', 'P', '\0' };
Char STRLANGEUCJPB[] = { 'j', 'a', '_', 'J', 'P', '\0' };
Char STRLANGEUCKRB[] = { 'k', 'o', '_', 'K', 'R', '\0' };
# else
Char STRLANGEUCB[] = { '\0' };
Char STRLANGEUCJPB[] = { '\0' };
Char STRLANGEUCKRB[] = { '\0' };
# endif
Char STRLANGSJIS[] = { 'j', 'a', '_', 'J', 'P', '.', 'S', 'J', 'I', 'S',
'\0' };
Char STRLANGSJISB[] = { '\0' };
# elif defined(__uxpm__)
Char STRLANGEUC[] = { 'j', 'a', 'p', 'a', 'n', '\0' };
Char STRLANGEUCB[] = { '\0' };
Char STRLANGEUCJP[] = { 'j', 'a', 'p', 'a', 'n', '\0' };
Char STRLANGEUCKR[] = { 'k', 'o', 'r', 'e', 'a', '\0' };
Char STRLANGEUCJPB[] = { '\0' };
Char STRLANGEUCKRB[] = { '\0' };
Char STRLANGSJIS[] = { '\0' };
Char STRLANGSJISB[] = { '\0' };
# elif defined(SOLARIS2)
Char STRLANGEUC[] = { 'j', 'a', '\0' };
Char STRLANGEUCB[] = { 'j', 'a', 'p', 'a', 'n', 'e', 's', 'e', '\0' };
Char STRLANGEUCJP[] = { 'j', 'a', '\0' };
Char STRLANGEUCKR[] = { 'k', 'o', '\0' };
Char STRLANGEUCJPB[] = { 'j', 'a', 'p', 'a', 'n', 'e', 's', 'e', '\0' };
Char STRLANGEUCKRB[] = { 'k', 'o', 'r', 'e', 'a', 'n', '\0' };
Char STRLANGSJIS[] = { '\0' };
Char STRLANGSJISB[] = { '\0' };
# elif defined(hpux)
Char STRLANGEUC[] = { 'j', 'a', '_', 'J', 'P', '.', 'e', 'u', 'c', 'J', 'P' };
Char STRLANGEUCB[] = { '\0' };
Char STRLANGEUCJP[] = { 'j', 'a', '_', 'J', 'P', '.', 'e', 'u', 'c', 'J', 'P' };
Char STRLANGEUCKR[] = { 'k', 'o', '_', 'K', 'R', '.', 'e', 'u', 'c', 'K', 'R' };
Char STRLANGEUCJPB[] = { '\0' };
Char STRLANGEUCKRB[] = { '\0' };
Char STRLANGSJIS[] = { '\0' };
Char STRLANGSJISB[] = { '\0' };
# else
Char STRLANGEUC[] = { '\0' };
Char STRLANGEUCB[] = { '\0' };
Char STRLANGEUCJP[] = { '\0' };
Char STRLANGEUCKR[] = { '\0' };
Char STRLANGEUCJPB[] = { '\0' };
Char STRLANGEUCKRB[] = { '\0' };
Char STRLANGSJIS[] = { '\0' };
Char STRLANGSJISB[] = { '\0' };
# endif

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/tc.prompt.c,v 3.36 1999/02/06 15:19:04 christos Exp $ */
/* $Header: /src/pub/tcsh/tc.prompt.c,v 3.37 2000/01/14 22:57:29 christos Exp $ */
/*
* tc.prompt.c: Prompt printing stuff
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: tc.prompt.c,v 3.36 1999/02/06 15:19:04 christos Exp $")
RCSID("$Id: tc.prompt.c,v 3.37 2000/01/14 22:57:29 christos Exp $")
#include "ed.h"
#include "tw.h"
@ -205,6 +205,14 @@ tprintf(what, buf, fmt, siz, str, tim, info)
for (; *cp; cp++) {
if (p >= ep)
break;
#ifdef DSPMBYTE
if (Ismbyte1(*cp) && ! (cp[1] == '\0'))
{
*p++ = attributes | *cp++; /* normal character */
*p++ = attributes | *cp; /* normal character */
}
else
#endif /* DSPMBYTE */
if ((*cp == '%') && ! (cp[1] == '\0')) {
cp++;
switch (*cp) {

File diff suppressed because it is too large Load Diff

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/tw.color.c,v 1.5 1998/10/25 15:10:48 christos Exp $ */
/* $Header: /src/pub/tcsh/tw.color.c,v 1.6 2000/01/14 22:57:30 christos Exp $ */
/*
* tw.color.c: builtin color ls-F
*/
@ -36,7 +36,7 @@
*/
#include "sh.h"
RCSID("$Id: tw.color.c,v 1.5 1998/10/25 15:10:48 christos Exp $")
RCSID("$Id: tw.color.c,v 1.6 2000/01/14 22:57:30 christos Exp $")
#include "tw.h"
#include "ed.h"
@ -181,6 +181,7 @@ parseLS_COLORS(value)
const Char *v; /* pointer in value */
char *c; /* pointer in colors */
Extension *e; /* pointer in extensions */
jmp_buf_t osetexit;
/* init */
if (extensions)
@ -209,6 +210,12 @@ parseLS_COLORS(value)
c = colors;
e = &extensions[0];
/* Prevent from crashing if unknown parameters are given. */
getexit(osetexit);
if (setexit() == 0) {
/* parse */
while (*v) {
switch (*v & CHAR) {
@ -246,6 +253,9 @@ parseLS_COLORS(value)
while (*v && (*v & CHAR) != ':')
v++;
}
}
resexit(osetexit);
nextensions = (int) (e - extensions);
}

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/tw.help.c,v 3.16 1999/05/11 13:08:03 christos Exp $ */
/* $Header: /src/pub/tcsh/tw.help.c,v 3.17 2000/01/14 22:57:30 christos Exp $ */
/* tw.help.c: actually look up and print documentation on a file.
* Look down the path for an appropriate file, then print it.
* Note that the printing is NOT PAGED. This is because the
@ -39,7 +39,7 @@
*/
#include "sh.h"
RCSID("$Id: tw.help.c,v 3.16 1999/05/11 13:08:03 christos Exp $")
RCSID("$Id: tw.help.c,v 3.17 2000/01/14 22:57:30 christos Exp $")
#include "tw.h"
#include "tc.h"
@ -152,6 +152,7 @@ static sigret_t
cleanf(snum)
int snum;
{
USE(snum);
#ifdef UNRELSIGS
if (snum)
(void) sigset(SIGINT, cleanf);

View File

@ -1,4 +1,4 @@
/* $Header: /src/pub/tcsh/tw.parse.c,v 3.86 1998/10/25 15:10:52 christos Exp $ */
/* $Header: /src/pub/tcsh/tw.parse.c,v 3.87 2000/01/14 22:57:30 christos Exp $ */
/*
* tw.parse.c: Everyone has taken a shot in this futile effort to
* lexically analyze a csh line... Well we cannot good
@ -39,7 +39,7 @@
*/
#include "sh.h"
RCSID("$Id: tw.parse.c,v 3.86 1998/10/25 15:10:52 christos Exp $")
RCSID("$Id: tw.parse.c,v 3.87 2000/01/14 22:57:30 christos Exp $")
#include "tw.h"
#include "ed.h"
@ -529,6 +529,9 @@ insert_meta(cp, cpend, word, closequotes)
int qu = 0;
int ndel = (int) (cp ? cpend - cp : 0);
Char w, wq;
#ifdef DSPMBYTE
int mbytepos = 1;
#endif /* DSPMBYTE */
for (bptr = buffer, wptr = word;;) {
if (bptr > buffer + 2 * FILSIZ - 5)
@ -536,6 +539,9 @@ insert_meta(cp, cpend, word, closequotes)
if (cp >= cpend)
in_sync = 0;
#ifdef DSPMBYTE
if (mbytepos == 1)
#endif /* DSPMBYTE */
if (in_sync && !cmap(qu, _ESC) && cmap(*cp, _QF|_ESC))
if (qu == 0 || qu == *cp) {
qu ^= *cp;
@ -549,6 +555,10 @@ insert_meta(cp, cpend, word, closequotes)
wq = w & QUOTE;
w &= ~QUOTE;
#ifdef DSPMBYTE
if (mbytepos == 2)
goto mbyteskip;
#endif /* DSPMBYTE */
if (cmap(w, _ESC | _QF))
wq = QUOTE; /* quotes are always quoted */
@ -590,9 +600,18 @@ insert_meta(cp, cpend, word, closequotes)
*bptr++ = '\\';
*bptr++ = w;
} else {
#ifdef DSPMBYTE
mbyteskip:
#endif /* DSPMBYTE */
if (in_sync && *cp++ != w)
in_sync = 0;
*bptr++ = w;
#ifdef DSPMBYTE
if (mbytepos == 1 && Ismbyte1(w))
mbytepos = 2;
else
mbytepos = 1;
#endif /* DSPMBYTE */
}
wptr++;
if (cmap(qu, _ESC))