// ***************************************************************************************************************************
// * 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.                                              *
// ***************************************************************************************************************************
package org.apache.juneau;

import static java.util.Collections.*;

import java.lang.annotation.*;
import java.lang.reflect.*;
import java.util.*;
import java.util.concurrent.*;
import java.util.regex.*;

import org.apache.juneau.PropertyStore.*;
import org.apache.juneau.collections.*;
import org.apache.juneau.internal.*;
import org.apache.juneau.json.*;
import org.apache.juneau.marshall.*;
import org.apache.juneau.reflect.*;
import org.apache.juneau.svl.*;

/**
 * A builder for {@link PropertyStore} objects.
 */
public class PropertyStoreBuilder {

   // Contains a cache of all created PropertyStore objects keyed by hashcode.
   // Used to minimize memory consumption by reusing identical PropertyStores.
   private static final Map<Integer,PropertyStore> CACHE = new ConcurrentHashMap<>();

   // Maps property suffixes (e.g. "lc") to PropertyType (e.g. LIST_CLASS)
   static final Map<String,PropertyType> SUFFIX_MAP = new ConcurrentHashMap<>();
   static {
      for (PropertyType pt : PropertyType.values())
         SUFFIX_MAP.put(pt.getSuffix(), pt);
   }

   private final Map<String,PropertyGroupBuilder> groups = new ConcurrentSkipListMap<>();

   // Previously-created property store.
   private volatile PropertyStore propertyStore;

   // Called by PropertyStore.builder()
   PropertyStoreBuilder(PropertyStore ps) {
      apply(ps);
   }

   // Called by PropertyStore.create()
   PropertyStoreBuilder() {}

   /**
    * Creates a new {@link PropertyStore} based on the values in this builder.
    *
    * @return A new {@link PropertyStore} based on the values in this builder.
    */
   public synchronized PropertyStore build() {

      // Reused the last one if we haven't change this builder.
      if (propertyStore == null)
         propertyStore = new PropertyStore(groups);

      PropertyStore ps = CACHE.get(propertyStore.hashCode());
      if (ps == null)
         CACHE.put(propertyStore.hashCode(), propertyStore);
      else if (! ps.equals(propertyStore))
         throw new RuntimeException("Property store mismatch!  This shouldn't happen.  hashCode=["+propertyStore.hashCode()+"]\n---PS#1---\n" + ps.hashCodes() + "\n---PS#2---\n" + propertyStore.hashCodes());
      else
         propertyStore = ps;

      return propertyStore;
   }

   /**
    * Copies all the values in the specified property store into this builder.
    *
    * @param copyFrom The property store to copy the values from.
    * @return This object (for method chaining).
    */
   public synchronized PropertyStoreBuilder apply(PropertyStore copyFrom) {
      propertyStore = null;

      if (copyFrom != null)
         for (Map.Entry<String,PropertyGroup> e : copyFrom.groups.entrySet()) {
            String gName = e.getKey();
            PropertyGroupBuilder g1 = this.groups.get(gName);
            PropertyGroup g2 = e.getValue();
            if (g1 == null)
               this.groups.put(gName, g2.builder());
            else
               g1.apply(g2);
         }
      return this;
   }

   /**
    * Applies the settings in the specified annotations to this property store.
    *
    * @param al The list of annotations to apply.
    * @param r The string resolver used to resolve any variables in the annotations.
    * @return This object (for method chaining).
    */
   @SuppressWarnings("unchecked")
   public PropertyStoreBuilder applyAnnotations(AnnotationList al, VarResolverSession r) {
      for (AnnotationInfo<?> ai : al.sort()) {
         try {
            ai.getConfigApply(r).apply((AnnotationInfo<Annotation>)ai, this);
         } catch (ConfigException ex) {
            throw ex;
         } catch (Exception ex) {
            throw new ConfigException(ex, "Could not instantiate ConfigApply class {0}", ai);
         }
      }
      return this;
   }

