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
|
# Easy IMplementation of XML
#
# Copyright (C) 2006,2008, KURODA Hiraku <hiraku@hinet.mydns.jp>
# You can redistribute it and/or modify it under GPL2.
#
require "eim_xml"
module EimXML
class BaseDSL
def add(v)
@_container << v
end
alias << add
def import_variables(src)
src.instance_variables.each do |v|
instance_variable_set(v, src.instance_variable_get(v)) unless v=~/\A@_[^_]/
end
self
end
def _build(klass, *arg, &proc)
e = klass.new(*arg)
@_container << e if @_container
if proc
oc = @_container
@_container = e
begin
instance_eval(&proc)
ensure
@_container = oc
end
end
e
end
private :_build
def _push(container)
oc = @_container
@_container = container
begin
yield if block_given?
container
ensure
@_container = oc
end
end
private :_push
def self.register(*args)
args.each do |klass, name|
name ||= klass.name.downcase[/(?:.*\:\:)?(.*)$/, 1]
eval("def #{name}(*a, &p);_build(#{klass}, *a, &p);end", binding)
eval("def self.#{name}(*a, &p);new.#{name}(*a, &p);end", binding)
end
end
end
class DSL < BaseDSL
end
class OpenDSL
def _build(klass, *arg, &proc)
e = klass.new(*arg)
oc = @_container
oc << e if oc.is_a?(Element)
@_container = e
begin
proc.call(self) if proc
e
ensure
@_container = oc
end
end
private :_build
def self.register_base(dsl, binding, *args)
args.each do |klass, name|
name ||= klass.name.downcase[/(?:.*\:\:)?(.*)$/, 1]
eval("def #{name}(*a, &p);_build(#{klass}, *a, &p);end", binding)
eval("def self.#{name}(*a, &p);self.new.#{name}(*a, &p);end", binding)
end
end
def self.register(*args)
register_base(self, binding, *args)
end
def initialize
@_container = nil
yield(self) if block_given?
end
def add(v)
@_container.add(v)
end
alias :<< :add
def container; @_container; end
end
DSL.register Element, Comment
OpenDSL.register Element, Comment
end
|
