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

* Dotted filenames for package aspell

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:07 +01:00
parent 325b3e4d42
commit 83e5ae792e
7 changed files with 44 additions and 1 deletions

3
packages/aspell/namespaced/Api.Aspell.pp Normal file
View File

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

3
packages/aspell/namespaced/Api.Aspelldyn.pp Normal file
View File

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

3
packages/aspell/namespaced/Api.Spellcheck.pp Normal file
View File

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

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

@ -0,0 +1,5 @@
src/aspell.pp=namespaced/Api.Aspell.pp
{s*:src/}=namespaced/
{i+:src/}
src/aspelldyn.pp=namespaced/Api.Aspelldyn.pp
src/spellcheck.pp=namespaced/Api.Spellcheck.pp

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

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit aspell;
{$ENDIF FPC_DOTTEDUNITS}
{ * This file is header translation of The New Aspell
* Copyright (C) 2001-2002 by Kevin Atkinson under the GNU LGPL
@ -12,8 +14,13 @@ unit aspell;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses
cTypes;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF UNIX}
const libaspell = 'aspell';

17
packages/aspell/src/aspelldyn.pp
View File

@ -1,4 +1,6 @@
unit aspelldyn;
{$IFNDEF FPC_DOTTEDUNITS}
unit aspelldyn;
{$ENDIF FPC_DOTTEDUNITS}
{ * This file is header translation of The New Aspell
* Copyright (C) 2001-2002 by Kevin Atkinson under the GNU LGPL
@ -12,8 +14,13 @@
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses
cTypes;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF UNIX}
// TODO: check if it works pathless in beosOB
@ -443,11 +450,19 @@ var
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
{$IFDEF WINDOWS}
Windows, SysUtils, Classes,
{$ENDIF}
System.DynLibs;
{$ELSE FPC_DOTTEDUNITS}
uses
{$IFDEF WINDOWS}
Windows, SysUtils, Classes,
{$ENDIF}
dynlibs;
{$ENDIF FPC_DOTTEDUNITS}
var
LibHandle: TLibHandle = 0;

7
packages/aspell/src/spellcheck.pp
View File

@ -1,4 +1,6 @@
{$IFNDEF FPC_DOTTEDUNITS}
unit SpellCheck;
{$ENDIF FPC_DOTTEDUNITS}
{ Simple unit to simplify/OOP-ize pascal-style the aspell interface. Currently
very limited, will be expanded eventually. Use like you wish. }
@ -7,8 +9,13 @@ unit SpellCheck;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.SysUtils, System.Classes, Api.Aspell;
{$ELSE FPC_DOTTEDUNITS}
uses
SysUtils, Classes, Aspell;
{$ENDIF FPC_DOTTEDUNITS}
type
TSuggestionArray = array of AnsiString;