usr.bin/vi/nex/ex_print.c

/*-
 * Copyright (c) 1992, 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.
 */

#ifndef lint
static char sccsid[] = "@(#)ex_print.c  8.6 (Berkeley) 11/2/93";
#endif /* not lint */

#include <sys/types.h>

#include <ctype.h>
#include <string.h>

#include "vi.h"
#include "excmd.h"

/*
 * ex_list -- :[line [,line]] l[ist] [count] [flags]
 *
 *      Display the addressed lines such that the output is unambiguous.
 */
int
ex_list(sp, ep, cmdp)
        SCR *sp;
        EXF *ep;
        EXCMDARG *cmdp;
{
        if (ex_print(sp, ep,
            &cmdp->addr1, &cmdp->addr2, cmdp->flags | E_F_LIST))
                return (1);
        sp->lno = cmdp->addr2.lno;
        sp->cno = cmdp->addr2.cno;
        return (0);
}

/*
 * ex_number -- :[line [,line]] nu[mber] [count] [flags]
 *
 *      Display the addressed lines with a leading line number.
 */
int
ex_number(sp, ep, cmdp)
        SCR *sp;
        EXF *ep;
        EXCMDARG *cmdp;
{
        if (ex_print(sp, ep,
            &cmdp->addr1, &cmdp->addr2, cmdp->flags | E_F_HASH))
                return (1);
        sp->lno = cmdp->addr2.lno;
        sp->cno = cmdp->addr2.cno;
        return (0);
}

/*
 * ex_pr -- :[line [,line]] p[rint] [count] [flags]
 *
 *      Display the addressed lines.
 */
int
ex_pr(sp, ep, cmdp)
        SCR *sp;
        EXF *ep;
        EXCMDARG *cmdp;
{
        if (ex_print(sp, ep, &cmdp->addr1, &cmdp->addr2, cmdp->flags))
                return (1);
        sp->lno = cmdp->addr2.lno;
        sp->cno = cmdp->addr2.cno;
        return (0);
}

/*
 * ex_print --
 *      Print the selected lines.
 */
int
ex_print(sp, ep, fp, tp, flags)
        SCR *sp;
        EXF *ep;
        MARK *fp, *tp;
        register int flags;
{
        register int ch, col, rlen;
        recno_t from, to;
        size_t len;
        int cnt;
        char *p, buf[10];

        F_SET(sp, S_INTERRUPTIBLE);
        for (from = fp->lno, to = tp->lno; from <= to; ++from) {
                /* Display the line number. */
                if (LF_ISSET(E_F_HASH))
                        col = ex_printf(EXCOOKIE, "%7ld ", from);
                else
                        col = 0;

                /*
                 * Display the line.  The format for E_F_PRINT isn't very good,
                 * especially in handling end-of-line tabs, but they're almost
                 * backward compatible.
                 */
                if ((p = file_gline(sp, ep, from, &len)) == NULL) {
                        GETLINE_ERR(sp, from);
                        return (1);
                }

#define WCHECK(ch) {                                                    \
        if (col == sp->cols) {                                          \
                (void)ex_printf(EXCOOKIE, "\n");                        \
                col = 0;                                                \
        }                                                               \
        (void)ex_printf(EXCOOKIE, "%c", ch);                            \
        ++col;                                                          \
}
                for (rlen = len; rlen--;) {
                        ch = *p++;
                        if (LF_ISSET(E_F_LIST))
                                if (ch != '\t' && isprint(ch)) {
                                        WCHECK(ch);
                                } else if (ch & 0x80) {
                                        (void)snprintf(buf,
                                            sizeof(buf), "\\%03o", ch);
                                        len = strlen(buf);
                                        for (cnt = 0; cnt < len; ++cnt)
                                                WCHECK(buf[cnt]);
                                } else {
                                        WCHECK('^');
                                        WCHECK(ch + 0x40);
                                }
                        else {
                                ch &= 0x7f;
                                if (ch == '\t') {
                                        while (col < sp->cols &&
                                            ++col % O_VAL(sp, O_TABSTOP))
                                                (void)ex_printf(EXCOOKIE, " ");
                                        if (col == sp->cols) {
                                                col = 0;
                                                (void)ex_printf(EXCOOKIE, "\n");
                                        }
                                } else if (isprint(ch)) {
                                        WCHECK(ch);
                                } else if (ch == '\n') {
                                        col = 0;
                                        (void)ex_printf(EXCOOKIE, "\n");
                                } else {
                                        WCHECK('^');
                                        WCHECK(ch + 0x40);
                                }
                        }
                }
                if (LF_ISSET(E_F_LIST)) {
                        WCHECK('$');
                } else if (len == 0) {
                        /*
                         * If the line is empty, output a space
                         * to overwrite the colon prompt.
                         */
                        WCHECK(' ');
                }
                (void)ex_printf(EXCOOKIE, "\n");

                if (F_ISSET(sp, S_INTERRUPTED))
                        break;
        }
        return (0);
}