;;;-*- Mode:LISP; Package: (browser global); Base:10.; fonts: cptfontb -*- 
;;; $Header: /ct/browser/bldbrowser.l,v 1.5 84/11/20 13:48:09 penny Exp $
(putprop 'browser "$Revision: 1.5 $" 'rcs_revision)
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                                                                  ;;;
;;;                          bldbrowser.l                            ;;;
;;;                                                                  ;;;
;;; James Miller					June 4, 1984 ;;;
;;;                                                                  ;;;
;;; This file is to be used to keep track of revisions to the        ;;;
;;; documentation browser and to load the browser                    ;;;
;;;                                                                  ;;;
;;; This file is part of a proprietary software project.  Source     ;;;
;;; code and documentation describing implementation details are     ;;;
;;; available on a confidential, non-disclosure basis only.  These   ;;;
;;; materials, including this file in particular, are trade secrets  ;;;
;;; of Computer * Thought Corporation.                               ;;;
;;;                                                                  ;;;
;;; (c) Copyright 1982 and 1983,  Computer * Thought Corporation.    ;;;
;;;     All Rights Reserved.                                         ;;;
;;;                                                                  ;;;
;;; Reference materials:                                             ;;;
;;;   Foderaro and Sklower, The FRANZ LISP Manual, September 1981.   ;;;
;;;   Weinreb and Moon, LISP MACHINE MANUAL, Symbolics, July 1981.   ;;;
;;;   Charniak et al., 1980.  Artificial Intelligence Programming.   ;;;
;;;   Miller, 1982.  The C*T Ada Tutor: Guide to the Implementation. ;;;
;;;                                                                  ;;;
;;;   The following code assumes familiarity with these materials.   ;;;
;;;                                                                  ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Ensure presence of needed files. 

(comment Assumes ct_load and some suitable file_map are present)

(eval-when (load eval)              ; Load the main browser file
  (ct_load 'user:browser))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Internal Use Only Functions/Methods -- 

;;;Install the two basic documents -- the Interpreter/Debugger and
;;;Browser user manuals
;;;

(format t "~%Installing Interpreter//Debugger User Manual...")
(install-new-document
    'interpdebug
    "the Interpreter//Debugger User Manual"
    "Interp//Debug"
    ;user:*interpdebug-directory*    ;;specified in startup of installation
    "CT: DOC; INTERP;"
    '*interpdebug-pointer*
    (if (and (variable-boundp user:*release*) (variable-boundp user:*db%release*))
	(string-append "Beta " user:*release* "//" user:*db%release*)
      "Beta ?//?"))
    
;;Install the Browser user manual
    
(format t "~%Installing Browser User Manual...")
(install-new-document
    'browser
    "the Browser User Manual"
    "Browser"
    ;user:*browser-directory*    ;;specified in startup of installation
    "CT: DOC; BROWSER;"
    '*browser-pointer*
    (if (variable-boundp user:*browser-release*)
	user:*browser-release* "??"))

(format t "~%Installing Ada User Manual...")
(install-new-document
    'adamanual
    "the ADA Manual"
    "adamanual"
    ;user:*browser-directory*    ;;specified in startup of installation
    "CT: DOC; ADA;"
    '*reference-manual-pointer*
    (if (variable-boundp user:*adamanual-release*)
	user:*adamanual-release* "??"))

;;; eof
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;