epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Win32 changes.

Browse Source
This commit is contained in:
Janet B. Anderson
2005-12-19 21:10:30 +00:00
parent 45685c52d2
commit c57beaad68
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/libCom/misc/makeEpicsVersion.pl
View File

@@ -22,13 +22,13 @@ while (<VARS>)
{
chomp;
next if m/^#/; # Skip comments
if (m/^EPICS_VERSION\s*=\s*(.*)\s*/) { $ver = $1; }
if (m/^EPICS_REVISION\s*=\s*(.*)\s*/) { $rev = $1; }
if (m/^EPICS_MODIFICATION\s*=\s*(.*)\s*/) { $mod = $1; }
if (m/^EPICS_PATCH_LEVEL\s*=\s*(.*)\s*/) { $patch = $1; }
if (m/^EPICS_CVS_SNAPSHOT\s*=\s*(.*)\s*/) { $snapshot = $1; }
if (m/^CVS_DATE\s*=\s*"\\(.*)"\s*/) { $cvs_date = $1; }
if (m/^CVS_TAG\s*=\s*"\\(.*)"\s*/) { $cvs_tag = $1; }
if (m/^EPICS_VERSION\s*=\s*(\d+)/) { $ver = $1; }
if (m/^EPICS_REVISION\s*=\s*(\d+)/) { $rev = $1; }
if (m/^EPICS_MODIFICATION\s*=\s*([0-9a-z]+)/) { $mod = $1; }
if (m/^EPICS_PATCH_LEVEL\s*=\s*(\d+)/) { $patch = $1; }
if (m/^EPICS_CVS_SNAPSHOT\s*=\s*([CVS-]+)/) { $snapshot = $1; }
if (m/^CVS_DATE\s*=\s*"\\(.*)"/) { $cvs_date = $1; }
if (m/^CVS_TAG\s*=\s*"\\(.*)"/) { $cvs_tag = $1; }
}
$ver_str = "$ver.$rev.$mod";