diff options
| -rw-r--r-- | pygments/lexers/_mapping.py | 1 | ||||
| -rw-r--r-- | pygments/lexers/compiled.py | 96 | ||||
| -rw-r--r-- | tests/examplefiles/test.nim | 93 |
3 files changed, 186 insertions, 4 deletions
diff --git a/pygments/lexers/_mapping.py b/pygments/lexers/_mapping.py index 4444e7b0..bbee877c 100644 --- a/pygments/lexers/_mapping.py +++ b/pygments/lexers/_mapping.py @@ -144,6 +144,7 @@ LEXERS = { 'NasmLexer': ('pygments.lexers.asm', 'NASM', ('nasm',), ('*.asm', '*.ASM'), ('text/x-nasm',)), 'NewspeakLexer': ('pygments.lexers.other', 'Newspeak', ('newspeak',), ('*.ns2',), ('text/x-newspeak',)), 'NginxConfLexer': ('pygments.lexers.text', 'Nginx configuration file', ('nginx',), (), ('text/x-nginx-conf',)), + 'NimrodLexer': ('pygments.lexers.compiled', 'Nimrod', ('nimrod', 'nim'), ('*.nim',), ()), 'NumPyLexer': ('pygments.lexers.math', 'NumPy', ('numpy',), (), ()), 'ObjdumpLexer': ('pygments.lexers.asm', 'objdump', ('objdump',), ('*.objdump',), ('text/x-objdump',)), 'ObjectiveCLexer': ('pygments.lexers.compiled', 'Objective-C', ('objective-c', 'objectivec', 'obj-c', 'objc'), ('*.m',), ('text/x-objective-c',)), diff --git a/pygments/lexers/compiled.py b/pygments/lexers/compiled.py index 5c10a785..c0297b08 100644 --- a/pygments/lexers/compiled.py +++ b/pygments/lexers/compiled.py @@ -23,10 +23,11 @@ from pygments.token import \ from pygments.lexers.functional import OcamlLexer __all__ = ['CLexer', 'CppLexer', 'DLexer', 'DelphiLexer', 'JavaLexer', - 'ScalaLexer', 'DylanLexer', 'OcamlLexer', 'ObjectiveCLexer', - 'FortranLexer', 'GLShaderLexer', 'PrologLexer', 'CythonLexer', - 'ValaLexer', 'OocLexer', 'GoLexer', 'FelixLexer', 'AdaLexer', - 'Modula2Lexer', 'BlitzMaxLexer'] + 'ScalaLexer', 'DylanLexer', 'NimrodLexer', 'OcamlLexer', + 'ObjectiveCLexer', 'FortranLexer', 'GLShaderLexer', + 'PrologLexer', 'CythonLexer', 'ValaLexer', 'OocLexer', + 'GoLexer', 'FelixLexer', 'AdaLexer', 'Modula2Lexer', + 'BlitzMaxLexer'] class CLexer(RegexLexer): @@ -1094,6 +1095,93 @@ class DylanLexer(RegexLexer): } +class NimrodLexer(RegexLexer): + """ + For `Nimrod <http://force7.de/nimrod/>`_ source code. + """ + name = 'Nimrod' + aliases = ['nimrod', 'nim'] + filenames = ['*.nim'] + + tokens = { + 'root': [ + (r'\n', Text), + (r"##.*$", bygroups(String.Doc)), + (r'[^\S\n]+', Text), + (r'#.*$', Comment), + (r'[]{}:(),;[]', Punctuation), + (r'[~!%$@&*+=|?:<>/-]|\.', Operator), + (r'\\\n', Text), + (r'\\', Text), + include('keywords'), + (r'(proc|method|template|macro|iterator)((?:\s|\\\s)+)', bygroups(Keyword, Text), 'funcname'), + (r'(from)((?:\s|\\\s)+)', bygroups(Keyword.Namespace, Text), 'fromimport'), + (r'(import)((?:\s|\\\s)+)', bygroups(Keyword.Namespace, Text), 'import'), + include('builtins'), + include('backtick'), + include('name'), + include('numbers'), + ('"', String, combined('stringescape', 'dqs')), + ("'", String, combined('stringescape', 'sqs')), + ], + 'builtins': [ + (r'(int|int8|int16|int32|int64|float|float32|float64|bool|char|string|cstring|pointer|Ordinal|expr|stmt|typeDesc|range|array|openarray|seq|set|Byte|Natural|Positive|TObject|PObjectTResult|TEndian|TAddress|BiggestInt|BiggestFloat|cchar|cschar|cshort|cint|clong|clonglong|cfloat|cdouble|clongdouble|cstringArray|PFloat32|PFloat64|PInt64|PInt32|TGC_Strategy|TFile|TFileMode|TFileHandle|isMainModule|CompileDate|CompileTime|NimrodVersion|NimrodMajor|NimrodMinor|NimrodPatch|cpuEndian|hostOS|hostCPU|appType|inf|neginf|nan|QuitSuccess|QuitFailure|dbgLineHook|stdin|stdout|stderr|defined|definedInScope|high|low|sizeof|succ|pred|inc|dec|newSeq|len|incl|excl|card|ord|chr|ze|ze64|toU8|toU16|toU32|abs|min|max|contains|cmp|setLen|newString|compileOption|add|del|delete|insert|repr|toFloat|toBiggestFloat|toInt|toBiggestInt|addQuitProc|copy|zeroMem|copyMem|moveMem|equalMem|alloc|alloc0|realloc|dealloc|assert|swap|getRefcount|getOccupiedMem|getFreeMem|getTotalMem|min|max|isNil|find|contains|pop|each|GC_disable|GC_enable|GC_fullCollect|GC_setStrategy|GC_enableMarkAndSweep|GC_disableMarkAndSweep|GC_getStatistics|GC_ref|GC_unref|add|echo|quit|atomicInc|atomicDec|Open|reopen|Close|EndOfFile|readChar|FlushFile|readFile|write|readLine|writeln|getFileSize|ReadBytes|ReadChars|readBuffer|writeBytes|writeChars|writeBuffer|setFilePos|getFilePos|fileHandle|cstringArrayToSeq|cstringArrayToSeq|getCurrentException|getCurrentExceptionMsg|likely|unlikely)\b', Name.Builtin), + (r'(false|true)', Name.Builtin.Pseudo), + (r'(E_Base|EAsynch|ESynch|ESystem|EIO|EOS|EInvalidLibrary|EResourceExhausted|EArithmetic|EDivByZero|EOverflow|EAccessViolation|EAssertionFailed|EControlC|EInvalidValue|EOutOfMemory|EInvalidIndex|EInvalidField|EOutOfRange|EStackOverflow|ENoExceptionToReraise|EInvalidObjectAssignment|EInvalidObjectConversion|EFloatingPoint|EFloatInvalidOp|EFloatDivByZero|EFloatOverflow|EFloatUnderflow|EFloatInexact)\b', Name.Exception), + ], + 'backtick': [ + ('`.*?`', String.Backtick), + ], + 'keywords': [ + (r'(addr|and|as|asm|atomic|bind|block|break|case|cast|const|continue|converter|discard|distinct|div|elif|else|end|enum|except|finally|for|generic|if|implies|in|include|is|isnot|lambda|let|mod|nil|not|notin|object|of|or|out|ptr|raise|ref|return|shl|shr|try|tuple|type|var|when|while|with|without|xor|yield)\b', Keyword), + ], + 'name': [ + ('[a-zA-Z_][a-zA-Z0-9_]*', Name), + ], + 'funcname': [ + ('[a-zA-Z_][a-zA-Z0-9_]*', Name.Function, '#pop') + ], + 'import': [ + (r'((?:\s|\\\s)+)', + bygroups(Text)), + (r'[a-zA-Z_][a-zA-Z0-9_.]*', Name.Namespace), + (r'(\s*)(,)(\s*)', bygroups(Text, Operator, Text)), + (r'', Text, '#pop') # all else: go back + ], + 'fromimport': [ + (r'((?:\s|\\\s)+)(import)\b', bygroups(Text, Keyword.Namespace), '#pop'), + (r'[a-zA-Z_.][a-zA-Z0-9_.]*', Name.Namespace), + ], + 'numbers': [ + (r'(\d+\.\d*|\d*\.\d+)([eE][+-]?[0-9]+)?\'?(f32|f64)?', Number.Float), + (r'\d+[eE][+-]?[0-9]+\'?(f32|f64)?', Number.Float), + (r'0o[0-7]+', Number.Oct), + (r'0x[a-fA-F0-9]+', Number.Hex), + (r'\d+\'?(i8|i16|i32|i64)?', Number.Integer) + ], + 'stringescape': [ + (r'\\([\\abfnrtv"\']|\n|N{.*?}|u[a-fA-F0-9]{4}|' + r'U[a-fA-F0-9]{8}|x[a-fA-F0-9]{2}|[0-7]{1,3})', String.Escape) + ], + 'strings': [ + (r'[^\\\'"%\n]+', String), + (r'[\'"\\]', String), + (r'%', String) + ], + 'nl': [ + (r'\n', String) + ], + 'dqs': [ + (r'"', String, '#pop'), + include('strings') + ], + 'sqs': [ + (r"'", String, '#pop'), + include('strings') + ], + } + + class ObjectiveCLexer(RegexLexer): """ For Objective-C source code with preprocessor directives. diff --git a/tests/examplefiles/test.nim b/tests/examplefiles/test.nim new file mode 100644 index 00000000..20610bb6 --- /dev/null +++ b/tests/examplefiles/test.nim @@ -0,0 +1,93 @@ +import re + +for x in lines("myfile.txt"): + if x =~ re"(\w+)=(.*)": + echo "Key: ", matches[0], + " Value: ", matches[1] + +Echo("What's your name? ") +var name: string = readLine(stdin) +if name == "": + echo("Poor soul, you lost your name?") +elif name == "name": + echo("Very funny, your name is name.") +else: + Echo("Hi, ", name, "!") + +var name = readLine(stdin) +case name +of "": + echo("Poor soul, you lost your name?") +of "name": + echo("Very funny, your name is name.") +else: + Echo("Hi, ", name, "!") + +from strutils import parseInt + +Echo("A number please: ") +var n = parseInt(readLine(stdin)) +case n +of 0..2, 4..7: Echo("The number is in the set: {0, 1, 2, 4, 5, 6, 7}") +of 3, 8: Echo("The number is 3 or 8") + +Echo("Counting to 10: ") +var i = 1 +while i <= 10: + Echo($i) + inc(i) + +proc yes(question: string): bool = + Echo(question, " (y/n)") + while true: + case readLine(stdin) + of "y", "Y", "yes", "Yes": return true + of "n", "N", "no", "No": return false + else: Echo("Please be clear: yes or no") + +proc even(n: int): bool + +proc odd(n: int): bool = + if n == 1: return true + else: return even(n-1) + +iterator countup(a, b: int): int = + var res = a + while res <= b: + yield res + inc(res) + +type + TPerson = object of TObject + name*: string # the * means that `name` is accessible from other modules + age: int # no * means that the field is hidden from other modules + + TStudent = object of TPerson # TStudent inherits from TPerson + id: int # with an id field + +var + student: TStudent + person: TPerson +assert(student is TStudent) + +echo({'a', 'b', 'c'}.card) +stdout.writeln("Hallo") +var + f: TFile +if open(f, "numbers.txt"): + try: + var a = readLine(f) + var b = readLine(f) + echo("sum: " & $(parseInt(a) + parseInt(b))) + except EOverflow: + echo("overflow!") + except EInvalidValue: + echo("could not convert string to integer") + except EIO: + echo("IO error!") + except: + echo("Unknown exception!") + # reraise the unknown exception: + raise + finally: + close(f)
\ No newline at end of file |