paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 13:38:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package unzip

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:57 +01:00
parent 2c6d0fb7f2
commit b3dad1f6b1
7 changed files with 53 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/unzip/namespaced/System.Unzip51g.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.Unzip51g;
{$DEFINE FPC_DOTTEDUNITS}
{$i unzip51g.pp}

3
packages/unzip/namespaced/System.Unzipdll.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.Unzipdll;
{$DEFINE FPC_DOTTEDUNITS}
{$i unzipdll.pp}

3
packages/unzip/namespaced/System.Ziptypes.pp Normal file
View File

@ -0,0 +1,3 @@
unit System.Ziptypes;
{$DEFINE FPC_DOTTEDUNITS}
{$i ziptypes.pp}

5
packages/unzip/namespaces.lst Normal file
View File

@ -0,0 +1,5 @@
src/unzipdll.pp=namespaced/System.Unzipdll.pp
{s*:src/}=namespaced/
{i+:src/}
src/ziptypes.pp=namespaced/System.Ziptypes.pp
src/unzip51g.pp=namespaced/System.Unzip51g.pp

11
packages/unzip/src/unzip51g.pp
View File

@ -1,6 +1,8 @@
{
}
UNIT Unzip51g;
{$IFNDEF FPC_DOTTEDUNITS}
unit Unzip51g;
{$ENDIF FPC_DOTTEDUNITS}
{
Unzips deflated, imploded, shrunk and stored files
** COMPATIBLE WITH
@ -64,10 +66,17 @@ INTERFACE
{$R-} {No range checking}
{$IFDEF FPC_DOTTEDUNITS}
USES
System.Strings,
TP.DOS,
System.Ziptypes;
{$ELSE FPC_DOTTEDUNITS}
USES
strings,
dos,
ziptypes;
{$ENDIF FPC_DOTTEDUNITS}
{**********************************************************************}
{**********************************************************************}

27
packages/unzip/src/unzipdll.pp
View File

@ -1,6 +1,8 @@
{
}
{$IFNDEF FPC_DOTTEDUNITS}
unit UnzipDLL;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF VIRTUALPASCAL}
{$Cdecl+,AlignRec-,OrgName+}
@ -12,8 +14,13 @@ unit UnzipDLL;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Ziptypes;
{$ELSE FPC_DOTTEDUNITS}
uses
ZipTypes;
{$ENDIF FPC_DOTTEDUNITS}
const
UnzipErr: longint = 0;
@ -36,6 +43,25 @@ const
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
{$IFDEF OS2}
{$IFDEF FPC}
DosCalls,
{$ELSE FPC}
{$IFDEF VirtualPascal}
OS2Base,
{$ELSE VirtualPascal}
BseDos,
{$ENDIF VirtualPascal}
{$ENDIF FPC}
{$ELSE}
{$IFDEF WIN32}
Windows,
{$ENDIF WIN32}
{$ENDIF OS2}
System.Unzip51g, TP.DOS;
{$ELSE FPC_DOTTEDUNITS}
uses
{$IFDEF OS2}
{$IFDEF FPC}
@ -53,6 +79,7 @@ uses
{$ENDIF WIN32}
{$ENDIF OS2}
Unzip51g, Dos;
{$ENDIF FPC_DOTTEDUNITS}
type
UzpMainFunc = function (ArgC: longint; var ArgV: TArgV): longint; cdecl;

2
packages/unzip/src/ziptypes.pp
View File

@ -1,6 +1,8 @@
{
}
{$IFNDEF FPC_DOTTEDUNITS}
UNIT ZipTypes;
{$ENDIF FPC_DOTTEDUNITS}
{
Type definitions for UNZIP
* original version by Christian Ghisler