X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=doc%2Fref_declare.xml;h=9c3f90292be87e6db02ce53e1c5174b5a36805d7;hb=cc7b3da48f78a00cf62737f447ef9fe05a79bc37;hp=756ed870e481660fd44d4f15f8c83526aa23aa9d;hpb=6be0cb84dd1fc6a0ae9410f7ccdc34ac21ae4377;p=uffi.git

diff --git a/doc/ref_declare.xml b/doc/ref_declare.xml
index 756ed87..9c3f902 100644
--- a/doc/ref_declare.xml
+++ b/doc/ref_declare.xml
@@ -1,13 +1,13 @@
-<?xml version='1.0' ?>   <!-- -*- DocBook -*- -->
+<?xml version="1.0" encoding="utf-8"?>
 <!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.2//EN"
-               "file:///usr/share/sgml/docbook/dtd/xml/4.2/docbookx.dtd" [
-<!ENTITY % myents SYSTEM "entities.xml">
+               "http://www.oasis-open.org/docbook/xml/4.2/docbookx.dtd" [
+<!ENTITY % myents SYSTEM "entities.inc">
 %myents;
 ]>
   
 <reference id="ref_declarations">
   <title>Declarations</title>
-
+  
   <partintro>
     <sect1>
       <title>Overview</title>
@@ -19,64 +19,64 @@
     </sect1>
   </partintro>
 
-      <refentry id="def-type">
-	<refnamediv>
-	  <refname>def-type</refname>
-	<refpurpose>Defines a Common Lisp type. 
-	</refpurpose>
-	<refclass>Macro</refclass>
-      </refnamediv>
-      <refsynopsisdiv>
-	<title>Syntax</title>
-	<synopsis>
-	  <function>def-type</function> <replaceable>name type</replaceable>
-	</synopsis>
-      </refsynopsisdiv>
-      <refsect1>
-	<title>Arguments and Values</title>
-	<variablelist>
-	  <varlistentry>
-	    <term><parameter>name</parameter></term>
-	    <listitem>
-	      <para>A symbol naming the type</para>
-	    </listitem>
-	  </varlistentry>
-	  <varlistentry>
-	    <term><parameter>type</parameter></term>
-	    <listitem>
-	      <para>A form that is evaluated that specifies the &uffi; type.
-	      </para>
-	    </listitem>
-	  </varlistentry>
-	</variablelist>
-      </refsect1>
-      <refsect1>
-	<title>Description</title>
-	<para>Defines a Common Lisp type based on a &uffi; type.
-	</para>
-      </refsect1>
-      <refsect1>
-	<title>Examples</title>
-	<programlisting>
+  <refentry id="def-type">
+    <refnamediv>
+      <refname>def-type</refname>
+      <refpurpose>Defines a Common Lisp type. 
+      </refpurpose>
+      <refclass>Macro</refclass>
+    </refnamediv>
+    <refsynopsisdiv>
+      <title>Syntax</title>
+      <synopsis>
+	<function>def-type</function> <replaceable>name type</replaceable>
+      </synopsis>
+    </refsynopsisdiv>
+    <refsect1>
+      <title>Arguments and Values</title>
+      <variablelist>
+	<varlistentry>
+	  <term><parameter>name</parameter></term>
+	  <listitem>
+	    <para>A symbol naming the type</para>
+	  </listitem>
+	</varlistentry>
+	<varlistentry>
+	  <term><parameter>type</parameter></term>
+	  <listitem>
+	    <para>A form that specifies the &uffi; type. It is not evaluated.
+	    </para>
+	  </listitem>
+	</varlistentry>
+      </variablelist>
+    </refsect1>
+    <refsect1>
+      <title>Description</title>
+      <para>Defines a Common Lisp type based on a &uffi; type.
+      </para>
+    </refsect1>
+    <refsect1>
+      <title>Examples</title>
+      <screen>
 (def-type char-ptr '(* :char))
 ...
 (defun foo (ptr)
-  (declare (type char-ptr ptr))
-  ...
-	</programlisting>
-      </refsect1>
-      <refsect1>
-	<title>Side Effects</title>
-	<para>Defines a new &cl; type.</para>
-      </refsect1>
-      <refsect1>
-	<title>Affected by</title>
-	<para>None.</para>
-      </refsect1>
-      <refsect1>
-	<title>Exceptional Situations</title>
-	<para>None.</para>
-      </refsect1>
-    </refentry>
-  </reference>
+(declare (type char-ptr ptr))
+...
+      </screen>
+    </refsect1>
+    <refsect1>
+      <title>Side Effects</title>
+      <para>Defines a new &cl; type.</para>
+    </refsect1>
+    <refsect1>
+      <title>Affected by</title>
+      <para>None.</para>
+    </refsect1>
+    <refsect1>
+      <title>Exceptional Situations</title>
+      <para>None.</para>
+    </refsect1>
+  </refentry>
+</reference>