diff options
| author | adam <adam@FreeBSD.org> | 1996-06-17 00:15:35 +0800 |
|---|---|---|
| committer | adam <adam@FreeBSD.org> | 1996-06-17 00:15:35 +0800 |
| commit | bbecb02d8984de651b29ae62170e9d7cf81097f0 (patch) | |
| tree | 5b73d550119063fae06f8cf49876892963783743 /net/dgd-lpmud | |
| parent | b2f95a5e20a2b94eaa0c37f80f269073288deff3 (diff) | |
| download | freebsd-ports-gnome-bbecb02d8984de651b29ae62170e9d7cf81097f0.tar.gz freebsd-ports-gnome-bbecb02d8984de651b29ae62170e9d7cf81097f0.tar.zst freebsd-ports-gnome-bbecb02d8984de651b29ae62170e9d7cf81097f0.zip | |
missing from distribution file
Diffstat (limited to 'net/dgd-lpmud')
| -rw-r--r-- | net/dgd-lpmud/files/oconv.c | 147 |
1 files changed, 147 insertions, 0 deletions
diff --git a/net/dgd-lpmud/files/oconv.c b/net/dgd-lpmud/files/oconv.c new file mode 100644 index 000000000000..f129e2cb1790 --- /dev/null +++ b/net/dgd-lpmud/files/oconv.c @@ -0,0 +1,147 @@ +/* convert old LPmud .o files to new DGD .o format */ +# include <ctype.h> +# include <string.h> +# include <stdio.h> + +int array, arrbuf[1000]; +char buffer[60000]; /* large enough? */ + +void match(a, b) +char a, b; +{ + if (a != b) { + fprintf(stderr, "'%c' expected\n", b); + exit(2); + } +} + +char *scan(buf) +char *buf; +{ + int i; + + switch (*buf++) { + case '-': + case '0': case '1': case '2': case '3': case '4': + case '5': case '6': case '7': case '8': case '9': + while (isdigit(*buf)) buf++; + break; + + case '"': + while (*buf != '"') { + if (*buf == '\\') buf++; + buf++; + } + buf++; + break; + + case '(': + switch (*buf++) { + case '{': + i = array++; + while (*buf != '}') { + buf = scan(buf); + match(*buf++, ','); + arrbuf[i]++; + } + break; + + case '[': + i = array++; + while (*buf != ']') { + buf = scan(buf); + match(*buf++, ':'); + buf = scan(buf); + match(*buf++, ','); + arrbuf[i]++; + } + break; + + default: + fprintf(stderr, "unexpected character '%c'\n", buf[-1]); + exit(2); + } + buf++; + match(*buf++, ')'); + break; + + default: + fprintf(stderr, "unexpected character '%c'\n", buf[-1]); + exit(2); + } + + return buf; +} + +char *copy(buf) +char *buf; +{ + putchar(*buf); + switch (*buf++) { + case '-': + case '0': case '1': case '2': case '3': case '4': + case '5': case '6': case '7': case '8': case '9': + while (isdigit(*buf)) putchar(*buf++); + break; + + case '"': + while (*buf != '"') { + if (*buf == '\r') { + putchar('\\'); + *buf = 'n'; + } else if (*buf == '\\') putchar(*buf++); + putchar(*buf++); + } + putchar(*buf++); + break; + + case '(': + putchar(*buf); + switch (*buf++) { + case '{': + printf("%d|", arrbuf[array++]); + while (*buf != '}') { + buf = copy(buf); + putchar(*buf++); + } + break; + + case '[': + printf("%d|", arrbuf[array++]); + while (*buf != ']') { + buf = copy(buf); + putchar(*buf++); + buf = copy(buf); + putchar(*buf++); + } + break; + } + putchar(*buf++); + putchar(*buf++); + break; + } + + return buf; +} + +main() +{ + char *p; + + puts("#"); + while (gets(buffer) != (char *) NULL) { + p = strchr(buffer, ' '); + if (p == (char *) NULL) { + fprintf(stderr, "variable name expected\n"); + return 2; + } + *p++ = '\0'; + memset(arrbuf, '\0', sizeof(arrbuf)); + array = 0; + match(*scan(p), '\0'); + printf("%s ", buffer); + array = 0; + copy(p); + putchar('\n'); + } +} |