1 files changed, 95 insertions, 0 deletions
diff --git a/con.sh b/con.sh
new file mode 100755
index 0000000..7ae6a93
--- /dev/null
+++ b/con.sh
@@ -0,0 +1,95 @@
+#!/bin/sh
+# con: Consulta la Constitución Española desde tu terminal
+# License: Public domain
+
+SELF="$0"
+
+get_data() {
+	sed '1,/^#EOF$/d' < "$SELF" | tar xz -O "$1"
+}
+
+if [ -z "$PAGER" ]; then
+	if command -v less >/dev/null; then
+		PAGER="less"
+	else
+		PAGER="cat"
+	fi
+fi
+
+show_help() {
+	exec >&2
+	echo "uso: $(basename "$0") [flags] [referencia...]"
+	echo
+	echo "  -l      listar apartados"
+	echo "  -W      sin saltos de línea"
+	echo "  -h      mostrar ayuda"
+	echo
+	echo "  Tipos de referencia:"
+	echo "      <Apartado>"
+	echo "          Apartado individual"
+	echo "      <Apartado>:<Artículo>"
+	echo "          Artículo concreto"
+	echo "      <Apartado>:<Artículo>:<Punto>[,<Punto>]..."
+	echo "          Puntos concretos de un artículo"
+	echo "      <Apartado>:<Artículo>-<Artículo>"
+	echo "          Rango de artículos"
+	echo "      <Apartado>:<Artículo>:<Punto>-<Punto>"
+	echo "          Rango de puntos de un artículo"
+	echo "      <Apartado>:<Artículo>:<Punto>-<Artículo>:<Punto>"
+	echo "          Rango de artículos y puntos"
+	echo
+	echo "      /<Búsqueda>"
+	echo "          Todos los puntos que concuerden con la búsqueda"
+	echo "      <Apartado>/<Búsqueda>"
+	echo "          Todos los puntos de un apartado que concuerden con la búsqueda"
+	echo "      <Apartado>:<Artículo>/<Búsqueda>"
+	echo "          Todos los puntos de un artículo que concuerden con la búsqueda"
+	exit 2
+}
+
+while [ $# -gt 0 ]; do
+	isFlag=0
+	firstChar="${1%"${1#?}"}"
+	if [ "$firstChar" = "-" ]; then
+		isFlag=1
+	fi
+
+	if [ "$1" = "--" ]; then
+		shift
+		break
+	elif [ "$1" = "-l" ]; then
+		# List all book names with their abbreviations
+		get_data con.tsv | awk -v cmd=list "$(get_data con.awk)"
+		exit
+	elif [ "$1" = "-W" ]; then
+		export KJV_NOLINEWRAP=1
+		shift
+	elif [ "$1" = "-h" ] || [ "$isFlag" -eq 1 ]; then
+		show_help
+	else
+		break
+	fi
+done
+
+cols=$(tput cols 2>/dev/null)
+if [ $? -eq 0 ]; then
+	export KJV_MAX_WIDTH="$cols"
+fi
+
+if [ $# -eq 0 ]; then
+	if [ ! -t 0 ]; then
+		show_help
+	fi
+
+	# Interactive mode
+	while true; do
+		printf "con> "
+		if ! read -r ref; then
+			break
+		fi
+		get_data con.tsv | awk -v cmd=ref -v ref="$ref" "$(get_data con.awk)" | ${PAGER}
+	done
+	exit 0
+fi
+
+get_data con.tsv 2>/dev/null | awk -v cmd=ref -v ref="$*" "$(get_data con.awk)" 2>/dev/null | ${PAGER}