/* This file was automatically generated by pclu.*/

#include "pclu_err.h"
#include "pclu_sys.h"


/**** BEGIN CLUSTER _resolve ****/

extern errcode _resolve_IB_1();
extern errcode _resolve_IB_2();
extern errcode _resolve_IB_3();
extern errcode _resolveOPinit();
extern errcode sequenceOPelements();
extern errcode _chanOPopen();
extern errcode file_nameOPparse();
extern errcode intOPlt();
extern errcode _wordvecOPcreate();
extern errcode _wordvecOPwstore();
extern errcode _wordvecOPlstore();
extern errcode _chanOPgetw();
extern errcode _chanOPclose();
extern errcode _bytevecOPindexc();
extern errcode _cvt();
extern errcode intOPgt();
extern errcode stringOPsubstr();
extern errcode intOPsub();
extern errcode charOPequal();
extern errcode stringOPfetch();
extern errcode intOPadd();
extern errcode boolOPnot();
extern errcode intOPequal();
extern errcode stringOPindexs();
extern errcode string_lindexs();
extern errcode stringOPsize();
extern errcode stringOPconcat();
extern errcode _bytevecOPfetch();
extern errcode inet_address();
extern errcode _resolveOPqry();
extern errcode stringOPindexc();
extern errcode stringOPequal();
extern errcode _wordvecOPbstore();
extern errcode intOPdiv();
extern errcode stringOPempty();
extern errcode _resolveOPnstore();
extern errcode _resolveOPsend();
extern errcode _wordvecOPwfetch();
extern errcode _resolveOPnskip();
extern errcode intOPfrom_to_by();
extern errcode intOPmul();
extern errcode _wordvecOPbfetch();
extern errcode intOPle();
extern errcode intOPge();
extern errcode charOPc2i();
extern errcode _chanOPsocket();
extern errcode _chanOPsendto();
extern errcode _chanOPread_wait();
extern errcode _chanOPrecvfrom();
extern errcode intOPmod();
extern errcode nullOPdebug_print();
extern OWN_req _resolve_ownreqs;
extern struct OPS *_resolve_ops;
extern struct REQS *sequence_of_t_reqs;
extern struct OPS *string_ops;
extern OWN_req sequence_ownreqs;
extern struct OPS *sequence_ops;
struct OPS *sequence_of_string_table;
struct OPS *sequence_of_string_ops;
struct OPS *sequence_of_string_ops;
OWNPTR sequence_of_string_owns;
CLUREF STR__057usr_057local_057lib_057resolv_056conf;
CLUREF STR__057etc_057nameserver_057resolv_056conf;
CLUREF STR__057usr_057lib_057resolv_056conf;
CLUREF STR__057usr_057local_057ns_057resolv_056conf;
CLUREF STR__057etc_057resolv_056conf;
CLUREF STR__057etc_057athena_057nameserver_057resolv_056conf;
CLUREF STR_read;
CLUREF STR_;
CLUREF STR_domain;
CLUREF STR__040;
CLUREF STR__011;
CLUREF STR__056;
CLUREF STR_nameserver;
CLUREF STR__056ARPA;
static int _resolve_own_init = 0;
OWN_req _resolve_ownreqs = {0,0};
CLUREF _resolveOPpkid;
CLUREF _resolveOPbuf;
CLUREF _resolveOPans;
CLUREF _resolveOPnsaddr;
CLUREF _resolveOPfromaddr;
CLUREF _resolveOPretries;
CLUREF _resolveOPtimeout;
CLUREF _resolveOPdefaultdomain;
errcode _resolve_own_init_proc()
{
struct {
    errcode err;
    } locals;
    enter_own_init_proc();
        if (_resolve_own_init == 0) {
        add_parm_info_type(0, string_ops, sequence_of_t_reqs);
        find_type_instance(sequence_ops, 1, &sequence_ownreqs, &(sequence_of_string_ops));
        stringOPcons("/usr/local/lib/resolv.conf", CLU_1, CLU_26, &STR__057usr_057local_057lib_057resolv_056conf);
        stringOPcons("/etc/nameserver/resolv.conf", CLU_1, CLU_27, &STR__057etc_057nameserver_057resolv_056conf);
        stringOPcons("/usr/lib/resolv.conf", CLU_1, CLU_20, &STR__057usr_057lib_057resolv_056conf);
        stringOPcons("/usr/local/ns/resolv.conf", CLU_1, CLU_25, &STR__057usr_057local_057ns_057resolv_056conf);
        stringOPcons("/etc/resolv.conf", CLU_1, CLU_16, &STR__057etc_057resolv_056conf);
        stringOPcons("/etc/athena/nameserver/resolv.conf", CLU_1, CLU_34, &STR__057etc_057athena_057nameserver_057resolv_056conf);
        stringOPcons("read", CLU_1, CLU_4, &STR_read);
        stringOPcons("", CLU_1, CLU_0, &STR_);
        stringOPcons("domain", CLU_1, CLU_6, &STR_domain);
        stringOPcons(" ", CLU_1, CLU_1, &STR__040);
        stringOPcons("\t", CLU_1, CLU_1, &STR__011);
        stringOPcons(".", CLU_1, CLU_1, &STR__056);
        stringOPcons("nameserver", CLU_1, CLU_10, &STR_nameserver);
        stringOPcons(".ARPA", CLU_1, CLU_5, &STR__056ARPA);
        _resolve_own_init = 1;
        _resolveOPpkid.num = UNINIT;
        _resolveOPbuf.num = UNINIT;
        _resolveOPans.num = UNINIT;
        _resolveOPnsaddr.num = UNINIT;
        _resolveOPfromaddr.num = UNINIT;
        _resolveOPretries.num = UNINIT;
        _resolveOPtimeout.num = UNINIT;
        {
            {CLUREF T_0_1;
            locals.err = _resolveOPinit(&T_0_1);
            if (locals.err != ERR_ok) goto ex_0;
            _resolveOPdefaultdomain.num = T_0_1.num;
            }
            }
        {signal(ERR_ok);}
    ex_0: pclu_unhandled(locals.err); {signal(ERR_failure);}
        }
    }

extern struct dbg_info* dbg_info__resolveOPinit;
#undef MY_TRACE_FLAG
#define MY_TRACE_FLAG _resolveOPinit_TRACE
int _resolveOPinit_TRACE;
extern struct OPS *int_ops;
extern struct OPS *_wordvec_ops;
static Vlist16 owns__resolve = {0, 16,{ {0, 2, "_resolve_init", &int_ops}
,  {0, 2, "pkid", &int_ops},  {0, 2, "buf", &_wordvec_ops},  {0, 2, "ans", &_wordvec_ops},  {0, 2, "nsaddr", &_wordvec_ops},  {0, 2, "fromaddr", &_wordvec_ops},  {0, 2, "retries", &int_ops},  {0, 2, "timeout", &int_ops},  {0, 2, "defaultdomain", &string_ops}, {0, 2, "_resolveOPinit_init", &int_ops}
, {0, 2, "_resolveOPinit_init", &int_ops}
, {0, 2, "_resolveOPinit_init", &int_ops}
, {0, 2, "_resolveOPinit_init", &int_ops}
, {0, 2, "_resolveOPinit_init", &int_ops}
, {0, 2, "_resolveOPinit_init", &int_ops}
, {0, 2, "_resolveOPinit_init", &int_ops}
}
};
extern errcode _resolveOPinit_IB_1();
extern OWN_req string_ownreqs;
struct OPS *sequence_of_string_table;
struct OPS *sequence_of_string_ops;
struct OPS *sequence_of_string_ops;
OWNPTR sequence_of_string_owns;
static int _resolveOPinit_own_init = 0;

/**** BEGIN PROCEDURE init ****/

