From: Reuben Thomas <rrt@sc3d.org>
Date: Mon, 1 Nov 2010 18:36:46 +0000 (+0000)
Subject: Add tcl magic from Gustaf Neumann.
X-Git-Tag: FILE5_07~101
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=8d60a024c18326aab5d4ba93674768223a7d75a0;p=file

Add tcl magic from Gustaf Neumann.
---

diff --git a/ChangeLog b/ChangeLog
index 7d0b2d16..54d623ac 100644
--- 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
index 00000000..223f93b5
--- /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 9273e15c..1ba92117 100644
--- 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 \