[JEDI.NET-commits] tools/JediDoc JediDoc.Console.dpr,1.1,1.2

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/tools/JediDoc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4527/tools/JediDoc

Modified Files:
	JediDoc.Console.dpr 
Log Message:
Added project file support.

Index: JediDoc.Console.dpr
===================================================================
RCS file: /cvsroot/jedidotnet/tools/JediDoc/JediDoc.Console.dpr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JediDoc.Console.dpr	28 Mar 2005 12:26:16 -0000	1.1
--- JediDoc.Console.dpr	30 Mar 2005 14:08:14 -0000	1.2
***************
*** 71,75 ****
      Console.WriteLine('no');
  
!   Console.Write('  Unit-based docs? ');
    if Settings.ExecutionType and Settings.ExecutionTypes.UnitGeneration = Settings.ExecutionTypes.UnitGeneration then
      Console.WriteLine('yes')
--- 71,75 ----
      Console.WriteLine('no');
  
!   Console.Write('  Generate unit-based docs? ');
    if Settings.ExecutionType and Settings.ExecutionTypes.UnitGeneration = Settings.ExecutionTypes.UnitGeneration then
      Console.WriteLine('yes')
***************
*** 77,81 ****
      Console.WriteLine('no');
  
!   Console.Write('  Assembly-based docs? ');
    if Settings.ExecutionType and Settings.ExecutionTypes.AssemblyGeneration =
        Settings.ExecutionTypes.AssemblyGeneration then
--- 77,81 ----
      Console.WriteLine('no');
  
!   Console.Write('  Generate assembly-based docs? ');
    if Settings.ExecutionType and Settings.ExecutionTypes.AssemblyGeneration =
        Settings.ExecutionTypes.AssemblyGeneration then
***************
*** 84,87 ****
--- 84,99 ----
      Console.WriteLine('no');
  
+   Console.Write('  Save project file? ');
+   if Settings.ExecutionType and Settings.ExecutionTypes.SaveProject = Settings.ExecutionTypes.SaveProject then
+   begin
+     Console.Write('yes');
+     if Settings.SaveAsFileList then
+       Console.WriteLine(', complete file list.')
+     else
+       Console.WriteLine(', specified masks only.')
+   end
+   else
+     Console.WriteLine('no');
+ 
    Console.WriteLine;
  end;
***************
*** 89,93 ****
  procedure ParseProject;
  var
!   enum: IEnumerator;
    hasFile: Boolean;
  begin
--- 101,105 ----
  procedure ParseProject;
  var
!   filename: string;
    hasFile: Boolean;
  begin
***************
*** 95,106 ****
    if not Settings.Quiet then
      Console.WriteLine('Processing assemblies...');
-   enum := Settings.ProjectContents.Assemblies.GetFileEnumerator;
    hasFile := False;
!   while enum.MoveNext do
    begin
      hasFile := True;
      if not Settings.Quiet then
!       Console.WriteLine('  ' + Path.GetFileNameWithoutExtension(string(enum.Current)));
!     docs.ProcessAssembly(string(enum.Current));
    end;
    if not hasFile then
--- 107,117 ----
    if not Settings.Quiet then
      Console.WriteLine('Processing assemblies...');
    hasFile := False;
!   for filename in Settings.ProjectContents.Assemblies.Files do
    begin
      hasFile := True;
      if not Settings.Quiet then
!       Console.WriteLine('  ' + Path.GetFileNameWithoutExtension(filename));
!     docs.ProcessAssembly(filename);
    end;
    if not hasFile then
***************
*** 109,124 ****
      Halt(50);
    end;
!   assyPath := Path.GetDirectoryName(Settings.ProjectContents.Assemblies[0]);
  
    if not Settings.Quiet then
      Console.WriteLine('Processing xml files...');
-   enum := Settings.ProjectContents.XmlFiles.GetFileEnumerator;
    hasFile := False;
!   while enum.MoveNext do
    begin
      hasFile := True;
      if not Settings.Quiet then
!       Console.WriteLine('  ' + Path.GetFileNameWithoutExtension(string(enum.Current)));
!     XmlReflector.ProcessXml(string(enum.Current), docs);
    end;
    if not hasFile then
--- 120,134 ----
      Halt(50);
    end;
!   assyPath := Path.GetDirectoryName(string(IList(Settings.ProjectContents.Assemblies.Files)[0]));
  
    if not Settings.Quiet then
      Console.WriteLine('Processing xml files...');
    hasFile := False;
!   for filename in Settings.ProjectContents.XmlFiles.Files do
    begin
      hasFile := True;
      if not Settings.Quiet then
!       Console.WriteLine('  ' + Path.GetFileNameWithoutExtension(filename));
!     XmlReflector.ProcessXml(filename, docs);
    end;
    if not hasFile then
***************
*** 127,131 ****
      Halt(50);
    end;
!   xmlPath := Path.GetDirectoryName(Settings.ProjectContents.XmlFiles[0]);
  
    if not Settings.Quiet then
--- 137,141 ----
      Halt(50);
    end;
!   xmlPath := Path.GetDirectoryName(string(IList(Settings.ProjectContents.XmlFiles.Files)[0]));
  
    if not Settings.Quiet then
***************
*** 135,140 ****
  procedure SaveProject;
  begin
!   Console.WriteLine('Project files are not yet supported.');
!   Halt(80);
  end;
  
--- 145,151 ----
  procedure SaveProject;
  begin
!   if not Settings.Quiet then
!     Console.WriteLine('Saving as project "{0}"...', Settings.SaveAsProject);
!   Settings.ProjectContents.Save(Settings.SaveAsProject, Settings.SaveAsFileList);
  end;