1#------------------------------------------------------------------------------ 2# file: file(1) magic for Tcl scripting language 3# URL: http://www.tcl.tk/ 4# From: gustaf neumann 5 6# Tcl scripts 70 search/1/w #!\ /usr/bin/tcl Tcl script text executable 8!:mime text/x-tcl 90 search/1/w #!\ /usr/local/bin/tcl Tcl script text executable 10!:mime text/x-tcl 110 search/1 #!/usr/bin/env\ tcl Tcl script text executable 12!:mime text/x-tcl 130 search/1 #!\ /usr/bin/env\ tcl Tcl script text executable 14!:mime text/x-tcl 150 search/1/w #!\ /usr/bin/wish Tcl/Tk script text executable 16!:mime text/x-tcl 170 search/1/w #!\ /usr/local/bin/wish Tcl/Tk script text executable 18!:mime text/x-tcl 190 search/1 #!/usr/bin/env\ wish Tcl/Tk script text executable 20!:mime text/x-tcl 210 search/1 #!\ /usr/bin/env\ wish Tcl/Tk script text executable 22!:mime text/x-tcl 23 24# check the first line 250 search/1 package\ req 26>0 regex \^package[\ \t]+req Tcl script 27# not 'p', check other lines 280 search/1 !p 29>0 regex \^package[\ \t]+req Tcl script 30