自学教程：C++ u2nc函数代码示例

/* _nock_pray_cool(): load from namespace, in kernel mode.*/static u2_noun_nock_pray_cool(u2_noun gof)                                      //  transfer{    //  This should just exit - but for various reasons, all historical,    //  we could be actually minking here.  Therefore we have to respect    //  the mink if it exists.    //    u2_noun lad = u2_hevn_at(lad);    if ( u2_nul == lad ) {        return u2_cm_bowl(u2nc(c3__need, u2nc(gof, u2_nul)));    }    else {        u2_kode pon = 0;        u2_noun mog = _nock_pray_mool(gof, &pon);        if ( 0 == pon ) {            return mog;        }        else if ( 1 == pon ) {            return u2_cm_bowl(u2nc(c3__need, mog));        }        else if ( 2 == pon ) {            return u2_cm_bowl(u2nc(c3__exit, mog));        }        else {            c3_assert(0);            return 0;        }    }}

  static u2_noun                                                  //  produce  _og_list(u2_wire wir_r,           u2_noun a,                                             //  retain           u2_noun b,                                             //  retain           u2_noun c)                                             //  retain  {    u2_noun l = u2_nul;    if ( !u2_fly_is_cat(b) ) {      return u2_bl_bail(wir_r, c3__fail);    }    while ( 0 != b ) {      u2_noun x = j2_mbc(Pt3, mix)(wir_r, a, c);      u2_noun y = j2_mbc(Pt3, mix)(wir_r, b, x);      u2_noun d = j2_mbc(Pt5, shas)(wir_r, c3_s4('o','g','-','b'), y);      u2_noun m;      u2z(x); u2z(y);      if ( b < 256 ) {        u2_noun e = j2_mbc(Pt3, end)(wir_r, 0, b, d);                u2z(d);        m = u2nc(b, e);        b = 0;      } else {        m = u2nc(256, d);        c = d;        b -= 256;      }      l = u2nc(m, l);    }    return u2_ckb_flop(l);  }

