1226048Sobrien#------------------------------------------------------------------------------ 2226048Sobrien# file: file(1) magic for Tcl scripting language 3226048Sobrien# URL: http://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