Exemplo n.º 1
0
/* uz_c_cell():
**
**   True (1) iff [a] is a cell [*b *c].
*/
uint8_t
uz_c_cell(uz_machine mac,
          uz_noun    a,
          uz_noun    *b,
          uz_noun    *c)
{
  return !u3_lr_cell(mac->zen, a, b, c);
}
Exemplo n.º 2
0
Arquivo: gt.c Projeto: mbrubeck/urbit
/* u3_zx_gt():
*/
u3_fox
u3_zx_gt(u3_z   z,
         u3_fox cob)
{
  u3_fox a, b;

  if ( (u3_no == u3_lr_cell(z, cob, &a, &b)) ||
       (u3_no == u3_lr_pat(z, a)) ||
       (u3_no == u3_lr_pat(z, b)) )
  {
    return u3_zc_tank(z, u3_cm_punt);
  }
  else {
    return u3_zx_gt_c(z, a, b);
  }
}
Exemplo n.º 3
0
/* u3_zx_mod():
*/
u3_fox
u3_zx_mod(u3_z   z,
          u3_fox cor)
{
  u3_fox sam = u3_zh(z, u3_zh(z, cor));
  u3_fox a, b;

  if ( (u3_no == u3_lr_cell(z, sam, &a, &b)) ||
       (u3_no == u3_lr_stud(z, a)) ||
       (u3_no == u3_lr_stud(z, b)) )
  {
    return u3_zc_tank(z, c3__punt);
  }
  else {
    return u3_zx_mod_c(z, a, b);
  }
}