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

* Dotted filenames for package xforms

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:02 +01:00
parent 54d89d43ce
commit ba290bb358
6 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/xforms/fpmake.pp
View File

@ -32,7 +32,7 @@ begin
begin
AddInclude('cursorfont.inc');
end;
T:=P.Targets.AddProgram('fd2pascal.pp');
// T:=P.Targets.AddProgram('fd2pascal.pp');
P.Sources.AddSrc('README.txt');

3
packages/xforms/namespaced/Api.Fd2pascal.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Fd2pascal;
{$DEFINE FPC_DOTTEDUNITS}
{$i fd2pascal.pp}

3
packages/xforms/namespaced/Api.Xforms.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Xforms;
{$DEFINE FPC_DOTTEDUNITS}
{$i xforms.pp}

4
packages/xforms/namespaces.lst Normal file
View File

@ -0,0 +1,4 @@
src/xforms.pp=namespaced/Api.Xforms.pp
{s*:src/}=namespaced/
{i+:src/}
src/fd2pascal.pp=namespaced/Api.Fd2pascal.pp

7
packages/xforms/src/fd2pascal.pp
View File

@ -21,10 +21,17 @@ Program fd2pascal;
--------------------------------------------------------------------------- }
{$IFDEF FPC_DOTTEDUNITS}
uses
UnixApi.Base,
UnixApi.Unix,
System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses
baseunix,
Unix,
sysutils;
{$ENDIF FPC_DOTTEDUNITS}
Const RevString = '$Revision: 1.5 $';
NrOptions = 4;

7
packages/xforms/src/xforms.pp
View File

@ -1,14 +1,21 @@
{
}
{$IFNDEF FPC_DOTTEDUNITS}
Unit xforms;
{$ENDIF FPC_DOTTEDUNITS}
Interface
{$linklib forms}
{$linklib c}
{$linklib m}
{$IFDEF FPC_DOTTEDUNITS}
uses
Api.X11.X,Api.X11.Xlib,Api.X11.Xutil,Api.X11.Xresource;
{$ELSE FPC_DOTTEDUNITS}
uses
x,xlib,xutil,xresource;
{$ENDIF FPC_DOTTEDUNITS}
const
FL_VERSION=0;