From 914a3d9eb768bce9a978d6e9a7f833288c3dea0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Wed, 6 Jan 2021 21:25:11 +0100
Subject: Add `r' (line range) selector, `absln' (absolute line) helper

---
 bin/hlp/absln | 17 +++++++++++++++++
 bin/slt/r     | 10 ++++++++++
 2 files changed, 27 insertions(+)
 create mode 100755 bin/hlp/absln
 create mode 100755 bin/slt/r

(limited to 'bin')

diff --git a/bin/hlp/absln b/bin/hlp/absln
new file mode 100755
index 0000000..be195a9
--- /dev/null
+++ b/bin/hlp/absln
@@ -0,0 +1,17 @@
+#!/bin/sh
+
+# absln -- convert to absolute line
+
+test $# -ne 1 && { echo "usage: $0 line" 1>&2; exit 1; }
+case "$1" in
+'+'*)
+	test -z "${1#+}" && term=1 || term=${1#+}
+	expr `cat $EFP/line` + $term ;;
+'-'*)
+	test -z "${1#-}" && term=1 || term=${1#-}
+	expr `cat $EFP/line` - $term ;;
+.)
+	cat $EFP/line ;;
+*)
+	echo "$1" ;;
+esac
diff --git a/bin/slt/r b/bin/slt/r
new file mode 100755
index 0000000..5d2c184
--- /dev/null
+++ b/bin/slt/r
@@ -0,0 +1,10 @@
+#!/bin/sh
+
+# r -- select line range
+
+test $# -ne 2 && { echo "usage: $0 start end" 1>&2; exit 1; }
+
+start=`absln $1`
+end=`absln $2`
+
+sed -n "$start,${end}p"
-- 
cgit v1.2.3