93 lines
3.8 KiB
Text
93 lines
3.8 KiB
Text
#############################################################################
|
|
##
|
|
#W /etc/scscp/gap/server.g Debian
|
|
##
|
|
#############################################################################
|
|
|
|
#############################################################################
|
|
#
|
|
# This is a simple sample SCSCP server configuration file.
|
|
#
|
|
#############################################################################
|
|
|
|
#############################################################################
|
|
#
|
|
# The service provider can start the server just by the command
|
|
# $ gap /etc/scscp/gap/server.g
|
|
#
|
|
#############################################################################
|
|
|
|
#############################################################################
|
|
#
|
|
# Load necessary packages and read external files.
|
|
# Put here and other commands if needed.
|
|
#
|
|
#############################################################################
|
|
|
|
LogTo(); # to close log file if it was opened from .gaprc
|
|
LoadPackage("scscp");
|
|
|
|
#############################################################################
|
|
#
|
|
# Procedures and functions available for the SCSCP server
|
|
# (you can also install procedures contained in other files,
|
|
# including standard GAP procedures and functions) by adding
|
|
# appropriate calls to InstallSCSCPprocedure below.
|
|
#
|
|
#############################################################################
|
|
|
|
|
|
#############################################################################
|
|
SCSCPadditionService:=function(a,b)
|
|
return a+b;
|
|
end;
|
|
|
|
#############################################################################
|
|
#
|
|
# Installation of procedures to make them available for WS
|
|
# (you can also install procedures contained in other files,
|
|
# including standard GAP procedures and functions)
|
|
#
|
|
#############################################################################
|
|
|
|
# Simple procedures for tests and demos
|
|
InstallSCSCPprocedure( "Identity", x -> x, "Identity procedure for tests", 1, 1 );
|
|
InstallSCSCPprocedure( "WS_Factorial", Factorial, "See ?Factorial in GAP", 1, 1 );
|
|
InstallSCSCPprocedure( "addition", SCSCPadditionService, "to add two integers", 2, 2 );
|
|
InstallSCSCPprocedure( "WS_Phi", Phi, "Euler's totient function, see ?Phi in GAP", 1, 1 );
|
|
InstallSCSCPprocedure( "Length", Length, 1, 1 );
|
|
InstallSCSCPprocedure( "Size", Size, 1, 1 );
|
|
InstallSCSCPprocedure( "IsPrimeInt", IsPrimeInt, 1, 1 );
|
|
InstallSCSCPprocedure( "NextPrimeInt", NextPrimeInt, 1, 1 );
|
|
InstallSCSCPprocedure( "PrevPrimeInt", PrevPrimeInt, 1, 1 );
|
|
|
|
|
|
###########################################################################
|
|
# Series of factorisation methods from the GAP package FactInt
|
|
if LoadPackage("factint") = true then
|
|
InstallSCSCPprocedure("WS_FactorsTD", FactorsTD,
|
|
"FactorsTD from FactInt package, see ?FactorsTD in GAP", 1, 2 );
|
|
InstallSCSCPprocedure("WS_FactorsPminus1", FactorsPminus1,
|
|
"FactorsPminus1 from FactInt package, see ?FactorsPminus1 in GAP", 1, 4 );
|
|
InstallSCSCPprocedure("WS_FactorsPplus1", FactorsPplus1,
|
|
"FactorsPplus1 from FactInt package, see ?FactorsPplus1 in GAP", 1, 4 );
|
|
InstallSCSCPprocedure("WS_FactorsECM", FactorsECM,
|
|
"FactorsECM from FactInt package, see ?FactorsECM in GAP", 1, 5 );
|
|
InstallSCSCPprocedure("WS_FactorsCFRAC", FactorsCFRAC,
|
|
"FactorsCFRAC from FactInt package, see ?FactorsCFRAC in GAP", 1, 1 );
|
|
InstallSCSCPprocedure("WS_FactorsMPQS", FactorsMPQS,
|
|
"FactorsMPQS from FactInt package, see ?FactorsMPQS in GAP", 1, 1 );
|
|
fi;
|
|
|
|
#############################################################################
|
|
#
|
|
# Finally, we start the SCSCP server.
|
|
#
|
|
#############################################################################
|
|
|
|
RunSCSCPserver( SCSCPserverAddress, SCSCPserverPort );
|
|
|
|
#############################################################################
|
|
##
|
|
#E
|
|
##
|