/*
    * 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.io.ByteArrayInputStream;
  import java.io.ByteArrayOutputStream;
  import java.io.IOException;
  import java.io.InputStream;
  import java.io.ObjectInputStream;
  import java.io.ObjectOutputStream;
  import java.io.UnsupportedEncodingException;
  import java.lang.reflect.InvocationTargetException;
  import java.net.URLDecoder;
  import java.net.URLEncoder;
  import java.sql.Timestamp;
  import java.text.SimpleDateFormat;
  import java.util.Calendar;
  import java.util.Collection;
  import java.util.Date;
  import java.util.HashMap;
  import java.util.Iterator;
  import java.util.Map;
  
  import org.apache.commons.beanutils.PropertyUtils;
  import org.apache.commons.lang.ArrayUtils;
  import org.seasar.tuigwaa.cms.ContentsStoreServiceSlideImpl;
  
  /***
   * @author nishioka
   */
  public class CharUtil {
  
  	private static final String URL_ENCODING = "UTF-8";
  
  	private static final String NULL_STRING = "";
  
  	public static String[] removeArrays(String[] array1, String[] array2) {
  		if (array2 == null) {
  			return array1;
  		}
  		int length = array1.length - array2.length;
  		String[] ret = new String[length];
  		int j = 0;
  		for (int i = 0; i < array1.length; i++) {
  			if (!ArrayUtils.contains(array2, array1[i])) {
  				ret[j] = array1[i];
  				j++;
  			}
  		}
  		return ret;
  	}
  
  	public static String urlDecode(String s, String enc) {
  		if (!"Windows-31J".equals(enc)) {
  			return urlDecode(s);
  		}
  
  		boolean needToChange = false;
  		StringBuffer sb = new StringBuffer();
  		int numChars = s.length();
  		int i = 0;
  		while (i < numChars) {
  			char c = s.charAt(i);
  			switch (c) {
  			case '+':
  				sb.append(' ');
  				i++;
  				needToChange = true;
  				break;
  			case '%':
  				try {
  										
  					byte[] bytes = new byte[((numChars - i) / 3) * 2];
  					int pos = 0;
  					int charCount = 0;
  					
  					while (((i + 2) < numChars) && (c == '%')) {
  						bytes[pos++] = (byte) Integer.parseInt(s.substring(
  								i + 1, i + 3), 16); // 現在のバイト
  						i += 3;
  						charCount++;
  						
  						if (i < numChars) {
  							c = s.charAt(i);
  
  							// for Windows-31J encoding
 							int tmpPos = pos - 1;
 							if(bytes[tmpPos] > 0 && charCount%2==1){
 								charCount ++;
 							}
 							if (charCount % 2 == 1){  //次のバイトが2バイト目
 								if (c != '%' && (i + 1) <= numChars) { //そこが % でなければ
 									String str = s.substring(i, i + 1);
 									bytes[pos++] = str.getBytes()[0];
 									i++;
 									charCount++;
 									if (i == numChars) {
 										break;
 									}
 									c = s.charAt(i);
 								}
 							}
 						}
 					}
 
 					// A trailing, incomplete byte encoding such as
 					// "%x" will cause an exception to be thrown
 
 					if ((i < numChars) && (c == '%'))
 						throw new IllegalArgumentException(
 								"URLDecoder: Incomplete trailing escape (%) pattern");
 
 					String str = new String(bytes, 0, pos, enc);
 					// System.out.println("parts" + str);
 					sb.append(str);
 				} catch (NumberFormatException e) {
 					throw new IllegalArgumentException(
 							"URLDecoder: Illegal hex characters in escape (%) pattern - "
 									+ e.getMessage());
 				} catch (UnsupportedEncodingException e) {
 					e.printStackTrace();
 				}
 				needToChange = true;
 				break;
 			default:
 				sb.append(c);
 				i++;
 				break;
 			}
 		}
 		return (needToChange ? sb.toString() : s);
 	}
 
 	public static String urlDecode(String value) {
 
 		if (value == null)
 			return null;
 
 		try {
 			value = URLDecoder.decode(value, URL_ENCODING);
 		} catch (UnsupportedEncodingException e) {
 			e.printStackTrace();
 			throw new RuntimeException(e);
 		}
 		return value;
 	}
 
 	public static String urlEncode(String value) {
 		return urlEncode(value, URL_ENCODING);
 	}
 
 	public static String urlEncode(String value, String encoding) {
 		if (value == null)
 			return null;
 
 		try {
 			String[] paths = value.split("/");
 			String ret = NULL_STRING;
 			for (int i = 0; i < paths.length; i++) {
 				if (i != 0) {
 					ret += "/";
 				}
 				ret += URLEncoder.encode(paths[i], encoding);
 			}
 			return ret;
 		} catch (UnsupportedEncodingException e) {
 			e.printStackTrace();
 			throw new RuntimeException(e);
 		}
 	}
 
 	public static String replace(String template, String value) {
 		return replace(template, "0", value);
 	}
 
 	public static String replace(String template, String key, String value) {
 		Map map = new HashMap();
 		map.put(key, value);
 		return replace(template, map);
 	}
 
 	public static String replace(String template, Map context) {
 		if (context == null || template == null) {
 			return null;
 		}
 		for (Iterator i = context.keySet().iterator(); i.hasNext();) {
 			String key = (String) i.next();
 			Object value = context.get(key);
 			if (value == null) {
 				continue;
 			}
 			String regex = "//$//{" + key + "//}";
 			template = template.replaceAll(regex, value.toString());
 		}
 		return template;
 	}
 
 	public static String toUpperCaseAtFisrtChar(String str) {
 		if (str == null) {
 			return null;
 		}
 		String aa = str.substring(0, 1);
 		String bb = str.substring(1);
 		return aa.toUpperCase() + bb;
 	}
 
 	public static byte[] toBytes(Object obj) {
 		ByteArrayOutputStream byteStream = new ByteArrayOutputStream();
 		try {
 			ObjectOutputStream ostream = new ObjectOutputStream(byteStream);
 			ostream.writeObject(obj);
 			ostream.close();
 		} catch (IOException e) {
 			e.printStackTrace();
 			throw new RuntimeException(e);
 		}
 		return byteStream.toByteArray();
 	}
 
 	public static Object toObject(byte[] bytes) {
 		if (bytes == null) {
 			return null;
 		}
 
 		Object obj = null;
 
 		try {
 			ObjectInputStream iStream = new ObjectInputStream(
 					new ByteArrayInputStream(bytes));
 			obj = iStream.readObject();
 
 		} catch (ClassNotFoundException e) {
 			throw new RuntimeException(e);
 		} catch (IOException e) {
 			throw new RuntimeException(e);
 		}
 
 		return obj;
 	}
 
 	public static int childSize(Object bean, String prop) {
 		// Object obj =
 		Object obj = getProperty(bean, prop);
 		if (obj instanceof Map) {
 			return ((Map) obj).size();
 		}
 
 		if (obj instanceof Collection) {
 			return ((Collection) obj).size();
 		}
 		return ((Collection) obj).size();
 	}
 
 	public static int size(Object[] array) {
 		if (array == null) {
 			return 0;
 		}
 		return array.length;
 	}
 
 	public static int size(Collection col) {
 		if (col == null)
 			return 0;
 		return col.size();
 	}
 
 	public static int sizeMap(Map col) {
 		if (col == null)
 			return 0;
 		return col.size();
 	}
 
 	public static Object getProperty(Object bean, String prop) {
 		Object ret = null;
 		try {
 			ret = PropertyUtils.getProperty(bean, prop);
 		} catch (IllegalAccessException e) {
 			e.printStackTrace();
 			throw new RuntimeException(e);
 		} catch (InvocationTargetException e) {
 			e.printStackTrace();
 			throw new RuntimeException(e);
 		} catch (NoSuchMethodException e) {
 			e.printStackTrace();
 			throw new RuntimeException(e);
 		}
 		return ret;
 	}
 
 	public static String[] stringToArray(String arrayStr) {
 		return arrayStr.split(",");
 	}
 
 	public static String arrayToString(Object[] array) {
 		StringBuffer buf = new StringBuffer();
 
 		for (int i = 0; i < array.length; i++) {
 			if (i > 0) {
 				buf.append(",");
 			}
 			buf.append(array[i].toString());
 		}
 
 		return buf.toString();
 	}
 
 	/***
 	 * Trims the last character from String if it matches with specifid values.<br/>
 	 * examples : chartrim("/some/directory/",'/') returns "/some/directory",
 	 * chartrim("/some/directory",'/') returns original string.
 	 */
 	public static String chartrim(String s, char c) {
 		if (s == null || s.length() == 0) {
 			return s;
 		}
 		int lastidx = s.length() - 1;
 		return (s.charAt(lastidx) == c) ? s.substring(0, lastidx) : s;
 	}
 
 	/***
 	 * Trims the first character from String if it matches with specifid values.<br/>
 	 * examples : charpop("/some/directory/",'/') returns "some/directory",
 	 * chartrim("some/directory",'/') returns original string.
 	 */
 	public static String charpop(String s, char c) {
 		if (s == null) {
 			return null;
 		} else if (s.length() < 2) {
 			return s;
 		}
 		return (s.charAt(0) == c) ? s.substring(1) : s;
 	}
 
 	public static int count(String s, char c) {
 		String cs = String.valueOf(c);
 		String[] array = s.split(cs);
 		return array.length - 1;
 	}
 
 	/***
 	 * If str doesn't contain prefix or suffix , the return value is null.
 	 * 
 	 * @param str
 	 * @param prefix
 	 * @param suffix
 	 */
 	public static String removePrefixAndSuffix(String str, String prefix,
 			String suffix) {
 		if (str == null || prefix == null || suffix == null) {
 			return null;
 		}
 
 		if (str.startsWith(prefix) && str.endsWith(suffix)) {
 			return str.substring(prefix.length(), str.length()
 					- suffix.length());
 		}
 		return null;
 	}
 
 	public static InputStream toInputStream(String data) {
 		if (data == null) {
 			return null;
 		}
 		ByteArrayInputStream bis = null;
 		try {
 			byte[] bytes;
 			try {
 				bytes = data
 						.getBytes(ContentsStoreServiceSlideImpl.DEFAULT_ENCODING);
 				bis = new ByteArrayInputStream(bytes);
 			} catch (UnsupportedEncodingException e) {
 				// do nothing
 			}
 		} finally {
 			if (bis != null) {
 				try {
 					bis.close();
 				} catch (IOException e) {
 					// do nothing
 				}
 			}
 		}
 		return bis;
 	}
 
 	public static final String join(String[] array, String joinstr) {
 		return join(0, array, joinstr);
 	}
 
 	public static final String join(int startIndex, String[] array,
 			String joinstr) {
 		if (array == null)
 			return null;
 
 		int size = array.length;
 
 		StringBuffer buf = new StringBuffer();
 		for (int i = startIndex; i < size; i++) {
 			buf.append(array[i]);
 			if (size != startIndex && i != size - 1) {
 				buf.append(joinstr);
 			}
 		}
 		return buf.toString();
 	}
 
 	public static final String createQuery(Map params) {
 		StringBuffer buf = new StringBuffer();
 		boolean isFisrt = true;
 		for (Iterator i = params.keySet().iterator(); i.hasNext();) {
 			String key = (String) i.next();
 			String value = (String) params.get(key);
 			if (value == null) {
 				continue;
 			}
 			if (isFisrt) {
 				isFisrt = false;
 			} else {
 				buf.append("&amp;");
 			}
 			buf.append(CharUtil.urlEncode(key) + "="
 					+ CharUtil.urlEncode(value));
 		}
 		return buf.toString();
 	}
 
 	public static final String removeReturnSequence(String letter) {
 		if (letter == null)
 			return NULL_STRING;
 
 		letter = letter.replaceAll("\r", NULL_STRING);
 		letter = letter.replaceAll("\n", NULL_STRING);
 		return letter;
 	}
 
 	public static final boolean stringEquals(Object a, Object b) {
 		if (a == null || b == null) {
 			return false;
 		}
 		return String.valueOf(a).equals(String.valueOf(b));
 	}
 
 	public static final int compare(Comparable a, Comparable b) {
 		if (a == null || b == null) {
 			return -1;
 		}
 		return a.compareTo(b);
 	}
 
 	public static final boolean isNull(String str) {
 		return NULL_STRING.equals(str);
 	}
 
 	public static final Date today() {
 		return CalendarUtils.getToday().getTime();
 	}
 
 	public static final Date tommorrow() {
 		Calendar cal = CalendarUtils.getToday();
 		cal.add(Calendar.DATE, 1);
 		return cal.getTime();
 	}
 
 	public static final Date yesterday() {
 		Calendar cal = CalendarUtils.getToday();
 		cal.add(Calendar.DATE, -1);
 		return cal.getTime();
 	}
 
 	public static final String dateformat(Date date, String format) {
 		if(date == null){
 			return "";
 		}
 		SimpleDateFormat dateformat = new SimpleDateFormat(format);
 		return dateformat.format(date);
 	}
 	
 	public static final String timestampformat(Timestamp timestamp, String format){
 		return dateformat(new Date(timestamp.getTime()), format);
 	}
 }