-#define VLINE (wwnrow - 3)
-static vlineno;
-static struct ww *vw;
-
-c_variable()
-{
- int printvar();
-
- if ((vw = openiwin(VLINE, "Variables")) == 0) {
- error("Can't open variable window: %s.", wwerror());
- return;
- }
- vlineno = 0;
- var_walk(printvar);
- waitnl(vw);
- closeiwin(vw);
-}
-
-printvar(r)
-register struct var *r;
-{
- if (vlineno >= VLINE - 2)
- waitnl(vw);
- wwprintf(vw, "%16s\t", r->r_name);
- switch (r->r_val.v_type) {
- case V_STR:
- wwprintf(vw, "%s\n", r->r_val.v_str);
- break;
- case V_NUM:
- wwprintf(vw, "%d\n", r->r_val.v_num);
- break;
- case V_ERR:
- wwprintf(vw, "ERR\n");
- break;
- }
-}
-