*** empty log message ***

ChangeLog

@@ -1,3 +1,9 @@
+1998-05-23  Martin Baulig  <martin@home-of-linux.org>
+
+	* configure.in (CFLAGS): added -D_IN_LIBGTOP
+
+	* */Makefile.am (INCLUDES): removed -I$(includedir).
+
 1998-05-22  Martin Baulig  <martin@home-of-linux.org>
 
 	* doc/{libgtop-ref.sgml, libgtop-ref.dsl}: New files.

doc/.cvsignore

@@ -16,6 +16,7 @@ libgtop-4.shtml
 libgtop-5.shtml
 libgtop-INDEX.shtml
 libgtop-ref
+libgtop-ref.ced
 libgtop.ced
 libgtop.fot
 libgtop.shtml

doc/libgtop-ref.sgml

@@ -17,6 +17,16 @@
 	</affiliation>
       </author>
     </authorgroup>
+    <abstract>
+      <para>
+	<literal>$Id$</literal>
+
+      <para>
+	This reference manual is automatically generated from <filename>doc/make-docbook.scm</filename>.
+	It uses the guile interface of <productname>libgtop</productname> to get the names of all
+	features the library defines and a description of the structures.
+    </abstract>
+
     <copyright>
       <year>1998</year>
       <holder>Martin Baulig</holder>
@@ -49,12 +59,9 @@
 
     </legalnotice>
   </bookinfo>
-
+  
   <toc></toc>
-
-  <chapter id="reference">
-    <title>Function Reference List</title>
-
+  
     &reference.sgml;
 
 </book>

guile/make-docbook.scm

@@ -26,7 +26,7 @@
     )
   )
 
-(define make-docbook
+(define make-function-reference
   (lambda (feature)
     (let* ((names (eval-string (string "(glibtop-names-" feature ")")))
 	   (types (eval-string (string "(glibtop-types-" feature ")")))
@@ -37,7 +37,7 @@
 	   (description (assoc-ref sysdeps 'description))
 	   (descriptions (eval-string (string "(glibtop-descriptions-" feature ")")))
 	   (decl-list '()) (field-list '())
-	   
+
 	   (synopsis-start-string
 	    (string "<para>Automatically generated function synopsis:\n\n"))
 
@@ -299,8 +299,13 @@
 
 (begin
   (make-sysdeps-list)
+
+  (display (string "<chapter id=\"functions\">\n"
+		   "<title>Function Reference List</title>\n\n")
+	   )
+
   (for-each (lambda (x)
-	      (display (make-docbook x))
+	      (display (make-function-reference x))
 	      )
 	    (glibtop-names-sysdeps))
   )