about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-10-06 15:58:34 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-10-06 15:58:34 -0700
commit810542f1789edc9cec6cd30a5c6c1949e41b3a69 (patch)
tree7990dc1dac286a07622bfdf85bf753ae47640c97
parenta232af2fafd9ad974ebc6cfcb2cd5a5883f0bd4a (diff)
downloadmu-810542f1789edc9cec6cd30a5c6c1949e41b3a69.tar.gz
3448
Drop perl dependency everywhere.
-rwxr-xr-xbuild_until4
-rwxr-xr-xrelayout2
-rw-r--r--tangle/makefile10
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