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