ex_unix.c

/*
 * This code contains changes by
 *      Gunnar Ritter, Freiburg i. Br., Germany, 2002. All rights reserved.
 *
 * Conditions 1, 2, and 4 and the no-warranty notice below apply
 * to these changes.
 *
 *
 * Copyright (c) 1980, 1993
 *      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.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by the University of
 *      California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    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.
 *
 *
 * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *   Redistributions of source code and documentation must retain the
 *    above copyright notice, this list of conditions and the following
 *    disclaimer.
 *   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.
 *   All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed or owned by Caldera
 *      International, Inc.
 *   Neither the name of Caldera International, Inc. nor the names of
 *    other contributors may be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
 * INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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.
 */

#ifndef lint
#ifdef  DOSCCS
static char sccsid[] = "@(#)ex_unix.c   1.16 (gritter) 11/23/04";
#endif
#endif

/* from ex_unix.c       7.6 (Berkeley) 10/22/85 */

#include "ex.h"
#include "ex_temp.h"
#include "ex_tty.h"
#include "ex_vis.h"
#include <sys/wait.h>

/*
 * Unix escapes, filtering
 */

/*
 * First part of a shell escape,
 * parse the line, expanding # and % and ! and printing if implied.
 */
void
unix0(int warn)
{
        register char *up, *fp;
        register short c;
        char printub, puxb[UXBSIZE + sizeof (int)];

        printub = 0;
        CP(puxb, uxb);
        c = getchar();
        if (c == '\n' || c == EOF)
                error(catgets(catd, 1, 192,
        "Incomplete shell escape command@- use 'shell' to get a shell"));
        up = uxb;
        do {
                switch (c) {

                case '\\':
                        if (any(peekchar(), "%#!"))
                                c = getchar();
                default:
                        if (up >= &uxb[UXBSIZE]) {
tunix:
                                uxb[0] = 0;
                                error(catgets(catd, 1, 193,
                                                        "Command too long"));
                        }
                        *up++ = c;
                        break;

                case '!':
                        fp = puxb;
                        if (*fp == 0) {
                                uxb[0] = 0;
                                error(catgets(catd, 1, 194,
                        "No previous command@to substitute for !"));
                        }
                        printub++;
                        while (*fp) {
                                if (up >= &uxb[UXBSIZE])
                                        goto tunix;
                                *up++ = *fp++;
                        }
                        break;

                case '#':
                        fp = altfile;
                        if (*fp == 0) {
                                uxb[0] = 0;
                                error(catgets(catd, 1, 195,
                                "No alternate filename@to substitute for #"));
                        }
                        goto uexp;

                case '%':
                        fp = savedfile;
                        if (*fp == 0) {
                                uxb[0] = 0;
                                error(catgets(catd, 1, 196,
                                        "No filename@to substitute for %%"));
                        }
uexp:
                        printub++;
                        while (*fp) {
                                if (up >= &uxb[UXBSIZE])
                                        goto tunix;
#ifndef BIT8
                                *up++ = *fp++ | QUOTE;
#else
                                *up++ = *fp++;
#endif
                        }
                        break;
                }
                c = getchar();
        } while (c == '"' || c == '|' || !endcmd(c));
        if (c == EOF)
                ungetchar(c);
        *up = 0;
        if (!inopen)
                resetflav();
        if (warn)
                ckaw();
        if (warn && hush == 0 && chng && xchng != chng && value(WARN) && dol > zero) {
                xchng = chng;
                vnfl();
                printf("%s",mesg(catgets(catd, 1, 197,
                                "[No write]|[No write since last change]")));
                noonl();
                flush();
        } else
                warn = 0;
        if (printub) {
                if (uxb[0] == 0)
                        error(catgets(catd, 1, 198,
                                        "No previous command@to repeat"));
                if (inopen) {
                        splitw++;
                        vclean();
                        vgoto(WECHO, 0);
                }
                if (warn)
                        vnfl();
                if (hush == 0)
                        lprintf("!%s", uxb);
                if (inopen && Outchar != termchar) {
                        vclreol();
                        vgoto(WECHO, 0);
                } else
                        putnl();
                flush();
        }
}

/*
 * Do the real work for execution of a shell escape.
 * Mode is like the number passed to open system calls
 * and indicates filtering.  If input is implied, newstdin
 * must have been setup already.
 */
