From 810542f1789edc9cec6cd30a5c6c1949e41b3a69 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 6 Oct 2016 15:58:34 -0700
Subject: 3448

Drop perl dependency everywhere.
---
 build_until     |  4 ++--
 relayout        |  2 +-
 tangle/makefile | 10 +++++-----
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/build_until b/build_until
index 8abdb5eb..520ec16a 100755
--- a/build_until
+++ b/build_until
@@ -23,8 +23,8 @@ set -v
 
 ( cd termbox && make; )
 
-grep -h "^[^[:space:]#].*) {$" mu.cc |grep -v ":.*(" |perl -pwe 's/ \{.*/;/' > function_list
-grep -h "^\s*void test_" mu.cc |perl -pwe 's/^\s*void (.*)\(\) \{.*/$1,/' > test_list
+grep -h "^[^[:space:]#].*) {$" mu.cc |grep -v ":.*(" |sed 's/ {.*/;/' > function_list
+grep -h "^\s*void test_" mu.cc |sed 's/^\s*void \(.*\)() {.*/\1,/' > test_list
 
 eval ${CXX:-c++} ${CXXFLAGS:-"-g -O3"} -Wall -Wextra -ftrapv -fno-strict-aliasing mu.cc termbox/libtermbox.a -o mu_bin
 
diff --git a/relayout b/relayout
index e5f9a164..14d95f99 100755
--- a/relayout
+++ b/relayout
@@ -41,7 +41,7 @@ vim -c "set nu" .layout
 #
 
 root() {
-  echo $1 |perl -pwe 's/^[0-9]*//'
+  echo $1 |sed 's/^[0-9]*//'
 }
 
 index=0
diff --git a/tangle/makefile b/tangle/makefile
index ab7e7adf..2b22e809 100644
--- a/tangle/makefile
+++ b/tangle/makefile
@@ -3,21 +3,21 @@ tangle: makefile type_list function_list file_list test_file_list test_list
 
 type_list: boot.cc [0-9]*.cc
 	@# assumes struct decl has space before '{'
-	@grep -h "^struct .* {" [0-9]*.cc |perl -pwe 's/(struct *[^ ]*).*/$$1;/' > type_list
+	@grep -h "^struct .* {" [0-9]*.cc |sed 's/\(struct *[^ ]*\).*/\1;/' > type_list
 	@grep -h typedef [0-9]*.cc >> type_list
 
 function_list: boot.cc [0-9]*.cc
 	@# assumes function decl has space before '{'
-	@grep -h "^[^ #].*) {" [0-9]*.cc |perl -pwe 's/ \{.*/;/' > function_list
+	@grep -h "^[^ #].*) {" [0-9]*.cc |sed 's/ {.*/;/' > function_list
 
 file_list: boot.cc [0-9]*.cc
-	@ls [0-9]*.cc |grep -v "\.test\.cc$$" |perl -pwe 's/.*/#include "$$&"/' > file_list
+	@ls [0-9]*.cc |grep -v "\.test\.cc$$" |sed 's/.*/#include "&"/' > file_list
 
 test_file_list: [0-9]*.test.cc
-	@ls [0-9]*.test.cc |perl -pwe 's/.*/#include "$$&"/' > test_file_list
+	@ls [0-9]*.test.cc |sed 's/.*/#include "&"/' > test_file_list
 
 test_list: [0-9]*.cc
-	@grep -h "^[[:space:]]*void test_" [0-9]*.cc |perl -pwe 's/^\s*void (.*)\(\) \{$$/$$1,/' > test_list
+	@grep -h "^[[:space:]]*void test_" [0-9]*.cc |sed 's/^\s*void \(.*\)() {$$/\1,/' > test_list
 
 .PHONY: clean
 
-- 
cgit 1.4.1-2-gfad0