Class: XMLRegistryObjects

Inherits:
Object
  • Object
show all
Defined in:
lib/xmlregistry_objects.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(reg, obj, log: nil) ⇒ XMLRegistryObjects

Returns a new instance of XMLRegistryObjects.



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
 
# File 'lib/xmlregistry_objects.rb', line 15

def initialize(reg, obj, log: nil)

  @log = log
  log.info 'XMLRegistryObjects/initialize: active' if log

  polyrexdoc = if obj.is_a? Polyrex then

    obj

  elsif obj.is_a? String then

    buffer, type = RXFReader.read obj

    if type == :url then
      Polyrex.new buffer
    else
      Polyrex.new.import "<?polyrex schema='entries/objectx[name, regkey]/"\
          "methodx[name,subkeyname]' delimiter=' = '?>\n" + obj
    end
  end

  log.info 'XMLRegistryObjects/initialize: before @to_h' if log

  @to_h = polyrexdoc.records.inject({}) do |rtn, row|

    name, path = row.name, row.regkey[1..-2]
    class_name = name.capitalize
    klass = Object.const_set(class_name,Class.new)

    base_methods = "
      def initialize(reg)
        @reg = reg
      end

      def last_modified()
        lm = @reg.get_key('#{path}').attributes[:last_modified]
        Time.parse(lm) if lm
      end

      def set(h)

        h.each {|key,value| self.method((key.to_s + '=').to_sym).call value }

      end
    "

    s = if row.records.any? then

      row.records.inject(base_methods) do |r, attr|

        attr_name, subkey = attr.name, attr.subkeyname[/\w+$/]
        key = path + '/' + subkey

        r << make_def(key, attr_name)
        r << make_setdef(key, attr_name[/\w+/])

      end

    else

      a = reg.xpath("#{path}/*")

      a.inject(base_methods) do |r, x|

        methods_name = subkey = x.name

        type = x.attributes[:type]
        key = path + '/' + subkey

        r << make_setdef(key, method_name=subkey)

        method_name += '?' if type and type == 'boolean'
        r << make_def(key, method_name)

      end
    end

    log.info 'XMLRegistryObjects/initialize: before class_eval ' + klass.to_s if log

    klass.class_eval s
    rtn.merge name.to_sym => klass.new(reg)

  end

  log.info 'XMLRegistryObjects/initialize: completed' if log
end

Instance Attribute Details

#to_h ⇒ Object (readonly)

Returns the value of attribute to_h.



13
14
15
 
# File 'lib/xmlregistry_objects.rb', line 13

def to_h
  @to_h
end

Instance Method Details

#define_methods ⇒ Object 



102
103
104
 
# File 'lib/xmlregistry_objects.rb', line 102

def define_methods()
  @to_h.each.map {|k,v| "define_method :#{k.to_s}, ->{h[:#{k}]}"}.join("\n")
end

#define_methods2(obj = nil) ⇒ Object

to use this method the client is expect to fetch the hash object from the registry object e.g.

xro = XMLRegistryObjects.new(reg,list)
@h = xro.to_h



111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
 
# File 'lib/xmlregistry_objects.rb', line 111

def define_methods2(obj=nil)

  a = @to_h.each.map {|k,v| [k.to_s.to_sym, ->{@h[k.to_sym]} ] }

  if obj then

    a.each {|name, blk| obj.class.send(:define_method, name, blk) }

  else

    return a

  end

end