jcl-checkins-diff Mailing List for JEDI Code Library (Page 47)

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Revision: 2742
          http://jcl.svn.sourceforge.net/jcl/?rev=2742&view=rev
Author:   outchy
Date:     2009-04-22 07:16:06 +0000 (Wed, 22 Apr 2009)

Log Message:
-----------
Unicode compatibility.
Reduce the numbers of calls to the subversion executable.

Modified Paths:
--------------
    trunk/thirdparty/svn_cleaner/SvnCleaner.dpr

Modified: trunk/thirdparty/svn_cleaner/SvnCleaner.dpr
===================================================================

--- trunk/thirdparty/svn_cleaner/SvnCleaner.dpr	2009-04-20 23:18:19 UTC (rev 2741)
+++ trunk/thirdparty/svn_cleaner/SvnCleaner.dpr	2009-04-22 07:16:06 UTC (rev 2742)
@@ -42,7 +42,8 @@
   JclFileUtils,
   JclSimpleXml,
   JclSysUtils,
-  JclAnsiStrings;
+  JclStrings,
+  JclStreams;
 
 type
   TSvnProperty = record
@@ -118,6 +119,19 @@
   end;
 end;
 
+function FixEndOfLines(const Value: string): string;
+var
+  Lines: TStrings;
+begin
+  Lines := TStringList.Create;
+  try
+    StrToStrings(StrReplaceChar(Value, NativeLineFeed, NativeCarriageReturn), NativeCarriageReturn, Lines, False);
+    Result := StringsToStr(Lines, NativeLineBreak, False);
+  finally
+    Lines.Free;
+  end;
+end;
+
 procedure TSvnSettings.LoadFromXml(XmlNode: TJclSimpleXMLElem);
   function LoadProperty(Elem: TJclSimpleXmlElem): TSvnProperty;
   var
@@ -129,20 +143,26 @@
     if not Assigned(NameProp) then
       raise Exception.Create('no name property');
     Result.Name := NameProp.Value;
-    Result.Value := '';
-    for Index := 0 to Elem.Items.Count - 1 do
+    if Elem.Value <> '' then
+      Result.Value := FixEndOfLines(Elem.Value)
+    else
     begin
-      ValueElem := Elem.Items.Item[Index];
-      if ValueElem.Name = 'value' then
+      Result.Value := '';
+      for Index := 0 to Elem.Items.Count - 1 do
       begin
-        if Result.Value = '' then
-          Result.Value := ValueElem.Value
+        ValueElem := Elem.Items.Item[Index];
+        if ValueElem.Name = 'value' then
+        begin
+          if Result.Value = '' then
+            Result.Value := ValueElem.Value
+          else
+            Result.Value := Result.Value + NativeLineBreak + ValueElem.Value;
+        end
         else
-          Result.Value := Result.Value + AnsiLineBreak + ValueElem.Value;
-      end
-      else
-      if ValueElem.Name <> '' then
-        raise Exception.CreateFmt('unknown item "%s"', [ValueElem.Name]);
+        if ValueElem.Name <> '' then
+          raise Exception.CreateFmt('unknown item "%s"', [ValueElem.Name]);
+      end;
+      Result.Value := FixEndOfLines(Result.Value);
     end;
   end;
 
@@ -176,7 +196,7 @@
     MySetting.Path := PathCanonicalize(PathGetRelativePath(GetCurrentDir, MyPath));
     Masks := TStringList.Create;
     try
-      StrToStrings(MaskProp.Value, AnsiSpace, Masks);
+      StrToStrings(MaskProp.Value, NativeSpace, Masks);
       SetLength(MySetting.Masks, Masks.Count);
       for Index := 0 to Masks.Count - 1 do
         {$IFDEF MSWINDOWS}
@@ -210,28 +230,80 @@
       FSettings[High(FSettings)] := MySetting;
     end;
   end;
