format-documentation.lisp 2.03 KB
Newer Older
1
;;
2
;; Copyright 2002-2011 Genworks International 
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;; 
;; This source file 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
;; Affero General Public License for more details.
;; 
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file.  If not, see
;; <http://www.gnu.org/licenses/>.
;;

(in-package :yadd)


(define-object format-doc (doc-links-mixin)
  
  :computed-slots
  ((heading "Object Definitions")
   (part-type 'format-dokumentation)
   (symbols (remove-duplicates
             (let (result (package-object (the :package-object)))
               (do-symbols (symbol (the :package) (sort (nreverse result) #'string< :key #'symbol-name))
                 (when (and (eql (symbol-package symbol) package-object)
                            (typep symbol 'gdl-format-symbol)
                            (gdl::gdl-documentation (find-class symbol)))
                   (push symbol result))))))
   
   (symbols-external (remove-duplicates
                      (let (result (package-object (the :package-object)))
                        (do-external-symbols (symbol (the :package) 
                                               (sort (nreverse result) #'string< :key #'symbol-name))
                          (when (and (eql (symbol-package symbol) package-object)
                                     (typep symbol 'gdl-format-symbol)
                                     (gdl::gdl-documentation (find-class symbol)))
                            (push symbol result))))))))