From 94787ac0f57879c5c9f97ad12e2ae12d2289025c Mon Sep 17 00:00:00 2001
From: Adolfo Perez Alvarez <adolfopa@sdf.org>
Date: Wed, 7 Sep 2022 11:59:33 +0200
Subject: [PATCH] Prefer ksh specific features

---
 diralias | 9 ++++-----
 j        | 9 ++++-----
 jmod     | 8 ++++----
 3 files changed, 12 insertions(+), 14 deletions(-)

diff --git a/diralias b/diralias
index ccfe528..b54b7c1 100644
--- a/diralias
+++ b/diralias
@@ -1,5 +1,4 @@
-#!/bin/ksh
-diralias()
+function diralias
 {
 	typeset -i i
 	case $# in
@@ -13,15 +12,15 @@ diralias()
 		;;
 	1)
 		let i=0
-		while [[ i -lt ${#DIRALIASNAM[@]} && $1 != ${DIRALIASNAM[i]} ]]
+		while [[ $i -lt ${#DIRALIASNAM[@]} && $1 != ${DIRALIASNAM[i]} ]]
 		do
 			let i++
 		done
-		(( i == ${#DIRALIASNAM[@]} )) && echo $1 || echo ${DIRALIASVAL[i]}
+		(( i == ${#DIRALIASNAM[@]} )) && print $1 || print ${DIRALIASVAL[i]}
 		;;
 	2)
 		let i=0
-		while [[ i -lt ${#DIRALIASNAM[@]} && $1 != ${DIRALIASNAM[i]} ]]
+		while [[ $i -lt ${#DIRALIASNAM[@]} && $1 != ${DIRALIASNAM[i]} ]]
 		do
 			let i++
 		done
diff --git a/j b/j
index b7edd16..69086a4 100644
--- a/j
+++ b/j
@@ -1,11 +1,10 @@
-#!/bin/ksh
-j()
+function j
 {
-	local da
+	typeset da
 	da=$(diralias $1)
-	if echo $da | grep '^!' >/dev/null
+	if print $da | grep '^!' >/dev/null
 	then
-		if ! da=$(eval $(echo "$da" | sed 's/^!//') 2>/dev/null)
+		if ! da=$(eval $(print "$da" | sed 's/^!//') 2>/dev/null)
 		then
 			return 65
 		fi
diff --git a/jmod b/jmod
index d94dcf1..bbc265f 100644
--- a/jmod
+++ b/jmod
@@ -1,15 +1,15 @@
 function jmod
 {
 	(( $# != 1 )) && return 64
-	local m=$(jr && pwd)/modules/apps
-	local d=$(find $m -maxdepth 2 -mindepth 2 -type d -iregex ".*/.*$1$")
+	typeset m=$(jr && pwd)/modules/apps
+	typeset d=$(find $m -maxdepth 2 -mindepth 2 -type d -iregex ".*/.*$1$")
 	[[ -z $d ]] && return 1
-	if [[ $(echo $d | wc -w) > 1 ]]
+	if (( $(print $d | wc -w) > 1 ))
 	then
 		select d in $d
 		do
 			break
 		done
 	fi
-	echo ${d##*/} && cd $d
+	print ${d##*/} && cd $d
 }