package org.webslinger.ext.types;

 import java.io.IOException;

 import java.util.HashMap;

 import java.util.Map;

 import javax.servlet.ServletException;

 import javax.servlet.ServletRequest;

 import javax.servlet.ServletResponse;

 import javax.servlet.http.HttpServletRequest;

 import javax.servlet.http.HttpServletResponse;

 import org.webslinger.TypeHandler;

 import org.webslinger.Webslinger;

 import org.webslinger.WebslingerServletContext;

 import org.webslinger.ext.quercus.VFSDelegatePath;

 import org.webslinger.util.GeneratedResult;

 import org.webslinger.util.TTLCachedObject;

 import org.webslinger.util.TTLObject;

 import org.webslinger.vfs.VFSDelegate;

 import com.caucho.quercus.Quercus;

 import com.caucho.quercus.QuercusExitException;

 import com.caucho.quercus.env.Env;

 import com.caucho.quercus.page.QuercusPage;

 import com.caucho.vfs.WriterStreamImpl;

 import com.caucho.vfs.WriteStream;

 public class php extends TypeHandler {

     static {

         TTLObject.setDefaultTTLForClass(CompiledPHP.class, 1000);

     }

     protected Quercus quercus = new Quercus();

     protected HashMap<Object, CompiledPHP> pages = new HashMap<Object, CompiledPHP>();

     protected VFSDelegate<Object, Object, ?> vfsDelegate;

     public void init(WebslingerServletContext context, String type) throws IOException {

         super.init(context, type);

         vfsDelegate = context.getVFSDelegate();

         quercus.setCompile(true);

         quercus.setLazyCompile(true);

         try {

             quercus.setPwd(new VFSDelegatePath(vfsDelegate, context.getWWW()));

         } catch (IOException e) {

             throw e;

         } catch (RuntimeException e) {

             throw e;

         } catch (Exception e) {

             throw (IOException) new IOException(e.getMessage()).initCause(e);

         }

     }

     protected class CompiledPHP extends TTLCachedObject<QuercusPage> {

         protected final Object id;

         protected CompiledPHP(Object id) {

             this.id = id;

         }

         protected GeneratedResult<QuercusPage> generate(QuercusPage old) throws IOException {

             try {

                 return new GeneratedResult<QuercusPage>(getTimestamp(old), quercus.parse(new VFSDelegatePath(vfsDelegate, id)));

             } catch (RuntimeException e) {

                 throw e;

             } catch (Exception e) {

                 throw (IOException) new IOException(e.getMessage()).initCause(e);

             }

         }

         protected long getTimestamp(QuercusPage old) throws IOException {

             return vfsDelegate.getLastModifiedTime(id);

         }

     }

     protected QuercusPage getPage(Webslinger webslinger) throws IOException, ServletException {

         CompiledPHP page;

         Object id = vfsDelegate.getId(webslinger);

         synchronized (quercus) {

             page = pages.get(id);

             if (page == null) {

                 page = new CompiledPHP(id);

                 pages.put(id, page);

             }

         }

         return page.getObject();

     }

     public Object run(Webslinger webslinger) throws IOException, ServletException {

         QuercusPage page = getPage(webslinger);

         WriterStreamImpl writerStreamImpl = new WriterStreamImpl();

         writerStreamImpl.setWriter(webslinger.getResponse().getWriter());

         writerStreamImpl.setWriteEncoding("UTF-8");

         Env env = null;

         try {

             env = quercus.createEnv(page, new WriteStream(writerStreamImpl), webslinger.getRequest(), webslinger.getResponse());

             env.setGlobalValue("webslinger", env.wrapJava(webslinger));

             env.setGlobalValue("request", env.wrapJava(webslinger.getRequest()));

             env.setGlobalValue("response", env.wrapJava(webslinger.getResponse()));

             env.start();

             webslinger.getResponse().setContentType("text/html");

             return page.executeTop(env);

         } catch (QuercusExitException e) {

             // ignore, this is thrown when php calls 'exit'

             return null;

         } catch (RuntimeException e) {

             throw e;

         } catch (Exception e) {

             throw (ServletException) new ServletException(e.getMessage()).initCause(e);

         } finally {

             if (env != null) {

                 env.getOriginalOut().flush();

                 env.close();

             }

         }

     }

 }