xpdf-3.02 fixes
[swftools.git] / lib / xpdf / Link.cc
1 //========================================================================
2 //
3 // Link.cc
4 //
5 // Copyright 1996-2003 Glyph & Cog, LLC
6 //
7 //========================================================================
8
9 #include <aconf.h>
10
11 #ifdef USE_GCC_PRAGMAS
12 #pragma implementation
13 #endif
14
15 #include <stddef.h>
16 #include <string.h>
17 #include "gmem.h"
18 #include "GString.h"
19 #include "Error.h"
20 #include "Object.h"
21 #include "Array.h"
22 #include "Dict.h"
23 #include "Link.h"
24
25 //------------------------------------------------------------------------
26 // LinkAction
27 //------------------------------------------------------------------------
28
29 LinkAction *LinkAction::parseDest(Object *obj) {
30   LinkAction *action;
31
32   action = new LinkGoTo(obj);
33   if (!action->isOk()) {
34     delete action;
35     return NULL;
36   }
37   return action;
38 }
39
40 LinkAction *LinkAction::parseAction(Object *obj, GString *baseURI) {
41   LinkAction *action;
42   Object obj2, obj3, obj4;
43
44   if (!obj->isDict()) {
45     error(-1, "Bad annotation action");
46     return NULL;
47   }
48
49   obj->dictLookup("S", &obj2);
50
51   // GoTo action
52   if (obj2.isName("GoTo")) {
53     obj->dictLookup("D", &obj3);
54     action = new LinkGoTo(&obj3);
55     obj3.free();
56
57   // GoToR action
58   } else if (obj2.isName("GoToR")) {
59     obj->dictLookup("F", &obj3);
60     obj->dictLookup("D", &obj4);
61     action = new LinkGoToR(&obj3, &obj4);
62     obj3.free();
63     obj4.free();
64
65   // Launch action
66   } else if (obj2.isName("Launch")) {
67     action = new LinkLaunch(obj);
68
69   // URI action
70   } else if (obj2.isName("URI")) {
71     obj->dictLookup("URI", &obj3);
72     action = new LinkURI(&obj3, baseURI);
73     obj3.free();
74
75   // Named action
76   } else if (obj2.isName("Named")) {
77     obj->dictLookup("N", &obj3);
78     action = new LinkNamed(&obj3);
79     obj3.free();
80
81   // Movie action
82   } else if (obj2.isName("Movie")) {
83     obj->dictLookupNF("Annot", &obj3);
84     obj->dictLookup("T", &obj4);
85     action = new LinkMovie(&obj3, &obj4);
86     obj3.free();
87     obj4.free();
88
89   // unknown action
90   } else if (obj2.isName()) {
91     action = new LinkUnknown(obj2.getName());
92
93   // action is missing or wrong type
94   } else {
95     error(-1, "Bad annotation action");
96     action = NULL;
97   }
98
99   obj2.free();
100
101   if (action && !action->isOk()) {
102     delete action;
103     return NULL;
104   }
105   return action;
106 }
107
108 GString *LinkAction::getFileSpecName(Object *fileSpecObj) {
109   GString *name;
110   Object obj1;
111
112   name = NULL;
113
114   // string
115   if (fileSpecObj->isString()) {
116     name = fileSpecObj->getString()->copy();
117
118   // dictionary
119   } else if (fileSpecObj->isDict()) {
120 #ifdef WIN32
121     if (!fileSpecObj->dictLookup("DOS", &obj1)->isString()) {
122 #else
123     if (!fileSpecObj->dictLookup("Unix", &obj1)->isString()) {
124 #endif
125       obj1.free();
126       fileSpecObj->dictLookup("F", &obj1);
127     }
128     if (obj1.isString()) {
129       name = obj1.getString()->copy();
130     } else {
131       error(-1, "Illegal file spec in link");
132     }
133     obj1.free();
134
135   // error
136   } else {
137     error(-1, "Illegal file spec in link");
138   }
139
140   // system-dependent path manipulation
141   if (name) {
142 #ifdef WIN32
143     int i, j;
144
145     // "//...."             --> "\...."
146     // "/x/...."            --> "x:\...."
147     // "/server/share/...." --> "\\server\share\...."
148     // convert escaped slashes to slashes and unescaped slashes to backslashes
149     i = 0;
150     if (name->getChar(0) == '/') {
151       if (name->getLength() >= 2 && name->getChar(1) == '/') {
152         name->del(0);
153         i = 0;
154       } else if (name->getLength() >= 2 &&
155                  ((name->getChar(1) >= 'a' && name->getChar(1) <= 'z') ||
156                   (name->getChar(1) >= 'A' && name->getChar(1) <= 'Z')) &&
157                  (name->getLength() == 2 || name->getChar(2) == '/')) {
158         name->setChar(0, name->getChar(1));
159         name->setChar(1, ':');
160         i = 2;
161       } else {
162         for (j = 2; j < name->getLength(); ++j) {
163           if (name->getChar(j-1) != '\\' &&
164               name->getChar(j) == '/') {
165             break;
166           }
167         }
168         if (j < name->getLength()) {
169           name->setChar(0, '\\');
170           name->insert(0, '\\');
171           i = 2;
172         }
173       }
174     }
175     for (; i < name->getLength(); ++i) {
176       if (name->getChar(i) == '/') {
177         name->setChar(i, '\\');
178       } else if (name->getChar(i) == '\\' &&
179                  i+1 < name->getLength() &&
180                  name->getChar(i+1) == '/') {
181         name->del(i);
182       }
183     }
184 #else
185     // no manipulation needed for Unix
186 #endif
187   }
188
189   return name;
190 }
191
192 //------------------------------------------------------------------------
193 // LinkDest
194 //------------------------------------------------------------------------
195
196 LinkDest::LinkDest(Array *a) {
197   Object obj1, obj2;
198
199   // initialize fields
200   left = bottom = right = top = zoom = 0;
201   ok = gFalse;
202
203   // get page
204   if (a->getLength() < 2) {
205     error(-1, "Annotation destination array is too short");
206     return;
207   }
208   a->getNF(0, &obj1);
209   if (obj1.isInt()) {
210     pageNum = obj1.getInt() + 1;
211     pageIsRef = gFalse;
212   } else if (obj1.isRef()) {
213     pageRef.num = obj1.getRefNum();
214     pageRef.gen = obj1.getRefGen();
215     pageIsRef = gTrue;
216   } else {
217     error(-1, "Bad annotation destination");
218     goto err2;
219   }
220   obj1.free();
221
222   // get destination type
223   a->get(1, &obj1);
224
225   // XYZ link
226   if (obj1.isName("XYZ")) {
227     kind = destXYZ;
228     if (a->getLength() < 3) {
229       changeLeft = gFalse;
230     } else {
231       a->get(2, &obj2);
232       if (obj2.isNull()) {
233         changeLeft = gFalse;
234       } else if (obj2.isNum()) {
235         changeLeft = gTrue;
236         left = obj2.getNum();
237       } else {
238         error(-1, "Bad annotation destination position");
239         goto err1;
240       }
241       obj2.free();
242     }
243     if (a->getLength() < 4) {
244       changeTop = gFalse;
245     } else {
246       a->get(3, &obj2);
247       if (obj2.isNull()) {
248         changeTop = gFalse;
249       } else if (obj2.isNum()) {
250         changeTop = gTrue;
251         top = obj2.getNum();
252       } else {
253         error(-1, "Bad annotation destination position");
254         goto err1;
255       }
256       obj2.free();
257     }
258     if (a->getLength() < 5) {
259       changeZoom = gFalse;
260     } else {
261       a->get(4, &obj2);
262       if (obj2.isNull()) {
263         changeZoom = gFalse;
264       } else if (obj2.isNum()) {
265         changeZoom = gTrue;
266         zoom = obj2.getNum();
267       } else {
268         error(-1, "Bad annotation destination position");
269         goto err1;
270       }
271       obj2.free();
272     }
273
274   // Fit link
275   } else if (obj1.isName("Fit")) {
276     if (a->getLength() < 2) {
277       error(-1, "Annotation destination array is too short");
278       goto err2;
279     }
280     kind = destFit;
281
282   // FitH link
283   } else if (obj1.isName("FitH")) {
284     if (a->getLength() < 3) {
285       error(-1, "Annotation destination array is too short");
286       goto err2;
287     }
288     kind = destFitH;
289     if (!a->get(2, &obj2)->isNum()) {
290       error(-1, "Bad annotation destination position");
291       goto err1;
292     }
293     top = obj2.getNum();
294     obj2.free();
295
296   // FitV link
297   } else if (obj1.isName("FitV")) {
298     if (a->getLength() < 3) {
299       error(-1, "Annotation destination array is too short");
300       goto err2;
301     }
302     kind = destFitV;
303     if (!a->get(2, &obj2)->isNum()) {
304       error(-1, "Bad annotation destination position");
305       goto err1;
306     }
307     left = obj2.getNum();
308     obj2.free();
309
310   // FitR link
311   } else if (obj1.isName("FitR")) {
312     if (a->getLength() < 6) {
313       error(-1, "Annotation destination array is too short");
314       goto err2;
315     }
316     kind = destFitR;
317     if (!a->get(2, &obj2)->isNum()) {
318       error(-1, "Bad annotation destination position");
319       goto err1;
320     }
321     left = obj2.getNum();
322     obj2.free();
323     if (!a->get(3, &obj2)->isNum()) {
324       error(-1, "Bad annotation destination position");
325       goto err1;
326     }
327     bottom = obj2.getNum();
328     obj2.free();
329     if (!a->get(4, &obj2)->isNum()) {
330       error(-1, "Bad annotation destination position");
331       goto err1;
332     }
333     right = obj2.getNum();
334     obj2.free();
335     if (!a->get(5, &obj2)->isNum()) {
336       error(-1, "Bad annotation destination position");
337       goto err1;
338     }
339     top = obj2.getNum();
340     obj2.free();
341
342   // FitB link
343   } else if (obj1.isName("FitB")) {
344     if (a->getLength() < 2) {
345       error(-1, "Annotation destination array is too short");
346       goto err2;
347     }
348     kind = destFitB;
349
350   // FitBH link
351   } else if (obj1.isName("FitBH")) {
352     if (a->getLength() < 3) {
353       error(-1, "Annotation destination array is too short");
354       goto err2;
355     }
356     kind = destFitBH;
357     if (!a->get(2, &obj2)->isNum()) {
358       error(-1, "Bad annotation destination position");
359       goto err1;
360     }
361     top = obj2.getNum();
362     obj2.free();
363
364   // FitBV link
365   } else if (obj1.isName("FitBV")) {
366     if (a->getLength() < 3) {
367       error(-1, "Annotation destination array is too short");
368       goto err2;
369     }
370     kind = destFitBV;
371     if (!a->get(2, &obj2)->isNum()) {
372       error(-1, "Bad annotation destination position");
373       goto err1;
374     }
375     left = obj2.getNum();
376     obj2.free();
377
378   // unknown link kind
379   } else {
380     error(-1, "Unknown annotation destination type");
381     goto err2;
382   }
383
384   obj1.free();
385   ok = gTrue;
386   return;
387
388  err1:
389   obj2.free();
390  err2:
391   obj1.free();
392 }
393
394 LinkDest::LinkDest(LinkDest *dest) {
395   kind = dest->kind;
396   pageIsRef = dest->pageIsRef;
397   if (pageIsRef)
398     pageRef = dest->pageRef;
399   else
400     pageNum = dest->pageNum;
401   left = dest->left;
402   bottom = dest->bottom;
403   right = dest->right;
404   top = dest->top;
405   zoom = dest->zoom;
406   changeLeft = dest->changeLeft;
407   changeTop = dest->changeTop;
408   changeZoom = dest->changeZoom;
409   ok = gTrue;
410 }
411
412 //------------------------------------------------------------------------
413 // LinkGoTo
414 //------------------------------------------------------------------------
415
416 LinkGoTo::LinkGoTo(Object *destObj) {
417   dest = NULL;
418   namedDest = NULL;
419
420   // named destination
421   if (destObj->isName()) {
422     namedDest = new GString(destObj->getName());
423   } else if (destObj->isString()) {
424     namedDest = destObj->getString()->copy();
425
426   // destination dictionary
427   } else if (destObj->isArray()) {
428     dest = new LinkDest(destObj->getArray());
429     if (!dest->isOk()) {
430       delete dest;
431       dest = NULL;
432     }
433   // error
434   } else {
435     error(-1, "Illegal annotation destination %d", destObj->getType());
436   }
437 }
438
439 LinkGoTo::~LinkGoTo() {
440   if (dest)
441     delete dest;
442   if (namedDest)
443     delete namedDest;
444 }
445
446 //------------------------------------------------------------------------
447 // LinkGoToR
448 //------------------------------------------------------------------------
449
450 LinkGoToR::LinkGoToR(Object *fileSpecObj, Object *destObj) {
451   dest = NULL;
452   namedDest = NULL;
453
454   // get file name
455   fileName = getFileSpecName(fileSpecObj);
456
457   // named destination
458   if (destObj->isName()) {
459     namedDest = new GString(destObj->getName());
460   } else if (destObj->isString()) {
461     namedDest = destObj->getString()->copy();
462
463   // destination dictionary
464   } else if (destObj->isArray()) {
465     dest = new LinkDest(destObj->getArray());
466     if (!dest->isOk()) {
467       delete dest;
468       dest = NULL;
469     }
470   // error
471   } else {
472     error(-1, "Illegal annotation destination %d", destObj->getType());
473   }
474 }
475
476 LinkGoToR::~LinkGoToR() {
477   if (fileName)
478     delete fileName;
479   if (dest)
480     delete dest;
481   if (namedDest)
482     delete namedDest;
483 }
484
485
486 //------------------------------------------------------------------------
487 // LinkLaunch
488 //------------------------------------------------------------------------
489
490 LinkLaunch::LinkLaunch(Object *actionObj) {
491   Object obj1, obj2;
492
493   fileName = NULL;
494   params = NULL;
495
496   if (actionObj->isDict()) {
497     if (!actionObj->dictLookup("F", &obj1)->isNull()) {
498       fileName = getFileSpecName(&obj1);
499     } else {
500       obj1.free();
501 #ifdef WIN32
502       if (actionObj->dictLookup("Win", &obj1)->isDict()) {
503         obj1.dictLookup("F", &obj2);
504         fileName = getFileSpecName(&obj2);
505         obj2.free();
506         if (obj1.dictLookup("P", &obj2)->isString()) {
507           params = obj2.getString()->copy();
508         }
509         obj2.free();
510       } else {
511         error(-1, "Bad launch-type link action");
512       }
513 #else
514       //~ This hasn't been defined by Adobe yet, so assume it looks
515       //~ just like the Win dictionary until they say otherwise.
516       if (actionObj->dictLookup("Unix", &obj1)->isDict()) {
517         obj1.dictLookup("F", &obj2);
518         fileName = getFileSpecName(&obj2);
519         obj2.free();
520         if (obj1.dictLookup("P", &obj2)->isString()) {
521           params = obj2.getString()->copy();
522         }
523         obj2.free();
524       } else {
525         error(-1, "Bad launch-type link action");
526       }
527 #endif
528     }
529     obj1.free();
530   }
531 }
532
533 LinkLaunch::~LinkLaunch() {
534   if (fileName)
535     delete fileName;
536   if (params)
537     delete params;
538 }
539
540 //------------------------------------------------------------------------
541 // LinkURI
542 //------------------------------------------------------------------------
543
544 LinkURI::LinkURI(Object *uriObj, GString *baseURI) {
545   GString *uri2;
546   int n;
547   char c;
548
549   uri = NULL;
550   if (uriObj->isString()) {
551     uri2 = uriObj->getString()->copy();
552     if (baseURI && baseURI->getLength() > 0) {
553       n = strcspn(uri2->getCString(), "/:");
554       if (n == uri2->getLength() || uri2->getChar(n) == '/') {
555         uri = baseURI->copy();
556         c = uri->getChar(uri->getLength() - 1);
557         if (c == '/' || c == '?') {
558           if (uri2->getChar(0) == '/') {
559             uri2->del(0);
560           }
561         } else {
562           if (uri2->getChar(0) != '/') {
563             uri->append('/');
564           }
565         }
566         uri->append(uri2);
567         delete uri2;
568       } else {
569         uri = uri2;
570       }
571     } else {
572       uri = uri2;
573     }
574   } else {
575     error(-1, "Illegal URI-type link");
576   }
577 }
578
579 LinkURI::~LinkURI() {
580   if (uri)
581     delete uri;
582 }
583
584 //------------------------------------------------------------------------
585 // LinkNamed
586 //------------------------------------------------------------------------
587
588 LinkNamed::LinkNamed(Object *nameObj) {
589   name = NULL;
590   if (nameObj->isName()) {
591     name = new GString(nameObj->getName());
592   }
593 }
594
595 LinkNamed::~LinkNamed() {
596   if (name) {
597     delete name;
598   }
599 }
600
601 //------------------------------------------------------------------------
602 // LinkMovie
603 //------------------------------------------------------------------------
604
605 LinkMovie::LinkMovie(Object *annotObj, Object *titleObj) {
606   annotRef.num = -1;
607   title = NULL;
608   if (annotObj->isRef()) {
609     annotRef = annotObj->getRef();
610   } else if (titleObj->isString()) {
611     title = titleObj->getString()->copy();
612   } else {
613     error(-1, "Movie action is missing both the Annot and T keys");
614   }
615 }
616
617 LinkMovie::~LinkMovie() {
618   if (title) {
619     delete title;
620   }
621 }
622
623 //------------------------------------------------------------------------
624 // LinkUnknown
625 //------------------------------------------------------------------------
626
627 LinkUnknown::LinkUnknown(char *actionA) {
628   action = new GString(actionA);
629 }
630
631 LinkUnknown::~LinkUnknown() {
632   delete action;
633 }
634
635 //------------------------------------------------------------------------
636 // LinkBorderStyle
637 //------------------------------------------------------------------------
638
639 LinkBorderStyle::LinkBorderStyle(LinkBorderType typeA, double widthA,
640                                  double *dashA, int dashLengthA,
641                                  double rA, double gA, double bA) {
642   type = typeA;
643   width = widthA;
644   dash = dashA;
645   dashLength = dashLengthA;
646   r = rA;
647   g = gA;
648   b = bA;
649 }
650
651 LinkBorderStyle::~LinkBorderStyle() {
652   if (dash) {
653     gfree(dash);
654   }
655 }
656
657 //------------------------------------------------------------------------
658 // Link
659 //------------------------------------------------------------------------
660
661 Link::Link(Dict *dict, GString *baseURI) {
662   Object obj1, obj2, obj3;
663   LinkBorderType borderType;
664   double borderWidth;
665   double *borderDash;
666   int borderDashLength;
667   double borderR, borderG, borderB;
668   double t;
669   int i;
670
671   borderStyle = NULL;
672   action = NULL;
673   ok = gFalse;
674
675   // get rectangle
676   if (!dict->lookup("Rect", &obj1)->isArray()) {
677     error(-1, "Annotation rectangle is wrong type");
678     goto err2;
679   }
680   if (!obj1.arrayGet(0, &obj2)->isNum()) {
681     error(-1, "Bad annotation rectangle");
682     goto err1;
683   }
684   x1 = obj2.getNum();
685   obj2.free();
686   if (!obj1.arrayGet(1, &obj2)->isNum()) {
687     error(-1, "Bad annotation rectangle");
688     goto err1;
689   }
690   y1 = obj2.getNum();
691   obj2.free();
692   if (!obj1.arrayGet(2, &obj2)->isNum()) {
693     error(-1, "Bad annotation rectangle");
694     goto err1;
695   }
696   x2 = obj2.getNum();
697   obj2.free();
698   if (!obj1.arrayGet(3, &obj2)->isNum()) {
699     error(-1, "Bad annotation rectangle");
700     goto err1;
701   }
702   y2 = obj2.getNum();
703   obj2.free();
704   obj1.free();
705   if (x1 > x2) {
706     t = x1;
707     x1 = x2;
708     x2 = t;
709   }
710   if (y1 > y2) {
711     t = y1;
712     y1 = y2;
713     y2 = t;
714   }
715
716   // get the border style info
717   borderType = linkBorderSolid;
718   borderWidth = 1;
719   borderDash = NULL;
720   borderDashLength = 0;
721   borderR = 0;
722   borderG = 0;
723   borderB = 1;
724   if (dict->lookup("BS", &obj1)->isDict()) {
725     if (obj1.dictLookup("S", &obj2)->isName()) {
726       if (obj2.isName("S")) {
727         borderType = linkBorderSolid;
728       } else if (obj2.isName("D")) {
729         borderType = linkBorderDashed;
730       } else if (obj2.isName("B")) {
731         borderType = linkBorderEmbossed;
732       } else if (obj2.isName("I")) {
733         borderType = linkBorderEngraved;
734       } else if (obj2.isName("U")) {
735         borderType = linkBorderUnderlined;
736       }
737     }
738     obj2.free();
739     if (obj1.dictLookup("W", &obj2)->isNum()) {
740       borderWidth = obj2.getNum();
741     }
742     obj2.free();
743     if (obj1.dictLookup("D", &obj2)->isArray()) {
744       borderDashLength = obj2.arrayGetLength();
745       borderDash = (double *)gmallocn(borderDashLength, sizeof(double));
746       for (i = 0; i < borderDashLength; ++i) {
747         if (obj2.arrayGet(i, &obj3)->isNum()) {
748           borderDash[i] = obj3.getNum();
749         } else {
750           borderDash[i] = 1;
751         }
752         obj3.free();
753       }
754     }
755     obj2.free();
756   } else {
757     obj1.free();
758     if (dict->lookup("Border", &obj1)->isArray()) {
759       if (obj1.arrayGetLength() >= 3) {
760         if (obj1.arrayGet(2, &obj2)->isNum()) {
761           borderWidth = obj2.getNum();
762         }
763         obj2.free();
764         if (obj1.arrayGetLength() >= 4) {
765           if (obj1.arrayGet(3, &obj2)->isArray()) {
766             borderType = linkBorderDashed;
767             borderDashLength = obj2.arrayGetLength();
768             borderDash = (double *)gmallocn(borderDashLength, sizeof(double));
769             for (i = 0; i < borderDashLength; ++i) {
770               if (obj2.arrayGet(i, &obj3)->isNum()) {
771                 borderDash[i] = obj3.getNum();
772               } else {
773                 borderDash[i] = 1;
774               }
775               obj3.free();
776             }
777           } else {
778             // Adobe draws no border at all if the last element is of
779             // the wrong type.
780             borderWidth = 0;
781           }
782           obj2.free();
783         }
784       }
785     }
786   }
787   obj1.free();
788   if (dict->lookup("C", &obj1)->isArray() && obj1.arrayGetLength() == 3) {
789     if (obj1.arrayGet(0, &obj2)->isNum()) {
790       borderR = obj2.getNum();
791     }
792     obj1.free();
793     if (obj1.arrayGet(1, &obj2)->isNum()) {
794       borderG = obj2.getNum();
795     }
796     obj1.free();
797     if (obj1.arrayGet(2, &obj2)->isNum()) {
798       borderB = obj2.getNum();
799     }
800     obj1.free();
801   }
802   obj1.free();
803   borderStyle = new LinkBorderStyle(borderType, borderWidth,
804                                     borderDash, borderDashLength,
805                                     borderR, borderG, borderB);
806
807   // look for destination
808   if (!dict->lookup("Dest", &obj1)->isNull()) {
809     action = LinkAction::parseDest(&obj1);
810
811   // look for action
812   } else {
813     obj1.free();
814     if (dict->lookup("A", &obj1)->isDict()) {
815       action = LinkAction::parseAction(&obj1, baseURI);
816     }
817   }
818   obj1.free();
819
820   // check for bad action
821   if (action) {
822     ok = gTrue;
823   }
824
825   return;
826
827  err1:
828   obj2.free();
829  err2:
830   obj1.free();
831 }
832
833 Link::~Link() {
834   if (borderStyle) {
835     delete borderStyle;
836   }
837   if (action) {
838     delete action;
839   }
840 }
841
842 //------------------------------------------------------------------------
843 // Links
844 //------------------------------------------------------------------------
845
846 Links::Links(Object *annots, GString *baseURI) {
847   Link *link;
848   Object obj1, obj2;
849   int size;
850   int i;
851
852   links = NULL;
853   size = 0;
854   numLinks = 0;
855
856   if (annots->isArray()) {
857     for (i = 0; i < annots->arrayGetLength(); ++i) {
858       if (annots->arrayGet(i, &obj1)->isDict()) {
859         if (obj1.dictLookup("Subtype", &obj2)->isName("Link")) {
860           link = new Link(obj1.getDict(), baseURI);
861           if (link->isOk()) {
862             if (numLinks >= size) {
863               size += 16;
864               links = (Link **)greallocn(links, size, sizeof(Link *));
865             }
866             links[numLinks++] = link;
867           } else {
868             delete link;
869           }
870         }
871         obj2.free();
872       }
873       obj1.free();
874     }
875   }
876 }
877
878 Links::~Links() {
879   int i;
880
881   for (i = 0; i < numLinks; ++i)
882     delete links[i];
883   gfree(links);
884 }
885
886 LinkAction *Links::find(double x, double y) {
887   int i;
888
889   for (i = numLinks - 1; i >= 0; --i) {
890     if (links[i]->inRect(x, y)) {
891       return links[i]->getAction();
892     }
893   }
894   return NULL;
895 }
896
897 GBool Links::onLink(double x, double y) {
898   int i;
899
900   for (i = 0; i < numLinks; ++i) {
901     if (links[i]->inRect(x, y))
902       return gTrue;
903   }
904   return gFalse;
905 }