531 lines
20 KiB
C
531 lines
20 KiB
C
/***************************************************************************/
|
|
/* */
|
|
/* ftsystem.c */
|
|
/* */
|
|
/* Amiga-specific FreeType low-level system interface (body). */
|
|
/* */
|
|
/* Copyright (C) 1996-2024 by */
|
|
/* David Turner, Robert Wilhelm, Werner Lemberg and Detlef Würkner. */
|
|
/* */
|
|
/* 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. */
|
|
/* */
|
|
/***************************************************************************/
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* This file contains the Amiga interface used by FreeType to access */
|
|
/* low-level, i.e. memory management, i/o access as well as thread */
|
|
/* synchronisation. */
|
|
/* */
|
|
/*************************************************************************/
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* Maintained by Detlef Würkner <TetiSoft@apg.lahn.de> */
|
|
/* */
|
|
/* Based on the original ftsystem.c, */
|
|
/* modified to avoid fopen(), fclose(), fread(), fseek(), ftell(), */
|
|
/* malloc(), realloc(), and free(). */
|
|
/* */
|
|
/* Those C library functions are often not thread-safe or cant be */
|
|
/* used in a shared Amiga library. If that's not a problem for you, */
|
|
/* you can of course use the default ftsystem.c with C library calls */
|
|
/* instead. */
|
|
/* */
|
|
/* This implementation needs exec V39+ because it uses AllocPooled() etc */
|
|
/* */
|
|
/*************************************************************************/
|
|
|
|
#define __NOLIBBASE__
|
|
#define __NOGLOBALIFACE__
|
|
#define __USE_INLINE__
|
|
#include <proto/exec.h>
|
|
#include <dos/stdio.h>
|
|
#include <proto/dos.h>
|
|
#ifdef __amigaos4__
|
|
extern struct ExecIFace *IExec;
|
|
extern struct DOSIFace *IDOS;
|
|
#else
|
|
extern struct Library *SysBase;
|
|
extern struct Library *DOSBase;
|
|
#endif
|
|
|
|
#define IOBUF_SIZE 512
|
|
|
|
/* structure that helps us to avoid
|
|
* useless calls of Seek() and Read()
|
|
*/
|
|
struct SysFile
|
|
{
|
|
BPTR file;
|
|
ULONG iobuf_start;
|
|
ULONG iobuf_end;
|
|
UBYTE iobuf[IOBUF_SIZE];
|
|
};
|
|
|
|
#ifndef __amigaos4__
|
|
/* C implementation of AllocVecPooled (see autodoc exec/AllocPooled) */
|
|
APTR
|
|
Alloc_VecPooled( APTR poolHeader,
|
|
ULONG memSize )
|
|
{
|
|
ULONG newSize = memSize + sizeof ( ULONG );
|
|
ULONG *mem = AllocPooled( poolHeader, newSize );
|
|
|
|
if ( !mem )
|
|
return NULL;
|
|
*mem = newSize;
|
|
return mem + 1;
|
|
}
|
|
|
|
/* C implementation of FreeVecPooled (see autodoc exec/AllocPooled) */
|
|
void
|
|
Free_VecPooled( APTR poolHeader,
|
|
APTR memory )
|
|
{
|
|
ULONG *realmem = (ULONG *)memory - 1;
|
|
|
|
FreePooled( poolHeader, realmem, *realmem );
|
|
}
|
|
#endif
|
|
|
|
#include <ft2build.h>
|
|
#include FT_CONFIG_CONFIG_H
|
|
#include <freetype/internal/ftdebug.h>
|
|
#include <freetype/ftsystem.h>
|
|
#include <freetype/fterrors.h>
|
|
#include <freetype/fttypes.h>
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* MEMORY MANAGEMENT INTERFACE */
|
|
/* */
|
|
/*************************************************************************/
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* It is not necessary to do any error checking for the */
|
|
/* allocation-related functions. This is done by the higher level */
|
|
/* routines like ft_mem_alloc() or ft_mem_realloc(). */
|
|
/* */
|
|
/*************************************************************************/
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* <Function> */
|
|
/* ft_alloc */
|
|
/* */
|
|
/* <Description> */
|
|
/* The memory allocation function. */
|
|
/* */
|
|
/* <Input> */
|
|
/* memory :: A pointer to the memory object. */
|
|
/* */
|
|
/* size :: The requested size in bytes. */
|
|
/* */
|
|
/* <Return> */
|
|
/* The address of newly allocated block. */
|
|
/* */
|
|
FT_CALLBACK_DEF( void* )
|
|
ft_alloc( FT_Memory memory,
|
|
long size )
|
|
{
|
|
#ifdef __amigaos4__
|
|
return AllocVecPooled( memory->user, size );
|
|
#else
|
|
return Alloc_VecPooled( memory->user, size );
|
|
#endif
|
|
}
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* <Function> */
|
|
/* ft_realloc */
|
|
/* */
|
|
/* <Description> */
|
|
/* The memory reallocation function. */
|
|
/* */
|
|
/* <Input> */
|
|
/* memory :: A pointer to the memory object. */
|
|
/* */
|
|
/* cur_size :: The current size of the allocated memory block. */
|
|
/* */
|
|
/* new_size :: The newly requested size in bytes. */
|
|
/* */
|
|
/* block :: The current address of the block in memory. */
|
|
/* */
|
|
/* <Return> */
|
|
/* The address of the reallocated memory block. */
|
|
/* */
|
|
FT_CALLBACK_DEF( void* )
|
|
ft_realloc( FT_Memory memory,
|
|
long cur_size,
|
|
long new_size,
|
|
void* block )
|
|
{
|
|
void* new_block;
|
|
|
|
#ifdef __amigaos4__
|
|
new_block = AllocVecPooled ( memory->user, new_size );
|
|
#else
|
|
new_block = Alloc_VecPooled ( memory->user, new_size );
|
|
#endif
|
|
if ( new_block != NULL )
|
|
{
|
|
CopyMem ( block, new_block,
|
|
( new_size > cur_size ) ? cur_size : new_size );
|
|
#ifdef __amigaos4__
|
|
FreeVecPooled ( memory->user, block );
|
|
#else
|
|
Free_VecPooled ( memory->user, block );
|
|
#endif
|
|
}
|
|
return new_block;
|
|
}
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* <Function> */
|
|
/* ft_free */
|
|
/* */
|
|
/* <Description> */
|
|
/* The memory release function. */
|
|
/* */
|
|
/* <Input> */
|
|
/* memory :: A pointer to the memory object. */
|
|
/* */
|
|
/* block :: The address of block in memory to be freed. */
|
|
/* */
|
|
FT_CALLBACK_DEF( void )
|
|
ft_free( FT_Memory memory,
|
|
void* block )
|
|
{
|
|
#ifdef __amigaos4__
|
|
FreeVecPooled( memory->user, block );
|
|
#else
|
|
Free_VecPooled( memory->user, block );
|
|
#endif
|
|
}
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* RESOURCE MANAGEMENT INTERFACE */
|
|
/* */
|
|
/*************************************************************************/
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* 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 io
|
|
|
|
/* We use the macro STREAM_FILE for convenience to extract the */
|
|
/* system-specific stream handle from a given FreeType stream object */
|
|
#define STREAM_FILE( stream ) ( (struct SysFile *)stream->descriptor.pointer )
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* <Function> */
|
|
/* ft_amiga_stream_close */
|
|
/* */
|
|
/* <Description> */
|
|
/* The function to close a stream. */
|
|
/* */
|
|
/* <Input> */
|
|
/* stream :: A pointer to the stream object. */
|
|
/* */
|
|
FT_CALLBACK_DEF( void )
|
|
ft_amiga_stream_close( FT_Stream stream )
|
|
{
|
|
struct SysFile* sysfile;
|
|
|
|
sysfile = STREAM_FILE( stream );
|
|
Close ( sysfile->file );
|
|
FreeMem ( sysfile, sizeof ( struct SysFile ));
|
|
|
|
stream->descriptor.pointer = NULL;
|
|
stream->size = 0;
|
|
stream->base = NULL;
|
|
}
|
|
|
|
|
|
/*************************************************************************/
|
|
/* */
|
|
/* <Function> */
|
|
/* ft_amiga_stream_io */
|
|
/* */
|
|
/* <Description> */
|
|
/* The function to open a stream. */
|
|
/* */
|
|
/* <Input> */
|
|
/* stream :: A pointer to the stream object. */
|
|
/* */
|
|
/* offset :: The position in the data stream to start reading. */
|
|
/* */
|
|
/* buffer :: The address of buffer to store the read data. */
|
|
/* */
|
|
/* count :: The number of bytes to read from the stream. */
|
|
/* */
|
|
/* <Return> */
|
|
/* The number of bytes actually read. */
|
|
/* */
|
|
FT_CALLBACK_DEF( unsigned long )
|
|
ft_amiga_stream_io( FT_Stream stream,
|
|
unsigned long offset,
|
|
unsigned char* buffer,
|
|
unsigned long count )
|
|
{
|
|
struct SysFile* sysfile;
|
|
unsigned long read_bytes;
|
|
|
|
if ( count != 0 )
|
|
{
|
|
sysfile = STREAM_FILE( stream );
|
|
|
|
/* handle the seek */
|
|
if ( (offset < sysfile->iobuf_start) || (offset + count > sysfile->iobuf_end) )
|
|
{
|
|
/* requested offset implies we need a buffer refill */
|
|
if ( !sysfile->iobuf_end || offset != sysfile->iobuf_end )
|
|
{
|
|
/* a physical seek is necessary */
|
|
Seek( sysfile->file, offset, OFFSET_BEGINNING );
|
|
}
|
|
sysfile->iobuf_start = offset;
|
|
sysfile->iobuf_end = 0; /* trigger a buffer refill */
|
|
}
|
|
|
|
/* handle the read */
|
|
if ( offset + count <= sysfile->iobuf_end )
|
|
{
|
|
/* we have buffer and requested bytes are all inside our buffer */
|
|
CopyMem( &sysfile->iobuf[offset - sysfile->iobuf_start], buffer, count );
|
|
read_bytes = count;
|
|
}
|
|
else
|
|
{
|
|
/* (re)fill buffer */
|
|
if ( count <= IOBUF_SIZE )
|
|
{
|
|
/* requested bytes is a subset of the buffer */
|
|
read_bytes = Read( sysfile->file, sysfile->iobuf, IOBUF_SIZE );
|
|
if ( read_bytes == -1UL )
|
|
{
|
|
/* error */
|
|
read_bytes = 0;
|
|
}
|
|
else
|
|
{
|
|
sysfile->iobuf_end = offset + read_bytes;
|
|
CopyMem( sysfile->iobuf, buffer, count );
|
|
if ( read_bytes > count )
|
|
{
|
|
read_bytes = count;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/* we actually need more than our buffer can hold, so we decide
|
|
** to do a single big read, and then copy the last IOBUF_SIZE
|
|
** bytes of that to our internal buffer for later use */
|
|
read_bytes = Read( sysfile->file, buffer, count );
|
|
if ( read_bytes == -1UL )
|
|
{
|
|
/* error */
|
|
read_bytes = 0;
|
|
}
|
|
else
|
|
{
|
|
ULONG bufsize;
|
|
|
|
bufsize = ( read_bytes > IOBUF_SIZE ) ? IOBUF_SIZE : read_bytes;
|
|
sysfile->iobuf_end = offset + read_bytes;
|
|
sysfile->iobuf_start = sysfile->iobuf_end - bufsize;
|
|
CopyMem( &buffer[read_bytes - bufsize] , sysfile->iobuf, bufsize );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
read_bytes = 0;
|
|
}
|
|
|
|
return read_bytes;
|
|
}
|
|
|
|
|
|
/* documentation is in ftobjs.h */
|
|
|
|
FT_BASE_DEF( FT_Error )
|
|
FT_Stream_Open( FT_Stream stream,
|
|
const char* filepathname )
|
|
{
|
|
struct FileInfoBlock* fib;
|
|
struct SysFile* sysfile;
|
|
|
|
|
|
if ( !stream )
|
|
return FT_THROW( Invalid_Stream_Handle );
|
|
|
|
#ifdef __amigaos4__
|
|
sysfile = AllocMem ( sizeof (struct SysFile ), MEMF_SHARED );
|
|
#else
|
|
sysfile = AllocMem ( sizeof (struct SysFile ), MEMF_PUBLIC );
|
|
#endif
|
|
if ( !sysfile )
|
|
{
|
|
FT_ERROR(( "FT_Stream_Open:" ));
|
|
FT_ERROR(( " could not open `%s'\n", filepathname ));
|
|
|
|
return FT_THROW( Cannot_Open_Resource );
|
|
}
|
|
sysfile->file = Open( (STRPTR)filepathname, MODE_OLDFILE );
|
|
if ( !sysfile->file )
|
|
{
|
|
FreeMem ( sysfile, sizeof ( struct SysFile ));
|
|
FT_ERROR(( "FT_Stream_Open:" ));
|
|
FT_ERROR(( " could not open `%s'\n", filepathname ));
|
|
|
|
return FT_THROW( Cannot_Open_Resource );
|
|
}
|
|
|
|
fib = AllocDosObject( DOS_FIB, NULL );
|
|
if ( !fib )
|
|
{
|
|
Close ( sysfile->file );
|
|
FreeMem ( sysfile, sizeof ( struct SysFile ));
|
|
FT_ERROR(( "FT_Stream_Open:" ));
|
|
FT_ERROR(( " could not open `%s'\n", filepathname ));
|
|
|
|
return FT_THROW( Cannot_Open_Resource );
|
|
}
|
|
if ( !( ExamineFH( sysfile->file, fib ) ) )
|
|
{
|
|
FreeDosObject( DOS_FIB, fib );
|
|
Close ( sysfile->file );
|
|
FreeMem ( sysfile, sizeof ( struct SysFile ));
|
|
FT_ERROR(( "FT_Stream_Open:" ));
|
|
FT_ERROR(( " could not open `%s'\n", filepathname ));
|
|
|
|
return FT_THROW( Cannot_Open_Resource );
|
|
}
|
|
stream->size = fib->fib_Size;
|
|
FreeDosObject( DOS_FIB, fib );
|
|
|
|
stream->descriptor.pointer = (void *)sysfile;
|
|
stream->pathname.pointer = (char*)filepathname;
|
|
sysfile->iobuf_start = 0;
|
|
sysfile->iobuf_end = 0;
|
|
stream->pos = 0;
|
|
|
|
stream->read = ft_amiga_stream_io;
|
|
stream->close = ft_amiga_stream_close;
|
|
|
|
if ( !stream->size )
|
|
{
|
|
ft_amiga_stream_close( stream );
|
|
FT_ERROR(( "FT_Stream_Open:" ));
|
|
FT_ERROR(( " opened `%s' but zero-sized\n", filepathname ));
|
|
return FT_THROW( Cannot_Open_Stream );
|
|
}
|
|
|
|
FT_TRACE1(( "FT_Stream_Open:" ));
|
|
FT_TRACE1(( " opened `%s' (%ld bytes) successfully\n",
|
|
filepathname, stream->size ));
|
|
|
|
return FT_Err_Ok;
|
|
}
|
|
|
|
|
|
#ifdef FT_DEBUG_MEMORY
|
|
|
|
extern FT_Int
|
|
ft_mem_debug_init( FT_Memory memory );
|
|
|
|
extern void
|
|
ft_mem_debug_done( FT_Memory memory );
|
|
|
|
#endif
|
|
|
|
|
|
/* documentation is in ftobjs.h */
|
|
|
|
FT_BASE_DEF( FT_Memory )
|
|
FT_New_Memory( void )
|
|
{
|
|
FT_Memory memory;
|
|
|
|
|
|
#ifdef __amigaos4__
|
|
memory = (FT_Memory)AllocVec( sizeof ( *memory ), MEMF_SHARED );
|
|
#else
|
|
memory = (FT_Memory)AllocVec( sizeof ( *memory ), MEMF_PUBLIC );
|
|
#endif
|
|
if ( memory )
|
|
{
|
|
#ifdef __amigaos4__
|
|
memory->user = CreatePool( MEMF_SHARED, 16384, 16384 );
|
|
#else
|
|
memory->user = CreatePool( MEMF_PUBLIC, 16384, 16384 );
|
|
#endif
|
|
if ( memory->user == NULL )
|
|
{
|
|
FreeVec( memory );
|
|
memory = NULL;
|
|
}
|
|
else
|
|
{
|
|
memory->alloc = ft_alloc;
|
|
memory->realloc = ft_realloc;
|
|
memory->free = ft_free;
|
|
#ifdef FT_DEBUG_MEMORY
|
|
ft_mem_debug_init( memory );
|
|
#endif
|
|
}
|
|
}
|
|
|
|
return memory;
|
|
}
|
|
|
|
|
|
/* documentation is in ftobjs.h */
|
|
|
|
FT_BASE_DEF( void )
|
|
FT_Done_Memory( FT_Memory memory )
|
|
{
|
|
#ifdef FT_DEBUG_MEMORY
|
|
ft_mem_debug_done( memory );
|
|
#endif
|
|
|
|
DeletePool( memory->user );
|
|
FreeVec( memory );
|
|
}
|
|
|
|
/*
|
|
Local Variables:
|
|
coding: latin-1
|
|
End:
|
|
*/
|
|
/* END */
|