1707{
1711 d->level++;
1712
1714 {
1716 void *
dd=data->Data();
1717 attr *
aa=data->Attribute();
1719 {
1721 int n=0;
1723 fprintf(d->f_write,
"21 %d %d ",data->flag,n);
1724 }
1725 else if (data->flag!=0)
1726 {
1727 fprintf(d->f_write,
"21 %d 0 ",data->flag);
1728 }
1730
1731
1733 {
1734 case 0:
1736 break;
1739 break;
1742 break;
1745 break;
1748 {
1749 fputs(
"15 ",d->f_write);
1751 if (d->level<=1)
fputc(
'\n',d->f_write);
1752 }
1753 fputs(
"3 ",d->f_write);
1755 break;
1758 break;
1760 {
1763 {
1764 fputs(
"15 ",d->f_write);
1766 if (d->level<=1)
fputc(
'\n',d->f_write);
1767 }
1768 fputs(
"6 ",d->f_write);
1770 break;
1771 }
1775 {
1776 fputs(
"15 ",d->f_write);
1778 if (d->level<=1)
fputc(
'\n',d->f_write);
1779 }
1781 else fputs(
"9 ",d->f_write);
1783 break;
1789 {
1790 fputs(
"15 ",d->f_write);
1792 if (d->level<=1)
fputc(
'\n',d->f_write);
1793 }
1797 else
1798 {
1800 fprintf(d->f_write,
"10 %d ",(
int)
M->rank);
1801 }
1803 break;
1805 fputs(
"11 ",d->f_write);
1807 break;
1809 fputs(
"12 ",d->f_write);
1811 break;
1813 fputs(
"13 ",d->f_write);
1815 break;
1817 fputs(
"14 ",d->f_write);
1819 break;
1821 fputs(
"17 ",d->f_write);
1823 break;
1825 fputs(
"18 ",d->f_write);
1827 break;
1829 fputs(
"19 ",d->f_write);
1831 break;
1833 fputs(
"24 ",d->f_write);
1835 break;
1836 default:
1838 {
1840 fputs(
"20 ",d->f_write);
1841 b->blackbox_serialize(
b,
dd,
l);
1842 }
1843 else
1844 {
1845 Werror(
"not implemented (t:%d, rtyp:%d)",
tt, data->rtyp);
1846 d->level=0;
1848 }
1849 break;
1850 }
1851 if (d->level<=1) {
fputc(
'\n',d->f_write);
fflush(d->f_write); }
1852 data=data->next;
1853 }
1854 d->level--;
1856}
blackbox * getBlackboxStuff(const int t)
return the structure to the type given by t
poly sBucketPeek(sBucket_pt b)
ring sBucketGetRing(const sBucket_pt bucket)
Returns bucket ring.
BOOLEAN slOpen(si_link l, short flag, leftv h)
static void ssiWriteString(const ssiInfo *d, const char *s)
static void ssiWriteIntvec(const ssiInfo *d, intvec *v)
static void ssiWriteList(si_link l, lists dd)
static void ssiWriteIntmat(const ssiInfo *d, intvec *v)
static void ssiWriteInt(const ssiInfo *d, const int i)
static void ssiWriteRing(ssiInfo *d, const ring r)
static void ssiWriteProc(const ssiInfo *d, procinfov p)
static void ssiWritePoly(const ssiInfo *d, int typ, poly p)
static void ssiWriteNumber(const ssiInfo *d, const number n)
static void ssiWriteCommand(si_link l, command D)
static void ssiWriteIdeal(const ssiInfo *d, int typ, const ideal I)
static void ssiWriteBigintmat(const ssiInfo *d, bigintmat *v)
static void ssiWriteBigintvec(const ssiInfo *d, bigintmat *v)
static void ssiWriteBigInt(const ssiInfo *d, const number n)