1720{
1724 d->level++;
1725
1727 {
1729 void *
dd=data->Data();
1730 attr *
aa=data->Attribute();
1732 {
1734 int n=0;
1736 fprintf(d->f_write,
"21 %d %d ",data->flag,n);
1737 }
1738 else if (data->flag!=0)
1739 {
1740 fprintf(d->f_write,
"21 %d 0 ",data->flag);
1741 }
1743
1744
1746 {
1747 case 0:
1749 break;
1752 break;
1755 break;
1758 break;
1761 {
1762 fputs(
"15 ",d->f_write);
1764 if (d->level<=1)
fputc(
'\n',d->f_write);
1765 }
1766 fputs(
"3 ",d->f_write);
1768 break;
1771 break;
1773 {
1776 {
1777 fputs(
"15 ",d->f_write);
1779 if (d->level<=1)
fputc(
'\n',d->f_write);
1780 }
1781 fputs(
"6 ",d->f_write);
1783 break;
1784 }
1788 {
1789 fputs(
"15 ",d->f_write);
1791 if (d->level<=1)
fputc(
'\n',d->f_write);
1792 }
1794 else fputs(
"9 ",d->f_write);
1796 break;
1802 {
1803 fputs(
"15 ",d->f_write);
1805 if (d->level<=1)
fputc(
'\n',d->f_write);
1806 }
1809 else
1810 {
1813 fprintf(d->f_write,
"10 %d ",(
int)
M->rank);
1814 else
1815 fprintf(d->f_write,
"22 %d ",(
int)
M->rank);
1816 }
1818 break;
1820 fputs(
"11 ",d->f_write);
1822 break;
1824 fputs(
"12 ",d->f_write);
1826 break;
1828 fputs(
"13 ",d->f_write);
1830 break;
1832 fputs(
"14 ",d->f_write);
1834 break;
1836 fputs(
"17 ",d->f_write);
1838 break;
1840 fputs(
"18 ",d->f_write);
1842 break;
1844 fputs(
"19 ",d->f_write);
1846 break;
1848 fputs(
"24 ",d->f_write);
1850 break;
1851 default:
1853 {
1855 fputs(
"20 ",d->f_write);
1856 b->blackbox_serialize(
b,
dd,
l);
1857 }
1858 else
1859 {
1860 Werror(
"not implemented (t:%d, rtyp:%d)",
tt, data->rtyp);
1861 d->level=0;
1863 }
1864 break;
1865 }
1866 if (d->level<=1) {
fputc(
'\n',d->f_write);
fflush(d->f_write); }
1867 data=data->next;
1868 }
1869 d->level--;
1871}
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)