// -*- C++ -*-
/* Copyright (C) 1989-2000, 2001, 2002, 2003, 2004, 2005
Free Software Foundation, Inc.
Written by James Clark (jjc@jclark.com)
This file is part of groff.
groff is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
groff is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License along
with groff; see the file COPYING. If not, write to the Free Software
Foundation, 51 Franklin St - Fifth Floor, Boston, MA 02110-1301, USA. */
#include "driver.h"
#include "device.h"
#include "ptable.h"
typedef signed char schar;
declare_ptable(schar)
implement_ptable(schar)
extern "C" const char *Version_string;
#define putstring(s) fputs(s, stdout)
#ifndef SHRT_MIN
#define SHRT_MIN (-32768)
#endif
#ifndef SHRT_MAX
#define SHRT_MAX 32767
#endif
#define TAB_WIDTH 8
static int horizontal_tab_flag = 0;
static int form_feed_flag = 0;
static int bold_flag_option = 1;
static int bold_flag;
static int underline_flag_option = 1;
static int underline_flag;
static int overstrike_flag = 1;
static int draw_flag = 1;
static int italic_flag_option = 0;
static int italic_flag;
static int reverse_flag_option = 0;
static int reverse_flag;
static int old_drawing_scheme = 0;
static void update_options();
static void usage(FILE *stream);
static int hline_char = '-';
static int vline_char = '|';
enum {
UNDERLINE_MODE = 0x01,
BOLD_MODE = 0x02,
VDRAW_MODE = 0x04,
HDRAW_MODE = 0x08,
CU_MODE = 0x10,
COLOR_CHANGE = 0x20,
START_LINE = 0x40,
END_LINE = 0x80
};
// Mode to use for bold-underlining.
static unsigned char bold_underline_mode_option = BOLD_MODE|UNDERLINE_MODE;
static unsigned char bold_underline_mode;
#ifndef IS_EBCDIC_HOST
#define CSI "\033["
#else
#define CSI "\047["
#endif
// SGR handling (ISO 6429)
#define SGR_BOLD CSI "1m"
#define SGR_NO_BOLD CSI "22m"
#define SGR_ITALIC CSI "3m"
#define SGR_NO_ITALIC CSI "23m"
#define SGR_UNDERLINE CSI "4m"
#define SGR_NO_UNDERLINE CSI "24m"
#define SGR_REVERSE CSI "7m"
#define SGR_NO_REVERSE CSI "27m"
// many terminals can't handle `CSI 39 m' and `CSI 49 m' to reset
// the foreground and background color, respectively; we thus use
// `CSI 0 m' exclusively
#define SGR_DEFAULT CSI "0m"
#define DEFAULT_COLOR_IDX -1
class tty_font : public font {
tty_font(const char *);
unsigned char mode;
public:
~tty_font();
unsigned char get_mode() { return mode; }
#if 0
void handle_x_command(int argc, const char **argv);
#endif
static tty_font *load_tty_font(const char *);
};
tty_font *tty_font::load_tty_font(const char *s)
{
tty_font *f = new tty_font(s);
if (!f->load()) {
delete f;
return 0;
}
const char *num = f->get_internal_name();
long n;
if (num != 0 && (n = strtol(num, 0, 0)) != 0)
f->mode = (unsigned char)(n & (BOLD_MODE|UNDERLINE_MODE));
if (!underline_flag)
f->mode &= ~UNDERLINE_MODE;
if (!bold_flag)
f->mode &= ~BOLD_MODE;
if ((f->mode & (BOLD_MODE|UNDERLINE_MODE)) == (BOLD_MODE|UNDERLINE_MODE))
f->mode = (unsigned char)((f->mode & ~(BOLD_MODE|UNDERLINE_MODE))
| bold_underline_mode);
return f;
}
tty_font::tty_font(const char *nm)
: font(nm), mode(0)
{
}
tty_font::~tty_font()
{
}
#if 0
void tty_font::handle_x_command(int argc, const char **argv)
{
if (argc >= 1 && strcmp(argv[0], "bold") == 0)
mode |= BOLD_MODE;
else if (argc >= 1 && strcmp(argv[0], "underline") == 0)
mode |= UNDERLINE_MODE;
}
#endif
class glyph {
static glyph *free_list;
public:
glyph *next;
int w;
int hpos;
unsigned int code;
unsigned char mode;
schar back_color_idx;
schar fore_color_idx;
void *operator new(size_t);
void operator delete(void *);
inline int draw_mode() { return mode & (VDRAW_MODE|HDRAW_MODE); }
inline int order() {
return mode & (VDRAW_MODE|HDRAW_MODE|CU_MODE|COLOR_CHANGE); }
};
glyph *glyph::free_list = 0;
void *glyph::operator new(size_t)
{
if (!free_list) {
const int BLOCK = 1024;
free_list = (glyph *)new char[sizeof(glyph) * BLOCK];
for (int i = 0; i < BLOCK - 1; i++)
free_list[i].next = free_list + i + 1;
free_list[BLOCK - 1].next = 0;
}
glyph *p = free_list;
free_list = free_list->next;
p->next = 0;
return p;
}
void glyph::operator delete(void *p)
{
if (p) {
((glyph *)p)->next = free_list;
free_list = (glyph *)p;
}
}
class tty_printer : public printer {
int is_utf8;
glyph **lines;
int nlines;
int cached_v;
int cached_vpos;
schar curr_fore_idx;
schar curr_back_idx;
int is_underline;
int is_bold;
int cu_flag;
PTABLE(schar) tty_colors;
void make_underline(int);
void make_bold(unsigned int, int);
schar color_to_idx(color *col);
void add_char(unsigned int, int, int, int, color *, color *, unsigned char);
char *make_rgb_string(unsigned int, unsigned int, unsigned int);
int tty_color(unsigned int, unsigned int, unsigned int, schar *,
schar = DEFAULT_COLOR_IDX);
public:
tty_printer(const char *device);
~tty_printer();
void set_char(int, font *, const environment *, int, const char *name);
void draw(int code, int *p, int np, const environment *env);
void special(char *arg, const environment *env, char type);
void change_color(const environment * const env);
void change_fill_color(const environment * const env);
void put_char(unsigned int);
void put_color(schar, int);
void begin_page(int) { }
void end_page(int page_length);
font *make_font(const char *);
};
char *tty_printer::make_rgb_string(unsigned int r,
unsigned int g,
unsigned int b)
{
char *s = new char[8];
s[0] = char(r >> 8);
s[1] = char(r & 0xff);
s[2] = char(g >> 8);
s[3] = char(g & 0xff);
s[4] = char(b >> 8);
s[5] = char(b & 0xff);
s[6] = char(0x80);
s[7] = 0;
// avoid null-bytes in string
for (int i = 0; i < 6; i++)
if (!s[i]) {
s[i] = 1;
s[6] |= 1 << i;
}
return s;
}
int tty_printer::tty_color(unsigned int r,
unsigned int g,
unsigned int b, schar *idx, schar value)
{
int unknown_color = 0;
char *s = make_rgb_string(r, g, b);
schar *i = tty_colors.lookup(s);
if (!i) {
unknown_color = 1;
i = new schar[1];
*i = value;
tty_colors.define(s, i);
}
*idx = *i;
a_delete s;
return unknown_color;
}
tty_printer::tty_printer(const char *dev) : cached_v(0)
{
is_utf8 = !strcmp(dev, "utf8");
if (is_utf8) {
hline_char = 0x2500;
vline_char = 0x2502;
}
schar dummy;
// black, white
(void)tty_color(0, 0, 0, &dummy, 0);
(void)tty_color(color::MAX_COLOR_VAL,
color::MAX_COLOR_VAL,
color::MAX_COLOR_VAL, &dummy, 7);
// red, green, blue
(void)tty_color(color::MAX_COLOR_VAL, 0, 0, &dummy, 1);
(void)tty_color(0, color::MAX_COLOR_VAL, 0, &dummy, 2);
(void)tty_color(0, 0, color::MAX_COLOR_VAL, &dummy, 4);
// yellow, magenta, cyan
(void)tty_color(color::MAX_COLOR_VAL, color::MAX_COLOR_VAL, 0, &dummy, 3);
(void)tty_color(color::MAX_COLOR_VAL, 0, color::MAX_COLOR_VAL, &dummy, 5);
(void)tty_color(0, color::MAX_COLOR_VAL, color::MAX_COLOR_VAL, &dummy, 6);
nlines = 66;
lines = new glyph *[nlines];
for (int i = 0; i < nlines; i++)
lines[i] = 0;
cu_flag = 0;
}
tty_printer::~tty_printer()
{
a_delete lines;
}
void tty_printer::make_underline(int w)
{
if (old_drawing_scheme) {
if (!w)
warning("can't underline zero-width character");
else {
int n = w / font::hor;
for (int i = 0; i < n; i++)
putchar('_');
for (int j = 0; j < n; j++)
putchar('\b');
}
}
else {
if (!is_underline) {
if (italic_flag)
putstring(SGR_ITALIC);
else if (reverse_flag)
putstring(SGR_REVERSE);
else
putstring(SGR_UNDERLINE);
}
is_underline = 1;
}
}
void tty_printer::make_bold(unsigned int c, int w)
{
if (old_drawing_scheme) {
if (!w)
warning("can't print zero-width character in bold");
else {
int n = w / font::hor;
put_char(c);
for (int i = 0; i < n; i++)
putchar('\b');
}
}
else {
if (!is_bold)
putstring(SGR_BOLD);
is_bold = 1;
}
}
schar tty_printer::color_to_idx(color *col)
{
if (col->is_default())
return DEFAULT_COLOR_IDX;
unsigned int r, g, b;
col->get_rgb(&r, &g, &b);
schar idx;
if (tty_color(r, g, b, &idx)) {
char *s = col->print_color();
error("Unknown color (%1) mapped to default", s);
a_delete s;
}
return idx;
}
void tty_printer::set_char(int i, font *f, const environment *env,
int w, const char *)
{
if (w % font::hor != 0)
fatal("width of character not a multiple of horizontal resolution");
add_char(f->get_code(i), w,
env->hpos, env->vpos,
env->col, env->fill,
((tty_font *)f)->get_mode());
}
void tty_printer::add_char(unsigned int c, int w,
int h, int v,
color *fore, color *back,
unsigned char mode)
{
#if 0
// This is too expensive.
if (h % font::hor != 0)
fatal("horizontal position not a multiple of horizontal resolution");
#endif
int hpos = h / font::hor;
if (hpos < SHRT_MIN || hpos > SHRT_MAX) {
error("character with ridiculous horizontal position discarded");
return;
}
int vpos;
if (v == cached_v && cached_v != 0)
vpos = cached_vpos;
else {
if (v % font::vert != 0)
fatal("vertical position not a multiple of vertical resolution");
vpos = v / font::vert;
if (vpos > nlines) {
glyph **old_lines = lines;
lines = new glyph *[vpos + 1];
memcpy(lines, old_lines, nlines * sizeof(glyph *));
for (int i = nlines; i <= vpos; i++)
lines[i] = 0;
a_delete old_lines;
nlines = vpos + 1;
}
// Note that the first output line corresponds to groff
// position font::vert.
if (vpos <= 0) {
error("character above first line discarded");
return;
}
cached_v = v;
cached_vpos = vpos;
}
glyph *g = new glyph;
g->w = w;
g->hpos = hpos;
g->code = c;
g->fore_color_idx = color_to_idx(fore);
g->back_color_idx = color_to_idx(back);
g->mode = mode;
// The list will be reversed later. After reversal, it must be in
// increasing order of hpos, with COLOR_CHANGE and CU specials before
// HDRAW characters before VDRAW characters before normal characters
// at each hpos, and otherwise in order of occurrence.
glyph **pp;
for (pp = lines + (vpos - 1); *pp; pp = &(*pp)->next)
if ((*pp)->hpos < hpos
|| ((*pp)->hpos == hpos && (*pp)->order() >= g->order()))
break;
g->next = *pp;
*pp = g;
}
void tty_printer::special(char *arg, const environment *env, char type)
{
if (type == 'u') {
add_char(*arg - '0', 0, env->hpos, env->vpos, env->col, env->fill,
CU_MODE);
return;
}
if (type != 'p')
return;
char *p;
for (p = arg; *p == ' ' || *p == '\n'; p++)
;
char *tag = p;
for (; *p != '\0' && *p != ':' && *p != ' ' && *p != '\n'; p++)
;
if (*p == '\0' || strncmp(tag, "tty", p - tag) != 0) {
error("X command without `tty:' tag ignored");
return;
}
p++;
for (; *p == ' ' || *p == '\n'; p++)
;
char *command = p;
for (; *p != '\0' && *p != ' ' && *p != '\n'; p++)
;
if (*command == '\0') {
error("empty X command ignored");
return;
}
if (strncmp(command, "sgr", p - command) == 0) {
for (; *p == ' ' || *p == '\n'; p++)
;
int n;
if (*p != '\0' && sscanf(p, "%d", &n) == 1 && n == 0)
old_drawing_scheme = 1;
else
old_drawing_scheme = 0;
update_options();
}
}
void tty_printer::change_color(const environment * const env)
{
add_char(0, 0, env->hpos, env->vpos, env->col, env->fill, COLOR_CHANGE);
}
void tty_printer::change_fill_color(const environment * const env)
{
add_char(0, 0, env->hpos, env->vpos, env->col, env->fill, COLOR_CHANGE);
}
void tty_printer::draw(int code, int *p, int np, const environment *env)
{
if (code != 'l' || !draw_flag)
return;
if (np != 2) {
error("2 arguments required for line");
return;
}
if (p[0] == 0) {
// vertical line
int v = env->vpos;
int len = p[1];
if (len < 0) {
v += len;
len = -len;
}
if (len >= 0 && len <= font::vert)
add_char(vline_char, font::hor, env->hpos, v, env->col, env->fill,
VDRAW_MODE|START_LINE|END_LINE);
else {
add_char(vline_char, font::hor, env->hpos, v, env->col, env->fill,
VDRAW_MODE|START_LINE);
len -= font::vert;
v += font::vert;
while (len > 0) {
add_char(vline_char, font::hor, env->hpos, v, env->col, env->fill,
VDRAW_MODE|START_LINE|END_LINE);
len -= font::vert;
v += font::vert;
}
add_char(vline_char, font::hor, env->hpos, v, env->col, env->fill,
VDRAW_MODE|END_LINE);
}
}
if (p[1] == 0) {
// horizontal line
int h = env->hpos;
int len = p[0];
if (len < 0) {
h += len;
len = -len;
}
if (len >= 0 && len <= font::hor)
add_char(hline_char, font::hor, h, env->vpos, env->col, env->fill,
HDRAW_MODE|START_LINE|END_LINE);
else {
add_char(hline_char, font::hor, h, env->vpos, env->col, env->fill,
HDRAW_MODE|START_LINE);
len -= font::hor;
h += font::hor;
while (len > 0) {
add_char(hline_char, font::hor, h, env->vpos, env->col, env->fill,
HDRAW_MODE|START_LINE|END_LINE);
len -= font::hor;
h += font::hor;
}
add_char(hline_char, font::hor, h, env->vpos, env->col, env->fill,
HDRAW_MODE|END_LINE);
}
}
}
void tty_printer::put_char(unsigned int wc)
{
if (is_utf8 && wc >= 0x80) {
char buf[6 + 1];
int count;
char *p = buf;
if (wc < 0x800)
count = 1, *p = (unsigned char)((wc >> 6) | 0xc0);
else if (wc < 0x10000)
count = 2, *p = (unsigned char)((wc >> 12) | 0xe0);
else if (wc < 0x200000)
count = 3, *p = (unsigned char)((wc >> 18) | 0xf0);
else if (wc < 0x4000000)
count = 4, *p = (unsigned char)((wc >> 24) | 0xf8);
else if (wc <= 0x7fffffff)
count = 5, *p = (unsigned char)((wc >> 30) | 0xfC);
else
return;
do *++p = (unsigned char)(((wc >> (6 * --count)) & 0x3f) | 0x80);
while (count > 0);
*++p = '\0';
putstring(buf);
}
else
putchar(wc);
}
void tty_printer::put_color(schar color_index, int back)
{
if (color_index == DEFAULT_COLOR_IDX) {
putstring(SGR_DEFAULT);
// set bold and underline again
if (is_bold)
putstring(SGR_BOLD);
if (is_underline) {
if (italic_flag)
putstring(SGR_ITALIC);
else if (reverse_flag)
putstring(SGR_REVERSE);
else
putstring(SGR_UNDERLINE);
}
// set other color again
back = !back;
color_index = back ? curr_back_idx : curr_fore_idx;
}
if (color_index != DEFAULT_COLOR_IDX) {
putstring(CSI);
if (back)
putchar('4');
else
putchar('3');
putchar(color_index + '0');
putchar('m');
}
}
// The possible Unicode combinations for crossing characters.
//
// ` ' = 0, ` -' = 4, `- ' = 8, `--' = 12,
//
// ` ' = 0, ` ' = 1, `|' = 2, `|' = 3
// | |
static int crossings[4*4] = {
0x0000, 0x2577, 0x2575, 0x2502,
0x2576, 0x250C, 0x2514, 0x251C,
0x2574, 0x2510, 0x2518, 0x2524,
0x2500, 0x252C, 0x2534, 0x253C
};
void tty_printer::end_page(int page_length)
{
if (page_length % font::vert != 0)
error("vertical position at end of page not multiple of vertical resolution");
int lines_per_page = page_length / font::vert;
int last_line;
for (last_line = nlines; last_line > 0; last_line--)
if (lines[last_line - 1])
break;
#if 0
if (last_line > lines_per_page) {
error("characters past last line discarded");
do {
--last_line;
while (lines[last_line]) {
glyph *tem = lines[last_line];
lines[last_line] = tem->next;
delete tem;
}
} while (last_line > lines_per_page);
}
#endif
for (int i = 0; i < last_line; i++) {
glyph *p = lines[i];
lines[i] = 0;
glyph *g = 0;
while (p) {
glyph *tem = p->next;
p->next = g;
g = p;
p = tem;
}
int hpos = 0;
glyph *nextp;
curr_fore_idx = DEFAULT_COLOR_IDX;
curr_back_idx = DEFAULT_COLOR_IDX;
is_underline = 0;
is_bold = 0;
for (p = g; p; delete p, p = nextp) {
nextp = p->next;
if (p->mode & CU_MODE) {
cu_flag = p->code;
continue;
}
if (nextp && p->hpos == nextp->hpos) {
if (p->draw_mode() == HDRAW_MODE &&
nextp->draw_mode() == VDRAW_MODE) {
if (is_utf8)
nextp->code =
crossings[((p->mode & (START_LINE|END_LINE)) >> 4)
+ ((nextp->mode & (START_LINE|END_LINE)) >> 6)];
else
nextp->code = '+';
continue;
}
if (p->draw_mode() != 0 && p->draw_mode() == nextp->draw_mode()) {
nextp->code = p->code;
continue;
}
if (!overstrike_flag)
continue;
}
if (hpos > p->hpos) {
do {
putchar('\b');
hpos--;
} while (hpos > p->hpos);
}
else {
if (horizontal_tab_flag) {
for (;;) {
int next_tab_pos = ((hpos + TAB_WIDTH) / TAB_WIDTH) * TAB_WIDTH;
if (next_tab_pos > p->hpos)
break;
if (cu_flag)
make_underline(p->w);
else if (!old_drawing_scheme && is_underline) {
if (italic_flag)
putstring(SGR_NO_ITALIC);
else if (reverse_flag)
putstring(SGR_NO_REVERSE);
else
putstring(SGR_NO_UNDERLINE);
is_underline = 0;
}
putchar('\t');
hpos = next_tab_pos;
}
}
for (; hpos < p->hpos; hpos++) {
if (cu_flag)
make_underline(p->w);
else if (!old_drawing_scheme && is_underline) {
if (italic_flag)
putstring(SGR_NO_ITALIC);
else if (reverse_flag)
putstring(SGR_NO_REVERSE);
else
putstring(SGR_NO_UNDERLINE);
is_underline = 0;
}
putchar(' ');
}
}
assert(hpos == p->hpos);
if (p->mode & COLOR_CHANGE) {
if (!old_drawing_scheme) {
if (p->fore_color_idx != curr_fore_idx) {
put_color(p->fore_color_idx, 0);
curr_fore_idx = p->fore_color_idx;
}
if (p->back_color_idx != curr_back_idx) {
put_color(p->back_color_idx, 1);
curr_back_idx = p->back_color_idx;
}
}
continue;
}
if (p->mode & UNDERLINE_MODE)
make_underline(p->w);
else if (!old_drawing_scheme && is_underline) {
if (italic_flag)
putstring(SGR_NO_ITALIC);
else if (reverse_flag)
putstring(SGR_NO_REVERSE);
else
putstring(SGR_NO_UNDERLINE);
is_underline = 0;
}
if (p->mode & BOLD_MODE)
make_bold(p->code, p->w);
else if (!old_drawing_scheme && is_bold) {
putstring(SGR_NO_BOLD);
is_bold = 0;
}
if (!old_drawing_scheme) {
if (p->fore_color_idx != curr_fore_idx) {
put_color(p->fore_color_idx, 0);
curr_fore_idx = p->fore_color_idx;
}
if (p->back_color_idx != curr_back_idx) {
put_color(p->back_color_idx, 1);
curr_back_idx = p->back_color_idx;
}
}
put_char(p->code);
hpos += p->w / font::hor;
}
if (!old_drawing_scheme
&& (is_bold || is_underline
|| curr_fore_idx != DEFAULT_COLOR_IDX
|| curr_back_idx != DEFAULT_COLOR_IDX))
putstring(SGR_DEFAULT);
putchar('\n');
}
if (form_feed_flag) {
if (last_line < lines_per_page)
putchar('\f');
}
else {
for (; last_line < lines_per_page; last_line++)
putchar('\n');
}
}
font *tty_printer::make_font(const char *nm)
{
return tty_font::load_tty_font(nm);
}
printer *make_printer()
{
return new tty_printer(device);
}
static void update_options()
{
if (old_drawing_scheme) {
italic_flag = 0;
reverse_flag = 0;
bold_underline_mode = bold_underline_mode_option;
bold_flag = bold_flag_option;
underline_flag = underline_flag_option;
}
else {
italic_flag = italic_flag_option;
reverse_flag = reverse_flag_option;
bold_underline_mode = BOLD_MODE|UNDERLINE_MODE;
bold_flag = 1;
underline_flag = 1;
}
}
int main(int argc, char **argv)
{
program_name = argv[0];
static char stderr_buf[BUFSIZ];
if (getenv("GROFF_NO_SGR"))
old_drawing_scheme = 1;
setbuf(stderr, stderr_buf);
int c;
static const struct option long_options[] = {
{ "help", no_argument, 0, CHAR_MAX + 1 },
{ "version", no_argument, 0, 'v' },
{ NULL, 0, 0, 0 }
};
while ((c = getopt_long(argc, argv, "bBcdfF:hiI:oruUv", long_options, NULL))
!= EOF)
switch(c) {
case 'v':
printf("GNU grotty (groff) version %s\n", Version_string);
exit(0);
break;
case 'i':
// Use italic font instead of underlining.
italic_flag_option = 1;
break;
case 'I':
// ignore include search path
break;
case 'b':
// Do not embolden by overstriking.
bold_flag_option = 0;
break;
case 'c':
// Use old scheme for emboldening and underline.
old_drawing_scheme = 1;
break;
case 'u':
// Do not underline.
underline_flag_option = 0;
break;
case 'o':
// Do not overstrike (other than emboldening and underlining).
overstrike_flag = 0;
break;
case 'r':
// Use reverse mode instead of underlining.
reverse_flag_option = 1;
break;
case 'B':
// Do bold-underlining as bold.
bold_underline_mode_option = BOLD_MODE;
break;
case 'U':
// Do bold-underlining as underlining.
bold_underline_mode_option = UNDERLINE_MODE;
break;
case 'h':
// Use horizontal tabs.
horizontal_tab_flag = 1;
break;
case 'f':
form_feed_flag = 1;
break;
case 'F':
font::command_line_font_dir(optarg);
break;
case 'd':
// Ignore \D commands.
draw_flag = 0;
break;
case CHAR_MAX + 1: // --help
usage(stdout);
exit(0);
break;
case '?':
usage(stderr);
exit(1);
break;
default:
assert(0);
}
update_options();
if (optind >= argc)
do_file("-");
else {
for (int i = optind; i < argc; i++)
do_file(argv[i]);
}
return 0;
}
static void usage(FILE *stream)
{
fprintf(stream, "usage: %s [-bBcdfhioruUv] [-F dir] [files ...]\n",
program_name);
}