summaryrefslogtreecommitdiff
path: root/web/noweb/src/shell/notangle
diff options
context:
space:
mode:
Diffstat (limited to 'web/noweb/src/shell/notangle')
-rw-r--r--web/noweb/src/shell/notangle27
1 files changed, 27 insertions, 0 deletions
diff --git a/web/noweb/src/shell/notangle b/web/noweb/src/shell/notangle
new file mode 100644
index 0000000000..ba3174e4be
--- /dev/null
+++ b/web/noweb/src/shell/notangle
@@ -0,0 +1,27 @@
+#!/bin/sh
+# Copyright 1991 by Norman Ramsey. All rights reserved.
+# See file COPYRIGHT for more information.
+# $Id: notangle.nw,v 1.2 1997/09/13 20:29:56 nr Exp $
+# $Name: $
+LIB=|LIBDIR|
+markup=$LIB/markup opt= arg= markopt= filters=
+while [ $# -gt 0 ]; do
+ case $1 in
+ -ml|-m3|-awk|-icn|-icon|-pascal|-c|-c++|-f77|-f90|-tex|-w[0-9][0-9]*) ;;
+ # deliberately ignore nountangle args
+ -t) ;; # this is default
+ -t*) markopt="$markopt -t" ; opt="$opt '$1'" ;;
+ # copy tabs at markup, use width given in notangle
+ -filter) filters="$filters $2 | " ; shift ;;
+ -markup) markup="$2" ; shift ;;
+ -) arg="$arg '$1'" ;;
+ -L*) opt="$opt -t '$1'" ; markopt="$markopt -t" ;;
+ -*) opt="$opt '$1'" ;;
+ *) arg="$arg '$1'" ;;
+ esac
+ shift
+done
+PATH="$PATH:$LIB"
+export PATH
+eval "$markup $markopt $arg | $filters $LIB/nt $opt "'; rc=$?'
+exit $rc