コード例 #1
0
ファイル: ut_firm.c プロジェクト: mnemnion/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, firm)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun sut, dib, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, u2_cw_sam, &dib, 0)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, firm)(wir_r, van, sut, dib);
    }
  }
コード例 #2
0
ファイル: snag.c プロジェクト: Gruelty/urbit
  u2_noun                                                         // transfer
  j2_mb(Pt2, snag)(u2_wire wir_r, 
                   u2_noun cor)                                   // retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) || 
         (u2_no == u2_stud(a)) ) 
    {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt2, snag)(wir_r, a, b);
    }
  }
コード例 #3
0
ファイル: parse.c プロジェクト: Gruelty/urbit
  u2_noun                                                         //  produce
  j2_mc(Pt5, shim, fun)(u2_wire wir_r, 
                        u2_noun cor)                              //  retain
  {
    u2_noun van, zep, tub;

    if ( (u2_no == u2_mean(cor, u2_cv_sam, &tub, u2_cv_con, &van, 0)) ||
         (u2_none == (zep = u2_frag(u2_cv_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt5, shim, fun)(wir_r, zep, tub);
    }
  }
コード例 #4
0
ファイル: parse.c プロジェクト: Gruelty/urbit
  u2_noun                                                         //  produce
  j2_mc(Pt5, stew, fun)(u2_wire wir_r, 
                        u2_noun cor)                              //  retain
  {
    u2_noun con, hel, tub;

    if ( (u2_no == u2_mean(cor, u2_cv_sam, &tub, u2_cv_con, &con, 0)) ||
         (u2_none == (hel = u2_frag(2, con))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt5, stew, fun)(wir_r, hel, tub);
    }
  }
コード例 #5
0
ファイル: ut_rest.c プロジェクト: philippeback/urbit-1
u2_weak
j2_mck(Pt6, ut, rest)(u2_wire wir_r,
                      u2_noun cor)
{
    u2_noun sut, leg, van;

    if ( (u2_no == u2_mean(cor, u2_cv_sam, &leg, u2_cv_con, &van, 0)) ||
            (u2_none == (sut = u2_frag(u2_cv_sam, van))) )
    {
        return u2_none;
    } else {
        return u2_rc(wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, leg));
    }
}
コード例 #6
0
ファイル: ut_nest.c プロジェクト: mnemnion/urbit
  u2_weak
  j2_mck(Pt6, ut, nest)(u2_wire wir_r,
                        u2_noun cor)
  {
    u2_noun sut, ref, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, u2_cw_sam_3, &ref, 0)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_none;
    } else {
      return u2_rc(wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, ref));
    }
  }
コード例 #7
0
  u2_weak                                                         //  transfer
  j2_mc(Pt4, by, put)(u2_wire wir_r,
                      u2_noun cor)                                //  retain
  {
    u2_noun a, b, c;

    if ( u2_no == u2_mean(cor, u2_cv_sam_2,   &b,
                               u2_cv_sam_3,   &c,
                               u2_cv_con_sam, &a, 0) ) {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mcc(Pt4, by, put)(wir_r, a, b, c);
    }
  }
コード例 #8
0
ファイル: ut_rest.c プロジェクト: philippeback/urbit-1
u2_noun                                                         //  transfer
j2_mc(Pt6, ut, rest)(u2_wire wir_r,
                     u2_noun cor)                               //  retain
{
    u2_noun sut, leg, van;

    if ( (u2_no == u2_mean(cor, u2_cv_sam, &leg, u2_cv_con, &van, 0)) ||
            (u2_none == (sut = u2_frag(u2_cv_sam, van))) )
    {
        return u2_bl_bail(wir_r, c3__fail);
    } else {
        return j2_mcx(Pt6, ut, rest)(wir_r, van, sut, leg);
    }
}
コード例 #9
0
ファイル: ut_firm.c プロジェクト: mnemnion/urbit
  u2_weak
  j2_mck(Pt6, ut, firm)(u2_wire wir_r,
                        u2_noun cor)
  {
    u2_noun sut, dib, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, u2_cw_sam, &dib, 0)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_none;
    } else {
      return u2_rc(wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, dib));
    }
  }
コード例 #10
0
ファイル: mod.c プロジェクト: mnemnion/urbit
  u2_weak                                                         //  transfer
  j2_mb(Pt1, mod)(u2_wire wir_r, 
                  u2_noun cor)                                    //  retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cw_sam_2, &a, u2_cw_sam_3, &b, 0)) ||
         (u2_no == u2_stud(a)) ||
         (u2_no == u2_stud(b)) )
    {
      return u2_none;
    } else {
      return j2_mbc(Pt1, mod)(wir_r, a, b);
    }
  }
コード例 #11
0
  u2_noun                                                         //  transfer
  j2_mb(Pt6, fitz)(u2_wire wir_r,
                   u2_noun cor)                                   //  retain
  {
    u2_noun yaz, wix;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &yaz, u2_cv_sam_3, &wix, 0)) ||
         (u2_no == u2ud(yaz)) ||
         (u2_no == u2ud(wix)) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt6, fitz)(wir_r, yaz, wix);
    }
  }
