Annotation of OpenXM_contrib/gnuplot/docs/doc2rnh.c, Revision 1.1
1.1 ! maekawa 1: #ifndef lint
! 2: static char *RCSid = "$Id: doc2rno.c,v 0.01 1997/03/09 21:00:00 lph Exp $";
! 3: #endif
! 4:
! 5: /* GNUPLOT - doc2rnh.c */
! 6:
! 7: /*[
! 8: * Copyright 1986 - 1993, 1998 Thomas Williams, Colin Kelley
! 9: *
! 10: * Permission to use, copy, and distribute this software and its
! 11: * documentation for any purpose with or without fee is hereby granted,
! 12: * provided that the above copyright notice appear in all copies and
! 13: * that both that copyright notice and this permission notice appear
! 14: * in supporting documentation.
! 15: *
! 16: * Permission to modify the software is granted, but not the right to
! 17: * distribute the complete modified source code. Modifications are to
! 18: * be distributed as patches to the released version. Permission to
! 19: * distribute binaries produced by compiling modified sources is granted,
! 20: * provided you
! 21: * 1. distribute the corresponding source modifications from the
! 22: * released version in the form of a patch file along with the binaries,
! 23: * 2. add special version identification to distinguish your version
! 24: * in addition to the base release version number,
! 25: * 3. provide your name and address as the primary contact for the
! 26: * support of your modified version, and
! 27: * 4. retain our contact information in regard to use of the base
! 28: * software.
! 29: * Permission to distribute the released version of the source code along
! 30: * with corresponding source modifications in the form of a patch file is
! 31: * granted with same provisions 2 through 4 for binary distributions.
! 32: *
! 33: * This software is provided "as is" without express or implied warranty
! 34: * to the extent permitted by applicable law.
! 35: ]*/
! 36:
! 37: /*
! 38: * doc2rnh.c -- program to convert Gnuplot .DOC format to
! 39: * Digital Standard Runoff for VMS HELP files
! 40: * (gnuplot.doc, including the terminal documentation
! 41: * is no longer formated for VMS HELP by default)
! 42: *
! 43: * From hlp2ms by Thomas Williams
! 44: *
! 45: * Modified by Russell Lang, 2nd October 1989
! 46: * to make vms help level 1 and 2 create the same ms section level.
! 47: *
! 48: * Modified to become doc2ms by David Kotz (David.Kotz@Dartmouth.edu) 12/89
! 49: * Added table and backquote support.
! 50: *
! 51: * Adapted from doc2ms.c (the unix 'runoff' text-processor)
! 52: * by Lucas Hart 3/97
! 53: *
! 54: * right margin is adjusted two spaces for each level to compensate
! 55: * for the indentation by VMS HELP
! 56: *
! 57: * the page width can be adjusted by changing the value of DSR_RM
! 58: * usage: $ MCR []doc2rnh gnuplot.doc gnuplot.rnh
! 59: * $ RUNOFF gnuplot.rnh
! 60: *
! 61: *
! 62: */
! 63:
! 64: #ifdef HAVE_CONFIG_H
! 65: # include "config.h"
! 66: #endif
! 67:
! 68: #include "ansichek.h"
! 69: #include "stdfn.h"
! 70: #include "doc2x.h"
! 71:
! 72: extern boolean single_top_level;
! 73:
! 74: #define LINE_SKIP 3
! 75: #define DSR_RM 70
! 76:
! 77: void init __PROTO((FILE *));
! 78: void convert __PROTO((FILE *, FILE *));
! 79: void process_line __PROTO((char *, FILE *));
! 80: void section __PROTO((char *, FILE *));
! 81: void putrnh __PROTO((char *, FILE *));
! 82: void putrnh_ __PROTO((char *, FILE *));
! 83: void finish __PROTO((FILE *));
! 84:
! 85: static boolean intable = FALSE;
! 86: static boolean rnh_table = FALSE;
! 87: static boolean initial_entry = FALSE;
! 88:
! 89: int main(argc, argv)
! 90: int argc;
! 91: char **argv;
! 92: {
! 93: FILE *infile;
! 94: FILE *outfile;
! 95: infile = stdin;
! 96: outfile = stdout;
! 97:
! 98: single_top_level = TRUE;
! 99:
! 100: if (argc > 3) {
! 101: fprintf(stderr, "Usage: %s [infile [outfile]]\n", argv[0]);
! 102: exit(EXIT_FAILURE);
! 103: }
! 104: if (argc >= 2) {
! 105: if ((infile = fopen(argv[1], "r")) == (FILE *) NULL) {
! 106: fprintf(stderr, "%s: Can't open %s for reading\n",
! 107: argv[0], argv[1]);
! 108: exit(EXIT_SUCCESS);
! 109: }
! 110: }
! 111: if (argc == 3) {
! 112: if ((outfile = fopen(argv[2], "w")) == (FILE *) NULL) {
! 113: fprintf(stderr, "%s: Can't open %s for writing\n",
! 114: argv[0], argv[2]);
! 115: exit(EXIT_FAILURE);
! 116: }
! 117: }
! 118: init(outfile);
! 119: convert(infile, outfile);
! 120: finish(outfile);
! 121: exit(EXIT_SUCCESS);
! 122: }
! 123:
! 124:
! 125: void init(b)
! 126: FILE *b;
! 127: {
! 128: /* */
! 129: (void) fputs(".no paging\n\
! 130: .no flags all\n\
! 131: .left margin 1\n\
! 132: .right margin 70\n\
! 133: .no justify\n", b);
! 134: }
! 135:
! 136:
! 137: void convert(a, b)
! 138: FILE *a, *b;
! 139: {
! 140: static char line[MAX_LINE_LEN+1];
! 141:
! 142: while (get_line(line, sizeof(line), a)) {
! 143: process_line(line, b);
! 144: }
! 145: }
! 146:
! 147: void process_line(line, b)
! 148: char *line;
! 149: FILE *b;
! 150: {
! 151: switch (line[0]) { /* control character */
! 152: case '?':{ /* interactive help entry */
! 153: break; /* ignore */
! 154: }
! 155: case '@':{ /* start/end table */
! 156: if (rnh_table) {
! 157: (void) fputs(".end literal\n", b);
! 158: rnh_table = FALSE;
! 159: intable = FALSE;
! 160: } else {
! 161: /* (void) fputs(".literal\n",b); */
! 162: intable = TRUE;
! 163: rnh_table = FALSE;
! 164: initial_entry = TRUE;
! 165: }
! 166: /* ignore rest of line */
! 167: break;
! 168: }
! 169: case '^':{ /* html table entry */
! 170: break; /* ignore */
! 171: }
! 172: case '#':{ /* latex table entry */
! 173: break; /* ignore */
! 174: }
! 175: case '%':{ /* troff table entry */
! 176: break; /* ignore */
! 177: }
! 178: #if 0
! 179: /* 'C' is taken care of by termdoc.c */
! 180: case 'C':{ /* new Comment designator */
! 181: break; /* ignore */
! 182: }
! 183: #endif
! 184: case '\n': /* empty text line */
! 185: case ' ':{ /* normal text line */
! 186:
! 187: /* most tables are simple; no flags means no protected characters
! 188: * other than period (command indicator) in first column
! 189: *
! 190: * However, for ease of maintainence, two tables have sublevels
! 191: * and descriptions, corresponding to the printed table entries,
! 192: * encapsulated by the table markers. Therefore we need to
! 193: * do some more work.
! 194: *
! 195: * Doc2hlp just ignores the table headings and treats
! 196: * lower levels irrespectively, but we need to break
! 197: * the level designators out of the table format.
! 198: *
! 199: * The first entry in a table will have either
! 200: * - a level number in the first column => remainder of text in
! 201: * table is help text
! 202: * - spaces in the first two columns => rest of text is literal
! 203: * to be placed in table format
! 204: *
! 205: */
! 206:
! 207: /* use the "cleartext" table or other text in tables */
! 208:
! 209: /* if (intable) { /* its already literal */
! 210: if (rnh_table) { /* its a literal */
! 211: putrnh(line + 1, b);
! 212: break;
! 213: }
! 214: switch (line[1]) {
! 215: case ' ':{
! 216: if ((intable) && (initial_entry)) {
! 217: rnh_table = TRUE;
! 218: initial_entry = FALSE;
! 219: fputs(".literal\n", b);
! 220: putrnh(line + 1, b);
! 221: break;
! 222: }
! 223: /* verbatim mode */
! 224: fputs(".literal\n", b);
! 225: putrnh(line + 1, b);
! 226: fputs(".end literal\n", b);
! 227: break;
! 228: }
! 229:
! 230: /*
! 231: * "." in first column is the DSR command character;
! 232: * therefore, include the preceeding " "
! 233: */
! 234: case '.':{
! 235: putrnh(line, b);
! 236: break;
! 237: }
! 238: default:{
! 239: if (line[0] == '\n')
! 240: fputs(".skip\n", b); /* totally blank line */
! 241: else
! 242: putrnh(line + 1, b);
! 243: break;
! 244: }
! 245: break;
! 246: }
! 247: break;
! 248: }
! 249: default:{
! 250: if (isdigit((int) line[0])) { /* start of section */
! 251:
! 252: /* some HELP text is surrounded by table flags */
! 253: /* doc2rnh will ignore the flags */
! 254:
! 255: if (intable) {
! 256: if (initial_entry) {
! 257: initial_entry = FALSE;
! 258: rnh_table = FALSE;
! 259: }
! 260: }
! 261: section(line, b);
! 262: } else
! 263: fprintf(stderr, "unknown control code '%c' in column 1\n",
! 264: line[0]);
! 265: break;
! 266: }
! 267: }
! 268: }
! 269:
! 270:
! 271: /* process a line with a digit control char */
! 272: /* starts a new [sub]section */
! 273: /* We want to retain section number, so its simpler than w/ TeX or roff */
! 274:
! 275: void section(line, b)
! 276: char *line;
! 277: FILE *b;
! 278: {
! 279: int sh_i;
! 280: static int old = 1;
! 281: /*
! 282: (void) sscanf(line,"%d",&sh_i);
! 283: *
! 284: * check to make sure this works with terminals also
! 285: */
! 286: sh_i = atoi(line);
! 287:
! 288: if (sh_i > old) {
! 289: do
! 290: if (old != 1) /* this line added by rjl */
! 291: (void) fputs(".rm-2\n", b);
! 292: while (++old < sh_i);
! 293: } else if (sh_i < old) {
! 294: do
! 295: if (sh_i != 1) /* this line added by rjl */
! 296: (void) fputs(".rm+2\n", b);
! 297: while (--old > sh_i);
! 298: }
! 299: /* added by dfk to capitalize section headers */
! 300: /* Header name starts at [2] */
! 301: /* omit for online documentation
! 302: * if (islower(line[2]))
! 303: * line[2] = toupper(line[2]);
! 304: */
! 305: old = sh_i;
! 306:
! 307: (void) fputs(".indent -1;\n", b);
! 308: (void) putrnh_(line, b);
! 309: (void) fputs(".br;\n", b);
! 310: }
! 311:
! 312: /*
! 313: * dummy function in case we need to convert some characters in
! 314: * output string ala doc2tex and doc2ms
! 315: */
! 316:
! 317: void putrnh(s, file)
! 318: char *s;
! 319: FILE *file;
! 320: {
! 321: (void) fputs(s, file);
! 322: }
! 323:
! 324: /*
! 325: * LBR$OUTPUT_HELP treats spaces and "/"s as list separators for topics,
! 326: * but they are used in gnuplot.doc for the printed docs; convert to
! 327: * "_" and "|" Modeled after section heading conversions in doc2tex
! 328: * and doc2ms.
! 329: *
! 330: */
! 331:
! 332: void putrnh_(s, file)
! 333: char *s;
! 334: FILE *file;
! 335: {
! 336: int i, s_len, last_chr;
! 337:
! 338: s_len = strlen(s);
! 339:
! 340: for (i = s_len - 1; i > 2; i--) { /* any trailing spaces to drop? */
! 341: if (s[i] != ' ') {
! 342: last_chr = i;
! 343: break;
! 344: }
! 345: }
! 346:
! 347: for (i = 0; i <= last_chr; i++) {
! 348: if (i > 2) {
! 349: switch (s[i]) {
! 350: case ' ':
! 351: (void) fputc('_', file);
! 352: break;
! 353: case '/':
! 354: (void) fputc('|', file);
! 355: break;
! 356: default:
! 357: (void) fputc(s[i], file);
! 358: }
! 359: } else {
! 360: (void) fputc(s[i], file);
! 361: }
! 362: }
! 363: }
! 364:
! 365: void finish(b) /* not used */
! 366: FILE *b;
! 367: {
! 368: return;
! 369: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to doc2rnh.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / docs