![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to doc2html.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / docs|
Return to doc2html.c CVS log | Up to [local] / OpenXM_contrib / gnuplot / docs |
1.1 maekawa 1: /*
2: * $Id: doc2html.c,v 1.10 1998/04/14 00:16:58 drd Exp $
3: *
4: */
5:
6: /* GNUPLOT - doc2html.c */
7:
8: /*[
9: * Copyright 1986 - 1993, 1998 Thomas Williams, Colin Kelley
10: *
11: * Permission to use, copy, and distribute this software and its
12: * documentation for any purpose with or without fee is hereby granted,
13: * provided that the above copyright notice appear in all copies and
14: * that both that copyright notice and this permission notice appear
15: * in supporting documentation.
16: *
17: * Permission to modify the software is granted, but not the right to
18: * distribute the complete modified source code. Modifications are to
19: * be distributed as patches to the released version. Permission to
20: * distribute binaries produced by compiling modified sources is granted,
21: * provided you
22: * 1. distribute the corresponding source modifications from the
23: * released version in the form of a patch file along with the binaries,
24: * 2. add special version identification to distinguish your version
25: * in addition to the base release version number,
26: * 3. provide your name and address as the primary contact for the
27: * support of your modified version, and
28: * 4. retain our contact information in regard to use of the base
29: * software.
30: * Permission to distribute the released version of the source code along
31: * with corresponding source modifications in the form of a patch file is
32: * granted with same provisions 2 through 4 for binary distributions.
33: *
34: * This software is provided "as is" without express or implied warranty
35: * to the extent permitted by applicable law.
36: ]*/
37:
38: /*
39: * doc2html.c -- program to convert Gnuplot .DOC format to
40: * World Wide Web (WWW) HyperText Markup Language (HTML) format
41: *
42: * Created by Russell Lang from doc2ipf by Roger Fearick from
43: * doc2rtf by M Castro from doc2gih by Thomas Williams.
44: * 1994-11-03
45: *
46: * usage: doc2html gnuplot.doc gnuplot.htm
47: *
48: */
49:
50: /* note that tables must begin in at least the second column to */
51: /* be formatted correctly and tabs are forbidden */
52:
53: #ifdef HAVE_CONFIG_H
54: # include "config.h"
55: #endif
56:
57: #include "ansichek.h"
58: #include "stdfn.h"
59:
60: #define MAX_LINE_LEN 1023
61:
62: #include "doc2x.h"
63: #include "xref.h"
64:
65: static boolean debug = FALSE;
66: char title[256];
67:
68: void convert __PROTO((FILE *, FILE *));
69: void process_line __PROTO((char *, FILE *));
70:
71: /* From xref.c */
72: extern struct LIST *lookup __PROTO((char *));
73:
74: int main(argc, argv)
75: int argc;
76: char **argv;
77: {
78: FILE *infile;
79: FILE *outfile;
80:
81: if (argv[argc - 1][0] == '-' && argv[argc - 1][1] == 'd') {
82: debug = TRUE;
83: argc--;
84: }
85: if ((argc > 3) || (argc == 1)) {
86: fprintf(stderr, "Usage: %s infile outfile\n", argv[0]);
87: exit(EXIT_FAILURE);
88: }
89: if ((infile = fopen(argv[1], "r")) == (FILE *) NULL) {
90: fprintf(stderr, "%s: Can't open %s for reading\n",
91: argv[0], argv[1]);
92: exit(EXIT_FAILURE);
93: }
94: if (argc == 3) {
95: if ((outfile = fopen(argv[2], "w")) == (FILE *) NULL) {
96: fprintf(stderr, "%s: Can't open %s for writing\n",
97: argv[0], argv[2]);
98: exit(EXIT_FAILURE);
99: }
100: safe_strncpy(title, argv[2], sizeof(title));
101: } else {
102: outfile = stdout;
103: safe_strncpy(title, argv[1], sizeof(title));
104: }
105: strtok(title, "."); /* remove type */
106: parse(infile);
107: convert(infile, outfile);
108: exit(EXIT_SUCCESS);
109: }
110:
111: void convert(a, b)
112: FILE *a, *b;
113: {
114: static char line[MAX_LINE_LEN+1];
115:
116: /* generate html header */
117: fprintf(b, "<HTML>\n\
118: <HEAD>\n\
119: <TITLE>%s</TITLE>\n\
120: </HEAD>\n\
121: <BODY>\n\
122: <H1>%s</H1><P>\n", title, title);
123:
124: /* process each line of the file */
125: while (get_line(line, sizeof(line), a)) {
126: process_line(line, b);
127: }
128:
129: /* close final page and generate trailer */
130: fprintf(b, "\n<P><HR>Created automatically by doc2html\n\
131: </BODY>\n\
132: </HTML>\n");
133:
134: list_free();
135: }
136:
137: void process_line(line, b)
138: char *line;
139: FILE *b;
140: {
141: static int line_count = 0;
142: static char line2[MAX_LINE_LEN+1];
143: static int last_line;
144: char hyplink1[64];
145: int i, j;
146: static int startpage = 1;
147: char topic[MAX_LINE_LEN+1];
148: int k, l;
149: struct LIST *klist;
150: static int tabl = 0;
151: static int para = 0;
152: static int inquote = FALSE;
153: static int inref = FALSE;
154:
155: line_count++;
156:
157: i = j = 0;
158:
159: while (line[i] != NUL) {
160: switch (line[i]) {
161: case '<':
162: strcpy(&line2[j], "<");
163: j += strlen("<.") - 1;
164: break;
165:
166: case '>':
167: strcpy(&line2[j], ">");
168: j += strlen(">.") - 1;
169: break;
170:
171: case '&':
172: strcpy(&line2[j], "&");
173: j += strlen("&") - 1;
174: break;
175:
176: case '\r':
177: case '\n':
178: break;
179: case '`': /* backquotes mean boldface or link */
180: if ((!inref) && (!inquote)) {
181: k = i + 1; /* index into current string */
182: l = 0; /* index into topic string */
183: while ((line[k] != '`') && (line[k] != NUL))
184: topic[l++] = line[k++];
185: topic[l] = NUL;
186: klist = lookup(topic);
187: if (klist && ((k = klist->line) != last_line)) {
188: sprintf(hyplink1, "<A HREF=\042#%d\042>", k);
189: strcpy(line2 + j, hyplink1);
190: j += strlen(hyplink1) - 1;
191:
192: inref = k;
193: } else {
194: if (debug && k != last_line)
195: fprintf(stderr, "Can't make link for \042%s\042 on line %d\n", topic, line_count);
196: line2[j++] = '<';
197: line2[j++] = 'B';
198: line2[j] = '>';
199: inquote = TRUE;
200: }
201: } else {
202: if (inquote && inref)
203: fprintf(stderr, "Warning: Reference Quote conflict line %d\n", line_count);
204: if (inquote) {
205: line2[j++] = '<';
206: line2[j++] = '/';
207: line2[j++] = 'B';
208: line2[j] = '>';
209: inquote = FALSE;
210: }
211: if (inref) {
212: /* must be inref */
213: line2[j++] = '<';
214: line2[j++] = '/';
215: line2[j++] = 'A';
216: line2[j] = '>';
217: inref = 0;
218: }
219: }
220: break;
221: default:
222: line2[j] = line[i];
223: }
224: i++;
225: j++;
226: line2[j] = NUL;
227: }
228:
229: i = 1;
230:
231: switch (line[0]) { /* control character */
232: case '?':{ /* interactive help entry */
233: #ifdef FIXLATER
234: if (intable)
235: intablebut = TRUE;
236: fprintf(b, "\n:i1. %s", &(line[1])); /* index entry */
237: #endif
238: break;
239: }
240: case '@':{ /* start/end table */
241: break; /* ignore */
242: }
243: case '#':{ /* latex table entry */
244: break; /* ignore */
245: }
246: case '^':{ /* external link escape */
247: (void) fputs(line + 1, b); /* copy directly */
248: break; /* ignore */
249: }
250: case '%':{ /* troff table entry */
251: break; /* ignore */
252: }
253: case '\n': /* empty text line */
254: if (tabl)
255: fprintf(b, "</PRE>\n"); /* rjl */
256: para = 0;
257: tabl = 0;
258: fprintf(b, "<P>");
259: break;
260: case ' ':{ /* normal text line */
261: if ((line2[1] == NUL) || (line2[1] == '\n')) {
262: fprintf(b, "<P>");
263: para = 0;
264: tabl = 0;
265: }
266: if (line2[1] == ' ') {
267: if (!tabl) {
268: fprintf(b, "<PRE>\n");
269: }
270: fprintf(b, "%s\n", &line2[1]);
271: tabl = 1;
272: para = 0;
273: } else {
274: if (tabl) {
275: fprintf(b, "</PRE>\n<P>"); /* rjl */
276: }
277: tabl = 0;
278: if (!para)
279: para = 1; /* not in para so start one */
280: fprintf(b, "%s \n", &line2[1]);
281: }
282: break;
283: }
284: default:{
285: if (isdigit((int)line[0])) { /* start of section */
286: if (tabl)
287: fprintf(b, "</PRE>\n"); /* rjl */
288: if (startpage) { /* use the new level 0 */
289: refs(0, b, "<P>\n", "<P>\n", "<A HREF=\042#%d\042>%s</A><BR>\n");
290: } else {
291: refs(last_line, b, "<P>\n", "<P>\n", "<A HREF=\042#%d\042>%s</A><BR>\n");
292: }
293: para = 0; /* not in a paragraph */
294: tabl = 0;
295: last_line = line_count;
296: startpage = 0;
297: if (debug)
298: fprintf(stderr, "%d: %s\n", line_count, &line2[1]);
299: klist = lookup(&line2[1]);
300: if (klist)
301: k = klist->line;
302: else
303: k = -1;
304: /* output unique ID and section title */
305: fprintf(b, "<HR><A NAME=\042%d\042>\n<H%c>", line_count, line[0] == '1' ? line[0] : line[0] - 1);
306: fprintf(b, &(line2[1])); /* title */
307: fprintf(b, "</H%c>\n<P>", line[0] == '1' ? line[0] : line[0] - 1);
308: } else
309: fprintf(stderr, "unknown control code '%c' in column 1, line %d\n",
310: line[0], line_count);
311: break;
312: }
313: }
314: }