summaryrefslogtreecommitdiff
path: root/olb/Getvrsn.c
diff options
context:
space:
mode:
Diffstat (limited to 'olb/Getvrsn.c')
-rw-r--r--olb/Getvrsn.c50
1 files changed, 50 insertions, 0 deletions
diff --git a/olb/Getvrsn.c b/olb/Getvrsn.c
new file mode 100644
index 0000000..1990733
--- /dev/null
+++ b/olb/Getvrsn.c
@@ -0,0 +1,50 @@
+#include <online.dcl>
+
+/*
+ Get version id for display
+
+ If triple verse A_B_C then
+
+ Inputs:
+ 1 - returns "A"
+ 2 - returns "B"
+ 3 - returns "A_B"
+ 4 - returns "C"
+ 5 - returns "A_C"
+ 6 - returns "B_C"
+ 7 - returns "A_B_C"
+*/
+
+CHAR *GETVRSN(int version)
+{
+ extern struct zonline online;
+ static CHAR versionid[16];
+
+ X("Getvrsn");
+ if (version < 1 || version > 7) then
+ call ERROR("Version Id Invalid");
+ versionid[0] = 0;
+ if (version & 1) then
+ {
+ strcat(versionid, "_");
+ STRCAT(versionid, &online.versions[0][0], 16, "Getrsn-1");
+ }
+ if (version & 2) then
+ {
+ if (online.versions[1][0] != 0) then
+ {
+ strcat(versionid, "_");
+ STRCAT(versionid, &online.versions[1][0], 16, "Getrsn-2");
+ }
+ }
+ if (version & 4) then
+ {
+ if (online.versions[2][0] != 0) then
+ {
+ strcat(versionid, "_");
+ STRCAT(versionid, &online.versions[2][0], 16, "Getrsn-3");
+ }
+ }
+ Y();
+ return(&versionid[1]);
+}