+
+  procedure LoadTarget(Elem: TJclSimpleXmlElem);
+  var
+    PathProp: TJclSimpleXMLProp;
+    MySetting: TSvnSetting;
+    SubElem: TJclSimpleXMLElem;
+    Index: Integer;
+  begin
+    PathProp := Elem.Properties.ItemNamed['path'];
+    if not Assigned(PathProp) then
+      raise Exception.Create('no path property');
+    MySetting.Path := PathProp.Value;
+    SetLength(MySetting.Masks, 0);
+    MySetting.Recurse := False;
+    MySetting.DirOnly := False;
+    SetLength(MySetting.Properties, 0);
+    for Index := 0 to Elem.Items.Count - 1 do
+    begin
+      SubElem := Elem.Items.Item[Index];
+      if SubElem.Name = 'property' then
+      begin
+        SetLength(MySetting.Properties, Length(MySetting.Properties) + 1);
+        MySetting.Properties[High(MySetting.Properties)] := LoadProperty(SubElem);
+      end
+      else
+      if SubElem.Name <> '' then
+        raise Exception.CreateFmt('unknown item "%s"', [SubElem.Name]);
+    end;
+    if Length(MySetting.Properties) > 0 then
+    begin
+      SetLength(FSettings, Length(FSettings) + 1);
+      FSettings[High(FSettings)] := MySetting;
+    end;
+  end;
 var
   Elem: TJclSimpleXMLElem;
   Index: Integer;
   RootProp: TJclSimpleXMLProp;
 begin
-  RootProp := XmlNode.Properties.ItemNamed['root'];
-  if not Assigned(RootProp) then
-    raise Exception.Create('no root property');
-  {$IFDEF MSWINDOWS}
-  FRoot := StringReplace(RootProp.Value, '/', DirDelimiter, [rfReplaceAll]);
-  {$ELSE ~MSWINDOWS}
-  FRoot := RootProp.Value;
-  {$ENDIF ~MSWINDOWS}
-  FRoot := PathCanonicalize(PathGetRelativePath(GetCurrentDir, FRoot));
-  for Index := 0 to XmlNode.Items.Count - 1 do
+  if XmlNode.Name = 'svncleaner' then
   begin
-    Elem := XmlNode.Items.Item[Index];
-    if Elem.Name = 'setting' then
-      LoadSetting(Elem, '.')
-    else
-    if Elem.Name <> '' then
-      raise Exception.CreateFmt('Unknown elem name "%s"', [Elem.Name]);
+    // svn cleaner setting file
+    RootProp := XmlNode.Properties.ItemNamed['root'];
+    if not Assigned(RootProp) then
+      raise Exception.Create('no root property');
+    {$IFDEF MSWINDOWS}
+    FRoot := StringReplace(RootProp.Value, '/', DirDelimiter, [rfReplaceAll]);
+    {$ELSE ~MSWINDOWS}
+    FRoot := RootProp.Value;
+    {$ENDIF ~MSWINDOWS}
+    FRoot := PathCanonicalize(PathGetRelativePath(GetCurrentDir, FRoot));
+    for Index := 0 to XmlNode.Items.Count - 1 do
+    begin
+      Elem := XmlNode.Items.Item[Index];
+      if Elem.Name = 'setting' then
+        LoadSetting(Elem, '.')
+      else
+      if Elem.Name <> '' then
+        raise Exception.CreateFmt('Unknown elem name "%s"', [Elem.Name]);
+    end;
+  end
+  else
+  if XmlNode.Name = 'properties' then
+  begin
+    // "svn proplist" result file
+    for Index := 0 to XmlNode.Items.Count - 1 do
+    begin
+      Elem := XmlNode.Items.Item[Index];
+      if Elem.Name = 'target' then
+        LoadTarget(Elem)
+      else
+      if Elem.Name <> '' then
+        raise Exception.CreateFmt('Unknown elem name "%s"', [Elem.Name]);
+    end;
   end;
 end;
 
