bootstrap.lisp

   1 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; -*-
   2 ;;;
   3 ;;; bootstrap.lisp --- Invoke magic to create pegparser.lisp source
   4
   5 ;; Copyright (C) 2008 Utz-Uwe Haus <lisp@uuhaus.de>
   6 ;; $Id$
   7 ;;
   8 ;; This code is free software; you can redistribute it and/or modify
   9 ;; it under the terms of the version 2.1 of the GNU Lesser General
  10 ;; Public License as published by the Free Software Foundation, as
  11 ;; clarified by the lisp prequel found in LICENSE.
  12 ;;
  13 ;; This code is distributed in the hope that it will be useful, but
  14 ;; without any warranty; without even the implied warranty of
  15 ;; merchantability or fitness for a particular purpose. See the GNU
  16 ;; Lesser General Public License for more details.
  17 ;;
  18 ;; Version 2.1 of the GNU Lesser General Public License is in the file
  19 ;; LICENSE that was distributed with this file. If it is not
  20 ;; present, you can access it from
  21 ;; http://www.gnu.org/copyleft/lgpl.txt (until superseded by a
  22 ;; newer version) or write to the Free Software Foundation, Inc., 59
  23 ;; Temple Place, Suite 330, Boston, MA 02111-1307 USA
  24 ;;
  25 ;; Commentary:
  26
  27 ;; This file is loaded to bootstrap ourselves: it generates pegparser.lisp
  28 ;; from opossum.peg using pegparser-boot.lisp.
  29
  30 ;;; Code:
  31
  32
  33
  34 (in-package #:opossum-system)
  35 \f
  36
  37 (eval-when (:compile-toplevel :load-toplevel :execute)
  38   (format *trace-output* ";; bootstrap.lisp is creating pegparser.lisp~%")
  39   (opossum:generate-parser-file "opossum.peg" :opossum
  40                                 "pegparser.lisp"
  41                                 :parse-file-fun #'opossum-system::parse-file)
  42   (format *trace-output* ";; done creating pegparser.lisp~%"))