/usr/share/gap/pkg/scscp/example/id512.g is in gap-scscp 2.1.4+ds-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | IdGroup512:=function( G )
# this is the client's counterpart for the SCSCP service for the
# identification of groups of order 512 using the ANUPQ package.
# (See the procedure IdGroup512ByCode in scscp/example/myserver.g).
# The group must have PC presentation and its pcgs code will be
# sent to the server to identify the group.
local code, result;
if Size( G ) <> 512 then
Error( "G must be a group of order 512 !!!\n" );
fi;
code := CodePcGroup( G );
result := EvaluateBySCSCP( "IdGroup512ByCode", [ code ],
"localhost", 26133 );
return result.object;
end;
TestIdGroup512:=function( nrcalls )
# This is the test to generate a sequence of calls to the
# previous function, the length of this sequence is the
# input parameter nrcalls of the test
local numbers, n, G;
for n in [ 1 .. nrcalls ] do
G := SmallGroup( 512, n );
Print( "Sending ", IdGroup( G ), " ... \n" );
Print( "Got back ", IdGroup512( G ), "\n" );
od;
end;
|