INIT
INIT {
INIT {
INIT {
#ifdef INIT
#ifdef INIT
EXT char *origdir INIT(NULL); /* cwd when warp invoked */
EXT char *homedir INIT(NULL); /* login directory */
EXT char *dotdir INIT(NULL); /* where . files go */
EXT char *logname INIT(NULL); /* login id */
EXT char *realname INIT(NULL); /* real name from /etc/passwd */
EXT int finish INIT(0);
EXT long lastscore INIT(0);
EXT char c INIT(' ');
KEYMAP *topmap INIT(NULL);
EXT int nextin INIT(0);
EXT int nextout INIT(0);
EXT long iocount INIT(0);
EXT int devtty INIT(0);
EXT long iocount INIT(0);
EXT int devtty INIT(0);
EXT bool is_input INIT(false);
EXT char pending_ch INIT(0);
EXT int _res_flg INIT(0);
EXT int _tty_ch INIT(2);
EXT bool bizarre INIT(false); /* do we need to restore terminal? */
EXT char *BC INIT(NULL); /* backspace character */
EXT char *UP INIT(NULL); /* move cursor up one line */
EXT char *ND INIT(NULL); /* non-destructive cursor right */
EXT char *DO INIT(NULL); /* move cursor down one line */
EXT char *CR INIT(NULL); /* get to left margin, somehow */
EXT char *VB INIT(NULL); /* visible bell */
EXT char *CL INIT(NULL); /* home and clear screen */
EXT char *CE INIT(NULL); /* clear to end of line */
EXT char *CM INIT(NULL); /* cursor motion -- PWP */
EXT char *HO INIT(NULL); /* home cursor -- PWP */
EXT char *CD INIT(NULL); /* clear to end of display -- PWP */
EXT char *SO INIT(NULL); /* begin standout mode */
EXT char *SE INIT(NULL); /* end standout mode */
EXT int SG INIT(0); /* blanks left by SO and SE */
EXT char *US INIT(NULL); /* start underline mode */
EXT char *UE INIT(NULL); /* end underline mode */
EXT char *UC INIT(NULL); /* underline a character, if that's how it's done */
EXT int UG INIT(0); /* blanks left by US and UE */
EXT bool AM INIT(false); /* does terminal have automatic margins? */
EXT bool XN INIT(false); /* does it eat 1st newline after automatic wrap? */
EXT char PC INIT(0); /* pad character for use by tputs() */
EXT short ospeed INIT(0); /* terminal output speed, for use by tputs() */
EXT int LINES INIT(0), COLS INIT(0); /* size of screen */
EXT int just_a_sec INIT(960); /* 1 sec at current baud rate */
EXT int BCsize INIT(1);
EXT int DOsize INIT(1000);
EXT int UPsize INIT(1000);
EXT int NDsize INIT(1000);
EXT int real_y INIT(-100);
EXT int real_x INIT(-100);
EXT char *bsptr INIT(filler+1);
EXT char gfillen INIT(25);
EXT char INTRCH INIT('\03');
EXT int dam INIT(0);
EXT int lastdam INIT(-1);
EXT int damage INIT(0);
EXT int olddamage INIT(-1);
EXT int len_last_line_got INIT(0);
EXT char *cwd INIT(NULL); /* current working directory */
EXT int debug INIT(0); /* -D */
EXT bool verbose INIT(true); /* +t */
EXT FILE *tmpfp INIT(NULL); /* scratch fp */
EXT char nullstr[] INIT("");
EXT char readerr[] INIT("warp read error");
EXT char cantopen[] INIT("Can't open %s\r\n");
EXT bool justonemoretime INIT(true);
EXT bool keepgoing INIT(true);
EXT bool friendspec INIT(false);
EXT bool piratespec INIT(false);
EXT bool amoebaspec INIT(false);
EXT bool starspec INIT(false);
EXT bool klingspec INIT(false);
EXT bool apolspec INIT(false);
EXT bool crushspec INIT(false);
EXT bool romspec INIT(false);
EXT bool prespec INIT(false);
EXT bool tholspec INIT(false);
EXT bool gornspec INIT(false);
EXT bool beginner INIT(false);
EXT bool massacre INIT(false);
EXT bool lowspeed INIT(false);
EXT bool debugging INIT(false);
EXT bool didkill INIT(false);
EXT bool experimenting INIT(false);
EXT bool scorespec INIT(false);
EXT bool metakey INIT(false);
EXT int panic INIT(0);
EXT int ismarts INIT(0);
EXT int numos INIT(0);
EXT int numxes INIT(0);
EXT int prescene INIT(-1);
EXT int tractor INIT(0);
} else if (INIT(psenc->inuse) == init) {
if (INIT(psenc->inuse) != init ||
} else if (candidate == (init = INIT(candidate))) {
for (pc = start, INIT(here, pc); pc != stop; pc++, INC(here)) {
INIT(here, pc);
INIT(&ctx1);
INIT(&ctx);
INIT(&ctx1);
{.k_word = "INIT", .k_type = KW_T_INT, .k_int = INIT,
{"160", INIT(512, 1, 1, 2, 64, 320, 0xfe, 1, 8, 1)},
{"180", INIT(512, 1, 1, 2, 64, 360, 0xfc, 2, 9, 1)},
{"320", INIT(512, 2, 1, 2, 112, 640, 0xff, 1, 8, 2)},
{"360", INIT(512, 2, 1, 2, 112, 720, 0xfd, 2, 9, 2)},
{"640", INIT(512, 2, 1, 2, 112, 1280, 0xfb, 2, 8, 2)},
{"720", INIT(512, 2, 1, 2, 112, 1440, 0xf9, 3, 9, 2)},
{"1200", INIT(512, 1, 1, 2, 224, 2400, 0xf9, 7, 15, 2)},
{"1232", INIT(1024,1, 1, 2, 192, 1232, 0xfe, 2, 8, 2)},
{"1440", INIT(512, 1, 1, 2, 224, 2880, 0xf0, 9, 18, 2)},
{"2880", INIT(512, 2, 1, 2, 240, 5760, 0xf0, 9, 36, 2)}
INIT(vfsmsg_fhtonode,
INIT(vnmsg_lookup, 0);
INIT(vnmsg_create, 0);
INIT(vnmsg_mknod, 0);
INIT(vnmsg_mkdir, 0);
INIT(vnmsg_symlink, 0);
INIT(vnmsg_setattr, 0);
INIT(vnmsg_getattr, 0);
INIT(vfsmsg_fhtonode);
INIT(vnmsg_lookup);
INIT(vnmsg_create);
INIT(vnmsg_mknod);
INIT(vnmsg_mkdir);
INIT(vnmsg_symlink);
INIT(vnmsg_setattr);
INIT(vnmsg_getattr);
case INIT:
carp_set_state(sc, INIT);
case INIT:
carp_set_state(sc, INIT);
carp_set_state(sc, INIT);
carp_set_state(sc, INIT);
carp_set_state(sc, INIT);
carp_set_state(sc, INIT);
if (sc->sc_state != INIT && !(ifr->ifr_flags & IFF_UP)) {
carp_set_state(sc, INIT);
} else if (sc->sc_state == INIT && (ifr->ifr_flags & IFF_UP)) {
if (sc->sc_state != INIT && carpr.carpr_state != sc->sc_state) {
carp_set_state(sc, INIT);
carp_set_state(sc, INIT);
carp_set_state(sc, INIT);
case INIT:
carp_set_state(sc, INIT);
EXTERN char *out_name INIT("menu_defs");
EXTERN char *sys_name INIT("menu_sys.def");
EXTERN int do_dynamic INIT(0);
EXTERN int do_msgxlat INIT(0);
EXTERN int do_expands INIT(0);
EXTERN int line_no INIT(1);
EXTERN int had_errors INIT(FALSE);
EXTERN int max_strlen INIT(1);
EXTERN id_rec *root INIT(NULL);
EXTERN action error_act INIT({NULL});
EXTERN char *out_name INIT("msg_defs");
EXTERN char *sys_name INIT("msg_sys.def");
EXTERN int line_no INIT(1);
EXTERN int had_errors INIT(FALSE);
EXTERN int max_strlen INIT(1);
EXTERN id_rec *root INIT(NULL);
if (!(p->v_type&(ENVIRON|INIT)))
p->v_type &= ~(ENVIRON|INIT);
{ "chardelay", NUMBER|IREMOTE|INIT, (READ|WRITE)<<PUBLIC,
{ "etimeout", NUMBER|IREMOTE|INIT, (READ|WRITE)<<PUBLIC,
{ "parity", STRING|INIT|IREMOTE, (READ|WRITE)<<PUBLIC,
{ "baudrate", NUMBER|IREMOTE|INIT, (READ<<PUBLIC)|(WRITE<<ROOT),
{ "eofread", STRING|IREMOTE|INIT, (READ|WRITE)<<PUBLIC,
{ "eofwrite", STRING|IREMOTE|INIT, (READ|WRITE)<<PUBLIC,
{ "eol", STRING|IREMOTE|INIT, (READ|WRITE)<<PUBLIC,
{ "exceptions", STRING|INIT|IREMOTE, (READ|WRITE)<<PUBLIC,
{ "framesize", NUMBER|IREMOTE|INIT, (READ|WRITE)<<PUBLIC,
{ "host", STRING|IREMOTE|INIT, READ<<PUBLIC,
{ "phones", STRING|INIT|IREMOTE, READ<<PUBLIC,
{ "record", STRING|INIT|IREMOTE, (READ|WRITE)<<PUBLIC,
{ "remote", STRING|INIT|IREMOTE, READ<<PUBLIC,
{ "SHELL", STRING|ENVIRON|INIT, (READ|WRITE)<<PUBLIC,
{ "disconnect", STRING|IREMOTE|INIT, (READ|WRITE)<<PUBLIC,
{ "linedelay", NUMBER|IREMOTE|INIT, (READ|WRITE)<<PUBLIC,
INIT("-request"),
INIT("postmaster"),
INIT("uucp"),
INIT("mailer-daemon"),
INIT("mailer"),
INIT("-relay"),
op == RETURN || op == INIT || op == FARG)
if (!typeok(INIT, NULL, 0, ln, rn))
rn = convert(INIT, 0, unconst_cast(ltp), rn);
tnode_t *tn = build_binary(ln, INIT, false /* XXX */, rn);
op == INIT;
if ((op == ASSIGN || op == RETURN || op == INIT) &&
op != ASSIGN && op != RETURN && op != INIT)
case INIT:
if (op == RETURN || op == INIT || op == FARG)
case INIT:
case INIT:
case INIT:
case INIT:
case INIT:
case INIT:
case INIT:
else if (op == INIT)
else if (op == INIT && tp->t_bitfield)
else if (op == INIT)
else if (op == INIT && tp->t_bitfield)