}
  }

  u2_weak                                                         //  transfer
  j2_mb(Pt3, cat)(u2_wire wir_r,
                  u2_noun cor)                                    //  retain
  {
    u2_noun a, b, c;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a,
                                u2_cv_sam_6, &b,
                                u2_cv_sam_7, &c, 0)) ||
         (u2_no == u2_stud(a)) ||
         (u2_no == u2_stud(b)) ||
         (u2_no == u2_stud(c)) )
    {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt3, cat)(wir_r, a, b, c);
    }
  }

/* structures
*/
  u2_ho_jet
  j2_mbj(Pt3, cat)[] = {
    { ".2", c3__lite, j2_mb(Pt3, cat), Tier3, u2_none, u2_none },
    { }
  };

Beispiel #2
0
  j2_mby(Pt6, bull)(u2_wire wir_r, 
                    u2_noun bid,                                  //  retain
                    u2_noun der)                                  //  retain
  {
    if ( c3__void == der ) {
      return c3__void;
    }
    else return u2_bt
      (wir_r, c3__bull, u2_rx(wir_r, bid), u2_rx(wir_r, der));
  }
  u2_noun                                                         //  transfer
  j2_mb(Pt6, bull)(u2_wire wir_r, 
                   u2_noun cor)                                   //  retain
  {
    u2_noun bid, der;

    if ( u2_no == u2_mean(cor, u2_cv_sam_2, &bid, u2_cv_sam_3, &der, 0) ) {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt6, bull)(wir_r, bid, der);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt6, bull)[] = {
    { ".2", c3__hevy, j2_mb(Pt6, bull), Tier6_a, u2_none, u2_none },
    { }
  };
Beispiel #3
0
      mpz_t a_mp;

      u2_mp(a_mp, a);
      mpz_sub_ui(a_mp, a_mp, 1);

      return u2_rl_mp(wir_r, a_mp);
    }
  }
  u2_weak                                                         //  transfer
  j2_mb(Pt1, dec)(u2_wire wir_r, 
                  u2_noun cor)                                    //  retain
  {
    u2_noun a;

    if ( (u2_none == (a = u2_frag(u2_cw_sam, cor))) ||
         (u2_no == u2_stud(a)) ) 
    {
      return u2_none;
    } else {
      return j2_mbc(Pt1, dec)(wir_r, a);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt1, dec)[] = { 
    { ".3", c3__lite, j2_mb(Pt1, dec), u2_jet_live, u2_none, u2_none },
    { }
  };
Beispiel #4
0
    u2_noun x = _cue_in(wir_r, a, _0);
    u2_noun y = u2_rx(wir_r, u2_h(u2_t(x)));

    u2_na_take(T_r);
    T_r = 0;

    u2_rz(wir_r, x);
    return y;
  }
  u2_noun                                                         //  transfer
  j2_mb(Pt5, cue)(u2_wire wir_r,
                  u2_noun cor)                                    //  retain
  {
    u2_noun a;

    if ( (u2_none == (a = u2_frag(u2_cv_sam, cor))) ) {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt5, cue)(wir_r, a);
    }
  }

/* structures
*/
  u2_ho_jet
  j2_mbj(Pt5, cue)[] = {
    { ".2", c3__hevy, j2_mb(Pt5, cue), Tier3, u2_none, u2_none },
    { }
  };
Beispiel #5
0
    u2_noun a, b;

    if ( u2_no == u2_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mcc(Pt5, og, raw)(wir_r, a, b);
    }
  }



/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt5, shax)[] = { 
    { ".2", c3__lite, j2_mb(Pt5, shax), Tier5, u2_none, u2_none },
    { }
  };
  u2_ho_jet 
  j2_mbj(Pt5, shas)[] = { 
    { ".2", c3__lite, j2_mb(Pt5, shas), Tier5, u2_none, u2_none },
    { }
  };

  u2_ho_jet 
  j2_mcj(Pt5, og, raw)[] = {
    { ".2", c3__lite, j2_mc(Pt5, og, raw), Tier5, u2_none, u2_none },
    { }
  };

  u2_ho_driver 
Beispiel #6
0
      mpz_tdiv_r(a_mp, a_mp, b_mp);
      mpz_clear(b_mp);

      return u2_rl_mp(wir_r, a_mp);
    }
  }
  u2_weak                                                         //  transfer
  j2_mb(Pt1, mod)(u2_wire wir_r, 
                  u2_noun cor)                                    //  retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cw_sam_2, &a, u2_cw_sam_3, &b, 0)) ||
         (u2_no == u2_stud(a)) ||
         (u2_no == u2_stud(b)) )
    {
      return u2_none;
    } else {
      return j2_mbc(Pt1, mod)(wir_r, a, b);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt1, mod)[] = {
    { ".3", c3__lite, j2_mb(Pt1, mod), Tier1, u2_none, u2_none },
    { }
  };
