svnno****@sourc*****
svnno****@sourc*****
2009年 3月 26日 (木) 19:27:27 JST
Tera TermRevision: 3242
http://svn.sourceforge.jp/view?root=ttssh2&view=rev&rev=3242
Author: yutakapon
Date: 2009-03-26 19:27:27 +0900 (Thu, 26 Mar 2009)
Log Message:
-----------
svnrev ãŒã§ããŸã®ã§ã€å‰Šé™¤ã™ã‚‹ã€‚
Removed Paths:
-------------
trunk/installer/make_svn_revision.pl
Deleted: trunk/installer/make_svn_revision.pl
===================================================================
--- trunk/installer/make_svn_revision.pl 2009-03-26 10:09:08 UTC (rev 3241)
+++ trunk/installer/make_svn_revision.pl 2009-03-26 10:27:27 UTC (rev 3242)
@@ -1,107 +0,0 @@
-#
-# Subversion(SVN)‚ÌÅVƒŠƒrƒWƒ‡ƒ“‚ðŽæ“¾‚·‚é
-#
-# Subversion 1.6‚ÅŠm”F (2009.03.25 yutaka)
-#
-
-$svnfile = '../.svn/entries';
-$headerfile = '../teraterm/ttpdlg/svnversion.h';
-
-$val = getVersion($svnfile);
-print "SVN#: $val\n";
-
-#$val = -1;
-makeVersionHeader($val);
-
-exit(0);
-
-sub makeVersionHeader {
- my($rev) = shift(@_);
- my($msg);
-
- if (!open(FP, "> $headerfile")) {
- print "Can not write: $headerfile\n";
- goto error;
- }
-
- if ($val < 0) {
- $msg = '#undef SVNVERSION';
- } else {
- $msg = "#define SVNVERSION $rev";
- }
-
- print FP <<EOD;
-/* This file was automatically generated by make_svn_revision.pl.
- * Don't modify this file.
- */
-$msg
-EOD
-
- close(FP);
-
- print "Success: $headerfile was created.\n";
-
-error:
-
-}
-
-sub getVersion {
- my($file) = shift(@_);
- my($ret) = -1;
- my($line, $count, $inblock, $author);
-
- if (!(-e "$file")) {
- print "Not found: $file\n";
- goto error;
- }
-
- if (!open(FP, "< $file")) {
- print "Can not open: $file\n";
- goto error;
- }
-
- $count = 0;
- $inblock = 0;
- while ($line = <FP>) {
- chomp($line);
- $line =~ s/^\s+//;
-
- if ($inblock == 0) {
- if ($line ne '') {
- # ‹ó”’s‚Å‚È‚¢Žn‚ß‚Ìs‚ª—ˆ‚½‚çAƒuƒƒbƒN‚ÌŠJŽn‚ÆŒ©‚È‚·B
- $count++;
- $inblock = 1;
- }
- } else {
- if ($line eq '') {
- # ƒuƒƒbƒN‚ÌI‚í‚èi‹ó”’sj‚ª—ˆ‚½‚©‚Ç‚¤‚©B
- $inblock = 0;
- }
- }
-
- if ($count == 3) { # 3‚‚߂̃uƒƒbƒN‚É svn info î•ñ‚ª‚ ‚éB
- if ($line =~ /^\d{4}-\d{2}-\d{2}/) {
- # ˆês–Ú‚Í–³Ž‹
-
- } elsif ($line =~ /^(\d+)/) { # SVNƒŠƒrƒWƒ‡ƒ“
- $ret = $1;
-
- } elsif ($line =~ /^(\w+)/) {
- if ($ret > 0) {
- $author = $1;
- last;
- }
- }
- }
-
- }
-
- print "$ret $author\n";
-
- close(FP);
-
-error:
- return ($ret);
-}
-
-