Changeset 38 for trunk/IDE/UProject.pas

Timestamp:

Feb 25, 2012, 6:04:21 PM (12 years ago)

Author:

chronos

Message:

• Modified: Compiler now require source file list which should be composed of project files and project dependency packages files.

Location:

trunk/IDE

Files:

• . (modified) (1 prop)
• UProject.pas (modified) (3 diffs)

trunk/IDE

@@ -5 +5 @@
 Transpascal.exe
 heaptrclog.trc
+Transpascal

@@ -5 +5 @@
 Transpascal.exe
 heaptrclog.trc
+Transpascal

trunk/IDE/UProject.pas

@@ -53 +53 @@
   TProjectGroup = class(TProjectNode)
     Items: TListProjectNode;
+    procedure DumpFileList(Files: TListString);
     constructor Create;
     destructor Destroy; override;
@@ -88 +89 @@
 { TProjectGroup }
 
+procedure TProjectGroup.DumpFileList(Files: TListString);
+var
+  I: Integer;
+begin
+  for I := 0 to Items.Count - 1 do
+  if TProjectNode(Items[I]) is TProjectGroup then
+    TProjectGroup(Items[I]).DumpFileList(Files)
+    else Files.Add(GetDir(True) + TProjectFile(Items[I]).Name);
+end;
+
 constructor TProjectGroup.Create;
 begin
@@ -230 +241 @@
 function TProjectNode.GetDir(IncludeRoot: Boolean = False): string;
 begin
-  if Assigned(Parent) then Result := Parent.GetDir(IncludeRoot) + Name + '/'
-  else Result := Name + '/';
+  if Assigned(Parent) then Result := Parent.GetDir(IncludeRoot) + Name + DirectorySeparator
+  else Result := Name + DirectorySeparator;
 end;
 

@@ -5 +5 @@
 Transpascal.exe
 heaptrclog.trc
+Transpascal