Beispiel #7
0
    }
    else if ( c3__void == bur ) {
      return u2_rx(wir_r, hoz);
    }
    else if ( c3__void == hoz ) {
      return u2_rx(wir_r, bur);
    }
    else return u2_bt
      (wir_r, c3__fork, u2_rx(wir_r, hoz), u2_rx(wir_r, bur));
  }
  u2_noun                                                         //  transfer
  j2_mb(Pt6, fork)(u2_wire wir_r, 
                   u2_noun cor)                                   //  retain
  {
    u2_noun hoz, bur;

    if ( u2_no == u2_mean(cor, u2_cw_sam_2, &hoz, u2_cw_sam_3, &bur, 0) ) {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt6, fork)(wir_r, hoz, bur);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt6, fork)[] = {
    { ".3", c3__hevy, j2_mb(Pt6, fork), Tier6_a, u2_none, u2_none },
    { }
  };
Beispiel #8
0
        len_w--;
      }
      if ( u2_no == u2_dust(b) ) {
        return u2_bl_bail(wir_r, c3__exit);
      }
      return u2_rx(wir_r, u2_h(b));
    }
  }
  u2_noun                                                         // transfer
  j2_mb(Pt2, snag)(u2_wire wir_r, 
                   u2_noun cor)                                   // retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) || 
         (u2_no == u2_stud(a)) ) 
    {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt2, snag)(wir_r, a, b);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt2, snag)[] = {
    { ".2", c3__lite, j2_mb(Pt2, snag), Tier2, u2_none, u2_none },
    { }
  };
Beispiel #9
0
      return u2_bl_bail(wir_r, c3__exit);
    }
    else {
      u2_weak gim = u2_rx(wir_r, u2_h(a));
      u2_weak hur = j2_mbc(Pt2, reel)(wir_r, u2_t(a), b);
      
      return u2_nk_mong(wir_r, b, u2_rc(wir_r, gim, hur));
    }
  }
  u2_noun                                                         // transfer
  j2_mb(Pt2, reel)(u2_wire wir_r, 
                   u2_noun cor)                                   // retain
  {
    u2_noun a, b;

    if ( u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt2, reel)(wir_r, a, b);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt2, reel)[] = {
    { ".2", c3__lite, j2_mb(Pt2, reel), Tier2, u2_none, u2_none },
    { }
  };

    }
  }
  u2_noun                                                         // transfer
  j2_mb(Pt2, scag)(u2_wire wir_r,
                   u2_noun cor)                                   // retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ||
         (u2_no == u2_stud(a)) )
    {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt2, scag)(wir_r, a, b);
    }
  }

/* structures
*/
  /* u2_ho_jet */
  /* j2_mbj(Pt2, scag)[] = { */
  /*   { ".2", c3__lite, j2_mb(Pt2, scag), u2_jet_dead, u2_none, u2_none }, */
  /*   { } */
  /* }; */

  u2_ho_jet
  j2_mbj(Pt2, scag)[] = {
    { ".2", c3__lite, j2_mb(Pt2, scag), u2_jet_dead, u2_none, u2_none },
    { }
  };
Beispiel #11
0
    else if ( u2_no == u2_dust(a) ) {
      return u2_bl_bail(wir_r, c3__exit);
    }
    else {   
      u2_noun one = u2_nk_mong(wir_r, b, u2_rx(wir_r, u2_h(a)));
      u2_noun two = j2_mbc(Pt2, turn)(wir_r, u2_t(a), b);

      return u2_rc(wir_r, one, two);
    }
  }
  u2_noun                                                         // transfer
  j2_mb(Pt2, turn)(u2_wire wir_r, 
                   u2_noun cor)                                   // retain
  {
    u2_noun a, b;

    if ( u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt2, turn)(wir_r, a, b);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt2, turn)[] = {
    { ".2", c3__lite, j2_mb(Pt2, turn), Tier2, u2_none, u2_none },
    { }
  };