   /**
    * Sets a configuration property value on this object.
    *
    * @param key The configuration property key (e.g <js>"BeanContext.foo.ss/add.1"</js>).
    *    <ul>
    *       <li>If name ends with <l>/append</l>, then the specified value is appended to the existing property value as an entry in a LIST property.
    *       <li>If name ends with <l>/prepend</l>, then the specified value is prepended to the existing property value as an entry in a LIST property.
    *       <li>If name ends with <l>/add</l>, then the specified value is added to the existing property value as an entry in a SET property.
    *       <li>If name ends with <l>/put.{key}</l>, then the specified value is added to the existing property value as a key/value pair in a MAP property.
    *       <li>If name ends with <l>/remove</l>, then the specified value is removed from the existing property property value in a SET or LIST property.
    *    </ul>
    * @param value The new value.
    *    <ul>
    *       <li>If <jk>null</jk>, the property value is deleted.
    *       <li>In general, the value type can be anything.
    *    </ul>
    * @return This object (for method chaining).
    */
   public synchronized PropertyStoreBuilder set(String key, Object value) {
      propertyStore = null;

      String g = group(key);

      int i = key.indexOf('/');
      if (i != -1) {
         String command = key.substring(i+1), arg = null;
         String key2 = key.substring(0, i);
         int j = command.indexOf('.');
         if (j != -1) {
            arg = command.substring(j+1);
            command = command.substring(0, j);
         }

         if ("add".equals(command))
            return addTo(key2, value);
         if ("put".equals(command)) {
            if (arg == null)
               return putAllTo(key2, value);
            return putTo(key2, arg, value);
         }
         if ("append".equals(command))
            return appendTo(key2, value);
         if ("prepend".equals(command))
            return prependTo(key2, value);
         if ("remove".equals(command)) {
            if (arg != null)
               throw new ConfigException("Invalid key specified: ''{0}''", key);
            return removeFrom(key2, value);
         }
         throw new ConfigException("Invalid key specified: ''{0}''", key);
      }

      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      PropertyGroupBuilder gb = groups.get(g);
      if (gb == null) {
         gb = new PropertyGroupBuilder();
         groups.put(g, gb);
      }

      gb.set(n, value);

      if (gb.isEmpty())
         groups.remove(g);

      return this;
   }

   /**
    * Sets a configuration property value on this object but only if it's not already set.
    *
    * @param key The configuration property key (e.g <js>"BeanContext.foo.ss"</js>).
    *    <ul>
    *       <li>Unlike {@link #set(String, Object)}, this method does not support appending or removing.
    *    </ul>
    * @param value The new value.
    *    <ul>
    *       <li>If <jk>null</jk>, the property value is deleted.
    *       <li>In general, the value type can be anything.
    *    </ul>
    * @return This object (for method chaining).
    */
   public synchronized PropertyStoreBuilder setDefault(String key, Object value) {
      propertyStore = null;

      String g = group(key);

      int i = key.indexOf('/');
      if (i != -1) {
         throw new ConfigException("Invalid key specified: ''{0}''", key);
      }

      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      PropertyGroupBuilder gb = groups.get(g);
      if (gb == null) {
         gb = new PropertyGroupBuilder();
         groups.put(g, gb);
      }

      gb.setDefault(n, value);

      return this;
   }

   /**
    * Removes the property with the specified key.
    *
    * <p>
    * This is equivalent to calling <code>set(key, <jk>null</jk>);</code>
    *
    * @param key The property key.
    * @return This object (for method chaining).
    */
   public synchronized PropertyStoreBuilder remove(String key) {
      propertyStore = null;
      return set(key, null);
   }

   /**
    * Convenience method for setting multiple properties in one call.
    *
    * <p>
    * This replaces any previous configuration properties set on this store.
    *
    * @param newProperties The new properties to set.
    * @return This object (for method chaining).
    */
   public synchronized PropertyStoreBuilder set(Map<String,Object> newProperties) {
      propertyStore = null;
      clear();
      add(newProperties);
      return this;
   }

   /**
    * Convenience method for setting multiple properties in one call.
    *
    * <p>
    * This appends to any previous configuration properties set on this store.
    *
    * @param newProperties The new properties to set.
    * @return This object (for method chaining).
    */
   public synchronized PropertyStoreBuilder add(Map<String,Object> newProperties) {
      propertyStore = null;

      if (newProperties != null)
         for (Map.Entry<String,Object> e : newProperties.entrySet())
            set(e.getKey(), e.getValue());

      return this;
   }

