Changes made to SwapDigraphs and DigraphRemoveAllEdges

Author: rm387

doc/oper.xml

@@ -777,27 +777,6 @@ true
 </ManSection>
 <#/GAPDoc>
 
-<#GAPDoc Label="DigraphRemoveAllEdges">
-<ManSection>
-  <Oper Name="DigraphRemoveAllEdges" Arg="digraph"/>
-  <Returns>An empty digraph.</Returns>
-  <Description>
-    This operation returns a digraph constructed from <A>digraph</A>, which is mutable,
-    by removing all of the edges in the original digraph.
-    (see <Ref Oper="DigraphRemoveEdge" Label="for a digraph and an edge"/>).
-    <P/>
-
-    <Example><![CDATA[
-gap> D3 := Digraph(IsMutableDigraph, [[2], [1], [2]]);
-<mutable digraph with 3 vertices, 3 edges>
-gap> DigraphRemoveAllEdges(D3);
-<mutable empty digraph with 3 vertices>
-true
-]]></Example>
-  </Description>
-</ManSection>
-<#/GAPDoc>
-
 <#GAPDoc Label="InducedSubdigraph">
 <ManSection>
   <Oper Name="InducedSubdigraph" Arg="digraph, verts"/>

gap/oper.gd

@@ -29,8 +29,6 @@ DeclareOperation("DigraphRemoveEdge", [IsDigraph, IsPosInt, IsPosInt]);
 DeclareOperation("DigraphRemoveEdge", [IsDigraph, IsList]);
 DeclareOperation("DigraphRemoveEdges", [IsDigraph, IsList]);
 
-DeclareOperation("DigraphRemoveAllEdges", [IsDigraph]);
-
 DeclareOperation("DigraphReverseEdge", [IsDigraph, IsList]);
 DeclareOperation("DigraphReverseEdge", [IsDigraph, IsPosInt, IsPosInt]);
 DeclareOperation("DigraphReverseEdges", [IsDigraph, IsList]);

gap/oper.gi

@@ -277,23 +277,6 @@ InstallMethod(DigraphRemoveEdges, "for an immutable digraph and a list",
 [IsImmutableDigraph, IsList],
 {D, edges} -> MakeImmutable(DigraphRemoveEdges(DigraphMutableCopy(D), edges)));
 
-InstallMethod(DigraphRemoveAllEdges, "for a mutable digraph",
-[IsDigraph],
-function(D)
-  local i, nbs, currentEdges;
-  if IsImmutableDigraph(D) then
-    ErrorNoReturn("Argument must be a mutable digraph");
-  else
-    nbs := OutNeighboursMutableCopy(D);
-    for i in [1 .. Length(nbs)] do
-      currentEdges := DigraphOutEdges(D, i);
-      DigraphRemoveEdges(D, currentEdges);
-    od;
-
-    return D;
-  fi;
-end);
-
 InstallMethod(DigraphReverseEdge,
 "for a mutable digraph by out-neighbours and two positive integers",
 [IsMutableDigraph and IsDigraphByOutNeighboursRep, IsPosInt, IsPosInt],