This is doc2rtf.c in view mode; [Download] [Up]
/*
* doc2rtf.c -- program to convert Gnuplot .DOC format to MS windows
* help (.rtf) format.
*
* This involves stripping all lines with a leading digit or
* a leading @, #, or %.
* Modified by Maurice Castro from doc2gih.c by Thomas Williams
*
* usage: doc2rtf file.doc file.rtf [-d]
*
*/
/* note that tables must begin in at least the second column to */
/* be formatted correctly and tabs are forbidden */
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#define MAX_LINE_LEN 1024
#define TRUE 1
#define FALSE 0
struct LIST
{
int level;
int line;
char *string;
struct LIST *next;
};
struct LIST *list = NULL;
struct LIST *head = NULL;
struct LIST *keylist = NULL;
struct LIST *keyhead = NULL;
int debug = FALSE;
void footnote();
void parse();
void refs();
void convert();
void process_line();
int lookup();
main(argc,argv)
int argc;
char **argv;
{
FILE * infile;
FILE * outfile;
if (argc==4 && argv[3][0]=='-' && argv[3][1]=='d')
debug = TRUE;
if (argc != 3 && !debug) {
fprintf(stderr,"Usage: %s infile outfile\n", argv[0]);
return(1);
}
if ( (infile = fopen(argv[1],"r")) == (FILE *)NULL) {
fprintf(stderr,"%s: Can't open %s for reading\n",
argv[0], argv[1]);
return(1);
}
if ( (outfile = fopen(argv[2],"w")) == (FILE *)NULL) {
fprintf(stderr,"%s: Can't open %s for writing\n",
argv[0], argv[2]);
}
parse(infile);
convert(infile,outfile);
return(0);
}
/* scan the file and build a list of line numbers where particular levels are */
void parse(a)
FILE *a;
{
static char line[MAX_LINE_LEN];
char *c;
int lineno=0;
int lastline=0;
while (fgets(line,MAX_LINE_LEN,a))
{
lineno++;
if (isdigit(line[0]))
{
if (list == NULL)
head = (list = (struct LIST *) malloc(sizeof(struct LIST)));
else
list = (list->next = (struct LIST *) malloc(sizeof(struct LIST)));
list->line = lastline = lineno;
list->level = line[0] - '0';
list->string = (char *) malloc (strlen(line)+1);
c = strtok(&(line[1]),"\n");
strcpy(list->string, c);
list->next = NULL;
}
if (line[0]=='?')
{
if (keylist == NULL)
keyhead = (keylist = (struct LIST *) malloc(sizeof(struct LIST)));
else
keylist = (keylist->next = (struct LIST *) malloc(sizeof(struct LIST)));
keylist->line = lastline;
keylist->level = line[0] - '0';
keylist->string = (char *) malloc (strlen(line)+1);
c = strtok(&(line[1]),"\n");
strcpy(keylist->string, c);
keylist->next = NULL;
}
}
rewind(a);
}
/* look up an in text reference */
int
lookup(s)
char *s;
{
char *c;
char tokstr[MAX_LINE_LEN];
char *match;
int l;
strcpy(tokstr, s);
/* first try the ? keyword entries */
keylist = keyhead;
while (keylist != NULL)
{
c = keylist->string;
while (isspace(*c)) c++;
if (!strcmp(s, c)) return(keylist->line);
keylist = keylist->next;
}
/* then try titles */
match = strtok(tokstr, " \n\t");
l = 0; /* level */
list = head;
while (list != NULL)
{
c = list->string;
while (isspace(*c)) c++;
if (!strcmp(match, c))
{
l = list->level;
match = strtok(NULL, "\n\t ");
if (match == NULL)
{
return(list->line);
}
}
if (l > list->level)
break;
list = list->next;
}
return(-1);
}
/* search through the list to find any references */
void
refs(l, f)
int l;
FILE *f;
{
int curlevel;
char str[MAX_LINE_LEN];
char *c;
/* find current line */
list = head;
while (list->line != l)
list = list->next;
curlevel = list->level;
list = list->next; /* look at next element before going on */
while (list != NULL)
{
/* we are onto the next topic so stop */
if (list->level == curlevel)
break;
/* these are the next topics down the list */
if (list->level == curlevel+1)
{
c = list->string;
while (isspace(*c)) c++;
fprintf(f,"\\par{\\uldb %s}",c);
fprintf(f,"{\\v loc%d}\n",list->line);
}
list = list->next;
}
}
/* generate an RTF footnote with reference char c and text s */
void footnote(c, s, b)
char c;
char *s;
FILE *b;
{
fprintf(b,"%c{\\footnote %c %s}\n",c,c,s);
}
void
convert(a,b)
FILE *a,*b;
{
static char line[MAX_LINE_LEN];
/* generate rtf header */
fprintf(b,"{\\rtf1\\ansi "); /* vers 1 rtf, ansi char set */
fprintf(b,"\\deff0"); /* default font font 0 */
/* font table: font 0 proportional, font 1 fixed */
fprintf(b,"{\\fonttbl{\\f0\\fswiss Helv;}{\\f1\\fmodern Courier;}{\\f2\\fmodern Pica;}}\n");
/* process each line of the file */
while (fgets(line,MAX_LINE_LEN,a)) {
process_line(line, b);
}
/* close final page and generate trailer */
fprintf(b,"}{\\plain \\page}\n");
fprintf(b,"}\n");
}
void
process_line(line, b)
char *line;
FILE *b;
{
static int line_count = 0;
static char line2[MAX_LINE_LEN];
static int last_line;
int i;
int j;
static int startpage = 1;
char str[MAX_LINE_LEN];
char topic[MAX_LINE_LEN];
int k, l;
static int tabl=0;
static int para=0;
static int llpara=0;
static int inquote = FALSE;
static int inref = FALSE;
line_count++;
i = 0;
j = 0;
while (line[i] != '\0')
{
switch(line[i])
{
case '\\':
case '{':
case '}':
line2[j] = '\\';
j++;
line2[j] = line[i];
break;
case '\r':
case '\n':
break;
case '`': /* backquotes mean boldface or link */
if (line[1]==' ') /* tabular line */
line2[j] = line[i];
else if ((!inref) && (!inquote))
{
k=i+1; /* index into current string */
l=0; /* index into topic string */
while ((line[k] != '`') && (line[k] != '\0'))
{
topic[l] = line[k];
k++;
l++;
}
topic[l] = '\0';
k = lookup(topic);
if ((k > 0) && (k != last_line))
{
line2[j++] = '{';
line2[j++] = '\\';
line2[j++] = 'u';
line2[j++] = 'l';
line2[j++] = 'd';
line2[j++] = 'b';
line2[j] = ' ';
inref = k;
}
else
{
if (debug)
fprintf(stderr,"Can't make link for \042%s\042 on line %d\n",topic,line_count);
line2[j++] = '{';
line2[j++] = '\\';
line2[j++] = 'b';
line2[j] = ' ';
inquote = TRUE;
}
}
else
{
if (inquote && inref)
fprintf(stderr, "Warning: Reference Quote conflict line %d\n", line_count);
if (inquote)
{
line2[j] = '}';
inquote = FALSE;
}
if (inref)
{
/* must be inref */
sprintf(topic,"%d",inref);
line2[j++] = '}';
line2[j++] = '{';
line2[j++] = '\\';
line2[j++] = 'v';
line2[j++] = ' ';
line2[j++] = 'l';
line2[j++] = 'o';
line2[j++] = 'c';
k = 0;
while (topic[k] != '\0')
{
line2[j++] = topic[k];
k++;
}
line2[j] = '}';
inref = 0;
}
}
break;
default:
line2[j] = line[i];
}
i++;
j++;
line2[j] = '\0';
}
i = 1;
switch(line[0]) { /* control character */
case '?': { /* interactive help entry */
if ((line2[1] != '\0') && (line2[1] != ' '))
footnote('K',&(line2[1]),b);
break;
}
case '@': { /* start/end table */
break; /* ignore */
}
case '#': { /* latex table entry */
break; /* ignore */
}
case '%': { /* troff table entry */
break; /* ignore */
}
case '\n': /* empty text line */
fprintf(b,"\\par\n");
llpara = para;
para = 0;
tabl = 0;
break;
case ' ': { /* normal text line */
if ((line2[1] == '\0') || (line2[1] == '\n'))
{
fprintf(b,"\\par\n");
llpara = para;
para = 0;
tabl = 0;
}
if (line2[1] == ' ')
{
if (!tabl)
{
fprintf(b,"\\par\n");
}
fprintf(b,"{\\pard \\plain \\f1\\fs20 ");
fprintf(b,"%s",&line2[1]);
fprintf(b,"}\\par\n");
llpara = 0;
para = 0;
tabl = 1;
}
else
{
if (!para)
{
if (llpara)
fprintf(b,"\\par\n"); /* blank line between paragraphs */
llpara = 0;
para = 1; /* not in para so start one */
tabl = 0;
fprintf(b,"\\pard \\plain \\qj \\fs20 \\f0 ");
}
fprintf(b,"%s \n",&line2[1]);
}
break;
}
default: {
if (isdigit(line[0])) { /* start of section */
if (!startpage)
{
refs(last_line,b);
fprintf(b,"}{\\plain \\page}\n");
}
para = 0; /* not in a paragraph */
tabl = 0;
last_line = line_count;
startpage = 0;
fprintf(b,"{\n");
sprintf(str,"browse:%05d", line_count);
footnote('+',str,b);
footnote('$',&(line2[1]),b); /* title */
fprintf(b,"{\\b \\fs24 %s}\\plain\\par\\par\n",&(line2[1]));
/* output unique ID */
sprintf(str,"loc%d", line_count);
footnote('#',str,b);
} else
fprintf(stderr, "unknown control code '%c' in column 1, line %d\n",
line[0], line_count);
break;
}
}
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.