Sha256: b25c525ac5097eef809234cff5b481c3fd4ebd2c49b6c7788be8c743b74398dc
Contents?: true
Size: 1.69 KB
Versions: 7
Compression:
Stored size: 1.69 KB
Contents
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
Version data entries
7 entries across 7 versions & 2 rubygems