diff options
| author | murphy <murphy@rubychan.de> | 2010-03-26 04:40:45 +0000 |
|---|---|---|
| committer | murphy <murphy@rubychan.de> | 2010-03-26 04:40:45 +0000 |
| commit | 1c1a3d50b1605b45d829519fb8e4502109a11448 (patch) | |
| tree | 057ec69db75a6ba6a9a002d016cca4b57f76c279 | |
| parent | ec2d30735584d4091441939fbbebb54eaca66ff0 (diff) | |
| download | coderay-1c1a3d50b1605b45d829519fb8e4502109a11448.tar.gz | |
TODO: A CSharp scanner by percy li, see http://www.redmine.org/boards/3/topics/11616.
| -rw-r--r-- | etc/todo/scanners/csharp.rb | 156 |
1 files changed, 156 insertions, 0 deletions
diff --git a/etc/todo/scanners/csharp.rb b/etc/todo/scanners/csharp.rb new file mode 100644 index 0000000..7686ce5 --- /dev/null +++ b/etc/todo/scanners/csharp.rb @@ -0,0 +1,156 @@ +module CodeRay
+ module Scanners
+ class CSharp < Scanner
+
+ register_for :csharp
+
+ RESERVED_WORDS = %w(abstract as base break case catch checked class
+ const continue default delegate do else enum event explicit extern
+ finally fixed for foreach goto if implicit in interface internal is
+ lock namespace new operator out override params private protected
+ public readonly ref return sealed sizeof stackalloc static struct
+ switch this throw try typeof unchecked unsafe using virtual volatile
+ void while
+ add dynamic from get global group into join let orderby partial
+ remove select set value var where yield)
+
+ PREDEFINED_TYPES = %w(bool byte char double float int long short
+ decimal uint ulong ushort object sbyte string)
+
+ PREDEFINED_CONSTANTS = %w(true false null)
+
+ IDENT_KIND = WordList.new(:ident).
+ add(RESERVED_WORDS, :reserved).
+ add(PREDEFINED_TYPES, :pre_type).
+ add(PREDEFINED_CONSTANTS, :pre_constant)
+
+ ESCAPE = / [rbfnrtv\n\\'"] | x[a-fA-F0-9]{1,2} | [0-7]{1,3} /x
+ UNICODE_ESCAPE = / u[a-fA-F0-9]{4} | U[a-fA-F0-9]{8} /x
+
+ def scan_tokens tokens, options
+ state = :initial
+
+ until eos?
+ kind = nil
+ match = nil
+
+ case state
+ when :initial
+
+ if scan(/ \s+ | \\\n /x)
+ kind = :space
+
+ elsif scan(%r! // [^\n\\]* (?: \\. [^\n\\]* )* | /\* (?: .*? \*/ | .* ) !mx)
+ kind = :comment
+
+ elsif match = scan(/ \# \s* if \s* 0 /x)
+ match << scan_until(/ ^\# (?:elif|else|endif) .*? $ | \z /xm) unless eos?
+ kind = :comment
+
+ elsif scan(/ [-+*\/=<>?:;,!&^|()\[\]{}~%]+ | \.(?!\d) /x)
+ kind = :operator
+
+ elsif match = scan(/ [A-Za-z_][A-Za-z_0-9]* /x)
+ kind = IDENT_KIND[match]
+ if kind == :ident and check(/:(?!:)/)
+ match << scan(/:/)
+ kind = :label
+ end
+
+ elsif match = scan(/"/)
+ tokens << [:open, :string]
+ state = :string
+ kind = :delimiter
+
+ elsif match = scan(/@"/)
+ tokens << [:open, :string]
+ state = :stringat
+ kind = :delimiter
+
+ elsif scan(/#\s*(\w*)/)
+ kind = :preprocessor
+
+ elsif scan(/ ' (?: [^\'\n\\] | \\ #{ESCAPE} )? '? /ox)
+ kind = :char
+
+ elsif scan(/0[xX][0-9A-Fa-f]+/)
+ kind = :hex
+
+ elsif scan(/(?:0[0-7]+)(?![89.eEfF])/)
+ kind = :oct
+
+ elsif scan(/(?:\d+)(?![.eEfFdDmML])/)
+ kind = :integer
+
+ elsif scan(/\d[fFdDmM]?|\d*\.\d+(?:[eE][+-]?\d+)?[fFdDmM]?|\d+[eE][+-]?\d+[fFdDmM]?/)
+ kind = :float
+
+ else
+ getch
+ kind = :error
+
+ end
+
+ when :string
+ if scan(/[^\\\n"]+/)
+ kind = :content
+ elsif scan(/"/)
+ tokens << ['"', :delimiter]
+ tokens << [:close, :string]
+ state = :initial
+ next
+ elsif scan(/ \\ (?: #{ESCAPE} | #{UNICODE_ESCAPE} ) /mox)
+ kind = :char
+ elsif scan(/ \\ | $ /x)
+ tokens << [:close, :string]
+ kind = :error
+ state = :initial
+ else
+ raise_inspect "else case \" reached; %p not handled." % peek(1), tokens
+ end
+
+ when :stringat
+ if scan(/[^"]+/)
+ kind = :content
+ elsif scan(/""/)
+ kind = :char
+ elsif scan(/"/)
+ tokens << ['"', :delimiter]
+ tokens << [:close, :string]
+ state = :initial
+ next
+ elsif scan(/ \\ (?: #{ESCAPE} | #{UNICODE_ESCAPE} ) /mox)
+ kind = :char
+ elsif scan(/ $ /x)
+ tokens << [:close, :string]
+ kind = :error
+ state = :initial
+ else
+ raise_inspect "else case \" reached; %p not handled." % peek(1), tokens
+ end
+
+ else
+ raise_inspect 'Unknown state', tokens
+
+ end
+
+ match ||= matched
+ if $DEBUG and not kind
+ raise_inspect 'Error token %p in line %d' %
+ [[match, kind], line], tokens
+ end
+ raise_inspect 'Empty token', tokens unless match
+
+ tokens << [match, kind]
+
+ end
+
+ if state == :string
+ tokens << [:close, :string]
+ end
+
+ tokens
+ end
+ end
+ end
+end
|