Changeset 9e8bfa in git


Ignore:
Timestamp:
May 11, 2015, 6:46:52 PM (9 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
Children:
3620bbf64b288792eb0b8751b70f71e6309153b68204ede777200aa9088bacd2f6a6716e21aedfce
Parents:
43325d91f129249a06e67885e297ff0bf062c73a
Message:
allow matrix/module 0x0, 0xr, cx0
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • Singular/ipshell.cc

    r43325d r9e8bfa  
    909909
    910910  for (i=0; i<l; i++)
    911     res[i]=idCopy(r[i]);
     911    if (r[i]!=NULL) res[i]=idCopy(r[i]);
    912912  return res;
    913913}

  • Tst/Manual/cup.res.gz.uu

    r43325d r9e8bfa  
    11begin 640 cup.res.gz
    2 M'XL("#$I<DX``V-U<"YR97,`I55K;YLP%/W.K[BJ)A56DV+H8ULUI#U:+5(S
    3 M3>H^3*JZB0:GL0:8@M-`?OWN-03(HU6E003Q]7T<'Y]K;GY^'7\'`!["]?@S
    4 M'.A2CQ)Y?W`!^.^/S*2VG0N+WA"&,%WDHTPL1Z6.M'73AOIMZ%RE*E$/37@W
    5 M&X0@,PTYF.LCY`4.$_$DDM[G)`2T/@`4A?$)?,\+F%VQFJT<9L<Y^^+TWJ>8
    6 M,191`C`VWM7)41T<K?S>XRR$QR:A,AZECNWQ(,-Y"*F*%XF`B9F_I4H>6]VQ
    7 MV]IG;A6P%?-P@$_FUF3``<ZS"H?^79_H7=BLQT9B[(F#)3S&,0C,;WAO#"UZ
    8 MN*TC?]$+;>[0@S_GA3_>>;39N^30(7Z_@9CQ'O/V;>V:7F/>2-75Y5X(Q\?@
    9 M9S%<_OHT^7%]"6"7<[4L83F/-,@2'A3MF,J<+H:/!FHA673$<W^M&&@4XQFU
    10 M[&B%!YU69*,5WZT':4XZH3QV0I&#\--MH;A8!;6`*F!5KP-^MJ,#7.Q3+%.P
    11 M+RO]FSL8ZY/M[WU4"E`S,&;<@(E#9G!!SP5,5;)(LQ)SB5)@TY"MB1")2-%2
    12 M8B_!-Y7:5S9WV)7M.>OP*_NM`Q',"B$`HS&1EBJC2A/+:`$W"&KSY,Q8@"(3
    13 M.=-;H#Z\`(C<D:Z2G'>`:=5"\PD:?PTTL%IH!AD"6^/JN?/W<^?_#W?^'NY0
    14 M@<]A?(&_--*%K,@/=][-"Q3+%"O96*H!;_6-7C=-`GBBU.N.H>9NLW=NE)@N
    15 M$-@MC?9]:$Q4DA86E:6:RDB+N$$P%69+:.I>)C(348$3>4[2/D1DAP;L5!6X
    16 MMEQE,=EQN_9PM$$O1(4`ZM*,&:KD2(Q,4$&-VQ:<R0S[JR6"`I:%U%ID"+*G
    17 MQX1'/;B9*E+L]49Q4#5O='+IFJH40=(FHAB-++R&[JU9GV:1,=H.OH>U8,W:
    18 GX-A<'[U\>#B=AYL'3=YW-I[P]"&D#]ZB1%%?O+'^`1^--NTS!P``
     2M'XL("`C/4%4``V-U<"YR97,`I55K;YLP%/W.K[B:)A56D\:FCZW5D/9HM4C-
     3M-*G[,*GJ)@I.8PTP!:>!_/I=VP3(8]&D013B^SR<>^S<??\\^0H`-(3;R4=X
     4MI2HU2L7CJRO`7[]$+I3K73GZ"6$(\:(8Y7PYJE2DG+LVE;6I<YG)5#[9],X;
     5MA"!R!068ZST4)2Y3_L+3/N8T!+0^`92EB0G8>!P0MR8-67G$30KRR>NCS[!B
     6MPJ,48&*BZ]/C)CA>L3[B/(1G6U":B$HE[F10X2*$3":+E,/4^.]UIS%9/9#[
     7MAA&_#LB*C'&!W\1OM`$7Z"<U+ME#7^AM:-_'16+<J8<M**:`^0SOC:6#1=LP
     8M>B`&+?[03_?'X(=V_K9R5Q@ZI.\VD!*ZQKI].[NFP\:-(ET_.@[AY`18GL#U
     9MCP_3;[?7`&XUE\L*EO-(@:C@2>H)R=SK<NAHH`XM@XYHRM8*`:N0L5''CC9H
     10MT&E#6&TPOQF4.>V$\=P)0PS2S[:%X6,7G#U.G=3]W.GYSMSQ95\2D8%[7:N?
     11MU,-<IFV_'Z.*@YR!,2/Q4T^;P0<UYQ#+=)'E%=;B%<=-HFTV@Z<\0TN%>P>^
     12MR,R]<:E';MRQMTZ_<=]X$,&LY!PP&PLI(7/=:>H8#>!XH#'?E!@+Z,Q4S-06
     13MJ,L#@'0XTE7IX!U@2K;0F(9&_P4:."TT@PR!K7'UW+']W+'_X8[MX0X5^#>,
     14M!_C+(E6*6L?AY/VB1+'$V,G%5A:\L][:-A=/CZ8MA@Y3MPO0!?4%''>)U3P#
     15M:]*M]`M%525C$2F>V,XQ-Z/0KD>1BIQ')3J*0DOZ"!$=&9"Q+/&="IDGVHYC
     16MVL/-!JT0E1ST[LR)H4B,^,@DE7K#M@UG(L=]U1*@$Y:E4(KG"+*GQ:1'/;B9
     17M+#/<XU9I4-LG!OGZBF6&(/7P4(0MYX;F+2^[M$>F4<L>UH(U:]T1:>/I\$"Z
     18>"#</EZ+?S7B*ZS\[_:>VJ%#(5Z^=/TF[40$7!P``
    1919`
    2020end

  • Tst/Manual/cupproduct.res.gz.uu

    r43325d r9e8bfa  
    11begin 640 cupproduct.res.gz
    2 M'XL("#(I<DX``V-U<'!R;V1U8W0N<F5S`.5866_;1A!^UZ\8&`5"QDN%AYJT
    3 M,LJ''DX,U$*`],UP"EI:Q40IDB;IF/2OS^R]2U(NFOJA:"2:YNS,?'-J5JL/
    4 M?_QZL0&`*(7?+WZ&DZ[MED5^<W(&^/1G7N:=YY\MV'](4]C>UW53[>ZWW;*D
    5 M#\NVR[K%!XD02X3;ZE`5U2>!HKE)"GG900W\]1/4#9(%_4P+([-*`5<_`30-
    6 METGB,$R(UY.!//K$V]7D%]](?X^(.YH5`!=<NE^=#LGI8VPD7J=P)P`K+M%V
    7 M.^_"0GB3P@&#*2A<<OX5LQ22QVMR-<0DZ!/R2$(D\$Z"@2T@@7S2(QE?&Z`?
    8 M4A&/9_+C71+VCDCBH\40'T("_++?#KE@MT`*1D]*X5I@2T3'I/"*M(1$U^"@
    9 M`_@QM0K",J]CB\(4BKSMH)"%FXV1G&3E<,(B??4*/N_R`_S6,_;&1XT56_SK
    10 M)FLI5'O&^%AS%EN&`+I;"MNJN#^4+3I!6XIMPM:$!BWH`5=:[!YX5QV\<Z_V
    11 MR5LO])7ZN?>2+;ST(6LH[!M*`4$0K\LK1$2+EY"5.]@L5#K8'1@UR(H@%:E'
    12 MQ1/7("E5%<WK8^)*!KAR#`6U81&8#A"\:"RI/)M(*I,#F5H/!BZ,I7%2OR'O
    13 M9U//&6MC<&1#!&P\<ZT8,C+D5%B2/",F.6,NR\G4C<B"&B&;&ASQ2B1FQHUA
    14 MTH!W/`]?U8!OO3N?O+,:D/4>+CS1@!O>@.^_Q:Q;LV"^(3_6IW><^;73X'14
    15 MCO._+<?EMUN.(M]W;$/$+/RS@2P56Z-YI!3LX^$O1A-,#BE!A/;\4A[ST69-
    16 MQ!&`R>`,@"R$%AMF`(89-)%\!\":\QI`CM9#UC5YS^+'#3"0.V`+'H8OV]AW
    17 MH!F(M1MPKW25[3_!T90&49T()BH-RJJN55R.`G$;1R*$$U'5+"XGD!4Q6IQE
    18 MZNB"""#1B(*C*0$2V2#14R`V1U//&([Y0-@[MQ&U`5R.6QV;I<+A9M3'W"EQ
    19 MH/(Q+7$@>T*VC;%G]XK+<4'^?;-9D\SZ5C*MC@I-QZ1+_"S5<6<;#\UNJ;$7
    20 M+H=AP#-V;$B<<!4(-V.'H2UQSI$22VR!:1FUN\+EL*G#Q@Y[`<7M2GPSCT$L
    21 ML8'$QG36MM4VSSJZ$_-I2_F$9JR;O,A+FC7(J&LV\U_@W'K!1]FV:G"LUU6Y
    22 M8^M=-;?!CG9GOIFVM]5#2?@ND2_IDJLUU8,VN<]+/([)0<D4'IJ\ZVB);IKQ
    23 MR=4SX]Z^:@Y0R2$*O?AZAD(!OK;5`;UD^T^T7JACRV)TQC$/,%&+U^9090YA
    24 MYG"DGZ:JR5HR45E;`NT%:*-3U=7:LB#%(S+CR4R%$U5A=?["@SG+NU=<1=?^
    25 MF7R,K\512V25P*J/WOQG#YF6G]'K?O6_/X>IRL6C0W5M#M5)RG]>8;^?W+=>
    26 .Y)]]M_@"0]YJ;8D1````
     2M'XL("`C/4%4``V-U<'!R;V1U8W0N<F5S`.5866_;1A!^YZ\8&`5"QDN%A^HV
     3M,L*''DX,U$*`Y,UP"EI:Q41XF:1CTK^^L_?R<(*F?B@2BI8Y.S/?G)K5ZMW[
     4M/\ZW`!`F\-?Y;W#4M=TJSZZ/3@&?_L[*K'.]4X?]AR2!W5U=-]7^;M>M2GJ_
     5M:KNT<]Y)A$@BW%1%E5<?!8KFQ@ED90<U\.L5U`V2.?U,<R.S3@!7/P(T#9>)
     6MHR"(B=N3@3QXQ-W7Y'?/2/^,B'N:Y@#G7+I?'P_Q\4-D)$X2N!6`%9=HN[U[
     7M;B'\DD"!P>04+CC_DED*R,,5N1PBXO<Q>2`!$OA._($M((%\TB,971F@7Q,1
     8MCVORXUX0]@I)[*'%$!&`W_9K1#IH0XJ%7Y#!%=_FA\LR>(>:+Y$U,&C'7R96
     9M(5C&=4QAD$">M1WDLF"+L9&CM!R.6(0O7L#G?5;`GSUC;SW46+/%3]=I2Z$Z
     10M,,:'FK/8,OC0W5#85?E=4;;H!&TIM@=;$QHTIP6NM-@U\*8JW#.W]LAK-_"4
     11M^IG[G"T\]R!M*!P:2@%!$*_+*D1$BQ>0EGO8.BH=[!T8-<A:(!6J1\43]R`I
     12M51'-ZR,REO1QY3$4U`;'-[47O'`JJ3R;22J3`YE;]P<NC*49I7Y+WBZFGC,V
     13MQN#$A@C8>#:V8LC0D'-A2?*,F.1,N2PG<S=""VJ";&KPB%<B,0MN#+,&O.5Y
     14M^*8&?.W>>N2-U8"L]W#A"PVXY0WX]D?,NC4+EAOR0WU\RYG?.@V.)^4X^VHY
     15M+G[<<N39H6,;(6;AWPUDJ=@:S4=*P3X>GC.98')("2*PYY?RF(\V:R).`$P&
     16M%P!D(;38L``P+*")Y(\`K#FO`>1H+=*NR7H6/VZ`OMP!6W`Q?-G&GF.`&82U
     17M%W"?=(WM/\'1U*0+P42D(5G%M<*8(R#&+2/U@YF@:I,QQU?;C&4$3/W&$`)&
     18M-*#@:&K2Q]8.N@1A<S3U1(&8CX"]5QM!6WW,L2MB,U0@W(3Z6(^*ZJL\3(OJ
     19MRQZ0;6)LV;TQYM@0_[6UK)EE??^85T0%I:,A3U:1\03C0=D--/5@S&$(\$3=
     20M&9!1F`J"F[`#T'8X9[&H$E<@6@;M+AASV%1A8X5=0'$[$M^\(Q!+;."P,9RV
     21M;;7+TH[NQ?S943Z!&>LZR[.2I@TRZIK-]&<XEY[Q4;6K&AS;=57NV7I7+6V@
     22MD]V7;Y;M375?$KX+9"NZXFI-=:]-'K(2CUER$#*%^R;K.EJBFV8\<O74N'>H
     23MF@(J.22A%U^_4,C':U<5Z"7;7\*-HTXS3O#8`\S4HHVC#S6./@*I$6\]S57C
     24MC:-/1(X^8TDOP%J;JZXW"C>4%D+KX&9YLE#A6%58G:_PP,WR[N:7X95W*A^C
     25M*W&4$EDEL.[#D__=X='R+SSIU]_]^4I5+)H<EFMS6(X3_G,)^SWDKG5#[_0G
     26*YQ_00XD^61$`````
    2727`
    2828end

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

    r43325d r9e8bfa  
    11begin 640 homolog_s.res.gz
    2 M'XL("(Y%[T@``VAO;6]L;V=?<RYR97,`Y1QK;]LX\KM^!5$<4"NA$E%RTD?J
    3 M`&FW>:"UL9ONAP.*-'!MI='6L1S;267_^IL9OB79<=/N[>U>VK@FY\'AS'`X
    4 M''+WP^^_G/488^*0[>Y>%S?%J/AR.=N9S^;!!P5*=@`TNRZF<S;/9O,9NRJF
    5 M3*'NC/+/!C%%Q&CUCT%L[[#W9Z_9$Q@%&3PY,)"]0P:=E_DXG[?"@P#_98>'
    6 MS`HVSK[MS.9]*]W^H>3E".3P>W;(LK)_,QEE;'`W.6#.3["[RR;38H``=C4M
    7 M;AB0>O-Z^^^C[J_OWP:,Y>,YFTBR#A!!<Y3=9Z,#`$'C"WQ."90F<9SR5LD7
    8 M?!GRUG#"WX2(E`^S_HBQ,T(JV]N+='N9(.!6DA<$F,V'K3/"ORF&=R!RE[H_
    9 M(KN8+R_XQT7"HS+E2QY#`SYYM,`.:`"<E]!,+I">1&S!Q%K=$!C&7``NH[_N
    10 M'Z\9X$>D$,5:+.B+7`RQ"@O^"H.AN!OFS!>4"RMJ]4]0[]JDVV.%PX')D_&0
    11 M*<,RU@*W_C9CWZ[[<Y;/V)<"K5&,0RT961GM:BW-I*5CLG*#C7-IXR1:I(Z!
    12 M;XV!\P8#1\`*;`C6XV63_4#L^V%^PUIOR_DG$0))@GU?/_=G&2NN&'6#!KLA
    13 M=K.(S:_!WXO1W<UX!KRR60;^BWV2(AME-]`S`[=FI\5-Z[@E0G[<BD--?MS:
    14 M"ED?%D66,:`&1O.\&.-(W8!L"!IF"_H4G'IH-8WRJWE%J)=K!$)T4,X,D6N"
    15 MS0LE6H*BB4U$8X$2C20#P;1<5G=)L^Z2']%=TJ`[\*55,J[1WTU_/LU+Q`/+
    16 M1Q";AG<#&*D%0TGA`[M`%]++&02`A79Y7)2*NT%#QOC#,O![Z<X)DUTX)$ZL
    17 M/YL5@[P_SX92@D%&)D'0YWR4C[/^%`"3"3KR4Y#L*0D[**8PMTDQ'F(_F*M!
    18 M1YYZ67^:,5QO8TZJRG>R'2*:XA)4`U[E8UA$2A%(\&V:S^?9&(2TZB'ROA4.
    19 M]J,;6+72XU@I_PW45C0H;D!(-"(X([E%+-5=@28(!8VA.42#UE*M-2?<Z9`I
    20 MG&"F0\;D(#"[T'-O%U*&/:AN0JK_'[L7J?FA,\`?P=._P=;D;0"C?`912VF^
    21 M<4;\27^\>.*&;/!%`/<P[K1K<6="H$?&G4G(3RIQ!SJVY#JKQ)Z9##Y]\.9>
    22 MH">/GTQ&(JE_AA&4Q;9EOBY42]O`P,J$^Y@1]*SB`M0J_KDP4<74DM4P]9`R
    23 M<OJC1PM"5DO*J+['?VU4/0%>V@$K8\@)6\G\46Q3V&8=635)(U8Y52CJI"Z&
    24 M<%A5.%L;K)!**J9!C$7-`6])#X]RP)/6;<A/'0=$WX..-0[8(P?\]?]1ZTXL
    25 M:';(3Y/M6P(^-AIL5\QQ_*`YNO^_YE"II\T\-PW(:W-6UQ2X/,*@$L%4D)*-
    26 MV(U?6F*5NCKQV&-@-=C`0!G"H"T:&"P:N$GE>PR<.&\8J-#Z0)**D_=8(Q-G
    27 M-R"IC)7=7PDQ+<-$>R*SLS),T>J&Q(=H)K[C*`YQ#54[BP^)E$4L%8&L'7TF
    28 MDI%T1`DQ+<E$N$S$.B8NQ+1^XG3L@G!W;HOJ,O`AOG5<D)X.#:.7N6?B2.NC
    29 M;N)(^81R&SN>ZRL^Q&?RX\[F1#(G*ZE;1T_-S,F8^*=8QX]M-#77I:I2^!#D
    30 MP7ZBQ\;<FZYF0L.XTS`C$62%B15OR=,9U/4*'Q*K0])??835N_-_YQ`[48?8
    31 M6W5,K9UAO2I7[0NKD='A5GF6/7+9HY#Y5B=-7RI@).Q(S$C!S*!UTO9+9P2%
    32 M+GB#).N.VXS4W1I]%!?A@?J:7,@3EE0F9^U2//N?/4DZ<HK]LOV//WZMJ8.\
    33 ML'6083:97Q^8\@<UUU8^7NKZQGDG-E6-X<16-,XZ($^YX(NE6[7HQ-@B]K"`
    34 MST*LNL"@LN.5ICCDOU%E8WD1!HD>:.H.-#L@NE$Q@*$0C&/(M=P%?X2_G1)Y
    35 MB>W%DL>V[M$%3RTI+H+:))!TI"0*Y96$D>BF7])L^*#XFDVQ^DORF!FNG<RA
    36 M0Q4#(N!O+]=2;"]=&F$L)6)K*0A$E^?64M1\T%)KBE2>=PA3MIHJY&;CYDR5
    37 MU<%:R9(OT](Q\EN"D6`MP7.IT]U=#$1W<]@)9'E\NIOS*>7V<!;+QC-5DI5E
    38 M:DPM`AQM=KG,ID7K+9B-.F11[)R9HEB9@!%E(6T\O\\&[%Z)G=0FEWCW3?(2
    39 MK>&VH39)G/Z!0^9-)(>):`WA-Q(GY"P';TUTD>J]4J;4R3W/N0C)@8O[;$I[
    40 ME)I7Q[#@.#LZ$=(.B'IZ0^,B'@X<4RW_?39G\2N,\M)KX.LQMH\%?B3PL;.S
    41 MPS[#EEPM?7.U68_9<;P518?'8HNTD-]#U^?%RV#)`U@C)45,E.,X$H075_#B
    42 MH-&(L3(B;>SRU`809Q?V3GHQGM>`M6;GSS7Y>7--:`YI90Y8'N5+VABQ5HK1
    43 M=*G/=.IJ`*,JP*PZI#:2"B?(M)>T#Y>*`DA+"L@!UF$ADV#-^DI`7[&I33B=
    44 M]+.Q(A-29+*%<X)-@\:'+0%'7;T3".'%%R^Z_.FQ945D41=VLO</V[MG2K]O
    45 M[:IJQ3L["2RK/W2P(5U\E4%F]X^0[LB_=C`-2!@MNNE#3ML8E6H&$L9`*Y9!
    46 M8F)9+73E86V"5]E\<-V:XCPVO)6TP<T)P$*K1?"NUHE5BVB=?TIVN_P<%4/*
    47 MP+B3UY>=8*WK;#0AER`7GX'G@Z-,1OUQ'Q=7^&/K4A-PO:8LEQYR.<'VB0`Z
    48 M5>_I^Y2]T"YLJO4(?A*'L"JID6"CNLQI(=)5B5G(A!P3\K9A(PP;L8H-N.*V
    49 M/HHQR5,UF`2M=B/I$-[]!5JK+>\M;!*"^&UM+?Q<;Z_VW\U>;==>>ZL4+;-;
    50 MJ^'85"=-8*6LO&[5U+5JV[5J>_U@<B!<:I11NT,;*($]01;ZNYNC&UIU#B_9
    51 MJAV@W11@VCK`))ON`&U3^J1)-M["(RMUIF:B5G:M<D"5ZJ/R2W;<!B6>Q)HO
    52 M7<X:9LDCF9%\4K0UVU1BMZDK.,*#W]NM2G5L?F@I<=-HZ]W'/3RTX?#0BD/`
    53 M$/B1X$?:T&R'E8-%`U'00(4'#B4NG`(B6/#!)9RG.['7'^MNI/N41,AC"\FA
    54 M%X\WLIF&$8Z@`2D"A`'$!M"6%,3']NX9],2@IPC8EP"+GH2><,(*9P5*C02)
    55 M&5*886*?0Z(Y.,><U+'OJ(\U&L#],)_VG92D`MC,WD>4;?@6)X9.F%(N6?,%
    56 MS#LV]P:5[W>J<I*#,/;^((`YXR"LV;8$6&%>@JVP,,&:C$R`%78F6).I00)7
    57 M1D^NU!4D<4<6[FA@;F/7MK4K1`)K2VA\1WJY.KO$Y))V3`@U3_5(.,)3-Y9<
    58 M0]R9%[BQY>/!-(,8-83`#ZFUFY:NSDI54LK+A7V=47U'YF+K7*[ZPJR:RO&/
    59 M97KAH)PB"@;,+I%6=PJ`5/<)V44_>R9^MD[I.0>CTXS<R`)=VH+QL3`5":R.
    60 ME:I4%%14FCCNS!R9<.T_>?((P0`@=ULX.[$HZD:'<.*#+X?=I_`!(N"^S4X0
    61 MUH/V"<%Z$D:)`Y[7V2\@"283;MZ&*#99V\UO6DX>YZ1Q(0M!!Z01V.Y1^XGA
    62 M^P;XXKLTPU<X?.4P80#VMSD?UI#DVS&9\VE0N=ADJT;?USLCL<<L8X%V84I`
    63 ME+3$3I*S8AY[FII)ZSAOBP;@NS5W_*,_*#ZWJ(=*#'O;RW886E>>WG:<]Y"5
    64 M4AJ(DO*]!6_#"3AQ$'H0!0@!1.2P-M(2$99\6=D8B3[`,[:M2$(Z"!":;@"D
    65 M-&4D928U[DB/Z]%N\WWN)O;7)A)[-B"IL+.P44GW//3R2ZK-T?.PH^N%:C-0
    66 M06(J-3MT`T'/XJ;A%KX'D(!6XH4+BY6LQGK=^9B4].Y+QI4E^(P;48XZ73>^
    67 M=/0$6T?\-<<;=H2>DI"GH=H:/5UK`HS'0UQ=&%HDWGTVF,/9>C;I#S)+A(CW
    68 M&E.\"(RO8MZ%U5NKG!F-6[9#3^"/Y84WP2-/*96(V9/S:Y@6[5]?LC%N3<;X
    69 M^];X^>Q-UQH>6X\H>M=JT7#([S!=P;Y\1?\>NO+#*EF`I]-*PD%-X=D6&>EM
    70 M/\NOV/GN*XU^B`>6-P4<GZ)N?]"_&_476"YCR!%6=,*7SPY6\E`(33RL$&[-
    71 M^9FKIN.1FX/)]O>D7NZ6:H(+Q(Z4TBO8A2C8\7);R!A8+K;Q.TI="26$*\,O
    72 M'K+P`S&9>A]#`<42T]Q0V"85Z_,LJF1<S"EEDP?LHPZ9[T*J5WKJ:UMQ+J.%
    73 M+MW392.!%0FI&A`.G9F:;."(RS1P,YFL/*]E]7N6S:5.[?IYXTBU79?JC2?5
    74 M]L^0RM?4&U21=IGGKLN\Q_4P6AQ#T'(]Q^E^[`63NSM!(##>?ITU9?1R?:#;
    75 MP.^2/LL(/,R]JO).7<@KCN;7[%@=*2664P`QVO^M<^8*U)'Z/#?Z="8K#TU,
    76 M'G_/=\\B&0VXI]N1Q)?OPV#`Z5=(3T4#JY@BL%'\"U?QY]D75^'0W%#1*Z][
    77 MSG"1;K5`=2$"Y3<Y0^#>.B.M55Q&IGJTD<-$(`9G<`HJIC.<IHZ-T2R[O<O&
    78 M@TRZMSO,4@\G@^O@NC_^DK%9,=4/Q2Q'7PZY9%5"[TVHZ<[0.(`RW-E#TP+_
    79 MNAM!4!T/LTD&'V.:7K-<-I@FL9=P7(+%QW"(86[.H3HWSSK,[H>[?TD/O;UM
    80 MWTD>1%/R()WV2*ZB#F80G%0%V8/#Y5W'RH:10J4+U11!(N@$`2/2.\PNTW59
    81 M@D]W[Q%&PH3]=W20H2M^\]1"Z`M_P:R2G5N,K\6U>]"DYF:K8.KH9JQT@VK9
    82 M@]CQ[!E/4[L?$=?66+Z<+TDT\WA@3WVAZQ_G_8\&D?"ZINB`@B5APTBR)TW-
    83 MDQ`)83Z(^"Q5CP.R6DE<K8SGTWY%,ZKK3]".XFPUM)0O-N0'G,1(7M/>XS0C
    84 MTU;7;TNO;8EDVQ(%EI2(G#81.6TD<OS&*3N]*V;+N]%I[4S@]W]/D5'L[*1^
    85 M-"W==5E_'.$/!=%+;DJXC$XO8VB?AS##3JN\A(WL$C:R2ZJ[J6+2ELIV;1')
    86 M=.C*D<Z'&X<29BBQ;B@G+_H@$WA=7FJ8T8II-X\N^4>UN42UR40/S\84&>U>
    87 MF3C%J#G$H6+:+8;6T*9KP^QV=7)"V6U'\(2GO`T+9)\_X\_Y"^_TK%^JT'_$
    88 MXR>ZDC"0E`&15H[.LJ2_M+U&=GHVK5#<]U)8GE!!8UEY2B5!*BI)JC;\[L'O
    89 MOGU<I:DLR+Q!0RI<F<_A]P5WGL%)*@-RUIUS"O^]F%H;0..ONG666Y]_Z5R[
    90 M<`;YZA?.T'GY?1?.2!%7:QBZ4U8QZA=%"*_=1.O.=43Z(CKX\9MH66N(-[N&
    91 M1F75KJ%)X$VNH0E176NBCSQTK<E>13:AAN\GV-.-L*KX.7-/"#O-%YJ6OD?T
    92 MQ]C3B[!BB:T$/_%VM'(U&I@S4@\B)EUP_DZ+L742\V.Z=G3:]9M'F2>8RTL'
    93 M-\'[2]T6=5ZB@9?FQXGG(UQ(5AN]^VDT8UJ]GT:B=+/[:4+]NQLRK2@_:5!^
    94 MS)VDSV1Y*AHVFKA=,7%UE'3%*+71:J-61^=&BD:G2)N<(M5.T=ZDJBW-G%>T
    95 F%@@KJO-:6EC1Q-J+WV1?_G\H\/\T<3?#].%?P7\`T>E2$RI#````
     2M'XL("#+-4%4``VAO;6]L;V=?<RYR97,`Y1QK4]M(\KM^Q53JJB+!"/0P)(&8
     3M*L*&1R6F=LE^N*H4H1Q;!&V,96Q!9/_ZZ^YY2[)Q2/9N=X\$QS/]F)[NGIZ>
     4MGMG]\/LO9^>,L?B`;6_?%+?%J/AR-=LJ9Z7W08*2+0#-;HIIR<IL5L[8=3%E
     5M$G5KE'_6B"DBALM_-&)GB[T_>\.>P2C(X-F^ANP<,.B\RL=YZ0?['O[+#@Z8
     6M$6R<?=N:E7TCW>Z!X&4)9/%[<<"RJG\[&65L<#_9][:WV61:#+#!KJ?%+0-T
     7M9RYO_WW8^_7]6X^Q?%RR":.?+A!!<Y0]9*-]`$'C"WQ."90F491RO^)SO@BX
     8M/YSPHP"1\F'6'S%V1DA59W.>;BX2!-P)\H(`LW+HGQ'^;3&\!S%[U/T1V45\
     9M<<D_SA,>5BE?\`@:\,G#.79``^"\@F9RB?0DH@\3\WL!,(P!D]%?^X_3]("7
     10M1(M7X$!/:,/C=ASX&VNXY*P9,U=`'BL1ZW^\9M?J3H<)#@,F3L9#)@W)F`^N
     11M^VW&OMWT2Y;/V)<"M5^,`R41617M:"S+A&4CLFJ+37-ATR2<IY9![[1!\Q:#
     12MAL`*;`;6XE6;O4#LAV%^R_RW5?DI#H`DP;ZOG_NSC!77C+I!<[T`NUG(RAOP
     13MZ6)T?SN>`:]LEH&_8I^@R$;9+?3,P(W9:7'K'_MQP(_]*%#DQ_Y&P/JP"+*,
     14M`34P*O-BC"/U/+(=Z)?-Z3/FU,.0<I1?ES6A]E8(A.B@G!DB-P0K"RE:@J+%
     15MZXC&/"D:20:"*;F,[I)VW24_HKND17?@2\MD7*&_VWXYS2O$`\N'$(N&]P,8
     16MR8>AA/">6I*"%A;[7#(#`/'5",@0?U@&_B[<.&&B"X?""?5GLV*0]\ML*$8>
     17M9&0*!'W.1_DXZT\!,)F@`S\'B9Z3D(-B"G.:%.,A]H.96G3CJ)7UIQG#=3;F
     18MI*)\*]LBHBDN/3G@=3Z&Q2,5@`3?IGE99F,0TJB%R/M&.-AK;F&U"D]CE?C7
     19MD]O,H+@%(=%XX(12YZ3F&C39$Z&.O*5%:ZG2F@YM`C^V`I<*$[")Z-WEI;.[
     20M2&,ZFXSL^\?N-7)^Z`3P)^;I7WCK<0+]*)]!=)(:;YT)?]8?SY_9H1E\#\#G
     21M&%\ZC?@R(=`3X\LDX">U^`(=&V)=U6+,3`29/GCON:<FCY],1!RA>8:1DD6F
     22MI;_.94OI7\.JA+N8(?0LXP+43$<B#8OKF$JR!J8:4D0Y=_1P3LB,,4?UY_S7
     23M5M438,\,6!M#3-A(YHYBFK%I-I%EDS1BE%.'HDZ:8L06JQIG8X,E4@G%M(@Q
     24M;SC@'>GA20YXXM\%_-1R0/0]Z%CA@.?D@+_^/VK=B@7M#OEILGE'P*=&@\V:
     25M.8X?-4?O_]<<,L4T&>:Z`7EE;FJ;`I='X-4BF`Q2HA'9\4M)+%-4*QX[#(P&
     26M6QA(0VBT>0N#>0LWH7R'@17G-0,96A])1G'RGF&,+*R]@&32-K9_!42W:E[(
     27MS(PT2[2X)G`A@H7K,I(^:B`J-W$AH=IFK$&8L9_+0K`1#B@@NE7S8VL';6-A
     28M0W3K)TW$+`%[KS:(-KD+L2UB`]1$:`BUK!VCADH/=:.&T@>DFYBQ;-]P(3:+
     29M'W4M*V99^4?3(FI2>C;\IUG$C6`T*=N!ZA*X$.3`?I)W1MR9IF)!0]@3T.,0
     30MI-6HDJ_@:`UH>X$+P:CR5SB2JMWWOW,HG<A#Z9T\=C;.I$X!J_&%-<C4896P
     31M[`-I_5N3--WS]/G'TR<J*06S^IJDG3W%-Y8CQ-8QS9)DU?&9D;K]T<?X,MB7
     32M7Y-+<8(2RN2L4\6[?[D3HB5?O%MU_O''JA4UC5>FIC',)N6-*6=0<V4E8T_5
     33M*RZZD:Y2#">F0G'6!7FJ.9\O["I$-\(6L8>%>Q;L,ZKBBH[7BN*`_T:5BL5E
     34MX"5JH*D]T&R?Z$;%`(9",(XAUG`/_!#^=BOD%6_.%SPR=8P>>&A%T1#4)H"D
     35M(RD1R6-)=-NO:#9\4'S-IEB])7GT#%=.YL"BB@`1\#<7*RDV%S9-K"T51\92
     36M$("N+HREJ/FHI584G1SOB'49:BJ1VXV;,UD6!VLE"[Y(*\O(;PE&@ODQSX5.
     37MM[<Q`-V7L`.(\O9T.^=3RMGAC)6-9[*D*LK,F$1X.-KL:I%-"_\MEIH\7>2Z
     38M8+K(525@1%$8&Y</V8`]2+&3QN0285SU0Q==+;<%C4GB]/<M,F<B.4Q$:0B_
     39MD3@!9SEX:Z**3^^E,H5.'GC.XX`<N'C(IK0WR7EU-0N.LZ.3'NU\J*<C&A?Q
     40M<."(:O'OLY)%KS&Z"Z^!K\?8/H[Q(X&/K:TM]AFVXGKIFLM->LR.HXTP/#B.
     41M-T@+^0-T?9[O>0ONP1JI*&*B',=A3'A1#2_R6HT822/2ABY.8P"Q=E_G!!?A
     42M.0Q8*W;N7).?-]>$YI#6YH#E3KZ@?1-KGQA-%^JL)DO[&%4!9M0AM)'4.$%&
     43MC<54!BP%!9!6%)`]K*M"!L':]96`OB)=<[`ZZ6=M12:DR&0#YP2;!HT/6P*.
     44MNGPGB&,GOCC1Y4^/+4LBB[QP$[U_F-X=7=)]:U:5'VUM);"L_E#!AG3Q5029
     45M[3\"NL?^VL4T(&&TZ*:/.6UK5&H8*-8&6K(,$AW+&J$K#QH3O,[*P8T_Q7FL
     46M>:MH@IL5@&.EEICWE$Z,6F+_XE.RW>,7J!A2!L:=O+GL8N;?9*,)N02Y^`P\
     47M'QQE,NJ/^[BX@A];EXJ`JS5EN)PCEQ-LG\1`)^LX?9?R/#`+FVHX,3^)`EB5
     48MU$BP45_FM!#IZD,O9$*."'E3LXDUFW@9&W#%374`8X*G;#`!6NY&PB&<>PFT
     49M5D?<1Y@D!/$[REKXN=I>G;^;O3JVO7:6*5IDMT;#D:XZZL!*67G3JJEMU8YM
     50MU<[JP<1`N-0HH[:'UE`".X+,U7<[1]>T\O1=L64[0*<MP'14@$G6W0$ZNJ1)
     51MDVR]14=6\BS-XD8YM<X!5:J.R'OLN`-*/(D4WYC9S)(G,B/YA&@KMJG$;%/7
     52M<'0'OS=;E>Q8_]!2X:;14;N/?7CHP.'!CP+`B/$CP8^TI=D):@>+%B*OA0H/
     53M'%)<.`6$L."]*SA'=R.G/U+=2/<I"9''!I)#+QYO1#,-0AQ!`5($Q!H0:4!'
     54M4!`?T[NCT1.-GB)@5P`,>A(XPL5&."-0JB5(])"Q'B9R.22*@W7,22W[COI8
     55MFP'<#^6T;Z4D-<!Z]CZD;,.U.#&TPI1TR88O8-ZQOC?(?+];EY,<A+'W^Q[,
     56M&0=A[;8EP!+S$FR)A0G69F0"++$SP=I,#1+8,CIRI;8@B3UR;(\&YM9V[1B[
     57M0B0PMH3&=Z27R[-+3"YIQX10\UR-A",\MV/)#<2=LL"-+1\/IAG$J"$$?DBM
     58M[;1T>58JDU)>S<UKB_H[,!M;Y7+U%V+U5(Y_K-)+"^4443!@]HBTOE,`I+Y/
     59MB"[ZV='QTS\%8K$=07"EC<Q3I2T8'PM388S5L4J6BKR:2A/+G9DE$Z[]9\^>
     60M(!@`Q&X+9R<6AKWP`$Y\\.6@]QP^0`3<M]D)PLZA?4*P<P&CQ`'/Z^P7D`23
     61M"3MO0Q23K&WGM[Z5QUEI7,`"T`%I!+9[U'ZB^1X!7WQ7IOG&%E\Q3."!_4W.
     62MAS4D\5Q+Y'P*5,W7V:K1]]7.2.PQRYBC79@4$"6ML)/DK)G'G*9FPCK66Z$!
     63M^&[#'?_H#XK//O50B6%G<]$)`N/*T[NN]9ZQ5DH#45*^,^<=.`$G%L(Y1`%"
     64M`!$YK(VT0H0%7]0V1J+W\(QM*I*0#@*$INL!*4T929E.C;O"X\YIM_D^=XMW
     65M5R82.R8@R;`S-U%)]3SVDDNHS=+SL*OJA7(SD$%B*C0[M`/!N<%-@PV\YQ<`
     66M/W'"A<%*EF.]Z7Y,*GK')>+*`GS&CBB'W9X=7[IJ@OXA?\/QYARAIR3D:2"W
     67M1D?7B@#C\1!7%X86@?>0#4HX6\\F_4%FB!#Q06'&KSSMJYAW8?76*&=&XU:=
     68MP!'X8W7I3/#044HM8IZ+^;5,B_:O+]D8MR9M_%UC_'QVU#.&Q]83BMZ-6C0<
     69M\KM,5;"O7M._![;\L$KFX.FTDG!077@V149Z?\_R:W:Q_5JA'^"!Y:B`XU/8
     70MZP_Z]Z/^',ME##G"BD[XXL7^4AX2H8V'$<*N.;^PU70\LG,PT?Z>U,O>4G5P
     71M@=B14GH%NQ`%.UYMQB(&5O--_(Y2UT()X8KPBX<L_$!,)M^]4$`QQ#0W%+9-
     72MQ>H\BRH9%R6E;.*`?=@E\UT*]0I/?6,JSE4X5Z5[NF0DL"0A50/"@353G0T<
     73M<I$&KB>3D>>-J'[/LE+HU*R?(TNJS:941XY4FS]#*E=31Z@BY3(O;9=YC^MA
     74M-#^&H&5[CM7]U`LF>W>"0*"]_29KR^C%^D"W@=\%?58A>)A]5>6<NI!7%)8W
     75M[%@>*06650#1VO^M>V8+U!7ZO-#ZM"8K#DU,''\OML]"$0VXH]N1P!?OOF#`
     76MZ5=(3^,65A%%8*WX5[;B+[(OML*AN::BEU[WG.$BW?!!=0$"Q3<Q0^#NGY'6
     77M:BXC4CW:R&$B$(,S.`45TQE.4\7&<);=W6?C02;<VQYFH883P75PTQ]_R=BL
     78MF*H'8(:C*X=8LC*A=R;4=F>H'4`:[NRQ:8%_W8\@J(Z'V22#CS%-KUTN$TR3
     79MR$DXKL#B8SS$6"F'[%L_Z=";'V[^%;W;=G9]*W>(VW('X;.'8A%U,8'@I"E(
     80M'BPN[[I&-@P4,ENH9P@"0>4'&)#>87*9KDH27+H'AS",==1_1^<8_3!!%)W4
     81M;7_,C(ZM2XROQ8U]SJ3F>HM@:NEF+'6#:MF!T/'B!4]3LQT15W\L'L)7))I^
     82M.[`CO]#M3V3*?PI$PJN2H@7R%H0-(XF>--7/.02$N2#BLY`]%LAH);&U,BZG
     83M_9IF9->?H!W)V6AH(9YKB`\XB)&\NKW#:4:Z+6_?%D[;$(FV(3*O9@21U28B
     84MJXU$EM]85:=WQ6QQ/SIM'`G<_N^I,<9;6ZD;3"M[73;?1KA#0?`2>Q(NH].K
     85M"-H7`<RPZU=7L(]=P3YV164W64O:D,FNJ2'I#E4X4NEPZU"Q'BI>-925%GT0
     86M^;NJ+K7,:,FTVT<7_,/&7,+&9,+'9Z-KC&:K3*Q:5`EQJ)CVBJ$QM.Y:,[E=
     87MGIM0<MN-><)3WH$%LLM?\)?\E7-X5@]5Z+_)<?-<0>@)2H](:R=G4=%?F%XM
     88M.[V&EBCV8RFL3LB@L:B]HQ(@&94$50=^=^!WE^O79(K*@/0C-Z3"E?D2?E]Q
     89MZ_6;H-(@:]U9A_#?BZFQ`33^5Y?.8NMS[YP;]\T@7_.^&3JOON^^&2FB>@E#
     90M=8HB1O.>".&-BVC5N8I(W4-[/WX1+4H-T7JWT*BLQBTT";S.+30AREM-])''
     91M;C79Z]#DT_#]!'MZ(185/V?V`6&K_3[3T)\3_3'VG(=8L,16@I]X.5J[&?7T
     92M$>D<(B;=;_Y.B]$_B?@QW3I:[>;%H\@3]-VEA9O@]:5JQTU><0LOQ8\3SR>X
     93MD"@V.M?3:,:T?CV-1.EZU].$^G<W9%I3?M*B_(A;29_.\F0T;#5QIV;B^BCI
     94MDE$:HS5&K8_.M12M3I&V.46JG**S3E%;F#FO:<U^&QT;$:VGR_'*>]]D5_RO
     955(O!_!G$_P_3A7]Y_`,X-7$;-0@``
    9696`
    9797end

  • kernel/GBEngine/kstd1.cc

    r43325d r9e8bfa  
    21392139#ifdef KDEBUG
    21402140  idTest(F);
    2141   idTest(Q);
     2141  if (Q!=NULL) idTest(Q);
    21422142
    21432143#if MYTEST

  • kernel/GBEngine/syz.cc

    r43325d r9e8bfa  
    492492
    493493/*--- the main loop --------------------------------------*/
    494   while ((!idIs0(res[syzIndex])) &&
     494  while ((res[syzIndex]!=NULL) && (!idIs0(res[syzIndex])) &&
    495495         ((maxlength==-1) || (syzIndex<=maxlength)))
    496496   // (syzIndex<maxlength+(int)minim)))
    … …  
    558558    }
    559559/*---creating the iterated weights for module components ---------*/
    560     if ((hom == isHomog) && (!idIs0(res[syzIndex])))
     560    if ((hom == isHomog) && (res[syzIndex]!=NULL) && (!idIs0(res[syzIndex])))
    561561    {
    562562//Print("die %d Modulegewichte sind:\n",w1->length());
    … …  
    602602  for (i=1; i<=syzIndex; i++)
    603603  {
    604     if (! idIs0(res[i]))
     604    if ((res[i]!=NULL) && ! idIs0(res[i]))
    605605    {
    606606      id_Shift(res[i],-rGetMaxSyzComp(i, currRing),currRing);

  • kernel/GBEngine/syz2.cc

    r43325d r9e8bfa  
    55* ABSTRACT: resolutions
    66*/
    7 
    8 
    9 
    10 
    117
    128#include <kernel/mod2.h>
    … …  
    918914  for (i=1;i<=syzstr->length;i++)
    919915  {
    920     if (!idIs0(syzstr->orderedRes[i]))
     916    if ((syzstr->orderedRes[i]!=NULL) && !idIs0(syzstr->orderedRes[i]))
    921917    {
    922918      toreor = syzstr->orderedRes[i];

  • kernel/combinatorics/hilb.cc

    r43325d r9e8bfa  
    12931293{
    12941294  id_TestTail(S, currRing, tailRing);
    1295   id_TestTail(Q, currRing, tailRing);
     1295  if (Q!=NULL) id_TestTail(Q, currRing, tailRing);
    12961296  return hSeries(S, modulweight, 0, wdegree, Q, tailRing);
    12971297}

  • kernel/combinatorics/hutil.cc

    r43325d r9e8bfa  
    3535{
    3636  id_TestTail(S, currRing, tailRing);
    37   id_TestTail(Q, currRing, tailRing);
     37  if (Q!=NULL) id_TestTail(Q, currRing, tailRing);
    3838
    3939//   if (tailRing != currRing)

  • kernel/ideals.cc

    r43325d r9e8bfa  
    10591059    }
    10601060  }
    1061   if ((lsmod==0) && (!idIs0(s_rest)))
     1061  if ((lsmod==0) && (s_rest!=NULL))
    10621062  {
    10631063    for (j=IDELEMS(s_rest);j>0;j--)

  • kernel/ideals.h

    r43325d r9e8bfa  
    2020typedef ideal *            resolvente;
    2121
    22 inline ideal idCopyFirstK (const ideal ide, const int k, ring R = currRing)
    23 {
    24   return id_CopyFirstK(ide, k, R);
     22inline ideal idCopyFirstK (const ideal ide, const int k)
     23{
     24  return id_CopyFirstK(ide, k, currRing);
    2525}
    2626
    … …  
    2929
    3030/// delete an ideal
    31 inline void idDelete (ideal* h, ring r = currRing)
    32 {
    33   id_Delete(h, r);
     31inline void idDelete (ideal* h)
     32{
     33  id_Delete(h, currRing);
    3434}
    3535
    … …  
    6969#define id_DBCopy(A,r) idDBCopy(A,__FILE__,__LINE__,r)
    7070
    71 inline ideal idCopy(ideal A, const ring R = currRing)
    72 {
    73   return id_DBCopy(A,R); // well, just for now... ok? Macros can't  have default args values :(
     71inline ideal idCopy(ideal A)
     72{
     73  return id_DBCopy(A,currRing); // well, just for now... ok? Macros can't  have default args values :(
    7474}
    7575#else
    76 inline ideal idCopy(ideal A, const ring R = currRing)
    77 {
    78   return id_Copy(A, R);
     76inline ideal idCopy(ideal A)
     77{
     78  return id_Copy(A, currRing);
    7979}
    8080#endif
    … …  
    8282
    8383/// h1 + h2
    84 inline ideal idAdd (ideal h1, ideal h2, const ring R = currRing)
    85 {
    86   return id_Add(h1, h2, R);
     84inline ideal idAdd (ideal h1, ideal h2)
     85{
     86  return id_Add(h1, h2, currRing);
    8787}
    8888
    8989BOOLEAN idInsertPoly (ideal h1,poly h2);  /* h1 + h2 */
    90 inline BOOLEAN idInsertPolyWithTests (ideal h1, const int validEntries, const poly h2, const bool zeroOk, const bool duplicateOk, const ring R = currRing)
    91 {
    92   return id_InsertPolyWithTests (h1, validEntries, h2, zeroOk, duplicateOk, R);
     90inline BOOLEAN idInsertPolyWithTests (ideal h1, const int validEntries, const poly h2, const bool zeroOk, const bool duplicateOk)
     91{
     92  return id_InsertPolyWithTests (h1, validEntries, h2, zeroOk, duplicateOk, currRing);
    9393}
    9494
    … …  
    9797
    9898/// hh := h1 * h2
    99 inline ideal idMult (ideal h1, ideal h2, const ring R = currRing)
    100 {
    101   return id_Mult(h1, h2, R);
     99inline ideal idMult (ideal h1, ideal h2)
     100{
     101  return id_Mult(h1, h2, currRing);
    102102}
    103103
    … …  
    107107BOOLEAN idIsModule(ideal m, const ring r);
    108108
    109 inline BOOLEAN idHomIdeal (ideal id, ideal Q=NULL, const ring R = currRing)
    110 {
    111   return id_HomIdeal(id, Q, R);
    112 }
    113 
    114 inline BOOLEAN idHomModule(ideal m, ideal Q,intvec **w, const ring R = currRing)
    115 {
    116    return id_HomModule(m, Q, w, R);
     109inline BOOLEAN idHomIdeal (ideal id, ideal Q=NULL)
     110{
     111  return id_HomIdeal(id, Q, currRing);
     112}
     113
     114inline BOOLEAN idHomModule(ideal m, ideal Q,intvec **w)
     115{
     116   return id_HomModule(m, Q, w, currRing);
    117117}
    118118
    … …  
    127127int     binom (int n,int r);
    128128
    129 inline ideal idFreeModule (int i, const ring R = currRing)
    130 {
    131   return id_FreeModule (i, R);
     129inline ideal idFreeModule (int i)
     130{
     131  return id_FreeModule (i, currRing);
    132132}
    133133
    … …  
    170170BOOLEAN idIsSubModule(ideal id1,ideal id2);
    171171
    172 inline ideal idVec2Ideal(poly vec, const ring R = currRing)
    173 {
    174   return id_Vec2Ideal(vec, R);
     172inline ideal idVec2Ideal(poly vec)
     173{
     174  return id_Vec2Ideal(vec, currRing);
    175175}
    176176
    177177ideal   idSeries(int n,ideal M,matrix U=NULL,intvec *w=NULL);
    178178
    179 inline BOOLEAN idIsZeroDim(ideal i, const ring R = currRing)
    180 {
    181   return id_IsZeroDim(i, R);
     179inline BOOLEAN idIsZeroDim(ideal i)
     180{
     181  return id_IsZeroDim(i, currRing);
    182182}
    183183
    … …  
    185185matrix  idDiffOp(ideal I, ideal J,BOOLEAN multiply=TRUE);
    186186
    187 inline intvec *idSort(ideal id,BOOLEAN nolex=TRUE, const ring R = currRing)
    188 {
    189   return id_Sort(id, nolex, R);
     187inline intvec *idSort(ideal id,BOOLEAN nolex=TRUE)
     188{
     189  return id_Sort(id, nolex, currRing);
    190190}
    191191
    … …  
    194194
    195195/// transpose a module
    196 inline ideal   idTransp(ideal a, const ring R = currRing)
    197 {
    198   return id_Transp(a, R);
     196inline ideal   idTransp(ideal a)
     197{
     198  return id_Transp(a, currRing);
    199199}
    200200

  • libpolys/polys/monomials/p_polys.cc

    r43325d r9e8bfa  
    35133513  poly* h;
    35143514
    3515   h=(poly*)omReallocSize((poly*)*p,l*sizeof(poly),(l+increment)*sizeof(poly));
    3516   if (increment>0)
    3517   {
    3518     //for (i=l; i<l+increment; i++)
    3519     //  h[i]=NULL;
    3520     memset(&(h[l]),0,increment*sizeof(poly));
     3515  if (*p==NULL)
     3516  {
     3517    if (increment==0) return;
     3518    h=(poly*)omAlloc0(increment*sizeof(poly));
     3519  }
     3520  else
     3521  {
     3522    h=(poly*)omReallocSize((poly*)*p,l*sizeof(poly),(l+increment)*sizeof(poly));
     3523    if (increment>0)
     3524    {
     3525      //for (i=l; i<l+increment; i++)
     3526      //  h[i]=NULL;
     3527      memset(&(h[l]),0,increment*sizeof(poly));
     3528    }
    35213529  }
    35223530  *p=h;

  • libpolys/polys/monomials/ring.cc

    r43325d r9e8bfa  
    12451245    omFree((ADDRESS)perm2);
    12461246  }
    1247   if ( (Q1!=NULL) || ( Q2!=NULL))
    1248   {
    1249     Q = id_SimpleAdd(Q1,Q2,sum);
     1247  if (Q1!=NULL)
     1248  {
     1249    if ( Q2!=NULL)
     1250      Q = id_SimpleAdd(Q1,Q2,sum);
     1251    else
     1252      Q=id_Copy(Q1,sum);
     1253  }
     1254  else
     1255  {
     1256    if ( Q2!=NULL)
     1257      Q = id_Copy(Q2,sum);
     1258    else
     1259      Q=NULL;
    12501260  }
    12511261  sum->qideal = Q;
    … …  
    42304240    Print("%09lx ", p->exp[i]);
    42314241  PrintLn();
    4232   Print("v0:%9d ", p_GetComp(p, R));
     4242  Print("v0:%9ld ", p_GetComp(p, R));
    42334243  for(int i = 1; i <= R->N; i++) Print(" v%d:%5ld",i, p_GetExp(p, i, R));
    42344244  PrintLn();

  • libpolys/polys/simpleideals.cc

    r43325d r9e8bfa  
    4040ideal idInit(int idsize, int rank)
    4141{
    42   /*- initialise an ideal -*/
     42  /*- initialise an ideal/module -*/
    4343  ideal hh = (ideal )omAllocBin(sip_sideal_bin);
    4444  hh->nrows = 1;
    … …  
    5656#ifdef PDEBUG
    5757// this is only for outputting an ideal within the debugger
     58// therefor it accept the otherwise illegal id==NULL
    5859void idShow(const ideal id, const ring lmRing, const ring tailRing, const int debugPrint)
    5960{
    … …  
    399400{
    400401  int i;
    401   ideal h2;
    402 
    403 //#ifdef TEST
    404   if (h1 == NULL)
    405   {
    406     h2=idInit(1,1);
    407   }
    408   else
    409 //#endif
    410   {
    411     h2=idInit(IDELEMS(h1),h1->rank);
    412     for (i=IDELEMS(h1)-1; i>=0; i--)
    413       h2->m[i] = p_Copy(h1->m[i],r);
    414   }
     402  ideal h2 =idInit(IDELEMS(h1),h1->rank);
     403  for (i=IDELEMS(h1)-1; i>=0; i--)
     404    h2->m[i] = p_Copy(h1->m[i],r);
    415405  return h2;
    416406}
    … …  
    440430    }
    441431  }
     432  else
     433    Print("error: ideal==NULL in %s:%d\n",f,l);
    442434}
    443435#endif
    … …  
    578570  ideal result;
    579571
    580   if (h1==NULL) return id_Copy(h2,R);
    581   if (h2==NULL) return id_Copy(h1,R);
    582572  j = IDELEMS(h1)-1;
    583573  while ((j >= 0) && (h1->m[j] == NULL)) j--;
    … …  
    711701  int i;
    712702
    713   if (h == NULL) return TRUE;
    714703  i = IDELEMS(h)-1;
    715704  while ((i >= 0) && (h->m[i] == NULL))
    … …  
    728717long id_RankFreeModule (ideal s, ring lmRing, ring tailRing)
    729718{
    730   if (s!=NULL)
    731   {
    732     long  j=0;
    733 
    734     if (rRing_has_Comp(tailRing) && rRing_has_Comp(lmRing))
    735     {
    736       poly *p=s->m;
    737       for (unsigned int l=IDELEMS(s); l != 0; --l, ++p)
    738       {
    739         if (*p!=NULL)
    740         {
    741           pp_Test(*p, lmRing, tailRing);
    742           const long k = p_MaxComp(*p, lmRing, tailRing);
    743           if (k>j) j = k;
    744         }
    745       }
    746     }
    747     return j;
    748   }
    749   return -1;
     719  long  j=0;
     720
     721  if (rRing_has_Comp(tailRing) && rRing_has_Comp(lmRing))
     722  {
     723    poly *p=s->m;
     724    for (unsigned int l=IDELEMS(s); l > 0; --l, ++p)
     725    {
     726      if (*p!=NULL)
     727      {
     728        pp_Test(*p, lmRing, tailRing);
     729        const long k = p_MaxComp(*p, lmRing, tailRing);
     730        if (k>j) j = k;
     731      }
     732    }
     733  }
     734  return j;
    750735}
    751736
    752737BOOLEAN idIsModule(ideal id, ring r)
    753738{
    754   if (id != NULL && rRing_has_Comp(r))
     739  if (rRing_has_Comp(r))
    755740  {
    756741    int j, l = IDELEMS(id);
    … …  
    770755{
    771756  int i;
    772   BOOLEAN     b;
    773   if ((id == NULL) || (IDELEMS(id) == 0)) return TRUE;
     757  BOOLEAN b;
    774758  i = 0;
    775759  b = TRUE;
    … …  
    11161100  int mc=MATCOLS(mat);
    11171101  int mr=MATROWS(mat);
    1118   ideal result = idInit(si_max(mc,1),si_max(mr,1));
     1102  ideal result = idInit(mc,mr);
    11191103  int i,j,l;
    11201104  poly h;
Note: See TracChangeset for help on using the changeset viewer.