lisp

sleuthit-2.09 一个磁盘的工具集

#------------------------------------------------------------------------------
# lisp:  file(1) magic for lisp programs
#
# various lisp types, from Daniel Quinlan ([e-mail])

# updated by Joerg Jenderek
0	string	;;			
# windows INF files often begin with semicolon and use CRLF as line end
# lisp files are mainly created on unix system with LF as line end
>2	search/2048	!\r		Lisp/Scheme program text
>2	search/2048	\r		Windows INF file

0	search/256	(if\ 			Lisp/Scheme program text
0	search/256	(setq\ 			Lisp/Scheme program text
0	search/256	(defvar\ 		Lisp/Scheme program text
0	search/256	(defparam\ 		Lisp/Scheme program text
0	search/256	(defun\  		Lisp/Scheme program text
0	search/256	(autoload\ 		Lisp/Scheme program text
0	search/256	(custom-set-variables\ 	Lisp/Scheme program text

# Emacs 18 - this is always correct, but not very magical.
0	string	\012(			Emacs v18 byte-compiled Lisp data
# Emacs 19+ - ver. recognition added by Ian Springer
# Also applies to XEmacs 19+ .elc files; could tell them apart if we had regexp
# support or similar - Chris Chittleborough <[e-mail]>
0	string	;ELC			
>4	byte	>19			
>4	byte    <32			Emacs/XEmacs v%d byte-compiled Lisp data

# Files produced by CLISP Common Lisp From: Bruno Haible <[e-mail]>
0	string	(SYSTEM::VERSION\040'	CLISP byte-compiled Lisp program text
0	long	0x70768BD2		CLISP memory image data
0	long	0xD28B7670		CLISP memory image data, other endian

# Files produced by GNU gettext
0	long	0xDE120495		GNU-format message catalog data
0	long	0x950412DE		GNU-format message catalog data

#.com and .bin for MIT scheme 
0	string	\372\372\372\372	MIT scheme (library?)

# From: David Allouche <[e-mail]>
0	string	\<TeXmacs|	TeXmacs document text