added support for truetype libs using ttf2pt1.
[swftools.git] / pdf2swf / xpdf / Catalog.cc
1 //========================================================================
2 //
3 // Catalog.cc
4 //
5 // Copyright 1996 Derek B. Noonburg
6 //
7 //========================================================================
8
9 #ifdef __GNUC__
10 #pragma implementation
11 #endif
12
13 #include <stddef.h>
14 #include "gmem.h"
15 #include "Object.h"
16 #include "Array.h"
17 #include "Dict.h"
18 #include "Page.h"
19 #include "Error.h"
20 #include "Link.h"
21 #include "Catalog.h"
22
23 //------------------------------------------------------------------------
24 // Catalog
25 //------------------------------------------------------------------------
26
27 Catalog::Catalog(Object *catDict) {
28   Object pagesDict;
29   Object obj, obj2;
30   int numPages0;
31   int i;
32
33   ok = gTrue;
34   pages = NULL;
35   pageRefs = NULL;
36   numPages = pagesSize = 0;
37
38   if (!catDict->isDict()) {
39     error(-1, "Catalog object is wrong type (%s)", catDict->getTypeName());
40     goto err1;
41   }
42
43   // read page tree
44   catDict->dictLookup("Pages", &pagesDict);
45   // This should really be isDict("Pages"), but I've seen at least one
46   // PDF file where the /Type entry is missing.
47   if (!pagesDict.isDict()) {
48     error(-1, "Top-level pages object is wrong type (%s)",
49           pagesDict.getTypeName());
50     goto err2;
51   }
52   pagesDict.dictLookup("Count", &obj);
53   if (!obj.isInt()) {
54     error(-1, "Page count in top-level pages object is wrong type (%s)",
55           obj.getTypeName());
56     goto err3;
57   }
58   pagesSize = numPages0 = obj.getInt();
59   obj.free();
60   pages = (Page **)gmalloc(pagesSize * sizeof(Page *));
61   pageRefs = (Ref *)gmalloc(pagesSize * sizeof(Ref));
62   for (i = 0; i < pagesSize; ++i) {
63     pages[i] = NULL;
64     pageRefs[i].num = -1;
65     pageRefs[i].gen = -1;
66   }
67   numPages = readPageTree(pagesDict.getDict(), NULL, 0);
68   if (numPages != numPages0) {
69     error(-1, "Page count in top-level pages object is incorrect");
70   }
71   pagesDict.free();
72
73   // read named destination dictionary
74   catDict->dictLookup("Dests", &dests);
75
76   // read root of named destination tree
77   if (catDict->dictLookup("Names", &obj)->isDict())
78     obj.dictLookup("Dests", &nameTree);
79   else
80     nameTree.initNull();
81   obj.free();
82
83   // read base URI
84   baseURI = NULL;
85   if (catDict->dictLookup("URI", &obj)->isDict()) {
86     if (obj.dictLookup("Base", &obj2)->isString()) {
87       baseURI = obj2.getString()->copy();
88     }
89     obj2.free();
90   }
91   obj.free();
92
93   return;
94
95  err3:
96   obj.free();
97  err2:
98   pagesDict.free();
99  err1:
100   dests.initNull();
101   nameTree.initNull();
102   ok = gFalse;
103 }
104
105 Catalog::~Catalog() {
106   int i;
107
108   if (pages) {
109     for (i = 0; i < pagesSize; ++i) {
110       if (pages[i]) {
111         delete pages[i];
112       }
113     }
114     gfree(pages);
115     gfree(pageRefs);
116   }
117   dests.free();
118   nameTree.free();
119   if (baseURI) {
120     delete baseURI;
121   }
122 }
123
124 int Catalog::readPageTree(Dict *pagesDict, PageAttrs *attrs, int start) {
125   Object kids;
126   Object kid;
127   Object kidRef;
128   PageAttrs *attrs1, *attrs2;
129   Page *page;
130   int i, j;
131
132   attrs1 = new PageAttrs(attrs, pagesDict);
133   pagesDict->lookup("Kids", &kids);
134   if (!kids.isArray()) {
135     error(-1, "Kids object (page %d) is wrong type (%s)",
136           start+1, kids.getTypeName());
137     goto err1;
138   }
139   for (i = 0; i < kids.arrayGetLength(); ++i) {
140     kids.arrayGet(i, &kid);
141     if (kid.isDict("Page")) {
142       attrs2 = new PageAttrs(attrs1, kid.getDict());
143       page = new Page(start+1, kid.getDict(), attrs2);
144       if (!page->isOk()) {
145         ++start;
146         goto err3;
147       }
148       if (start >= pagesSize) {
149         pagesSize += 32;
150         pages = (Page **)grealloc(pages, pagesSize * sizeof(Page *));
151         pageRefs = (Ref *)grealloc(pageRefs, pagesSize * sizeof(Ref));
152         for (j = pagesSize - 32; j < pagesSize; ++j) {
153           pages[j] = NULL;
154           pageRefs[j].num = -1;
155           pageRefs[j].gen = -1;
156         }
157       }
158       pages[start] = page;
159       kids.arrayGetNF(i, &kidRef);
160       if (kidRef.isRef()) {
161         pageRefs[start].num = kidRef.getRefNum();
162         pageRefs[start].gen = kidRef.getRefGen();
163       }
164       kidRef.free();
165       ++start;
166     // This should really be isDict("Pages"), but I've seen at least one
167     // PDF file where the /Type entry is missing.
168     } else if (kid.isDict()) {
169       if ((start = readPageTree(kid.getDict(), attrs1, start)) < 0)
170         goto err2;
171     } else {
172       error(-1, "Kid object (page %d) is wrong type (%s)",
173             start+1, kid.getTypeName());
174       goto err2;
175     }
176     kid.free();
177   }
178   delete attrs1;
179   kids.free();
180   return start;
181
182  err3:
183   delete page;
184  err2:
185   kid.free();
186  err1:
187   kids.free();
188   delete attrs1;
189   ok = gFalse;
190   return -1;
191 }
192
193 int Catalog::findPage(int num, int gen) {
194   int i;
195
196   for (i = 0; i < numPages; ++i) {
197     if (pageRefs[i].num == num && pageRefs[i].gen == gen)
198       return i + 1;
199   }
200   return 0;
201 }
202
203 LinkDest *Catalog::findDest(GString *name) {
204   LinkDest *dest;
205   Object obj1, obj2;
206   GBool found;
207
208   // try named destination dictionary then name tree
209   found = gFalse;
210   if (dests.isDict()) {
211     if (!dests.dictLookup(name->getCString(), &obj1)->isNull())
212       found = gTrue;
213     else
214       obj1.free();
215   }
216   if (!found && nameTree.isDict()) {
217     if (!findDestInTree(&nameTree, name, &obj1)->isNull())
218       found = gTrue;
219     else
220       obj1.free();
221   }
222   if (!found)
223     return NULL;
224
225   // construct LinkDest
226   dest = NULL;
227   if (obj1.isArray()) {
228     dest = new LinkDest(obj1.getArray(), gTrue);
229   } else if (obj1.isDict()) {
230     if (obj1.dictLookup("D", &obj2)->isArray())
231       dest = new LinkDest(obj2.getArray(), gTrue);
232     else
233       error(-1, "Bad named destination value");
234     obj2.free();
235   } else {
236     error(-1, "Bad named destination value");
237   }
238   obj1.free();
239
240   return dest;
241 }
242
243 Object *Catalog::findDestInTree(Object *tree, GString *name, Object *obj) {
244   Object names, name1;
245   Object kids, kid, limits, low, high;
246   GBool done, found;
247   int cmp, i;
248
249   // leaf node
250   if (tree->dictLookup("Names", &names)->isArray()) {
251     done = found = gFalse;
252     for (i = 0; !done && i < names.arrayGetLength(); i += 2) {
253       if (names.arrayGet(i, &name1)->isString()) {
254         cmp = name->cmp(name1.getString());
255         if (cmp == 0) {
256           names.arrayGet(i+1, obj);
257           found = gTrue;
258           done = gTrue;
259         } else if (cmp < 0) {
260           done = gTrue;
261         }
262         name1.free();
263       }
264     }
265     names.free();
266     if (!found)
267       obj->initNull();
268     return obj;
269   }
270   names.free();
271
272   // root or intermediate node
273   done = gFalse;
274   if (tree->dictLookup("Kids", &kids)->isArray()) {
275     for (i = 0; !done && i < kids.arrayGetLength(); ++i) {
276       if (kids.arrayGet(i, &kid)->isDict()) {
277         if (kid.dictLookup("Limits", &limits)->isArray()) {
278           if (limits.arrayGet(0, &low)->isString() &&
279               name->cmp(low.getString()) >= 0) {
280             if (limits.arrayGet(1, &high)->isString() &&
281                 name->cmp(high.getString()) <= 0) {
282               findDestInTree(&kid, name, obj);
283               done = gTrue;
284             }
285             high.free();
286           }
287           low.free();
288         }
289         limits.free();
290       }
291       kid.free();
292     }
293   }
294   kids.free();
295
296   // name was outside of ranges of all kids
297   if (!done)
298     obj->initNull();
299
300   return obj;
301 }