The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# ====================================================================
#    Licensed to the Apache Software Foundation (ASF) under one
#    or more contributor license agreements.  See the NOTICE file
#    distributed with this work for additional information
#    regarding copyright ownership.  The ASF licenses this file
#    to you under the Apache License, Version 2.0 (the
#    "License"); you may not use this file except in compliance
#    with the License.  You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
#    Unless required by applicable law or agreed to in writing,
#    software distributed under the License is distributed on an
#    "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
#    KIND, either express or implied.  See the License for the
#    specific language governing permissions and limitations
#    under the License.
# ====================================================================

require "svn/util"
require "svn/ext/core"

module Svn
  class Error < StandardError
    class << self
      # This is for backward compatibility with 1.4 or earlier.
      def new_corresponding_error(*args)
        SvnError.new_corresponding_error(*args)
      end
    end

    class SvnError < Error
      TABLE = {}

      class << self
        def new_corresponding_error(code, message, file=nil, line=nil, child=nil)
          if TABLE.has_key?(code)
            TABLE[code].new(message, file, line, child)
          else
            new(code, message, file, line, child)
          end
        end
      end

      attr_reader :code, :error_message, :file, :line
      def initialize(code, message, file=nil, line=nil, child=nil)
        @code = code
        @error_message = message
        @file = file
        @line = line
        @child = child
        message = ""
        if file
          message << "#{file}"
          message << ":#{line}" if line
          message << ": "
        end
        message << "#{TABLE[@code] || @code}: "
        message << @error_message
        message = Converter.to_locale_encoding(message)
        message = "\n#{@child.message}" if @child
        super(message)
      end
    end

    Ext::Core.constants.each do |const_name|
      if /^SVN_ERR_(.*)/ =~ const_name
        error_const_name = $1
        next if /_CATEGORY_START\z/ =~ error_const_name
        error_class_name = Util.to_ruby_class_name(error_const_name)
        value = Ext::Core.const_get(const_name)
        module_eval(<<-EOC, __FILE__, __LINE__ + 1)
          class #{error_class_name} < SvnError
            def initialize(message="", file=nil, line=nil, child=nil)
              super(#{value}, message, file, line, child)
            end
          end
          # This is for backward compatibility with 1.4 or earlier.
          #{error_const_name} = #{error_class_name}
        EOC
        SvnError::TABLE[value] = const_get(error_class_name)
      end
    end

    class FsAlreadyClose < Error
    end

    class ReposAlreadyClose < Error
    end

    WcMismatchedChangeList = WcMismatchedChangelist
  end
end