o ѭjx@sbdZddlZddlmZmZmZddlmZmZm Z m Z m Z m Z m Z mZdgZGdddeZdS)z pygments.lexers.oberon ~~~~~~~~~~~~~~~~~~~~~~ Lexers for Oberon family languages. :copyright: Copyright 2006-present by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. N) RegexLexerincludewords)TextCommentOperatorKeywordNameStringNumber PunctuationComponentPascalLexerc@s@eZdZdZdZddgZddgZdgZdZd Z e j e j BZ ed ed ed ed ededededgdefdefgdejfgdefgdejfdejfdejfdejfdejfgdefdefgdefdefdefd efd!efd"efd#efd$efd%efg d&efged'd(d)ejfed*d(d)ejfd+ejfgd, Zd-d.Z d/S)0r z+ For Component Pascal source code. zComponent Pascalcomponentpascalcpz*.cpz*.cpsztext/x-component-pascalzhttps://blackboxframework.orgz2.1 whitespacecomments punctuation numliteralsstrings operatorsbuiltins identifiersz\n+z\s+z\(\*([^$].*?)\*\)z[()\[\]{},.:;|]z [0-9A-F]+X\bz[0-9A-F]+[HL]\bz[0-9]+\.[0-9]+E[+-][0-9]+z[0-9]+\.[0-9]+z[0-9]+z '[^\n']*'z "[^\n"]*"z[+-]z[*/]z[=#<>]z\^&~z:=z\.\.z\$z([a-zA-Z_$][\w$]*)) ANYPTRANYRECBOOLEANBYTECHARINTEGERLONGINTREALSET SHORTCHARSHORTINT SHORTREALz\b)suffix)>ABSABSTRACTARRAYASHASSERTBEGINBITSBYCAPCASECHRCLOSECONSTDECDIVDOELSEELSIFEMPTYENDENTIEREXCLEXIT EXTENSIBLEFORHALTIFIMPORTININCINCLISLENLIMITEDLONGLOOPMAXMINMODMODULENEWODDOFORORDOUTPOINTER PROCEDURERECORDREPEATRETURNSHORTr#r$SIZETHENTYPETOUNTILVARWHILEWITHz(TRUE|FALSE|NIL|INF)\b) rootrrrrrrrrcCsHd}d|vr |d7}d|vr|d7}d|vr|d7}d|vr"|d7}|S)zThe only other lexer using .cp is the C++ one, so we check if for a few common Pascal keywords here. Those are unfortunately quite common across various business languages as well.rr,g{Gz?r:rVrN)textresultrdrdS/var/www/html/CropPilot/venv/lib/python3.10/site-packages/pygments/lexers/oberon.py analyse_textjsz!ComponentPascalLexer.analyse_textN)!__name__ __module__ __qualname____doc__namealiases filenames mimetypesurl version_addedre MULTILINEDOTALLflagsrrr Multiliner r HexFloatIntegerr rr rrTypeReservedConstanttokensrhrdrdrdrgr sx      I)rlrspygments.lexerrrrpygments.tokenrrrrr r r r __all__r rdrdrdrgs  (