errcode _resolveOPinit(ret_1)
CLUREF *ret_1;
    {
    struct {
        struct dbg_info *DBG_INFO;
        int DBG_LINE;
        errcode err;
        errcode ecode2;
        CLUREF c;
        CLUREF cf;
        CLUREF len;
        CLUREF line;
        CLUREF beg;
        CLUREF i;
        CLUREF k;
        CLUREF j;
        CLUREF l;
        CLUREF r;
        } locals;
    locals.c.num = UNINIT;
    locals.cf.num = UNINIT;
    locals.len.num = UNINIT;
    locals.line.num = UNINIT;
    locals.beg.num = UNINIT;
    locals.i.num = UNINIT;
    locals.k.num = UNINIT;
    locals.j.num = UNINIT;
    locals.l.num = UNINIT;
    locals.r.num = UNINIT;
    locals.DBG_INFO = dbg_info__resolveOPinit;
        if (_resolveOPinit_own_init == 0) {
        if (_resolve_own_init == 0) {
            locals.err = _resolve_own_init_proc();
            if (locals.err != ERR_ok) goto ex_0;
            }
        _resolveOPinit_own_init = 1;
    }
    enter_proc(56);

  LINE(59);
    locals.c.num = UNINIT;

  LINE(60);
    {
    _resolveOPpkid.num = -1;
    }

  LINE(61);
    {
        CLUREF T_1_1;
        sequenceOPnew2(CLU_6, &T_1_1);
        T_1_1.vec->data[0] = STR__057usr_057local_057lib_057resolv_056conf.num;
        T_1_1.vec->data[1] = STR__057etc_057nameserver_057resolv_056conf.num;
        T_1_1.vec->data[2] = STR__057usr_057lib_057resolv_056conf.num;
        T_1_1.vec->data[3] = STR__057usr_057local_057ns_057resolv_056conf.num;
        T_1_1.vec->data[4] = STR__057etc_057resolv_056conf.num;
        T_1_1.vec->data[5] = STR__057etc_057athena_057nameserver_057resolv_056conf.num;
        locals.err = sequenceOPelements(T_1_1, _resolveOPinit_IB_1, &locals, &locals.ecode2);
        if (locals.err == ERR_iterbodyreturn) {
        ret_1->num = elist[0].num;
        signal(ERR_ok);}
        if (locals.err == ERR_iterbodysignal) {signal(locals.ecode2);}
        if (locals.err == ERR_break) locals.err = ERR_ok;
        if (locals.err == ERR_iterbodyexit) locals.err = locals.ecode2;
        if (locals.err != ERR_ok) goto ex_0;
        }

  LINE(67);
    {
    CLUREF T_1_1;
    T_1_1.num = (_resolveOPpkid.num < 0)? true : false;
    if (T_1_1.num == true) {

  LINE(68);
        {
        {
        ret_1->str = STR_.str;
        }
        {signal (ERR_ok);}}
        }
        }/* end if */

  LINE(69);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    T_1_1.num = 256;
    locals.err = _wordvecOPcreate(T_1_1, &T_1_2);
    if (locals.err != ERR_ok) goto ex_0;
    _resolveOPbuf.num = T_1_2.num;
    }

  LINE(70);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    T_1_1.num = 128;
    locals.err = _wordvecOPcreate(T_1_1, &T_1_2);
    if (locals.err != ERR_ok) goto ex_0;
    _resolveOPans.num = T_1_2.num;
    }

  LINE(71);
    {
    CLUREF T_1_1;
    locals.err = _wordvecOPcreate(CLU_4, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    _resolveOPnsaddr.num = T_1_1.num;
    }

  LINE(72);
    {
    CLUREF T_1_1;
    locals.err = _wordvecOPcreate(CLU_4, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    _resolveOPfromaddr.num = T_1_1.num;
    }

  LINE(73);
    {
    _resolveOPretries.num = 2;
    }

  LINE(74);
    {
    _resolveOPtimeout.num = 15000;
    }

  LINE(75);
    {
    locals.err = _wordvecOPwstore(_resolveOPnsaddr, CLU_1, CLU_2);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(76);
    {
    CLUREF T_1_1;
    T_1_1.num = 13568;
    locals.err = _wordvecOPwstore(_resolveOPnsaddr, CLU_3, T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(77);
    {
    CLUREF T_1_1;
    T_1_1.num = 16777343;
    locals.err = _wordvecOPlstore(_resolveOPnsaddr, CLU_5, T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(78);
    {
        {CLUREF T_1_1;
        locals.err = _chanOPgetw(locals.c, _resolveOPbuf, &T_1_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.len.num = T_1_1.num;
        }
        }

  LINE(79);
    {
    locals.err = _chanOPclose(locals.c);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(80);
    locals.line.num = UNINIT;

  LINE(81);
    {
        {locals.beg.num = 1;
        }
        }

  LINE(82);
    locals.i.num = UNINIT;

  LINE(83);
    for (;;) {
        if (true != true) { break; }

  LINE(84);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        CLUREF T_2_3;
        T_2_1.ch = '\n';
        T_2_2.num = _resolveOPbuf.num;
        locals.err = _bytevecOPindexc(T_2_1, T_2_2, locals.beg, &T_2_3);
        if (locals.err != ERR_ok) goto ex_0;
        locals.i.num = T_2_3.num;
        }

  LINE(85);
        {
        CLUREF T_2_1;
        T_2_1.num = (locals.i.num > locals.len.num)? true : false;
        if (T_2_1.num == true) {

  LINE(86);
            {
            {
            ret_1->str = STR_.str;
            }
            {signal (ERR_ok);}}
            }
            }/* end if */

  LINE(87);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        CLUREF T_2_3;
        T_2_1.num = _resolveOPbuf.num;
        locals.err = intOPsub(locals.i, locals.beg, &T_2_2);
        if (locals.err != ERR_ok) goto ex_0;
        locals.err = stringOPsubstr(T_2_1, locals.beg, T_2_2, &T_2_3);
        if (locals.err != ERR_ok) goto ex_0;
        locals.line.num = T_2_3.num;
        }

  LINE(89);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        CLUREF T_2_3;
        locals.err = stringOPfetch(locals.line, CLU_1, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        T_2_2.ch = ';';
        T_2_3.num = (T_2_1.ch == T_2_2.ch)? true : false;
        if (T_2_3.num == true) {

  LINE(91);
            {
            CLUREF T_3_1;
            locals.err = intOPadd(locals.i, CLU_1, &T_3_1);
            if (locals.err != ERR_ok) goto ex_0;
            locals.beg.num = T_3_1.num;
            }

  LINE(92);
            continue;
            }
        else {

  LINE(94);
            goto end_while_1;
            }}/* end if */
        }
        end_while_1:;

  LINE(100);
    {
        {locals.k.num = 1;
        }
        }

  LINE(101);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    CLUREF T_1_3;
    locals.err = stringOPindexs(STR_domain, locals.line, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    T_1_2.num = (T_1_1.num == 0)? true : false;
    T_1_3.num = T_1_2.num ^ 1;
    if (T_1_3.num == true) {

  LINE(103);
        {
        CLUREF T_2_1;
        locals.err = string_lindexs(STR__040, locals.line, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.k.num = T_2_1.num;
        }

  LINE(104);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        locals.err = stringOPsize(locals.line, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        T_2_2.num = (locals.k.num > T_2_1.num)? true : false;
        if (T_2_2.num == true) {

  LINE(105);
            {
            CLUREF T_3_1;
            locals.err = string_lindexs(STR__011, locals.line, &T_3_1);
            if (locals.err != ERR_ok) goto ex_0;
            locals.k.num = T_3_1.num;
            }
            }
            }/* end if */

  LINE(106);
        {
        CLUREF T_2_1;
        locals.err = intOPadd(locals.k, CLU_1, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.k.num = T_2_1.num;
        }
        }
        }/* end if */

  LINE(108);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    CLUREF T_1_3;
    CLUREF T_1_4;
    CLUREF T_1_5;
    locals.err = stringOPsize(locals.line, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    locals.err = intOPsub(T_1_1, locals.k, &T_1_2);
    if (locals.err != ERR_ok) goto ex_0;
    locals.err = intOPadd(T_1_2, CLU_1, &T_1_3);
    if (locals.err != ERR_ok) goto ex_0;
    locals.err = stringOPsubstr(locals.line, locals.k, T_1_3, &T_1_4);
    if (locals.err != ERR_ok) goto ex_0;
    locals.err = stringOPconcat(STR__056, T_1_4, &T_1_5);
    if (locals.err != ERR_ok) goto ex_0;
    _resolveOPdefaultdomain.num = T_1_5.num;
    }

  LINE(109);
    {
    CLUREF T_1_1;
    locals.err = intOPadd(locals.i, CLU_1, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    locals.i.num = T_1_1.num;
    }

  LINE(110);
    locals.j.num = UNINIT;

  LINE(111);
    for (;;) {
        if (true != true) { break; }

  LINE(112);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        CLUREF T_2_3;
        T_2_1.ch = '\n';
        T_2_2.num = _resolveOPbuf.num;
        locals.err = _bytevecOPindexc(T_2_1, T_2_2, locals.i, &T_2_3);
        if (locals.err != ERR_ok) goto ex_0;
        locals.j.num = T_2_3.num;
        }

  LINE(113);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        CLUREF T_2_3;
        CLUREF T_2_4;
        T_2_1.num = _resolveOPbuf.num;
        locals.err = _bytevecOPfetch(T_2_1, locals.i, &T_2_2);
        if (locals.err != ERR_ok) goto ex_0;
        T_2_3.ch = ';';
        T_2_4.num = (T_2_2.ch == T_2_3.ch)? true : false;
        if (T_2_4.num == true) {
            {
            CLUREF T_3_1;
            locals.err = intOPadd(locals.j, CLU_1, &T_3_1);
            if (locals.err != ERR_ok) goto ex_0;
            locals.i.num = T_3_1.num;
            }
            continue;
            }
        else {

  LINE(114);
            goto end_while_2;
            }}/* end if */
        }
        end_while_2:;

  LINE(116);
    {
    CLUREF T_2_1;
    T_2_1.num = (locals.j.num > 0)? true : false;
    if (T_2_1.num == true) {

  LINE(118);
        {
        CLUREF T_3_1;
        CLUREF T_3_2;
        CLUREF T_3_3;
        T_3_1.num = _resolveOPbuf.num;
        locals.err = intOPsub(locals.j, locals.i, &T_3_2);
        if (locals.err != ERR_ok) goto ex_1;
        locals.err = stringOPsubstr(T_3_1, locals.i, T_3_2, &T_3_3);
        if (locals.err != ERR_ok) goto ex_1;
        locals.line.num = T_3_3.num;
        }

  LINE(119);
        {
        locals.k.num = 1;
        }

  LINE(120);
        {
        CLUREF T_3_1;
        CLUREF T_3_2;
        locals.err = stringOPindexs(STR_nameserver, locals.line, &T_3_1);
        if (locals.err != ERR_ok) goto ex_1;
        T_3_2.num = (T_3_1.num > 0)? true : false;
        if (T_3_2.num == true) {

  LINE(121);
            {
            CLUREF T_4_1;
            locals.err = string_lindexs(STR__040, locals.line, &T_4_1);
            if (locals.err != ERR_ok) goto ex_1;
            locals.k.num = T_4_1.num;
            }

  LINE(122);
            {
            CLUREF T_4_1;
            CLUREF T_4_2;
            locals.err = stringOPsize(locals.line, &T_4_1);
            if (locals.err != ERR_ok) goto ex_1;
            T_4_2.num = (locals.k.num > T_4_1.num)? true : false;
            if (T_4_2.num == true) {

  LINE(123);
                {
                CLUREF T_5_1;
                locals.err = string_lindexs(STR__011, locals.line, &T_5_1);
                if (locals.err != ERR_ok) goto ex_1;
                locals.k.num = T_5_1.num;
                }
                }
                }/* end if */

  LINE(124);
            {
            CLUREF T_4_1;
            locals.err = intOPadd(locals.k, CLU_1, &T_4_1);
            if (locals.err != ERR_ok) goto ex_1;
            locals.k.num = T_4_1.num;
            }
            }
            }/* end if */

  LINE(126);
        {
            {CLUREF T_3_1;
            CLUREF T_3_2;
            CLUREF T_3_3;
            CLUREF T_3_4;
            CLUREF T_3_5;
            CLUREF T_3_6;
            locals.err = stringOPsize(locals.line, &T_3_1);
            if (locals.err != ERR_ok) goto ex_1;
            locals.err = intOPsub(T_3_1, locals.k, &T_3_2);
            if (locals.err != ERR_ok) goto ex_1;
            locals.err = intOPadd(T_3_2, CLU_1, &T_3_3);
            if (locals.err != ERR_ok) goto ex_1;
            locals.err = stringOPsubstr(locals.line, locals.k, T_3_3, &T_3_4);
            if (locals.err != ERR_ok) goto ex_1;
            locals.err = inet_address(T_3_4, &T_3_5, &T_3_6);
            if (locals.err != ERR_ok) goto ex_1;
            locals.l.num = T_3_5.num;
            locals.r.num = T_3_6.num;
            }
            }

  LINE(128);
        {
        locals.err = _wordvecOPwstore(_resolveOPbuf, CLU_5, locals.r);
        if (locals.err != ERR_ok) goto ex_1;
        }

  LINE(129);
        {
        locals.err = _wordvecOPwstore(_resolveOPbuf, CLU_7, locals.l);
        if (locals.err != ERR_ok) goto ex_1;
        }
        }
        }/* end if */
        goto end_1;
        ex_1:
            {
            }
        end_1:;

  LINE(131);
    {
    {
    ret_1->num = _resolveOPdefaultdomain.num;
    }
    {signal (ERR_ok);}}
    goto end_0;
    ex_0:
        {
            if (locals.err == ERR_failure) {signal(ERR_failure);}
            elist[0] = _pclu_erstr(locals.err);
            {signal(ERR_failure);}
        }
    end_0: elist[0].str = no_return_values_STRING;
        {signal(ERR_failure);}
    }

/**** END PROCEDURE init ****/

extern struct OPS *_chan_ops;
typedef struct {
    int hdr;
    int count;
    char *name;
    char *fname;
    bool is_iter;
    int is_parmd;
    int addr;
    int nargs;
    Vlist1 *vals;
    siglist0 *sigs;
    Vlist12 *locals;
    Vlist16 *owns;
    Vlist0 *ptowns;
    Vlist0 *popowns;
    Slist0 *type_formals;
    Slist0 *op_formals;
    } dbg_info__resolveOPinit_actual;
static Vlist1 vals__resolveOPinit = {0, 1, { {0, 2, "", &string_ops}}
};
static siglist0 sigs__resolveOPinit = {0, 0};
static Vlist12 locals__resolveOPinit = {0, 12,{ {0, 2, "err", &int_ops},  {0, 2, "ecode2", &int_ops},  {0, 2, "c", &_chan_ops},  {0, 2, "cf", &string_ops},  {0, 2, "len", &int_ops},  {0, 2, "line", &string_ops},  {0, 2, "beg", &int_ops},  {0, 2, "i", &int_ops},  {0, 2, "k", &int_ops},  {0, 2, "j", &int_ops},  {0, 2, "l", &int_ops},  {0, 2, "r", &int_ops}}
};
static Vlist0 popowns__resolveOPinit = {0, 0};
Slist0 tformals__resolveOPinit = {0, 0};
Slist0 opformals__resolveOPinit = {0, 0};
dbg_info__resolveOPinit_actual dbg_info__resolveOPinit_data = {0, 12, 
    "_resolveOPinit", "/common/pub/dcurtis-temp/pclu/lib/clu/_resolve.clu", 0, 0, (int)_resolveOPinit, 0, 
    &vals__resolveOPinit, &sigs__resolveOPinit, &locals__resolveOPinit, &owns__resolve, &NO_VALS, &NO_VALS, &NO_PARMS, &NO_PARMS};
    struct dbg_info *dbg_info__resolveOPinit = (struct dbg_info*)&dbg_info__resolveOPinit_data;

/**** BEGIN ITERATOR BODIES for init ****/

errcode _resolveOPinit_IB_1(iv_1, locals, iecode)
errcode *iecode;
CLUREF iv_1;
struct {
    struct dbg_info *DBG_INFO;
    int DBG_LINE;
    errcode err;
    errcode ecode2;
    CLUREF c;
    CLUREF cf;
    CLUREF len;
    CLUREF line;
    CLUREF beg;
    CLUREF i;
    CLUREF k;
    CLUREF j;
    CLUREF l;
    CLUREF r;
    } *locals;
{
    locals->cf.num = iv_1.num;
    enter_iter_body_proc(63);

  FB_LINE(62);
    {
    CLUREF T_2_1;
    CLUREF T_2_2;
    locals->err = file_nameOPparse(locals->cf, &T_2_1);
    if (locals->err != ERR_ok) goto ex_1;
    locals->err = _chanOPopen(T_2_1, STR_read, CLU_0, &T_2_2);
    if (locals->err != ERR_ok) goto ex_1;
    locals->c.num = T_2_2.num;
    }
        goto end_1;
        ex_1:
            if ((locals->err == ERR_not_possible)) {

  FB_LINE(63);
                {signal(ERR_ok);}
            }
            else {
                goto ex_0;
            }
        end_1:;

  FB_LINE(64);
    {
    _resolveOPpkid.num = 0;
    }

  FB_LINE(65);
    {signal(ERR_break);}
    {signal(ERR_ok);}
    ex_0:
        {
            *iecode = locals->err;
            {signal(ERR_iterbodyexit);}}
    end_0: {signal(ERR_ok);}
    }/* end _resolveOPinit_IB_1 */

/**** END ITERATOR BODIES for init ****/

extern struct dbg_info* dbg_info__resolveOPn2a;
#undef MY_TRACE_FLAG
#define MY_TRACE_FLAG _resolveOPn2a_TRACE
int _resolveOPn2a_TRACE;
extern OWN_req int_ownreqs;
static int _resolveOPn2a_own_init = 0;

/**** BEGIN PROCEDURE n2a ****/

errcode _resolveOPn2a(name, ret_1, ret_2)
CLUREF name;
CLUREF *ret_1;
CLUREF *ret_2;
    {
    struct {
        struct dbg_info *DBG_INFO;
        int DBG_LINE;
        errcode err;
        errcode ecode2;
        CLUREF l;
        CLUREF r;
        CLUREF name;
        } locals;
    locals.l.num = UNINIT;
    locals.r.num = UNINIT;
    locals.name.num = UNINIT;
    locals.DBG_INFO = dbg_info__resolveOPn2a;
    locals.name = name;
        if (_resolveOPn2a_own_init == 0) {
        if (_resolve_own_init == 0) {
            locals.err = _resolve_own_init_proc();
            if (locals.err != ERR_ok) goto ex_0;
            }
        _resolveOPn2a_own_init = 1;
    }
    enter_proc(134);

  LINE(136);
    {
    CLUREF T_1_1;
    T_1_1.num = (_resolveOPpkid.num < 0)? true : false;
    if (T_1_1.num == true) {

  LINE(137);
        {
        {signal (ERR_no_server);}}
        }
        }/* end if */

  LINE(138);
    {
        {CLUREF T_3_1;
        CLUREF T_3_2;
        locals.err = _resolveOPqry(locals.name, _resolveOPdefaultdomain, &T_3_1, &T_3_2);
        if (locals.err != ERR_ok) goto ex_2;
        locals.l.num = T_3_1.num;
        locals.r.num = T_3_2.num;
        }
        }
    goto end_2;
    ex_2:
        if (locals.err == ERR_timeout) {signal(ERR_timeout);}
        else {
            goto ex_1;}
    end_2:;
        goto end_1;
        ex_1:
            if ((locals.err == ERR_not_found)) {

  LINE(141);
                {
                CLUREF T_2_1;
                CLUREF T_2_2;
                CLUREF T_2_3;
                CLUREF T_2_4;
                CLUREF T_2_5;
                T_2_2.ch = '.';
                locals.err = stringOPindexc(T_2_2, locals.name, &T_2_3);
                if (locals.err != ERR_ok) goto ex_0;
                T_2_4.num = (T_2_3.num > 0)? true : false;
                T_2_1.num = T_2_4.num;
                if (!T_2_4.num) {
                    locals.err = stringOPequal(_resolveOPdefaultdomain, STR__056ARPA, &T_2_5);
                    if (locals.err != ERR_ok) goto ex_0;
                    T_2_1.num = T_2_5.num;
                }
                if (T_2_1.num == true) {

  LINE(143);
                    {
                    {signal (ERR_not_found);}}
                    }
                    }/* end if */

  LINE(144);
                {
                CLUREF T_3_1;
                CLUREF T_3_2;
                locals.err = _resolveOPqry(locals.name, STR__056ARPA, &T_3_1, &T_3_2);
                if (locals.err != ERR_ok) goto ex_3;
                locals.l.num = T_3_1.num;
                locals.r.num = T_3_2.num;
                }
                goto end_3;
                ex_3:
                    if (locals.err == ERR_not_found) {signal(ERR_not_found);}
                    else if (locals.err == ERR_timeout) {signal(ERR_timeout);}
                    else {
                        goto ex_0;}
                end_3:;
            }
            else {
                goto ex_0;
            }
        end_1:;

  LINE(147);
    {
    {
    ret_1->num = locals.l.num;
    }
    {
    ret_2->num = locals.r.num;
    }
    {signal (ERR_ok);}}
    goto end_0;
    ex_0:
        {
            if (locals.err == ERR_failure) {signal(ERR_failure);}
            elist[0] = _pclu_erstr(locals.err);
            {signal(ERR_failure);}
        }
    end_0: elist[0].str = no_return_values_STRING;
        {signal(ERR_failure);}
    }

/**** END PROCEDURE n2a ****/

typedef struct {
    int hdr;
    int count;
    char *name;
    char *fname;
    bool is_iter;
    int is_parmd;
    int addr;
    int nargs;
    Vlist2 *vals;
    siglist3 *sigs;
    Vlist5 *locals;
    Vlist16 *owns;
    Vlist0 *ptowns;
    Vlist0 *popowns;
    Slist0 *type_formals;
    Slist0 *op_formals;
    } dbg_info__resolveOPn2a_actual;
static Vlist2 vals__resolveOPn2a = {0, 2, { {0, 2, "", &int_ops},  {0, 2, "", &int_ops}}
};
static sig_desc0 sig__resolveOPn2a_1 = {0, 3, "no_server", {0, 0
}};
static sig_desc0 sig__resolveOPn2a_2 = {0, 3, "not_found", {0, 0
}};
static sig_desc0 sig__resolveOPn2a_3 = {0, 3, "timeout", {0, 0
}};
static siglist3 sigs__resolveOPn2a = {0, 3, (sig_desc*)&sig__resolveOPn2a_1, (sig_desc*)&sig__resolveOPn2a_2, (sig_desc*)&sig__resolveOPn2a_3};
static Vlist5 locals__resolveOPn2a = {0, 5,{ {0, 2, "err", &int_ops},  {0, 2, "ecode2", &int_ops},  {0, 2, "l", &int_ops},  {0, 2, "r", &int_ops},  {0, 2, "name", &string_ops}}
};
static Vlist0 popowns__resolveOPn2a = {0, 0};
Slist0 tformals__resolveOPn2a = {0, 0};
Slist0 opformals__resolveOPn2a = {0, 0};
dbg_info__resolveOPn2a_actual dbg_info__resolveOPn2a_data = {0, 12, 
    "_resolveOPn2a", "/common/pub/dcurtis-temp/pclu/lib/clu/_resolve.clu", 0, 0, (int)_resolveOPn2a, 1, 
    &vals__resolveOPn2a, &sigs__resolveOPn2a, &locals__resolveOPn2a, &owns__resolve, &NO_VALS, &NO_VALS, &NO_PARMS, &NO_PARMS};
    struct dbg_info *dbg_info__resolveOPn2a = (struct dbg_info*)&dbg_info__resolveOPn2a_data;
extern struct dbg_info* dbg_info__resolveOPqry;
#undef MY_TRACE_FLAG
#define MY_TRACE_FLAG _resolveOPqry_TRACE
int _resolveOPqry_TRACE;
extern errcode _resolveOPqry_IB_1();
static int _resolveOPqry_own_init = 0;

/**** BEGIN PROCEDURE qry ****/

errcode _resolveOPqry(name, domain, ret_1, ret_2)
CLUREF name;
CLUREF domain;
CLUREF *ret_1;
CLUREF *ret_2;
    {
    struct {
        struct dbg_info *DBG_INFO;
        int DBG_LINE;
        errcode err;
        errcode ecode2;
        CLUREF idx;
        CLUREF ancount;
        CLUREF tp;
        CLUREF cl;
        CLUREF n;
        CLUREF name;
        CLUREF domain;
        } locals;
    locals.idx.num = UNINIT;
    locals.ancount.num = UNINIT;
    locals.tp.num = UNINIT;
    locals.cl.num = UNINIT;
    locals.n.num = UNINIT;
    locals.name.num = UNINIT;
    locals.domain.num = UNINIT;
    locals.DBG_INFO = dbg_info__resolveOPqry;
    locals.name = name;
    locals.domain = domain;
        if (_resolveOPqry_own_init == 0) {
        if (_resolve_own_init == 0) {
            locals.err = _resolve_own_init_proc();
            if (locals.err != ERR_ok) goto ex_0;
            }
        _resolveOPqry_own_init = 1;
    }
    enter_proc(150);

  LINE(152);
    {
    CLUREF T_1_1;
    locals.err = intOPadd(_resolveOPpkid, CLU_1, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    _resolveOPpkid.num = T_1_1.num;
    }

  LINE(153);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    T_1_1.num = 256;
    locals.err = intOPdiv(_resolveOPpkid, T_1_1, &T_1_2);
    if (locals.err != ERR_ok) goto ex_0;
    locals.err = _wordvecOPbstore(_resolveOPbuf, CLU_1, T_1_2);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(154);
    {
    locals.err = _wordvecOPbstore(_resolveOPbuf, CLU_2, _resolveOPpkid);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(155);
    {
    locals.err = _wordvecOPbstore(_resolveOPbuf, CLU_3, CLU_1);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(156);
    {
    locals.err = _wordvecOPbstore(_resolveOPbuf, CLU_4, CLU_0);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(157);
    {
    locals.err = _wordvecOPwstore(_resolveOPbuf, CLU_5, CLU_0);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(158);
    {
    locals.err = _wordvecOPbstore(_resolveOPbuf, CLU_6, CLU_1);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(159);
    {
    locals.err = _wordvecOPwstore(_resolveOPbuf, CLU_7, CLU_0);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(160);
    {
    locals.err = _wordvecOPwstore(_resolveOPbuf, CLU_9, CLU_0);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(161);
    {
    locals.err = _wordvecOPwstore(_resolveOPbuf, CLU_11, CLU_0);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(162);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    CLUREF T_1_3;
    CLUREF T_1_4;
    CLUREF T_1_5;
    CLUREF T_1_6;
    CLUREF T_1_7;
    CLUREF T_1_8;
    CLUREF T_1_9;
    locals.err = stringOPempty(locals.name, &T_1_3);
    if (locals.err != ERR_ok) goto ex_0;
    T_1_4.num = T_1_3.num ^ 1;
    T_1_2.num = T_1_4.num;
    if (T_1_4.num) {
        locals.err = stringOPempty(locals.domain, &T_1_5);
        if (locals.err != ERR_ok) goto ex_0;
        T_1_6.num = T_1_5.num ^ 1;
        T_1_2.num = T_1_6.num;
    }
    T_1_1.num = T_1_2.num;
    if (T_1_2.num) {
        T_1_7.ch = '.';
        locals.err = stringOPindexc(T_1_7, locals.name, &T_1_8);
        if (locals.err != ERR_ok) goto ex_0;
        T_1_9.num = (T_1_8.num == 0)? true : false;
        T_1_1.num = T_1_9.num;
    }
    if (T_1_1.num == true) {

  LINE(164);
        {
        CLUREF T_2_1;
        locals.err = stringOPconcat(locals.name, locals.domain, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.name.num = T_2_1.num;
        }
        }
        }/* end if */

  LINE(165);
    {
        {CLUREF T_2_1;
        CLUREF T_2_2;
        T_2_1.num = 1008;
        locals.err = _resolveOPnstore(locals.name, CLU_13, T_2_1, &T_2_2);
        if (locals.err != ERR_ok) goto ex_1;
        locals.idx.num = T_2_2.num;
        }
        }
        goto end_1;
        ex_1:
            if ((locals.err == ERR_bounds)) {

  LINE(166);
                {
                {signal (ERR_not_found);}}
            }
            else {
                goto ex_0;
            }
        end_1:;

  LINE(167);
    {
    locals.err = _wordvecOPbstore(_resolveOPbuf, locals.idx, CLU_0);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(168);
    {
    CLUREF T_1_1;
    locals.err = intOPadd(locals.idx, CLU_1, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    locals.err = _wordvecOPbstore(_resolveOPbuf, T_1_1, CLU_1);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(169);
    {
    CLUREF T_1_1;
    locals.err = intOPadd(locals.idx, CLU_2, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    locals.err = _wordvecOPbstore(_resolveOPbuf, T_1_1, CLU_0);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(170);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    locals.err = intOPadd(locals.idx, CLU_3, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    T_1_2.num = 255;
    locals.err = _wordvecOPbstore(_resolveOPbuf, T_1_1, T_1_2);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(171);
    {
    CLUREF T_2_1;
    CLUREF T_2_2;
    locals.err = intOPadd(locals.idx, CLU_3, &T_2_1);
    if (locals.err != ERR_ok) goto ex_2;
    locals.err = _resolveOPsend(T_2_1, &T_2_2);
    if (locals.err != ERR_ok) goto ex_2;
    }
    goto end_2;
    ex_2:
        if (locals.err == ERR_timeout) {signal(ERR_timeout);}
        else {
            goto ex_0;}
    end_2:;

  LINE(176);
    {
    locals.idx.num = 13;
    }

  LINE(177);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    CLUREF T_1_3;
    locals.err = _wordvecOPwfetch(_resolveOPans, CLU_5, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    T_1_2.num = (T_1_1.num == 0)? true : false;
    T_1_3.num = T_1_2.num ^ 1;
    if (T_1_3.num == true) {

  LINE(178);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        locals.err = _resolveOPnskip(locals.idx, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.err = intOPadd(T_2_1, CLU_4, &T_2_2);
        if (locals.err != ERR_ok) goto ex_0;
        locals.idx.num = T_2_2.num;
        }
        }
        }/* end if */

  LINE(179);
    {
        CLUREF T_1_1;
        CLUREF T_1_2;
        CLUREF T_1_3;
        CLUREF T_1_4;
        CLUREF T_1_5;
        CLUREF T_1_6;
        locals.err = _wordvecOPbfetch(_resolveOPans, CLU_7, &T_1_1);
        if (locals.err != ERR_ok) goto ex_0;
        T_1_2.num = 256;
        locals.err = intOPmul(T_1_1, T_1_2, &T_1_3);
        if (locals.err != ERR_ok) goto ex_0;
        locals.err = _wordvecOPbfetch(_resolveOPans, CLU_8, &T_1_4);
        if (locals.err != ERR_ok) goto ex_0;
        locals.err = intOPadd(T_1_3, T_1_4, &T_1_5);
        if (locals.err != ERR_ok) goto ex_0;
        T_1_6.num = -1;
        locals.err = intOPfrom_to_by(T_1_5, CLU_1, T_1_6, _resolveOPqry_IB_1, &locals, &locals.ecode2);
        if (locals.err == ERR_iterbodyreturn) {
        ret_1->num = elist[0].num;
        ret_2->num = elist[1].num;
        signal(ERR_ok);}
        if (locals.err == ERR_iterbodysignal) {signal(locals.ecode2);}
        if (locals.err == ERR_break) locals.err = ERR_ok;
        if (locals.err == ERR_iterbodyexit) locals.err = locals.ecode2;
        if (locals.err != ERR_ok) goto ex_0;
        }

  LINE(196);
    {
    {signal (ERR_not_found);}}
    goto end_0;
    ex_0:
        {
            if (locals.err == ERR_failure) {signal(ERR_failure);}
            elist[0] = _pclu_erstr(locals.err);
            {signal(ERR_failure);}
        }
    end_0: elist[0].str = no_return_values_STRING;
        {signal(ERR_failure);}
    }

/**** END PROCEDURE qry ****/

typedef struct {
    int hdr;
    int count;
    char *name;
    char *fname;
    bool is_iter;
    int is_parmd;
    int addr;
    int nargs;
    Vlist2 *vals;
    siglist2 *sigs;
    Vlist9 *locals;
    Vlist16 *owns;
    Vlist0 *ptowns;
    Vlist0 *popowns;
    Slist0 *type_formals;
    Slist0 *op_formals;
    } dbg_info__resolveOPqry_actual;
static Vlist2 vals__resolveOPqry = {0, 2, { {0, 2, "", &int_ops},  {0, 2, "", &int_ops}}
};
static sig_desc0 sig__resolveOPqry_1 = {0, 3, "not_found", {0, 0
}};
static sig_desc0 sig__resolveOPqry_2 = {0, 3, "timeout", {0, 0
}};
static siglist2 sigs__resolveOPqry = {0, 2, (sig_desc*)&sig__resolveOPqry_1, (sig_desc*)&sig__resolveOPqry_2};
static Vlist9 locals__resolveOPqry = {0, 9,{ {0, 2, "err", &int_ops},  {0, 2, "ecode2", &int_ops},  {0, 2, "idx", &int_ops},  {0, 2, "ancount", &int_ops},  {0, 2, "tp", &int_ops},  {0, 2, "cl", &int_ops},  {0, 2, "n", &int_ops},  {0, 2, "name", &string_ops},  {0, 2, "domain", &string_ops}}
};
static Vlist0 popowns__resolveOPqry = {0, 0};
Slist0 tformals__resolveOPqry = {0, 0};
Slist0 opformals__resolveOPqry = {0, 0};
dbg_info__resolveOPqry_actual dbg_info__resolveOPqry_data = {0, 12, 
    "_resolveOPqry", "/common/pub/dcurtis-temp/pclu/lib/clu/_resolve.clu", 0, 0, (int)_resolveOPqry, 2, 
    &vals__resolveOPqry, &sigs__resolveOPqry, &locals__resolveOPqry, &owns__resolve, &NO_VALS, &NO_VALS, &NO_PARMS, &NO_PARMS};
    struct dbg_info *dbg_info__resolveOPqry = (struct dbg_info*)&dbg_info__resolveOPqry_data;

/**** BEGIN ITERATOR BODIES for qry ****/

errcode _resolveOPqry_IB_1(iv_1, locals, iecode)
errcode *iecode;
CLUREF iv_1;
struct {
    struct dbg_info *DBG_INFO;
    int DBG_LINE;
    errcode err;
    errcode ecode2;
    CLUREF idx;
    CLUREF ancount;
    CLUREF tp;
    CLUREF cl;
    CLUREF n;
    CLUREF name;
    CLUREF domain;
    } *locals;
{
    locals->ancount.num = iv_1.num;
    enter_iter_body_proc(182);

  FB_LINE(182);
    {
    CLUREF T_1_1;
    locals->err = _resolveOPnskip(locals->idx, &T_1_1);
    if (locals->err != ERR_ok) goto ex_0;
    locals->idx.num = T_1_1.num;
    }

  FB_LINE(183);
    {
        {CLUREF T_1_1;
        CLUREF T_1_2;
        CLUREF T_1_3;
        CLUREF T_1_4;
        CLUREF T_1_5;
        CLUREF T_1_6;
        locals->err = _wordvecOPbfetch(_resolveOPans, locals->idx, &T_1_1);
        if (locals->err != ERR_ok) goto ex_0;
        T_1_2.num = 256;
        locals->err = intOPmul(T_1_1, T_1_2, &T_1_3);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = intOPadd(locals->idx, CLU_1, &T_1_4);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = _wordvecOPbfetch(_resolveOPans, T_1_4, &T_1_5);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = intOPadd(T_1_3, T_1_5, &T_1_6);
        if (locals->err != ERR_ok) goto ex_0;
        locals->tp.num = T_1_6.num;
        }
        }

  FB_LINE(184);
    {
    CLUREF T_1_1;
    locals->err = intOPadd(locals->idx, CLU_2, &T_1_1);
    if (locals->err != ERR_ok) goto ex_0;
    locals->idx.num = T_1_1.num;
    }

  FB_LINE(185);
    {
        {CLUREF T_1_1;
        CLUREF T_1_2;
        CLUREF T_1_3;
        CLUREF T_1_4;
        CLUREF T_1_5;
        CLUREF T_1_6;
        locals->err = _wordvecOPbfetch(_resolveOPans, locals->idx, &T_1_1);
        if (locals->err != ERR_ok) goto ex_0;
        T_1_2.num = 256;
        locals->err = intOPmul(T_1_1, T_1_2, &T_1_3);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = intOPadd(locals->idx, CLU_1, &T_1_4);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = _wordvecOPbfetch(_resolveOPans, T_1_4, &T_1_5);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = intOPadd(T_1_3, T_1_5, &T_1_6);
        if (locals->err != ERR_ok) goto ex_0;
        locals->cl.num = T_1_6.num;
        }
        }

  FB_LINE(186);
    {
    CLUREF T_1_1;
    locals->err = intOPadd(locals->idx, CLU_6, &T_1_1);
    if (locals->err != ERR_ok) goto ex_0;
    locals->idx.num = T_1_1.num;
    }

  FB_LINE(187);
    {
        {CLUREF T_1_1;
        CLUREF T_1_2;
        CLUREF T_1_3;
        CLUREF T_1_4;
        CLUREF T_1_5;
        CLUREF T_1_6;
        locals->err = _wordvecOPbfetch(_resolveOPans, locals->idx, &T_1_1);
        if (locals->err != ERR_ok) goto ex_0;
        T_1_2.num = 256;
        locals->err = intOPmul(T_1_1, T_1_2, &T_1_3);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = intOPadd(locals->idx, CLU_1, &T_1_4);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = _wordvecOPbfetch(_resolveOPans, T_1_4, &T_1_5);
        if (locals->err != ERR_ok) goto ex_0;
        locals->err = intOPadd(T_1_3, T_1_5, &T_1_6);
        if (locals->err != ERR_ok) goto ex_0;
        locals->n.num = T_1_6.num;
        }
        }

  FB_LINE(188);
    {
    CLUREF T_1_1;
    locals->err = intOPadd(locals->idx, CLU_2, &T_1_1);
    if (locals->err != ERR_ok) goto ex_0;
    locals->idx.num = T_1_1.num;
    }

  FB_LINE(189);
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    CLUREF T_1_3;
    CLUREF T_1_4;
    CLUREF T_1_5;
    CLUREF T_1_6;
    CLUREF T_1_7;
    CLUREF T_1_8;
    T_1_3.num = (locals->tp.num == 1)? true : false;
    T_1_4.num = T_1_3.num ^ 1;
    T_1_2.num = T_1_4.num;
    if (!T_1_4.num) {
        T_1_5.num = (locals->cl.num == 1)? true : false;
        T_1_6.num = T_1_5.num ^ 1;
        T_1_2.num = T_1_6.num;
    }
    T_1_1.num = T_1_2.num;
    if (!T_1_2.num) {
        T_1_7.num = (locals->n.num == 4)? true : false;
        T_1_8.num = T_1_7.num ^ 1;
        T_1_1.num = T_1_8.num;
    }
    if (T_1_1.num == true) {

  FB_LINE(190);
        {
        CLUREF T_2_1;
        locals->err = intOPadd(locals->idx, locals->n, &T_2_1);
        if (locals->err != ERR_ok) goto ex_0;
        locals->idx.num = T_2_1.num;
        }

  FB_LINE(191);
        {signal(ERR_ok);}
        }
        }/* end if */

  FB_LINE(193);
    {
    {
    CLUREF T_1_1;
    CLUREF T_1_2;
    CLUREF T_1_3;
    CLUREF T_1_4;
    CLUREF T_1_5;
    CLUREF T_1_6;
    CLUREF T_1_7;
    locals->err = intOPadd(locals->idx, CLU_3, &T_1_1);
    if (locals->err != ERR_ok) goto ex_0;
    locals->err = _wordvecOPbfetch(_resolveOPans, T_1_1, &T_1_2);
    if (locals->err != ERR_ok) goto ex_0;
    T_1_3.num = 256;
    locals->err = intOPmul(T_1_2, T_1_3, &T_1_4);
    if (locals->err != ERR_ok) goto ex_0;
    locals->err = intOPadd(locals->idx, CLU_2, &T_1_5);
    if (locals->err != ERR_ok) goto ex_0;
    locals->err = _wordvecOPbfetch(_resolveOPans, T_1_5, &T_1_6);
    if (locals->err != ERR_ok) goto ex_0;
    locals->err = intOPadd(T_1_4, T_1_6, &T_1_7);
    if (locals->err != ERR_ok) goto ex_0;
    elist[0] = T_1_7;
    }
    {
    CLUREF T_1_8;
    CLUREF T_1_9;
    CLUREF T_1_10;
    CLUREF T_1_11;
    CLUREF T_1_12;
    CLUREF T_1_13;
    locals->err = intOPadd(locals->idx, CLU_1, &T_1_8);
    if (locals->err != ERR_ok) goto ex_0;
    locals->err = _wordvecOPbfetch(_resolveOPans, T_1_8, &T_1_9);
    if (locals->err != ERR_ok) goto ex_0;
    T_1_10.num = 256;
    locals->err = intOPmul(T_1_9, T_1_10, &T_1_11);
    if (locals->err != ERR_ok) goto ex_0;
    locals->err = _wordvecOPbfetch(_resolveOPans, locals->idx, &T_1_12);
    if (locals->err != ERR_ok) goto ex_0;
    locals->err = intOPadd(T_1_11, T_1_12, &T_1_13);
    if (locals->err != ERR_ok) goto ex_0;
    elist[1] = T_1_13;
    }
    *iecode = ERR_ok;
    {signal(ERR_iterbodyreturn);}
    }
    {signal(ERR_ok);}
    ex_0:
        {
            *iecode = locals->err;
            {signal(ERR_iterbodyexit);}}
    end_0: {signal(ERR_ok);}
    }/* end _resolveOPqry_IB_1 */

/**** END ITERATOR BODIES for qry ****/

extern struct dbg_info* dbg_info__resolveOPnstore;
#undef MY_TRACE_FLAG
#define MY_TRACE_FLAG _resolveOPnstore_TRACE
int _resolveOPnstore_TRACE;
static int _resolveOPnstore_own_init = 0;

/**** BEGIN PROCEDURE nstore ****/

errcode _resolveOPnstore(dname, idx, max, ret_1)
CLUREF dname;
CLUREF idx;
CLUREF max;
CLUREF *ret_1;
    {
    struct {
        struct dbg_info *DBG_INFO;
        int DBG_LINE;
        errcode err;
        errcode ecode2;
        CLUREF z;
        CLUREF i;
        CLUREF zidx;
        CLUREF c;
        CLUREF tot;
        CLUREF dname;
        CLUREF idx;
        CLUREF max;
        } locals;
    locals.z.num = UNINIT;
    locals.i.num = UNINIT;
    locals.zidx.num = UNINIT;
    locals.c.num = UNINIT;
    locals.tot.num = UNINIT;
    locals.dname.num = UNINIT;
    locals.idx.num = UNINIT;
    locals.max.num = UNINIT;
    locals.DBG_INFO = dbg_info__resolveOPnstore;
    locals.dname = dname;
    locals.idx = idx;
    locals.max = max;
        if (_resolveOPnstore_own_init == 0) {
        if (_resolve_own_init == 0) {
            locals.err = _resolve_own_init_proc();
            if (locals.err != ERR_ok) goto ex_0;
            }
        _resolveOPnstore_own_init = 1;
    }
    enter_proc(199);

  LINE(200);
    {
        {CLUREF T_1_1;
        locals.err = stringOPsize(locals.dname, &T_1_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.z.num = T_1_1.num;
        }
        }

  LINE(201);
    {
        {locals.i.num = 1;
        }
        }

  LINE(202);
    {
    CLUREF T_1_1;
    locals.err = intOPadd(locals.idx, locals.max, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    locals.max.num = T_1_1.num;
    }

  LINE(203);
    for (;;) {
        if (true != true) { break; }

  LINE(204);
        {
            {locals.zidx.num = locals.idx.num;
            }
            }

  LINE(205);
        for (;;) {
            CLUREF T_2_1;
            T_2_1.num = (locals.i.num <= locals.z.num)? true : false;
            if (T_2_1.num != true) { break; }

  LINE(206);
            {
                {CLUREF T_3_1;
                locals.err = stringOPfetch(locals.dname, locals.i, &T_3_1);
                if (locals.err != ERR_ok) goto ex_0;
                locals.c.num = T_3_1.num;
                }
                }

  LINE(207);
            {
            CLUREF T_3_1;
            locals.err = intOPadd(locals.i, CLU_1, &T_3_1);
            if (locals.err != ERR_ok) goto ex_0;
            locals.i.num = T_3_1.num;
            }

  LINE(208);
            {
            CLUREF T_3_1;
            CLUREF T_3_2;
            T_3_1.ch = '.';
            T_3_2.num = (locals.c.ch == T_3_1.ch)? true : false;
            if (T_3_2.num == true) {

  LINE(209);
                goto end_while_2;
                }
            else {
            CLUREF T_3_3;
            CLUREF T_3_4;
            T_3_3.ch = '\\';
            T_3_4.num = (locals.c.ch == T_3_3.ch)? true : false;
            if (T_3_4.num == true) {

  LINE(211);
                {
                CLUREF T_4_1;
                locals.err = intOPadd(locals.i, CLU_1, &T_4_1);
                if (locals.err != ERR_ok) goto ex_0;
                locals.i.num = T_4_1.num;
                }

  LINE(212);
                {
                CLUREF T_4_1;
                T_4_1.num = (locals.i.num > locals.z.num)? true : false;
                if (T_4_1.num == true) {

  LINE(213);
                    goto end_while_2;
                    }
                    }/* end if */

  LINE(214);
                {
                CLUREF T_4_1;
                locals.err = stringOPfetch(locals.dname, locals.i, &T_4_1);
                if (locals.err != ERR_ok) goto ex_0;
                locals.c.num = T_4_1.num;
                }
                }
                }}/* end if */

  LINE(216);
            {
            CLUREF T_3_1;
            locals.err = intOPadd(locals.idx, CLU_1, &T_3_1);
            if (locals.err != ERR_ok) goto ex_0;
            locals.idx.num = T_3_1.num;
            }

  LINE(217);
            {
            CLUREF T_3_1;
            T_3_1.num = (locals.idx.num >= locals.max.num)? true : false;
            if (T_3_1.num == true) {

  LINE(218);
                {
                {signal (ERR_bounds);}}
                }
                }/* end if */

  LINE(219);
            {
            CLUREF T_3_1;
            T_3_1.num = (int)(locals.c.ch & 0xff);
            locals.err = _wordvecOPbstore(_resolveOPbuf, locals.idx, T_3_1);
            if (locals.err != ERR_ok) goto ex_0;
            }
            }
            end_while_2:;

  LINE(221);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        CLUREF T_2_3;
        T_2_2.num = (locals.idx.num == locals.zidx.num)? true : false;
        T_2_1.num = T_2_2.num;
        if (T_2_2.num) {
            T_2_3.num = (locals.i.num > locals.z.num)? true : false;
            T_2_1.num = T_2_3.num;
        }
        if (T_2_1.num == true) {

  LINE(222);
            goto end_while_1;
            }
            }/* end if */

  LINE(223);
        {
            {CLUREF T_2_1;
            locals.err = intOPsub(locals.idx, locals.zidx, &T_2_1);
            if (locals.err != ERR_ok) goto ex_0;
            locals.tot.num = T_2_1.num;
            }
            }

  LINE(224);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        T_2_1.num = 63;
        T_2_2.num = (locals.tot.num > T_2_1.num)? true : false;
        if (T_2_2.num == true) {

  LINE(225);
            {
            {signal (ERR_bounds);}}
            }
            }/* end if */

  LINE(226);
        {
        locals.err = _wordvecOPbstore(_resolveOPbuf, locals.zidx, locals.tot);
        if (locals.err != ERR_ok) goto ex_0;
        }

  LINE(227);
        {
        CLUREF T_2_1;
        locals.err = intOPadd(locals.idx, CLU_1, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.idx.num = T_2_1.num;
        }
        }
        end_while_1:;

  LINE(229);
    {
    CLUREF T_1_1;
    T_1_1.num = (locals.idx.num >= locals.max.num)? true : false;
    if (T_1_1.num == true) {

  LINE(230);
        {
        {signal (ERR_bounds);}}
        }
        }/* end if */

  LINE(231);
    {
    locals.err = _wordvecOPbstore(_resolveOPbuf, locals.idx, CLU_0);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(232);
    {
    {
    CLUREF T_1_1;
    locals.err = intOPadd(locals.idx, CLU_1, &T_1_1);
    if (locals.err != ERR_ok) goto ex_0;
    ret_1->num = T_1_1.num;
    }
    {signal (ERR_ok);}}
    goto end_0;
    ex_0:
        {
            if (locals.err == ERR_failure) {signal(ERR_failure);}
            elist[0] = _pclu_erstr(locals.err);
            {signal(ERR_failure);}
        }
    end_0: elist[0].str = no_return_values_STRING;
        {signal(ERR_failure);}
    }

/**** END PROCEDURE nstore ****/

extern struct OPS *char_ops;
typedef struct {
    int hdr;
    int count;
    char *name;
    char *fname;
    bool is_iter;
    int is_parmd;
    int addr;
    int nargs;
    Vlist1 *vals;
    siglist1 *sigs;
    Vlist10 *locals;
    Vlist16 *owns;
    Vlist0 *ptowns;
    Vlist0 *popowns;
    Slist0 *type_formals;
    Slist0 *op_formals;
    } dbg_info__resolveOPnstore_actual;
static Vlist1 vals__resolveOPnstore = {0, 1, { {0, 2, "", &int_ops}}
};
static sig_desc0 sig__resolveOPnstore_1 = {0, 3, "bounds", {0, 0
}};
static siglist1 sigs__resolveOPnstore = {0, 1, (sig_desc*)&sig__resolveOPnstore_1};
static Vlist10 locals__resolveOPnstore = {0, 10,{ {0, 2, "err", &int_ops},  {0, 2, "ecode2", &int_ops},  {0, 2, "z", &int_ops},  {0, 2, "i", &int_ops},  {0, 2, "zidx", &int_ops},  {0, 2, "c", &char_ops},  {0, 2, "tot", &int_ops},  {0, 2, "dname", &string_ops},  {0, 2, "idx", &int_ops},  {0, 2, "max", &int_ops}}
};
static Vlist0 popowns__resolveOPnstore = {0, 0};
Slist0 tformals__resolveOPnstore = {0, 0};
Slist0 opformals__resolveOPnstore = {0, 0};
dbg_info__resolveOPnstore_actual dbg_info__resolveOPnstore_data = {0, 12, 
    "_resolveOPnstore", "/common/pub/dcurtis-temp/pclu/lib/clu/_resolve.clu", 0, 0, (int)_resolveOPnstore, 3, 
    &vals__resolveOPnstore, &sigs__resolveOPnstore, &locals__resolveOPnstore, &owns__resolve, &NO_VALS, &NO_VALS, &NO_PARMS, &NO_PARMS};
    struct dbg_info *dbg_info__resolveOPnstore = (struct dbg_info*)&dbg_info__resolveOPnstore_data;
extern struct dbg_info* dbg_info__resolveOPnskip;
#undef MY_TRACE_FLAG
#define MY_TRACE_FLAG _resolveOPnskip_TRACE
int _resolveOPnskip_TRACE;
extern OWN_req _wordvec_ownreqs;
static int _resolveOPnskip_own_init = 0;

/**** BEGIN PROCEDURE nskip ****/

errcode _resolveOPnskip(idx, ret_1)
CLUREF idx;
CLUREF *ret_1;
    {
    struct {
        struct dbg_info *DBG_INFO;
        int DBG_LINE;
        errcode err;
        errcode ecode2;
        CLUREF n;
        CLUREF idx;
        } locals;
    locals.n.num = UNINIT;
    locals.idx.num = UNINIT;
    locals.DBG_INFO = dbg_info__resolveOPnskip;
    locals.idx = idx;
        if (_resolveOPnskip_own_init == 0) {
        if (_resolve_own_init == 0) {
            locals.err = _resolve_own_init_proc();
            if (locals.err != ERR_ok) goto ex_0;
            }
        _resolveOPnskip_own_init = 1;
    }
    enter_proc(235);

  LINE(236);
    for (;;) {
        if (true != true) { break; }

  LINE(237);
        {
            {CLUREF T_2_1;
            locals.err = _wordvecOPbfetch(_resolveOPans, locals.idx, &T_2_1);
            if (locals.err != ERR_ok) goto ex_0;
            locals.n.num = T_2_1.num;
            }
            }

  LINE(238);
        {
        CLUREF T_2_1;
        locals.err = intOPadd(locals.idx, CLU_1, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.idx.num = T_2_1.num;
        }

  LINE(239);
        {
        CLUREF T_2_1;
        T_2_1.num = (locals.n.num == 0)? true : false;
        if (T_2_1.num == true) {

  LINE(240);
            goto end_while_1;
            }
            }/* end if */

  LINE(241);
        {
        CLUREF T_2_1;
        CLUREF T_2_2;
        T_2_1.num = 192;
        T_2_2.num = (locals.n.num < T_2_1.num)? true : false;
        if (T_2_2.num == true) {

  LINE(242);
            {
            CLUREF T_3_1;
            locals.err = intOPadd(locals.idx, locals.n, &T_3_1);
            if (locals.err != ERR_ok) goto ex_0;
            locals.idx.num = T_3_1.num;
            }

  LINE(243);
            continue;
            }
            }/* end if */

  LINE(245);
        {
        CLUREF T_2_1;
        locals.err = intOPadd(locals.idx, CLU_1, &T_2_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.idx.num = T_2_1.num;
        }

  LINE(246);
        goto end_while_1;
        }
        end_while_1:;

  LINE(248);
    {
    {
    ret_1->num = locals.idx.num;
    }
    {signal (ERR_ok);}}
    goto end_0;
    ex_0:
        {
            if (locals.err == ERR_failure) {signal(ERR_failure);}
            elist[0] = _pclu_erstr(locals.err);
            {signal(ERR_failure);}
        }
    end_0: elist[0].str = no_return_values_STRING;
        {signal(ERR_failure);}
    }

/**** END PROCEDURE nskip ****/

typedef struct {
    int hdr;
    int count;
    char *name;
    char *fname;
    bool is_iter;
    int is_parmd;
    int addr;
    int nargs;
    Vlist1 *vals;
    siglist0 *sigs;
    Vlist4 *locals;
    Vlist16 *owns;
    Vlist0 *ptowns;
    Vlist0 *popowns;
    Slist0 *type_formals;
    Slist0 *op_formals;
    } dbg_info__resolveOPnskip_actual;
static Vlist1 vals__resolveOPnskip = {0, 1, { {0, 2, "", &int_ops}}
};
static siglist0 sigs__resolveOPnskip = {0, 0};
static Vlist4 locals__resolveOPnskip = {0, 4,{ {0, 2, "err", &int_ops},  {0, 2, "ecode2", &int_ops},  {0, 2, "n", &int_ops},  {0, 2, "idx", &int_ops}}
};
static Vlist0 popowns__resolveOPnskip = {0, 0};
Slist0 tformals__resolveOPnskip = {0, 0};
Slist0 opformals__resolveOPnskip = {0, 0};
dbg_info__resolveOPnskip_actual dbg_info__resolveOPnskip_data = {0, 12, 
    "_resolveOPnskip", "/common/pub/dcurtis-temp/pclu/lib/clu/_resolve.clu", 0, 0, (int)_resolveOPnskip, 1, 
    &vals__resolveOPnskip, &sigs__resolveOPnskip, &locals__resolveOPnskip, &owns__resolve, &NO_VALS, &NO_VALS, &NO_PARMS, &NO_PARMS};
    struct dbg_info *dbg_info__resolveOPnskip = (struct dbg_info*)&dbg_info__resolveOPnskip_data;
extern struct dbg_info* dbg_info__resolveOPsend;
#undef MY_TRACE_FLAG
#define MY_TRACE_FLAG _resolveOPsend_TRACE
int _resolveOPsend_TRACE;
extern errcode _resolveOPsend_IB_1();
extern OWN_req _chan_ownreqs;
static int _resolveOPsend_own_init = 0;

/**** BEGIN PROCEDURE send ****/

errcode _resolveOPsend(len, ret_1)
CLUREF len;
CLUREF *ret_1;
    {
    struct {
        struct dbg_info *DBG_INFO;
        int DBG_LINE;
        errcode err;
        errcode ecode2;
        CLUREF c;
        CLUREF i;
        CLUREF anslen;
        CLUREF frmlen;
        CLUREF len;
        } locals;
    locals.c.num = UNINIT;
    locals.i.num = UNINIT;
    locals.anslen.num = UNINIT;
    locals.frmlen.num = UNINIT;
    locals.len.num = UNINIT;
    locals.DBG_INFO = dbg_info__resolveOPsend;
    locals.len = len;
        if (_resolveOPsend_own_init == 0) {
        if (_resolve_own_init == 0) {
            locals.err = _resolve_own_init_proc();
            if (locals.err != ERR_ok) goto ex_0;
            }
        _resolveOPsend_own_init = 1;
    }
    enter_proc(251);

  LINE(252);
    {
        {CLUREF T_1_1;
        locals.err = _chanOPsocket(CLU_2, CLU_2, CLU_0, &T_1_1);
        if (locals.err != ERR_ok) goto ex_0;
        locals.c.num = T_1_1.num;
        }
        }

  LINE(253);
    {
        CLUREF T_1_1;
        T_1_1.num = -1;
        locals.err = intOPfrom_to_by(_resolveOPretries, CLU_1, T_1_1, _resolveOPsend_IB_1, &locals, &locals.ecode2);
        if (locals.err == ERR_iterbodyreturn) {
        ret_1->num = elist[0].num;
        signal(ERR_ok);}
        if (locals.err == ERR_iterbodysignal) {signal(locals.ecode2);}
        if (locals.err == ERR_break) locals.err = ERR_ok;
        if (locals.err == ERR_iterbodyexit) locals.err = locals.ecode2;
        if (locals.err != ERR_ok) goto ex_0;
        }

  LINE(267);
    {
    locals.err = _chanOPclose(locals.c);
    if (locals.err != ERR_ok) goto ex_0;
    }

  LINE(268);
    {
    {signal (ERR_timeout);}}
    goto end_0;
    ex_0:
        {
            if (locals.err == ERR_failure) {signal(ERR_failure);}
            elist[0] = _pclu_erstr(locals.err);
            {signal(ERR_failure);}
        }
    end_0: elist[0].str = no_return_values_STRING;
        {signal(ERR_failure);}
    }

/**** END PROCEDURE send ****/

typedef struct {
    int hdr;
    int count;
    char *name;
    char *fname;
    bool is_iter;
    int is_parmd;
    int addr;
    int nargs;
    Vlist1 *vals;
    siglist1 *sigs;
    Vlist7 *locals;
    Vlist16 *owns;
    Vlist0 *ptowns;
    Vlist0 *popowns;
    Slist0 *type_formals;
    Slist0 *op_formals;
    } dbg_info__resolveOPsend_actual;
static Vlist1 vals__resolveOPsend = {0, 1, { {0, 2, "", &int_ops}}
};
static sig_desc0 sig__resolveOPsend_1 = {0, 3, "timeout", {0, 0
}};
static siglist1 sigs__resolveOPsend = {0, 1, (sig_desc*)&sig__resolveOPsend_1};
static Vlist7 locals__resolveOPsend = {0, 7,{ {0, 2, "err", &int_ops},  {0, 2, "ecode2", &int_ops},  {0, 2, "c", &_chan_ops},  {0, 2, "i", &int_ops},  {0, 2, "anslen", &int_ops},  {0, 2, "frmlen", &int_ops},  {0, 2, "len", &int_ops}}
};
static Vlist0 popowns__resolveOPsend = {0, 0};
Slist0 tformals__resolveOPsend = {0, 0};
Slist0 opformals__resolveOPsend = {0, 0};
dbg_info__resolveOPsend_actual dbg_info__resolveOPsend_data = {0, 12, 
    "_resolveOPsend", "/common/pub/dcurtis-temp/pclu/lib/clu/_resolve.clu", 0, 0, (int)_resolveOPsend, 1, 
    &vals__resolveOPsend, &sigs__resolveOPsend, &locals__resolveOPsend, &owns__resolve, &NO_VALS, &NO_VALS, &NO_PARMS, &NO_PARMS};
    struct dbg_info *dbg_info__resolveOPsend = (struct dbg_info*)&dbg_info__resolveOPsend_data;

/**** BEGIN ITERATOR BODIES for send ****/

errcode _resolveOPsend_IB_1(iv_1, locals, iecode)
errcode *iecode;
CLUREF iv_1;
struct {
    struct dbg_info *DBG_INFO;
    int DBG_LINE;
    errcode err;
    errcode ecode2;
    CLUREF c;
    CLUREF i;
    CLUREF anslen;
    CLUREF frmlen;
    CLUREF len;
    } *locals;
{
    locals->i.num = iv_1.num;
    enter_iter_body_proc(265);

  FB_LINE(254);
    {

  FB_LINE(255);
        {
        locals->err = _chanOPsendto(locals->c, _resolveOPbuf, locals->len, CLU_0, _resolveOPnsaddr, CLU_16);
        if (locals->err != ERR_ok) goto ex_1;
        }

  FB_LINE(256);
        {
        CLUREF T_3_1;
        CLUREF T_3_2;
        locals->err = _chanOPread_wait(locals->c, _resolveOPtimeout, &T_3_1);
        if (locals->err != ERR_ok) goto ex_1;
        T_3_2.num = T_3_1.num ^ 1;
        if (T_3_2.num == true) {

  FB_LINE(257);
            {signal(ERR_ok);}
            }
            }/* end if */

  FB_LINE(258);
        {
            {CLUREF T_3_1;
            CLUREF T_3_2;
            locals->err = _chanOPrecvfrom(locals->c, _resolveOPans, CLU_0, _resolveOPfromaddr, &T_3_1, &T_3_2);
            if (locals->err != ERR_ok) goto ex_1;
            locals->anslen.num = T_3_1.num;
            locals->frmlen.num = T_3_2.num;
            }
            }

  FB_LINE(259);
        {
        CLUREF T_3_1;
        CLUREF T_3_2;
        CLUREF T_3_3;
        CLUREF T_3_4;
        locals->err = _wordvecOPwfetch(_resolveOPans, CLU_1, &T_3_1);
        if (locals->err != ERR_ok) goto ex_1;
        locals->err = _wordvecOPwfetch(_resolveOPbuf, CLU_1, &T_3_2);
        if (locals->err != ERR_ok) goto ex_1;
        T_3_3.num = (T_3_1.num == T_3_2.num)? true : false;
        T_3_4.num = T_3_3.num ^ 1;
        if (T_3_4.num == true) {

  FB_LINE(260);
            {signal(ERR_ok);}
            }
            }/* end if */

  FB_LINE(261);
        {
        locals->err = _chanOPclose(locals->c);
        if (locals->err != ERR_ok) goto ex_1;
        }

  FB_LINE(262);
        {
        CLUREF T_3_1;
        CLUREF T_3_2;
        CLUREF T_3_3;
        locals->err = _wordvecOPbfetch(_resolveOPans, CLU_3, &T_3_1);
        if (locals->err != ERR_ok) goto ex_1;
        locals->err = intOPmod(T_3_1, CLU_4, &T_3_2);
        if (locals->err != ERR_ok) goto ex_1;
        T_3_3.num = (T_3_2.num >= 2)? true : false;
        if (T_3_3.num == true) {

  FB_LINE(263);
            {
            *iecode = ERR_timeout;
            {signal(ERR_iterbodysignal);}
            }
            }
            }/* end if */

  FB_LINE(264);
        {
        {
        elist[0] = locals->anslen;
        }
        *iecode = ERR_ok;
        {signal(ERR_iterbodyreturn);}
        }
        }
        goto end_1;
        ex_1:
            if ((locals->err == ERR_not_possible)) {
            }
            else {
                goto ex_0;
            }
        end_1:;
    {signal(ERR_ok);}
    ex_0:
        {
            *iecode = locals->err;
            {signal(ERR_iterbodyexit);}}
    end_0: {signal(ERR_ok);}
    }/* end _resolveOPsend_IB_1 */

/**** END ITERATOR BODIES for send ****/

extern struct dbg_info* dbg_info__resolveOPdebug_print;
#undef MY_TRACE_FLAG
#define MY_TRACE_FLAG _resolveOPdebug_print_TRACE
int _resolveOPdebug_print_TRACE;
extern OWN_req null_ownreqs;
extern struct OPS *null_ops;
static int _resolveOPdebug_print_own_init = 0;

/**** BEGIN PROCEDURE debug_print ****/

errcode _resolveOPdebug_print(_rep, ps)
CLUREF _rep;
CLUREF ps;
    {
    struct {
        struct dbg_info *DBG_INFO;
        int DBG_LINE;
        errcode err;
        errcode ecode2;
        CLUREF _rep;
        CLUREF ps;
        } locals;
    locals._rep.num = UNINIT;
    locals.ps.num = UNINIT;
    locals.DBG_INFO = dbg_info__resolveOPdebug_print;
    locals._rep = _rep;
    locals.ps = ps;
        if (_resolveOPdebug_print_own_init == 0) {
        if (_resolve_own_init == 0) {
            locals.err = _resolve_own_init_proc();
            if (locals.err != ERR_ok) goto ex_0;
            }
        _resolveOPdebug_print_own_init = 1;
    }
    enter_proc(1);

  LINE(2);
    {
    locals.err = nullOPdebug_print(locals._rep, locals.ps);
    if (locals.err != ERR_ok) goto ex_0;
    }
    goto end_0;
    ex_0:
        {
            if (locals.err == ERR_failure) {signal(ERR_failure);}
            elist[0] = _pclu_erstr(locals.err);
            {signal(ERR_failure);}
        }
    end_0: {signal(ERR_ok);}
    }

/**** END PROCEDURE debug_print ****/

extern struct OPS *pstream_ops;
typedef struct {
    int hdr;
    int count;
    char *name;
    char *fname;
    bool is_iter;
    int is_parmd;
    int addr;
    int nargs;
    Vlist0 *vals;
    siglist0 *sigs;
    Vlist4 *locals;
    Vlist16 *owns;
    Vlist0 *ptowns;
    Vlist0 *popowns;
    Slist0 *type_formals;
    Slist0 *op_formals;
    } dbg_info__resolveOPdebug_print_actual;
static Vlist0 vals__resolveOPdebug_print = {0, 0};
static siglist0 sigs__resolveOPdebug_print = {0, 0};
static Vlist4 locals__resolveOPdebug_print = {0, 4,{ {0, 2, "err", &int_ops},  {0, 2, "ecode2", &int_ops},  {0, 2, "_rep", &null_ops},  {0, 2, "ps", &pstream_ops}}
};
static Vlist0 popowns__resolveOPdebug_print = {0, 0};
Slist0 tformals__resolveOPdebug_print = {0, 0};
Slist0 opformals__resolveOPdebug_print = {0, 0};
dbg_info__resolveOPdebug_print_actual dbg_info__resolveOPdebug_print_data = {0, 12, 
    "_resolveOPdebug_print", "/common/pub/dcurtis-temp/pclu/lib/clu/_resolve.clu", 0, 0, (int)_resolveOPdebug_print, 2, 
    &vals__resolveOPdebug_print, &sigs__resolveOPdebug_print, &locals__resolveOPdebug_print, &owns__resolve, &NO_VALS, &NO_VALS, &NO_PARMS, &NO_PARMS};
    struct dbg_info *dbg_info__resolveOPdebug_print = (struct dbg_info*)&dbg_info__resolveOPdebug_print_data;
typedef struct{
    int count;
    OWNPTR type_owns;
    OWNPTR op_owns;
    struct OP_ENTRY entry[2];
} _resolve_OPS;

CLU_proc _resolve_oe_n2a = {{0,0,0,0}, _resolveOPn2a, 0};
CLU_proc _resolve_oe_debug_print = {{0,0,0,0}, _resolveOPdebug_print, 0};

_resolve_OPS _resolve_ops_actual = {2, (OWNPTR)&_resolve_own_init, (OWNPTR)&_resolve_own_init, {
    {&_resolve_oe_n2a, "n2a"},
    {&_resolve_oe_debug_print, "debug_print"}}};

struct OPS *_resolve_ops = (struct OPS *)&_resolve_ops_actual;

/**** END CLUSTER _resolve ****/