[clhp-cvs] CVS update: clhp/mod_clhp.c

[Anthony Ventimiglia]

Update of /project/clhp/cvsroot/clhp
In directory common-lisp.net:/tmp/cvs-serv1425

Modified Files:
	mod_clhp.c 
Log Message:
Getting nowhere slowly

Date: Tue Nov 11 20:31:26 2003
Author: aventimiglia

Index: clhp/mod_clhp.c
diff -u clhp/mod_clhp.c:1.1 clhp/mod_clhp.c:1.2
--- clhp/mod_clhp.c:1.1	Wed Oct 29 16:34:44 2003
+++ clhp/mod_clhp.c	Tue Nov 11 20:31:25 2003
@@ -1,4 +1,4 @@
-/* $Id: mod_clhp.c,v 1.1 2003/10/29 21:34:44 aventimiglia Exp $
+/* $Id: mod_clhp.c,v 1.2 2003/11/12 01:31:25 aventimiglia Exp $
    
   CLHP the Common Lisp Hypertext Preprocessor
   (C) 2003 Anthony J Ventimiglia
@@ -29,8 +29,6 @@
 #include "util_script.h"
 #include <string.h>
 
-#define DEBUG_CLHP 1
-
 #ifndef HUGE_STRING_LEN
 #define HUGE_STRING_LEN 65000
 #endif
@@ -47,23 +45,12 @@
 				       child->req->subprocess_env );
   int child_pid;
 
-#ifdef DEBUG_CLHP
-  FILE *dbg = ap_pfopen ( child->req->pool, "/tmp/clhp.debug", "w" );
-  int i;
-#endif
+  child->req->args = ap_pstrdup ( child->req->pool, 
+				  "-noinit -quiet -core /usr/lib/cmucl/clhp.core" );
 
-#ifdef DEBUG_CLHP
-  fprintf ( dbg, "run_lisp: env:\n" );
-  for ( i = 0; env[i]; ++i )
-    fprintf ( dbg, "\t'%s'\n", env[i] );
-  fprintf ( dbg, "\nargs:\t\"%s\"\n", child->req->args );
-  ap_pfclose ( child->req->pool, dbg );
-#endif
-
-  child->req->args = "-noinit -quiet -core /usr/lib/cmucl/clhp.core";
   ap_cleanup_for_exec ();
   child_pid = ap_call_exec ( child->req, pinfo, "/usr/bin/lisp", env, 1 );
-  
+
   return (0);
 }
 
@@ -96,7 +83,16 @@
 
   ap_hard_timeout ( "Hard Timeout", req );
 
+  // Debugging output
+  ap_rputs ( "-----------------\n", child.req );
+  ap_rprintf ( child.req, "ARGS: %s\n-------------\n", child.req->args );
+
+
+  send_to_lisp ( lisp_out, "(mapcar #'print ext:*command-line-strings*)");
+  send_to_lisp ( lisp_out, "(progn (loop for f from 1 to 50 do (format t \"-\")) (terpri))" );
   send_to_lisp ( lisp_out, "(mapcar #'print ext:*environment-list*)" );
+
+
   close_lisp ( lisp_out );
   ap_bclose ( lisp_out );