cmd_misc.c

   1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
   2  *@ Miscellaneous user commands, like `echo', `pwd', etc.
   3  *
   4  * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
   5  * Copyright (c) 2012 - 2017 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   6  */
   7 /*
   8  * Copyright (c) 1980, 1993
   9  *      The Regents of the University of California.  All rights reserved.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  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.
  22  *
  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
  33  * SUCH DAMAGE.
  34  */
  35 #undef n_FILE
  36 #define n_FILE cmd_misc
  37
  38 #ifndef HAVE_AMALGAMATION
  39 # include "nail.h"
  40 #endif
  41
  42 /* Expand the shell escape by expanding unescaped !'s into the last issued
  43  * command where possible */
  44 static char const *a_cmisc_bangexp(char const *cp);
  45
  46 /* c_echo(), c_echoerr() */
  47 static int a_cmisc_echo(void *vp, FILE *fp);
  48
  49 static char const *
  50 a_cmisc_bangexp(char const *cp){
  51    static struct str last_bang;
  52
  53    struct n_string xbang, *bang;
  54    char c;
  55    bool_t changed;
  56    NYD_ENTER;
  57
  58    if(!ok_blook(bang))
  59       goto jleave;
  60
  61    changed = FAL0;
  62
  63    for(bang = n_string_creat(&xbang); (c = *cp++) != '\0';){
  64       if(c == '!'){
  65          if(last_bang.l > 0)
  66             bang = n_string_push_buf(bang, last_bang.s, last_bang.l);
  67          changed = TRU1;
  68       }else{
  69          if(c == '\\' && *cp == '!'){
  70             ++cp;
  71             c = '!';
  72             changed = TRU1;
  73          }
  74          bang = n_string_push_c(bang, c);
  75       }
  76    }
  77
  78    if(last_bang.s != NULL)
  79       free(last_bang.s);
  80    last_bang.s = n_string_cp(bang);
  81    last_bang.l = bang->s_len;
  82    bang = n_string_drop_ownership(bang);
  83    n_string_gut(bang);
  84
  85    cp = last_bang.s;
  86    if(changed)
  87       printf("!%s\n", cp);
  88 jleave:
  89    NYD_LEAVE;
  90    return cp;
  91 }
  92
  93 static int
  94 a_cmisc_echo(void *vp, FILE *fp){
  95    char const **argv, **ap, *cp;
  96    NYD2_ENTER;
  97
  98    for(ap = argv = vp; *ap != NULL; ++ap){
  99       if(ap != argv)
 100          putc(' ', fp);
 101       if((cp = fexpand(*ap, FEXP_NSHORTCUT | FEXP_NVAR)) == NULL)
 102          cp = *ap;
 103       fputs(cp, fp);
 104    }
 105    putc('\n', fp);
 106    fflush(fp);
 107    NYD2_LEAVE;
 108    return 0;
 109 }
 110
 111 FL int
 112 c_shell(void *v)
 113 {
 114    sigset_t mask;
 115    char const *cp;
 116    NYD_ENTER;
 117
 118    cp = a_cmisc_bangexp(v);
 119
 120    sigemptyset(&mask);
 121    run_command(ok_vlook(SHELL), &mask, COMMAND_FD_PASS, COMMAND_FD_PASS, "-c",
 122       cp, NULL, NULL);
 123    printf("!\n");
 124    NYD_LEAVE;
 125    return 0;
 126 }
 127
 128 FL int
 129 c_dosh(void *v)
 130 {
 131    NYD_ENTER;
 132    n_UNUSED(v);
 133
 134    run_command(ok_vlook(SHELL), 0, COMMAND_FD_PASS, COMMAND_FD_PASS, NULL,
 135       NULL, NULL, NULL);
 136    putchar('\n');
 137    NYD_LEAVE;
 138    return 0;
 139 }
 140
 141 FL int
 142 c_cwd(void *v)
 143 {
 144    char buf[PATH_MAX]; /* TODO getcwd(3) may return a larger value */
 145    NYD_ENTER;
 146
 147    if (getcwd(buf, sizeof buf) != NULL) {
 148       puts(buf);
 149       v = (void*)0x1;
 150    } else {
 151       n_perr(_("getcwd"), 0);
 152       v = NULL;
 153    }
 154    NYD_LEAVE;
 155    return (v == NULL);
 156 }
 157
 158 FL int
 159 c_chdir(void *v)
 160 {
 161    char **arglist = v;
 162    char const *cp;
 163    NYD_ENTER;
 164
 165    if (*arglist == NULL)
 166       cp = ok_vlook(HOME);
 167    else if ((cp = fexpand(*arglist, FEXP_LOCAL | FEXP_NOPROTO)) == NULL)
 168       goto jleave;
 169    if (chdir(cp) == -1) {
 170       n_perr(cp, 0);
 171       cp = NULL;
 172    }
 173 jleave:
 174    NYD_LEAVE;
 175    return (cp == NULL);
 176 }
 177
 178 FL int
 179 c_echo(void *v){
 180    int rv;
 181    NYD_ENTER;
 182
 183    rv = a_cmisc_echo(v, stdout);
 184    NYD_LEAVE;
 185    return rv;
 186 }
 187
 188 FL int
 189 c_echoerr(void *v){
 190    int rv;
 191    NYD_ENTER;
 192
 193    rv = a_cmisc_echo(v, stderr);
 194    NYD_LEAVE;
 195    return rv;
 196 }
 197
 198 /* s-it-mode */