forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

nothinf

This commit is contained in:
Basile Burg 2015-03-21 05:53:28 +01:00
parent c8f83e1140
commit f1e4466693
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ce_libman.pas
View File

@ -39,8 +39,8 @@ type
constructor create(aOwner: TComponent); override; constructor create(aOwner: TComponent); override;
destructor destroy; override; destructor destroy; override;
// //
procedure getLibFiles(const someAliases, aList: TStrings); procedure getLibFiles(someAliases, aList: TStrings);
procedure getLibSources(const someAliases, aList: TStrings); procedure getLibSources(someAliases, aList: TStrings);
// //
procedure updateDCD; procedure updateDCD;
end; end;
@ -79,10 +79,10 @@ end;
procedure TLibraryManager.updateDCD; procedure TLibraryManager.updateDCD;
var var
itm: TLibraryItem; itm: TLibraryItem;
i: NativeInt; i: Integer;
begin begin
if not DcdWrapper.available then exit; if not DcdWrapper.available then exit;
// note: new items are directly handled but removed ones still in cache until next cession. // note: new items are directly handled but removed ones still in cache until server restarts.
for i := 0 to fCol.Count-1 do for i := 0 to fCol.Count-1 do
begin begin
itm := TLibraryItem(fCol.Items[i]); itm := TLibraryItem(fCol.Items[i]);
@ -94,11 +94,11 @@ end;
* the caller gets all the *.lib/*.a files in aList if someAliases is nil * the caller gets all the *.lib/*.a files in aList if someAliases is nil
* otherwise the static libs selected by the aliases in someAliases. * otherwise the static libs selected by the aliases in someAliases.
*) *)
procedure TLibraryManager.getLibFiles(const someAliases, aList: TStrings); procedure TLibraryManager.getLibFiles(someAliases, aList: TStrings);
var var
itm: TLibraryItem; itm: TLibraryItem;
lst: TStringList; lst: TStringList;
i, j: NativeInt; i,j: Integer;
dir: string; dir: string;
begin begin
for i := 0 to fCol.Count-1 do for i := 0 to fCol.Count-1 do
@ -138,12 +138,12 @@ end;
(** (**
* the caller gets all the paths were are located the lib sources in aList if someAliases is nil * the caller gets all the paths were are located the lib sources in aList if someAliases is nil
* otherwise the paths were are located the lib sources selected by the aliases in someAliases. * otherwise the paths where are located the lib sources selected by the aliases in someAliases.
*) *)
procedure TLibraryManager.getLibSources(const someAliases, aList: TStrings); procedure TLibraryManager.getLibSources(someAliases, aList: TStrings);
var var
itm: TLibraryItem; itm: TLibraryItem;
i: NativeInt; i: Integer;
begin begin
for i := 0 to fCol.Count-1 do for i := 0 to fCol.Count-1 do
begin begin