Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Update llib/documentation.l #379

Merged
merged 1 commit into from
Jun 6, 2019
Merged

Update llib/documentation.l #379

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 6 additions & 6 deletions lib/llib/documentation.l
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -49,7 +49,7 @@
ret))))
))

(defun make-arg-string (doc args type)
(defun make-arg-string (doc args)
(let (arg has-key (args-str ""))
(setq *has-key* nil)
(case *output-format*
Expand All @@ -62,7 +62,7 @@
(setq args-str (format nil "~A\\= " args-str) has-key t)
(incf i)
(setq arg (elt args i))
(setq args-str (concatenate string args-str (format nil "~A \\` [~A]" arg type)))))
(setq args-str (concatenate string args-str (format nil "~A \\" arg)))))
)
(:md
(cond ((null doc)
Expand Down Expand Up @@ -102,13 +102,13 @@
(labels ((write-methoddesc (method args doc)
(let (args-str)
(setq doc (make-doc-string doc))
(setq args-str (make-arg-string doc args "method"))
(setq args-str (make-arg-string doc args))
(case *output-format*
(:html
(cond ((null doc)
(format t "~A" (escape-string (format nil "\\metdesc{~A}{~A}{}~%" method args-str))))
(*has-key*
(format t "~A" (escape-string (format nil "\\longdescription{~A}{~A}{~A}~%" method args-str doc))))
(format t "~A" (escape-string (format nil "\\longdescription{method}{~A}{~A}{~%~A}~%" method args-str doc))))
(t
(format t "~A" (escape-string (format nil "\\methoddesc{~A}{~A}{~A}~%" method args-str doc))))))
(:md
Expand Down Expand Up @@ -168,14 +168,14 @@
(format t "{\\footnotesize~%"))
(:md
)))
(setq args-str (make-arg-string doc args "function"))
(setq args-str (make-arg-string doc args))
(setq doc (make-doc-string doc))
(case *output-format*
(:html
(cond ((null doc)
(format t "~A" (escape-string (format nil "\\fundesc{~A}{~A}~%" funcname args-str))))
(*has-key*
(format t "~A" (escape-string (format nil "\\longdescription{~A}{~A}{~A}~%" funcname args-str doc))))
(format t "~A" (escape-string (format nil "\\longdescription{function}{~A}{~A}{~%~A}~%" funcname args-str doc))))
(t
(format t "~A" (escape-string (format nil "\\funcdesc{~A}{~A}{~A}~%" funcname args-str doc))))
))
Expand Down