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 );