?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Compile C with some optimizations
[llpp.git] / link.c
blobdc9342193a96616aefdb85dddb4c8273af04adc9
1 /* lots of code c&p-ed directly from mupdf */
2 #include <errno.h>
3 #include <stdio.h>
4 #include <ctype.h>
5 #include <string.h>
6 #include <stdlib.h>
7 #include <signal.h>
8 #include <wchar.h>
9
10 #include <unistd.h>
11 #include <pthread.h>
12 #include <sys/time.h>
13 #include <sys/types.h>
14 #include <sys/ioctl.h>
15 #include <sys/utsname.h>
16
17 #ifdef __CYGWIN__
18 #include <cygwin/socket.h> /* FIONREAD */
19 #else
20 #include <spawn.h>
21 #endif
22
23 #include <regex.h>
24 #include <stdarg.h>
25 #include <limits.h>
26 #include <inttypes.h>
27
28 #include <GL/gl.h>
29
30 #include <caml/fail.h>
31 #include <caml/alloc.h>
32 #include <caml/memory.h>
33 #include <caml/unixsupport.h>
34
35 #include <mupdf/fitz.h>
36 #include <mupdf/cbz.h>
37 #include <mupdf/pdf.h>
38 #include <mupdf/xps.h>
39 #include <mupdf/img.h>
40
41 #include <ft2build.h>
42 #include FT_FREETYPE_H
43
44 #ifdef USE_FONTCONFIG
45 #include <fontconfig/fontconfig.h>
46 #endif
47
48 #define PIGGYBACK
49 #define CACHE_PAGEREFS
50
51 #ifndef __USE_GNU
52 extern char **environ;
53 #endif
54
55 #define MIN(a,b) ((a) < (b) ? (a) : (b))
56 #define MAX(a,b) ((a) > (b) ? (a) : (b))
57
58 #if defined __GNUC__
59 #define NORETURN_ATTR __attribute__ ((noreturn))
60 #define UNUSED_ATTR __attribute__ ((unused))
61 #if !defined __clang__
62 #define OPTIMIZE_ATTR(n) __attribute__ ((optimize ("O"#n)))
63 #else
64 #define OPTIMIZE_ATTR(n)
65 #endif
66 #define GCC_FMT_ATTR(a, b) __attribute__ ((format (printf, a, b)))
67 #else
68 #define NORETURN_ATTR
69 #define UNUSED_ATTR
70 #define OPTIMIZE_ATTR(n)
71 #define GCC_FMT_ATTR(a, b)
72 #endif
73
74 #define FMT_s "zu"
75
76 #define FMT_ptr PRIxPTR
77 #define SCN_ptr SCNxPTR
78 #define FMT_ptr_cast(p) ((uintptr_t) (p))
79 #define SCN_ptr_cast(p) ((uintptr_t *) (p))
80
81 static void NORETURN_ATTR GCC_FMT_ATTR (2, 3)
82 err (int exitcode, const char *fmt, ...)
83 {
84 va_list ap;
85 int savederrno;
86
87 savederrno = errno;
88 va_start (ap, fmt);
89 vfprintf (stderr, fmt, ap);
90 va_end (ap);
91 fprintf (stderr, ": %s\n", strerror (savederrno));
92 fflush (stderr);
93 _exit (exitcode);
94 }
95
96 static void NORETURN_ATTR GCC_FMT_ATTR (2, 3)
97 errx (int exitcode, const char *fmt, ...)
98 {
99 va_list ap;
100
101 va_start (ap, fmt);
102 vfprintf (stderr, fmt, ap);
103 va_end (ap);
104 fputc ('\n', stderr);
105 fflush (stderr);
106 _exit (exitcode);
107 }
108
109 #ifndef GL_TEXTURE_RECTANGLE_ARB
110 #define GL_TEXTURE_RECTANGLE_ARB 0x84F5
111 #endif
112
113 #ifndef GL_BGRA
114 #define GL_BGRA 0x80E1
115 #endif
116
117 #ifndef GL_UNSIGNED_INT_8_8_8_8
118 #define GL_UNSIGNED_INT_8_8_8_8 0x8035
119 #endif
120
121 #ifndef GL_UNSIGNED_INT_8_8_8_8_REV
122 #define GL_UNSIGNED_INT_8_8_8_8_REV 0x8367
123 #endif
124
125 #if 0
126 #define lprintf printf
127 #else
128 #define lprintf(...)
129 #endif
130
131 #define ARSERT(cond) for (;;) { \
132 if (!(cond)) { \
133 errx (1, "%s:%d " #cond, __FILE__, __LINE__); \
134 } \
135 break; \
136 }
137
138 struct slice {
139 int h;
140 int texindex;
141 };
142
143 struct tile {
144 int w, h;
145 int slicecount;
146 int sliceheight;
147 struct pbo *pbo;
148 fz_pixmap *pixmap;
149 struct slice slices[1];
150 };
151
152 struct pagedim {
153 int pageno;
154 int rotate;
155 int left;
156 int tctmready;
157 fz_irect bounds;
158 fz_rect pagebox;
159 fz_rect mediabox;
160 fz_matrix ctm, zoomctm, lctm, tctm;
161 };
162
163 struct slink {
164 fz_irect bbox;
165 fz_link *link;
166 };
167
168 enum { DNONE, DPDF, DXPS, DCBZ, DIMG };
169
170 struct page {
171 int tgen;
172 int sgen;
173 int type;
174 int pageno;
175 int pdimno;
176 fz_text_page *text;
177 fz_text_sheet *sheet;
178 union {
179 void *ptr;
180 pdf_page *pdfpage;
181 xps_page *xpspage;
182 cbz_page *cbzpage;
183 image_page *imgpage;
184 } u;
185 fz_display_list *dlist;
186 int slinkcount;
187 struct slink *slinks;
188 struct mark {
189 int i;
190 fz_text_span *span;
191 } fmark, lmark;
192 void (*freepage) (void *);
193 };
194
195 struct {
196 int type;
197 int sliceheight;
198 struct pagedim *pagedims;
199 int pagecount;
200 int pagedimcount;
201 union {
202 pdf_document *pdf;
203 xps_document *xps;
204 cbz_document *cbz;
205 image_document *img;
206 } u;
207 fz_context *ctx;
208 int w, h;
209
210 int texindex;
211 int texcount;
212 GLuint *texids;
213
214 GLenum texiform;
215 GLenum texform;
216 GLenum texty;
217
218 fz_colorspace *colorspace;
219
220 struct {
221 int w, h;
222 struct slice *slice;
223 } *texowners;
224
225 int rotate;
226 enum { FitWidth, FitProportional, FitPage } fitmodel;
227 int trimmargins;
228 int needoutline;
229 int gen;
230 int aalevel;
231
232 int trimanew;
233 fz_irect trimfuzz;
234 fz_pixmap *pig;
235
236 pthread_t thread;
237 int csock;
238 FT_Face face;
239
240 void (*closedoc) (void);
241 void (*freepage) (void *);
242
243 char *trimcachepath;
244 int cxack;
245
246 GLuint stid;
247
248 int pbo_usable;
249 void (*glBindBufferARB) (GLenum, GLuint);
250 GLboolean (*glUnmapBufferARB) (GLenum);
251 void *(*glMapBufferARB) (GLenum, GLenum);
252 void (*glBufferDataARB) (GLenum, GLsizei, void *, GLenum);
253 void (*glGenBuffersARB) (GLsizei, GLuint *);
254 void (*glDeleteBuffersARB) (GLsizei, GLuint *);
255
256 GLfloat texcoords[8];
257 GLfloat vertices[16];
258
259 #ifdef CACHE_PAGEREFS
260 struct {
261 int idx;
262 int count;
263 pdf_obj **objs;
264 pdf_document *pdf;
265 } pdflut;
266 #endif
267 } state;
268
269 struct pbo {
270 GLuint id;
271 void *ptr;
272 size_t size;
273 };
274
275 static void UNUSED_ATTR debug_rect (const char *cap, fz_rect r)
276 {
277 printf ("%s(rect) %.2f,%.2f,%.2f,%.2f\n", cap, r.x0, r.y0, r.x1, r.y1);
278 }
279
280 static void UNUSED_ATTR debug_bbox (const char *cap, fz_irect r)
281 {
282 printf ("%s(bbox) %d,%d,%d,%d\n", cap, r.x0, r.y0, r.x1, r.y1);
283 }
284
285 static void UNUSED_ATTR debug_matrix (const char *cap, fz_matrix m)
286 {
287 printf ("%s(matrix) %.2f,%.2f,%.2f,%.2f %.2f %.2f\n", cap,
288 m.a, m.b, m.c, m.d, m.e, m.f);
289 }
290
291 static pthread_mutex_t mutex = PTHREAD_MUTEX_INITIALIZER;
292
293 static void lock (const char *cap)
294 {
295 int ret = pthread_mutex_lock (&mutex);
296 if (ret) {
297 errx (1, "%s: pthread_mutex_lock: %s", cap, strerror (ret));
298 }
299 }
300
301 static void unlock (const char *cap)
302 {
303 int ret = pthread_mutex_unlock (&mutex);
304 if (ret) {
305 errx (1, "%s: pthread_mutex_unlock: %s", cap, strerror (ret));
306 }
307 }
308
309 static int trylock (const char *cap)
310 {
311 int ret = pthread_mutex_trylock (&mutex);
312 if (ret && ret != EBUSY) {
313 errx (1, "%s: pthread_mutex_trylock: %s", cap, strerror (ret));
314 }
315 return ret == EBUSY;
316 }
317
318 static void *parse_pointer (const char *cap, const char *s)
319 {
320 int ret;
321 void *ptr;
322
323 ret = sscanf (s, "%" SCN_ptr, SCN_ptr_cast (&ptr));
324 if (ret != 1) {
325 errx (1, "%s: cannot parse pointer in `%s'", cap, s);
326 }
327 return ptr;
328 }
329
330 static double now (void)
331 {
332 struct timeval tv;
333
334 if (gettimeofday (&tv, NULL)) {
335 err (1, "gettimeofday");
336 }
337 return tv.tv_sec + tv.tv_usec*1e-6;
338 }
339
340 static int hasdata (void)
341 {
342 int ret, avail;
343 ret = ioctl (state.csock, FIONREAD, &avail);
344 if (ret) err (1, "hasdata: FIONREAD error ret=%d", ret);
345 return avail > 0;
346 }
347
348 CAMLprim value ml_hasdata (value fd_v)
349 {
350 CAMLparam1 (fd_v);
351 int ret, avail;
352
353 ret = ioctl (Int_val (fd_v), FIONREAD, &avail);
354 if (ret) uerror ("ioctl (FIONREAD)", Nothing);
355 CAMLreturn (Val_bool (avail > 0));
356 }
357
358 static void readdata (void *p, int size)
359 {
360 ssize_t n;
361
362 again:
363 n = read (state.csock, p, size);
364 if (n < 0) {
365 if (errno == EINTR) goto again;
366 err (1, "read (req %d, ret %zd)", size, n);
367 }
368 if (n - size) {
369 if (!n) errx (1, "EOF while reading");
370 errx (1, "read (req %d, ret %zd)", size, n);
371 }
372 }
373
374 static void writedata (char *p, int size)
375 {
376 ssize_t n;
377
378 p[0] = (size >> 24) & 0xff;
379 p[1] = (size >> 16) & 0xff;
380 p[2] = (size >> 8) & 0xff;
381 p[3] = (size >> 0) & 0xff;
382
383 n = write (state.csock, p, size + 4);
384 if (n - size - 4) {
385 if (!n) errx (1, "EOF while writing data");
386 err (1, "write (req %d, ret %zd)", size + 4, n);
387 }
388 }
389
390 static int readlen (void)
391 {
392 unsigned char p[4];
393
394 readdata (p, 4);
395 return (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3];
396 }
397
398 static void GCC_FMT_ATTR (1, 2) printd (const char *fmt, ...)
399 {
400 int size = 200, len;
401 va_list ap;
402 char *buf;
403
404 buf = malloc (size);
405 for (;;) {
406 if (!buf) err (1, "malloc for temp buf (%d bytes) failed", size);
407
408 va_start (ap, fmt);
409 len = vsnprintf (buf + 4, size - 4, fmt, ap);
410 va_end (ap);
411
412 if (len > -1) {
413 if (len < size - 4) {
414 writedata (buf, len);
415 break;
416 }
417 else size = len + 5;
418 }
419 else {
420 err (1, "vsnprintf for `%s' failed", fmt);
421 }
422 buf = realloc (buf, size);
423 }
424 free (buf);
425 }
426
427 static void closepdf (void)
428 {
429 #ifdef SUMATRA_LOOKUP
430 if (state.pdflut.objs) {
431 int i;
432
433 for (i = 0; i < state.pdflut.count; ++i) {
434 pdf_drop_obj (state.pdflut.objs[i]);
435 }
436 free (state.pdflut.objs);
437 state.pdflut.objs = NULL;
438 }
439 #endif
440
441 if (state.u.pdf) {
442 pdf_close_document (state.u.pdf);
443 state.u.pdf = NULL;
444 }
445 }
446
447 static void closexps (void)
448 {
449 if (state.u.xps) {
450 xps_close_document (state.u.xps);
451 state.u.xps = NULL;
452 }
453 }
454
455 static void closecbz (void)
456 {
457 if (state.u.cbz) {
458 cbz_close_document (state.u.cbz);
459 state.u.cbz = NULL;
460 }
461 }
462
463 static void closeimg (void)
464 {
465 if (state.u.img) {
466 image_close_document (state.u.img);
467 state.u.img = NULL;
468 }
469 }
470
471 static void freepdfpage (void *ptr)
472 {
473 pdf_free_page (state.u.pdf, ptr);
474 }
475
476 static void freeemptyxxxpage (void *ptr)
477 {
478 (void) ptr;
479 }
480
481 static void freexpspage (void *ptr)
482 {
483 xps_free_page (state.u.xps, ptr);
484 }
485
486 static void freecbzpage (void *ptr)
487 {
488 cbz_free_page (state.u.cbz, ptr);
489 }
490
491 static void freeimgpage (void *ptr)
492 {
493 image_free_page (state.u.img, ptr);
494 }
495
496 static void openxref (char *filename, char *password)
497 {
498 int i, len;
499
500 for (i = 0; i < state.texcount; ++i) {
501 state.texowners[i].w = -1;
502 state.texowners[i].slice = NULL;
503 }
504
505 if (state.closedoc) state.closedoc ();
506
507 len = strlen (filename);
508
509 state.type = DPDF;
510 {
511 size_t j;
512 struct {
513 char *ext;
514 int type;
515 } tbl[] = {
516 { "pdf", DPDF },
517 { "xps", DXPS },
518 { "zip", DCBZ },
519 { "cbz", DCBZ },
520 { "jpg", DIMG },
521 { "jpeg", DIMG },
522 { "png", DIMG }
523 };
524
525 for (j = 0; j < sizeof (tbl) / sizeof (*tbl); ++j) {
526 const char *ext = tbl[j].ext;
527 int len2 = strlen (ext);
528
529 if (len2 < len && !strcasecmp (ext, filename + len - len2)) {
530 state.type = tbl[j].type;
531 break;
532 }
533 }
534 }
535
536 if (state.pagedims) {
537 free (state.pagedims);
538 state.pagedims = NULL;
539 }
540 state.pagedimcount = 0;
541
542 fz_set_aa_level (state.ctx, state.aalevel);
543 switch (state.type) {
544 case DPDF:
545 state.u.pdf = pdf_open_document (state.ctx, filename);
546 if (pdf_needs_password (state.u.pdf)) {
547 int okay = pdf_authenticate_password (state.u.pdf, password);
548 if (!okay) {
549 errx (1, "invalid password");
550 }
551 }
552 state.pagecount = pdf_count_pages (state.u.pdf);
553 state.closedoc = closepdf;
554 state.freepage = freepdfpage;
555 break;
556
557 case DXPS:
558 state.u.xps = xps_open_document (state.ctx, filename);
559 state.pagecount = xps_count_pages (state.u.xps);
560 state.closedoc = closexps;
561 state.freepage = freexpspage;
562 break;
563
564 case DCBZ:
565 state.u.cbz = cbz_open_document (state.ctx, filename);
566 state.pagecount = cbz_count_pages (state.u.cbz);
567 state.closedoc = closecbz;
568 state.freepage = freecbzpage;
569 break;
570
571 case DIMG:
572 state.u.img = image_open_document (state.ctx, filename);
573 state.pagecount = 1;
574 state.closedoc = closeimg;
575 state.freepage = freeimgpage;
576 break;
577 }
578 }
579
580 static void pdfinfo (void)
581 {
582 if (state.type == DPDF) {
583 pdf_obj *infoobj;
584
585 printd ("info PDF version\t%d.%d",
586 state.u.pdf->version / 10, state.u.pdf->version % 10);
587
588 infoobj = pdf_dict_gets (pdf_trailer (state.u.pdf), "Info");
589 if (infoobj) {
590 unsigned int i;
591 char *s;
592 char *items[] = { "Title", "Author", "Creator",
593 "Producer", "CreationDate" };
594
595 for (i = 0; i < sizeof (items) / sizeof (*items); ++i) {
596 pdf_obj *obj = pdf_dict_gets (infoobj, items[i]);
597 s = pdf_to_utf8 (state.u.pdf, obj);
598 if (*s) {
599 if (i == 0) {
600 printd ("title %s", s);
601 }
602 printd ("info %s\t%s", items[i], s);
603 }
604 fz_free (state.ctx, s);
605 }
606 }
607 printd ("infoend");
608 }
609 }
610
611 static void unlinktile (struct tile *tile)
612 {
613 int i;
614
615 for (i = 0; i < tile->slicecount; ++i) {
616 struct slice *s = &tile->slices[i];
617
618 if (s->texindex != -1) {
619 if (state.texowners[s->texindex].slice == s) {
620 state.texowners[s->texindex].slice = NULL;
621 }
622 }
623 }
624 }
625
626 static void freepage (struct page *page)
627 {
628 if (page->text) {
629 fz_free_text_page (state.ctx, page->text);
630 }
631 if (page->sheet) {
632 fz_free_text_sheet (state.ctx, page->sheet);
633 }
634 if (page->slinks) {
635 free (page->slinks);
636 }
637 fz_drop_display_list (state.ctx, page->dlist);
638 page->freepage (page->u.ptr);
639 free (page);
640 }
641
642 static void freetile (struct tile *tile)
643 {
644 unlinktile (tile);
645 if (!tile->pbo) {
646 #ifndef PIGGYBACK
647 fz_drop_pixmap (state.ctx, tile->pixmap);
648 #else
649 if (state.pig) {
650 fz_drop_pixmap (state.ctx, state.pig);
651 }
652 state.pig = tile->pixmap;
653 #endif
654 }
655 else {
656 free (tile->pbo);
657 fz_drop_pixmap (state.ctx, tile->pixmap);
658 }
659 free (tile);
660 }
661
662 #ifdef __ALTIVEC__
663 #include <stdint.h>
664 #include <altivec.h>
665
666 static int cacheline32bytes;
667
668 static void __attribute__ ((constructor)) clcheck (void)
669 {
670 char **envp = environ;
671 unsigned long *auxv;
672
673 while (*envp++);
674
675 for (auxv = (unsigned long *) envp; *auxv != 0; auxv += 2) {
676 if (*auxv == 19) {
677 cacheline32bytes = auxv[1] == 32;
678 return;
679 }
680 }
681 }
682
683 static void OPTIMIZE_ATTR (3) clearpixmap (fz_pixmap *pixmap)
684 {
685 size_t size = pixmap->w * pixmap->h * pixmap->n;
686 if (cacheline32bytes && size > 32) {
687 intptr_t a1, a2, diff;
688 size_t sizea, i;
689 vector unsigned char v = vec_splat_u8 (-1);
690 vector unsigned char *p;
691
692 a1 = a2 = (intptr_t) pixmap->samples;
693 a2 = (a1 + 31) & ~31;
694 diff = a2 - a1;
695 sizea = size - diff;
696 p = (void *) a2;
697
698 while (a1 != a2) *(char *) a1++ = 0xff;
699 for (i = 0; i < (sizea & ~31); i += 32) {
700 __asm volatile ("dcbz %0, %1"::"b"(a2),"r"(i));
701 vec_st (v, i, p);
702 vec_st (v, i + 16, p);
703 }
704 while (i < sizea) *((char *) a1 + i++) = 0xff;
705 }
706 else fz_clear_pixmap_with_value (state.ctx, pixmap, 0xff);
707 }
708 #else
709 #define clearpixmap(p) fz_clear_pixmap_with_value (state.ctx, p, 0xff)
710 #endif
711
712 static void trimctm (pdf_page *page, int pindex)
713 {
714 fz_matrix ctm;
715 struct pagedim *pdim = &state.pagedims[pindex];
716
717 if (!pdim->tctmready) {
718 if (state.trimmargins) {
719 fz_rect realbox;
720 fz_matrix rm, sm, tm, im, ctm1;
721
722 fz_rotate (&rm, -pdim->rotate);
723 fz_scale (&sm, 1, -1);
724 fz_concat (&ctm, &rm, &sm);
725 realbox = pdim->mediabox;
726 fz_transform_rect (&realbox, &ctm);
727 fz_translate (&tm, -realbox.x0, -realbox.y0);
728 fz_concat (&ctm1, &ctm, &tm);
729 fz_invert_matrix (&im, &page->ctm);
730 fz_concat (&ctm, &im, &ctm1);
731 }
732 else {
733 ctm = fz_identity;
734 }
735 pdim->tctm = ctm;
736 pdim->tctmready = 1;
737 }
738 }
739
740 static fz_matrix pagectm (struct page *page)
741 {
742 fz_matrix ctm, tm;
743
744 if (page->type == DPDF) {
745 trimctm (page->u.pdfpage, page->pdimno);
746 fz_concat (&ctm,
747 &state.pagedims[page->pdimno].tctm,
748 &state.pagedims[page->pdimno].ctm);
749 }
750 else {
751 struct pagedim *pdim = &state.pagedims[page->pdimno];
752
753 fz_translate (&tm, -pdim->mediabox.x0, -pdim->mediabox.y0);
754 fz_concat (&ctm, &tm, &state.pagedims[page->pdimno].ctm);
755 }
756 return ctm;
757 }
758
759 static void *loadpage (int pageno, int pindex)
760 {
761 fz_device *dev;
762 struct page *page;
763
764 page = calloc (sizeof (struct page), 1);
765 if (!page) {
766 err (1, "calloc page %d", pageno);
767 }
768
769 page->dlist = fz_new_display_list (state.ctx);
770 dev = fz_new_list_device (state.ctx, page->dlist);
771 fz_try (state.ctx) {
772 switch (state.type) {
773 case DPDF:
774 page->u.pdfpage = pdf_load_page (state.u.pdf, pageno);
775 pdf_run_page (state.u.pdf, page->u.pdfpage, dev,
776 &fz_identity, NULL);
777 page->freepage = freepdfpage;
778 break;
779
780 case DXPS:
781 page->u.xpspage = xps_load_page (state.u.xps, pageno);
782 xps_run_page (state.u.xps, page->u.xpspage, dev,
783 &fz_identity, NULL);
784 page->freepage = freexpspage;
785 break;
786
787 case DCBZ:
788 page->u.cbzpage = cbz_load_page (state.u.cbz, pageno);
789 cbz_run_page (state.u.cbz, page->u.cbzpage, dev,
790 &fz_identity, NULL);
791 page->freepage = freecbzpage;
792 break;
793
794 case DIMG:
795 page->u.imgpage = image_load_page (state.u.img, pageno);
796 image_run_page (state.u.img, page->u.imgpage, dev,
797 &fz_identity, NULL);
798 page->freepage = freeimgpage;
799 break;
800 }
801 }
802 fz_catch (state.ctx) {
803 page->u.ptr = NULL;
804 page->freepage = freeemptyxxxpage;
805 }
806 fz_free_device (dev);
807
808 page->pdimno = pindex;
809 page->pageno = pageno;
810 page->sgen = state.gen;
811 page->tgen = state.gen;
812 page->type = state.type;
813
814 return page;
815 }
816
817 static struct tile *alloctile (int h)
818 {
819 int i;
820 int slicecount;
821 size_t tilesize;
822 struct tile *tile;
823
824 slicecount = (h + state.sliceheight - 1) / state.sliceheight;
825 tilesize = sizeof (*tile) + ((slicecount - 1) * sizeof (struct slice));
826 tile = calloc (tilesize, 1);
827 if (!tile) {
828 err (1, "can not allocate tile (%" FMT_s " bytes)", tilesize);
829 }
830 for (i = 0; i < slicecount; ++i) {
831 int sh = MIN (h, state.sliceheight);
832 tile->slices[i].h = sh;
833 tile->slices[i].texindex = -1;
834 h -= sh;
835 }
836 tile->slicecount = slicecount;
837 tile->sliceheight = state.sliceheight;
838 return tile;
839 }
840
841 #ifdef OBSCURED_OPT
842 struct obs {
843 int cured;
844 fz_irect b;
845 };
846
847 static void obs_fill_image (fz_device *dev, fz_image UNUSED_ATTR *image,
848 const fz_matrix *ctm, float alpha)
849 {
850 struct obs *obs = dev->user;
851
852 if (!obs->cured && fabs (1.0 - alpha) < 1e6) {
853 fz_irect b;
854 fz_rect rect = fz_unit_rect;
855
856 fz_transform_rect (&rect, ctm);
857 fz_round_rect (&b, &rect);
858 fz_intersect_irect (&b, &obs->b);
859 obs->cured = b.x0 == obs->b.x0
860 && b.x1 == obs->b.x1
861 && b.y0 == obs->b.y0
862 && b.y1 == obs->b.y1;
863 }
864 }
865
866 static int obscured (struct page *page, fz_irect bbox)
867 {
868 fz_rect rect;
869 fz_matrix ctm;
870 fz_device dev;
871 struct obs obs;
872
873 memset (&dev, 0, sizeof (dev));
874 memset (&obs, 0, sizeof (obs));
875 dev.hints = 0;
876 dev.flags = 0;
877 dev.user = &obs;
878 dev.ctx = state.ctx;
879 dev.fill_image = obs_fill_image;
880 obs.b = bbox;
881 fz_rect_from_irect (&rect, &bbox);
882 ctm = pagectm (page);
883 fz_run_display_list (page->dlist, &dev, &ctm, &rect, NULL);
884 return obs.cured;
885 }
886 #define OBSCURED obscured
887 #else
888 #define OBSCURED(a, b) 0
889 #endif
890
891 static struct tile *rendertile (struct page *page, int x, int y, int w, int h,
892 struct pbo *pbo)
893 {
894 fz_rect rect;
895 fz_irect bbox;
896 fz_matrix ctm;
897 fz_device *dev;
898 struct tile *tile;
899 struct pagedim *pdim;
900
901 tile = alloctile (h);
902 pdim = &state.pagedims[page->pdimno];
903
904 bbox = pdim->bounds;
905 bbox.x0 += x;
906 bbox.y0 += y;
907 bbox.x1 = bbox.x0 + w;
908 bbox.y1 = bbox.y0 + h;
909
910 if (state.pig) {
911 if (state.pig->w == w
912 && state.pig->h == h
913 && state.pig->colorspace == state.colorspace) {
914 tile->pixmap = state.pig;
915 tile->pixmap->x = bbox.x0;
916 tile->pixmap->y = bbox.y0;
917 }
918 else {
919 fz_drop_pixmap (state.ctx, state.pig);
920 }
921 state.pig = NULL;
922 }
923 if (!tile->pixmap) {
924 if (pbo) {
925 tile->pixmap =
926 fz_new_pixmap_with_bbox_and_data (state.ctx, state.colorspace,
927 &bbox, pbo->ptr);
928 tile->pbo = pbo;
929 }
930 else {
931 tile->pixmap =
932 fz_new_pixmap_with_bbox (state.ctx, state.colorspace, &bbox);
933 }
934 }
935
936 tile->w = w;
937 tile->h = h;
938 if (!page->u.ptr || ((w < 128 && h < 128) || !OBSCURED (page, bbox))) {
939 clearpixmap (tile->pixmap);
940 }
941 dev = fz_new_draw_device (state.ctx, tile->pixmap);
942 ctm = pagectm (page);
943 fz_rect_from_irect (&rect, &bbox);
944 fz_run_display_list (page->dlist, dev, &ctm, &rect, NULL);
945 fz_free_device (dev);
946
947 return tile;
948 }
949
950 #ifdef CACHE_PAGEREFS
951 /* modified mupdf/source/pdf/pdf-page.c:pdf_lookup_page_loc_imp
952 thanks to Robin Watts */
953 static void
954 pdf_collect_pages(pdf_document *doc, pdf_obj *node)
955 {
956 fz_context *ctx = doc->ctx;
957 pdf_obj *kids;
958 int i, len;
959
960 if (state.pdflut.idx == state.pagecount) return;
961
962 kids = pdf_dict_gets (node, "Kids");
963 len = pdf_array_len (kids);
964
965 if (len == 0)
966 fz_throw (ctx, FZ_ERROR_GENERIC, "Malformed pages tree");
967
968 if (pdf_mark_obj (node))
969 fz_throw (ctx, FZ_ERROR_GENERIC, "cycle in page tree");
970 for (i = 0; i < len; i++) {
971 pdf_obj *kid = pdf_array_get (kids, i);
972 char *type = pdf_to_name (pdf_dict_gets (kid, "Type"));
973 if (*type
974 ? !strcmp (type, "Pages")
975 : pdf_dict_gets (kid, "Kids")
976 && !pdf_dict_gets (kid, "MediaBox")) {
977 pdf_collect_pages (doc, kid);
978 }
979 else {
980 if (*type
981 ? strcmp (type, "Page") != 0
982 : !pdf_dict_gets (kid, "MediaBox"))
983 fz_warn (ctx, "non-page object in page tree (%s)", type);
984 state.pdflut.objs[state.pdflut.idx++] = pdf_keep_obj (kid);
985 }
986 }
987 pdf_unmark_obj (node);
988 }
989
990 static void
991 pdf_load_page_objs (pdf_document *doc)
992 {
993 pdf_obj *root = pdf_dict_gets (pdf_trailer (doc), "Root");
994 pdf_obj *node = pdf_dict_gets (root, "Pages");
995
996 if (!node)
997 fz_throw (doc->ctx, FZ_ERROR_GENERIC, "cannot find page tree");
998
999 state.pdflut.idx = 0;
1000 pdf_collect_pages (doc, node);
1001 }
1002 #endif
1003
1004 static void initpdims (void)
1005 {
1006 double start, end;
1007 FILE *trimf = NULL;
1008 fz_rect rootmediabox;
1009 int pageno, trim, show;
1010 int trimw = 0, cxcount;
1011
1012 start = now ();
1013
1014 if (state.trimmargins && state.trimcachepath) {
1015 trimf = fopen (state.trimcachepath, "rb");
1016 if (!trimf) {
1017 trimf = fopen (state.trimcachepath, "wb");
1018 trimw = 1;
1019 }
1020 }
1021
1022 if (state.trimmargins || state.type == DPDF || !state.cxack)
1023 cxcount = state.pagecount;
1024 else
1025 cxcount = MIN (state.pagecount, 1);
1026
1027 if (state.type == DPDF) {
1028 pdf_obj *obj;
1029 obj = pdf_dict_getp (pdf_trailer (state.u.pdf),
1030 "Root/Pages/MediaBox");
1031 pdf_to_rect (state.ctx, obj, &rootmediabox);
1032 }
1033
1034 #ifdef CACHE_PAGEREFS
1035 if (state.type == DPDF
1036 && (!state.pdflut.objs || state.pdflut.pdf != state.u.pdf)) {
1037 state.pdflut.objs = calloc (sizeof (*state.pdflut.objs), cxcount);
1038 if (!state.pdflut.objs) {
1039 err (1, "malloc pageobjs %zu %d %zu failed",
1040 sizeof (*state.pdflut.objs), cxcount,
1041 sizeof (*state.pdflut.objs) * cxcount);
1042 }
1043 state.pdflut.count = cxcount;
1044 pdf_load_page_objs (state.u.pdf);
1045 state.pdflut.pdf = state.u.pdf;
1046 }
1047 #endif
1048
1049 for (pageno = 0; pageno < cxcount; ++pageno) {
1050 int rotate = 0;
1051 struct pagedim *p;
1052 fz_rect mediabox;
1053
1054 switch (state.type) {
1055 case DPDF: {
1056 pdf_document *pdf = state.u.pdf;
1057 pdf_obj *pageref, *pageobj;
1058
1059 #ifdef CACHE_PAGEREFS
1060 pageref = state.pdflut.objs[pageno];
1061 #else
1062 pageref = pdf_lookup_page_obj (pdf, pageno);
1063 show = !state.trimmargins && pageno % 20 == 0;
1064 if (show) {
1065 printd ("progress %f Gathering dimensions %d",
1066 (double) (pageno) / state.pagecount,
1067 pageno);
1068 }
1069 #endif
1070 pageobj = pdf_resolve_indirect (pageref);
1071
1072 if (state.trimmargins) {
1073 pdf_obj *obj;
1074 pdf_page *page;
1075
1076 fz_try (state.ctx) {
1077 page = pdf_load_page (pdf, pageno);
1078 obj = pdf_dict_gets (pageobj, "llpp.TrimBox");
1079 trim = state.trimanew || !obj;
1080 if (trim) {
1081 fz_rect rect;
1082 fz_matrix ctm;
1083 fz_device *dev;
1084
1085 dev = fz_new_bbox_device (state.ctx, &rect);
1086 dev->hints |= FZ_IGNORE_SHADE;
1087 fz_invert_matrix (&ctm, &page->ctm);
1088 pdf_run_page (pdf, page, dev, &fz_identity, NULL);
1089 fz_free_device (dev);
1090
1091 rect.x0 += state.trimfuzz.x0;
1092 rect.x1 += state.trimfuzz.x1;
1093 rect.y0 += state.trimfuzz.y0;
1094 rect.y1 += state.trimfuzz.y1;
1095 fz_transform_rect (&rect, &ctm);
1096 fz_intersect_rect (&rect, &page->mediabox);
1097
1098 if (fz_is_empty_rect (&rect)) {
1099 mediabox = page->mediabox;
1100 }
1101 else {
1102 mediabox = rect;
1103 }
1104
1105 obj = pdf_new_array (pdf, 4);
1106 pdf_array_push (obj, pdf_new_real (pdf, mediabox.x0));
1107 pdf_array_push (obj, pdf_new_real (pdf, mediabox.y0));
1108 pdf_array_push (obj, pdf_new_real (pdf, mediabox.x1));
1109 pdf_array_push (obj, pdf_new_real (pdf, mediabox.y1));
1110 pdf_dict_puts (pageobj, "llpp.TrimBox", obj);
1111 }
1112 else {
1113 mediabox.x0 = pdf_to_real (pdf_array_get (obj, 0));
1114 mediabox.y0 = pdf_to_real (pdf_array_get (obj, 1));
1115 mediabox.x1 = pdf_to_real (pdf_array_get (obj, 2));
1116 mediabox.y1 = pdf_to_real (pdf_array_get (obj, 3));
1117 }
1118
1119 rotate = page->rotate;
1120 pdf_free_page (pdf, page);
1121
1122 show = trim ? pageno % 5 == 0 : pageno % 20 == 0;
1123 if (show) {
1124 printd ("progress %f Trimming %d",
1125 (double) (pageno + 1) / state.pagecount,
1126 pageno + 1);
1127 }
1128 }
1129 fz_catch (state.ctx) {
1130 fprintf (stderr, "failed to load page %d\n", pageno+1);
1131 }
1132 }
1133 else {
1134 int empty = 0;
1135 fz_rect cropbox;
1136
1137 pdf_to_rect (state.ctx, pdf_dict_gets (pageobj, "MediaBox"),
1138 &mediabox);
1139 if (fz_is_empty_rect (&mediabox)) {
1140 mediabox.x0 = 0;
1141 mediabox.y0 = 0;
1142 mediabox.x1 = 612;
1143 mediabox.y1 = 792;
1144 empty = 1;
1145 }
1146
1147 pdf_to_rect (state.ctx, pdf_dict_gets (pageobj, "CropBox"),
1148 &cropbox);
1149 if (!fz_is_empty_rect (&cropbox)) {
1150 if (empty) {
1151 mediabox = cropbox;
1152 }
1153 else {
1154 fz_intersect_rect (&mediabox, &cropbox);
1155 }
1156 }
1157 else {
1158 if (empty) {
1159 if (fz_is_empty_rect (&rootmediabox)) {
1160 fprintf (stderr,
1161 "cannot find page size for page %d\n",
1162 pageno+1);
1163 }
1164 else {
1165 mediabox = rootmediabox;
1166 }
1167 }
1168 }
1169 rotate = pdf_to_int (pdf_dict_gets (pageobj, "Rotate"));
1170 }
1171 break;
1172 }
1173
1174 case DXPS:
1175 {
1176 xps_page *page;
1177
1178 fz_try (state.ctx) {
1179 page = xps_load_page (state.u.xps, pageno);
1180 xps_bound_page (state.u.xps, page, &mediabox);
1181 rotate = 0;
1182 if (state.trimmargins) {
1183 fz_rect rect;
1184 fz_device *dev;
1185
1186 dev = fz_new_bbox_device (state.ctx, &rect);
1187 dev->hints |= FZ_IGNORE_SHADE;
1188 xps_run_page (state.u.xps, page, dev,
1189 &fz_identity, NULL);
1190 fz_free_device (dev);
1191
1192 rect.x0 += state.trimfuzz.x0;
1193 rect.x1 += state.trimfuzz.x1;
1194 rect.y0 += state.trimfuzz.y0;
1195 rect.y1 += state.trimfuzz.y1;
1196 fz_intersect_rect (&rect, &mediabox);
1197
1198 if (!fz_is_empty_rect (&rect)) {
1199 mediabox = rect;
1200 }
1201 }
1202 xps_free_page (state.u.xps, page);
1203 if (!state.cxack) {
1204 printd ("progress %f loading %d",
1205 (double) (pageno + 1) / state.pagecount,
1206 pageno + 1);
1207 }
1208 }
1209 fz_catch (state.ctx) {
1210 }
1211 }
1212 break;
1213
1214 case DCBZ:
1215 {
1216 rotate = 0;
1217 mediabox.x0 = 0;
1218 mediabox.y0 = 0;
1219 mediabox.x1 = 900;
1220 mediabox.y1 = 900;
1221 if (state.trimmargins && trimw) {
1222 cbz_page *page;
1223
1224 fz_try (state.ctx) {
1225 page = cbz_load_page (state.u.cbz, pageno);
1226 cbz_bound_page (state.u.cbz, page, &mediabox);
1227 cbz_free_page (state.u.cbz, page);
1228 printd ("progress %f Trimming %d",
1229 (double) (pageno + 1) / state.pagecount,
1230 pageno + 1);
1231 }
1232 fz_catch (state.ctx) {
1233 fprintf (stderr, "failed to load page %d\n", pageno+1);
1234 }
1235 if (trimf) {
1236 int n = fwrite (&mediabox, sizeof (mediabox), 1, trimf);
1237 if (n - 1) {
1238 err (1, "fwrite trim mediabox");
1239 }
1240 }
1241 }
1242 else {
1243 if (trimf) {
1244 int n = fread (&mediabox, sizeof (mediabox), 1, trimf);
1245 if (n - 1) {
1246 err (1, "fread trim mediabox");
1247 }
1248 }
1249 else {
1250 if (state.cxack) {
1251 cbz_page *page;
1252 fz_try (state.ctx) {
1253 page = cbz_load_page (state.u.cbz, pageno);
1254 cbz_bound_page (state.u.cbz, page, &mediabox);
1255 cbz_free_page (state.u.cbz, page);
1256 }
1257 fz_catch (state.ctx) {
1258 fprintf (stderr, "failed to load cbz page\n");
1259 }
1260 }
1261 }
1262 }
1263 }
1264 break;
1265
1266 case DIMG:
1267 {
1268 image_page *page;
1269
1270 rotate = 0;
1271 mediabox.x0 = 0;
1272 mediabox.y0 = 0;
1273 mediabox.x1 = 900;
1274 mediabox.y1 = 900;
1275
1276 fz_try (state.ctx) {
1277 page = image_load_page (state.u.img, pageno);
1278 image_bound_page (state.u.img, page, &mediabox);
1279 image_free_page (state.u.img, page);
1280 }
1281 fz_catch (state.ctx) {
1282 fprintf (stderr, "failed to load page %d\n", pageno+1);
1283 }
1284 }
1285 break;
1286
1287 default:
1288 ARSERT (0 && state.type);
1289 }
1290
1291 if (state.pagedimcount == 0
1292 || (p = &state.pagedims[state.pagedimcount-1], p->rotate != rotate)
1293 || memcmp (&p->mediabox, &mediabox, sizeof (mediabox))) {
1294 size_t size;
1295
1296 size = (state.pagedimcount + 1) * sizeof (*state.pagedims);
1297 state.pagedims = realloc (state.pagedims, size);
1298 if (!state.pagedims) {
1299 err (1, "realloc pagedims to %" FMT_s " (%d elems)",
1300 size, state.pagedimcount + 1);
1301 }
1302
1303 p = &state.pagedims[state.pagedimcount++];
1304 p->rotate = rotate;
1305 p->mediabox = mediabox;
1306 p->pageno = pageno;
1307 }
1308 }
1309 end = now ();
1310 if (state.trimmargins) {
1311 printd ("progress 1 Trimmed %d pages in %f seconds",
1312 state.pagecount, end - start);
1313 }
1314 else {
1315 if (state.type == DPDF)
1316 printd ("progress 1 Processed %d pages in %f seconds",
1317 state.pagecount, end - start);
1318 else
1319 printd ("vmsg Processed %d pages in %f seconds",
1320 state.pagecount, end - start);
1321 }
1322 state.trimanew = 0;
1323 if (trimf) {
1324 if (fclose (trimf)) {
1325 err (1, "fclose");
1326 }
1327 }
1328 }
1329
1330 static void layout (void)
1331 {
1332 int pindex;
1333 fz_rect box;
1334 fz_matrix ctm, rm;
1335 struct pagedim *p = p;
1336 double zw, w, maxw = 0.0, zoom = zoom;
1337
1338 if (state.pagedimcount == 0) return;
1339
1340 switch (state.fitmodel) {
1341 case FitProportional:
1342 for (pindex = 0; pindex < state.pagedimcount; ++pindex) {
1343 double x0, x1;
1344
1345 p = &state.pagedims[pindex];
1346 fz_rotate (&rm, p->rotate + state.rotate);
1347 box = p->mediabox;
1348 fz_transform_rect (&box, &rm);
1349
1350 x0 = MIN (box.x0, box.x1);
1351 x1 = MAX (box.x0, box.x1);
1352
1353 w = x1 - x0;
1354 maxw = MAX (w, maxw);
1355 zoom = state.w / maxw;
1356 }
1357 break;
1358
1359 case FitPage:
1360 maxw = state.w;
1361 break;
1362
1363 case FitWidth:
1364 break;
1365
1366 default:
1367 ARSERT (0 && state.fitmodel);
1368 }
1369
1370 for (pindex = 0; pindex < state.pagedimcount; ++pindex) {
1371 fz_rect rect;
1372 fz_matrix tm, sm;
1373
1374 p = &state.pagedims[pindex];
1375 fz_rotate (&ctm, state.rotate);
1376 fz_rotate (&rm, p->rotate + state.rotate);
1377 box = p->mediabox;
1378 fz_transform_rect (&box, &rm);
1379 w = box.x1 - box.x0;
1380 switch (state.fitmodel) {
1381 case FitProportional:
1382 p->left = ((maxw - w) * zoom) / 2.0;
1383 break;
1384 case FitPage:
1385 {
1386 double zh, h;
1387 zw = maxw / w;
1388 h = box.y1 - box.y0;
1389 zh = state.h / h;
1390 zoom = MIN (zw, zh);
1391 p->left = (maxw - (w * zoom)) / 2.0;
1392 }
1393 break;
1394 case FitWidth:
1395 p->left = 0;
1396 zoom = state.w / w;
1397 break;
1398 }
1399
1400 fz_scale (&p->zoomctm, zoom, zoom);
1401 fz_concat (&ctm, &p->zoomctm, &ctm);
1402
1403 fz_rotate (&rm, p->rotate);
1404 p->pagebox = p->mediabox;
1405 fz_transform_rect (&p->pagebox, &rm);
1406 p->pagebox.x1 -= p->pagebox.x0;
1407 p->pagebox.y1 -= p->pagebox.y0;
1408 p->pagebox.x0 = 0;
1409 p->pagebox.y0 = 0;
1410 rect = p->pagebox;
1411 fz_transform_rect (&rect, &ctm);
1412 fz_round_rect (&p->bounds, &rect);
1413 p->ctm = ctm;
1414
1415 fz_translate (&tm, 0, -p->mediabox.y1);
1416 fz_scale (&sm, zoom, -zoom);
1417 fz_concat (&ctm, &tm, &sm);
1418 fz_concat (&p->lctm, &ctm, &rm);
1419
1420 p->tctmready = 0;
1421 }
1422
1423 do {
1424 int x0 = MIN (p->bounds.x0, p->bounds.x1);
1425 int y0 = MIN (p->bounds.y0, p->bounds.y1);
1426 int x1 = MAX (p->bounds.x0, p->bounds.x1);
1427 int y1 = MAX (p->bounds.y0, p->bounds.y1);
1428 int boundw = x1 - x0;
1429 int boundh = y1 - y0;
1430
1431 printd ("pdim %d %d %d %d", p->pageno, boundw, boundh, p->left);
1432 } while (p-- != state.pagedims);
1433 }
1434
1435 static
1436 struct anchor { int n; int x; int y; int w; int h; }
1437 desttoanchor (fz_link_dest *dest)
1438 {
1439 int i;
1440 struct anchor a;
1441 struct pagedim *pdim = state.pagedims;
1442
1443 a.n = -1;
1444 a.x = 0;
1445 a.y = 0;
1446 for (i = 0; i < state.pagedimcount; ++i) {
1447 if (state.pagedims[i].pageno > dest->ld.gotor.page)
1448 break;
1449 pdim = &state.pagedims[i];
1450 }
1451 if (dest->ld.gotor.flags & fz_link_flag_t_valid) {
1452 fz_point p;
1453 if (dest->ld.gotor.flags & fz_link_flag_l_valid)
1454 p.x = dest->ld.gotor.lt.x;
1455 else
1456 p.x = 0.0;
1457 p.y = dest->ld.gotor.lt.y;
1458 fz_transform_point (&p, &pdim->lctm);
1459 a.x = p.x;
1460 a.y = p.y;
1461 }
1462 if (dest->ld.gotor.page >= 0 && dest->ld.gotor.page < 1<<30) {
1463 double x0, x1, y0, y1;
1464
1465 x0 = MIN (pdim->bounds.x0, pdim->bounds.x1);
1466 x1 = MAX (pdim->bounds.x0, pdim->bounds.x1);
1467 a.w = x1 - x0;
1468 y0 = MIN (pdim->bounds.y0, pdim->bounds.y1);
1469 y1 = MAX (pdim->bounds.y0, pdim->bounds.y1);
1470 a.h = y1 - y0;
1471 a.n = dest->ld.gotor.page;
1472 }
1473 return a;
1474 }
1475
1476 static void recurse_outline (fz_outline *outline, int level)
1477 {
1478 while (outline) {
1479 switch (outline->dest.kind) {
1480 case FZ_LINK_GOTO:
1481 {
1482 struct anchor a = desttoanchor (&outline->dest);
1483
1484 if (a.n >= 0) {
1485 printd ("o %d %d %d %d %s",
1486 level, a.n, a.y, a.h, outline->title);
1487 }
1488 }
1489 break;
1490
1491 case FZ_LINK_URI:
1492 printd ("ou %d %" FMT_s " %s %s", level,
1493 strlen (outline->title), outline->title,
1494 outline->dest.ld.uri.uri);
1495 break;
1496
1497 case FZ_LINK_NONE:
1498 printd ("on %d %s", level, outline->title);
1499 break;
1500
1501 default:
1502 printd ("emsg Unhandled outline kind %d for %s\n",
1503 outline->dest.kind, outline->title);
1504 break;
1505 }
1506 if (outline->down) {
1507 recurse_outline (outline->down, level + 1);
1508 }
1509 outline = outline->next;
1510 }
1511 }
1512
1513 static void process_outline (void)
1514 {
1515 fz_outline *outline;
1516
1517 if (!state.needoutline || !state.pagedimcount) return;
1518
1519 state.needoutline = 0;
1520 switch (state.type) {
1521 case DPDF:
1522 outline = pdf_load_outline (state.u.pdf);
1523 break;
1524 case DXPS:
1525 outline = xps_load_outline (state.u.xps);
1526 break;
1527 default:
1528 outline = NULL;
1529 break;
1530 }
1531 if (outline) {
1532 recurse_outline (outline, 0);
1533 fz_free_outline (state.ctx, outline);
1534 }
1535 }
1536
1537 static char *strofspan (fz_text_span *span)
1538 {
1539 char *p;
1540 char utf8[10];
1541 fz_text_char *ch;
1542 size_t size = 0, cap = 80;
1543
1544 p = malloc (cap + 1);
1545 if (!p) return NULL;
1546
1547 for (ch = span->text; ch < span->text + span->len; ++ch) {
1548 int n = fz_runetochar (utf8, ch->c);
1549 if (size + n > cap) {
1550 cap *= 2;
1551 p = realloc (p, cap + 1);
1552 if (!p) return NULL;
1553 }
1554
1555 memcpy (p + size, utf8, n);
1556 size += n;
1557 }
1558 p[size] = 0;
1559 return p;
1560 }
1561
1562 static int matchspan (regex_t *re, fz_text_page UNUSED_ATTR *page,
1563 fz_text_span *span, fz_matrix UNUSED_ATTR ctm,
1564 int stop, int pageno, double start)
1565 {
1566 int ret;
1567 char *p;
1568 regmatch_t rm;
1569 int a, b, c;
1570 fz_rect sb, eb;
1571 fz_point p1, p2, p3, p4;
1572
1573 p = strofspan (span);
1574 if (!p) return -1;
1575
1576 ret = regexec (re, p, 1, &rm, 0);
1577 if (ret) {
1578 free (p);
1579 if (ret != REG_NOMATCH) {
1580 size_t size;
1581 char errbuf[80];
1582 size = regerror (ret, re, errbuf, sizeof (errbuf));
1583 printd ("msg regexec error `%.*s'",
1584 (int) size, errbuf);
1585 return -1;
1586 }
1587 return 0;
1588 }
1589 else {
1590 int l = span->len;
1591
1592 for (a = 0, c = 0; c < rm.rm_so && a < l; a++) {
1593 c += fz_runelen (span->text[a].c);
1594 }
1595 for (b = a; c < rm.rm_eo - 1 && b < l; b++) {
1596 c += fz_runelen (span->text[b].c);
1597 }
1598
1599 if (fz_runelen (span->text[b].c) > 1) {
1600 b = MAX (0, b-1);
1601 }
1602
1603 fz_text_char_bbox (&sb, span, a);
1604 fz_text_char_bbox (&eb, span, b);
1605
1606 p1.x = sb.x0;
1607 p1.y = sb.y0;
1608 p2.x = eb.x1;
1609 p2.y = sb.y0;
1610 p3.x = eb.x1;
1611 p3.y = eb.y1;
1612 p4.x = sb.x0;
1613 p4.y = eb.y1;
1614
1615 if (!stop) {
1616 printd ("firstmatch %d %d %f %f %f %f %f %f %f %f",
1617 pageno, 1,
1618 p1.x, p1.y,
1619 p2.x, p2.y,
1620 p3.x, p3.y,
1621 p4.x, p4.y);
1622
1623 printd ("progress 1 found at %d `%.*s' in %f sec",
1624 pageno + 1, (int) (rm.rm_eo - rm.rm_so), &p[rm.rm_so],
1625 now () - start);
1626 }
1627 else {
1628 printd ("match %d %d %f %f %f %f %f %f %f %f",
1629 pageno, 2,
1630 p1.x, p1.y,
1631 p2.x, p2.y,
1632 p3.x, p3.y,
1633 p4.x, p4.y);
1634 }
1635 free (p);
1636 return 1;
1637 }
1638 }
1639
1640 static int compareblocks (const void *l, const void *r)
1641 {
1642 fz_text_block const *ls = l;
1643 fz_text_block const* rs = r;
1644 return ls->bbox.y0 - rs->bbox.y0;
1645 }
1646
1647 /* wishful thinking function */
1648 static void search (regex_t *re, int pageno, int y, int forward)
1649 {
1650 int i, j;
1651 fz_matrix ctm;
1652 fz_device *tdev;
1653 union { void *ptr; pdf_page *pdfpage; xps_page *xpspage; } u;
1654 fz_text_page *text;
1655 fz_text_sheet *sheet;
1656 struct pagedim *pdim, *pdimprev;
1657 int stop = 0, niters = 0;
1658 double start, end;
1659
1660 if (!(state.type == DPDF || state.type == DXPS))
1661 return;
1662
1663 start = now ();
1664 while (pageno >= 0 && pageno < state.pagecount && !stop) {
1665 if (niters++ == 5) {
1666 niters = 0;
1667 if (hasdata ()) {
1668 printd ("progress 1 attention requested aborting search at %d",
1669 pageno);
1670 stop = 1;
1671 }
1672 else {
1673 printd ("progress %f searching in page %d",
1674 (double) (pageno + 1) / state.pagecount,
1675 pageno);
1676 }
1677 }
1678 pdimprev = NULL;
1679 for (i = 0; i < state.pagedimcount; ++i) {
1680 pdim = &state.pagedims[i];
1681 if (pdim->pageno == pageno) {
1682 goto found;
1683 }
1684 if (pdim->pageno > pageno) {
1685 pdim = pdimprev;
1686 goto found;
1687 }
1688 pdimprev = pdim;
1689 }
1690 pdim = pdimprev;
1691 found:
1692
1693 sheet = fz_new_text_sheet (state.ctx);
1694 text = fz_new_text_page (state.ctx);
1695 tdev = fz_new_text_device (state.ctx, sheet, text);
1696
1697 switch (state.type) {
1698 case DPDF:
1699 u.ptr = NULL;
1700 fz_try (state.ctx) {
1701 u.pdfpage = pdf_load_page (state.u.pdf, pageno);
1702 trimctm (u.pdfpage, pdim - state.pagedims);
1703 fz_concat (&ctm, &pdim->tctm, &pdim->zoomctm);
1704 fz_begin_page (tdev, &fz_infinite_rect, &ctm);
1705 pdf_run_page (state.u.pdf, u.pdfpage, tdev, &ctm, NULL);
1706 fz_end_page (tdev);
1707 }
1708 fz_catch (state.ctx) {
1709 fz_free_device (tdev);
1710 u.ptr = NULL;
1711 goto nextiter;
1712 }
1713 break;
1714
1715 case DXPS:
1716 u.xpspage = xps_load_page (state.u.xps, pageno);
1717 xps_run_page (state.u.xps, u.xpspage, tdev, &pdim->ctm, NULL);
1718 break;
1719
1720 default:
1721 ARSERT (0 && state.type);
1722 }
1723
1724 qsort (text->blocks, text->len, sizeof (*text->blocks), compareblocks);
1725 fz_free_device (tdev);
1726
1727 for (j = 0; j < text->len; ++j) {
1728 int k;
1729 fz_page_block *pb;
1730 fz_text_block *block;
1731
1732 pb = &text->blocks[forward ? j : text->len - 1 - j];
1733 if (pb->type != FZ_PAGE_BLOCK_TEXT) continue;
1734 block = pb->u.text;
1735
1736 for (k = 0; k < block->len; ++k) {
1737 fz_text_line *line;
1738 fz_text_span *span;
1739
1740 if (forward) {
1741 line = &block->lines[k];
1742 if (line->bbox.y0 < y + 1) continue;
1743 }
1744 else {
1745 line = &block->lines[block->len - 1 - k];
1746 if (line->bbox.y0 > y - 1) continue;
1747 }
1748
1749 for (span = line->first_span; span; span = span->next) {
1750 switch (matchspan (re, text, span, ctm,
1751 stop, pageno, start)) {
1752 case 0: break;
1753 case 1: stop = 1; break;
1754 case -1: stop = 1; goto endloop;
1755 }
1756 }
1757 }
1758 }
1759 nextiter:
1760 if (forward) {
1761 pageno += 1;
1762 y = 0;
1763 }
1764 else {
1765 pageno -= 1;
1766 y = INT_MAX;
1767 }
1768 endloop:
1769 fz_free_text_page (state.ctx, text);
1770 fz_free_text_sheet (state.ctx, sheet);
1771 if (u.ptr) {
1772 state.freepage (u.ptr);
1773 }
1774 }
1775 end = now ();
1776 if (!stop) {
1777 printd ("progress 1 no matches %f sec", end - start);
1778 }
1779 printd ("clearrects");
1780 }
1781
1782 static void set_tex_params (int colorspace)
1783 {
1784 union {
1785 unsigned char b;
1786 unsigned int s;
1787 } endianness = {1};
1788
1789 switch (colorspace) {
1790 case 0:
1791 state.texiform = GL_RGBA8;
1792 state.texform = GL_RGBA;
1793 state.texty = GL_UNSIGNED_BYTE;
1794 state.colorspace = fz_device_rgb (state.ctx);
1795 break;
1796 case 1:
1797 state.texiform = GL_RGBA8;
1798 state.texform = GL_BGRA;
1799 state.texty = endianness.s > 1
1800 ? GL_UNSIGNED_INT_8_8_8_8
1801 : GL_UNSIGNED_INT_8_8_8_8_REV;
1802 state.colorspace = fz_device_bgr (state.ctx);
1803 break;
1804 case 2:
1805 state.texiform = GL_LUMINANCE_ALPHA;
1806 state.texform = GL_LUMINANCE_ALPHA;
1807 state.texty = GL_UNSIGNED_BYTE;
1808 state.colorspace = fz_device_gray (state.ctx);
1809 break;
1810 default:
1811 errx (1, "invalid colorspce %d", colorspace);
1812 }
1813 }
1814
1815 static void realloctexts (int texcount)
1816 {
1817 size_t size;
1818
1819 if (texcount == state.texcount) return;
1820
1821 if (texcount < state.texcount) {
1822 glDeleteTextures (state.texcount - texcount,
1823 state.texids + texcount);
1824 }
1825
1826 size = texcount * sizeof (*state.texids);
1827 state.texids = realloc (state.texids, size);
1828 if (!state.texids) {
1829 err (1, "realloc texids %" FMT_s, size);
1830 }
1831
1832 size = texcount * sizeof (*state.texowners);
1833 state.texowners = realloc (state.texowners, size);
1834 if (!state.texowners) {
1835 err (1, "realloc texowners %" FMT_s, size);
1836 }
1837 if (texcount > state.texcount) {
1838 int i;
1839
1840 glGenTextures (texcount - state.texcount,
1841 state.texids + state.texcount);
1842 for (i = state.texcount; i < texcount; ++i) {
1843 state.texowners[i].w = -1;
1844 state.texowners[i].slice = NULL;
1845 }
1846 }
1847 state.texcount = texcount;
1848 state.texindex = 0;
1849 }
1850
1851 static char *mbtoutf8 (char *s)
1852 {
1853 char *p, *r;
1854 wchar_t *tmp;
1855 size_t i, ret, len;
1856
1857 len = mbstowcs (NULL, s, strlen (s));
1858 if (len == 0) {
1859 return s;
1860 }
1861 else {
1862 if (len == (size_t) -1) {
1863 return s;
1864 }
1865 }
1866
1867 tmp = malloc (len * sizeof (wchar_t));
1868 if (!tmp) {
1869 return s;
1870 }
1871
1872 ret = mbstowcs (tmp, s, len);
1873 if (ret == (size_t) -1) {
1874 free (tmp);
1875 return s;
1876 }
1877
1878 len = 0;
1879 for (i = 0; i < ret; ++i) {
1880 len += fz_runelen (tmp[i]);
1881 }
1882
1883 p = r = malloc (len + 1);
1884 if (!r) {
1885 free (tmp);
1886 return s;
1887 }
1888
1889 for (i = 0; i < ret; ++i) {
1890 p += fz_runetochar (p, tmp[i]);
1891 }
1892 *p = 0;
1893 free (tmp);
1894 return r;
1895 }
1896
1897 CAMLprim value ml_mbtoutf8 (value s_v)
1898 {
1899 CAMLparam1 (s_v);
1900 CAMLlocal1 (ret_v);
1901 char *s, *r;
1902
1903 s = String_val (s_v);
1904 r = mbtoutf8 (s);
1905 if (r == s) {
1906 ret_v = s_v;
1907 }
1908 else {
1909 ret_v = caml_copy_string (r);
1910 free (r);
1911 }
1912 CAMLreturn (ret_v);
1913 }
1914
1915 static void * mainloop (void UNUSED_ATTR *unused)
1916 {
1917 char *p = NULL;
1918 int len, ret, oldlen = 0;
1919
1920 for (;;) {
1921 len = readlen ();
1922 if (len == 0) {
1923 errx (1, "readlen returned 0");
1924 }
1925
1926 if (oldlen < len + 1) {
1927 p = realloc (p, len + 1);
1928 if (!p) {
1929 err (1, "realloc %d failed", len + 1);
1930 }
1931 oldlen = len + 1;
1932 }
1933 readdata (p, len);
1934 p[len] = 0;
1935
1936 if (!strncmp ("open", p, 4)) {
1937 int wthack, off, ok = 0;
1938 char *password;
1939 char *filename;
1940 char *utf8filename;
1941 size_t filenamelen;
1942
1943 ret = sscanf (p + 5, " %d %d %n", &wthack, &state.cxack, &off);
1944 if (ret != 2) {
1945 errx (1, "malformed open `%.*s' ret=%d", len, p, ret);
1946 }
1947
1948 filename = p + 5 + off;
1949 filenamelen = strlen (filename);
1950 password = filename + filenamelen + 1;
1951
1952 lock ("open");
1953 fz_try (state.ctx) {
1954 openxref (filename, password);
1955 ok = 1;
1956 }
1957 fz_catch (state.ctx) {
1958 utf8filename = mbtoutf8 (filename);
1959 printd ("msg Could not open %s", utf8filename);
1960 }
1961 if (ok) {
1962 pdfinfo ();
1963 initpdims ();
1964 }
1965 unlock ("open");
1966
1967 if (ok) {
1968 if (!wthack) {
1969 utf8filename = mbtoutf8 (filename);
1970 printd ("msg Opened %s (press h/F1 to get help)",
1971 utf8filename);
1972 if (utf8filename != filename) {
1973 free (utf8filename);
1974 }
1975 }
1976 state.needoutline = 1;
1977 }
1978 }
1979 else if (!strncmp ("cs", p, 2)) {
1980 int i, colorspace;
1981
1982 ret = sscanf (p + 2, " %d", &colorspace);
1983 if (ret != 1) {
1984 errx (1, "malformed cs `%.*s' ret=%d", len, p, ret);
1985 }
1986 lock ("cs");
1987 set_tex_params (colorspace);
1988 for (i = 0; i < state.texcount; ++i) {
1989 state.texowners[i].w = -1;
1990 state.texowners[i].slice = NULL;
1991 }
1992 unlock ("cs");
1993 }
1994 else if (!strncmp ("freepage", p, 8)) {
1995 void *ptr;
1996
1997 ret = sscanf (p + 8, " %" SCN_ptr, SCN_ptr_cast (&ptr));
1998 if (ret != 1) {
1999 errx (1, "malformed freepage `%.*s' ret=%d", len, p, ret);
2000 }
2001 freepage (ptr);
2002 }
2003 else if (!strncmp ("freetile", p, 8)) {
2004 void *ptr;
2005
2006 ret = sscanf (p + 8, " %" SCN_ptr, SCN_ptr_cast (&ptr));
2007 if (ret != 1) {
2008 errx (1, "malformed freetile `%.*s' ret=%d", len, p, ret);
2009 }
2010 freetile (ptr);
2011 }
2012 else if (!strncmp ("search", p, 6)) {
2013 int icase, pageno, y, len2, forward;
2014 char *pattern;
2015 regex_t re;
2016
2017 ret = sscanf (p + 6, " %d %d %d %d,%n",
2018 &icase, &pageno, &y, &forward, &len2);
2019 if (ret != 4) {
2020 errx (1, "malformed search `%s' ret=%d", p, ret);
2021 }
2022
2023 pattern = p + 6 + len2;
2024 ret = regcomp (&re, pattern,
2025 REG_EXTENDED | (icase ? REG_ICASE : 0));
2026 if (ret) {
2027 char errbuf[80];
2028 size_t size;
2029
2030 size = regerror (ret, &re, errbuf, sizeof (errbuf));
2031 printd ("msg regcomp failed `%.*s'", (int) size, errbuf);
2032 }
2033 else {
2034 search (&re, pageno, y, forward);
2035 regfree (&re);
2036 }
2037 }
2038 else if (!strncmp ("geometry", p, 8)) {
2039 int w, h, fitmodel;
2040
2041 printd ("clear");
2042 ret = sscanf (p + 8, " %d %d %d", &w, &h, &fitmodel);
2043 if (ret != 3) {
2044 errx (1, "malformed geometry `%.*s' ret=%d", len, p, ret);
2045 }
2046
2047 lock ("geometry");
2048 state.h = h;
2049 if (w != state.w) {
2050 int i;
2051 state.w = w;
2052 for (i = 0; i < state.texcount; ++i) {
2053 state.texowners[i].slice = NULL;
2054 }
2055 }
2056 state.fitmodel = fitmodel;
2057 layout ();
2058 process_outline ();
2059
2060 state.gen++;
2061 unlock ("geometry");
2062 printd ("continue %d", state.pagecount);
2063 }
2064 else if (!strncmp ("reqlayout", p, 9)) {
2065 char *nameddest;
2066 int rotate, off, h;
2067 unsigned int fitmodel;
2068
2069 printd ("clear");
2070 ret = sscanf (p + 9, " %d %u %d %n",
2071 &rotate, &fitmodel, &h, &off);
2072 if (ret != 3) {
2073 errx (1, "bad reqlayout line `%.*s' ret=%d", len, p, ret);
2074 }
2075 lock ("reqlayout");
2076 if (state.rotate != rotate || state.fitmodel != fitmodel) {
2077 state.gen += 1;
2078 }
2079 state.rotate = rotate;
2080 state.fitmodel = fitmodel;
2081 state.h = h;
2082 layout ();
2083 process_outline ();
2084
2085 nameddest = p + 9 + off;
2086 if (state.type == DPDF && nameddest && *nameddest) {
2087 struct anchor a;
2088 fz_link_dest dest;
2089 pdf_obj *needle, *obj;
2090
2091 needle = pdf_new_string (state.u.pdf, nameddest,
2092 strlen (nameddest));
2093 obj = pdf_lookup_dest (state.u.pdf, needle);
2094 if (obj) {
2095 dest = pdf_parse_link_dest (state.u.pdf, FZ_LINK_GOTO, obj);
2096
2097 a = desttoanchor (&dest);
2098 if (a.n >= 0) {
2099 printd ("a %d %d %d", a.n, a.x, a.y);
2100 }
2101 else {
2102 printd ("emsg failed to parse destination `%s'\n",
2103 nameddest);
2104 }
2105 }
2106 else {
2107 printd ("emsg destination `%s' not found\n",
2108 nameddest);
2109 }
2110 pdf_drop_obj (needle);
2111 }
2112
2113 state.gen++;
2114 unlock ("reqlayout");
2115 printd ("continue %d", state.pagecount);
2116 }
2117 else if (!strncmp ("page", p, 4)) {
2118 double a, b;
2119 struct page *page;
2120 int pageno, pindex;
2121
2122 ret = sscanf (p + 4, " %d %d", &pageno, &pindex);
2123 if (ret != 2) {
2124 errx (1, "bad page line `%.*s' ret=%d", len, p, ret);
2125 }
2126
2127 lock ("page");
2128 a = now ();
2129 page = loadpage (pageno, pindex);
2130 b = now ();
2131 unlock ("page");
2132
2133 printd ("page %" FMT_ptr " %f", FMT_ptr_cast (page), b - a);
2134 }
2135 else if (!strncmp ("tile", p, 4)) {
2136 int x, y, w, h;
2137 struct page *page;
2138 struct tile *tile;
2139 double a, b;
2140 void *data;
2141
2142 ret = sscanf (p + 4, " %" SCN_ptr " %d %d %d %d %" SCN_ptr,
2143 SCN_ptr_cast (&page), &x, &y, &w, &h,
2144 SCN_ptr_cast (&data));
2145 if (ret != 6) {
2146 errx (1, "bad tile line `%.*s' ret=%d", len, p, ret);
2147 }
2148
2149 lock ("tile");
2150 a = now ();
2151 tile = rendertile (page, x, y, w, h, data);
2152 b = now ();
2153 unlock ("tile");
2154
2155 printd ("tile %d %d %" FMT_ptr " %u %f",
2156 x, y,
2157 FMT_ptr_cast (tile),
2158 tile->w * tile->h * tile->pixmap->n,
2159 b - a);
2160 }
2161 else if (!strncmp ("trimset", p, 7)) {
2162 fz_irect fuzz;
2163 int trimmargins;
2164
2165 ret = sscanf (p + 7, " %d %d %d %d %d",
2166 &trimmargins, &fuzz.x0, &fuzz.y0, &fuzz.x1, &fuzz.y1);
2167 if (ret != 5) {
2168 errx (1, "malformed trimset `%.*s' ret=%d", len, p, ret);
2169 }
2170 lock ("trimset");
2171 state.trimmargins = trimmargins;
2172 if (memcmp (&fuzz, &state.trimfuzz, sizeof (fuzz))) {
2173 state.trimanew = 1;
2174 state.trimfuzz = fuzz;
2175 }
2176 unlock ("trimset");
2177 }
2178 else if (!strncmp ("settrim", p, 7)) {
2179 fz_irect fuzz;
2180 int trimmargins;
2181
2182 ret = sscanf (p + 7, " %d %d %d %d %d",
2183 &trimmargins, &fuzz.x0, &fuzz.y0, &fuzz.x1, &fuzz.y1);
2184 if (ret != 5) {
2185 errx (1, "malformed settrim `%.*s' ret=%d", len, p, ret);
2186 }
2187 printd ("clear");
2188 lock ("settrim");
2189 state.trimmargins = trimmargins;
2190 state.needoutline = 1;
2191 if (memcmp (&fuzz, &state.trimfuzz, sizeof (fuzz))) {
2192 state.trimanew = 1;
2193 state.trimfuzz = fuzz;
2194 }
2195 state.pagedimcount = 0;
2196 free (state.pagedims);
2197 state.pagedims = NULL;
2198 initpdims ();
2199 layout ();
2200 process_outline ();
2201 unlock ("settrim");
2202 printd ("continue %d", state.pagecount);
2203 }
2204 else if (!strncmp ("sliceh", p, 6)) {
2205 int h;
2206
2207 ret = sscanf (p + 6, " %d", &h);
2208 if (ret != 1) {
2209 errx (1, "malformed sliceh `%.*s' ret=%d", len, p, ret);
2210 }
2211 if (h != state.sliceheight) {
2212 int i;
2213
2214 state.sliceheight = h;
2215 for (i = 0; i < state.texcount; ++i) {
2216 state.texowners[i].w = -1;
2217 state.texowners[i].h = -1;
2218 state.texowners[i].slice = NULL;
2219 }
2220 }
2221 }
2222 else if (!strncmp ("interrupt", p, 9)) {
2223 printd ("vmsg interrupted");
2224 }
2225 else {
2226 errx (1, "unknown command %.*s", len, p);
2227 }
2228 }
2229 return 0;
2230 }
2231
2232 CAMLprim value ml_realloctexts (value texcount_v)
2233 {
2234 CAMLparam1 (texcount_v);
2235 int ok;
2236
2237 if (trylock ("ml_realloctexts")) {
2238 ok = 0;
2239 goto done;
2240 }
2241 realloctexts (Int_val (texcount_v));
2242 ok = 1;
2243 unlock ("ml_realloctexts");
2244
2245 done:
2246 CAMLreturn (Val_bool (ok));
2247 }
2248
2249 static void recti (int x0, int y0, int x1, int y1)
2250 {
2251 GLfloat *v = state.vertices;
2252
2253 glVertexPointer (2, GL_FLOAT, 0, v);
2254 v[0] = x0; v[1] = y0;
2255 v[2] = x1; v[3] = y0;
2256 v[4] = x0; v[5] = y1;
2257 v[6] = x1; v[7] = y1;
2258 glDrawArrays (GL_TRIANGLE_STRIP, 0, 4);
2259 }
2260
2261 static void showsel (struct page *page, int ox, int oy)
2262 {
2263 int seen = 0;
2264 fz_irect bbox;
2265 fz_rect rect;
2266 fz_text_line *line;
2267 fz_page_block *pageb;
2268 fz_text_block *block;
2269 struct mark first, last;
2270 unsigned char selcolor[] = {15,15,15,140};
2271
2272 first = page->fmark;
2273 last = page->lmark;
2274
2275 if (!first.span || !last.span) return;
2276
2277 glEnable (GL_BLEND);
2278 glBlendFunc (GL_SRC_ALPHA, GL_SRC_ALPHA);
2279 glColor4ubv (selcolor);
2280
2281 ox += state.pagedims[page->pdimno].bounds.x0;
2282 oy += state.pagedims[page->pdimno].bounds.y0;
2283 for (pageb = page->text->blocks;
2284 pageb < page->text->blocks + page->text->len;
2285 ++pageb) {
2286 if (pageb->type != FZ_PAGE_BLOCK_TEXT) continue;
2287 block = pageb->u.text;
2288
2289 for (line = block->lines;
2290 line < block->lines + block->len;
2291 ++line) {
2292 fz_text_span *span;
2293 rect = fz_empty_rect;
2294
2295 for (span = line->first_span; span; span = span->next) {
2296 int i, j, k;
2297 bbox.x0 = bbox.y0 = bbox.x1 = bbox.y1 = 0;
2298
2299 j = 0;
2300 k = span->len - 1;
2301
2302 if (span == page->fmark.span && span == page->lmark.span) {
2303 seen = 1;
2304 j = MIN (first.i, last.i);
2305 k = MAX (first.i, last.i);
2306 }
2307 else {
2308 if (span == first.span) {
2309 seen = 1;
2310 j = first.i;
2311 }
2312 else if (span == last.span) {
2313 seen = 1;
2314 k = last.i;
2315 }
2316 }
2317
2318 if (seen) {
2319 for (i = j; i <= k; ++i) {
2320 fz_rect bbox1;
2321 fz_union_rect (&rect,
2322 fz_text_char_bbox (&bbox1, span, i));
2323 }
2324 fz_round_rect (&bbox, &rect);
2325 lprintf ("%d %d %d %d oy=%d ox=%d\n",
2326 bbox.x0,
2327 bbox.y0,
2328 bbox.x1,
2329 bbox.y1,
2330 oy, ox);
2331
2332 recti (bbox.x0 + ox, bbox.y0 + oy,
2333 bbox.x1 + ox, bbox.y1 + oy);
2334 if (span == last.span) {
2335 goto done;
2336 }
2337 rect = fz_empty_rect;
2338 }
2339 }
2340 }
2341 }
2342 done:
2343 glDisable (GL_BLEND);
2344 }
2345
2346 #include "glfont.c"
2347
2348 static void highlightlinks (struct page *page, int xoff, int yoff)
2349 {
2350 fz_matrix ctm, tm, pm;
2351 fz_link *link, *links;
2352 GLfloat *texcoords = state.texcoords;
2353 GLfloat *vertices = state.vertices;
2354
2355 switch (page->type) {
2356 case DPDF:
2357 links = page->u.pdfpage->links;
2358 break;
2359
2360 case DXPS:
2361 links = page->u.xpspage->links;
2362 break;
2363
2364 default:
2365 return;
2366 }
2367
2368 glEnable (GL_TEXTURE_1D);
2369 glEnable (GL_BLEND);
2370 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2371 glBindTexture (GL_TEXTURE_1D, state.stid);
2372
2373 xoff -= state.pagedims[page->pdimno].bounds.x0;
2374 yoff -= state.pagedims[page->pdimno].bounds.y0;
2375 fz_translate (&tm, xoff, yoff);
2376 pm = pagectm (page);
2377 fz_concat (&ctm, &pm, &tm);
2378
2379 glTexCoordPointer (1, GL_FLOAT, 0, texcoords);
2380 glVertexPointer (2, GL_FLOAT, 0, vertices);
2381
2382 for (link = links; link; link = link->next) {
2383 fz_point p1, p2, p3, p4;
2384
2385 p1.x = link->rect.x0;
2386 p1.y = link->rect.y0;
2387
2388 p2.x = link->rect.x1;
2389 p2.y = link->rect.y0;
2390
2391 p3.x = link->rect.x1;
2392 p3.y = link->rect.y1;
2393
2394 p4.x = link->rect.x0;
2395 p4.y = link->rect.y1;
2396
2397 fz_transform_point (&p1, &ctm);
2398 fz_transform_point (&p2, &ctm);
2399 fz_transform_point (&p3, &ctm);
2400 fz_transform_point (&p4, &ctm);
2401
2402 switch (link->dest.kind) {
2403 case FZ_LINK_GOTO: glColor3ub (255, 0, 0); break;
2404 case FZ_LINK_URI: glColor3ub (0, 0, 255); break;
2405 case FZ_LINK_LAUNCH: glColor3ub (0, 255, 0); break;
2406 default: glColor3ub (0, 0, 0); break;
2407 }
2408
2409 {
2410 float w, h, s, t;
2411
2412 w = p2.x - p1.x;
2413 h = p2.y - p1.y;
2414 t = sqrtf (w*w + h*h) * .25f;
2415
2416 w = p3.x - p2.x;
2417 h = p3.y - p2.y;
2418 s = sqrtf (w*w + h*h) * .25f;
2419
2420 texcoords[0] = 0; vertices[0] = p1.x; vertices[1] = p1.y;
2421 texcoords[1] = t; vertices[2] = p2.x; vertices[3] = p2.y;
2422
2423 texcoords[2] = 0; vertices[4] = p2.x; vertices[5] = p2.y;
2424 texcoords[3] = s; vertices[6] = p3.x; vertices[7] = p3.y;
2425
2426 texcoords[4] = 0; vertices[8] = p3.x; vertices[9] = p3.y;
2427 texcoords[5] = t; vertices[10] = p4.x; vertices[11] = p4.y;
2428
2429 texcoords[6] = 0; vertices[12] = p4.x; vertices[13] = p4.y;
2430 texcoords[7] = s; vertices[14] = p1.x; vertices[15] = p1.y;
2431 }
2432 glDrawArrays (GL_LINES, 0, 8);
2433 }
2434
2435 glDisable (GL_BLEND);
2436 glDisable (GL_TEXTURE_1D);
2437 }
2438
2439 static int compareslinks (const void *l, const void *r)
2440 {
2441 struct slink const *ls = l;
2442 struct slink const *rs = r;
2443 if (ls->bbox.y0 == rs->bbox.y0) {
2444 return rs->bbox.x0 - rs->bbox.x0;
2445 }
2446 return ls->bbox.y0 - rs->bbox.y0;
2447 }
2448
2449 static void droptext (struct page *page)
2450 {
2451 if (page->text) {
2452 fz_free_text_page (state.ctx, page->text);
2453 page->fmark.i = -1;
2454 page->lmark.i = -1;
2455 page->fmark.span = NULL;
2456 page->lmark.span = NULL;
2457 page->text = NULL;
2458 }
2459 if (page->sheet) {
2460 fz_free_text_sheet (state.ctx, page->sheet);
2461 page->sheet = NULL;
2462 }
2463 }
2464
2465 static void dropslinks (struct page *page)
2466 {
2467 if (page->slinks) {
2468 free (page->slinks);
2469 page->slinks = NULL;
2470 page->slinkcount = 0;
2471 }
2472 }
2473
2474 static void ensureslinks (struct page *page)
2475 {
2476 fz_matrix ctm;
2477 int i, count = 0;
2478 size_t slinksize = sizeof (*page->slinks);
2479 fz_link *link, *links;
2480
2481 if (state.gen != page->sgen) {
2482 dropslinks (page);
2483 page->sgen = state.gen;
2484 }
2485 if (page->slinks) return;
2486
2487 switch (page->type) {
2488 case DPDF:
2489 links = page->u.pdfpage->links;
2490 trimctm (page->u.pdfpage, page->pdimno);
2491 fz_concat (&ctm,
2492 &state.pagedims[page->pdimno].tctm,
2493 &state.pagedims[page->pdimno].ctm);
2494 break;
2495
2496 case DXPS:
2497 links = page->u.xpspage->links;
2498 ctm = state.pagedims[page->pdimno].ctm;
2499 break;
2500
2501 default:
2502 return;
2503 }
2504
2505 for (link = links; link; link = link->next) {
2506 count++;
2507 }
2508 if (count > 0) {
2509 page->slinkcount = count;
2510 page->slinks = calloc (count, slinksize);
2511 if (!page->slinks) {
2512 err (1, "realloc slinks %d", count);
2513 }
2514
2515 for (i = 0, link = links; link; ++i, link = link->next) {
2516 fz_rect rect;
2517
2518 rect = link->rect;
2519 fz_transform_rect (&rect, &ctm);
2520 page->slinks[i].link = link;
2521 fz_round_rect (&page->slinks[i].bbox, &rect);
2522 }
2523 qsort (page->slinks, count, slinksize, compareslinks);
2524 }
2525 }
2526
2527 /* slightly tweaked fmt_ulong by D.J. Bernstein */
2528 static void fmt_linkn (char *s, unsigned int u)
2529 {
2530 unsigned int len; unsigned int q;
2531 unsigned int zma = 'z' - 'a' + 1;
2532 len = 1; q = u;
2533 while (q > zma - 1) { ++len; q /= zma; }
2534 if (s) {
2535 s += len;
2536 do { *--s = 'a' + (u % zma) - (u < zma && len > 1); u /= zma; } while(u);
2537 /* handles u == 0 */
2538 }
2539 s[len] = 0;
2540 }
2541
2542 static void highlightslinks (struct page *page, int xoff, int yoff,
2543 int noff, char *targ, int tlen, int hfsize)
2544 {
2545 int i;
2546 char buf[40];
2547 struct slink *slink;
2548 double x0, y0, x1, y1, w;
2549
2550 ensureslinks (page);
2551 glColor3ub (0xc3, 0xb0, 0x91);
2552 for (i = 0; i < page->slinkcount; ++i) {
2553 fmt_linkn (buf, i + noff);
2554 if (!tlen || !strncmp (targ, buf, tlen)) {
2555 slink = &page->slinks[i];
2556
2557 x0 = slink->bbox.x0 + xoff - 5;
2558 y1 = slink->bbox.y0 + yoff - 5;
2559 y0 = y1 + 10 + hfsize;
2560 w = measure_string (state.face, hfsize, buf);
2561 x1 = x0 + w + 10;
2562 recti (x0, y0, x1, y1);
2563 }
2564 }
2565
2566 glEnable (GL_BLEND);
2567 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2568 glEnable (GL_TEXTURE_2D);
2569 glColor3ub (0, 0, 0);
2570 for (i = 0; i < page->slinkcount; ++i) {
2571 fmt_linkn (buf, i + noff);
2572 if (!tlen || !strncmp (targ, buf, tlen)) {
2573 slink = &page->slinks[i];
2574
2575 x0 = slink->bbox.x0 + xoff;
2576 y0 = slink->bbox.y0 + yoff + hfsize;
2577 draw_string (state.face, hfsize, x0, y0, buf);
2578 }
2579 }
2580 glDisable (GL_TEXTURE_2D);
2581 glDisable (GL_BLEND);
2582 }
2583
2584 static void uploadslice (struct tile *tile, struct slice *slice)
2585 {
2586 int offset;
2587 struct slice *slice1;
2588 unsigned char *texdata;
2589
2590 offset = 0;
2591 for (slice1 = tile->slices; slice != slice1; slice1++) {
2592 offset += slice1->h * tile->w * tile->pixmap->n;
2593 }
2594 if (slice->texindex != -1 && slice->texindex < state.texcount
2595 && state.texowners[slice->texindex].slice == slice) {
2596 glBindTexture (GL_TEXTURE_RECTANGLE_ARB, state.texids[slice->texindex]);
2597 }
2598 else {
2599 int subimage = 0;
2600 int texindex = state.texindex++ % state.texcount;
2601
2602 if (state.texowners[texindex].w == tile->w) {
2603 if (state.texowners[texindex].h >= slice->h) {
2604 subimage = 1;
2605 }
2606 else {
2607 state.texowners[texindex].h = slice->h;
2608 }
2609 }
2610 else {
2611 state.texowners[texindex].h = slice->h;
2612 }
2613
2614 state.texowners[texindex].w = tile->w;
2615 state.texowners[texindex].slice = slice;
2616 slice->texindex = texindex;
2617
2618 glBindTexture (GL_TEXTURE_RECTANGLE_ARB, state.texids[texindex]);
2619 if (tile->pbo) {
2620 state.glBindBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB, tile->pbo->id);
2621 texdata = 0;
2622 }
2623 else {
2624 texdata = tile->pixmap->samples;
2625 }
2626 if (subimage) {
2627 glTexSubImage2D (GL_TEXTURE_RECTANGLE_ARB,
2628 0,
2629 0,
2630 0,
2631 tile->w,
2632 slice->h,
2633 state.texform,
2634 state.texty,
2635 texdata+offset
2636 );
2637 }
2638 else {
2639 glTexImage2D (GL_TEXTURE_RECTANGLE_ARB,
2640 0,
2641 state.texiform,
2642 tile->w,
2643 slice->h,
2644 0,
2645 state.texform,
2646 state.texty,
2647 texdata+offset
2648 );
2649 }
2650 if (tile->pbo) {
2651 state.glBindBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB, 0);
2652 }
2653 }
2654 }
2655
2656 CAMLprim value ml_begintiles (value unit_v)
2657 {
2658 CAMLparam1 (unit_v);
2659 glEnable (GL_TEXTURE_RECTANGLE_ARB);
2660 glTexCoordPointer (2, GL_FLOAT, 0, state.texcoords);
2661 glVertexPointer (2, GL_FLOAT, 0, state.vertices);
2662 CAMLreturn (unit_v);
2663 }
2664
2665 CAMLprim value ml_endtiles (value unit_v)
2666 {
2667 CAMLparam1 (unit_v);
2668 glDisable (GL_TEXTURE_RECTANGLE_ARB);
2669 CAMLreturn (unit_v);
2670 }
2671
2672 CAMLprim value ml_drawtile (value args_v, value ptr_v)
2673 {
2674 CAMLparam2 (args_v, ptr_v);
2675 int dispx = Int_val (Field (args_v, 0));
2676 int dispy = Int_val (Field (args_v, 1));
2677 int dispw = Int_val (Field (args_v, 2));
2678 int disph = Int_val (Field (args_v, 3));
2679 int tilex = Int_val (Field (args_v, 4));
2680 int tiley = Int_val (Field (args_v, 5));
2681 char *s = String_val (ptr_v);
2682 struct tile *tile = parse_pointer ("ml_drawtile", s);
2683 int slicey, firstslice;
2684 struct slice *slice;
2685 GLfloat *texcoords = state.texcoords;
2686 GLfloat *vertices = state.vertices;
2687
2688 firstslice = tiley / tile->sliceheight;
2689 slice = &tile->slices[firstslice];
2690 slicey = tiley % tile->sliceheight;
2691
2692 while (disph > 0) {
2693 int dh;
2694
2695 dh = slice->h - slicey;
2696 dh = MIN (disph, dh);
2697 uploadslice (tile, slice);
2698
2699 texcoords[0] = tilex; texcoords[1] = slicey;
2700 texcoords[2] = tilex+dispw; texcoords[3] = slicey;
2701 texcoords[4] = tilex; texcoords[5] = slicey+dh;
2702 texcoords[6] = tilex+dispw; texcoords[7] = slicey+dh;
2703
2704 vertices[0] = dispx; vertices[1] = dispy;
2705 vertices[2] = dispx+dispw; vertices[3] = dispy;
2706 vertices[4] = dispx; vertices[5] = dispy+dh;
2707 vertices[6] = dispx+dispw; vertices[7] = dispy+dh;
2708
2709 glDrawArrays (GL_TRIANGLE_STRIP, 0, 4);
2710 dispy += dh;
2711 disph -= dh;
2712 slice++;
2713 ARSERT (!(slice - tile->slices >= tile->slicecount && disph > 0));
2714 slicey = 0;
2715 }
2716 CAMLreturn (Val_unit);
2717 }
2718
2719 CAMLprim value ml_postprocess (value ptr_v, value hlinks_v,
2720 value xoff_v, value yoff_v,
2721 value li_v)
2722 {
2723 CAMLparam5 (ptr_v, hlinks_v, xoff_v, yoff_v, li_v);
2724 int xoff = Int_val (xoff_v);
2725 int yoff = Int_val (yoff_v);
2726 int noff = Int_val (Field (li_v, 0));
2727 char *targ = String_val (Field (li_v, 1));
2728 int tlen = caml_string_length (Field (li_v, 1));
2729 int hfsize = Int_val (Field (li_v, 2));
2730 char *s = String_val (ptr_v);
2731 int hlmask = Int_val (hlinks_v);
2732 struct page *page = parse_pointer ("ml_postprocess", s);
2733
2734 if (!page->u.ptr) {
2735 /* deal with loadpage failed pages */
2736 goto done;
2737 }
2738
2739 if (hlmask & 1) highlightlinks (page, xoff, yoff);
2740 if (trylock ("ml_postprocess")) {
2741 noff = 0;
2742 goto done;
2743 }
2744 if (hlmask & 2) {
2745 highlightslinks (page, xoff, yoff, noff, targ, tlen, hfsize);
2746 noff = page->slinkcount;
2747 }
2748 if (page->tgen == state.gen) {
2749 showsel (page, xoff, yoff);
2750 }
2751 unlock ("ml_postprocess");
2752
2753 done:
2754 CAMLreturn (Val_int (noff));
2755 }
2756
2757 static fz_link *getlink (struct page *page, int x, int y)
2758 {
2759 fz_point p;
2760 fz_matrix ctm;
2761 const fz_matrix *tctm;
2762 fz_link *link, *links;
2763
2764 switch (page->type) {
2765 case DPDF:
2766 trimctm (page->u.pdfpage, page->pdimno);
2767 tctm = &state.pagedims[page->pdimno].tctm;
2768 links = page->u.pdfpage->links;
2769 break;
2770
2771 case DXPS:
2772 tctm = &fz_identity;
2773 links = page->u.xpspage->links;
2774 break;
2775
2776 default:
2777 return NULL;
2778 }
2779 p.x = x;
2780 p.y = y;
2781
2782 fz_concat (&ctm, tctm, &state.pagedims[page->pdimno].ctm);
2783 fz_invert_matrix (&ctm, &ctm);
2784 fz_transform_point (&p, &ctm);
2785
2786 for (link = links; link; link = link->next) {
2787 if (p.x >= link->rect.x0 && p.x <= link->rect.x1) {
2788 if (p.y >= link->rect.y0 && p.y <= link->rect.y1) {
2789 return link;
2790 }
2791 }
2792 }
2793 return NULL;
2794 }
2795
2796 static void ensuretext (struct page *page)
2797 {
2798 if (state.gen != page->tgen) {
2799 droptext (page);
2800 page->tgen = state.gen;
2801 }
2802 if (!page->text) {
2803 fz_matrix ctm;
2804 fz_device *tdev;
2805
2806 page->text = fz_new_text_page (state.ctx);
2807 page->sheet = fz_new_text_sheet (state.ctx);
2808 tdev = fz_new_text_device (state.ctx, page->sheet, page->text);
2809 ctm = pagectm (page);
2810 fz_begin_page (tdev, &fz_infinite_rect, &ctm);
2811 fz_run_display_list (page->dlist, tdev, &ctm, &fz_infinite_rect, NULL);
2812 qsort (page->text->blocks, page->text->len,
2813 sizeof (*page->text->blocks), compareblocks);
2814 fz_end_page (tdev);
2815 fz_free_device (tdev);
2816 }
2817 }
2818
2819 CAMLprim value ml_find_page_with_links (value start_page_v, value dir_v)
2820 {
2821 CAMLparam2 (start_page_v, dir_v);
2822 CAMLlocal1 (ret_v);
2823 int i, dir = Int_val (dir_v);
2824 int start_page = Int_val (start_page_v);
2825 int end_page = dir > 0 ? state.pagecount : -1;
2826
2827 ret_v = Val_int (0);
2828 if (!(state.type == DPDF || state.type == DXPS)) {
2829 goto done;
2830 }
2831
2832 lock ("ml_findpage_with_links");
2833 for (i = start_page + dir; i != end_page; i += dir) {
2834 int found;
2835
2836 switch (state.type) {
2837 case DPDF:
2838 {
2839 pdf_page *page = NULL;
2840
2841 fz_try (state.ctx) {
2842 page = pdf_load_page (state.u.pdf, i);
2843 found = !!page->links;
2844 }
2845 fz_catch (state.ctx) {
2846 found = 0;
2847 }
2848 if (page) {
2849 freepdfpage (page);
2850 }
2851 }
2852 break;
2853 case DXPS:
2854 {
2855 xps_page *page = xps_load_page (state.u.xps, i);
2856 found = !!page->links;
2857 freexpspage (page);
2858 }
2859 break;
2860
2861 default:
2862 ARSERT (0 && "invalid document type");
2863 }
2864
2865 if (found) {
2866 ret_v = caml_alloc_small (1, 1);
2867 Field (ret_v, 0) = Val_int (i);
2868 goto unlock;
2869 }
2870 }
2871 unlock:
2872 unlock ("ml_findpage_with_links");
2873
2874 done:
2875 CAMLreturn (ret_v);
2876 }
2877
2878 enum { dir_first, dir_last };
2879 enum { dir_first_visible, dir_left, dir_right, dir_down, dir_up };
2880
2881 CAMLprim value ml_findlink (value ptr_v, value dir_v)
2882 {
2883 CAMLparam2 (ptr_v, dir_v);
2884 CAMLlocal2 (ret_v, pos_v);
2885 struct page *page;
2886 int dirtag, i, slinkindex;
2887 struct slink *found = NULL ,*slink;
2888 char *s = String_val (ptr_v);
2889
2890 page = parse_pointer ("ml_findlink", s);
2891 ret_v = Val_int (0);
2892 if (trylock ("ml_findlink")) {
2893 goto done;
2894 }
2895
2896 ensureslinks (page);
2897
2898 if (Is_block (dir_v)) {
2899 dirtag = Tag_val (dir_v);
2900 switch (dirtag) {
2901 case dir_first_visible:
2902 {
2903 int x0, y0, dir, first_index, last_index;
2904
2905 pos_v = Field (dir_v, 0);
2906 x0 = Int_val (Field (pos_v, 0));
2907 y0 = Int_val (Field (pos_v, 1));
2908 dir = Int_val (Field (pos_v, 2));
2909
2910 if (dir >= 0) {
2911 dir = 1;
2912 first_index = 0;
2913 last_index = page->slinkcount;
2914 }
2915 else {
2916 first_index = page->slinkcount - 1;
2917 last_index = -1;
2918 }
2919
2920 for (i = first_index; i != last_index; i += dir) {
2921 slink = &page->slinks[i];
2922 if (slink->bbox.y0 >= y0 && slink->bbox.x0 >= x0) {
2923 found = slink;
2924 break;
2925 }
2926 }
2927 }
2928 break;
2929
2930 case dir_left:
2931 slinkindex = Int_val (Field (dir_v, 0));
2932 found = &page->slinks[slinkindex];
2933 for (i = slinkindex - 1; i >= 0; --i) {
2934 slink = &page->slinks[i];
2935 if (slink->bbox.x0 < found->bbox.x0) {
2936 found = slink;
2937 break;
2938 }
2939 }
2940 break;
2941
2942 case dir_right:
2943 slinkindex = Int_val (Field (dir_v, 0));
2944 found = &page->slinks[slinkindex];
2945 for (i = slinkindex + 1; i < page->slinkcount; ++i) {
2946 slink = &page->slinks[i];
2947 if (slink->bbox.x0 > found->bbox.x0) {
2948 found = slink;
2949 break;
2950 }
2951 }
2952 break;
2953
2954 case dir_down:
2955 slinkindex = Int_val (Field (dir_v, 0));
2956 found = &page->slinks[slinkindex];
2957 for (i = slinkindex + 1; i < page->slinkcount; ++i) {
2958 slink = &page->slinks[i];
2959 if (slink->bbox.y0 >= found->bbox.y0) {
2960 found = slink;
2961 break;
2962 }
2963 }
2964 break;
2965
2966 case dir_up:
2967 slinkindex = Int_val (Field (dir_v, 0));
2968 found = &page->slinks[slinkindex];
2969 for (i = slinkindex - 1; i >= 0; --i) {
2970 slink = &page->slinks[i];
2971 if (slink->bbox.y0 <= found->bbox.y0) {
2972 found = slink;
2973 break;
2974 }
2975 }
2976 break;
2977 }
2978 }
2979 else {
2980 dirtag = Int_val (dir_v);
2981 switch (dirtag) {
2982 case dir_first:
2983 found = page->slinks;
2984 break;
2985
2986 case dir_last:
2987 if (page->slinks) {
2988 found = page->slinks + (page->slinkcount - 1);
2989 }
2990 break;
2991 }
2992 }
2993 if (found) {
2994 ret_v = caml_alloc_small (2, 1);
2995 Field (ret_v, 0) = Val_int (found - page->slinks);
2996 }
2997
2998 unlock ("ml_findlink");
2999 done:
3000 CAMLreturn (ret_v);
3001 }
3002
3003 enum { uuri, ugoto, utext, uunexpected,
3004 ulaunch, unamed, uremote, uremotedest };
3005
3006 #define LINKTOVAL \
3007 { \
3008 int pageno; \
3009 \
3010 switch (link->dest.kind) { \
3011 case FZ_LINK_GOTO: \
3012 { \
3013 fz_point p; \
3014 \
3015 pageno = link->dest.ld.gotor.page; \
3016 p.x = 0; \
3017 p.y = 0; \
3018 \
3019 if (link->dest.ld.gotor.flags & fz_link_flag_t_valid) { \
3020 p.y = link->dest.ld.gotor.lt.y; \
3021 fz_transform_point (&p, &pdim->lctm); \
3022 if (p.y < 0) p.y = 0; \
3023 } \
3024 tup_v = caml_alloc_tuple (2); \
3025 ret_v = caml_alloc_small (1, ugoto); \
3026 Field (tup_v, 0) = Val_int (pageno); \
3027 Field (tup_v, 1) = Val_int (p.y); \
3028 Field (ret_v, 0) = tup_v; \
3029 } \
3030 break; \
3031 \
3032 case FZ_LINK_URI: \
3033 str_v = caml_copy_string (link->dest.ld.uri.uri); \
3034 ret_v = caml_alloc_small (1, uuri); \
3035 Field (ret_v, 0) = str_v; \
3036 break; \
3037 \
3038 case FZ_LINK_LAUNCH: \
3039 str_v = caml_copy_string (link->dest.ld.launch.file_spec); \
3040 ret_v = caml_alloc_small (1, ulaunch); \
3041 Field (ret_v, 0) = str_v; \
3042 break; \
3043 \
3044 case FZ_LINK_NAMED: \
3045 str_v = caml_copy_string (link->dest.ld.named.named); \
3046 ret_v = caml_alloc_small (1, unamed); \
3047 Field (ret_v, 0) = str_v; \
3048 break; \
3049 \
3050 case FZ_LINK_GOTOR: \
3051 { \
3052 int rty; \
3053 \
3054 str_v = caml_copy_string (link->dest.ld.gotor.file_spec); \
3055 pageno = link->dest.ld.gotor.page; \
3056 if (pageno == -1) { \
3057 gr_v = caml_copy_string (link->dest.ld.gotor.dest); \
3058 rty = uremotedest; \
3059 } \
3060 else { \
3061 gr_v = Val_int (pageno); \
3062 rty = uremote; \
3063 } \
3064 tup_v = caml_alloc_tuple (2); \
3065 ret_v = caml_alloc_small (1, rty); \
3066 Field (tup_v, 0) = str_v; \
3067 Field (tup_v, 1) = gr_v; \
3068 Field (ret_v, 0) = tup_v; \
3069 } \
3070 break; \
3071 \
3072 default: \
3073 { \
3074 char buf[80]; \
3075 \
3076 snprintf (buf, sizeof (buf), \
3077 "unhandled link kind %d", link->dest.kind); \
3078 str_v = caml_copy_string (buf); \
3079 ret_v = caml_alloc_small (1, uunexpected); \
3080 Field (ret_v, 0) = str_v; \
3081 } \
3082 break; \
3083 } \
3084 }
3085
3086 CAMLprim value ml_getlink (value ptr_v, value n_v)
3087 {
3088 CAMLparam2 (ptr_v, n_v);
3089 CAMLlocal4 (ret_v, tup_v, str_v, gr_v);
3090 fz_link *link;
3091 struct page *page;
3092 struct pagedim *pdim;
3093 char *s = String_val (ptr_v);
3094
3095 ret_v = Val_int (0);
3096 if (trylock ("ml_getlink")) {
3097 goto done;
3098 }
3099
3100 page = parse_pointer ("ml_getlink", s);
3101 ensureslinks (page);
3102 pdim = &state.pagedims[page->pdimno];
3103 link = page->slinks[Int_val (n_v)].link;
3104 LINKTOVAL;
3105
3106 unlock ("ml_getlink");
3107 done:
3108 CAMLreturn (ret_v);
3109 }
3110
3111 CAMLprim value ml_getlinkcount (value ptr_v)
3112 {
3113 CAMLparam1 (ptr_v);
3114 struct page *page;
3115 char *s = String_val (ptr_v);
3116
3117 page = parse_pointer ("ml_getlinkcount", s);
3118 CAMLreturn (Val_int (page->slinkcount));
3119 }
3120
3121 CAMLprim value ml_getlinkrect (value ptr_v, value n_v)
3122 {
3123 CAMLparam2 (ptr_v, n_v);
3124 CAMLlocal1 (ret_v);
3125 struct page *page;
3126 struct slink *slink;
3127 char *s = String_val (ptr_v);
3128
3129 page = parse_pointer ("ml_getlinkrect", s);
3130 ret_v = caml_alloc_tuple (4);
3131 if (trylock ("ml_getlinkrect")) {
3132 Field (ret_v, 0) = Val_int (0);
3133 Field (ret_v, 1) = Val_int (0);
3134 Field (ret_v, 2) = Val_int (0);
3135 Field (ret_v, 3) = Val_int (0);
3136 goto done;
3137 }
3138 ensureslinks (page);
3139
3140 slink = &page->slinks[Int_val (n_v)];
3141 Field (ret_v, 0) = Val_int (slink->bbox.x0);
3142 Field (ret_v, 1) = Val_int (slink->bbox.y0);
3143 Field (ret_v, 2) = Val_int (slink->bbox.x1);
3144 Field (ret_v, 3) = Val_int (slink->bbox.y1);
3145 unlock ("ml_getlinkrect");
3146
3147 done:
3148 CAMLreturn (ret_v);
3149 }
3150
3151 CAMLprim value ml_whatsunder (value ptr_v, value x_v, value y_v)
3152 {
3153 CAMLparam3 (ptr_v, x_v, y_v);
3154 CAMLlocal4 (ret_v, tup_v, str_v, gr_v);
3155 fz_link *link;
3156 struct page *page;
3157 char *ptr = String_val (ptr_v);
3158 int x = Int_val (x_v), y = Int_val (y_v);
3159 struct pagedim *pdim;
3160
3161 ret_v = Val_int (0);
3162 if (trylock ("ml_whatsunder")) {
3163 goto done;
3164 }
3165
3166 page = parse_pointer ("ml_whatsunder", ptr);
3167 pdim = &state.pagedims[page->pdimno];
3168 x += pdim->bounds.x0;
3169 y += pdim->bounds.y0;
3170 link = getlink (page, x, y);
3171 if (link) {
3172 LINKTOVAL;
3173 }
3174 else {
3175 fz_rect *b;
3176 fz_page_block *pageb;
3177 fz_text_block *block;
3178
3179 ensuretext (page);
3180 for (pageb = page->text->blocks;
3181 pageb < page->text->blocks + page->text->len;
3182 ++pageb) {
3183 fz_text_line *line;
3184 if (pageb->type != FZ_PAGE_BLOCK_TEXT) continue;
3185 block = pageb->u.text;
3186
3187 b = &block->bbox;
3188 if (!(x >= b->x0 && x <= b->x1 && y >= b->y0 && y <= b->y1))
3189 continue;
3190
3191 for (line = block->lines;
3192 line < block->lines + block->len;
3193 ++line) {
3194 fz_text_span *span;
3195
3196 b = &line->bbox;
3197 if (!(x >= b->x0 && x <= b->x1 && y >= b->y0 && y <= b->y1))
3198 continue;
3199
3200 for (span = line->first_span; span; span = span->next) {
3201 int charnum;
3202
3203 b = &span->bbox;
3204 if (!(x >= b->x0 && x <= b->x1 && y >= b->y0 && y <= b->y1))
3205 continue;
3206
3207 for (charnum = 0; charnum < span->len; ++charnum) {
3208 fz_rect bbox;
3209 fz_text_char_bbox (&bbox, span, charnum);
3210 b = &bbox;
3211
3212 if (x >= b->x0 && x <= b->x1
3213 && y >= b->y0 && y <= b->y1) {
3214 fz_text_style *style = span->text->style;
3215 const char *n2 =
3216 style->font && style->font->name
3217 ? style->font->name
3218 : "Span has no font name"
3219 ;
3220 FT_FaceRec *face = style->font->ft_face;
3221 if (face && face->family_name) {
3222 char *s;
3223 char *n1 = face->family_name;
3224 size_t l1 = strlen (n1);
3225 size_t l2 = strlen (n2);
3226
3227 if (l1 != l2 || memcmp (n1, n2, l1)) {
3228 s = malloc (l1 + l2 + 2);
3229 if (s) {
3230 memcpy (s, n2, l2);
3231 s[l2] = '=';
3232 memcpy (s + l2 + 1, n1, l1 + 1);
3233 str_v = caml_copy_string (s);
3234 free (s);
3235 }
3236 }
3237 }
3238 if (str_v == Val_unit) {
3239 str_v = caml_copy_string (n2);
3240 }
3241 ret_v = caml_alloc_small (1, utext);
3242 Field (ret_v, 0) = str_v;
3243 goto unlock;
3244 }
3245 }
3246 }
3247 }
3248 }
3249 }
3250 unlock:
3251 unlock ("ml_whatsunder");
3252
3253 done:
3254 CAMLreturn (ret_v);
3255 }
3256
3257 enum { mark_page, mark_block, mark_line, mark_word };
3258
3259 static int uninteresting (int c)
3260 {
3261 return c == ' ' || c == '\n' || c == '\t' || c == '\n' || c == '\r'
3262 || ispunct (c);
3263 }
3264
3265 CAMLprim value ml_clearmark (value ptr_v)
3266 {
3267 CAMLparam1 (ptr_v);
3268 char *s = String_val (ptr_v);
3269 struct page *page;
3270
3271 if (trylock ("ml_clearmark")) {
3272 goto done;
3273 }
3274
3275 page = parse_pointer ("ml_clearmark", s);
3276 page->fmark.span = NULL;
3277 page->lmark.span = NULL;
3278 page->fmark.i = 0;
3279 page->lmark.i = 0;
3280
3281 unlock ("ml_clearmark");
3282 done:
3283 CAMLreturn (Val_unit);
3284 }
3285
3286 CAMLprim value ml_markunder (value ptr_v, value x_v, value y_v, value mark_v)
3287 {
3288 CAMLparam4 (ptr_v, x_v, y_v, mark_v);
3289 CAMLlocal1 (ret_v);
3290 fz_rect *b;
3291 struct page *page;
3292 fz_text_line *line;
3293 fz_page_block *pageb;
3294 fz_text_block *block;
3295 struct pagedim *pdim;
3296 int mark = Int_val (mark_v);
3297 char *s = String_val (ptr_v);
3298 int x = Int_val (x_v), y = Int_val (y_v);
3299
3300 ret_v = Val_bool (0);
3301 if (trylock ("ml_markunder")) {
3302 goto done;
3303 }
3304
3305 page = parse_pointer ("ml_markunder", s);
3306 pdim = &state.pagedims[page->pdimno];
3307
3308 ensuretext (page);
3309
3310 if (mark == mark_page) {
3311 int i;
3312 fz_page_block *pb1 = NULL, *pb2 = NULL;
3313
3314 for (i = 0; i < page->text->len; ++i) {
3315 if (page->text->blocks[i].type == FZ_PAGE_BLOCK_TEXT) {
3316 pb1 = &page->text->blocks[i];
3317 break;
3318 }
3319 }
3320 if (!pb1) goto unlock;
3321
3322 for (i = page->text->len - 1; i >= 0; --i) {
3323 if (page->text->blocks[i].type == FZ_PAGE_BLOCK_TEXT) {
3324 pb2 = &page->text->blocks[i];
3325 break;
3326 }
3327 }
3328 if (!pb2) goto unlock;
3329
3330 block = pb1->u.text;
3331
3332 page->fmark.i = 0;
3333 page->fmark.span = block->lines->first_span;
3334
3335 block = pb2->u.text;
3336 line = &block->lines[block->len - 1];
3337 page->lmark.i = line->last_span->len - 1;
3338 page->lmark.span = line->last_span;
3339 ret_v = Val_bool (1);
3340 goto unlock;
3341 }
3342
3343 x += pdim->bounds.x0;
3344 y += pdim->bounds.y0;
3345
3346 for (pageb = page->text->blocks;
3347 pageb < page->text->blocks + page->text->len;
3348 ++pageb) {
3349 if (pageb->type != FZ_PAGE_BLOCK_TEXT) continue;
3350 block = pageb->u.text;
3351
3352 b = &block->bbox;
3353 if (!(x >= b->x0 && x <= b->x1 && y >= b->y0 && y <= b->y1))
3354 continue;
3355
3356 if (mark == mark_block) {
3357 page->fmark.i = 0;
3358 page->fmark.span = block->lines->first_span;
3359
3360 line = &block->lines[block->len - 1];
3361 page->lmark.i = line->last_span->len - 1;
3362 page->lmark.span = line->last_span;
3363 ret_v = Val_bool (1);
3364 goto unlock;
3365 }
3366
3367 for (line = block->lines;
3368 line < block->lines + block->len;
3369 ++line) {
3370 fz_text_span *span;
3371
3372 b = &line->bbox;
3373 if (!(x >= b->x0 && x <= b->x1 && y >= b->y0 && y <= b->y1))
3374 continue;
3375
3376 if (mark == mark_line) {
3377 page->fmark.i = 0;
3378 page->fmark.span = line->first_span;
3379
3380 page->lmark.i = line->last_span->len - 1;
3381 page->lmark.span = line->last_span;
3382 ret_v = Val_bool (1);
3383 goto unlock;
3384 }
3385
3386 for (span = line->first_span; span; span = span->next) {
3387 int charnum;
3388
3389 b = &span->bbox;
3390 if (!(x >= b->x0 && x <= b->x1 && y >= b->y0 && y <= b->y1))
3391 continue;
3392
3393 for (charnum = 0; charnum < span->len; ++charnum) {
3394 fz_rect bbox;
3395 fz_text_char_bbox (&bbox, span, charnum);
3396 b = &bbox;
3397
3398 if (x >= b->x0 && x <= b->x1 && y >= b->y0 && y <= b->y1) {
3399 /* unicode ftw */
3400 int charnum2, charnum3 = -1, charnum4 = -1;
3401
3402 if (uninteresting (span->text[charnum].c)) goto unlock;
3403
3404 for (charnum2 = charnum; charnum2 >= 0; --charnum2) {
3405 if (uninteresting (span->text[charnum2].c)) {
3406 charnum3 = charnum2 + 1;
3407 break;
3408 }
3409 }
3410 if (charnum3 == -1) charnum3 = 0;
3411
3412 for (charnum2 = charnum + 1;
3413 charnum2 < span->len;
3414 ++charnum2) {
3415 if (uninteresting (span->text[charnum2].c)) break;
3416 charnum4 = charnum2;
3417 }
3418 if (charnum4 == -1) goto unlock;
3419
3420 page->fmark.i = charnum3;
3421 page->fmark.span = span;
3422
3423 page->lmark.i = charnum4;
3424 page->lmark.span = span;
3425 ret_v = Val_bool (1);
3426 goto unlock;
3427 }
3428 }
3429 }
3430 }
3431 }
3432 unlock:
3433 if (!Bool_val (ret_v)) {
3434 page->fmark.span = NULL;
3435 page->lmark.span = NULL;
3436 page->fmark.i = 0;
3437 page->lmark.i = 0;
3438 }
3439 unlock ("ml_markunder");
3440
3441 done:
3442 CAMLreturn (ret_v);
3443 }
3444
3445 CAMLprim value ml_rectofblock (value ptr_v, value x_v, value y_v)
3446 {
3447 CAMLparam3 (ptr_v, x_v, y_v);
3448 CAMLlocal2 (ret_v, res_v);
3449 fz_rect *b = NULL;
3450 struct page *page;
3451 fz_page_block *pageb;
3452 struct pagedim *pdim;
3453 char *s = String_val (ptr_v);
3454 int x = Int_val (x_v), y = Int_val (y_v);
3455
3456 ret_v = Val_int (0);
3457 if (trylock ("ml_rectofblock")) {
3458 goto done;
3459 }
3460
3461 page = parse_pointer ("ml_rectofblock", s);
3462 pdim = &state.pagedims[page->pdimno];
3463 x += pdim->bounds.x0;
3464 y += pdim->bounds.y0;
3465
3466 ensuretext (page);
3467
3468 for (pageb = page->text->blocks;
3469 pageb < page->text->blocks + page->text->len;
3470 ++pageb) {
3471 switch (pageb->type) {
3472 case FZ_PAGE_BLOCK_TEXT:
3473 b = &pageb->u.text->bbox;
3474 break;
3475
3476 case FZ_PAGE_BLOCK_IMAGE:
3477 b = &pageb->u.image->bbox;
3478 break;
3479
3480 default:
3481 continue;
3482 }
3483
3484 if (x >= b->x0 && x <= b->x1 && y >= b->y0 && y <= b->y1)
3485 break;
3486 b = NULL;
3487 }
3488 if (b) {
3489 res_v = caml_alloc_small (4 * Double_wosize, Double_array_tag);
3490 ret_v = caml_alloc_small (1, 1);
3491 Store_double_field (res_v, 0, b->x0);
3492 Store_double_field (res_v, 1, b->x1);
3493 Store_double_field (res_v, 2, b->y0);
3494 Store_double_field (res_v, 3, b->y1);
3495 Field (ret_v, 0) = res_v;
3496 }
3497 unlock ("ml_rectofblock");
3498
3499 done:
3500 CAMLreturn (ret_v);
3501 }
3502
3503 CAMLprim value ml_seltext (value ptr_v, value rect_v)
3504 {
3505 CAMLparam2 (ptr_v, rect_v);
3506 fz_rect b;
3507 struct page *page;
3508 struct pagedim *pdim;
3509 char *s = String_val (ptr_v);
3510 int i, x0, x1, y0, y1, fi, li;
3511 fz_text_line *line;
3512 fz_page_block *pageb;
3513 fz_text_block *block;
3514 fz_text_span *span, *fspan, *lspan;
3515
3516 if (trylock ("ml_seltext")) {
3517 goto done;
3518 }
3519
3520 page = parse_pointer ("ml_seltext", s);
3521 ensuretext (page);
3522
3523 pdim = &state.pagedims[page->pdimno];
3524 x0 = Int_val (Field (rect_v, 0)) + pdim->bounds.x0;
3525 y0 = Int_val (Field (rect_v, 1)) + pdim->bounds.y0;
3526 x1 = Int_val (Field (rect_v, 2)) + pdim->bounds.x0;
3527 y1 = Int_val (Field (rect_v, 3)) + pdim->bounds.y0;
3528
3529 if (y0 > y1) {
3530 int t = y0;
3531 y0 = y1;
3532 y1 = t;
3533 x0 = x1;
3534 x1 = t;
3535 }
3536
3537 if (0) {
3538 glPolygonMode (GL_FRONT_AND_BACK, GL_LINE);
3539 glColor3ub (128, 128, 128);
3540 recti (x0, y0, x1, y1);
3541 glPolygonMode (GL_FRONT_AND_BACK, GL_FILL);
3542 }
3543
3544 fi = page->fmark.i;
3545 fspan = page->fmark.span;
3546
3547 li = page->lmark.i;
3548 lspan = page->lmark.span;
3549
3550 for (pageb = page->text->blocks;
3551 pageb < page->text->blocks + page->text->len;
3552 ++pageb) {
3553 if (pageb->type != FZ_PAGE_BLOCK_TEXT) continue;
3554 block = pageb->u.text;
3555 for (line = block->lines;
3556 line < block->lines + block->len;
3557 ++line) {
3558
3559 for (span = line->first_span; span; span = span->next) {
3560 for (i = 0; i < span->len; ++i) {
3561 int selected = 0;
3562
3563 fz_text_char_bbox (&b, span, i);
3564
3565 if (x0 >= b.x0 && x0 <= b.x1
3566 && y0 >= b.y0 && y0 <= b.y1) {
3567 fspan = span;
3568 fi = i;
3569 selected = 1;
3570 }
3571 if (x1 >= b.x0 && x1 <= b.x1
3572 && y1 >= b.y0 && y1 <= b.y1) {
3573 lspan = span;
3574 li = i;
3575 selected = 1;
3576 }
3577 if (0 && selected) {
3578 glPolygonMode (GL_FRONT_AND_BACK, GL_LINE);
3579 glColor3ub (128, 128, 128);
3580 recti (b.x0, b.y0, b.x1, b.y1);
3581 glPolygonMode (GL_FRONT_AND_BACK, GL_FILL);
3582 }
3583 }
3584 }
3585 }
3586 }
3587 if (x1 < x0 && fspan == lspan) {
3588 i = fi;
3589 span = fspan;
3590
3591 fi = li;
3592 fspan = lspan;
3593
3594 li = i;
3595 lspan = span;
3596 }
3597
3598 page->fmark.i = fi;
3599 page->fmark.span = fspan;
3600
3601 page->lmark.i = li;
3602 page->lmark.span = lspan;
3603
3604 unlock ("ml_seltext");
3605
3606 done:
3607 CAMLreturn (Val_unit);
3608 }
3609
3610 static int UNUSED_ATTR pipespan (FILE *f, fz_text_span *span, int a, int b)
3611 {
3612 char buf[4];
3613 int i, len, ret;
3614
3615 for (i = a; i <= b; ++i) {
3616 len = fz_runetochar (buf, span->text[i].c);
3617 ret = fwrite (buf, len, 1, f);
3618
3619 if (ret != 1) {
3620 fprintf (stderr, "failed to write %d bytes ret=%d: %s\n",
3621 len, ret, strerror (errno));
3622 return -1;
3623 }
3624 }
3625 return 0;
3626 }
3627
3628 #ifdef __CYGWIN__
3629 value ml_popen (value UNUSED_ATTR u1, value UNUSED_ATTR u2)
3630 {
3631 caml_failwith ("ml_popen not implemented under Cygwin");
3632 }
3633 #else
3634 CAMLprim value ml_popen (value command_v, value fds_v)
3635 {
3636 CAMLparam2 (command_v, fds_v);
3637 CAMLlocal2 (l_v, tup_v);
3638 int ret;
3639 char *msg = NULL;
3640 value earg_v = Nothing;
3641 posix_spawnattr_t attr;
3642 posix_spawn_file_actions_t fa;
3643 char *argv[] = { "/bin/sh", "-c", NULL, NULL };
3644
3645 argv[2] = String_val (command_v);
3646
3647 if ((ret = posix_spawn_file_actions_init (&fa)) != 0) {
3648 unix_error (ret, "posix_spawn_file_actions_init", Nothing);
3649 }
3650
3651 if ((ret = posix_spawnattr_init (&attr)) != 0) {
3652 msg = "posix_spawnattr_init";
3653 goto fail1;
3654 }
3655
3656 #ifdef POSIX_SPAWN_USEVFORK
3657 if ((ret = posix_spawnattr_setflags (&attr, POSIX_SPAWN_USEVFORK)) != 0) {
3658 msg = "posix_spawnattr_setflags POSIX_SPAWN_USEVFORK";
3659 goto fail;
3660 }
3661 #endif
3662
3663 for (l_v = fds_v; l_v != Val_int (0); l_v = Field (l_v, 1)) {
3664 int fd1, fd2;
3665
3666 tup_v = Field (l_v, 0);
3667 fd1 = Int_val (Field (tup_v, 0));
3668 fd2 = Int_val (Field (tup_v, 1));
3669 if (fd2 < 0) {
3670 if ((ret = posix_spawn_file_actions_addclose (&fa, fd1)) != 0) {
3671 msg = "posix_spawn_file_actions_addclose";
3672 earg_v = tup_v;
3673 goto fail;
3674 }
3675 }
3676 else {
3677 if ((ret = posix_spawn_file_actions_adddup2 (&fa, fd1, fd2)) != 0) {
3678 msg = "posix_spawn_file_actions_adddup2";
3679 earg_v = tup_v;
3680 goto fail;
3681 }
3682 }
3683 }
3684
3685 if ((ret = posix_spawn (NULL, "/bin/sh", &fa, &attr, argv, environ))) {
3686 msg = "posix_spawn";
3687 goto fail;
3688 }
3689
3690 fail:
3691 if ((ret = posix_spawnattr_destroy (&attr)) != 0) {
3692 fprintf (stderr, "posix_spawnattr_destroy: %s\n", strerror (ret));
3693 }
3694
3695 fail1:
3696 if ((ret = posix_spawn_file_actions_destroy (&fa)) != 0) {
3697 fprintf (stderr, "posix_spawn_file_actions_destroy: %s\n",
3698 strerror (ret));
3699 }
3700
3701 if (msg)
3702 unix_error (ret, msg, earg_v);
3703
3704 CAMLreturn (Val_unit);
3705 }
3706 #endif
3707
3708 CAMLprim value ml_hassel (value ptr_v)
3709 {
3710 CAMLparam1 (ptr_v);
3711 CAMLlocal1 (ret_v);
3712 struct page *page;
3713 char *s = String_val (ptr_v);
3714
3715 ret_v = Val_bool (0);
3716 if (trylock ("ml_hassel")) {
3717 goto done;
3718 }
3719
3720 page = parse_pointer ("ml_hassel", s);
3721 ret_v = Val_bool (page->fmark.span && page->lmark.span);
3722 unlock ("ml_hassel");
3723 done:
3724 CAMLreturn (ret_v);
3725 }
3726
3727 CAMLprim value ml_copysel (value fd_v, value ptr_v)
3728 {
3729 CAMLparam2 (fd_v, ptr_v);
3730 FILE *f;
3731 int seen = 0;
3732 struct page *page;
3733 fz_text_line *line;
3734 fz_page_block *pageb;
3735 fz_text_block *block;
3736 int fd = Int_val (fd_v);
3737 char *s = String_val (ptr_v);
3738
3739 if (trylock ("ml_copysel")) {
3740 goto done;
3741 }
3742
3743 page = parse_pointer ("ml_copysel", s);
3744
3745 if (!page->fmark.span || !page->lmark.span) {
3746 fprintf (stderr, "nothing to copy on page %d\n", page->pageno);
3747 goto unlock;
3748 }
3749
3750 f = fdopen (fd, "w");
3751 if (!f) {
3752 fprintf (stderr, "failed to fdopen sel pipe (from fd %d): %s\n",
3753 fd, strerror (errno));
3754 f = stdout;
3755 }
3756
3757 for (pageb = page->text->blocks;
3758 pageb < page->text->blocks + page->text->len;
3759 ++pageb) {
3760 if (pageb->type != FZ_PAGE_BLOCK_TEXT) continue;
3761 block = pageb->u.text;
3762 for (line = block->lines;
3763 line < block->lines + block->len;
3764 ++line) {
3765 fz_text_span *span;
3766
3767 for (span = line->first_span; span; span = span->next) {
3768 int a, b;
3769
3770 seen |= span == page->fmark.span || span == page->lmark.span;
3771 a = span == page->fmark.span ? page->fmark.i : 0;
3772 b = span == page->lmark.span ? page->lmark.i : span->len - 1;
3773
3774 if (seen) {
3775 if (pipespan (f, span, a, b)) {
3776 goto close;
3777 }
3778 if (span == page->lmark.span) {
3779 goto close;
3780 }
3781 if (span == line->last_span) {
3782 if (putc ('\n', f) == EOF) {
3783 fprintf (stderr,
3784 "failed break line on sel pipe: %s\n",
3785 strerror (errno));
3786 goto close;
3787 }
3788 }
3789 }
3790 }
3791 }
3792 }
3793 close:
3794 if (f != stdout) {
3795 int ret = fclose (f);
3796 fd = -1;
3797 if (ret == -1) {
3798 if (errno != ECHILD) {
3799 fprintf (stderr, "failed to close sel pipe: %s\n",
3800 strerror (errno));
3801 }
3802 }
3803 }
3804 unlock:
3805 unlock ("ml_copysel");
3806
3807 done:
3808 if (fd >= 0) {
3809 if (close (fd)) {
3810 fprintf (stderr, "failed to close sel pipe: %s\n",
3811 strerror (errno));
3812 }
3813 }
3814 CAMLreturn (Val_unit);
3815 }
3816
3817 CAMLprim value ml_getpdimrect (value pagedimno_v)
3818 {
3819 CAMLparam1 (pagedimno_v);
3820 CAMLlocal1 (ret_v);
3821 int pagedimno = Int_val (pagedimno_v);
3822 fz_rect box;
3823
3824 ret_v = caml_alloc_small (4 * Double_wosize, Double_array_tag);
3825 if (trylock ("ml_getpdimrect")) {
3826 box = fz_empty_rect;
3827 }
3828 else {
3829 box = state.pagedims[pagedimno].mediabox;
3830 unlock ("ml_getpdimrect");
3831 }
3832
3833 Store_double_field (ret_v, 0, box.x0);
3834 Store_double_field (ret_v, 1, box.x1);
3835 Store_double_field (ret_v, 2, box.y0);
3836 Store_double_field (ret_v, 3, box.y1);
3837
3838 CAMLreturn (ret_v);
3839 }
3840
3841 CAMLprim value ml_zoom_for_height (value winw_v, value winh_v,
3842 value dw_v, value cols_v)
3843 {
3844 CAMLparam3 (winw_v, winh_v, dw_v);
3845 CAMLlocal1 (ret_v);
3846 int i;
3847 double zoom = -1.;
3848 double maxh = 0.0;
3849 struct pagedim *p;
3850 double winw = Int_val (winw_v);
3851 double winh = Int_val (winh_v);
3852 double dw = Int_val (dw_v);
3853 double cols = Int_val (cols_v);
3854 double pw = 1.0, ph = 1.0;
3855
3856 if (trylock ("ml_zoom_for_height")) {
3857 goto done;
3858 }
3859
3860 for (i = 0, p = state.pagedims; i < state.pagedimcount; ++i, ++p) {
3861 double w = p->pagebox.x1 / cols;
3862 double h = p->pagebox.y1;
3863 if (h > maxh) {
3864 maxh = h;
3865 ph = h;
3866 if (state.fitmodel != FitProportional) pw = w;
3867 }
3868 if ((state.fitmodel == FitProportional) && w > pw) pw = w;
3869 }
3870
3871 zoom = (((winh / ph) * pw) + dw) / winw;
3872 unlock ("ml_zoom_for_height");
3873 done:
3874 ret_v = caml_copy_double (zoom);
3875 CAMLreturn (ret_v);
3876 }
3877
3878 CAMLprim value ml_draw_string (value pt_v, value x_v, value y_v, value string_v)
3879 {
3880 CAMLparam4 (pt_v, x_v, y_v, string_v);
3881 CAMLlocal1 (ret_v);
3882 int pt = Int_val(pt_v);
3883 int x = Int_val (x_v);
3884 int y = Int_val (y_v);
3885 double w;
3886
3887 w = draw_string (state.face, pt, x, y, String_val (string_v));
3888 ret_v = caml_copy_double (w);
3889 CAMLreturn (ret_v);
3890 }
3891
3892 CAMLprim value ml_measure_string (value pt_v, value string_v)
3893 {
3894 CAMLparam2 (pt_v, string_v);
3895 CAMLlocal1 (ret_v);
3896 int pt = Int_val (pt_v);
3897 double w;
3898
3899 w = measure_string (state.face, pt, String_val (string_v));
3900 ret_v = caml_copy_double (w);
3901 CAMLreturn (ret_v);
3902 }
3903
3904 CAMLprim value ml_getpagebox (value opaque_v)
3905 {
3906 CAMLparam1 (opaque_v);
3907 CAMLlocal1 (ret_v);
3908 fz_rect rect;
3909 fz_irect bbox;
3910 fz_matrix ctm;
3911 fz_device *dev;
3912 char *s = String_val (opaque_v);
3913 struct page *page = parse_pointer ("ml_getpagebox", s);
3914
3915 ret_v = caml_alloc_tuple (4);
3916 dev = fz_new_bbox_device (state.ctx, &rect);
3917 dev->hints |= FZ_IGNORE_SHADE;
3918
3919 switch (page->type) {
3920 case DPDF:
3921 ctm = pagectm (page);
3922 pdf_run_page (state.u.pdf, page->u.pdfpage, dev, &ctm, NULL);
3923 break;
3924
3925 case DXPS:
3926 ctm = pagectm (page);
3927 xps_run_page (state.u.xps, page->u.xpspage, dev, &ctm, NULL);
3928 break;
3929
3930 default:
3931 rect = fz_infinite_rect;
3932 break;
3933 }
3934
3935 fz_free_device (dev);
3936 fz_round_rect (&bbox, &rect);
3937 Field (ret_v, 0) = Val_int (bbox.x0);
3938 Field (ret_v, 1) = Val_int (bbox.y0);
3939 Field (ret_v, 2) = Val_int (bbox.x1);
3940 Field (ret_v, 3) = Val_int (bbox.y1);
3941
3942 CAMLreturn (ret_v);
3943 }
3944
3945 CAMLprim value ml_setaalevel (value level_v)
3946 {
3947 CAMLparam1 (level_v);
3948
3949 state.aalevel = Int_val (level_v);
3950 CAMLreturn (Val_unit);
3951 }
3952
3953 #pragma GCC diagnostic push
3954 #pragma GCC diagnostic ignored "-Wvariadic-macros"
3955 #include <X11/Xlib.h>
3956 #pragma GCC diagnostic pop
3957
3958 #include <GL/glx.h>
3959
3960 static struct {
3961 Window wid;
3962 Display *dpy;
3963 GLXContext ctx;
3964 XVisualInfo *visual;
3965 } glx;
3966
3967 CAMLprim value ml_glxinit (value display_v, value wid_v, value screen_v)
3968 {
3969 CAMLparam3 (display_v, wid_v, screen_v);
3970 int attribs[] = {GLX_RGBA, GLX_DOUBLEBUFFER, None};
3971
3972 glx.dpy = XOpenDisplay (String_val (display_v));
3973 if (!glx.dpy) {
3974 caml_failwith ("XOpenDisplay");
3975 }
3976
3977 glx.visual = glXChooseVisual (glx.dpy, Int_val (screen_v), attribs);
3978 if (!glx.visual) {
3979 XCloseDisplay (glx.dpy);
3980 caml_failwith ("glXChooseVisual");
3981 }
3982
3983 glx.wid = Int_val (wid_v);
3984 CAMLreturn (Val_int (glx.visual->visualid));
3985 }
3986
3987 CAMLprim value ml_glxcompleteinit (value unit_v)
3988 {
3989 CAMLparam1 (unit_v);
3990
3991 glx.ctx = glXCreateContext (glx.dpy, glx.visual, NULL, True);
3992 if (!glx.ctx) {
3993 caml_failwith ("glXCreateContext");
3994 }
3995
3996 XFree (glx.visual);
3997 glx.visual = NULL;
3998
3999 if (!glXMakeCurrent (glx.dpy, glx.wid, glx.ctx)) {
4000 glXDestroyContext (glx.dpy, glx.ctx);
4001 glx.ctx = NULL;
4002 caml_failwith ("glXMakeCurrent");
4003 }
4004 CAMLreturn (Val_unit);
4005 }
4006
4007 CAMLprim value ml_swapb (value unit_v)
4008 {
4009 CAMLparam1 (unit_v);
4010 glXSwapBuffers (glx.dpy, glx.wid);
4011 CAMLreturn (Val_unit);
4012 }
4013
4014 #include "keysym2ucs.c"
4015
4016 CAMLprim value ml_keysymtoutf8 (value keysym_v)
4017 {
4018 CAMLparam1 (keysym_v);
4019 CAMLlocal1 (str_v);
4020 KeySym keysym = Int_val (keysym_v);
4021 Rune rune;
4022 int len;
4023 char buf[5];
4024
4025 rune = keysym2ucs (keysym);
4026 len = fz_runetochar (buf, rune);
4027 buf[len] = 0;
4028 str_v = caml_copy_string (buf);
4029 CAMLreturn (str_v);
4030 }
4031
4032 enum { piunknown, pilinux, piosx, pisun, pibsd, picygwin };
4033
4034 CAMLprim value ml_platform (value unit_v)
4035 {
4036 CAMLparam1 (unit_v);
4037 CAMLlocal2 (tup_v, arr_v);
4038 int platid = piunknown;
4039 struct utsname buf;
4040
4041 #if defined __linux__
4042 platid = pilinux;
4043 #elif defined __CYGWIN__
4044 platid = picygwin;
4045 #elif defined __DragonFly__ || defined __FreeBSD__
4046 || defined __OpenBSD__ || defined __NetBSD__
4047 platid = pibsd;
4048 #elif defined __sun__
4049 platid = pisun;
4050 #elif defined __APPLE__
4051 platid = piosx;
4052 #endif
4053 if (uname (&buf)) err (1, "uname");
4054
4055 tup_v = caml_alloc_tuple (2);
4056 {
4057 char const *sar[] = {
4058 buf.sysname,
4059 buf.release,
4060 buf.version,
4061 buf.machine,
4062 NULL
4063 };
4064 arr_v = caml_copy_string_array (sar);
4065 }
4066 Field (tup_v, 0) = Val_int (platid);
4067 Field (tup_v, 1) = arr_v;
4068 CAMLreturn (tup_v);
4069 }
4070
4071 CAMLprim value ml_cloexec (value fd_v)
4072 {
4073 CAMLparam1 (fd_v);
4074 int fd = Int_val (fd_v);
4075
4076 if (fcntl (fd, F_SETFD, FD_CLOEXEC, 1)) {
4077 uerror ("fcntl", Nothing);
4078 }
4079 CAMLreturn (Val_unit);
4080 }
4081
4082 CAMLprim value ml_getpbo (value w_v, value h_v, value cs_v)
4083 {
4084 CAMLparam2 (w_v, h_v);
4085 CAMLlocal1 (ret_v);
4086 struct pbo *pbo;
4087 int w = Int_val (w_v);
4088 int h = Int_val (h_v);
4089 int cs = Int_val (cs_v);
4090
4091 if (state.pbo_usable) {
4092 pbo = calloc (sizeof (*pbo), 1);
4093 if (!pbo) {
4094 err (1, "calloc pbo");
4095 }
4096
4097 switch (cs) {
4098 case 0:
4099 case 1:
4100 pbo->size = w*h*4;
4101 break;
4102 case 2:
4103 pbo->size = w*h*2;
4104 break;
4105 default:
4106 errx (1, "ml_getpbo: invalid colorspace %d", cs);
4107 }
4108
4109 state.glGenBuffersARB (1, &pbo->id);
4110 state.glBindBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB, pbo->id);
4111 state.glBufferDataARB (GL_PIXEL_UNPACK_BUFFER_ARB, pbo->size,
4112 NULL, GL_STREAM_DRAW);
4113 pbo->ptr = state.glMapBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB,
4114 GL_READ_WRITE);
4115 state.glBindBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB, 0);
4116 if (!pbo->ptr) {
4117 fprintf (stderr, "glMapBufferARB failed: %#x\n", glGetError ());
4118 state.glDeleteBuffersARB (1, &pbo->id);
4119 free (pbo);
4120 ret_v = caml_copy_string ("0");
4121 }
4122 else {
4123 int res;
4124 char *s;
4125
4126 res = snprintf (NULL, 0, "%" FMT_ptr, FMT_ptr_cast (pbo));
4127 if (res < 0) {
4128 err (1, "snprintf %" FMT_ptr " failed", FMT_ptr_cast (pbo));
4129 }
4130 s = malloc (res+1);
4131 if (!s) {
4132 err (1, "malloc %d bytes failed", res+1);
4133 }
4134 res = sprintf (s, "%" FMT_ptr, FMT_ptr_cast (pbo));
4135 if (res < 0) {
4136 err (1, "sprintf %" FMT_ptr " failed", FMT_ptr_cast (pbo));
4137 }
4138 ret_v = caml_copy_string (s);
4139 free (s);
4140 }
4141 }
4142 else {
4143 ret_v = caml_copy_string ("0");
4144 }
4145 CAMLreturn (ret_v);
4146 }
4147
4148 CAMLprim value ml_freepbo (value s_v)
4149 {
4150 CAMLparam1 (s_v);
4151 char *s = String_val (s_v);
4152 struct tile *tile = parse_pointer ("ml_freepbo", s);
4153
4154 if (tile->pbo) {
4155 state.glDeleteBuffersARB (1, &tile->pbo->id);
4156 tile->pbo->id = -1;
4157 tile->pbo->ptr = NULL;
4158 tile->pbo->size = -1;
4159 }
4160 CAMLreturn (Val_unit);
4161 }
4162
4163 CAMLprim value ml_unmappbo (value s_v)
4164 {
4165 CAMLparam1 (s_v);
4166 char *s = String_val (s_v);
4167 struct tile *tile = parse_pointer ("ml_unmappbo", s);
4168
4169 if (tile->pbo) {
4170 state.glBindBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB, tile->pbo->id);
4171 if (state.glUnmapBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB) == GL_FALSE) {
4172 errx (1, "glUnmapBufferARB failed: %#x\n", glGetError ());
4173 }
4174 tile->pbo->ptr = NULL;
4175 state.glBindBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB, 0);
4176 }
4177 CAMLreturn (Val_unit);
4178 }
4179
4180 static void setuppbo (void)
4181 {
4182 #define GGPA(n) (*(void (**) ()) &state.n = glXGetProcAddress ((GLubyte *) #n))
4183 state.pbo_usable = GGPA (glBindBufferARB)
4184 && GGPA (glUnmapBufferARB)
4185 && GGPA (glMapBufferARB)
4186 && GGPA (glBufferDataARB)
4187 && GGPA (glGenBuffersARB)
4188 && GGPA (glDeleteBuffersARB);
4189 #undef GGPA
4190 }
4191
4192 CAMLprim value ml_pbo_usable (value unit_v)
4193 {
4194 CAMLparam1 (unit_v);
4195 CAMLreturn (Val_bool (state.pbo_usable));
4196 }
4197
4198 CAMLprim value ml_unproject (value ptr_v, value x_v, value y_v)
4199 {
4200 CAMLparam3 (ptr_v, x_v, y_v);
4201 CAMLlocal2 (ret_v, tup_v);
4202 struct page *page;
4203 char *s = String_val (ptr_v);
4204 int x = Int_val (x_v), y = Int_val (y_v);
4205 struct pagedim *pdim;
4206 fz_point p;
4207 fz_matrix ctm;
4208
4209 page = parse_pointer ("ml_unproject", s);
4210 pdim = &state.pagedims[page->pdimno];
4211
4212 ret_v = Val_int (0);
4213 if (trylock ("ml_unproject")) {
4214 goto done;
4215 }
4216
4217 switch (page->type) {
4218 case DPDF:
4219 trimctm (page->u.pdfpage, page->pdimno);
4220 break;
4221
4222 default:
4223 break;
4224 }
4225 p.x = x + pdim->bounds.x0;
4226 p.y = y + pdim->bounds.y0;
4227
4228 fz_concat (&ctm, &pdim->tctm, &pdim->ctm);
4229 fz_invert_matrix (&ctm, &ctm);
4230 fz_transform_point (&p, &ctm);
4231
4232 tup_v = caml_alloc_tuple (2);
4233 ret_v = caml_alloc_small (1, 1);
4234 Field (tup_v, 0) = Val_int (p.x);
4235 Field (tup_v, 1) = Val_int (p.y);
4236 Field (ret_v, 0) = tup_v;
4237
4238 unlock ("ml_unproject");
4239 done:
4240 CAMLreturn (ret_v);
4241 }
4242
4243 static void makestippletex (void)
4244 {
4245 const char pixels[] = "\xff\xff\0\0";
4246 glGenTextures (1, &state.stid);
4247 glBindTexture (GL_TEXTURE_1D, state.stid);
4248 glTexParameteri (GL_TEXTURE_1D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
4249 glTexParameteri (GL_TEXTURE_1D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
4250 glTexImage1D (
4251 GL_TEXTURE_1D,
4252 0,
4253 GL_ALPHA,
4254 4,
4255 0,
4256 GL_ALPHA,
4257 GL_UNSIGNED_BYTE,
4258 pixels
4259 );
4260 }
4261
4262 CAMLprim value ml_fz_version (value UNUSED_ATTR unit_v)
4263 {
4264 return caml_copy_string (FZ_VERSION);
4265 }
4266
4267 #ifdef USE_FONTCONFIG
4268 static struct {
4269 int inited;
4270 FcConfig *config;
4271 } fc;
4272
4273 static fz_font *fc_load_system_font_func (fz_context *ctx,
4274 const char *name,
4275 int bold,
4276 int italic,
4277 int UNUSED_ATTR needs_exact_metrics)
4278 {
4279 char *buf;
4280 size_t i, size;
4281 fz_font *font;
4282 FcChar8 *path;
4283 FcResult result;
4284 FcPattern *pat, *pat1;
4285
4286 lprintf ("looking up %s bold:%d italic:%d needs_exact_metrics:%d\n",
4287 name, bold, italic, needs_exact_metrics);
4288 if (!fc.inited) {
4289 fc.inited = 1;
4290 fc.config = FcInitLoadConfigAndFonts ();
4291 if (!fc.config) {
4292 lprintf ("FcInitLoadConfigAndFonts failed\n");
4293 return NULL;
4294 }
4295 }
4296 if (!fc.config) return NULL;
4297
4298 size = strlen (name);
4299 if (bold) size += sizeof (":bold") - 1;
4300 if (italic) size += sizeof (":italic") - 1;
4301 size += 1;
4302
4303 buf = malloc (size);
4304 if (!buf) {
4305 err (1, "malloc %zu failed", size);
4306 }
4307
4308 strcpy (buf, name);
4309 if (bold && italic) {
4310 strcat (buf, ":bold:italic");
4311 }
4312 else {
4313 if (bold) strcat (buf, ":bold");
4314 if (italic) strcat (buf, ":italic");
4315 }
4316 for (i = 0; i < size; ++i) {
4317 if (buf[i] == ',' || buf[i] == '-') buf[i] = ':';
4318 }
4319
4320 lprintf ("fcbuf=%s\n", buf);
4321 pat = FcNameParse ((FcChar8 *) buf);
4322 if (!pat) {
4323 printd ("emsg FcNameParse failed\n");
4324 free (buf);
4325 return NULL;
4326 }
4327
4328 if (!FcConfigSubstitute (fc.config, pat, FcMatchPattern)) {
4329 printd ("emsg FcConfigSubstitute failed\n");
4330 free (buf);
4331 return NULL;
4332 }
4333 FcDefaultSubstitute (pat);
4334
4335 pat1 = FcFontMatch (fc.config, pat, &result);
4336 if (!pat1) {
4337 printd ("emsg FcFontMatch failed\n");
4338 FcPatternDestroy (pat);
4339 free (buf);
4340 return NULL;
4341 }
4342
4343 if (FcPatternGetString (pat1, FC_FILE, 0, &path) != FcResultMatch) {
4344 printd ("emsg FcPatternGetString failed\n");
4345 FcPatternDestroy (pat);
4346 FcPatternDestroy (pat1);
4347 free (buf);
4348 return NULL;
4349 }
4350
4351 #if 0
4352 printd ("emsg name=%s path=%s\n", name, path);
4353 #endif
4354 font = fz_new_font_from_file (ctx, name, (char *) path, 0, 0);
4355 FcPatternDestroy (pat);
4356 FcPatternDestroy (pat1);
4357 free (buf);
4358 return font;
4359 }
4360 #endif
4361
4362 CAMLprim value ml_init (value csock_v, value params_v)
4363 {
4364 CAMLparam2 (csock_v, params_v);
4365 CAMLlocal2 (trim_v, fuzz_v);
4366 int ret;
4367 int texcount;
4368 char *fontpath;
4369 int colorspace;
4370 int mustoresize;
4371 int haspboext;
4372 struct sigaction sa;
4373
4374 state.csock = Int_val (csock_v);
4375 state.rotate = Int_val (Field (params_v, 0));
4376 state.fitmodel = Int_val (Field (params_v, 1));
4377 trim_v = Field (params_v, 2);
4378 texcount = Int_val (Field (params_v, 3));
4379 state.sliceheight = Int_val (Field (params_v, 4));
4380 mustoresize = Int_val (Field (params_v, 5));
4381 colorspace = Int_val (Field (params_v, 6));
4382 fontpath = String_val (Field (params_v, 7));
4383
4384 state.trimcachepath = strdup (String_val (Field (params_v, 8)));
4385 if (!state.trimcachepath) {
4386 fprintf (stderr, "failed to strdup trimcachepath: %s\n",
4387 strerror (errno));
4388 }
4389 haspboext = Bool_val (Field (params_v, 9));
4390
4391 state.ctx = fz_new_context (NULL, NULL, mustoresize);
4392
4393 #ifdef USE_FONTCONFIG
4394 if (Bool_val (Field (params_v, 10))) {
4395 fz_install_load_system_font_funcs (
4396 state.ctx, fc_load_system_font_func, NULL
4397 );
4398 }
4399 #endif
4400
4401 state.trimmargins = Bool_val (Field (trim_v, 0));
4402 fuzz_v = Field (trim_v, 1);
4403 state.trimfuzz.x0 = Int_val (Field (fuzz_v, 0));
4404 state.trimfuzz.y0 = Int_val (Field (fuzz_v, 1));
4405 state.trimfuzz.x1 = Int_val (Field (fuzz_v, 2));
4406 state.trimfuzz.y1 = Int_val (Field (fuzz_v, 3));
4407
4408 set_tex_params (colorspace);
4409
4410 if (*fontpath) {
4411 #ifndef USE_FONTCONFIG
4412 state.face = load_font (fontpath);
4413 #else
4414 FcChar8 *path;
4415 FcResult result;
4416 char *buf = fontpath;
4417 FcPattern *pat, *pat1;
4418
4419 fc.inited = 1;
4420 fc.config = FcInitLoadConfigAndFonts ();
4421 if (!fc.config) {
4422 errx (1, "FcInitLoadConfigAndFonts failed");
4423 }
4424
4425 pat = FcNameParse ((FcChar8 *) buf);
4426 if (!pat) {
4427 errx (1, "FcNameParse failed");
4428 }
4429
4430 if (!FcConfigSubstitute (fc.config, pat, FcMatchPattern)) {
4431 errx (1, "FcConfigSubstitute failed");
4432 }
4433 FcDefaultSubstitute (pat);
4434
4435 pat1 = FcFontMatch (fc.config, pat, &result);
4436 if (!pat1) {
4437 errx (1, "FcFontMatch failed");
4438 }
4439
4440 if (FcPatternGetString (pat1, FC_FILE, 0, &path) != FcResultMatch) {
4441 errx (1, "FcPatternGetString failed");
4442 }
4443
4444 state.face = load_font ((char *) path);
4445 FcPatternDestroy (pat);
4446 FcPatternDestroy (pat1);
4447 #endif
4448 }
4449 else {
4450 unsigned int len;
4451 void *base = pdf_lookup_substitute_font (0, 0, 0, 0, &len);
4452
4453 state.face = load_builtin_font (base, len);
4454 }
4455 if (!state.face) _exit (1);
4456
4457 realloctexts (texcount);
4458
4459 if (haspboext) {
4460 setuppbo ();
4461 }
4462
4463 makestippletex ();
4464
4465 #ifdef __CYGWIN__
4466 sa.sa_handler = SIG_IGN;
4467 sa.sa_flags = SA_RESTART | SA_NOCLDSTOP;
4468 #else
4469 sa.sa_handler = SIG_DFL;
4470 sa.sa_flags = SA_RESTART | SA_NOCLDSTOP | SA_NOCLDWAIT;
4471 #endif
4472 if (sigemptyset (&sa.sa_mask)) {
4473 err (1, "sigemptyset");
4474 }
4475 if (sigaction (SIGCHLD, &sa, NULL)) {
4476 err (1, "sigaction");
4477 }
4478
4479 ret = pthread_create (&state.thread, NULL, mainloop, NULL);
4480 if (ret) {
4481 errx (1, "pthread_create: %s", strerror (ret));
4482 }
4483
4484 CAMLreturn (Val_unit);
4485 }
PDF pager