1 files changed, 82 insertions, 0 deletions
diff --git a/gs/src/ifont.h b/gs/src/ifont.h
new file mode 100644
index 000000000..d274af0bb
--- /dev/null
+++ b/gs/src/ifont.h
@@ -0,0 +1,82 @@
+/* Copyright (C) 1989, 1991, 1993, 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
+  
+  This file is part of Aladdin Ghostscript.
+  
+  Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
+  or distributor accepts any responsibility for the consequences of using it,
+  or for whether it serves any particular purpose or works at all, unless he
+  or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
+  License (the "License") for full details.
+  
+  Every copy of Aladdin Ghostscript must include a copy of the License,
+  normally in a plain ASCII text file named PUBLIC.  The License grants you
+  the right to copy, modify and redistribute Aladdin Ghostscript, but only
+  under certain conditions described in the License.  Among other things, the
+  License requires that the copyright notice and this notice be preserved on
+  all copies.
+*/
+
+/* ifont.h */
+/* Interpreter internal font representation */
+
+#include "gsccode.h"		/* for gs_glyph */
+#include "gsstruct.h"		/* for extern_st */
+
+/* The external definition of fonts is given in the PostScript manual, */
+/* pp. 91-93. */
+
+/* The structure given below is 'client data' from the viewpoint */
+/* of the library.  font-type objects (t_struct/st_font, "t_fontID") */
+/* point directly to a gs_font.  */
+
+typedef struct font_data_s {
+	ref dict;			/* font dictionary object */
+	ref BuildChar;
+	ref BuildGlyph;
+	ref Encoding;
+	ref CharStrings;
+	union _fs {
+	  struct _f1 {
+	    ref OtherSubrs;		/* from Private dictionary */
+	    ref Subrs;			/* from Private dictionary */
+	    ref GlobalSubrs;		/* from Private dictionary, */
+					/* for Type 2 charstrings */
+	  } type1;
+	  struct _f42 {
+	    ref sfnts;
+	  } type42;
+	} u;
+} font_data;
+/*
+ * Even though the interpreter's part of the font data actually
+ * consists of refs, allocating it as refs tends to create sandbars;
+ * since it is always allocated and freed as a unit, we can treat it
+ * as an ordinary structure.
+ */
+/* st_font_data is exported for zdefault_make_font in zfont.c. */
+extern_st(st_font_data);
+#define public_st_font_data()	/* in zfont2.c */\
+  gs_public_st_ref_struct(st_font_data, font_data, "font_data")
+#define pfont_data(pfont) ((font_data *)((pfont)->client_data))
+#define pfont_dict(pfont) (&pfont_data(pfont)->dict)
+
+/* Registered encodings, for the benefit of platform fonts, `seac', */
+/* and compiled font initialization. */
+/* This is a t_array ref that points to the encodings. */
+#define registered_Encodings_countof 5
+extern ref registered_Encodings;
+#define registered_Encoding(i) (registered_Encodings.value.refs[i])
+#define StandardEncoding registered_Encoding(0)
+
+/* Internal procedures shared between modules */
+
+/* In zchar.c */
+int font_bbox_param(P2(const ref *pfdict, double bbox[4]));
+
+/* In zfont.c */
+#ifndef gs_font_DEFINED
+#  define gs_font_DEFINED
+typedef struct gs_font_s gs_font;
+#endif
+int font_param(P2(const ref *pfdict, gs_font **ppfont));
+bool zfont_mark_glyph_name(P2(gs_glyph glyph, void *ignore_data));