1 /* vi: set sw=4 ts=4: */
3 * Adapted from ash applet code
5 * This code is derived from software contributed to Berkeley by
8 * Copyright (c) 1989, 1991, 1993, 1994
9 * The Regents of the University of California. All rights reserved.
11 * Copyright (c) 1997-2005 Herbert Xu <herbert@gondor.apana.org.au>
12 * was re-ported from NetBSD and debianized.
14 * Copyright (c) 2010 Denys Vlasenko
17 * Licensed under GPLv2 or later, see file LICENSE in this source tree.
20 #include "shell_common.h"
22 const char defifsvar
[] ALIGN1
= "IFS= \t\n";
25 int FAST_FUNC
is_well_formed_var_name(const char *s
, char terminator
)
27 if (!s
|| !(isalpha(*s
) || *s
== '_'))
32 while (isalnum(*s
) || *s
== '_');
34 return *s
== terminator
;
39 /* Needs to be interruptible: shell mush handle traps and shell-special signals
40 * while inside read. To implement this, be sure to not loop on EINTR
41 * and return errno == EINTR reliably.
43 //TODO: use more efficient setvar() which takes a pointer to malloced "VAR=VAL"
44 //string. hush naturally has it, and ash has setvareq().
45 //Here we can simply store "VAR=" at buffer start and store read data directly
46 //after "=", then pass buffer to setvar() to consume.
48 shell_builtin_read(void FAST_FUNC (*setvar
)(const char *name
, const char *val
),
59 unsigned end_ms
; /* -t TIMEOUT */
61 int nchars
; /* -n NUM */
64 struct termios tty
, old_tty
;
66 int bufpos
; /* need to be able to hold -1 */
74 if (!is_well_formed_var_name(*pp
, '\0')) {
75 /* Mimic bash message */
76 bb_error_msg("read: '%s': not a valid identifier", *pp
);
77 return (const char *)(uintptr_t)1;
82 nchars
= 0; /* if != 0, -n is in effect */
84 nchars
= bb_strtou(opt_n
, NULL
, 10);
85 if (nchars
< 0 || errno
)
86 return "invalid count";
87 /* note: "-n 0": off (bash 3.2 does this too) */
91 end_ms
= bb_strtou(opt_t
, NULL
, 10);
92 if (errno
|| end_ms
> UINT_MAX
/ 2048)
93 return "invalid timeout";
95 #if 0 /* even bash has no -t N.NNN support */
96 ts
.tv_sec
= bb_strtou(opt_t
, &p
, 10);
98 /* EINVAL means number is ok, but not terminated by NUL */
99 if (*p
== '.' && errno
== EINVAL
) {
103 ts
.tv_usec
= bb_strtou(p
, &p2
, 10);
105 return "invalid timeout";
107 /* normalize to usec */
109 return "invalid timeout";
113 } else if (ts
.tv_sec
< 0 || errno
) {
114 return "invalid timeout";
116 if (!(ts
.tv_sec
| ts
.tv_usec
)) { /* both are 0? */
117 return "invalid timeout";
123 fd
= bb_strtou(opt_u
, NULL
, 10);
125 return "invalid file descriptor";
128 if (opt_p
&& isatty(fd
)) {
129 fputs(opt_p
, stderr
);
136 if (nchars
|| (read_flags
& BUILTIN_READ_SILENT
)) {
140 tty
.c_lflag
&= ~ICANON
;
141 // Setting it to more than 1 breaks poll():
142 // it blocks even if there's data. !??
143 //tty.c_cc[VMIN] = nchars < 256 ? nchars : 255;
144 /* reads would block only if < 1 char is available */
146 /* no timeout (reads block forever) */
149 if (read_flags
& BUILTIN_READ_SILENT
) {
150 tty
.c_lflag
&= ~(ECHO
| ECHOK
| ECHONL
);
152 /* This forces execution of "restoring" tcgetattr later */
153 read_flags
|= BUILTIN_READ_SILENT
;
154 /* if tcgetattr failed, tcsetattr will fail too.
155 * Ignoring, it's harmless. */
156 tcsetattr(fd
, TCSANOW
, &tty
);
159 retval
= (const char *)(uintptr_t)0;
162 if (end_ms
) /* NB: end_ms stays nonzero: */
163 end_ms
= ((unsigned)monotonic_ms() + end_ms
) | 1;
168 struct pollfd pfd
[1];
171 if ((bufpos
& 0xff) == 0)
172 buffer
= xrealloc(buffer
, bufpos
+ 0x100);
176 timeout
= end_ms
- (unsigned)monotonic_ms();
177 if (timeout
<= 0) { /* already late? */
178 retval
= (const char *)(uintptr_t)1;
183 /* We must poll even if timeout is -1:
184 * we want to be interrupted if signal arrives,
185 * regardless of SA_RESTART-ness of that signal!
189 pfd
[0].events
= POLLIN
;
190 if (poll(pfd
, 1, timeout
) != 1) {
191 /* timed out, or EINTR */
193 retval
= (const char *)(uintptr_t)1;
196 if (read(fd
, &buffer
[bufpos
], 1) != 1) {
198 retval
= (const char *)(uintptr_t)1;
211 if (!(read_flags
& BUILTIN_READ_RAW
) && c
== '\\') {
218 /* $IFS splitting. NOT done if we run "read"
219 * without variable names (bash compat).
220 * Thus, "read" and "read REPLY" are not the same.
223 /* http://www.opengroup.org/onlinepubs/9699919799/utilities/V3_chap02.html#tag_18_06_05 */
224 const char *is_ifs
= strchr(ifs
, c
);
225 if (startword
&& is_ifs
) {
228 /* it is a non-space ifs char */
230 if (startword
== 1) /* first one? */
231 continue; /* yes, it is not next word yet */
234 if (argv
[1] != NULL
&& is_ifs
) {
235 buffer
[bufpos
] = '\0';
237 setvar(*argv
, buffer
);
239 /* can we skip one non-space ifs char? (2: yes) */
240 startword
= isspace(c
) ? 2 : 1;
249 /* Remove trailing space $IFS chars */
250 while (--bufpos
>= 0 && isspace(buffer
[bufpos
]) && strchr(ifs
, buffer
[bufpos
]) != NULL
)
252 buffer
[bufpos
+ 1] = '\0';
253 /* Use the remainder as a value for the next variable */
254 setvar(*argv
, buffer
);
255 /* Set the rest to "" */
259 /* Note: no $IFS removal */
260 buffer
[bufpos
] = '\0';
261 setvar("REPLY", buffer
);
266 if (read_flags
& BUILTIN_READ_SILENT
)
267 tcsetattr(fd
, TCSANOW
, &old_tty
);
276 uint8_t cmd
; /* RLIMIT_xxx fit into it */
277 uint8_t factor_shift
; /* shift by to get rlim_{cur,max} values */
282 static const struct limits limits_tbl
[] = {
284 { RLIMIT_FSIZE
, 9, 'f', "file size (blocks)" },
287 { RLIMIT_CPU
, 0, 't', "cpu time (seconds)" },
290 { RLIMIT_DATA
, 10, 'd', "data seg size (kb)" },
293 { RLIMIT_STACK
, 10, 's', "stack size (kb)" },
296 { RLIMIT_CORE
, 9, 'c', "core file size (blocks)" },
299 { RLIMIT_RSS
, 10, 'm', "resident set size (kb)" },
301 #ifdef RLIMIT_MEMLOCK
302 { RLIMIT_MEMLOCK
, 10, 'l', "locked memory (kb)" },
305 { RLIMIT_NPROC
, 0, 'p', "processes" },
308 { RLIMIT_NOFILE
, 0, 'n', "file descriptors" },
311 { RLIMIT_AS
, 10, 'v', "address space (kb)" },
314 { RLIMIT_LOCKS
, 0, 'w', "locks" },
317 { RLIMIT_NICE
, 0, 'e', "scheduling priority" },
320 { RLIMIT_RTPRIO
, 0, 'r', "real-time priority" },
329 /* "-": treat args as parameters of option with ASCII code 1 */
330 static const char ulimit_opt_string
[] = "-HSa"
349 #ifdef RLIMIT_MEMLOCK
372 static void printlim(unsigned opts
, const struct rlimit
*limit
,
373 const struct limits
*l
)
377 val
= limit
->rlim_max
;
378 if (!(opts
& OPT_hard
))
379 val
= limit
->rlim_cur
;
381 if (val
== RLIM_INFINITY
)
382 printf("unlimited\n");
384 val
>>= l
->factor_shift
;
385 printf("%llu\n", (long long) val
);
390 shell_builtin_ulimit(char **argv
)
395 /* We can't use getopt32: need to handle commands like
396 * ulimit 123 -c2 -l 456
399 /* In case getopt was already called:
400 * reset the libc getopt() function, which keeps internal state.
404 #else /* BSD style */
408 /* optarg = NULL; opterr = 0; optopt = 0; - do we need this?? */
417 const struct limits
*l
;
418 int opt_char
= getopt(argc
, argv
, ulimit_opt_string
);
422 if (opt_char
== 'H') {
426 if (opt_char
== 'S') {
431 if (opt_char
== 'a') {
432 for (l
= limits_tbl
; l
!= &limits_tbl
[ARRAY_SIZE(limits_tbl
)]; l
++) {
433 getrlimit(l
->cmd
, &limit
);
434 printf("-%c: %-30s ", l
->option
, l
->name
);
435 printlim(opts
, &limit
, l
);
442 for (l
= limits_tbl
; l
!= &limits_tbl
[ARRAY_SIZE(limits_tbl
)]; l
++) {
443 if (opt_char
== l
->option
) {
446 getrlimit(l
->cmd
, &limit
);
449 if (!val_str
&& argv
[optind
] && argv
[optind
][0] != '-')
450 val_str
= argv
[optind
++]; /* ++ skips NN in "-c NN" case */
454 if (strcmp(val_str
, "unlimited") == 0)
457 if (sizeof(val
) == sizeof(int))
458 val
= bb_strtou(val_str
, NULL
, 10);
459 else if (sizeof(val
) == sizeof(long))
460 val
= bb_strtoul(val_str
, NULL
, 10);
462 val
= bb_strtoull(val_str
, NULL
, 10);
464 bb_error_msg("invalid number '%s'", val_str
);
467 val
<<= l
->factor_shift
;
469 //bb_error_msg("opt %c val_str:'%s' val:%lld", opt_char, val_str, (long long)val);
470 /* from man bash: "If neither -H nor -S
471 * is specified, both the soft and hard
474 opts
= OPT_hard
+ OPT_soft
;
476 limit
.rlim_max
= val
;
478 limit
.rlim_cur
= val
;
479 //bb_error_msg("setrlimit(%d, %lld, %lld)", l->cmd, (long long)limit.rlim_cur, (long long)limit.rlim_max);
480 if (setrlimit(l
->cmd
, &limit
) < 0) {
481 bb_perror_msg("error setting limit");
485 printlim(opts
, &limit
, l
);
489 } /* for (every possible opt) */
491 if (l
== &limits_tbl
[ARRAY_SIZE(limits_tbl
)]) {
492 /* bad option. getopt already complained. */
496 } /* while (there are options) */