/*
    * Copyright 2006-2007 the original author or authors.
    *
    * 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 org.springframework.batch.support.transaction;
  
  import java.io.IOException;
  import java.io.Writer;
  
  import org.springframework.transaction.support.TransactionSynchronizationAdapter;
  import org.springframework.transaction.support.TransactionSynchronizationManager;
  
  /**
   * Wrapper for a {@link Writer} that delays actually writing to or closing the
   * buffer if a transaction is active. If a transaction is detected on the call
   * to {@link #write(String)} the parameter is buffered and passed on to the
   * underlying writer only when the transaction is committed.
   * 
   * @author Dave Syer
   * 
   */
  public class TransactionAwareBufferedWriter extends Writer {
  
  	private static final String BUFFER_KEY_PREFIX = TransactionAwareBufferedWriter.class.getName() + ".BUFFER_KEY";
  
  	private static final String CLOSE_KEY_PREFIX = TransactionAwareBufferedWriter.class.getName() + ".CLOSE_KEY";
  
  	private final String bufferKey;
  
  	private final String closeKey;
  
  	private Writer writer;
  
  	private final Runnable closeCallback;
  
  	/**
  	 * Create a new instance with the underlying writer provided, and a callback
  	 * to execute on close. The callback should clean up related resources like
  	 * output streams or channels.
  	 * 
  	 * @param writer actually writes to output
  	 * @param closeCallback callback to execute on close
  	 */
  	public TransactionAwareBufferedWriter(Writer writer, Runnable closeCallback) {
  		super();
  		this.writer = writer;
  		this.closeCallback = closeCallback;
  		this.bufferKey = BUFFER_KEY_PREFIX + "." + hashCode();
  		this.closeKey = CLOSE_KEY_PREFIX + "." + hashCode();
  	}
  
  	/**
  	 * @return
  	 */
  	private StringBuffer getCurrentBuffer() {
  
  		if (!TransactionSynchronizationManager.hasResource(bufferKey)) {
  
  			TransactionSynchronizationManager.bindResource(bufferKey, new StringBuffer());
  
  			TransactionSynchronizationManager.registerSynchronization(new TransactionSynchronizationAdapter() {
  				@Override
  				public void afterCompletion(int status) {
  					try {
  						if (status == STATUS_COMMITTED) {
  							complete();
  						}
  					}
  					catch (IOException e) {
  						throw new FlushFailedException("Could not write to output buffer", e);
  					}
  					finally {
  						clear();
  					}
  				}
  
  				private void complete() throws IOException {
  					StringBuffer buffer = (StringBuffer) TransactionSynchronizationManager.getResource(bufferKey);
  					if (buffer != null) {
  						writer.write(buffer.toString());
  						writer.flush();
  						if (TransactionSynchronizationManager.hasResource(closeKey)) {
  							writer.close();
  							closeCallback.run();
  						}
  					}
  				}
  
 				private void clear() {
 					if (TransactionSynchronizationManager.hasResource(bufferKey)) {
 						TransactionSynchronizationManager.unbindResource(bufferKey);
 					}
 					if (TransactionSynchronizationManager.hasResource(closeKey)) {
 						TransactionSynchronizationManager.unbindResource(closeKey);
 					}
 				}
 
 			});
 
 		}
 
 		return (StringBuffer) TransactionSynchronizationManager.getResource(bufferKey);
 
 	}
 
 	/**
 	 * Convenience method for clients to determine if there is any unflushed
 	 * data.
 	 * 
 	 * @return the current size of unflushed buffered data
 	 */
 	public long getBufferSize() {
 		if (!transactionActive()) {
 			return 0L;
 		}
 		return getCurrentBuffer().length();
 	}
 
 	/**
 	 * @return
 	 */
 	private boolean transactionActive() {
 		return TransactionSynchronizationManager.isActualTransactionActive();
 	}
 
 	/*
 	 * (non-Javadoc)
 	 * 
 	 * @see java.io.Writer#close()
 	 */
 	@Override
 	public void close() throws IOException {
 		if (transactionActive()) {
 			if (getCurrentBuffer().length() > 0) {
 				TransactionSynchronizationManager.bindResource(closeKey, Boolean.TRUE);
 			}
 			return;
 		}
 		writer.close();
 		closeCallback.run();
 	}
 
 	/*
 	 * (non-Javadoc)
 	 * 
 	 * @see java.io.Writer#flush()
 	 */
 	@Override
 	public void flush() throws IOException {
 		if (!transactionActive()) {
 			writer.flush();
 		}
 	}
 
 	/*
 	 * (non-Javadoc)
 	 * 
 	 * @see java.io.Writer#write(char[], int, int)
 	 */
 	@Override
 	public void write(char[] cbuf, int off, int len) throws IOException {
 
 		if (!transactionActive()) {
 			writer.write(cbuf, off, len);
 			return;
 		}
 
 		StringBuffer buffer = getCurrentBuffer();
 		buffer.append(cbuf, off, len);
 
 	}
 
 }