Thread: [Pfc-prolog-cvs] prolix/web cliente.jsp,NONE,1.1 consult.jsp,NONE,1.1 errorInProgram.jsp,NONE,1.1 in

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/pfc-prolog/prolix/web
In directory sc8-pr-cvs1:/tmp/cvs-serv387/web

Added Files:
	cliente.jsp consult.jsp errorInProgram.jsp index.jsp 
	solutions.jsp 
Log Message:
Added web client to proyect

--- NEW FILE: cliente.jsp ---
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@ page import="java.util.*,java.rmi.*,javax.naming.*,javax.rmi.*,
      java.io.*,javax.ejb.*,org.asturlinux.frade.prolix.ejb.interfaces.*,
      org.asturlinux.frade.prolix.interpreter.exceptions.*" %>

<%@ taglib uri="http://java.sun.com/jstl/core" prefix="c" %>
<%@ taglib uri="http://java.sun.com/jstl/xml" prefix="x" %>
      <html>
	<head>
	  <title>Cliente prolix online</title>
	</head>
	
  <body>
	  <h1>Cliente prolix online</h1>
	  <%!
	  private String hardCodedProgram = "hermano(X,Y):=padre(X,Z),padre(Y,Z).padre(Felipe,JC).padre(Helena,JC)";
	  private String hardCodedConsult = "hermano(X,Y)";
	  private ProlixMain interpreter;
	  %>
	  <%
	  InitialContext ctx = new InitialContext();
	  ProlixMainHome home = (ProlixMainHome)ctx.lookup(ProlixMainHome.JNDI_NAME);
	  // Create the interpreter bean
	  interpreter = home.create();
	  interpreter.loadProgram(hardCodedProgram);
	  interpreter.loadConsult(hardCodedConsult);
%>
	  Aqui el programa(nuevo): <br>
<% out.println(interpreter.getProgram()); %> <br>
	  Aqui la consulta: <br>
<% out.println(interpreter.getCurrentConsult()); %> <br>

	  Aqui el resultado de un step: <br>
<% String resultInXml = interpreter.step(); %> 

<c:set var="xsl">
  <c:import url="solution.xslt" />
</c:set>

<x:transform xslt="${xsl}">
  <% out.println(resultInXml); %>
</x:transform>

<br>
	  Aqui el resultado de 2 step: <br>
<% resultInXml = interpreter.step(); %>
<x:transform xslt="${xsl}">
  <% out.println(resultInXml); %>
</x:transform>

	  <hr>
	  <address><a href="mailto:iv...@as...">Ivan Frade</a></address>
	  <!-- Created: Fri Jul  4 17:51:23 CEST 2003 -->
	  <!-- hhmts start -->
Last modified: Sun Jul  6 21:03:22 CEST 2003
<!-- hhmts end -->
	</body>
      </html>
      
--- NEW FILE: consult.jsp ---
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%@ page import="java.util.*,java.rmi.*,javax.naming.*,javax.rmi.*,
  java.io.*,javax.ejb.*,org.asturlinux.frade.prolix.ejb.interfaces.*,
  org.asturlinux.frade.prolix.interpreter.exceptions.*" 
%>

<%@ page errorPage="errorInProgram.jsp" %>
      
<%@ taglib uri="http://java.sun.com/jstl/core" prefix="c" %>
<%@ taglib uri="http://java.sun.com/jstl/xml" prefix="x" %>
<%@ taglib uri="ejbtags" prefix="ejb" %>
 
<ejb:useBean id="interpreter" 
	    type="org.asturlinux.frade.prolix.ejb.interfaces.ProlixMain"/>

<html>
  <head>
    <title>Program ready to consult</title>
  </head>

<body bgcolor="#768FDD">
<% 
  String hardCodedConsult = "hermano(X,Y)";
  String currentConsult; 
  String programSource = "hermano(X,Y):=padre(X,Z),padre(Y,Z).padre(Felipe,JC).padre(Helena,JC)";

  String writedProgram = (String)request.getParameter("programa");

  interpreter.loadProgram(programSource);
  interpreter.loadConsult(hardCodedConsult);
  currentConsult = interpreter.getCurrentConsult(); 
%>

<h1>Prolix </h1>

<table>
  <tr>
    <td>
	<hr align="left" size="1">
        <%= interpreter.getProgram() %> <br><br><br><br>
	<hr align="left" size="1">
    
     <form method="GET" enctype="text/plain" action="solutions.jsp">
     consulta: <br>
       <font size="+3">?</font> 
       <input type="text" name="consulta" size="0" maxlength="100" 
	      value=" <%= currentConsult %> "> <br><br>
       <input type="submit" name="consult" value="Consultar">
       <input type="submit" name="consult" value="Cargar otro programa">
     </form>
    </td>

    <td valign="top">
     <form method="GET" enctype="text/plain">
	Ultimas consultas:<br>
	<input TYPE="radio" NAME="old-consult" VALUE="ditu1" checked>hermano(carlos,X).<br>
	<input TYPE="radio" NAME="old-consult" VALUE="ditu2">padre(carlos,X).<br>
	<input TYPE="radio" NAME="old-consult" VALUE="ditu3">hermano(M,N).<br>
     </form>
    </td>

   </tr>
