fixed dates
[swftools.git] / pdf2swf / xpdf / GlobalParams.cc
1 //========================================================================
2 //
3 // GlobalParams.cc
4 //
5 // Copyright 2001-2002 Glyph & Cog, LLC
6 //
7 //========================================================================
8
9 #ifdef __GNUC__
10 #pragma implementation
11 #endif
12
13 #include <aconf.h>
14 #include <string.h>
15 #include <ctype.h>
16 #if HAVE_PAPER_H
17 #include <paper.h>
18 #endif
19 #include "gmem.h"
20 #include "GString.h"
21 #include "GList.h"
22 #include "GHash.h"
23 #include "gfile.h"
24 #include "Error.h"
25 #include "NameToCharCode.h"
26 #include "CharCodeToUnicode.h"
27 #include "UnicodeMap.h"
28 #include "CMap.h"
29 #include "BuiltinFontTables.h"
30 #include "FontEncodingTables.h"
31 #include "GlobalParams.h"
32
33 #include "NameToUnicodeTable.h"
34 #include "UnicodeMapTables.h"
35 #include "DisplayFontTable.h"
36 #include "UTF8.h"
37
38 //------------------------------------------------------------------------
39
40 GlobalParams *globalParams = NULL;
41
42 //------------------------------------------------------------------------
43 // DisplayFontParam
44 //------------------------------------------------------------------------
45
46 DisplayFontParam::DisplayFontParam(GString *nameA,
47                                    DisplayFontParamKind kindA) {
48   name = nameA;
49   kind = kindA;
50   switch (kind) {
51   case displayFontX:
52     x.xlfd = NULL;
53     x.encoding = NULL;
54     break;
55   case displayFontT1:
56     t1.fileName = NULL;
57     break;
58   case displayFontTT:
59     tt.fileName = NULL;
60     break;
61   }
62 }
63
64 DisplayFontParam::DisplayFontParam(char *nameA, char *xlfdA, char *encodingA) {
65   name = new GString(nameA);
66   kind = displayFontX;
67   x.xlfd = new GString(xlfdA);
68   x.encoding = new GString(encodingA);
69 }
70
71 DisplayFontParam::~DisplayFontParam() {
72   delete name;
73   switch (kind) {
74   case displayFontX:
75     if (x.xlfd) {
76       delete x.xlfd;
77     }
78     if (x.encoding) {
79       delete x.encoding;
80     }
81     break;
82   case displayFontT1:
83     if (t1.fileName) {
84       delete t1.fileName;
85     }
86     break;
87   case displayFontTT:
88     if (tt.fileName) {
89       delete tt.fileName;
90     }
91     break;
92   }
93 }
94
95 //------------------------------------------------------------------------
96 // PSFontParam
97 //------------------------------------------------------------------------
98
99 PSFontParam::PSFontParam(GString *pdfFontNameA, int wModeA,
100                          GString *psFontNameA, GString *encodingA) {
101   pdfFontName = pdfFontNameA;
102   wMode = wModeA;
103   psFontName = psFontNameA;
104   encoding = encodingA;
105 }
106
107 PSFontParam::~PSFontParam() {
108   delete pdfFontName;
109   delete psFontName;
110   if (encoding) {
111     delete encoding;
112   }
113 }
114
115 //------------------------------------------------------------------------
116 // parsing
117 //------------------------------------------------------------------------
118
119 GlobalParams::GlobalParams(char *cfgFileName) {
120   UnicodeMap *map;
121   DisplayFontParam *dfp;
122   GString *fileName;
123   FILE *f;
124   int i;
125
126   initBuiltinFontTables();
127
128   // scan the encoding in reverse because we want the lowest-numbered
129   // index for each char name ('space' is encoded twice)
130   macRomanReverseMap = new NameToCharCode();
131   for (i = 255; i >= 0; --i) {
132     if (macRomanEncoding[i]) {
133       macRomanReverseMap->add(macRomanEncoding[i], (CharCode)i);
134     }
135   }
136
137   nameToUnicode = new NameToCharCode();
138   cidToUnicodes = new GHash(gTrue);
139   residentUnicodeMaps = new GHash();
140   unicodeMaps = new GHash(gTrue);
141   cMapDirs = new GHash(gTrue);
142   toUnicodeDirs = new GList();
143   displayFonts = new GHash();
144   displayCIDFonts = new GHash();
145   displayNamedCIDFonts = new GHash();
146 #if HAVE_PAPER_H
147   const struct paper *paperType;
148   paperinit();
149   paperType = paperinfo(systempapername());
150   psPaperWidth = (int)paperpswidth(paperType);
151   psPaperHeight = (int)paperpsheight(paperType);
152   paperdone();
153 #else
154   psPaperWidth = defPaperWidth;
155   psPaperHeight = defPaperHeight;
156 #endif
157   psDuplex = gFalse;
158   psLevel = psLevel2;
159   psFile = NULL;
160   psFonts = new GHash();
161   psNamedFonts16 = new GList();
162   psFonts16 = new GList();
163   psEmbedType1 = gTrue;
164   psEmbedTrueType = gTrue;
165   psEmbedCIDPostScript = gTrue;
166   psEmbedCIDTrueType = gTrue;
167   psOPI = gFalse;
168   psASCIIHex = gFalse;
169   textEncoding = new GString("Latin1");
170 #if defined(WIN32)
171   textEOL = eolDOS;
172 #elif defined(MACOS)
173   textEOL = eolMac;
174 #else
175   textEOL = eolUnix;
176 #endif
177   fontDirs = new GList();
178   initialZoom = new GString("1");
179   t1libControl = fontRastAALow;
180   freetypeControl = fontRastAALow;
181   urlCommand = NULL;
182   mapNumericCharNames = gTrue;
183   errQuiet = gFalse;
184
185   cidToUnicodeCache = new CIDToUnicodeCache();
186   unicodeMapCache = new UnicodeMapCache();
187   cMapCache = new CMapCache();
188
189   // set up the initial nameToUnicode table
190   for (i = 0; nameToUnicodeTab[i].name; ++i) {
191     nameToUnicode->add(nameToUnicodeTab[i].name, nameToUnicodeTab[i].u);
192   }
193
194   // set up the residentUnicodeMaps table
195   map = new UnicodeMap("Latin1", latin1UnicodeMapRanges, latin1UnicodeMapLen);
196   residentUnicodeMaps->add(map->getEncodingName(), map);
197   map = new UnicodeMap("ASCII7", ascii7UnicodeMapRanges, ascii7UnicodeMapLen);
198   residentUnicodeMaps->add(map->getEncodingName(), map);
199   map = new UnicodeMap("Symbol", symbolUnicodeMapRanges, symbolUnicodeMapLen);
200   residentUnicodeMaps->add(map->getEncodingName(), map);
201   map = new UnicodeMap("ZapfDingbats", zapfDingbatsUnicodeMapRanges,
202                        zapfDingbatsUnicodeMapLen);
203   residentUnicodeMaps->add(map->getEncodingName(), map);
204   map = new UnicodeMap("UTF-8", &mapUTF8);
205   residentUnicodeMaps->add(map->getEncodingName(), map);
206   map = new UnicodeMap("UCS-2", &mapUCS2);
207   residentUnicodeMaps->add(map->getEncodingName(), map);
208
209   // default displayFonts table
210   for (i = 0; displayFontTab[i].name; ++i) {
211     dfp = new DisplayFontParam(displayFontTab[i].name,
212                                displayFontTab[i].xlfd,
213                                displayFontTab[i].encoding);
214     displayFonts->add(dfp->name, dfp);
215   }
216
217   // look for a user config file, then a system-wide config file
218   f = NULL;
219   fileName = NULL;
220   if (cfgFileName && cfgFileName[0]) {
221     fileName = new GString(cfgFileName);
222     if (!(f = fopen(fileName->getCString(), "r"))) {
223       delete fileName;
224     }
225   }
226   if (!f) {
227     fileName = appendToPath(getHomeDir(), xpdfUserConfigFile);
228     if (!(f = fopen(fileName->getCString(), "r"))) {
229       delete fileName;
230     }
231   }
232   if (!f) {
233 #if defined(WIN32) && !defined(__CYGWIN32__)
234     char buf[512];
235     i = GetModuleFileName(NULL, buf, sizeof(buf));
236     if (i <= 0 || i >= sizeof(buf)) {
237       // error or path too long for buffer - just use the current dir
238       buf[i] = '\0';
239     }
240     fileName = grabPath(buf);
241     appendToPath(fileName, xpdfSysConfigFile);
242 #else
243     fileName = new GString(xpdfSysConfigFile);
244 #endif
245     if (!(f = fopen(fileName->getCString(), "r"))) {
246       delete fileName;
247     }
248   }
249   if (f) {
250     parseFile(fileName, f);
251     delete fileName;
252   }
253 }
254
255 void GlobalParams::parseFile(GString *fileName, FILE *f) {
256   int line;
257   GList *tokens;
258   GString *cmd, *incFile;
259   char *p1, *p2;
260   char buf[512];
261   FILE *f2;
262
263   line = 1;
264   while (fgets(buf, sizeof(buf) - 1, f)) {
265
266     // break the line into tokens
267     tokens = new GList();
268     p1 = buf;
269     while (*p1) {
270       for (; *p1 && isspace(*p1); ++p1) ;
271       if (!*p1) {
272         break;
273       }
274       if (*p1 == '"' || *p1 == '\'') {
275         for (p2 = p1 + 1; *p2 && *p2 != *p1; ++p2) ;
276         ++p1;
277       } else {
278         for (p2 = p1 + 1; *p2 && !isspace(*p2); ++p2) ;
279       }
280       tokens->append(new GString(p1, p2 - p1));
281       p1 = p2 + 1;
282     }
283
284     if (tokens->getLength() > 0 &&
285         ((GString *)tokens->get(0))->getChar(0) != '#') {
286       cmd = (GString *)tokens->get(0);
287       if (!cmd->cmp("include")) {
288         if (tokens->getLength() == 2) {
289           incFile = (GString *)tokens->get(1);
290           if ((f2 = fopen(incFile->getCString(), "r"))) {
291             parseFile(incFile, f2);
292             fclose(f2);
293           } else {
294             error(-1, "Couldn't find included config file: '%s' (%s:%d)",
295                   incFile->getCString(), fileName->getCString(), line);
296           }
297         } else {
298           error(-1, "Bad 'include' config file command (%s:%d)",
299                 fileName->getCString(), line);
300         }
301       } else if (!cmd->cmp("nameToUnicode")) {
302         parseNameToUnicode(tokens, fileName, line);
303       } else if (!cmd->cmp("cidToUnicode")) {
304         parseCIDToUnicode(tokens, fileName, line);
305       } else if (!cmd->cmp("unicodeMap")) {
306         parseUnicodeMap(tokens, fileName, line);
307       } else if (!cmd->cmp("cMapDir")) {
308         parseCMapDir(tokens, fileName, line);
309       } else if (!cmd->cmp("toUnicodeDir")) {
310         parseToUnicodeDir(tokens, fileName, line);
311       } else if (!cmd->cmp("displayFontX")) {
312         parseDisplayFont(tokens, displayFonts, displayFontX, fileName, line);
313       } else if (!cmd->cmp("displayFontT1")) {
314         parseDisplayFont(tokens, displayFonts, displayFontT1, fileName, line);
315       } else if (!cmd->cmp("displayFontTT")) {
316         parseDisplayFont(tokens, displayFonts, displayFontTT, fileName, line);
317       } else if (!cmd->cmp("displayCIDFontX")) {
318         parseDisplayFont(tokens, displayCIDFonts,
319                          displayFontX, fileName, line);
320       } else if (!cmd->cmp("displayNamedCIDFontX")) {
321         parseDisplayFont(tokens, displayNamedCIDFonts,
322                          displayFontX, fileName, line);
323       } else if (!cmd->cmp("psFile")) {
324         parsePSFile(tokens, fileName, line);
325       } else if (!cmd->cmp("psFont")) {
326         parsePSFont(tokens, fileName, line);
327       } else if (!cmd->cmp("psNamedFont16")) {
328         parsePSFont16("psNamedFont16", psNamedFonts16,
329                       tokens, fileName, line);
330       } else if (!cmd->cmp("psFont16")) {
331         parsePSFont16("psFont16", psFonts16, tokens, fileName, line);
332       } else if (!cmd->cmp("psPaperSize")) {
333         parsePSPaperSize(tokens, fileName, line);
334       } else if (!cmd->cmp("psDuplex")) {
335         parseYesNo("psDuplex", &psDuplex, tokens, fileName, line);
336       } else if (!cmd->cmp("psLevel")) {
337         parsePSLevel(tokens, fileName, line);
338       } else if (!cmd->cmp("psEmbedType1Fonts")) {
339         parseYesNo("psEmbedType1", &psEmbedType1, tokens, fileName, line);
340       } else if (!cmd->cmp("psEmbedTrueTypeFonts")) {
341         parseYesNo("psEmbedTrueType", &psEmbedTrueType,
342                    tokens, fileName, line);
343       } else if (!cmd->cmp("psEmbedCIDPostScriptFonts")) {
344         parseYesNo("psEmbedCIDPostScript", &psEmbedCIDPostScript,
345                    tokens, fileName, line);
346       } else if (!cmd->cmp("psEmbedCIDTrueTypeFonts")) {
347         parseYesNo("psEmbedCIDTrueType", &psEmbedCIDTrueType,
348                    tokens, fileName, line);
349       } else if (!cmd->cmp("psOPI")) {
350         parseYesNo("psOPI", &psOPI, tokens, fileName, line);
351       } else if (!cmd->cmp("psASCIIHex")) {
352         parseYesNo("psASCIIHex", &psASCIIHex, tokens, fileName, line);
353       } else if (!cmd->cmp("textEncoding")) {
354         parseTextEncoding(tokens, fileName, line);
355       } else if (!cmd->cmp("textEOL")) {
356         parseTextEOL(tokens, fileName, line);
357       } else if (!cmd->cmp("fontDir")) {
358         parseFontDir(tokens, fileName, line);
359       } else if (!cmd->cmp("initialZoom")) {
360         parseInitialZoom(tokens, fileName, line);
361       } else if (!cmd->cmp("t1libControl")) {
362         parseFontRastControl("t1libControl", &t1libControl,
363                              tokens, fileName, line);
364       } else if (!cmd->cmp("freetypeControl")) {
365         parseFontRastControl("freetypeControl", &freetypeControl,
366                              tokens, fileName, line);
367       } else if (!cmd->cmp("urlCommand")) {
368         parseURLCommand(tokens, fileName, line);
369       } else if (!cmd->cmp("mapNumericCharNames")) {
370         parseYesNo("mapNumericCharNames", &mapNumericCharNames,
371                    tokens, fileName, line);
372       } else if (!cmd->cmp("errQuiet")) {
373         parseYesNo("errQuiet", &errQuiet, tokens, fileName, line);
374       } else if (!cmd->cmp("fontpath") || !cmd->cmp("fontmap")) {
375         error(-1, "Unknown config file command");
376         error(-1, "-- the config file format has changed since Xpdf 0.9x");
377       } else {
378         error(-1, "Unknown config file command '%s' (%s:%d)",
379               cmd->getCString(), fileName->getCString(), line);
380       }
381     }
382
383     deleteGList(tokens, GString);
384     ++line;
385   }
386 }
387
388 void GlobalParams::parseNameToUnicode(GList *tokens, GString *fileName,
389                                          int line) {
390   GString *name;
391   char *tok1, *tok2;
392   FILE *f;
393   char buf[256];
394   int line2;
395   Unicode u;
396
397   if (tokens->getLength() != 2) {
398     error(-1, "Bad 'nameToUnicode' config file command (%s:%d)",
399           fileName->getCString(), line);
400     return;
401   }
402   name = (GString *)tokens->get(1);
403   if (!(f = fopen(name->getCString(), "r"))) {
404     error(-1, "Couldn't open 'nameToUnicode' file '%s'",
405           name->getCString());
406     return;
407   }
408   line2 = 1;
409   while (fgets(buf, sizeof(buf), f)) {
410     tok1 = strtok(buf, " \t\r\n");
411     tok2 = strtok(NULL, " \t\r\n");
412     if (tok1 && tok2) {
413       sscanf(tok1, "%x", &u);
414       nameToUnicode->add(tok2, u);
415     } else {
416       error(-1, "Bad line in 'nameToUnicode' file (%s:%d)", name, line2);
417     }
418     ++line2;
419   }
420   fclose(f);
421 }
422
423 void GlobalParams::parseCIDToUnicode(GList *tokens, GString *fileName,
424                                      int line) {
425   GString *collection, *name, *old;
426
427   if (tokens->getLength() != 3) {
428     error(-1, "Bad 'cidToUnicode' config file command (%s:%d)",
429           fileName->getCString(), line);
430     return;
431   }
432   collection = (GString *)tokens->get(1);
433   name = (GString *)tokens->get(2);
434   if ((old = (GString *)cidToUnicodes->remove(collection))) {
435     delete old;
436   }
437   cidToUnicodes->add(collection->copy(), name->copy());
438 }
439
440 void GlobalParams::parseUnicodeMap(GList *tokens, GString *fileName,
441                                    int line) {
442   GString *encodingName, *name, *old;
443
444   if (tokens->getLength() != 3) {
445     error(-1, "Bad 'unicodeMap' config file command (%s:%d)",
446           fileName->getCString(), line);
447     return;
448   }
449   encodingName = (GString *)tokens->get(1);
450   name = (GString *)tokens->get(2);
451   if ((old = (GString *)unicodeMaps->remove(encodingName))) {
452     delete old;
453   }
454   unicodeMaps->add(encodingName->copy(), name->copy());
455 }
456
457 void GlobalParams::parseCMapDir(GList *tokens, GString *fileName, int line) {
458   GString *collection, *dir;
459   GList *list;
460
461   if (tokens->getLength() != 3) {
462     error(-1, "Bad 'cMapDir' config file command (%s:%d)",
463           fileName->getCString(), line);
464     return;
465   }
466   collection = (GString *)tokens->get(1);
467   dir = (GString *)tokens->get(2);
468   if (!(list = (GList *)cMapDirs->lookup(collection))) {
469     list = new GList();
470     cMapDirs->add(collection->copy(), list);
471   }
472   list->append(dir->copy());
473 }
474
475 void GlobalParams::parseToUnicodeDir(GList *tokens, GString *fileName,
476                                      int line) {
477   if (tokens->getLength() != 2) {
478     error(-1, "Bad 'toUnicodeDir' config file command (%s:%d)",
479           fileName->getCString(), line);
480     return;
481   }
482   toUnicodeDirs->append(((GString *)tokens->get(1))->copy());
483 }
484
485 void GlobalParams::parseDisplayFont(GList *tokens, GHash *fontHash,
486                                     DisplayFontParamKind kind,
487                                     GString *fileName, int line) {
488   DisplayFontParam *param, *old;
489
490   if (tokens->getLength() < 2) {
491     goto err1;
492   }
493   param = new DisplayFontParam(((GString *)tokens->get(1))->copy(), kind);
494   
495   switch (kind) {
496   case displayFontX:
497     if (tokens->getLength() != 4) {
498       goto err2;
499     }
500     param->x.xlfd = ((GString *)tokens->get(2))->copy();
501     param->x.encoding = ((GString *)tokens->get(3))->copy();
502     break;
503   case displayFontT1:
504     if (tokens->getLength() != 3) {
505       goto err2;
506     }
507     param->t1.fileName = ((GString *)tokens->get(2))->copy();
508     break;
509   case displayFontTT:
510     if (tokens->getLength() != 3) {
511       goto err2;
512     }
513     param->tt.fileName = ((GString *)tokens->get(2))->copy();
514     break;
515   }
516
517   if ((old = (DisplayFontParam *)fontHash->remove(param->name))) {
518     delete old;
519   }
520   fontHash->add(param->name, param);
521   return;
522
523  err2:
524   delete param;
525  err1:
526   error(-1, "Bad 'display*Font*' config file command (%s:%d)",
527         fileName->getCString(), line);
528 }
529
530 void GlobalParams::parsePSPaperSize(GList *tokens, GString *fileName,
531                                     int line) {
532   GString *tok;
533
534   if (tokens->getLength() == 2) {
535     tok = (GString *)tokens->get(1);
536     if (!setPSPaperSize(tok->getCString())) {
537       error(-1, "Bad 'psPaperSize' config file command (%s:%d)",
538             fileName->getCString(), line);
539     }
540   } else if (tokens->getLength() == 3) {
541     tok = (GString *)tokens->get(1);
542     psPaperWidth = atoi(tok->getCString());
543     tok = (GString *)tokens->get(2);
544     psPaperHeight = atoi(tok->getCString());
545   } else {
546     error(-1, "Bad 'psPaperSize' config file command (%s:%d)",
547           fileName->getCString(), line);
548   }
549 }
550
551 void GlobalParams::parsePSLevel(GList *tokens, GString *fileName, int line) {
552   GString *tok;
553
554   if (tokens->getLength() != 2) {
555     error(-1, "Bad 'psLevel' config file command (%s:%d)",
556           fileName->getCString(), line);
557     return;
558   }
559   tok = (GString *)tokens->get(1);
560   if (!tok->cmp("level1")) {
561     psLevel = psLevel1;
562   } else if (!tok->cmp("level1sep")) {
563     psLevel = psLevel1Sep;
564   } else if (!tok->cmp("level2")) {
565     psLevel = psLevel2;
566   } else if (!tok->cmp("level2sep")) {
567     psLevel = psLevel2Sep;
568   } else if (!tok->cmp("level3")) {
569     psLevel = psLevel3;
570   } else if (!tok->cmp("level3Sep")) {
571     psLevel = psLevel3Sep;
572   } else {
573     error(-1, "Bad 'psLevel' config file command (%s:%d)",
574           fileName->getCString(), line);
575   }
576 }
577
578 void GlobalParams::parsePSFile(GList *tokens, GString *fileName, int line) {
579   if (tokens->getLength() != 2) {
580     error(-1, "Bad 'psFile' config file command (%s:%d)",
581           fileName->getCString(), line);
582     return;
583   }
584   if (psFile) {
585     delete psFile;
586   }
587   psFile = ((GString *)tokens->get(1))->copy();
588 }
589
590 void GlobalParams::parsePSFont(GList *tokens, GString *fileName, int line) {
591   PSFontParam *param;
592
593   if (tokens->getLength() != 3) {
594     error(-1, "Bad 'psFont' config file command (%s:%d)",
595           fileName->getCString(), line);
596     return;
597   }
598   param = new PSFontParam(((GString *)tokens->get(1))->copy(), 0,
599                           ((GString *)tokens->get(2))->copy(), NULL);
600   psFonts->add(param->pdfFontName, param);
601 }
602
603 void GlobalParams::parsePSFont16(char *cmdName, GList *fontList,
604                                  GList *tokens, GString *fileName, int line) {
605   PSFontParam *param;
606   int wMode;
607   GString *tok;
608
609   if (tokens->getLength() != 5) {
610     error(-1, "Bad '%s' config file command (%s:%d)",
611           cmdName, fileName->getCString(), line);
612     return;
613   }
614   tok = (GString *)tokens->get(2);
615   if (!tok->cmp("H")) {
616     wMode = 0;
617   } else if (!tok->cmp("V")) {
618     wMode = 1;
619   } else {
620     error(-1, "Bad '%s' config file command (%s:%d)",
621           cmdName, fileName->getCString(), line);
622     return;
623   }
624   param = new PSFontParam(((GString *)tokens->get(1))->copy(),
625                           wMode,
626                           ((GString *)tokens->get(3))->copy(),
627                           ((GString *)tokens->get(4))->copy());
628   fontList->append(param);
629 }
630
631 void GlobalParams::parseTextEncoding(GList *tokens, GString *fileName,
632                                      int line) {
633   if (tokens->getLength() != 2) {
634     error(-1, "Bad 'textEncoding' config file command (%s:%d)",
635           fileName->getCString(), line);
636     return;
637   }
638   delete textEncoding;
639   textEncoding = ((GString *)tokens->get(1))->copy();
640 }
641
642 void GlobalParams::parseTextEOL(GList *tokens, GString *fileName, int line) {
643   GString *tok;
644
645   if (tokens->getLength() != 2) {
646     error(-1, "Bad 'textEOL' config file command (%s:%d)",
647           fileName->getCString(), line);
648     return;
649   }
650   tok = (GString *)tokens->get(1);
651   if (!tok->cmp("unix")) {
652     textEOL = eolUnix;
653   } else if (!tok->cmp("dos")) {
654     textEOL = eolDOS;
655   } else if (!tok->cmp("mac")) {
656     textEOL = eolMac;
657   } else {
658     error(-1, "Bad 'textEOL' config file command (%s:%d)",
659           fileName->getCString(), line);
660   }
661 }
662
663 void GlobalParams::parseFontDir(GList *tokens, GString *fileName, int line) {
664   if (tokens->getLength() != 2) {
665     error(-1, "Bad 'fontDir' config file command (%s:%d)",
666           fileName->getCString(), line);
667     return;
668   }
669   fontDirs->append(((GString *)tokens->get(1))->copy());
670 }
671
672 void GlobalParams::parseInitialZoom(GList *tokens,
673                                     GString *fileName, int line) {
674   if (tokens->getLength() != 2) {
675     error(-1, "Bad 'initialZoom' config file command (%s:%d)",
676           fileName->getCString(), line);
677     return;
678   }
679   delete initialZoom;
680   initialZoom = ((GString *)tokens->get(1))->copy();
681 }
682
683 void GlobalParams::parseFontRastControl(char *cmdName, FontRastControl *val,
684                                         GList *tokens, GString *fileName,
685                                         int line) {
686   GString *tok;
687
688   if (tokens->getLength() != 2) {
689     error(-1, "Bad '%s' config file command (%s:%d)",
690           cmdName, fileName->getCString(), line);
691     return;
692   }
693   tok = (GString *)tokens->get(1);
694   if (!setFontRastControl(val, tok->getCString())) {
695     error(-1, "Bad '%s' config file command (%s:%d)",
696           cmdName, fileName->getCString(), line);
697   }
698 }
699
700 void GlobalParams::parseURLCommand(GList *tokens, GString *fileName,
701                                    int line) {
702   if (tokens->getLength() != 2) {
703     error(-1, "Bad 'urlCommand' config file command (%s:%d)",
704           fileName->getCString(), line);
705     return;
706   }
707   if (urlCommand) {
708     delete urlCommand;
709   }
710   urlCommand = ((GString *)tokens->get(1))->copy();
711 }
712
713 void GlobalParams::parseYesNo(char *cmdName, GBool *flag,
714                               GList *tokens, GString *fileName, int line) {
715   GString *tok;
716
717   if (tokens->getLength() != 2) {
718     error(-1, "Bad '%s' config file command (%s:%d)",
719           cmdName, fileName->getCString(), line);
720     return;
721   }
722   tok = (GString *)tokens->get(1);
723   if (!tok->cmp("yes")) {
724     *flag = gTrue;
725   } else if (!tok->cmp("no")) {
726     *flag = gFalse;
727   } else {
728     error(-1, "Bad '%s' config file command (%s:%d)",
729           cmdName, fileName->getCString(), line);
730   }
731 }
732
733 GlobalParams::~GlobalParams() {
734   GHashIter *iter;
735   GString *key;
736   GList *list;
737
738   freeBuiltinFontTables();
739
740   delete macRomanReverseMap;
741
742   delete nameToUnicode;
743   deleteGHash(cidToUnicodes, GString);
744   deleteGHash(residentUnicodeMaps, UnicodeMap);
745   deleteGHash(unicodeMaps, GString);
746   deleteGList(toUnicodeDirs, GString);
747   deleteGHash(displayFonts, DisplayFontParam);
748   deleteGHash(displayCIDFonts, DisplayFontParam);
749   deleteGHash(displayNamedCIDFonts, DisplayFontParam);
750   if (psFile) {
751     delete psFile;
752   }
753   deleteGHash(psFonts, PSFontParam);
754   deleteGList(psNamedFonts16, PSFontParam);
755   deleteGList(psFonts16, PSFontParam);
756   delete textEncoding;
757   deleteGList(fontDirs, GString);
758   delete initialZoom;
759   if (urlCommand) {
760     delete urlCommand;
761   }
762
763   cMapDirs->startIter(&iter);
764   while (cMapDirs->getNext(&iter, &key, (void **)&list)) {
765     deleteGList(list, GString);
766   }
767   delete cMapDirs;
768
769   delete cidToUnicodeCache;
770   delete unicodeMapCache;
771   delete cMapCache;
772 }
773
774 //------------------------------------------------------------------------
775 // accessors
776 //------------------------------------------------------------------------
777
778 CharCode GlobalParams::getMacRomanCharCode(char *charName) {
779   return macRomanReverseMap->lookup(charName);
780 }
781
782 Unicode GlobalParams::mapNameToUnicode(char *charName) {
783   return nameToUnicode->lookup(charName);
784 }
785
786 FILE *GlobalParams::getCIDToUnicodeFile(GString *collection) {
787   GString *fileName;
788
789   if (!(fileName = (GString *)cidToUnicodes->lookup(collection))) {
790     return NULL;
791   }
792   return fopen(fileName->getCString(), "r");
793 }
794
795 UnicodeMap *GlobalParams::getResidentUnicodeMap(GString *encodingName) {
796   return (UnicodeMap *)residentUnicodeMaps->lookup(encodingName);
797 }
798
799 FILE *GlobalParams::getUnicodeMapFile(GString *encodingName) {
800   GString *fileName;
801
802   if (!(fileName = (GString *)unicodeMaps->lookup(encodingName))) {
803     return NULL;
804   }
805   return fopen(fileName->getCString(), "r");
806 }
807
808 FILE *GlobalParams::findCMapFile(GString *collection, GString *cMapName) {
809   GList *list;
810   GString *dir;
811   GString *fileName;
812   FILE *f;
813   int i;
814
815   if (!(list = (GList *)cMapDirs->lookup(collection))) {
816     return NULL;
817   }
818   for (i = 0; i < list->getLength(); ++i) {
819     dir = (GString *)list->get(i);
820     fileName = appendToPath(dir->copy(), cMapName->getCString());
821     f = fopen(fileName->getCString(), "r");
822     delete fileName;
823     if (f) {
824       return f;
825     }
826   }
827   return NULL;
828 }
829
830 FILE *GlobalParams::findToUnicodeFile(GString *name) {
831   GString *dir, *fileName;
832   FILE *f;
833   int i;
834
835   for (i = 0; i < toUnicodeDirs->getLength(); ++i) {
836     dir = (GString *)toUnicodeDirs->get(i);
837     fileName = appendToPath(dir->copy(), name->getCString());
838     f = fopen(fileName->getCString(), "r");
839     delete fileName;
840     if (f) {
841       return f;
842     }
843   }
844   return NULL;
845 }
846
847 DisplayFontParam *GlobalParams::getDisplayFont(GString *fontName) {
848   return (DisplayFontParam *)displayFonts->lookup(fontName);
849 }
850
851 DisplayFontParam *GlobalParams::getDisplayCIDFont(GString *fontName,
852                                                   GString *collection) {
853   DisplayFontParam *dfp;
854
855   if (!fontName ||
856       !(dfp = (DisplayFontParam *)displayNamedCIDFonts->lookup(fontName))) {
857     dfp = (DisplayFontParam *)displayCIDFonts->lookup(collection);
858   }
859   return dfp;
860 }
861
862 PSFontParam *GlobalParams::getPSFont(GString *fontName) {
863   return (PSFontParam *)psFonts->lookup(fontName);
864 }
865
866 PSFontParam *GlobalParams::getPSFont16(GString *fontName,
867                                        GString *collection, int wMode) {
868   PSFontParam *p;
869   int i;
870
871   p = NULL;
872   if (fontName) {
873     for (i = 0; i < psNamedFonts16->getLength(); ++i) {
874       p = (PSFontParam *)psNamedFonts16->get(i);
875       if (!p->pdfFontName->cmp(fontName) &&
876           p->wMode == wMode) {
877         break;
878       }
879       p = NULL;
880     }
881   }
882   if (!p && collection) {
883     for (i = 0; i < psFonts16->getLength(); ++i) {
884       p = (PSFontParam *)psFonts16->get(i);
885       if (!p->pdfFontName->cmp(collection) &&
886           p->wMode == wMode) {
887         break;
888       }
889       p = NULL;
890     }
891   }
892   return p;
893 }
894
895 GString *GlobalParams::findFontFile(GString *fontName,
896                                     char *ext1, char *ext2) {
897   GString *dir, *fileName;
898   FILE *f;
899   int i;
900
901   for (i = 0; i < fontDirs->getLength(); ++i) {
902     dir = (GString *)fontDirs->get(i);
903     if (ext1) {
904       fileName = appendToPath(dir->copy(), fontName->getCString());
905       fileName->append(ext1);
906       if ((f = fopen(fileName->getCString(), "r"))) {
907         fclose(f);
908         return fileName;
909       }
910       delete fileName;
911     }
912     if (ext2) {
913       fileName = appendToPath(dir->copy(), fontName->getCString());
914       fileName->append(ext2);
915       if ((f = fopen(fileName->getCString(), "r"))) {
916         fclose(f);
917         return fileName;
918       }
919       delete fileName;
920     }
921   }
922   return NULL;
923 }
924
925 CharCodeToUnicode *GlobalParams::getCIDToUnicode(GString *collection) {
926   return cidToUnicodeCache->getCIDToUnicode(collection);
927 }
928
929 UnicodeMap *GlobalParams::getUnicodeMap(GString *encodingName) {
930   UnicodeMap *map;
931
932   if ((map = getResidentUnicodeMap(encodingName))) {
933     map->incRefCnt();
934     return map;
935   }
936   return unicodeMapCache->getUnicodeMap(encodingName);
937 }
938
939 CMap *GlobalParams::getCMap(GString *collection, GString *cMapName) {
940   return cMapCache->getCMap(collection, cMapName);
941 }
942
943 UnicodeMap *GlobalParams::getTextEncoding() {
944   return getUnicodeMap(textEncoding);
945 }
946
947 //------------------------------------------------------------------------
948 // functions to set parameters
949 //------------------------------------------------------------------------
950
951 void GlobalParams::setPSFile(char *file) {
952   if (psFile) {
953     delete psFile;
954   }
955   psFile = new GString(file);
956 }
957
958 GBool GlobalParams::setPSPaperSize(char *size) {
959   if (!strcmp(size, "letter")) {
960     psPaperWidth = 612;
961     psPaperHeight = 792;
962   } else if (!strcmp(size, "legal")) {
963     psPaperWidth = 612;
964     psPaperHeight = 1008;
965   } else if (!strcmp(size, "A4")) {
966     psPaperWidth = 595;
967     psPaperHeight = 842;
968   } else if (!strcmp(size, "A3")) {
969     psPaperWidth = 842;
970     psPaperHeight = 1190;
971   } else {
972     return gFalse;
973   }
974   return gTrue;
975 }
976
977 void GlobalParams::setPSPaperWidth(int width) {
978   psPaperWidth = width;
979 }
980
981 void GlobalParams::setPSPaperHeight(int height) {
982   psPaperHeight = height;
983 }
984
985 void GlobalParams::setPSDuplex(GBool duplex) {
986   psDuplex = duplex;
987 }
988
989 void GlobalParams::setPSLevel(PSLevel level) {
990   psLevel = level;
991 }
992
993 void GlobalParams::setPSEmbedType1(GBool embed) {
994   psEmbedType1 = embed;
995 }
996
997 void GlobalParams::setPSEmbedTrueType(GBool embed) {
998   psEmbedTrueType = embed;
999 }
1000
1001 void GlobalParams::setPSEmbedCIDPostScript(GBool embed) {
1002   psEmbedCIDPostScript = embed;
1003 }
1004
1005 void GlobalParams::setPSEmbedCIDTrueType(GBool embed) {
1006   psEmbedCIDTrueType = embed;
1007 }
1008
1009 void GlobalParams::setPSOPI(GBool opi) {
1010   psOPI = opi;
1011 }
1012
1013 void GlobalParams::setPSASCIIHex(GBool hex) {
1014   psASCIIHex = hex;
1015 }
1016
1017 void GlobalParams::setTextEncoding(char *encodingName) {
1018   delete textEncoding;
1019   textEncoding = new GString(encodingName);
1020 }
1021
1022 GBool GlobalParams::setTextEOL(char *s) {
1023   if (!strcmp(s, "unix")) {
1024     textEOL = eolUnix;
1025   } else if (!strcmp(s, "dos")) {
1026     textEOL = eolDOS;
1027   } else if (!strcmp(s, "mac")) {
1028     textEOL = eolMac;
1029   } else {
1030     return gFalse;
1031   }
1032   return gTrue;
1033 }
1034
1035 void GlobalParams::setInitialZoom(char *s) {
1036   delete initialZoom;
1037   initialZoom = new GString(s);
1038 }
1039
1040 GBool GlobalParams::setT1libControl(char *s) {
1041   return setFontRastControl(&t1libControl, s);
1042 }
1043
1044 GBool GlobalParams::setFreeTypeControl(char *s) {
1045   return setFontRastControl(&freetypeControl, s);
1046 }
1047
1048 GBool GlobalParams::setFontRastControl(FontRastControl *val, char *s) {
1049   if (!strcmp(s, "none")) {
1050     *val = fontRastNone;
1051   } else if (!strcmp(s, "plain")) {
1052     *val = fontRastPlain;
1053   } else if (!strcmp(s, "low")) {
1054     *val = fontRastAALow;
1055   } else if (!strcmp(s, "high")) {
1056     *val = fontRastAAHigh;
1057   } else {
1058     return gFalse;
1059   }
1060   return gTrue;
1061 }
1062
1063 void GlobalParams::setErrQuiet(GBool errQuietA) {
1064   errQuiet = errQuietA;
1065 }