1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
module CodeRay
module Scanners
# Scheme scanner for CodeRay (by closure).
#
# Thanks to murphy for putting CodeRay into public.
class Scheme < Scanner
# TODO: function defs
# TODO: built-in functions
register_for :scheme
file_extension 'scm'
CORE_FORMS = %w[
lambda let let* letrec syntax-case define-syntax let-syntax
letrec-syntax begin define quote if or and cond case do delay
quasiquote set! cons force call-with-current-continuation call/cc
] # :nodoc:
IDENT_KIND = CaseIgnoringWordList.new(:ident).
add(CORE_FORMS, :keyword) # :nodoc:
#IDENTIFIER_INITIAL = /[a-z!@\$%&\*\/\:<=>\?~_\^]/i
#IDENTIFIER_SUBSEQUENT = /#{IDENTIFIER_INITIAL}|\d|\.|\+|-/
#IDENTIFIER = /#{IDENTIFIER_INITIAL}#{IDENTIFIER_SUBSEQUENT}*|\+|-|\.{3}/
IDENTIFIER = /[a-zA-Z!@$%&*\/:<=>?~_^][\w!@$%&*\/:<=>?~^.+\-]*|[+-]|\.\.\./ # :nodoc:
DIGIT = /\d/ # :nodoc:
DIGIT10 = /\d/ # :nodoc:
DIGIT16 = /[0-9a-f]/i # :nodoc:
DIGIT8 = /[0-7]/ # :nodoc:
DIGIT2 = /[01]/ # :nodoc:
RADIX16 = /\#x/i # :nodoc:
RADIX8 = /\#o/i # :nodoc:
RADIX2 = /\#b/i # :nodoc:
RADIX10 = /\#d/i # :nodoc:
EXACTNESS = /#i|#e/i # :nodoc:
SIGN = /[\+-]?/ # :nodoc:
EXP_MARK = /[esfdl]/i # :nodoc:
EXP = /#{EXP_MARK}#{SIGN}#{DIGIT}+/ # :nodoc:
SUFFIX = /#{EXP}?/ # :nodoc:
PREFIX10 = /#{RADIX10}?#{EXACTNESS}?|#{EXACTNESS}?#{RADIX10}?/ # :nodoc:
PREFIX16 = /#{RADIX16}#{EXACTNESS}?|#{EXACTNESS}?#{RADIX16}/ # :nodoc:
PREFIX8 = /#{RADIX8}#{EXACTNESS}?|#{EXACTNESS}?#{RADIX8}/ # :nodoc:
PREFIX2 = /#{RADIX2}#{EXACTNESS}?|#{EXACTNESS}?#{RADIX2}/ # :nodoc:
UINT10 = /#{DIGIT10}+#*/ # :nodoc:
UINT16 = /#{DIGIT16}+#*/ # :nodoc:
UINT8 = /#{DIGIT8}+#*/ # :nodoc:
UINT2 = /#{DIGIT2}+#*/ # :nodoc:
DECIMAL = /#{DIGIT10}+#+\.#*#{SUFFIX}|#{DIGIT10}+\.#{DIGIT10}*#*#{SUFFIX}|\.#{DIGIT10}+#*#{SUFFIX}|#{UINT10}#{EXP}/ # :nodoc:
UREAL10 = /#{UINT10}\/#{UINT10}|#{DECIMAL}|#{UINT10}/ # :nodoc:
UREAL16 = /#{UINT16}\/#{UINT16}|#{UINT16}/ # :nodoc:
UREAL8 = /#{UINT8}\/#{UINT8}|#{UINT8}/ # :nodoc:
UREAL2 = /#{UINT2}\/#{UINT2}|#{UINT2}/ # :nodoc:
REAL10 = /#{SIGN}#{UREAL10}/ # :nodoc:
REAL16 = /#{SIGN}#{UREAL16}/ # :nodoc:
REAL8 = /#{SIGN}#{UREAL8}/ # :nodoc:
REAL2 = /#{SIGN}#{UREAL2}/ # :nodoc:
IMAG10 = /i|#{UREAL10}i/ # :nodoc:
IMAG16 = /i|#{UREAL16}i/ # :nodoc:
IMAG8 = /i|#{UREAL8}i/ # :nodoc:
IMAG2 = /i|#{UREAL2}i/ # :nodoc:
COMPLEX10 = /#{REAL10}@#{REAL10}|#{REAL10}\+#{IMAG10}|#{REAL10}-#{IMAG10}|\+#{IMAG10}|-#{IMAG10}|#{REAL10}/ # :nodoc:
COMPLEX16 = /#{REAL16}@#{REAL16}|#{REAL16}\+#{IMAG16}|#{REAL16}-#{IMAG16}|\+#{IMAG16}|-#{IMAG16}|#{REAL16}/ # :nodoc:
COMPLEX8 = /#{REAL8}@#{REAL8}|#{REAL8}\+#{IMAG8}|#{REAL8}-#{IMAG8}|\+#{IMAG8}|-#{IMAG8}|#{REAL8}/ # :nodoc:
COMPLEX2 = /#{REAL2}@#{REAL2}|#{REAL2}\+#{IMAG2}|#{REAL2}-#{IMAG2}|\+#{IMAG2}|-#{IMAG2}|#{REAL2}/ # :nodoc:
NUM10 = /#{PREFIX10}?#{COMPLEX10}/ # :nodoc:
NUM16 = /#{PREFIX16}#{COMPLEX16}/ # :nodoc:
NUM8 = /#{PREFIX8}#{COMPLEX8}/ # :nodoc:
NUM2 = /#{PREFIX2}#{COMPLEX2}/ # :nodoc:
NUM = /#{NUM10}|#{NUM16}|#{NUM8}|#{NUM2}/ # :nodoc:
protected
def scan_tokens encoder, options
state = :initial
ident_kind = IDENT_KIND
until eos?
case state
when :initial
if match = scan(/ \s+ | \\\n /x)
encoder.text_token match, :space
elsif match = scan(/['\(\[\)\]]|#\(/)
encoder.text_token match, :operator
elsif match = scan(/;.*/)
encoder.text_token match, :comment
elsif match = scan(/#\\(?:newline|space|.?)/)
encoder.text_token match, :char
elsif match = scan(/#[ft]/)
encoder.text_token match, :predefined_constant
elsif match = scan(/#{IDENTIFIER}/o)
encoder.text_token match, ident_kind[matched]
elsif match = scan(/\./)
encoder.text_token match, :operator
elsif match = scan(/"/)
encoder.begin_group :string
encoder.text_token match, :delimiter
state = :string
elsif match = scan(/#{NUM}/o) and not matched.empty?
encoder.text_token match, :integer
else
encoder.text_token getch, :error
end
when :string
if match = scan(/[^"\\]+|\\.?/)
encoder.text_token match, :content
elsif match = scan(/"/)
encoder.text_token match, :delimiter
encoder.end_group :string
state = :initial
else
raise_inspect "else case \" reached; %p not handled." % peek(1),
encoder, state
end
else
raise 'else case reached'
end
end
if state == :string
encoder.end_group state
end
encoder
end
end
end
end
|
