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

* use iterarive numbering to find first usable libaspell.so.xx on linux

Browse Source 
* don't use specific libaspell.so.xx on BSDs (they have dev by default)

git-svn-id: trunk@12001 -
This commit is contained in:
Almindor 2008-10-30 22:25:40 +00:00
parent 193b658325
commit da3718b74b
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,15 +16,15 @@ uses
cTypes;
{$IFDEF Linux}
const libaspell = '/usr/lib/libaspell.so.15';
const libaspell = '/usr/lib/libaspell.so';
{$ENDIF}
{$IFDEF FreeBSD}
const libaspell = '/usr/local/lib/libaspell.so.15';
const libaspell = '/usr/local/lib/libaspell.so';
{$ENDIF}
{$IFDEF darwin}
const libaspell = '/opt/local/lib/libaspell.15.dylib';
const libaspell = '/opt/local/lib/libaspell.dylib';
{$ENDIF}
{$IFDEF windows}
@ -1050,6 +1050,10 @@ var
bversion, path: ansistring;
version: dword;
{$ENDIF}
{$ifdef linux}
i: Integer;
s: string;
{$endif}
begin
aspell_init := True;
libname := libn;
@ -1067,11 +1071,20 @@ begin
LibHandle := LoadLibrary(libname);
{$ifdef darwin}
if LibHandle = 0 then begin
libname := '/sw/lib/libaspell.15.dylib';
libname := '/sw/lib/libaspell.dylib';
LibHandle := LoadLibrary(libname);
end;
{$endif}
{$ifdef linux}
if LibHandle = 0 then begin
for i := 15 to 30 do begin // TODO: make sure to up this when required
str(i, s);
libname := libn + '.' + s;
LibHandle := LoadLibrary(libname);
end;
{$endif}
if LibHandle = 0 then
Exit(False);