@@ -241,6 +313,8 @@
   TSvnCleaner = class
   private
     FSettings: TSvnSettings;
+    FSvnProperties: TSvnSettings;
+    FSvnItems: TStrings;
     FSvnExe: string;
     function ExecuteSvn(const Argument: string): string;
     procedure CleanItem(const ItemName: string);
@@ -250,184 +324,53 @@
     procedure Execute;
   end;
 
-procedure TSvnCleaner.CleanItem(const ItemName: string);
-  procedure ProcessProperties(const SvnResult: string);
+constructor TSvnCleaner.Create(const XmlFileName: string);
+  procedure ParseSvnItems(RootElem: TJclSimpleXMLElem; Dest: TStrings);
   var
-    Lines: TStrings;
-    Line, Choice, PropFileName: string;
-    Index, IndexCheck, SepPos: Integer;
-    Properties, NewProperties: TSvnProperties;
-    Found: Boolean;
+    TargetIndex, EntryIndex: Integer;
+    TargetElem, EntryElem, WcStatusElem: TJclSimpleXMLElem;
+    PathProp, ItemProp: TJclSimpleXMLProp;
+    EntryPath: string;
   begin
-    Lines := TStringList.Create;
-    try
-      StrToStrings(SvnResult, AnsiLineBreak, Lines);
-      for Index := 1 to Lines.Count - 1 do
-      begin
-        Line := Lines.Strings[Index];
-        if Pos('  ', Line) = 1 then
-        begin
-          SetLength(Properties, Length(Properties) + 1);
-          Line := Copy(Line, 3, Length(Line) - 2);
-          SepPos := Pos(' : ', Line);
-          if SepPos = 0 then
-            raise Exception.Create('could not determine property name');
-          Properties[High(Properties)].Name := Copy(Line, 1, SepPos - 1);
-          Properties[High(Properties)].Value := Copy(Line, SepPos + 3, Length(Line) - SepPos - 2);
-        end
-        else
-        begin
-          if Length(Properties) = 0 then
-            raise Exception.Create('invalid sequence');
-          Properties[High(Properties)].Value := Properties[High(Properties)].Value + AnsiLineBreak + Line;
-        end;
-      end;
-    finally
-      Lines.Free;
-    end;
+    if RootElem.Name <> 'status' then
+      raise Exception.CreateFmt('Unknown elem name "%s"', [RootElem.Name]);
 
-    NewProperties := FSettings.GetProperties(ItemName);
-
-    for Index := Low(Properties) to High(Properties) do
+    for TargetIndex := 0 to RootElem.Items.Count - 1 do
     begin
