File: other.gi

package info (click to toggle)
gap 4r8p6-2
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 33,476 kB
  • ctags: 7,663
  • sloc: ansic: 108,841; xml: 47,807; sh: 3,628; perl: 2,342; makefile: 796; asm: 62; awk: 6
file content (30 lines) | stat: -rw-r--r-- 779 bytes parent folder | download | duplicates (3) 
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
 
#############################################################################
##
#W  other.gi                    GAP library                  Alexander Hulpke
##
##                                                     
#Y  (C) 2000 School Mathematical Sciences, University of St Andrews, Scotland
##
##  This file contains implementations for interface functions to other
##  systems.


InstallMethod(MagmaInputString,"perm group",true,
  [IsPermGroup,IsString],0,
function(g,s)
local i,nf;
  s:=ShallowCopy(s);
  Append(s,":=PermutationGroup<");
  Append(s,String(LargestMovedPoint(g)));
  Add(s,'|');
  nf:=false;
  for i in GeneratorsOfGroup(g) do
    if nf then
      Append(s,",\n");
    fi;
    nf:=true;
    Append(s,String(i));
  od;
  Append(s,">;\n");
  return s;
end);