Fix typo in lr

`diralias` allows you to map a symbolic name to an absolute path.

`j` takes an alias name, and jumps (cd) to it.

Makefile

@@ -0,0 +1,3 @@
+fns=diralias j jmod lr tcat
+install:
+	install ${fns} $${FPATH:?FPATH not defined}

diralias

@@ -0,0 +1,34 @@
+function diralias
+{
+	typeset -i i
+	case $# in
+	0)
+		let i=0
+		while (( i < ${#DIRALIASNAM[@]} ))
+		do
+			printf "%s\t%s\n" ${DIRALIASNAM[i]} "${DIRALIASVAL[i]}"
+			let i++
+		done
+		;;
+	1)
+		let i=0
+		while [[ $i -lt ${#DIRALIASNAM[@]} && $1 != ${DIRALIASNAM[i]} ]]
+		do
+			let i++
+		done
+		(( i == ${#DIRALIASNAM[@]} )) && print $1 || print ${DIRALIASVAL[i]}
+		;;
+	2)
+		let i=0
+		while [[ $i -lt ${#DIRALIASNAM[@]} && $1 != ${DIRALIASNAM[i]} ]]
+		do
+			let i++
+		done
+		DIRALIASNAM[i]=$1
+		DIRALIASVAL[i]="$2"
+		;;
+	*)
+		exit 64
+		;;
+	esac
+}

j

@@ -0,0 +1,13 @@
+function j
+{
+	typeset da
+	da=$(diralias $1)
+	if print $da | grep '^!' >/dev/null
+	then
+		if ! da=$(eval $(print "$da" | sed 's/^!//') 2>/dev/null)
+		then
+			return 65
+		fi
+	fi
+	'cd' "$da"
+}

jmod

@@ -0,0 +1,15 @@
+function jmod
+{
+	(( $# != 1 )) && return 64
+	typeset m=$(jr && pwd)/modules/apps
+	typeset d=$(find $m -maxdepth 2 -mindepth 2 -type d -iregex ".*/.*$1$")
+	[[ -z $d ]] && return 1
+	if (( $(print $d | wc -w) > 1 ))
+	then
+		select d in $d
+		do
+			break
+		done
+	fi
+	print ${d##*/} && cd $d
+}

lr

@@ -0,0 +1,26 @@
+function lr
+{
+	(( $# != 1 )) && return 64
+	case $1 in
+	all)
+		(jr && ant all)
+		;;
+	bl)
+		(jr && cd modules/apps/portal-language/portal-language-lang && gw buildLang)
+		;;
+	kill)
+		pkill -9 -f Liferay
+		psql -c 'drop schema ce cascade;' -c 'create schema authorization ce;' postgres postgres
+		(jr && rm -rf ../bundles/data && rm -rf ../bundles/osgi/state)
+		;;
+	killdaemon)
+		pkill -9 -f gradle
+		;;
+	sf|fs)
+		(jr && cd portal-impl && ant format-source)
+		;;
+	*)
+		return 64
+		;;
+	esac
+}

tcat

@@ -0,0 +1,20 @@
+function tcat
+{
+	(( $# != 1 )) && return 64
+	case $1 in
+	log)
+		(jr && less ../bundles/tomcat-*/logs/catalina.out)
+		;;
+	start)
+		pgrep -f tomcat && return 1
+		(jr && ../bundles/tomcat-*/bin/catalina.sh jpda start) >/dev/null
+		;;
+	stop)
+		pgrep -f tomcat || return 1
+		(jr && ../bundles/tomcat-*/bin/shutdown.sh) >/dev/null
+		;;
+	*)
+		return 64
+		;;
+	esac
+}