void TabAbstractModule::becomeCurrent() const
{
emit noyau()->collerPermis(false);
emit noyau()->copierPermis(false);
emit noyau()->couperPermis(false);
emit noyau()->savePermis(false);
}
void TabListeEleve::becomeCurrent() const
{
emit noyau()->collerPermis(true);
emit noyau()->copierPermis(true);
emit noyau()->couperPermis(true);
emit noyau()->effacerPermis(true);
}
Ref kernel_call(ref_list args){
if (args->length != 1){
set_err(ETYPE, "too many arguments");
return NULL;
}
if (arg_isMatrix(args->list[0]) == false) return NULL;
Matrix M = CAST_REF2MATRIX(args->list[0]);
if (M->nrows != M->ncols) {
set_err(ETYPE, "not a square Matrix");
return NULL;
}
Matrix K;
if ( noyau(M, &K) == 0 ) return NULL;
/* Print kernel */
unsigned int i,j;
printf("\n");
for(i = 0 ; i < K->nrows; i++)
{
printf("\t");
for (j = 0; j < K->ncols; j++){
printf("\t[%- 6.4g]",getElt(K,i,j));
}
printf("\n");
}
printf("\n\n");
return NO_REF;
}
