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
|
# File 'app/models/marty/data_grid.rb', line 16
def validate(dg)
dg.errors.add(:base, "'#{dg.data_type}' not a defined type or class") unless
Marty::DataGrid.convert_data_type(dg.data_type)
dg.errors.add(:base, "data must be array of arrays") unless
dg.data.is_a?(Array) && dg.data.all? {|a| a.is_a? Array}
dg.errors.add(:base, "metadata must be an array of hashes") unless
dg.metadata.is_a?(Array) && dg.metadata.all? {|a| a.is_a? Hash}
dg.errors.add(:base, "metadata must contain only h/v dirs") unless
dg.metadata.all? {|h| ["h", "v"].member? h["dir"]}
dg.errors.add(:base, "metadata item attrs must be unique") unless
dg.metadata.map {|h| h["attr"]}.uniq.length == dg.metadata.length
dg.metadata.each do
|inf|
attr, type, keys, rs_keep =
inf["attr"], inf["type"], inf["keys"], inf["rs_keep"]
unless rs_keep.nil? || rs_keep.empty?
m = /\A *(<|<=|>|>=)? *([a-z][a-z_0-9]+) *\z/.match(rs_keep)
unless m
dg.errors.add(:base, "invalid grid modifier expression: #{rs_keep}")
next
end
end
dg.errors.add(:base, "metadata elements must have attr/type/keys") unless
attr && type && keys
dg.errors.add(:base, "bad attribute '#{attr}'") unless
attr =~ /^[a-z][A-Za-z0-9_]*$/
dg.errors.add(:base, "unknown metadata type #{type}") unless
Marty::DataGrid.type_to_index(type)
dg.errors.add(:base, "bad metadata keys") unless
keys.is_a?(Array) && keys.length>0
end
v_keys = dg.dir_infos("v").map {|inf| inf["keys"]}
h_keys = dg.dir_infos("h").map {|inf| inf["keys"]}
v_zip_keys = v_keys.empty? ? [] : v_keys[0].zip(*v_keys[1..-1])
h_zip_keys = h_keys.empty? ? [] : h_keys[0].zip(*h_keys[1..-1])
dg.errors.add(:base, "duplicate horiz. key combination") unless
h_zip_keys.uniq.length == h_zip_keys.length
dg.errors.add(:base, "duplicate vertical key combination") unless
v_zip_keys.uniq.length == v_zip_keys.length
end
|