30 lines
1,004 B
Text
30 lines
1,004 B
Text
|
#------------------------------------------------------------------------------
|
||
|
|
# file: file(1) magic for Tcl scripting language
|
||
|
|
# URL: http://www.tcl.tk/
|
||
|
|
# From: gustaf neumann
|
||
|
|
|
||
|
|
# Tcl scripts
|
||
|
|
0 search/1/w #!\ /usr/bin/tcl Tcl script text executable
|
||
|
|
!:mime text/x-lua
|
||
|
|
0 search/1/w #!\ /usr/local/bin/tcl Tcl script text executable
|
||
|
|
!:mime text/x-tcl
|
||
|
|
0 search/1 #!/usr/bin/env\ tcl Tcl script text executable
|
||
|
|
!:mime text/x-tcl
|
||
|
|
0 search/1 #!\ /usr/bin/env\ tcl Tcl script text executable
|
||
|
|
!:mime text/x-tcl
|
||
|
|
0 search/1/w #!\ /usr/bin/wish Tcl/Tk script text executable
|
||
|
|
!:mime text/x-tcl
|
||
|
|
0 search/1/w #!\ /usr/local/bin/wish Tcl/Tk script text executable
|
||
|
|
!:mime text/x-tcl
|
||
|
|
0 search/1 #!/usr/bin/env\ wish Tcl/Tk script text executable
|
||
|
|
!:mime text/x-tcl
|
||
|
|
0 search/1 #!\ /usr/bin/env\ wish Tcl/Tk script text executable
|
||
|
|
!:mime text/x-tcl
|
||
|
|
|
||
|
|
# check the first line
|
||
|
|
0 search/1 package\ req
|
||
|
|
>0 regex \^package[\ \t]+req Tcl script
|
||
|
|
# not 'p', check other lines
|
||
|
|
0 search/1 !p
|
||
|
|
>0 regex \^package[\ \t]+req Tcl script
|