Load cups into easysw/current.
[thirdparty/cups.git] / pdftops / Link.cxx
1 //========================================================================
2 //
3 // Link.cc
4 //
5 // Copyright 1996-2003 Glyph & Cog, LLC
6 //
7 //========================================================================
8
9 #include <config.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
434   // error
435   } else {
436     error(-1, "Illegal annotation destination");
437   }
438 }
439
440 LinkGoTo::~LinkGoTo() {
441   if (dest)
442     delete dest;
443   if (namedDest)
444     delete namedDest;
445 }
446
447 //------------------------------------------------------------------------
448 // LinkGoToR
449 //------------------------------------------------------------------------
450
451 LinkGoToR::LinkGoToR(Object *fileSpecObj, Object *destObj) {
452   dest = NULL;
453   namedDest = NULL;
454
455   // get file name
456   fileName = getFileSpecName(fileSpecObj);
457
458   // named destination
459   if (destObj->isName()) {
460     namedDest = new GString(destObj->getName());
461   } else if (destObj->isString()) {
462     namedDest = destObj->getString()->copy();
463
464   // destination dictionary
465   } else if (destObj->isArray()) {
466     dest = new LinkDest(destObj->getArray());
467     if (!dest->isOk()) {
468       delete dest;
469       dest = NULL;
470     }
471
472   // error
473   } else {
474     error(-1, "Illegal annotation destination");
475   }
476 }
477
478 LinkGoToR::~LinkGoToR() {
479   if (fileName)
480     delete fileName;
481   if (dest)
482     delete dest;
483   if (namedDest)
484     delete namedDest;
485 }
486
487
488 //------------------------------------------------------------------------
489 // LinkLaunch
490 //------------------------------------------------------------------------
491
492 LinkLaunch::LinkLaunch(Object *actionObj) {
493   Object obj1, obj2;
494
495   fileName = NULL;
496   params = NULL;
497
498   if (actionObj->isDict()) {
499     if (!actionObj->dictLookup("F", &obj1)->isNull()) {
500       fileName = getFileSpecName(&obj1);
501     } else {
502       obj1.free();
503 #ifdef WIN32
504       if (actionObj->dictLookup("Win", &obj1)->isDict()) {
505         obj1.dictLookup("F", &obj2);
506         fileName = getFileSpecName(&obj2);
507         obj2.free();
508         if (obj1.dictLookup("P", &obj2)->isString()) {
509           params = obj2.getString()->copy();
510         }
511         obj2.free();
512       } else {
513         error(-1, "Bad launch-type link action");
514       }
515 #else
516       //~ This hasn't been defined by Adobe yet, so assume it looks
517       //~ just like the Win dictionary until they say otherwise.
518       if (actionObj->dictLookup("Unix", &obj1)->isDict()) {
519         obj1.dictLookup("F", &obj2);
520         fileName = getFileSpecName(&obj2);
521         obj2.free();
522         if (obj1.dictLookup("P", &obj2)->isString()) {
523           params = obj2.getString()->copy();
524         }
525         obj2.free();
526       } else {
527         error(-1, "Bad launch-type link action");
528       }
529 #endif
530     }
531     obj1.free();
532   }
533 }
534
535 LinkLaunch::~LinkLaunch() {
536   if (fileName)
537     delete fileName;
538   if (params)
539     delete params;
540 }
541
542 //------------------------------------------------------------------------
543 // LinkURI
544 //------------------------------------------------------------------------
545
546 LinkURI::LinkURI(Object *uriObj, GString *baseURI) {
547   GString *uri2;
548   int n;
549   char c;
550
551   uri = NULL;
552   if (uriObj->isString()) {
553     uri2 = uriObj->getString()->copy();
554     if (baseURI && baseURI->getLength() > 0) {
555       n = strcspn(uri2->getCString(), "/:");
556       if (n == uri2->getLength() || uri2->getChar(n) == '/') {
557         uri = baseURI->copy();
558         c = uri->getChar(uri->getLength() - 1);
559         if (c == '/' || c == '?') {
560           if (uri2->getChar(0) == '/') {
561             uri2->del(0);
562           }
563         } else {
564           if (uri2->getChar(0) != '/') {
565             uri->append('/');
566           }
567         }
568         uri->append(uri2);
569         delete uri2;
570       } else {
571         uri = uri2;
572       }
573     } else {
574       uri = uri2;
575     }
576   } else {
577     error(-1, "Illegal URI-type link");
578   }
579 }
580
581 LinkURI::~LinkURI() {
582   if (uri)
583     delete uri;
584 }
585
586 //------------------------------------------------------------------------
587 // LinkNamed
588 //------------------------------------------------------------------------
589
590 LinkNamed::LinkNamed(Object *nameObj) {
591   name = NULL;
592   if (nameObj->isName()) {
593     name = new GString(nameObj->getName());
594   }
595 }
596
597 LinkNamed::~LinkNamed() {
598   if (name) {
599     delete name;
600   }
601 }
602
603 //------------------------------------------------------------------------
604 // LinkMovie
605 //------------------------------------------------------------------------
606
607 LinkMovie::LinkMovie(Object *annotObj, Object *titleObj) {
608   annotRef.num = -1;
609   title = NULL;
610   if (annotObj->isRef()) {
611     annotRef = annotObj->getRef();
612   } else if (titleObj->isString()) {
613     title = titleObj->getString()->copy();
614   } else {
615     error(-1, "Movie action is missing both the Annot and T keys");
616   }
617 }
618
619 LinkMovie::~LinkMovie() {
620   if (title) {
621     delete title;
622   }
623 }
624
625 //------------------------------------------------------------------------
626 // LinkUnknown
627 //------------------------------------------------------------------------
628
629 LinkUnknown::LinkUnknown(char *actionA) {
630   action = new GString(actionA);
631 }
632
633 LinkUnknown::~LinkUnknown() {
634   delete action;
635 }
636
637 //------------------------------------------------------------------------
638 // LinkBorderStyle
639 //------------------------------------------------------------------------
640
641 LinkBorderStyle::LinkBorderStyle(LinkBorderType typeA, double widthA,
642                                  double *dashA, int dashLengthA,
643                                  double rA, double gA, double bA) {
644   type = typeA;
645   width = widthA;
646   dash = dashA;
647   dashLength = dashLengthA;
648   r = rA;
649   g = gA;
650   b = bA;
651 }
652
653 LinkBorderStyle::~LinkBorderStyle() {
654   if (dash) {
655     gfree(dash);
656   }
657 }
658
659 //------------------------------------------------------------------------
660 // Link
661 //------------------------------------------------------------------------
662
663 Link::Link(Dict *dict, GString *baseURI) {
664   Object obj1, obj2, obj3;
665   LinkBorderType borderType;
666   double borderWidth;
667   double *borderDash;
668   int borderDashLength;
669   double borderR, borderG, borderB;
670   double t;
671   int i;
672
673   borderStyle = NULL;
674   action = NULL;
675   ok = gFalse;
676
677   // get rectangle
678   if (!dict->lookup("Rect", &obj1)->isArray()) {
679     error(-1, "Annotation rectangle is wrong type");
680     goto err2;
681   }
682   if (!obj1.arrayGet(0, &obj2)->isNum()) {
683     error(-1, "Bad annotation rectangle");
684     goto err1;
685   }
686   x1 = obj2.getNum();
687   obj2.free();
688   if (!obj1.arrayGet(1, &obj2)->isNum()) {
689     error(-1, "Bad annotation rectangle");
690     goto err1;
691   }
692   y1 = obj2.getNum();
693   obj2.free();
694   if (!obj1.arrayGet(2, &obj2)->isNum()) {
695     error(-1, "Bad annotation rectangle");
696     goto err1;
697   }
698   x2 = obj2.getNum();
699   obj2.free();
700   if (!obj1.arrayGet(3, &obj2)->isNum()) {
701     error(-1, "Bad annotation rectangle");
702     goto err1;
703   }
704   y2 = obj2.getNum();
705   obj2.free();
706   obj1.free();
707   if (x1 > x2) {
708     t = x1;
709     x1 = x2;
710     x2 = t;
711   }
712   if (y1 > y2) {
713     t = y1;
714     y1 = y2;
715     y2 = t;
716   }
717
718   // get the border style info
719   borderType = linkBorderSolid;
720   borderWidth = 1;
721   borderDash = NULL;
722   borderDashLength = 0;
723   borderR = 0;
724   borderG = 0;
725   borderB = 1;
726   if (dict->lookup("BS", &obj1)->isDict()) {
727     if (obj1.dictLookup("S", &obj2)->isName()) {
728       if (obj2.isName("S")) {
729         borderType = linkBorderSolid;
730       } else if (obj2.isName("D")) {
731         borderType = linkBorderDashed;
732       } else if (obj2.isName("B")) {
733         borderType = linkBorderEmbossed;
734       } else if (obj2.isName("I")) {
735         borderType = linkBorderEngraved;
736       } else if (obj2.isName("U")) {
737         borderType = linkBorderUnderlined;
738       }
739     }
740     obj2.free();
741     if (obj1.dictLookup("W", &obj2)->isNum()) {
742       borderWidth = obj2.getNum();
743     }
744     obj2.free();
745     if (obj1.dictLookup("D", &obj2)->isArray()) {
746       borderDashLength = obj2.arrayGetLength();
747       borderDash = (double *)gmallocn(borderDashLength, sizeof(double));
748       for (i = 0; i < borderDashLength; ++i) {
749         if (obj2.arrayGet(i, &obj3)->isNum()) {
750           borderDash[i] = obj3.getNum();
751         } else {
752           borderDash[i] = 1;
753         }
754         obj3.free();
755       }
756     }
757     obj2.free();
758   } else {
759     obj1.free();
760     if (dict->lookup("Border", &obj1)->isArray()) {
761       if (obj1.arrayGetLength() >= 3) {
762         if (obj1.arrayGet(2, &obj2)->isNum()) {
763           borderWidth = obj2.getNum();
764         }
765         obj2.free();
766         if (obj1.arrayGetLength() >= 4) {
767           if (obj1.arrayGet(3, &obj2)->isArray()) {
768             borderType = linkBorderDashed;
769             borderDashLength = obj2.arrayGetLength();
770             borderDash = (double *)gmallocn(borderDashLength, sizeof(double));
771             for (i = 0; i < borderDashLength; ++i) {
772               if (obj2.arrayGet(i, &obj3)->isNum()) {
773                 borderDash[i] = obj3.getNum();
774               } else {
775                 borderDash[i] = 1;
776               }
777               obj3.free();
778             }
779           } else {
780             // Adobe draws no border at all if the last element is of
781             // the wrong type.
782             borderWidth = 0;
783           }
784           obj2.free();
785         }
786       }
787     }
788   }
789   obj1.free();
790   if (dict->lookup("C", &obj1)->isArray() && obj1.arrayGetLength() == 3) {
791     if (obj1.arrayGet(0, &obj2)->isNum()) {
792       borderR = obj2.getNum();
793     }
794     obj1.free();
795     if (obj1.arrayGet(1, &obj2)->isNum()) {
796       borderG = obj2.getNum();
797     }
798     obj1.free();
799     if (obj1.arrayGet(2, &obj2)->isNum()) {
800       borderB = obj2.getNum();
801     }
802     obj1.free();
803   }
804   obj1.free();
805   borderStyle = new LinkBorderStyle(borderType, borderWidth,
806                                     borderDash, borderDashLength,
807                                     borderR, borderG, borderB);
808
809   // look for destination
810   if (!dict->lookup("Dest", &obj1)->isNull()) {
811     action = LinkAction::parseDest(&obj1);
812
813   // look for action
814   } else {
815     obj1.free();
816     if (dict->lookup("A", &obj1)->isDict()) {
817       action = LinkAction::parseAction(&obj1, baseURI);
818     }
819   }
820   obj1.free();
821
822   // check for bad action
823   if (action) {
824     ok = gTrue;
825   }
826
827   return;
828
829  err1:
830   obj2.free();
831  err2:
832   obj1.free();
833 }
834
835 Link::~Link() {
836   if (borderStyle) {
837     delete borderStyle;
838   }
839   if (action) {
840     delete action;
841   }
842 }
843
844 //------------------------------------------------------------------------
845 // Links
846 //------------------------------------------------------------------------
847
848 Links::Links(Object *annots, GString *baseURI) {
849   Link *link;
850   Object obj1, obj2;
851   int size;
852   int i;
853
854   links = NULL;
855   size = 0;
856   numLinks = 0;
857
858   if (annots->isArray()) {
859     for (i = 0; i < annots->arrayGetLength(); ++i) {
860       if (annots->arrayGet(i, &obj1)->isDict()) {
861         if (obj1.dictLookup("Subtype", &obj2)->isName("Link")) {
862           link = new Link(obj1.getDict(), baseURI);
863           if (link->isOk()) {
864             if (numLinks >= size) {
865               size += 16;
866               links = (Link **)greallocn(links, size, sizeof(Link *));
867             }
868             links[numLinks++] = link;
869           } else {
870             delete link;
871           }
872         }
873         obj2.free();
874       }
875       obj1.free();
876     }
877   }
878 }
879
880 Links::~Links() {
881   int i;
882
883   for (i = 0; i < numLinks; ++i)
884     delete links[i];
885   gfree(links);
886 }
887
888 LinkAction *Links::find(double x, double y) {
889   int i;
890
891   for (i = numLinks - 1; i >= 0; --i) {
892     if (links[i]->inRect(x, y)) {
893       return links[i]->getAction();
894     }
895   }
896   return NULL;
897 }
898
899 GBool Links::onLink(double x, double y) {
900   int i;
901
902   for (i = 0; i < numLinks; ++i) {
903     if (links[i]->inRect(x, y))
904       return gTrue;
905   }
906   return gFalse;
907 }