1835f6802SDirk Vogt#------------------------------------------------------------------------------ 2835f6802SDirk Vogt# file: file(1) magic for Tcl scripting language 3835f6802SDirk Vogt# URL: http://www.tcl.tk/ 4835f6802SDirk Vogt# From: gustaf neumann 5835f6802SDirk Vogt 6835f6802SDirk Vogt# Tcl scripts 7835f6802SDirk Vogt0 search/1/w #!\ /usr/bin/tcl Tcl script text executable 8*0a6a1f1dSLionel Sambuc!:mime text/x-tcl 9835f6802SDirk Vogt0 search/1/w #!\ /usr/local/bin/tcl Tcl script text executable 10835f6802SDirk Vogt!:mime text/x-tcl 11835f6802SDirk Vogt0 search/1 #!/usr/bin/env\ tcl Tcl script text executable 12835f6802SDirk Vogt!:mime text/x-tcl 13835f6802SDirk Vogt0 search/1 #!\ /usr/bin/env\ tcl Tcl script text executable 14835f6802SDirk Vogt!:mime text/x-tcl 15835f6802SDirk Vogt0 search/1/w #!\ /usr/bin/wish Tcl/Tk script text executable 16835f6802SDirk Vogt!:mime text/x-tcl 17835f6802SDirk Vogt0 search/1/w #!\ /usr/local/bin/wish Tcl/Tk script text executable 18835f6802SDirk Vogt!:mime text/x-tcl 19835f6802SDirk Vogt0 search/1 #!/usr/bin/env\ wish Tcl/Tk script text executable 20835f6802SDirk Vogt!:mime text/x-tcl 21835f6802SDirk Vogt0 search/1 #!\ /usr/bin/env\ wish Tcl/Tk script text executable 22835f6802SDirk Vogt!:mime text/x-tcl 23835f6802SDirk Vogt 24835f6802SDirk Vogt# check the first line 25835f6802SDirk Vogt0 search/1 package\ req 26835f6802SDirk Vogt>0 regex \^package[\ \t]+req Tcl script 27835f6802SDirk Vogt# not 'p', check other lines 28835f6802SDirk Vogt0 search/1 !p 29835f6802SDirk Vogt>0 regex \^package[\ \t]+req Tcl script 30