src/xo-print.c

   1 #ifdef HAVE_CONFIG_H
   2 #  include <config.h>
   3 #endif
   4
   5 #define PANGO_ENABLE_BACKEND /* to access PangoFcFont.font_pattern */
   6
   7 #include <gtk/gtk.h>
   8 #include <libgnomecanvas/libgnomecanvas.h>
   9 #include <libgnomeprint/gnome-print-job.h>
  10 #include <libgnomeprint/gnome-print-pango.h>
  11 #include <zlib.h>
  12 #include <string.h>
  13 #include <locale.h>
  14 #include <pango/pango.h>
  15 #include <pango/pangofc-font.h>
  16 #include <fontconfig/fontconfig.h>
  17 #include <ft2build.h>
  18 #include FT_FREETYPE_H
  19 #include "sft.h" /* Sun Font Tools, embedded in libgnomeprint */
  20
  21 #include "xournal.h"
  22 #include "xo-support.h"
  23 #include "xo-misc.h"
  24 #include "xo-paint.h"
  25 #include "xo-print.h"
  26 #include "xo-file.h"
  27
  28 #define RGBA_RED(rgba) (((rgba>>24)&0xff)/255.0)
  29 #define RGBA_GREEN(rgba) (((rgba>>16)&0xff)/255.0)
  30 #define RGBA_BLUE(rgba) (((rgba>>8)&0xff)/255.0)
  31 #define RGBA_ALPHA(rgba) (((rgba>>0)&0xff)/255.0)
  32 #define RGBA_RGB(rgba) RGBA_RED(rgba), RGBA_GREEN(rgba), RGBA_BLUE(rgba)
  33
  34 /*********** Printing to PDF ************/
  35
  36 gboolean ispdfspace(char c)
  37 {
  38   return (c==0 || c==9 || c==10 || c==12 || c==13 || c==' ');
  39 }
  40
  41 gboolean ispdfdelim(char c)
  42 {
  43   return (c=='(' || c==')' || c=='<' || c=='>' || c=='[' || c==']' ||
  44           c=='{' || c=='}' || c=='/' || c=='%');
  45 }
  46
  47 void skipspace(char **p, char *eof)
  48 {
  49   while (ispdfspace(**p) || **p=='%') {
  50     if (**p=='%') while (*p!=eof && **p!=10 && **p!=13) (*p)++;
  51     if (*p==eof) return;
  52     (*p)++;
  53   }
  54 }
  55
  56 void free_pdfobj(struct PdfObj *obj)
  57 {
  58   int i;
  59
  60   if (obj==NULL) return;
  61   if ((obj->type == PDFTYPE_STRING || obj->type == PDFTYPE_NAME ||
  62       obj->type == PDFTYPE_STREAM) && obj->str!=NULL)
  63     g_free(obj->str);
  64   if ((obj->type == PDFTYPE_ARRAY || obj->type == PDFTYPE_DICT ||
  65       obj->type == PDFTYPE_STREAM) && obj->num>0) {
  66     for (i=0; i<obj->num; i++)
  67       free_pdfobj(obj->elts[i]);
  68     g_free(obj->elts);
  69   }
  70   if ((obj->type == PDFTYPE_DICT || obj->type == PDFTYPE_STREAM) && obj->num>0) {
  71     for (i=0; i<obj->num; i++)
  72       g_free(obj->names[i]);
  73     g_free(obj->names);
  74   }
  75   g_free(obj);
  76 }
  77
  78 struct PdfObj *dup_pdfobj(struct PdfObj *obj)
  79 {
  80   struct PdfObj *dup;
  81   int i;
  82
  83   if (obj==NULL) return NULL;
  84   dup = g_memdup(obj, sizeof(struct PdfObj));
  85   if ((obj->type == PDFTYPE_STRING || obj->type == PDFTYPE_NAME ||
  86       obj->type == PDFTYPE_STREAM) && obj->str!=NULL) {
  87     if (obj->type == PDFTYPE_NAME) obj->len = strlen(obj->str);
  88     dup->str = g_memdup(obj->str, obj->len+1);
  89   }
  90   if ((obj->type == PDFTYPE_ARRAY || obj->type == PDFTYPE_DICT ||
  91       obj->type == PDFTYPE_STREAM) && obj->num>0) {
  92     dup->elts = g_malloc(obj->num*sizeof(struct PdfObj *));
  93     for (i=0; i<obj->num; i++)
  94       dup->elts[i] = dup_pdfobj(obj->elts[i]);
  95   }
  96   if ((obj->type == PDFTYPE_DICT || obj->type == PDFTYPE_STREAM) && obj->num>0) {
  97     dup->names = g_malloc(obj->num*sizeof(char *));
  98     for (i=0; i<obj->num; i++)
  99       dup->names[i] = g_strdup(obj->names[i]);
 100   }
 101   return dup;
 102 }
 103
 104 void show_pdfobj(struct PdfObj *obj, GString *str)
 105 {
 106   int i;
 107   if (obj==NULL) return;
 108   switch(obj->type) {
 109     case PDFTYPE_CST:
 110       if (obj->intval==1) g_string_append(str, "true");
 111       if (obj->intval==0) g_string_append(str, "false");
 112       if (obj->intval==-1) g_string_append(str, "null");
 113       break;
 114     case PDFTYPE_INT:
 115       g_string_append_printf(str, "%d", obj->intval);
 116       break;
 117     case PDFTYPE_REAL:
 118       g_string_append_printf(str, "%f", obj->realval);
 119       break;
 120     case PDFTYPE_STRING:
 121       g_string_append_len(str, obj->str, obj->len);
 122       break;
 123     case PDFTYPE_NAME:
 124       g_string_append(str, obj->str);
 125       break;
 126     case PDFTYPE_ARRAY:
 127       g_string_append_c(str, '[');
 128       for (i=0;i<obj->num;i++) {
 129         if (i) g_string_append_c(str, ' ');
 130         show_pdfobj(obj->elts[i], str);
 131       }
 132       g_string_append_c(str, ']');
 133       break;
 134     case PDFTYPE_DICT:
 135       g_string_append(str, "<<");
 136       for (i=0;i<obj->num;i++) {
 137         g_string_append_printf(str, " %s ", obj->names[i]);
 138         show_pdfobj(obj->elts[i], str);
 139       }
 140       g_string_append(str, " >>");
 141       break;
 142     case PDFTYPE_REF:
 143       g_string_append_printf(str, "%d %d R", obj->intval, obj->num);
 144       break;
 145   }
 146 }
 147
 148 void DEBUG_PRINTOBJ(struct PdfObj *obj)
 149 {
 150   GString *s = g_string_new("");
 151   show_pdfobj(obj, s);
 152   puts(s->str);
 153   g_string_free(s, TRUE);
 154 }
 155
 156 // parse a PDF object; returns NULL if fails
 157 // THIS PARSER DOES NOT RECOGNIZE STREAMS YET
 158
 159 struct PdfObj *parse_pdf_object(char **ptr, char *eof)
 160 {
 161   struct PdfObj *obj, *elt;
 162   char *p, *q, *r, *eltname;
 163   int stack;
 164
 165   obj = g_malloc(sizeof(struct PdfObj));
 166   p = *ptr;
 167   skipspace(&p, eof);
 168   if (p==eof) { g_free(obj); return NULL; }
 169
 170   // maybe a constant
 171   if (!strncmp(p, "true", 4)) {
 172     obj->type = PDFTYPE_CST;
 173     obj->intval = 1;
 174     *ptr = p+4;
 175     return obj;
 176   }
 177   if (!strncmp(p, "false", 5)) {
 178     obj->type = PDFTYPE_CST;
 179     obj->intval = 0;
 180     *ptr = p+5;
 181     return obj;
 182   }
 183   if (!strncmp(p, "null", 4)) {
 184     obj->type = PDFTYPE_CST;
 185     obj->intval = -1;
 186     *ptr = p+4;
 187     return obj;
 188   }
 189
 190   // or a number ?
 191   obj->intval = strtol(p, &q, 10);
 192   *ptr = q;
 193   if (q!=p) {
 194     if (*q == '.') {
 195       obj->type = PDFTYPE_REAL;
 196       obj->realval = g_ascii_strtod(p, ptr);
 197       return obj;
 198     }
 199     if (ispdfspace(*q)) {
 200       // check for indirect reference
 201       skipspace(&q, eof);
 202       obj->num = strtol(q, &r, 10);
 203       if (r!=q) {
 204         skipspace(&r, eof);
 205         if (*r=='R') {
 206           *ptr = r+1;
 207           obj->type = PDFTYPE_REF;
 208           return obj;
 209         }
 210       }
 211     }
 212     obj->type = PDFTYPE_INT;
 213     return obj;
 214   }
 215
 216   // a string ?
 217   if (*p=='(') {
 218     q=p+1; stack=1;
 219     while (stack>0 && q!=eof) {
 220       if (*q=='(') stack++;
 221       if (*q==')') stack--;
 222       if (*q=='\\') q++;
 223       if (q!=eof) q++;
 224     }
 225     if (q==eof) { g_free(obj); return NULL; }
 226     obj->type = PDFTYPE_STRING;
 227     obj->len = q-p;
 228     obj->str = g_malloc(obj->len+1);
 229     obj->str[obj->len] = 0;
 230     g_memmove(obj->str, p, obj->len);
 231     *ptr = q;
 232     return obj;
 233   }
 234   if (*p=='<' && p[1]!='<') {
 235     q=p+1;
 236     while (*q!='>' && q!=eof) q++;
 237     if (q==eof) { g_free(obj); return NULL; }
 238     q++;
 239     obj->type = PDFTYPE_STRING;
 240     obj->len = q-p;
 241     obj->str = g_malloc(obj->len+1);
 242     obj->str[obj->len] = 0;
 243     g_memmove(obj->str, p, obj->len);
 244     *ptr = q;
 245     return obj;
 246   }
 247
 248   // a name ?
 249   if (*p=='/') {
 250     q=p+1;
 251     while (!ispdfspace(*q) && !ispdfdelim(*q)) q++;
 252     obj->type = PDFTYPE_NAME;
 253     obj->str = g_strndup(p, q-p);
 254     *ptr = q;
 255     return obj;
 256   }
 257
 258   // an array ?
 259   if (*p=='[') {
 260     obj->type = PDFTYPE_ARRAY;
 261     obj->num = 0;
 262     obj->elts = NULL;
 263     q=p+1; skipspace(&q, eof);
 264     while (*q!=']') {
 265       elt = parse_pdf_object(&q, eof);
 266       if (elt==NULL) { free_pdfobj(obj); return NULL; }
 267       obj->num++;
 268       obj->elts = g_realloc(obj->elts, obj->num*sizeof(struct PdfObj *));
 269       obj->elts[obj->num-1] = elt;
 270       skipspace(&q, eof);
 271     }
 272     *ptr = q+1;
 273     return obj;
 274   }
 275
 276   // a dictionary ?
 277   if (*p=='<' && p[1]=='<') {
 278     obj->type = PDFTYPE_DICT;
 279     obj->num = 0;
 280     obj->elts = NULL;
 281     obj->names = NULL;
 282     q=p+2; skipspace(&q, eof);
 283     while (*q!='>' || q[1]!='>') {
 284       if (*q!='/') { free_pdfobj(obj); return NULL; }
 285       r=q+1;
 286       while (!ispdfspace(*r) && !ispdfdelim(*r)) r++;
 287       eltname = g_strndup(q, r-q);
 288       q=r; skipspace(&q, eof);
 289       elt = parse_pdf_object(&q, eof);
 290       if (elt==NULL) { g_free(eltname); free_pdfobj(obj); return NULL; }
 291       obj->num++;
 292       obj->elts = g_realloc(obj->elts, obj->num*sizeof(struct PdfObj *));
 293       obj->names = g_realloc(obj->names, obj->num*sizeof(char *));
 294       obj->elts[obj->num-1] = elt;
 295       obj->names[obj->num-1] = eltname;
 296       skipspace(&q, eof);
 297     }
 298     *ptr = q+2;
 299     return obj;
 300   }
 301
 302   // DOES NOT RECOGNIZE STREAMS YET (handle as subcase of dictionary)
 303
 304   g_free(obj);
 305   return NULL;
 306 }
 307
 308 struct PdfObj *get_dict_entry(struct PdfObj *dict, char *name)
 309 {
 310   int i;
 311
 312   if (dict==NULL) return NULL;
 313   if (dict->type != PDFTYPE_DICT) return NULL;
 314   for (i=0; i<dict->num; i++)
 315     if (!strcmp(dict->names[i], name)) return dict->elts[i];
 316   return NULL;
 317 }
 318
 319 struct PdfObj *get_pdfobj(GString *pdfbuf, struct XrefTable *xref, struct PdfObj *obj)
 320 {
 321   char *p, *eof;
 322   int offs, n;
 323
 324   if (obj==NULL) return NULL;
 325   if (obj->type!=PDFTYPE_REF) return dup_pdfobj(obj);
 326   if (obj->intval>xref->last) return NULL;
 327   offs = xref->data[obj->intval];
 328   if (offs<=0 || offs >= pdfbuf->len) return NULL;
 329
 330   p = pdfbuf->str + offs;
 331   eof = pdfbuf->str + pdfbuf->len;
 332   n = strtol(p, &p, 10);
 333   if (n!=obj->intval) return NULL;
 334   skipspace(&p, eof);
 335   n = strtol(p, &p, 10);
 336   skipspace(&p, eof);
 337   if (strncmp(p, "obj", 3)) return NULL;
 338   p+=3;
 339   return parse_pdf_object(&p, eof);
 340 }
 341
 342 // read the xref table of a PDF file in memory, and return the trailerdict
 343
 344 struct PdfObj *parse_xref_table(GString *pdfbuf, struct XrefTable *xref, int offs)
 345 {
 346   char *p, *eof;
 347   struct PdfObj *trailerdict, *obj;
 348   int start, len, i;
 349
 350   if (strncmp(pdfbuf->str+offs, "xref", 4)) return NULL;
 351   p = strstr(pdfbuf->str+offs, "trailer");
 352   eof = pdfbuf->str + pdfbuf->len;
 353   if (p==NULL) return NULL;
 354   p+=8;
 355   trailerdict = parse_pdf_object(&p, eof);
 356   obj = get_dict_entry(trailerdict, "/Size");
 357   if (obj!=NULL && obj->type == PDFTYPE_INT && obj->intval-1>xref->last)
 358     make_xref(xref, obj->intval-1, 0);
 359   obj = get_dict_entry(trailerdict, "/Prev");
 360   if (obj!=NULL && obj->type == PDFTYPE_INT && obj->intval>0 && obj->intval!=offs) {
 361     // recurse into older xref table
 362     obj = parse_xref_table(pdfbuf, xref, obj->intval);
 363     free_pdfobj(obj);
 364   }
 365   p = pdfbuf->str+offs+4;
 366   skipspace(&p, eof);
 367   if (*p<'0' || *p>'9') { free_pdfobj(trailerdict); return NULL; }
 368   while (*p>='0' && *p<='9') {
 369     start = strtol(p, &p, 10);
 370     skipspace(&p, eof);
 371     len = strtol(p, &p, 10);
 372     skipspace(&p, eof);
 373     if (len <= 0 || 20*len > eof-p) break;
 374     if (start+len-1 > xref->last) make_xref(xref, start+len-1, 0);
 375     for (i=start; i<start+len; i++) {
 376       xref->data[i] = strtol(p, NULL, 10);
 377       p+=20;
 378     }
 379     skipspace(&p, eof);
 380   }
 381   if (*p!='t') { free_pdfobj(trailerdict); return NULL; }
 382   return trailerdict;
 383 }
 384
 385 // parse the page tree
 386
 387 int pdf_getpageinfo(GString *pdfbuf, struct XrefTable *xref,
 388                 struct PdfObj *pgtree, int nmax, struct PdfPageDesc *pages)
 389 {
 390   struct PdfObj *obj, *kid;
 391   int i, count, j;
 392
 393   obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/Type"));
 394   if (obj == NULL || obj->type != PDFTYPE_NAME)
 395     return 0;
 396   if (!strcmp(obj->str, "/Page")) {
 397     free_pdfobj(obj);
 398     pages->contents = dup_pdfobj(get_dict_entry(pgtree, "/Contents"));
 399     obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/Resources"));
 400     if (obj!=NULL) {
 401       free_pdfobj(pages->resources);
 402       pages->resources = obj;
 403     }
 404     obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/MediaBox"));
 405     if (obj!=NULL) {
 406       free_pdfobj(pages->mediabox);
 407       pages->mediabox = obj;
 408     }
 409     obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/Rotate"));
 410     if (obj!=NULL && obj->type == PDFTYPE_INT)
 411       pages->rotate = obj->intval;
 412     free_pdfobj(obj);
 413     return 1;
 414   }
 415   else if (!strcmp(obj->str, "/Pages")) {
 416     free_pdfobj(obj);
 417     obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/Count"));
 418     if (obj!=NULL && obj->type == PDFTYPE_INT &&
 419         obj->intval>0 && obj->intval<=nmax) count = obj->intval;
 420     else count = 0;
 421     free_pdfobj(obj);
 422     obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/Resources"));
 423     if (obj!=NULL)
 424       for (i=0; i<count; i++) {
 425         free_pdfobj(pages[i].resources);
 426         pages[i].resources = dup_pdfobj(obj);
 427       }
 428     free_pdfobj(obj);
 429     obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/MediaBox"));
 430     if (obj!=NULL)
 431       for (i=0; i<count; i++) {
 432         free_pdfobj(pages[i].mediabox);
 433         pages[i].mediabox = dup_pdfobj(obj);
 434       }
 435     free_pdfobj(obj);
 436     obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/Rotate"));
 437     if (obj!=NULL && obj->type == PDFTYPE_INT)
 438       for (i=0; i<count; i++)
 439         pages[i].rotate = obj->intval;
 440     free_pdfobj(obj);
 441     obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pgtree, "/Kids"));
 442     if (obj!=NULL && obj->type == PDFTYPE_ARRAY) {
 443       for (i=0; i<obj->num; i++) {
 444         kid = get_pdfobj(pdfbuf, xref, obj->elts[i]);
 445         if (kid!=NULL) {
 446           j = pdf_getpageinfo(pdfbuf, xref, kid, nmax, pages);
 447           nmax -= j;
 448           pages += j;
 449           free_pdfobj(kid);
 450         }
 451       }
 452     }
 453     free_pdfobj(obj);
 454     return count;
 455   }
 456   return 0;
 457 }
 458
 459 // parse a PDF file in memory
 460
 461 gboolean pdf_parse_info(GString *pdfbuf, struct PdfInfo *pdfinfo, struct XrefTable *xref)
 462 {
 463   char *p;
 464   int offs;
 465   struct PdfObj *obj, *pages;
 466
 467   xref->n_alloc = xref->last = 0;
 468   xref->data = NULL;
 469   p = pdfbuf->str + pdfbuf->len-1;
 470
 471   while (*p!='s' && p!=pdfbuf->str) p--;
 472   if (strncmp(p, "startxref", 9)) return FALSE; // fail
 473   p+=9;
 474   while (ispdfspace(*p) && p!=pdfbuf->str+pdfbuf->len) p++;
 475   offs = strtol(p, NULL, 10);
 476   if (offs <= 0 || offs > pdfbuf->len) return FALSE; // fail
 477   pdfinfo->startxref = offs;
 478
 479   pdfinfo->trailerdict = parse_xref_table(pdfbuf, xref, offs);
 480   if (pdfinfo->trailerdict == NULL) return FALSE; // fail
 481
 482   obj = get_pdfobj(pdfbuf, xref,
 483      get_dict_entry(pdfinfo->trailerdict, "/Root"));
 484   if (obj == NULL)
 485     { free_pdfobj(pdfinfo->trailerdict); return FALSE; }
 486   pages = get_pdfobj(pdfbuf, xref, get_dict_entry(obj, "/Pages"));
 487   free_pdfobj(obj);
 488   if (pages == NULL)
 489     { free_pdfobj(pdfinfo->trailerdict); return FALSE; }
 490   obj = get_pdfobj(pdfbuf, xref, get_dict_entry(pages, "/Count"));
 491   if (obj == NULL || obj->type != PDFTYPE_INT || obj->intval<=0)
 492     { free_pdfobj(pdfinfo->trailerdict); free_pdfobj(pages);
 493       free_pdfobj(obj); return FALSE; }
 494   pdfinfo->npages = obj->intval;
 495   free_pdfobj(obj);
 496
 497   pdfinfo->pages = g_malloc0(pdfinfo->npages*sizeof(struct PdfPageDesc));
 498   pdf_getpageinfo(pdfbuf, xref, pages, pdfinfo->npages, pdfinfo->pages);
 499   free_pdfobj(pages);
 500
 501   return TRUE;
 502 }
 503
 504 // add an entry to the xref table
 505
 506 void make_xref(struct XrefTable *xref, int nobj, int offset)
 507 {
 508   if (xref->n_alloc <= nobj) {
 509     xref->n_alloc = nobj + 10;
 510     xref->data = g_realloc(xref->data, xref->n_alloc*sizeof(int));
 511   }
 512   if (xref->last < nobj) xref->last = nobj;
 513   xref->data[nobj] = offset;
 514 }
 515
 516 // a wrapper for deflate
 517
 518 GString *do_deflate(char *in, int len)
 519 {
 520   GString *out;
 521   z_stream zs;
 522
 523   zs.zalloc = Z_NULL;
 524   zs.zfree = Z_NULL;
 525   deflateInit(&zs, Z_DEFAULT_COMPRESSION);
 526   zs.next_in = (Bytef *)in;
 527   zs.avail_in = len;
 528   zs.avail_out = deflateBound(&zs, len);
 529   out = g_string_sized_new(zs.avail_out);
 530   zs.next_out = (Bytef *)out->str;
 531   deflate(&zs, Z_FINISH);
 532   out->len = zs.total_out;
 533   deflateEnd(&zs);
 534   return out;
 535 }
 536
 537 // prefix to scale the original page
 538
 539 GString *make_pdfprefix(struct PdfPageDesc *pgdesc, double width, double height)
 540 {
 541   GString *str;
 542   double v[4], t, xscl, yscl;
 543   int i;
 544
 545   // push 3 times in case code to be annotated has unbalanced q/Q (B of A., ...)
 546   str = g_string_new("q q q ");
 547   if (pgdesc->rotate == 90) {
 548     g_string_append_printf(str, "0 -1 1 0 0 %.2f cm ", height);
 549     t = height; height = width; width = t;
 550   }
 551   if (pgdesc->rotate == 270) {
 552     g_string_append_printf(str, "0 1 -1 0 %.2f 0 cm ", width);
 553     t = height; height = width; width = t;
 554   }
 555   if (pgdesc->rotate == 180) {
 556     g_string_append_printf(str, "-1 0 0 -1 %.2f %.2f cm ", width, height);
 557   }
 558   if (pgdesc->mediabox==NULL || pgdesc->mediabox->type != PDFTYPE_ARRAY ||
 559       pgdesc->mediabox->num != 4) return str;
 560   for (i=0; i<4; i++) {
 561     if (pgdesc->mediabox->elts[i]->type == PDFTYPE_INT)
 562       v[i] = pgdesc->mediabox->elts[i]->intval;
 563     else if (pgdesc->mediabox->elts[i]->type == PDFTYPE_REAL)
 564       v[i] = pgdesc->mediabox->elts[i]->realval;
 565     else return str;
 566   }
 567   if (v[0]>v[2]) { t = v[0]; v[0] = v[2]; v[2] = t; }
 568   if (v[1]>v[3]) { t = v[1]; v[1] = v[3]; v[3] = t; }
 569   if (v[2]-v[0] < 1. || v[3]-v[1] < 1.) return str;
 570   xscl = width/(v[2]-v[0]);
 571   yscl = height/(v[3]-v[1]);
 572   g_string_append_printf(str, "%.4f 0 0 %.4f %.2f %.2f cm ",
 573     xscl, yscl, -v[0]*xscl, -v[1]*yscl);
 574   return str;
 575 }
 576
 577 // add an entry to a subentry of a directory
 578
 579 struct PdfObj *mk_pdfname(char *name)
 580 {
 581   struct PdfObj *obj;
 582
 583   obj = g_malloc(sizeof(struct PdfObj));
 584   obj->type = PDFTYPE_NAME;
 585   obj->str = g_strdup(name);
 586   return obj;
 587 }
 588
 589 struct PdfObj *mk_pdfref(int num)
 590 {
 591   struct PdfObj *obj;
 592
 593   obj = g_malloc(sizeof(struct PdfObj));
 594   obj->type = PDFTYPE_REF;
 595   obj->intval = num;
 596   obj->num = 0;
 597   return obj;
 598 }
 599
 600 gboolean iseq_obj(struct PdfObj *a, struct PdfObj *b)
 601 {
 602   if (a==NULL || b==NULL) return (a==b);
 603   if (a->type!=b->type) return FALSE;
 604   if (a->type == PDFTYPE_CST || a->type == PDFTYPE_INT)
 605     return (a->intval == b->intval);
 606   if (a->type == PDFTYPE_REAL)
 607     return (a->realval == b->realval);
 608   if (a->type == PDFTYPE_NAME)
 609     return !strcmp(a->str, b->str);
 610   if (a->type == PDFTYPE_REF)
 611     return (a->intval == b->intval && a->num == b->num);
 612   return FALSE;
 613 }
 614
 615 void add_dict_subentry(GString *pdfbuf, struct XrefTable *xref,
 616    struct PdfObj *obj, char *section, int type, char *name, struct PdfObj *entry)
 617 {
 618   struct PdfObj *sec;
 619   int i, subpos;
 620
 621   subpos = -1;
 622   for (i=0; i<obj->num; i++)
 623     if (!strcmp(obj->names[i], section)) subpos = i;
 624   if (subpos == -1) {
 625     subpos = obj->num;
 626     obj->num++;
 627     obj->elts = g_realloc(obj->elts, obj->num*sizeof(struct PdfObj*));
 628     obj->names = g_realloc(obj->names, obj->num*sizeof(char *));
 629     obj->names[subpos] = g_strdup(section);
 630     obj->elts[subpos] = NULL;
 631   }
 632   if (obj->elts[subpos]!=NULL && obj->elts[subpos]->type==PDFTYPE_REF) {
 633     sec = get_pdfobj(pdfbuf, xref, obj->elts[subpos]);
 634     free_pdfobj(obj->elts[subpos]);
 635     obj->elts[subpos] = sec;
 636   }
 637   if (obj->elts[subpos]!=NULL && obj->elts[subpos]->type!=type)
 638     { free_pdfobj(obj->elts[subpos]); obj->elts[subpos] = NULL; }
 639   if (obj->elts[subpos] == NULL) {
 640     obj->elts[subpos] = sec = g_malloc(sizeof(struct PdfObj));
 641     sec->type = type;
 642     sec->num = 0;
 643     sec->elts = NULL;
 644     sec->names = NULL;
 645   }
 646   sec = obj->elts[subpos];
 647
 648   subpos = -1;
 649   if (type==PDFTYPE_DICT) {
 650     for (i=0; i<sec->num; i++)
 651       if (!strcmp(sec->names[i], name)) subpos = i;
 652     if (subpos == -1) {
 653       subpos = sec->num;
 654       sec->num++;
 655       sec->elts = g_realloc(sec->elts, sec->num*sizeof(struct PdfObj*));
 656       sec->names = g_realloc(sec->names, sec->num*sizeof(char *));
 657       sec->names[subpos] = g_strdup(name);
 658       sec->elts[subpos] = NULL;
 659     }
 660     free_pdfobj(sec->elts[subpos]);
 661     sec->elts[subpos] = entry;
 662   }
 663   if (type==PDFTYPE_ARRAY) {
 664     for (i=0; i<sec->num; i++)
 665       if (iseq_obj(sec->elts[i], entry)) subpos = i;
 666     if (subpos == -1) {
 667       subpos = sec->num;
 668       sec->num++;
 669       sec->elts = g_realloc(sec->elts, sec->num*sizeof(struct PdfObj*));
 670       sec->elts[subpos] = entry;
 671     }
 672     else free_pdfobj(entry);
 673   }
 674 }
 675
 676 // draw a page's background
 677
 678 void pdf_draw_solid_background(struct Page *pg, GString *str)
 679 {
 680   double x, y;
 681
 682   g_string_append_printf(str,
 683     "%.2f %.2f %.2f rg 0 0 %.2f %.2f re f ",
 684     RGBA_RGB(pg->bg->color_rgba), pg->width, pg->height);
 685   if (!ui.print_ruling) return;
 686   if (pg->bg->ruling == RULING_NONE) return;
 687   g_string_append_printf(str,
 688     "%.2f %.2f %.2f RG %.2f w ",
 689     RGBA_RGB(RULING_COLOR), RULING_THICKNESS);
 690   if (pg->bg->ruling == RULING_GRAPH) {
 691     for (x=RULING_GRAPHSPACING; x<pg->width-1; x+=RULING_GRAPHSPACING)
 692       g_string_append_printf(str, "%.2f 0 m %.2f %.2f l S ",
 693         x, x, pg->height);
 694     for (y=RULING_GRAPHSPACING; y<pg->height-1; y+=RULING_GRAPHSPACING)
 695       g_string_append_printf(str, "0 %.2f m %.2f %.2f l S ",
 696         y, pg->width, y);
 697     return;
 698   }
 699   for (y=RULING_TOPMARGIN; y<pg->height-1; y+=RULING_SPACING)
 700     g_string_append_printf(str, "0 %.2f m %.2f %.2f l S ",
 701       y, pg->width, y);
 702   if (pg->bg->ruling == RULING_LINED)
 703     g_string_append_printf(str,
 704       "%.2f %.2f %.2f RG %.2f 0 m %.2f %.2f l S ",
 705       RGBA_RGB(RULING_MARGIN_COLOR),
 706       RULING_LEFTMARGIN, RULING_LEFTMARGIN, pg->height);
 707 }
 708
 709 int pdf_draw_bitmap_background(struct Page *pg, GString *str,
 710                                 struct XrefTable *xref, GString *pdfbuf)
 711 {
 712   BgPdfPage *pgpdf;
 713   GdkPixbuf *pix;
 714   GString *zpix;
 715   PopplerPage *pdfpage;
 716   char *buf, *p1, *p2;
 717   int height, width, stride, x, y, chan;
 718   double pgheight, pgwidth;
 719
 720   if (pg->bg->type == BG_PDF) {
 721     if (!bgpdf.document) return -1;
 722     pdfpage = poppler_document_get_page(bgpdf.document, pg->bg->file_page_seq-1);
 723     if (!pdfpage) return -1;
 724     poppler_page_get_size(pdfpage, &pgwidth, &pgheight);
 725     width = (int) (PDFTOPPM_PRINTING_DPI * pgwidth/72.0);
 726     height = (int) (PDFTOPPM_PRINTING_DPI * pgheight/72.0);
 727     pix = gdk_pixbuf_new(GDK_COLORSPACE_RGB, FALSE, 8, width, height);
 728     poppler_page_render_to_pixbuf(
 729        pdfpage, 0, 0, width, height, PDFTOPPM_PRINTING_DPI/72.0, 0, pix);
 730     g_object_unref(pdfpage);
 731   }
 732   else pix = g_object_ref(pg->bg->pixbuf);
 733
 734   if (gdk_pixbuf_get_bits_per_sample(pix) != 8 ||
 735       gdk_pixbuf_get_colorspace(pix) != GDK_COLORSPACE_RGB)
 736     { g_object_unref(pix); return -1; }
 737
 738   width = gdk_pixbuf_get_width(pix);
 739   height = gdk_pixbuf_get_height(pix);
 740   stride = gdk_pixbuf_get_rowstride(pix);
 741   chan = gdk_pixbuf_get_n_channels(pix);
 742   if (chan!=3 && chan!=4) { g_object_unref(pix); return -1; }
 743
 744   g_string_append_printf(str, "q %.2f 0 0 %.2f 0 %.2f cm /ImBg Do Q ",
 745     pg->width, -pg->height, pg->height);
 746
 747   p2 = buf = (char *)g_malloc(3*width*height);
 748   for (y=0; y<height; y++) {
 749     p1 = (char *)gdk_pixbuf_get_pixels(pix)+stride*y;
 750     for (x=0; x<width; x++) {
 751       *(p2++)=*(p1++); *(p2++)=*(p1++); *(p2++)=*(p1++);
 752       if (chan==4) p1++;
 753     }
 754   }
 755   zpix = do_deflate(buf, 3*width*height);
 756   g_free(buf);
 757   g_object_unref(pix);
 758
 759   make_xref(xref, xref->last+1, pdfbuf->len);
 760   g_string_append_printf(pdfbuf,
 761     "%d 0 obj\n<< /Length %d /Filter /FlateDecode /Type /Xobject "
 762     "/Subtype /Image /Width %d /Height %d /ColorSpace /DeviceRGB "
 763     "/BitsPerComponent 8 >> stream\n",
 764     xref->last, zpix->len, width, height);
 765   g_string_append_len(pdfbuf, zpix->str, zpix->len);
 766   g_string_free(zpix, TRUE);
 767   g_string_append(pdfbuf, "endstream\nendobj\n");
 768
 769   return xref->last;
 770 }
 771
 772 // manipulate Pdf fonts
 773
 774 struct PdfFont *new_pdffont(struct XrefTable *xref, GList **fonts,
 775    char *filename, int font_id, FT_Face face, int glyph_page)
 776 {
 777   GList *list;
 778   struct PdfFont *font;
 779   int i;
 780   const char *s;
 781
 782   for (list = *fonts; list!=NULL; list = list->next) {
 783     font = (struct PdfFont *)list->data;
 784     if (!strcmp(font->filename, filename) && font->font_id == font_id
 785         && font->glyph_page == glyph_page)
 786           { font->used_in_this_page = TRUE; return font; }
 787   }
 788   font = g_malloc(sizeof(struct PdfFont));
 789   *fonts = g_list_append(*fonts, font);
 790   font->n_obj = xref->last+1;
 791   make_xref(xref, xref->last+1, 0); // will give it a value later
 792   font->filename = g_strdup(filename);
 793   font->font_id = font_id;
 794   font->glyph_page = glyph_page;
 795   font->used_in_this_page = TRUE;
 796   font->num_glyphs_used = 0;
 797   for (i=0; i<256; i++) {
 798     font->glyphmap[i] = -1;
 799     font->advance[i] = 0;
 800     font->glyphpsnames[i] = NULL;
 801   }
 802   font->glyphmap[0] = 0;
 803   // fill in info from the FT_Face
 804   font->is_truetype = FT_IS_SFNT(face);
 805   font->nglyphs = face->num_glyphs;
 806   font->ft2ps = 1000.0 / face->units_per_EM;
 807   font->ascender = (int)(font->ft2ps*face->ascender);
 808   font->descender = (int)(font->ft2ps*face->descender);
 809   if (face->bbox.xMin < -100000 || face->bbox.xMin > 100000) font->xmin = 0;
 810   else font->xmin = (int)(font->ft2ps*face->bbox.xMin);
 811   if (face->bbox.xMax < -100000 || face->bbox.xMax > 100000) font->xmax = 0;
 812   else font->xmax = (int)(font->ft2ps*face->bbox.xMax);
 813   if (face->bbox.yMin < -100000 || face->bbox.yMin > 100000) font->ymin = 0;
 814   else font->ymin = (int)(font->ft2ps*face->bbox.yMin);
 815   if (face->bbox.yMax < -100000 || face->bbox.yMax > 100000) font->ymax = 0;
 816   else font->ymax = (int)(font->ft2ps*face->bbox.yMax);
 817   if (font->is_truetype) font->flags = 4; // symbolic
 818   else {
 819     font->flags = 4; // symbolic
 820     if (FT_IS_FIXED_WIDTH(face)) font->flags |= 1;
 821     if (face->style_flags & FT_STYLE_FLAG_ITALIC) font->flags |= 64;
 822   }
 823   s = FT_Get_Postscript_Name(face);
 824   if (s==NULL) s = "Noname";
 825   if (glyph_page) font->fontname = g_strdup_printf("%s_%03d", s, glyph_page);
 826   else font->fontname = g_strdup(s);
 827   return font;
 828 }
 829
 830 #define pfb_get_length(x) (((x)[3]<<24) + ((x)[2]<<16) + ((x)[1]<<8) + (x)[0])
 831 #define T1_SEGMENT_1_END "currentfile eexec"
 832 #define T1_SEGMENT_3_END "cleartomark"
 833
 834 void embed_pdffont(GString *pdfbuf, struct XrefTable *xref, struct PdfFont *font)
 835 {
 836   // this code inspired by libgnomeprint
 837   gboolean fallback, is_binary;
 838   guchar encoding[256];
 839   gushort glyphs[256];
 840   int i, j, num, len1, len2;
 841   gsize len;
 842   TrueTypeFont *ttfnt;
 843   char *tmpfile, *seg1, *seg2;
 844   char *fontdata, *p;
 845   char prefix[8];
 846   int nobj_fontprog, nobj_descr, lastchar;
 847
 848   fallback = FALSE;
 849   // embed the font file: TrueType case
 850   if (font->is_truetype) {
 851     glyphs[0] = encoding[0] = 0;
 852     num = 1;
 853     for (i=1; i<=255; i++)
 854       if (font->glyphmap[i]>=0) {
 855         font->glyphmap[i] = num;
 856         glyphs[num] = 255*font->glyph_page+i-1;
 857         encoding[num] = i;
 858         num++;
 859       }
 860     font->num_glyphs_used = num-1;
 861     if (OpenTTFont(font->filename, 0, &ttfnt) == SF_OK) {
 862       tmpfile = mktemp(g_strdup(TMPDIR_TEMPLATE));
 863       CreateTTFromTTGlyphs(ttfnt, tmpfile, glyphs, encoding, num,
 864                            0, NULL, TTCF_AutoName | TTCF_IncludeOS2);
 865       CloseTTFont(ttfnt);
 866       if (g_file_get_contents(tmpfile, &fontdata, &len, NULL) && len>=8) {
 867         make_xref(xref, xref->last+1, pdfbuf->len);
 868         nobj_fontprog = xref->last;
 869         g_string_append_printf(pdfbuf,
 870           "%d 0 obj\n<< /Length %d /Length1 %d >> stream\n",
 871           nobj_fontprog, (int)len, (int)len);
 872         g_string_append_len(pdfbuf, fontdata, len);
 873         g_string_append(pdfbuf, "endstream\nendobj\n");
 874         g_free(fontdata);
 875       }
 876       else fallback = TRUE;
 877       unlink(tmpfile);
 878       g_free(tmpfile);
 879     }
 880     else fallback = TRUE;
 881   } else {
 882   // embed the font file: Type1 case
 883     if (g_file_get_contents(font->filename, &fontdata, &len, NULL) && len>=8) {
 884       if (fontdata[0]==(char)0x80 && fontdata[1]==(char)0x01) {
 885         is_binary = TRUE;
 886         len1 = pfb_get_length((unsigned char *)fontdata+2);
 887         if (fontdata[len1+6]!=(char)0x80 || fontdata[len1+7]!=(char)0x02) fallback = TRUE;
 888         else {
 889           len2 = pfb_get_length((unsigned char *)fontdata+len1+8);
 890           if (fontdata[len1+len2+12]!=(char)0x80 || fontdata[len1+len2+13]!=(char)0x01)
 891             fallback = TRUE;
 892         }
 893       }
 894       else if (!strncmp(fontdata, "%!PS", 4)) {
 895         is_binary = FALSE;
 896         p = strstr(fontdata, T1_SEGMENT_1_END) + strlen(T1_SEGMENT_1_END);
 897         if (p==NULL) fallback = TRUE;
 898         else {
 899           if (*p=='\n' || *p=='\r') p++;
 900           if (*p=='\n' || *p=='\r') p++;
 901           len1 = p-fontdata;
 902           p = g_strrstr_len(fontdata, len, T1_SEGMENT_3_END);
 903           if (p==NULL) fallback = TRUE;
 904           else {
 905             // rewind 512 zeros
 906             i = 512; p--;
 907             while (i>0 && p!=fontdata && (*p=='0' || *p=='\r' || *p=='\n')) {
 908               if (*p=='0') i--;
 909               p--;
 910             }
 911             while (p!=fontdata && (*p=='\r' || *p=='\n')) p--;
 912             p++;
 913             if (i>0) fallback = TRUE;
 914             else len2 = p-fontdata-len1;
 915           }
 916         }
 917       }
 918       else fallback = TRUE;
 919       if (!fallback) {
 920         if (is_binary) {
 921           seg1 = fontdata+6;
 922           seg2 = fontdata + len1 + 12;
 923         } else {
 924           seg1 = fontdata;
 925           seg2 = g_malloc(len2/2);
 926           j=0;
 927           p = fontdata+len1;
 928           while (p+1 < fontdata+len1+len2) {
 929             if (*p==' '||*p=='\t'||*p=='\n'||*p=='\r') { p++; continue; }
 930             if (p[0]>'9') { p[0]|=0x20; p[0]-=39; }
 931             if (p[1]>'9') { p[1]|=0x20; p[1]-=39; }
 932             seg2[j++] = ((p[0]-'0')<<4) + (p[1]-'0');
 933             p+=2;
 934           }
 935           len2 = j;
 936         }
 937         make_xref(xref, xref->last+1, pdfbuf->len);
 938         nobj_fontprog = xref->last;
 939         g_string_append_printf(pdfbuf,
 940           "%d 0 obj\n<< /Length %d /Length1 %d /Length2 %d /Length3 0 >> stream\n",
 941           nobj_fontprog, len1+len2, len1, len2);
 942         g_string_append_len(pdfbuf, seg1, len1);
 943         g_string_append_len(pdfbuf, seg2, len2);
 944         g_string_append(pdfbuf, "endstream\nendobj\n");
 945         if (!is_binary) g_free(seg2);
 946       }
 947       g_free(fontdata);
 948     }
 949     else fallback = TRUE;
 950   }
 951
 952   // next, the font descriptor
 953   if (!fallback) {
 954     make_xref(xref, xref->last+1, pdfbuf->len);
 955     nobj_descr = xref->last;
 956     g_string_append_printf(pdfbuf,
 957       "%d 0 obj\n<< /Type /FontDescriptor /FontName /%s /Flags %d "
 958       "/FontBBox [%d %d %d %d] /ItalicAngle 0 /Ascent %d "
 959       "/Descent %d /CapHeight %d /StemV 100 /%s %d 0 R >> endobj\n",
 960       nobj_descr, font->fontname, font->flags,
 961       font->xmin, font->ymin, font->xmax, font->ymax,
 962       font->ascender, -font->descender, font->ascender,
 963       font->is_truetype ? "FontFile2":"FontFile",
 964       nobj_fontprog);
 965   }
 966
 967   // finally, the font itself
 968   /* Note: in Type1 case, font->glyphmap maps charcodes to glyph no's
 969      in TrueType case, encoding lists the used charcodes by index,
 970                        glyphs   list the used glyph no's by index
 971                        font->glyphmap maps charcodes to indices        */
 972   xref->data[font->n_obj] = pdfbuf->len;
 973   if (font->is_truetype) lastchar = encoding[font->num_glyphs_used];
 974   else lastchar = font->num_glyphs_used;
 975   if (fallback) {
 976     font->is_truetype = FALSE;
 977     g_free(font->fontname);
 978     font->fontname = g_strdup("Helvetica");
 979   }
 980   prefix[0]=0;
 981   if (font->is_truetype) {
 982     num = font->glyph_page;
 983     for (i=0; i<6; i++) { prefix[i] = 'A'+(num%26); num/=26; }
 984     prefix[6]='+'; prefix[7]=0;
 985   }
 986   g_string_append_printf(pdfbuf,
 987     "%d 0 obj\n<< /Type /Font /Subtype /%s /BaseFont /%s%s /Name /F%d ",
 988     font->n_obj, font->is_truetype?"TrueType":"Type1",
 989     prefix, font->fontname, font->n_obj);
 990   if (!fallback) {
 991     g_string_append_printf(pdfbuf,
 992       "/FontDescriptor %d 0 R /FirstChar 0 /LastChar %d /Widths [",
 993       nobj_descr, lastchar);
 994     for (i=0; i<=lastchar; i++)
 995       g_string_append_printf(pdfbuf, "%d ", font->advance[i]);
 996     g_string_append(pdfbuf, "] ");
 997   }
 998   if (!font->is_truetype) { /* encoding */
 999     g_string_append(pdfbuf, "/Encoding << /Type /Encoding "
1000       "/BaseEncoding /MacRomanEncoding /Differences [1 ");
1001     for (i=1; i<=lastchar; i++) {
1002       g_string_append_printf(pdfbuf, "/%s ", font->glyphpsnames[i]);
1003       g_free(font->glyphpsnames[i]);
1004     }
1005     g_string_append(pdfbuf, "] >> ");
1006   }
1007   g_string_append(pdfbuf, ">> endobj\n");
1008 }
1009
1010 // draw a page's graphics
1011
1012 void pdf_draw_page(struct Page *pg, GString *str, gboolean *use_hiliter,
1013                   struct XrefTable *xref, GList **pdffonts)
1014 {
1015   GList *layerlist, *itemlist, *tmplist;
1016   struct Layer *l;
1017   struct Item *item;
1018   guint old_rgba, old_text_rgba;
1019   double old_thickness;
1020   double *pt;
1021   int i, j;
1022   PangoFontDescription *font_desc;
1023   PangoContext *context;
1024   PangoLayout *layout;
1025   PangoLayoutIter *iter;
1026   PangoRectangle logical_rect;
1027   PangoLayoutRun *run;
1028   PangoFcFont *fcfont;
1029   FcPattern *pattern;
1030   int baseline, advance;
1031   int glyph_no, glyph_page, current_page;
1032   char *filename;
1033   char tmpstr[200];
1034   int font_id;
1035   FT_Face ftface;
1036   struct PdfFont *cur_font;
1037   gboolean in_string;
1038
1039   old_rgba = old_text_rgba = 0x12345678;    // not any values we use, so we'll reset them
1040   old_thickness = 0.0;
1041   for (tmplist = *pdffonts; tmplist!=NULL; tmplist = tmplist->next) {
1042     cur_font = (struct PdfFont *)tmplist->data;
1043     cur_font->used_in_this_page = FALSE;
1044   }
1045
1046   for (layerlist = pg->layers; layerlist!=NULL; layerlist = layerlist->next) {
1047     l = (struct Layer *)layerlist->data;
1048     for (itemlist = l->items; itemlist!=NULL; itemlist = itemlist->next) {
1049       item = (struct Item *)itemlist->data;
1050       if (item->type == ITEM_STROKE) {
1051         if ((item->brush.color_rgba & ~0xff) != old_rgba)
1052           g_string_append_printf(str, "%.2f %.2f %.2f RG ",
1053             RGBA_RGB(item->brush.color_rgba));
1054         if (item->brush.thickness != old_thickness)
1055           g_string_append_printf(str, "%.2f w ", item->brush.thickness);
1056         if ((item->brush.color_rgba & 0xf0) != 0xf0) { // transparent
1057           g_string_append(str, "q /XoHi gs ");
1058           *use_hiliter = TRUE;
1059         }
1060         old_rgba = item->brush.color_rgba & ~0xff;
1061         old_thickness = item->brush.thickness;
1062         pt = item->path->coords;
1063         if (!item->brush.variable_width) {
1064           g_string_append_printf(str, "%.2f %.2f m ", pt[0], pt[1]);
1065           for (i=1, pt+=2; i<item->path->num_points; i++, pt+=2)
1066             g_string_append_printf(str, "%.2f %.2f l ", pt[0], pt[1]);
1067           g_string_append_printf(str,"S\n");
1068           old_thickness = item->brush.thickness;
1069         } else {
1070           for (i=0; i<item->path->num_points-1; i++, pt+=2)
1071             g_string_append_printf(str, "%.2f w %.2f %.2f m %.2f %.2f l S\n",
1072                item->widths[i], pt[0], pt[1], pt[2], pt[3]);
1073           old_thickness = 0.0;
1074         }
1075         if ((item->brush.color_rgba & 0xf0) != 0xf0) // undo transparent
1076           g_string_append(str, "Q ");
1077       }
1078       else if (item->type == ITEM_TEXT) {
1079         if ((item->brush.color_rgba & ~0xff) != old_text_rgba)
1080           g_string_append_printf(str, "%.2f %.2f %.2f rg ",
1081             RGBA_RGB(item->brush.color_rgba));
1082         old_text_rgba = item->brush.color_rgba & ~0xff;
1083         context = gnome_print_pango_create_context(gnome_print_pango_get_default_font_map());
1084         layout = pango_layout_new(context);
1085         g_object_unref(context);
1086         font_desc = pango_font_description_from_string(item->font_name);
1087         pango_font_description_set_absolute_size(font_desc,
1088           item->font_size*PANGO_SCALE);
1089         pango_layout_set_font_description(layout, font_desc);
1090         pango_font_description_free(font_desc);
1091         pango_layout_set_text(layout, item->text, -1);
1092         // this code inspired by the code in libgnomeprint
1093         iter = pango_layout_get_iter(layout);
1094         do {
1095           run = pango_layout_iter_get_run(iter);
1096           if (run==NULL) continue;
1097           pango_layout_iter_get_run_extents (iter, NULL, &logical_rect);
1098           baseline = pango_layout_iter_get_baseline (iter);
1099           if (!PANGO_IS_FC_FONT(run->item->analysis.font)) continue;
1100           fcfont = PANGO_FC_FONT(run->item->analysis.font);
1101           pattern = fcfont->font_pattern;
1102           if (FcPatternGetString(pattern, FC_FILE, 0, (unsigned char **)&filename) != FcResultMatch ||
1103               FcPatternGetInteger(pattern, FC_INDEX, 0, &font_id) != FcResultMatch)
1104                 continue;
1105           ftface = pango_fc_font_lock_face(fcfont);
1106           current_page = -1;
1107           cur_font = NULL;
1108           g_string_append_printf(str, "BT %.2f 0 0 %.2f %.2f %.2f Tm ",
1109             item->font_size, -item->font_size,
1110             item->bbox.left + (gdouble) logical_rect.x/PANGO_SCALE,
1111             item->bbox.top + (gdouble) baseline/PANGO_SCALE);
1112           in_string = FALSE;
1113           for (i=0; i<run->glyphs->num_glyphs; i++) {
1114             glyph_no = run->glyphs->glyphs[i].glyph;
1115             if (FT_IS_SFNT(ftface)) glyph_page = glyph_no/255;
1116             else glyph_page = 0;
1117             if (glyph_page != current_page) {
1118               cur_font = new_pdffont(xref, pdffonts, filename, font_id,
1119                  ftface, glyph_page);
1120               if (in_string) g_string_append(str, ") Tj ");
1121               in_string = FALSE;
1122               g_string_append_printf(str, "/F%d 1 Tf ", cur_font->n_obj);
1123             }
1124             current_page = glyph_page;
1125             FT_Load_Glyph(ftface, glyph_no, FT_LOAD_NO_SCALE | FT_LOAD_NO_HINTING | FT_LOAD_NO_BITMAP | FT_LOAD_IGNORE_TRANSFORM);
1126             advance = (int)(ftface->glyph->metrics.horiAdvance * cur_font->ft2ps + 0.5);
1127             if (!in_string) g_string_append_c(str, '(');
1128             in_string = TRUE;
1129             if (cur_font->is_truetype) {
1130               if (glyph_no) glyph_no = (glyph_no%255)+1;
1131               cur_font->glyphmap[glyph_no] = glyph_no;
1132             }
1133             else {
1134               for (j=1; j<=cur_font->num_glyphs_used; j++)
1135                 if (cur_font->glyphmap[j] == glyph_no) break;
1136               if (j==256) j=0; // font is full, what do we do?
1137               if (j>cur_font->num_glyphs_used) {
1138                 cur_font->glyphmap[j] = glyph_no;
1139                 cur_font->num_glyphs_used++;
1140                 if (FT_Get_Glyph_Name(ftface, glyph_no, tmpstr, 200) == FT_Err_Ok)
1141                   cur_font->glyphpsnames[j] = g_strdup(tmpstr);
1142                 else cur_font->glyphpsnames[j] = g_strdup(".notdef");
1143               }
1144               glyph_no = j;
1145             }
1146             cur_font->advance[glyph_no] = advance;
1147             if (glyph_no=='\\' || glyph_no == '(' || glyph_no == ')' || glyph_no == 10 || glyph_no == 13)
1148               g_string_append_c(str, '\\');
1149             if (glyph_no==10) g_string_append_c(str,'n');
1150             else if (glyph_no==13) g_string_append_c(str,'r');
1151             else g_string_append_c(str, glyph_no);
1152           }
1153           if (in_string) g_string_append(str, ") Tj ");
1154           g_string_append(str, "ET ");
1155           pango_fc_font_unlock_face(fcfont);
1156         } while (pango_layout_iter_next_run(iter));
1157         pango_layout_iter_free(iter);
1158         g_object_unref(layout);
1159       }
1160     }
1161   }
1162 }
1163
1164 // main printing function
1165
1166 /* we use the following object numbers, starting with n_obj_catalog:
1167     0 the document catalog
1168     1 the page tree
1169     2 the GS for the hiliters
1170     3 ... the page objects
1171 */
1172
1173 gboolean print_to_pdf(char *filename)
1174 {
1175   FILE *f;
1176   GString *pdfbuf, *pgstrm, *zpgstrm, *tmpstr;
1177   int n_obj_catalog, n_obj_pages_offs, n_page, n_obj_bgpix, n_obj_prefix;
1178   int i, startxref;
1179   struct XrefTable xref;
1180   GList *pglist;
1181   struct Page *pg;
1182   gboolean annot, uses_pdf;
1183   gboolean use_hiliter;
1184   struct PdfInfo pdfinfo;
1185   struct PdfObj *obj;
1186   GList *pdffonts, *list;
1187   struct PdfFont *font;
1188   char *tmpbuf;
1189
1190   f = fopen(filename, "w");
1191   if (f == NULL) return FALSE;
1192   setlocale(LC_NUMERIC, "C");
1193   annot = FALSE;
1194   xref.data = NULL;
1195   uses_pdf = FALSE;
1196   pdffonts = NULL;
1197   for (pglist = journal.pages; pglist!=NULL; pglist = pglist->next) {
1198     pg = (struct Page *)pglist->data;
1199     if (pg->bg->type == BG_PDF) uses_pdf = TRUE;
1200   }
1201
1202   if (uses_pdf && bgpdf.status != STATUS_NOT_INIT &&
1203       bgpdf.file_contents!=NULL && !strncmp(bgpdf.file_contents, "%PDF-1.", 7)) {
1204     // parse the existing PDF file
1205     pdfbuf = g_string_new_len(bgpdf.file_contents, bgpdf.file_length);
1206     if (pdfbuf->str[7]<'4') pdfbuf->str[7] = '4'; // upgrade to 1.4
1207     annot = pdf_parse_info(pdfbuf, &pdfinfo, &xref);
1208     if (!annot) {
1209       g_string_free(pdfbuf, TRUE);
1210       if (xref.data != NULL) g_free(xref.data);
1211     }
1212   }
1213
1214   if (!annot) {
1215     pdfbuf = g_string_new("%PDF-1.4\n%\370\357\365\362\n");
1216     xref.n_alloc = xref.last = 0;
1217     xref.data = NULL;
1218   }
1219
1220   // catalog and page tree
1221   n_obj_catalog = xref.last+1;
1222   n_obj_pages_offs = xref.last+4;
1223   make_xref(&xref, n_obj_catalog, pdfbuf->len);
1224   g_string_append_printf(pdfbuf,
1225     "%d 0 obj\n<< /Type /Catalog /Pages %d 0 R >> endobj\n",
1226      n_obj_catalog, n_obj_catalog+1);
1227   make_xref(&xref, n_obj_catalog+1, pdfbuf->len);
1228   g_string_append_printf(pdfbuf,
1229     "%d 0 obj\n<< /Type /Pages /Kids [", n_obj_catalog+1);
1230   for (i=0;i<journal.npages;i++)
1231     g_string_append_printf(pdfbuf, "%d 0 R ", n_obj_pages_offs+i);
1232   g_string_append_printf(pdfbuf, "] /Count %d >> endobj\n", journal.npages);
1233   make_xref(&xref, n_obj_catalog+2, pdfbuf->len);
1234   g_string_append_printf(pdfbuf,
1235     "%d 0 obj\n<< /Type /ExtGState /CA %.2f >> endobj\n",
1236      n_obj_catalog+2, ui.hiliter_opacity);
1237   xref.last = n_obj_pages_offs + journal.npages-1;
1238
1239   for (pglist = journal.pages, n_page = 0; pglist!=NULL;
1240        pglist = pglist->next, n_page++) {
1241     pg = (struct Page *)pglist->data;
1242
1243     // draw the background and page into pgstrm
1244     pgstrm = g_string_new("");
1245     g_string_printf(pgstrm, "q 1 0 0 -1 0 %.2f cm 1 J 1 j ", pg->height);
1246     n_obj_bgpix = -1;
1247     n_obj_prefix = -1;
1248     if (pg->bg->type == BG_SOLID)
1249       pdf_draw_solid_background(pg, pgstrm);
1250     else if (pg->bg->type == BG_PDF && annot &&
1251              pdfinfo.pages[pg->bg->file_page_seq-1].contents!=NULL) {
1252       make_xref(&xref, xref.last+1, pdfbuf->len);
1253       n_obj_prefix = xref.last;
1254       tmpstr = make_pdfprefix(pdfinfo.pages+(pg->bg->file_page_seq-1),
1255                               pg->width, pg->height);
1256       g_string_append_printf(pdfbuf,
1257         "%d 0 obj\n<< /Length %d >> stream\n%s\nendstream\nendobj\n",
1258         n_obj_prefix, tmpstr->len, tmpstr->str);
1259       g_string_free(tmpstr, TRUE);
1260       g_string_prepend(pgstrm, "Q Q Q ");
1261     }
1262     else if (pg->bg->type == BG_PIXMAP || pg->bg->type == BG_PDF)
1263       n_obj_bgpix = pdf_draw_bitmap_background(pg, pgstrm, &xref, pdfbuf);
1264     // draw the page contents
1265     use_hiliter = FALSE;
1266     pdf_draw_page(pg, pgstrm, &use_hiliter, &xref, &pdffonts);
1267     g_string_append_printf(pgstrm, "Q\n");
1268
1269     // deflate pgstrm and write it
1270     zpgstrm = do_deflate(pgstrm->str, pgstrm->len);
1271     g_string_free(pgstrm, TRUE);
1272
1273     make_xref(&xref, xref.last+1, pdfbuf->len);
1274     g_string_append_printf(pdfbuf,
1275       "%d 0 obj\n<< /Length %d /Filter /FlateDecode>> stream\n",
1276       xref.last, zpgstrm->len);
1277     g_string_append_len(pdfbuf, zpgstrm->str, zpgstrm->len);
1278     g_string_free(zpgstrm, TRUE);
1279     g_string_append(pdfbuf, "endstream\nendobj\n");
1280
1281     // write the page object
1282
1283     make_xref(&xref, n_obj_pages_offs+n_page, pdfbuf->len);
1284     g_string_append_printf(pdfbuf,
1285       "%d 0 obj\n<< /Type /Page /Parent %d 0 R /MediaBox [0 0 %.2f %.2f] ",
1286       n_obj_pages_offs+n_page, n_obj_catalog+1, pg->width, pg->height);
1287     if (n_obj_prefix>0) {
1288       obj = get_pdfobj(pdfbuf, &xref, pdfinfo.pages[pg->bg->file_page_seq-1].contents);
1289       if (obj->type != PDFTYPE_ARRAY) {
1290         free_pdfobj(obj);
1291         obj = dup_pdfobj(pdfinfo.pages[pg->bg->file_page_seq-1].contents);
1292       }
1293       g_string_append_printf(pdfbuf, "/Contents [%d 0 R ", n_obj_prefix);
1294       if (obj->type == PDFTYPE_REF)
1295         g_string_append_printf(pdfbuf, "%d %d R ", obj->intval, obj->num);
1296       if (obj->type == PDFTYPE_ARRAY) {
1297         for (i=0; i<obj->num; i++) {
1298           show_pdfobj(obj->elts[i], pdfbuf);
1299           g_string_append_c(pdfbuf, ' ');
1300         }
1301       }
1302       free_pdfobj(obj);
1303       g_string_append_printf(pdfbuf, "%d 0 R] ", xref.last);
1304     }
1305     else g_string_append_printf(pdfbuf, "/Contents %d 0 R ", xref.last);
1306     g_string_append(pdfbuf, "/Resources ");
1307
1308     if (n_obj_prefix>0)
1309       obj = dup_pdfobj(pdfinfo.pages[pg->bg->file_page_seq-1].resources);
1310     else obj = NULL;
1311     if (obj!=NULL && obj->type!=PDFTYPE_DICT)
1312       { free_pdfobj(obj); obj=NULL; }
1313     if (obj==NULL) {
1314       obj = g_malloc(sizeof(struct PdfObj));
1315       obj->type = PDFTYPE_DICT;
1316       obj->num = 0;
1317       obj->elts = NULL;
1318       obj->names = NULL;
1319     }
1320     add_dict_subentry(pdfbuf, &xref,
1321         obj, "/ProcSet", PDFTYPE_ARRAY, NULL, mk_pdfname("/PDF"));
1322     if (n_obj_bgpix>0)
1323       add_dict_subentry(pdfbuf, &xref,
1324         obj, "/ProcSet", PDFTYPE_ARRAY, NULL, mk_pdfname("/ImageC"));
1325     if (use_hiliter)
1326       add_dict_subentry(pdfbuf, &xref,
1327         obj, "/ExtGState", PDFTYPE_DICT, "/XoHi", mk_pdfref(n_obj_catalog+2));
1328     if (n_obj_bgpix>0)
1329       add_dict_subentry(pdfbuf, &xref,
1330         obj, "/XObject", PDFTYPE_DICT, "/ImBg", mk_pdfref(n_obj_bgpix));
1331     for (list=pdffonts; list!=NULL; list = list->next) {
1332       font = (struct PdfFont *)list->data;
1333       if (font->used_in_this_page) {
1334         add_dict_subentry(pdfbuf, &xref,
1335           obj, "/ProcSet", PDFTYPE_ARRAY, NULL, mk_pdfname("/Text"));
1336         tmpbuf = g_strdup_printf("/F%d", font->n_obj);
1337         add_dict_subentry(pdfbuf, &xref,
1338           obj, "/Font", PDFTYPE_DICT, tmpbuf, mk_pdfref(font->n_obj));
1339         g_free(tmpbuf);
1340       }
1341     }
1342     show_pdfobj(obj, pdfbuf);
1343     free_pdfobj(obj);
1344     g_string_append(pdfbuf, " >> endobj\n");
1345   }
1346
1347   // after the pages, we insert fonts
1348   for (list = pdffonts; list!=NULL; list = list->next) {
1349     font = (struct PdfFont *)list->data;
1350     embed_pdffont(pdfbuf, &xref, font);
1351     g_free(font->filename);
1352     g_free(font->fontname);
1353     g_free(font);
1354   }
1355   g_list_free(pdffonts);
1356
1357   // PDF trailer
1358   startxref = pdfbuf->len;
1359   if (annot) g_string_append_printf(pdfbuf,
1360         "xref\n%d %d\n", n_obj_catalog, xref.last-n_obj_catalog+1);
1361   else g_string_append_printf(pdfbuf,
1362         "xref\n0 %d\n0000000000 65535 f \n", xref.last+1);
1363   for (i=n_obj_catalog; i<=xref.last; i++)
1364     g_string_append_printf(pdfbuf, "%010d 00000 n \n", xref.data[i]);
1365   g_string_append_printf(pdfbuf,
1366     "trailer\n<< /Size %d /Root %d 0 R ", xref.last+1, n_obj_catalog);
1367   if (annot) {
1368     g_string_append_printf(pdfbuf, "/Prev %d ", pdfinfo.startxref);
1369     // keeping encryption info somehow doesn't work.
1370     // xournal can't annotate encrypted PDFs anyway...
1371 /*
1372     obj = get_dict_entry(pdfinfo.trailerdict, "/Encrypt");
1373     if (obj!=NULL) {
1374       g_string_append_printf(pdfbuf, "/Encrypt ");
1375       show_pdfobj(obj, pdfbuf);
1376     }
1377 */
1378   }
1379   g_string_append_printf(pdfbuf,
1380     ">>\nstartxref\n%d\n%%%%EOF\n", startxref);
1381
1382   g_free(xref.data);
1383   if (annot) {
1384     free_pdfobj(pdfinfo.trailerdict);
1385     if (pdfinfo.pages!=NULL)
1386       for (i=0; i<pdfinfo.npages; i++) {
1387         free_pdfobj(pdfinfo.pages[i].resources);
1388         free_pdfobj(pdfinfo.pages[i].mediabox);
1389         free_pdfobj(pdfinfo.pages[i].contents);
1390       }
1391   }
1392
1393   setlocale(LC_NUMERIC, "");
1394   if (fwrite(pdfbuf->str, 1, pdfbuf->len, f) < pdfbuf->len) {
1395     fclose(f);
1396     g_string_free(pdfbuf, TRUE);
1397     return FALSE;
1398   }
1399   fclose(f);
1400   g_string_free(pdfbuf, TRUE);
1401   return TRUE;
1402 }
1403
1404 /*********** Printing via libgnomeprint **********/
1405
1406 // does the same job as update_canvas_bg(), but to a print context
1407
1408 void print_background(GnomePrintContext *gpc, struct Page *pg, gboolean *abort)
1409 {
1410   double x, y;
1411   GdkPixbuf *pix;
1412   BgPdfPage *pgpdf;
1413   PopplerPage *pdfpage;
1414   int width, height;
1415   double pgwidth, pgheight;
1416
1417   if (pg->bg->type == BG_SOLID) {
1418     gnome_print_setopacity(gpc, 1.0);
1419     gnome_print_setrgbcolor(gpc, RGBA_RGB(pg->bg->color_rgba));
1420     gnome_print_rect_filled(gpc, 0, 0, pg->width, -pg->height);
1421
1422     if (!ui.print_ruling) return;
1423     if (pg->bg->ruling == RULING_NONE) return;
1424     gnome_print_setrgbcolor(gpc, RGBA_RGB(RULING_COLOR));
1425     gnome_print_setlinewidth(gpc, RULING_THICKNESS);
1426
1427     if (pg->bg->ruling == RULING_GRAPH) {
1428       for (x=RULING_GRAPHSPACING; x<pg->width-1; x+=RULING_GRAPHSPACING)
1429         gnome_print_line_stroked(gpc, x, 0, x, -pg->height);
1430       for (y=RULING_GRAPHSPACING; y<pg->height-1; y+=RULING_GRAPHSPACING)
1431         gnome_print_line_stroked(gpc, 0, -y, pg->width, -y);
1432       return;
1433     }
1434
1435     for (y=RULING_TOPMARGIN; y<pg->height-1; y+=RULING_SPACING)
1436       gnome_print_line_stroked(gpc, 0, -y, pg->width, -y);
1437     if (pg->bg->ruling == RULING_LINED) {
1438       gnome_print_setrgbcolor(gpc, RGBA_RGB(RULING_MARGIN_COLOR));
1439       gnome_print_line_stroked(gpc, RULING_LEFTMARGIN, 0, RULING_LEFTMARGIN, -pg->height);
1440     }
1441     return;
1442   }
1443   else
1444   if (pg->bg->type == BG_PIXMAP || pg->bg->type == BG_PDF) {
1445     if (pg->bg->type == BG_PDF) {
1446       if (!bgpdf.document) return;
1447       pdfpage = poppler_document_get_page(bgpdf.document, pg->bg->file_page_seq-1);
1448       if (!pdfpage) return;
1449       poppler_page_get_size(pdfpage, &pgwidth, &pgheight);
1450       width = (int) (PDFTOPPM_PRINTING_DPI * pgwidth/72.0);
1451       height = (int) (PDFTOPPM_PRINTING_DPI * pgheight/72.0);
1452       pix = gdk_pixbuf_new(GDK_COLORSPACE_RGB, FALSE, 8, width, height);
1453       poppler_page_render_to_pixbuf(
1454          pdfpage, 0, 0, width, height, PDFTOPPM_PRINTING_DPI/72.0, 0, pix);
1455       g_object_unref(pdfpage);
1456     }
1457     else pix = g_object_ref(pg->bg->pixbuf);
1458
1459     if (gdk_pixbuf_get_bits_per_sample(pix) != 8 ||
1460         gdk_pixbuf_get_colorspace(pix) != GDK_COLORSPACE_RGB)
1461       { g_object_unref(pix); return; }
1462     gnome_print_gsave(gpc);
1463     gnome_print_scale(gpc, pg->width, pg->height);
1464     gnome_print_translate(gpc, 0., -1.);
1465     if (gdk_pixbuf_get_n_channels(pix) == 3)
1466        gnome_print_rgbimage(gpc, gdk_pixbuf_get_pixels(pix),
1467          gdk_pixbuf_get_width(pix), gdk_pixbuf_get_height(pix), gdk_pixbuf_get_rowstride(pix));
1468     else if (gdk_pixbuf_get_n_channels(pix) == 4)
1469        gnome_print_rgbaimage(gpc, gdk_pixbuf_get_pixels(pix),
1470          gdk_pixbuf_get_width(pix), gdk_pixbuf_get_height(pix), gdk_pixbuf_get_rowstride(pix));
1471     g_object_unref(pix);
1472     gnome_print_grestore(gpc);
1473     return;
1474   }
1475 }
1476
1477 void print_page(GnomePrintContext *gpc, struct Page *pg, int pageno,
1478                 double pgwidth, double pgheight, gboolean *abort)
1479 {
1480   char tmp[10];
1481   gdouble scale;
1482   guint old_rgba;
1483   double old_thickness;
1484   GList *layerlist, *itemlist;
1485   struct Layer *l;
1486   struct Item *item;
1487   int i;
1488   double *pt;
1489   PangoFontDescription *font_desc;
1490   PangoLayout *layout;
1491
1492   if (pg==NULL) return;
1493
1494   g_snprintf(tmp, 10, _("Page %d"), pageno);
1495   gnome_print_beginpage(gpc, (guchar *)tmp);
1496   gnome_print_gsave(gpc);
1497
1498   scale = MIN(pgwidth/pg->width, pgheight/pg->height)*0.95;
1499   gnome_print_translate(gpc,
1500      (pgwidth - scale*pg->width)/2, (pgheight + scale*pg->height)/2);
1501   gnome_print_scale(gpc, scale, scale);
1502   gnome_print_setlinejoin(gpc, 1); // round
1503   gnome_print_setlinecap(gpc, 1); // round
1504
1505   print_background(gpc, pg, abort);
1506
1507   old_rgba = 0x12345678;    // not any values we use, so we'll reset them
1508   old_thickness = 0.0;
1509
1510   for (layerlist = pg->layers; layerlist!=NULL; layerlist = layerlist->next) {
1511     if (*abort) break;
1512     l = (struct Layer *)layerlist->data;
1513     for (itemlist = l->items; itemlist!=NULL; itemlist = itemlist->next) {
1514       if (*abort) break;
1515       item = (struct Item *)itemlist->data;
1516       if (item->type == ITEM_STROKE || item->type == ITEM_TEXT) {
1517         if ((item->brush.color_rgba & ~0xff) != (old_rgba & ~0xff))
1518           gnome_print_setrgbcolor(gpc, RGBA_RGB(item->brush.color_rgba));
1519         if ((item->brush.color_rgba & 0xff) != (old_rgba & 0xff))
1520           gnome_print_setopacity(gpc, RGBA_ALPHA(item->brush.color_rgba));
1521         old_rgba = item->brush.color_rgba;
1522       }
1523       if (item->type == ITEM_STROKE) {
1524         if (item->brush.thickness != old_thickness)
1525           gnome_print_setlinewidth(gpc, item->brush.thickness);
1526         gnome_print_newpath(gpc);
1527         pt = item->path->coords;
1528         if (!item->brush.variable_width) {
1529           gnome_print_moveto(gpc, pt[0], -pt[1]);
1530           for (i=1, pt+=2; i<item->path->num_points; i++, pt+=2)
1531             gnome_print_lineto(gpc, pt[0], -pt[1]);
1532           gnome_print_stroke(gpc);
1533           old_thickness = item->brush.thickness;
1534         } else {
1535           for (i=0; i<item->path->num_points-1; i++, pt+=2) {
1536             gnome_print_moveto(gpc, pt[0], -pt[1]);
1537             gnome_print_setlinewidth(gpc, item->widths[i]);
1538             gnome_print_lineto(gpc, pt[2], -pt[3]);
1539             gnome_print_stroke(gpc);
1540           }
1541           old_thickness = 0.0;
1542         }
1543       }
1544       if (item->type == ITEM_TEXT) {
1545         layout = gnome_print_pango_create_layout(gpc);
1546         font_desc = pango_font_description_from_string(item->font_name);
1547         pango_font_description_set_absolute_size(font_desc,
1548           item->font_size*PANGO_SCALE);
1549         pango_layout_set_font_description(layout, font_desc);
1550         pango_font_description_free(font_desc);
1551         pango_layout_set_text(layout, item->text, -1);
1552         gnome_print_moveto(gpc, item->bbox.left, -item->bbox.top);
1553         gnome_print_pango_layout(gpc, layout);
1554         g_object_unref(layout);
1555       }
1556     }
1557   }
1558
1559   gnome_print_grestore(gpc);
1560   gnome_print_showpage(gpc);
1561 }
1562
1563 void cb_print_abort(GtkDialog *dialog, gint response, gboolean *abort)
1564 {
1565   *abort = TRUE;
1566 }
1567
1568 void print_job_render(GnomePrintJob *gpj, int fromPage, int toPage)
1569 {
1570   GnomePrintConfig *config;
1571   GnomePrintContext *gpc;
1572   GtkWidget *wait_dialog;
1573   double pgwidth, pgheight;
1574   int i;
1575   gboolean abort;
1576
1577   config = gnome_print_job_get_config(gpj);
1578   gnome_print_config_get_page_size(config, &pgwidth, &pgheight);
1579   g_object_unref(G_OBJECT(config));
1580
1581   gpc = gnome_print_job_get_context(gpj);
1582
1583   abort = FALSE;
1584   wait_dialog = gtk_message_dialog_new(GTK_WINDOW(winMain), GTK_DIALOG_MODAL,
1585      GTK_MESSAGE_INFO, GTK_BUTTONS_CANCEL, _("Preparing print job"));
1586   gtk_widget_show(wait_dialog);
1587   g_signal_connect(wait_dialog, "response", G_CALLBACK (cb_print_abort), &abort);
1588
1589   for (i = fromPage; i <= toPage; i++) {
1590 #if GTK_CHECK_VERSION(2,6,0)
1591     if (!gtk_check_version(2, 6, 0))
1592       gtk_message_dialog_format_secondary_text(
1593              GTK_MESSAGE_DIALOG(wait_dialog), _("Page %d"), i+1);
1594 #endif
1595     while (gtk_events_pending()) gtk_main_iteration();
1596     print_page(gpc, (struct Page *)g_list_nth_data(journal.pages, i), i+1,
1597                                              pgwidth, pgheight, &abort);
1598     if (abort) break;
1599   }
1600 #if GTK_CHECK_VERSION(2,6,0)
1601   if (!gtk_check_version(2, 6, 0))
1602     gtk_message_dialog_format_secondary_text(
1603               GTK_MESSAGE_DIALOG(wait_dialog), _("Finalizing..."));
1604 #endif
1605   while (gtk_events_pending()) gtk_main_iteration();
1606
1607   gnome_print_context_close(gpc);
1608   g_object_unref(G_OBJECT(gpc));
1609
1610   gnome_print_job_close(gpj);
1611   if (!abort) gnome_print_job_print(gpj);
1612   g_object_unref(G_OBJECT(gpj));
1613
1614   gtk_widget_destroy(wait_dialog);
1615 }