/*
    * Copyright 2004-2006 the Seasar Foundation and the Others.
    *
    * Licensed 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 com.isenshi.util;
  
  import java.beans.PropertyDescriptor;
  import java.lang.reflect.Method;
  import java.util.ArrayList;
  import java.util.Collection;
  import java.util.Date;
  import java.util.HashMap;
  import java.util.Iterator;
  import java.util.List;
  import java.util.Map;
  import java.util.Properties;
  
  import org.apache.commons.beanutils.PropertyUtils;
  import org.seasar.framework.aop.javassist.AspectWeaver;
  
  import com.isenshi.util.extlib.DiconResource;
  
  /***
   * @author nishioka
   */
  public class DiconStringBuffer extends XMLStringBuffer {
  
  	private List refComponentList_;
  
  	private static final String DICON_ENCODING = "Windows-31J";
  
  	private static final String DICON_DOCTYPE_DECLARATION = "<!DOCTYPE components PUBLIC \"-//SEASAR//DTD S2Container//EN\" \"http://www.seasar.org/dtd/components.dtd\">";
  
  	public DiconStringBuffer() {
  		super();
  		appendXMLDeclaration(DICON_ENCODING, null);
  		appendBody(DICON_DOCTYPE_DECLARATION);
  	}
  
  	public void setReferenceComponents(List componets) {
  		this.refComponentList_ = componets;
  	}
  
  	public void appendStartComponentsTag() {
  		appendStartTag("components");
  	}
  
  	public void endComponentsTag() {
  		endTag();
  	}
  
  	private String toPureClassName(String className) {
  		int index = className.indexOf(AspectWeaver.PREFIX_ENHANCED_CLASS);
  		if (index >= 0) {
  			return className.substring(0, index);
  		}
  		return className;
  	}
  
  	public void appendStartComponentTag(Class clazz, Map options) {
  		appendStartTag("component");
  		appendAttribute("class", toPureClassName(clazz.getName()));
  
  		if (options == null) {
  			return;
  		}
  
  		String name = (String) options.get(DiconResource.OPTION_NAME);
  		if (name != null) {
  			appendAttribute("name", name);
  		}
  
  	}
  
  	public void appendStartComponentTag(Class clazz) {
  		appendStartComponentTag(clazz, null);
  	}
  
  	public void endComponentTag() {
  		endTag();
  	}
  
  	public void appendComponent(Object component) {
  		appendComponent(component, null);
  	}
  
  	public void appendComponent(Object component, Map options) {
  		List propertyList = new ArrayList();
 		PropertyDescriptor[] descriptos = PropertyUtils
 				.getPropertyDescriptors(component);
 		for (int i = 0; i < descriptos.length; i++) {
 			PropertyDescriptor desc = descriptos[i];
 			if (desc.getReadMethod() != null
 					&& isExistWriteMethod(desc, component.getClass())) {
 				propertyList.add(descriptos[i].getName());
 			}
 		}
 		appendComponent(component, options, (String[]) propertyList
 				.toArray(new String[propertyList.size()]));
 	}
 
 	private boolean isExistWriteMethod(PropertyDescriptor desc, Class clazz) {
 		if (desc.getWriteMethod() != null) {
 			return true;
 		}
 
 		Class propClass = desc.getPropertyType();
 		if (propClass.equals(List.class)
 				&& isExistAddMethod(desc.getName(), clazz)) {
 			return true;
 		} else if ((propClass.equals(Map.class) || propClass
 				.equals(Properties.class))
 				&& isExistPutMethod(desc.getName(), clazz)) {
 			return true;
 		}
 		return false;
 	}
 
 	private boolean isExistAddMethod(String property, Class clazz) {
 		String addMethodName = createAddMethodName(property);
 
 		Method[] methods = clazz.getMethods();
 		for (int j = 0; j < methods.length; j++) {
 			if (methods[j].getName().equals(addMethodName)) {
 				return true;
 			}
 		}
 		return false;
 	}
 
 	private boolean isExistPutMethod(String property, Class clazz) {
 		String putMethodName = createPutMethodName(property);
 
 		Method[] methods = clazz.getMethods();
 		for (int j = 0; j < methods.length; j++) {
 			if (methods[j].getName().equals(putMethodName)) {
 				return true;
 			}
 		}
 		return false;
 	}
 
 	private String createAddMethodName(String property) {
 		if (property.endsWith("s")) {
 			property = property.substring(0, property.length() - 1);
 		} else if (property.endsWith("List")) {
 			property = property.substring(0, property.length() - 4);
 		}
 		property = "add" + CharUtil.toUpperCaseAtFisrtChar(property);
 		return property;
 	}
 
 	private String createPutMethodName(String property) {
 		if (property.endsWith("Map")) {
 			property = property
 					.substring(0, property.length() - "Map".length());
 		}
 		property = "put" + CharUtil.toUpperCaseAtFisrtChar(property);
 		return property;
 	}
 
 	public void appendComponent(Object component, Map options,
 			String[] properties) {
 
 		if (options == null) {
 			options = new HashMap();
 		}
 		if (!options.containsKey(DiconResource.OPTION_NAME)) {
 			options.put(DiconResource.OPTION_NAME, createId(component));
 		}
 
 		appendStartComponentTag(component.getClass(), options);
 		for (int i = 0; i < properties.length; i++) {
 			appendComponentProperty(properties[i], component);
 		}
 		appendAspects(options);
 		endComponentTag();
 	}
 
 	public void appendAspects(Map options) {
 		Map aspects = (Map) options.get(DiconResource.OPTION_ASPECTS);
 		if (aspects == null) {
 			return;
 		}
 		for (Iterator i = aspects.keySet().iterator(); i.hasNext();) {
 			String pointcut = (String) i.next();
 			Object value = aspects.get(pointcut);
 			if (value instanceof List) {
 				Iterator interceptorItr = ((List) value).iterator();
 				while (interceptorItr.hasNext()) {
 					String interceptor = (String) interceptorItr.next();
 					appendAspect(pointcut, interceptor);
 				}
 			} else {
 				String interceptor = (String) value;
 				appendAspect(pointcut, interceptor);
 			}
 		}
 	}
 
 	public void appendAspect(String pointcut, String interceptor) {
 		appendStartTag("aspect");
 		if (pointcut != null) {
 			appendAttribute("pointcut", pointcut);
 		}
 		appendBody(interceptor);
 		endTag();
 	}
 
 	public void appendProperty(String property, Object valueObj) {
 		if (valueObj == null) {
 			return;
 		}
 
 		if (valueObj instanceof Collection) {
 			Collection col = (Collection) valueObj;
 			Iterator itr = col.iterator();
 			while (itr.hasNext()) {
 				appendStartTag("initMethod");
 				appendAttribute("name", createAddMethodName(property));
 				appendStartTag("arg");
 				appendPropertyBody(itr.next());
 				endTag();
 				endTag();
 			}
 		} else if (valueObj instanceof Map) {
 			Map map = (Map) valueObj;
 			Iterator itr = map.keySet().iterator();
 			while (itr.hasNext()) {
 				Object key = itr.next();
 				appendStartTag("initMethod");
 				appendAttribute("name", createPutMethodName(property));
 				appendStartTag("arg");
 				appendPropertyBody(key);
 				endTag();
 				appendStartTag("arg");
 				appendPropertyBody(map.get(key));
 				endTag();
 				endTag();
 			}
 		} else {
 			appendStartTag("property");
 			appendAttribute("name", property);
 			appendPropertyBody(valueObj);
 			endTag();
 		}
 	}
 
 	public void appendProperty(String property, String value) {
 		appendProperty(property, (Object) value);
 	}
 
 	public void appendComponentProperty(String property, Object component) {
 		Object valueObj = null;
 		try {
 			valueObj = PropertyUtils.getProperty(component, property);
 		} catch (Exception e) {
 			throw new RuntimeException(e);
 		}
 		if (valueObj == null) {
 			return;
 		}
 		appendProperty(property, valueObj);
 	}
 
 	public void appendPropertyBody(Object valueObj) {
 		if (valueObj == null) {
 			return;
 		}
 
 		if (valueObj instanceof String) {
 			appendBody("\"" + valueObj.toString() + "\"");
 		} else if (valueObj instanceof Integer || valueObj instanceof Long
 				|| valueObj instanceof Boolean || valueObj instanceof Float
 				|| valueObj instanceof Double) {
 			appendBody("new " + valueObj.getClass().getName() + "("
 					+ valueObj.toString() + ")");
 		} else if (valueObj instanceof Date) {
 			Date date = (Date) valueObj;
 			long time = date.getTime();
 			appendBody("new java.util.Date(" + time + "l)");
 		} else if (valueObj instanceof Object[]) {
 			Object[] array = (Object[]) valueObj;
 			String className = array.getClass().getName();
 			appendBody("new " + className.substring(2, className.length() - 1)
 					+ "[]{");
 			for (int i = 0; i < array.length; i++) {
 				if (i > 0) {
 					appendBody(",");
 				}
 				appendPropertyBody(array[i]);
 			}
 			appendBody("}");
 
 		} else {
 			if (refComponentList_ != null
 					&& refComponentList_.contains(valueObj)) {
 				appendBody(createId(valueObj));
 			} else {
 				appendComponent(valueObj);
 			}
 		}
 	}
 
 	private String createId(Object component) {
 		return "id" + component.hashCode();
 	}
 }