---

zephyr-core.vtc

Go to the documentation of this file.

/* -*- C -*- */
Tzgram ?:= new_assoc();
/*?
struct Tzgram
{
  personal;
  opcode;
  class;
  instance;
  sender;
  fromhost;
  ztime;
  auth;
  fields;
  numfields;
};
?*/

func new_zgram() [zgram]
{
    zgram = alloc(10, Tzgram);
    zgram->personal = 0;
    zgram->opcode = "";
    zgram->class = "";
    zgram->instance = "";
    zgram->sender = "";
    zgram->fromhost = "";
    zgram->ztime = "";
    zgram->auth = "";
    zgram->fields = alloc(2); /* usual case */
    zgram->numfields = 0;
    return zgram;
}

func zapply(f, z)
{
  z->opcode = (*f)(z->opcode);
  z->class = (*f)(z->class);
  z->instance = (*f)(z->instance);
  z->fromhost = (*f)(z->fromhost);
  z->sender = (*f)(z->sender);
  z->ztime = (*f)(z->ztime);
  z->auth = (*f)(z->auth);  
}

ZEPHYR ?:= alloc(5, Twtype);
ZEPHYR->name = "Zephyr";

func zephyr_init(world, rmt, login)
{
    world->status = "";
    world->class_defaults = make_tree(.stricmp);
    world->zephyr = new_zgram();
}
ZEPHYR->init = .zephyr_init;

func zephyr_cleanup(world)
{
    if (rmt_win(world->rmt))
        del_status(rmt_win(world->rmt), world->status);
}
ZEPHYR->cleanup = .zephyr_cleanup;

func zephyr_change_window(world, old, new)
{
    if (old)
        del_status(old, world->status);
    add_status(new, world->status);
}
ZEPHYR->change_window = .zephyr_change_window;

func zephyr_netread(line) [n] {
    if (strcmp(line, "mail") == 0)
        output("New mail\n", S_HILITE);
    else if (strcmp(line, "personal") == 0)
        cur_rmt->zephyr->personal = 1;
    else if (strcmp(line, "done") == 0)
        zephyr_output();
    else if (strcmp(line, "opcode: ", 8) == 0)
        cur_rmt->zephyr->opcode += (line + 8) + "\n";
    else if (strcmp(line, "class: ", 7) == 0)
        cur_rmt->zephyr->class += (line + 7) + "\n";
    else if (strcmp(line, "instance: ", 10) == 0)
        cur_rmt->zephyr->instance += (line + 10) + "\n";
    else if (strcmp(line, "sender: ", 8) == 0)
        cur_rmt->zephyr->sender += (line + 8) + "\n";
    else if (strcmp(line, "fromhost: ", 10) == 0)
        cur_rmt->zephyr->fromhost += (line + 10) + "\n";
    else if (strcmp(line, "time: ", 6) == 0)
        cur_rmt->zephyr->ztime += (line + 6) + "\n";
    else if (strcmp(line, "auth: ", 6) == 0)
        cur_rmt->zephyr->auth += (line + 6) + "\n";
    else if (regexec(zfieldregex, line) != 0) {
        n = atoi(regmatch(zfieldregex, 1));
        if (n >= cur_rmt->zephyr->numfields) {
            cur_rmt->zephyr->numfields = n+1;
            cur_rmt->zephyr->fields[n] = "";
        }
        cur_rmt->zephyr->fields[n] += regmatch(zfieldregex, 2) + "\n";
    }
    else if (*line)
        printf("%s\n", line);
}
ZEPHYR->netread = .zephyr_netread;

func zephyr_save(w, fp) {
    fprintf(fp, "%s(%s);\n", func_name(w->type->add), arglist(w->name));
}
ZEPHYR->save = .zephyr_save;

func zephyr_list(w) {
    printf("%15s %10s\n", w->name, w->type->name);
}
ZEPHYR->list = .zephyr_list;

func zephyr_print(w) {
    printf("Type: %s\n", w->type->name);
    printf("Name: %s\n", w->name);
}
ZEPHYR->print = .zephyr_print;

/* zephyr_outbound goes here */

func add_zephyr(name) {
                add_world(new_shell(ZEPHYR, name, "exec zwgc -nofork -f $HOME/.zwgc.desc.vt"));
}
ZEPHYR->add = .add_zephyr;

add_cmd("add_zephyr", 1, .add_zephyr, "/add_zephyr <name>");

---