contrib/file/magic/Magdir/tcl

   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