Exemplo n.º 1
0
/* _zuse_save_rock(): save engine as noun.
*/
static void
_zuse_save_rock(struct zuse_state* fod_f,
                const c3_c*        src_c)
{
  u2_wire wir_r = fod_f->wir_r;
  u2_noun fat = u2_bn_cell(wir_r, fod_f->pyt, fod_f->kol);

  u2_ux_write_deep(wir_r, fat, src_c, "noun");
}
Exemplo n.º 2
0
Arquivo: bail.c Projeto: MacTop/urbit
/* u2_bn_quil():
**
**   Produce the quintuple [a b c d].
*/
u2_noun
u2_bn_quil(u2_ray  wir_r,
           u2_noun a,
           u2_noun b,
           u2_noun c,
           u2_noun d,
           u2_noun e)
{
  return u2_bn_cell(wir_r, a, u2_bn_qual(wir_r, b, c, d, e));
}
Exemplo n.º 3
0
Arquivo: unix.c Projeto: Gruelty/urbit
/* _unix_scan_cell(): scan cell or tuple.
*/
static u2_noun
_unix_scan_cell(u2_wire wir_r,
                FILE*   fil)
{
  u2_noun hed = _unix_scan(wir_r, fil);
  c3_i    c   = fgetc(fil);

  if ( c == ' ' ) {
    u2_noun tal = _unix_scan_cell(wir_r, fil);

    return u2_bn_cell(wir_r, hed, tal);
  }
  else { 
    c3_assert(c == ']');
    return hed;
  }
}
/* u2_cn_cell(): produce the cell `[a b]`.
*/
u2_noun
u2_cn_cell(u2_noun a,
           u2_noun b)
{
  return u2_bn_cell(u2_Wire, a, b);
}