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
|
require 'spec_helper'
describe Parslet::Parser, "exporting to other lingos" do
class MiniLisp < Parslet::Parser
root :expression
rule(:expression) {
space? >> str('(') >> space? >> body >> str(')')
}
rule(:body) {
(expression | identifier | float | integer | string).repeat.as(:exp)
}
rule(:space) {
match('\s').repeat(1)
}
rule(:space?) {
space.maybe
}
rule(:identifier) {
(match('[a-zA-Z=*]') >> match('[a-zA-Z=*_]').repeat).as(:identifier) >> space?
}
rule(:float) {
(
integer >> (
str('.') >> match('[0-9]').repeat(1) |
str('e') >> match('[0-9]').repeat(1)
).as(:e)
).as(:float) >> space?
}
rule(:integer) {
((str('+') | str('-')).maybe >> match("[0-9]").repeat(1)).as(:integer) >> space?
}
rule(:string) {
str('"') >> (
str('\\') >> any |
str('"').absent? >> any
).repeat.as(:string) >> str('"') >> space?
}
end
# I only update the files once I've verified the new syntax to work with
# the respective tools. This is more an acceptance test than a real spec.
describe "<- #to_citrus" do
let(:citrus) { File.read(
File.join(File.dirname(__FILE__), 'minilisp.citrus'))
}
it "should be valid citrus syntax" do
# puts MiniLisp.new.to_citrus
MiniLisp.new.to_citrus.should == citrus
end
end
describe "<- #to_treetop" do
let(:treetop) { File.read(
File.join(File.dirname(__FILE__), 'minilisp.tt'))
}
it "should be valid treetop syntax" do
# puts MiniLisp.new.to_treetop
MiniLisp.new.to_treetop.should == treetop
end
end
end
|
