kmx git

/***************************************************************************/
/*                                                                         */
/*  fonddrvr.c                                                             */
/*                                                                         */
/*    Mac FOND font driver. Written by just@letterror.com.                 */
/*                                                                         */
/*  Copyright 1996-2000 by                                                 */
/*  Just van Rossum, 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.                                        */
/*                                                                         */
/***************************************************************************/


/*
    Notes

    Mac suitcase files can (and often do!) contain multiple fonts. To
    support this I use the face_index argument of FT_(Open|New)_Face()
    functions, and pretend the suitcase file is a collection.
    Warning: although the FOND driver sets face->num_faces field to the
    number of available fonts, but the Type 1 driver sets it to 1 anyway.
    So this field is currently not reliable, and I don't see a clean way
    to  resolve that. The face_index argument translates to
      Get1IndResource( 'FOND', face_index + 1 );
    so clients should figure out the resource index of the FOND.
    (I'll try to provide some example code for this at some point.)

    The Mac FOND driver works roughly like this:

    - Check whether the offered stream points to a Mac suitcase file.
      This is done by checking the file type: it has to be 'FFIL' or 'tfil'.
      The stream that gets passed to our init_face() routine is a stdio
      stream, which isn't usable for us, since the FOND resources live
      in the resource fork. So we just grab the stream->pathname field.

    - Read the FOND resource into memory, then check whether there is
      a TrueType font and/or (!) a Type 1 font available.

    - If there is a Type 1 font available (as a separate 'LWFN' file),
      read it's data into memory, massage it slightly so it becomes
      PFB data, wrap it into a memory stream, load the Type 1 driver
      and delegate the rest of the work to it, by calling
        t1_driver->interface.init_face( ... )
      (XXX TODO: after this has been done, the kerning data from the FOND
      resource should be appended to the face: on the Mac there are usually
      no AFM files available. However, this is tricky since we need to map
      Mac char codes to ps glyph names to glyph ID's...)

    - If there is a TrueType font (an 'sfnt' resource), read it into
      memory, wrap it into a memory stream, load the TrueType driver
      and delegate the rest of the work to it, by calling
        tt_driver->interface.init_face( ... )

    - In both cases, the original stream gets closed and *reinitialized*
      to become a memory stream. Additionally, the face->driver field --
      which is set to the FOND driver upon entering our init_face() --
      gets *reset* to either the TT or the T1 driver. I had to make a minor
      change to ftobjs.c to make this work.
*/

#include <freetype/internal/ttobjs.h>
#include <freetype/internal/t1objs.h>

#include <Resources.h>
#include <Fonts.h>
#include <Errors.h>

#include <ctype.h>  /* for isupper() and isalnum() */
#include <stdlib.h> /* for malloc() and free() */


/* set PREFER_LWFN to 1 if LWFN (Type 1) is preferred over
   TrueType in case *both* are available */
