paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 17:10:28 +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 Unzips deflated, imploded, shrunk and stored files
** COMPATIBLE WITH ** COMPATIBLE WITH
@ -64,10 +66,17 @@ INTERFACE
{$R-} {No range checking} {$R-} {No range checking}
{$IFDEF FPC_DOTTEDUNITS}
USES
System.Strings,
TP.DOS,
System.Ziptypes;
{$ELSE FPC_DOTTEDUNITS}
USES USES
strings, strings,
dos, dos,
ziptypes; ziptypes;
{$ENDIF FPC_DOTTEDUNITS}
{**********************************************************************} {**********************************************************************}
{**********************************************************************} {**********************************************************************}

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

@ -1,6 +1,8 @@
{ {
} }
{$IFNDEF FPC_DOTTEDUNITS}
unit UnzipDLL; unit UnzipDLL;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF VIRTUALPASCAL} {$IFDEF VIRTUALPASCAL}
{$Cdecl+,AlignRec-,OrgName+} {$Cdecl+,AlignRec-,OrgName+}
@ -12,8 +14,13 @@ unit UnzipDLL;
interface interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Ziptypes;
{$ELSE FPC_DOTTEDUNITS}
uses uses
ZipTypes; ZipTypes;
{$ENDIF FPC_DOTTEDUNITS}
const const
UnzipErr: longint = 0; UnzipErr: longint = 0;
@ -36,6 +43,25 @@ const
implementation 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 uses
{$IFDEF OS2} {$IFDEF OS2}
{$IFDEF FPC} {$IFDEF FPC}
@ -53,6 +79,7 @@ uses
{$ENDIF WIN32} {$ENDIF WIN32}
{$ENDIF OS2} {$ENDIF OS2}
Unzip51g, Dos; Unzip51g, Dos;
{$ENDIF FPC_DOTTEDUNITS}
type type
UzpMainFunc = function (ArgC: longint; var ArgV: TArgV): longint; cdecl; 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; UNIT ZipTypes;
{$ENDIF FPC_DOTTEDUNITS}
{ {
Type definitions for UNZIP Type definitions for UNZIP
* original version by Christian Ghisler * original version by Christian Ghisler