Beispiel #12
0
        len_w--;
      }
      if ( u2_no == u2_dust(b) ) {
        return u2_bl_bail(wir_r, c3__exit);
      }
      return u2_rx(wir_r, b);
    }
  }
  u2_noun                                                         // transfer
  j2_mb(Pt2, slag)(u2_wire wir_r, 
                   u2_noun cor)                                   // retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cw_sam_2, &a, u2_cw_sam_3, &b, 0)) || 
         (u2_no == u2_stud(a)) ) 
    {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt2, slag)(wir_r, a, b);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt2, slag)[] = {
    { ".3", c3__lite, j2_mb(Pt2, slag), Tier2, u2_none, u2_none },
    { }
  };
Beispiel #13
0
/* functions
*/
  u2_noun                                                         //  transfer
  j2_mby(Pt6, look)(u2_wire wir_r, 
                    u2_noun cog,                                  //  retain
                    u2_noun dab)                                  //  retain
  {
    return _look_in(wir_r, cog, dab, _1);
  }
  u2_noun                                                         //  transfer
  j2_mb(Pt6, look)(u2_wire wir_r, 
                   u2_noun cor)                                   //  retain
  {
    u2_noun cog, dab;

    if ( u2_no == u2_mean(cor, u2_cv_sam_2, &cog, u2_cv_sam_3, &dab, 0) ) {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt6, look)(wir_r, cog, dab);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt6, look)[] = {
    { ".2", c3__hevy, j2_mb(Pt6, look), Tier6_a, u2_none, u2_none },
    { }
  };
Beispiel #14
0
      u2_rz(wir_r, u);
      u2_rz(wir_r, v);
      u2_rz(wir_r, w);
      u2_rz(wir_r, x);
      u2_rz(wir_r, y);
      u2_rz(wir_r, z);

      return u2_bc(wir_r, p, q);
    }
  }
  u2_noun                                                         //  transfer
  j2_mb(Pt5, mat)(u2_wire wir_r, 
                  u2_noun cor)                                    //  retain
  {
    u2_noun a;

    if ( (u2_none == (a = u2_frag(u2_cw_sam, cor))) ) {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt5, mat)(wir_r, a);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt5, mat)[] = {
    { ".3", c3__hevy, j2_mb(Pt5, mat), Tier3, u2_none, u2_none },
    { }
  };
Beispiel #15
0
    u2_mp(b_mp, b);

    mpz_add(a_mp, a_mp, b_mp);
    mpz_clear(b_mp);

    return u2_rl_mp(wir_r, a_mp);
  }
  u2_weak                                                         //  transfer
  j2_mb(Pt1, add)(u2_wire wir_r, 
                  u2_noun cor)                                    //  retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ||
         (u2_no == u2_stud(a)) ||
         (u2_no == u2_stud(b)) )
    {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt1, add)(wir_r, a, b);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt1, add)[] = {
    { ".2", c3__lite, j2_mb(Pt1, add), u2_jet_live, u2_none, u2_none },
    { }
  };
      q = j2_mbc(Pt3, cut)(wir_r, _0, z, e, b);

      u2_rz(wir_r, w); u2_rz(wir_r, x); u2_rz(wir_r, y); u2_rz(wir_r, z);

      return u2_bc(wir_r, p, q);
    }
  }
  u2_noun                                                         //  transfer
  j2_mb(Pt5, rub)(u2_wire wir_r,
                  u2_noun cor)                                    //  retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ||
         (u2_no == u2_stud(a)) ||
         (u2_no == u2_stud(b)) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt5, rub)(wir_r, a, b);
    }
  }

/* structures
*/
  u2_ho_jet
  j2_mbj(Pt5, rub)[] = {
    { ".2", c3__hevy, j2_mb(Pt5, rub), Tier5, u2_none, u2_none },
    { }
  };
Beispiel #17
0
  }
  u2_noun                                                         //  produce
  j2_mb(Pt5, pfix)(u2_wire wir_r, 
                   u2_noun cor)                                   //  retain
  {
    u2_noun vex, sab;

    if ( (u2_no == u2_mean(cor, u2_cw_sam_2, &vex, u2_cw_sam_3, &sab, 0)) ) {
      return u2_none;
    } else {
      return j2_mbx(Pt5, pfix)(wir_r, vex, sab);
    }
  }
  u2_ho_jet 
  j2_mbj(Pt5, pfix)[] = {
    { ".3", c3__hevy, j2_mb(Pt5, pfix), Tier5_b, u2_none, u2_none },
    { }
  };