-      Found := False;
-      for IndexCheck := Low(NewProperties) to High(NewProperties) do
-        if Properties[Index].Name = NewProperties[IndexCheck].Name then
-        begin
-          if (Properties[Index].Value <> NewProperties[IndexCheck].Value)
-            and ((Properties[Index].Value + AnsiLineBreak) <> NewProperties[IndexCheck].Value)
-            and (Properties[Index].Value <> (NewProperties[IndexCheck].Value + AnsiLineBreak)) then
-          begin
-            WriteLn('property "', Properties[Index].Name, '" for item "', ItemName, '" will be changed');
-            WriteLn('old value: ', Properties[Index].Value);
-            WriteLn('new value: ', NewProperties[IndexCheck].Value);
-            repeat
-              Write('process? (y)es, (n)o, (a)bord: ');
-              ReadLn(Choice);
-            until (Choice = 'y') or (Choice = 'Y') or (Choice = 'n') or (Choice = 'N') or (Choice = 'a') or (Choice = 'A');
-            case Choice[1] of
-              'y', 'Y':
-                begin
-                  PropFileName := ChangeFileExt(ParamStr(0), '.prop');
-                  StringToFile(PropFileName, NewProperties[IndexCheck].Value);
-                  ExecuteSvn(Format('propset "%s" -F "%s" "%s"', [NewProperties[IndexCheck].Name, PropFileName, ItemName]));
-                end;
-              'n', 'N': ;
-              'a', 'A':
-                Abort;
-            end;
-          end;
-          Found := True;
-          Break;
-        end;
-      if not Found then
-      begin
-        WriteLn('property "', Properties[Index].Name, '" for item "', ItemName, '" will be deleted');
-        WriteLn('old value: ', Properties[Index].Value);
-        repeat
-          Write('process? (y)es, (n)o, (a)bord: ');
-          ReadLn(Choice);
-        until (Choice = 'y') or (Choice = 'Y') or (Choice = 'n') or (Choice = 'N') or (Choice = 'a') or (Choice = 'A');
-        case Choice[1] of
-          'y', 'Y':
-            ExecuteSvn(Format('propdel "%s" "%s"', [Properties[Index].Name, ItemName]));
-          'n', 'N': ;
-          'a', 'A':
-            Abort;
-        end;
-      end;
-    end;
+      TargetElem := RootElem.Items.Item[TargetIndex];
+      if TargetElem.Name <> 'target' then
+        raise Exception.CreateFmt('Unknown elem name "%s"', [TargetElem.Name]);
 
-    for Index := Low(NewProperties) to High(NewProperties) do
-    begin
-      Found := False;
-      for IndexCheck := Low(Properties) to High(Properties) do
-        if NewProperties[Index].Name = Properties[IndexCheck].Name then
-        begin
-          Found := True;
-          Break;
-        end;
-      if not Found then
+      for EntryIndex := 0 to TargetElem.Items.Count - 1 do
       begin
-        WriteLn('property "', NewProperties[Index].Name, '" for item "', ItemName, '" will be added');
-        WriteLn('new value: ', NewProperties[Index].Value);
-        repeat
-          Write('process? (y)es, (n)o, (a)bord: ');
-          ReadLn(Choice);
-        until (Choice = 'y') or (Choice = 'Y') or (Choice = 'n') or (Choice = 'N') or (Choice = 'a') or (Choice = 'A');
-        case Choice[1] of
-          'y', 'Y':
-            begin
-              PropFileName := ChangeFileExt(ParamStr(0), '.prop');
-              StringToFile(PropFileName, NewProperties[Index].Value);
-              ExecuteSvn(Format('propset "%s" -F "%s" "%s"', [NewProperties[Index].Name, PropFileName, ItemName]));
-            end;
-          'n', 'N': ;
-          'a', 'A':
-            Abort;
-        end;
-      end;
-    end;
-  end;
+        EntryElem := TargetElem.Items.Item[EntryIndex];
+        if EntryElem.Name <> 'entry' then
+          raise Exception.CreateFmt('Unknown elem name "%s"', [EntryElem.Name]);
+        PathProp := EntryElem.Properties.ItemNamed['path'];
+        if not Assigned(PathProp) then
+          raise Exception.Create('no path prop');
+        EntryPath := PathProp.Value;
 
