;;; -*- Mode:Common-Lisp; Package:User; Base:10; Fonts: cptfont,HL12,HL12BI,cptfontb -*-

;;;                           RESTRICTED RIGHTS LEGEND

;;;Use, duplication, or disclosure by the Government is subject to
;;;restrictions as set forth in subdivision (c)(1)(ii) of the Rights in
;;;Technical Data and Computer Software clause at 52.227-7013.
;;;
;;;                     TEXAS INSTRUMENTS INCORPORATED.
;;;                              P.O. BOX 2909
;;;                           AUSTIN, TEXAS 78769
;;;                                 MS 2151
;;;
;;; Copyright (C) 1987-1989 Texas Instruments Incorporated. All rights reserved.


Ï1;;;Ï*	Ï2Cross-reference and documentation utility.

Ï1;Version:
;  7/22/87 DNG - Original.
;  8/27/87 DNG - Change file names to lower case for System V.  Fix to not get Ï*Ï*
;		Ï1error in Ï*fdefineÏ1 if this file is loaded a second time.
;  9/17/87 DNG - Added file Ï*"unused"Ï1.
; 10/24/87 DNG - Export Ï*unused-in-fileÏ1 .
; 11/24/87 DNG - Export Ï*inverse-treeÏ1 .
; 12/02/87 DNG - Export Ï*show-forestÏ1 .
; 12/17/87 DNG - Display reference to the instructions file when this is loaded.
;  1/30/88 DNG - New function Ï*cross-referenceÏ1 .Ï*
;Ï1 3/3/88  Ï* Ï1ab   - Finalize directory name.
; 3/23/88  LS   - Added auxiliary file Ï*walker.xldÏ1 so it will be copied with the system.
; 12/30/88 DNG - Export new function Ï*document-classÏ1.
;  1/18/89 DNG - Export Ï*document-slotÏ1 and Ï**record-who-calls-info-p*Ï1 .Ï*

(IN-PACKAGE "DOC" :USE '("LISP" "TICL"))

(eval-when (eval compile load)
doc:
(defparameter doc-externals '(calls-who cross-reference
	  document-function document-variable document-flavor document-type document-keyword 
	  document-package document-file document-system document-class document-slot
          document  unused-in-package unused-in-file
	  build-xref-table dump-xref-table erase-xref-table
	  show-call-tree show-forest inverse-tree *record-who-calls-info-p*)
  Ï1"User-callable functions in the Ï*DOCÏ1 package."Ï*) )

(export doc:doc-externals "DOC")
(dolist (x doc:doc-externals)
  (let ((u (find-symbol (symbol-name x) *user-package*)))
    (if u
	(unless (eq u x)
	  (fdefine u x t))
      (import x *user-package*))))

(DEFSYSTEM DOCUMENTER
  (:NAME "Documenter")
  (:PATHNAME-DEFAULT "sys:documenter;")
  (:PATCHABLE "sys:patch.documenter;" patch)
  (:WARNINGS-PATHNAME-DEFAULT "SYS:CWARNS;documenter.LISP")
  
  (:MODULE DEFS ("docdefs"))	Ï1; global variables and macros, xref-tableÏ*
  (:MODULE MAIN (
		 "find"		Ï1; Ï3find-things-used-by-...Ï*Ï*
		 "document"	Ï1; Ï3document-...Ï* functionsÏ*
		 "format"	Ï1; output display formattingÏ*
		 "xref"		Ï1; Ï3cross-referenceÏ*Ï*
		 "tree"		Ï1;Ï* Ï3show-call-treeÏ*
		 "unused"	Ï1; Ï3unused-in-packageÏ*Ï* Ï1andÏ* Ï3unused-in-fileÏ*
		 ))
  (:MODULE AUX ("walker.xld"))
  (:COMPILE-LOAD DEFS)
  (:COMPILE-LOAD MAIN (:FASLOAD DEFS))
  (:AUXILIARY AUX)
 )





