---

zsig-random.vtc

/* -*- C -*-
 * zsig-random.vtc: Produce random Zephyr signatures
 * $Id$
 */

defzsigfile ?:= getenv("HOME") + "/Private/zsigs-vt";

func chomp(s) [l] {
    l = strlen(s) - 1;
    if (s[l] == '\n')
        s[l] = '\0';
    return s;
}

func Load_zsigs(sigfile) [file, line] {
    if (!sigfile || !strlen(sigfile))
        sigfile = defsigfile;
    else if (sigfile[0] == '~' && sigfile[1] == '/')
        sigfile = getenv("HOME") + "/" + (sigfile + 2);

    if (!(file = fopen(sigfile, "r"))) {
        output(errmsg);
        return 1;
    }

    if (!zsigs) {
        zsigs = alloc(5);
    }
    numzsigs = 0;
    zsigs[0] = "";
    while (line = fread(file)) {
        line = chomp(line);
        zsigs[numzsigs++] = line;
    }
    fclose(file);
    return 0;
}

func random_zsig()
{
  return zsigs[rnd % numzsigs];
}

add_cmd("load_zsigs", -1, .Load_zsigs, "/load_zsigs <filename>");

---