From fc42fe56a57eace2dbdb31574c2e161f0eacf839 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 15 Jun 2005 13:00:39 +0000
Subject: Initial import of Skribe 1.2d.

Initial import of Skribe 1.2d.


git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--base-0
---
 src/bigloo/main.scm | 96 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 96 insertions(+)
 create mode 100644 src/bigloo/main.scm

(limited to 'src/bigloo/main.scm')

diff --git a/src/bigloo/main.scm b/src/bigloo/main.scm
new file mode 100644
index 0000000..5b9e5e5
--- /dev/null
+++ b/src/bigloo/main.scm
@@ -0,0 +1,96 @@
+;*=====================================================================*/
+;*    serrano/prgm/project/skribe/src/bigloo/main.scm                  */
+;*    -------------------------------------------------------------    */
+;*    Author      :  Manuel Serrano                                    */
+;*    Creation    :  Tue Jul 22 16:51:49 2003                          */
+;*    Last change :  Wed May 18 15:45:27 2005 (serrano)                */
+;*    Copyright   :  2003-05 Manuel Serrano                            */
+;*    -------------------------------------------------------------    */
+;*    The Skribe main entry point                                      */
+;*=====================================================================*/
+
+;*---------------------------------------------------------------------*/
+;*    The module                                                       */
+;*---------------------------------------------------------------------*/
+(module skribe_main
+   
+   (include "debug.sch")
+   
+   (import  skribe_types
+	    skribe_parse-args
+	    skribe_param
+	    skribe_lib
+	    skribe_eval
+	    skribe_read
+	    skribe_engine
+	    skribe_evapi)
+   
+   (main    main))
+
+;*---------------------------------------------------------------------*/
+;*    main ...                                                         */
+;*---------------------------------------------------------------------*/
+(define (main args)
+   (with-debug 2 'main
+	       (debug-item "parse env variables...")
+	       (parse-env-variables)
+	       
+	       (debug-item "load rc file...")
+	       (load-rc)
+	       
+	       (debug-item "parse command line...")
+	       (parse-args args)
+	       
+	       (debug-item "load base...")
+	       (skribe-load "base.skr" :engine 'base)
+	       
+	       (debug-item "preload... (" *skribe-engine* ")")
+	       (for-each (lambda (f)
+			    (skribe-load f :engine *skribe-engine*))
+			 *skribe-preload*)
+	       
+	       ;; Load the specified variants
+	       (debug-item "variant... (" *skribe-variants* ")")
+	       (for-each (lambda (x)
+			    (skribe-load (format "~a.skr" x) :engine *skribe-engine*))
+			 (reverse! *skribe-variants*))
+	       
+	       (debug-item "body..." *skribe-engine*)
+	       (if (string? *skribe-dest*)
+		   (cond-expand
+		      (bigloo2.6
+		       (try (with-output-to-file *skribe-dest* doskribe)
+			    (lambda (e a b c)
+			       (delete-file *skribe-dest*)
+			       (let ((s (with-output-to-string
+					   (lambda () (write c)))))
+				  (notify-error a b s))
+			       (exit -1))))
+		      (else
+		       (with-exception-handler
+			  (lambda (e)
+			     (if (&warning? e)
+				 (raise e)
+				 (begin
+				    (delete-file *skribe-dest*)
+				    (if (&error? e)
+					(error-notify e)
+					(raise e))
+				    (exit 1))))
+			  (lambda ()
+			     (with-output-to-file *skribe-dest* doskribe)))))
+		   (doskribe))))
+
+;*---------------------------------------------------------------------*/
+;*    doskribe ...                                                     */
+;*---------------------------------------------------------------------*/
+(define (doskribe)
+   (let ((e (find-engine *skribe-engine*)))
+      (if (and (engine? e) (pair? *skribe-precustom*))
+	  (for-each (lambda (cv)
+		       (engine-custom-set! e (car cv) (cdr cv)))
+		    *skribe-precustom*))
+      (if (pair? *skribe-src*)
+	  (for-each (lambda (f) (skribe-load f :engine *skribe-engine*))
+		    *skribe-src*)
+	  (skribe-eval-port (current-input-port) *skribe-engine*))))
-- 
cgit v1.2.3