bridge/class-master/depend/pari/src/basemath/arith2.c
/* n attached to a factorization of a non-0 integer */
n attached to a factorization of a non-0 integer
n attached to a factorization of a non - 0 integer
GEN
check_arith_non0(GEN n, const char *f) {
  switch(typ(n))
  {
    case t_INT:
      if (!signe(n)) pari_err_DOMAIN(f, "argument", "=", gen_0, gen_0);
      return NULL;
    case t_VEC:
      if (lg(n) != 3 || typ(gel(n,1)) != t_INT || !signe(gel(n,1))) break;
      n = gel(n,2); 
    case t_MAT:
      if (!is_Z_factornon0(n)) break;
      return n;
  }
  pari_err_TYPE(f,n);
  return NULL;
}
GEN check_arith_non0 ( GEN n , const char * f ) { switch ( typ ( n ) ) { case t_INT : if ( ! signe ( n ) ) pari_err_DOMAIN ( f , " " , " " , gen_0 , gen_0 ) ; return NULL ; case t_VEC : if ( lg ( n ) != 3 || typ ( gel ( n , 1 ) ) != t_INT || ! signe ( gel ( n , 1 ) ) ) break ; n = gel ( n , 2 ) ; case t_MAT : if ( ! is_Z_factornon0 ( n ) ) break ; return n ; } pari_err_TYPE ( f , n ) ; return NULL ; }
n attached to a factorization of a non-0 integer
n attached to a factorization of a non - 0 integer
/* fall through */