X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=doc%2Fref_primitive.xml;h=eed908c0bdb8bc8e7f4e8607acdff6ec37f16137;hb=7bc8076c608cf524926c58d163ced35ede4bc210;hp=ca9d77e306d0698da4e80205cc7fdcba73150ebf;hpb=4536279431c3b1dda383ae4ddb5c68cc6377b456;p=uffi.git

diff --git a/doc/ref_primitive.xml b/doc/ref_primitive.xml
index ca9d77e..eed908c 100644
--- a/doc/ref_primitive.xml
+++ b/doc/ref_primitive.xml
@@ -1,6 +1,6 @@
-<?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" [
+               "http://www.oasis-open.org/docbook/xml/4.2/docbookx.dtd" [
 <!ENTITY % myents SYSTEM "entities.xml">
 %myents;
 ]>
@@ -126,10 +126,10 @@
     </refsect1>
     <refsect1>
       <title>Examples</title>
-      <programlisting>
+      <screen>
 (def-constant pi2 (* 2 pi))
 (def-constant exported-pi2 (* 2 pi) :export t)
-      </programlisting>
+      </screen>
     </refsect1>
     <refsect1>
       <title>Side Effects</title>
@@ -185,11 +185,11 @@
     </refsect1>
     <refsect1>
       <title>Examples</title>
-      <programlisting>
+      <screen>
 (def-foreign-type my-generic-pointer :pointer-void)
 (def-foreign-type a-double-float :double-float)
 (def-foreign-type char-ptr (* :char))
-      </programlisting>
+      </screen>
     </refsect1>
     <refsect1>
       <title>Side Effects</title>
@@ -253,14 +253,14 @@
     </refsect1>
     <refsect1>
       <title>Examples</title>
-      <programlisting>
+      <screen>
 (def-array-pointer ca :unsigned-char)
 (let ((fs (convert-to-foreign-string "ab")))
       (values (null-char-p (deref-array fs 'ca 0))
       (null-char-p (deref-array fs 'ca 2))))
 => &nil;
    &t;
-      </programlisting>
+      </screen>
     </refsect1>
     <refsect1>
       <title>Side Effects</title>