Add files via upload

fun

@@ -0,0 +1,12 @@
+#!/bin/sh
+
+case $# in
+1) sed -n /function.$1/,/}/p *; sed -n /proc.$1/,/}/p *; sed -n /sub.$1/,/}/p *;
+;;
+2) sed -n /function.$1/,/}/p $2; sed -n /proc.$1/,/}/p $2; sed -n /sub.$1/,/}/p $2;
+;;
+*) echo "usage: fun fctname [filename]?"
+   exit 1
+;;
+esac
+exit 0

nana

@@ -0,0 +1,21 @@
+#!/bin/sh
+# usage: nana [[startline] [endline]]? [file]*
+
+if [ "X$1" = "X" ]; then
+  echo "usage: nana [[startline] [endline]]? [file]*"
+  exit
+fi
+
+if [ -f $1 ]
+then
+
+  pr -t -n -m $*
+
+else
+  O=`expr $1 - 1`
+  N=$2
+  M=`expr $2 - $O`
+
+  echo \<$3\>
+  pr -t -n $3 | head -n$N | tail -n$M  
+fi

var

@@ -0,0 +1,12 @@
+#!/bin/sh
+
+case $# in
+1) (pcregrep -n "^[$]?$1[^\w]" * ; pcregrep -n "   ? ?[$]?$1[^\w]" * ; pcregrep -n "[^\w'][$]?$1[^\w]" * ) | sort -un
+;;
+2) (pcregrep -n "^[$]?$1[^\w]" $2 ; pcregrep -n "   ? ?[$]?$1[^\w]" $2 ; pcregrep -n "[^\w'][$]?$1[^\w]" $2 ) | sort -un
+;;
+*) echo "usage: var [identifier] [file]?"
+   exit 1
+;;
+esac
+exit 0