1 #ifndef lint
RCSid()2 static char *RCSid() { return RCSid("$Id: doc2hlp.c,v 1.16 2005/06/03 05:11:55 sfeam Exp $"); }
3 #endif
4
5 /* GNUPLOT - doc2hlp.c */
6
7 /*[
8 * Copyright 1986 - 1993, 1998, 2004 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 * doc2hlp.c -- program to convert Gnuplot .DOC format to
39 * VMS help (.HLP) format.
40 *
41 * This involves stripping all lines with a leading ?,
42 * @, #, or %.
43 * Modified by Russell Lang from hlp2ms.c by Thomas Williams
44 *
45 * usage: doc2hlp [file.doc [file.hlp]]
46 *
47 * Original version by David Kotz used the following one line script!
48 * sed '/^[?@#%]/d' file.doc > file.hlp
49 */
50
51 #ifdef HAVE_CONFIG_H
52 # include "config.h"
53 #endif
54
55 #include "syscfg.h"
56 #include "stdfn.h"
57 #include "doc2x.h"
58
59 extern TBOOLEAN single_top_level;
60
61 void convert __PROTO((FILE *, FILE *));
62 void process_line __PROTO((char *, FILE *));
63
64 int
main(int argc,char ** argv)65 main (int argc, char **argv)
66 {
67 FILE *infile;
68 FILE *outfile;
69
70 infile = stdin;
71 outfile = stdout;
72
73 single_top_level = TRUE;
74
75 if (argc > 3) {
76 fprintf(stderr, "Usage: %s [infile [outfile]]\n", argv[0]);
77 exit(EXIT_FAILURE);
78 }
79 if (argc >= 2) {
80 if ((infile = fopen(argv[1], "r")) == (FILE *) NULL) {
81 fprintf(stderr, "%s: Can't open %s for reading\n",
82 argv[0], argv[1]);
83 exit(EXIT_FAILURE);
84 }
85 }
86 if (argc == 3) {
87 if ((outfile = fopen(argv[2], "w")) == (FILE *) NULL) {
88 fprintf(stderr, "%s: Can't open %s for writing\n",
89 argv[0], argv[2]);
90 exit(EXIT_FAILURE);
91 }
92 }
93
94 convert(infile, outfile);
95
96 return EXIT_SUCCESS;
97 }
98
99
100 void
convert(FILE * inf,FILE * outf)101 convert (FILE *inf, FILE *outf)
102 {
103 static char line[MAX_LINE_LEN+1];
104
105 while (get_line(line, sizeof(line), inf))
106 process_line(line, outf);
107 }
108
109
110 void
process_line(char * line,FILE * b)111 process_line (char *line, FILE *b)
112 {
113 static int line_count = 0;
114
115 line_count++;
116
117 switch (line[0]) { /* control character */
118 case '?':{ /* interactive help entry */
119 break; /* ignore */
120 }
121 case '@':{ /* start/end table */
122 break; /* ignore */
123 }
124 case '=': /* latex index entry */
125 case 'F': /* latex embedded figure */
126 case '#':{ /* latex table entry */
127 break; /* ignore */
128 }
129 case '%':{ /* troff table entry */
130 break; /* ignore */
131 }
132 case '^':{ /* html entry */
133 break; /* ignore */
134 }
135 case '\n': /* empty text line */
136 case ' ':{ /* normal text line */
137 (void) fputs(line, b);
138 break;
139 }
140 default:{
141 if (isdigit((int)line[0])) { /* start of section */
142 (void) fputs(line, b);
143 } else
144 fprintf(stderr, "unknown control code '%c' in column 1, line %d\n",
145 line[0], line_count);
146 break;
147 }
148 }
149 }
150