source: trunk/gui/cf/patchlevel.tcl @ 2685

Last change on this file since 2685 was 2685, checked in by gah, 9 years ago
File size: 745 bytes
Line 
1# ----------------------------------------------------------------------
2#  patchlevel.tcl
3#
4#  This utility determines the current patchlevel for this package
5#  by querying the revision level from Subversion.
6# ======================================================================
7#  AUTHOR:  Michael McLennan, Purdue University
8#  Copyright (c) 2004-2005  Purdue Research Foundation
9#
10#  See the file "license.terms" for information on usage and
11#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12# ======================================================================
13if {[catch {exec svn info} result] == 0
14      && [regexp {Revision: +([0-9]+)} $result match num]} {
15    puts "r$num"
16} else {
17    puts "r?"
18}
19exit 0
Note: See TracBrowser for help on using the repository browser.