diff options
Diffstat (limited to 'contrib/groff/src/preproc/soelim')
| -rw-r--r-- | contrib/groff/src/preproc/soelim/Makefile.sub | 2 | ||||
| -rw-r--r-- | contrib/groff/src/preproc/soelim/soelim.cpp | 359 | ||||
| -rw-r--r-- | contrib/groff/src/preproc/soelim/soelim.man | 22 |
3 files changed, 380 insertions, 3 deletions
diff --git a/contrib/groff/src/preproc/soelim/Makefile.sub b/contrib/groff/src/preproc/soelim/Makefile.sub index 4b59ab6..a43dfc2 100644 --- a/contrib/groff/src/preproc/soelim/Makefile.sub +++ b/contrib/groff/src/preproc/soelim/Makefile.sub @@ -2,5 +2,5 @@ PROG=soelim$(EXEEXT) MAN1=soelim.n XLIBS=$(LIBGROFF) OBJS=soelim.$(OBJEXT) -CCSRCS=$(srcdir)/soelim.cc +CCSRCS=$(srcdir)/soelim.cpp NAMEPREFIX=$(g) diff --git a/contrib/groff/src/preproc/soelim/soelim.cpp b/contrib/groff/src/preproc/soelim/soelim.cpp new file mode 100644 index 0000000..96ad6dd --- /dev/null +++ b/contrib/groff/src/preproc/soelim/soelim.cpp @@ -0,0 +1,359 @@ +// -*- C++ -*- +/* Copyright (C) 1989-1992, 2000, 2001, 2003 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, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +#include "lib.h" + +#include <ctype.h> +#include <assert.h> +#include <stdlib.h> +#include <errno.h> +#include "errarg.h" +#include "error.h" +#include "stringclass.h" +#include "nonposix.h" + +static size_t include_list_length; +static const char **include_list; + +int compatible_flag = 0; +int raw_flag = 0; +int tex_flag = 0; + +extern int interpret_lf_args(const char *); +extern "C" const char *Version_string; + +int do_file(const char *filename); + + +static void +include_path_append(const char *path) +{ + ++include_list_length; + size_t nbytes = include_list_length * sizeof(char *); + if (include_list) + include_list = (const char **)realloc((void *)include_list, nbytes); + else + include_list = (const char **)malloc(nbytes); + if (include_list == NULL) + { + fprintf(stderr, "%s: out of memory\n", program_name); + exit(2); + } + include_list[include_list_length - 1] = path; +} + + +void usage(FILE *stream) +{ + fprintf(stream, "usage: %s [ -Crtv ] [ -I file ] [ files ]\n", program_name); +} + +int main(int argc, char **argv) +{ + program_name = argv[0]; + include_path_append("."); + int opt; + static const struct option long_options[] = { + { "help", no_argument, 0, CHAR_MAX + 1 }, + { "version", no_argument, 0, 'v' }, + { NULL, 0, 0, 0 } + }; + while ((opt = getopt_long(argc, argv, "CI:rtv", long_options, NULL)) != EOF) + switch (opt) { + case 'v': + { + printf("GNU soelim (groff) version %s\n", Version_string); + exit(0); + break; + } + case 'C': + compatible_flag = 1; + break; + case 'I': + include_path_append(optarg); + break; + case 'r': + raw_flag = 1; + break; + case 't': + tex_flag = 1; + break; + case CHAR_MAX + 1: // --help + usage(stdout); + exit(0); + break; + case '?': + usage(stderr); + exit(1); + break; + default: + assert(0); + } + int nbad = 0; + if (optind >= argc) + nbad += !do_file("-"); + else + for (int i = optind; i < argc; i++) + nbad += !do_file(argv[i]); + if (ferror(stdout) || fflush(stdout) < 0) + fatal("output error"); + return nbad != 0; +} + +void set_location() +{ + if(!raw_flag) { + if(!tex_flag) + printf(".lf %d %s\n", current_lineno, current_filename); + else + printf("%% file %s, line %d\n", current_filename, current_lineno); + } +} + +void do_so(const char *line) +{ + const char *p = line; + while (*p == ' ') + p++; + string filename; + int success = 1; + for (const char *q = p; + success && *q != '\0' && *q != '\n' && *q != ' '; + q++) + if (*q == '\\') { + switch (*++q) { + case 'e': + case '\\': + filename += '\\'; + break; + case ' ': + filename += ' '; + break; + default: + success = 0; + break; + } + } + else + filename += char(*q); + if (success && filename.length() > 0) { + filename += '\0'; + const char *fn = current_filename; + int ln = current_lineno; + current_lineno--; + if (do_file(filename.contents())) { + current_filename = fn; + current_lineno = ln; + set_location(); + return; + } + current_lineno++; + } + fputs(".so", stdout); + fputs(line, stdout); +} + +int do_file(const char *filename) +{ + FILE *fp; + string whole_filename; + if (strcmp(filename, "-") == 0) { + fp = stdin; + whole_filename = filename; + whole_filename += '\0'; + } + else if (IS_ABSOLUTE(filename)) { + whole_filename = filename; + whole_filename += '\0'; + errno = 0; + fp = fopen(filename, "r"); + if (fp == 0) { + error("can't open `%1': %2", filename, strerror(errno)); + return 0; + } + } + else { + size_t j; + for (j = 0; j < include_list_length; ++j) + { + const char *path = include_list[j]; + if (0 == strcmp(path, ".")) + whole_filename = filename; + else + whole_filename = string(path) + "/" + filename; + whole_filename += '\0'; + errno = 0; + fp = fopen(whole_filename.contents(), "r"); + if (fp != 0) + break; + if (errno != ENOENT) { + error("can't open `%1': %2", + whole_filename.contents(), strerror(errno)); + return 0; + } + } + if (j >= include_list_length) + { + errno = ENOENT; + error("can't open `%1': %2", filename, strerror(errno)); + return 0; + } + } + current_filename = whole_filename.contents(); + current_lineno = 1; + set_location(); + enum { START, MIDDLE, HAD_DOT, HAD_s, HAD_so, HAD_l, HAD_lf } state = START; + for (;;) { + int c = getc(fp); + if (c == EOF) + break; + switch (state) { + case START: + if (c == '.') + state = HAD_DOT; + else { + putchar(c); + if (c == '\n') { + current_lineno++; + state = START; + } + else + state = MIDDLE; + } + break; + case MIDDLE: + putchar(c); + if (c == '\n') { + current_lineno++; + state = START; + } + break; + case HAD_DOT: + if (c == 's') + state = HAD_s; + else if (c == 'l') + state = HAD_l; + else { + putchar('.'); + putchar(c); + if (c == '\n') { + current_lineno++; + state = START; + } + else + state = MIDDLE; + } + break; + case HAD_s: + if (c == 'o') + state = HAD_so; + else { + putchar('.'); + putchar('s'); + putchar(c); + if (c == '\n') { + current_lineno++; + state = START; + } + else + state = MIDDLE; + } + break; + case HAD_so: + if (c == ' ' || c == '\n' || compatible_flag) { + string line; + for (; c != EOF && c != '\n'; c = getc(fp)) + line += c; + current_lineno++; + line += '\n'; + line += '\0'; + do_so(line.contents()); + state = START; + } + else { + fputs(".so", stdout); + putchar(c); + state = MIDDLE; + } + break; + case HAD_l: + if (c == 'f') + state = HAD_lf; + else { + putchar('.'); + putchar('l'); + putchar(c); + if (c == '\n') { + current_lineno++; + state = START; + } + else + state = MIDDLE; + } + break; + case HAD_lf: + if (c == ' ' || c == '\n' || compatible_flag) { + string line; + for (; c != EOF && c != '\n'; c = getc(fp)) + line += c; + current_lineno++; + line += '\n'; + line += '\0'; + interpret_lf_args(line.contents()); + printf(".lf%s", line.contents()); + state = START; + } + else { + fputs(".lf", stdout); + putchar(c); + state = MIDDLE; + } + break; + default: + assert(0); + } + } + switch (state) { + case HAD_DOT: + fputs(".\n", stdout); + break; + case HAD_l: + fputs(".l\n", stdout); + break; + case HAD_s: + fputs(".s\n", stdout); + break; + case HAD_lf: + fputs(".lf\n", stdout); + break; + case HAD_so: + fputs(".so\n", stdout); + break; + case MIDDLE: + putc('\n', stdout); + break; + case START: + break; + } + if (fp != stdin) + fclose(fp); + current_filename = 0; + return 1; +} diff --git a/contrib/groff/src/preproc/soelim/soelim.man b/contrib/groff/src/preproc/soelim/soelim.man index cf363d5..7663e3b 100644 --- a/contrib/groff/src/preproc/soelim/soelim.man +++ b/contrib/groff/src/preproc/soelim/soelim.man @@ -1,5 +1,5 @@ .ig -Copyright (C) 1989-2000, 2001 Free Software Foundation, Inc. +Copyright (C) 1989-2000, 2001, 2003 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice @@ -17,12 +17,14 @@ translations approved by the Free Software Foundation instead of in the original English. .. .TH @G@SOELIM @MAN1EXT@ "@MDATE@" "Groff Version @VERSION@" +. .SH NAME @g@soelim \- interpret .so requests in groff input +. .SH SYNOPSIS .B @g@soelim [ -.B \-Cv +.B \-Crtv ] [ .BI \-I dir @@ -30,10 +32,12 @@ the original English. [ .IR files \|.\|.\|.\| ] +. .PP It is possible to have whitespace between the .B \-I command line option and its parameter. +. .SH DESCRIPTION .B @g@soelim reads @@ -53,6 +57,7 @@ should be invoked with the .B \-s option of .BR groff . +. .PP Note that there must be no whitespace between the leading dot and the two characters `s' and `o'. Otherwise, only @@ -62,12 +67,14 @@ interprets the request (and .B soelim ignores it). +. .SH OPTIONS .TP .B \-C Recognize .B .so even when followed by a character other than space or newline. +. .TP .BI \-I dir This option may be used to specify a directory to search for @@ -78,9 +85,20 @@ The current directory is always searched first. This option may be specified more than once, the directories will be searched in the order specified. No directory search is performed for files specified using an absolute path. +. +.TP +.B \-r +Do not add .lf requests (for general use, with non-groff files). +. +.TP +.B \-t +Don't emit .lf requests but TeX comment lines (starting with `%') giving +the current file and line number. +. .TP .B \-v Print the version number. +. .SH "SEE ALSO" .BR groff (@MAN1EXT@) . |
