# Copyright (c) 2023 M.J.N. Corino, The Netherlands
#
# This software is released under the MIT license.

###
# String utilities mixin
###

module WXRuby3

  module Util

    module StringUtil

      RBKW = %w[
          __FILE__ and def end in or self unless __LINE__ begin defined? ensure module redo
          super until BEGIN break do false next rescue then when END case else for retry true while
          alias class elsif if not return undef
      ]

      def simple_underscore!(s)
        s.gsub!(/([A-Z])/, '_\1')
        s.downcase!
        s
      end

      def simple_underscore(s)
        underscore!(s.dup)
      end

      def underscore(s)
        underscore!(s.dup)
      end

      def underscore!(s)
        s.gsub!(/::/, '/')
        s.gsub!(/([A-Z]+)([A-Z][a-z])/,"\\1_\\2")
        s.gsub!(/([a-z])([A-Z])/,"\\1_\\2")
        s.tr('-','_')
        s.downcase!
        s
      end

      def camelize(s)
        camelize!(s.dup)
      end

      def camelize!(s)
        s.gsub!(/[^a-zA-Z0-9_]/, '_')
        s.sub!(/^[a-z\d]*/) { |ms| ms.capitalize }
        s.gsub!(/(?:_|(\/))([a-z\d]*)/i) { "#{$1}#{$2.capitalize}" }
        s
      end

      def rb_class_name(name)
        name.sub(/\Awx_?/i, '')
      end

      def rb_method_name(name, keep_wx_prefix: false)
        rbnm = underscore(name)
        rbnm.sub!(/\Awx_/, '') unless keep_wx_prefix
        rbnm.sub!(/\A_wx_/, 'wx_') unless keep_wx_prefix
        rbnm.sub!(/\Aoperator/, '')
        rbnm << '_' if RBKW.include?(rbnm)
        rbnm
      end

      def rb_constant_name(name, do_transform = true)
        rbnm = do_transform ? underscore(name) : name.dup
        rbnm.sub!(/\Awx_/, '')
        unless do_transform
          rbnm.sub!(/\Awx([A-Z])/, '\1')
        end
        rbnm.upcase! if do_transform
        rbnm
      end

      def rb_param_name(name)
        rbnm = name.dup
        rbnm[0] = rbnm[0].downcase # make sure name conforms to Ruby naming rules
        rbnm << '_' if RBKW.include?(name)
        rbnm
      end

      def rb_wx_name(name)
        name.sub(/\Awx/i, '')
      end

      def rb_module_name(name)
        rb_wx_name(name).sub(/\A[a-z]/) { |s| s.upcase }
      end

      def rb_constant_value(name)
        name = name.strip
        case name
        when /\A(null|nullptr)\Z/i
          'nil'
        when /\A(true|false)\Z/i
          name.downcase
        when /EmptyString/
          %q['']
        when /\A\"/
          name
        else
          "#{name.start_with?('wx') ? 'Wx::' : ''}#{rb_constant_name(name)}"
        end
      end

      def rb_constant_expression(exp, const_xref)
        exp.gsub(/(\w+(::\w+)*)(\s*\((\))?)?/) do |s|
          idstr = $1
          call_bracket = $3
          is_empty_call = !!$4
          is_scoped = false
          ids = idstr.split('::')
          if ids.size > 1
            is_scoped = true
            scoped_name = rb_wx_name(ids.shift)
            while ids.size > 1
              scoped_name << '::' << ids.shift
            end
          end
          idstr = ids.shift
          if call_bracket
            # object ctor or static method call
            if is_scoped
              # static method
              "#{scoped_name}.#{rb_method_name(idstr)}#{call_bracket}"
            else
              # ctor
              case idstr
              when 'wxString'
                is_empty_call ? "''" : call_bracket
              else
                "#{idstr.start_with?('wx') ? 'Wx::' : ''}#{rb_wx_name(idstr)}.new#{call_bracket}"
              end
            end
          else
            if is_scoped
              # nested identifier
              if const_xref.has_key?(rb_constant_name(idstr))
                "#{scoped_name}::#{rb_constant_name(idstr)}"
              elsif const_xref.has_key?(rb_constant_name(idstr, false))
                "#{scoped_name}::#{rb_constant_name(idstr, false)}"
              end
              "#{scoped_name}::#{idstr}"
            else
              # constant
              if /[\-\+\.\d]+/ =~ idstr
                idstr # numeric constant
              else
                if const_xref.has_key?(rb_constant_name(idstr))
                  "#{const_xref[rb_constant_name(idstr)]['mod']}::#{rb_constant_name(idstr)}"
                elsif const_xref.has_key?(rb_constant_name(idstr, false))
                  "#{const_xref[rb_constant_name(idstr, false)]['mod']}::#{rb_constant_name(idstr, false)}"
                else
                  rb_constant_value(idstr)
                end
              end
            end
          end
        end
      end

    end

  end

end