paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 00:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package pasjpeg

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:05 +01:00
parent ff4c0ecd90
commit 6a98cfa05d
116 changed files with 961 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/pasjpeg/namespaced/System.Jpeg.Buildpasjpeg.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Buildpasjpeg;
{$DEFINE FPC_DOTTEDUNITS}
{$i buildpasjpeg.pp}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcapimin.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcapimin;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcapimin.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcapistd.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcapistd;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcapistd.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jccoefct.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jccoefct;
{$DEFINE FPC_DOTTEDUNITS}
{$i jccoefct.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jccolor.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jccolor;
{$DEFINE FPC_DOTTEDUNITS}
{$i jccolor.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcdctmgr.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcdctmgr;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcdctmgr.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jchuff.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jchuff;
{$DEFINE FPC_DOTTEDUNITS}
{$i jchuff.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcinit.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcinit;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcinit.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcmainct.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcmainct;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcmainct.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcmarker.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcmarker;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcmarker.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcmaster.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcmaster;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcmaster.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcomapi.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcomapi;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcomapi.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jconsts.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jconsts;
{$DEFINE FPC_DOTTEDUNITS}
{$i jconsts.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcparam.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcparam;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcparam.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcphuff.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcphuff;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcphuff.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcprepct.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcprepct;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcprepct.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jcsample.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jcsample;
{$DEFINE FPC_DOTTEDUNITS}
{$i jcsample.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jctrans.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jctrans;
{$DEFINE FPC_DOTTEDUNITS}
{$i jctrans.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdapimin.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdapimin;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdapimin.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdapistd.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdapistd;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdapistd.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdatadst.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdatadst;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdatadst.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdatasrc.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdatasrc;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdatasrc.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdcoefct.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdcoefct;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdcoefct.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdcolor.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdcolor;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdcolor.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdct.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdct;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdct.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jddctmgr.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jddctmgr;
{$DEFINE FPC_DOTTEDUNITS}
{$i jddctmgr.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdeferr.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdeferr;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdeferr.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdhuff.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdhuff;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdhuff.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdinput.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdinput;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdinput.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdmainct.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdmainct;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdmainct.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdmarker.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdmarker;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdmarker.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdmaster.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdmaster;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdmaster.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdmerge.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdmerge;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdmerge.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdmorecfg.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdmorecfg;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdmorecfg.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdphuff.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdphuff;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdphuff.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdpostct.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdpostct;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdpostct.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdsample.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdsample;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdsample.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jdtrans.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jdtrans;
{$DEFINE FPC_DOTTEDUNITS}
{$i jdtrans.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jerror.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jerror;
{$DEFINE FPC_DOTTEDUNITS}
{$i jerror.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jfdctflt.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jfdctflt;
{$DEFINE FPC_DOTTEDUNITS}
{$i jfdctflt.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jfdctfst.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jfdctfst;
{$DEFINE FPC_DOTTEDUNITS}
{$i jfdctfst.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jfdctint.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jfdctint;
{$DEFINE FPC_DOTTEDUNITS}
{$i jfdctint.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jidctasm.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jidctasm;
{$DEFINE FPC_DOTTEDUNITS}
{$i jidctasm.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jidctflt.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jidctflt;
{$DEFINE FPC_DOTTEDUNITS}
{$i jidctflt.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jidctfst.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jidctfst;
{$DEFINE FPC_DOTTEDUNITS}
{$i jidctfst.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jidctint.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jidctint;
{$DEFINE FPC_DOTTEDUNITS}
{$i jidctint.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jidctred.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jidctred;
{$DEFINE FPC_DOTTEDUNITS}
{$i jidctred.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jinclude.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jinclude;
{$DEFINE FPC_DOTTEDUNITS}
{$i jinclude.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jmemdos.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jmemdos;
{$DEFINE FPC_DOTTEDUNITS}
{$i jmemdos.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jmemdosa.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jmemdosa;
{$DEFINE FPC_DOTTEDUNITS}
{$i jmemdosa.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jmemmgr.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jmemmgr;
{$DEFINE FPC_DOTTEDUNITS}
{$i jmemmgr.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jmemnobs.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jmemnobs;
{$DEFINE FPC_DOTTEDUNITS}
{$i jmemnobs.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jmorecfg.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jmorecfg;
{$DEFINE FPC_DOTTEDUNITS}
{$i jmorecfg.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jpeglib.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jpeglib;
{$DEFINE FPC_DOTTEDUNITS}
{$i jpeglib.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jquant1.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jquant1;
{$DEFINE FPC_DOTTEDUNITS}
{$i jquant1.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jquant2.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jquant2;
{$DEFINE FPC_DOTTEDUNITS}
{$i jquant2.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Jutils.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Jutils;
{$DEFINE FPC_DOTTEDUNITS}
{$i jutils.pas}

3
packages/pasjpeg/namespaced/System.Jpeg.Pasjpeg.pas Normal file
View File

@ -0,0 +1,3 @@
unit System.Jpeg.Pasjpeg;
{$DEFINE FPC_DOTTEDUNITS}
{$i pasjpeg.pas}

61
packages/pasjpeg/namespaces.lst Normal file
View File

@ -0,0 +1,61 @@
src/jcprepct.pas=namespaced/System.Jpeg.Jcprepct.pas
{s*:src/}=namespaced/
{i+:src/}
src/jcparam.pas=namespaced/System.Jpeg.Jcparam.pas
src/jchuff.pas=namespaced/System.Jpeg.Jchuff.pas
src/jdphuff.pas=namespaced/System.Jpeg.Jdphuff.pas
src/jerror.pas=namespaced/System.Jpeg.Jerror.pas
src/jdcoefct.pas=namespaced/System.Jpeg.Jdcoefct.pas
src/jdinput.pas=namespaced/System.Jpeg.Jdinput.pas
src/jcmainct.pas=namespaced/System.Jpeg.Jcmainct.pas
src/jidctred.pas=namespaced/System.Jpeg.Jidctred.pas
src/jidctint.pas=namespaced/System.Jpeg.Jidctint.pas
src/jcmaster.pas=namespaced/System.Jpeg.Jcmaster.pas
src/pasjpeg.pas=namespaced/System.Jpeg.Pasjpeg.pas
src/jmemdosa.pas=namespaced/System.Jpeg.Jmemdosa.pas
src/jddctmgr.pas=namespaced/System.Jpeg.Jddctmgr.pas
src/jdatasrc.pas=namespaced/System.Jpeg.Jdatasrc.pas
src/jdcolor.pas=namespaced/System.Jpeg.Jdcolor.pas
src/jcmarker.pas=namespaced/System.Jpeg.Jcmarker.pas
src/jdapimin.pas=namespaced/System.Jpeg.Jdapimin.pas
src/jmemmgr.pas=namespaced/System.Jpeg.Jmemmgr.pas
src/jfdctflt.pas=namespaced/System.Jpeg.Jfdctflt.pas
src/jcapimin.pas=namespaced/System.Jpeg.Jcapimin.pas
src/jconsts.pas=namespaced/System.Jpeg.Jconsts.pas
src/jdmarker.pas=namespaced/System.Jpeg.Jdmarker.pas
src/jdmainct.pas=namespaced/System.Jpeg.Jdmainct.pas
src/jidctasm.pas=namespaced/System.Jpeg.Jidctasm.pas
src/jmemnobs.pas=namespaced/System.Jpeg.Jmemnobs.pas
src/jcomapi.pas=namespaced/System.Jpeg.Jcomapi.pas
src/jdhuff.pas=namespaced/System.Jpeg.Jdhuff.pas
src/jpeglib.pas=namespaced/System.Jpeg.Jpeglib.pas
src/jfdctfst.pas=namespaced/System.Jpeg.Jfdctfst.pas
src/jdmerge.pas=namespaced/System.Jpeg.Jdmerge.pas
src/jinclude.pas=namespaced/System.Jpeg.Jinclude.pas
src/jmorecfg.pas=namespaced/System.Jpeg.Jmorecfg.pas
src/jfdctint.pas=namespaced/System.Jpeg.Jfdctint.pas
src/jidctflt.pas=namespaced/System.Jpeg.Jidctflt.pas
src/jccoefct.pas=namespaced/System.Jpeg.Jccoefct.pas
src/jdeferr.pas=namespaced/System.Jpeg.Jdeferr.pas
src/jcdctmgr.pas=namespaced/System.Jpeg.Jcdctmgr.pas
src/jcsample.pas=namespaced/System.Jpeg.Jcsample.pas
src/jctrans.pas=namespaced/System.Jpeg.Jctrans.pas
src/jcapistd.pas=namespaced/System.Jpeg.Jcapistd.pas
src/jdtrans.pas=namespaced/System.Jpeg.Jdtrans.pas
src/jccolor.pas=namespaced/System.Jpeg.Jccolor.pas
src/jquant1.pas=namespaced/System.Jpeg.Jquant1.pas
src/jmemsys.pas=namespaced/System.Jpeg.Jmemsys.pas
src/jdatadst.pas=namespaced/System.Jpeg.Jdatadst.pas
src/jcphuff.pas=namespaced/System.Jpeg.Jcphuff.pas
src/jmemdos.pas=namespaced/System.Jpeg.Jmemdos.pas
src/jutils.pas=namespaced/System.Jpeg.Jutils.pas
src/jidct2d.pas=namespaced/System.Jpeg.Jidct2d.pas
src/buildpasjpeg.pp=namespaced/System.Jpeg.Buildpasjpeg.pp
src/jdsample.pas=namespaced/System.Jpeg.Jdsample.pas
src/jdapistd.pas=namespaced/System.Jpeg.Jdapistd.pas
src/jdmaster.pas=namespaced/System.Jpeg.Jdmaster.pas
src/jquant2.pas=namespaced/System.Jpeg.Jquant2.pas
src/jidctfst.pas=namespaced/System.Jpeg.Jidctfst.pas
src/jdct.pas=namespaced/System.Jpeg.Jdct.pas
src/jdpostct.pas=namespaced/System.Jpeg.Jdpostct.pas
src/jcinit.pas=namespaced/System.Jpeg.Jcinit.pas

55
packages/pasjpeg/src/buildpasjpeg.pp
View File

@ -2,8 +2,62 @@
Unit to build all units of Pasjpeg
}
{$IFNDEF FPC_DOTTEDUNITS}
unit buildpasjpeg;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jcapimin,
System.Jpeg.Jcapistd,
System.Jpeg.Jccoefct,
System.Jpeg.Jccolor,
System.Jpeg.Jcdctmgr,
System.Jpeg.Jchuff,
System.Jpeg.Jcinit,
System.Jpeg.Jcmainct,
System.Jpeg.Jcmarker,
System.Jpeg.Jcmaster,
System.Jpeg.Jcomapi,
System.Jpeg.Jcparam,
System.Jpeg.Jcphuff,
System.Jpeg.Jcprepct,
System.Jpeg.Jcsample,
System.Jpeg.Jdapimin,
System.Jpeg.Jdapistd,
System.Jpeg.Jdatadst,
System.Jpeg.Jdatasrc,
System.Jpeg.Jdcoefct,
System.Jpeg.Jdcolor,
System.Jpeg.Jdct,
System.Jpeg.Jddctmgr,
System.Jpeg.Jdeferr,
System.Jpeg.Jdhuff,
System.Jpeg.Jdinput,
System.Jpeg.Jdmainct,
System.Jpeg.Jdmarker,
System.Jpeg.Jdmaster,
System.Jpeg.Jdmerge,
System.Jpeg.Jdphuff,
System.Jpeg.Jdpostct,
System.Jpeg.Jdsample,
System.Jpeg.Jerror,
System.Jpeg.Jfdctflt,
System.Jpeg.Jfdctfst,
System.Jpeg.Jfdctint,
System.Jpeg.Jidctflt,
System.Jpeg.Jidctfst,
System.Jpeg.Jidctint,
System.Jpeg.Jidctred,
System.Jpeg.Jinclude,
System.Jpeg.Jmemmgr,
System.Jpeg.Jmemnobs,
System.Jpeg.Jmorecfg,
System.Jpeg.Jpeglib,
System.Jpeg.Jquant1,
System.Jpeg.Jquant2,
System.Jpeg.Jutils;
{$ELSE FPC_DOTTEDUNITS}
uses
jcapimin,
jcapistd,
@ -54,6 +108,7 @@ uses
jquant1,
jquant2,
jutils;
{$ENDIF FPC_DOTTEDUNITS}
implementation

14
packages/pasjpeg/src/jcapimin.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcAPImin;
{$ENDIF FPC_DOTTEDUNITS}
{$N+}
{ This file contains application interface code for the compression half
of the JPEG library. These are the "minimum" API routines that may be
@ -17,6 +19,17 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib,
System.Jpeg.Jcomapi,
System.Jpeg.Jmemmgr,
System.Jpeg.Jcmarker;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -26,6 +39,7 @@ uses
jcomapi,
jmemmgr,
jcmarker;
{$ENDIF FPC_DOTTEDUNITS}
{ Initialization of JPEG compression objects.
Nomssi: This is a macro in the original code.

12
packages/pasjpeg/src/jcapistd.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcAPIstd;
{$ENDIF FPC_DOTTEDUNITS}
{ Original : jcapistd.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
@ -17,6 +19,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib,
System.Jpeg.Jcapimin, System.Jpeg.Jcinit;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -24,6 +35,7 @@ uses
jerror,
jpeglib,
jcapimin, jcinit;
{$ENDIF FPC_DOTTEDUNITS}

12
packages/pasjpeg/src/jccoefct.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcCoefCt;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains the coefficient buffer controller for compression.
This controller is the top level of the JPEG compressor proper.
@ -10,6 +12,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jerror,
System.Jpeg.Jdeferr,
System.Jpeg.Jutils,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -17,6 +28,7 @@ uses
jdeferr,
jutils,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ We use a full-image coefficient buffer when doing Huffman optimization,

11
packages/pasjpeg/src/jccolor.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcColor;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains input colorspace conversion routines. }
@ -8,12 +10,21 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
jdeferr,
jerror,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Module initialization routine for input colorspace conversion. }

13
packages/pasjpeg/src/jcdctmgr.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcDCTmgr;
{$ENDIF FPC_DOTTEDUNITS}
{ Original : jcdctmgr.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
@ -15,6 +17,16 @@ interface
{$N+}
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib,
System.Jpeg.Jdct, { Private declarations for DCT subsystem }
System.Jpeg.Jfdctint, System.Jpeg.Jfdctfst, System.Jpeg.Jfdctflt;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -23,6 +35,7 @@ uses
jpeglib,
jdct, { Private declarations for DCT subsystem }
jfdctint, jfdctfst, jfdctflt;
{$ENDIF FPC_DOTTEDUNITS}
{ Initialize FDCT manager. }

13
packages/pasjpeg/src/jchuff.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcHuff;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains Huffman entropy encoding routines.
@ -14,6 +16,16 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg, { longptr definition missing }
System.Jpeg.Jpeglib,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jutils,
System.Jpeg.Jinclude,
System.Jpeg.Jcomapi;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg, { longptr definition missing }
jpeglib,
@ -22,6 +34,7 @@ uses
jutils,
jinclude,
jcomapi;
{$ENDIF FPC_DOTTEDUNITS}
{ The legal range of a DCT coefficient is
-1024 .. +1023 for 8-bit data;

15
packages/pasjpeg/src/jcinit.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcInit;
{$ENDIF FPC_DOTTEDUNITS}
{ Original: jcinit.c ; Copyright (C) 1991-1997, Thomas G. Lane. }
@ -15,6 +17,18 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib,
{$ifdef C_PROGRESSIVE_SUPPORTED}
System.Jpeg.Jcphuff,
{$endif}
System.Jpeg.Jchuff, System.Jpeg.Jcmaster, System.Jpeg.Jccolor, System.Jpeg.Jcsample, System.Jpeg.Jcprepct,
System.Jpeg.Jcdctmgr, System.Jpeg.Jccoefct, System.Jpeg.Jcmainct, System.Jpeg.Jcmarker;
{$ELSE FPC_DOTTEDUNITS}
uses
jinclude,
jdeferr,
@ -25,6 +39,7 @@ uses
{$endif}
JcHuff, JcMaster, JcColor, JcSample, JcPrepCt,
JcDCTMgr, JcCoefCT, JcMainCT, JcMarker;
{$ENDIF FPC_DOTTEDUNITS}
{ Master selection of compression modules.
This is done once at the start of processing an image. We determine

14
packages/pasjpeg/src/jcmainct.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcMainCt;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains the main buffer controller for compression.
The main buffer lies between the pre-processor and the JPEG
@ -17,6 +19,17 @@ interface
{$undef FULL_MAIN_BUFFER_SUPPORTED}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
{$ifdef FULL_MAIN_BUFFER_SUPPORTED}
System.Jpeg.Jutils,
{$endif}
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -26,6 +39,7 @@ uses
jutils,
{$endif}
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Initialize main buffer controller. }

8
packages/pasjpeg/src/jcmarker.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit jcmarker;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains routines to write JPEG datastream markers. }
@ -8,9 +10,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jinclude, System.Jpeg.Jmorecfg, System.Jpeg.Jerror,
System.Jpeg.Jdeferr, System.Jpeg.Jpeglib, System.Jpeg.Jutils;
{$ELSE FPC_DOTTEDUNITS}
uses
jinclude, jmorecfg, jerror,
jdeferr, jpeglib, jutils;
{$ENDIF FPC_DOTTEDUNITS}
const

12
packages/pasjpeg/src/jcmaster.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcMaster;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains master control logic for the JPEG compressor.
These routines are concerned with parameter validation, initial setup,
@ -11,6 +13,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jutils,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -18,6 +29,7 @@ uses
jerror,
jutils,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Initialize master compression control. }

9
packages/pasjpeg/src/jcomapi.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JCOMapi;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains application interface routines that are used for both
compression and decompression. }
@ -9,10 +11,17 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Abort processing of a JPEG compression or decompression operation,
but don't destroy the object itself. }

2
packages/pasjpeg/src/jconsts.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit jconsts;
{$ENDIF FPC_DOTTEDUNITS}
interface

12
packages/pasjpeg/src/jcparam.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcParam;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains optional default-setting code for the JPEG compressor.
Applications do not have to use this file, but those that don't use it
@ -10,6 +12,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jcomapi,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -17,6 +28,7 @@ uses
jerror,
jcomapi,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Quantization table setup routines }

14
packages/pasjpeg/src/jcphuff.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcpHuff;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains Huffman entropy encoding routines for progressive JPEG.
@ -11,6 +13,17 @@ Unit JcpHuff;
interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jpeglib,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jutils,
System.Jpeg.Jcomapi,
System.Jpeg.Jchuff; { Declarations shared with System.Jpeg.Jchuff.c }
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -20,6 +33,7 @@ uses
jutils,
jcomapi,
jchuff; { Declarations shared with jchuff.c }
{$ENDIF FPC_DOTTEDUNITS}
{ Module initialization routine for progressive Huffman entropy encoding. }

12
packages/pasjpeg/src/jcprepct.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcPrepCT;
{$ENDIF FPC_DOTTEDUNITS}
{ Original : jcprepct.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
@ -14,6 +16,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jpeglib,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jinclude,
System.Jpeg.Jutils;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jpeglib,
@ -21,6 +32,7 @@ uses
jerror,
jinclude,
jutils;
{$ENDIF FPC_DOTTEDUNITS}
{GLOBAL}
procedure jinit_c_prep_controller (cinfo : j_compress_ptr;

12
packages/pasjpeg/src/jcsample.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcSample;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains downsampling routines.
@ -46,6 +48,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jutils,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -53,6 +64,7 @@ uses
jdeferr,
jerror,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Module initialization routine for downsampling.

13
packages/pasjpeg/src/jctrans.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JcTrans;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains library routines for transcoding compression,
that is, writing raw DCT coefficient arrays to an output JPEG file.
@ -10,6 +12,16 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jutils,
System.Jpeg.Jpeglib,
System.Jpeg.Jcapimin, System.Jpeg.Jcparam, System.Jpeg.Jcomapi, System.Jpeg.Jcmaster, System.Jpeg.Jchuff, System.Jpeg.Jcphuff, System.Jpeg.Jcmarker;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -18,6 +30,7 @@ uses
jutils,
jpeglib,
jcapimin, jcparam, jcomapi, jcmaster, jchuff, jcphuff, jcmarker;
{$ENDIF FPC_DOTTEDUNITS}
{ Compression initialization for writing raw-coefficient data.
Before calling this, all parameters and a data destination must be set up.

12
packages/pasjpeg/src/jdapimin.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdAPImin;
{$ENDIF FPC_DOTTEDUNITS}
{$N+} { Nomssi: cinfo^.output_gamma }
@ -18,6 +20,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib,
System.Jpeg.Jmemmgr, System.Jpeg.Jdmarker, System.Jpeg.Jdinput, System.Jpeg.Jcomapi;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -25,6 +36,7 @@ uses
jerror,
jpeglib,
jmemmgr, jdmarker, jdinput, jcomapi;
{$ENDIF FPC_DOTTEDUNITS}
{ Nomssi }
procedure jpeg_create_decompress(cinfo : j_decompress_ptr);

12
packages/pasjpeg/src/jdapistd.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdAPIstd;
{$ENDIF FPC_DOTTEDUNITS}
{ Original : jdapistd.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
@ -17,6 +19,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib,
System.Jpeg.Jdmaster;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -24,6 +35,7 @@ uses
jerror,
jpeglib,
jdmaster;
{$ENDIF FPC_DOTTEDUNITS}
{ Read some scanlines of data from the JPEG decompressor.

11
packages/pasjpeg/src/jdatadst.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JDataDst;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains compression data destination routines for the case of
emitting JPEG data to a file (or any stdio stream). While these routines
@ -15,12 +17,21 @@ interface
{$I jconfig.inc}
{ this is not a core library module, so it doesn't define JPEG_INTERNALS }
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jpeglib,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jpeglib,
jinclude,
jdeferr,
jerror;
{$ENDIF FPC_DOTTEDUNITS}
{ Prepare for output to a stdio stream.
The caller must have already opened the stream, and is responsible

12
packages/pasjpeg/src/jdatasrc.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JDataSrc;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains decompression data source routines for the case of
reading JPEG data from a file (or any stdio stream). While these routines
@ -15,6 +17,15 @@ interface
{$I jconfig.inc}
{ this is not a core library module, so it doesn't define JPEG_INTERNALS }
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jpeglib,
System.Jpeg.Jdmarker,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -22,6 +33,7 @@ uses
jdmarker,
jdeferr,
jerror;
{$ENDIF FPC_DOTTEDUNITS}
{ Prepare for input from a stdio stream.

12
packages/pasjpeg/src/jdcoefct.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JDCoefCt;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains the coefficient buffer controller for decompression.
This controller is the top level of the JPEG decompressor proper.
@ -13,6 +15,15 @@ Unit JDCoefCt;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jutils,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -20,6 +31,7 @@ uses
jerror,
jutils,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{GLOBAL}

12
packages/pasjpeg/src/jdcolor.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdColor;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains output colorspace conversion routines. }
@ -8,6 +10,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jutils,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -15,6 +26,7 @@ uses
jdeferr,
jerror,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Module initialization routine for output colorspace conversion. }

7
packages/pasjpeg/src/jdct.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit Jdct;
{$ENDIF FPC_DOTTEDUNITS}
{ Original: jdct.h; Copyright (C) 1994-1996, Thomas G. Lane. }
@ -12,8 +14,13 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg;
{$ENDIF FPC_DOTTEDUNITS}
{ A forward DCT routine is given a pointer to a work area of type DCTELEM[];

19
packages/pasjpeg/src/jddctmgr.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdDctMgr;
{$ENDIF FPC_DOTTEDUNITS}
{ Original : jddctmgr.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
@ -17,6 +19,22 @@ interface
{$N+}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib,
System.Jpeg.Jdct, { Private declarations for DCT subsystem }
System.Jpeg.Jidctfst,
{$IFDEF BASM}
System.Jpeg.Jidctasm,
{$ELSE}
System.Jpeg.Jidctint,
{$ENDIF}
System.Jpeg.Jidctflt, System.Jpeg.Jidctred;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -31,6 +49,7 @@ uses
jidctint,
{$ENDIF}
jidctflt, JIDctRed;
{$ENDIF FPC_DOTTEDUNITS}

2
packages/pasjpeg/src/jdeferr.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdefErr;
{$ENDIF FPC_DOTTEDUNITS}
{ This file defines the error and message codes for the cjpeg/djpeg
applications. These strings are not needed as part of the JPEG library

12
packages/pasjpeg/src/jdhuff.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdHuff;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains declarations for Huffman entropy decoding routines
that are shared between the sequential decoder (jdhuff.c) and the
@ -20,6 +22,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jutils,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -27,6 +38,7 @@ uses
jerror,
jutils,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Declarations shared with jdphuff.c }

11
packages/pasjpeg/src/jdinput.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdInput;
{$ENDIF FPC_DOTTEDUNITS}
{ Original: jdinput.c ; Copyright (C) 1991-1997, Thomas G. Lane. }
@ -14,12 +16,21 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jpeglib,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jinclude, System.Jpeg.Jutils;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jpeglib,
jdeferr,
jerror,
jinclude, jutils;
{$ENDIF FPC_DOTTEDUNITS}
{ Initialize the input controller module.
This is called only once, when the decompression object is created. }

14
packages/pasjpeg/src/jdmainct.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdMainCt;
{$ENDIF FPC_DOTTEDUNITS}
{ This file is part of the Independent JPEG Group's software.
@ -107,6 +109,17 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
{$ifdef QUANT_2PASS_SUPPORTED}
System.Jpeg.Jquant2,
{$endif}
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -116,6 +129,7 @@ uses
jdeferr,
jerror,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{GLOBAL}

17
packages/pasjpeg/src/jdmarker.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdMarker;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains routines to decode JPEG datastream markers.
Most of the complexity arises from our desire to support input
@ -16,6 +18,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jcomapi,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -23,6 +34,7 @@ uses
jerror,
jcomapi,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
const { JPEG marker codes }
M_SOF0 = $c0;
@ -152,8 +164,13 @@ Var
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jutils;
{$ELSE FPC_DOTTEDUNITS}
uses
jutils;
{$ENDIF FPC_DOTTEDUNITS}
{ At all times, cinfo1.src.next_input_byte and .bytes_in_buffer reflect
the current restart point; we update them only when we have reached a

22
packages/pasjpeg/src/jdmaster.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdMaster;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains master control logic for the JPEG decompressor.
These routines are concerned with selecting the modules to be executed
@ -11,6 +13,25 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jutils,
System.Jpeg.Jerror,
System.Jpeg.Jdeferr,
System.Jpeg.Jdcolor, System.Jpeg.Jdsample, System.Jpeg.Jdpostct, System.Jpeg.Jddctmgr, System.Jpeg.Jdphuff, System.Jpeg.Jdhuff, System.Jpeg.Jdcoefct, System.Jpeg.Jdmainct,
{$ifdef QUANT_1PASS_SUPPORTED}
System.Jpeg.Jquant1,
{$endif}
{$ifdef QUANT_2PASS_SUPPORTED}
System.Jpeg.Jquant2,
{$endif}
{$ifdef UPSAMPLE_MERGING_SUPPORTED}
System.Jpeg.Jdmerge,
{$endif}
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -28,6 +49,7 @@ uses
jdmerge,
{$endif}
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Compute output image dimensions and related values.

10
packages/pasjpeg/src/jdmerge.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdMerge;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains code for merged upsampling/color conversion.
@ -32,11 +34,19 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jpeglib,
System.Jpeg.Jutils;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
jpeglib,
jutils;
{$ENDIF FPC_DOTTEDUNITS}
{ Module initialization routine for merged upsampling/color conversion.

13
packages/pasjpeg/src/jdphuff.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdpHuff;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains Huffman entropy decoding routines for progressive JPEG.
@ -14,6 +16,16 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jpeglib,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jutils,
System.Jpeg.Jdhuff; { Declarations shared with System.Jpeg.Jdhuff.c }
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -22,6 +34,7 @@ uses
jerror,
jutils,
jdhuff; { Declarations shared with jdhuff.c }
{$ENDIF FPC_DOTTEDUNITS}
{GLOBAL}

12
packages/pasjpeg/src/jdpostct.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdPostCt;
{$ENDIF FPC_DOTTEDUNITS}
{ Original: jdpostct.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
@ -16,6 +18,15 @@ Unit JdPostCt;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jutils,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -23,6 +34,7 @@ uses
jerror,
jutils,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{ Initialize postprocessing controller. }

12
packages/pasjpeg/src/jdsample.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdSample;
{$ENDIF FPC_DOTTEDUNITS}
{ Original: jdsample.c; Copyright (C) 1991-1996, Thomas G. Lane. }
@ -18,6 +20,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jutils,
System.Jpeg.Jpeglib,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -25,6 +36,7 @@ uses
jpeglib,
jdeferr,
jerror;
{$ENDIF FPC_DOTTEDUNITS}
{ Pointer to routine to upsample a single component }

12
packages/pasjpeg/src/jdtrans.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JdTrans;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains library routines for transcoding decompression,
that is, reading raw DCT coefficient arrays from an input JPEG file.
@ -10,6 +12,15 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jdeferr,
System.Jpeg.Jerror,
System.Jpeg.Jpeglib,
System.Jpeg.Jdhuff, System.Jpeg.Jdphuff, System.Jpeg.Jdcoefct;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
@ -17,6 +28,7 @@ uses
jerror,
jpeglib,
jdhuff, jdphuff, jdcoefct;
{$ENDIF FPC_DOTTEDUNITS}
{ Read the coefficient arrays from a JPEG file.
jpeg_read_header must be completed before calling this.

21
packages/pasjpeg/src/jerror.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit Jerror;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains simple error-reporting and trace-message routines.
These are suitable for Unix-like systems and others where writing to
@ -12,10 +14,17 @@ Unit Jerror;
{$i jconfig.inc}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jdeferr,
System.Jpeg.Jpeglib;
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jdeferr,
jpeglib;
{$ENDIF FPC_DOTTEDUNITS}
{
jversion;
}
@ -91,6 +100,17 @@ implementation
{.$DEFINE NO_FORMAT}
{$ENDIF}
{$IFDEF FPC_DOTTEDUNITS}
uses
{$IFNDEF NO_FORMAT}
{$IFDEF VER70}
drivers, { Turbo Vision unit with FormatStr }
{$ELSE}
System.SysUtils, { Delphi Unit with Format() }
{$ENDIF}
{$ENDIF}
System.Jpeg.Jcomapi;
{$ELSE FPC_DOTTEDUNITS}
uses
{$IFNDEF NO_FORMAT}
{$IFDEF VER70}
@ -100,6 +120,7 @@ uses
{$ENDIF}
{$ENDIF}
jcomapi;
{$ENDIF FPC_DOTTEDUNITS}
{ Error exit handler: must not return to caller.

10
packages/pasjpeg/src/jfdctflt.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JFDctFlt;
{$ENDIF FPC_DOTTEDUNITS}
{$N+}
{ This file contains a floating-point implementation of the
@ -35,11 +37,19 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jpeglib,
System.Jpeg.Jdct; { Private declarations for DCT subsystem }
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
jpeglib,
jdct; { Private declarations for DCT subsystem }
{$ENDIF FPC_DOTTEDUNITS}
{ Perform the forward DCT on one block of samples.}

10
packages/pasjpeg/src/jfdctfst.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JFDctFst;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains a fast, not so accurate integer implementation of the
forward DCT (Discrete Cosine Transform).
@ -31,11 +33,19 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jpeglib,
System.Jpeg.Jdct; { Private declarations for DCT subsystem }
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
jpeglib,
jdct; { Private declarations for DCT subsystem }
{$ENDIF FPC_DOTTEDUNITS}
{ Perform the forward DCT on one block of samples. }

11
packages/pasjpeg/src/jfdctint.pas
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
Unit JFDctInt;
{$ENDIF FPC_DOTTEDUNITS}
{ This file contains a slow-but-accurate integer implementation of the
@ -24,12 +26,21 @@ interface
{$I jconfig.inc}
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Jpeg.Jmorecfg,
System.Jpeg.Jinclude,
System.Jpeg.Jutils,
System.Jpeg.Jpeglib,
System.Jpeg.Jdct; { Private declarations for DCT subsystem }
{$ELSE FPC_DOTTEDUNITS}
uses
jmorecfg,
jinclude,
jutils,
jpeglib,
jdct; { Private declarations for DCT subsystem }
{$ENDIF FPC_DOTTEDUNITS}
{ Perform the forward DCT on one block of samples. }

Some files were not shown because too many files have changed in this diff Show More