Module: KeepYourHead::XmlAccessor

Included in:
Database::BaseItemWithXml
Defined in:
lib/Keepyourhead/database/XmlAccessor.rb

Defined Under Namespace

Classes: XmlAccessorElementList

Class Method Summary collapse

Instance Method Summary collapse

Class Method Details

.addAttribute(_class, functionName, elementName, notifyEvent, procRead = nil, procWrite = nil) ⇒ Object 



83
84
85
86
87
88
89
90
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 83

def self.addAttribute( _class, functionName, elementName, notifyEvent, procRead = nil, procWrite = nil )
	_class.my_define_method(functionName.to_sym) { 
		xmlAccessorAttributeRead elementName, procRead
	}
	_class.my_define_method( (functionName.to_s + "=").to_sym ) { |value| 
		xmlAccessorAttributeWrite elementName, notifyEvent, value, procWrite
	}
end

.addElementCData(_class, functionName, elementName, notifyEvent, procRead = nil, procWrite = nil) ⇒ Object 



54
55
56
57
58
59
60
61
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 54

def self.addElementCData( _class, functionName, elementName, notifyEvent, procRead = nil, procWrite = nil )
	_class.my_define_method(functionName.to_sym) { 
		xmlAccessorElementCDataRead elementName, procRead
	}
	_class.my_define_method( (functionName.to_s + "=").to_sym ) { |value| 
		xmlAccessorElementCDataWrite elementName, notifyEvent, value, procWrite
	}
end

.addElementText(_class, functionName, elementName, notifyEvent, procRead = nil, procWrite = nil) ⇒ Object 



118
119
120
121
122
123
124
125
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 118

def self.addElementText( _class, functionName, elementName, notifyEvent, procRead = nil, procWrite = nil )
	_class.my_define_method(functionName.to_sym) { 
		xmlAccessorElementTextRead elementName, procRead
	}
	_class.my_define_method( (functionName.to_s + "=").to_sym ) { |value| 
		xmlAccessorElementTextWrite elementName, notifyEvent, value, procWrite
	}
end

Instance Method Details

#xmlAccessorAttributeRead(name, procRead) ⇒ Object 



68
69
70
71
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 68

def xmlAccessorAttributeRead( name, procRead )
	ret = @node.attributes[name] 
	(procRead && procRead.call(self, ret) ) || ret
end

#xmlAccessorAttributeWrite(name, notifyEvent, value, procWrite) ⇒ Object 



73
74
75
76
77
78
79
80
81
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 73

def xmlAccessorAttributeWrite( name, notifyEvent, value, procWrite )
	value = (procWrite && procWrite.call(self, value)) || value

	if @node.attributes[name] != value then
		@node.attributes[name] = value

		file.viewersSend notifyEvent, self if notifyEvent
	end
end

#xmlAccessorElementCDataRead(name, procRead) ⇒ Object 



21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 21

def xmlAccessorElementCDataRead( name, procRead )
	parent = REXML::XPath.first( node, name )
	ret = parent && parent.children.map{ |c|
		case c
		when REXML::Text
			c.value
		when REXML::CData
			c.value
		else
			nil
		end
	}.compact.join("")
	(procRead && procRead.call(self, ret) ) || ret
end

#xmlAccessorElementCDataWrite(name, notifyEvent, value, procWrite) ⇒ Object 



36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 36

def xmlAccessorElementCDataWrite( name, notifyEvent, value, procWrite )
	lastValue = (val = REXML::XPath.first( node, name )) && val.cdatas.map{ |cd| cd.value }.join("")
	
	
	newValue = (procWrite && procWrite.call(self, value)) || value

	node_ = REXML::XPath.first( node, name )
	node_ ||= @node.add REXML::Element.new(name)

	if lastValue != newValue then
		node_.delete_at 0 while node_.length > 0

		node_.add REXML::CData.new(newValue)

		file.viewersSend notifyEvent, self if notifyEvent
	end
end

#xmlAccessorElementListCreate(name, notifyEvent, procCreate) ⇒ Object 



240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 240

def xmlAccessorElementListCreate( name, notifyEvent, procCreate )
=begin
	node = REXML::Element.new name

	if self.node[0] then
		self.node.insert_before self.node[0], node
	else
		self.node.add node
	end 
=end
#			node = self.node.add_element name
	node = self.node.add REXML::Element.new(name)

	ret = (procCreate && procCreate.call(self,node)) || node.name

	file.viewersSend notifyEvent, ret if notifyEvent
	
	ret
end

#xmlAccessorElementListInsertAfter(name, notifyEvent, procRead, node, other) ⇒ Object 



