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

/* functions*/  u3_noun  u3qb_skid(u3_noun a,            u3_noun b)  {    if ( 0 == a ) {      return u3nc(u3_nul, u3_nul);    }    else if ( c3n == u3du(a) ) {      return u3m_bail(c3__exit);    } else {      u3_noun acc = u3qb_skid(u3t(a), b);      u3_noun hoz = u3n_slam_on(u3k(b), u3k(u3h(a)));      u3_noun nex;      if ( c3y == hoz ) {        nex = u3nc(u3nc(u3k(u3h(a)), u3k(u3h(acc))), u3k(u3t(acc)));      }       else {        nex = u3nc(u3k(u3h(acc)), u3nc(u3k(u3h(a)), u3k(u3t(acc))));      }      u3z(hoz);      u3z(acc);      return nex;    }  }

  static u3_noun  _skid_in(u3j_site* sit_u, u3_noun a)  {    if ( 0 == a ) {      return u3nc(u3_nul, u3_nul);    }    else if ( c3n == u3du(a) ) {      return u3m_bail(c3__exit);    } else {      u3_noun acc = _skid_in(sit_u, u3t(a));      u3_noun hoz = u3j_gate_slam(sit_u, u3k(u3h(a)));      u3_noun nex;      if ( c3y == hoz ) {        nex = u3nc(u3nc(u3k(u3h(a)), u3k(u3h(acc))), u3k(u3t(acc)));      }       else {        nex = u3nc(u3k(u3h(acc)), u3nc(u3k(u3h(a)), u3k(u3t(acc))));      }      u3z(hoz);      u3z(acc);      return nex;    }  }

  static u3_noun  _og_list(u3_noun a,           u3_noun b,           u3_noun c)  {    u3_noun l = u3_nul;    if ( !_(u3a_is_cat(b)) ) {      return u3m_bail(c3__fail);    }    while ( 0 != b ) {      u3_noun x = u3qc_mix(a, c);      u3_noun y = u3qc_mix(b, x);      u3_noun d = u3qe_shas(c3_s4('o','g','-','b'), y);      u3_noun m;      u3z(x); u3z(y);      if ( b < 256 ) {        u3_noun e = u3qc_end(0, b, d);        u3z(d);        m = u3nc(b, e);        b = 0;      } else {        m = u3nc(256, d);        c = d;        b -= 256;      }      l = u3nc(m, l);    }    return u3kb_flop(l);  }

static void_test_hash(void){  u3_cm_dump();  {    u3_ch_root* har_u = u3_ch_new();    c3_w        i_w;    c3_w        max_w = (1 << 20);    for ( i_w = 0; i_w < max_w; i_w++ ) {      u3_noun key = u3nc(0, i_w);      u3_ch_put(har_u, key, (i_w + 1));      u3z(key);    }    for ( i_w = 0; i_w < max_w; i_w++ ) {      u3_noun key = u3nc(0, i_w);      u3_noun val = u3_ch_get(har_u, key);      if ( val != (i_w + 1) ) {        if ( u3_none == val ) {          printf("at %d, nothing/n", i_w);        }        else printf("at %d, oddly, is %d/n", i_w, val);        c3_assert(0);      }      u3z(key);    }    u3_ch_free(har_u);  }  u3_cm_dump();}

/* glue*/  u3_noun  _cqe_glue_fun(u3_noun bus,                u3_noun vex,                u3_noun sab)  {    u3_noun p_vex, q_vex;    u3x_cell(vex, &p_vex, &q_vex);    if ( c3n == u3du(q_vex) ) {      return u3k(vex);    }    else {      u3_noun uq_vex = u3t(q_vex);      u3_noun puq_vex, quq_vex;      u3_noun yit, yur;      u3_noun p_yit, q_yit;      u3_noun ret;      u3x_cell(uq_vex, &puq_vex, &quq_vex);      yit = u3x_good(u3n_slam_on(u3k(bus), u3k(quq_vex)));      u3x_cell(yit, &p_yit, &q_yit);      yur = _last(p_vex, p_yit);      if ( c3n == u3du(q_yit) ) {        ret = u3nc(yur, u3_nul);      }      else {        u3_noun uq_yit = u3t(q_yit);        u3_noun puq_yit, quq_yit;        u3_noun wam, p_wam, q_wam, goy;        u3x_cell(uq_yit, &puq_yit, &quq_yit);        wam = u3x_good(u3n_slam_on(u3k(sab), u3k(quq_yit)));        u3x_cell(wam, &p_wam, &q_wam);        goy = _last(yur, p_wam);        u3z(yur);        if ( c3n == u3du(q_wam) ) {          ret = u3nc(goy, u3_nul);        } else {          u3_noun uq_wam = u3t(q_wam);          u3_noun puq_wam, quq_wam;          u3x_cell(uq_wam, &puq_wam, &quq_wam);          ret = u3nq(goy,                     u3_nul,                     u3nc(u3k(puq_vex),                          u3k(puq_wam)),                     u3k(quq_wam));        }        u3z(wam);      }      u3z(yit);      return ret;    }  }

