1719{
1723 d->level++;
1724
1726 {
1728 void *
dd=data->Data();
1729 attr *
aa=data->Attribute();
1731 {
1733 int n=0;
1735 fprintf(d->f_write,
"21 %d %d ",data->flag,n);
1736 }
1737 else if (data->flag!=0)
1738 {
1739 fprintf(d->f_write,
"21 %d 0 ",data->flag);
1740 }
1742
1743
1745 {
1746 case 0:
1748 break;
1751 break;
1754 break;
1757 break;
1760 {
1761 fputs(
"15 ",d->f_write);
1763 if (d->level<=1)
fputc(
'\n',d->f_write);
1764 }
1765 fputs(
"3 ",d->f_write);
1767 break;
1770 break;
1772 {
1775 {
1776 fputs(
"15 ",d->f_write);
1778 if (d->level<=1)
fputc(
'\n',d->f_write);
1779 }
1780 fputs(
"6 ",d->f_write);
1782 break;
1783 }
1787 {
1788 fputs(
"15 ",d->f_write);
1790 if (d->level<=1)
fputc(
'\n',d->f_write);
1791 }
1793 else fputs(
"9 ",d->f_write);
1795 break;
1801 {
1802 fputs(
"15 ",d->f_write);
1804 if (d->level<=1)
fputc(
'\n',d->f_write);
1805 }
1808 else
1809 {
1812 fprintf(d->f_write,
"10 %d ",(
int)
M->rank);
1813 else
1814 fprintf(d->f_write,
"22 %d ",(
int)
M->rank);
1815 }
1817 break;
1819 fputs(
"11 ",d->f_write);
1821 break;
1823 fputs(
"12 ",d->f_write);
1825 break;
1827 fputs(
"13 ",d->f_write);
1829 break;
1831 fputs(
"14 ",d->f_write);
1833 break;
1835 fputs(
"17 ",d->f_write);
1837 break;
1839 fputs(
"18 ",d->f_write);
1841 break;
1843 fputs(
"19 ",d->f_write);
1845 break;
1847 fputs(
"24 ",d->f_write);
1849 break;
1850 default:
1852 {
1854 fputs(
"20 ",d->f_write);
1855 b->blackbox_serialize(
b,
dd,
l);
1856 }
1857 else
1858 {
1859 Werror(
"not implemented (t:%d, rtyp:%d)",
tt, data->rtyp);
1860 d->level=0;
1862 }
1863 break;
1864 }
1865 if (d->level<=1) {
fputc(
'\n',d->f_write);
fflush(d->f_write); }
1866 data=data->next;
1867 }
1868 d->level--;
1870}
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)