   /**
    * Adds one or more values to a SET property.
    *
    * @param key The property key.
    * @param value The new value to add to the property.
    *    <ul>
    *       <li>This can be a single value, Collection, array, or JSON array string.
    *    </ul>
    * @return This object (for method chaining).
    * @throws ConfigException If property is not a SET property, or the argument is invalid.
    */
   public synchronized PropertyStoreBuilder addTo(String key, Object value) {
      propertyStore = null;
      String g = group(key);
      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      // <TEMPORARY - Remove in 9.0>
      if (isList(key))
         return prependTo(key, value);
      // </TEMPORARY>

      if (! isSet(key))
         throw new ConfigException("addTo() can only be used on properties of type Set on property ''{0}''.", key);

      PropertyGroupBuilder gb = groups.get(g);
      if (gb == null) {
         gb = new PropertyGroupBuilder();
         groups.put(g, gb);
      }

      gb.addToSet(n, value);

      if (gb.isEmpty())
         groups.remove(g);

      return this;
   }

   /**
    * Adds an entry to a MAP property.
    *
    * @param key The property key.
    * @param mapKey The map key.
    * @param value The new value to add to the property.
    * @return This object (for method chaining).
    * @throws ConfigException If property is not a SET property, or the argument is invalid.
    */
   public synchronized PropertyStoreBuilder putTo(String key, String mapKey, Object value) {
      propertyStore = null;
      String g = group(key);
      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      if (! isMap(key))
         throw new ConfigException("putTo() can only be used on properties of type Map on property ''{0}''.", key);

      PropertyGroupBuilder gb = groups.get(g);
      if (gb == null) {
         gb = new PropertyGroupBuilder();
         groups.put(g, gb);
      }

      gb.putToMap(n, mapKey, value);

      if (gb.isEmpty())
         groups.remove(g);

      return this;
   }

   /**
    * Adds multiple entries to a MAP property.
    *
    * @param key The property key.
    * @param value The new values to add to the property.  Can be a {@link Map} or JSON string.
    * @return This object (for method chaining).
    * @throws ConfigException If property is not a SET property, or the argument is invalid.
    */
   public synchronized PropertyStoreBuilder putAllTo(String key, Object value) {
      propertyStore = null;
      String g = group(key);
      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      if (! isMap(key))
         throw new ConfigException("putTo() can only be used on properties of type Map on property ''{0}''.", key);

      PropertyGroupBuilder gb = groups.get(g);
      if (gb == null) {
         gb = new PropertyGroupBuilder();
         groups.put(g, gb);
      }

      gb.putAllToMap(n, value);

      if (gb.isEmpty())
         groups.remove(g);

      return this;
   }

   /**
    * Appends a value to the end of a LIST property.
    *
    * @param key The property key.
    * @param value The new value to add to the property.
    *    <ul>
    *       <li>This can be a single value, Collection, array, or JSON array string.
    *    </ul>
    * @return This object (for method chaining).
    * @throws ConfigException If property is not a SET/LIST property, or the argument is invalid.
    */
   public synchronized PropertyStoreBuilder appendTo(String key, Object value) {
      propertyStore = null;
      String g = group(key);
      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      if (! isList(key))
         throw new ConfigException("appendTo() can only be used on properties of type List on property ''{0}''.", key);

      PropertyGroupBuilder gb = groups.get(g);
      if (gb == null) {
         gb = new PropertyGroupBuilder();
         groups.put(g, gb);
      }

      gb.appendToList(n, value);

      if (gb.isEmpty())
         groups.remove(g);

      return this;
   }

   /**
    * Prepends a value to the beginning of a LIST property.
    *
    * @param key The property key.
    * @param value The new value to add to the property.
    *    <ul>
    *       <li>This can be a single value, Collection, array, or JSON array string.
    *    </ul>
    * @return This object (for method chaining).
    * @throws ConfigException If property is not a SET/LIST property, or the argument is invalid.
    */
   public synchronized PropertyStoreBuilder prependTo(String key, Object value) {
      propertyStore = null;
      String g = group(key);
      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      if (! isList(key))
         throw new ConfigException("prependTo() can only be used on properties of type List on property ''{0}''.", key);

      PropertyGroupBuilder gb = groups.get(g);
      if (gb == null) {
         gb = new PropertyGroupBuilder();
         groups.put(g, gb);
      }

      gb.prependTo(n, value);

      if (gb.isEmpty())
         groups.remove(g);

      return this;
   }

