| 459 | // ---------------------------------------------------------------------------- |
| 460 | |
| 461 | BOOLEAN ringIsLocal( const ring r ) |
| 462 | { |
| 463 | poly m = p_One(r); |
| 464 | poly one = p_One(r); |
| 465 | BOOLEAN res=TRUE; |
| 466 | |
| 467 | for( int i=r->N; i>0; i-- ) |
| 468 | { |
| 469 | p_SetExp( m,i,1,r ); |
| 470 | p_Setm( m,r ); |
| 471 | |
| 472 | if( p_Cmp( m,one,r )>0 ) |
| 473 | { |
| 474 | res=FALSE; |
| 475 | break; |
| 476 | } |
| 477 | p_SetExp( m,i,0,r ); |
| 478 | } |
| 479 | |
| 480 | p_Delete( &m,r ); |
| 481 | p_Delete( &one,r ); |
| 482 | |
| 483 | return res; |
| 484 | } |
| 485 | |
| 486 | // ---------------------------------------------------------------------------- |
| 487 | // print error message corresponding to spectrumState state: |