File: api-doc.lisp

package info (click to toggle)
acl2 8.6%2Bdfsg-2
  • links: PTS
  • area: main
  • in suites: trixie
  • size: 1,111,420 kB
  • sloc: lisp: 17,818,294; java: 125,359; python: 28,122; javascript: 23,458; cpp: 18,851; ansic: 11,569; perl: 7,678; xml: 5,591; sh: 3,976; makefile: 3,833; ruby: 2,633; yacc: 1,126; ml: 763; awk: 295; csh: 233; lex: 197; php: 178; tcl: 49; asm: 23; haskell: 17
file content (29 lines) | stat: -rw-r--r-- 1,204 bytes parent folder | download | duplicates (2) 
1
2
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
 
(pushnew "/home/cl/package-doc-dump/" asdf:*central-registry* :test #'equal)
(ql:quickload "package-doc-dump")

(pushnew "/home/cl/cl-plus-ssl/" asdf:*central-registry* :test #'equal)
(ql:quickload "cl+ssl")

;; make sure we load the local version,
;; not the one coming with Quicklisp
(assert (string= "/home/cl/cl-plus-ssl/src/package.lisp"
                 (namestring 
                  (asdf:system-relative-pathname "cl+ssl"
                                                 "src/package.lisp"))))

(package-doc-dump:dump-html
 "cl+ssl"
 (mapcar (lambda (path)
           (asdf:system-relative-pathname "cl+ssl"
                                          path))
         '("src/config.lisp"
           "src/package.lisp"))
 ;; Remove the implementation of cl+ssl:stream-fd,
 ;; like on CCL `stream-fd ((stream ccl::basic-stream))`,
 ;; so only the generic function reamins.
 :doc-node-filter (lambda (doc-node)
                    (not (and (typep doc-node
                                     'docparser:method-node)
                              (string-equal (docparser:node-name doc-node)
                                            "stream-fd"))))
 :output-file "/home/cl/cl-plus-ssl-api.html")