   /**
    * Removes a value from a SET or LIST property.
    *
    * @param key The property key.
    * @param value The property value in the property.
    * @return This object (for method chaining).
    * @throws ConfigException If property is not a SET or LIST property.
    */
   public synchronized PropertyStoreBuilder removeFrom(String key, Object value) {
      propertyStore = null;
      String g = group(key);
      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      PropertyGroupBuilder gb = groups.get(g);

      // Create property group anyway to generate a good error message.
      if (gb == null)
         gb = new PropertyGroupBuilder();

      gb.removeFrom(n, value);

      if (gb.isEmpty())
         groups.remove(g);

      return this;
   }

   /**
    * Peeks at a property value.
    *
    * <p>
    * Used for debugging purposes.
    *
    * @param key The property key.
    * @return The property value, or <jk>null</jk> if it doesn't exist.
    */
   public Object peek(String key) {
      String g = group(key);
      String n = g.isEmpty() ? key : key.substring(g.length()+1);

      PropertyGroupBuilder gb = groups.get(g);

      // Create property group anyway to generate a good error message.
      if (gb == null)
         return null;

      MutableProperty bp = gb.properties.get(n);
      if (bp == null)
         return null;

      return bp.peek();
   }

   /**
    * Same as {@link #peek(String)} but converts the value to the specified type.
    *
    * @param <T> The type to convert to.
    * @param c The type to convert to.
    * @param key The property key.
    * @return The property value, or <jk>null</jk> if it doesn't exist.
    */
   public <T> T peek(Class<T> c, String key)  {
      Object o = peek(key);
      if (o == null)
         return null;
      return BeanContext.DEFAULT.createBeanSession().convertToType(o, c);
   }

   /**
    * Clears all entries in this property store.
    */
   public synchronized void clear() {
      propertyStore = null;
      this.groups.clear();
   }

   /**
    * Clears the PropertyStore cache.
    */
   public static void clearCache() {
      CACHE.clear();
   }

   private static boolean isSet(String key) {
      String s = key.substring(key.lastIndexOf('.')+1);
      return s.length() == 2 && s.charAt(0) == 's';
   }

   private static boolean isMap(String key) {
      String s = key.substring(key.lastIndexOf('.')+1);
      return s.length() == 3 && s.charAt(1) == 'm';
   }

   private static boolean isList(String key) {
      String s = key.substring(key.lastIndexOf('.')+1);
      return s.length() == 2 && s.charAt(0) == 'l';
   }

   //-------------------------------------------------------------------------------------------------------------------
   // PropertyGroupBuilder
   //-------------------------------------------------------------------------------------------------------------------

   static class PropertyGroupBuilder {
      final Map<String,MutableProperty> properties = new ConcurrentSkipListMap<>();

      PropertyGroupBuilder() {
         this(emptyMap());
      }

      synchronized void apply(PropertyGroup copyFrom) {
         for (Map.Entry<String,Property> e : copyFrom.properties.entrySet()) {
            String pName = e.getKey();
            MutableProperty p1 = properties.get(pName);
            Property p2 = e.getValue();
            if (p1 == null)
               properties.put(pName, p2.mutable());
            else
               p1.apply(p2.value);
         }
      }

      PropertyGroupBuilder(Map<String,Property> properties) {
         for (Map.Entry<String,Property> p : properties.entrySet())
            this.properties.put(p.getKey(), p.getValue().mutable());
      }

      synchronized void set(String key, Object value) {
         MutableProperty p = properties.get(key);
         if (p == null) {
            p = MutableProperty.create(key, value);
            if (! p.isEmpty())
               properties.put(key, p);
         } else {
            p.set(value);
            if (p.isEmpty())
               properties.remove(key);
            else
               properties.put(key, p);
         }
      }

      synchronized void setDefault(String key, Object value) {
         MutableProperty p = properties.get(key);
         if (p == null) {
            p = MutableProperty.create(key, value);
            if (! p.isEmpty())
               properties.put(key, p);
         }
      }

      synchronized void addToSet(String key, Object value) {
         MutableProperty p = properties.get(key);
         if (p == null) {
            p = MutableProperty.create(key, null);
            p.add(value);
            if (! p.isEmpty())
               properties.put(key, p);
         } else {
            p.add(value);
            if (p.isEmpty())
               properties.remove(key);
            else
               properties.put(key, p);
         }
      }

