;       Saturday  Oct 30,1982  21:57  FQ+6D.6H.58M.41S.  -*- Lisp -*-

;All my own things:
(load '((nilman) bolio))

(load '((nilman) looptm nil))

(putprop 'true
         (putprop 'truth (string '|/3t/*|) 'just-value)
         'just-value)
(putprop 'false (string '|/3nil/*|) 'just-value)


(setq index-in-small-font t)


(setq just-inline-requests? t)

(standard-manual-sectionization)

(or (assoc #/* xerox-special-character-ligatures)
    (rplacd xerox-special-character-ligatures
	    (sortcar (cons (cons #/* (boole 7 (lsh 7 9) #/*))
			   (cdr xerox-special-character-ligatures))
		     #'<)))

(setq sorted-trailing-listings
      '(concept-index flavor-index message-index keyword-index
	initoption-index resource-index variable-index function-index))
(setq print-summary-table-of-contents t)
(setq index-page-number-alignment ':flush-left)

(deflisting concept-index
  (:type :index
     (:package-prefix-mode :normal)
     (:leading-between-initial-letters 150.))
  (:columns 2))

(deflisting function-index
  (:type :index
	 (:package-prefix-mode :twice)
	 (:leading-between-initial-letters 150.))
  (:title "Function, Macro, and Special Form Index"))

(deflisting variable-index
  (:type :index (:package-prefix-mode :twice)
	 (:leading-between-initial-letters 150.))
  (:title "Variable and Constant Index")
  (:columns 2))

(deflisting keyword-index
  (:type :index (:package-prefix-mode :by-pname)
	 (:leading-between-initial-letters 150.))
  (:columns 2))

(deflisting message-index
  (:type :index (:package-prefix-mode :by-pname)
	 (:leading-between-initial-letters 150.))
  (:title |Message Index|))

(deflisting initoption-index
  (:type :index (:leading-between-initial-letters 150.))
  (:title |Object Creation Options|))

(deflisting resource-index
  (:type :index
      (:package-prefix-mode :twice)
      (:leading-between-initial-letters 150.))
  (:title "Resource Index"))

(deflisting flavor-index
  (:type :index )
  (:title |Flavor Index|))

(SETQ INHIBIT-AUTOMAGIC-SECOND-PASS 'ASK)

;Control the style of what .defspec and .defmac do
(SETQ SPECIAL-FORM-MARKER-EXDENTATION 1000.)	;1 inch in from right margin
(SETQ SPECIAL-FORM-MARKER-SPACE 750.)		;At least 3/4 inch between it and template
(SETQ SPECIAL-FORM-MARKER-FONT 2)		;Put it in italics I guess

;For examples

(DEFUN (DEFUN_NO_INDEX REQUEST) ()
  (LET ((FUNCTION-INDEX NIL))
    (DEFUN-REQUEST)))

(DEFUN (DEFSPEC_NO_INDEX REQUEST) ()
  (LET ((FUNCTION-INDEX NIL))
    (DEFSPEC-REQUEST)))

(DEFUN (DEFMAC_NO_INDEX REQUEST) ()
  (LET ((FUNCTION-INDEX NIL))
    (DEFMAC-REQUEST)))

(DEFUN (DEFVAR_NO_INDEX REQUEST) ()
  (LET ((VARIABLE-INDEX NIL))
    (DEFVAR-REQUEST)))

(DEFUN (DEFMETHOD_NO_INDEX REQUEST) ()
  (LET ((MESSAGE-INDEX NIL))
    (DEFMETHOD-REQUEST)))

;Characters that make it difficult to edit the file on the Lisp machine
(PUTPROP 'CTL-M (TO-STRING '(21 15)) 'JUST-VALUE)	;^Q so JIN-MORE doesn't discard
(PUTPROP 'CTL-H (TO-STRING '(21 10)) 'JUST-VALUE)
(PUTPROP 'CTL-QM (TO-STRING '(177)) 'JUST-VALUE)

(defun defstruct-type-request ()
  (check-env 'text 'defstruct_type)
  (or (need-space-mills 1000.) ;1 inch
      (output-leading-mills defun-pre-leading))
  (check-font-status 1)
  (let ((environment-type 'defstruct-type)
	(extra-left-indent-first-line-of-paragraph 0)
	(type-name (get-word-string))
	(gubble (get-line-string)))
    (cond ((not gubble)
	     (fbarf "No implementation string specified in .DEFSTRUCT_TYPE ~A"
		    (make-symbol type-name))
	     (just-string '|All Implementations|)))
    (flush-request-line)
    (or type-name (barf '|Type name missing in .DEFSTRUCT_TYPE|))
    (auto-setq type-name '|defstruct-type|)
    (setq cur-hpos 0)
    (let ((jin-cur-font 3))
      (set-hpos left-margin)
      (put-string-flush-left type-name)
      ;(setq jin-cur-font 2)
      ;(put-string-flush-right gubble right-margin)
      (defun-line-proc-newline))
    (let ((left-indent (convert-mills 1000.)))
      (*catch 'defstruct-type (main-loop)))))

(defprop defstruct_type defstruct-type-request request)

(defun end-defstruct-type-request ()
  (check-env 'defstruct-type 'end_defstruct_type)
  (check-font-status 1)
  (*throw 'defstruct-type nil))

(defprop end_defstruct_type end-defstruct-type-request request)


(setq bottom-heading-vpos 10250.)

(SSTATUS UUOLINKS)

