
| Current Path : /usr/share/gap/lib/hpc/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : //usr/share/gap/lib/hpc/tasks.g |
#############################################################################
##
#W tasks.g GAP library Chris Jefferson
##
##
## This file provides trivial mocks of task-related primitives for
## traditional GAP.
##
## The major design decision here it to make these mocks fast and simple,
## rather than try to make them as accurate as possible.
##
RunTask := function(func, args...)
local result;
result := CallFuncListWrap(func, args);
if result = [] then
return rec(taskresult := fail);
else
return rec(taskresult := result[1]);
fi;
end;
TaskResult := function(task)
return task.taskresult;
end;