diff --git a/src/gf/gf.h b/src/gf/gf.h
index 3d03614b6..a5e134829 100644
--- a/src/gf/gf.h
+++ b/src/gf/gf.h
@@ -58,6 +58,16 @@ FT_BEGIN_HEADER
 #define  GF_YYY          243
 #define  GF_NO_OP        244
 
+
+typedef  char           INT1;
+typedef  unsigned char  UINT1;
+typedef  int            INT2;
+typedef  unsigned int   UINT2;
+typedef  long           INT3;
+typedef  unsigned long  UINT3;
+typedef  long           INT4;
+typedef  unsigned long  UINT4;
+
 FT_END_HEADER
 
 
diff --git a/src/gf/gflib.c b/src/gf/gflib.c
new file mode 100644
index 000000000..78b9c0205
--- /dev/null
+++ b/src/gf/gflib.c
@@ -0,0 +1,498 @@
+/***************************************************************************/
+/*                                                                         */
+/*  gfdrivr.h                                                              */
+/*                                                                         */
+/*    FreeType font driver for TeX's GF FONT files                         */
+/*                                                                         */
+/*  Copyright 1996-2018 by                                                 */
+/*  David Turner, Robert Wilhelm, and Werner Lemberg.                      */
+/*                                                                         */
+/*  This file is part of the FreeType project, and may only be used,       */
+/*  modified, and distributed under the terms of the FreeType project      */
+/*  license, LICENSE.TXT.  By continuing to use, modify, or distribute     */
+/*  this file you indicate that you have read the license and              */
+/*  understand and accept it fully.                                        */
+/*                                                                         */
+/***************************************************************************/
+
+#include <ft2build.h>
+
+#include FT_FREETYPE_H
+#include FT_INTERNAL_DEBUG_H
+#include FT_INTERNAL_STREAM_H
+#include FT_INTERNAL_OBJECTS_H
+
+#include "gf.h"
+#include "gferror.h"
+
+
+  /*************************************************************************/
+  /*                                                                       */
+  /* The macro FT_COMPONENT is used in trace mode.  It is an implicit      */
+  /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log  */
+  /* messages during execution.                                            */
+  /*                                                                       */
+#undef  FT_COMPONENT
+#define FT_COMPONENT  trace_gflib
+
+
+  /*************************************************************************/
+  /*                                                                       */
+  /*  GF font utility functions.                                           */
+  /*                                                                       */
+  /*************************************************************************/
+
+	long           gf_read_intn(FILE*,int);	
+	unsigned long  gf_read_uintn(FILE*,int);
+	void           gf_skip_n(FILE*,int);
+
+#define READ_INT1(fp)    (INT1)gf_read_intn((fp), 1)
+#define READ_UINT1(fp)   (UINT1)gf_read_uintn((fp), 1)
+#define READ_INT2(fp)    (INT2)gf_read_intn((fp), 2)
+#define READ_UINT2(fp)   (UINT2)gf_read_uintn((fp), 2)
+#define READ_INT3(fp)    (INT3)gf_read_intn((fp), 3)
+#define READ_UINT3(fp)   (UINT3)gf_read_uintn((fp), 3)
+#define READ_INT4(fp)    (INT4)gf_read_intn((fp), 4)
+#define READ_UINT4(fp)   (UINT4)gf_read_uintn((fp), 4)
+#define READ_INTN(fp,n)  (INT4)gf_read_intn((fp), (n))
+#define READ_UINTN(fp,n) (UINT4)gf_read_uintn((fp), (n))
+#define SKIP_N(fp,k)     gf_skip_n((fp), (k))
+
+
+/*
+ * Reading a Number from file
+ */
+	unsigned long
+	gf_read_uintn(FILE* fp, int size)
+	{
+		unsigned long  v;
+
+		v = 0L;
+		while (size >= 1)
+		{
+		  v = v*256L + (unsigned long)getc(fp);
+		  --size;
+		}
+		return v;
+	}
+
+	long
+	gf_read_intn(FILE* fp, int size)
+	{
+		long           v;
+
+		v = (long)getc(fp) & 0xffL;
+		if (v & 0x80L)
+		  v = v - 256L;
+		--size;
+		while (size >= 1){
+		  v = v*256L + (unsigned long)getc(fp);
+		  --size;
+		}
+
+		return v;
+	}
+
+  void
+	gf_skip_n(FILE* fp, int size)
+	{
+		
+		while (size > 0)
+		{
+		  (void)getc(fp);
+		  --size;
+		}
+		
+	}
+
+	unsigned long
+	gf_get_uintn(unsigned char *p, int size)
+	{
+		unsigned long  v;
+
+		v = 0L;
+		while (size >= 1)
+		{
+		  v = v*256L + (unsigned long) *(p++);
+		  --size;
+		}
+
+  	return v;
+	}
+
+	long
+	gf_get_intn(unsigned char *p, int size)
+	{
+		long           v;
+
+		v = (long)*(p++) & 0xffL;
+		if (v & 0x80L)
+		  v = v - 256L;
+		--size;
+		while (size >= 1)
+		{
+		  v = v*256L + (unsigned long) *(p++);
+		  --size;
+		}
+
+		return v;
+	}
+
+
+
+  /*************************************************************************/
+  /*                                                                       */
+  /* API.                                                                  */
+  /*                                                                       */
+  /*************************************************************************/
+
+  FT_LOCAL_DEF( FT_Error )
+	gf_read_glyph(FT_FILE* fp, GF_BITMAP bm)
+	{
+		long           m, n;
+		int            paint_sw;
+		int            instr;
+		INT4           min_m, max_m, min_n, max_n, del_m, del_n;
+		long           w, h, d;
+		int            m_b, k;
+		unsigned char  *ptr;
+
+		switch (READ_UINT1(fp))
+		{
+			case GF_BOC:
+				SKIP_N(fp, 4);
+				SKIP_N(fp, 4);
+				min_m = READ_INT4(fp);
+				max_m = READ_INT4(fp);
+				min_n = READ_INT4(fp);
+				max_n = READ_INT4(fp);
+				break;
+			case GF_BOC1:
+				SKIP_N(fp, 1);
+				del_m = (INT4)READ_UINT1(fp);
+				max_m = (INT4)READ_UINT1(fp);
+				del_n = (INT4)READ_UINT1(fp);
+				max_n = (INT4)READ_UINT1(fp);
+				min_m = max_m - del_m;
+				min_n = max_n - del_n;
+				break;
+			default:
+				return -1;
+		}
+
+		w = max_m - min_m + 1;
+		h = max_n - min_n + 1;
+		if ((w < 0) || (h < 0))
+		{
+		  vf_error = VF_ERR_ILL_FONT_FILE;
+		  return -1;
+		}
+
+		if ((bm->bitmap = (unsigned char*)malloc(h*((w+7)/8))) == NULL)
+		{
+		  vf_error = VF_ERR_NO_MEMORY;
+		  return -1;
+		}
+		
+		memclr(bm->bitmap, h*((w+7)/8));
+		bm->raster     = (w+7)/8;
+		bm->bbx_width  = w;
+		bm->bbx_height = h;
+		bm->off_x      = -min_m;
+		bm->off_y      = max_n;
+	#if 0
+		bm->mv_x       = -min_m;
+		bm->mv_y       = max_n;
+	#endif
+
+		m        = min_m;
+		n        = max_n;
+		paint_sw = 0;
+		while ((instr = (int)READ_UINT1(fp)) != GF_EOC)
+		{
+		  if (instr == GF_PAINT_0)
+		  {
+		    paint_sw = 1 - paint_sw;
+		  } 
+		  else if ((GF_NEW_ROW_0 <= instr) && (instr <= GF_NEW_ROW_164))
+		  {
+		    m        = min_m + (instr - GF_NEW_ROW_0);
+		    n        = n - 1;
+		    paint_sw = 1;
+		  } 
+		  else if ((GF_PAINT_1 <= instr) && (instr <= GF_PAINT_63))
+		  {
+		    d = (instr - GF_PAINT_1 + 1);
+		    goto Paint;
+		  } 
+		  else 
+		  {
+		    switch ((int)instr)
+		    {
+				  case GF_PAINT1:
+				  case GF_PAINT2:
+				  case GF_PAINT3:
+					d = (UINT4)READ_UINTN(fp, (instr - GF_PAINT1 + 1));
+					Paint:
+					if (paint_sw == 0)
+					{
+						m = m + d;
+					} 
+					else 
+					{
+						ptr = &bm->bitmap[(max_n - n) * bm->raster + (m - min_m)/8];
+						m_b = (m - min_m) % 8;
+						while (d > 0)
+						{
+			  			*ptr |= bit_table[m_b];
+			  			m++;
+			  			if (++m_b >= 8)
+			  			{
+								m_b = 0;
+								++ptr;
+							}
+			  			d--;
+						}
+					}
+					paint_sw = 1 - paint_sw;
+					break;
+					
+		    	case GF_SKIP0:
+					m = min_m;
+					n = n - 1;
+					paint_sw = 0;
+					break;
+					
+					case GF_SKIP1:
+					case GF_SKIP2:
+					case GF_SKIP3:
+					m = min_m;
+					n = n - (UINT4)READ_UINTN(fp, (instr - GF_SKIP1 + 1)) - 1;
+					paint_sw = 0;
+					break;
+					
+					case GF_XXX1:
+					case GF_XXX2:
+					case GF_XXX3:
+					case GF_XXX4:
+					k = READ_UINTN(fp, instr - GF_XXX1 + 1);
+					SKIP_N(fp, k);
+					break;
+					
+					case GF_YYY:
+					SKIP_N(fp, 4);
+					break;
+					
+					case GF_NO_OP:
+					break;
+							
+					default:
+					vf_free(bm->bitmap);
+					bm->bitmap = NULL;
+					vf_error = VF_ERR_ILL_FONT_FILE;
+					return -1;
+				}
+			}
+		}
+
+		return 0;
+	}
+
+
+  FT_LOCAL_DEF( FT_Error )
+  gf_load_font(  FT_Stream       stream,
+                 GF_Face         face  )
+  {
+		GF_GLYPH    go;
+  	GF_BITMAP   bm;
+  	UINT1       instr, d;
+		UINT4       ds, check_sum, hppp, vppp;
+		INT4        min_m, max_m, min_n, max_n;
+		INT4        w;
+		UINT4       code;
+		double      dx, dy;
+		long        ptr_post, ptr_p, ptr, optr, gptr;
+		int         bc, ec, nchars, i;
+		FT_FILE *fp = stream->descriptor.pointer
+		go = NULL;
+		nchars = -1;
+
+		/* seek to post_post instr. */
+		ft_fseek(fp, -1, SEEK_END);
+		
+		while ((d = READ_UINT1(fp)) == 223)
+			fseek(fp, -2, SEEK_CUR);
+		
+		if (d != GF_ID)
+		{
+		  vf_error = VF_ERR_ILL_FONT_FILE;
+		  goto ErrExit;
+		}
+		
+		fseek(fp, -6, SEEK_CUR);
+
+		/* check if the code is post_post */
+		if (READ_UINT1(fp) != GF_POST_POST)
+		{
+		  vf_error = VF_ERR_ILL_FONT_FILE;
+		  goto ErrExit;
+		}
+
+		/* read pointer to post instr. */
+		if ((ptr_post = READ_UINT4(fp)) == -1)
+		{
+		  vf_error = VF_ERR_ILL_FONT_FILE;
+		  goto ErrExit;
+		}
+
+		/* goto post instr. and read it */
+		fseek(fp, ptr_post, SEEK_SET);
+		if (READ_UINT1(fp) != GF_POST)
+		{
+		  vf_error = VF_ERR_ILL_FONT_FILE;
+		  goto ErrExit;
+		}
+		
+		ptr_p     = READ_UINT4(fp);
+		ds        = READ_UINT4(fp);
+		check_sum = READ_UINT4(fp);
+		hppp      = READ_UINT4(fp);
+		vppp      = READ_UINT4(fp);
+		min_m     = READ_INT4(fp);
+		max_m     = READ_INT4(fp);
+		min_n     = READ_INT4(fp);
+		max_n     = READ_INT4(fp);
+
+		gptr = ftell(fp);
+
+	#if 0
+		/* read min & max char code */
+		bc = 256;
+		ec = -1;
+		for (;;){
+		  instr = READ_UINT1(fp);
+		  if (instr == GF_POST_POST){
+		    break;
+		  } else if (instr == GF_CHAR_LOC){
+		    code = READ_UINT1(fp);
+		    (void)SKIP_N(fp, 16);
+		  } else if (instr == GF_CHAR_LOC0){
+		    code = READ_UINT1(fp);
+		    (void)SKIP_N(fp, 9);
+		  } else {
+		    vf_error = VF_ERR_ILL_FONT_FILE;
+		    goto ErrExit;
+		  }
+		  if (code < bc)
+		    bc = code;
+		  if (code > ec)
+		    ec = code;
+		}
+	#else
+		bc = 0;
+		ec = 255;
+	#endif
+
+		nchars = ec - bc + 1;
+		ALLOC_IF_ERR(go, struct s_gf_glyph)
+		{
+		  vf_error = VF_ERR_NO_MEMORY;
+		  goto ErrExit;
+		}
+		ALLOCN_IF_ERR(go->bm_table, struct vf_s_bitmap, nchars)
+		{
+		  vf_error = VF_ERR_NO_MEMORY;
+		  goto ErrExit;
+		}
+
+		for (i = 0; i < nchars; i++)
+			go->bm_table[i].bitmap = NULL;
+		  
+		go->ds   = (double)ds/(1<<20);
+		go->hppp = (double)hppp/(1<<16);
+		go->vppp = (double)vppp/(1<<16);
+		go->font_bbx_w = max_m - min_m;
+		go->font_bbx_h = max_n - min_n;
+		go->font_bbx_xoff = min_m;
+		go->font_bbx_yoff = min_n;
+		go->code_min = bc;
+		go->code_max = ec;
+
+		/* read glyph */
+	#if 0
+		fseek(fp, gptr, SEEK_SET);
+	#endif
+		for (;;)
+		{
+		  if ((instr = READ_UINT1(fp)) == GF_POST_POST)
+		    break;
+		  switch ((int)instr)
+		  {
+		  
+		  case GF_CHAR_LOC:
+		    code = READ_UINT1(fp);
+		    dx   = (double)READ_INT4(fp)/(double)(1<<16);
+		    dy   = (double)READ_INT4(fp)/(double)(1<<16);
+		    w    = READ_INT4(fp);
+		    ptr  = READ_INT4(fp);
+		    break;
+		    
+		  case GF_CHAR_LOC0:
+		    code = READ_UINT1(fp);
+		    dx   = (double)READ_INT1(fp);
+		    dy   = (double)0;
+		    w    = READ_INT4(fp);
+		    ptr  = READ_INT4(fp);
+		    break;
+		    
+		  default:
+		    vf_error = VF_ERR_ILL_FONT_FILE;
+		    goto ErrExit;
+		    
+		  }
+		  optr = ftell(fp);
+		  fseek(fp, ptr, SEEK_SET);
+		  
+		  bm = &go->bm_table[code - bc];
+		  if (gf_read_glyph(fp, bm) < 0)
+		    goto ErrExit;
+		    
+		  bm->mv_x = dx;
+		  bm->mv_y = dy;
+		  fseek(fp, optr, SEEK_SET);
+		}
+		return go;
+		
+	ErrExit:
+	printf("*ERROR\n");
+		if (go != NULL)
+		{
+		  if (go->bm_table != NULL)
+		  {
+		    for (i = 0; i < nchars; i++)
+					vf_free(go->bm_table[i].bitmap);
+		  }
+		  vf_free(go->bm_table);
+		}
+		vf_free(go);
+		return NULL;
+	}
+
+
+  FT_LOCAL_DEF( void )
+  gf_free_font( GF_Glyph  gf_glyph )
+  {
+		if (go != NULL)
+		{
+		  if (go->bm_table != NULL)
+		  {
+		    for (i = 0; i < nchars; i++)
+					vf_free(go->bm_table[i].bitmap);
+		  }
+		  vf_free(go->bm_table);
+		}
+		vf_free(go);
+  }
+
+
+/* END */