From 1c1a3d50b1605b45d829519fb8e4502109a11448 Mon Sep 17 00:00:00 2001
From: murphy <murphy@rubychan.de>
Date: Fri, 26 Mar 2010 04:40:45 +0000
Subject: TODO: A CSharp scanner by percy li, see
 http://www.redmine.org/boards/3/topics/11616.

---
 etc/todo/scanners/csharp.rb | 156 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 156 insertions(+)
 create mode 100644 etc/todo/scanners/csharp.rb

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
-- 
cgit v1.2.1