-  procedure ProcessStatus(const SvnResult: string);
-  var
-    DirectoryXml: TJclSimpleXML;
-    RootNode, TargetNode, EntryNode, WcStatusNode: TJclSimpleXMLElem;
-    TargetIndex, EntryIndex, WcStatusIndex: Integer;
-    PathProp, ItemProp: TJclSimpleXMLProp;
-  begin
-    DirectoryXml := TJclSimpleXML.Create;
-    try
-      DirectoryXml.LoadFromString(SvnResult);
-      RootNode := DirectoryXml.Root;
-      if RootNode.Name <> 'status' then
-        raise Exception.Create('expecting status node');
-      for TargetIndex := 0 to RootNode.Items.Count - 1 do
-      begin
-        TargetNode := RootNode.Items.Item[TargetIndex];
-        if TargetNode.Name = 'target' then
-        begin
-          for EntryIndex := 0 to TargetNode.Items.Count - 1 do
-          begin
-            EntryNode := TargetNode.Items.Item[EntryIndex];
-            if EntryNode.Name <> 'entry' then
-              raise Exception.Create('expecting entry node');
-            PathProp := EntryNode.Properties.ItemNamed['path'];
-            if not Assigned(PathProp) then
-              raise Exception.Create('no path node');
-            for WcStatusIndex := 0 to EntryNode.Items.Count - 1 do
-            begin
-              WcStatusNode := EntryNode.Items.Item[WcStatusIndex];
-              if not Assigned(WcStatusNode) then
-                raise Exception.Create('expecting wc-status node');
-              ItemProp := WcStatusNode.Properties.ItemNamed['item'];
-              if not Assigned(ItemProp) then
-                raise Exception.Create('expecting item prop');
-              if (ItemProp.Value <> 'unversioned') and (PathProp.Value <> ItemName) then
-                CleanItem(PathProp.Value);
-            end;
-          end;
-        end
-        else
-        if TargetNode.Name <> '' then
-          raise Exception.Create('expecting target node');
+        if (EntryElem.Items.Count <> 1) then
+          raise Exception.Create('invalid entry elem');
+
+        WcStatusElem := EntryElem.Items.Item[0];
+        if WcStatusElem.Name <> 'wc-status' then
+          raise Exception.CreateFmt('Unknown elem name "%s"', [WcStatusElem.Name]);
+
+        ItemProp := WcStatusElem.Properties.ItemNamed['item'];
+        if not Assigned(ItemProp) then
+          raise Exception.Create('no item prop');
+        if ItemProp.Value <> 'unversioned' then
+          Dest.Add(EntryPath);
       end;
-    finally
-      DirectoryXml.Free;
     end;
   end;
-begin
-  WriteLn('processing item "', ItemName, '"');
-  ProcessProperties(ExecuteSvn(Format('proplist -v "%s"', [ItemName])));
-
-  if (FileGetAttr(ItemName) and faDirectory) <> 0 then
-    ProcessStatus(ExecuteSvn(Format('status -v --xml -N "%s"', [ItemName])));
-end;
-
-constructor TSvnCleaner.Create(const XmlFileName: string);
 var
-  AXmlSettings: TJclSimpleXML;
+  Xml: TJclSimpleXML;
+  StorageStream: TStream;
+  AStringStream: TJclStringStream;
+  SvnResult: string;
 begin
   inherited Create;
   FSvnExe := GetEnvironmentVariable('SVN');
@@ -437,30 +380,170 @@
       ReadLn(FSvnExe);
     until FileExists(FSvnExe);
   FSettings := TSvnSettings.Create;
-  AXmlSettings := TJclSimpleXML.Create;
+  FSvnProperties := TSvnSettings.Create;
+  FSvnItems := TStringList.Create;
+
+  Xml := TJclSimpleXML.Create;
   try
-    AXmlSettings.LoadFromFile(XmlFileName);
-    AXmlSettings.Options := AXmlSettings.Options - [sxoAutoCreate];
+    // load svn cleaner options
+    Xml.LoadFromFile(XmlFileName);
+    Xml.Options := Xml.Options - [sxoAutoCreate];
 
