예제 #1
0
파일: parse.c 프로젝트: Gunga/urbit 
  u3_noun
 u3we_stag_fun(u3_noun cor)
  {
    u3_noun van, gob, sef, tub;

    if ( (c3n == u3r_mean(cor, u3x_sam, &tub, u3x_con, &van, 0)) ||
         (c3n == u3r_mean(van, u3x_sam_2, &gob, u3x_sam_3, &sef, 0)) )
    {
      return u3m_bail(c3__fail);
    } else {
      return _cqe_stag_fun(gob, sef, tub);
    }
  }
예제 #2
0
파일: parse.c 프로젝트: Gunga/urbit 
  u3_noun
  u3we_stir_fun(u3_noun cor)
  {
    u3_noun van, rud, raq, fel, tub;

    if ( (c3n == u3r_mean(cor, u3x_sam, &tub, u3x_con, &van, 0)) ||
         (c3n == u3r_mean(van, u3x_sam_2, &rud,
                               u3x_sam_6, &raq,
                               u3x_sam_7, &fel,
                               0)) )
    {
      return u3m_bail(c3__fail);
    } else {
      return _cqe_stir_fun(rud, raq, fel, tub);
    }
  }
예제 #3
0
파일: in_has.c 프로젝트: Gunga/urbit 
/* functions
*/
  u3_noun
  u3qdi_has(u3_noun a,
            u3_noun b)
  {
    if ( u3_nul == a ) {
      return c3n;
    }
    else {
      u3_noun l_a, n_a, r_a;

      if ( (c3n == u3r_mean(a, 2, &n_a, 6, &l_a, 7, &r_a, 0)) ) {
        return u3m_bail(c3__exit);
      }
      else {
        if ( (c3y == u3r_sing(b, n_a)) ) {
          return c3y;
        }
        else {
          if ( c3y == u3qc_hor(b, n_a) ) {
            return u3qdi_has(l_a, b);
          }
          else return u3qdi_has(r_a, b);
        }
      }
    }
  }
예제 #4
0
파일: by_bif.c 프로젝트: Gunga/urbit 
/* functions
*/
  u3_noun u3wdb_bif(u3_noun cor)
  {
    u3_noun a, b;
    if ( c3n == u3r_mean(cor, u3x_sam, &b, u3x_con_sam, &a, 0) ) {
      return u3m_bail(c3__exit);
    } else {
      return u3qdb_bif(a, b);
    }
  }
예제 #5
0
파일: parse.c 프로젝트: Gunga/urbit 
  u3_noun
  u3we_sfix(u3_noun cor)
  {
    u3_noun vex, sab;

    if ( (c3n == u3r_mean(cor, u3x_sam_2, &vex, u3x_sam_3, &sab, 0)) ) {
      return u3m_bail(c3__exit);
    } else {
      return _cqe_sfix(vex, sab);
    }
  }
예제 #6
0
파일: comb.c 프로젝트: Gunga/urbit 
  u3_noun
  u3wf_comb(u3_noun cor)
  {
    u3_noun mal, buz;

    if ( c3n == u3r_mean(cor, u3x_sam_2, &mal, u3x_sam_3, &buz, 0) ) {
      return u3_none;
    } else {
      return u3qf_comb(mal, buz);
    }
  }
예제 #7
0
파일: fork.c 프로젝트: Gunga/urbit 
  u3_noun
  u3wf_fork(u3_noun cor)
  {
    u3_noun hoz, bur;

    if ( c3n == u3r_mean(cor, u3x_sam_2, &hoz, u3x_sam_3, &bur, 0) ) {
      return u3m_bail(c3__fail);
    } else {
      return u3qf_fork(hoz, bur);
    }
  }
예제 #8
0
파일: skid.c 프로젝트: urbit/urbit 
  u3_noun
  u3wb_skid(u3_noun cor)
  {
    u3_noun a, b;

    if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {
      return u3m_bail(c3__exit);
    } else {
      return u3qb_skid(a, b);
    }
  }
예제 #9
0
파일: flan.c 프로젝트: Gunga/urbit 
  u3_noun
  u3wf_flan(u3_noun cor)
  {
    u3_noun bos, nif;

    if ( c3n == u3r_mean(cor, u3x_sam_2, &bos, u3x_sam_3, &nif, 0) ) {
      return u3m_bail(c3__fail);
    } else {
      return u3qf_flan(bos, nif);
    }
  }
예제 #10
0
파일: cube.c 프로젝트: Gunga/urbit 
  u3_noun
  u3wf_cube(u3_noun cor)
  {
    u3_noun dil, goq;

    if ( c3n == u3r_mean(cor, u3x_sam_2, &dil, u3x_sam_3, &goq, 0) ) {
      return u3m_bail(c3__fail);
    } else {
      return u3qf_cube(dil, goq);
    }
  }
