miscbltin.c revision 1556 
1/*-
2 * Copyright (c) 1991, 1993
3 *	The Regents of the University of California.  All rights reserved.
4 *
5 * This code is derived from software contributed to Berkeley by
6 * Kenneth Almquist.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 *    notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 *    notice, this list of conditions and the following disclaimer in the
15 *    documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 *    must display the following acknowledgement:
18 *	This product includes software developed by the University of
19 *	California, Berkeley and its contributors.
20 * 4. Neither the name of the University nor the names of its contributors
21 *    may be used to endorse or promote products derived from this software
22 *    without specific prior written permission.
23 *
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 * SUCH DAMAGE.
35 */
36
37#ifndef lint
38static char sccsid[] = "@(#)miscbltin.c	8.2 (Berkeley) 4/16/94";
39#endif /* not lint */
40
41/*
42 * Miscelaneous builtins.
43 */
44
45#include "shell.h"
46#include "options.h"
47#include "var.h"
48#include "output.h"
49#include "memalloc.h"
50#include "error.h"
51#include "mystring.h"
52
53#undef eflag
54
55extern char **argptr;		/* argument list for builtin command */
56
57
58/*
59 * The read builtin.  The -e option causes backslashes to escape the
60 * following character.
61 *
62 * This uses unbuffered input, which may be avoidable in some cases.
63 */
64
65readcmd(argc, argv)  char **argv; {
66	char **ap;
67	int backslash;
68	char c;
69	int eflag;
70	char *prompt;
71	char *ifs;
72	char *p;
73	int startword;
74	int status;
75	int i;
76
77	eflag = 0;
78	prompt = NULL;
79	while ((i = nextopt("ep:")) != '\0') {
80		if (i == 'p')
81			prompt = optarg;
82		else
83			eflag = 1;
84	}
85	if (prompt && isatty(0)) {
86		out2str(prompt);
87		flushall();
88	}
89	if (*(ap = argptr) == NULL)
90		error("arg count");
91	if ((ifs = bltinlookup("IFS", 1)) == NULL)
92		ifs = nullstr;
93	status = 0;
94	startword = 1;
95	backslash = 0;
96	STARTSTACKSTR(p);
97	for (;;) {
98		if (read(0, &c, 1) != 1) {
99			status = 1;
100			break;
101		}
102		if (c == '\0')
103			continue;
104		if (backslash) {
105			backslash = 0;
106			if (c != '\n')
107				STPUTC(c, p);
108			continue;
109		}
110		if (eflag && c == '\\') {
111			backslash++;
112			continue;
113		}
114		if (c == '\n')
115			break;
116		if (startword && *ifs == ' ' && strchr(ifs, c)) {
117			continue;
118		}
119		startword = 0;
120		if (backslash && c == '\\') {
121			if (read(0, &c, 1) != 1) {
122				status = 1;
123				break;
124			}
125			STPUTC(c, p);
126		} else if (ap[1] != NULL && strchr(ifs, c) != NULL) {
127			STACKSTRNUL(p);
128			setvar(*ap, stackblock(), 0);
129			ap++;
130			startword = 1;
131			STARTSTACKSTR(p);
132		} else {
133			STPUTC(c, p);
134		}
135	}
136	STACKSTRNUL(p);
137	setvar(*ap, stackblock(), 0);
138	while (*++ap != NULL)
139		setvar(*ap, nullstr, 0);
140	return status;
141}
142
143
144
145umaskcmd(argc, argv)  char **argv; {
146	int mask;
147	char *p;
148	int i;
149
150	if ((p = argv[1]) == NULL) {
151		INTOFF;
152		mask = umask(0);
153		umask(mask);
154		INTON;
155		out1fmt("%.4o\n", mask);	/* %#o might be better */
156	} else {
157		mask = 0;
158		do {
159			if ((unsigned)(i = *p - '0') >= 8)
160				error("Illegal number: %s", argv[1]);
161			mask = (mask << 3) + i;
162		} while (*++p != '\0');
163		umask(mask);
164	}
165	return 0;
166}
167