(in-package "COMMON-LISP-USER")

;; ---------------------------------------------------------------------
;;; Delivery script for KPML 3.0 with LW4.1 plus wait and generate
;;; No interface present, just generates...
;;; John, Bremen, Feb 2000.
;;; Updated to KPML4, June 2002.

#-lispworks4.1 (print "NOT LISPWORKS 4.1: CAN ONLY FAIL NASTILY!!!")
#-lispworks4.1 (print "-------------------------------------------")
#-lispworks4.1 (print "  DO NOT PASS GO!! ")
#-lispworks4.1 (print "  DO NOT COLLECT 200 GBPs, USD, Euros!!")
#-lispworks4.1 (print "-------------------------------------------")

;; ---------------------------------------------------------------------
;;; Not yet made space efficient in any way, need to do
;;; something sensible about clos templates for this to
;;; stand a chance. 
;; ---------------------------------------------------------------------

(load-all-patches)

;; ----------------------------------------------------------------------
;; *** THE FOLLOWING MUST ONLY BE SET IF THE KPML BINARIES ARE BEING ***
;; *** KEPT IN A DIFFERENT PLACE TO THE SOURCE FILES. THIS IS NOT    ***
;; *** THE CASE UNLESS YOU HAVE EXPLICITLY ORGANIZED THIS TO BE DONE ***
;; *** LOCALLY.
;;
(defparameter *KPML-BINARIES-ROOT* 
          (pathname "E:\\systems\\KPML\\BINARIES\\LWW41-NO-GUI\\"))
;; ----------------------------------------------------------------------

(load "E:\\systems\\KPML\\KPML4\\KPML-INSTALLATION")

(in-package "KPML")
(load 
 "E:\\systems\\KPML\\KPML4\\KPML-IMAGE-SCRIPTS\\wait-and-generate.lisp")
(kpml::load-kpml-configuration-file)
(kpml::load-linguistic-resources 
 :english :root-directory "E:\\systems\\kpml\\Resources\\")
(kpml::do-all-kpml-initializations)

;;
;; flags for safe running regardless of input... 
;;
   (setf kpml::*standalone* T)
   (setf kpml::*demo-mode* T)
   (setf kpml::example-runner-flag T)

;; and timestamp it...
   (setf kpml::*kpml-creation-timestamp* (kpml::time-stamp))

#+ignore(lispworks::deliver 
 'kpml::waiting-generate "E:\\systems\\kpml\\Images\\kpml4-bbox1" 0
 :multiprocessing T
 :keep-clos T
 :keep-eval T)


#||

         :clos-info :classes-and-methods
         :diagnostics-file "C:\\kpml-clos-diags"
         :compact nil
         :in-memory-delivery T
         :keep-clos T
         :keep-debug-mode :keep-packages

||#

