added TSvnPropInfo class to hold svn proplist output

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@112 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/svn/svncommand.pas

@@ -39,6 +39,8 @@ uses
   FileUtil;
 
 function ExecuteSvnCommand(const Command: string; Output: TStream): integer;
+function ExecuteSvnCommand(const Command: string): integer;
+procedure DumpStream(const AStream: TStream);
 
 var
   SvnExecutable: string;
@@ -95,5 +97,29 @@ begin
   end;
 end;
 
+function ExecuteSvnCommand(const Command: string): integer;
+var
+  Output: TMemoryStream;
+begin
+  Output := TMemoryStream.Create;
+  try
+    Result := ExecuteSvnCommand(Command, Output);
+  finally
+    Output.Free;
+  end;
+end;
+
+procedure DumpStream(const AStream: TStream);
+var
+  lines: TStrings;
+begin
+  lines := TStringList.Create;
+  AStream.Position := 0;
+  lines.LoadFromStream(AStream);
+  writeln(lines.Text);
+  lines.Free;
+end;
+
+
 end.