|
Last change
on this file since 204 was
204,
checked in by dkearney, 18 years ago
|
|
initial version of tcl's rappture bindings.
read README for compile instructions.
still needs testing, example fxn calls in tcl_test.tcl
|
|
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 | # ====================================================================== |
|---|
| 13 | if {[catch {exec svn info} result] == 0 |
|---|
| 14 | && [regexp {Revision: +([0-9]+)} $result match num]} { |
|---|
| 15 | puts "r$num" |
|---|
| 16 | } else { |
|---|
| 17 | puts "r?" |
|---|
| 18 | } |
|---|
| 19 | exit 0 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
