2000-04-15 04:41:27 +00:00
|
|
|
/*
|
|
|
|
* 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.
|
2002-07-24 16:23:10 +00:00
|
|
|
* 3. Neither the name of the University nor the names of its contributors
|
2000-04-15 04:41:27 +00:00
|
|
|
* 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"
|
2005-04-24 19:41:08 +00:00
|
|
|
|
|
|
|
#include <assert.h>
|
2000-04-15 04:41:27 +00:00
|
|
|
/* #define DEBUG_INP */
|
|
|
|
/* #define DEBUG_SEEK */
|
|
|
|
|
|
|
|
/*
|
|
|
|
* C shell
|
|
|
|
*/
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
#define FLAG_G 1
|
|
|
|
#define FLAG_A 2
|
2000-04-15 04:41:27 +00:00
|
|
|
/*
|
|
|
|
* 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.
|
|
|
|
*/
|
2007-03-11 22:33:41 +00:00
|
|
|
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);
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* 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 */
|
2000-11-30 21:05:33 +00:00
|
|
|
int aret = TCSH_F_SEEK;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* 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.
|
|
|
|
*/
|
2007-03-11 22:33:41 +00:00
|
|
|
struct Strbuf labuf; /* = Strbuf_INIT; */
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* 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.
|
|
|
|
*/
|
2005-04-24 19:41:08 +00:00
|
|
|
static int hadhist = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Avoid alias expansion recursion via \!#
|
|
|
|
*/
|
|
|
|
int hleft;
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
struct Strbuf histline; /* = Strbuf_INIT; last line input */
|
2000-04-15 04:41:27 +00:00
|
|
|
|
2005-04-24 19:41:08 +00:00
|
|
|
int histvalid = 0; /* is histline valid */
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
static Char getCtmp;
|
|
|
|
|
2005-04-24 19:41:08 +00:00
|
|
|
#define getC(f) (((getCtmp = peekc) != '\0') ? (peekc = 0, (eChar)getCtmp) : getC1(f))
|
2000-04-15 04:41:27 +00:00
|
|
|
#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;
|
2007-03-11 22:33:41 +00:00
|
|
|
static time_t a2time_t (Char *);
|
2000-04-15 04:41:27 +00:00
|
|
|
|
2005-04-24 19:41:08 +00:00
|
|
|
/*
|
|
|
|
* special parsing rules apply for source -h
|
|
|
|
*/
|
|
|
|
extern int enterhist;
|
2019-10-08 18:20:02 +00:00
|
|
|
extern int postcmd_active;
|
2005-04-24 19:41:08 +00:00
|
|
|
|
2000-04-15 04:41:27 +00:00
|
|
|
int
|
2007-03-11 22:33:41 +00:00
|
|
|
lex(struct wordent *hp)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
struct wordent *wdp;
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar c;
|
|
|
|
int parsehtime = enterhist;
|
2019-10-08 18:20:02 +00:00
|
|
|
int toolong = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
histvalid = 0;
|
2007-03-11 22:33:41 +00:00
|
|
|
histline.len = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
2019-10-08 18:20:02 +00:00
|
|
|
if (!postcmd_active)
|
|
|
|
btell(&lineloc);
|
2000-04-15 04:41:27 +00:00
|
|
|
hp->next = hp->prev = hp;
|
|
|
|
hp->word = STRNULL;
|
|
|
|
hadhist = 0;
|
|
|
|
do
|
|
|
|
c = readc(0);
|
|
|
|
while (c == ' ' || c == '\t');
|
2005-04-24 19:41:08 +00:00
|
|
|
if (c == (eChar)HISTSUB && intty)
|
2000-04-15 04:41:27 +00:00
|
|
|
/* ^lef^rit from tty is short !:s^lef^rit */
|
|
|
|
getexcl(c);
|
|
|
|
else
|
|
|
|
unreadc(c);
|
2007-03-11 22:33:41 +00:00
|
|
|
cleanup_push(hp, lex_cleanup);
|
2000-04-15 04:41:27 +00:00
|
|
|
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;
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
new = xmalloc(sizeof(*new));
|
|
|
|
new->word = NULL;
|
2000-04-15 04:41:27 +00:00
|
|
|
new->prev = wdp;
|
|
|
|
new->next = hp;
|
|
|
|
wdp->next = new;
|
|
|
|
hp->prev = new;
|
|
|
|
wdp = new;
|
2005-04-24 19:41:08 +00:00
|
|
|
wdp->word = word(parsehtime);
|
|
|
|
parsehtime = 0;
|
2019-10-08 18:20:02 +00:00
|
|
|
if (enterhist && toolong++ > 10 * 1024)
|
|
|
|
stderror(ERR_LTOOLONG);
|
2000-04-15 04:41:27 +00:00
|
|
|
} while (wdp->word[0] != '\n');
|
2007-03-11 22:33:41 +00:00
|
|
|
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;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
return (hadhist);
|
|
|
|
}
|
|
|
|
|
|
|
|
static time_t
|
2007-03-11 22:33:41 +00:00
|
|
|
a2time_t(Char *wordx)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
/* Attempt to distinguish timestamps from other possible entries.
|
|
|
|
* Format: "+NNNNNNNNNN" (10 digits, left padded with ascii '0') */
|
|
|
|
|
|
|
|
time_t ret;
|
|
|
|
Char *s;
|
|
|
|
int ct;
|
|
|
|
|
2005-04-24 19:41:08 +00:00
|
|
|
if (!wordx || *(s = wordx) != '+')
|
2000-04-15 04:41:27 +00:00
|
|
|
return (time_t)0;
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
for (++s, ret = 0, ct = 0; *s; ++s, ++ct) {
|
2000-04-15 04:41:27 +00:00
|
|
|
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
|
2007-03-11 22:33:41 +00:00
|
|
|
prlex(struct wordent *sp0)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
struct wordent *sp = sp0->next;
|
|
|
|
|
|
|
|
for (;;) {
|
|
|
|
xprintf("%S", sp->word);
|
|
|
|
sp = sp->next;
|
|
|
|
if (sp == sp0)
|
|
|
|
break;
|
|
|
|
if (sp->word[0] != '\n')
|
|
|
|
xputchar(' ');
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2007-03-11 22:33:41 +00:00
|
|
|
copylex(struct wordent *hp, struct wordent *fp)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
struct wordent *wdp;
|
|
|
|
|
|
|
|
wdp = hp;
|
|
|
|
fp = fp->next;
|
|
|
|
do {
|
|
|
|
struct wordent *new;
|
2007-03-11 22:33:41 +00:00
|
|
|
|
|
|
|
new = xmalloc(sizeof(*new));
|
|
|
|
new->word = NULL;
|
2000-04-15 04:41:27 +00:00
|
|
|
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');
|
|
|
|
}
|
|
|
|
|
2017-03-18 21:41:53 +00:00
|
|
|
void
|
|
|
|
initlex(struct wordent *vp)
|
|
|
|
{
|
|
|
|
vp->word = STRNULL;
|
|
|
|
vp->prev = vp;
|
|
|
|
vp->next = vp;
|
|
|
|
}
|
|
|
|
|
2000-04-15 04:41:27 +00:00
|
|
|
void
|
2007-03-11 22:33:41 +00:00
|
|
|
freelex(struct wordent *vp)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
struct wordent *fp;
|
|
|
|
|
|
|
|
while (vp->next != vp) {
|
|
|
|
fp = vp->next;
|
|
|
|
vp->next = fp->next;
|
2007-03-11 22:33:41 +00:00
|
|
|
xfree(fp->word);
|
|
|
|
xfree(fp);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
vp->prev = vp;
|
|
|
|
}
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
void
|
|
|
|
lex_cleanup(void *xvp)
|
|
|
|
{
|
|
|
|
struct wordent *vp;
|
|
|
|
|
|
|
|
vp = xvp;
|
|
|
|
freelex(vp);
|
|
|
|
}
|
|
|
|
|
2000-04-15 04:41:27 +00:00
|
|
|
static Char *
|
2007-03-11 22:33:41 +00:00
|
|
|
word(int parsehtime)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar c, c1;
|
2007-03-11 22:33:41 +00:00
|
|
|
struct Strbuf wbuf = Strbuf_INIT;
|
2000-04-15 04:41:27 +00:00
|
|
|
Char hbuf[12];
|
|
|
|
int h;
|
2005-04-24 19:41:08 +00:00
|
|
|
int dolflg;
|
2019-10-08 18:20:02 +00:00
|
|
|
int toolong = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
cleanup_push(&wbuf, Strbuf_cleanup);
|
2000-04-15 04:41:27 +00:00
|
|
|
loop:
|
2019-10-08 18:20:02 +00:00
|
|
|
if (enterhist && toolong++ > 256 * 1024)
|
|
|
|
seterror(ERR_WTOOLONG);
|
2000-04-15 04:41:27 +00:00
|
|
|
while ((c = getC(DOALL)) == ' ' || c == '\t')
|
|
|
|
continue;
|
|
|
|
if (cmap(c, _META | _ESC))
|
|
|
|
switch (c) {
|
|
|
|
case '&':
|
|
|
|
case '|':
|
|
|
|
case '<':
|
|
|
|
case '>':
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&wbuf, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
c1 = getC(DOALL);
|
|
|
|
if (c1 == c)
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&wbuf, c1);
|
2000-04-15 04:41:27 +00:00
|
|
|
else
|
|
|
|
ungetC(c1);
|
|
|
|
goto ret;
|
|
|
|
|
|
|
|
case '#':
|
2005-04-24 19:41:08 +00:00
|
|
|
if (intty || (enterhist && !parsehtime))
|
2000-04-15 04:41:27 +00:00
|
|
|
break;
|
|
|
|
c = 0;
|
|
|
|
h = 0;
|
|
|
|
do {
|
|
|
|
c1 = c;
|
|
|
|
c = getC(0);
|
2005-04-24 19:41:08 +00:00
|
|
|
if (h < 11 && parsehtime)
|
2000-04-15 04:41:27 +00:00
|
|
|
hbuf[h++] = c;
|
|
|
|
} while (c != '\n');
|
2005-04-24 19:41:08 +00:00
|
|
|
if (parsehtime) {
|
|
|
|
hbuf[11] = '\0';
|
|
|
|
Htime = a2time_t(hbuf);
|
|
|
|
}
|
2000-04-15 04:41:27 +00:00
|
|
|
if (c1 == '\\')
|
|
|
|
goto loop;
|
|
|
|
/*FALLTHROUGH*/
|
|
|
|
|
|
|
|
case ';':
|
|
|
|
case '(':
|
|
|
|
case ')':
|
|
|
|
case '\n':
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&wbuf, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
goto ret;
|
|
|
|
|
|
|
|
case '\\':
|
|
|
|
c = getC(0);
|
|
|
|
if (c == '\n') {
|
|
|
|
if (onelflg == 1)
|
|
|
|
onelflg = 2;
|
|
|
|
goto loop;
|
|
|
|
}
|
2005-04-24 19:41:08 +00:00
|
|
|
if (c != (eChar)HIST)
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&wbuf, '\\');
|
2000-04-15 04:41:27 +00:00
|
|
|
c |= QUOTE;
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
c1 = 0;
|
|
|
|
dolflg = DOALL;
|
|
|
|
for (;;) {
|
2019-10-08 18:20:02 +00:00
|
|
|
if (enterhist && toolong++ > 256 * 1024)
|
|
|
|
seterror(ERR_WTOOLONG);
|
2000-04-15 04:41:27 +00:00
|
|
|
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
|
|
|
|
*/
|
2005-04-24 19:41:08 +00:00
|
|
|
if (c == (eChar)HIST)
|
2000-04-15 04:41:27 +00:00
|
|
|
c |= QUOTE;
|
|
|
|
else {
|
|
|
|
if (bslash_quote &&
|
|
|
|
((c == '\'') || (c == '"') ||
|
2009-07-10 21:47:20 +00:00
|
|
|
(c == '\\') || (c == '$'))) {
|
2000-04-15 04:41:27 +00:00
|
|
|
c |= QUOTE;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if (c == '\n')
|
|
|
|
/*
|
|
|
|
* if (c1 == '`') c = ' '; else
|
|
|
|
*/
|
|
|
|
c |= QUOTE;
|
|
|
|
ungetC(c);
|
2017-03-18 21:41:53 +00:00
|
|
|
c = '\\' | QUOTE;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
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;
|
|
|
|
}
|
2005-04-24 19:41:08 +00:00
|
|
|
if (c != (eChar)HIST)
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&wbuf, '\\');
|
2000-04-15 04:41:27 +00:00
|
|
|
c |= QUOTE;
|
|
|
|
}
|
|
|
|
else if (cmap(c, _QF | _QB)) { /* '"` */
|
|
|
|
c1 = c;
|
|
|
|
dolflg = c == '"' ? DOALL : DOEXCL;
|
|
|
|
}
|
2005-04-24 19:41:08 +00:00
|
|
|
else if (c != '#' || (!intty && !enterhist)) {
|
2000-04-15 04:41:27 +00:00
|
|
|
ungetC(c);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&wbuf, c);
|
|
|
|
c = getC(dolflg);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
ret:
|
2007-03-11 22:33:41 +00:00
|
|
|
cleanup_ignore(&wbuf);
|
|
|
|
cleanup_until(&wbuf);
|
|
|
|
return Strbuf_finish(&wbuf);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
|
2005-04-24 19:41:08 +00:00
|
|
|
static eChar
|
2007-03-11 22:33:41 +00:00
|
|
|
getC1(int flag)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar c;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
for (;;) {
|
|
|
|
if ((c = peekc) != 0) {
|
|
|
|
peekc = 0;
|
|
|
|
return (c);
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
if (lap < labuf.len) {
|
|
|
|
c = labuf.s[lap++];
|
|
|
|
if (cmap(c, _META | _QF | _QB))
|
|
|
|
c |= QUOTE;
|
|
|
|
return (c);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
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;
|
|
|
|
}
|
2012-02-20 00:53:59 +00:00
|
|
|
c = readc(1);
|
|
|
|
|
|
|
|
/* Catch EOF in the middle of a line. (An EOF at the beginning of
|
|
|
|
* a line would have been processed by the readc(0) in lex().) */
|
|
|
|
if (c == CHAR_ERR)
|
|
|
|
c = '\n';
|
|
|
|
|
2000-04-15 04:41:27 +00:00
|
|
|
if (c == '$' && (flag & DODOL)) {
|
|
|
|
getdol();
|
|
|
|
continue;
|
|
|
|
}
|
2005-04-24 19:41:08 +00:00
|
|
|
if (c == (eChar)HIST && (flag & DOEXCL)) {
|
2000-04-15 04:41:27 +00:00
|
|
|
getexcl(0);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return (c);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2007-03-11 22:33:41 +00:00
|
|
|
getdol(void)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2007-03-11 22:33:41 +00:00
|
|
|
struct Strbuf name = Strbuf_INIT;
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar c;
|
|
|
|
eChar sc;
|
2007-03-11 22:33:41 +00:00
|
|
|
int special = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
c = sc = getC(DOEXCL);
|
|
|
|
if (any("\t \n", c)) {
|
|
|
|
ungetD(c);
|
|
|
|
ungetC('$' | QUOTE);
|
|
|
|
return;
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
cleanup_push(&name, Strbuf_cleanup);
|
|
|
|
Strbuf_append1(&name, '$');
|
2000-04-15 04:41:27 +00:00
|
|
|
if (c == '{')
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c), c = getC(DOEXCL);
|
2000-04-15 04:41:27 +00:00
|
|
|
if (c == '#' || c == '?' || c == '%')
|
2007-03-11 22:33:41 +00:00
|
|
|
special++, Strbuf_append1(&name, c), c = getC(DOEXCL);
|
|
|
|
Strbuf_append1(&name, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
switch (c) {
|
|
|
|
|
|
|
|
case '<':
|
|
|
|
case '$':
|
|
|
|
case '!':
|
|
|
|
if (special)
|
|
|
|
seterror(ERR_SPDOLLT);
|
2007-03-11 22:33:41 +00:00
|
|
|
goto end;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
case '\n':
|
|
|
|
ungetD(c);
|
2007-03-11 22:33:41 +00:00
|
|
|
name.len--;
|
2000-04-15 04:41:27 +00:00
|
|
|
if (!special)
|
|
|
|
seterror(ERR_NEWLINE);
|
2007-03-11 22:33:41 +00:00
|
|
|
goto end;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
case '*':
|
|
|
|
if (special)
|
|
|
|
seterror(ERR_SPSTAR);
|
2007-03-11 22:33:41 +00:00
|
|
|
goto end;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
default:
|
|
|
|
if (Isdigit(c)) {
|
|
|
|
#ifdef notdef
|
|
|
|
/* let $?0 pass for now */
|
|
|
|
if (special) {
|
|
|
|
seterror(ERR_DIGIT);
|
2007-03-11 22:33:41 +00:00
|
|
|
goto end;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
#endif
|
|
|
|
while ((c = getC(DOEXCL)) != 0) {
|
|
|
|
if (!Isdigit(c))
|
|
|
|
break;
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
else if (letter(c)) {
|
|
|
|
while ((c = getC(DOEXCL)) != 0) {
|
|
|
|
/* Bugfix for ${v123x} from Chris Torek, DAS DEC-90. */
|
|
|
|
if (!letter(c) && !Isdigit(c))
|
|
|
|
break;
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if (!special)
|
|
|
|
seterror(ERR_VARILL);
|
|
|
|
else {
|
|
|
|
ungetD(c);
|
2007-03-11 22:33:41 +00:00
|
|
|
name.len--;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
goto end;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (c == '[') {
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
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);
|
2007-03-11 22:33:41 +00:00
|
|
|
name.len--;
|
2000-04-15 04:41:27 +00:00
|
|
|
seterror(ERR_NLINDEX);
|
2007-03-11 22:33:41 +00:00
|
|
|
goto end;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
} 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 {
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c), c = getC(DOEXCL);
|
2000-04-15 04:41:27 +00:00
|
|
|
if (c == 'g' || c == 'a') {
|
|
|
|
if (c == 'g')
|
|
|
|
gmodflag++;
|
|
|
|
else
|
|
|
|
amodflag++;
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c); c = getC(DOEXCL);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
if ((c == 'g' && !gmodflag) || (c == 'a' && !amodflag)) {
|
|
|
|
if (c == 'g')
|
|
|
|
gmodflag++;
|
|
|
|
else
|
|
|
|
amodflag++;
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c); c = getC(DOEXCL);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
/* scan s// [eichin:19910926.0512EST] */
|
|
|
|
if (c == 's') {
|
|
|
|
int delimcnt = 2;
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar delim = getC(0);
|
2007-03-11 22:33:41 +00:00
|
|
|
|
|
|
|
Strbuf_append1(&name, delim);
|
2000-04-15 04:41:27 +00:00
|
|
|
if (!delim || letter(delim)
|
|
|
|
|| Isdigit(delim) || any(" \t\n", delim)) {
|
|
|
|
seterror(ERR_BADSUBST);
|
|
|
|
break;
|
2007-03-11 22:33:41 +00:00
|
|
|
}
|
2005-04-24 19:41:08 +00:00
|
|
|
while ((c = getC(0)) != CHAR_ERR) {
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
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);
|
2007-03-11 22:33:41 +00:00
|
|
|
goto end;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
while ((c = getC(DOEXCL)) == ':');
|
|
|
|
ungetD(c);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
ungetD(c);
|
|
|
|
if (sc == '{') {
|
|
|
|
c = getC(DOEXCL);
|
|
|
|
if (c != '}') {
|
|
|
|
ungetD(c);
|
|
|
|
seterror(ERR_MISSING, '}');
|
2007-03-11 22:33:41 +00:00
|
|
|
goto end;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&name, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
end:
|
|
|
|
cleanup_ignore(&name);
|
|
|
|
cleanup_until(&name);
|
|
|
|
addla(Strbuf_finish(&name));
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
/* xfree()'s its argument */
|
2000-04-15 04:41:27 +00:00
|
|
|
void
|
2007-03-11 22:33:41 +00:00
|
|
|
addla(Char *cp)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2007-03-11 22:33:41 +00:00
|
|
|
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;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
/* 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 */
|
2000-04-15 04:41:27 +00:00
|
|
|
static int quesarg;
|
|
|
|
|
|
|
|
static void
|
2007-03-11 22:33:41 +00:00
|
|
|
getexcl(Char sc)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
struct wordent *hp, *ip;
|
|
|
|
int left, right, dol;
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar c;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
if (sc == 0) {
|
2012-02-20 00:53:59 +00:00
|
|
|
c = getC(0);
|
|
|
|
if (c == '{')
|
|
|
|
sc = (Char) c;
|
|
|
|
else
|
|
|
|
ungetC(c);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
quesarg = -1;
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
lastev = eventno;
|
2000-04-15 04:41:27 +00:00
|
|
|
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;
|
2012-02-20 00:53:59 +00:00
|
|
|
if (sc == HISTSUB && HISTSUB != '\0') {
|
2000-04-15 04:41:27 +00:00
|
|
|
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;
|
2012-02-20 00:53:59 +00:00
|
|
|
if ((sc == HISTSUB && HISTSUB != '\0') || c == ':') {
|
2000-04-15 04:41:27 +00:00
|
|
|
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 *
|
2007-03-11 22:33:41 +00:00
|
|
|
getsub(struct wordent *en)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar delim;
|
|
|
|
eChar c;
|
|
|
|
eChar sc;
|
|
|
|
int global;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
do {
|
|
|
|
exclnxt = 0;
|
|
|
|
global = 0;
|
|
|
|
sc = c = getC(0);
|
2007-03-11 22:33:41 +00:00
|
|
|
while (c == 'g' || c == 'a') {
|
|
|
|
global |= (c == 'g') ? FLAG_G : FLAG_A;
|
2000-04-15 04:41:27 +00:00
|
|
|
sc = c = getC(0);
|
|
|
|
}
|
|
|
|
|
|
|
|
switch (c) {
|
|
|
|
case 'p':
|
|
|
|
justpr++;
|
|
|
|
return (en);
|
|
|
|
|
|
|
|
case 'x':
|
|
|
|
case 'q':
|
2007-03-11 22:33:41 +00:00
|
|
|
global |= FLAG_G;
|
2000-04-15 04:41:27 +00:00
|
|
|
/*FALLTHROUGH*/
|
|
|
|
|
|
|
|
case 'h':
|
|
|
|
case 'r':
|
|
|
|
case 't':
|
|
|
|
case 'e':
|
|
|
|
case 'u':
|
|
|
|
case 'l':
|
|
|
|
break;
|
|
|
|
|
|
|
|
case '&':
|
2007-03-11 22:33:41 +00:00
|
|
|
if (slhs.len == 0) {
|
2000-04-15 04:41:27 +00:00
|
|
|
seterror(ERR_NOSUBST);
|
|
|
|
return (en);
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
lhsb.len = 0;
|
|
|
|
Strbuf_append(&lhsb, slhs.s);
|
|
|
|
Strbuf_terminate(&lhsb);
|
2000-04-15 04:41:27 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
#ifdef notdef
|
|
|
|
case '~':
|
2007-03-11 22:33:41 +00:00
|
|
|
if (lhsb.len == 0)
|
2000-04-15 04:41:27 +00:00
|
|
|
goto badlhs;
|
|
|
|
break;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
case 's':
|
|
|
|
delim = getC(0);
|
|
|
|
if (letter(delim) || Isdigit(delim) || any(" \t\n", delim)) {
|
|
|
|
unreadc(delim);
|
2007-03-11 22:33:41 +00:00
|
|
|
lhsb.len = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
seterror(ERR_BADSUBST);
|
|
|
|
return (en);
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_terminate(&lhsb);
|
|
|
|
lhsb.len = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
for (;;) {
|
|
|
|
c = getC(0);
|
|
|
|
if (c == '\n') {
|
|
|
|
unreadc(c);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (c == delim)
|
|
|
|
break;
|
|
|
|
if (c == '\\') {
|
|
|
|
c = getC(0);
|
|
|
|
if (c != delim && c != '\\')
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&lhsb, '\\');
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&lhsb, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
if (lhsb.len != 0)
|
|
|
|
Strbuf_terminate(&lhsb);
|
|
|
|
else if (lhsb.s[0] == 0) {
|
2000-04-15 04:41:27 +00:00
|
|
|
seterror(ERR_LHS);
|
|
|
|
return (en);
|
2007-03-11 22:33:41 +00:00
|
|
|
} else
|
|
|
|
lhsb.len = Strlen(lhsb.s); /* lhsb.s wasn't changed */
|
|
|
|
rhsb.len = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
for (;;) {
|
|
|
|
c = getC(0);
|
|
|
|
if (c == '\n') {
|
|
|
|
unreadc(c);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (c == delim)
|
|
|
|
break;
|
|
|
|
if (c == '\\') {
|
|
|
|
c = getC(0);
|
|
|
|
if (c != delim /* && c != '~' */ )
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&rhsb, '\\');
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&rhsb, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_terminate(&rhsb);
|
2000-04-15 04:41:27 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
if (c == '\n')
|
|
|
|
unreadc(c);
|
2005-04-24 19:41:08 +00:00
|
|
|
seterror(ERR_BADBANGMOD, (int)c);
|
2000-04-15 04:41:27 +00:00
|
|
|
return (en);
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
slhs.len = 0;
|
2008-03-12 23:01:33 +00:00
|
|
|
if (lhsb.s != NULL && lhsb.len != 0)
|
|
|
|
Strbuf_append(&slhs, lhsb.s);
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_terminate(&slhs);
|
2000-04-15 04:41:27 +00:00
|
|
|
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 *
|
2007-03-11 22:33:41 +00:00
|
|
|
dosub(Char sc, struct wordent *en, int global)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
struct wordent lexi;
|
2005-04-24 19:41:08 +00:00
|
|
|
int didsub = 0, didone = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
struct wordent *hp = &lexi;
|
|
|
|
struct wordent *wdp;
|
|
|
|
int i = exclc;
|
|
|
|
struct Hist *hst;
|
|
|
|
|
|
|
|
wdp = hp;
|
|
|
|
while (--i >= 0) {
|
2007-03-11 22:33:41 +00:00
|
|
|
struct wordent *new = xcalloc(1, sizeof *wdp);
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
new->word = 0;
|
|
|
|
new->prev = wdp;
|
|
|
|
new->next = hp;
|
|
|
|
wdp->next = new;
|
|
|
|
wdp = new;
|
|
|
|
en = en->next;
|
|
|
|
if (en->word) {
|
|
|
|
Char *tword, *otword;
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
if ((global & FLAG_G) || didsub == 0) {
|
|
|
|
size_t pos;
|
|
|
|
|
|
|
|
pos = 0;
|
|
|
|
tword = subword(en->word, sc, &didone, &pos);
|
2000-04-15 04:41:27 +00:00
|
|
|
if (didone)
|
|
|
|
didsub = 1;
|
2007-03-11 22:33:41 +00:00
|
|
|
if (global & FLAG_A) {
|
2000-04-15 04:41:27 +00:00
|
|
|
while (didone && tword != STRNULL) {
|
|
|
|
otword = tword;
|
2007-03-11 22:33:41 +00:00
|
|
|
tword = subword(otword, sc, &didone, &pos);
|
2000-04-15 04:41:27 +00:00
|
|
|
if (Strcmp(tword, otword) == 0) {
|
2007-03-11 22:33:41 +00:00
|
|
|
xfree(otword);
|
2000-04-15 04:41:27 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
else
|
2007-03-11 22:33:41 +00:00
|
|
|
xfree(otword);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
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;
|
|
|
|
*/
|
2012-02-20 00:53:59 +00:00
|
|
|
hst = enthist(HIST_PURGE, &lexi, 0, 0, -1);
|
2000-04-15 04:41:27 +00:00
|
|
|
return &(hst->Hlex);
|
|
|
|
}
|
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
/* 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. */
|
2000-04-15 04:41:27 +00:00
|
|
|
static Char *
|
2007-03-11 22:33:41 +00:00
|
|
|
subword(Char *cp, Char type, int *adid, size_t *start_pos)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2007-03-11 22:33:41 +00:00
|
|
|
Char *wp;
|
|
|
|
const Char *mp, *np;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
switch (type) {
|
|
|
|
|
|
|
|
case 'r':
|
|
|
|
case 'e':
|
|
|
|
case 'h':
|
|
|
|
case 't':
|
|
|
|
case 'q':
|
|
|
|
case 'x':
|
|
|
|
case 'u':
|
|
|
|
case 'l':
|
|
|
|
wp = domod(cp, type);
|
2007-03-11 22:33:41 +00:00
|
|
|
if (wp == 0) {
|
|
|
|
*adid = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
return (Strsave(cp));
|
2007-03-11 22:33:41 +00:00
|
|
|
}
|
2000-04-15 04:41:27 +00:00
|
|
|
*adid = 1;
|
|
|
|
return (wp);
|
|
|
|
|
|
|
|
default:
|
2007-03-11 22:33:41 +00:00
|
|
|
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++)
|
2000-04-15 04:41:27 +00:00
|
|
|
switch (*np) {
|
|
|
|
|
|
|
|
case '\\':
|
|
|
|
if (np[1] == '&')
|
|
|
|
np++;
|
|
|
|
/* fall into ... */
|
|
|
|
|
|
|
|
default:
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&wbuf, *np);
|
2000-04-15 04:41:27 +00:00
|
|
|
continue;
|
|
|
|
|
|
|
|
case '&':
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append(&wbuf, lhsb.s);
|
2000-04-15 04:41:27 +00:00
|
|
|
continue;
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
*start_pos = wbuf.len;
|
|
|
|
Strbuf_append(&wbuf, mp + lhsb.len);
|
2000-04-15 04:41:27 +00:00
|
|
|
*adid = 1;
|
2007-03-11 22:33:41 +00:00
|
|
|
return Strbuf_finish(&wbuf);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
}
|
|
|
|
*adid = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
return (Strsave(cp));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
Char *
|
2007-03-11 22:33:41 +00:00
|
|
|
domod(Char *cp, Char type)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
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':
|
2005-04-24 19:41:08 +00:00
|
|
|
wp = NLSChangeCase(cp, 1);
|
|
|
|
return wp ? wp : Strsave(cp);
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
case 'u':
|
2005-04-24 19:41:08 +00:00
|
|
|
wp = NLSChangeCase(cp, 0);
|
|
|
|
return wp ? wp : Strsave(cp);
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
case 'h':
|
|
|
|
case 't':
|
|
|
|
if (!any(short2str(cp), '/'))
|
|
|
|
return (type == 't' ? Strsave(cp) : 0);
|
2007-03-11 22:33:41 +00:00
|
|
|
wp = Strrchr(cp, '/');
|
2000-04-15 04:41:27 +00:00
|
|
|
if (type == 'h')
|
2007-03-11 22:33:41 +00:00
|
|
|
xp = Strnsave(cp, wp - cp);
|
2000-04-15 04:41:27 +00:00
|
|
|
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
|
2007-03-11 22:33:41 +00:00
|
|
|
xp = Strnsave(cp, wp - cp);
|
2000-04-15 04:41:27 +00:00
|
|
|
return (xp);
|
|
|
|
}
|
|
|
|
return (Strsave(type == 'e' ? STRNULL : cp));
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2007-03-11 22:33:41 +00:00
|
|
|
matchs(const Char *str, const Char *pat)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
while (*str && *pat && *str == *pat)
|
|
|
|
str++, pat++;
|
|
|
|
return (*pat == 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2007-03-11 22:33:41 +00:00
|
|
|
getsel(int *al, int *ar, int dol)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar c = getC(0);
|
2000-04-15 04:41:27 +00:00
|
|
|
int i;
|
2005-04-24 19:41:08 +00:00
|
|
|
int first = *al < 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
|
|
|
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 *
|
2007-03-11 22:33:41 +00:00
|
|
|
gethent(Char sc)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
struct Hist *hp;
|
|
|
|
Char *np;
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar c;
|
2000-04-15 04:41:27 +00:00
|
|
|
int event;
|
2005-04-24 19:41:08 +00:00
|
|
|
int back = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
|
2012-02-20 00:53:59 +00:00
|
|
|
c = (sc == HISTSUB && HISTSUB != '\0') ? (eChar)HIST : getC(0);
|
2005-04-24 19:41:08 +00:00
|
|
|
if (c == (eChar)HIST) {
|
2000-04-15 04:41:27 +00:00
|
|
|
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);
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_terminate(&lhsb);
|
|
|
|
lhsb.len = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
event = 0;
|
|
|
|
while (!cmap(c, _ESC | _META | _QF | _QB) && !any("^*-%${}:#", c)) {
|
|
|
|
if (event != -1 && Isdigit(c))
|
|
|
|
event = event * 10 + c - '0';
|
|
|
|
else
|
|
|
|
event = -1;
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&lhsb, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
c = getC(0);
|
|
|
|
}
|
|
|
|
unreadc(c);
|
2007-03-11 22:33:41 +00:00
|
|
|
if (lhsb.len == 0) {
|
|
|
|
lhsb.len = Strlen(lhsb.s); /* lhsb.s wasn't changed */
|
2000-04-15 04:41:27 +00:00
|
|
|
ungetC(HIST);
|
|
|
|
return (0);
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_terminate(&lhsb);
|
2000-04-15 04:41:27 +00:00
|
|
|
if (event != -1) {
|
|
|
|
/*
|
|
|
|
* History had only digits
|
|
|
|
*/
|
|
|
|
if (back)
|
2007-03-11 22:33:41 +00:00
|
|
|
event = eventno + (alhistp == 0) - event;
|
2000-04-15 04:41:27 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (back) {
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&lhsb, '\0'); /* Allocate space */
|
|
|
|
Strbuf_terminate(&lhsb);
|
|
|
|
memmove(lhsb.s + 1, lhsb.s, (lhsb.len - 1) * sizeof (*lhsb.s));
|
|
|
|
lhsb.s[0] = '-';
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
hp = findev(lhsb.s, 0);
|
2000-04-15 04:41:27 +00:00
|
|
|
if (hp)
|
|
|
|
lastev = hp->Hnum;
|
|
|
|
return (&hp->Hlex);
|
|
|
|
|
|
|
|
case '?':
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_terminate(&lhsb);
|
|
|
|
lhsb.len = 0;
|
2000-04-15 04:41:27 +00:00
|
|
|
for (;;) {
|
|
|
|
c = getC(0);
|
|
|
|
if (c == '\n') {
|
|
|
|
unreadc(c);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (c == '?')
|
|
|
|
break;
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&lhsb, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
if (lhsb.len == 0) {
|
|
|
|
lhsb.len = Strlen(lhsb.s); /* lhsb.s wasn't changed */
|
|
|
|
if (lhsb.len == 0) {
|
2000-04-15 04:41:27 +00:00
|
|
|
seterror(ERR_NOSEARCH);
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_terminate(&lhsb);
|
|
|
|
hp = findev(lhsb.s, 1);
|
2000-04-15 04:41:27 +00:00
|
|
|
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);
|
|
|
|
}
|
2012-02-20 00:53:59 +00:00
|
|
|
np = putn((tcsh_number_t)event);
|
2000-04-15 04:41:27 +00:00
|
|
|
seterror(ERR_NOEVENT, short2str(np));
|
2007-03-11 22:33:41 +00:00
|
|
|
xfree(np);
|
2000-04-15 04:41:27 +00:00
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
static struct Hist *
|
2007-03-11 22:33:41 +00:00
|
|
|
findev(Char *cp, int anyarg)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
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
|
2007-03-11 22:33:41 +00:00
|
|
|
setexclp(Char *cp)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
if (cp && cp[0] == '\n')
|
|
|
|
return;
|
|
|
|
exclp = cp;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2007-03-11 22:33:41 +00:00
|
|
|
unreadc(Char c)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
peekread = (Char) c;
|
|
|
|
}
|
|
|
|
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar
|
2007-03-11 22:33:41 +00:00
|
|
|
readc(int wanteof)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2005-04-24 19:41:08 +00:00
|
|
|
eChar c;
|
2000-04-15 04:41:27 +00:00
|
|
|
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:
|
2000-11-30 21:05:33 +00:00
|
|
|
aret = TCSH_F_SEEK;
|
2000-04-15 04:41:27 +00:00
|
|
|
if (alvecp) {
|
|
|
|
arun = 1;
|
|
|
|
#ifdef DEBUG_INP
|
|
|
|
xprintf("alvecp %c\n", *alvecp & 0xff);
|
|
|
|
#endif
|
2000-11-30 21:05:33 +00:00
|
|
|
aret = TCSH_A_SEEK;
|
2000-04-15 04:41:27 +00:00
|
|
|
if ((c = *alvecp++) != 0)
|
|
|
|
return (c);
|
|
|
|
if (alvec && *alvec) {
|
|
|
|
alvecp = *alvec++;
|
|
|
|
return (' ');
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
alvecp = NULL;
|
2000-11-30 21:05:33 +00:00
|
|
|
aret = TCSH_F_SEEK;
|
2000-04-15 04:41:27 +00:00
|
|
|
return('\n');
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (alvec) {
|
|
|
|
arun = 1;
|
|
|
|
if ((alvecp = *alvec) != 0) {
|
|
|
|
alvec++;
|
|
|
|
goto top;
|
|
|
|
}
|
|
|
|
/* Infinite source! */
|
|
|
|
return ('\n');
|
|
|
|
}
|
|
|
|
arun = 0;
|
|
|
|
if (evalp) {
|
2000-11-30 21:05:33 +00:00
|
|
|
aret = TCSH_E_SEEK;
|
2000-04-15 04:41:27 +00:00
|
|
|
if ((c = *evalp++) != 0)
|
|
|
|
return (c);
|
|
|
|
if (evalvec && *evalvec) {
|
|
|
|
evalp = *evalvec++;
|
|
|
|
return (' ');
|
|
|
|
}
|
2000-11-30 21:05:33 +00:00
|
|
|
aret = TCSH_F_SEEK;
|
2000-04-15 04:41:27 +00:00
|
|
|
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)
|
2005-04-24 19:41:08 +00:00
|
|
|
return CHAR_ERR;
|
2000-04-15 04:41:27 +00:00
|
|
|
exitstat();
|
|
|
|
}
|
|
|
|
if (arginp) {
|
|
|
|
if ((c = *arginp++) == 0) {
|
|
|
|
arginp = INVPTR;
|
|
|
|
return ('\n');
|
|
|
|
}
|
|
|
|
return (c);
|
|
|
|
}
|
|
|
|
#ifdef BSDJOBS
|
|
|
|
reread:
|
|
|
|
#endif /* BSDJOBS */
|
|
|
|
c = bgetc();
|
2005-04-24 19:41:08 +00:00
|
|
|
if (c == CHAR_ERR) {
|
2000-11-30 21:05:33 +00:00
|
|
|
#ifndef WINNT_NATIVE
|
2000-04-15 04:41:27 +00:00
|
|
|
# ifndef POSIX
|
|
|
|
# ifdef TERMIO
|
|
|
|
struct termio tty;
|
|
|
|
# else /* SGTTYB */
|
|
|
|
struct sgttyb tty;
|
|
|
|
# endif /* TERMIO */
|
|
|
|
# else /* POSIX */
|
|
|
|
struct termios tty;
|
|
|
|
# endif /* POSIX */
|
2000-11-30 21:05:33 +00:00
|
|
|
#endif /* !WINNT_NATIVE */
|
2000-04-15 04:41:27 +00:00
|
|
|
if (wanteof)
|
2005-04-24 19:41:08 +00:00
|
|
|
return CHAR_ERR;
|
2000-04-15 04:41:27 +00:00
|
|
|
/* was isatty but raw with ignoreeof yields problems */
|
2000-11-30 21:05:33 +00:00
|
|
|
#ifndef WINNT_NATIVE
|
2000-04-15 04:41:27 +00:00
|
|
|
# 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 */
|
2000-11-30 21:05:33 +00:00
|
|
|
#else /* WINNT_NATIVE */
|
2000-04-15 04:41:27 +00:00
|
|
|
if (isatty(SHIN))
|
2000-11-30 21:05:33 +00:00
|
|
|
#endif /* !WINNT_NATIVE */
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
#ifdef BSDJOBS
|
2007-03-11 22:33:41 +00:00
|
|
|
pid_t ctpgrp;
|
2000-04-15 04:41:27 +00:00
|
|
|
#endif /* BSDJOBS */
|
|
|
|
|
2002-07-24 16:23:10 +00:00
|
|
|
if (numeof != 0 && ++sincereal >= numeof) /* Too many EOFs? Bye! */
|
2000-04-15 04:41:27 +00:00
|
|
|
goto oops;
|
|
|
|
#ifdef BSDJOBS
|
|
|
|
if (tpgrp != -1 &&
|
|
|
|
(ctpgrp = tcgetpgrp(FSHTTY)) != -1 &&
|
|
|
|
tpgrp != ctpgrp) {
|
|
|
|
(void) tcsetpgrp(FSHTTY, tpgrp);
|
|
|
|
# ifdef _SEQUENT_
|
|
|
|
if (ctpgrp)
|
|
|
|
# endif /* _SEQUENT */
|
2007-03-11 22:33:41 +00:00
|
|
|
(void) killpg(ctpgrp, SIGHUP);
|
2000-04-15 04:41:27 +00:00
|
|
|
# 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"),
|
2007-03-11 22:33:41 +00:00
|
|
|
(int)ctpgrp, (int)tpgrp);
|
2000-04-15 04:41:27 +00:00
|
|
|
# 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) {
|
2009-07-10 21:47:20 +00:00
|
|
|
xprintf("%s", CGETS(16, 2,
|
2000-04-15 04:41:27 +00:00
|
|
|
"\nUse \"logout\" to logout.\n"));
|
|
|
|
} else {
|
|
|
|
xprintf(CGETS(16, 3,
|
|
|
|
"\nUse \"exit\" to leave %s.\n"),
|
|
|
|
progname);
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
reset();
|
2000-04-15 04:41:27 +00:00
|
|
|
} 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);
|
2007-03-11 22:33:41 +00:00
|
|
|
Strbuf_append1(&histline, c);
|
2000-04-15 04:41:27 +00:00
|
|
|
return (c);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2007-03-11 22:33:41 +00:00
|
|
|
balloc(int buf)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
Char **nfbuf;
|
|
|
|
|
|
|
|
while (buf >= fblocks) {
|
2007-03-11 22:33:41 +00:00
|
|
|
nfbuf = xcalloc(fblocks + 2, sizeof(Char **));
|
2000-04-15 04:41:27 +00:00
|
|
|
if (fbuf) {
|
|
|
|
(void) blkcpy(nfbuf, fbuf);
|
2007-03-11 22:33:41 +00:00
|
|
|
xfree(fbuf);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
fbuf = nfbuf;
|
2007-03-11 22:33:41 +00:00
|
|
|
fbuf[fblocks] = xcalloc(BUFSIZE, sizeof(Char));
|
2000-04-15 04:41:27 +00:00
|
|
|
fblocks++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2017-03-18 21:41:53 +00:00
|
|
|
ssize_t
|
2007-03-11 22:33:41 +00:00
|
|
|
wide_read(int fildes, Char *buf, size_t nchars, int use_fclens)
|
2005-04-24 19:41:08 +00:00
|
|
|
{
|
|
|
|
char cbuf[BUFSIZE + 1];
|
2007-03-11 22:33:41 +00:00
|
|
|
ssize_t res, r = 0;
|
2005-04-24 19:41:08 +00:00
|
|
|
size_t partial;
|
2007-03-11 22:33:41 +00:00
|
|
|
int err;
|
|
|
|
|
|
|
|
if (nchars == 0)
|
|
|
|
return 0;
|
|
|
|
assert (nchars <= sizeof(cbuf) / sizeof(*cbuf));
|
2005-04-24 19:41:08 +00:00
|
|
|
USE(use_fclens);
|
|
|
|
res = 0;
|
|
|
|
partial = 0;
|
|
|
|
do {
|
|
|
|
size_t i;
|
2007-03-11 22:33:41 +00:00
|
|
|
size_t len = nchars > partial ? nchars - partial : 1;
|
|
|
|
|
|
|
|
if (partial + len >= sizeof(cbuf) / sizeof(*cbuf))
|
|
|
|
break;
|
2005-04-24 19:41:08 +00:00
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
r = xread(fildes, cbuf + partial, len);
|
|
|
|
|
2005-04-24 19:41:08 +00:00
|
|
|
if (partial == 0 && r <= 0)
|
|
|
|
break;
|
|
|
|
partial += r;
|
|
|
|
i = 0;
|
2007-03-11 22:33:41 +00:00
|
|
|
while (i < partial && nchars != 0) {
|
|
|
|
int tlen;
|
2005-04-24 19:41:08 +00:00
|
|
|
|
2007-03-11 22:33:41 +00:00
|
|
|
tlen = normal_mbtowc(buf + res, cbuf + i, partial - i);
|
|
|
|
if (tlen == -1) {
|
2005-04-24 19:41:08 +00:00
|
|
|
reset_mbtowc();
|
2007-03-11 22:33:41 +00:00
|
|
|
if ((partial - i) < MB_LEN_MAX && r > 0)
|
2005-04-24 19:41:08 +00:00
|
|
|
/* Maybe a partial character and there is still a chance
|
|
|
|
to read more */
|
|
|
|
break;
|
|
|
|
buf[res] = (unsigned char)cbuf[i] | INVALID_BYTE;
|
|
|
|
}
|
2007-03-11 22:33:41 +00:00
|
|
|
if (tlen <= 0)
|
|
|
|
tlen = 1;
|
2005-04-24 19:41:08 +00:00
|
|
|
#ifdef WIDE_STRINGS
|
|
|
|
if (use_fclens)
|
2007-03-11 22:33:41 +00:00
|
|
|
fclens[res] = tlen;
|
2005-04-24 19:41:08 +00:00
|
|
|
#endif
|
2007-03-11 22:33:41 +00:00
|
|
|
i += tlen;
|
2005-04-24 19:41:08 +00:00
|
|
|
res++;
|
|
|
|
nchars--;
|
|
|
|
}
|
|
|
|
if (i != partial)
|
|
|
|
memmove(cbuf, cbuf + i, partial - i);
|
|
|
|
partial -= i;
|
2007-03-11 22:33:41 +00:00
|
|
|
} 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;
|
2005-04-24 19:41:08 +00:00
|
|
|
return res != 0 ? res : r;
|
|
|
|
}
|
|
|
|
|
|
|
|
static eChar
|
2007-03-11 22:33:41 +00:00
|
|
|
bgetc(void)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
2005-04-24 19:41:08 +00:00
|
|
|
Char ch;
|
2000-04-15 04:41:27 +00:00
|
|
|
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) {
|
2007-03-11 22:33:41 +00:00
|
|
|
#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
|
2000-04-15 04:41:27 +00:00
|
|
|
fbobp = feobp;
|
2007-03-11 22:33:41 +00:00
|
|
|
c = wide_read(SHIN, fbuf[0], BUFSIZE, 1);
|
2000-04-15 04:41:27 +00:00
|
|
|
#ifdef convex
|
|
|
|
if (c < 0)
|
|
|
|
stderror(ERR_SYSTEM, progname, strerror(errno));
|
|
|
|
#endif /* convex */
|
|
|
|
if (c <= 0)
|
2005-04-24 19:41:08 +00:00
|
|
|
return CHAR_ERR;
|
2000-04-15 04:41:27 +00:00
|
|
|
feobp += c;
|
|
|
|
}
|
2009-07-10 21:47:20 +00:00
|
|
|
#if !defined(WINNT_NATIVE) && !defined(__CYGWIN__)
|
2005-04-24 19:41:08 +00:00
|
|
|
ch = fbuf[0][fseekp - fbobp];
|
2000-04-15 04:41:27 +00:00
|
|
|
fseekp++;
|
|
|
|
#else
|
|
|
|
do {
|
2005-04-24 19:41:08 +00:00
|
|
|
ch = fbuf[0][fseekp - fbobp];
|
2000-04-15 04:41:27 +00:00
|
|
|
fseekp++;
|
2005-04-24 19:41:08 +00:00
|
|
|
} while(ch == '\r');
|
2009-07-10 21:47:20 +00:00
|
|
|
#endif /* !WINNT_NATIVE && !__CYGWIN__ */
|
2005-04-24 19:41:08 +00:00
|
|
|
return (ch);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
while (fseekp >= feobp) {
|
2002-07-24 16:23:10 +00:00
|
|
|
if ((editing
|
|
|
|
#if defined(FILEC) && defined(TIOCSTI)
|
|
|
|
|| filec
|
|
|
|
#endif /* FILEC && TIOCSTI */
|
|
|
|
) && intty) { /* then use twenex routine */
|
2000-04-15 04:41:27 +00:00
|
|
|
fseekp = feobp; /* where else? */
|
2002-07-24 16:23:10 +00:00
|
|
|
#if defined(FILEC) && defined(TIOCSTI)
|
|
|
|
if (!editing)
|
|
|
|
c = numleft = tenex(InputBuf, BUFSIZE);
|
|
|
|
else
|
|
|
|
#endif /* FILEC && TIOCSTI */
|
2000-04-15 04:41:27 +00:00
|
|
|
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;
|
2007-03-11 22:33:41 +00:00
|
|
|
(void) memcpy(fbuf[buf] + off, InputBuf + c - numleft,
|
|
|
|
roomleft * sizeof(Char));
|
2000-04-15 04:41:27 +00:00
|
|
|
numleft -= roomleft;
|
|
|
|
feobp += roomleft;
|
|
|
|
}
|
2002-07-24 16:23:10 +00:00
|
|
|
} else {
|
2000-04-15 04:41:27 +00:00
|
|
|
off = (int) feobp % BUFSIZE;
|
|
|
|
buf = (int) feobp / BUFSIZE;
|
|
|
|
balloc(buf);
|
|
|
|
roomleft = BUFSIZE - off;
|
2007-03-11 22:33:41 +00:00
|
|
|
c = wide_read(SHIN, fbuf[buf] + off, roomleft, 0);
|
2005-04-24 19:41:08 +00:00
|
|
|
if (c > 0)
|
2000-04-15 04:41:27 +00:00
|
|
|
feobp += c;
|
|
|
|
}
|
|
|
|
if (c == 0 || (c < 0 && fixio(SHIN, errno) == -1))
|
2005-04-24 19:41:08 +00:00
|
|
|
return CHAR_ERR;
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
2005-04-24 19:41:08 +00:00
|
|
|
#ifdef SIG_WINDOW
|
|
|
|
if (windowchg)
|
|
|
|
(void) check_window_size(0); /* for window systems */
|
|
|
|
#endif /* SIG_WINDOW */
|
2009-07-10 21:47:20 +00:00
|
|
|
#if !defined(WINNT_NATIVE) && !defined(__CYGWIN__)
|
2005-04-24 19:41:08 +00:00
|
|
|
ch = fbuf[(int) fseekp / BUFSIZE][(int) fseekp % BUFSIZE];
|
2000-04-15 04:41:27 +00:00
|
|
|
fseekp++;
|
|
|
|
#else
|
|
|
|
do {
|
2005-04-24 19:41:08 +00:00
|
|
|
ch = fbuf[(int) fseekp / BUFSIZE][(int) fseekp % BUFSIZE];
|
2000-04-15 04:41:27 +00:00
|
|
|
fseekp++;
|
2005-04-24 19:41:08 +00:00
|
|
|
} while(ch == '\r');
|
2009-07-10 21:47:20 +00:00
|
|
|
#endif /* !WINNT_NATIVE && !__CYGWIN__ */
|
2005-04-24 19:41:08 +00:00
|
|
|
return (ch);
|
2000-04-15 04:41:27 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2007-03-11 22:33:41 +00:00
|
|
|
bfree(void)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
int sb, i;
|
|
|
|
|
|
|
|
if (cantell)
|
|
|
|
return;
|
|
|
|
if (whyles)
|
|
|
|
return;
|
|
|
|
sb = (int) (fseekp - 1) / BUFSIZE;
|
|
|
|
if (sb > 0) {
|
|
|
|
for (i = 0; i < sb; i++)
|
2007-03-11 22:33:41 +00:00
|
|
|
xfree(fbuf[i]);
|
2000-04-15 04:41:27 +00:00
|
|
|
(void) blkcpy(fbuf, &fbuf[sb]);
|
|
|
|
fseekp -= BUFSIZE * sb;
|
|
|
|
feobp -= BUFSIZE * sb;
|
|
|
|
fblocks -= sb;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2007-03-11 22:33:41 +00:00
|
|
|
bseek(struct Ain *l)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
switch (aret = l->type) {
|
2000-11-30 21:05:33 +00:00
|
|
|
case TCSH_E_SEEK:
|
2000-04-15 04:41:27 +00:00
|
|
|
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;
|
2000-11-30 21:05:33 +00:00
|
|
|
case TCSH_A_SEEK:
|
2000-04-15 04:41:27 +00:00
|
|
|
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;
|
2000-11-30 21:05:33 +00:00
|
|
|
case TCSH_F_SEEK:
|
2000-04-15 04:41:27 +00:00
|
|
|
#ifdef DEBUG_SEEK
|
|
|
|
xprintf(CGETS(16, 6, "seek to file %x\n"), fseekp);
|
|
|
|
#endif
|
|
|
|
fseekp = l->f_seek;
|
2005-04-24 19:41:08 +00:00
|
|
|
#ifdef WIDE_STRINGS
|
|
|
|
if (cantell) {
|
2007-03-11 22:33:41 +00:00
|
|
|
if (fseekp >= fbobp && feobp >= fbobp) {
|
2005-04-24 19:41:08 +00:00
|
|
|
size_t i;
|
|
|
|
off_t o;
|
|
|
|
|
|
|
|
o = fbobp;
|
2007-03-11 22:33:41 +00:00
|
|
|
for (i = 0; i < (size_t)(feobp - fbobp); i++) {
|
2005-04-24 19:41:08 +00:00
|
|
|
if (fseekp == o) {
|
|
|
|
fseekp = fbobp + i;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
o += fclens[i];
|
|
|
|
}
|
|
|
|
if (fseekp == o) {
|
|
|
|
fseekp = feobp;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fbobp = feobp = fseekp + 1; /* To force lseek() */
|
|
|
|
}
|
|
|
|
#endif
|
2000-04-15 04:41:27 +00:00
|
|
|
return;
|
|
|
|
default:
|
|
|
|
xprintf(CGETS(16, 7, "Bad seek type %d\n"), aret);
|
|
|
|
abort();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* any similarity to bell telephone is purely accidental */
|
|
|
|
void
|
2007-03-11 22:33:41 +00:00
|
|
|
btell(struct Ain *l)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
switch (l->type = aret) {
|
2000-11-30 21:05:33 +00:00
|
|
|
case TCSH_E_SEEK:
|
2000-04-15 04:41:27 +00:00
|
|
|
l->a_seek = evalvec;
|
|
|
|
l->c_seek = evalp;
|
|
|
|
#ifdef DEBUG_SEEK
|
|
|
|
xprintf(CGETS(16, 8, "tell eval %x %x\n"), evalvec, evalp);
|
|
|
|
#endif
|
|
|
|
return;
|
2000-11-30 21:05:33 +00:00
|
|
|
case TCSH_A_SEEK:
|
2000-04-15 04:41:27 +00:00
|
|
|
l->a_seek = alvec;
|
|
|
|
l->c_seek = alvecp;
|
|
|
|
#ifdef DEBUG_SEEK
|
|
|
|
xprintf(CGETS(16, 9, "tell alias %x %x\n"), alvec, alvecp);
|
|
|
|
#endif
|
|
|
|
return;
|
2000-11-30 21:05:33 +00:00
|
|
|
case TCSH_F_SEEK:
|
2005-04-24 19:41:08 +00:00
|
|
|
#ifdef WIDE_STRINGS
|
2007-03-11 22:33:41 +00:00
|
|
|
if (cantell && fseekp >= fbobp && fseekp <= feobp) {
|
2005-04-24 19:41:08 +00:00
|
|
|
size_t i;
|
2007-03-11 22:33:41 +00:00
|
|
|
|
2005-04-24 19:41:08 +00:00
|
|
|
l->f_seek = fbobp;
|
2007-03-11 22:33:41 +00:00
|
|
|
for (i = 0; i < (size_t)(fseekp - fbobp); i++)
|
2005-04-24 19:41:08 +00:00
|
|
|
l->f_seek += fclens[i];
|
|
|
|
} else
|
|
|
|
#endif
|
|
|
|
/*SUPPRESS 112*/
|
|
|
|
l->f_seek = fseekp;
|
2000-04-15 04:41:27 +00:00
|
|
|
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
|
2007-03-11 22:33:41 +00:00
|
|
|
btoeof(void)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
(void) lseek(SHIN, (off_t) 0, L_XTND);
|
2000-11-30 21:05:33 +00:00
|
|
|
aret = TCSH_F_SEEK;
|
2000-04-15 04:41:27 +00:00
|
|
|
fseekp = feobp;
|
|
|
|
alvec = NULL;
|
|
|
|
alvecp = NULL;
|
|
|
|
evalvec = NULL;
|
|
|
|
evalp = NULL;
|
|
|
|
wfree();
|
|
|
|
bfree();
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2007-03-11 22:33:41 +00:00
|
|
|
settell(void)
|
2000-04-15 04:41:27 +00:00
|
|
|
{
|
|
|
|
off_t x;
|
|
|
|
cantell = 0;
|
|
|
|
if (arginp || onelflg || intty)
|
|
|
|
return;
|
|
|
|
if ((x = lseek(SHIN, (off_t) 0, L_INCR)) == -1)
|
|
|
|
return;
|
2007-03-11 22:33:41 +00:00
|
|
|
fbuf = xcalloc(2, sizeof(Char **));
|
2000-04-15 04:41:27 +00:00
|
|
|
fblocks = 1;
|
2007-03-11 22:33:41 +00:00
|
|
|
fbuf[0] = xcalloc(BUFSIZE, sizeof(Char));
|
2000-04-15 04:41:27 +00:00
|
|
|
fseekp = fbobp = feobp = x;
|
|
|
|
cantell = 1;
|
|
|
|
}
|