--- a/misc/libfreetype/builds/amiga/src/base/ftsystem.c Fri Oct 11 11:55:31 2013 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,530 +0,0 @@
-/***************************************************************************/
-/* */
-/* ftsystem.c */
-/* */
-/* Amiga-specific FreeType low-level system interface (body). */
-/* */
-/* Copyright 1996-2001, 2002, 2005, 2006, 2007, 2010 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 FT_INTERNAL_DEBUG_H
-#include FT_SYSTEM_H
-#include FT_ERRORS_H
-#include FT_TYPES_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 trace_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 = 0;
- }
-
-
- /*************************************************************************/
- /* */
- /* <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_Err_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_Err_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_Err_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_Err_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_Err_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_Err_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 */