1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ Miscellaneous user commands, like `echo', `pwd', etc.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2018 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
8 * Copyright (c) 1980, 1993
9 * The Regents of the University of California. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 #define n_FILE cmd_misc
38 #ifndef HAVE_AMALGAMATION
42 #include <sys/utsname.h>
44 /* Expand the shell escape by expanding unescaped !'s into the last issued
45 * command where possible */
46 static char const *a_cmisc_bangexp(char const *cp
);
48 /* c_n?echo(), c_n?echoerr() */
49 static int a_cmisc_echo(void *vp
, FILE *fp
, bool_t donl
);
52 static bool_t
a_cmisc_read_set(char const *cp
, char const *value
);
55 static int a_cmisc_version_cmp(void const *s1
, void const *s2
);
58 a_cmisc_bangexp(char const *cp
){
59 static struct str last_bang
;
61 struct n_string xbang
, *bang
;
71 for(bang
= n_string_creat(&xbang
); (c
= *cp
++) != '\0';){
74 bang
= n_string_push_buf(bang
, last_bang
.s
, last_bang
.l
);
77 if(c
== '\\' && *cp
== '!'){
82 bang
= n_string_push_c(bang
, c
);
86 if(last_bang
.s
!= NULL
)
88 last_bang
.s
= n_string_cp(bang
);
89 last_bang
.l
= bang
->s_len
;
90 bang
= n_string_drop_ownership(bang
);
95 fprintf(n_stdout
, "!%s\n", cp
);
102 a_cmisc_echo(void *vp
, FILE *fp
, bool_t donl
){
103 struct n_string s
, *sp
;
106 char const **argv
, *varname
, **ap
, *cp
;
110 varname
= (n_pstate
& n_PS_ARGMOD_VPUT
) ? *argv
++ : NULL
;
111 sp
= n_string_reserve(n_string_creat_auto(&s
), 121/* XXX */);
113 doerr
= (fp
== n_stderr
&& (n_psonce
& n_PSO_INTERACTIVE
));
118 for(ap
= argv
; *ap
!= NULL
; ++ap
){
120 sp
= n_string_push_c(sp
, ' ');
121 if((cp
= fexpand(*ap
, FEXP_NSHORTCUT
| FEXP_NVAR
)) == NULL
)
123 sp
= n_string_push_cp(sp
, cp
);
126 sp
= n_string_push_c(sp
, '\n');
127 cp
= n_string_cp(sp
);
134 /* xxx Ensure *log-prefix* will be placed by n_err() for next msg */
136 cp
= n_string_cp(n_string_trunc(sp
, sp
->s_len
- 1));
137 n_err((donl
? "%s\n" : "%s"), cp
);
138 }else if(fputs(cp
, fp
) == EOF
)
140 if((rv
= (fflush(fp
) == EOF
)))
142 rv
|= ferror(fp
) ? 1 : 0;
144 }else if(!n_var_vset(varname
, (uintptr_t)cp
)){
145 n_pstate_err_no
= n_ERR_NOTSUP
;
148 n_pstate_err_no
= n_ERR_NONE
;
156 a_cmisc_read_set(char const *cp
, char const *value
){
160 if(!n_shexp_is_valid_varname(cp
))
161 value
= N_("not a valid variable name");
162 else if(!n_var_is_user_writable(cp
))
163 value
= N_("variable is read-only");
164 else if(!n_var_vset(cp
, (uintptr_t)value
))
165 value
= N_("failed to update variable value");
170 n_err("`read': %s: %s\n", V_(value
), n_shexp_quote_cp(cp
, FAL0
));
178 a_cmisc_version_cmp(void const *s1
, void const *s2
){
179 char const * const *cp1
, * const *cp2
;
185 rv
= strcmp(&(*cp1
)[1], &(*cp2
)[1]);
198 if((n_idec_uiz_cp(&sec
, argv
[0], 0, NULL
) &
199 (n_IDEC_STATE_EMASK
| n_IDEC_STATE_CONSUMED
)
200 ) != n_IDEC_STATE_CONSUMED
)
205 else if((n_idec_uiz_cp(&msec
, argv
[1], 0, NULL
) &
206 (n_IDEC_STATE_EMASK
| n_IDEC_STATE_CONSUMED
)
207 ) != n_IDEC_STATE_CONSUMED
)
210 if(UIZ_MAX
/ n_DATE_MILLISSEC
< sec
)
212 sec
*= n_DATE_MILLISSEC
;
214 if(UIZ_MAX
- sec
< msec
)
218 n_pstate_err_no
= (n_msleep(msec
, (argv
[2] == NULL
)) > 0)
219 ? n_ERR_INTR
: n_ERR_NONE
;
222 return (argv
== NULL
);
224 n_err(_("`sleep': argument(s) overflow(s) datatype\n"));
225 n_pstate_err_no
= n_ERR_OVERFLOW
;
229 n_err(_("Synopsis: sleep: <seconds> [<milliseconds>] [uninterruptible]\n"));
230 n_pstate_err_no
= n_ERR_INVAL
;
241 char const **argv
, *varname
, *varres
, *cp
;
244 n_pstate_err_no
= n_ERR_NONE
;
246 varname
= (n_pstate
& n_PS_ARGMOD_VPUT
) ? *argv
++ : NULL
;
250 if(varname
!= NULL
&&
251 (fp
= Ftmp(NULL
, "shell", OF_RDWR
| OF_UNLINK
| OF_REGISTER
)
253 n_pstate_err_no
= n_ERR_CANCELED
;
256 cp
= a_cmisc_bangexp(*argv
);
259 if(n_child_run(ok_vlook(SHELL
), &mask
,
260 n_CHILD_FD_PASS
, (fp
!= NULL
? fileno(fp
) : n_CHILD_FD_PASS
),
261 "-c", cp
, NULL
, NULL
, &rv
) < 0){
262 n_pstate_err_no
= n_err_no
;
265 rv
= WEXITSTATUS(rv
);
274 if(UICMP(64, l
, >=, UIZ_MAX
-42)){
275 n_pstate_err_no
= n_ERR_NOMEM
;
278 varres
= x
= n_autorec_alloc(l
+1);
280 for(; l
> 0 && (c
= getc(fp
)) != EOF
; --l
)
284 n_pstate_err_no
= n_err_no
;
285 varres
= n_empty
; /* xxx hmmm */
296 if(!n_var_vset(varname
, (uintptr_t)varres
)){
297 n_pstate_err_no
= n_ERR_NOTSUP
;
300 }else if(rv
>= 0 && (n_psonce
& n_PSO_INTERACTIVE
)){
301 fprintf(n_stdout
, "!\n");
302 /* Line buffered fflush(n_stdout); */
315 if(n_child_run(ok_vlook(SHELL
), 0, n_CHILD_FD_PASS
, n_CHILD_FD_PASS
, NULL
,
316 NULL
, NULL
, NULL
, &rv
) < 0){
317 n_pstate_err_no
= n_err_no
;
320 putc('\n', n_stdout
);
321 /* Line buffered fflush(n_stdout); */
322 n_pstate_err_no
= n_ERR_NONE
;
323 rv
= WEXITSTATUS(rv
);
331 struct n_string s_b
, *sp
;
336 sp
= n_string_creat_auto(&s_b
);
337 varname
= (n_pstate
& n_PS_ARGMOD_VPUT
) ? *(char const**)v
: NULL
;
340 for(;; l
+= PATH_MAX
){
341 sp
= n_string_resize(n_string_trunc(sp
, 0), l
);
343 if(getcwd(sp
->s_dat
, sp
->s_len
) == NULL
){
349 n_perr(_("Failed to getcwd(3)"), e
);
355 if(!n_var_vset(varname
, (uintptr_t)sp
->s_dat
))
358 l
= strlen(sp
->s_dat
);
359 sp
= n_string_trunc(sp
, l
);
360 if(fwrite(sp
->s_dat
, 1, sp
->s_len
, n_stdout
) == sp
->s_len
&&
361 putc('\n', n_stdout
) == EOF
)
377 if (*arglist
== NULL
)
379 else if ((cp
= fexpand(*arglist
, FEXP_LOCAL
| FEXP_NOPROTO
)) == NULL
)
381 if (chdir(cp
) == -1) {
395 rv
= a_cmisc_echo(v
, n_stdout
, TRU1
);
405 rv
= a_cmisc_echo(v
, n_stderr
, TRU1
);
415 rv
= a_cmisc_echo(v
, n_stdout
, FAL0
);
425 rv
= a_cmisc_echo(v
, n_stderr
, FAL0
);
431 c_read(void * volatile vp
){
434 struct n_string s
, *sp
;
438 char const *ifs
, **argv
, *cp
;
441 sp
= n_string_creat_auto(&s
);
442 sp
= n_string_reserve(sp
, 64 -1);
449 n_SIGMAN_ENTER_SWITCH(&sm
, n_SIGMAN_ALL
){
453 n_pstate_err_no
= n_ERR_INTR
;
458 n_pstate_err_no
= n_ERR_NONE
;
459 rv
= n_go_input(((n_pstate
& n_PS_COMPOSE_MODE
460 ? n_GO_INPUT_CTX_COMPOSE
: n_GO_INPUT_CTX_DEFAULT
) |
461 n_GO_INPUT_FORCE_STDIN
| n_GO_INPUT_NL_ESC
|
462 n_GO_INPUT_PROMPT_NONE
/* XXX POSIX: PS2: yes! */),
463 NULL
, &linebuf
, &linesize
, NULL
, NULL
);
465 if(!n_go_input_is_eof())
466 n_pstate_err_no
= n_ERR_BADF
;
469 if(n_go_input_is_eof()){
477 for(; *argv
!= NULL
; ++argv
){
478 if(trim
.l
== 0 || n_str_trim_ifs(&trim
, FAL0
)->l
== 0)
481 /* The last variable gets the remaining line less trailing IFS-WS */
484 sp
= n_string_assign_buf(sp
, trim
.s
, trim
.l
);
486 }else for(cp
= trim
.s
, i
= 1;; ++cp
, ++i
){
487 if(strchr(ifs
, *cp
) != NULL
){
488 sp
= n_string_assign_buf(sp
, trim
.s
, i
- 1);
497 if(!a_cmisc_read_set(*argv
, n_string_cp(sp
))){
498 n_pstate_err_no
= n_ERR_NOTSUP
;
505 /* Set the remains to the empty string */
506 for(; *argv
!= NULL
; ++argv
)
507 if(!a_cmisc_read_set(*argv
, n_empty
)){
508 n_pstate_err_no
= n_ERR_NOTSUP
;
513 n_sigman_cleanup_ping(&sm
);
518 n_sigman_leave(&sm
, n_SIGMAN_VIPSIGS_NTTYOUT
);
523 c_readall(void * vp
){ /* TODO 64-bit retval */
525 struct n_string s
, *sp
;
532 sp
= n_string_creat_auto(&s
);
533 sp
= n_string_reserve(sp
, 64 -1);
539 n_SIGMAN_ENTER_SWITCH(&sm
, n_SIGMAN_ALL
){
543 n_pstate_err_no
= n_ERR_INTR
;
548 n_pstate_err_no
= n_ERR_NONE
;
551 rv
= n_go_input(((n_pstate
& n_PS_COMPOSE_MODE
552 ? n_GO_INPUT_CTX_COMPOSE
: n_GO_INPUT_CTX_DEFAULT
) |
553 n_GO_INPUT_FORCE_STDIN
| /*n_GO_INPUT_NL_ESC |*/
554 n_GO_INPUT_PROMPT_NONE
),
555 NULL
, &linebuf
, &linesize
, NULL
, NULL
);
557 if(!n_go_input_is_eof()){
558 n_pstate_err_no
= n_ERR_BADF
;
566 if(n_pstate
& n_PS_READLINE_NL
)
567 linebuf
[rv
++] = '\n'; /* Replace NUL with it */
569 if(n_UNLIKELY(rv
== 0)){ /* xxx will not get*/
570 if(n_go_input_is_eof()){
577 }else if(n_LIKELY(UICMP(32, SI32_MAX
- sp
->s_len
, >, rv
)))
578 sp
= n_string_push_buf(sp
, linebuf
, rv
);
580 n_pstate_err_no
= n_ERR_OVERFLOW
;
586 if(!a_cmisc_read_set(argv
[0], n_string_cp(sp
))){
587 n_pstate_err_no
= n_ERR_NOTSUP
;
593 n_sigman_cleanup_ping(&sm
);
598 n_sigman_leave(&sm
, n_SIGMAN_VIPSIGS_NTTYOUT
);
605 struct n_string s
, *sp
= &s
;
608 char const *cp
, **arr
;
612 sp
= n_string_creat_auto(sp
);
613 sp
= n_string_book(sp
, 1024);
615 /* First two lines */
616 sp
= n_string_push_cp(sp
, n_uagent
);
617 sp
= n_string_push_c(sp
, ' ');
618 sp
= n_string_push_cp(sp
, ok_vlook(version
));
619 sp
= n_string_push_c(sp
, ',');
620 sp
= n_string_push_c(sp
, ' ');
621 sp
= n_string_push_cp(sp
, ok_vlook(version_date
));
622 sp
= n_string_push_c(sp
, ' ');
623 sp
= n_string_push_c(sp
, '(');
624 sp
= n_string_push_cp(sp
, _("build for "));
625 sp
= n_string_push_cp(sp
, ok_vlook(build_os
));
626 sp
= n_string_push_c(sp
, ')');
627 sp
= n_string_push_cp(sp
, _("\nFeatures included (+) or not (-):\n"));
629 /* Some lines with the features.
630 * *features* starts with dummy byte to avoid + -> *folder* expansions */
631 i
= strlen(cp
= &ok_vlook(features
)[1]) +1;
632 iop
= n_autorec_alloc(i
);
635 arr
= n_autorec_alloc(sizeof(cp
) * VAL_FEATURES_CNT
);
636 for(i
= 0; (cp
= n_strsep(&iop
, ',', TRU1
)) != NULL
; ++i
)
638 qsort(arr
, i
, sizeof(cp
), &a_cmisc_version_cmp
);
640 for(lnlen
= 0; i
-- > 0;){
644 if((lnlen
+= j
+ 1) > 72){
645 sp
= n_string_push_c(sp
, '\n');
648 sp
= n_string_push_c(sp
, ' ');
649 sp
= n_string_push_buf(sp
, cp
, j
);
651 sp
= n_string_push_c(sp
, '\n');
654 if(n_poption
& n_PO_VERB
){
655 sp
= n_string_push_cp(sp
, "Compile: ");
656 sp
= n_string_push_cp(sp
, ok_vlook(build_cc
));
657 sp
= n_string_push_cp(sp
, "\nLink: ");
658 sp
= n_string_push_cp(sp
, ok_vlook(build_ld
));
659 if(*(cp
= ok_vlook(build_rest
)) != '\0'){
660 sp
= n_string_push_cp(sp
, "\nRest: ");
661 sp
= n_string_push_cp(sp
, cp
);
663 sp
= n_string_push_c(sp
, '\n');
665 /* A trailing line with info of the running machine */
667 sp
= n_string_push_c(sp
, '@');
668 sp
= n_string_push_cp(sp
, ut
.sysname
);
669 sp
= n_string_push_c(sp
, ' ');
670 sp
= n_string_push_cp(sp
, ut
.release
);
671 sp
= n_string_push_c(sp
, ' ');
672 sp
= n_string_push_cp(sp
, ut
.version
);
673 sp
= n_string_push_c(sp
, ' ');
674 sp
= n_string_push_cp(sp
, ut
.machine
);
675 sp
= n_string_push_c(sp
, '\n');
679 cp
= n_string_cp(sp
);
681 if(n_pstate
& n_PS_ARGMOD_VPUT
){
682 if(n_var_vset(*(char const**)vp
, (uintptr_t)cp
))
687 if(fputs(cp
, n_stdout
) != EOF
)