"Fossies" - the Fresh Open Source Software Archive

Member "file-5.35/magic/Magdir/tcl" (17 Mar 2017, 1004 Bytes) of package /linux/misc/file-5.35.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 #------------------------------------------------------------------------------
    2 # file:  file(1) magic for Tcl scripting language
    3 # URL:  http://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