224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 224

def xmlAccessorElementListInsertAfter( name, notifyEvent, procRead, node, other )
	assert node.kind_of?(REXML::Element)
	assert node.name =~ name
	assert other

	assert other.parent == self
	other.node.parent.insert_after other.node, node
#		other.node.next_sibling = node
	
	ret = (procRead && procRead.call(self,node) ) || node.name
	
	file.viewersSend notifyEvent, ret if notifyEvent

	ret
end

#xmlAccessorElementListInsertBefore(name, notifyEvent, procRead, node, other) ⇒ Object 



208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 208

def xmlAccessorElementListInsertBefore( name, notifyEvent, procRead, node, other )
	assert node.kind_of?(REXML::Element)
	assert node.name =~ name
	assert other

	assert other.parent == self
	other.node.parent.insert_before other.node, node
#			other.node.previous_sibling = node
	
	ret = (procRead && procRead.call(self,node) ) || node.name
	
	file.viewersSend notifyEvent, ret if notifyEvent

	ret
end

#xmlAccessorElementListInsertFirst(name, notifyEvent, procRead, node) ⇒ Object 



178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 178

def xmlAccessorElementListInsertFirst( name, notifyEvent, procRead, node )
	assert node.kind_of?(REXML::Element)
	assert node.name =~ name

	if self.node[0] then
		self.node.insert_before self.node[0], node
	else
		self.node.add node
	end 
	
	ret = (procRead && procRead.call(self,node) ) || node.name
	
	file.viewersSend notifyEvent, ret if notifyEvent

	ret
end

#xmlAccessorElementListInsertLast(name, notifyEvent, procRead, node) ⇒ Object 



195
196
197
198
199
200
201
202
203
204
205
206
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 195

def xmlAccessorElementListInsertLast( name, notifyEvent, procRead, node )
	assert node.kind_of?(REXML::Element)
	assert node.name =~ name

	self.node.add node
	
	ret = (procRead && procRead.call(self,node) ) || node.name
	
	file.viewersSend notifyEvent, ret if notifyEvent

	ret
end

#xmlAccessorElementListNext(name, procRead, other) ⇒ Object 



140
141
142
143
144
145
146
147
148
149
150
151
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 140

def xmlAccessorElementListNext( name, procRead, other )
	assert other.parent == self

	ret = other.node
	begin 
		ret = ret.next_element
	end while (ret and not ret.name =~ name)

	return nil unless ret

	(procRead && procRead.call(self,ret) ) || ret.name
end

#xmlAccessorElementListPrevious(name, procRead, other) ⇒ Object 



153
154
155
156
157
158
159
160
161
162
163
164
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 153

def xmlAccessorElementListPrevious( name, procRead, other )
	assert other.parent == self

	ret = other.node
	begin 
		ret = ret.previous_element
	end while ret and not ret.name =~ name

	return nil unless ret

	(procRead && procRead.call(self,ret) ) || ret.name
end

#xmlAccessorElementListRead(name, procRead) ⇒ Object 



133
134
135
136
137
138
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 133

def xmlAccessorElementListRead( name, procRead )
	ret = @node.elements.select { |node| node.name =~ name }
	ret.map! { |node|
		(procRead && procRead.call(self,node) ) || node.name
	}
end

#xmlAccessorElementListRemove(name, notifyEvent, item) ⇒ Object 



166
167
168
169
170
171
172
173
174
175
176
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 166

def xmlAccessorElementListRemove( name, notifyEvent, item )
	assert item.node.name =~ name
	assert item.parent == self
	
	file.viewersSend notifyEvent, item if notifyEvent

	#node.delete_element item.node
	item.node.remove
	
	item.node
end

#xmlAccessorElementTextRead(name, procRead) ⇒ Object 



98
99
100
101
102
103
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 98

def xmlAccessorElementTextRead( name, procRead )
	n = REXML::XPath.first( node, name )
	ret = n && n.text

	(procRead && procRead.call(self,ret) ) || ret
end

#xmlAccessorElementTextWrite(name, notifyEvent, value, procWrite) ⇒ Object 



105
106
107
108
109
110
111
112
113
114
115
116
 
# File 'lib/Keepyourhead/database/XmlAccessor.rb', line 105

def xmlAccessorElementTextWrite( name, notifyEvent, value, procWrite )
	value = (procWrite && procWrite.call(self,value)) || value
	
	n = REXML::XPath.first( node, name )

	if not n or n.text != value then
		n ||= node.add REXML::Element.new(name)
		n.text=value
	
		file.viewersSend notifyEvent, self if notifyEvent
	end
end