      synchronized void putToMap(String key, String arg, Object value) {
         MutableProperty p = properties.get(key);
         if (p == null) {
            p = MutableProperty.create(key, null);
            p.put(arg, value);
            if (! p.isEmpty())
               properties.put(key, p);
         } else {
            p.put(arg, value);
            if (p.isEmpty())
               properties.remove(key);
            else
               properties.put(key, p);
         }
      }

      synchronized void putAllToMap(String key, Object value) {
         MutableProperty p = properties.get(key);
         if (p == null) {
            p = MutableProperty.create(key, null);
            p.set(value);
            if (! p.isEmpty())
               properties.put(key, p);
         } else {
            p.putAll(value);
            if (p.isEmpty())
               properties.remove(key);
            else
               properties.put(key, p);
         }
      }

      synchronized void appendToList(String key, Object value) {
         MutableProperty p = properties.get(key);
         if (p == null) {
            p = MutableProperty.create(key, null);
            p.append(value);
            if (! p.isEmpty())
               properties.put(key, p);
         } else {
            p.append(value);
            if (p.isEmpty())
               properties.remove(key);
            else
               properties.put(key, p);
         }
      }

      synchronized void prependTo(String key, Object value) {
         MutableProperty p = properties.get(key);
         if (p == null) {
            p = MutableProperty.create(key, null);
            p.prepend(value);
            if (! p.isEmpty())
               properties.put(key, p);
         } else {
            p.prepend(value);
            if (p.isEmpty())
               properties.remove(key);
            else
               properties.put(key, p);
         }
      }

      synchronized void removeFrom(String key, Object value) {
         MutableProperty p = properties.get(key);
         if (p == null) {
            // Create property anyway to generate a good error message.
            p = MutableProperty.create(key, null);
            p.remove(value);
         } else {
            p.remove(value);
            if (p.isEmpty())
               properties.remove(key);
            else
               properties.put(key, p);
         }
      }

      synchronized boolean isEmpty() {
         return properties.isEmpty();
      }

      synchronized PropertyGroup build() {
         return new PropertyGroup(properties);
      }

      /**
       * Used by the <c>toString()</c> method for debugging.
       *
       * @param bs The bean session.
       * @return This object converted to a map.
       */
      public Map<String,MutableProperty> swap(BeanSession bs) {
         return properties;
      }

      @Override
      public String toString() {
         return (SimpleJson.DEFAULT == null ? "" : SimpleJson.DEFAULT.toString(properties));
      }
   }

   //-------------------------------------------------------------------------------------------------------------------
   // MutableProperty
   //-------------------------------------------------------------------------------------------------------------------

   static abstract class MutableProperty {
      final String name;
      final PropertyType type;

      MutableProperty(String name, PropertyType type) {
         this.name = name;
         this.type = type;
      }

      static MutableProperty create(String name, Object value) {
         int i = name.lastIndexOf('.');
         String type = i == -1 ? "s" : name.substring(i+1);
         PropertyType pt = SUFFIX_MAP.get(type);

         if (pt == null)
            throw new ConfigException("Invalid type specified on property ''{0}''", name);

         switch (pt) {
            case STRING:
            case BOOLEAN:
            case INTEGER:
            case CLASS:
            case OBJECT:  return new MutableSimpleProperty(name, pt, value);
            case SET_STRING:
            case SET_INTEGER:
            case SET_CLASS: return new MutableSetProperty(name, pt, value);
            case LIST_STRING:
            case LIST_INTEGER:
            case LIST_CLASS:
            case LIST_OBJECT: return new MutableListProperty(name, pt, value);
            case SORTED_MAP_STRING:
            case SORTED_MAP_INTEGER:
            case SORTED_MAP_CLASS:
            case SORTED_MAP_OBJECT: return new MutableMapProperty(name, pt, value);
            case ORDERED_MAP_STRING:
            case ORDERED_MAP_INTEGER:
            case ORDERED_MAP_CLASS:
            case ORDERED_MAP_OBJECT: return new MutableLinkedMapProperty(name, pt, value);
            default: return new MutableSimpleProperty(name, PropertyType.STRING, value);
         }
      }

      abstract Property build();

      abstract boolean isEmpty();

      abstract void set(Object value);

      abstract void apply(Object value);

      abstract Object peek();

      void add(Object value) {
         throw new ConfigException("Cannot add value {0} ({1}) to property ''{2}'' ({3}).", string(value), className(value), name, type);
      }