-    FSettings.LoadFromXml(AXmlSettings.Root);
+    FSettings.LoadFromXml(Xml.Root);
+
+    StorageStream := TMemoryStream.Create;
+    try
+      AStringStream := TJclAutoStream.Create(StorageStream, False);
+      try
+        // retrieve the SVN properties
+        WriteLn('getting SVN properties...');
+        SvnResult := ExecuteSvn('proplist -v --xml -R ' + FSettings.Root);
+        AStringStream.WriteString(SvnResult, 1, Length(SvnResult));
+        AStringStream.Seek(0, soBeginning);
+        Xml.LoadFromStringStream(AStringStream);
+        FSvnProperties.LoadFromXml(Xml.Root);
+
+        AStringStream.Size := 0;
+
+        // retrieve the list of SVN items
+        WriteLn('getting SVN items...');
+        SvnResult := ExecuteSvn('status -v --xml ' + FSettings.Root);
+        AStringStream.WriteString(SvnResult, 1, Length(SvnResult));
+        AStringStream.Seek(0, soBeginning);
+        Xml.LoadFromStringStream(AStringStream);
+        ParseSvnItems(Xml.Root, FSvnItems);
+      finally
+        AStringStream.Free;
+      end;
+    finally
+      StorageStream.Free;
+    end;
   finally
-    AXmlSettings.Free;
+    Xml.Free;
   end;
 end;
 
 destructor TSvnCleaner.Destroy;
 begin
+  FSvnItems.Free;
+  FSvnProperties.Free;
   FSettings.Free;
   inherited Destroy;
 end;
 
+procedure TSvnCleaner.CleanItem(const ItemName: string);
+var
+  Choice, PropFileName: string;
+  Index, IndexCheck: Integer;
+  Properties, NewProperties: TSvnProperties;
+  Found: Boolean;
+begin
+  WriteLn('processing item "', ItemName, '"');
+
+  Properties := FSvnProperties.GetProperties(ItemName);
+  NewProperties := FSettings.GetProperties(ItemName);
+
+  for Index := Low(Properties) to High(Properties) do
+  begin
+    Found := False;
+    for IndexCheck := Low(NewProperties) to High(NewProperties) do
+      if Properties[Index].Name = NewProperties[IndexCheck].Name then
+      begin
+        if (Properties[Index].Value <> NewProperties[IndexCheck].Value)
+          and ((Properties[Index].Value + NativeLineBreak) <> NewProperties[IndexCheck].Value)
+          and (Properties[Index].Value <> (NewProperties[IndexCheck].Value + NativeLineBreak)) then
+        begin
+          WriteLn('property "', Properties[Index].Name, '" for item "', ItemName, '" will be changed');
+          WriteLn('old value: ', Properties[Index].Value);
+          WriteLn('new value: ', NewProperties[IndexCheck].Value);
+          repeat
+            Write('process? (y)es, (n)o, (a)bord: ');
+            ReadLn(Choice);
+          until (Choice = 'y') or (Choice = 'Y') or (Choice = 'n') or (Choice = 'N') or (Choice = 'a') or (Choice = 'A');
+          case Choice[1] of
+            'y', 'Y':
+              begin
+                PropFileName := ChangeFileExt(ParamStr(0), '.prop');
+                {$IFDEF SUPPORTS_UNICODE}
+                StringToFile(PropFileName, RawByteString(NewProperties[IndexCheck].Value));
+                {$ELSE ~SUPPORTS_UNICODE}
+                StringToFile(PropFileName, NewProperties[IndexCheck].Value);
+                {$ENDIF ~SUPPORTS_UNICODE}
+                ExecuteSvn(Format('propset "%s" -F "%s" "%s"', [NewProperties[IndexCheck].Name, PropFileName, ItemName]));
+              end;
+            'n', 'N': ;
+            'a', 'A':
+              Abort;
+          end;
+        end;
+        Found := True;
+        Break;
+      end;
+    if not Found then
+    begin
+      WriteLn('property "', Properties[Index].Name, '" for item "', ItemName, '" will be deleted');
+      WriteLn('old value: ', Properties[Index].Value);
+      repeat
+        Write('process? (y)es, (n)o, (a)bord: ');
+        ReadLn(Choice);
+      until (Choice = 'y') or (Choice = 'Y') or (Choice = 'n') or (Choice = 'N') or (Choice = 'a') or (Choice = 'A');
+      case Choice[1] of
+        'y', 'Y':
+          ExecuteSvn(Format('propdel "%s" "%s"', [Properties[Index].Name, ItemName]));
+        'n', 'N': ;
+        'a', 'A':
+          Abort;
+      end;
+    end;
+  end;
+
+  for Index := Low(NewProperties) to High(NewProperties) do
+  begin
+    Found := False;
+    for IndexCheck := Low(Properties) to High(Properties) do
+      if NewProperties[Index].Name = Properties[IndexCheck].Name then
+      begin
+        Found := True;
+        Break;
+      end;
+    if not Found then
+    begin
+      WriteLn('property "', NewProperties[Index].Name, '" for item "', ItemName, '" will be added');
+      WriteLn('new value: ', NewProperties[Index].Value);
+      repeat
+        Write('process? (y)es, (n)o, (a)bord: ');
+        ReadLn(Choice);
+      until (Choice = 'y') or (Choice = 'Y') or (Choice = 'n') or (Choice = 'N') or (Choice = 'a') or (Choice = 'A');
+      case Choice[1] of
+        'y', 'Y':
+          begin
+            PropFileName := ChangeFileExt(ParamStr(0), '.prop');
+            {$IFDEF SUPPORTS_UNICODE}
+            StringToFile(PropFileName, RawByteString(NewProperties[Index].Value));
+            {$ELSE ~SUPPORTS_UNICODE}
+            StringToFile(PropFileName, NewProperties[Index].Value);
+            {$ENDIF ~SUPPORTS_UNICODE}
+            ExecuteSvn(Format('propset "%s" -F "%s" "%s"', [NewProperties[Index].Name, PropFileName, ItemName]));
+          end;
+        'n', 'N': ;
+        'a', 'A':
+          Abort;
+      end;
+    end;
+  end;
+end;
+
 procedure TSvnCleaner.Execute;
