Changeset 7604db in git


Ignore:
Timestamp:
Apr 19, 1999, 1:03:57 PM (24 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
228c7e51151a4fc3bdf6908acbb09367f243d275
Parents:
a30caa3e79912e5d42b9d62c6d2e1aa1239e5486
Message:
* print command


git-svn-id: file:///usr/local/Singular/svn/trunk@2992 2c84dea3-7e68-4137-9b89-c4e89433aadc
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • Singular/febase.cc

    ra30caa3 r7604db  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: febase.cc,v 1.71 1999-04-17 14:58:45 obachman Exp $ */
     4/* $Id: febase.cc,v 1.72 1999-04-19 11:02:34 obachman Exp $ */
    55/*
    66* ABSTRACT: i/o system
    … …  
    10111011static void SPrintS(char* s)
    10121012{
     1013  mmTestL(sprint);
    10131014  if (s == NULL) return;
    10141015  int ls = strlen(s);
    … …  
    10231024  FreeL(sprint);
    10241025  sprint = ns;
     1026  mmTestL(sprint);
    10251027}
    10261028
    … …  
    10291031  char* ns = sprint;
    10301032  sprint = NULL;
     1033  mmTestL(ns);
    10311034  return ns;
    10321035}
    … …  
    10831086    va_list ap;
    10841087    va_start(ap, fmt);
     1088    mmTestL(sprint);
    10851089    if (fmt != NULL && ls > 0)
    10861090    {

  • Singular/iparith.cc

    ra30caa3 r7604db  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.143 1999-04-17 14:58:47 obachman Exp $ */
     4/* $Id: iparith.cc,v 1.144 1999-04-19 11:02:37 obachman Exp $ */
    55
    66/*
    … …  
    14851485  idhdl w;
    14861486
    1487   if ((iiOp!=IMAP_CMD)
    1488   && ((rInternalChar(currRing) != rInternalChar(r))
    1489     || ((currRing->N != r->N)&& (iiOp==FETCH_CMD)))
    1490   )
     1487  if ((iiOp!=IMAP_CMD) &&
     1488      ((rInternalChar(currRing) != rInternalChar(r)) ||
     1489       (currRing->N != r->N && iiOp==FETCH_CMD)))
    14911490    goto err_fetch;
    14921491  if ((w=r->idroot->get(v->Name(),myynest))!=NULL)

  • Singular/ipprint.cc

    ra30caa3 r7604db  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipprint.cc,v 1.10 1999-04-17 14:58:49 obachman Exp $ */
     4/* $Id: ipprint.cc,v 1.11 1999-04-19 11:02:39 obachman Exp $ */
    55/*
    66* ABSTRACT: interpreter: printing
    … …  
    229229      case IDEAL_CMD:
    230230      {
    231         char* s = u->String();
     231        char* s = u->String(NULL, FALSE, 2);
    232232        PrintS(s);
    233233        PrintLn();
    … …  
    334334/* ======================== end betti ================================= */
    335335
    336   if (strcmp((char *)v->Data(),"%s") == 0)
    337   {
    338     res->data = (char*) u->String();
    339   }
    340   else if (strcmp((char *)v->Data(),"%;") == 0)
     336  char* ns = mstrdup((char*) v->Data());
     337  int dim = 1;
     338  if (strlen(ns) == 3 && ns[1] == '2')
     339  {
     340    dim = 2;
     341    ns[1] = ns[2];
     342    ns[2] = '\0';
     343  }
     344  if (strcmp(ns,"%l") == 0)
     345  {
     346    res->data = (char*) u->String(NULL, TRUE, dim);
     347  }
     348  else if (strcmp(ns,"%t") == 0)
     349  {
     350    SPrintStart();
     351    type_cmd((idhdl) u);
     352    res->data = SPrintEnd();
     353  }
     354  else if (strcmp(ns,"%;") == 0)
    341355  {
    342356    SPrintStart();
    … …  
    344358    res->data = SPrintEnd();
    345359  }
    346   else if  (strcmp((char *)v->Data(),"%p") == 0)
     360  else if  (strcmp(ns,"%p") == 0)
    347361  {
    348362    SPrintStart();
    … …  
    350364    res->data = SPrintEnd();
    351365  }
    352   else if (strcmp((char *)v->Data(),"%b") == 0 && (u->Typ()==INTMAT_CMD))
     366  else if (strcmp(ns,"%b") == 0 && (u->Typ()==INTMAT_CMD))
    353367  {
    354368    SPrintStart();
    … …  
    358372  else
    359373  {
    360     res->data = u->String();
     374    res->data = u->String(NULL, FALSE, dim);
    361375  }
    362376   
     377  FreeL(ns);
    363378  res->rtyp = STRING_CMD;
    364379  return FALSE;

  • Singular/lists.cc

    ra30caa3 r7604db  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: lists.cc,v 1.14 1999-04-17 14:58:51 obachman Exp $ */
     4/* $Id: lists.cc,v 1.15 1999-04-19 11:02:40 obachman Exp $ */
    55/*
    66* ABSTRACT: handling of the list type
    … …  
    356356char* lString(lists l, BOOLEAN typed, int dim)
    357357{
    358   if (l->nr == -1) return mstrdup("");
     358  if (l->nr == -1)
     359  {
     360    if (typed) return mstrdup("list()");
     361    return mstrdup("");
     362  }
     363 
    359364  char** slist = (char**) Alloc((l->nr+1) * sizeof(char*));
    360365  int i, j, k;
    … …  
    362367  for (i=0, j = 0, k = 0; i<=l->nr; i++)
    363368  {
    364     slist[i] = l->m[i].String();
     369    slist[i] = l->m[i].String(NULL, typed, dim);
    365370    assume(slist[i] != NULL);
     371    mmTestL(slist[i]);
    366372    if (*(slist[i]) != '\0')
    367373    {
    … …  
    370376    }
    371377  }
    372   s = (char*) AllocL(j+k+1);
    373   *s = '\0';
     378  s = (char*) AllocL(j+k+2+(typed ? 10 : 0) + (dim == 2 ? k : 0));
     379
     380  if (typed)
     381    sprintf(s, "list(");
     382  else
     383    *s = '\0';
     384
    374385  for (i=0; i<=l->nr; i++)
    375386  {
    … …  
    378389      strcat(s, slist[i]);
    379390      strcat(s, ",");
    380     }
     391      if (dim == 2) strcat(s, "\n");
     392    }
     393    mmTestL(s);
    381394    FreeL(slist[i]);
    382395  }
    383   if (k > 0) s[strlen(s) - 1] = '\0';
     396  if (k > 0) s[strlen(s) - (dim == 2 ? 2 : 1)] = '\0';
     397  if (typed) strcat(s, ")");
     398  mmTestL(s);
    384399  Free(slist, (l->nr+1) * sizeof(char*));
    385400  return s;

  • Singular/subexpr.cc

    ra30caa3 r7604db  
    657657  if (!errorreported)
    658658  {
    659     /* create a string, which may be freed by FreeL
    660      * leave the switch with return
    661      * or with break, which copies the string s*/
    662659    char *s;
    663660    const char *n;
    … …  
    667664    {
    668665        case INT_CMD:
    669           s=(char *)AllocL(MAX_INT_LEN+2);
    670           sprintf(s,"%d",(int)d);
    671           break;
     666          if (typed)
     667          {
     668            s=(char *)AllocL(MAX_INT_LEN+7);
     669            sprintf(s,"int(%d)",(int)d);
     670          }
     671          else
     672          {
     673            s=(char *)AllocL(MAX_INT_LEN+2);
     674            sprintf(s,"%d",(int)d);
     675          }
     676          return s;
     677
    672678        case STRING_CMD:
    673           if (d != NULL) s = mstrdup((char*)d);
    674           else s = mstrdup("");
    675           break;
     679          if (d == NULL)
     680          {
     681            if (typed) return mstrdup("\"\"");
     682            return mstrdup("");
     683          }
     684          if (typed)
     685          {
     686            s = (char*) AllocL(strlen((char*) d) + 3);
     687            sprintf(s,"\"%s\"", (char*) d);
     688            return s;
     689          }
     690          else
     691          {
     692            return mstrdup((char*)d);
     693          }
     694   
    676695        case POLY_CMD:
    677696        case VECTOR_CMD:
    678           s = mstrdup(pString((poly)d));
    679           break;
     697          if (typed)
     698          {
     699            char* ps = pString((poly) d);
     700            s = (char*) AllocL(strlen(ps) + 10);
     701            sprintf(s,"%s(%s)", (Typ() == POLY_CMD ? "poly" : "vector"), ps);
     702            return s;
     703          }
     704          else
     705            return mstrdup(pString((poly)d));
     706
    680707        case NUMBER_CMD:
    681           StringSetS("");
     708          StringSetS((typed ? "number(" : ""));
    682709          if ((rtyp==IDHDL)&&(IDTYP((idhdl)data)==NUMBER_CMD))
    683710          {
    … …  
    700727            nDelete(&n);
    701728          }
    702           s = StringAppendS("");
    703           s = mstrdup(s);
    704           break;
     729          s = StringAppendS((typed ? ")" : ""));
     730          return mstrdup(s);
     731         
    705732        case MATRIX_CMD:
    706           s= mstrdup(iiStringMatrix((matrix)d,dim));
    707           break;
     733          s= iiStringMatrix((matrix)d,dim);
     734          if (typed)
     735          {
     736            char* ns = (char*) AllocL(strlen(s) + 40);
     737            sprintf(ns, "matrix(ideal(%s),%d,%d)", s,
     738                    ((ideal) d)->nrows, ((ideal) d)->ncols);
     739            mmTestL(ns);
     740            return ns;
     741          }
     742          else
     743          {
     744            return mstrdup(s);
     745          }
     746
    708747        case MODUL_CMD:
    709748        case IDEAL_CMD:
    710749        case MAP_CMD:
    711           s= mstrdup(iiStringMatrix((matrix)d,dim));
    712           break;
     750          s= iiStringMatrix((matrix)d,dim);
     751          if (typed)
     752          {
     753            char* ns = (char*) AllocL(strlen(s) + 10);
     754            sprintf(ns, "%s(%s)", (Typ()==MODUL_CMD ? "module" : "ideal"), s);
     755            mmTestL(ns);
     756            return ns;
     757          }
     758          return mstrdup(s);
     759
    713760        case INTVEC_CMD:
    714761        case INTMAT_CMD:
    … …  
    716763          intvec *v=(intvec *)d;
    717764          s = v->String(dim);
    718           break;
     765          if (typed)
     766          {
     767            char* ns;
     768            if (Typ() == INTMAT_CMD)
     769            {
     770              ns = (char*) AllocL(strlen(s) + 40);
     771              sprintf(ns, "intmat(intvec(%s),%d,%d)", s, v->rows(), v->cols());
     772            }
     773            else
     774            {
     775              ns = (char*) AllocL(strlen(s) + 10);
     776              sprintf(ns, "intvec(%s)", s);
     777            }
     778            mmTestL(ns);
     779            FreeL(s);
     780            return ns;
     781          }
     782          else
     783            return s;
    719784        }
     785
    720786        case RING_CMD:
    721         {
    722           s = rString((ring)d);
    723           break;
    724         }
    725787        case QRING_CMD:
    726         {
    727           char* r = rString((ring)d);
    728           char* i = iiStringMatrix((matrix) ((ring) d)->qideal, 1);
    729           s = (char*) AllocL(strlen(r) + strlen(i) + 4);
    730           sprintf(s, "%s,(%s)", r, i);
    731           FreeL(r);
    732           break;
    733         }
     788          s  = rString((ring)d);
     789         
     790          if (typed)
     791          {
     792            char* ns;
     793            if (Typ() == QRING_CMD)
     794            {
     795              char* id = iiStringMatrix((matrix) ((ring) d)->qideal, dim);
     796              ns = (char*) AllocL(strlen(s) + strlen(id) + 20);
     797              sprintf(ns, "\"%s\";%sideal(%s)", s,(dim == 2 ? "\n" : " "), id);
     798            }
     799            else
     800            {
     801              ns = (char*) AllocL(strlen(s) + 4);
     802              sprintf(ns, "\"%s\"", s);
     803            }
     804            FreeL(s);
     805            mmTestL(ns);
     806            return ns;
     807          }
     808          return s;
     809         
    734810        case RESOLUTION_CMD:
    735811        {
    … …  
    737813          s = lString(l, typed, dim);
    738814          l->Clean();
    739           break;
     815          return s;
    740816        }
     817
    741818        case PROC_CMD:
    742819        {
    743820          procinfo* pi = (procinfo*) d;
    744821          if((pi->language == LANG_SINGULAR) && (pi->data.s.body!=NULL))
    745             s = mstrdup(pi->data.s.body);
     822            s = (pi->data.s.body);
    746823          else
    747             s = mstrdup("");
    748           break;
     824            s = "";
     825          if (typed)
     826          {
     827            char* ns = (char*) AllocL(strlen(s) + 4);
     828            sprintf(ns, "\"%s\"", s);
     829            mmTestL(ns);
     830            return ns;
     831          }
     832          return mstrdup(s);
    749833        }
    750834         
    751835        case LINK_CMD:
    752         {
    753836          s = slString((si_link) d);
    754           break;
    755         }
     837          if (typed)
     838          {
     839            char* ns = (char*) AllocL(strlen(s) + 10);
     840            sprintf(ns, "link(\"%s\")", s);
     841            FreeL(s);
     842            mmTestL(ns);
     843            return ns;
     844          }
     845          return s;
     846         
    756847       
    757848        case LIST_CMD:
    758         {
    759           s = lString((lists) d, typed, dim);
    760         }
    761         default:
    762 #ifdef TEST
    763           ::Print("String:unknown type %s(%d)", Tok2Cmdname(Typ()),Typ());
    764 #endif
    765           return mstrdup("");
     849          return lString((lists) d, typed, dim);
    766850    } /* end switch: (Typ()) */
    767 
    768     return s;
    769851  }
    770852  return mstrdup("");
    771853}
    772854
     855   
    773856int  sleftv::Typ()
    774857{

  • Tst/Short/string.res.gz.uu

    ra30caa3 r7604db  
    11begin 644 string.res.gz
    2 M'XL(",)W&#<``W-T<FEN9RYR97,`[5QM;]LV$/ZN7T$8&^`TBBI2EE_G`&OW
    3 M)<`R#,B^I4'@Q&JC5K(<66YM#_OO.U(B>7)8UW:26G%L!#9U/-Z1S]WQ3F^Y
    4 M^.>/L[\((?24_'GVCM2R2>9$X4VM9UT4/>R4`/$Z'(59_:AG\5]RFM,FV2";
    5 M3IQDFBEN[Y2H=L/1;=\AXS2Y)>?SO]-PE-6'P4?R[6Z0'2F.ID/^50<M![Y(
    6 MC7.@J70$E1,5C=*<<RRD"HEZ`/5$)^K377X^;I)!YZ<'`W/]N%/W=98UVN1#
    7 M[=?)AQH2P.B29IL`2TU+89Y1RK@LQ3=(&6,I+:.4K"RE8Y"2(2G>`PR%E%Y)
    8 MBK>,)9?2PU)@LO^I@Z;V`P\F&863C$2D3ZA-6$]WM4^51T0@BLNU+NE5U^(N
    9 M:5VRO,4L9$)C/[:493V`?9D$&!K%6`]`6B;UOC=2KJAS2J*>D:7@:+@:F@:5
    10 MT$0*QP9#F"A0@GB<S05O"0M$W@("-'J]E>,!<KHHXAL0\=S($3DNK<C?-RLW
    11 MD'LW6OFBP]$D2&&!-A%6D[VK/!S!*76`-F\5'#\8\@B$?B!Y,]!^)$RBT]$X
    12 M^B[@>$G=*\#25_CY%'$P1V[)'$I%]K:'F.L337\;M-'HYP,>*7E2&V"Y$LD&
    13 M`MOGYO"NA&=G7X/;.K69[6G/]B$&HLL&9ZC=A3I1^*UMS2$46"!2'-V%C[+.
    14 M*F'/9:Q5.I_0=BO52"NTD2D[W)1-;BDNL5Z[2VJ@\"Y`V;OI/IW5FGE3CN;4
    15 M1!"8)@1/;-R-=?X\']AX:L_J*IO/1GH(VHF;C'M4FWM4X33:D;;>C;>>:SL_
    16 M>OL6)-^,!G%`2)<4%'[2(4A=.:NB(YN/`R&A2R;@"--HD.[&)9]C]I5S[N=8
    17 M9!7"Y%G6)2,)9>,FS\;AZ`M\\7S[-HO'.N,V129NY_N[ICYA'MX8#;'$+OG]
    18 MXOW964&*DV&@P2F`X0LI*,DX&`%EE!3':3`8BN-,-.<%^5L:9@$F[SAH=[/2
    19 M"@?X;@"IUF:P(PQDY*/:KPFU'W<5DJJ-H85*O51N#"":D-N[03JXS8(4@`EO
    20 M0;O'7-?+^T;3^"9(2?*1?!VD$]Z7T\7G)DINOW#H@)ZDPT!H'(X1A_YTQ>(G
    21 MO#DC<[(@!CD,RWE?BNM*3[04EG4QJ2.[/K/G]@)^A^,Z'+X_,L3KNKP\D"N-
    22 M@"$.UUU;K_)KDP&$*N$65,+A,!A$1&?>%BJ!0QE@_`LVD+Y;\F:W[#*NP366
    23 M:6-!,^"\S,CQU%K5Y%!5T?)5&8^V!U%-=,2)OR;NLIBHKD<`3&*2USG&.RY%
    24 M7B).%2YD7B*<U2J#7B2"<L=#150+BJAX`)XZ@Q]8+?S![BC2F3UC:I-LH\(J
    25 M'I0W?AOTS&2;7?7G>9MQ^D*V@3XK7_;G.BRNI!PH4K4A8+[3-:YA808W^<XX
    26 MG40V6($"!"7*-B1*J(&G44#B/DB87]F7KCT[7EQI_%#>C)?SYOS-IV!49T?'
    27 M_(<6D^+J)'U1-$KX4=NUB37G>LH(+HFS5XF1T&XZAF..)V!`?5.1.*>OCX@"
    28 M&.7^MLC](":_)AP/;!+KR\'MYHI\CS:`:^D7^E"XACPLO$,?Y@Y2WC2N3:M1
    29 M0TP+.NQ6*\J,@WDJ8YY'5#<'*U;&BIL550?#5<=P,INU4-YK._R&-I1SY+Q_
    30 M$V196(_38%*/;?<(Y;^.SG_G,O^!?4AIQQ6S8OEW.=:76&6\&\@\YDMR#-YF
    31 M&-:39#GC#A2?.<NY71/KXG=W$;*N^*;6R8./X'*[I5D8N+(D&T1E+JF;:MTP
    32 MMYN?H%FI9OQJA:C'SY7U.JON058G/H7]7GF(5KN`.5AH3VJ8@R%?;AESL)VN
    33 M9#IP!J]*F8XO[SU\AO2W8/9,9T`X?X>J)HFF69B,H,DO\4.5\QFJ',V$+NJG
    34 M@<R3L#CQR3.M/'*ME)#?3D[(TH]EN26^8I1G(>W\9F4<CL(X7`1#,@]*3QMK
    35 MCQ.KGEG2(19,>8#H.5FP-[G;',^4BW@EP):ND0$BAD&VZ2;+VLQX>WO\A(W7
    36 MX=:<"0_6GV(KY2YM7FI1*FX7!=J+.@<O.GC1NEY$7?WZ`W6INJ[^KDX=1S]=
    37 M3%VHZX%V)%(/?V]$]WB\AZD>IGL:O,=3/9[N\9'2IJ.U*15]JH7VF1;3]]2X
    38 MECS)*4;#<&HQ2S-`?!2^@SB8[M</NU/J.N1>[/KW*<QTD@WK8B?G]\CU:2BE
    39 M5,?6_<MX5@,8[J=)%@:C+'_PY&.:Q'F:LO(:P,KS_<MYJF/]):WW_(==G]NS
    40 MC9X",8ZH_+,@Z^.VR5,C1BPJ_^S(!EC(V&=HN_#*K]#=IW9^VX;Q-MHO&FN]
    41 M:;4G2,DTB$K_Y;../5GIZA?C]F21K\><3_(>XYY@\7JLONUKIWNR_%=D:)F-
    42 ?T5D';3JZW7+0OT^`,Y#>+Q8U_$^%_P&\MJ]NG$$`````
     2M'XL(""\`&S<``W-T<FEN9RYR97,`[5U9;^,X$G[GKR",74">L-T29?F(-P&V
     3M>UX:V"P6Z'W+!($3J\>:\:'(2L;R8O[[%DE)I&1*EFWEL$=&$%,\JLBJCV15
     4MA52^__?G;__&&%O7^%_?ON!6N`H[,^^A-4+?XQ)ZC2'SWEMXH=$>(?:-KT7>
     5M*AR'SZO.\CE,:]O7.$UW.S+M=+`?+!_Q3?2?P%N$QL3]@?^8CL-V6J/7P?]+
     6M'_H=^(5;K(;2E2'/99EIGF6)FCZGRBG*!I;-"Y4R6>2(=JL0"G_=:BCXJX6R
     7M;)CG2/`OK;^O?FDI!*B5XTPP5&E)*M364O&S5!P-%5^ETM=2F66I##549@H5
     8M>TN&G,HH0\7.RY)1&:E4'"T5FA6,W=>0H:ID;+U\:79079V`J3JJKE["89:,
     9M3L*A2@7Z^V?Z,)#H[D(W9]XJQ#-\A2V"Z2@M<LSK%.<S(,7HHEOK[A*QB89N
     10MJ4A1I`!36Z[B#UE$;1#C29,+^-`20UL`0*S_!LNTVH1]T78;;2FX"C$JNH+R
     11M?:%Y+DC/!B2./G_F,QOG/[?F'<;>Q%V$W@_/#1!*Q6Q);3@TT<8L59UC*VI(
     12M]>#._3#B=3/B5[(S4M>(7"-OI761F'62+6Y&-8QH(:W#Q-=5Q`?3@.%XAB\R
     13M$NPU0'X+(/<530R$)KS%R@U`Z@1SZ":EPQ*%*&A*Q@<CM<MTM*/)T6K;0;](
     14MDP+DI+)"]V.S6\<Q?_0*NNZ94M<]V,-FMQ94O<).JN,>56K`'A8K@:D;A$V<
     15MM*Q[.!884YYT#H&%TCJ/$.+H,;*5OP=*%';[`(9_.<?@IIAQ"B&"\@/;A2+Q
     16MO=VOP]#D*%CI,339=WSQ"%_<1X/)W9:+1P^6F=EMEU5H33UI`_4&AP*),T!`
     17MDC]-O:-P548L!S->E4R]`K05%E<&75E?*F-0JH`P>1^+QSWZE,!3"`*!)/:#
     18MJ=)SQ+M>*V:'$K-]DV&VQR#)N]&:+EM`>.HJ%GC?J@^>/9%,6K/<)<^@,L.M
     19M&<5[\RP"^W1)INXNR.LK'0'\O;M_\/R0".``J'^^'#L4S;0"<2.0]['32PX=
     20MB;'7.>'ZBD'1M]F$&[`)%\\I.<\.MB<.EO1`/,&(9M[#8CQW,;[$<0Z+%O&L
     21MRZ17<4$8^2ZG<(E7,$^>9^/@?6;L:_2^?.[[XP!HAFZ`D_#9""/6,`F4X20Z
     22MAK="8C@7!\/;P2^<CWCAPC`7UL:V-/7]@OI^0?U90?U90?U10?U107U:-`!:
     23M-`):U"5:U*>PH`&/*R$T"MSP.5BP8"JJMIPW>C][O;_^#OT:RU5M>WVK@?BY
     24M0?P5')Z/@_024[!!\KDA^17,^V:].SN4U!LEZ2N1O3Z+['F+W^$7B]U]#N>^
     25MC-[U>51O($(H,K?&F-[>JRY?2B_Q/[]__?8MSIHO)ZY<A.,%F`TDSEGZ[@)R
     26M%LOX.7#'$_X<\F049_\1>*&K9K^SX_<^(RUW$AFO:FZ%MN9;&J+O([[:C%8V
     27M)PTQ'=\O6O7!I%EB&'&XU;^59K10ZQ*L!*H'9@>S28>#=(D=*''I(%EB@0G&
     28MCU/8W!]A;X>^>H\@3YN:IBW*%L_S!]CTES_PRSA8L3*1SS\/L^7C[PP,D+\,
     29M)B[G./&5&O)SR=6Y8LDUCO`&:^A0E<[7S`KYH3N:6>`,WJDV,=8D(AOXGO@&
     30M/'[-ZY@!KVI=O_7!):!9HUJ%@VMI%IU3&AW=1W5T/UD<-/,'2L1\8'=8G?$,
     31M2^MJH(3*O63JLU^P6%^9F7EF9L%L:D";S_-YG@8!O!N&J=MC)'.=;/,<:`FU
     32M/02&C>]?VHK4P&258@.;-8;8@AV0HW97'G$8]*7\%HG\>)6,[$1.UMK)54IM
     33M&TV^G^9K9"GZ9O!RG4"U#6D1*[J+Y&$P'*@"'78P;(?A,L`O(-#;]85%<'27
     34MRG2H'#I\262Z_NE7=P&;Z47$$[1](9ZSQC(C%=UE!5VA92+[BE6Y81FSTBA$
     35MC,TH(J;342%CG=HJ]I(>T)>#E#NT%.4.:0?[RUF$?5#MFEY$]L5":E8YQ^@G
     36MFH4:4&][SJCY&87J&R0Z+"[U<Z4:U;&>&TH=G:Y*2-#R#M`J+`Y3@7("<NBD
     37M?QB5)MZPQWSK(3]2(S.YP]UGF8J.8*JR>".LP9#_(O/9*>%;AV7Z2:9EEIT/
     38MWM-+<$12%5]5SZ$?TQ2-I!_Q<>T&4`7OY+W8ZNIU_AM)XK+@@B*7.'P@TH66
     39M&#%W12'J('E$N*)1.#XJ'+*U)F\%2#(6$2DQVDEBC-8?1FFTK-.R)DRCSL8T
     40M9A,_%L](9!X=TMG&D2;*DX52F0-(4L^FSFB09<K;)I8)YMI\#`OE&KX`-/##
     41M[#;6$[*F<I]7#+?Y..LG$E#0.DG3NZM(I"G+WR1IR%]G#^XS'H@QR5GK,6N=
     42M=:XO\ELJ,<T:(,9G"%DF1-J@.%KL?^XQ**V)#B!D'4);O:6:'J5UM9TZ3,==
     43M1<=@$,Z7D^>9B^=7M\QK(;<F65]L[J1^E>LQ\WP8(.]FB-'#V)/\39S(NKRP
     44MQ6$8&?#)F>]9<J2,3&K4[]F&.\Q*!W2HX!(Q=E(NBU%4EXS64<BQ1KM&14OZ
     45MO=VX'ASU%1P-^"6/N_B$\WQ,\+PM(51VH4?9G^Z3R24?^?Q*'N,I)A_%+,ON
     46M:?<ZZ:=-=`IH-MBC/)!&@2>D0.V&2G:N=.05?*3WXZZZ4PUZ3PB]I5Y<B2U'
     47M*N_H']`5;!!ZN@C-6_RD@F5'WLIE+7<UR![FY'DXOY:\M6RQ-ZX`01`1OKEZ
     48M<,/0,^:!NS+FQ&Q+P]:BTK"]20Q;$![.&$J<*Q6_LQMPKFJR,VJRV9:5H:/[
     49MRRGOKQ%K@!%A.Z?6D^4<=%C5L*9[T#Y,[O9U?/#PAK2XK.-SBLG'Y+\M]&GK
     50MPVN9EQG):&J%RW`\R]9*>'<E;^C_PQMP3ED[[$\L/*AR(Q%5]C**C[,3<)@T
     51MF\%)>TN-#E_386+2?5>?J?X.?$RWJ8'Q!_*<M#9"XTLUL*T'MH>Y4WPE/$F/
     52M2C^=3MK'ZLL#898U2$Z=_@9&\(:2M;2#A]<8_*WE[#GTE@M(LB-+X'_]!OY7
     53M6HDJ1XP"-[&6`:7\(^SMY,E$`<;_^/0)Y[X0,C/UXE8V4KBS*P%S;^'-O8T[
     54MP9&;>9&=7%PX?-<HF?L;FDYV7O)I0Y.C=NMT-;`SR,\9&R`132.B.UY;N;*Z
     55MB1_?X:)M)9D!&[F#:*BE9:9VT7X311:L,"!-I!.G_I1Q9LQHHTQU[:A1X;`/
     56MFE/48HZDQ0_E!:Z<';29'<WL:&:'?%FS1;OID98OAM7IV,I>XERSO#:W"ME9
     57M?EG28R4T+9%'7VB?E=AIB2U+!@K384=R2UE<69+H%95DKNRDG6TFH:FX-7LW
     58M(J)(5H!Y'\\)I0:5Y?*"A\5>;/S$S:VG`'JZ"B?2W%<"FK9RY^/I-.Y[086G
     59MYV7H@>;%Y;4?P7(NS`HDS',D3/'3N1E6?4C-';+JLMKOMME(T#`BLM:MON<I
     60MDUKOJ(U0(D&T)<*#5G+;4=:S7O;%Y$\!$4>/*$LK"UJ_TLN=ST2=B?VAA`CR
     61M$8LS&:G.PFS4>;(CS=W'*`["T.(R[36,.BCI7]%^)I+_ZV"LT!L3)Q<JV@(D
     62M;4,KMZGXGOXSD?-?%E')=9.2$#(M*2UVG>.C-55M+8)4C%9N5H^[;2N>+_LG
     63M-_.QC_TI>Z436&CS\5HPI-)"ZRI!7*B8OV&PH>G1^2B^76%#,L[M@AKB7`>2
     64M\56,WM:-DN.I97:H#271AD24K#=D'>FOI.RJX[?JZ%;A"Q2VV)==5JB-/XU'
     65MCH`W`N9HS?[^$15==DF[JJE?"QJ[RGVF+I6WE*>>Q)_=>`CGN#@G?T*]CP&.
     66MXSANM!%)`7">%`#G20%PGMQ>11I4G/Y(ZT%%'?X*J;*+O!;MQJ<YCY'6`^=W
     67M=(U(D;G2^$P-8BLC]DC7B^QAL[ZI2T;*3>1Z;&3E/CC[3Z'R?]["$$=_0Y;F
     68,'^'^'_GL/E11=P``
    4369`
    4470end

  • Tst/Short/string.stat

    ra30caa3 r7604db  
    11Status Output of tst_status.out
    22init >> USER    :obachman
    3 init >> HOSTNAME:nepomuck.mathematik.uni-kl.de
    4 init >> uname -a:Linux nepomuck.mathematik.uni-kl.de 2.0.33 #1 Wed Jan 21 18:50:57 MET 1998 i686 unknown
    5 init >> date    :Sat Apr 17 14:00:02 MET DST 1999
     3init >> HOSTNAME:pumuckel.mathematik.uni-kl.de
     4init >> uname -a:Linux pumuckel.mathematik.uni-kl.de 2.0.33 #4 Sun Jun 7 19:02:37 MET DST 1998 i586 unknown
     5init >> date    :Mon Apr 19 12:06:38 MET DST 1999
    66init >> version :1302
    77init >> ticks   :100
    8 1 >> tst_memory_0 :: nepomuck.mathematik.uni-kl.de:282405
    9 1 >> tst_memory_1 :: nepomuck.mathematik.uni-kl.de:346021
    10 1 >> tst_memory_2 :: nepomuck.mathematik.uni-kl.de:282624
    11 1 >> tst_timer_1 :: nepomuck.mathematik.uni-kl.de:14
     81 >> tst_memory_0 :: pumuckel.mathematik.uni-kl.de:280961
     91 >> tst_memory_1 :: pumuckel.mathematik.uni-kl.de:346021
     101 >> tst_memory_2 :: pumuckel.mathematik.uni-kl.de:274432
     111 >> tst_timer_1 :: pumuckel.mathematik.uni-kl.de:24

  • Tst/Short/string.tst

    ra30caa3 r7604db  
    1515   "print(what, \"%p\")";
    1616   print(what, "%p");
     17   "print(what, \"%l\")";
     18   print(what, "%l");
     19   "print(what, \"%;\")";
     20   print(what, "%;");
     21   "print(what, \"%2s\")";
     22   print(what, "%2s");
     23   "print(what, \"%2l\")";
     24   print(what, "%2l");
    1725   "print(what, \"%t\")";
    1826   print(what, "%t");
    19    "print(what, \"%;\")";
    20    print(what, "%;");
    2127}
    2228
    2329list l = 1, 2;
    2430MyPrint(l);
    25 l;
    2631
    2732list ll;
    … …  
    5863ideal i;
    5964MyPrint(i);
     65 
     66number n = 12345;
     67MyPrint(n);
     68 
     69vector v = [x+1, y];
     70MyPrint(v);
     71 
     72poly p = x2+y3+n;
     73MyPrint(p);
    6074
    6175l[8] = r;
    6276l[9] = i;
     77l[7] = n;
     78// l[1] = v;
     79l[5] = p;
    6380MyPrint(l);
    6481
    … …  
    100117MyPrint(l);
    101118
     119map phi = r, maxideal(2);
     120MyPrint(phi);
     121
     122l[5] = phi;
     123MyPrint(l);
    102124
    103125tst_status(1);$
Note: See TracChangeset for help on using the changeset viewer.