Exemplo n.º 1
0
  u3_noun
  u3qfu_lose(u3_noun van,
             u3_noun sut,
             u3_noun gen)
  {
    u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
    u3_noun gat = u3j_cook("u3qfu_lose-lose", von, "lose");

    return u3n_kick_on(u3i_molt(gat, u3x_sam, u3k(gen), 0));
  }
Exemplo n.º 2
0
Arquivo: ap.c Projeto: urbit/urbit
/* fish
*/
  u3_noun
  u3qfr_fish(u3_noun van,
             u3_noun ref,
             u3_noun syn,
             u3_noun axe)
  {
    u3_noun gat = u3j_soft(_ar_core(van, ref, syn), "fish");

    return u3n_kick_on(u3i_molt(gat, 
                                u3x_sam,
                                u3k(axe),
                                0));
  }
Exemplo n.º 3
0
Arquivo: nock.c Projeto: OCForks/urbit
/* u3n_slam_on(): produce (gat sam).
*/
u3_noun
u3n_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);
}
Exemplo n.º 4
0
  static u3_noun
  _play_cnts(u3_noun van,
             u3_noun sut,
             u3_noun hyp,
             u3_noun rig)
  {
    u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
    u3_noun gat = u3j_hook(von, "epla");

    return u3n_kick_on(u3i_molt(gat, 
                                u3x_sam_2, 
                                u3k(hyp), 
                                u3x_sam_3, 
                                u3k(rig),
                                0));
  }
Exemplo n.º 5
0
Arquivo: parse.c Projeto: Gunga/urbit
/* pose
*/
  u3_noun
  u3qe_pose(u3_noun vex,
            u3_noun sab)
  {
    u3_noun p_vex, q_vex;

    u3x_cell(vex, &p_vex, &q_vex);
    if ( c3y == u3du(q_vex) ) {
      return u3k(vex);
    } else {
      u3_noun roq = u3x_good(u3n_kick_on(u3k(sab)));
      u3_noun p_roq, q_roq;
      u3_noun ret;

      u3x_cell(roq, &p_roq, &q_roq);
      ret = u3nc(_last(p_vex, p_roq),
                 u3k(q_roq));

      u3z(roq);
      return ret;
    }
  }