Fri, 07 Mar 2003 10:16:08 +0000
added name trees and number trees.
eric@62 | 1 | /* |
eric@62 | 2 | * t2p: Create a PDF file from the contents of one or more TIFF |
eric@62 | 3 | * bilevel image files. The images in the resulting PDF file |
eric@62 | 4 | * will be compressed using ITU-T T.6 (G4) fax encoding. |
eric@62 | 5 | * |
eric@62 | 6 | * PDF routines |
eric@75 | 7 | * $Id: pdf.c,v 1.5 2003/03/04 18:09:49 eric Exp $ |
eric@62 | 8 | * Copyright 2001, 2002, 2003 Eric Smith <eric@brouhaha.com> |
eric@62 | 9 | * |
eric@62 | 10 | * This program is free software; you can redistribute it and/or modify |
eric@62 | 11 | * it under the terms of the GNU General Public License version 2 as |
eric@62 | 12 | * published by the Free Software Foundation. Note that permission is |
eric@62 | 13 | * not granted to redistribute this program under the terms of any |
eric@62 | 14 | * other version of the General Public License. |
eric@62 | 15 | * |
eric@62 | 16 | * This program is distributed in the hope that it will be useful, |
eric@62 | 17 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
eric@62 | 18 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
eric@62 | 19 | * GNU General Public License for more details. |
eric@62 | 20 | * |
eric@62 | 21 | * You should have received a copy of the GNU General Public License |
eric@62 | 22 | * along with this program; if not, write to the Free Software |
eric@62 | 23 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA |
eric@62 | 24 | */ |
eric@62 | 25 | |
eric@62 | 26 | |
eric@62 | 27 | #include <stdbool.h> |
eric@62 | 28 | #include <stdint.h> |
eric@59 | 29 | #include <stdio.h> |
eric@59 | 30 | #include <stdlib.h> |
eric@59 | 31 | |
eric@59 | 32 | |
eric@62 | 33 | #include "bitblt.h" |
eric@60 | 34 | #include "pdf.h" |
eric@60 | 35 | #include "pdf_util.h" |
eric@60 | 36 | #include "pdf_prim.h" |
eric@60 | 37 | #include "pdf_private.h" |
eric@59 | 38 | |
eric@59 | 39 | |
eric@59 | 40 | static void pdf_set_info (pdf_file_handle pdf_file, char *key, char *val) |
eric@59 | 41 | { |
eric@59 | 42 | if (! pdf_file->info) |
eric@59 | 43 | pdf_file->info = pdf_new_ind_ref (pdf_file, pdf_new_obj (PT_DICTIONARY)); |
eric@59 | 44 | |
eric@59 | 45 | pdf_set_dict_entry (pdf_file->info, key, pdf_new_string (val)); |
eric@59 | 46 | } |
eric@59 | 47 | |
eric@59 | 48 | |
eric@59 | 49 | void pdf_init (void) |
eric@59 | 50 | { |
eric@59 | 51 | } |
eric@59 | 52 | |
eric@59 | 53 | |
eric@59 | 54 | struct pdf_pages *pdf_new_pages (pdf_file_handle pdf_file) |
eric@59 | 55 | { |
eric@67 | 56 | struct pdf_pages *pages = pdf_calloc (1, sizeof (struct pdf_pages)); |
eric@59 | 57 | pages->kids = pdf_new_ind_ref (pdf_file, pdf_new_obj (PT_ARRAY)); |
eric@59 | 58 | pages->count = pdf_new_integer (0); |
eric@59 | 59 | pages->pages_dict = pdf_new_ind_ref (pdf_file, pdf_new_obj (PT_DICTIONARY)); |
eric@59 | 60 | pdf_set_dict_entry (pages->pages_dict, "Type", pdf_new_name ("Pages")); |
eric@59 | 61 | pdf_set_dict_entry (pages->pages_dict, "Kids", pages->kids); |
eric@59 | 62 | pdf_set_dict_entry (pages->pages_dict, "Count", pages->count); |
eric@59 | 63 | return (pages); |
eric@59 | 64 | } |
eric@59 | 65 | |
eric@59 | 66 | |
eric@75 | 67 | pdf_file_handle pdf_create (char *filename, int page_mode) |
eric@59 | 68 | { |
eric@59 | 69 | pdf_file_handle pdf_file; |
eric@75 | 70 | char *page_mode_string; |
eric@75 | 71 | |
eric@75 | 72 | switch (page_mode) |
eric@75 | 73 | { |
eric@75 | 74 | case PDF_PAGE_MODE_USE_NONE: page_mode_string = "UseNone"; break; |
eric@75 | 75 | case PDF_PAGE_MODE_USE_OUTLINES: page_mode_string = "UseOutlines"; break; |
eric@75 | 76 | case PDF_PAGE_MODE_USE_THUMBS: page_mode_string = "UseThumbs"; break; |
eric@75 | 77 | default: |
eric@75 | 78 | pdf_fatal ("invalid page mode\n"); |
eric@75 | 79 | } |
eric@59 | 80 | |
eric@67 | 81 | pdf_file = pdf_calloc (1, sizeof (struct pdf_file)); |
eric@59 | 82 | |
eric@59 | 83 | pdf_file->f = fopen (filename, "wb"); |
eric@59 | 84 | if (! pdf_file->f) |
eric@59 | 85 | { |
eric@59 | 86 | pdf_fatal ("error opening output file\n"); |
eric@59 | 87 | } |
eric@59 | 88 | |
eric@59 | 89 | pdf_file->root = pdf_new_pages (pdf_file); |
eric@59 | 90 | |
eric@59 | 91 | pdf_file->catalog = pdf_new_ind_ref (pdf_file, pdf_new_obj (PT_DICTIONARY)); |
eric@59 | 92 | pdf_set_dict_entry (pdf_file->catalog, "Type", pdf_new_name ("Catalog")); |
eric@59 | 93 | pdf_set_dict_entry (pdf_file->catalog, "Pages", pdf_file->root->pages_dict); |
eric@75 | 94 | /* Outlines dictionary will be created later if needed */ |
eric@75 | 95 | pdf_set_dict_entry (pdf_file->catalog, |
eric@75 | 96 | "PageMode", |
eric@75 | 97 | pdf_new_name (page_mode_string)); |
eric@59 | 98 | |
eric@59 | 99 | pdf_file->info = pdf_new_ind_ref (pdf_file, pdf_new_obj (PT_DICTIONARY)); |
eric@60 | 100 | pdf_set_info (pdf_file, "Producer", "t2p, Copyright 2003 Eric Smith <eric@brouhaha.com>"); |
eric@59 | 101 | |
eric@59 | 102 | pdf_file->trailer_dict = pdf_new_obj (PT_DICTIONARY); |
eric@59 | 103 | /* Size key will be added later */ |
eric@59 | 104 | pdf_set_dict_entry (pdf_file->trailer_dict, "Root", pdf_file->catalog); |
eric@59 | 105 | pdf_set_dict_entry (pdf_file->trailer_dict, "Info", pdf_file->info); |
eric@59 | 106 | |
eric@59 | 107 | /* write file header */ |
eric@59 | 108 | fprintf (pdf_file->f, "%%PDF-1.2\r\n"); |
eric@59 | 109 | |
eric@59 | 110 | return (pdf_file); |
eric@59 | 111 | } |
eric@59 | 112 | |
eric@59 | 113 | |
eric@59 | 114 | void pdf_close (pdf_file_handle pdf_file) |
eric@59 | 115 | { |
eric@59 | 116 | /* write body */ |
eric@59 | 117 | pdf_write_all_ind_obj (pdf_file); |
eric@59 | 118 | |
eric@59 | 119 | /* write cross reference table and get maximum object number */ |
eric@59 | 120 | pdf_set_dict_entry (pdf_file->trailer_dict, "Size", pdf_new_integer (pdf_write_xref (pdf_file))); |
eric@59 | 121 | |
eric@59 | 122 | /* write trailer */ |
eric@59 | 123 | fprintf (pdf_file->f, "trailer\r\n"); |
eric@59 | 124 | pdf_write_obj (pdf_file, pdf_file->trailer_dict); |
eric@59 | 125 | fprintf (pdf_file->f, "startxref\r\n"); |
eric@59 | 126 | fprintf (pdf_file->f, "%ld\r\n", pdf_file->xref_offset); |
eric@59 | 127 | fprintf (pdf_file->f, "%%%%EOF\r\n"); |
eric@59 | 128 | |
eric@59 | 129 | fclose (pdf_file->f); |
eric@59 | 130 | /* should free stuff here */ |
eric@59 | 131 | } |
eric@59 | 132 | |
eric@59 | 133 | |
eric@59 | 134 | void pdf_set_author (pdf_file_handle pdf_file, char *author) |
eric@59 | 135 | { |
eric@59 | 136 | pdf_set_info (pdf_file, "Author", author); |
eric@59 | 137 | } |
eric@59 | 138 | |
eric@59 | 139 | void pdf_set_creator (pdf_file_handle pdf_file, char *creator) |
eric@59 | 140 | { |
eric@59 | 141 | pdf_set_info (pdf_file, "Creator", creator); |
eric@59 | 142 | } |
eric@59 | 143 | |
eric@59 | 144 | void pdf_set_producer (pdf_file_handle pdf_file, char *producer) |
eric@59 | 145 | { |
eric@59 | 146 | pdf_set_info (pdf_file, "Producer", producer); |
eric@59 | 147 | } |
eric@59 | 148 | |
eric@59 | 149 | void pdf_set_title (pdf_file_handle pdf_file, char *title) |
eric@59 | 150 | { |
eric@59 | 151 | pdf_set_info (pdf_file, "Title", title); |
eric@59 | 152 | } |
eric@59 | 153 | |
eric@59 | 154 | void pdf_set_subject (pdf_file_handle pdf_file, char *subject) |
eric@59 | 155 | { |
eric@59 | 156 | pdf_set_info (pdf_file, "Subject", subject); |
eric@59 | 157 | } |
eric@59 | 158 | |
eric@59 | 159 | void pdf_set_keywords (pdf_file_handle pdf_file, char *keywords) |
eric@59 | 160 | { |
eric@59 | 161 | pdf_set_info (pdf_file, "Keywords", keywords); |
eric@59 | 162 | } |
eric@59 | 163 | |
eric@59 | 164 | |
eric@59 | 165 | pdf_page_handle pdf_new_page (pdf_file_handle pdf_file, |
eric@59 | 166 | double width, |
eric@59 | 167 | double height) |
eric@59 | 168 | { |
eric@67 | 169 | pdf_page_handle page = pdf_calloc (1, sizeof (struct pdf_page)); |
eric@59 | 170 | |
eric@59 | 171 | page->pdf_file = pdf_file; |
eric@59 | 172 | |
eric@59 | 173 | page->media_box = pdf_new_obj (PT_ARRAY); |
eric@59 | 174 | pdf_add_array_elem (page->media_box, pdf_new_real (0)); |
eric@59 | 175 | pdf_add_array_elem (page->media_box, pdf_new_real (0)); |
eric@59 | 176 | pdf_add_array_elem (page->media_box, pdf_new_real (width)); |
eric@59 | 177 | pdf_add_array_elem (page->media_box, pdf_new_real (height)); |
eric@59 | 178 | |
eric@59 | 179 | page->procset = pdf_new_obj (PT_ARRAY); |
eric@59 | 180 | pdf_add_array_elem (page->procset, pdf_new_name ("PDF")); |
eric@59 | 181 | |
eric@59 | 182 | page->resources = pdf_new_obj (PT_DICTIONARY); |
eric@59 | 183 | pdf_set_dict_entry (page->resources, "ProcSet", page->procset); |
eric@59 | 184 | |
eric@59 | 185 | page->page_dict = pdf_new_ind_ref (pdf_file, pdf_new_obj (PT_DICTIONARY)); |
eric@59 | 186 | pdf_set_dict_entry (page->page_dict, "Type", pdf_new_name ("Page")); |
eric@59 | 187 | pdf_set_dict_entry (page->page_dict, "MediaBox", page->media_box); |
eric@59 | 188 | pdf_set_dict_entry (page->page_dict, "Resources", page->resources); |
eric@59 | 189 | |
eric@59 | 190 | /* $$$ currently only support a single-level pages tree */ |
eric@59 | 191 | pdf_set_dict_entry (page->page_dict, "Parent", pdf_file->root->pages_dict); |
eric@59 | 192 | pdf_add_array_elem (pdf_file->root->kids, page->page_dict); |
eric@59 | 193 | pdf_set_integer (pdf_file->root->count, |
eric@59 | 194 | pdf_get_integer (pdf_file->root->count) + 1); |
eric@59 | 195 | |
eric@59 | 196 | page->last_XObject_name = '@'; /* first name will be "ImA" */ |
eric@59 | 197 | |
eric@59 | 198 | return (page); |
eric@59 | 199 | } |
eric@59 | 200 | |
eric@59 | 201 | void pdf_close_page (pdf_page_handle pdf_page) |
eric@59 | 202 | { |
eric@59 | 203 | } |
eric@59 | 204 | |
eric@59 | 205 | |
eric@59 | 206 | void pdf_set_page_number (pdf_page_handle pdf_page, char *page_number) |
eric@59 | 207 | { |
eric@59 | 208 | } |
eric@59 | 209 | |
eric@59 | 210 | void pdf_bookmark (pdf_page_handle pdf_page, int level, char *name) |
eric@59 | 211 | { |
eric@59 | 212 | } |