1284194Sdelphij#------------------------------------------------------------------------------
2284194Sdelphij# file:  file(1) magic for Tcl scripting language
3284194Sdelphij# URL:  http://www.tcl.tk/
4284194Sdelphij# From: gustaf neumann
5284194Sdelphij
6284194Sdelphij# Tcl scripts
7284194Sdelphij0	search/1/w	#!\ /usr/bin/tcl	Tcl script text executable
8284194Sdelphij!:mime	text/x-tcl
9284194Sdelphij0	search/1/w	#!\ /usr/local/bin/tcl	Tcl script text executable
10284194Sdelphij!:mime	text/x-tcl
11284194Sdelphij0	search/1	#!/usr/bin/env\ tcl	Tcl script text executable
12284194Sdelphij!:mime	text/x-tcl
13284194Sdelphij0	search/1	#!\ /usr/bin/env\ tcl	Tcl script text executable
14284194Sdelphij!:mime	text/x-tcl
15284194Sdelphij0	search/1/w	#!\ /usr/bin/wish	Tcl/Tk script text executable
16284194Sdelphij!:mime	text/x-tcl
17284194Sdelphij0	search/1/w	#!\ /usr/local/bin/wish	Tcl/Tk script text executable
18284194Sdelphij!:mime	text/x-tcl
19284194Sdelphij0	search/1	#!/usr/bin/env\ wish	Tcl/Tk script text executable
20284194Sdelphij!:mime	text/x-tcl
21284194Sdelphij0	search/1	#!\ /usr/bin/env\ wish	Tcl/Tk script text executable
22284194Sdelphij!:mime	text/x-tcl
23284194Sdelphij
24284194Sdelphij# check the first line
25284194Sdelphij0	search/1	package\ req
26284194Sdelphij>0	regex		\^package[\ \t]+req	Tcl script
27284194Sdelphij# not 'p', check other lines
28284194Sdelphij0	search/1	!p
29284194Sdelphij>0	regex		\^package[\ \t]+req	Tcl script
30