X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/beb54af10082dc588132b2c0d32e050028b72c78..78ed81a334dab56aa7a876792a473d67d4359c25:/usr.bin/file/magdir/commands

diff --git a/usr.bin/file/magdir/commands b/usr.bin/file/magdir/commands
index 417eee8076..a987ff212c 100644
--- a/usr.bin/file/magdir/commands
+++ b/usr.bin/file/magdir/commands
@@ -1,14 +1,32 @@
-0	string		#!\ /bin/sh	commands text
-0	string		#!/bin/sh	commands text
-0	string		#!\ /bin/csh	C shell commands text
-0	string		#!/bin/csh	C shell commands text
-0	string		#!\ /bin/awk	awk commands text
-0	string		#!/bin/awk	awk commands text
-0	string		#!\ /		some kinda commands text
-0	string		#!/		some kinda commands text
-0	string		#!\ 		commands text
->3	string		>\0		 for %s
-#	An "antique" kernel is either unmodified early V7,
-#	without DMR's 1979 mod for #!, or any kernel
-#	derived from a pre-v7 kernel (i.e., System V)
-0	string		:\ 		shell archive or commands for antique kernel text
+#
+# "Commands": stuff for various shells and interpreters.
+#
+0	string		:\ shell archive or commands for antique kernel text
+0	string		#!/bin/sh		Bourne Shell script text
+0	string		#!\ /bin/sh		Bourne Shell script text
+0	string		#!/bin/csh		C Shell script text
+0	string		#!\ /bin/csh		C Shell script text
+# korn shell magic, sent by George Wu, gwu@clyde.att.com
+0	string		#!/bin/ksh		Korn Shell script text
+0	string		#!\ /bin/ksh		Korn Shell script text
+0	string	 	#!/bin/tcsh		Tenex C Shell script text
+0	string	 	#!\ /bin/tcsh		Tenex C Shell script text
+0	string		#!/usr/local/tcsh	Tenex C Shell script text
+0	string	 	#!\ /usr/local/tcsh	Tenex C Shell script text
+0	string		#!/usr/local/bin/tcsh	Tenex C Shell script text
+0	string		#!\ /usr/local/bin/tcsh	Tenex C Shell script text
+0	string		#!/bin/awk		Awk Commands text
+0	string		#!\ /bin/awk		Awk Commands text
+0	string		#!\ /			a
+>3	string		>\0			%s script
+0	string		#!/			a
+>2	string		>\0			%s script
+0	string		#!\ 			commands text
+>3	string		>\0			for %s
+
+# For Larry Wall's perl language.  The ``eval'' line recognizes an
+# outrageously clever hack for USG systems.
+#				Keith Waclena <keith@cerberus.uchicago.edu>
+0	string		#!/bin/perl	perl commands text
+0	string		#!\ /bin/perl	perl commands text
+0	string		eval\ "exec\ /bin/perl	perl commands text