+;;;; the old documentation extracted / generator for db-sockets / sb-bsd-sockets
+;;;;
+;;;; Not used anymore as the documentation is now integrated into the user manual,
+;;;; but I didn't have heart yet to delete this. -- NS 20040801
+
(eval-when (:load-toplevel :compile-toplevel :execute)
(defpackage :db-doc (:use :cl :asdf #+sbcl :sb-ext #+cmu :ext )))
(in-package :db-doc)
finally (read-char s t nil t))
'string)))
(funcall *standard-sharpsign-reader* s c n))))
- (dolist (c (cclan:all-components 'db-sockets))
+ (dolist (c (cclan:all-components 'sb-bsd-sockets))
(when (and (typep c 'cl-source-file)
- (not (typep c 'db-sockets-system::constants-file)))
+ (not (typep c 'sb-bsd-sockets-system::constants-file)))
(with-open-file (in (component-pathname c) :direction :input)
(do-file in *standard-output*))))))
(defun start ()
(with-open-file (*standard-output* "index.html" :direction :output)
(format t "<html><head><title>SBCL BSD-Sockets API Reference</title></head><body>~%")
- (asdf:operate 'asdf:load-op 'sb-bsd-sockets)
- (document-system 'sb-bsd-sockets :package :sb-bsd-sockets)))
+ (format t
+"<!--
+ This is a machine-generated file (from SB-BSD-SOCKETS source code, massaged
+ by doc.lisp), so do not edit it directly.
+ -->
+")
+ (asdf:operate 'asdf:load-op 'sb-bsd-sockets)
+ (document-system 'sb-bsd-sockets :package :sb-bsd-sockets)))
(start)