Generic command: version

diff --git a/qcsrc/common/debug.qh b/qcsrc/common/debug.qh
index 75a76ae348f066b2512038cecec32f838cded97c..4f60e9fe3cf5b5e4334c9c805d87fff81c618ab5 100644 (file)
--- a/qcsrc/common/debug.qh
+++ b/qcsrc/common/debug.qh
@@ -185,4 +185,22 @@ GENERIC_COMMAND(bufstr_get, "Examine a string buffer object")
        }
 }
 
+GENERIC_COMMAND(version, "Print the current version")
+{
+       switch (request)
+       {
+               case CMD_REQUEST_COMMAND:
+               {
+                       LOG_INFO(WATERMARK "\n");
+                       return;
+               }
+               default:
+               case CMD_REQUEST_USAGE:
+               {
+                       LOG_INFO(strcat("\nUsage:^3 ", GetProgramCommandPrefix(), " version"));
+                       return;
+               }
+       }
+}
+
 #endif