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