Linting after changes in gaplint

Author: james-d-mitchell

.gaplint.yml

@@ -1,3 +1,2 @@
 disable:
   - align-assignments
-duplicate-function-min-length: 4

gap/dot.gd

@@ -11,7 +11,8 @@
 #! @Chapter
 #! @ChapterTitle An introduction to the DOT language and Graphviz.
 #! This chapter explains what the DOT and graphviz are,
-#! key basic concepts relating to them, and how this package interacts with them.
+#! key basic concepts relating to them, and how this package interacts with
+#! them.
 
 #! @Section A Brief Introduction
 #! DOT is a language for descrbing to a computer how to display a visualization
@@ -63,7 +64,8 @@ DeclareOperation("GraphvizGraph", []);
 #! @GroupTitle Constructors for Digraphs
 #! @Arguments name
 #! @Returns a new graphviz digraph
-#! @Description Creates a new graphviz digraph optionally with the provided name.
+#! @Description Creates a new graphviz digraph optionally with the provided
+#! name.
 DeclareOperation("GraphvizDigraph", [IsObject]);
 DeclareOperation("GraphvizDigraph", []);
 #! @EndGroup
@@ -147,13 +149,15 @@ DeclareOperation("GraphvizTail", [IsGraphvizEdge]);
 #! @Arguments graph, name
 #! @Returns the modified graph.
 #! @Description Sets the name of a graphviz graph or digraph.
-DeclareOperation("GraphvizSetName", [IsGraphvizGraphDigraphOrContext, IsObject]);
+DeclareOperation("GraphvizSetName",
+                 [IsGraphvizGraphDigraphOrContext, IsObject]);
 
 #! @Arguments graph, node
 #! @Returns the modified graph.
 #! @Description Adds a node to the graph.
 #! If a node with the same name is already present the operation fails.
-DeclareOperation("GraphvizAddNode", [IsGraphvizGraphDigraphOrContext, IsObject]);
+DeclareOperation("GraphvizAddNode",
+                 [IsGraphvizGraphDigraphOrContext, IsObject]);
 
 #! @Arguments graph, edge
 #! @Returns the modified graph.
@@ -180,6 +184,9 @@ DeclareOperation("GraphvizAddContext",
 [IsGraphvizGraphDigraphOrContext, IsObject]);
 DeclareOperation("GraphvizAddContext", [IsGraphvizGraphDigraphOrContext]);
 
+DeclareOperation("GraphvizAddComment",
+[IsGraphvizGraphDigraphOrContext, IsString]);
+
 #! @Arguments graph, node
 #! @Returns the modified graph.
 #! @Description Removes the node from the graph.

gap/dot.gi

@@ -254,7 +254,8 @@ function(x, attrs)
   return x;
 end);
 
-InstallMethod(GraphvizSetAttr, "for a graphviz node or edge, object, and object",
+InstallMethod(GraphvizSetAttr,
+"for a graphviz node or edge, object, and object",
 [IsGraphvizNodeOrEdge, IsObject, IsObject],
 function(x, name, value)
 
@@ -342,7 +343,7 @@ end);
 
 InstallMethod(GraphvizAddNode, "for a graphviz (di)graph or context and string",
 [IsGraphvizGraphDigraphOrContext, IsGraphvizNode],
-function(gv, name)  # gaplint: disable=analyse-lvars
+function(gv, name)  # gaplint: disable=unused-func-args
   ErrorNoReturn("it is not currently possible to add Graphviz node ",
                 "objects directly to Graphviz graphs or digraphs, use ",
                 "the node's name instead");
@@ -474,7 +475,8 @@ InstallMethod(GraphvizAddContext,
 [IsGraphvizGraphDigraphOrContext, IsObject],
 {g, o} -> GraphvizAddContext(g, String(o)));
 
-InstallMethod(GraphvizRemoveNode, "for a graphviz (di)graph or context and node",
+InstallMethod(GraphvizRemoveNode,
+"for a graphviz (di)graph or context and node",
 [IsGraphvizGraphDigraphOrContext, IsGraphvizNode],
 {g, node} -> GraphvizRemoveNode(g, GraphvizName(node)));
 

gap/gv.gd

@@ -27,7 +27,8 @@ DeclareOperation("GV_StringifyContextHead", [IsGraphvizGraphDigraphOrContext]);
 DeclareOperation("GV_StringifyNode", [IsGraphvizNode]);
 DeclareOperation("GV_StringifyGraphAttrs", [IsGraphvizGraphDigraphOrContext]);
 DeclareOperation("GV_StringifyNodeEdgeAttrs", [GV_IsMap]);
-DeclareOperation("GV_StringifyGraph", [IsGraphvizGraphDigraphOrContext, IsBool]);
+DeclareOperation("GV_StringifyGraph",
+                 [IsGraphvizGraphDigraphOrContext, IsBool]);
 
 DeclareOperation("GV_FindNode", [IsGraphvizGraphDigraphOrContext, IsObject]);
 

gap/gv.gi

@@ -75,7 +75,8 @@ else
       out := Concatenation(str{[1 .. len - 3]}, "ses");
     elif EndsWith(str, "fe") and not EndsWith(str, "ffe") then
       out := Concatenation(str{[1 .. len - 2]}, "ves");
-    elif EndsWith(str, "lf") or EndsWith(str, "rf") or EndsWith(str, "loaf") then
+    elif EndsWith(str, "lf") or EndsWith(str, "rf")
+        or EndsWith(str, "loaf") then
       out := Concatenation(str{[1 .. len - 1]}, "ves");
     elif EndsWith(str, "y") and not str[len - 1] in "aeiouy" then
       out := Concatenation(str{[1 .. len - 1]}, "ies");