/usr/share/doc/cl-uffi/html/def-union.html is in cl-uffi 2.1.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | <?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>def-union</title><meta name="generator" content="DocBook XSL Stylesheets V1.75.2" /><link rel="home" href="index.html" title="UFFI Reference Guide" /><link rel="up" href="aggregates.html" title="Aggregate Types" /><link rel="prev" href="deref-array.html" title="deref-array" /><link rel="next" href="objects.html" title="Objects" /></head><body><div class="navheader"><table width="100%" summary="Navigation header"><tr><th colspan="3" align="center">def-union</th></tr><tr><td width="20%" align="left"><a accesskey="p" href="deref-array.html">Prev</a> </td><th width="60%" align="center">Aggregate Types</th><td width="20%" align="right"> <a accesskey="n" href="objects.html">Next</a></td></tr></table><hr /></div><div class="refentry" title="def-union"><a id="def-union"></a><div class="titlepage"></div><div class="refnamediv"><h2>Name</h2><p>def-union — Defines a foreign union type.
<b>Macro</b></p></div><div class="refsynopsisdiv" title="Syntax"><h2>Syntax</h2><pre class="synopsis">
<code class="function">def-union</code> <em class="replaceable"><code>name &rest fields</code></em>
</pre></div><div class="refsect1" title="Arguments and Values"><a id="id405649"></a><h2>Arguments and Values</h2><div class="variablelist"><dl><dt><span class="term"><em class="parameter"><code>name</code></em></span></dt><dd><p>A name of the new union type.
</p></dd><dt><span class="term"><em class="parameter"><code>fields</code></em></span></dt><dd><p>A list of fields of the union.
</p></dd></dl></div></div><div class="refsect1" title="Description"><a id="id405690"></a><h2>Description</h2><p>
Defines a foreign union type.
</p></div><div class="refsect1" title="Examples"><a id="id405700"></a><h2>Examples</h2><pre class="screen">
(def-union test-union
(a-char :char)
(an-int :int))
(let ((u (allocate-foreign-object 'test-union))
(setf (get-slot-value u 'test-union 'an-int) (+ 65 (* 66 256)))
(prog1
(ensure-char-character (get-slot-value u 'test-union 'a-char))
(free-foreign-object u)))
=> #\A
</pre></div><div class="refsect1" title="Side Effects"><a id="id405714"></a><h2>Side Effects</h2><p>Defines a new foreign type.</p></div><div class="refsect1" title="Affected by"><a id="id405724"></a><h2>Affected by</h2><p>None.</p></div><div class="refsect1" title="Exceptional Situations"><a id="id405733"></a><h2>Exceptional Situations</h2><p>None.</p></div></div><div class="navfooter"><hr /><table width="100%" summary="Navigation footer"><tr><td width="40%" align="left"><a accesskey="p" href="deref-array.html">Prev</a> </td><td width="20%" align="center"><a accesskey="u" href="aggregates.html">Up</a></td><td width="40%" align="right"> <a accesskey="n" href="objects.html">Next</a></td></tr><tr><td width="40%" align="left" valign="top">deref-array </td><td width="20%" align="center"><a accesskey="h" href="index.html">Home</a></td><td width="40%" align="right" valign="top"> Objects</td></tr></table></div></body></html>
|