/usr/share/gap/pkg/scscp/demo/sicsa2011.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 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 | LoadPackage("scscp");
laptop := "localhost";
demoserver := "chrystal.mcs.st-andrews.ac.uk";
port := 26133;
SetInfoLevel( InfoSCSCP, 0 );
EvaluateBySCSCP( "ChangeInfoLevel", [4], laptop, port );
G := Group( (1,2,3), (2,3) );
IdGroup( G );
EvaluateBySCSCP( "WS_IdGroup", [ G ], demoserver, port ).object;
EvaluateBySCSCP( "GroupIdentificationService", [ [ (1,2,3), (2,3) ] ],
demoserver, port ).object;
SetInfoLevel( InfoSCSCP, 3 );
EvaluateBySCSCP( "GroupIdentificationService", [ [ (1,2,3), (2,3) ] ],
demoserver, port ).object;
ReadPackage("scscp/example/id512.g");
G := DihedralGroup( IsPermGroup, 512 );
IdGroup512( G );
SetInfoLevel( InfoSCSCP, 0 );
IdGroup512( G );
M24 := EvaluateBySCSCP( "MathieuGroup", [ 24 ],
laptop, port : output:="cookie" ).object;
EvaluateBySCSCP( "NrConjugacyClasses", [ M24 ], laptop, port );
SetInfoLevel( InfoSCSCP, 3 );
P2 := EvaluateBySCSCP( "SylowSubgroup", [ M24, 2 ],
laptop, port : output:="cookie" ).object;
SetInfoLevel( InfoSCSCP, 0 );
RetrieveRemoteObject( P2 );
UnbindRemoteObject( M24 );
x:=SL(2,2);
StoreAsRemoteObject( x, laptop, port );
l:=OMString(x);
Length(l);
SetInfoLevel( InfoSCSCP, 4 );
IN_SCSCP_BINARY_MODE:=true;
x = EvaluateBySCSCP("Identity",[x],"localhost",port).object;
IN_SCSCP_BINARY_MODE:=false;
SetInfoLevel( InfoSCSCP, 0 );
EvaluateBySCSCP( "ChangeInfoLevel", [0], laptop, port );
s:=IO_PickleToString(x);
x = IO_UnpickleFromString(
EvaluateBySCSCP( "IO_UnpickleStringAndPickleItBack", [ s ],
laptop, port ).object );
x := [ Z(3)^0, Z(3), 0*Z(3) ];
OMString(x);
for i in [ 4 .. 5000 ] do
x[i] := i*Z(3)^0;
od;
Length(x);
IN_SCSCP_BINARY_MODE:=false;
x = EvaluateBySCSCP("Identity",[x],"localhost",port).object;
time;
IN_SCSCP_BINARY_MODE:=true;
x = EvaluateBySCSCP("Identity",[x],"localhost",port).object;
time;
IN_SCSCP_BINARY_MODE:=false;
x = IO_UnpickleFromString( EvaluateBySCSCP( "IO_UnpickleStringAndPickleItBack",
[ IO_PickleToString(x) ], "localhost", port ).object );
time;
IN_SCSCP_BINARY_MODE:=true;
x = IO_UnpickleFromString( EvaluateBySCSCP( "IO_UnpickleStringAndPickleItBack",
[ IO_PickleToString(x) ], "localhost", port ).object );
time;
IN_SCSCP_BINARY_MODE:=false;
ReadPackage("scscp/example/overload.g");
a := StoreAsRemoteObject( 6, laptop, port );
b := StoreAsRemoteObject( 7, laptop, port );
c := a*b;
RetrieveRemoteObject( c );
EvaluateBySCSCP( "ChangeInfoLevel", [4], laptop, port );
|