From 294bcbb4dbea571f417dc3be6de6d32c0a956bba Mon Sep 17 00:00:00 2001
From: Silvio Rhatto <rhatto@riseup.net>
Date: Sat, 20 Feb 2021 10:07:49 -0300
Subject: Feat: adds catcode

---
 catcode   | 30 ++++++++++++++++++++++++++++++
 tombclose |  2 +-
 tombopen  |  2 +-
 3 files changed, 32 insertions(+), 2 deletions(-)
 create mode 100755 catcode

diff --git a/catcode b/catcode
new file mode 100755
index 0000000..fb3b99d
--- /dev/null
+++ b/catcode
@@ -0,0 +1,30 @@
+#!/usr/bin/env bash
+#
+# Display the source of a script.
+#
+
+# Parameters
+BASENAME="`basename $0`"
+COMMAND="$1"
+PAGER="$2"
+
+# Check
+if [ -z "$COMMAND" ]; then
+  echo "usage: $BASENAME <command>"
+elif [ ! -e "$COMMAND" ]; then
+  COMMAND="`which $COMMAND 2> /dev/null`"
+
+  if [ -z "$COMMAND" ]; then
+    echo "$BASENAME: cannot find command"
+    exit 1
+  fi
+fi
+
+# Shebang checker
+if head -1 $COMMAND | grep -q '#!'; then
+  if [ -z "$PAGER" ]; then
+    cat $COMMAND
+  elif [ "$PAGER" == "less" ]; then
+    less $COMMAND
+  fi
+fi
diff --git a/tombclose b/tombclose
index 93d35db..711af86 100755
--- a/tombclose
+++ b/tombclose
@@ -1,4 +1,4 @@
-#/usr/bin/env bash
+#!/usr/bin/env bash
 #
 # Close a Tomb.
 #
diff --git a/tombopen b/tombopen
index 506d503..0de4e81 100755
--- a/tombopen
+++ b/tombopen
@@ -1,4 +1,4 @@
-#/usr/bin/env bash
+#!/usr/bin/env bash
 #
 # Open a Tomb.
 #
-- 
cgit v1.2.3