예제 #11
0
파일: hint.c 프로젝트: urbit/urbit 
  u3_noun
  u3wf_hint(u3_noun cor)
  {
    u3_noun sag, tip;

    if ( c3n == u3r_mean(cor, u3x_sam_2, &sag, u3x_sam_3, &tip, 0) ) {
      return u3m_bail(c3__fail);
    } else {
      return u3qf_hint(sag, tip);
    }
  }
예제 #12
0
파일: vor.c 프로젝트: alecbrick/urbit 
  u3_noun
  u3wc_vor(u3_noun cor)
  {
    u3_noun a, b;

    if ( (c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0)) ) {
      return u3m_bail(c3__exit);
    } else {
      return u3qc_vor(a, b);
    }
  }
예제 #13
0
파일: ed_veri.c 프로젝트: alecbrick/urbit 
 u3_noun
 u3wee_veri(u3_noun cor)
 {
   u3_noun a, b, c;
   if ( c3n == u3r_mean(cor,
                         u3x_sam_2, &a, u3x_sam_6, &b,
                         u3x_sam_7, &c, 0) ) {
     return u3m_bail(c3__fail);
   } else {
     return _cqee_veri(a, b, c);
   }
 }
예제 #14
0
파일: slag.c 프로젝트: bd/urbit 
  u3_noun
  u3wb_slag(u3_noun cor)
  {
    u3_noun a, b;

    if ( (c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0)) ||
         (c3n == u3ud(a) && u3_nul != b) )
    {
      return u3m_bail(c3__exit);
    } else {
      return u3qb_slag(a, b);
    }
  }
예제 #15
0
파일: ut_fire.c 프로젝트: OCForks/urbit 
/* boilerplate
*/
  u3_noun
  u3wfu_fire(u3_noun cor)
  {
    u3_noun sut, hag, van;

    if ( (c3n == u3r_mean(cor, u3x_sam, &hag, u3x_con, &van, 0)) ||
         (u3_none == (sut = u3r_at(u3x_sam, van))) )
    {
      return u3m_bail(c3__fail);
    } else {
      return _cqfu_fire(van, sut, hag);
    }
  }
예제 #16
0
파일: parse.c 프로젝트: Gunga/urbit 
 u3_noun
 u3we_stew_fun(u3_noun cor)
  {
    u3_noun con, hel, tub;

    if ( (c3n == u3r_mean(cor, u3x_sam, &tub, u3x_con, &con, 0)) ||
         (u3_none == (hel = u3r_at(2, con))) )
    {
      return u3m_bail(c3__fail);
    } else {
      return _cqe_stew_fun(hel, tub);
    }
  }
예제 #17
0
파일: ut_play.c 프로젝트: Gunga/urbit 
/* boilerplate
*/
  u3_noun
  u3wfu_play(u3_noun cor)
  {
    u3_noun sut, gen, van;

    if ( (c3n == u3r_mean(cor, u3x_sam, &gen, u3x_con, &van, 0)) ||
         (u3_none == (sut = u3r_at(u3x_sam, van))) )
    {
      return u3m_bail(c3__fail);
    } else {
      return _cqfu_play(van, sut, gen);
    }
  }
예제 #18
0
파일: clap.c 프로젝트: alecbrick/urbit 
  u3_noun
  u3wb_clap(u3_noun cor)
  {
    u3_noun a, b, c;

    if ( c3n == u3r_mean(cor, u3x_sam_2, &a,
                               u3x_sam_6, &b,
                               u3x_sam_7, &c, 0) ) {
      return u3m_bail(c3__exit);
    } else {
      return u3qb_clap(a, b, c);
    }
  }
예제 #19
0
파일: by_put.c 프로젝트: Gunga/urbit 
  u3_noun
  u3wdb_put(u3_noun cor)
  {
    u3_noun a, b, c;

    if ( c3n == u3r_mean(cor, u3x_sam_2,   &b,
                              u3x_sam_3,   &c,
                              u3x_con_sam, &a, 0) ) {
      return u3m_bail(c3__exit);
    } else {
      return u3qdb_put(a, b, c);
    }
  }
예제 #20
0
파일: parse.c 프로젝트: Gunga/urbit 
  u3_noun
 u3we_shim_fun(u3_noun cor)
  {
    u3_noun van, zep, tub;

    if ( (c3n == u3r_mean(cor, u3x_sam, &tub, u3x_con, &van, 0)) ||
         (u3_none == (zep = u3r_at(u3x_sam, van))) )
    {
      return u3m_bail(c3__fail);
    } else {
      return _cqe_shim_fun(zep, tub);
    }
  }
