fJc
@ s d Z d d k Z y e Wn# e j
o d d k l Z n Xd d k l Z l Z l Z l
Z
l Z d d k l
Z
l Z l Z l Z l Z l Z l Z l Z l Z l Z d d d d d
d d g Z d e f d
YZ d e f d YZ d e f d YZ e i d Z e i d Z d e f d YZ d
e f d YZ d e f d YZ d e f d YZ! d S( s
pygments.lexers.functional
~~~~~~~~~~~~~~~~~~~~~~~~~~
Lexers for functional languages.
:copyright: Copyright 2006-2009 by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
iN( t Set( t Lexert
RegexLexert bygroupst includet
do_insertions(
t Textt Commentt Operatort Keywordt Namet Stringt Numbert Punctuationt Literalt Generict SchemeLexert CommonLispLexert HaskellLexert LiterateHaskellLexert
OcamlLexert ErlangLexert ErlangShellLexerc B s% e Z d Z d Z d d g Z d g Z d d g Z d d d d
d d d
d d d d d d d d d d d d d d d d d g Z d d d! d" d# d$ d% d& d' d( d) d* d+ d, d- d. d/ d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 d: d; d< d= d> d? d@ dA dB dC dD dE dF dG dH dI dJ dK dL dM dN dO dP dQ dR dS dT dU dV dW dX dY dZ d[ d\ d] d^ d_ d` da db dc dd de df dg dh di dj dk dl dm dn do dp dq dr ds dt du dv dw dx dy dz d{ d| d} d~ d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d d g Z d Z h d e
i f d e f d e
i f d e
i f d e f d e e i f d e i f d e i f d e f d d i g Z e D] Z e e i e d qi[ e f d e e i f d e e i f d d i g Z e D] Z e e i e d q[ e i f d e e i f e e i f d e f g d 6Z! RS( s
A Scheme lexer, parsing a stream and outputting the tokens
needed to highlight scheme code.
This lexer could be most probably easily subclassed to parse
other LISP-Dialects like Common Lisp, Emacs Lisp or AutoLisp.
This parser is checked with pastes from the LISP pastebin
at http://paste.lisp.org/ to cover as much syntax as possible.
It supports the full Scheme syntax as defined in R5RS.
*New in Pygments 0.6.*
t Schemet schemet scms *.scms
text/x-schemes application/x-schemet lambdat definet ift elset condt andt ort caset lets let*t letrect begint dot delays set!s =>t quotet
quasiquotet unquotes unquote-splicings
define-syntaxs
let-syntaxs
letrec-syntaxs syntax-rulest *t +t -t /t s >=t abst acost anglet appendt applyt asint assoct assqt assvt atans boolean?t caaaart caaadrt caaart caadart caaddrt caadrt caart cadaart cadadrt cadart caddart cadddrt caddrt cadrs call-with-current-continuations call-with-input-files call-with-output-files call-with-valuess call/cct cart cdaaart cdaadrt cdaart cdadart cdaddrt cdadrt cdart cddaart cddadrt cddart cdddart cddddrt cdddrt cddrt cdrt ceilings
char->integers char-alphabetic?s
char-ci<=?s char-ci=?s char-ci>?s
char-downcases char-lower-case?s
char-numeric?s char-ready?s char-upcases char-upper-case?s char-whitespace?s char<=?s char=?s char>?s char?s close-input-ports close-output-ports complex?t const coss current-input-ports current-output-portt denominatort displays dynamic-winds eof-object?s eq?s equal?s eqv?t evals even?s exact->inexacts exact?t expt exptt floors for-eacht forcet gcds imag-parts inexact->exacts inexact?s input-port?s
integer->chars integer?s interaction-environmentt lcmt lengtht lists list->strings list->vectors list-refs list-tails list?t loadt logt magnitudes
make-polars make-rectangulars make-strings make-vectort mapt maxt membert memqt memvt mint modulos negative?t newlinet nots null-environments null?s number->strings number?t numerators odd?s open-input-files open-output-files output-port?s pair?s peek-chars port?s positive?s
procedure?t quotients rational?t rationalizet reads read-chars real-parts real?t remaindert reverset rounds scheme-report-environments set-car!s set-cdr!t sint sqrtt strings string->lists string->numbers string->symbols
string-appends string-ci<=?s string-ci=?s string-ci>?s string-copys string-fill!s
string-lengths
string-refs string-set!s string<=?s string=?s string>?s string?t substrings symbol->strings symbol?t tans transcript-offs
transcript-ont truncatet valuest vectors vector->lists vector-fill!s
vector-lengths
vector-refs vector-set!s vector?s with-input-from-files with-output-to-filet writes
write-chars zero?s [a-zA-Z0-9!$%&*+,/:<=>?@^_~|-]+s ;.*$s \s+s
-?\d+\.\d+s -?\d+s "(\\\\|\\"|[^"])*"t 's+ #\\([()/'\".'_!§$%& ?=+-]{1}|[a-zA-Z0-9]+)s (#t|#f)s ('|#|`|,@|,|\.)s (%s)t |t s (?<='\()s (?<=#\()s (?<=\()(%s)s (?<=\()s (\(|\))t root(" t __name__t
__module__t __doc__t namet aliasest filenamest mimetypest keywordst builtinst
valid_nameR t SingleR R t Floatt IntegerR t Symbolt CharR
t ConstantR t joint _[1]t entryt ret escapeR t Variablet _[2]t Builtint FunctionR
t tokens( ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR s
$ / / c ( B s e Z d Z d Z d d g Z d d d g Z d g Z e i e i BZ
d Z e d Z d
Z
d e e f Z d Z d
Z h d e d f g d 6d e i d f d e i d f d e i f d e i f g d 6d e i d f d e i d f d e i f g d 6d e f d e i f d e i d f d e i f d e f d e e i f d! e e i f d! e f d" e f d# e
e i f d$ e
e f d% e
e i f d& e
e i f d' e e i f d( e d f d) e i f d* e e i f d+ e f d, e i! f d- e f d. e i" f d/ e i# f d0 e f d1 e$ e e% d f d2 e$ e i e% d f d3 e$ e i e% d f d4 e i f d5 e f d6 e f d7 e
d8 e i d f d9 e f d: e f d; e
e i& f d< e d< e i' i( f e e i' f d e% d f d e% d f g% d 6Z) RS(= s:
A Common Lisp lexer.
*New in Pygments 0.9.*
s Common Lisps common-lispt cls *.cls *.lisps *.els text/x-common-lisps% \\.|[a-zA-Z0-9!$%&*+-/<=>?@\[\]^_{}~]s |[#.:]s (?=[ "()\'\n,;`])s (\|[^|]+\||(?:%s)(?:%s)*)c K s d d k l } l } l } l } l } l } l } | | _ | | _ | | _
| | _ | | _ | | _
| | _ t i | | d S( Ni( t BUILTIN_FUNCTIONSt
SPECIAL_FORMSt MACROSt LAMBDA_LIST_KEYWORDSt DECLARATIONSt
BUILTIN_TYPESt BUILTIN_CLASSES( t pygments.lexers._clbuiltinsR R R R R R R t builtin_functiont
special_formst macrost lambda_list_keywordst declarationst
builtin_typest builtin_classesR t __init__( t selft optionsR R R R R R R ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR s 4 c c sg d g } xWt i | | | D]@\ } } } | t i j o| | i j o | t i | f Vq n | | i j o | t | f Vq n | | i j o | t i | f Vq n | | i j o | t | f Vq n | | i
j o | t | f Vq n | | i j o | t i | f Vq n | | i
j o | t i | f Vq qQn | | | f Vq Wd S( NR ( R t get_tokens_unprocessedR
R R R R R R R R R t TypeR t Class( R t textt stackt indext tokent value( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR s4 t t bodyR s #\|s #pushs \|#s #pops [^|#]+s [|#]s multiline-comments \(s \)s [^()]+s commented-forms \s+s ;.*$s #\d*Y.*$s
"(\\.|[^"])*"t :R t `s [-+]?\d+\.?s [-+]?\d+/\d+s< [-+]?(\d*\.\d+([defls][-+]?\d+)?|\d+(\.\d*)?[defls][-+]?\d+)s #\\.s #\\s #\(s #\d*\*[01]*s #:s #[.,]s #\'s #[bB][+-]?[01]+(/[01]+)?s #[oO][+-]?[0-7]+(/[0-7]+)?s& #[xX][+-]?[0-9a-fA-F]+(/[0-9a-fA-F]+)?s) #\d+[rR][+-]?[0-9a-zA-Z]+(/[0-9a-zA-Z]+)?s (#[cC])(\()s (#\d+[aA])(\()s (#[sS])(\()s #[pP]?"(\\.|[^"])*"s #\d+=s #\d+#s #+nils \s*\(s #[+-]s (,@|,|\.)s (t|nil)s \*(* R R R R R R R R t
IGNORECASEt MULTILINEt flagst nonmacrot constituentt
terminatedt symbolR R R R t Multilinet PreprocR t SpecialR R R R R R R R t OtherR
R t Octt HexR R
R R t GlobalR ( ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR sv
c B sF e Z d Z d Z d d g Z d g Z d g Z d d d d d
d d d
d d d d d d d d d d g Z d d d d d d d d d d! d" d# d$ d% d& d' d( d) d* d+ d, d- d. d/ d0 d1 g Z h d2 e f d3 e
i f d4 e
i d5 f d6 e
i d7 f d8 e
i d9 f d: e i f d; d< i e e
i f d= e i f d> e f d? e
i f d@ e i f dA e i f dB e
i f dC e f dD e i f dE e i f dF e i f dG e i f dH e i f dI e i dJ f dK e dL f dM e
i f dN e i f dO e f g dP 6d2 e f dQ e dR f dS e
f dT e e i e e
e e dR f dU e e i e e
e e dV f dW e e i e e dV f dX e i dR f g d7 6d2 e f dW e e i e e dV f dY e i dR f g d9 6d2 e f dZ e
i f d[ e i f d\ e
i f d4 e
i d5 f d] e f dC e f d^ e dm f dQ e d_ f g dV 6d` e
i f d4 e
i da f db e
i dR f dc e
i f g d5 6dd e i f de e i! df f dI e i dR f g dJ 6dg e f de e i! df f dK e dR f g dL 6dh e i! dR f di e i! dR f d< i e e i! dR f dj e i! dR f dk e i! dR f dH e i! dR f dl e i! dR f g df 6Z" RS(n sl
A Haskell lexer based on the lexemes defined in the Haskell 98 Report.
*New in Pygments 0.8.*
t Haskellt haskellt hss *.hss text/x-haskellR! t classt datat defaultt derivingR% R R t ins
infix[lr]?t instanceR" t newtypet oft thent typet wheret _t NULt SOHs [SE]TXt EOTt ENQt ACKt BELt BSt HTt LFt VTt FFt CRs S[OI]t DLEs DC[1-4]t NAKt SYNt ETBt CANt EMt SUBt ESCs [FGRU]St SPt DELs \s+s --(?![!#$%&*+./<=>?@\^|_~]).*?$s {-t comments
\bimport\bt imports
\bmodule\bt modules \berror\bs \b(%s)(?!\')\bR s ^[_a-z][\w\']*s
[_a-z][\w\']*s [A-Z][\w\']*s \\(?![:!#$%&*+.\\/<=>?@^|~-]+)s+ (<-|::|->|=>|=)(?![:!#$%&*+.\\/<=>?@^|~-]+)s :[:!#$%&*+.\\/<=>?@^|~-]*s [:!#$%&*+.\\/<=>?@^|~-]+s \d+[eE][+-]?\d+s \d+\.\d+([eE][+-]?\d+)?s 0[oO][0-7]+s 0[xX][\da-fA-F]+s \d+R t charactert "R| s \[\]s \(\)s [][(),;`{}]R s \)s #pops qualified\bs8 ([A-Z][a-zA-Z0-9_.]*)(\s+)(as)(\s+)([A-Z][a-zA-Z0-9_.]*)s+ ([A-Z][a-zA-Z0-9_.]*)(\s+)(hiding)(\s+)(\()t funclists ([A-Z][a-zA-Z0-9_.]*)(\s+)(\()s [a-zA-Z0-9_.]+s [A-Z][a-zA-Z0-9_.]*s [A-Z][a-zA-Z0-9_]*s
[_a-z][\w\']+s --.*$t ,s \(s #pop:2s [^-{}]+s #pushs -}s [-{}]s [^\\']s \\R s [^\\"]+s [abfnrtv"\'&\\]s
\^[][A-Z@\^_]s o[0-7]+s x[\da-fA-F]+s \n\s+\\( R R (# R R R R R R R t reservedt asciiR R R R R t ReservedR
t ExceptionR R R R t WordR R R R R R R R R
R t Namespacet EscapeR ( ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR K s s .*?
s (>[ \t]*)(.*\n)c B s; e Z d Z d Z d d g Z d g Z d g Z d Z RS( so
For Literate Haskell (Bird-style or LaTeX) source.
Additional options accepted:
`litstyle`
If given, must be ``"bird"`` or ``"latex"``. If not given, the style
is autodetected: if the first non-whitespace character in the source
is a backslash or percent character, LaTeX is assumed, else Bird.
*New in Pygments 0.9.*
s Literate Haskellt lhss literate-haskells *.lhss text/x-literate-haskellc c sb t | i } | i i d } | d j o( | i d d j o d p d } n d } g } | d j o xt i | D] } | i } t i | } | oH | i
t | d t i
| i d f g f | | i d 7} q | i
t | d t | f g f q Wnd d
k l } | | i }
d } d } x t i | D] } | i } | o8 | i i d o d } | | 7} q
| | 7} qW| i i d oB d } | | 7} | i
t | t |
i | f d } qW| | 7} qWW| i
t | t |
i | f x% t | | i | D] }
|
VqOWd S(
Nt litstylei s %\t latext birdR i i i( t TexLexers
\end{code}s \begin{code}( R R t gett Nonet lstript line_ret finditert groupt bird_ret matchR4 t lenR R R t pygments.lexers.textR t
startswithRf R R ( R R t hslexert stylet codet
insertionsR
t linet mR t lxlexert codelinesR t item( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR sP
(
"-
( R R R R R R R R ( ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR s c / B s e Z d Z d Z d g Z d d d d g Z d g Z d d d
d d d
d d d d d d d d d d d d d d d d d d d d! d" d# d$ d% d& d' d( d) d* d+ d, d- d. d/ d0 d1 d2 d3 d4 d5 d6 g/ Z d7 d8 d9 d: d; d< d= d> d? d@ dA dB dC dD dE dF dG dH dI dJ dK dL dM dN dO dP dQ dR dS dT dU dV dW dX dY dZ d[ d\ d] d^ d_ g) Z d` Z da db dc dd de df dg dh g Z
di Z dj Z dk dl dm dn do dp dq dr g Z
h ds e i f dt e i f du e i f g dv 6dw e f dx e i i f dy e i dz f d{ e i f d| e d} f d~ d i e e f d d i e e f d e e e f e f d~ d i e
e i f d~ d i e
e i f d e f d e i f d e i f d e i f d e i f d e i! f d e i" f d e i" f d e f d e i# do f d e i$ f g d 6d e f d| e d f d e d f d e f g d} 6d e i# f e% dv d e i# f d e i# d f g do 6dw e f dC e& f d e i f d e i d f d e d f g dz 6Z' RS( s=
For the OCaml language.
*New in Pygments 0.7.*
t OCamlt ocamls *.mls *.mlis *.mlls *.mlys text/x-ocamlt ast assertR$ R t
constraintR% t donet downtoR t endt exceptiont externalt falset fort funt functiont functorR R R t inheritt initializert lazyR" R
t methodR t mutablet newt objectR t opent privatet raiset rect sigt structR t tot truet tryR t valt virtualt whent whilet withs !=t #t &s &&s \(s \)s \*s \+R R, s -\.s ->s \.s \.\.R s ::s :=s :>t ;s ;;R. s <-R/ R0 s >]s >}s \?s \?\?s \[s \[s \[\|t ]R R t {s {?@^|~-]R t asrt landt lort lslt lxort modR s [!?~]s [=<>@^|&+\*/$%-]t unitt intt floatt boolR| t charRf t arrays \\[\"\'ntbr]s
\\[0-9]{3}s \\x[0-9a-fA-F]{2}s escape-sequences \s+s false|true|\(\)|\[\]s! \b([A-Z][A-Za-z0-9_\']*)(?=\s*\.)t dotteds \b([A-Z][A-Za-z0-9_\']*)s \(\*R s \b(%s)\bR s (%s)s
(%s|%s)?%ss
[^\W\d][\w']*s \d[\d_]*s 0[xX][\da-fA-F][\da-fA-F_]*s 0[oO][0-7][0-7_]*s 0[bB][01][01_]*s( -?\d[\d_]*(.[\d_]*)?([eE][+\-]?\d[\d_]*)s7 '(?:(\\[\\\"'ntbr ])|(\\[0-9]{3})|(\\x[0-9a-fA-F]{2}))'s '.'R R s [~?][a-z][\w\']*:R s [^(*)]+s #pushs \*\)s #pops [(*)]s [^\\"]+s \\\ns [A-Z][A-Za-z0-9_\']*(?=\s*\.)s [A-Z][A-Za-z0-9_\']*s [a-z][a-z0-9_\']*(( R R R R R R R R t keyoptst operatorst word_operatorst prefix_symst
infix_symst
primitivesR R R R
R t PseudoR R R R R R R R R R R R t BinaryR R t DoubleR R R
R ( ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR sz !!! c { B sU e Z d Z d Z d g Z d d g Z d g Z d d d d d
d d d
d d d d d d g Z d d d d d d d d d d d d d d! d" d# d$ d% d& d' d( d) d* d+ d, d- d. d/ d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 d: d; d< d= d> d? d@ dA dB dC dD dE dF dG dH dI dJ dK dL dM dN dO dP dQ dR dS dT dU dV dW dX dY dZ d[ d\ d] d^ d_ d` da db dc dd de df dg dh di dj dk dl dm dn do dp dq dr ds dt du dv dw dx dy dz d{ d| d} d~ d d d d d d d d d d d d d d d d g{ Z d Z d d d d d d d d d d d d d d g Z
d Z d Z d Z
d e d e d Z d Z h d e f d e f d d i e d e f d d i e d e i f d d i e
d e i f d e d f e e f d e d f d e i f d e i f d e d e e i e f d e d e e i e e f d e d e i f d e i f d e i f d e f e e i! f e e f d e e i" f d e
d e i# f d e d e d e i f g d 6e
e i$ f d e d f d e i% f d e f d e f g d 6d e d e e i& e e e i" d f d e d e e i& e e e i d f e e i& d f g d 6Z' RS( s
For the Erlang functional programming language.
Blame Jeremy Thurgood (http://jerith.za.net/).
*New in Pygments 0.9.*
t Erlangt erlangs *.erls *.hrls
text/x-erlangt afterR$ R! t catchR R! R& R R" R t queryt receiveR8 R; R1 t append_elementR5 t atom_to_listt binary_to_listt bitstring_to_listt binary_to_termt bit_sizet bump_reductionst byte_sizet cancel_timert check_process_codet
delete_modulet demonitort disconnect_nodeR] t elementt eraset exitRM t
float_to_listt fun_infot fun_to_listt function_exportedt garbage_collectR t get_keyst group_leadert hasht hdt integer_to_listt iolist_to_binaryt iolist_sizet is_atomt is_binaryt is_bitstringt
is_booleant
is_builtint is_floatt is_functiont
is_integert is_listt is_numbert is_pidt is_portt is_process_alivet is_recordt is_referencet is_tupleRe t linkt list_to_atomt list_to_binaryt list_to_bitstringt list_to_existing_atomt
list_to_floatt list_to_integert list_to_pidt
list_to_tuplet load_modulet localtime_to_universaltimet
make_tuplet md5t md5_finalt
md5_updatet memoryt
module_loadedt monitort monitor_nodet nodet nodest open_portt phasht phash2t pid_to_listt
port_closet port_commandt port_connectt port_controlt port_callt port_infot port_to_listt process_displayt process_flagt process_infot purge_modulet putt
read_timert ref_to_listt registert resume_processRy t sendt
send_aftert send_nosuspendt
set_cookiet
setelementt sizet spawnt
spawn_linkt
spawn_monitort spawn_optt split_binaryt start_timert
statisticst suspend_processt system_flagt system_infot system_monitort system_profilet term_to_binaryt tlt tracet trace_deliveredt
trace_infot
trace_patternt trunct
tuple_sizet
tuple_to_listt universaltime_to_localtimet unlinkt
unregistert whereiss2 (\+|-|\*|/|<|>|=|==|/=|=:=|=/=|=<|>=|\+\+|--|<-|!)R t andalsot bandt bnott bort bslt bsrt bxort divRr R t orelset remt xors% (?:[a-z][a-zA-Z0-9_]*|'[^\n']*[^\\]')s (?:[A-Z_][a-zA-Z0-9_]*)s8 (?:\\(?:[bdefnrstv\'"\\/]|[0-7][0-7]?[0-7]?|\^[a-zA-Z]))s (?:R t )s (?:[2-9]|[12][0-9]|3[0-6])s \s+s %.*\nt (s )\bs ^-t directiveR R| s <>s )(:)s ^(s
)(\s*)(\()s [+-]?s
#[0-9a-zA-Z]+s [+-]?\d+s [+-]?\d+.\d+s [][:_@\".{}()|;,]s \?s \$(?:s |\\[ %]|[^\\])R> s (:?\.s )?R s #pops ~[0-9.*]*[~#+bBcdefginpPswWxX]s [^"\\~]+RD s (define)(\s*)(\()(s (record)(\s*)(\()((( R R R R R R R R R RS RT t atom_ret variable_ret escape_ret macro_ret base_reR R R R R
R R R R
R t LabelR R R R R R R R R R t Interpolt EntityR ( ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR e s # c B sG e Z d Z d Z d g Z d g Z d g Z e i d Z d Z
RS( sN
Shell sessions in erl (for Erlang code).
*New in Pygments 1.1.*
s Erlang erl sessiont erls *.erl-shs text/x-erl-shellsessions
\d+>(?=\s|\Z)c
c sb t | i } d } g } x
t i | D] } | i } | i i | } | d j oJ | i } | i t
| d t i | | f g f | | | 7} q+ | o8 x% t
| | i | D] } | Vq Wd } g } n | i d o | i t i | f Vq+ | i t i | f Vq+ W| o, x) t
| | i | D] } | VqKWn d S( NR i R* ( R R R R
R t
_prompt_reR
R R! R4 R R t PromptR R R t startt Tracebackt Output(
R R t erlexert curcodeR R
R R R! R ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR s6
( R R R R R R R R t compileR R ( ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyR s (" R R t sett NameErrort setsR t pygments.lexerR R R R R t pygments.tokenR R R R R
R R R
R R t __all__R R R R R R R R R R ( ( ( s> /usr/lib/python2.6/site-packages/pygments/lexers/functional.pyt
s$ (F xC\j