From e79e53c707145f7a7bdd4ae1049b4bc6dcbf28b7 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sat, 13 Jan 2018 20:18:22 +1300
Subject: Reimplement bl(1df) in Awk

This is shorter and tidier.
---
 bin/bl.awk |  5 +++++
 bin/bl.sh  | 10 ----------
 2 files changed, 5 insertions(+), 10 deletions(-)
 create mode 100644 bin/bl.awk
 delete mode 100644 bin/bl.sh

(limited to 'bin')

diff --git a/bin/bl.awk b/bin/bl.awk
new file mode 100644
index 00000000..0be2fc6e
--- /dev/null
+++ b/bin/bl.awk
@@ -0,0 +1,5 @@
+# Generate blank lines
+BEGIN {
+    while (ARGV[1]--)
+        print ""
+}
diff --git a/bin/bl.sh b/bin/bl.sh
deleted file mode 100644
index 6dd3d687..00000000
--- a/bin/bl.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-# Generate blank lines
-if [ "$#" -ne 1 ] || [ "$1" -lt 0 ] ; then
-    printf >&2 'bl: Non-negative line count needed as sole argument\n'
-    exit 2
-fi
-n=0
-while [ "$n" -lt "${1:-0}" ] ; do
-    printf '\n'
-    n=$((n+1))
-done
-- 
cgit v1.2.3