|
##############################################################################
##
#W record.gi GAP4 package `Utils' Sebastian Gutsche
## Max Horn
## Stefan Kohl
#Y Copyright (C) 2015-2025, The GAP Group
#############################################################################
## this function has been transferred from RCWA
##
#F AssignGlobals( <record> )
##
## This auxiliary function assigns the record components of <record>
## to global variables with the same names.
##
BindGlobal( "AssignGlobals",
function ( record )
local names, name;
names := RecNames(record);
for name in names do
if IsBoundGlobal(name) then
if IsReadOnlyGlobal(name)
then
MakeReadWriteGlobal(name);
Info(InfoWarning,1,"The read-only global variable ",name,
" has been overwritten.");
else
Info(InfoUtils,1,"The global variable ",name,
" has been overwritten.");
fi;
UnbindGlobal(name);
fi;
BindGlobal(name,record.(name));
MakeReadWriteGlobal(name);
od;
Print("The following global variables have been assigned:\n",
Set(names),"\n");
end );
BindGlobal( "OptionRecordWithDefaults",
function(default, useroptions)
local name, ret;
ret := rec();
if IsList(useroptions) then
if IsEmpty(useroptions) then
return default;
elif Length(useroptions) = 1 then
useroptions := useroptions[1];
else
ErrorNoReturn("Too many arguments for function");
fi;
fi;
if not IsRecord(useroptions) then
ErrorNoReturn("Options should be a record");
fi;
ret := ShallowCopy(default);
for name in RecNames(useroptions) do
if not IsBound(default.(name)) then
ErrorNoReturn(Concatenation("Unknown option: " , name));
else
ret.(name) := useroptions.(name);
fi;
od;
return ret;
end);
#############################################################################
##
#E record.gi . . . . . . . . . . . . . . . . . . . . . . . . . . . ends here
[ Dauer der Verarbeitung: 0.23 Sekunden
(vorverarbeitet)
]
|
