summary refs log tree commit diff
path: root/Functions/Misc
diff options
context:
space:
mode:
Diffstat (limited to 'Functions/Misc')
-rw-r--r--Functions/Misc/mere83
1 files changed, 0 insertions, 83 deletions
diff --git a/Functions/Misc/mere b/Functions/Misc/mere
deleted file mode 100644
index a9beb2c10..000000000
--- a/Functions/Misc/mere
+++ /dev/null
@@ -1,83 +0,0 @@
-# read a man page
-
-setopt localoptions extendedglob
-
-local manual="$1" col=col terminal=man magic line
-
-# /usr/bin/col on SunOS 4 doesn't support -x.
-if [[ -x /usr/5bin/col ]]; then
-  col=/usr/5bin/col;
-fi
-
-# SunOS 5 has no `man' terminal.
-if [[ -d /usr/share/lib/nterm &&
-    ! -e /usr/share/lib/nterm/tab.$terminal ]]; then
-  terminal=lp;
-fi
-
-# HP-UX has no `man' terminal.
-if [[ -d /usr/share/lib/term &&
-    ! -e /usr/share/lib/term/tab$terminal ]]; then
-  terminal=lp;
-fi
-
-# Unixware has no `man' terminal.
-if [[ -d /usr/ucblib/doctools/nterm &&
-    ! -e /usr/ucblib/doctools/nterm/tab.$terminal ]]; then
-  terminal=lp;
-fi
-
-# Solaris has SGML manuals.
-if [[ -f /usr/lib/sgml/sgml2roff ]] && 
-   [[ "$(read -er < $manual)" = "<!DOCTYPE"* ]]; then
-  /usr/lib/sgml/sgml2roff $manual | {
-    read -r line
-    if [[ $line = ".so "* ]]; then
-      # There is no cascading .so directive.
-      # On Solaris 7, at least.
-      /usr/lib/sgml/sgml2roff ${line#.so }
-    else
-      print -lr - "$line"
-      cat
-    fi
-  }
-else
-  read -u0 -k 2 magic < $manual
-  case $magic in
-  $'\037\235') zcat $manual;;
-  $'\037\213') gzip -dc $manual;;
-  *) cat $manual;;
-  esac
-fi | (
-  # cd is required to work soelim called by nroff.
-  case $manual in
-  */man/man*/*) cd ${manual:h:h};;
-  */man/sman*/*) cd ${manual:h:h};;
-  esac
-  read -r line
-  # The first line beginning with '\" shows preprocessors.
-  # Unknown preprocessors is ignored.
-  if [[ $line = "'\\\" "* ]]; then
-    typeset -A filter
-    filter=(
-      e neqn
-      g grap
-      p pic
-      r refer
-      t tbl
-      v vgrind
-    )
-    eval ${(j:|:)${${(s::)line#\'\\\" }//(#m)?/$filter[$MATCH]}}
-  elif [[ $line = "'\\\"! "* ]]; then
-    typeset -A filter
-    filter=(
-      eqn neqn
-    )
-    eval ${(j:|:)${${${${(s:|:)line#\'\\\"! }# ##}% ##}//(#m)*/$filter[$MATCH]}}
-  else
-    print -lr - "$line"
-    cat
-  fi |
-  nroff -T$terminal -man | $col -x
-) |
-${=MANPAGER:-${PAGER:-more}} -s