/usr/share/gap/pkg/scscp/tst/omdemo.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 | ###########################################################################
#
# This is a GAP demonstration file.
# To run a demonstration enter the following:
# gap> LogTo(); # (if you are logging to a file)
# gap> ReadLib("demo.g");
# gap> Demonstration("omdemo.g");
# (probably you will need the full path in the last
# command). Then you may press <Enter> to go to the
# next step or press <q> to terminate demonstration
#
# -------------------------------------------------
#
# This tests reads OM objects from scscp/tst/omdemo.om file
# It does not use network connection and only test OMGetObjectWithAttributes
#
LoadPackage("scscp");
InstallSCSCPprocedure("WS_Factorial", Factorial );
InstallSCSCPprocedure("WS_Gcd", Gcd );
InstallSCSCPprocedure("GroupIdentificationService", IdGroup );
InstallSCSCPprocedure("GroupByIdNumber", SmallGroup );
test:=Filename( Directory( Concatenation(
GAPInfo.PackagesInfo.("scscp")[1].InstallationPath,"/tst/" ) ),
"omdemo.om" );;
stream:=InputTextFile(test);
OMGetObjectWithAttributes(stream); # 1
OMGetObjectWithAttributes(stream); # x
OMGetObjectWithAttributes(stream); # 5*x^3+x^2+1
OMGetObjectWithAttributes(stream); # Primes
OMGetObjectWithAttributes(stream); # 120
OMGetObjectWithAttributes(stream); # [24,12] (procedure_call)
OMGetObjectWithAttributes(stream); # [24,12] (procerure completed)
OMGetObjectWithAttributes(stream); # Error message (enter quit after it)
CloseStream(stream);
|