[arch-commits] Commit in gap/repos/community-x86_64 (14 files)
Antonio Rojas
arojas at archlinux.org
Mon Dec 7 10:08:47 UTC 2020
Date: Monday, December 7, 2020 @ 10:08:47
Author: arojas
Revision: 771462
archrelease: copy trunk to community-x86_64
Added:
gap/repos/community-x86_64/PKGBUILD
(from rev 771461, gap/trunk/PKGBUILD)
gap/repos/community-x86_64/gap-cddlib-0.94k.patch
(from rev 771461, gap/trunk/gap-cddlib-0.94k.patch)
gap/repos/community-x86_64/gap-libsemigroups-1.3.4.patch
(from rev 771461, gap/trunk/gap-libsemigroups-1.3.4.patch)
gap/repos/community-x86_64/gap-libsemigroups-1.3.patch
(from rev 771461, gap/trunk/gap-libsemigroups-1.3.patch)
gap/repos/community-x86_64/gap-normaliz-3.8.8.patch
(from rev 771461, gap/trunk/gap-normaliz-3.8.8.patch)
gap/repos/community-x86_64/gap-polymake-4.0.patch
(from rev 771461, gap/trunk/gap-polymake-4.0.patch)
gap/repos/community-x86_64/gap.sh
(from rev 771461, gap/trunk/gap.sh)
Deleted:
gap/repos/community-x86_64/PKGBUILD
gap/repos/community-x86_64/gap-cddlib-0.94k.patch
gap/repos/community-x86_64/gap-libsemigroups-1.3.4.patch
gap/repos/community-x86_64/gap-libsemigroups-1.3.patch
gap/repos/community-x86_64/gap-normaliz-3.8.8.patch
gap/repos/community-x86_64/gap-polymake-4.0.patch
gap/repos/community-x86_64/gap.sh
-------------------------------+
PKGBUILD | 313 +++++++------
gap-cddlib-0.94k.patch | 30 -
gap-libsemigroups-1.3.4.patch | 282 ++++++------
gap-libsemigroups-1.3.patch | 24 -
gap-normaliz-3.8.8.patch | 26 -
gap-polymake-4.0.patch | 900 ++++++++++++++++++++--------------------
gap.sh | 14
7 files changed, 796 insertions(+), 793 deletions(-)
Deleted: PKGBUILD
===================================================================
--- PKGBUILD 2020-12-07 10:08:21 UTC (rev 771461)
+++ PKGBUILD 2020-12-07 10:08:47 UTC (rev 771462)
@@ -1,155 +0,0 @@
-# Maintainer: Antonio Rojas <arojas at archlinux.org>
-# Contributor: TDY <tdy at archlinux.info>
-# Contributor: Rémy Oudompheng <oudomphe at clipper.ens.fr>
-
-pkgbase=gap
-pkgname=(gap gap-doc gap-packages)
-pkgver=4.11.0
-pkgrel=6
-pkgdesc="Groups, Algorithms, Programming: a system for computational discrete algebra"
-arch=(x86_64)
-url="https://www.gap-system.org/"
-license=(GPL)
-source=("https://files.gap-system.org/gap-${pkgver%.*}/tar.gz/gap-$pkgver.tar.gz" gap.sh
- git+https://github.com/gap-packages/NormalizInterface#commit=cd69a42
- gap-polymake-4.0.patch
- gap-cddlib-0.94k.patch
- gap-normaliz-3.8.8.patch
- gap-libsemigroups-1.3.patch
- gap-libsemigroups-1.3.4.patch)
-sha256sums=('6fda7af23394708aeb3b4bca8885f5fdcb7c3ae4419639dfb2d9f67d3f590abb'
- '143fb8a79a52c007903cce13407850df309ef803a9b00398d05169355917de46'
- 'SKIP'
- 'e3f6d671c8df9acb6143a7c279391957967cd44f0a00b949323401d5b54ed685'
- '151ddbd7cf234158c8bd79153ac0ded3076f103859a65b238dd5c86084be3d98'
- '4023aaf1617d653f84d711d5642485984395a01464d64ded0a7e884c48b2a332'
- 'c69c35293c194528a0beeeea533d3bae93208cc6a6bed9ffab2c2ebdb1c6d444'
- 'e4024342332fd583967b2797627dfae61eb6ebcb5b73baced1e2a464be4d679b')
-makedepends=(libxaw givaro mpfi normaliz polymake boost libsemigroups c-xsc zeromq fplll wget chrpath fmt git)
-
-prepare() {
- cd gap-$pkgver
-
-# Use system normaliz
- sed -e '/build-normaliz.sh/d' -i bin/BuildPackages.sh
-# Use system libsemigroups
- sed -e 's|test "$with_external_libsemigroups" = yes|true|' -i pkg/semigroups-*/configure
-# Fix https://bugs.archlinux.org/task/55174
- sed -e '/xgap/d' -i pkg/sonata-*/PackageInfo.g
- sed -e '/XGAP/d' -i pkg/cryst/PackageInfo.g
-
-# Update NormalizInterface to support recent normaliz
- rm -r pkg/NormalizInterface-1.1.0
- cp -r ../NormalizInterface pkg
-
- cd pkg/semigroups-*
- patch -p1 -i "$srcdir"/gap-libsemigroups-1.3.patch # Fix build with libsemigroups 1.3
- patch -p1 -i "$srcdir"/gap-libsemigroups-1.3.4.patch # Fix build with libsemigroups 1.3.4
-
- cd ../PolymakeInterface-*
- patch -p2 -i "$srcdir"/gap-polymake-4.0.patch # Fix build with polymake 4.0
-
- cd ../CddInterface-*
- patch -p1 -i "$srcdir"/gap-cddlib-0.94k.patch # Fix build with cddlib 0.94k
-
- cd ../NormalizInterface
- patch -p1 -i "$srcdir"/gap-normaliz-3.8.8.patch # Fix build with normaliz 3.8.8
-}
-
-build() {
- cd gap-$pkgver
- ./configure --prefix=/usr --with-gmp=system
-
- # https://bugzilla.gnome.org/show_bug.cgi?id=655517
- sed -i -e 's/ -shared / -Wl,-O1,--as-needed\0/g' libtool
-
- make
- make libgap.la
-
- # Install libgap so we can link packages against it
- mkdir -p tmp-install
- libtool --mode=install install libgap.la "$srcdir"/gap-$pkgver/tmp-install
-
- cd pkg
- export CFLAGS+=" -fcommon" # Fix anupq and cohomolo build with GCC 10
- export CXXFLAGS+=" -I/usr/include/cxsc" # Find c-xsc headers
- export LDFLAGS+=" -L$srcdir/gap-$pkgver/tmp-install -lgap" # See https://trac.sagemath.org/ticket/27372
- export LD_LIBRARY_PATH="$srcdir"/gap-$pkgver/tmp-install
- export MAKEFLAGS="-j1"
- ../bin/BuildPackages.sh
-}
-
-_standardpkgs=(GAPDoc-* primgrp-* SmallGrp-* transgrp atlasrep autpgrp-* alnuth-* crisp-* ctbllib FactInt-* fga irredsol-* laguna-*
- polenta-* polycyclic-* resclasses-* sophus-* tomlib-*)
-
-package_gap() {
- depends=(gmp zlib)
- optdepends=('gap-packages: extra packages' 'gap-doc: documentation')
- conflicts=(libgap)
- replaces=(gap-data libgap gap-4.8 gap-4.8-data)
- cd gap-$pkgver
-
- install -Dm644 src/*.h -t "$pkgdir"/usr/include/gap
- install -Dm644 gen/config.h -t "$pkgdir"/usr/include/gap
- install -Dm644 src/hpc/*.h -t "$pkgdir"/usr/include/gap/hpc
-
- install -d "$pkgdir"/usr/lib
- libtool --mode=install install libgap.la "$pkgdir"/usr/lib
-
- mkdir -p "$pkgdir"/usr/{bin,lib/gap/pkg}
- cp -r grp lib "$pkgdir"/usr/lib/gap
- for _pkg in ${_standardpkgs[@]}; do
- cp -r pkg/$_pkg "$pkgdir"/usr/lib/gap/pkg
- done
- install -Dm755 gap -t "$pkgdir"/usr/lib/gap
-# Install launcher script
- install -Dm755 "$srcdir"/gap.sh "$pkgdir"/usr/bin/gap
-
- mkdir -p "$pkgdir"/usr/share
- ln -s /usr/lib/gap -t "$pkgdir"/usr/share # expected by sagemath
-}
-
-package_gap-doc() {
- depends=(gap)
- replaces=(gap-4.8-doc)
- pkgdesc="Documentation for GAP"
- cd gap-$pkgver
-
- mkdir -p "$pkgdir"/usr/lib/gap
- cp -r doc "$pkgdir"/usr/lib/gap
-}
-
-package_gap-packages() {
- depends=(gap)
- replaces=(gap-4.8-packages)
- optdepends=('normaliz: Normaliz interface package' 'libxaw: xgap package' 'c-xsc: float package' 'mpfi: float package'
- 'libmpc: float package' 'fplll: float package' 'zeromq: ZeroMQ interface package' 'planarity: digraph package'
- 'curl: curl interface package' 'libsemigroups: semigroups package' 'polymake: Polymake interface package')
- pkgdesc="Extra packages for GAP"
- cd gap-$pkgver
-
- mkdir -p "$pkgdir"/usr/{bin,lib/gap}
- cp -r pkg "$pkgdir"/usr/lib/gap
-
-# fix xgap launch script
- sed -e "s|/build/gap/src/gap-$pkgver|/usr/lib/gap|g" -e 's|^GAP=.*|GAP=/usr/lib/gap/gap|g' \
- "$pkgdir"/usr/lib/gap/pkg/xgap-*/xgap.sh > "$pkgdir"/usr/bin/xgap
- chmod 755 "$pkgdir"/usr/bin/xgap
- rm "$pkgdir"/usr/lib/gap/pkg/xgap-*/xgap.sh*
-
-# provided by main gap package
- for _pkg in ${_standardpkgs[@]}; do
- rm -r "$pkgdir"/usr/lib/gap/pkg/$_pkg
- done
-
-# fix RPATH
- find "$pkgdir"/usr/lib/gap/pkg/ -name '*.so' | xargs chrpath -d
-
-# remove bundled planarity
- rm -r "$pkgdir"/usr/lib/gap/pkg/digraphs-*/bin/lib/
-
-# remove leftover binaries and source files
- find "$pkgdir"/usr/lib/gap/pkg -name .libs -o -name '*.o' | xargs rm -fr
- find "$pkgdir"/usr/lib/gap/pkg -type d -name src | xargs rm -fr
- rm -fr "$pkgdir"/usr/lib/gap/pkg/log
-}
Copied: gap/repos/community-x86_64/PKGBUILD (from rev 771461, gap/trunk/PKGBUILD)
===================================================================
--- PKGBUILD (rev 0)
+++ PKGBUILD 2020-12-07 10:08:47 UTC (rev 771462)
@@ -0,0 +1,158 @@
+# Maintainer: Antonio Rojas <arojas at archlinux.org>
+# Contributor: TDY <tdy at archlinux.info>
+# Contributor: Rémy Oudompheng <oudomphe at clipper.ens.fr>
+
+pkgbase=gap
+pkgname=(gap gap-doc gap-packages)
+pkgver=4.11.0
+pkgrel=7
+pkgdesc="Groups, Algorithms, Programming: a system for computational discrete algebra"
+arch=(x86_64)
+url="https://www.gap-system.org/"
+license=(GPL)
+source=("https://files.gap-system.org/gap-${pkgver%.*}/tar.gz/gap-$pkgver.tar.gz" gap.sh
+ git+https://github.com/gap-packages/NormalizInterface#commit=cd69a42
+ gap-polymake-4.0.patch
+ gap-cddlib-0.94k.patch
+ gap-normaliz-3.8.8.patch
+ gap-libsemigroups-1.3.patch
+ gap-libsemigroups-1.3.4.patch)
+sha256sums=('6fda7af23394708aeb3b4bca8885f5fdcb7c3ae4419639dfb2d9f67d3f590abb'
+ '143fb8a79a52c007903cce13407850df309ef803a9b00398d05169355917de46'
+ 'SKIP'
+ 'e3f6d671c8df9acb6143a7c279391957967cd44f0a00b949323401d5b54ed685'
+ '151ddbd7cf234158c8bd79153ac0ded3076f103859a65b238dd5c86084be3d98'
+ '4023aaf1617d653f84d711d5642485984395a01464d64ded0a7e884c48b2a332'
+ 'c69c35293c194528a0beeeea533d3bae93208cc6a6bed9ffab2c2ebdb1c6d444'
+ 'e4024342332fd583967b2797627dfae61eb6ebcb5b73baced1e2a464be4d679b')
+makedepends=(libxaw givaro mpfi normaliz polymake boost libsemigroups c-xsc zeromq fplll wget chrpath fmt git)
+
+prepare() {
+ cd gap-$pkgver
+
+# Use system normaliz
+ sed -e '/build-normaliz.sh/d' -i bin/BuildPackages.sh
+# Use system libsemigroups
+ sed -e 's|test "$with_external_libsemigroups" = yes|true|' -i pkg/semigroups-*/configure
+# Fix https://bugs.archlinux.org/task/55174
+ sed -e '/xgap/d' -i pkg/sonata-*/PackageInfo.g
+ sed -e '/XGAP/d' -i pkg/cryst/PackageInfo.g
+
+# Update NormalizInterface to support recent normaliz
+ rm -r pkg/NormalizInterface-1.1.0
+ cp -r ../NormalizInterface pkg
+
+ cd pkg/semigroups-*
+ patch -p1 -i "$srcdir"/gap-libsemigroups-1.3.patch # Fix build with libsemigroups 1.3
+ patch -p1 -i "$srcdir"/gap-libsemigroups-1.3.4.patch # Fix build with libsemigroups 1.3.4
+
+ cd ../PolymakeInterface-*
+ patch -p2 -i "$srcdir"/gap-polymake-4.0.patch # Fix build with polymake 4.0
+
+ cd ../CddInterface-*
+ patch -p1 -i "$srcdir"/gap-cddlib-0.94k.patch # Fix build with cddlib 0.94k
+
+ cd ../NormalizInterface
+ patch -p1 -i "$srcdir"/gap-normaliz-3.8.8.patch # Fix build with normaliz 3.8.8
+}
+
+build() {
+ cd gap-$pkgver
+ ./configure --prefix=/usr --with-gmp=system
+
+ # https://bugzilla.gnome.org/show_bug.cgi?id=655517
+ sed -i -e 's/ -shared / -Wl,-O1,--as-needed\0/g' libtool
+
+ make
+ make libgap.la
+
+ # Install libgap so we can link packages against it
+ mkdir -p tmp-install
+ libtool --mode=install install libgap.la "$srcdir"/gap-$pkgver/tmp-install
+
+ cd pkg
+ export CFLAGS+=" -fcommon" # Fix anupq and cohomolo build with GCC 10
+ export CXXFLAGS+=" -I/usr/include/cxsc" # Find c-xsc headers
+ export LDFLAGS+=" -L$srcdir/gap-$pkgver/tmp-install -lgap" # See https://trac.sagemath.org/ticket/27372
+ export LD_LIBRARY_PATH="$srcdir"/gap-$pkgver/tmp-install
+ export MAKEFLAGS="-j1"
+ ../bin/BuildPackages.sh
+}
+
+_standardpkgs=(GAPDoc-* primgrp-* SmallGrp-* transgrp atlasrep autpgrp-* alnuth-* crisp-* ctbllib FactInt-* fga irredsol-* laguna-*
+ polenta-* polycyclic-* resclasses-* sophus-* tomlib-*)
+
+package_gap() {
+ depends=(gmp zlib)
+ optdepends=('gap-packages: extra packages' 'gap-doc: documentation')
+ conflicts=(libgap)
+ replaces=(gap-data libgap gap-4.8 gap-4.8-data)
+ cd gap-$pkgver
+
+ install -Dm644 src/*.h -t "$pkgdir"/usr/include/gap
+ install -Dm644 gen/config.h -t "$pkgdir"/usr/include/gap
+ install -Dm644 src/hpc/*.h -t "$pkgdir"/usr/include/gap/hpc
+
+ install -d "$pkgdir"/usr/lib
+ libtool --mode=install install libgap.la "$pkgdir"/usr/lib
+
+ mkdir -p "$pkgdir"/usr/{bin,lib/gap/pkg}
+ cp -r grp lib "$pkgdir"/usr/lib/gap
+ for _pkg in ${_standardpkgs[@]}; do
+ cp -r pkg/$_pkg "$pkgdir"/usr/lib/gap/pkg
+ done
+ install -Dm755 gap -t "$pkgdir"/usr/lib/gap
+# Install launcher script
+ install -Dm755 "$srcdir"/gap.sh "$pkgdir"/usr/bin/gap
+
+ mkdir -p "$pkgdir"/usr/share
+ ln -s /usr/lib/gap -t "$pkgdir"/usr/share # expected by sagemath
+}
+
+package_gap-doc() {
+ depends=(gap)
+ replaces=(gap-4.8-doc)
+ pkgdesc="Documentation for GAP"
+ cd gap-$pkgver
+
+ mkdir -p "$pkgdir"/usr/lib/gap
+ cp -r doc "$pkgdir"/usr/lib/gap
+}
+
+package_gap-packages() {
+ depends=(gap)
+ replaces=(gap-4.8-packages)
+ optdepends=('normaliz: Normaliz interface package' 'libxaw: xgap package' 'c-xsc: float package' 'mpfi: float package'
+ 'libmpc: float package' 'fplll: float package' 'zeromq: ZeroMQ interface package' 'planarity: digraph package'
+ 'curl: curl interface package' 'libsemigroups: semigroups package' 'polymake: Polymake interface package')
+ pkgdesc="Extra packages for GAP"
+ cd gap-$pkgver
+
+ mkdir -p "$pkgdir"/usr/{bin,lib/gap}
+ cp -r pkg "$pkgdir"/usr/lib/gap
+
+# fix xgap launch script
+ sed -e "s|/build/gap/src/gap-$pkgver|/usr/lib/gap|g" -e 's|^GAP=.*|GAP=/usr/lib/gap/gap|g' \
+ "$pkgdir"/usr/lib/gap/pkg/xgap-*/xgap.sh > "$pkgdir"/usr/bin/xgap
+ chmod 755 "$pkgdir"/usr/bin/xgap
+ rm "$pkgdir"/usr/lib/gap/pkg/xgap-*/xgap.sh*
+
+# provided by main gap package
+ for _pkg in ${_standardpkgs[@]}; do
+ rm -r "$pkgdir"/usr/lib/gap/pkg/$_pkg
+ done
+
+# fix RPATH
+ find "$pkgdir"/usr/lib/gap/pkg/ -name '*.so' | xargs chrpath -d
+
+# remove bundled planarity
+ rm -r "$pkgdir"/usr/lib/gap/pkg/digraphs-*/bin/lib/
+
+# remove leftover binaries and source files
+ find "$pkgdir"/usr/lib/gap/pkg -name .libs -o -name '*.o' | xargs rm -fr
+ find "$pkgdir"/usr/lib/gap/pkg -type d -name src | xargs rm -fr
+ rm -r "$pkgdir"/usr/lib/gap/pkg/digraphs*/extern
+ rm -r "$pkgdir"/usr/lib/gap/pkg/semigroups*/libsemigroups
+ rm -r "$pkgdir"/usr/lib/gap/pkg/NormalizInterface/{.git*,.release,.c*,.t*,autom4te.cache}
+ rm -r "$pkgdir"/usr/lib/gap/pkg/log
+}
Deleted: gap-cddlib-0.94k.patch
===================================================================
--- gap-cddlib-0.94k.patch 2020-12-07 10:08:21 UTC (rev 771461)
+++ gap-cddlib-0.94k.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -1,15 +0,0 @@
-diff --git a/src/CddInterface.c b/src/CddInterface.c
-index da948e0..e025492 100644
---- a/src/CddInterface.c
-+++ b/src/CddInterface.c
-@@ -4,8 +4,8 @@
-
- #include "src/compiled.h" /* GAP headers */
-
--#include "setoper.h"
--#include "cdd.h"
-+#include "cddlib/setoper.h"
-+#include "cddlib/cdd.h"
-
- #include "gmp.h"
-
Copied: gap/repos/community-x86_64/gap-cddlib-0.94k.patch (from rev 771461, gap/trunk/gap-cddlib-0.94k.patch)
===================================================================
--- gap-cddlib-0.94k.patch (rev 0)
+++ gap-cddlib-0.94k.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -0,0 +1,15 @@
+diff --git a/src/CddInterface.c b/src/CddInterface.c
+index da948e0..e025492 100644
+--- a/src/CddInterface.c
++++ b/src/CddInterface.c
+@@ -4,8 +4,8 @@
+
+ #include "src/compiled.h" /* GAP headers */
+
+-#include "setoper.h"
+-#include "cdd.h"
++#include "cddlib/setoper.h"
++#include "cddlib/cdd.h"
+
+ #include "gmp.h"
+
Deleted: gap-libsemigroups-1.3.4.patch
===================================================================
--- gap-libsemigroups-1.3.4.patch 2020-12-07 10:08:21 UTC (rev 771461)
+++ gap-libsemigroups-1.3.4.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -1,141 +0,0 @@
-diff --git a/src/pkg.cc b/src/pkg.cc
-index 31987a1c..cd94e0d9 100644
---- a/src/pkg.cc
-+++ b/src/pkg.cc
-@@ -35,10 +35,10 @@
- #include "libsemigroups/blocks.hpp"
- #include "libsemigroups/cong.hpp"
- #include "libsemigroups/froidure-pin.hpp"
--#include "libsemigroups/uf.hpp"
-+#include "libsemigroups/uf-old.hpp"
-
- using libsemigroups::Congruence;
--using libsemigroups::detail::UF;
-+using libsemigroups::detail::UFOld;
-
- #if !defined(SIZEOF_VOID_P)
- #error Something is wrong with this GAP installation: SIZEOF_VOID_P not defined
-@@ -102,7 +102,7 @@ void TSemiObjFreeFunc(Obj o) {
- SEMIGROUPS_ASSERT(TNUM_OBJ(o) == T_SEMI);
- switch (SUBTYPE_OF_T_SEMI(o)) {
- case T_SEMI_SUBTYPE_UF: {
-- delete CLASS_OBJ<UF*>(o);
-+ delete CLASS_OBJ<UFOld*>(o);
- break;
- }
- case T_SEMI_SUBTYPE_CONG: {
-@@ -157,7 +157,7 @@ void TSemiObjSaveFunc(Obj o) {
-
- switch (SUBTYPE_OF_T_SEMI(o)) {
- case T_SEMI_SUBTYPE_UF: {
-- UF* uf = CLASS_OBJ<UF*>(o);
-+ UFOld* uf = CLASS_OBJ<UFOld*>(o);
- SaveUInt(uf->get_size());
- for (size_t i = 0; i < uf->get_size(); i++) {
- SaveUInt(uf->find(i));
-@@ -196,7 +196,7 @@ void TSemiObjLoadFunc(Obj o) {
- for (size_t i = 0; i < size; i++) {
- table->push_back(LoadUInt());
- }
-- ADDR_OBJ(o)[1] = reinterpret_cast<Obj>(new UF(*table));
-+ ADDR_OBJ(o)[1] = reinterpret_cast<Obj>(new UFOld(*table));
- break;
- }
- case T_SEMI_SUBTYPE_CONG: {
-diff --git a/src/uf.cc b/src/uf.cc
-index b7fd7c96..7fa34162 100644
---- a/src/uf.cc
-+++ b/src/uf.cc
-@@ -26,28 +26,28 @@
- #include "semigroups-debug.h"
- #include "src/compiled.h"
-
--#include "libsemigroups/uf.hpp"
-+#include "libsemigroups/uf-old.hpp"
-
--using libsemigroups::detail::UF;
-+using libsemigroups::detail::UFOld;
-
- // GAP level functions
-
- Obj UF_NEW(Obj self, Obj size) {
- SEMIGROUPS_ASSERT(IS_INTOBJ(size) && INT_INTOBJ(size) > 0);
-- return OBJ_CLASS(new UF(INT_INTOBJ(size)), T_SEMI_SUBTYPE_UF);
-+ return OBJ_CLASS(new UFOld(INT_INTOBJ(size)), T_SEMI_SUBTYPE_UF);
- }
-
- Obj UF_COPY(Obj self, Obj uf) {
-- return OBJ_CLASS(new UF(*CLASS_OBJ<UF*>(uf)), T_SEMI_SUBTYPE_UF);
-+ return OBJ_CLASS(new UFOld(*CLASS_OBJ<UFOld*>(uf)), T_SEMI_SUBTYPE_UF);
- }
-
- Obj UF_SIZE(Obj self, Obj uf) {
-- return INTOBJ_INT(CLASS_OBJ<UF*>(uf)->get_size());
-+ return INTOBJ_INT(CLASS_OBJ<UFOld*>(uf)->get_size());
- }
-
- Obj UF_FIND(Obj self, Obj uf, Obj i) {
- SEMIGROUPS_ASSERT(IS_INTOBJ(i) && INT_INTOBJ(i) > 0);
-- return INTOBJ_INT(CLASS_OBJ<UF*>(uf)->find(INT_INTOBJ(i) - 1) + 1);
-+ return INTOBJ_INT(CLASS_OBJ<UFOld*>(uf)->find(INT_INTOBJ(i) - 1) + 1);
- }
-
- Obj UF_UNION(Obj self, Obj uf, Obj pair) {
-@@ -56,18 +56,18 @@ Obj UF_UNION(Obj self, Obj uf, Obj pair) {
- && INT_INTOBJ(ELM_PLIST(pair, 1)) > 0);
- SEMIGROUPS_ASSERT(IS_INTOBJ(ELM_PLIST(pair, 2))
- && INT_INTOBJ(ELM_PLIST(pair, 2)) > 0);
-- CLASS_OBJ<UF*>(uf)->unite(INT_INTOBJ(ELM_PLIST(pair, 1)) - 1,
-+ CLASS_OBJ<UFOld*>(uf)->unite(INT_INTOBJ(ELM_PLIST(pair, 1)) - 1,
- INT_INTOBJ(ELM_PLIST(pair, 2)) - 1);
- return 0L;
- }
-
- Obj UF_FLATTEN(Obj self, Obj uf) {
-- CLASS_OBJ<UF*>(uf)->flatten();
-+ CLASS_OBJ<UFOld*>(uf)->flatten();
- return 0L;
- }
-
- Obj UF_TABLE(Obj self, Obj uf) {
-- UF::table_type* table = CLASS_OBJ<UF*>(uf)->get_table();
-+ UFOld::table_type* table = CLASS_OBJ<UFOld*>(uf)->get_table();
- size_t size = table->size();
- Obj gap_table = NEW_PLIST_IMM(T_PLIST_CYC, size);
- // IMMUTABLE since it should not be altered on the GAP level
-@@ -79,7 +79,7 @@ Obj UF_TABLE(Obj self, Obj uf) {
- }
-
- Obj UF_BLOCKS(Obj self, Obj uf) {
-- UF::blocks_type const* blocks = CLASS_OBJ<UF*>(uf)->get_blocks();
-+ UFOld::blocks_type const* blocks = CLASS_OBJ<UFOld*>(uf)->get_blocks();
- size_t size = blocks->size();
- size_t i, j;
-
-@@ -105,13 +105,13 @@ Obj UF_BLOCKS(Obj self, Obj uf) {
- gap_int_t UF_NR_BLOCKS(Obj self, Obj uf) {
- SEMIGROUPS_ASSERT(TNUM_OBJ(uf) == T_SEMI
- && SUBTYPE_OF_T_SEMI(uf) == T_SEMI_SUBTYPE_UF);
-- return INTOBJ_INT(CLASS_OBJ<UF*>(uf)->nr_blocks());
-+ return INTOBJ_INT(CLASS_OBJ<UFOld*>(uf)->nr_blocks());
- }
-
- gap_list_t UF_BLOCK_REPS(Obj self, Obj uf) {
- SEMIGROUPS_ASSERT(TNUM_OBJ(uf) == T_SEMI
- && SUBTYPE_OF_T_SEMI(uf) == T_SEMI_SUBTYPE_UF);
-- UF* uf_cpp = CLASS_OBJ<UF*>(uf);
-+ UFOld* uf_cpp = CLASS_OBJ<UFOld*>(uf);
- uf_cpp->reset_next_rep();
- size_t next_rep = uf_cpp->next_rep();
-
-@@ -132,8 +132,8 @@ Obj UF_JOIN(Obj self, Obj uf1, Obj uf2) {
- SEMIGROUPS_ASSERT(TNUM_OBJ(uf2) == T_SEMI
- && SUBTYPE_OF_T_SEMI(uf2) == T_SEMI_SUBTYPE_UF);
- SEMIGROUPS_ASSERT(CLASS_OBJ<UF*>(uf1)->get_size()
-- == CLASS_OBJ<UF*>(uf2)->get_size());
-+ == CLASS_OBJ<UFOld*>(uf2)->get_size());
- Obj uf_join = UF_COPY(self, uf1);
-- CLASS_OBJ<UF*>(uf_join)->join(CLASS_OBJ<UF*>(uf2));
-+ CLASS_OBJ<UFOld*>(uf_join)->join(CLASS_OBJ<UFOld*>(uf2));
- return uf_join;
- }
Copied: gap/repos/community-x86_64/gap-libsemigroups-1.3.4.patch (from rev 771461, gap/trunk/gap-libsemigroups-1.3.4.patch)
===================================================================
--- gap-libsemigroups-1.3.4.patch (rev 0)
+++ gap-libsemigroups-1.3.4.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -0,0 +1,141 @@
+diff --git a/src/pkg.cc b/src/pkg.cc
+index 31987a1c..cd94e0d9 100644
+--- a/src/pkg.cc
++++ b/src/pkg.cc
+@@ -35,10 +35,10 @@
+ #include "libsemigroups/blocks.hpp"
+ #include "libsemigroups/cong.hpp"
+ #include "libsemigroups/froidure-pin.hpp"
+-#include "libsemigroups/uf.hpp"
++#include "libsemigroups/uf-old.hpp"
+
+ using libsemigroups::Congruence;
+-using libsemigroups::detail::UF;
++using libsemigroups::detail::UFOld;
+
+ #if !defined(SIZEOF_VOID_P)
+ #error Something is wrong with this GAP installation: SIZEOF_VOID_P not defined
+@@ -102,7 +102,7 @@ void TSemiObjFreeFunc(Obj o) {
+ SEMIGROUPS_ASSERT(TNUM_OBJ(o) == T_SEMI);
+ switch (SUBTYPE_OF_T_SEMI(o)) {
+ case T_SEMI_SUBTYPE_UF: {
+- delete CLASS_OBJ<UF*>(o);
++ delete CLASS_OBJ<UFOld*>(o);
+ break;
+ }
+ case T_SEMI_SUBTYPE_CONG: {
+@@ -157,7 +157,7 @@ void TSemiObjSaveFunc(Obj o) {
+
+ switch (SUBTYPE_OF_T_SEMI(o)) {
+ case T_SEMI_SUBTYPE_UF: {
+- UF* uf = CLASS_OBJ<UF*>(o);
++ UFOld* uf = CLASS_OBJ<UFOld*>(o);
+ SaveUInt(uf->get_size());
+ for (size_t i = 0; i < uf->get_size(); i++) {
+ SaveUInt(uf->find(i));
+@@ -196,7 +196,7 @@ void TSemiObjLoadFunc(Obj o) {
+ for (size_t i = 0; i < size; i++) {
+ table->push_back(LoadUInt());
+ }
+- ADDR_OBJ(o)[1] = reinterpret_cast<Obj>(new UF(*table));
++ ADDR_OBJ(o)[1] = reinterpret_cast<Obj>(new UFOld(*table));
+ break;
+ }
+ case T_SEMI_SUBTYPE_CONG: {
+diff --git a/src/uf.cc b/src/uf.cc
+index b7fd7c96..7fa34162 100644
+--- a/src/uf.cc
++++ b/src/uf.cc
+@@ -26,28 +26,28 @@
+ #include "semigroups-debug.h"
+ #include "src/compiled.h"
+
+-#include "libsemigroups/uf.hpp"
++#include "libsemigroups/uf-old.hpp"
+
+-using libsemigroups::detail::UF;
++using libsemigroups::detail::UFOld;
+
+ // GAP level functions
+
+ Obj UF_NEW(Obj self, Obj size) {
+ SEMIGROUPS_ASSERT(IS_INTOBJ(size) && INT_INTOBJ(size) > 0);
+- return OBJ_CLASS(new UF(INT_INTOBJ(size)), T_SEMI_SUBTYPE_UF);
++ return OBJ_CLASS(new UFOld(INT_INTOBJ(size)), T_SEMI_SUBTYPE_UF);
+ }
+
+ Obj UF_COPY(Obj self, Obj uf) {
+- return OBJ_CLASS(new UF(*CLASS_OBJ<UF*>(uf)), T_SEMI_SUBTYPE_UF);
++ return OBJ_CLASS(new UFOld(*CLASS_OBJ<UFOld*>(uf)), T_SEMI_SUBTYPE_UF);
+ }
+
+ Obj UF_SIZE(Obj self, Obj uf) {
+- return INTOBJ_INT(CLASS_OBJ<UF*>(uf)->get_size());
++ return INTOBJ_INT(CLASS_OBJ<UFOld*>(uf)->get_size());
+ }
+
+ Obj UF_FIND(Obj self, Obj uf, Obj i) {
+ SEMIGROUPS_ASSERT(IS_INTOBJ(i) && INT_INTOBJ(i) > 0);
+- return INTOBJ_INT(CLASS_OBJ<UF*>(uf)->find(INT_INTOBJ(i) - 1) + 1);
++ return INTOBJ_INT(CLASS_OBJ<UFOld*>(uf)->find(INT_INTOBJ(i) - 1) + 1);
+ }
+
+ Obj UF_UNION(Obj self, Obj uf, Obj pair) {
+@@ -56,18 +56,18 @@ Obj UF_UNION(Obj self, Obj uf, Obj pair) {
+ && INT_INTOBJ(ELM_PLIST(pair, 1)) > 0);
+ SEMIGROUPS_ASSERT(IS_INTOBJ(ELM_PLIST(pair, 2))
+ && INT_INTOBJ(ELM_PLIST(pair, 2)) > 0);
+- CLASS_OBJ<UF*>(uf)->unite(INT_INTOBJ(ELM_PLIST(pair, 1)) - 1,
++ CLASS_OBJ<UFOld*>(uf)->unite(INT_INTOBJ(ELM_PLIST(pair, 1)) - 1,
+ INT_INTOBJ(ELM_PLIST(pair, 2)) - 1);
+ return 0L;
+ }
+
+ Obj UF_FLATTEN(Obj self, Obj uf) {
+- CLASS_OBJ<UF*>(uf)->flatten();
++ CLASS_OBJ<UFOld*>(uf)->flatten();
+ return 0L;
+ }
+
+ Obj UF_TABLE(Obj self, Obj uf) {
+- UF::table_type* table = CLASS_OBJ<UF*>(uf)->get_table();
++ UFOld::table_type* table = CLASS_OBJ<UFOld*>(uf)->get_table();
+ size_t size = table->size();
+ Obj gap_table = NEW_PLIST_IMM(T_PLIST_CYC, size);
+ // IMMUTABLE since it should not be altered on the GAP level
+@@ -79,7 +79,7 @@ Obj UF_TABLE(Obj self, Obj uf) {
+ }
+
+ Obj UF_BLOCKS(Obj self, Obj uf) {
+- UF::blocks_type const* blocks = CLASS_OBJ<UF*>(uf)->get_blocks();
++ UFOld::blocks_type const* blocks = CLASS_OBJ<UFOld*>(uf)->get_blocks();
+ size_t size = blocks->size();
+ size_t i, j;
+
+@@ -105,13 +105,13 @@ Obj UF_BLOCKS(Obj self, Obj uf) {
+ gap_int_t UF_NR_BLOCKS(Obj self, Obj uf) {
+ SEMIGROUPS_ASSERT(TNUM_OBJ(uf) == T_SEMI
+ && SUBTYPE_OF_T_SEMI(uf) == T_SEMI_SUBTYPE_UF);
+- return INTOBJ_INT(CLASS_OBJ<UF*>(uf)->nr_blocks());
++ return INTOBJ_INT(CLASS_OBJ<UFOld*>(uf)->nr_blocks());
+ }
+
+ gap_list_t UF_BLOCK_REPS(Obj self, Obj uf) {
+ SEMIGROUPS_ASSERT(TNUM_OBJ(uf) == T_SEMI
+ && SUBTYPE_OF_T_SEMI(uf) == T_SEMI_SUBTYPE_UF);
+- UF* uf_cpp = CLASS_OBJ<UF*>(uf);
++ UFOld* uf_cpp = CLASS_OBJ<UFOld*>(uf);
+ uf_cpp->reset_next_rep();
+ size_t next_rep = uf_cpp->next_rep();
+
+@@ -132,8 +132,8 @@ Obj UF_JOIN(Obj self, Obj uf1, Obj uf2) {
+ SEMIGROUPS_ASSERT(TNUM_OBJ(uf2) == T_SEMI
+ && SUBTYPE_OF_T_SEMI(uf2) == T_SEMI_SUBTYPE_UF);
+ SEMIGROUPS_ASSERT(CLASS_OBJ<UF*>(uf1)->get_size()
+- == CLASS_OBJ<UF*>(uf2)->get_size());
++ == CLASS_OBJ<UFOld*>(uf2)->get_size());
+ Obj uf_join = UF_COPY(self, uf1);
+- CLASS_OBJ<UF*>(uf_join)->join(CLASS_OBJ<UF*>(uf2));
++ CLASS_OBJ<UFOld*>(uf_join)->join(CLASS_OBJ<UFOld*>(uf2));
+ return uf_join;
+ }
Deleted: gap-libsemigroups-1.3.patch
===================================================================
--- gap-libsemigroups-1.3.patch 2020-12-07 10:08:21 UTC (rev 771461)
+++ gap-libsemigroups-1.3.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -1,12 +0,0 @@
-diff --git a/src/semigrp.h b/src/semigrp.h
-index f2d5463a..327a7f14 100644
---- a/src/semigrp.h
-+++ b/src/semigrp.h
-@@ -23,6 +23,7 @@
-
- #include "compiled.h" // GAP headers
-
-+#include "libsemigroups/element-adapters.hpp"
- #include "libsemigroups/froidure-pin.hpp"
-
- #include "converter.h"
Copied: gap/repos/community-x86_64/gap-libsemigroups-1.3.patch (from rev 771461, gap/trunk/gap-libsemigroups-1.3.patch)
===================================================================
--- gap-libsemigroups-1.3.patch (rev 0)
+++ gap-libsemigroups-1.3.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -0,0 +1,12 @@
+diff --git a/src/semigrp.h b/src/semigrp.h
+index f2d5463a..327a7f14 100644
+--- a/src/semigrp.h
++++ b/src/semigrp.h
+@@ -23,6 +23,7 @@
+
+ #include "compiled.h" // GAP headers
+
++#include "libsemigroups/element-adapters.hpp"
+ #include "libsemigroups/froidure-pin.hpp"
+
+ #include "converter.h"
Deleted: gap-normaliz-3.8.8.patch
===================================================================
--- gap-normaliz-3.8.8.patch 2020-12-07 10:08:21 UTC (rev 771461)
+++ gap-normaliz-3.8.8.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -1,13 +0,0 @@
-diff --git a/src/normaliz.cc b/src/normaliz.cc
-index 979152d..f4a5748 100644
---- a/src/normaliz.cc
-+++ b/src/normaliz.cc
-@@ -26,7 +26,7 @@
- #include "compiled.h" // GAP headers
-
- #include "libnormaliz/cone.h"
--#include "libnormaliz/map_operations.h"
-+#include "libnormaliz/list_and_map_operations.h"
-
- #include <vector>
-
Copied: gap/repos/community-x86_64/gap-normaliz-3.8.8.patch (from rev 771461, gap/trunk/gap-normaliz-3.8.8.patch)
===================================================================
--- gap-normaliz-3.8.8.patch (rev 0)
+++ gap-normaliz-3.8.8.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -0,0 +1,13 @@
+diff --git a/src/normaliz.cc b/src/normaliz.cc
+index 979152d..f4a5748 100644
+--- a/src/normaliz.cc
++++ b/src/normaliz.cc
+@@ -26,7 +26,7 @@
+ #include "compiled.h" // GAP headers
+
+ #include "libnormaliz/cone.h"
+-#include "libnormaliz/map_operations.h"
++#include "libnormaliz/list_and_map_operations.h"
+
+ #include <vector>
+
Deleted: gap-polymake-4.0.patch
===================================================================
--- gap-polymake-4.0.patch 2020-12-07 10:08:21 UTC (rev 771461)
+++ gap-polymake-4.0.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -1,450 +0,0 @@
-diff --git a/PolymakeInterface/src/polymake_cone.cpp b/PolymakeInterface/src/polymake_cone.cpp
-index 6c17f49d..637266a0 100644
---- a/PolymakeInterface/src/polymake_cone.cpp
-+++ b/PolymakeInterface/src/polymake_cone.cpp
-@@ -110,16 +110,16 @@ Obj REAL_GENERATING_RAYS_OF_CONE( Polymake_Data* data, Obj cone){
- matr2 = -matr2;
- Obj RETLI3 = GAP_MATRIX_POLYMAKE_INTEGER_MATRIX( &matr2 );
-
-- int len1 = LEN_PLIST( RETLI1 );
-- int len2 = LEN_PLIST( RETLI2 );
-+ Int len1 = LEN_PLIST( RETLI1 );
-+ Int len2 = LEN_PLIST( RETLI2 );
-
- Obj RETLI = NEW_PLIST( T_PLIST, len1 + 2*len2 );
- SET_LEN_PLIST( RETLI, len1 + 2*len2 );
-
-- for( int i = 1; i <= len1; i++ )
-+ for( Int i = 1; i <= len1; i++ )
- SET_ELM_PLIST( RETLI, i, ELM_PLIST( RETLI1, i ) );
-
-- for( int i = 1; i <= len2; i++ ){
-+ for( Int i = 1; i <= len2; i++ ){
- SET_ELM_PLIST( RETLI, len1 + i, ELM_PLIST( RETLI2, i ) );
- SET_ELM_PLIST( RETLI, len1 + len2 + i, ELM_PLIST( RETLI3, i ) );
- }
-@@ -168,7 +168,7 @@ Obj REAL_HILBERT_BASIS_OF_CONE( Polymake_Data* data, Obj cone){
- polymake::Array<polymake::Matrix<polymake::Integer>> arr;
- try
- {
-- arr = coneobj->give("HILBERT_BASIS_GENERATORS");
-+ coneobj->give("HILBERT_BASIS_GENERATORS") >> arr;
- }
-
- POLYMAKE_GAP_CATCH
-@@ -232,16 +232,16 @@ Obj REAL_DEFINING_INEQUALITIES_OF_CONE( Polymake_Data* data, Obj cone){
- matr2 = -matr2;
- Obj RETLI3 = GAP_MATRIX_POLYMAKE_INTEGER_MATRIX( &matr2 );
-
-- int len1 = LEN_PLIST( RETLI1 );
-- int len2 = LEN_PLIST( RETLI2 );
-+ Int len1 = LEN_PLIST( RETLI1 );
-+ Int len2 = LEN_PLIST( RETLI2 );
-
- Obj RETLI = NEW_PLIST( T_PLIST, len1 + 2*len2 );
- SET_LEN_PLIST( RETLI, len1 + 2*len2 );
-
-- for( int i = 1; i <= len1; i++ )
-+ for( Int i = 1; i <= len1; i++ )
- SET_ELM_PLIST( RETLI, i, ELM_PLIST( RETLI1, i ) );
-
-- for( int i = 1; i <= len2; i++ ){
-+ for( Int i = 1; i <= len2; i++ ){
- SET_ELM_PLIST( RETLI, len1 + i, ELM_PLIST( RETLI2, i ) );
- SET_ELM_PLIST( RETLI, len1 + len2 + i, ELM_PLIST( RETLI3, i ) );
- }
-diff --git a/PolymakeInterface/src/polymake_data.cpp b/PolymakeInterface/src/polymake_data.cpp
-index 3fc25241..ea3a4ed7 100644
---- a/PolymakeInterface/src/polymake_data.cpp
-+++ b/PolymakeInterface/src/polymake_data.cpp
-@@ -50,7 +50,7 @@ Obj ExternalPolymakeObjectTypeFunc(Obj o) {
- void polymake_start( Polymake_Data* data ){
- if( ! data->initialized ){
- data->main_polymake_session = new polymake::Main;
-- data->main_polymake_scope = new polymake::perl::Scope(data->main_polymake_session->newScope());
-+ data->main_polymake_scope = new pm::perl::Scope(data->main_polymake_session->newScope());
- data->initialized = true;
- }
- return;
-diff --git a/PolymakeInterface/src/polymake_data.h b/PolymakeInterface/src/polymake_data.h
-index b7d678ed..fcc3543c 100644
---- a/PolymakeInterface/src/polymake_data.h
-+++ b/PolymakeInterface/src/polymake_data.h
-@@ -30,15 +30,15 @@ extern Obj TheTypeExternalPolymakeTropicalHypersurface;
- extern Obj TheTypeExternalPolymakeTropicalPolytope;
- extern Obj TheTypeExternalPolymakeMatroid;
-
--typedef pair<int, polymake::perl::Object*> object_pair;
--typedef polymake::perl::Object perlobj;
--typedef map<int, polymake::perl::Object*>::iterator iterator;
-+typedef pair<int, pm::perl::BigObject*> object_pair;
-+typedef pm::perl::BigObject perlobj;
-+typedef map<int, pm::perl::BigObject*>::iterator iterator;
-
- struct Polymake_Data {
- bool initialized;
- polymake::Main *main_polymake_session;
-- polymake::perl::Scope *main_polymake_scope;
-- map<int, polymake::perl::Object*> *polymake_objects;
-+ pm::perl::Scope *main_polymake_scope;
-+ map<int, pm::perl::BigObject*> *polymake_objects;
- int new_polymake_object_number;
- };
-
-diff --git a/PolymakeInterface/src/polymake_fan.cpp b/PolymakeInterface/src/polymake_fan.cpp
-index 6ea650c8..43c2e982 100644
---- a/PolymakeInterface/src/polymake_fan.cpp
-+++ b/PolymakeInterface/src/polymake_fan.cpp
-@@ -8,14 +8,14 @@ Obj REAL_FAN_BY_CONES( Polymake_Data* data, Obj cones ){
- return NULL;
- }
-
-- int numberofcones = LEN_PLIST( cones );
-+ Int numberofcones = LEN_PLIST( cones );
- Obj akt;
- Obj elem;
- Obj numb;
-- int numberofrays = 0;
-+ Int numberofrays = 0;
- data->main_polymake_session->set_application("fan");
-
-- for(int i=1;i<=numberofcones;i++){
-+ for(Int i=1;i<=numberofcones;i++){
- akt = ELM_PLIST( cones, i );
- #ifdef MORE_TESTS
- if( !IS_PLIST( akt ) ){
-@@ -27,15 +27,15 @@ Obj REAL_FAN_BY_CONES( Polymake_Data* data, Obj cones ){
-
- }
-
-- int dimension = LEN_PLIST( ELM_PLIST( ELM_PLIST( cones, 1 ), 1 ) );
-- polymake::Array<polymake::Set<int>> incMatr(numberofcones);
-+ Int dimension = LEN_PLIST( ELM_PLIST( ELM_PLIST( cones, 1 ), 1 ) );
-+ polymake::Array<polymake::Set<Int>> incMatr(numberofcones);
- polymake::Matrix<polymake::Rational> matr(numberofrays+1,dimension);
-- int raycounter = 1;
-- for(int i = 1; i <= numberofcones; i++){
-+ Int raycounter = 1;
-+ for(Int i = 1; i <= numberofcones; i++){
- akt = ELM_PLIST( cones, i );
-- for( int j = 1; j <= LEN_PLIST( akt ); j++){
-+ for( Int j = 1; j <= LEN_PLIST( akt ); j++){
- elem = ELM_PLIST( akt, j );
-- for( int k = 1; k <= LEN_PLIST( elem ); k++){
-+ for( Int k = 1; k <= LEN_PLIST( elem ); k++){
- numb = ELM_PLIST( elem, k );
-
- #ifdef MORE_TESTS
-@@ -75,9 +75,9 @@ Obj REAL_FAN_BY_RAYS_AND_CONES( Polymake_Data* data, Obj rays, Obj cones ){
-
- POLYMAKE_RATIONAL_MATRIX_GAP_MATRIX( &matr, rays );
-
-- int numberofcones = LEN_PLIST( cones );
-- polymake::Array<polymake::Set<int>> incMatr(numberofcones);
-- for(int i=0;i<numberofcones;i++){
-+ Int numberofcones = LEN_PLIST( cones );
-+ polymake::Array<polymake::Set<Int>> incMatr(numberofcones);
-+ for(Int i=0;i<numberofcones;i++){
- akt = ELM_PLIST( cones, i+1 );
- #ifdef MORE_TESTS
- if( !IS_PLIST( akt ) ){
-@@ -85,7 +85,7 @@ Obj REAL_FAN_BY_RAYS_AND_CONES( Polymake_Data* data, Obj rays, Obj cones ){
- return NULL;
- }
- #endif
-- for(int j = 0; j < LEN_PLIST( akt ) ; j++){
-+ for(Int j = 0; j < LEN_PLIST( akt ) ; j++){
- numb = ELM_PLIST( akt, j+1 );
- #ifdef MORE_TESTS
- if( ! IS_INTOBJ( numb ) ){
-@@ -93,7 +93,7 @@ Obj REAL_FAN_BY_RAYS_AND_CONES( Polymake_Data* data, Obj rays, Obj cones ){
- return NULL;
- }
- #endif
-- incMatr[i] += static_cast<int>(INT_INTOBJ( numb ) - 1);
-+ incMatr[i] += static_cast<Int>(INT_INTOBJ( numb ) - 1);
- }
- }
-
-@@ -123,9 +123,9 @@ Obj REAL_FAN_BY_RAYS_AND_CONES_UNSAVE( Polymake_Data* data, Obj rays, Obj cones
- polymake::Matrix<polymake::Rational> matr(0,0);
- POLYMAKE_RATIONAL_MATRIX_GAP_MATRIX( &matr, rays );
-
-- int numberofcones = LEN_PLIST( cones );
-+ Int numberofcones = LEN_PLIST( cones );
- polymake::IncidenceMatrix<> incMatr(numberofcones,matr.rows());
-- for(int i=0;i<numberofcones;i++){
-+ for(Int i=0;i<numberofcones;i++){
- akt = ELM_PLIST( cones, i+1 );
- #ifdef MORE_TESTS
- if( !IS_PLIST( akt ) ){
-@@ -133,7 +133,7 @@ Obj REAL_FAN_BY_RAYS_AND_CONES_UNSAVE( Polymake_Data* data, Obj rays, Obj cones
- return NULL;
- }
- #endif
-- for(int j = 0; j < LEN_PLIST( akt ) ; j++){
-+ for(Int j = 0; j < LEN_PLIST( akt ) ; j++){
- numb = ELM_PLIST( akt, j+1 );
- #ifdef MORE_TESTS
- if( ! IS_INTOBJ( numb ) ){
-@@ -275,8 +275,8 @@ Obj REAL_F_VECTOR( Polymake_Data* data, Obj fan){
- UInt matr_rows = matr.size();
- Obj RETLI = NEW_PLIST( T_PLIST , matr.size() );
- SET_LEN_PLIST( RETLI , matr_rows );
-- for(int i = 0;i<matr.size(); i++){
-- SET_ELM_PLIST(RETLI,i+1,INTOBJ_INT( static_cast<int>(matr[i]) ));
-+ for(Int i = 0;i<matr.size(); i++){
-+ SET_ELM_PLIST(RETLI,i+1,INTOBJ_INT( static_cast<Int>(matr[i]) ));
- CHANGED_BAG(RETLI);
- }
- return RETLI;
-diff --git a/PolymakeInterface/src/polymake_fktn.cpp b/PolymakeInterface/src/polymake_fktn.cpp
-index c8e6ad8b..6ed28e25 100644
---- a/PolymakeInterface/src/polymake_fktn.cpp
-+++ b/PolymakeInterface/src/polymake_fktn.cpp
-@@ -120,12 +120,12 @@ Obj REAL_POLYMAKE_SKETCH_WITH_OPTIONS( Polymake_Data* data, Obj cone, Obj filena
- #endif
- perlobj* coneobj = PERLOBJ_POLYMAKEOBJ( cone );
- data->main_polymake_session->set_application_of(*coneobj);
-- polymake::perl::OptionSet sketch_options;
-+ pm::perl::OptionSet sketch_options;
- if( IS_STRING( filename ) ){
- sketch_options["File"] << CSTR_STRING( filename );
- }
-
-- polymake::perl::OptionSet visual_options;
-+ pm::perl::OptionSet visual_options;
- if( IS_PLIST( options ) ){
- for( int i = 1; i <= LEN_PLIST( options ); i++ ){
- Obj current_option = ELM_PLIST( options, i );
-diff --git a/PolymakeInterface/src/polymake_fktn.h b/PolymakeInterface/src/polymake_fktn.h
-index cabc6e12..e372c95e 100644
---- a/PolymakeInterface/src/polymake_fktn.h
-+++ b/PolymakeInterface/src/polymake_fktn.h
-@@ -23,7 +23,7 @@ using std::pair;
- // load the package.
-
- //static polymake::Main *main_polymake_session;
--//static polymake::perl::Scope *main_polymake_scope;
-+//static pm::perl::Scope *main_polymake_scope;
- //static map<int, pm::perl::Object*> *polymake_objects;
- //static int new_polymake_object_number;
-
-diff --git a/PolymakeInterface/src/polymake_main.cpp b/PolymakeInterface/src/polymake_main.cpp
-index d4f45650..a114b932 100644
---- a/PolymakeInterface/src/polymake_main.cpp
-+++ b/PolymakeInterface/src/polymake_main.cpp
-@@ -490,7 +490,7 @@ Obj FuncPOLYMAKE_RESET_WORKSPACE( Obj self ){
-
- delete akt_data.main_polymake_session;
- akt_data.main_polymake_session = new polymake::Main;
-- akt_data.main_polymake_scope = new polymake::perl::Scope(akt_data.main_polymake_session->newScope());
-+ akt_data.main_polymake_scope = new pm::perl::Scope(akt_data.main_polymake_session->newScope());
-
- return True;
-
-@@ -827,7 +827,7 @@ static Int InitLibrary ( StructInitInfo *module )
- // // We start with initialising the polymake classes.
- // akt_data.initialized = false;
- // // akt_data.main_polymake_session = new polymake::Main;
--// // akt_data.main_polymake_scope = new polymake::perl::Scope(akt_data.main_polymake_session->newScope());
-+// // akt_data.main_polymake_scope = new pm::perl::Scope(akt_data.main_polymake_session->newScope());
- // // akt_data.main_polymake_session->set_application("polytope");
- // // akt_data.main_polymake_session->set_custom("$Verbose::scheduler",1);
- // //This is pretty slow.
-diff --git a/PolymakeInterface/src/polymake_matroid.cpp b/PolymakeInterface/src/polymake_matroid.cpp
-index 5a92c09e..98d91896 100644
---- a/PolymakeInterface/src/polymake_matroid.cpp
-+++ b/PolymakeInterface/src/polymake_matroid.cpp
-@@ -30,17 +30,17 @@ Obj REAL_CREATE_MATROID_ABSTRACT( Polymake_Data* data, Obj size, Obj elements ){
- return NULL;
- }
-
-- int matroid_size = INT_INTOBJ( size );
-+ Int matroid_size = INT_INTOBJ( size );
-
- if( ! IS_PLIST( elements ) ){
- ErrorMayQuit( "second argument is not a plain list", 0, 0);
- return NULL;
- }
-
-- int nr_of_basis = LEN_PLIST( elements );
-- polymake::Array<polymake::Set<int>> incMatr(nr_of_basis);
-+ Int nr_of_basis = LEN_PLIST( elements );
-+ polymake::Array<polymake::Set<Int>> incMatr(nr_of_basis);
-
-- for( int current_basis=1;current_basis<=nr_of_basis;current_basis++){
-+ for( Int current_basis=1;current_basis<=nr_of_basis;current_basis++){
-
- Obj current_basis_list = ELM_PLIST( elements, current_basis );
-
-@@ -49,10 +49,10 @@ Obj REAL_CREATE_MATROID_ABSTRACT( Polymake_Data* data, Obj size, Obj elements ){
- return NULL;
- }
-
-- int current_length = LEN_PLIST( current_basis_list );
-+ Int current_length = LEN_PLIST( current_basis_list );
-
-- for( int i=1;i<=current_length;i++){
-- incMatr[current_basis] += static_cast<int>(INT_INTOBJ( ELM_PLIST( current_basis_list, i ) ) - 1);
-+ for( Int i=1;i<=current_length;i++){
-+ incMatr[current_basis] += static_cast<Int>(INT_INTOBJ( ELM_PLIST( current_basis_list, i ) ) - 1);
- }
-
- }
-diff --git a/PolymakeInterface/src/polymake_polytopes.cpp b/PolymakeInterface/src/polymake_polytopes.cpp
-index b82f9819..e7553ae5 100644
---- a/PolymakeInterface/src/polymake_polytopes.cpp
-+++ b/PolymakeInterface/src/polymake_polytopes.cpp
-@@ -11,7 +11,7 @@ Obj REAL_CREATE_POLYTOPE_BY_POINTS( Polymake_Data* data, Obj polytope ){
- }
- #endif
-
-- int len = LEN_PLIST( polytope );
-+ Int len = LEN_PLIST( polytope );
- Obj akt = ELM_PLIST( polytope, 1 );
- Obj elem;
-
-@@ -22,7 +22,7 @@ Obj REAL_CREATE_POLYTOPE_BY_POINTS( Polymake_Data* data, Obj polytope ){
- }
- #endif
-
-- int len_elem = LEN_PLIST( akt );
-+ Int len_elem = LEN_PLIST( akt );
- data->main_polymake_session->set_application("polytope");
-
- polymake::Matrix<polymake::Rational> matr(len,len_elem+1);
-@@ -96,7 +96,7 @@ Obj REAL_VERTICES_OF_POLYTOPE( Polymake_Data* data, Obj polytope){
- LIZeil = NEW_PLIST( T_PLIST, matr.cols()-1);
- SET_LEN_PLIST( LIZeil , matr_cols );
- for(int j = 1;j<matr.cols();j++){
-- SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<int>(matr(i,j))));
-+ SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<Int>(matr(i,j))));
- }
- SET_ELM_PLIST(RETLI,k,LIZeil);
- CHANGED_BAG(RETLI);
-@@ -123,7 +123,7 @@ Obj REAL_LATTICE_POINTS_OF_POLYTOPE( Polymake_Data* data, Obj polytope){
- data->main_polymake_session->set_application_of(*polyobj);
- polymake::Array<polymake::Matrix<polymake::Integer>> arr;
- try{
-- arr = polyobj->give("LATTICE_POINTS_GENERATORS");
-+ polyobj->give("LATTICE_POINTS_GENERATORS") >> arr;
- }
-
- POLYMAKE_GAP_CATCH
-@@ -138,7 +138,7 @@ Obj REAL_LATTICE_POINTS_OF_POLYTOPE( Polymake_Data* data, Obj polytope){
- LIZeil = NEW_PLIST( T_PLIST, matr.cols()-1);
- SET_LEN_PLIST( LIZeil , matr_cols );
- for(int j = 1;j<matr.cols();j++){
-- SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<int>(matr(i,j))));
-+ SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<Int>(matr(i,j))));
- }
- SET_ELM_PLIST(RETLI,i+1,LIZeil);
- CHANGED_BAG(RETLI);
-@@ -242,7 +242,7 @@ Obj REAL_INTERIOR_LATTICE_POINTS( Polymake_Data* data, Obj polytope){
- LIZeil = NEW_PLIST( T_PLIST, matr.cols()-1);
- SET_LEN_PLIST( LIZeil , matr_cols );
- for(int j = 1;j<matr.cols();j++){
-- SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<int>(matr(i,j))));
-+ SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<Int>(matr(i,j))));
- }
- SET_ELM_PLIST(RETLI,i+1,LIZeil);
- CHANGED_BAG(RETLI);
-@@ -327,7 +327,7 @@ Obj REAL_TAIL_CONE_OF_POLYTOPE( Polymake_Data* data, Obj polytope){
- LIZeil = NEW_PLIST( T_PLIST, matr.cols()-1);
- SET_LEN_PLIST( LIZeil , matr_cols );
- for(int j = 1;j<matr.cols();j++){
-- SET_ELM_PLIST(LIZeil,j, INTOBJ_INT( static_cast<int>(matr(i,j)) ) );
-+ SET_ELM_PLIST(LIZeil,j, INTOBJ_INT( static_cast<Int>(matr(i,j)) ) );
- }
- SET_ELM_PLIST(RETLI,k,LIZeil);
- CHANGED_BAG(RETLI);
-@@ -413,7 +413,7 @@ Obj REAL_LATTICE_POINTS_GENERATORS( Polymake_Data* data, Obj polytope ){
- data->main_polymake_session->set_application_of(*polyobj);
- polymake::Array<polymake::Matrix<polymake::Integer>> array;
- try{
-- array = polyobj->give("LATTICE_POINTS_GENERATORS");
-+ polyobj->give("LATTICE_POINTS_GENERATORS") >> array;
- }
-
- POLYMAKE_GAP_CATCH
-diff --git a/PolymakeInterface/src/polymake_templates.h b/PolymakeInterface/src/polymake_templates.h
-index 5acfb733..82445aa9 100644
---- a/PolymakeInterface/src/polymake_templates.h
-+++ b/PolymakeInterface/src/polymake_templates.h
-@@ -18,7 +18,7 @@ using std::pair;
- template<typename T>
- void POLYMAKE_RATIONAL_MATRIX_GAP_MATRIX( T* polymake_matrix, Obj gap_matrix ){
-
-- int rows = LEN_PLIST( gap_matrix );
-+ Int rows = LEN_PLIST( gap_matrix );
- Obj current = ELM_PLIST( gap_matrix, 1 );
- Obj elem;
-
-@@ -29,7 +29,7 @@ void POLYMAKE_RATIONAL_MATRIX_GAP_MATRIX( T* polymake_matrix, Obj gap_matrix ){
- }
- #endif
-
-- int columns = LEN_PLIST( current );
-+ Int columns = LEN_PLIST( current );
-
- polymake_matrix->resize( rows, columns );
-
-@@ -72,7 +72,7 @@ Obj GAP_MATRIX_POLYMAKE_INTEGER_MATRIX( T* polymake_matrix ){
- LIZeil = NEW_PLIST( T_PLIST, polymake_matrix->cols() );
- SET_LEN_PLIST( LIZeil ,matr_cols);
- for(int j = 0;j<polymake_matrix->cols();j++){
-- SET_ELM_PLIST(LIZeil,j+1,INTOBJ_INT(static_cast<int>((*polymake_matrix)(i,j))));
-+ SET_ELM_PLIST(LIZeil,j+1,INTOBJ_INT(static_cast<Int>((*polymake_matrix)(i,j))));
- }
- SET_ELM_PLIST(RETLI,i+1,LIZeil);
- }
-diff --git a/PolymakeInterface/src/polymake_tropical.cpp b/PolymakeInterface/src/polymake_tropical.cpp
-index cf3134d0..3d26fc61 100644
---- a/PolymakeInterface/src/polymake_tropical.cpp
-+++ b/PolymakeInterface/src/polymake_tropical.cpp
-@@ -11,7 +11,7 @@ Obj REAL_TROPICAL_HYPERSURFACE_BY_MONOMS_AND_COEFFICIENTS( Polymake_Data* data,
- }
- #endif
-
-- int len = LEN_PLIST( monomials );
-+ Int len = LEN_PLIST( monomials );
- Obj akt = ELM_PLIST( monomials, 1 );
- Obj elem;
-
-@@ -30,13 +30,13 @@ Obj REAL_TROPICAL_HYPERSURFACE_BY_MONOMS_AND_COEFFICIENTS( Polymake_Data* data,
- #endif
-
-
-- int len_elem = LEN_PLIST( akt );
-+ Int len_elem = LEN_PLIST( akt );
- data->main_polymake_session->set_application("tropical");
-
-- polymake::Matrix<int> matr(len, len_elem);
-- polymake::Vector<int> coeff(len);
-+ polymake::Matrix<Int> matr(len, len_elem);
-+ polymake::Vector<Int> coeff(len);
-
-- for(int i=1;i<=len;i++){
-+ for(Int i=1;i<=len;i++){
- akt = ELM_PLIST( monomials, i );
- #ifdef MORE_TESTS
- if( !IS_PLIST( akt ) ){
-@@ -49,7 +49,7 @@ Obj REAL_TROPICAL_HYPERSURFACE_BY_MONOMS_AND_COEFFICIENTS( Polymake_Data* data,
- }
- #endif
-
-- for(int j = 1; j <= len_elem; j++){
-+ for(Int j = 1; j <= len_elem; j++){
- elem = ELM_PLIST( akt, j);
-
- #ifdef MORE_TESTS
-@@ -94,7 +94,7 @@ Obj REAL_MONOMIALS_OF_HYPERSURFACE( Polymake_Data* data, Obj hypersurf){
-
- perlobj* polyobj = PERLOBJ_POLYMAKEOBJ( hypersurf );
- data->main_polymake_session->set_application_of(*polyobj);
-- polymake::Matrix<int> matr;
-+ polymake::Matrix<Int> matr;
- try{
- polyobj->give("MONOMIALS") >> matr;
- }
Copied: gap/repos/community-x86_64/gap-polymake-4.0.patch (from rev 771461, gap/trunk/gap-polymake-4.0.patch)
===================================================================
--- gap-polymake-4.0.patch (rev 0)
+++ gap-polymake-4.0.patch 2020-12-07 10:08:47 UTC (rev 771462)
@@ -0,0 +1,450 @@
+diff --git a/PolymakeInterface/src/polymake_cone.cpp b/PolymakeInterface/src/polymake_cone.cpp
+index 6c17f49d..637266a0 100644
+--- a/PolymakeInterface/src/polymake_cone.cpp
++++ b/PolymakeInterface/src/polymake_cone.cpp
+@@ -110,16 +110,16 @@ Obj REAL_GENERATING_RAYS_OF_CONE( Polymake_Data* data, Obj cone){
+ matr2 = -matr2;
+ Obj RETLI3 = GAP_MATRIX_POLYMAKE_INTEGER_MATRIX( &matr2 );
+
+- int len1 = LEN_PLIST( RETLI1 );
+- int len2 = LEN_PLIST( RETLI2 );
++ Int len1 = LEN_PLIST( RETLI1 );
++ Int len2 = LEN_PLIST( RETLI2 );
+
+ Obj RETLI = NEW_PLIST( T_PLIST, len1 + 2*len2 );
+ SET_LEN_PLIST( RETLI, len1 + 2*len2 );
+
+- for( int i = 1; i <= len1; i++ )
++ for( Int i = 1; i <= len1; i++ )
+ SET_ELM_PLIST( RETLI, i, ELM_PLIST( RETLI1, i ) );
+
+- for( int i = 1; i <= len2; i++ ){
++ for( Int i = 1; i <= len2; i++ ){
+ SET_ELM_PLIST( RETLI, len1 + i, ELM_PLIST( RETLI2, i ) );
+ SET_ELM_PLIST( RETLI, len1 + len2 + i, ELM_PLIST( RETLI3, i ) );
+ }
+@@ -168,7 +168,7 @@ Obj REAL_HILBERT_BASIS_OF_CONE( Polymake_Data* data, Obj cone){
+ polymake::Array<polymake::Matrix<polymake::Integer>> arr;
+ try
+ {
+- arr = coneobj->give("HILBERT_BASIS_GENERATORS");
++ coneobj->give("HILBERT_BASIS_GENERATORS") >> arr;
+ }
+
+ POLYMAKE_GAP_CATCH
+@@ -232,16 +232,16 @@ Obj REAL_DEFINING_INEQUALITIES_OF_CONE( Polymake_Data* data, Obj cone){
+ matr2 = -matr2;
+ Obj RETLI3 = GAP_MATRIX_POLYMAKE_INTEGER_MATRIX( &matr2 );
+
+- int len1 = LEN_PLIST( RETLI1 );
+- int len2 = LEN_PLIST( RETLI2 );
++ Int len1 = LEN_PLIST( RETLI1 );
++ Int len2 = LEN_PLIST( RETLI2 );
+
+ Obj RETLI = NEW_PLIST( T_PLIST, len1 + 2*len2 );
+ SET_LEN_PLIST( RETLI, len1 + 2*len2 );
+
+- for( int i = 1; i <= len1; i++ )
++ for( Int i = 1; i <= len1; i++ )
+ SET_ELM_PLIST( RETLI, i, ELM_PLIST( RETLI1, i ) );
+
+- for( int i = 1; i <= len2; i++ ){
++ for( Int i = 1; i <= len2; i++ ){
+ SET_ELM_PLIST( RETLI, len1 + i, ELM_PLIST( RETLI2, i ) );
+ SET_ELM_PLIST( RETLI, len1 + len2 + i, ELM_PLIST( RETLI3, i ) );
+ }
+diff --git a/PolymakeInterface/src/polymake_data.cpp b/PolymakeInterface/src/polymake_data.cpp
+index 3fc25241..ea3a4ed7 100644
+--- a/PolymakeInterface/src/polymake_data.cpp
++++ b/PolymakeInterface/src/polymake_data.cpp
+@@ -50,7 +50,7 @@ Obj ExternalPolymakeObjectTypeFunc(Obj o) {
+ void polymake_start( Polymake_Data* data ){
+ if( ! data->initialized ){
+ data->main_polymake_session = new polymake::Main;
+- data->main_polymake_scope = new polymake::perl::Scope(data->main_polymake_session->newScope());
++ data->main_polymake_scope = new pm::perl::Scope(data->main_polymake_session->newScope());
+ data->initialized = true;
+ }
+ return;
+diff --git a/PolymakeInterface/src/polymake_data.h b/PolymakeInterface/src/polymake_data.h
+index b7d678ed..fcc3543c 100644
+--- a/PolymakeInterface/src/polymake_data.h
++++ b/PolymakeInterface/src/polymake_data.h
+@@ -30,15 +30,15 @@ extern Obj TheTypeExternalPolymakeTropicalHypersurface;
+ extern Obj TheTypeExternalPolymakeTropicalPolytope;
+ extern Obj TheTypeExternalPolymakeMatroid;
+
+-typedef pair<int, polymake::perl::Object*> object_pair;
+-typedef polymake::perl::Object perlobj;
+-typedef map<int, polymake::perl::Object*>::iterator iterator;
++typedef pair<int, pm::perl::BigObject*> object_pair;
++typedef pm::perl::BigObject perlobj;
++typedef map<int, pm::perl::BigObject*>::iterator iterator;
+
+ struct Polymake_Data {
+ bool initialized;
+ polymake::Main *main_polymake_session;
+- polymake::perl::Scope *main_polymake_scope;
+- map<int, polymake::perl::Object*> *polymake_objects;
++ pm::perl::Scope *main_polymake_scope;
++ map<int, pm::perl::BigObject*> *polymake_objects;
+ int new_polymake_object_number;
+ };
+
+diff --git a/PolymakeInterface/src/polymake_fan.cpp b/PolymakeInterface/src/polymake_fan.cpp
+index 6ea650c8..43c2e982 100644
+--- a/PolymakeInterface/src/polymake_fan.cpp
++++ b/PolymakeInterface/src/polymake_fan.cpp
+@@ -8,14 +8,14 @@ Obj REAL_FAN_BY_CONES( Polymake_Data* data, Obj cones ){
+ return NULL;
+ }
+
+- int numberofcones = LEN_PLIST( cones );
++ Int numberofcones = LEN_PLIST( cones );
+ Obj akt;
+ Obj elem;
+ Obj numb;
+- int numberofrays = 0;
++ Int numberofrays = 0;
+ data->main_polymake_session->set_application("fan");
+
+- for(int i=1;i<=numberofcones;i++){
++ for(Int i=1;i<=numberofcones;i++){
+ akt = ELM_PLIST( cones, i );
+ #ifdef MORE_TESTS
+ if( !IS_PLIST( akt ) ){
+@@ -27,15 +27,15 @@ Obj REAL_FAN_BY_CONES( Polymake_Data* data, Obj cones ){
+
+ }
+
+- int dimension = LEN_PLIST( ELM_PLIST( ELM_PLIST( cones, 1 ), 1 ) );
+- polymake::Array<polymake::Set<int>> incMatr(numberofcones);
++ Int dimension = LEN_PLIST( ELM_PLIST( ELM_PLIST( cones, 1 ), 1 ) );
++ polymake::Array<polymake::Set<Int>> incMatr(numberofcones);
+ polymake::Matrix<polymake::Rational> matr(numberofrays+1,dimension);
+- int raycounter = 1;
+- for(int i = 1; i <= numberofcones; i++){
++ Int raycounter = 1;
++ for(Int i = 1; i <= numberofcones; i++){
+ akt = ELM_PLIST( cones, i );
+- for( int j = 1; j <= LEN_PLIST( akt ); j++){
++ for( Int j = 1; j <= LEN_PLIST( akt ); j++){
+ elem = ELM_PLIST( akt, j );
+- for( int k = 1; k <= LEN_PLIST( elem ); k++){
++ for( Int k = 1; k <= LEN_PLIST( elem ); k++){
+ numb = ELM_PLIST( elem, k );
+
+ #ifdef MORE_TESTS
+@@ -75,9 +75,9 @@ Obj REAL_FAN_BY_RAYS_AND_CONES( Polymake_Data* data, Obj rays, Obj cones ){
+
+ POLYMAKE_RATIONAL_MATRIX_GAP_MATRIX( &matr, rays );
+
+- int numberofcones = LEN_PLIST( cones );
+- polymake::Array<polymake::Set<int>> incMatr(numberofcones);
+- for(int i=0;i<numberofcones;i++){
++ Int numberofcones = LEN_PLIST( cones );
++ polymake::Array<polymake::Set<Int>> incMatr(numberofcones);
++ for(Int i=0;i<numberofcones;i++){
+ akt = ELM_PLIST( cones, i+1 );
+ #ifdef MORE_TESTS
+ if( !IS_PLIST( akt ) ){
+@@ -85,7 +85,7 @@ Obj REAL_FAN_BY_RAYS_AND_CONES( Polymake_Data* data, Obj rays, Obj cones ){
+ return NULL;
+ }
+ #endif
+- for(int j = 0; j < LEN_PLIST( akt ) ; j++){
++ for(Int j = 0; j < LEN_PLIST( akt ) ; j++){
+ numb = ELM_PLIST( akt, j+1 );
+ #ifdef MORE_TESTS
+ if( ! IS_INTOBJ( numb ) ){
+@@ -93,7 +93,7 @@ Obj REAL_FAN_BY_RAYS_AND_CONES( Polymake_Data* data, Obj rays, Obj cones ){
+ return NULL;
+ }
+ #endif
+- incMatr[i] += static_cast<int>(INT_INTOBJ( numb ) - 1);
++ incMatr[i] += static_cast<Int>(INT_INTOBJ( numb ) - 1);
+ }
+ }
+
+@@ -123,9 +123,9 @@ Obj REAL_FAN_BY_RAYS_AND_CONES_UNSAVE( Polymake_Data* data, Obj rays, Obj cones
+ polymake::Matrix<polymake::Rational> matr(0,0);
+ POLYMAKE_RATIONAL_MATRIX_GAP_MATRIX( &matr, rays );
+
+- int numberofcones = LEN_PLIST( cones );
++ Int numberofcones = LEN_PLIST( cones );
+ polymake::IncidenceMatrix<> incMatr(numberofcones,matr.rows());
+- for(int i=0;i<numberofcones;i++){
++ for(Int i=0;i<numberofcones;i++){
+ akt = ELM_PLIST( cones, i+1 );
+ #ifdef MORE_TESTS
+ if( !IS_PLIST( akt ) ){
+@@ -133,7 +133,7 @@ Obj REAL_FAN_BY_RAYS_AND_CONES_UNSAVE( Polymake_Data* data, Obj rays, Obj cones
+ return NULL;
+ }
+ #endif
+- for(int j = 0; j < LEN_PLIST( akt ) ; j++){
++ for(Int j = 0; j < LEN_PLIST( akt ) ; j++){
+ numb = ELM_PLIST( akt, j+1 );
+ #ifdef MORE_TESTS
+ if( ! IS_INTOBJ( numb ) ){
+@@ -275,8 +275,8 @@ Obj REAL_F_VECTOR( Polymake_Data* data, Obj fan){
+ UInt matr_rows = matr.size();
+ Obj RETLI = NEW_PLIST( T_PLIST , matr.size() );
+ SET_LEN_PLIST( RETLI , matr_rows );
+- for(int i = 0;i<matr.size(); i++){
+- SET_ELM_PLIST(RETLI,i+1,INTOBJ_INT( static_cast<int>(matr[i]) ));
++ for(Int i = 0;i<matr.size(); i++){
++ SET_ELM_PLIST(RETLI,i+1,INTOBJ_INT( static_cast<Int>(matr[i]) ));
+ CHANGED_BAG(RETLI);
+ }
+ return RETLI;
+diff --git a/PolymakeInterface/src/polymake_fktn.cpp b/PolymakeInterface/src/polymake_fktn.cpp
+index c8e6ad8b..6ed28e25 100644
+--- a/PolymakeInterface/src/polymake_fktn.cpp
++++ b/PolymakeInterface/src/polymake_fktn.cpp
+@@ -120,12 +120,12 @@ Obj REAL_POLYMAKE_SKETCH_WITH_OPTIONS( Polymake_Data* data, Obj cone, Obj filena
+ #endif
+ perlobj* coneobj = PERLOBJ_POLYMAKEOBJ( cone );
+ data->main_polymake_session->set_application_of(*coneobj);
+- polymake::perl::OptionSet sketch_options;
++ pm::perl::OptionSet sketch_options;
+ if( IS_STRING( filename ) ){
+ sketch_options["File"] << CSTR_STRING( filename );
+ }
+
+- polymake::perl::OptionSet visual_options;
++ pm::perl::OptionSet visual_options;
+ if( IS_PLIST( options ) ){
+ for( int i = 1; i <= LEN_PLIST( options ); i++ ){
+ Obj current_option = ELM_PLIST( options, i );
+diff --git a/PolymakeInterface/src/polymake_fktn.h b/PolymakeInterface/src/polymake_fktn.h
+index cabc6e12..e372c95e 100644
+--- a/PolymakeInterface/src/polymake_fktn.h
++++ b/PolymakeInterface/src/polymake_fktn.h
+@@ -23,7 +23,7 @@ using std::pair;
+ // load the package.
+
+ //static polymake::Main *main_polymake_session;
+-//static polymake::perl::Scope *main_polymake_scope;
++//static pm::perl::Scope *main_polymake_scope;
+ //static map<int, pm::perl::Object*> *polymake_objects;
+ //static int new_polymake_object_number;
+
+diff --git a/PolymakeInterface/src/polymake_main.cpp b/PolymakeInterface/src/polymake_main.cpp
+index d4f45650..a114b932 100644
+--- a/PolymakeInterface/src/polymake_main.cpp
++++ b/PolymakeInterface/src/polymake_main.cpp
+@@ -490,7 +490,7 @@ Obj FuncPOLYMAKE_RESET_WORKSPACE( Obj self ){
+
+ delete akt_data.main_polymake_session;
+ akt_data.main_polymake_session = new polymake::Main;
+- akt_data.main_polymake_scope = new polymake::perl::Scope(akt_data.main_polymake_session->newScope());
++ akt_data.main_polymake_scope = new pm::perl::Scope(akt_data.main_polymake_session->newScope());
+
+ return True;
+
+@@ -827,7 +827,7 @@ static Int InitLibrary ( StructInitInfo *module )
+ // // We start with initialising the polymake classes.
+ // akt_data.initialized = false;
+ // // akt_data.main_polymake_session = new polymake::Main;
+-// // akt_data.main_polymake_scope = new polymake::perl::Scope(akt_data.main_polymake_session->newScope());
++// // akt_data.main_polymake_scope = new pm::perl::Scope(akt_data.main_polymake_session->newScope());
+ // // akt_data.main_polymake_session->set_application("polytope");
+ // // akt_data.main_polymake_session->set_custom("$Verbose::scheduler",1);
+ // //This is pretty slow.
+diff --git a/PolymakeInterface/src/polymake_matroid.cpp b/PolymakeInterface/src/polymake_matroid.cpp
+index 5a92c09e..98d91896 100644
+--- a/PolymakeInterface/src/polymake_matroid.cpp
++++ b/PolymakeInterface/src/polymake_matroid.cpp
+@@ -30,17 +30,17 @@ Obj REAL_CREATE_MATROID_ABSTRACT( Polymake_Data* data, Obj size, Obj elements ){
+ return NULL;
+ }
+
+- int matroid_size = INT_INTOBJ( size );
++ Int matroid_size = INT_INTOBJ( size );
+
+ if( ! IS_PLIST( elements ) ){
+ ErrorMayQuit( "second argument is not a plain list", 0, 0);
+ return NULL;
+ }
+
+- int nr_of_basis = LEN_PLIST( elements );
+- polymake::Array<polymake::Set<int>> incMatr(nr_of_basis);
++ Int nr_of_basis = LEN_PLIST( elements );
++ polymake::Array<polymake::Set<Int>> incMatr(nr_of_basis);
+
+- for( int current_basis=1;current_basis<=nr_of_basis;current_basis++){
++ for( Int current_basis=1;current_basis<=nr_of_basis;current_basis++){
+
+ Obj current_basis_list = ELM_PLIST( elements, current_basis );
+
+@@ -49,10 +49,10 @@ Obj REAL_CREATE_MATROID_ABSTRACT( Polymake_Data* data, Obj size, Obj elements ){
+ return NULL;
+ }
+
+- int current_length = LEN_PLIST( current_basis_list );
++ Int current_length = LEN_PLIST( current_basis_list );
+
+- for( int i=1;i<=current_length;i++){
+- incMatr[current_basis] += static_cast<int>(INT_INTOBJ( ELM_PLIST( current_basis_list, i ) ) - 1);
++ for( Int i=1;i<=current_length;i++){
++ incMatr[current_basis] += static_cast<Int>(INT_INTOBJ( ELM_PLIST( current_basis_list, i ) ) - 1);
+ }
+
+ }
+diff --git a/PolymakeInterface/src/polymake_polytopes.cpp b/PolymakeInterface/src/polymake_polytopes.cpp
+index b82f9819..e7553ae5 100644
+--- a/PolymakeInterface/src/polymake_polytopes.cpp
++++ b/PolymakeInterface/src/polymake_polytopes.cpp
+@@ -11,7 +11,7 @@ Obj REAL_CREATE_POLYTOPE_BY_POINTS( Polymake_Data* data, Obj polytope ){
+ }
+ #endif
+
+- int len = LEN_PLIST( polytope );
++ Int len = LEN_PLIST( polytope );
+ Obj akt = ELM_PLIST( polytope, 1 );
+ Obj elem;
+
+@@ -22,7 +22,7 @@ Obj REAL_CREATE_POLYTOPE_BY_POINTS( Polymake_Data* data, Obj polytope ){
+ }
+ #endif
+
+- int len_elem = LEN_PLIST( akt );
++ Int len_elem = LEN_PLIST( akt );
+ data->main_polymake_session->set_application("polytope");
+
+ polymake::Matrix<polymake::Rational> matr(len,len_elem+1);
+@@ -96,7 +96,7 @@ Obj REAL_VERTICES_OF_POLYTOPE( Polymake_Data* data, Obj polytope){
+ LIZeil = NEW_PLIST( T_PLIST, matr.cols()-1);
+ SET_LEN_PLIST( LIZeil , matr_cols );
+ for(int j = 1;j<matr.cols();j++){
+- SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<int>(matr(i,j))));
++ SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<Int>(matr(i,j))));
+ }
+ SET_ELM_PLIST(RETLI,k,LIZeil);
+ CHANGED_BAG(RETLI);
+@@ -123,7 +123,7 @@ Obj REAL_LATTICE_POINTS_OF_POLYTOPE( Polymake_Data* data, Obj polytope){
+ data->main_polymake_session->set_application_of(*polyobj);
+ polymake::Array<polymake::Matrix<polymake::Integer>> arr;
+ try{
+- arr = polyobj->give("LATTICE_POINTS_GENERATORS");
++ polyobj->give("LATTICE_POINTS_GENERATORS") >> arr;
+ }
+
+ POLYMAKE_GAP_CATCH
+@@ -138,7 +138,7 @@ Obj REAL_LATTICE_POINTS_OF_POLYTOPE( Polymake_Data* data, Obj polytope){
+ LIZeil = NEW_PLIST( T_PLIST, matr.cols()-1);
+ SET_LEN_PLIST( LIZeil , matr_cols );
+ for(int j = 1;j<matr.cols();j++){
+- SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<int>(matr(i,j))));
++ SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<Int>(matr(i,j))));
+ }
+ SET_ELM_PLIST(RETLI,i+1,LIZeil);
+ CHANGED_BAG(RETLI);
+@@ -242,7 +242,7 @@ Obj REAL_INTERIOR_LATTICE_POINTS( Polymake_Data* data, Obj polytope){
+ LIZeil = NEW_PLIST( T_PLIST, matr.cols()-1);
+ SET_LEN_PLIST( LIZeil , matr_cols );
+ for(int j = 1;j<matr.cols();j++){
+- SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<int>(matr(i,j))));
++ SET_ELM_PLIST(LIZeil,j,INTOBJ_INT(static_cast<Int>(matr(i,j))));
+ }
+ SET_ELM_PLIST(RETLI,i+1,LIZeil);
+ CHANGED_BAG(RETLI);
+@@ -327,7 +327,7 @@ Obj REAL_TAIL_CONE_OF_POLYTOPE( Polymake_Data* data, Obj polytope){
+ LIZeil = NEW_PLIST( T_PLIST, matr.cols()-1);
+ SET_LEN_PLIST( LIZeil , matr_cols );
+ for(int j = 1;j<matr.cols();j++){
+- SET_ELM_PLIST(LIZeil,j, INTOBJ_INT( static_cast<int>(matr(i,j)) ) );
++ SET_ELM_PLIST(LIZeil,j, INTOBJ_INT( static_cast<Int>(matr(i,j)) ) );
+ }
+ SET_ELM_PLIST(RETLI,k,LIZeil);
+ CHANGED_BAG(RETLI);
+@@ -413,7 +413,7 @@ Obj REAL_LATTICE_POINTS_GENERATORS( Polymake_Data* data, Obj polytope ){
+ data->main_polymake_session->set_application_of(*polyobj);
+ polymake::Array<polymake::Matrix<polymake::Integer>> array;
+ try{
+- array = polyobj->give("LATTICE_POINTS_GENERATORS");
++ polyobj->give("LATTICE_POINTS_GENERATORS") >> array;
+ }
+
+ POLYMAKE_GAP_CATCH
+diff --git a/PolymakeInterface/src/polymake_templates.h b/PolymakeInterface/src/polymake_templates.h
+index 5acfb733..82445aa9 100644
+--- a/PolymakeInterface/src/polymake_templates.h
++++ b/PolymakeInterface/src/polymake_templates.h
+@@ -18,7 +18,7 @@ using std::pair;
+ template<typename T>
+ void POLYMAKE_RATIONAL_MATRIX_GAP_MATRIX( T* polymake_matrix, Obj gap_matrix ){
+
+- int rows = LEN_PLIST( gap_matrix );
++ Int rows = LEN_PLIST( gap_matrix );
+ Obj current = ELM_PLIST( gap_matrix, 1 );
+ Obj elem;
+
+@@ -29,7 +29,7 @@ void POLYMAKE_RATIONAL_MATRIX_GAP_MATRIX( T* polymake_matrix, Obj gap_matrix ){
+ }
+ #endif
+
+- int columns = LEN_PLIST( current );
++ Int columns = LEN_PLIST( current );
+
+ polymake_matrix->resize( rows, columns );
+
+@@ -72,7 +72,7 @@ Obj GAP_MATRIX_POLYMAKE_INTEGER_MATRIX( T* polymake_matrix ){
+ LIZeil = NEW_PLIST( T_PLIST, polymake_matrix->cols() );
+ SET_LEN_PLIST( LIZeil ,matr_cols);
+ for(int j = 0;j<polymake_matrix->cols();j++){
+- SET_ELM_PLIST(LIZeil,j+1,INTOBJ_INT(static_cast<int>((*polymake_matrix)(i,j))));
++ SET_ELM_PLIST(LIZeil,j+1,INTOBJ_INT(static_cast<Int>((*polymake_matrix)(i,j))));
+ }
+ SET_ELM_PLIST(RETLI,i+1,LIZeil);
+ }
+diff --git a/PolymakeInterface/src/polymake_tropical.cpp b/PolymakeInterface/src/polymake_tropical.cpp
+index cf3134d0..3d26fc61 100644
+--- a/PolymakeInterface/src/polymake_tropical.cpp
++++ b/PolymakeInterface/src/polymake_tropical.cpp
+@@ -11,7 +11,7 @@ Obj REAL_TROPICAL_HYPERSURFACE_BY_MONOMS_AND_COEFFICIENTS( Polymake_Data* data,
+ }
+ #endif
+
+- int len = LEN_PLIST( monomials );
++ Int len = LEN_PLIST( monomials );
+ Obj akt = ELM_PLIST( monomials, 1 );
+ Obj elem;
+
+@@ -30,13 +30,13 @@ Obj REAL_TROPICAL_HYPERSURFACE_BY_MONOMS_AND_COEFFICIENTS( Polymake_Data* data,
+ #endif
+
+
+- int len_elem = LEN_PLIST( akt );
++ Int len_elem = LEN_PLIST( akt );
+ data->main_polymake_session->set_application("tropical");
+
+- polymake::Matrix<int> matr(len, len_elem);
+- polymake::Vector<int> coeff(len);
++ polymake::Matrix<Int> matr(len, len_elem);
++ polymake::Vector<Int> coeff(len);
+
+- for(int i=1;i<=len;i++){
++ for(Int i=1;i<=len;i++){
+ akt = ELM_PLIST( monomials, i );
+ #ifdef MORE_TESTS
+ if( !IS_PLIST( akt ) ){
+@@ -49,7 +49,7 @@ Obj REAL_TROPICAL_HYPERSURFACE_BY_MONOMS_AND_COEFFICIENTS( Polymake_Data* data,
+ }
+ #endif
+
+- for(int j = 1; j <= len_elem; j++){
++ for(Int j = 1; j <= len_elem; j++){
+ elem = ELM_PLIST( akt, j);
+
+ #ifdef MORE_TESTS
+@@ -94,7 +94,7 @@ Obj REAL_MONOMIALS_OF_HYPERSURFACE( Polymake_Data* data, Obj hypersurf){
+
+ perlobj* polyobj = PERLOBJ_POLYMAKEOBJ( hypersurf );
+ data->main_polymake_session->set_application_of(*polyobj);
+- polymake::Matrix<int> matr;
++ polymake::Matrix<Int> matr;
+ try{
+ polyobj->give("MONOMIALS") >> matr;
+ }
Deleted: gap.sh
===================================================================
--- gap.sh 2020-12-07 10:08:21 UTC (rev 771461)
+++ gap.sh 2020-12-07 10:08:47 UTC (rev 771462)
@@ -1,7 +0,0 @@
-#!/bin/sh
-
-GAP_ROOT="/usr/lib/gap"
-GAP_DIR=$GAP_ROOT
-GAP_EXE=$GAP_ROOT
-
-exec "$GAP_EXE/gap" -l "$GAP_DIR" "$@"
Copied: gap/repos/community-x86_64/gap.sh (from rev 771461, gap/trunk/gap.sh)
===================================================================
--- gap.sh (rev 0)
+++ gap.sh 2020-12-07 10:08:47 UTC (rev 771462)
@@ -0,0 +1,7 @@
+#!/bin/sh
+
+GAP_ROOT="/usr/lib/gap"
+GAP_DIR=$GAP_ROOT
+GAP_EXE=$GAP_ROOT
+
+exec "$GAP_EXE/gap" -l "$GAP_DIR" "$@"
More information about the arch-commits
mailing list