</table>
    
</body>
</html>
--- NEW FILE: errorInProgram.jsp ---
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@ page IsErrorPage="yes" %>
<html>
  <head>
    <title>Error loading program</title>
  </head>

  <body>
    <h1>Error loading program</h1>
<%
   String writedProgram = request.getParameter("programa");

%>
    <jsp:forward page="index.jsp">
	  <jsp:param name="program" value=" <%=writedProgram%> "/>
	  <jsp:param name="error" value=" <%=exception.getMessage()%>" />
    </jsp:forward>

    <hr>
    <address><a href="mailto:iv...@as...">Ivan Frade</a></address>
<!-- Created: Tue Jul  8 21:34:29 CEST 2003 -->
<!-- hhmts start -->
Last modified: Tue Jul  8 22:50:52 CEST 2003
<!-- hhmts end -->
  </body>
</html>

--- NEW FILE: index.jsp ---
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%@ page import="java.util.*,java.rmi.*,javax.naming.*,javax.rmi.*,
  java.io.*,javax.ejb.*,org.asturlinux.frade.prolix.ejb.interfaces.*,
  org.asturlinux.frade.prolix.interpreter.exceptions.*"
%>
      
<%@ taglib uri="http://java.sun.com/jstl/core" prefix="c" %>
<%@ taglib uri="http://java.sun.com/jstl/xml" prefix="x" %>
<%@ taglib uri="ejbtags" prefix="ejb" %>

<!-- Obtain Home reference-->
<ejb:useHome id="prolixHome" 
	type="org.asturlinux.frade.prolix.ejb.interfaces.ProlixMainHome" 
	location="org/asturlinux/frade/prolix/ejb/sessionjb/ProlixMain" />

<!-- Obtain Bean reference. If don't exist, create new one  -->
<ejb:useBean id="interpreter" 
	    type="org.asturlinux.frade.prolix.ejb.interfaces.ProlixMain" 
	    scope="session">
  <ejb:createBean instance="<%= prolixHome.create() %>" />
</ejb:useBean>

      
<html>
  <head>
    <title>Prolix main</title>
  </head>
  <body bgcolor="#768FDD">
  <h1>Prolix </h1>
  <hr align="left" size="1">

	  
<%
   String exceptionError = (String)request.getParameter("error");
   if (exceptionError != null)
      out.println(exceptionError);

   String program = (String)request.getParameter("program");
   if (program == null)
      program = "";
%>

<hr align="left" size="1">


<!-- FIXME action. This is only a prototype -->
<form method="POST" enctype="text/plain" action="consult.jsp">
   <textarea name="programa" rows="20" cols="60">
<%
  out.println(program);
%>
   </textarea> <br>
<input name="loadGood" value="Load" type="submit">
<input name="clear" value="Clean" type="reset">
</form>
</body>
</html>
--- NEW FILE: solutions.jsp ---
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%@ page import="java.util.*,java.rmi.*,javax.naming.*,javax.rmi.*,
  java.io.*,javax.ejb.*,org.asturlinux.frade.prolix.ejb.interfaces.*,
  org.asturlinux.frade.prolix.interpreter.exceptions.*" %>
      
<%@ taglib uri="http://java.sun.com/jstl/core" prefix="c" %>
<%@ taglib uri="http://java.sun.com/jstl/xml" prefix="x" %>
<%@ taglib uri="ejbtags" prefix="ejb" %>

<ejb:useBean id="interpreter" 
	    type="org.asturlinux.frade.prolix.ejb.interfaces.ProlixMain"/>

<% 
    String currentProgram = interpreter.getProgram();
    String currentConsult = interpreter.getCurrentConsult(); 
%>

<html>
<head>
<title>Prolix consultado</title>
</head>
<body bgcolor="#768FDD">
<h1>Prolix </h1>
<hr align="left" size="10">

<%= currentProgram %>

<hr align="left" size="10">
consulta: ?<%= currentConsult %>
<hr align="left" size="10">
<% String resultInXml = interpreter.step(); %> 

<c:set var="xsl">
  <c:import url="solution.xslt" />
</c:set>

<x:transform xslt="${xsl}">
  <% out.println(resultInXml); %>
</x:transform>

<br>
<hr align="left" size="10">
<form action="solutions.jsp">
     <input name="moreResult" value="Siguiente solucion"
	    type="submit">
</form>
</body>
</html>

Thread: [Pfc-prolog-cvs] prolix/web cliente.jsp,NONE,1.1 consult.jsp,NONE,1.1 errorInProgram.jsp,NONE,1.1 in

pfc-prolog-cvs