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 +++++++++++++++++
1 file changed, 17 insertions(+)
create mode 100755 bin/hlp/absln
(limited to 'bin/hlp')
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
--
cgit v1.2.3