"" " for the Icon and Unicon languages, including ucode VM.for details."" " import refrom pygments.lexer import RegexLexer, include, bygroups, words, using, thisfrom pygments.token import Text, Comment, Operator, Keyword, Name, String, \'IconLexer' , 'UcodeLexer' , 'UniconLexer' ]class UniconLexer(RegexLexer):"" " For Unicon source code."" " 'Unicon' 'unicon' ]'*.icn' ]'text/unicon' ]'https://www.unicon.org ' '2.4' 'root' : ['[^\S\n]+' , Text),'#.*?\n', Comment.Single), '[^\S\n]+' , Text),'class|method|procedure' , Keyword.Declaration, 'subprogram' ),'(record)(\s+)(\w+)' ,'type_def' ),'(#line|\$C|\$Cend|\$define|\$else|\$endif|\$error|\$ifdef|' '\$ifndef|\$include|\$line|\$undef)\b' , Keyword.PreProc),'(&null|&fail)\b' , Keyword.Constant),'&allocated|&ascii|&clock|&collections|&column|&col|&control|' '&cset|¤t|&dateline|&date|&digits|&dump|' '&errno|&errornumber|&errortext|&errorvalue|&error|&errout|' '&eventcode|&eventvalue|&eventsource|&e|' '&features|&file|&host|&input|&interval|&lcase|&letters|' '&level|&line|&ldrag|&lpress|&lrelease|' '&main|&mdrag|&meta|&mpress|&mrelease|&now|&output|' '&phi|&pick|&pi|&pos|&progname|' '&random|&rdrag|®ions|&resize|&row|&rpress|&rrelease|' '&shift|&source|&storage|&subject|' '&time|&trace|&ucase|&version|' '&window|&x|&y' , Keyword.Reserved),'(by|of|not|to)\b' , Keyword.Reserved),'(global|local|static|abstract)\b' , Keyword.Reserved),'package|link|import' , Keyword.Declaration),'break' , 'case' , 'create' , 'critical' , 'default' , 'end' , 'all' ,'do' , 'else' , 'every' , 'fail' , 'if' , 'import' , 'initial' ,'initially' , 'invocable' , 'next' ,'repeat' , 'return' , 'suspend' ,'then' , 'thread' , 'until' , 'while' ), prefix=r'\b' , suffix=r'\b' ),'Abort' , 'abs' , 'acos' , 'Active' , 'Alert' , 'any' , 'Any' , 'Arb' ,'Arbno' , 'args' , 'array' , 'asin' , 'atan' , 'atanh' , 'Attrib' ,'Bal' , 'bal' , 'Bg' , 'Break' , 'Breakx' ,'callout' , 'center' , 'char' , 'chdir' , 'chmod' , 'chown' , 'chroot' ,'classname' , 'Clip' , 'Clone' , 'close' , 'cofail' , 'collect' ,'Color' , 'ColorValue' , 'condvar' , 'constructor' , 'copy' ,'CopyArea' , 'cos' , 'Couple' , 'crypt' , 'cset' , 'ctime' ,'dbcolumns' , 'dbdriver' , 'dbkeys' , 'dblimits' , 'dbproduct' ,'dbtables' , 'delay' , 'delete' , 'detab' , 'display' , 'DrawArc' ,'DrawCircle' , 'DrawCube' , 'DrawCurve' , 'DrawCylinder' ,'DrawDisk' , 'DrawImage' , 'DrawLine' , 'DrawPoint' , 'DrawPolygon' ,'DrawRectangle' , 'DrawSegment' , 'DrawSphere' , 'DrawString' ,'DrawTorus' , 'dtor' ,'entab' , 'EraseArea' , 'errorclear' , 'Event' , 'eventmask' ,'EvGet' , 'EvSend' , 'exec' , 'exit' , 'exp' , 'Eye' ,'Fail' , 'fcntl' , 'fdup' , 'Fence' , 'fetch' , 'Fg' , 'fieldnames' ,'filepair' , 'FillArc' , 'FillCircle' , 'FillPolygon' ,'FillRectangle' , 'find' , 'flock' , 'flush' , 'Font' , 'fork' ,'FreeColor' , 'FreeSpace' , 'function' ,'get' , 'getch' , 'getche' , 'getegid' , 'getenv' , 'geteuid' ,'getgid' , 'getgr' , 'gethost' , 'getpgrp' , 'getpid' , 'getppid' ,'getpw' , 'getrusage' , 'getserv' , 'GetSpace' , 'gettimeofday' ,'getuid' , 'globalnames' , 'GotoRC' , 'GotoXY' , 'gtime' , 'hardlink' ,'iand' , 'icom' , 'IdentityMatrix' , 'image' , 'InPort' , 'insert' ,'Int86' , 'integer' , 'ioctl' , 'ior' , 'ishift' , 'istate' , 'ixor' ,'kbhit' , 'key' , 'keyword' , 'kill' ,'left' , 'Len' , 'list' , 'load' , 'loadfunc' , 'localnames' ,'lock' , 'log' , 'Lower' , 'lstat' ,'many' , 'map' , 'match' , 'MatrixMode' , 'max' , 'member' ,'membernames' , 'methodnames' , 'methods' , 'min' , 'mkdir' , 'move' ,'MultMatrix' , 'mutex' ,'name' , 'NewColor' , 'Normals' , 'NotAny' , 'numeric' ,'open' , 'opencl' , 'oprec' , 'ord' , 'OutPort' ,'PaletteChars' , 'PaletteColor' , 'PaletteKey' , 'paramnames' ,'parent' , 'Pattern' , 'Peek' , 'Pending' , 'pipe' , 'Pixel' ,'PlayAudio' , 'Poke' , 'pop' , 'PopMatrix' , 'Pos' , 'pos' ,'proc' , 'pull' , 'push' , 'PushMatrix' , 'PushRotate' , 'PushScale' ,'PushTranslate' , 'put' ,'QueryPointer' ,'Raise' , 'read' , 'ReadImage' , 'readlink' , 'reads' , 'ready' ,'real' , 'receive' , 'Refresh' , 'Rem' , 'remove' , 'rename' ,'repl' , 'reverse' , 'right' , 'rmdir' , 'Rotate' , 'Rpos' ,'Rtab' , 'rtod' , 'runerr' ,'save' , 'Scale' , 'seek' , 'select' , 'send' , 'seq' ,'serial' , 'set' , 'setenv' , 'setgid' , 'setgrent' ,'sethostent' , 'setpgrp' , 'setpwent' , 'setservent' ,'setuid' , 'signal' , 'sin' , 'sort' , 'sortf' , 'Span' ,'spawn' , 'sql' , 'sqrt' , 'stat' , 'staticnames' , 'stop' ,'StopAudio' , 'string' , 'structure' , 'Succeed' , 'Swi' ,'symlink' , 'sys_errstr' , 'system' , 'syswrite' ,'Tab' , 'tab' , 'table' , 'tan' ,'Texcoord' , 'Texture' , 'TextWidth' , 'Translate' ,'trap' , 'trim' , 'truncate' , 'trylock' , 'type' ,'umask' , 'Uncouple' , 'unlock' , 'upto' , 'utime' ,'variable' , 'VAttrib' ,'wait' , 'WAttrib' , 'WDefault' , 'WFlush' , 'where' ,'WinAssociate' , 'WinButton' , 'WinColorDialog' , 'WindowContents' ,'WinEditRegion' , 'WinFontDialog' , 'WinMenuBar' , 'WinOpenDialog' ,'WinPlayMedia' , 'WinSaveDialog' , 'WinScrollBar' , 'WinSelectDialog' ,'write' , 'WriteImage' , 'writes' , 'WSection' ,'WSync' ), prefix=r'\b' , suffix=r'\b' ),'numbers' ),'<@|<<@|>@|>>@|\.>|->|===|~===|\*\*|\+\+|--|\.|~==|~=|<=|>=|==|' '=|<<=|<<|>>=|>>|:=:|:=|->|<->|\+:=|\|' , Operator),'"(?:[^\\"]|\\.)*"' , String),"'(?:[^\\']|\\.)*'" , String.Character),'[*<>+=/&!?@~\\-]' , Operator),'\^' , Operator),'(\w+)(\s*|[(,])' , bygroups(Name, using(this))),"[\[\]]" , Punctuation),"<>|=>|[()|:;,.'`{}%&?]" , Punctuation),'\n+' , Text),'numbers' : ['\b([+-]?([2-9]|[12][0-9]|3[0-6])[rR][0-9a-zA-Z]+)\b' , Number.Hex),'[+-]?[0-9]*\.([0-9]*)([Ee][+-]?[0-9]*)?' , Number.Float),'\b([+-]?[0-9]+[KMGTPkmgtp]?)\b' , Number.Integer),'subprogram' : ['\(' , Punctuation, ('#pop', 'formal_part')), ';' , Punctuation, '#pop'), '"[^"]+"|\w+' , Name.Function),'root' ),'type_def' : ['\(' , Punctuation, 'formal_part' ),'formal_part' : ['\)' , Punctuation, '#pop'), '\w+' , Name.Variable),',' , Punctuation),'(:string|:integer|:real)\b' , Keyword.Reserved),'root' ),class IconLexer(RegexLexer):"" " for Icon."" " 'Icon' 'icon' ]'*.icon' , '*.ICON' ]'https://www2.cs.arizona.edu/icon ' '1.6' 'root' : ['[^\S\n]+' , Text),'#.*?\n', Comment.Single), '[^\S\n]+' , Text),'class|method|procedure' , Keyword.Declaration, 'subprogram' ),'(record)(\s+)(\w+)' ,'type_def' ),'(#line|\$C|\$Cend|\$define|\$else|\$endif|\$error|\$ifdef|' '\$ifndef|\$include|\$line|\$undef)\b' , Keyword.PreProc),'(&null|&fail)\b' , Keyword.Constant),'&allocated|&ascii|&clock|&collections|&column|&col|&control|' '&cset|¤t|&dateline|&date|&digits|&dump|' '&errno|&errornumber|&errortext|&errorvalue|&error|&errout|' '&eventcode|&eventvalue|&eventsource|&e|' '&features|&file|&host|&input|&interval|&lcase|&letters|' '&level|&line|&ldrag|&lpress|&lrelease|' '&main|&mdrag|&meta|&mpress|&mrelease|&now|&output|' '&phi|&pick|&pi|&pos|&progname|' '&random|&rdrag|®ions|&resize|&row|&rpress|&rrelease|' '&shift|&source|&storage|&subject|' '&time|&trace|&ucase|&version|' '&window|&x|&y' , Keyword.Reserved),'(by|of|not|to)\b' , Keyword.Reserved),'(global|local|static)\b' , Keyword.Reserved),'link' , Keyword.Declaration),'break' , 'case' , 'create' , 'default' , 'end' , 'all' ,'do' , 'else' , 'every' , 'fail' , 'if' , 'initial' ,'invocable' , 'next' ,'repeat' , 'return' , 'suspend' ,'then' , 'until' , 'while' ), prefix=r'\b' , suffix=r'\b' ),'abs' , 'acos' , 'Active' , 'Alert' , 'any' ,'args' , 'array' , 'asin' , 'atan' , 'atanh' , 'Attrib' ,'bal' , 'Bg' ,'callout' , 'center' , 'char' , 'chdir' , 'chmod' , 'chown' , 'chroot' ,'Clip' , 'Clone' , 'close' , 'cofail' , 'collect' ,'Color' , 'ColorValue' , 'condvar' , 'copy' ,'CopyArea' , 'cos' , 'Couple' , 'crypt' , 'cset' , 'ctime' ,'delay' , 'delete' , 'detab' , 'display' , 'DrawArc' ,'DrawCircle' , 'DrawCube' , 'DrawCurve' , 'DrawCylinder' ,'DrawDisk' , 'DrawImage' , 'DrawLine' , 'DrawPoint' , 'DrawPolygon' ,'DrawRectangle' , 'DrawSegment' , 'DrawSphere' , 'DrawString' ,'DrawTorus' , 'dtor' ,'entab' , 'EraseArea' , 'errorclear' , 'Event' , 'eventmask' ,'EvGet' , 'EvSend' , 'exec' , 'exit' , 'exp' , 'Eye' ,'fcntl' , 'fdup' , 'fetch' , 'Fg' , 'fieldnames' ,'FillArc' , 'FillCircle' , 'FillPolygon' ,'FillRectangle' , 'find' , 'flock' , 'flush' , 'Font' ,'FreeColor' , 'FreeSpace' , 'function' ,'get' , 'getch' , 'getche' , 'getenv' ,'GetSpace' , 'gettimeofday' ,'getuid' , 'globalnames' , 'GotoRC' , 'GotoXY' , 'gtime' , 'hardlink' ,'iand' , 'icom' , 'IdentityMatrix' , 'image' , 'InPort' , 'insert' ,'Int86' , 'integer' , 'ioctl' , 'ior' , 'ishift' , 'istate' , 'ixor' ,'kbhit' , 'key' , 'keyword' , 'kill' ,'left' , 'Len' , 'list' , 'load' , 'loadfunc' , 'localnames' ,'lock' , 'log' , 'Lower' , 'lstat' ,'many' , 'map' , 'match' , 'MatrixMode' , 'max' , 'member' ,'membernames' , 'methodnames' , 'methods' , 'min' , 'mkdir' , 'move' ,'MultMatrix' , 'mutex' ,'name' , 'NewColor' , 'Normals' , 'numeric' ,'open' , 'opencl' , 'oprec' , 'ord' , 'OutPort' ,'PaletteChars' , 'PaletteColor' , 'PaletteKey' , 'paramnames' ,'parent' , 'Pattern' , 'Peek' , 'Pending' , 'pipe' , 'Pixel' ,'Poke' , 'pop' , 'PopMatrix' , 'Pos' , 'pos' ,'proc' , 'pull' , 'push' , 'PushMatrix' , 'PushRotate' , 'PushScale' ,'PushTranslate' , 'put' ,'QueryPointer' ,'Raise' , 'read' , 'ReadImage' , 'readlink' , 'reads' , 'ready' ,'real' , 'receive' , 'Refresh' , 'Rem' , 'remove' , 'rename' ,'repl' , 'reverse' , 'right' , 'rmdir' , 'Rotate' , 'Rpos' ,'rtod' , 'runerr' ,'save' , 'Scale' , 'seek' , 'select' , 'send' , 'seq' ,'serial' , 'set' , 'setenv' ,'setuid' , 'signal' , 'sin' , 'sort' , 'sortf' ,'spawn' , 'sql' , 'sqrt' , 'stat' , 'staticnames' , 'stop' ,'string' , 'structure' , 'Swi' ,'symlink' , 'sys_errstr' , 'system' , 'syswrite' ,'tab' , 'table' , 'tan' ,'Texcoord' , 'Texture' , 'TextWidth' , 'Translate' ,'trap' , 'trim' , 'truncate' , 'trylock' , 'type' ,'umask' , 'Uncouple' , 'unlock' , 'upto' , 'utime' ,'variable' ,'wait' , 'WAttrib' , 'WDefault' , 'WFlush' , 'where' ,'WinAssociate' , 'WinButton' , 'WinColorDialog' , 'WindowContents' ,'WinEditRegion' , 'WinFontDialog' , 'WinMenuBar' , 'WinOpenDialog' ,'WinPlayMedia' , 'WinSaveDialog' , 'WinScrollBar' , 'WinSelectDialog' ,'write' , 'WriteImage' , 'writes' , 'WSection' ,'WSync' ), prefix=r'\b' , suffix=r'\b' ),'numbers' ),'===|~===|\*\*|\+\+|--|\.|==|~==|<=|>=|=|~=|<<=|<<|>>=|>>|' ':=:|:=|<->|<-|\+:=|\|\||\|' , Operator),'"(?:[^\\"]|\\.)*"' , String),"'(?:[^\\']|\\.)*'" , String.Character),'[*<>+=/&!?@~\\-]' , Operator),'(\w+)(\s*|[(,])' , bygroups(Name, using(this))),"[\[\]]" , Punctuation),"<>|=>|[()|:;,.'`{}%\^&?]" , Punctuation),'\n+' , Text),'numbers' : ['\b([+-]?([2-9]|[12][0-9]|3[0-6])[rR][0-9a-zA-Z]+)\b' , Number.Hex),'[+-]?[0-9]*\.([0-9]*)([Ee][+-]?[0-9]*)?' , Number.Float),'\b([+-]?[0-9]+[KMGTPkmgtp]?)\b' , Number.Integer),'subprogram' : ['\(' , Punctuation, ('#pop', 'formal_part')), ';' , Punctuation, '#pop'), '"[^"]+"|\w+' , Name.Function),'root' ),'type_def' : ['\(' , Punctuation, 'formal_part' ),'formal_part' : ['\)' , Punctuation, '#pop'), '\w+' , Name.Variable),',' , Punctuation),'(:string|:integer|:real)\b' , Keyword.Reserved),'root' ),class UcodeLexer(RegexLexer):"" " for Icon ucode files."" " 'ucode' 'ucode' ]'*.u' , '*.u1' , '*.u2' ]'http://www.unicon.org ' '2.4' 'root' : ['(#.*\n)', Comment), 'con' , 'declend' , 'end' ,'global' ,'impl' , 'invocable' ,'lab' , 'link' , 'local' ,'record' ,'uid' , 'unions' ,'version' ),'\b' , suffix=r'\b' ),'colm' , 'filen' , 'line' , 'synt' ),'\b' , suffix=r'\b' ),'asgn' ,'bang' , 'bscan' ,'cat' , 'ccase' , 'chfail' ,'coact' , 'cofail' , 'compl' ,'coret' , 'create' , 'cset' ,'diff' , 'div' , 'dup' ,'efail' , 'einit' , 'end' , 'eqv' , 'eret' ,'error' , 'escan' , 'esusp' ,'field' ,'goto' ,'init' , 'int' , 'inter' ,'invoke' ,'keywd' ,'lconcat' , 'lexeq' , 'lexge' ,'lexgt' , 'lexle' , 'lexlt' , 'lexne' ,'limit' , 'llist' , 'lsusp' ,'mark' , 'mark0' , 'minus' , 'mod' , 'mult' ,'neg' , 'neqv' , 'nonnull' , 'noop' , 'null' ,'number' , 'numeq' , 'numge' , 'numgt' ,'numle' , 'numlt' , 'numne' ,'pfail' , 'plus' , 'pnull' , 'pop' , 'power' ,'pret' , 'proc' , 'psusp' , 'push1' , 'pushn1' ,'random' , 'rasgn' , 'rcv' , 'rcvbk' , 'real' ,'refresh' , 'rswap' ,'sdup' , 'sect' , 'size' , 'snd' , 'sndbk' ,'str' , 'subsc' , 'swap' ,'tabmat' , 'tally' , 'toby' , 'trace' ,'unmark' ,'value' , 'var' ), prefix=r'\b' , suffix=r'\b' ),'any' ,'case' ,'endcase' , 'endevery' , 'endif' ,'endifelse' , 'endrepeat' , 'endsuspend' ,'enduntil' , 'endwhile' , 'every' ,'if' , 'ifelse' ,'repeat' ,'suspend' ,'until' ,'while' ),'\b' , suffix=r'\b' ),'\d+(\s*|\.$|$)' , Number.Integer),'[+-]?\d*\.\d+(E[-+]?\d+)?' , Number.Float),'[+-]?\d+\.\d*(E[-+]?\d+)?' , Number.Float),"(<>|=>|[()|:;,.'`]|[{}]|[%^]|[&?])" , Punctuation),'\s+\b' , Text),'[\w-]+' , Text),def analyse_text(text):"" "endsuspend and endrepeat are unique to this language, and 't seem to get used anywhere else either.""" if 'endsuspend' in text:if 'endrepeat' in text:if ':=' in text:if 'procedure' in text and 'end' in text:# This seems quite unique to unicon -- doesn't appear in any other # example source we have (A quick search reveals that \SELF appears in # Perl/Raku code) if r'\self' in text and r'/self' in text:return resultquality 72%
¤ Dauer der Verarbeitung: 0.23 Sekunden
¤ *© Formatika GbR, Deutschland