/* u2_term_ef_boil(): initial effects for loaded servers.*/voidu2_term_ef_boil(c3_l ono_l){  if ( ono_l ) {    u2_noun tid_l;    for ( tid_l = 2; tid_l <= ono_l; tid_l++ ) {      u2_noun tin = u2_dc("scot", c3__ud, tid_l);      u2_noun pax = u2nq(c3__gold, c3__term, tin, u2_nul);      u2_noun hud = u2nc(c3__wipe, u2_nul);      u2_reck_plan(u2A, pax, hud);    }  }  {    u2_noun pax = u2nq(c3__gold, c3__term, '1', u2_nul);    //  u2_reck_plan(u2A, u2k(pax), u2nc(c3__init, u2k(u2h(u2A->own))));    u2_reck_plan(u2A, u2k(pax), u2nc(c3__blew, u2_term_get_blew(1)));    u2_reck_plan(u2A, u2k(pax), u2nc(c3__hail, u2_nul));    u2z(pax);  }}

/* u2_cn_moch(): blind mink with empty fly.*/u2_nounu2_cn_moch(u2_noun bus,           u2_noun fol){    u2_noun fly = u2nc(u2nc(0, 0), u2nc(1, 0));    return u2_cn_mink(bus, fol, fly);}

/* u2_term_ef_bake(): initial effects for new terminal.*/voidu2_term_ef_bake(u2_noun  fav){  u2_noun pax = u2nq(c3__gold, c3__term, '1', u2_nul);  u2_reck_plan(u2A, u2k(pax), u2nc(c3__boot, fav));  u2_reck_plan(u2A, u2k(pax), u2nc(c3__blew, u2_term_get_blew(1)));  u2_reck_plan(u2A, u2k(pax), u2nc(c3__hail, u2_nul));  u2z(pax);}

/* _http_heds_to_list(): C headers to list.*/static u2_noun_http_heds_to_list(u2_hhed* hed_u){  if ( 0 == hed_u ) {    return u2_nul;  } else {    return u2nc(u2nc(u2_ci_string(hed_u->nam_c),                     hed_u->val_c ? u2_ci_string(hed_u->val_c) : u2_nul),                _http_heds_to_list(hed_u->nex_u));  }}

/* u2_term_ef_boil(): initial effects for loaded servers.*/voidu2_term_ef_boil(void){  {    u2_noun pax = u2nq(u2_blip, c3__term, '1', u2_nul);    //  u2_proc_plan(u2A, u2k(pax), u2nc(c3__init, u2k(u2h(u2A->own))));    u2_proc_plan(u2A, u2k(pax), u2nc(c3__harm, u2_nul));    u2_proc_plan(u2A, u2k(pax), u2nc(c3__blew, u2_term_get_blew(1)));    u2_proc_plan(u2A, u2k(pax), u2nc(c3__hail, u2_nul));    u2z(pax);  }}

/* _unix_dir_arch(): resolve directory to old style arch.*/static u2_noun_unix_dir_arch(u2_udir* dir_u){  u2_udir* dis_u;  u2_ufil* fil_u;  u2_noun pam = u2_nul;  for ( dis_u = dir_u->dis_u; dis_u; dis_u = dis_u->nex_u ) {    u2_noun pre = _unix_dir_name(dis_u);    u2_noun arc = _unix_dir_arch(dis_u);    // uL(fprintf(uH, "dir %s/n", u2_cr_string(pre)));    pam = u2_ckd_by_put(pam, pre, arc);  }  for ( fil_u = dir_u->fil_u; fil_u; fil_u = fil_u->nex_u ) {    u2_noun wib = _unix_file_name(fil_u);    u2_noun baw = _unix_file_load(fil_u);    u2_noun has = u2_do("sham", u2k(baw));    u2_noun fil = u2nt(u2_yes, has, baw);    if ( u2_no == u2du(wib) ) {      // uL(fprintf(uH, "file %s/n", u2_cr_string(wib)));      pam = u2_ckd_by_put(pam, wib, fil);    }    else {      u2_weak ole = u2_ckd_by_get(u2k(pam), u2k(u2h(wib)));      u2_noun arc, rac;      // uL(fprintf(uH, "file %s.%s/n", u2_cr_string(u2h(wib)),      //                               u2_cr_string(u2t(wib))));      if ( u2_none == ole ) {        arc = u2nc(u2_no, u2_nul);      }       else if ( u2_yes == u2h(ole) ) {        u2z(ole);        arc = u2nc(u2_no, u2_nul);      }      else arc = ole;      rac = u2nc(u2_no, u2_ckd_by_put(u2k(u2t(arc)), u2k(u2t(wib)), fil));      pam = u2_ckd_by_put(pam, u2k(u2h(wib)), rac);      u2z(wib); u2z(arc);    }  }  return u2nc(u2_no, pam);}

/* u2_ci_tape(): from a C string, to a list of bytes.*/u2_atomu2_ci_tape(const c3_c* txt_c){  if ( !*txt_c ) {    return u2_nul;  } else return u2nc(*txt_c, u2_ci_tape(txt_c + 1));}

/* u2_cf_list(): list all the files in directory `pas`.  List of cask.*/u2_nounu2_cf_list(u2_noun pas){  c3_c* pas_c = u2_cr_string(pas);  u2z(pas);  {    u2_noun lis = u2_nul;    DIR *dir_d = opendir(pas_c);    if ( !dir_d ) {      free(pas_c);      return u2_nul;    }    else {      while ( 1 ) {        struct dirent ent_n;        struct dirent *out_n;        if ( readdir_r(dir_d, &ent_n, &out_n) != 0 ) {          perror(pas_c);          return u2_cm_bail(c3__fail);        }        else if ( !out_n ) {          break;        }        else lis = u2nc(u2_ci_string(out_n->d_name), lis);      }      free(pas_c);      return lis;    }  }}

/* _http_bods_to_octs: translate body into octet-stream noun.*/static u2_noun_http_bods_to_octs(u2_hbod* bod_u){  c3_w    len_w;  c3_y*   buf_y;  u2_noun cos;  {    u2_hbod* bid_u;    len_w = 0;    for ( bid_u = bod_u; bid_u; bid_u = bid_u->nex_u ) {      len_w += bid_u->len_w;    }  }  buf_y = c3_malloc(len_w);  {    c3_y* ptr_y = buf_y;    while ( bod_u ) {      memcpy(ptr_y, bod_u->hun_y, bod_u->len_w);      ptr_y += bod_u->len_w;      bod_u = bod_u->nex_u;    }  }  cos = u2_ci_bytes(len_w, buf_y);  free(buf_y);  return u2nc(len_w, cos);}

voidu2_http_ef_bake(void){  u2_noun pax = u2nq(c3__gold, c3__http, u2k(u2A->sen), u2_nul);  u2_reck_plan(u2A, pax, u2nc(c3__born, u2_nul));}

/* u2_term_get_blew(): return window size [columns rows].*/u2_nounu2_term_get_blew(c3_l tid_l){  u2_utty*       uty_u = _term_ef_get(tid_l);  c3_l           col_l, row_l;#if 1  struct winsize siz_u;  if ( uty_u && (0 == ioctl(uty_u->fid_i, TIOCGWINSZ, &siz_u)) ) {    col_l = siz_u.ws_col;    row_l = siz_u.ws_row;  } else {    col_l = 80;    row_l = 24;  }#else  {    c3_i col_i, row_i;    uv_tty_get_winsize(&uty_u->wax_u, &col_i, &row_i);    col_l = col_i;    row_l = row_i;  }#endif  if ( uty_u ) {    uty_u->tat_u.siz.col_l = col_l;    uty_u->tat_u.siz.row_l = row_l;  }  return u2nc(col_l, row_l);}

/* _unix_desk_sync_into(): sync external changes to desk.*/static void_unix_desk_sync_into(u2_noun  who,                     u2_noun  hox,                     u2_noun  syd,                     u2_udir* dir_u){  u2_noun xun, bur, doz, fav, pax;  xun = _unix_dir_ankh(dir_u);  bur = _unix_desk_peek(hox, u2k(syd), u2k(u2A->wen));  if ( (u2_no == u2_sing(u2h(xun), u2h(bur)))) //&&  //     (u2_no == _unix_ankh_sing(xun, bur)) )  {    doz = u2_dc("cost", xun, bur);    pax = u2nq(u2_blip, c3__sync, u2k(u2A->sen), u2_nul);    fav = u2nq(c3__into, who, syd, u2nc(u2_yes, doz));    u2_reck_plan(u2A, pax, fav);  }  else {    u2z(who); u2z(syd); u2z(xun); u2z(bur);  }}

/* u2_term_ef_winc(): window change.  Just console right now.*/voidu2_term_ef_winc(void){  u2_noun pax = u2nq(c3__gold, c3__term, '1', u2_nul);  u2_reck_plan(u2A, pax, u2nc(c3__blew, u2_term_get_blew(1)));}

/* u2_term_ef_winc(): window change.  Just console right now.*/voidu2_term_ef_winc(void){  u2_noun pax = u2nq(u2_blip, c3__term, '1', u2_nul);  u2_proc_plan(u2A, pax, u2nc(c3__blew, u2_term_get_blew(1)));}

/* u2_cn_mink(): logical virtual nock.*/u2_nounu2_cn_mink(u2_noun bus,           u2_noun fol,           u2_noun fly){    u2_noun res;    u2_bean bit;    bit = u2_tx_sys_bit(u2_Wire, u2_no);    c3_assert(bit == u2_yes);    bit = u2_tx_glu_bit(u2_Wire, u2_yes);    {        u2_noun lad;        lad = u2_hevn_at(lad);        u2_hevn_at(lad) = u2nc(fly, u2k(lad));        {            res = _nock_moog(bus, fol);        }        // c3_assert(lad == u2ft(u2_hevn_at(lad)));        u2z(u2_hevn_at(lad));        u2_hevn_at(lad) = lad;    }    u2_tx_sys_bit(u2_Wire, u2_yes);    u2_tx_glu_bit(u2_Wire, bit);    return res;}

/* _term_close_cb(): free terminal.*/static void_term_close_cb(uv_handle_t* han_t){  u2_utty* tty_u = (void*) han_t;  if ( u2_Host.uty_u == tty_u ) {    u2_Host.uty_u = tty_u->nex_u;  }  else {    u2_utty* uty_u;    for (uty_u = u2_Host.uty_u; uty_u; uty_u = uty_u->nex_u ) {      if ( uty_u->nex_u == tty_u ) {        uty_u->nex_u = tty_u->nex_u;        break;      }    }  }  {    u2_noun tid = u2_dc("scot", c3__ud, tty_u->tid_l);    u2_noun pax = u2nq(u2_blip, c3__term, tid, u2_nul);    u2_proc_plan(u2A, u2k(pax), u2nc(c3__hook, u2_nul));    u2z(pax);  }  free(tty_u);}

/* u2_unix_ef_init(): update filesystem for new acquisition.*/voidu2_unix_ef_init(u2_noun who){  _unix_hot_gain(u2k(who), u2_yes);  u2_reck_plan(u2A, u2nq(c3__gold, c3__sync, u2k(u2A->sen), u2_nul),                    u2nq(c3__into, who, u2_blip, u2nc(u2_yes, u2_nul)));}

/* _term_io_belt(): send belt.*/static void_term_io_belt(u2_utty* uty_u, u2_noun  blb){  u2_noun tid = u2_dc("scot", c3__ud, uty_u->tid_l);  u2_noun pax = u2nq(c3__gold, c3__term, tid, u2_nul);  u2_reck_plan(u2A, pax, u2nc(c3__belt, blb));}

/* nock_molg(): function call (mung) with kode.  Arguments transferred.*/static u2_noun_nock_molg(u2_noun  gat,           u2_noun  sam,           u2_kode* pon){  if ( (u2_no == u2du(gat)) || (u2_no == u2du(u2t(gat))) ) {    *pon = 2; return u2_cm_wail();  }  else {    u2_noun cor, fol;    cor = u2nc(u2k(u2h(gat)), u2nc(sam, u2k(u2t(u2t(gat)))));    fol = u2k(u2h(gat));    u2z(gat);    //  XX  try to chip with u2_ds_find?  but a rare case...    return _nock_mool(cor, fol, pon);  }}

/* _unix_desk_peek(): peek for arch.*/static u2_noun_unix_desk_peek(u2_noun who,                 u2_noun hox,                 u2_noun syd,                 u2_noun lok){  u2_noun cay;  cay = u2_reck_prick    (u2A, who, u2nc(c3_s2('c','z'), u2nq(hox, syd, lok, u2_nul)));  if ( u2_nul == cay ) {    return u2nc(u2_no, u2_nul);  } else {    u2_noun arc = u2k(u2t(cay));    u2z(cay); return arc;  }}

/* _http_request_dead(): kill http request.*/static void_http_request_dead(u2_hreq* req_u){  u2_noun pox = _http_pox_to_noun(req_u->hon_u->htp_u->sev_l,                                  req_u->hon_u->coq_l,                                  req_u->seq_l);  u2_reck_plan(u2_Host.arv_u,               pox,               u2nc(c3__thud, u2_nul));}

/* _term_it_save(): save file by path.*/static void_term_it_save(u2_noun pax, u2_noun pad){  c3_c* pax_c;  pax = u2nc(c3_s3('p','u','t'), pax);  pax_c = _term_it_path(u2_yes, pax);  u2_walk_save(pax_c, 0, pad);  free(pax_c);}

//  _lo_bench_noop(): benchmark no-op events.//static void_lo_bench_noop(c3_w num_w){  c3_w i_w;  for ( i_w = 0; i_w < num_w; i_w++ ) {    u2_reck_plan(u2A, u2nq(c3__gold, c3__term, 1, u2_nul),                      u2nc(c3__noop, u2_nul));  }  u2_raft_work(u2A);}

/* _unix_time_cb(): timer callback.*/static void_unix_time_cb(uv_timer_t* tim_u, c3_i sas_i){  u2_lo_open();  {    u2_reck_plan      (u2A,       u2nt(c3__gold, c3__clay, u2_nul),       u2nc(c3__wake, u2_nul));  }  u2_lo_shut(u2_no);}

/* _nock_pray_mool(): load from namespace, in virtual mode.*/static u2_noun_nock_pray_mool(u2_noun gof, u2_kode *pon)                        //  transfer{    u2_noun lad = u2_hevn_at(lad);    c3_assert(u2_yes == u2du(lad));    c3_assert(0 == *pon);    {        u2_noun i_lad = u2fh(lad);        u2_noun t_lad = u2ft(lad);        u2_noun pro;        u2_noun hoe;        u2_hevn_at(lad) = t_lad;        if ( 0 != (hoe = u2_cm_trap()) ) {            u2_cm_done();            return u2_cm_bail(u2k(u2h(hoe)));        }        else {            if ( u2_nul == t_lad ) {                pro = u2_cn_mung(u2k(i_lad), u2k(gof));            } else {                pro = _nock_molg(u2k(i_lad), u2k(gof), pon);            }            u2_cm_done();            c3_assert(t_lad == u2_hevn_at(lad));            u2_hevn_at(lad) = lad;            if ( 0 != *pon ) {                u2z(gof);                return pro;            } else {                if ( u2_no == u2du(pro) ) {                    *pon = 1;                    u2z(pro);                    return u2nc(gof, u2_nul);                }                else {                    u2_noun res = u2k(u2t(pro));                    u2z(gof);                    u2z(pro);                    return res;                }            }        }    }}

/* _nock_moog(): u2_cn_mink() with fly set.*/static u2_noun_nock_moog(u2_noun bus,           u2_noun fol){    u2_noun res;    u2_kode pon;    pon = 0;    {        u2_noun hoe;        if ( 0 != (hoe = u2_cm_trap()) ) {            if ( u2h(hoe) == c3__exit ) {                res = u2nc(2, u2k(u2t(hoe)));                c3_assert(0);                u2z(hoe);            }            else if ( u2h(hoe) == c3__need ) {                res = u2nc(1, u2k(u2t(hoe)));                u2z(hoe);            }            else {                u2_noun wac = u2k(u2h(hoe));                u2z(hoe);                return u2_cm_bail(wac);            }        }        else {            u2_noun pro = _nock_mool(bus, fol, &pon);            u2_cm_done();            res = u2nc(pon, pro);        }    }    return res;}

/* _unix_time_cb(): timer callback.*/static void_unix_time_cb(uv_timer_t* tim_u){  if ( u2_nul == u2A->roe ) {    u2_lo_open();    {      u2_reck_plan        (u2A,         u2nt(u2_blip, c3__clay, u2_nul),         u2nc(c3__wake, u2_nul));    }    u2_lo_shut(u2_no);  }}

/* _tel_opt(): telnet event sucker*/static void_tel_opt(_te_nvt* nvt, telnet_byte opt, _to_evt* evt){  switch (evt->type)  {    default: break;    case TELNET_EV_TELOPT_DATA:    {      _to_dvt* dv = (_to_dvt*)evt;      u2_utel* tel_u;      u2_noun pax;      u2_noun blu;      u2_noun tid;      c3_s col_s;      c3_s row_s;      if ( opt != _T_NAWS ) {        return;      }      c3_assert(0 < telnet_get_userdata(nvt, (void**)&tel_u));      col_s = dv->data[1] | (dv->data[0] << 8);      row_s = dv->data[3] | (dv->data[2] << 8);      tel_u->uty_t.tat_u.siz.col_l = col_s;      tel_u->uty_t.tat_u.siz.row_l = row_s;      tid = u2_dc("scot", c3__ud, tel_u->uty_t.tid_l);      pax = u2nq(u2_blip, c3__term, tid, u2_nul);      blu = u2nc(col_s, row_s);      u2_proc_plan(u2A, pax, u2nc(c3__blew, blu));      break;    }  }}