      void put(String key, Object value) {
         throw new ConfigException("Cannot put all value {0} ({1}) to property ''{2}'' ({3}).", string(value), className(value), name, type);
      }

      void putAll(Object value) {
         throw new ConfigException("Cannot put all value {0} ({1}) to property ''{2}'' ({3}).", string(value), className(value), name, type);
      }

      void append(Object value) {
         throw new ConfigException("Cannot append value {0} ({1}) to property ''{2}'' ({3}).", string(value), className(value), name, type);
      }

      void prepend(Object value) {
         throw new ConfigException("Cannot prepend value {0} ({1}) to property ''{2}'' ({3}).", string(value), className(value), name, type);
      }

      void remove(Object value) {
         throw new ConfigException("Cannot remove value {0} ({1}) from property ''{2}'' ({3}).", string(value), className(value), name, type);
      }

      Object convert(Object value) {
         return value == null ? null : type.converter.convert(value);
      }

      @Override /* Object */
      public String toString() {
         return StringUtils.stringify(peek());
      }
   }

   //-------------------------------------------------------------------------------------------------------------------
   // MutableSimpleProperty
   //-------------------------------------------------------------------------------------------------------------------

   static class MutableSimpleProperty extends MutableProperty {
      private Object value;

      MutableSimpleProperty(String name, PropertyType type, Object value) {
         super(name, type);
         set(value);
      }

      @Override /* MutableProperty */
      synchronized Property build() {
         return new Property(name, value, type);
      }

      @Override /* MutableProperty */
      synchronized void set(Object value) {
         this.value = convert(value);
      }

      @Override /* MutableProperty */
      synchronized void apply(Object value) {
         this.value = convert(value);
      }

      @Override /* MutableProperty */
      synchronized boolean isEmpty() {
         return this.value == null;
      }

      @Override /* MutableProperty */
      synchronized Object peek() {
         return value;
      }
   }

   //-------------------------------------------------------------------------------------------------------------------
   // MutableSetProperty
   //-------------------------------------------------------------------------------------------------------------------

   static class MutableSetProperty extends MutableProperty {
      private final ConcurrentSkipListSet<Object> set;

      MutableSetProperty(String name, PropertyType type, Object value) {
         super(name, type);
         set = new ConcurrentSkipListSet<>(type.comparator());
         set(value);
      }

      @Override /* MutableProperty */
      synchronized Property build() {
         return new Property(name, unmodifiableSet(new LinkedHashSet<>(set)), type);
      }

      @Override /* MutableProperty */
      synchronized void set(Object value) {
         try {
            Set<Object> newSet = merge(set, type.converter, value);
            set.clear();
            set.addAll(newSet);
         } catch (Exception e) {
            throw new ConfigException(e, "Cannot set value {0} ({1}) on property ''{2}'' ({3}).", string(value), className(value), name, type);
         }
      }

      @Override /* MutableProperty */
      synchronized void apply(Object values) {
         set.addAll((Set<?>)values);
      }

      @Override /* MutableProperty */
      synchronized void add(Object o) {
         try {
            set.addAll(normalize(type.converter, o));
         } catch (Exception e) {
            throw new ConfigException(e, "Cannot add value {0} ({1}) to property ''{2}'' ({3}).", string(o), className(o), name, type);
         }
      }

      @Override /* MutableProperty */
      synchronized void remove(Object o) {
         try {
            set.removeAll(normalize(type.converter, o));
         } catch (Exception e) {
            throw new ConfigException(e, "Cannot remove value {0} ({1}) from property ''{2}'' ({3}).", string(o), className(o), name, type);
         }
      }

      @Override /* MutableProperty */
      synchronized boolean isEmpty() {
         return set.isEmpty();
      }

      @Override /* MutableProperty */
      synchronized Object peek() {
         return set;
      }
   }

   //-------------------------------------------------------------------------------------------------------------------
   // MutableListProperty
   //-------------------------------------------------------------------------------------------------------------------

   static class MutableListProperty extends MutableProperty {
      private final List<Object> list = synchronizedList(new LinkedList<>());

      MutableListProperty(String name, PropertyType type, Object value) {
         super(name, type);
         set(value);
      }

      @Override /* MutableProperty */
      synchronized Property build() {
         return new Property(name, unmodifiableList(new ArrayList<>(list)), type);
      }

