Function jjPRINT

Singular/ipprint.cc:252–312

}

BOOLEAN jjPRINT(leftv res, leftv u)
{
  SPrintStart();
  BOOLEAN bo=FALSE;
  void *d=u->Data();
  switch(u->Typ())
  {
      case INTVEC_CMD:
        bo=ipPrint_INTVEC((intvec*)d);
        break;

      case INTMAT_CMD:
        bo=ipPrint_INTMAT((intvec*)d);
        break;

      case MATRIX_CMD:
        bo=ipPrint_MA(u);
        break;

      case IDEAL_CMD:
      {
        char* s = u->String(NULL, FALSE, 2);
        PrintS(s);
        PrintLn();
        omFree(s);
        break;
      }

      case MODUL_CMD:
      {
        matrix m = id_Module2Matrix(id_Copy((ideal)d,currRing),currRing);
        ipPrint_MA0(m, u->Name());
        id_Delete((ideal *) &m,currRing);
        break;
      }

      case VECTOR_CMD:
        bo=ipPrint_V((poly)d);
        break;

      case RING_CMD:
        bo=ipPrint_RING((ring)d);
        break;

      case CRING_CMD:
        bo=ipPrint_CRING((coeffs)d);
        break;

      default:
        u->Print();
        break;
  }
  char *s=SPrintEnd();
  if (u->next==NULL)
  {
    int l=strlen(s);
    if (s[l-1]=='\n') s[l-1]='\0';
  }