예제 #21
0
파일: slot.c 프로젝트: Gunga/urbit 
  u3_noun
  u3we_slot(u3_noun cor)
  {
    u3_noun axe, vax;

    if ( (c3n == u3r_mean(cor, u3x_sam_2, &axe, u3x_sam_3, &vax, 0)) ||
         (c3n == u3ud(axe)) ||
         (c3n == u3du(vax)) )
    {
      return u3m_bail(c3__fail);
    } else {
      return u3qf_slot(axe, vax);
    }
  }
예제 #22
0
파일: fine.c 프로젝트: aulux/urbit 
  u3_noun
  u3wf_fine(
                   u3_noun cor)
  {
    u3_noun fuv, lup, mar;

    if ( c3n == u3r_mean(cor, u3x_sam_2, &fuv,
                               u3x_sam_6, &lup,
                               u3x_sam_7, &mar, 0) ) {
      return u3m_bail(c3__fail);
    } else {
      return u3qf_fine(fuv, lup, mar);
    }
  }
예제 #23
0
파일: fitz.c 프로젝트: Gunga/urbit 
  u3_noun
  u3wf_fitz(u3_noun cor)
  {
    u3_noun yaz, wix;

    if ( (c3n == u3r_mean(cor, u3x_sam_2, &yaz, u3x_sam_3, &wix, 0)) ||
         (c3n == u3ud(yaz)) ||
         (c3n == u3ud(wix)) )
    {
      return u3m_bail(c3__fail);
    } else {
      return u3qf_fitz(yaz, wix);
    }
  }
예제 #24
0
파일: ut_fish.c 프로젝트: OCForks/urbit 
/* boilerplate
*/
  u3_noun
  u3wfu_fish(u3_noun cor)
  {
    u3_noun sut, axe, van;

    if ( (c3n == u3r_mean(cor, u3x_sam, &axe, u3x_con, &van, 0)) ||
         (c3n == u3ud(axe)) ||
         (u3_none == (sut = u3r_at(u3x_sam, van))) )
    {
      return u3m_bail(c3__fail);
    } else {
      return _cqfu_fish(van, sut, axe);
    }
  }
예제 #25
0
파일: in_del.c 프로젝트: urbit/urbit 
  u3_noun
  u3wdi_del(u3_noun cor)
  {
    u3_noun a, b;

    if ( c3n == u3r_mean(cor, u3x_sam,     &b,
                              u3x_con_sam, &a, 0) ) {
      return u3m_bail(c3__exit);
    }
    else {
      u3_noun n = u3qdi_del(a, b);
      return n;
    }
  }
예제 #26
0
파일: ed_shar.c 프로젝트: bd/urbit 
  u3_noun
  u3wee_shar(u3_noun cor)
  {
    u3_noun pub, sek;

    if ( (c3n == u3r_mean(cor, u3x_sam_2, &pub, u3x_sam_3, &sek, 0)) ||
         (c3n == u3ud(pub)) ||
         (c3n == u3ud(sek)) )
    {
      return u3m_bail(c3__exit);
    } else {
      return u3qee_shar(pub, sek);
    }
  }
예제 #27
0
파일: ut_crop.c 프로젝트: agentultra/urbit 
/* boilerplate
*/
  u3_noun
  u3wfu_crop(
                       u3_noun cor)
  {
    u3_noun sut, ref, van;

    if ( (c3n == u3r_mean(cor, u3x_sam, &ref, u3x_con, &van, 0)) ||
         (u3_none == (sut = u3r_at(u3x_sam, van))) )
    {
      return u3m_bail(c3__fail);
    } else {
      return _cqfu_crop(van, sut, ref);
    }
  }
예제 #28
0
파일: lth.c 프로젝트: OCForks/urbit 
  u3_noun
  u3wa_lth(u3_noun cor)
  {
    u3_noun a, b;

    if ( (c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0)) ||
         (c3n == u3ud(a)) ||
         (c3n == u3ud(b)) )
    {
      return u3m_bail(c3__exit);
    } else {
      return u3qa_lth(a, b);
    }
  }
예제 #29
0
파일: met.c 프로젝트: urbit/urbit 
  u3_noun
  u3wc_met(u3_noun cor)
  {
    u3_noun a, b;

    if ( (c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0)) ||
         (c3n == u3ud(b)) ||
         (c3n == u3ud(a) && 0 != b) )
    {
      return u3m_bail(c3__exit);
    } else {
      return u3qc_met(a, b);
    }
  }
예제 #30
0
파일: po.c 프로젝트: Gunga/urbit 
  u3_noun
  u3wcp_ind(u3_noun cor)
  {
    u3_noun x, a, buf;

    if ( (c3n == u3r_mean(cor, u3x_sam, &a, u3x_con_sam, &x, 0)) ||
         (c3n == u3du(x)) ||
         (c3n == u3ud(buf = u3t(x))) ||
         (c3n == u3ud(a)) )
    {
      return u3m_bail(c3__exit);
    } else {
      return _po_find(buf, a);
    }
  }