1226048Sobrien#------------------------------------------------------------------------------
2226048Sobrien# file:  file(1) magic for Tcl scripting language
3354939Sdelphij# URL:  https://www.tcl.tk/
4226048Sobrien# From: gustaf neumann
5226048Sobrien
6226048Sobrien# Tcl scripts
7226048Sobrien0	search/1/w	#!\ /usr/bin/tcl	Tcl script text executable
8267843Sdelphij!:mime	text/x-tcl
9226048Sobrien0	search/1/w	#!\ /usr/local/bin/tcl	Tcl script text executable
10226048Sobrien!:mime	text/x-tcl
11226048Sobrien0	search/1	#!/usr/bin/env\ tcl	Tcl script text executable
12226048Sobrien!:mime	text/x-tcl
13226048Sobrien0	search/1	#!\ /usr/bin/env\ tcl	Tcl script text executable
14226048Sobrien!:mime	text/x-tcl
15226048Sobrien0	search/1/w	#!\ /usr/bin/wish	Tcl/Tk script text executable
16226048Sobrien!:mime	text/x-tcl
17226048Sobrien0	search/1/w	#!\ /usr/local/bin/wish	Tcl/Tk script text executable
18226048Sobrien!:mime	text/x-tcl
19226048Sobrien0	search/1	#!/usr/bin/env\ wish	Tcl/Tk script text executable
20226048Sobrien!:mime	text/x-tcl
21226048Sobrien0	search/1	#!\ /usr/bin/env\ wish	Tcl/Tk script text executable
22226048Sobrien!:mime	text/x-tcl
23226048Sobrien
24226048Sobrien# check the first line
25226048Sobrien0	search/1	package\ req
26226048Sobrien>0	regex		\^package[\ \t]+req	Tcl script
27226048Sobrien# not 'p', check other lines
28226048Sobrien0	search/1	!p
29226048Sobrien>0	regex		\^package[\ \t]+req	Tcl script
30