コード例 #12
0
ファイル: parse.c プロジェクト: Gruelty/urbit
  u2_noun                                                         //  produce
  j2_mc(Pt5, comp, fun)(u2_wire wir_r, 
                        u2_noun cor)                              //  retain
  {
    u2_noun van, raq, vex, sab;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &vex,
                                u2_cv_sam_3, &sab,
                                u2_cv_con, &van, 0)) ||
         (u2_none == (raq = u2_frag(u2_cv_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt5, comp, fun)(wir_r, raq, vex, sab);
    }
  }
コード例 #13
0
ファイル: parse.c プロジェクト: mnemnion/urbit
  u2_noun                                                         //  produce
  j2_mc(Pt5, glue, fun)(u2_wire wir_r, 
                        u2_noun cor)                              //  retain
  {
    u2_noun van, bus, vex, sab;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, 
                                u2_cw_sam_2, &vex,
                                u2_cw_sam_3, &sab, 0)) ||
         (u2_none == (bus = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt5, glue, fun)(wir_r, bus, vex, sab);
    }
  }
コード例 #14
0
  u2_weak
  j2_mc(Pt5, aesc, en)(u2_wire wir_r,
                       u2_noun cor)
  {
    u2_noun a, b;

    if ( u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ||
         u2_no == u2_stud(a) ||
         u2_no == u2_stud(b) )
    {
      return u2_bl_bail(wir_r, c3__exit);
    }
    else {
      return j2_mcd(Pt5, aesc, en)(wir_r, a, b);
    }
  }
コード例 #15
0
ファイル: co_oxco.c プロジェクト: itsjustme/urbit
/* functions
*/
  u2_weak
  j2_md(Pt5, coco, co, oxco)(u2_wire wir_r,
                             u2_noun cor)
  {
    u2_atom bas, gop;
    u2_noun dug;
    if ( u2_no == u2_mean(cor, u2_cv_sam_4, &bas,
    			       u2_cv_sam_5, &gop,
    			       u2_cv_sam_3, &dug,
                               0) )
      {
    	return u2_bl_bail(wir_r, c3__exit);
      }

    return 0;
  }
コード例 #16
0
ファイル: ut_nest.c プロジェクト: mnemnion/urbit
/* boilerplate
*/
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, nest)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun sut, tel, ref, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, 
                                u2_cw_sam_2, &tel, 
                                u2_cw_sam_3, &ref, 0)) ||
         (u2_no == u2_stud(tel)) || (tel > 1) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, nest)(wir_r, van, sut, tel, ref);
    }
  }
コード例 #17
0
ファイル: ut_swab.c プロジェクト: mnemnion/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, swab)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun van, sut, men, har;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, 
                                u2_cw_sam_2, &men, 
                                u2_cw_sam_3, &har,
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, swab)(wir_r, van, sut, men, har);
    }
  }
コード例 #18
0
ファイル: ut_tack.c プロジェクト: Gruelty/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, tack)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun van, sut, peh, mur;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &peh, 
                                u2_cv_sam_3, &mur,
                                u2_cv_con, &van, 
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cv_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, tack)(wir_r, van, sut, peh, mur);
    }
  }
コード例 #19
0
ファイル: ut_mint.c プロジェクト: mnemnion/urbit
  u2_noun                                                         //  produce
  j2_mc(Pt6, ut, mint)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun sut, gol, gen, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, 
                                u2_cw_sam_2, &gol, 
                                u2_cw_sam_3, &gen,
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, mint)(wir_r, van, sut, gol, gen);
    }
  }
コード例 #20
0
ファイル: ut_seek.c プロジェクト: ngvrnd/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, seek)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun sut, way, hyp, van;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &way, 
                                u2_cv_sam_3, &hyp, 
                                u2_cv_con, &van, 
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cv_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, seek)(wir_r, van, sut, way, hyp);
    }
  }
コード例 #21
0
ファイル: ut_find.c プロジェクト: mnemnion/urbit
  u2_weak
  j2_mck(Pt6, ut, find)(u2_wire wir_r,
                        u2_noun cor)
  {
    u2_noun sut, way, cog, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, 
                                u2_cw_sam_2, &way, 
                                u2_cw_sam_3, &cog, 
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_none;
    } else {
      return u2_rt
        (wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, way), u2_rx(wir_r, cog));
    }
  }
コード例 #22
0
ファイル: ut_cull.c プロジェクト: mnemnion/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, cull)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun sut, axe, pol, ref, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
                                u2_cw_sam_2, &pol,
                                u2_cw_sam_6, &axe, 
                                u2_cw_sam_7, &ref, 0)) ||
         (u2_no == u2_stud(axe)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, cull)(wir_r, van, sut, pol, axe, ref);
    }
  }
コード例 #23
0
ファイル: ut_mull.c プロジェクト: mnemnion/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, mull)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun sut, gol, dox, gen, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, 
                                u2_cw_sam_2, &gol, 
                                u2_cw_sam_6, &dox, 
                                u2_cw_sam_7, &gen,
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, mull)(wir_r, van, sut, gol, dox, gen);
    }
  }