+var
+  Index: Integer;
 begin
-  CleanItem(FSettings.Root);
+  for Index := 0 to FSvnItems.Count - 1 do
+    CleanItem(FSvnItems.Strings[Index]);
 end;
 
 function TSvnCleaner.ExecuteSvn(const Argument: string): string;
 begin
+  Result := '';
   JclSysUtils.Execute(Format('"%s" %s', [FSvnExe, Argument]), Result);
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




2006	Jan	Feb	Mar	Apr (20)	May (48)	Jun (8)	Jul (23)	Aug (41)	Sep (42)	Oct (22)	Nov (17)	Dec (36)
2007	Jan (43)	Feb (42)	Mar (17)	Apr (39)	May (16)	Jun (35)	Jul (37)	Aug (47)	Sep (49)	Oct (9)	Nov (52)	Dec (37)
2008	Jan (48)	Feb (21)	Mar (7)	Apr (2)	May (5)	Jun (17)	Jul (17)	Aug (40)	Sep (58)	Oct (38)	Nov (19)	Dec (32)
2009	Jan (67)	Feb (46)	Mar (54)	Apr (34)	May (37)	Jun (52)	Jul (67)	Aug (72)	Sep (48)	Oct (35)	Nov (27)	Dec (12)
2010	Jan (56)	Feb (46)	Mar (19)	Apr (14)	May (21)	Jun (3)	Jul (13)	Aug (48)	Sep (34)	Oct (51)	Nov (16)	Dec (32)
2011	Jan (36)	Feb (14)	Mar (12)	Apr (3)	May (5)	Jun (24)	Jul (15)	Aug (30)	Sep (21)	Oct (4)	Nov (25)	Dec (23)
2012	Jan (45)	Feb (42)	Mar (19)	Apr (14)	May (13)	Jun (7)	Jul (3)	Aug (46)	Sep (21)	Oct (10)	Nov (2)	Dec
2013	Jan (5)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

jcl-checkins-diff Mailing List for JEDI Code Library (Page 47)

jcl-checkins-diff — SVN file check-in notifications with file differences included