initial

1 files changed, 26 insertions, 0 deletions

diff --git a/other/ecfs/repl.pl b/other/ecfs/repl.pl
new file mode 100644
index 0000000..46e5b5b
--- /dev/null
+++ b/other/ecfs/repl.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+# Written to transform ext2 functions and structs
+# to ecfs.
+#
+
+my $f= shift;
+open I, "<$f" or die "$!";
+open O, ">$f.new" or die "$!";
+
+while (<I>) {
+        s/ext2/ecfs/g;
+        s/EXT2/ECFS/g;
+
+        s/const// if (/ecfs_free_blocks/);
+        s/const// if (/ecfs_new_block/);
+
+        print O;
+}
+
+close O;
+close I;
+
+                
+unlink $f;
+rename "$f.new", $f;