r8185: convert programlisting to screen

[uffi.git] / doc / ref_aggregate.xml

diff --git a/doc/ref_aggregate.xml b/doc/ref_aggregate.xml
index 75c384f592887aac0a66794b4d1b49f8459b6ebf..5aa86441135946ce540b3f5896fe97622c63b6ee 100644 (file)
--- a/doc/ref_aggregate.xml
+++ b/doc/ref_aggregate.xml
@@ -70,7 +70,7 @@ a foreign type with the name <parameter>name</parameter> of type
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (def-enum abc (:a :b :c)) 
 ;; Creates constants abc#a (1), abc#b (2), abc#c (3) and defines
 ;; the foreign type "abc" to be :int
@@ -78,7 +78,7 @@ a foreign type with the name <parameter>name</parameter> of type
 (def-enum efoo (:e1 (:e2 10) :e3) :separator-string "-")
 ;; Creates constants efoo-e1 (1), efoo-e2 (10), efoo-e3 (11) and defines
 ;; the foreign type efoo to be :int
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>
@@ -138,12 +138,12 @@ structure. It's type is <constant>:pointer-self</constant>.
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (def-struct foo (a :unsigned-int) 
                 (b (* :char)) 
                 (c (:array :int 10)) 
                 (next :pointer-self))
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>
@@ -214,9 +214,9 @@ structure. It's type is <constant>:pointer-self</constant>.
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (get-slot-value foo-ptr 'foo-structure 'field-name)
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>
@@ -287,9 +287,9 @@ structure. It's type is <constant>:pointer-self</constant>.
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (get-slot-pointer foo-ptr 'foo-structure 'my-char-ptr)
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>
@@ -346,9 +346,9 @@ structure. It's type is <constant>:pointer-self</constant>.
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (def-array-pointer byte-array-pointer :unsigned-char)
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>
@@ -420,14 +420,14 @@ the array.
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (def-array-pointer ca :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>Notes</title>
@@ -491,7 +491,7 @@ the array.
       </refsect1>
       <refsect1>
        <title>Examples</title>
-       <programlisting>
+       <screen>
 (def-union test-union
   (a-char :char)
   (an-int :int))
@@ -502,7 +502,7 @@ the array.
     (ensure-char-character (get-slot-value u 'test-union 'a-char))
     (free-foreign-object u)))
 => #\A
-       </programlisting>
+       </screen>
       </refsect1>
       <refsect1>
        <title>Side Effects</title>