1e4d4ce0cSPeter Avalos#------------------------------------------------------------------------------ 2e4d4ce0cSPeter Avalos# file: file(1) magic for Tcl scripting language 36fca56fbSSascha Wildner# URL: https://www.tcl.tk/ 4e4d4ce0cSPeter Avalos# From: gustaf neumann 5e4d4ce0cSPeter Avalos 6e4d4ce0cSPeter Avalos# Tcl scripts 7e4d4ce0cSPeter Avalos0 search/1/w #!\ /usr/bin/tcl Tcl script text executable 8*e8af9738SPeter Avalos!:mime text/x-tcl 9e4d4ce0cSPeter Avalos0 search/1/w #!\ /usr/local/bin/tcl Tcl script text executable 10e4d4ce0cSPeter Avalos!:mime text/x-tcl 11e4d4ce0cSPeter Avalos0 search/1 #!/usr/bin/env\ tcl Tcl script text executable 12e4d4ce0cSPeter Avalos!:mime text/x-tcl 13e4d4ce0cSPeter Avalos0 search/1 #!\ /usr/bin/env\ tcl Tcl script text executable 14e4d4ce0cSPeter Avalos!:mime text/x-tcl 15e4d4ce0cSPeter Avalos0 search/1/w #!\ /usr/bin/wish Tcl/Tk script text executable 16e4d4ce0cSPeter Avalos!:mime text/x-tcl 17e4d4ce0cSPeter Avalos0 search/1/w #!\ /usr/local/bin/wish Tcl/Tk script text executable 18e4d4ce0cSPeter Avalos!:mime text/x-tcl 19e4d4ce0cSPeter Avalos0 search/1 #!/usr/bin/env\ wish Tcl/Tk script text executable 20e4d4ce0cSPeter Avalos!:mime text/x-tcl 21e4d4ce0cSPeter Avalos0 search/1 #!\ /usr/bin/env\ wish Tcl/Tk script text executable 22e4d4ce0cSPeter Avalos!:mime text/x-tcl 23e4d4ce0cSPeter Avalos 24e4d4ce0cSPeter Avalos# check the first line 25e4d4ce0cSPeter Avalos0 search/1 package\ req 26e4d4ce0cSPeter Avalos>0 regex \^package[\ \t]+req Tcl script 27e4d4ce0cSPeter Avalos# not 'p', check other lines 28e4d4ce0cSPeter Avalos0 search/1 !p 29e4d4ce0cSPeter Avalos>0 regex \^package[\ \t]+req Tcl script 30