Extend packagelist parsing to read "sources.csv" files.
authorWilliam Roberts <williamr@symbian.org>
Tue, 29 Jun 2010 21:56:25 +0100
changeset 301 1b8ed3598305
parent 300 3b8bce67b574
child 302 c1b745b16f58
Extend packagelist parsing to read "sources.csv" files.
clone_packages/clone_all_packages.pl
--- a/clone_packages/clone_all_packages.pl	Tue Jun 29 17:58:44 2010 +0100
+++ b/clone_packages/clone_all_packages.pl	Tue Jun 29 21:56:25 2010 +0100
@@ -1,6 +1,6 @@
 #! perl
 
-# Copyright (c) 2009 Symbian Foundation Ltd
+# Copyright (c) 2009-2010 Symbian Foundation Ltd
 # This component and the accompanying materials are made available
 # under the terms of the License "Eclipse Public License v1.0"
 # which accompanies this distribution, and is available
@@ -311,6 +311,15 @@
       $revision = $3;
       }
  
+ 		# sources.csv format
+ 		# http://developer.symbian.org/oss/FCL/sf/app/browserui/,/sf/app/browserui,tag,tip_bulk,layers.sysdef.xml
+ 		# http://developer.symbian.org/oss/FCL/sf/app/browserui/,/sf/app/browserui,changeset,e086c7f635d5,layers.sysdef.xml
+		if ($line =~ /^(http[^,]+),(\S+),\S+,(\S+),\S*$/)
+			{
+			$line = $1;
+			$revision = $3;
+			}
+
     # Look for the oss/MCL/ prefix to a path e.g.
     # https://developer.symbian.org/oss/FCL/interim/contrib/WidgetExamples
     if ($line =~ /((oss|sfl)\/(FCL|MCL)\/.*)\s*$/)