/* plug
*/
  u2_noun                                                         //  produce
  j2_mbx(Pt5, plug)(u2_wire wir_r,
                    u2_noun vex,                                  //  retain
                    u2_noun sab)                                  //  retain
  {
    u2_noun p_vex, q_vex;

    u2_bi_cell(wir_r, vex, &p_vex, &q_vex);
    if ( u2_no == u2_dust(q_vex) ) {
      return u2_rx(wir_r, vex);
        u2_rl_lose(wir_r, b);

        return u2_bl_bail(wir_r, c3__exit);
      }
      else {
        b = u2_rc(wir_r, u2_rx(wir_r, u2_h(a)), b);
        a = u2_t(a);
      }
    }
  }
  u2_weak                                                         //  transfer
  j2_mb(Pt2, flop)(u2_wire wir_r,
                   u2_noun cor)                                   //  retain
  {
    u2_noun a;

    if ( u2_none == (a = u2_frag(u2_cv_sam, cor)) ) {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt2, flop)(wir_r, a);
    }
  }

/* structures
*/
  u2_ho_jet
  j2_mbj(Pt2, flop)[] = {
    { ".2", c3__lite, j2_mb(Pt2, flop), Tier2, u2_none, u2_none },
    { }
  };
        u2_rl_lose(wir_r, moz);
        u2_rl_lose(wir_r, zip);
        u2_rl_lose(wir_r, dof);

        return fol;
      }
    }
  }
  u2_noun                                                         //  transfer
  j2_mb(Pt6, hike)(u2_wire wir_r,
                   u2_noun cor)                                   //  retain
  {
    u2_noun axe, pac;

    if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &axe, u2_cv_sam_3, &pac, 0)) ||
         (u2_no == u2_stud(axe)) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt6, hike)(wir_r, axe, pac);
    }
  }

/* structures
*/
  u2_ho_jet
  j2_mbj(Pt6, hike)[] = {
    { ".2", c3__hevy, j2_mb(Pt6, hike), Tier6_a, u2_none, u2_none },
    { }
  };
Beispiel #20
0
      case u2_yes: typ = u2_rx(wir_r, u2_t(q_pok));
                   break;
      case u2_no: typ = _flay_roll(wir_r, u2_t(u2_t(q_pok)));
                  break;
    }
    return u2_bc(wir_r, u2_rx(wir_r, p_pok), typ);
  }

  u2_noun                                                         //  transfer
  j2_mb(Pt6, flay)(u2_wire wir_r, 
                   u2_noun cor)                                   //  retain
  {
    u2_noun pok;

    if ( (u2_no == u2_mean(cor, u2_cv_sam, &pok, 0)) ||
         (u2_no == u2_dust(pok)) ) { 
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mby(Pt6, flay)(wir_r, pok);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt6, flay)[] = {
    { ".2", c3__hevy, j2_mb(Pt6, flay), Tier6_a, u2_none, u2_none },
    { }
  };
Beispiel #21
0
      if ( !u2_fly_is_cat(met_w) ) {
        return u2_rl_words(wir_r, 1, &met_w);
      }
      else return u2_met(a, b);
    }
  }
  u2_weak                                                         //  transfer
  j2_mb(Pt3, met)(u2_wire wir_r, 
                  u2_noun cor)                                    //  retain
  {
    u2_noun a, b;

    if ( (u2_no == u2_mean(cor, u2_cw_sam_2, &a, u2_cw_sam_3, &b, 0)) ||
         (u2_no == u2_stud(a)) ||
         (u2_no == u2_stud(b)) )
    {
      return u2_bl_bail(wir_r, c3__exit);
    } else {
      return j2_mbc(Pt3, met)(wir_r, a, b);
    }
  }

/* structures
*/
  u2_ho_jet 
  j2_mbj(Pt3, met)[] = {
    { ".3", c3__lite, j2_mb(Pt3, met), Tier3, u2_none, u2_none },
    { }
  };
Beispiel #22
0
    u2_bl_bail(wir_r, c3__exit);
    return u2_nul;
  }

  u2_weak                                                         //  produce
  j2_mb(Pt5, repg)(u2_wire wir_r,
                   u2_noun cor)                                   //  retain
  {
    u2_noun lub;
    u2_noun rad;
    u2_noun rep;

    if ( (u2_none == (lub = u2_frag(u2_cv_sam_2, cor))) ||
         (u2_none == (rad = u2_frag(u2_cv_sam_6, cor))) ||
         (u2_none == (rep = u2_frag(u2_cv_sam_7, cor))) )
    {
      return u2_bl_bail(wir_r, c3__fail);
    } else {
      return j2_mbc(Pt5, repg)(wir_r, lub, rad, rep);
    }
  }


/* structures
*/
  u2_ho_jet
  j2_mbj(Pt5, repg)[] = {
    { ".2", c3__lite, j2_mb(Pt5, repg), Tier5, u2_none, u2_none },
    { }
  };