Add tcl magic from Gustaf Neumann.

diff --git a/ChangeLog b/ChangeLog
index 7d0b2d1627632167350e893cc0e0a5d9a92af795..54d623ac348e94cec0d9534702b74ea068d09706 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2010-11-01  18:35  Reuben Thomas <rrt@sc3d.org>
+       * Add tcl magic from Gustaf Neumann
+
 2010-10-24  10:42  Christos Zoulas <christos@zoulas.com>
 
        * Fix the whitespace comparing code (Christopher Chittleborough)

diff --git a/magic/Magdir/tcl b/magic/Magdir/tcl
new file mode 100644 (file)
index 0000000..223f93b
--- /dev/null
+++ b/magic/Magdir/tcl
@@ -0,0 +1,29 @@
+#------------------------------------------------------------------------------
+# 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

diff --git a/magic/Makefile.am b/magic/Makefile.am
index 9273e15cb96f436e7189c95547e619ea12cfb306..1ba92117b2e12c8a5b9a00c94dcbbf302ed48659 100644 (file)
--- a/magic/Makefile.am
+++ b/magic/Makefile.am
@@ -1,5 +1,5 @@
 #
-# $File: Makefile.am,v 1.56 2010/07/08 20:18:40 christos Exp $
+# $File: Makefile.am,v 1.57 2010/09/20 19:19:16 rrt Exp $
 #
 MAGIC_FRAGMENT_BASE = Magdir
 MAGIC_DIR = $(top_srcdir)/magic
@@ -197,6 +197,7 @@ $(MAGIC_FRAGMENT_DIR)/ssh \
 $(MAGIC_FRAGMENT_DIR)/ssl \
 $(MAGIC_FRAGMENT_DIR)/sun \
 $(MAGIC_FRAGMENT_DIR)/sysex \
+$(MAGIC_FRAGMENT_DIR)/tcl \
 $(MAGIC_FRAGMENT_DIR)/teapot \
 $(MAGIC_FRAGMENT_DIR)/terminfo \
 $(MAGIC_FRAGMENT_DIR)/tex \