4.4BSD/usr/src/old/vfilters/vpsf/vpsf.c
/*
* Copyright (c) 1983 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
char copyright[] =
"@(#) Copyright (c) 1983 Regents of the University of California.\n\
All rights reserved.\n";
#endif /* not lint */
#ifndef lint
static char sccsid[] = "@(#)vpsf.c 5.4 (Berkeley) 6/1/90";
#endif /* not lint */
/*
* Versatec printer filter
* make wide listings by placing pages side by side
*/
#include <stdio.h>
#include <sys/vcmd.h>
#define LINELN 440
#define PAGELN 86
#define LMARG 10
int pltmode[] = {VPLOT};
int prtmode[] = {VPRINT};
char screen[PAGELN][LINELN];
char ul[PAGELN][LINELN];
char anyul[PAGELN];
int origin; /* first column of a page */
int origin_ind; /* origin plus indent */
int outline; /* current line number */
int outcol; /* current column number */
int npages;
int width = 106; /* default page width */
int length = 86; /* default page length */
int indent = 0; /* default indent */
int literal;
char *name; /* user's login name */
char *host; /* user's machine name */
char *acctfile; /* accounting information file */
main(argc, argv)
int argc;
char *argv[];
{
register int i;
while (--argc) {
if (*(*++argv) == '-') {
switch (argv[0][1]) {
case 'n':
argc--;
name = *++argv;
break;
case 'h':
argc--;
host = *++argv;
break;
case 'w':
if ((i = atoi(&argv[0][2])) > 0 && i <= LINELN)
width = i;
break;
case 'l':
if ((i = atoi(&argv[0][2])) > 0 && i <= PAGELN)
length = i;
break;
case 'i':
if ((i = atoi(&argv[0][2])) >= 0 &&
i < LINELN - 1)
indent = i;
break;
case 'c': /* Print input without throwing away
control chars and without putting
in page breaks. */
literal++;
break;
}
} else
acctfile = *argv;
}
indent += literal ? 1 : LMARG;
if (indent >= width)
indent = width - 1;
/*
* input file is open on file descriptor 0.
* vp should be open on file descriptor 1.
* The error log file is open on file descriptor 2.
*/
ioctl(1, VSETSTATE, prtmode);
process();
/*
* Put out an extra null to ensure versatec will get an even
* number of good characters.
*/
putchar('\0');
if (ferror(stdout))
exit(1);
if (name && acctfile && access(acctfile, 02) >= 0 &&
freopen(acctfile, "a", stdout) != NULL) {
if (host)
printf("%7.2f\t%s:%s\n", (float)npages, host, name);
else
printf("%7.2f\t%s\n", (float)npages, name);
}
exit(0);
}
set_up()
{
clear(screen, sizeof(screen));
origin = 0;
origin_ind = outcol = origin + indent;
outline = 0;
cutmark(origin);
}
process()
{
register int c;
set_up();
while ((c = getchar()) != EOF)
switch (c) {
case ' ':
outcol++;
break;
case '\t':
outcol = ((outcol - origin_ind) | 07) + origin_ind + 1;
break;
case '\b':
if (outcol > origin_ind)
outcol--;
break;
case '\r':
outcol = origin_ind;
break;
case '\f':
outline = length;
/* fall into ... */
case '\n':
if (++outline >= length) {
origin += width + 1;
origin_ind += width + 1;
cutmark(origin);
if (origin + width + 1 >= LINELN) {
oflush();
break;
}
outline = 0;
}
outcol = origin_ind;
break;
default:
outchar(c);
break;
}
if (outline || origin) {
cutmark(origin + width + 1);
oflush();
}
printf("\n\n\n\n\n");
}
outchar(c)
register int c;
{
register char *cp;
register int d;
if (!literal && (c < 040 || c >= 0177))
return;
if (outcol >= origin + width + 1) {
outcol++;
return;
}
cp = &screen[outline][outcol];
d = *cp;
if (d != ' ') {
if (d == '_' || c == '_') {
if (c == d) {
outcol++;
return;
}
if (anyul[outline] == 0)
clear(ul[outline], LINELN);
anyul[outline] = 1;
ul[outline][outcol] = 0377;
if (c == '_')
c = d;
}
}
*cp = c;
outcol++;
}
oflush()
{
register char *cp, *dp;
register int i, j, oc, dc, c;
npages++;
putchar('\n');
for (i = 0; i < length; i++)
putline(i);
for (i = 0; i < LINELN; i++)
putchar('_');
putchar('\n');
set_up();
}
clear(cp, i)
register char *cp;
register int i;
{
if (i > 0)
do
*cp++ = ' ';
while (--i);
}
cutmark(o)
register int o;
{
register int i;
screen[0][o] = '|';
screen[1][o] = '|';
screen[length - 1][o] = '|';
screen[length - 2][o] = '|';
}
putline(n)
register int n;
{
register char *cp;
register int j;
fwrite(screen[n], sizeof(char), sizeof(screen[0]), stdout);
if (anyul[n]) {
putchar('\n');
putchar('\0');
fflush(stdout);
ioctl(1, VSETSTATE, pltmode);
cp = ul[n];
j = LINELN;
do {
putchar(*cp & 0377);
putchar(*cp++ & 0377);
} while (--j);
fflush(stdout);
ioctl(1, VSETSTATE, prtmode);
} else
putchar('\n');
if (ferror(stdout))
exit(1);
}