#! /bin/sh
# -*- mode:     CL          -*- -------------------------------------------- #
# File:         Make-Zebu-Parser
# Description:  
# Author:       Joachim H. Laubsch
# Created:      20-Jan-93
# Modified:     Wed Jan 20 12:45:17 1993 (Joachim H. Laubsch)
# Language:     
# Package:      USER
# Status:       Experimental (Do Not Distribute) 
# RCS $Header: $
#
# (c) Copyright 1993, Hewlett-Packard Company
##############################################################################
# Revisions:
# RCS $Log: $
##############################################################################

echo "Make the Zebu Parser"
ZEBU=`pwd`
export ZEBU
Lucid_Path=/lisp/lisp4.0/non-kanji
set +u

$Lucid_Path/base-lisp-ae -n $* << EOF 2>&1 | tee /tmp/Make-Zebu-Parser.log

(if (find-package "CL-USER")
    (defpackage "CL-USER" (:nicknames "USER"))
  (defpackage "USER" (:nicknames "CL-USER")))

(in-package "CL-USER")

(setf (working-directory) (environment-variable "ZEBU"))
(load "ZEBU-init.lisp")

(zb::zebu)
(setq *enter-top-level-hook*  #'zb::load-from-command-line)

(DISKSAVE "/tmp/Zebu-Parser" :FULL-GC T :WRITABLE T :VERBOSE T)
(quit)
EOF

cp "/tmp/Zebu-Parser" "$ZEBU/"
rm "/tmp/Zebu-Parser"

##############################################################################
##                          End of Make-Zebu-Parser
##############################################################################