コード例 #24
0
  u2_weak                                                         //  transfer
  j2_mb(Pt3, cat)(u2_wire wir_r,
                  u2_noun cor)                                    //  retain
  {
    u2_noun a, b, c;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a,
                                u2_cv_sam_6, &b,
                                u2_cv_sam_7, &c, 0)) ||
         (u2_no == u2_stud(a)) ||
         (u2_no == u2_stud(b)) ||
         (u2_no == u2_stud(c)) )
    {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt3, cat)(wir_r, a, b, c);
    }
  }
コード例 #25
0
ファイル: ut_fink.c プロジェクト: cgyarvin/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, fink)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun sut, dep, way, cog, van;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &dep, 
                                u2_cv_sam_6, &way, 
                                u2_cv_sam_7, &cog, 
                                u2_cv_con, &van, 
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cv_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, fink)(wir_r, van, sut, dep, way, cog);
    }
  }
コード例 #26
0
ファイル: ut_tusk.c プロジェクト: mnemnion/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, tusk)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun van, sut, hep, boz, rix;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, 
                                u2_cw_sam_2, &hep, 
                                u2_cw_sam_6, &boz,
                                u2_cw_sam_7, &rix,
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, tusk)(wir_r, van, sut, hep, boz, rix);
    }
  }
コード例 #27
0
ファイル: ut_seek.c プロジェクト: ngvrnd/urbit
  u2_weak
  j2_mck(Pt6, ut, seek)(u2_wire wir_r,
                        u2_noun cor)
  {
    u2_noun sut, way, hyp, van;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &way, 
                                u2_cv_sam_3, &hyp, 
                                u2_cv_con, &van, 
                                0)) ||
         (u2_none == (sut = u2_frag(u2_cv_sam, van))) )
    {
      return u2_none;
    } else {
      return u2_rt
        (wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, way), u2_rx(wir_r, hyp));
    }
  }
コード例 #28
0
ファイル: ut_park.c プロジェクト: mnemnion/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, park)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun sut, way, axe, van;

    if ( (u2_no == u2_mean(cor, u2_cw_con, &van, 
                                u2_cw_sam_2, &way, 
                                u2_cw_sam_3, &axe,
                                0)) ||
         (u2_no == u2_stud(axe)) ||
         (u2_none == (sut = u2_frag(u2_cw_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, park)(wir_r, van, sut, way, axe);
    }
  }
コード例 #29
0
ファイル: ut_gain.c プロジェクト: mnemnion/urbit
  static u2_noun                                                  //  produce
  _gain_in(u2_wire wir_r, 
           u2_noun van,                                           //  retain
           u2_noun sut,                                           //  retain
           u2_noun gen)                                           //  retain
  {
    u2_noun p_gen, q_gen;

    if ( u2_no == u2_dust(gen) ) { 
      return u2_rx(wir_r, sut);
    } else switch ( u2_h(gen) ) {
      default: return u2_rx(wir_r, sut);

      case c3__wtts: {
        if ( u2_no == u2_mean(gen, 6, &p_gen, 7, &q_gen, 0) ) {
          return u2_bl_bail(wir_r, c3__fail);
        } else {
          u2_noun rac = j2_mcy(Pt6, ap, rake)(wir_r, q_gen);
          u2_noun hap = j2_mcy(Pt6, ut, play)(wir_r, van, sut, p_gen);
          u2_noun guz = j2_mcy(Pt6, ut, seek)(wir_r, van, sut, c3__read, rac);
          u2_noun axe = u2_h(guz);
          u2_noun ret = j2_mcy(Pt6, ut, cull)
            (wir_r, van, sut, u2_yes, axe, hap);

          u2_rz(wir_r, guz);
          u2_rz(wir_r, hap);
          u2_rz(wir_r, rac);

          return ret;
        }
      }
      case c3__wtpm: {
        return _gain_wtpm(wir_r, van, sut, u2_t(gen));
      }
      case c3__zpcb: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
      {
        return j2_mcx(Pt6, ut, gain)(wir_r, van, sut, q_gen);
      }
      case c3__zphs: p_gen = u2_t(gen);
      {
        return j2_mcx(Pt6, ut, gain)(wir_r, van, sut, p_gen);
      }
    }
  }
コード例 #30
0
ファイル: ut_heal.c プロジェクト: Gruelty/urbit
  u2_noun                                                         //  transfer
  j2_mc(Pt6, ut, heal)(u2_wire wir_r, 
                       u2_noun cor)                               //  retain
  {
    u2_noun van, sut, qog, axe, ref;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &qog, 
                                u2_cv_sam_6, &axe,
                                u2_cv_sam_7, &ref,
                                u2_cv_con, &van, 
                                0)) ||
         (u2_no == u2_stud(axe)) ||
         (u2_none == (sut = u2_frag(u2_cv_sam, van))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mcx(Pt6, ut, heal)(wir_r, van, sut, qog, axe, ref);
    }
  }