From ccbda3c6700c956575fc79c9ce5e97daa3d8d5eb Mon Sep 17 00:00:00 2001
From: Markus Pfeiffer <markus.pfeiffer@st-andrews.ac.uk>
Date: Mon, 29 Oct 2018 10:59:13 +0000
Subject: [PATCH] Remove uses of PrintTo1 and SubstitutionSublist in library
 code

This enables starting GAP without any packages loaded, in particular without
GAPDoc.
---
 lib/operdebug.g | 41 ++++++++++++++++++++---------------------
 1 file changed, 20 insertions(+), 21 deletions(-)

diff --git a/lib/operdebug.g b/lib/operdebug.g
index 2bf25e4c37..1b4a48dcfe 100644
--- a/lib/operdebug.g
+++ b/lib/operdebug.g
@@ -30,39 +30,38 @@ BIND_GLOBAL("WriteMethodOverview", function(fname)
     return Concatenation(":",String(n),"\c");
   end;
   f := function()
-    local op, nam, i, ms, m;
+    local op, nam, i, ms, m, str;
+    str := OutputTextFile(fname, false);
     for op in OPERATIONS do
       nam := NameFunction(op);
       for i in [0..6] do
         ms := MethodsOperation(op, i);
         for m in ms do
-          Print(nam,";\c",i,";",
-                relname(m.location[1]),":",m.location[2],";\c",
-                m.rank,"\n");
+          PrintTo(str, nam,";\c",i,";",
+                       relname(m.location[1]),":",m.location[2],";\c",
+                       m.rank,"\n");
         od;
       od;
     od;
+    CloseStream(str);
   end;
-  PrintTo1(fname, f);
+  f();
 end);
 
 # prints file with lines of format
 #   filter name (with some abbreviations);rank
 BIND_GLOBAL("WriteFilterRanks", function(fname)
-  local f;
-  f := function()
-    local nams, rks, n, i;
-    nams := List(FILTERS, NameFunction);
-    rks := List(FILTERS, RankFilter);
-    SortParallel(nams, rks);
-    for i in [1..Length(nams)] do
-      n := SubstitutionSublist(nams[i],"CategoryCollections","CC");
-      if Length(n) > 75 then
-        n := Concatenation(n{[1..30]},"...",n{[Length(n)-29..Length(n)]});
-      fi;
-      Print(n,";",rks[i],"\n");
-    od;
-  end;
-  PrintTo1(fname, f);
+  local nams, rks, n, i, str;
+  str := OutputTextFile(fname, false);
+  nams := List(FILTERS, NameFunction);
+  rks := List(FILTERS, RankFilter);
+  SortParallel(nams, rks);
+  for i in [1..Length(nams)] do
+    n := ReplacedString(nams[i],"CategoryCollections","CC");
+    if Length(n) > 75 then
+      n := Concatenation(n{[1..30]},"...",n{[Length(n)-29..Length(n)]});
+    fi;
+    PrintTo(str, n,";",rks[i],"\n");
+  od;
+  CloseStream(str);
 end);
-