예제 #1
0
파일: shax.c 프로젝트: urbit/urbit
  u3_noun
  u3qeo_raw(u3_atom a,
            u3_atom b)
  {
    u3_noun x = u3qc_mix(b, a);
    u3_noun c = u3qe_shas(c3_s4('o','g','-','a'), x);
    u3_noun l = _og_list(a, b, c);
    u3_noun r = u3qc_can(0, l);

    u3z(l);
    u3z(c);
    u3z(x);

    return r;
  }
예제 #2
0
파일: shax.c 프로젝트: aaronlifton/urbit
  u2_noun                                                         //  produce
  j2_mcc(Pt5, og, raw)(u2_wire wir_r, 
                       u2_noun a,                                 //  retain
                       u2_noun b)                                 //  retain
  {
    u2_noun x = j2_mbc(Pt3, mix)(wir_r, b, a);
    u2_noun c = j2_mbc(Pt5, shas)(wir_r, c3_s4('o','g','-','a'), x);
    u2_noun l = _og_list(wir_r, a, b, c);
    u2_noun r = j2_mbc(Pt3, can)(wir_r, 0, l);

    u2z(l);
    u2z(c);
    u2z(x);

    return r;
  }