127 lines
3.7 KiB
Plaintext
127 lines
3.7 KiB
Plaintext
unit imjinclude;
|
|
|
|
{ This file exists to provide a single place to fix any problems with
|
|
including the wrong system include files. (Common problems are taken
|
|
care of by the standard jconfig symbols, but on really weird systems
|
|
you may have to edit this file.)
|
|
|
|
NOTE: this file is NOT intended to be included by applications using the
|
|
JPEG library. Most applications need only include jpeglib.h. }
|
|
|
|
{ Original: jinclude.h Copyright (C) 1991-1994, Thomas G. Lane. }
|
|
|
|
interface
|
|
|
|
{$I imjconfig.inc}
|
|
|
|
{ Include auto-config file to find out which system include files we need. }
|
|
|
|
uses
|
|
{$ifdef Delphi_Stream}
|
|
classes,
|
|
{$endif}
|
|
imjmorecfg;
|
|
|
|
{ Nomssi:
|
|
To write a dest/source manager that handle streams rather than files,
|
|
you can edit the FILEptr definition and the JFREAD() and JFWRITE()
|
|
functions in this unit, you don't need to change the default managers
|
|
JDATASRC and JDATADST. }
|
|
|
|
{$ifdef Delphi_Stream}
|
|
type
|
|
FILEptr = ^TStream;
|
|
{$else}
|
|
{$ifdef Delphi_Jpeg}
|
|
type
|
|
FILEptr = TCustomMemoryStream;
|
|
{$else}
|
|
type
|
|
FILEptr = ^File;
|
|
{$endif}
|
|
{$endif}
|
|
|
|
{ We need the NULL macro and size_t typedef.
|
|
On an ANSI-conforming system it is sufficient to include <stddef.h>.
|
|
Otherwise, we get them from <stdlib.h> or <stdio.h>; we may have to
|
|
pull in <sys/types.h> as well.
|
|
Note that the core JPEG library does not require <stdio.h>;
|
|
only the default error handler and data source/destination modules do.
|
|
But we must pull it in because of the references to FILE in jpeglib.h.
|
|
You can remove those references if you want to compile without <stdio.h>.}
|
|
|
|
|
|
|
|
{ We need memory copying and zeroing functions, plus strncpy().
|
|
ANSI and System V implementations declare these in <string.h>.
|
|
BSD doesn't have the mem() functions, but it does have bcopy()/bzero().
|
|
Some systems may declare memset and memcpy in <memory.h>.
|
|
|
|
NOTE: we assume the size parameters to these functions are of type size_t.
|
|
Change the casts in these macros if not! }
|
|
|
|
procedure MEMZERO(target : pointer; size : size_t);
|
|
|
|
procedure MEMCOPY(dest, src : pointer; size : size_t);
|
|
|
|
{function SIZEOF(object) : size_t;}
|
|
|
|
function JFREAD(fp : FILEptr; buf : pointer; sizeofbuf : size_t) : size_t;
|
|
|
|
function JFWRITE(fp : FILEptr; buf : pointer; sizeofbuf : size_t) : size_t;
|
|
|
|
implementation
|
|
|
|
procedure MEMZERO(target : pointer; size : size_t);
|
|
begin
|
|
FillChar(target^, size, 0);
|
|
end;
|
|
|
|
procedure MEMCOPY(dest, src : pointer; size : size_t);
|
|
begin
|
|
Move(src^, dest^, size);
|
|
end;
|
|
|
|
{ In ANSI C, and indeed any rational implementation, size_t is also the
|
|
type returned by sizeof(). However, it seems there are some irrational
|
|
implementations out there, in which sizeof() returns an int even though
|
|
size_t is defined as long or unsigned long. To ensure consistent results
|
|
we always use this SIZEOF() macro in place of using sizeof() directly. }
|
|
|
|
|
|
{#define
|
|
SIZEOF(object) (size_t(sizeof(object))}
|
|
|
|
|
|
{ The modules that use fread() and fwrite() always invoke them through
|
|
these macros. On some systems you may need to twiddle the argument casts.
|
|
CAUTION: argument order is different from underlying functions! }
|
|
|
|
|
|
function JFREAD(fp : FILEptr; buf : pointer; sizeofbuf : size_t) : size_t;
|
|
var
|
|
count : uint;
|
|
begin
|
|
{$ifdef Delphi_Stream}
|
|
count := fp^.Read(buf^, sizeofbuf);
|
|
{$else}
|
|
blockread(fp^, buf^, sizeofbuf, count);
|
|
{$endif}
|
|
JFREAD := size_t(count);
|
|
end;
|
|
|
|
function JFWRITE(fp : FILEptr; buf : pointer; sizeofbuf : size_t) : size_t;
|
|
var
|
|
count : uint;
|
|
begin
|
|
{$ifdef Delphi_Stream}
|
|
count := fp^.Write(buf^, sizeofbuf);
|
|
{$else}
|
|
blockwrite(fp^, buf^, sizeofbuf, count);
|
|
{$endif}
|
|
JFWRITE := size_t(count);
|
|
end;
|
|
|
|
|
|
end.
|