1226048Sobrien
268349Sobrien#------------------------------------------------------------------------------
3226048Sobrien# $File: lisp,v 1.23 2009/09/19 16:28:10 christos Exp $
468349Sobrien# lisp:  file(1) magic for lisp programs
568349Sobrien#
668349Sobrien# various lisp types, from Daniel Quinlan (quinlan@yggdrasil.com)
7103373Sobrien
8159764Sobrien# updated by Joerg Jenderek
9186690Sobrien# GRR: This lot is too weak
10186690Sobrien#0	string	;;			
11159764Sobrien# windows INF files often begin with semicolon and use CRLF as line end
12159764Sobrien# lisp files are mainly created on unix system with LF as line end
13192348Sdelphij#>2	search/4096	!\r		Lisp/Scheme program text
14192348Sdelphij#>2	search/4096	\r		Windows INF file
15103373Sobrien
16192348Sdelphij0	search/4096	(setq\ 			Lisp/Scheme program text
17186690Sobrien!:mime	text/x-lisp
18192348Sdelphij0	search/4096	(defvar\ 		Lisp/Scheme program text
19186690Sobrien!:mime	text/x-lisp
20192348Sdelphij0	search/4096	(defparam\ 		Lisp/Scheme program text
21186690Sobrien!:mime	text/x-lisp
22192348Sdelphij0	search/4096	(defun\  		Lisp/Scheme program text
23186690Sobrien!:mime	text/x-lisp
24192348Sdelphij0	search/4096	(autoload\ 		Lisp/Scheme program text
25186690Sobrien!:mime	text/x-lisp
26192348Sdelphij0	search/4096	(custom-set-variables\ 	Lisp/Scheme program text
27186690Sobrien!:mime	text/x-lisp
28169962Sobrien
2968349Sobrien# Emacs 18 - this is always correct, but not very magical.
30103373Sobrien0	string	\012(			Emacs v18 byte-compiled Lisp data
31186690Sobrien!:mime	application/x-elc
3274784Sobrien# Emacs 19+ - ver. recognition added by Ian Springer
33186690Sobrien# Also applies to XEmacs 19+ .elc files; could tell them apart with regexs
34186690Sobrien# - Chris Chittleborough <cchittleborough@yahoo.com.au>
35186690Sobrien0	string	;ELC	
36186690Sobrien>4	byte	>18			
37103373Sobrien>4	byte    <32			Emacs/XEmacs v%d byte-compiled Lisp data
38186690Sobrien!:mime	application/x-elc		
39103373Sobrien
4068349Sobrien# Files produced by CLISP Common Lisp From: Bruno Haible <haible@ilog.fr>
41186690Sobrien0	string	(SYSTEM::VERSION\040'	CLISP byte-compiled Lisp program (pre 2004-03-27)
42186690Sobrien0	string	(|SYSTEM|::|VERSION|\040'	CLISP byte-compiled Lisp program text
43186690Sobrien
4468349Sobrien0	long	0x70768BD2		CLISP memory image data
4568349Sobrien0	long	0xD28B7670		CLISP memory image data, other endian
46103373Sobrien
4768349Sobrien#.com and .bin for MIT scheme 
4868349Sobrien0	string	\372\372\372\372	MIT scheme (library?)
49110949Sobrien
50110949Sobrien# From: David Allouche <david@allouche.net>
51186690Sobrien0	search/1	\<TeXmacs|	TeXmacs document text
52186690Sobrien!:mime	text/texmacs
53