gnuplot-old/docs/doc2rtf.c at origin · gnuplot/gnuplot-old · GitHub

Repository navigation

History

323 lines (303 loc) · 8.59 KB

Raw

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

#ifndef lint

static char *RCSid() { return RCSid("$Id: doc2rtf.c,v 1.17 2017-05-18 16:31:58 sfeam Exp $"); }

#endif

/* GNUPLOT - doc2rtf.c */

/*[

* Permission to use, copy, and distribute this software and its

* documentation for any purpose with or without fee is hereby granted,

* provided that the above copyright notice appear in all copies and

* that both that copyright notice and this permission notice appear

* in supporting documentation.

* Permission to modify the software is granted, but not the right to

* distribute the complete modified source code. Modifications are to

* be distributed as patches to the released version. Permission to

* distribute binaries produced by compiling modified sources is granted,

* provided you

* 1. distribute the corresponding source modifications from the

* released version in the form of a patch file along with the binaries,

* 2. add special version identification to distinguish your version

* in addition to the base release version number,

* 3. provide your name and address as the primary contact for the

* support of your modified version, and

* 4. retain our contact information in regard to use of the base

* software.

* Permission to distribute the released version of the source code along

* with corresponding source modifications in the form of a patch file is

* granted with same provisions 2 through 4 for binary distributions.

* This software is provided "as is" without express or implied warranty

* to the extent permitted by applicable law.

]*/

* 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 */

#ifdef HAVE_CONFIG_H

# include "config.h"

#endif

#include "syscfg.h"

#include "stdfn.h"

#define MAX_LINE_LEN 1023

#include "doc2x.h"

#include "xref.h"

static TBOOLEAN debug = FALSE;

void footnote __PROTO((int, char *, FILE *));

void convert __PROTO((FILE *, FILE *));

void process_line __PROTO((char *, FILE *));

int

main (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]);

exit(EXIT_FAILURE);

}

if ((infile = fopen(argv[1], "r")) == (FILE *) NULL) {

fprintf(stderr, "%s: Can't open %s for reading\n",

argv[0], argv[1]);

exit(EXIT_FAILURE);

}

if ((outfile = fopen(argv[2], "w")) == (FILE *) NULL) {

fprintf(stderr, "%s: Can't open %s for writing\n",

argv[0], argv[2]);

exit(EXIT_FAILURE);

}

parse(infile);

convert(infile, outfile);

return (EXIT_SUCCESS);

}

/* generate an RTF footnote with reference char c and text s */

void

footnote(int c, char *s, FILE *b)

{

fprintf(b, "%c{\\footnote %c %s}\n", c, c, s);

}

void

convert(FILE *a, FILE *b)

{

static char line[MAX_LINE_LEN+1];

/* 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 Arial;}{\\f1\\fmodern Courier New;}}\n");

/* process each line of the file */

while (get_line(line, sizeof(line), a)) {

process_line(line, b);

}

/* close final page and generate trailer */

fprintf(b, "}{\\plain \\page}\n");

/* fprintf(b,"}\n"); */ /* HBB: HACK ALERT: only without this, hc31 works */

list_free();

}

void

process_line(char *line, FILE *b)

{

static int line_count = 0;

static char line2[MAX_LINE_LEN+1];

static int last_line;

int i;

int j;

static int startpage = 1;

char str[MAX_LINE_LEN+1];

char topic[MAX_LINE_LEN+1];

int k, l;

static int tabl = 0;

static int para = 0;

static int llpara = 0;

static int inquote = FALSE;

static int inref = FALSE;

struct LIST *klist;

static int initem = FALSE;

line_count++;

i = 0;

j = 0;

while (line[i] != NUL) {

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] != NUL))

topic[l++] = line[k++];

topic[l] = NUL;

klist = lookup(topic);

if (klist && (k = klist->line) > 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] != NUL)

line2[j++] = topic[k++];

line2[j] = '}';

inref = 0;

}

break;

default:

line2[j] = line[i];

}

i++;

j++;

line2[j] = NUL;

}

i = 1;

switch (line[0]) { /* control character */

case '?':{ /* interactive help entry */

if ((line2[1] != NUL) && (line2[1] != ' '))

footnote('K', &(line2[1]), b);

break;

}

case '@':{ /* start/end table */

break; /* ignore */

}

case '^':{ /* html link escape */

break; /* ignore */

}

case '=': /* latex index entry */

case 'F': /* latex embedded figure */

case '#': /* latex table entry */

/* or new item entry */

if (strncmp(line2 + 1, "start", 5) == 0) {

fprintf(b, "\\par\n");

initem = TRUE;

} else if (strncmp(line2 + 1, "end", 3) == 0) {

fprintf(b, "\\par\n");

initem = FALSE;

} else if ((line2[1] != NUL) && (line2[1] == 'b')) {

fprintf(b, "\\par\n");

fprintf(b, "\\pard \\plain \\qj \\fs20 \\f0 * ");

fprintf(b, "%s", &line2[2]);

} else if ((line2[1] != NUL) && (line2[1] == '#'))

fprintf(b, "%s", &line2[2]);

break;

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 (initem) {

fprintf(b, "%s", &line2[1]);

break;

}

if ((line2[1] == NUL) || (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((int)line[0])) { /* start of section */

if (startpage) { /* use new level 0 item */

refs(0, b, "\\par", NULL, "\\par{\\uldb %s}{\\v loc%d}\n");

fprintf(b, "}{\\plain \\page}\n");

} else {

refs(last_line, b, "\\par", NULL, "\\par{\\uldb %s}{\\v loc%d}\n");

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;

}

gnuplot-old/docs/doc2rtf.c at origin · gnuplot/gnuplot-old · GitHub

Repository navigation

Expand file tree

Breadcrumbs

doc2rtf.c

Latest commit

History

Breadcrumbs

doc2rtf.c

File metadata and controls