freetype1/test/fdebug.c

   1 /****************************************************************************}
   2 {*                                                                          *}
   3 {*  The FreeType project - a Free and Portable Quality TrueType Renderer.   *}
   4 {*                                                                          *}
   5 {*  Copyright 1996-1999 by                                                  *}
   6 {*  D. Turner, R.Wilhelm, and W. Lemberg                                    *}
   7 {*                                                                          *}
   8 {*  fdebug : A very simple TrueType bytecode debugger.                      *}
   9 {*                                                                          *}
  10 {*  NOTE : You must compile the interpreter with the DEBUG_INTERPRETER      *}
  11 {*         macro defined in order to link this program!                     *}
  12 {*                                                                          *}
  13 {****************************************************************************/
  14
  15 #include <math.h>    /* libc ANSI */
  16 #include <stdio.h>
  17 #include <stdlib.h>
  18 #include <string.h>
  19
  20 #include "freetype.h"
  21 #include "tttypes.h"
  22 #include "ttdebug.h"
  23 #include "ttobjs.h"
  24
  25
  26 #ifdef UNIX
  27 #ifndef HAVE_POSIX_TERMIOS
  28 #include <sys/ioctl.h>
  29 #include <termio.h>
  30 #else
  31 #ifndef HAVE_TCGETATTR
  32 #define HAVE_TCGETATTR
  33 #endif /* HAVE_TCGETATTR */
  34 #ifndef HAVE_TCSETATTR
  35 #define HAVE_TCSETATTR
  36 #endif /* HAVE_TCSETATTR */
  37 #include <termios.h>
  38 #endif /* HAVE_POSIX_TERMIOS */
  39 #endif
  40
  41   /* MAGIC: This variable is only defined in ttinterp.c if the      */
  42   /*         macro DEBUG_INTERPRETER is set.  It specifies the code */
  43   /*         range to debug.  By default, it is TT_CodeRange_Glyph. */
  44   /*                                                                */
  45   extern
  46   int  debug_coderange;
  47
  48
  49 #define  Font_Buff_Size  256000        /* this buffer holds all     */
  50                                        /* font specific data.       */
  51
  52   TT_Engine    engine;
  53   TT_Face      face;
  54   TT_Instance  instance;
  55   TT_Glyph     glyph;
  56   TT_Error     error;
  57
  58   TT_Face_Properties  properties;
  59
  60   int    num_glyphs;
  61   int    ptsize;
  62
  63   Int           Fail;
  64   Int           Num;
  65   int           mode = 2;
  66   unsigned char autorun;
  67
  68 /*********************************************************************
  69  *
  70  * Usage : print usage message
  71  *
  72  *********************************************************************/
  73
  74   static
  75   void Usage( const char* execname )
  76   {
  77     TT_Message( "fdebug: a simple TrueType bytecode debugger - part of the FreeType project\n" );
  78     TT_Message( "--------------------------------------------------------------------------\n\n");
  79     TT_Message( "Usage: %s glyphnum ppem fontname[.ttf]\n", execname );
  80     TT_Message( "    or %s --cvt ppem fontname[.ttf]\n", execname );
  81     TT_Message( "    or %s --font fontname[.ttf]\n\n", execname );
  82     exit( EXIT_FAILURE );
  83   }
  84
  85
  86 /*********************************************************************
  87  *
  88  * Init_Keyboard : set the input file descriptor to char-by-char
  89  *                 mode on Unix..
  90  *
  91  *********************************************************************/
  92
  93 #ifdef UNIX
  94
  95  struct termios  old_termio;
  96
  97  static
  98  void Init_Keyboard( void )
  99  {
 100    struct termios  termio;
 101
 102
 103 #ifndef HAVE_TCGETATTR
 104    ioctl( 0, TCGETS, &old_termio );
 105 #else
 106    tcgetattr( 0, &old_termio );
 107 #endif
 108
 109    termio = old_termio;
 110
 111    termio.c_lflag &= ~(ICANON+ECHO+ECHOE+ECHOK+ECHONL+ECHOKE);
 112
 113 #ifndef HAVE_TCSETATTR
 114    ioctl( 0, TCSETS, &termio );
 115 #else
 116    tcsetattr( 0, TCSANOW, &termio );
 117 #endif
 118  }
 119
 120  static
 121  void Reset_Keyboard( voi )
 122  {
 123 #ifndef HAVE_TCSETATTR
 124    ioctl( 0, TCSETS, &old_termio );
 125 #else
 126    tcsetattr( 0, TCSANOW, &old_termio );
 127 #endif
 128
 129  }
 130
 131 #else
 132
 133  static
 134  void Init_Keyboard( void )
 135  {
 136  }
 137
 138  static
 139  void Reset_Keyboard( voi )
 140  {
 141  }
 142
 143 #endif
 144
 145   static
 146   void  Print_Banner( void )
 147   {
 148     TT_Message( "fdebug    - a simple TrueType bytecode debugger for FreeType\n" );
 149     TT_Message( "------------------------------------------------------------\n" );
 150     TT_Message( "type '?' for help - copyright 1996-1999 the FreeType Project\n\n" );
 151   }
 152
 153
 154   static
 155   void  Error( const char* message,
 156                const char* filename )
 157   {
 158     static char tempstr[256];
 159
 160     sprintf( tempstr, "ERROR (%s): %s\n", filename, message );
 161     TT_Message( tempstr );
 162
 163     sprintf( tempstr, "  code = 0x%04lx\n", error );
 164     TT_Message( tempstr );
 165
 166     Reset_Keyboard();
 167     exit( EXIT_FAILURE );
 168   }
 169
 170
 171   static
 172   void  Init_Face( const char*  filename )
 173   {
 174     error = TT_Init_FreeType(&engine);
 175     if (error) Error( "could not initialise FreeType", filename );
 176
 177     /* open face object */
 178     error = TT_Open_Face( engine, filename, &face );
 179     if (error) Error( "could not find or open file", filename );
 180
 181     /* get properties */
 182     TT_Get_Face_Properties( face, &properties );
 183     num_glyphs = properties.num_Glyphs;
 184
 185     /* create instance */
 186     error = TT_New_Instance( face, &instance );
 187     if (error) Error( "could not create instance", filename );
 188
 189     error = TT_New_Glyph( face, &glyph );
 190     if (error) Error( "could not create glyph container", filename );
 191
 192     TT_Set_Instance_Resolutions( instance, 96, 96 );
 193
 194     error = TT_Set_Instance_CharSize( instance, ptsize << 6 );
 195     if (error) Error( "could not set text size", filename );
 196   }
 197
 198
 199   int  main( int  argc, char**  argv )
 200   {
 201     int     i;
 202     char    filename[128+4];
 203     char*   execname;
 204
 205
 206     execname = argv[0];
 207     if ( argc < 2 )
 208       Usage( execname );
 209
 210     if ( strcmp( argv[1], "--font" ) == 0 )
 211     {
 212       debug_coderange = TT_CodeRange_Font;
 213       mode = 0;
 214       argc--;
 215       argv++;
 216     }
 217     else if ( strcmp( argv[1], "--cvt" ) == 0 )
 218     {
 219       debug_coderange = TT_CodeRange_Cvt;
 220       argv++;
 221       argc--;
 222       mode = 1;
 223     }
 224     else if ( sscanf( argv[1], "%d", &Num ) == 1 )
 225     {
 226       mode = 2;
 227       argv++;
 228       argc--;
 229     }
 230     else
 231       Usage( execname );
 232
 233     /* read the point size for cvt and glyph modes */
 234     if (mode > 0)
 235     {
 236       if ( sscanf( argv[1], "%d", &ptsize ) != 1 )
 237         Usage( execname );
 238       argc--;
 239       argv++;
 240     }
 241
 242     if ( argc != 2 )
 243       Usage(execname);
 244
 245     i = strlen( argv[1] );
 246     while ( i > 0 && argv[1][i] != '\\' )
 247     {
 248       if ( argv[1][i] == '.' )
 249         i = 0;
 250       i--;
 251     }
 252
 253     filename[128] = 0;
 254
 255     strncpy( filename, argv[1], 128 );
 256     if ( i >= 0 )
 257       strncpy( filename + strlen(filename), ".ttf", 4 );
 258
 259     Init_Keyboard();
 260
 261     if (mode == 2)
 262     {
 263       Init_Face( filename );
 264       Print_Banner();
 265
 266       error = TT_Load_Glyph( instance, glyph, Num, TTLOAD_DEFAULT );
 267       if (error) Error( "Error during bytecode execution", filename );
 268     }
 269     else
 270     {
 271       Print_Banner();
 272       Init_Face( filename );
 273     }
 274
 275     TT_Done_FreeType(engine);
 276
 277     Reset_Keyboard();
 278
 279     exit( EXIT_SUCCESS );      /* for safety reasons */
 280
 281     return 0;       /* never reached */
 282   }
 283
 284
 285 /* End */