#ifndef PREFER_LWFN
#define PREFER_LWFN 1
#endif


  static
  FT_Error init_driver( FT_Driver  driver )
  {
    /* we don't keep no stinkin' state ;-) */
    return FT_Err_Ok;
  }

  static
  FT_Error done_driver( FT_Driver  driver )
  {
    return FT_Err_Ok;
  }


  /* MacRoman glyph names, needed for FOND kerning support. */
  /* XXX which is not implemented yet! */
  static const char*  mac_roman_glyph_names[256] = {
    ".null",
  };


  /* The FOND face object is just a union of TT and T1: both is possible,
     and we don't need anything else. */
  typedef union FOND_FaceRec_
  {
    TT_FaceRec     tt;
    T1_FaceRec     t1;
  } FOND_FaceRec, *FOND_Face;


  /* given a pathname, fill in a File Spec */
  static
  int make_file_spec( char* pathname, FSSpec *spec )
  {
    Str255  p_path;
    int     path_len;

    /* convert path to a pascal string */
    path_len = strlen( pathname );
    if ( path_len > 255 )
      return -1;
    p_path[0] = path_len;
    strncpy( (char*)p_path+1, pathname, path_len );

    if ( FSMakeFSSpec( 0, 0, p_path, spec ) != noErr )
      return -1;
    else
      return 0;
  }


  /* is_suitcase() returns true if the file specified by 'pathname'
     is a Mac suitcase file, and false if it ain't. */
  static
  int is_suitcase( FSSpec  *spec )
  {
    FInfo   finfo;

    if ( FSpGetFInfo( spec, &finfo ) != noErr )
      return 0;
    if ( finfo.fdType == 'FFIL' || finfo.fdType == 'tfil' )
      return 1;
    else
      return 0;
  }


  /* Quick 'n' Dirty Pascal string to C string converter. */
  static
  char * p2c_str( unsigned char *pstr )
  {
    static char cstr[256];

    strncpy( cstr, (char*)pstr+1, pstr[0] );
    cstr[pstr[0]] = '\0';
    return cstr;
  }


  /* Given a PostScript font name, create the Macintosh LWFN file name */
  static
  void create_lwfn_name( char* ps_name, Str255 lwfn_file_name )
  {
    int  max = 5, count = 0;
    unsigned char* p = lwfn_file_name;
    char* q = ps_name;

    lwfn_file_name[0] = 0;

    while ( *q )
    {
      if ( isupper(*q) )
      {
        if ( count )
          max = 3;
        count = 0;
      }
      if ( count < max && (isalnum(*q) || *q == '_' ) )
      {
        *++p = *q;
        lwfn_file_name[0]++;
        count++;
      }
      q++;
    }
  }


  /* Suck the relevant info out of the FOND data */
  static
  FT_Error parse_fond( char*   fond_data,
                       short   *have_sfnt,
                       short   *sfnt_id,
                       Str255  lwfn_file_name )
  {
    AsscEntry*  assoc;
    FamRec*     fond;

    *sfnt_id = *have_sfnt = 0;
    lwfn_file_name[0] = 0;

    fond = (FamRec*)fond_data;
    assoc = (AsscEntry*)(fond_data + sizeof(FamRec) + 2);

    if ( assoc->fontSize == 0 )
    {
      *have_sfnt = 1;
      *sfnt_id = assoc->fontID;
    }

    if ( fond->ffStylOff )
    {
      unsigned char*  p = (unsigned char*)fond_data;
      StyleTable*     style;
      unsigned short  string_count;
      unsigned char*  name_table = 0;
      char            ps_name[256];
      unsigned char*  names[64];
      int             i;

      p += fond->ffStylOff;
      style = (StyleTable*)p;
      p += sizeof(StyleTable);
      string_count = *(unsigned short*)(p);
      p += sizeof(short);

      for ( i=0 ; i<string_count && i<64; i++ )
      {
        names[i] = p;
        p += names[i][0];
        p++;
      }
      strcpy(ps_name, p2c_str(names[0])); /* Family name */

      if ( style->indexes[0] > 1 )
      {
        unsigned char* suffixes = names[style->indexes[0]-1];
        for ( i=1; i<=suffixes[0]; i++ )
          strcat( ps_name, p2c_str(names[suffixes[i]-1]) );
      }
      create_lwfn_name( ps_name, lwfn_file_name );
    }
    return FT_Err_Ok;
  }


  /* Read Type 1 data from the POST resources inside the LWFN file, return a
     PFB buffer -- apparently FT doesn't like a pure binary T1 stream. */
  static
  char* read_type1_data( FT_Memory memory, FSSpec* lwfn_spec, unsigned long *size )
  {
    short          res_ref, res_id;
    unsigned char  *buffer, *p;
    unsigned long  total_size = 0;
    Handle         post_data;

    res_ref = FSpOpenResFile( lwfn_spec, fsRdPerm );
    if ( ResError() )
      return NULL;
    UseResFile( res_ref );

    /* first pass: load all POST resources, and determine the size of
       the output buffer */
    res_id = 501;
    for (;;)
    {
      post_data = Get1Resource( 'POST', res_id++ );
      if ( post_data == NULL ) break;
      if ( (*post_data)[0] != 5 )
        total_size += GetHandleSize( post_data ) + 4;
      else
        total_size += 2;
    }

    buffer = memory->alloc( memory, total_size );
    if ( !buffer )
      goto error;

    /* second pass: append all POST data to the buffer, add PFB fields */
    p = buffer;
    res_id = 501;
    for (;;)
    {
      long  chunk_size;
      char  code;

      post_data = Get1Resource( 'POST', res_id++ );
      if ( post_data == NULL ) break;
      chunk_size = GetHandleSize( post_data ) - 2;

      *p++ = 0x80;

      code = (*post_data)[0];
      if ( code == 5 )
        *p++ = 0x03;  /* the end */
      else if ( code == 2 )
        *p++ = 0x02;  /* binary segment */
      else
        *p++ = 0x01;  /* ASCII segment */
      if ( code != 5 )
      {
        *p++ = chunk_size & 0xFF;
        *p++ = (chunk_size >> 8) & 0xFF;
        *p++ = (chunk_size >> 16) & 0xFF;
        *p++ = (chunk_size >> 24) & 0xFF;
      }
      memcpy( p, *post_data + 2, chunk_size );
      p += chunk_size;
    }

    CloseResFile( res_ref );

    *size = total_size;
    return (char*)buffer;

error:
    CloseResFile( res_ref );
    return NULL;
  }


  /* Finalizer for the sfnt stream */
  static
  void sfnt_stream_close( FT_Stream  stream )
  {
    Handle sfnt_data = stream->descriptor.pointer;
    HUnlock( sfnt_data );
    DisposeHandle( sfnt_data );

    stream->descriptor.pointer = NULL;
    stream->size               = 0;
    stream->base               = 0;
    stream->close              = 0;
  }


  /* Finalizer for the LWFN stream */
  static
  void lwfn_stream_close( FT_Stream  stream )
  {
    stream->memory->free( stream->memory, stream->base );
    stream->descriptor.pointer = NULL;
    stream->size               = 0;
    stream->base               = 0;
    stream->close              = 0;
  }


  /* Main entry point. Determine whether we're dealing with a Mac
     suitcase or not; then determine if we're dealing with Type 1
     or TrueType; delegate the work to the proper driver. */
  static
  FT_Error init_face( FT_Stream  stream,
                      FT_Long    face_index,
                      FT_Face    face )
  {
    FT_Error      err;
    FSSpec        suit_spec, lwfn_spec;
    short         res_ref;
    Handle        fond_data, sfnt_data;
    short         res_index, sfnt_id, have_sfnt;
    Str255        lwfn_file_name;

    if ( !stream->pathname.pointer )
      return FT_Err_Invalid_Argument;

    if ( make_file_spec( stream->pathname.pointer, &suit_spec ) )
      return FT_Err_Invalid_Argument;

    if ( !is_suitcase( &suit_spec ) )
      return FT_Err_Invalid_File_Format;

    res_ref = FSpOpenResFile( &suit_spec, fsRdPerm );
    if ( ResError() )
      return FT_Err_Invalid_File_Format;
    UseResFile( res_ref );

    /* face_index may be -1, in which case we
       just need to do a sanity check */
    if ( face_index < 0)
      res_index = 1;
    else
      res_index = face_index + 1;
    fond_data = Get1IndResource( 'FOND', res_index );
    if ( ResError() )
    {
      CloseResFile( res_ref );
      return FT_Err_Invalid_File_Format;
    }
    /* Set the number of faces. Not that it helps much: the t1 driver
       just sets it to 1 anyway :-( */
    face->num_faces = Count1Resources('FOND');

    HLock( fond_data );
    err = parse_fond( *fond_data, &have_sfnt, &sfnt_id, lwfn_file_name );
    HUnlock( fond_data );
    if ( err )
    {
      CloseResFile( res_ref );
      return FT_Err_Invalid_Resource_Handle;
    }

    if ( lwfn_file_name[0] )
    {
      /* We look for the LWFN file in the same directory as the suitcase
         file. ATM would look in other places, too, but this is the usual
         situation. */
      err = FSMakeFSSpec( suit_spec.vRefNum, suit_spec.parID, lwfn_file_name, &lwfn_spec );
      if ( err != noErr )
        lwfn_file_name[0] = 0;  /* no LWFN file found */
    }

    if ( lwfn_file_name[0] && ( !have_sfnt || PREFER_LWFN ) )
    {
      FT_Driver     t1_driver;
      char*         type1_data;
      unsigned long size;

      CloseResFile( res_ref ); /* XXX still need to read kerning! */

      type1_data = read_type1_data( stream->memory, &lwfn_spec, &size );
      if ( !type1_data )
      {
        return FT_Err_Out_Of_Memory;
      }

#if 0
      {
        FILE* f;
        char * path;

        path = p2c_str( lwfn_file_name );
        strcat( path, ".PFB" );
        f = fopen(path, "wb");
        if ( f )
        {
          fwrite( type1_data, 1, size, f );
          fclose( f );
        }
      }
#endif

      /* reinitialize the stream */
      if ( stream->close )
        stream->close( stream );
      stream->close = lwfn_stream_close;
      stream->read = 0; /* it's now memory based */
      stream->base = type1_data;
      stream->size = size;
      stream->pos = 0; /* just in case */

      /* delegate the work to the Type 1 driver */
      t1_driver = FT_Get_Driver( face->driver->library, "type1" );
      if ( t1_driver )
      {
        face->driver = t1_driver;
        return t1_driver->interface.init_face( stream, 0, face );
      }
      else
        return FT_Err_Invalid_Driver_Handle;
    }
    else if ( have_sfnt )
    {
      FT_Driver     tt_driver;

      sfnt_data = Get1Resource( 'sfnt', sfnt_id );
      if ( ResError() )
      {
        CloseResFile( res_ref );
        return FT_Err_Invalid_Resource_Handle;
      }
      DetachResource( sfnt_data );
      CloseResFile( res_ref );
      HLockHi( sfnt_data );

      /* reinitialize the stream */
      if ( stream->close )
        stream->close( stream );
      stream->close = sfnt_stream_close;
      stream->descriptor.pointer = sfnt_data;
      stream->read = 0; /* it's now memory based */
      stream->base = *sfnt_data;
      stream->size = GetHandleSize( sfnt_data );
      stream->pos = 0; /* just in case */

      /* delegate the work to the TrueType driver */
      tt_driver = FT_Get_Driver( face->driver->library, "truetype" );
      if ( tt_driver )
      {
        face->driver = tt_driver;
        return tt_driver->interface.init_face( stream, 0, face );
      }
      else
        return FT_Err_Invalid_Driver_Handle;
    }
    else
    {
      CloseResFile( res_ref );
    }
    return FT_Err_Invalid_File_Format;
  }



  /* The FT_DriverInterface structure is defined in ftdriver.h. */

  const FT_Driver_Class  fond_driver_class =
  {
    {
      ft_module_font_driver | ft_module_driver_scalable,
      sizeof ( FT_DriverRec ),

      "fond",          /* driver name                           */
      100,             /* driver version == 1.0                 */
      200,             /* driver requires FreeType 2.0 or above */
  
      (void*)0,
  
      (FT_Module_Constructor)     init_driver,
      (FT_Module_Destructor)      done_driver,
      (FT_Module_Requester)       0
    },

    sizeof ( FOND_FaceRec ),
    0,
    0,

    (FTDriver_initFace)          init_face,
    (FTDriver_doneFace)          0,
    (FTDriver_initSize)          0,
    (FTDriver_doneSize)          0,
    (FTDriver_initGlyphSlot)     0,
    (FTDriver_doneGlyphSlot)     0,

    (FTDriver_setCharSizes)      0,
    (FTDriver_setPixelSizes)     0,
    (FTDriver_loadGlyph)         0,
    (FTDriver_getCharIndex)      0,

    (FTDriver_getKerning)        0,
    (FTDriver_attachFile)        0,
    (FTDriver_getAdvances)       0
  };



  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    getDriverInterface                                                 */
  /*                                                                       */
  /* <Description>                                                         */
  /*    This function is used when compiling the FOND driver as a          */
  /*    shared library (`.DLL' or `.so').  It will be used by the          */
  /*    high-level library of FreeType to retrieve the address of the      */
  /*    driver's generic interface.                                        */
  /*                                                                       */
  /*    It shouldn't be implemented in a static build, as each driver must */
  /*    have the same function as an exported entry point.                 */
  /*                                                                       */
  /* <Return>                                                              */
  /*    The address of the TrueType's driver generic interface.  The       */
  /*    format-specific interface can then be retrieved through the method */
  /*    interface->get_format_interface.                                   */
  /*                                                                       */
#ifdef FT_CONFIG_OPTION_DYNAMIC_DRIVERS

  FT_EXPORT_FUNC(const FT_Driver_Class*)  getDriverClass( void )
  {
    return &fond_driver_class;
  }

#endif /* CONFIG_OPTION_DYNAMIC_DRIVERS */


/* END */
kc3-lang/freetype/src/macfond/fonddrvr.c

Commit

src/macfond/fonddrvr.c
