;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: MAKE -*-

;;;
;;; [incr tsdb()] --- Competence and Performance Profiling Environment
;;; Copyright (c) 1996 -- 2005 Stephan Oepen (oe@csli.stanford.edu)
;;;
;;; This program is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU Lesser General Public License as published by
;;; the Free Software Foundation; either version 2.1 of the License, or (at
;;; your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful, but WITHOUT
;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
;;; License for more details.
;;; 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;        file: tsdb.system
;;;      module:
;;;     version: 0.0 -- 22-sep-95 (experimental)
;;;  written by: oe, dfki saarbruecken
;;; last update: 17-sep-01
;;;  updated by: oe, csli stanford
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; author            | date        | modification
;;; ------------------|-------------|------------------------------------------
;;;                   |             |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(in-package :make)

(eval-when (:load-toplevel :execute)
  (pushnew :tsdb *features*)
  (pushnew :itsdb *features*)

  ;;
  ;; for supported platforms, assume Berkeley DB support is available
  ;;
  #+(and :linux (and :allegro-version>= (version>= 7 0)))
  (pushnew :bdb *features*)
  
  ;;
  ;; for the on-line WWW demo (LOGON tree, select platforms), use DRAKMA et al.
  ;;
  #+(and :allegro :linux :logon)
  (pushnew :drakma *features*)

  ;;
  ;; the Alvey Tools package, unfortunately, comes without a unique feature to
  ;; identify it; invent one and hope for integration with future releases.
  ;;                                                        (22-nov-99  -  oe)
  ;;
  (when (and (find-symbol "*GDE-VERSION-NO" :common-lisp-user)
             (boundp (find-symbol "*GDE-VERSION-NO" :common-lisp-user)))
    (pushnew :anlt *features*)))
  

(defsystem "tsdb"
    :source-pathname (dir-append (get-sources-dir "tsdb")
				 '(:relative "tsdb"))
    :binary-pathname (dir-append (get-binaries-dir "tsdb")
				 '(:relative "tsdb"))

    
    #+:drakma :initially-do #+:drakma (require :aserve)

    :finally-do
    (let ((display (system:getenv "DISPLAY")))
      (load (logon-file "conll16/lisp" "load.lisp"))
      (funcall (intern "INITIALIZE-TSDB" :tsdb))
      #+(and :allegro (or :linux :sparc :alpha :macosx) (not :slave))
      (when (and display (not (equal display "")))
        (funcall (intern "TSDB" :tsdb) :podium)))

    :components
    (#+:dfki
     (:module "agenda"
      :source-pathname ""
      :source-extension ""
      :operation-form 
      ((:load (lambda (component force)
                (declare (ignore force))
                (unless (probe-file 
                         (component-full-pathname component :source))
                  (format t
                   "~&; missing: `~a';~%"
                   (component-full-pathname component :source)))))
       (:compile (lambda (component force)
                   (declare (ignore force))
                   (unless (probe-file 
                            (component-full-pathname component :source))
                     (format 
                      t
                      "~&; missing: `~a';~%"
                      (component-full-pathname component :source))))))
      :components
      ((:file "Registration")
       (:file "ToDo")))

     #+(and :allegro (or :linux (and :sparc :svr4) :alpha :macosx))
     (:module "c"
      :source-pathname %system-binaries%
      :source-extension #-:macosx "so" #+:macosx "dylib"
      :load-only t
      :components
      ((:file "capi")
       (:file "gc")
       #+:bdb
       (:file "bdb")))
     
     #+:drakma
     (:module "drakma"
      :source-pathname %system-binaries%
      :source-extension "fasl"
      :load-only t
      :components
      (#+(and :allegro-version= (version= 8 0)) (:file "drakma80")
       #+(and :allegro-version= (version= 8 1)) (:file "drakma81")
       #+(and :allegro-version= (version= 8 2)) (:file "drakma82")))
     
     (:module "tsdb"
      :source-pathname "lisp"
      :binary-pathname ""
      :source-extension "lisp"
      :components
      ((:file "tsdb-package")
       (:file "macros")
       #+:page 
       (:file "tdl-patches")
       #+(and :lkb (not (or :page :annlt :sltg :xle :dummy)))
       (:file "lkb-interface")
       #+:anlt 
       (:file "anlt-interface")
       #+:sltg
       (:file "sltg-interface")
       #+:xle
       (:file "xle-interface")
       #+(or :dummy (not (or :lkb :page :annlt :sltg :xle)))
       (:file "dummy-interface")
       (:file "globals")
       (:file "utilities")
       #+(and :allegro (or :linux (and :sparc :svr4) :alpha :macosx)) 
       (:file "pvm")
       #+(and :allegro (or :linux (and :sparc :svr4) :alpha :macosx)) 
       (:file "capi")
       (:file "tsql")
       (:file "tsdb")
       (:file "process")
       (:file "commands")
       (:file "import")
       #+:null
       (:file "server")
       (:file "filter")
       (:file "statistics")
       (:file "evolution")
       (:file "html")
       (:file "podium")
       #+:allegro
       (:file "allegro")
       #+:allegro
       (:file "gc")
       (:file "yy")
       (:file "fake")
       #+:lkb
       (:file "mt")
       #+:logon
       (:file "mmt")
       #+:logon
       (:file "kf")
       #+:page 
       (:file "page-interface")
       (:file "derivations")
       #+:lkb
       (:file "tnt-interface")
       #+(and :lkb :allegro :clim)
       (:file "redwoods")
       #+:lkb
       (:file "lsp")
       (:file "ptb")
       (:file "conll")
       (:file "pdtb")
       #+:lkb
       (:file "rasp")
       (:file "chasen")
       #+:lkb
       (:file "genia")
       (:file "fsc")
       (:file "hunter")
       #+:lkb
       (:file "pcfg")
       #+:null
       (:file "acache")
       #+:bdb
       (:file "bdb")
       #+:lkb
       (:file "features")
       #+:lkb
       (:file "learner")
       #+:lkb
       (:file "experiment")
       #+(and :lkb :drakma)
       (:file "www")
       #+:null
       (:file "tagger")))
     
     #+:dfki
     (:module "podium"
      :source-pathname "tcl"
      :source-extension "tcl"
      :load-only t
      :operation-form 
      ((:load (lambda (component force)
                (declare (ignore force))
                (unless (probe-file 
                         (component-full-pathname component :source))
                  (format t
                   "~&; missing: `~a';~%"
                   (component-full-pathname component :source)))))
       (:compile (lambda (component force)
                   (declare (ignore force))
                   (unless (probe-file 
                            (component-full-pathname component :source))
                     (format t
                             "~&; missing: `~a';~%"
                             (component-full-pathname component :source))))))
      :components
      ((:file "icon" :source-extension "xbm")
       (:file "podium")
       (:file "goodies")
       (:file "table")
       (:file "showtable")
       (:file "nshowtable")
       (:file "showgraph")
       (:file "utilities")
       (:file "commands")
       (:file "input")
       (:file "yy")
       (:file "mt")
       (:file "copyleft")
       (:file "balloon")
       (:file "balloons" :source-extension ""))))
    
    :depends-on (#+(and :allegro (or :linux (and :sparc :svr4) :alpha :macosx))
		 "pvm"
                 "fad"
                 #+:logon "registry"
		 #+:lkb "lkb"
                 #-(or :logon :lkb) "ppcre"
		 #+:page "page"))