L&i)dZddlZddlmZmZmZmZddlmZm Z m Z m Z m Z m Z mZmZmZmZgdZejdZGddeZGd d eZGd d eZdS) z pygments.lexers.r ~~~~~~~~~~~~~~~~~ Lexers for the R/S languages. :copyright: Copyright 2006-2022 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. N)Lexer RegexLexerinclude do_insertions) TextCommentOperatorKeywordNameStringNumber PunctuationGeneric Whitespace) RConsoleLexerSLexerRdLexerz.*? c*eZdZdZdZddgZdgZdZdS)rz@ For R console transcripts or R CMD BATCH output files. RConsolerconsoleroutz*.Routc #xKtdi|j}d}g}t|D]}|}|ds|drH|t|dtj |ddfgf||ddz }|r-t|| |Ed{Vd}g}| tj |fV|r+t|| |Ed{VdSdS)N>+r)roptionsline_refinditergroup startswithappendlenrPromptrget_tokens_unprocessedstartOutput)selftextslexercurrent_code_block insertionsmatchlines ^/home/geonatureadmin/si_en_reseau/tutos/venv/lib/python3.11/site-packages/pygments/lexers/r.pyr&z$RConsoleLexer.get_tokens_unprocessed s''$,'' %%d++ : :E;;==Ds## :ts';'; :!!3'9#:#:%&RaR$A#B#DEEE"d122h.""&$,"F$A$ABT$U$U W WWWWWWWW*,&!#JkkmmW^T99999  O$F99:LMMOO O O O O O O O O O O ON)__name__ __module__ __qualname____doc__namealiases filenamesr&rr1r0rrsJ D6"G I O O O O Or1rceZdZdZdZgdZgdZgdZdZde j fgee fgde fgd e jfgd efd efgd e jfd e jjfgdejfdefgeddefdedfdedfededededededg deze jfedde fdefgd ed!fgd"ed!fgd# Zd$Zd%S)&rzG For S, S-plus, and R source code. .. versionadded:: 0.10 S)splussr)z*.Sz*.Rz .Rhistoryz .Rprofilez .Renviron)z text/S-plusztext/Sztext/x-r-sourceztext/x-rztext/x-Rztext/x-r-historyztext/x-r-profilez;`[^`\\]*(?:\\.[^`\\]*)*`|(?:[a-zA-Z]|\.[A-Za-z_.])[\w.]*|\.z#.*$z\[{1,2}|\]{1,2}|\(|\)|;|,zH(if|else|for|while|repeat|in|next|break|return|switch|function)(?![\w.])z(<>?|-|==|<=|>=|<|>|&&?|!=|\|\|?|\?z$\*|\+|\^|/|!|%[^%]*%|=|~|\$|@|:{1,3}zm(NULL|NA(_(integer|real|complex|character)_)?|letters|LETTERS|Inf|TRUE|FALSE|NaN|pi|\.\.(\.|[0-9]+))(?![\w.])z(T|F)\bz#0[xX][a-fA-F0-9]+([pP][0-9]+)?[Li]?z;[+-]?([0-9]+(\.[0-9]+)?|\.[0-9]+|\.)([eE][+-]?[0-9]+)?[Li]?commentsz\s+z\' string_squotez\" string_dquotebuiltin_symbols valid_namenumberskeywords punctuation operatorsz (%s)\s*(?=\() statementsz\{|\}.z([^\'\\]|\\.)*\'z#popz([^"\\]|\\.)*") r>rBrErDrFrArCrGrootr?r@c4tjd|rdSdS)Nz[a-z0-9_\])\s]<-(?!-)g)\(?)research)r*s r0 analyse_textzSLexer.analyse_texts& 9-t 4 4 4  r1N)r2r3r4r5r6r7r8 mimetypesrBrSingler rr Reservedr ConstantBuiltinPseudor Hexrrr FunctionrtokensrMrr1r0rrCs D!!!GEEEIEEEIPJgn %   *; 7     9( C 4h ?   , -  4VZ @ K     GJ   Z FO , FO , G% & & GL ! ! GI   GJ   GM " " GK    *DM : GL ! ! { # 4L !&& 1  / BBFHr1rc eZdZdZdZdgZdgZdgZddej fde fd e j fd e fd e j fd ejfd efdefgiZdS)ram Pygments Lexer for R documentation (Rd) files This is a very minimal implementation, highlighting little more than the macros. A description of Rd syntax is found in `Writing R Extensions `_ and `Parsing Rd files `_. .. versionadded:: 1.6 Rdrdz*.Rdz text/x-r-docrIz \\[\\{}%]z%.*$z\\(?:cr|l?dots|R|tab)\bz \\[a-zA-Z]+\bz^\s*#(?:ifn?def|endif).*\bz[{}]z [^\\%\n{}]+rHN)r2r3r4r5r6r7r8rNr Escaperr rQPreprocr rRrrVrr1r0rrs   DfGI I  6= ) g  ')9 : w ' *GO < dl # T " 4L FFFr1r)r5rKpygments.lexerrrrrpygments.tokenrrr r r r r rrr__all__compilerrrrrr1r0r`sp DDDDDDDDDDDD------------------------ 1 0 0 2:g  )O)O)O)O)OE)O)O)OXTTTTTZTTTn$$$$$j$$$$$r1