| 1234567891011121314151617181920212223242526272829 | 
							- #------------------------------------------------------------------------------
 
- # file:  file(1) magic for Tcl scripting language
 
- # URL:  http://www.tcl.tk/
 
- # From: gustaf neumann
 
- # Tcl scripts
 
- 0	search/1/w	#!\ /usr/bin/tcl	Tcl script text executable
 
- !:mime	text/x-tcl
 
- 0	search/1/w	#!\ /usr/local/bin/tcl	Tcl script text executable
 
- !:mime	text/x-tcl
 
- 0	search/1	#!/usr/bin/env\ tcl	Tcl script text executable
 
- !:mime	text/x-tcl
 
- 0	search/1	#!\ /usr/bin/env\ tcl	Tcl script text executable
 
- !:mime	text/x-tcl
 
- 0	search/1/w	#!\ /usr/bin/wish	Tcl/Tk script text executable
 
- !:mime	text/x-tcl
 
- 0	search/1/w	#!\ /usr/local/bin/wish	Tcl/Tk script text executable
 
- !:mime	text/x-tcl
 
- 0	search/1	#!/usr/bin/env\ wish	Tcl/Tk script text executable
 
- !:mime	text/x-tcl
 
- 0	search/1	#!\ /usr/bin/env\ wish	Tcl/Tk script text executable
 
- !:mime	text/x-tcl
 
- # check the first line
 
- 0	search/1	package\ req
 
- >0	regex		\^package[\ \t]+req	Tcl script
 
- # not 'p', check other lines
 
- 0	search/1	!p
 
- >0	regex		\^package[\ \t]+req	Tcl script
 
 
  |