summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pdftexdir/writeenc.c
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
commit487ca4806cc046076293cf6cc5fbba0db282bac7 (patch)
tree847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/web2c/pdftexdir/writeenc.c
parenta3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff)
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pdftexdir/writeenc.c')
-rw-r--r--Build/source/texk/web2c/pdftexdir/writeenc.c145
1 files changed, 145 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/pdftexdir/writeenc.c b/Build/source/texk/web2c/pdftexdir/writeenc.c
new file mode 100644
index 00000000000..7963403ec7e
--- /dev/null
+++ b/Build/source/texk/web2c/pdftexdir/writeenc.c
@@ -0,0 +1,145 @@
+/*
+Copyright (c) 1996-2005 Han The Thanh, <thanh@pdftex.org>
+
+This file is part of pdfTeX.
+
+pdfTeX is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+pdfTeX is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with pdfTeX; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+$Id: //depot/Build/source.development/TeX/texk/web2c/pdftexdir/writeenc.c#13 $
+
+source code indentation by "indent -kr -nut"
+*/
+
+#include "ptexlib.h"
+#include "avlstuff.h"
+
+static const char perforce_id[] =
+ "$Id: //depot/Build/source.development/TeX/texk/web2c/pdftexdir/writeenc.c#13 $";
+
+void read_enc(enc_entry * e)
+{
+ assert(e != NULL);
+ if (e->loaded)
+ return;
+ load_enc(e->name, e->glyph_names);
+ e->loaded = true;
+}
+
+/* write_enc is used to write either external encoding (given in map file) or
+ * internal encoding (read from the font file); when glyph_names is NULL
+ * the 2nd argument is a pointer to the encoding entry; otherwise the 3rd is
+ * the object number of the Encoding object
+ */
+void write_enc(char **glyph_names, enc_entry * e, integer eobjnum)
+{
+ boolean is_notdef;
+ int i;
+ char **g;
+ if (glyph_names == NULL) {
+ assert(e != NULL);
+ if (e->objnum != 0) /* the encoding has been written already */
+ return;
+ pdfnewdict(0, 0);
+ e->objnum = objptr;
+ g = e->glyph_names;
+ } else {
+ pdfbegindict(eobjnum);
+ g = glyph_names;
+ }
+ pdf_printf("/Type /Encoding\n/Differences [ 0 /%s", g[0]);
+ is_notdef = (g[0] == notdef);
+ for (i = 1; i <= MAX_CHAR_CODE; i++) {
+ if (g[i] == notdef) {
+ if (!is_notdef) {
+ pdf_printf(" %i/%s", i, notdef);
+ is_notdef = true;
+ }
+ } else {
+ if (is_notdef) {
+ pdf_printf(" %i", i);
+ is_notdef = false;
+ }
+ pdf_printf("/%s", g[i]);
+ }
+ }
+ pdf_puts("]\n");
+ pdfenddict();
+}
+
+/**********************************************************************/
+/* All encoding entries go into AVL tree for fast search by name. */
+
+struct avl_table *enc_tree = NULL;
+
+/* AVL sort enc_entry into enc_tree by name */
+
+static int comp_enc_entry(const void *pa, const void *pb, void *p)
+{
+ return strcmp(((const enc_entry *) pa)->name,
+ ((const enc_entry *) pb)->name);
+}
+
+enc_entry *add_enc(char *s)
+{
+ int i;
+ enc_entry tmp, *p;
+ void **aa;
+
+ assert(s != NULL);
+ if (enc_tree == NULL) {
+ enc_tree = avl_create(comp_enc_entry, NULL, &avl_xallocator);
+ assert(enc_tree != NULL);
+ }
+ tmp.name = s;
+ p = (enc_entry *) avl_find(enc_tree, &tmp);
+ if (p != NULL) /* encoding already registered */
+ return p;
+ p = xtalloc(1, enc_entry);
+ p->loaded = false;
+ p->name = xstrdup(s);
+ p->objnum = 0;
+ p->glyph_names = xtalloc(MAX_CHAR_CODE + 1, char *);
+ for (i = 0; i <= MAX_CHAR_CODE; i++)
+ p->glyph_names[i] = (char *) notdef;
+ aa = avl_probe(enc_tree, p);
+ assert(aa != NULL);
+ return p;
+}
+
+/**********************************************************************/
+/* cleaning up... */
+
+static void destroy_enc_entry(void *pa, void *pb)
+{
+ enc_entry *p;
+ int i;
+
+ p = (enc_entry *) pa;
+ xfree(p->name);
+ if (p->glyph_names != NULL)
+ for (i = 0; i <= MAX_CHAR_CODE; i++)
+ if (p->glyph_names[i] != notdef)
+ xfree(p->glyph_names[i]);
+ xfree(p->glyph_names);
+ xfree(p);
+}
+
+void enc_free()
+{
+ if (enc_tree != NULL)
+ avl_destroy(enc_tree, destroy_enc_entry);
+}
+
+/**********************************************************************/