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
|
#############################################################################
##
#W readsml.g GAP group library Hans Ulrich Besche
## Bettina Eick, Eamonn O'Brien
##
Revision.readsml_g :=
"@(#)$Id: readsml.g,v 4.7 2000/01/05 15:07:07 gap Exp $";
#############################################################################
##
#V READ_SMALL_FUNCS[ ]
##
READ_SMALL_FUNCS := [ ];
#############################################################################
##
#V READ_IDLIB_FUNCS[ ]
##
READ_IDLIB_FUNCS := [ ];
#############################################################################
##
#X first read the basic stuff of the small group library and the id-group
## functions
##
ReadSmall( "small.gd" );
ReadSmall( "small.gi" );
#############################################################################
##
#X read the 3-primes-order stuff, which is placed in the 'small'-directory
##
ReadSmall( "smlgp1.g" );
ReadSmall( "idgrp1.g" );
#############################################################################
##
#X read the information function
##
ReadSmall( "smlinfo.gi" );
#############################################################################
##
#X read the function-files of the small groups library
##
READ_SMALL_LIB := function()
local i, s;
s := 1;
repeat
s := s + 1;
READ_SMALL_FUNCS[ s ] := ReadAndCheckFunc(
Concatenation( "small/small", String( s ) ) );
READ_SMALL_FUNCS[ s ]( Concatenation( "smlgp", String( s ), ".g" ),
Concatenation( "small groups #", String( s ) ) );
until not IsBound( SMALL_AVAILABLE_FUNCS[ s ] );
i := 1;
repeat
i := i + 1;
if i = s then
return;
fi;
READ_IDLIB_FUNCS[ i ] := ReadAndCheckFunc(
Concatenation( "small/id", String( i ) ) );
READ_IDLIB_FUNCS[ i ]( Concatenation( "idgrp", String( i ), ".g" ),
Concatenation( "ids of groups #", String( i ) ) );
until not IsBound( ID_AVAILABLE_FUNCS[ i ] );
end;
READ_SMALL_LIB();
Unbind( READ_SMALL_LIB );
|
