lxdream 0.9.1| filename | src/checkver.pl |
| changeset | 738:0cbff49086b8 |
| next | 1068:a422f30ce0a8 |
| author | nkeynes |
| date | Sat Dec 27 02:59:35 2008 +0000 (15 years ago) |
| branch | lxdream-mem |
| permissions | -rwxr-xr-x |
| last change | Replace fpscr_mask/fpscr flags in xlat_cache_block with a single xlat_sh4_mode, which tracks the field of the same name in sh4r - actually a little faster this way. Now depends on SR.MD, FPSCR.PR and FPSCR.SZ (although it doesn't benefit from the SR flag yet). Also fixed the failure to check the flags in the common case (code address returned by previous block) which took away the performance benefits, but oh well. |
| file | annotate | diff | log | raw |
| nkeynes@738 | 1 | #!/usr/bin/perl |
| nkeynes@738 | 2 | # Usage: updatever.pl <basever> <top_srcdir> <version file> |
| nkeynes@738 | 3 | |
| nkeynes@738 | 4 | my $svnversion = "svnversion"; |
| nkeynes@738 | 5 | my $basever = $ARGV[0]; |
| nkeynes@738 | 6 | my $top_srcdir = $ARGV[1]; |
| nkeynes@738 | 7 | my $outfile = $ARGV[2]; |
| nkeynes@738 | 8 | |
| nkeynes@738 | 9 | my $rev = ""; |
| nkeynes@738 | 10 | my $full_ver = "$basever"; |
| nkeynes@738 | 11 | |
| nkeynes@738 | 12 | if( $svnversion ) {
|
| nkeynes@738 | 13 | $rev = `$svnversion "$top_srcdir"`; |
| nkeynes@738 | 14 | chomp $rev; |
| nkeynes@738 | 15 | if( $rev == "exported" ) {
|
| nkeynes@738 | 16 | $rev = ""; |
| nkeynes@738 | 17 | } else {
|
| nkeynes@738 | 18 | $full_ver = "${basever}.${rev}";
|
| nkeynes@738 | 19 | } |
| nkeynes@738 | 20 | } |
| nkeynes@738 | 21 | my $header = "/* Autogenerated by checkver.pl */"; |
| nkeynes@738 | 22 | my $output = "${header}\n".
|
| nkeynes@738 | 23 | "const char lxdream_package_name[] = \"lxdream $basever\";\n" . |
| nkeynes@738 | 24 | "const char lxdream_short_version[] = \"$basever\";\n" . |
| nkeynes@738 | 25 | "const char lxdream_full_version[] = \"$full_ver\";\n" . |
| nkeynes@738 | 26 | "const char lxdream_copyright[] = \"Copyright (C) 2005-2008 Nathan Keynes\";\n"; |
| nkeynes@738 | 27 | |
| nkeynes@738 | 28 | my $oldfile = ""; |
| nkeynes@738 | 29 | if( -e $outfile ) {
|
| nkeynes@738 | 30 | open(VERSIONFILE, "<$outfile") || die "Unable to read from $outfile\n"; |
| nkeynes@738 | 31 | $oldfile = join "", <VERSIONFILE>; |
| nkeynes@738 | 32 | close(VERSIONFILE); |
| nkeynes@738 | 33 | } |
| nkeynes@738 | 34 | |
| nkeynes@738 | 35 | if( $oldfile ne $output ) {
|
| nkeynes@738 | 36 | open(VERSIONFILE, ">$outfile") || die "Unable to write to $outfile\n"; |
| nkeynes@738 | 37 | print VERSIONFILE $output; |
| nkeynes@738 | 38 | close(VERSIONFILE); |
| nkeynes@738 | 39 | } |
.