#############################################################################
##
##  This file is part of GAP, a system for computational discrete algebra.
##  This file's authors include Thomas Breuer, Martin Schönert, Frank Celler.
##
##  Copyright of GAP belongs to its developers, whose names are too numerous
##  to list here. Please refer to the COPYRIGHT file for details.
##
##  SPDX-License-Identifier: GPL-2.0-or-later
##
##  This file contains
##  1. the design of families of general mappings

#############################################################################
##
#M  FamiliesOfGeneralMappingsAndRanges( <Fam> )
##
InstallMethod( FamiliesOfGeneralMappingsAndRanges,
    "for a family (return empty list)",
    true,
    [ IsFamily ], 0,
    Fam -> WeakPointerObj( [] ) );


#############################################################################
##
#F  GeneralMappingsFamily( <famsourceelms>, <famrangeelms> )
##
InstallGlobalFunction#############################################################################

    local info##  This file's authors include Thomas Breuer, Martin Schönert, Frank Celler.

    # Check whether this family was already constructed.##  to list here. Please refer to the COPYRIGHT file for details.
    info:=##
    len:= LengthWPObjInstallMethod( FamiliesOfGeneralMappingsAndRanges,
    for i in [ 1.. len+1 ] do
      entry:=ElmWPObj( info, i );
      if entry=fail then
        if not IsBound( freepos ) then
          freepos:= i;
        fi;
      elif IsIdenticalObj( FamilyRange(entry), FR ) then
        return entry;
      fi;
    od;

    # Construct the family.
    if CanEasilyCompareElementsFamily(FR)
and) then
      Fam:= NewFamily(    ,
    CanEasilyCompareElements,
                       CanEasilyCompareElements);
    else
      Fam     - ( ] );
    fi;
    SetFamilyRange(  Fam, FR )##


    local info,i,len,entryFam,freepos
SetElmWPObj info, Fam )

    # Return the family.
    return Fam;
end );