Hello community,
here is the log from the commit of package gap-ringsforhomalg for
openSUSE:Factory checked in at 2018-02-06 16:50:10
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/gap-ringsforhomalg (Old)
and /work/SRC/openSUSE:Factory/.gap-ringsforhomalg.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "gap-ringsforhomalg"
Tue Feb 6 16:50:10 2018 rev:3 rq:573250 version:2018.01.07
Changes:
--------
--- /work/SRC/openSUSE:Factory/gap-ringsforhomalg/gap-ringsforhomalg.changes
2018-01-23 13:51:46.761005891 +0100
+++
/work/SRC/openSUSE:Factory/.gap-ringsforhomalg.new/gap-ringsforhomalg.changes
2018-02-06 16:50:10.733190990 +0100
@@ -1,0 +2,6 @@
+Tue Feb 6 09:41:27 UTC 2018 - [email protected]
+
+- Update to new upstream release 2018.01.07
+ * No changelog as usual
+
+-------------------------------------------------------------------
Old:
----
RingsForHomalg-2017.11.03.tar.bz2
New:
----
RingsForHomalg-2018.01.07.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ gap-ringsforhomalg.spec ++++++
--- /var/tmp/diff_new_pack.B6pqXE/_old 2018-02-06 16:50:12.001131612 +0100
+++ /var/tmp/diff_new_pack.B6pqXE/_new 2018-02-06 16:50:12.005131425 +0100
@@ -1,7 +1,7 @@
#
# spec file for package gap-ringsforhomalg
#
-# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
Name: gap-ringsforhomalg
-Version: 2017.11.03
+Version: 2018.01.07
Release: 0
Summary: GAP: Dictionaries of External Rings
License: GPL-2.0
++++++ RingsForHomalg-2017.11.03.tar.bz2 -> RingsForHomalg-2018.01.07.tar.bz2
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/RingsForHomalg-2017.11.03/PackageInfo.g
new/RingsForHomalg-2018.01.07/PackageInfo.g
--- old/RingsForHomalg-2017.11.03/PackageInfo.g 2017-12-19 11:19:56.000000000
+0100
+++ new/RingsForHomalg-2018.01.07/PackageInfo.g 2018-01-17 14:15:01.000000000
+0100
@@ -9,7 +9,7 @@
## this line prevents merge conflicts
"2017.04.17", ## Markus K's version
## this line prevents merge conflicts
- "2017.11.03", ## Mohamed's version
+ "2018.01.07", ## Mohamed's version
## this line prevents merge conflicts
"2011.12.13", ## Andreas's version
## this line prevents merge conflicts
@@ -212,7 +212,7 @@
Dependencies := rec(
GAP := ">=4.7",
NeededOtherPackages := [
- [ "MatricesForHomalg", ">= 2017.11.03" ],
+ [ "MatricesForHomalg", ">= 2018.01.07" ],
[ "HomalgToCAS", ">= 2015.09.30" ],
[ "GAPDoc", ">= 1.0" ]
],
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/RingsForHomalg-2017.11.03/VERSION
new/RingsForHomalg-2018.01.07/VERSION
--- old/RingsForHomalg-2017.11.03/VERSION 2017-12-19 11:19:56.000000000
+0100
+++ new/RingsForHomalg-2018.01.07/VERSION 2018-01-17 14:15:01.000000000
+0100
@@ -1 +1 @@
-2017.11.03
\ No newline at end of file
+2018.01.07
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/RingsForHomalg-2017.11.03/doc/chap0.html
new/RingsForHomalg-2018.01.07/doc/chap0.html
--- old/RingsForHomalg-2017.11.03/doc/chap0.html 2017-12-19
11:19:56.000000000 +0100
+++ new/RingsForHomalg-2018.01.07/doc/chap0.html 2018-01-17
14:15:01.000000000 +0100
@@ -28,7 +28,7 @@
<h2>Dictionaries of External Rings for the <strong class="pkg">GAP</strong>
Package <strong class="pkg">homalg</strong></h2>
-<p>Version 2017.11.03</p>
+<p>Version 2018.01.07</p>
<p>September 2015</p>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/RingsForHomalg-2017.11.03/doc/chap0.txt
new/RingsForHomalg-2018.01.07/doc/chap0.txt
--- old/RingsForHomalg-2017.11.03/doc/chap0.txt 2017-12-19 11:19:56.000000000
+0100
+++ new/RingsForHomalg-2018.01.07/doc/chap0.txt 2018-01-17 14:15:01.000000000
+0100
@@ -6,7 +6,7 @@
[1XDictionaries of External Rings for the [5XGAP[105X Package
[5Xhomalg[105X[101X
- Version 2017.11.03
+ Version 2018.01.07
September 2015
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/RingsForHomalg-2017.11.03/doc/chap0_mj.html
new/RingsForHomalg-2018.01.07/doc/chap0_mj.html
--- old/RingsForHomalg-2017.11.03/doc/chap0_mj.html 2017-12-19
11:19:56.000000000 +0100
+++ new/RingsForHomalg-2018.01.07/doc/chap0_mj.html 2018-01-17
14:15:01.000000000 +0100
@@ -31,7 +31,7 @@
<h2>Dictionaries of External Rings for the <strong class="pkg">GAP</strong>
Package <strong class="pkg">homalg</strong></h2>
-<p>Version 2017.11.03</p>
+<p>Version 2018.01.07</p>
<p>September 2015</p>
Binary files old/RingsForHomalg-2017.11.03/doc/manual.pdf and
new/RingsForHomalg-2018.01.07/doc/manual.pdf differ
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/RingsForHomalg-2017.11.03/gap/Singular.gi
new/RingsForHomalg-2018.01.07/gap/Singular.gi
--- old/RingsForHomalg-2017.11.03/gap/Singular.gi 2017-12-19
11:19:56.000000000 +0100
+++ new/RingsForHomalg-2018.01.07/gap/Singular.gi 2018-01-17
14:15:01.000000000 +0100
@@ -1336,7 +1336,7 @@
[ IsHomalgExternalRingInSingularRep, IsList ],
function( R, indets )
- local order, ar, r, var, nr_var, properties, param, l, var_base, var_fibr,
ext_obj, S, weights, P, W, RP;
+ local order, ar, r, var, nr_var, properties, param, l, var_base, var_fibr,
ext_obj, S, weights, P, L, W, RP;
order := ValueOption( "order" );
@@ -1353,11 +1353,14 @@
## create the new ring
if IsString( order ) and Length( order ) >= 3 and order{[ 1 .. 3 ]} =
"lex" then
+ var_base := var{[ 1 .. l - nr_var ]};
+ var_fibr := var{[ l - nr_var + 1 .. l ]};
+
## lex order
if HasIsIntegersForHomalg( r ) and IsIntegersForHomalg( r ) then
- ext_obj := homalgSendBlocking( [ "(integer", param, "),(", var,
"),lp" ], [ "ring" ], TheTypeHomalgExternalRingObjectInSingular, properties, R,
HOMALG_IO.Pictograms.CreateHomalgRing );
+ ext_obj := homalgSendBlocking( [ "(integer", param, "),(",
var_fibr, var_base, "),lp" ], [ "ring" ],
TheTypeHomalgExternalRingObjectInSingular, properties, R,
HOMALG_IO.Pictograms.CreateHomalgRing );
else
- ext_obj := homalgSendBlocking( [ "(", Characteristic( R ), param,
"),(", var, "),lp" ], [ "ring" ], TheTypeHomalgExternalRingObjectInSingular,
properties, R, HOMALG_IO.Pictograms.CreateHomalgRing );
+ ext_obj := homalgSendBlocking( [ "(", Characteristic( R ), param,
"),(", var_fibr, var_base, "),lp" ], [ "ring" ],
TheTypeHomalgExternalRingObjectInSingular, properties, R,
HOMALG_IO.Pictograms.CreateHomalgRing );
fi;
elif IsRecord( order ) and IsBound( order.weights ) then
@@ -1413,6 +1416,8 @@
if order = fail then
P := PolynomialRingWithProductOrdering( R, indets );
SetPolynomialRingWithProductOrdering( S, P );
+ L := PolynomialRingWithLexicographicOrdering( R, indets );
+ SetPolynomialRingWithLexicographicOrdering( S, L );
weights := Concatenation( ListWithIdenticalEntries( l - nr_var, 0
), ListWithIdenticalEntries( nr_var, 1 ) );
W := PolynomialRing( R, indets : order := rec( weights := weights
) );
SetPolynomialRingWithWeightedOrdering( S, W );
@@ -1461,6 +1466,17 @@
end );
+##
+InstallMethod( PolynomialRingWithLexicographicOrdering,
+ "for homalg rings in Singular",
+ [ IsHomalgExternalRingInSingularRep, IsList ],
+
+ function( R, indets )
+
+ return PolynomialRing( R, indets : order := "lex" );
+
+end );
+
##
InstallMethod( RingOfDerivations,
"for homalg rings in Singular",