      @Override /* MutableProperty */
      synchronized void set(Object value) {
         try {
            List<Object> newList = merge(list, type.converter, value);
            list.clear();
            list.addAll(newList);
         } catch (Exception e) {
            throw new ConfigException(e, "Cannot set value {0} ({1}) on property ''{2}'' ({3}).", string(value), className(value), name, type);
         }
      }

      @Override /* MutableProperty */
      synchronized void apply(Object values) {
         list.addAll((List<?>)values);
      }

      @Override /* MutableProperty */
      synchronized void append(Object o) {
         try {
            List<Object> l = normalize(type.converter, o);
            list.removeAll(l);
            list.addAll(l);
         } catch (Exception e) {
            throw new ConfigException(e, "Cannot append value {0} ({1}) to property ''{2}'' ({3}).", string(o), className(o), name, type);
         }
      }

      @Override /* MutableProperty */
      synchronized void prepend(Object o) {
         try {
            List<Object> l = normalize(type.converter, o);
            list.removeAll(l);
            list.addAll(0, l);
         } catch (Exception e) {
            throw new ConfigException(e, "Cannot prepend value {0} ({1}) to property ''{2}'' ({3}).", string(o), className(o), name, type);
         }
      }

      @Override /* MutableProperty */
      synchronized void remove(Object o) {
         try {
            list.removeAll(normalize(type.converter, o));
         } catch (Exception e) {
            throw new ConfigException(e, "Cannot remove value {0} ({1}) from property ''{2}'' ({3}).", string(o), className(o), name, type);
         }
      }

      @Override /* MutableProperty */
      synchronized boolean isEmpty() {
         return list.isEmpty();
      }

      @Override /* MutableProperty */
      synchronized Object peek() {
         return list;
      }
   }

   //-------------------------------------------------------------------------------------------------------------------
   // MutableMapProperty
   //-------------------------------------------------------------------------------------------------------------------

   @SuppressWarnings("rawtypes")
   static class MutableMapProperty extends MutableProperty {
      protected Map<String,Object> map;

      MutableMapProperty(String name, PropertyType type, Object value) {
         super(name, type);
         this.map = createMap();
         set(value);
      }

      protected Map<String,Object> createMap() {
         return new ConcurrentHashMap<>();
      }

      @Override /* MutableProperty */
      synchronized Property build() {
         return new Property(name, unmodifiableMap(new TreeMap<>(map)), type);
      }

      @Override /* MutableProperty */
      synchronized void set(Object value) {
         this.map.clear();
         putAll(value);
      }

      @SuppressWarnings("unchecked")
      @Override /* MutableProperty */
      synchronized void apply(Object values) {
         for (Map.Entry<String,Object> e : ((Map<String,Object>)values).entrySet())
            put(e.getKey(), e.getValue());
      }

      @Override /* MutableProperty */
      synchronized void put(String key, Object o) {
         if (key == null)
            return;
         o = convert(o);
         if (o == null)
            this.map.remove(key);
         else
            this.map.put(key, o);
      }

      @Override /* MutableProperty */
      synchronized void putAll(Object o) {
         if (o instanceof Map) {
            Map m = (Map)o;
            for (Map.Entry e : (Set<Map.Entry>)m.entrySet())
               if (e.getKey() != null)
                  put(e.getKey().toString(), e.getValue());
         } else if (isJsonObject(o)) {
            try {
               putAll(OMap.ofJson(o.toString()));
            } catch (Exception e) {
               throw new ConfigException(e, "Cannot put {0} ({1}) to property ''{2}'' ({3}).", string(o), className(o), name, type);
            }
         } else if (o != null) {
            throw new ConfigException("Cannot put {0} ({1}) to property ''{2}'' ({3}).", string(o), className(o), name, type);
         }
      }

      @Override /* MutableProperty */
      synchronized boolean isEmpty() {
         return this.map.isEmpty();
      }

      @Override /* MutableProperty */
      synchronized Object peek() {
         return map;
      }
   }

   //-------------------------------------------------------------------------------------------------------------------
   // MutableLinkedMapProperty
   //-------------------------------------------------------------------------------------------------------------------

   static class MutableLinkedMapProperty extends MutableMapProperty {

      MutableLinkedMapProperty(String name, PropertyType type, Object value) {
         super(name, type, value);
         set(value);
      }

