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

libman,win, automatically adds phobos/druntime

This commit is contained in:
Basile Burg 2015-05-08 18:46:46 +02:00
parent acb75c6ec0
commit d6113bd021
1 changed files with 35 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/ce_libman.pas
View File

@ -31,8 +31,6 @@ type
private
fCol: TCollection;
procedure setCol(const aValue: TCollection);
protected
procedure afterLoad; override;
published
property libraries: TCollection read fCol write setCol;
public
@ -56,11 +54,45 @@ implementation
constructor TLibraryManager.create(aOwner: TComponent);
var
fName: string;
{$IFDEF WINDOWS}
fDmdPath: string;
{$ENDIF}
begin
inherited;
fCol := TCollection.Create(TLibraryItem);
fname := getCoeditDocPath + libFname;
if fileExists(fname) then loadFromFile(fname);
if fileExists(fname) then
loadFromFile(fname);
if fCol.Count = 0 then
begin
{$IFDEF WINDOWS}
fDmdPath := ExeSearch('dmd.exe');
if FileExists(fDmdPath) then
begin
// add phobos
fname := ExtractFileDir(fDmdPath);
fname := ExtractFileDir(fname);
with TLibraryItem(fCol.Add) do begin
libAlias := 'phobos';
libFile := fname + '\lib\phobos.lib';
libSourcePath := ExtractFileDir(fname) + '\src\phobos';
end;
// add druntime (no lib - only for DCD)
fname := ExtractFileDir(fDmdPath);
fname := ExtractFileDir(fname);
with TLibraryItem(fCol.Add) do begin
libAlias := 'druntime';
libFile := '';
libSourcePath := ExtractFileDir(fname) + '\src\druntime\import';
end;
end;
{$ENDIF}
// TODO-cfeature: add linux paths for druntime/phobos
{$IFDEF LINUX}
{$ENDIF}
end;
updateDCD
end;
destructor TLibraryManager.destroy;
@ -160,11 +192,6 @@ begin
end;
end;
procedure TLibraryManager.afterLoad;
begin
updateDCD;
end;
initialization
registerClasses([TLibraryManager, TLibraryItem]);
LibMan := TLibraryManager.create(nil);