Author: jbevain
Date: 2007-10-04 09:35:58 -0400 (Thu, 04 Oct 2007)
New Revision: 86878
Added:
trunk/mcs/class/Mono.Cecil/CodeGen/cecil-update-rev
Log:
add new tool
Added: trunk/mcs/class/Mono.Cecil/CodeGen/cecil-update-rev
===================================================================
--- trunk/mcs/class/Mono.Cecil/CodeGen/cecil-update-rev 2007-10-04 12:44:17 UTC
(rev 86877)
+++ trunk/mcs/class/Mono.Cecil/CodeGen/cecil-update-rev 2007-10-04 13:35:58 UTC
(rev 86878)
@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+
+svn = "svn+ssh://mono-cvs.ximian.com/source/"
+info = "Mono.Cecil/AssemblyInfo.cs"
+
+$rev = 0
+
+IO::popen("svn info #{svn}").each { |line|
+ $rev = $1.to_i if line =~ /^Revision: ([0-9]+)/
+}
+
+if $rev == 0
+ puts "Cannot get last revision"
+ exit(1)
+end
+
+def read_file(file)
+ content = ""
+ f = File.new(file, File::CREAT | File::RDONLY)
+ content << f.readlines.join
+ f.close
+
+ return content
+end
+
+def write_file(file, content)
+ File.open(file, File::CREAT | File::WRONLY) { |f|
+ f.write(content)
+ }
+end
+
+def patch_info(content)
+ patched = ""
+ content.each_line { |line|
+ if not line =~ /AssemblyVersion/
+ patched << line
+ else
+ patched <<
line.gsub(/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/) {
"#{$1.to_s}.#{$2.to_s}.#{$3.to_s}.#{($rev + 1).to_s}" }
+ end
+ }
+ return patched
+end
+
+write_file(info, patch_info(read_file(info)))
Property changes on: trunk/mcs/class/Mono.Cecil/CodeGen/cecil-update-rev
___________________________________________________________________
Name: svn:executable
+ *
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
