diff options
Diffstat (limited to 'adv_cmds/tabs')
| -rw-r--r-- | adv_cmds/tabs/tabs.1 | 160 | ||||
| -rw-r--r-- | adv_cmds/tabs/tabs.c | 240 |
2 files changed, 400 insertions, 0 deletions
diff --git a/adv_cmds/tabs/tabs.1 b/adv_cmds/tabs/tabs.1 new file mode 100644 index 0000000..b2f8523 --- /dev/null +++ b/adv_cmds/tabs/tabs.1 @@ -0,0 +1,160 @@ +.\" Copyright (c) 2002 Tim J. Robbins. +.\" 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. +.\" +.\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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. +.\" +.\" $FreeBSD: src/usr.bin/tabs/tabs.1,v 1.7 2005/01/17 07:44:29 ru Exp $ +.\" +.Dd May 20, 2002 +.Dt TABS 1 +.Os +.Sh NAME +.Nm tabs +.Nd set terminal tabs +.Sh SYNOPSIS +.Nm +.Op Fl Ar n | Fl a | a2 | c | c2 | c3 | f | p | s | u +.Op Cm +m Ns Op Ar n +.Op Fl T Ar type +.Nm +.Op Fl T Ar type +.Op Cm + Ns Op Ar n +.Ar n1 Ns Op Ns , Ns Ar n2 , Ns ... +.Sh DESCRIPTION +The +.Nm +utility displays a series of characters that clear the hardware terminal +tab settings then initialises tab stops at specified positions, and +optionally adjusts the margin. +.Pp +In the first synopsis form, the tab stops set depend on the command line +options used, and may be one of the predefined formats or at regular +intervals. +.Pp +In the second synopsis form, tab stops are set at positions +.Ar n1 , n2 , +etc. +If a position is preceded by a +.Ql + , +it is relative to the previous position set. +No more than 20 positions may be specified. +.Pp +If no tab stops are specified, the +.Dq standard +.Ux +tab width of 8 is used. +.Pp +The options are as follows: +.Bl -tag -width indent +.It Fl Ar n +Set a tab stop every +.Ar n +columns. +If +.Ar n +is 0, the tab stops are cleared but no new ones are set. +.It Fl a +Assembler format (columns 1, 10, 16, 36, 72). +.It Fl a2 +Assembler format (columns 1, 10, 16, 40, 72). +.It Fl c +.Tn COBOL +normal format (columns 1, 8, 12, 16, 20, 55) +.It Fl c2 +.Tn COBOL +compact format (columns 1, 6, 10, 14, 49) +.It Fl c3 +.Tn COBOL +compact format (columns 1, 6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, +50, 54, 58, 62, 67). +.It Fl f +.Tn FORTRAN +format (columns 1, 7, 11, 15, 19, 23). +.It Fl p +.Tn PL/1 +format (columns 1, 5, 9, 13, 17, 21, 25, 29, 33, 37, 41, 45, 49, 53, +57, 61). +.It Fl s +.Tn SNOBOL +format (columns 1, 10, 55). +.It Fl u +Assembler format (columns 1, 12, 20, 44). +.It Xo +.Cm +m Ns Op Ar n , +.Cm + Ns Op Ar n +.Xc +Set an +.Ar n +character left margin, or 10 if +.Ar n +is omitted. +.It Fl T Ar type +Output escape sequence for the terminal type +.Ar type . +.El +.Sh ENVIRONMENT +The +.Ev LANG , LC_ALL , LC_CTYPE +and +.Ev TERM +environment variables affect the execution of +.Nm +as described in +.Xr environ 7 . +.Pp +The +.Fl T +option overrides the setting of the +.Ev TERM +environment variable. +If neither +.Ev TERM +nor the +.Fl T +option are present, +.Nm +will fail. +.Sh EXIT STATUS +.Ex -std +.Sh SEE ALSO +.Xr expand 1 , +.Xr stty 1 , +.Xr tput 1 , +.Xr unexpand 1 , +.Xr termcap 5 +.Sh STANDARDS +The +.Nm +utility conforms to +.St -p1003.1-2001 . +.Sh HISTORY +A +.Nm +utility appeared in PWB UNIX. +This implementation was introduced in +.Fx 5.0 . +.Sh BUGS +The current +.Xr termcap 5 +database does not define the +.Ql ML +(set left soft margin) capability for any terminals. diff --git a/adv_cmds/tabs/tabs.c b/adv_cmds/tabs/tabs.c new file mode 100644 index 0000000..8130b8b --- /dev/null +++ b/adv_cmds/tabs/tabs.c @@ -0,0 +1,240 @@ +/*- + * Copyright (c) 2002 Tim J. Robbins. + * 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. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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. + */ + +/* + * tabs -- set terminal tabs + * + * This utility displays a series of characters that clears the terminal + * hardware tab settings, then initialises them to specified values, + * and optionally sets a soft margin. + */ + +#include <sys/cdefs.h> +__FBSDID("$FreeBSD: src/usr.bin/tabs/tabs.c,v 1.3 2002/06/08 11:33:22 tjr Exp $"); + +#ifdef __APPLE__ +#include <sys/ioctl.h> +#endif +#include <sys/types.h> +#include <sys/tty.h> + +#include <ctype.h> +#include <err.h> +#include <errno.h> +#include <locale.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <term.h> +#include <unistd.h> + +/* Maximum number of tab stops allowed in table. */ +#define NSTOPS 20 + +#define NELEMS(a) (sizeof(a) / sizeof(a[0])) + +/* Predefined formats, taken from IEEE Std 1003.1-2001. */ +static const struct { + const char *name; /* Format name used on cmd. line */ + long stops[NSTOPS]; /* Column positions */ +} formats[] = { + { "a", { 1, 10, 16, 36, 72 } }, + { "a2", { 1, 10, 16, 40, 72 } }, + { "c", { 1, 8, 12, 16, 20, 55 } }, + { "c2", { 1, 6, 10, 14, 49 } }, + { "c3", { 1, 6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54, 58, + 62, 67 } }, + { "f", { 1, 7, 11, 15, 19, 23 } }, + { "p", { 1, 5, 9, 13, 17, 21, 25, 29, 33, 37, 41, 45, 49, 53, 57, + 61 } }, + { "s", { 1, 10, 55 } }, + { "u", { 1, 12, 20, 44 } } +}; + +static void gettabs(char *, long *, long *); +static int ttywidth(void); +static void usage(void); + +int +main(int argc __unused, char *argv[]) +{ + long cols, i, inc, j, margin, nstops, stops[NSTOPS]; + const char *cr, *ct, *st, *ML; + char area[1024], *ap, *arg, *end; + + setlocale(LC_ALL, ""); + + inc = 8; + margin = 0; + nstops = -1; + while ((arg = *++argv) != NULL && (*arg == '-' || *arg == '+')) { + if (*arg == '+') { + /* +m[n] or +[n] */ + if (*++arg == 'm') + arg++; + if (*arg != '\0') { + errno = 0; + margin = strtol(arg, &end, 10); + if (errno != 0 || *end != '\0' || margin < 0) + errx(1, "%s: invalid margin width", + arg); + } else + margin = 10; + } else if (isdigit(arg[1])) { + /* -n */ + errno = 0; + inc = strtol(arg + 1, &end, 10); + if (errno != 0 || *end != '\0' || inc < 0) + errx(1, "%s: invalid increment", arg + 1); + } else if (arg[1] == 'T') { + /* -Ttype or -T type */ + if (arg[2] != '\0') + setenv("TERM", arg + 2, 1); + else { + if ((arg = *++argv) == NULL) + usage(); + setenv("TERM", arg, 1); + } + } else if (arg[1] == '-') { + arg = *++argv; + break; + } else { + /* Predefined format */ + for (i = 0; i < (int)NELEMS(formats); i++) + if (strcmp(formats[i].name, arg + 1) == 0) + break; + if (i == NELEMS(formats)) + usage(); + for (j = nstops = 0; j < NSTOPS && + formats[i].stops[j] != 0; j++) + stops[nstops++] = formats[i].stops[j]; + } + } + + if (arg != NULL) { + if (nstops != -1) + usage(); + gettabs(arg, stops, &nstops); + } + + /* Initialise terminal, get the strings we need */ + setupterm(NULL, 1, NULL); + ap = area; + if ((ct = tgetstr("ct", &ap)) == NULL) + errx(1, "terminal cannot clear tabs"); + if ((st = tgetstr("st", &ap)) == NULL) + errx(1, "terminal cannot set tabs"); + if ((cr = tgetstr("cr", &ap)) == NULL) + cr = "\r"; + ML = tgetstr("ML", &ap); + cols = ttywidth(); + + /* Clear all tabs. */ + putp(cr); + putp(ct); + + /* + * Set soft margin. + * XXX Does this actually work? + */ + if (ML != NULL) { + printf("%*s", (int)margin, ""); + putp(ML); + } else if (margin != 0) + warnx("terminal cannot set left margin"); + + /* Optionally output new tab stops. */ + if (nstops >= 0) { + printf("%*s", (int)stops[0] - 1, ""); + putp(st); + for (i = 1; i < nstops; i++) { + printf("%*s", (int)(stops[i] - stops[i - 1]), ""); + putp(st); + } + } else if (inc > 0) { + for (i = 0; i < cols / inc; i++) { + putp(st); + printf("%*s", (int)inc, ""); + } + putp(st); + } + putp(cr); + + exit(0); +} + +static void +usage(void) +{ + + fprintf(stderr, +"usage: tabs [-n|-a|-a2|-c|-c2|-c3|-f|-p|-s|-u] [+m[n]] [-T type]\n"); + fprintf(stderr, +" tabs [-T type] [+[n]] n1,[n2,...]\n"); + exit(1); +} + +static void +gettabs(char *arg, long stops[], long *nstops) +{ + char *tok, *end; + long last, stop; + + for (last = *nstops = 0, tok = strtok(arg, ","); tok != NULL; + tok = strtok(NULL, ",")) { + if (*nstops >= NSTOPS) + errx(1, "too many tab stops (limit %d)", NSTOPS); + errno = 0; + stop = strtol(tok, &end, 10); + if (errno != 0 || *end != '\0' || stop <= 0) + errx(1, "%s: invalid tab stop", tok); + if (*tok == '+') { + if (tok == arg) + errx(1, "%s: first tab may not be relative", + tok); + stop += last; + } + if (last > stop) + errx(1, "cannot go backwards"); + last = stops[(*nstops)++] = stop; + } +} + +static int +ttywidth(void) +{ + struct winsize ws; + int width; + + if (ioctl(STDOUT_FILENO, TIOCGWINSZ, &ws) != -1) + width = ws.ws_col; + else if ((width = tgetnum("co")) == 0) { + width = 80; + warnx("cannot find terminal width; defaulted to %d", width); + } + + return (width); +} |