# This module is implemented from this UML:
#http://www.openehr.org/uml/release-1.0.1/Browsable/_9_0_76d0249_1109701308832_384250_6986Report.html
# Ticket refs #46

require 'uri'

module URI
  class Ehr < ::URI::Generic
    COMPONENT = [
      :scheme, :path, :fragment, :query
    ].freeze

    def self.build(args)
      tmp = Util::make_components_hash(self, args)
      super(tmp)
    end

    def initialize(*arg)
      super(*arg)
    end

    def self.use_registry
      true
    end
  end
  @@schemes['EHR'] = Ehr
end

module OpenEHR
  module RM
    module DataTypes
      module Uri
        class DvUri < OpenEHR::RM::DataTypes::Basic::DataValue
          attr_reader :value

          def initialize(args ={})
            self.value = args[:value]
          end

          def fragment_id
            @uri.fragment
          end

          def path
            @uri.path
          end

          def query
            @uri.query
          end

          def scheme
            @uri.scheme
          end

          def value=(value)
            raise ArgumentError, "value is empty" if value.nil?
            parse(value)
            @value = value
          end

          private

          def parse(value)
            @uri = ::URI.parse(value)
          end
        end

        class DvEhrUri < DvUri
          def initialize(value)
            super(value)
          end

          def value=(value)
            raise ArgumentError, "scheme must be ehr" if !(value =~ /^ehr/i)
            super(value)
          end
        end # of DV_EHR_URI
      end # of URI
    end # of DataTypes
  end # of RM
end # of OpenEHR