1*835f6802SDirk Vogt 2ef01931fSBen Gras#------------------------------------------------------------------------------ 3*835f6802SDirk Vogt# $File: lisp,v 1.23 2009/09/19 16:28:10 christos Exp $ 4ef01931fSBen Gras# lisp: file(1) magic for lisp programs 5ef01931fSBen Gras# 6ef01931fSBen Gras# various lisp types, from Daniel Quinlan (quinlan@yggdrasil.com) 7ef01931fSBen Gras 8ef01931fSBen Gras# updated by Joerg Jenderek 9ef01931fSBen Gras# GRR: This lot is too weak 10ef01931fSBen Gras#0 string ;; 11ef01931fSBen Gras# windows INF files often begin with semicolon and use CRLF as line end 12ef01931fSBen Gras# lisp files are mainly created on unix system with LF as line end 13ef01931fSBen Gras#>2 search/4096 !\r Lisp/Scheme program text 14ef01931fSBen Gras#>2 search/4096 \r Windows INF file 15ef01931fSBen Gras 16ef01931fSBen Gras0 search/4096 (setq\ Lisp/Scheme program text 17ef01931fSBen Gras!:mime text/x-lisp 18ef01931fSBen Gras0 search/4096 (defvar\ Lisp/Scheme program text 19ef01931fSBen Gras!:mime text/x-lisp 20ef01931fSBen Gras0 search/4096 (defparam\ Lisp/Scheme program text 21ef01931fSBen Gras!:mime text/x-lisp 22ef01931fSBen Gras0 search/4096 (defun\ Lisp/Scheme program text 23ef01931fSBen Gras!:mime text/x-lisp 24ef01931fSBen Gras0 search/4096 (autoload\ Lisp/Scheme program text 25ef01931fSBen Gras!:mime text/x-lisp 26ef01931fSBen Gras0 search/4096 (custom-set-variables\ Lisp/Scheme program text 27ef01931fSBen Gras!:mime text/x-lisp 28ef01931fSBen Gras 29ef01931fSBen Gras# Emacs 18 - this is always correct, but not very magical. 30ef01931fSBen Gras0 string \012( Emacs v18 byte-compiled Lisp data 31ef01931fSBen Gras!:mime application/x-elc 32ef01931fSBen Gras# Emacs 19+ - ver. recognition added by Ian Springer 33ef01931fSBen Gras# Also applies to XEmacs 19+ .elc files; could tell them apart with regexs 34ef01931fSBen Gras# - Chris Chittleborough <cchittleborough@yahoo.com.au> 35ef01931fSBen Gras0 string ;ELC 36ef01931fSBen Gras>4 byte >18 37ef01931fSBen Gras>4 byte <32 Emacs/XEmacs v%d byte-compiled Lisp data 38ef01931fSBen Gras!:mime application/x-elc 39ef01931fSBen Gras 40ef01931fSBen Gras# Files produced by CLISP Common Lisp From: Bruno Haible <haible@ilog.fr> 41ef01931fSBen Gras0 string (SYSTEM::VERSION\040' CLISP byte-compiled Lisp program (pre 2004-03-27) 42ef01931fSBen Gras0 string (|SYSTEM|::|VERSION|\040' CLISP byte-compiled Lisp program text 43ef01931fSBen Gras 44ef01931fSBen Gras0 long 0x70768BD2 CLISP memory image data 45ef01931fSBen Gras0 long 0xD28B7670 CLISP memory image data, other endian 46ef01931fSBen Gras 47ef01931fSBen Gras#.com and .bin for MIT scheme 48ef01931fSBen Gras0 string \372\372\372\372 MIT scheme (library?) 49ef01931fSBen Gras 50ef01931fSBen Gras# From: David Allouche <david@allouche.net> 51ef01931fSBen Gras0 search/1 \<TeXmacs| TeXmacs document text 52ef01931fSBen Gras!:mime text/texmacs 53