From 3707a2c0d7eb6ab6fab269458ce70daf16effbad Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Tue, 7 Mar 2023 11:02:25 +0100
Subject: [PATCH] * One more tool used in dotted filenames

---
 utils/dotutils/replaceword.pp | 47 +++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 utils/dotutils/replaceword.pp

diff --git a/utils/dotutils/replaceword.pp b/utils/dotutils/replaceword.pp
new file mode 100644
index 0000000000..57a8cd6ae2
--- /dev/null
+++ b/utils/dotutils/replaceword.pp
@@ -0,0 +1,47 @@
+program replaceword;
+
+{$mode objfpc}
+{$h+}
+uses regexpr,sysutils, classes;
+
+function ReplaceWord(aLine, aName, aFull: String): String;
+
+var
+  RE : TRegExpr;
+
+begin
+  RE:=TRegExpr.Create('\b'+aName+'\b');
+  try
+//    RE.ModifierI:=True;
+    Result:=RE.Replace(aLine,aFull);
+//    Writeln(aLine,': ',aName,' -> ',aFull,' = ',Result);
+  finally
+    RE.Free;
+  end;
+end;
+
+
+var
+  I,J : Integer;
+  aMakeFile: TStrings;
+  W1,W2,aFN : String;
+
+begin
+  W1:=ParamStr(1);
+  W2:=ParamStr(2);
+  aMakeFile:=TStringList.Create;
+  try
+    for I:=3 to ParamCount do
+      begin
+      aFN:=Paramstr(I);
+      aMakeFile.LoadFromFile(aFN);
+      aMakeFile.SaveToFile(aFn+'.bak');
+      For J:=0 to aMakefile.Count-1 do
+        aMakefile[J]:=ReplaceWord(aMakefile[J],W1,W2);
+      aMakeFile.SaveToFile(AFN);
+      end;
+  finally
+    aMakeFile.Free;
+  end;
+end.
+