diff options
| author | Toby Goodwin <tjg@star.le.ac.uk> | 1999-11-10 14:55:51 +0000 |
|---|---|---|
| committer | Toby Goodwin <toby@paccrat.org> | 2015-05-16 21:22:10 +0100 |
| commit | 3e9e4d3f8f518f8f467066593ae6f270d97f6d60 (patch) | |
| tree | 7d41f75ee428d4bb332b9664c116a8a6ce6ccea0 /var.c | |
| parent | 3815ffb98e9db3d593219cead05284f983eb6d71 (diff) | |
beta: rc-1.6b1
Diffstat (limited to 'var.c')
| -rw-r--r-- | var.c | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -57,14 +57,19 @@ extern bool varassign_string(char *extdef) { associated with $status) */ +static List id2 = { "$Release: @(#)" PACKAGE " " VERSION " " RELDATE " $", 0, 0 }; +static List id1 = { VERSION, 0, &id2 }; + extern List *varlookup(char *name) { Variable *look; List *ret, *l; int sub; - if (streq(name, "status")) - return sgetstatus(); if (streq(name, "apids")) return sgetapids(); + if (streq(name, "status")) + return sgetstatus(); + if (streq(name, "version")) + return &id1; if (*name != '\0' && (sub = a2u(name)) != -1) { /* handle $1, $2, etc. */ for (l = varlookup("*"); l != NULL && sub != 0; --sub) l = l->n; |