/* u3_sist_boot(): restore or create.*/voidu3_sist_boot(void){  // uL(fprintf(uH, "sist: booting/n"));  if ( c3y == u3_Host.ops_u.nuu ) {    u3_noun pig = u3_none;    if ( 0 == u3_Host.ops_u.imp_c ) {      c3_c get_c[2049];      snprintf(get_c, 2048, "%s/.urb/get", u3_Host.dir_c);      if ( 0 == access(get_c, 0) ) {          uL(fprintf(uH, "pier: already built/n"));          u3_lo_bail();      }      u3_noun ten = _sist_zen();      uL(fprintf(uH, "generating 2048-bit RSA pair.../n"));      pig = u3nq(c3__make, u3_nul, 11, u3nc(ten, u3_Host.ops_u.fak));    }    else {      u3_noun imp = u3i_string(u3_Host.ops_u.imp_c);      u3_noun whu = u3dc("slaw", 'p', u3k(imp));      if ( (u3_nul == whu) ) {        fprintf(stderr, "czar: incorrect format/r/n");        u3_lo_bail();      }      else {        u3_noun gen = u3_nul;        u3_noun gun = u3_nul;        if (c3n == u3_Host.ops_u.fak) {          gen = _sist_text("generator");          gun = u3dc("slaw", c3__uw, gen);          if ( u3_nul == gun ) {            fprintf(stderr, "czar: incorrect format/r/n");            u3_lo_bail();          }        }        else {          gun = u3nc(u3_nul, u3_nul);        }        pig = u3nq(c3__sith,                   u3k(u3t(whu)),                   u3k(u3t(gun)),                   u3_Host.ops_u.fak);        u3z(whu); u3z(gun);      }      u3z(imp);    }    _sist_make(pig);  }  else {    _sist_rest();  }}

/* _http_heds_to_list(): C headers to list.*/static u3_noun_http_heds_to_list(u3_hhed* hed_u){  if ( 0 == hed_u ) {    return u3_nul;  } else {    return u3nc(u3nc(u3i_string(hed_u->nam_c),                     hed_u->val_c ? u3i_string(hed_u->val_c) : u3_nul),                _http_heds_to_list(hed_u->nex_u));  }}

/* _n_mush(): tank from failed path request.*/static u3_noun _n_mush(u3_noun val){  u3_noun pro;  pro = u3nt(c3__rose,             u3nt(u3nc('/', u3_nul), u3nc('/', u3_nul), u3_nul),             _n_mush_in(val));  u3z(val);  return pro;}

/* u3_term_ef_bake(): initial effects for new terminal.*/voidu3_term_ef_bake(u3_noun fav){  u3_noun pax = u3nq(u3_blip, c3__term, '1', u3_nul);  u3v_plan(u3k(pax), u3nc(c3__boot, fav));  u3v_plan(u3k(pax), u3nc(c3__blew, u3_term_get_blew(1)));  u3v_plan(u3k(pax), u3nc(c3__hail, u3_nul));  u3z(pax);}

  static u3_noun  _mint_bake(             u3_noun van,             u3_noun sut,             u3_noun dab)  {    if ( (u3_nul == dab) ) {      return 0;    }    else {      u3_noun n_dab, l_dab, r_dab;      u3r_trel(dab, &n_dab, &l_dab, &r_dab);      if ( c3n == u3du(n_dab) ) {        return u3m_bail(c3__fail);      }      else {        u3_noun qn_dab = u3t(n_dab);        u3_noun vad;        switch ( u3h(qn_dab) ) {          default: return u3m_bail(c3__exit);          case c3__ash: {            vad = _mint_brew(van, sut, c3y, u3t(qn_dab));            break;          }          case c3__elm: {            vad = _mint_brew(van, sut, c3n, u3t(qn_dab));            break;          }        }        if ( (u3_nul == l_dab) && (u3_nul == r_dab) ) {          return vad;        }        else if ( (u3_nul == l_dab) ) {          return u3nc            (vad, _mint_bake(van, sut, r_dab));        }        else if ( (u3_nul == r_dab) ) {          return u3nc            (vad, _mint_bake(van, sut, l_dab));        }        else {          return u3nt            (vad,                    _mint_bake(van, sut, l_dab),                    _mint_bake(van, sut, r_dab));        }      }    }  }

/* bend*/  u3_noun  _cqe_bend_fun(u3_noun raq,                u3_noun vex,                u3_noun sab)  {    u3_noun p_vex, q_vex;    u3x_cell(vex, &p_vex, &q_vex);    if ( c3n == u3du(q_vex) ) {      return u3k(vex);    } else {      u3_noun uq_vex = u3t(q_vex);      u3_noun puq_vex, quq_vex;      u3_noun yit, yur;      u3_noun p_yit, q_yit;      u3_noun ret;      u3x_cell(uq_vex, &puq_vex, &quq_vex);      yit = u3x_good(u3n_slam_on(u3k(sab), u3k(quq_vex)));      u3x_cell(yit, &p_yit, &q_yit);      yur = _last(p_vex, p_yit);      if ( c3n == u3du(q_yit) ) {        ret = u3nc(yur, u3k(q_vex));      }      else {        u3_noun uq_yit = u3t(q_yit);        u3_noun puq_yit, quq_yit;        u3_noun vux;        u3x_cell(uq_yit, &puq_yit, &quq_yit);        vux = u3x_good(u3n_slam_on(u3k(raq),                                   u3nc(u3k(puq_vex),                                   u3k(puq_yit))));        if ( u3_nul == vux ) {          ret = u3nc(yur, u3k(q_vex));        }        else {          ret = u3nq(yur,                     u3_nul,                     u3k(u3t(vux)),                     u3k(quq_yit));          u3z(vux);        }      }      u3z(yit);      return ret;    }  }

/* functions*/  u3_noun  u3qf_comb(u3_noun mal,            u3_noun buz)  {    if ( (u3_none == mal) || (u3_none == buz) ) {      return u3_none;    }    else {      u3_noun p_mal, q_mal, p_buz, q_buz, pp_buz, pq_buz;      if ( (c3y == u3r_p(mal, 0, &p_mal)) && (0 != p_mal) ) {        if ( (c3y == u3r_p(buz, 0, &p_buz)) && (0 != p_buz) ) {          return u3nc(0,                      u3qc_peg(p_mal, p_buz));        }        else if ( c3y == u3r_pq(buz, 2, &p_buz, &q_buz) &&                  c3y == u3r_p(p_buz, 0, &pp_buz) &&                  c3y == u3r_p(q_buz, 0, &pq_buz) )        {          return u3nt(2,                      u3nc(0,                           u3qc_peg(p_mal, pp_buz)),                      u3nc(0,                           u3qc_peg(p_mal, pq_buz)));        }        else return u3nt(7,                          u3k(mal),                         u3k(buz));      }#if 1      else if ( (c3y == u3r_bush(mal, &p_mal, &q_mal)) &&                (c3y == u3du(p_mal)) &&                (c3y == u3du(q_mal)) &&                (0 == u3h(q_mal)) &&                (1 == u3t(q_mal)) )      {        return u3nt(8,                     u3k(p_mal),                    u3k(buz));      }#endif      else if ( (c3y == u3r_p(buz, 0, &p_buz)) &&                (c3y == u3r_sing(1, p_buz)) )      {        return u3k(mal);      }      else return u3nt(7,                        u3k(mal),                       u3k(buz));    }  }

/* u3_term_ef_boil(): initial effects for loaded servers.*/voidu3_term_ef_boil(void){  {    u3_noun pax = u3nq(u3_blip, c3__term, '1', u3_nul);    //  u3v_plan(u3k(pax), u3nc(c3__init, u3k(u3h(u3A->own))));    u3v_plan(u3k(pax), u3nc(c3__harm, u3_nul));    u3v_plan(u3k(pax), u3nc(c3__blew, u3_term_get_blew(1)));    u3v_plan(u3k(pax), u3nc(c3__hail, u3_nul));    u3z(pax);  }}

/* functions*/  u3_noun  u3qb_clap(u3_noun a,                    u3_noun b,                    u3_noun c)  {    if ( 0 == a ) {      return u3k(b);    }    else if ( 0 == b ) {      return u3k(a);    }    else {      return u3nc(0, u3n_slam_on(u3k(c), u3nc(u3k(u3t(a)), u3k(u3t(b)))));    }  }

  static u3_noun  _slip(u3_noun weq,        u3_noun naz)  {    u3_noun p_naz, q_naz;    u3x_cell(naz, &p_naz, &q_naz);    if ( 10 == weq ) {      return u3nc(u3x_good(u3i_vint(u3k(p_naz))),                           1);    } else {      return u3nc(u3k(p_naz),                  u3x_good(u3i_vint(u3k(q_naz))));    }  }

  static u3_noun  _play_grow(u3_noun van,             u3_noun sut,             u3_atom mel,             u3_noun ruf,             u3_noun dab)  {    u3_noun dan = _play_in(van, sut, ruf);    return _play_core(dan,                      u3nt(u3k(mel),                           u3k(dan),                           u3nc(u3nc(u3_nul, u3_nul),                                u3k(dab))));  }

/* u3_term_ef_winc(): window change.  Just console right now.*/voidu3_term_ef_winc(void){  u3_noun pax = u3nq(u3_blip, c3__term, '1', u3_nul);  u3v_plan(pax, u3nc(c3__blew, u3_term_get_blew(1)));}

/* _term_close_cb(): free terminal.*/static void_term_close_cb(uv_handle_t* han_t){  u3_utty* tty_u = (void*) han_t;  if ( u3_Host.uty_u == tty_u ) {    u3_Host.uty_u = tty_u->nex_u;  }  else {    u3_utty* uty_u;    for (uty_u = u3_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;      }    }  }  {    u3_noun tid = u3dc("scot", c3__ud, tty_u->tid_l);    u3_noun pax = u3nq(u3_blip, c3__term, tid, u3_nul);    u3v_plan(u3k(pax), u3nc(c3__hook, u3_nul));    u3z(pax);  }  free(tty_u);}

/* stag*/  u3_noun  _cqe_stag_fun(u3_noun gob,                u3_noun sef,                u3_noun tub)  {    u3_noun vex = u3x_good(u3n_slam_on(u3k(sef), u3k(tub)));    u3_noun p_vex, q_vex;    u3x_cell(vex, &p_vex, &q_vex);    if ( c3n == u3du(q_vex) ) {      return vex;    }    else {      u3_noun uq_vex = u3t(q_vex);      u3_noun puq_vex, quq_vex;      u3_noun wag;      u3_noun ret;      u3x_cell(uq_vex, &puq_vex, &quq_vex);      wag = u3nc(u3k(gob), u3k(puq_vex));      ret = u3nq(u3k(p_vex),                 u3_nul,                 wag,                 u3k(quq_vex));      u3z(vex);      return ret;    }  }

/* u3_term_ef_verb(): initial effects for verbose events*/voidu3_term_ef_verb(void){  u3_noun pax = u3nq(u3_blip, c3__term, '1', u3_nul);  u3v_plan(pax, u3nc(c3__verb, u3_nul));}

  u3_noun  _cqfu_fire(u3_noun van,             u3_noun sut,             u3_noun hag)  {    u3_noun vet = u3r_at(u3qfu_van_vet, van);    c3_assert(!"not live");    {      if ( (c3y == u3du(hag)) && (u3_nul == u3t(hag)) ) {        u3_noun i_hag = u3h(hag);        u3_noun pi_hag = u3h(i_hag);        u3_noun qi_hag = u3t(i_hag);        if ( c3__elm == u3h(qi_hag) ) {          u3_noun qqi_hag = u3t(qi_hag);          if ( c3y == u3du(qqi_hag) &&              (u3_nul == u3h(qqi_hag)) &&              (1 == u3t(qqi_hag)) )          {            return u3k(pi_hag);          }        }      }    }    return u3nc(c3__hold, _fire_in(van, vet, hag));  }

voidu3_http_ef_bake(void){  u3_noun pax = u3nq(u3_blip, c3__http, u3k(u3A->sen), u3_nul);  u3v_plan(pax, u3nc(c3__born, u3_nul));}

/* functions*/  u3_noun  u3qb_murn(u3_noun a, u3_noun b)  {    if ( 0 == a ) {      return a;    }    else if ( c3n == u3du(a) ) {      return u3m_bail(c3__exit);    }    else {      u3_noun one = u3n_slam_on(u3k(b), u3k(u3h(a)));      u3_noun two = u3qb_murn(u3t(a), b);      u3_noun nex;      switch ( u3ud(one) ) {        case c3y:  u3z(one);                   return two;        case c3n:  nex = u3nc(u3k(u3t(one)), two);                   u3z(one);                   return nex;        default:   u3z(one);                   u3z(two);                   return u3_none;      }    }  }

/* functions*/  u3_noun  u3qb_roll(u3_noun a,            u3_noun b)  {    if ( 0 == a ) {      return u3k(u3r_at(u3x_sam_3, b));    }    else if ( c3n == u3du(a) ) {      return u3m_bail(c3__exit);    }    else {      u3_noun gim = u3k(u3h(a));      u3_noun zor = u3k(u3r_at(u3x_sam_3, b));      u3_noun daz = u3n_slam_on(u3k(b), u3nc(gim, zor));      u3_noun vel = u3i_molt(u3k(b), u3x_sam_3, daz, 0);      if ( u3_none == vel ) {        return u3m_bail(c3__exit);      } else {        u3_noun hox = u3qb_roll(u3t(a), vel);        u3z(vel);        return hox;      }    }  }

/* u3n_nock_an(): as slam_in(), but with empty fly.*/u3_nounu3n_nock_an(u3_noun bus, u3_noun fol){  u3_noun fly = u3nt(u3nc(1, 0), 0, 0);  //  |=(a=* ~)  return u3n_nock_in(fly, bus, fol);}

/* pfix*/  u3_noun  _cqe_pfix(u3_noun vex,            u3_noun sab)  {    u3_noun p_vex, q_vex;    u3x_cell(vex, &p_vex, &q_vex);    if ( c3n == u3du(q_vex) ) {      return u3k(vex);    }    else {      u3_noun uq_vex = u3t(q_vex);      u3_noun puq_vex, quq_vex;      u3_noun yit, p_yit, q_yit;      u3_noun ret;      u3x_cell(uq_vex, &puq_vex, &quq_vex);      yit = u3x_good(u3n_slam_on(u3k(sab), u3k(quq_vex)));      u3x_cell(yit, &p_yit, &q_yit);      ret = u3nc(_last(p_vex, p_yit),                 u3k(q_yit));      u3z(yit);      return ret;    }  }

/* functions*/  u3_noun  u3qf_flan(u3_noun bos,            u3_noun nif)  {    if ( c3y == u3r_sing(1, u3h(bos)) ) {      if ( (u3_nul == u3t(bos)) ) {        return u3k(nif);      }      else return u3k(bos);    }    else {      if ( c3y == u3r_sing(1, u3h(nif)) ) {        if ( (u3_nul == u3t(nif)) ) {          return u3k(bos);        }        else return u3k(nif);      }      else {        return u3nq(6,                    u3k(bos),                    u3k(nif),                    u3nc(1, c3n));      }    }  }

  //  good old linear search  //  static u3_noun  _po_find(u3_noun buf,            u3_noun a)  {    if ( !_(u3a_is_cat(a)) ) {      return u3_nul;    }    else {      c3_w i_w;      c3_w a_w = a;      for ( i_w = 0; i_w < 256; i_w++ ) {        c3_y byt_y[3];        c3_w but_w;        u3r_bytes((i_w * 3), 3, byt_y, buf);        but_w = (byt_y[0] | (byt_y[1] << 8) | (byt_y[2] << 16));        if ( but_w == a_w ) {          return u3nc(u3_nul, i_w);        }      }      return u3_nul;    }  }

/* u3n_slam_on(): produce (gat sam).*/u3_nounu3n_slam_on(u3_noun gat, u3_noun sam){  u3_noun cor = u3nc(u3k(u3h(gat)), u3nc(sam, u3k(u3t(u3t(gat)))));#if 0  if ( &u3H->rod_u == u3R ) {    if ( exc_w == 1 ) {      c3_assert(0);    }     exc_w++;  }#endif  u3z(gat);  return u3n_kick_on(cor);}

/* _http_bods_to_octs: translate body into octet-stream noun.*/static u3_noun_http_bods_to_octs(u3_hbod* bod_u){  c3_w    len_w;  c3_y*   buf_y;  u3_noun cos;  {    u3_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 = u3i_bytes(len_w, buf_y);  free(buf_y);  return u3nc(len_w, cos);}