      @Override
      protected Map<String,Object> createMap() {
         return synchronizedMap(new LinkedHashMap<String,Object>());
      }

      @Override /* MutableProperty */
      synchronized Property build() {
         return new Property(name, unmodifiableMap(new LinkedHashMap<>(map)), type);
      }
   }


   //-------------------------------------------------------------------------------------------------------------------
   // Utility methods
   //-------------------------------------------------------------------------------------------------------------------

   static Set<Object> merge(Set<Object> oldSet, PropertyConverter<?> pc, Object o) throws Exception {
      return merge(oldSet, new LinkedHashSet<>(), normalize(pc, o));
   }

   private static Set<Object> merge(Set<Object> oldSet, Set<Object> newSet, List<Object> l) {
      for (Object o : l) {
         if (isNone(o))
            newSet.clear();
         else if (isInherit(o))
            newSet.addAll(oldSet);
         else
            newSet.add(o);
      }
      return newSet;
   }

   static List<Object> merge(List<Object> oldList, PropertyConverter<?> pc, Object o) throws Exception {
      return merge(oldList, new ArrayList<>(), normalize(pc, o));
   }

   private static List<Object> merge(List<Object> oldList, List<Object> newList, List<Object> l) {
      for (Object o : l) {
         if (isIndexed(o)) {
            Matcher lm = INDEXED_LINK_PATTERN.matcher(o.toString());
            lm.matches();
            String key = lm.group(1);
            int i2 = Math.min(newList.size(), Integer.parseInt(lm.group(2)));
            String remainder = lm.group(3);
            newList.add(i2, key.isEmpty() ? remainder : key + ":" + remainder);
         } else if (isNone(o)) {
            newList.clear();
         } else if (isInherit(o)) {
            if (oldList != null)
               for (Object o2 : oldList)
                  newList.add(o2);
         } else {
            newList.remove(o);
            newList.add(o);
         }
      }

      return newList;
   }

   static List<Object> normalize(PropertyConverter<?> pc, Object o) throws Exception {
      return normalize(new ArrayList<>(), pc, o);
   }

   @SuppressWarnings("unchecked")
   static List<Object> normalize(List<Object> l, PropertyConverter<?> pc, Object o) throws Exception {
      if (o != null) {
         if (o.getClass().isArray()) {
            for (int i = 0; i < Array.getLength(o); i++)
               normalize(l, pc, Array.get(o, i));
         } else if (o instanceof Collection) {
            for (Object o2 : (Collection<Object>)o)
               normalize(l, pc, o2);
         } else if (isJsonArray(o)) {
            normalize(l, pc, new OList(o.toString()));
         } else {
            l.add(pc == null ? o : pc.convert(o));
         }
      }
      return l;
   }

   static String string(Object value) {
      return SimpleJsonSerializer.DEFAULT.toString(value);
   }

   static String className(Object value) {
      return value.getClass().getSimpleName();
   }

   static boolean isJsonObject(Object o) {
      if (o instanceof CharSequence) {
         String s = o.toString();
         return (s.startsWith("{") && s.endsWith("}") && BeanContext.DEFAULT != null);
      }
      return false;
   }

   private static String group(String key) {
      if (key == null || key.indexOf('.') == -1)
         return "";
      return key.substring(0, key.indexOf('.'));
   }

   static boolean isJsonArray(Object o) {
      if (o instanceof CharSequence) {
         String s = o.toString();
         return (s.startsWith("[") && s.endsWith("]") && BeanContext.DEFAULT != null);
      }
      return false;
   }

   private static boolean isNone(Object o) {
      if (o instanceof CharSequence) {
         String s = o.toString();
         return "NONE".equals(s);
      }
      return false;
   }

   private static boolean isIndexed(Object o) {
      if (o instanceof CharSequence) {
         String s = o.toString();
         return s.indexOf('[') != -1 && INDEXED_LINK_PATTERN.matcher(s).matches();
      }
      return false;
   }

   private static final Pattern INDEXED_LINK_PATTERN = Pattern.compile("(?s)(\\S*)\\[(\\d+)\\]\\:(.*)");

   private static boolean isInherit(Object o) {
      if (o instanceof CharSequence) {
         String s = o.toString();
         return "INHERIT".equals(s);
      }
      return false;
   }

   @Override /* Object */
   public String toString() {
      return SimpleJson.DEFAULT_READABLE.toString(groups);
   }
}