struct termios
unixex(char *opt, char *up, int newstdin, int mode)
{
        int pvec[2];
        struct termios f;

        signal(SIGINT, SIG_IGN);
#ifdef SIGTSTP
        if (dosusp)
                signal(SIGTSTP, SIG_DFL);
#endif
        if (inopen)
                f = setty(normf);
        if ((mode & 1) && pipe(pvec) < 0) {
                /* Newstdin should be io so it will be closed */
                if (inopen)
                        setty(f);
                error(catgets(catd, 1, 199, "Can't make pipe for filter"));
        }
#ifndef VFORK
        pid = fork();
#else
        pid = vfork();
#endif
        if (pid < 0) {
                if (mode & 1) {
                        close(pvec[0]);
                        close(pvec[1]);
                }
                setrupt();
                error(catgets(catd, 1, 200, "No more processes"));
        }
        if (pid == 0) {
                if (mode & 2) {
                        close(0);
                        dup(newstdin);
                        close(newstdin);
                }
                if (mode & 1) {
                        close(pvec[0]);
                        close(1);
                        dup(pvec[1]);
                        if (inopen) {
                                close(2);
                                dup(1);
                        }
                        close(pvec[1]);
                }
                if (io)
                        close(io);
                if (tfile)
                        close(tfile);
#ifndef VMUNIX
                close(erfile);
#endif
                signal(SIGHUP, oldhup);
                signal(SIGQUIT, oldquit);
#ifdef  SIGXFSZ
                signal(SIGXFSZ, oldxfsz);
#endif
                if (ruptible)
                        signal(SIGINT, SIG_DFL);
                execl(svalue(SHELL), "sh", opt, up, (char *)0);
                printf(catgets(catd, 1, 201, "No %s!\n"), svalue(SHELL));
                error(NOSTR);
        }
        if (mode & 1) {
                io = pvec[0];
                close(pvec[1]);
        }
        if (newstdin)
                close(newstdin);
        return (f);
}

/*
 * Wait for the command to complete.
 * F is for restoration of tty mode if from open/visual.
 * C flags suppression of printing.
 */
void
unixwt(int c, struct termios f)
{

        waitfor();
#ifdef SIGTSTP
        if (dosusp)
                signal(SIGTSTP, onsusp);
#endif
        if (inopen)
                setty(f);
        setrupt();
        if (!inopen && c && hush == 0) {
                printf("!\n");
                flush();
                termreset();
                gettmode();
        }
}

/*
 * Setup a pipeline for the filtration implied by mode
 * which is like a open number.  If input is required to
 * the filter, then a child editor is created to write it.
 * If output is catch it from io which is created by unixex.
 */
void
filter(register int mode)
{
        static int pvec[2];
        struct termios f;       /* mjm: was register */
        register int lines = lineDOL();
        struct stat statb;

        mode++;
        if (mode & 2) {
                signal(SIGINT, SIG_IGN);
                if (pipe(pvec) < 0)
                        error(catgets(catd, 1, 202, "Can't make pipe"));
                pid = fork();
                io = pvec[0];
                if (pid < 0) {
                        setrupt();
                        close(pvec[1]);
                        error(catgets(catd, 1, 203, "No more processes"));
                }
                if (pid == 0) {
                        setrupt();
                        io = pvec[1];
                        close(pvec[0]);
                        putfile(1);
                        exitex(0);
                }
                close(pvec[1]);
                io = pvec[0];
                setrupt();
        }
        f = unixex("-c", uxb, (mode & 2) ? pvec[0] : 0, mode);
        if (mode == 3) {
                delete(0);
                addr2 = addr1 - 1;
        } else if (mode == 1)
                deletenone();
        if (mode & 1) {
                if(FIXUNDO)
                        undap1 = undap2 = addr2+1;
                if (fstat(io, &statb) < 0 || statb.st_blksize > LBSIZE)
                        bsize = LBSIZE;
                else {
                        bsize = statb.st_blksize;
                        if (bsize <= 0)
                                bsize = LBSIZE;
                }
                ignore(append(getfile, addr2));
#ifdef TRACE
                if (trace)
                        vudump("after append in filter");
#endif
        }
        close(io);
        io = -1;
        unixwt(!inopen, f);
        netchHAD(lines);
}

/*
 * Set up to do a recover, getting io to be a pipe from
 * the recover process.
 */
void
recover(void)
{
        static int pvec[2];

        if (pipe(pvec) < 0)
                error(catgets(catd, 1, 204, " Can't make pipe for recovery"));
        pid = fork();
        io = pvec[0];
        if (pid < 0) {
                close(pvec[1]);
                error(catgets(catd, 1, 205, " Can't fork to execute recovery"));
        }
        if (pid == 0) {
                close(2);
                dup(1);
                close(1);
                dup(pvec[1]);
                close(pvec[1]);
                execl(EXRECOVER, "exrecover", svalue(DIRECTORY), file, (char *) 0);
                close(1);
                dup(2);
                error(catgets(catd, 1, 206, " No recovery routine"));
        }
        close(pvec[1]);
}

/*
 * Wait for the process (pid an external) to complete.
 */
void
waitfor(void)
{
        int stat = 0;
        pid_t wpid;

        do {
                wpid = wait(&stat);
                if (wpid == pid) {
                        status = stat;
                        rpid = wpid;
                }
        } while (wpid != -1);
        if (status) {
                if (WIFEXITED(status))
                        status = WEXITSTATUS(status);
                else
                        status = 0;
        }
}

/*
 * The end of a recover operation.  If the process
 * exits non-zero, force not edited; otherwise force
 * a write.
 */
void
revocer(void)
{

        waitfor();
        if (pid == rpid && status != 0)
                edited = 0;
        else
                change();
}