oxmc/libgtop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added information about struct fields.

Browse Source
This commit is contained in:
Martin Baulig
1998-05-22 23:56:06 +00:00
parent 29ba1a484b
commit 7cd525974a
1 changed files with 43 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
guile/make-docbook.scm
View File

@@ -53,12 +53,17 @@
description "\n" description "\n"
"</literallayout>\n</blockquote>\n\n") "</literallayout>\n</blockquote>\n\n")
) )
(definition-start-string (definition-start-string
(string "<para>Automatically generated declaration of " (string "<para>Automatically generated declaration of "
"<structname>_glibtop_" feature "</structname>:\n\n") "<structname>_glibtop_" feature "</structname>:\n\n")
) )
(param-description-start-string
(string "<para>Automatically generated descriptions of "
"<structname>_glibtop_" feature "</structname>:\n\n")
)
(funcsynopsisinfo-string (funcsynopsisinfo-string
(string "<funcsynopsisinfo>\n" (string "<funcsynopsisinfo>\n"
"#include &lt;glibtop.h&gt;\n" "#include &lt;glibtop.h&gt;\n"
@@ -133,7 +138,7 @@
) )
(comment (string (if (= pos 1) "" "\t") "/* " (comment (string (if (= pos 1) "" "\t") "/* "
(tab-pad-string (tab-pad-string
(field-name-constant name (car x)) 3) (field-name-constant name (car x)) 4)
" */")) " */"))
(field (tab-pad-string (field (tab-pad-string
(string-append (string (car x)) sep) 2)) (string-append (string (car x)) sep) 2))
@@ -217,8 +222,39 @@
) )
) )
) )
)
(make-param-description
(lambda ()
(let* ((label-list labels)
(description-list descriptions)
(output (string))
)
(for-each
(lambda (name)
(let* ((label (car label-list))
(description (car description-list))
)
(set! label-list (cdr label-list))
(set! description-list (cdr description-list))
(set! output
(string-append output
(string "<varlistentry>\n"
"<term><parameter>"
name
"</parameter></term>\n\n"
"<listitem>\n<para>\n"
description "\n\n")
)
)
)
)
names)
output)
)
)
)
(set! decl-list (assoc-set! decl-list "name" name)) (set! decl-list (assoc-set! decl-list "name" name))
(set! decl-list (assoc-set! decl-list "label" label)) (set! decl-list (assoc-set! decl-list "label" label))
(set! decl-list (assoc-set! decl-list "fields" (init-field-list))) (set! decl-list (assoc-set! decl-list "fields" (init-field-list)))
@@ -239,6 +275,10 @@
(string "<blockquote>\n<literallayout>\n") (string "<blockquote>\n<literallayout>\n")
(make-struct decl-list) (make-struct decl-list)
(string "</literallayout>\n</blockquote>\n") (string "</literallayout>\n</blockquote>\n")
param-description-start-string
"<variablelist>\n\n"
(make-param-description)
"</variablelist>\n\n"
) )
) )
) )