| /***************************************************************************/ |
| /* */ |
| /* ftsystem.c */ |
| /* */ |
| /* VMS-specific FreeType low-level system interface (body). */ |
| /* */ |
| /* Copyright 1996-2015 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> |
| /* we use our special ftconfig.h file, not the standard one */ |
| #include <ftconfig.h> |
| #include FT_INTERNAL_DEBUG_H |
| #include FT_SYSTEM_H |
| #include FT_ERRORS_H |
| #include FT_TYPES_H |
| #include FT_INTERNAL_OBJECTS_H |
| |
| /* memory-mapping includes and definitions */ |
| #ifdef HAVE_UNISTD_H |
| #include <unistd.h> |
| #endif |
| |
| #include <sys/mman.h> |
| #ifndef MAP_FILE |
| #define MAP_FILE 0x00 |
| #endif |
| |
| #ifdef MUNMAP_USES_VOIDP |
| #define MUNMAP_ARG_CAST void * |
| #else |
| #define MUNMAP_ARG_CAST char * |
| #endif |
| |
| #ifdef NEED_MUNMAP_DECL |
| |
| #ifdef __cplusplus |
| extern "C" |
| #else |
| extern |
| #endif |
| int |
| munmap( char* addr, |
| int len ); |
| |
| #define MUNMAP_ARG_CAST char * |
| |
| #endif /* NEED_DECLARATION_MUNMAP */ |
| |
| |
| #include <sys/types.h> |
| #include <sys/stat.h> |
| |
| #ifdef HAVE_FCNTL_H |
| #include <fcntl.h> |
| #endif |
| |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <string.h> |
| |
| |
| /*************************************************************************/ |
| /* */ |
| /* MEMORY MANAGEMENT INTERFACE */ |
| /* */ |
| /*************************************************************************/ |
| |
| |
| /*************************************************************************/ |
| /* */ |
| /* <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 ) |
| { |
| FT_UNUSED( memory ); |
| |
| return malloc( size ); |
| } |
| |
| |
| /*************************************************************************/ |
| /* */ |
| /* <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 ) |
| { |
| FT_UNUSED( memory ); |
| FT_UNUSED( cur_size ); |
| |
| return realloc( block, new_size ); |
| } |
| |
| |
| /*************************************************************************/ |
| /* */ |
| /* <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 ) |
| { |
| FT_UNUSED( memory ); |
| |
| free( block ); |
| } |
| |
| |
| /*************************************************************************/ |
| /* */ |
| /* 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 ) ( (FILE*)stream->descriptor.pointer ) |
| |
| |
| /*************************************************************************/ |
| /* */ |
| /* <Function> */ |
| /* ft_close_stream */ |
| /* */ |
| /* <Description> */ |
| /* The function to close a stream. */ |
| /* */ |
| /* <Input> */ |
| /* stream :: A pointer to the stream object. */ |
| /* */ |
| FT_CALLBACK_DEF( void ) |
| ft_close_stream( FT_Stream stream ) |
| { |
| munmap( (MUNMAP_ARG_CAST)stream->descriptor.pointer, stream->size ); |
| |
| stream->descriptor.pointer = NULL; |
| stream->size = 0; |
| stream->base = 0; |
| } |
| |
| |
| /* documentation is in ftobjs.h */ |
| |
| FT_BASE_DEF( FT_Error ) |
| FT_Stream_Open( FT_Stream stream, |
| const char* filepathname ) |
| { |
| int file; |
| struct stat stat_buf; |
| |
| |
| if ( !stream ) |
| return FT_THROW( Invalid_Stream_Handle ); |
| |
| /* open the file */ |
| file = open( filepathname, O_RDONLY ); |
| if ( file < 0 ) |
| { |
| FT_ERROR(( "FT_Stream_Open:" )); |
| FT_ERROR(( " could not open `%s'\n", filepathname )); |
| return FT_THROW( Cannot_Open_Resource ); |
| } |
| |
| if ( fstat( file, &stat_buf ) < 0 ) |
| { |
| FT_ERROR(( "FT_Stream_Open:" )); |
| FT_ERROR(( " could not `fstat' file `%s'\n", filepathname )); |
| goto Fail_Map; |
| } |
| |
| stream->size = stat_buf.st_size; |
| if ( !stream->size ) |
| { |
| FT_ERROR(( "FT_Stream_Open:" )); |
| FT_ERROR(( " opened `%s' but zero-sized\n", filepathname )); |
| goto Fail_Map; |
| } |
| |
| stream->pos = 0; |
| stream->base = (unsigned char *)mmap( NULL, |
| stream->size, |
| PROT_READ, |
| MAP_FILE | MAP_PRIVATE, |
| file, |
| 0 ); |
| |
| if ( (long)stream->base == -1 ) |
| { |
| FT_ERROR(( "FT_Stream_Open:" )); |
| FT_ERROR(( " could not `mmap' file `%s'\n", filepathname )); |
| goto Fail_Map; |
| } |
| |
| close( file ); |
| |
| stream->descriptor.pointer = stream->base; |
| stream->pathname.pointer = (char*)filepathname; |
| |
| stream->close = ft_close_stream; |
| stream->read = 0; |
| |
| FT_TRACE1(( "FT_Stream_Open:" )); |
| FT_TRACE1(( " opened `%s' (%d bytes) successfully\n", |
| filepathname, stream->size )); |
| |
| return FT_Err_Ok; |
| |
| Fail_Map: |
| close( file ); |
| |
| stream->base = NULL; |
| stream->size = 0; |
| stream->pos = 0; |
| |
| return FT_THROW( Cannot_Open_Stream ); |
| } |
| |
| |
| #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; |
| |
| |
| memory = (FT_Memory)malloc( sizeof ( *memory ) ); |
| if ( memory ) |
| { |
| memory->user = 0; |
| 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 |
| memory->free( memory, memory ); |
| } |
| |
| |
| /* END */ |