1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
#############################################################################
##
#W PackageInfo.g ANUPQ Package Greg Gamble
#W Werner Nickel
#W Eamonn O'Brien
#W Max Horn
SetPackageInfo( rec(
PackageName := "ANUPQ",
Subtitle := "ANU p-Quotient",
Version := "3.3.3",
Date := "25/11/2025", # dd/mm/yyyy format
License := "Artistic-2.0",
Persons := [
rec(
LastName := "Gamble",
FirstNames := "Greg",
IsAuthor := true,
IsMaintainer := false,
Email := "Greg.Gamble@uwa.edu.au",
#WWWHome := "http://school.maths.uwa.edu.au/~gregg", # FIXME: broken URL?
PostalAddress := Concatenation(
"Department of Mathematics and Statistics\n",
"Curtin University\n",
"GPO Box U 1987\n",
"Perth WA 6845\n",
"Australia" ),
Place := "Perth",
Institution := "Curtin University"
),
rec(
LastName := "Nickel",
FirstNames := "Werner",
IsAuthor := true,
IsMaintainer := false,
# MH: Werner rarely (if at all) replies to emails sent to this
# old email address. To discourage users from sending bug reports
# there, I have disabled it here.
#Email := "nickel@mathematik.tu-darmstadt.de",
#WWWHome := "https://www2.mathematik.tu-darmstadt.de/~nickel/",
),
rec(
LastName := "O'Brien",
FirstNames := "Eamonn",
IsAuthor := true,
IsMaintainer := false,
Email := "obrien@math.auckland.ac.nz",
WWWHome := "https://www.math.auckland.ac.nz/~obrien",
PostalAddress := Concatenation(
"Department of Mathematics\n",
"University of Auckland\n",
"Private Bag 92019\n",
"Auckland\n",
"New Zealand\n" ),
Place := "Auckland",
Institution := "University of Auckland"
),
rec(
LastName := "Horn",
FirstNames := "Max",
IsAuthor := false,
IsMaintainer := true,
Email := "mhorn@rptu.de",
WWWHome := "https://www.quendi.de/math",
GitHubUsername := "fingolfin",
PostalAddress := Concatenation(
"Fachbereich Mathematik\n",
"RPTU Kaiserslautern-Landau\n",
"Gottlieb-Daimler-Straße 48\n",
"67663 Kaiserslautern\n",
"Germany" ),
Place := "Kaiserslautern, Germany",
Institution := "RPTU Kaiserslautern-Landau"
),
],
Status := "accepted",
CommunicatedBy := "Charles Wright (Eugene)",
AcceptDate := "04/2002",
SourceRepository := rec(
Type := "git",
URL := "https://github.com/gap-packages/anupq",
),
IssueTrackerURL:= Concatenation( ~.SourceRepository.URL, "/issues" ),
PackageWWWHome := "https://gap-packages.github.io/anupq/",
README_URL := Concatenation(~.PackageWWWHome, "README.md"),
PackageInfoURL := Concatenation(~.PackageWWWHome, "PackageInfo.g"),
ArchiveURL := Concatenation(~.SourceRepository.URL,
"/releases/download/v", ~.Version,
"/anupq-", ~.Version),
ArchiveFormats := ".tar.gz .tar.bz2",
AbstractHTML :=
"The <span class=\"pkgname\">ANUPQ</span> package provides an interactive \
interface to the p-quotient, p-group generation and standard presentation \
algorithms of the ANU pq C program.",
PackageDoc := rec(
BookName := "ANUPQ",
ArchiveURLSubset := ["doc"],
HTMLStart := "doc/chap0_mj.html",
PDFFile := "doc/manual.pdf",
SixFile := "doc/manual.six",
LongTitle := "ANU p-Quotient",
),
Dependencies := rec(
GAP := ">= 4.9",
NeededOtherPackages := [ [ "autpgrp", ">=1.5" ] ],
SuggestedOtherPackages := [ ],
ExternalConditions := []
),
AvailabilityTest :=
function()
# test for existence of the compiled binary
if Filename( DirectoriesPackagePrograms( "anupq" ), "pq" ) = fail then
LogPackageLoadingMessage(PACKAGE_WARNING, ["could not locate pq binary"]);
return false;
fi;
return true;
end,
# Show some extra info in the Banner
BannerFunction := function( info )
local str, version;
str := DefaultPackageBannerString( info );
str := ReplacedString( str, "by Greg Gamble (", "by Greg Gamble (GAP code, " );
str := ReplacedString( str, "Nickel", "Nickel (GAP code)" );
str := ReplacedString( str, "O'Brien (", "O'Brien (C code, " );
str := ReplacedString( str, "\nHomepage", "\nuses ANU pq binary (C code program) version: 1.9\nHomepage" );
return str;
end,
TestFile := "tst/testinstall.g",
Keywords := [
"p-quotient",
"p-group generation",
"descendant",
"standard presentation",
],
AutoDoc := rec(
entities := rec(
VERSION := ~.Version,
RELEASEYEAR := ~.Date{[7..10]},
RELEASEDATE := function(date)
local day, month, year, allMonths;
day := Int(date{[1,2]});
month := Int(date{[4,5]});
year := Int(date{[7..10]});
allMonths := [ "January", "February", "March", "April", "May", "June", "July",
"August", "September", "October", "November", "December"];
return Concatenation(String(day)," ", allMonths[month], " ", String(year));
end(~.Date),
AutPGrp := "<Package>AutPGrp</Package>",
),
),
));
|
