fix bug that can cause recursive .forward files to fail

[unix-history] / usr / src / bin / sh / mktokens

diff --git a/usr/src/bin/sh/mktokens b/usr/src/bin/sh/mktokens
index 5e53916..69e94f5 100644 (file)
--- a/usr/src/bin/sh/mktokens
+++ b/usr/src/bin/sh/mktokens
@@ -1,14 +1,14 @@
 #!/bin/sh -
 #
 #!/bin/sh -
 #

-# Copyright (c) 1991 The Regents of the University of California.
-# All rights reserved.
+# Copyright (c) 1991, 1993
+#      The Regents of the University of California.  All rights reserved.

 #
 # This code is derived from software contributed to Berkeley by
 # Kenneth Almquist.
 #
 # %sccs.include.redist.sh%
 #
 #
 # This code is derived from software contributed to Berkeley by
 # Kenneth Almquist.
 #
 # %sccs.include.redist.sh%
 #

-#      @(#)mktokens    5.1 (Berkeley) %G%
+#      @(#)mktokens    8.1 (Berkeley) %G%

 
 # The following is a list of tokens.  The second column is nonzero if the
 # token marks the end of a list.  The third column is the name to print in
 
 # The following is a list of tokens.  The second column is nonzero if the
 # token marks the end of a list.  The third column is the name to print in


@@ -42,6 +42,7 @@ TBEGIN        0       "{"
 TEND   1       "}"
 TCASE  0       "case"
 TESAC  1       "esac"
 TEND   1       "}"
 TCASE  0       "case"
 TESAC  1       "esac"

+TNOT   0       "!"

 !
 nl=`wc -l /tmp/ka$$`
 exec > token.def
 !
 nl=`wc -l /tmp/ka$$`
 exec > token.def