diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-03-27 22:23:08 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-03-27 22:23:08 +0000 |
commit | e96e6e2ab30a8bbe38cc1f96ceacc43089cc28b9 (patch) | |
tree | 2871b2818acf4e291a51b778e5ba0e5c9b6d206e /lib/sbin/cpp.pl | |
parent | 9df466c0423c5cf9f1d72ff790d5c3d58fea9121 (diff) |
Added a --version flag.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3610 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/cpp.pl')
-rwxr-xr-x | lib/sbin/cpp.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/sbin/cpp.pl b/lib/sbin/cpp.pl index 7d479cbc..4cfccb65 100755 --- a/lib/sbin/cpp.pl +++ b/lib/sbin/cpp.pl @@ -15,6 +15,10 @@ ############################################################################### # Setup some global variables. +# Version info + +$version = "Cactus CPP 1.0"; + # Symbol table %defines = (); @@ -148,6 +152,11 @@ sub ParseCommandLine { $do_deps = 1; } + elsif($arg =~ m:^--version:) + { + print "$version\n"; + exit 0; + } elsif($arg =~ m:^-.+:) { die("Unknown preprocessor option '$arg'"); |