mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 18:14:21 +03:00
89 lines
8.9 KiB
HTML
89 lines
8.9 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
|
|
<html>
|
|
<head>
|
|
<title>3/adj</title>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<meta http-equiv="Content-Language" content="en-gb">
|
|
<link href="inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
|
|
</head>
|
|
<body>
|
|
|
|
<!--Weave of '3/au' generated by 7-->
|
|
<ul class="crumbs"><li><a href="../webs.html">★</a></li><li><a href="index.html">linguistics</a></li><li><a href="index.html#3">Chapter 3: Grammatical Categories I</a></li><li><b>Adjective Usages</b></li></ul><p class="purpose">A lightweight structure to record uses of an adjective, either positively or negatively.</p>
|
|
|
|
<ul class="toc"><li><a href="#SP1">§1. Adjective usages</a></li></ul><hr class="tocbar">
|
|
|
|
<p class="inwebparagraph"><a id="SP1"></a><b>§1. Adjective usages. </b>This really is just an ordered pair of an adjective and a boolean:
|
|
</p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">adjective_usage</span><span class="plain"> {</span>
|
|
<span class="reserved">adjectival_phrase</span><span class="plain"> *</span><span class="identifier">ref_to</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">ref_positive</span><span class="plain">; </span> <span class="comment">used positively?</span>
|
|
<span class="plain">} </span><span class="reserved">adjective_usage</span><span class="plain">;</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The structure adjective_usage is private to this section.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP2"></a><b>§2. </b></p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="reserved">adjective_usage</span><span class="plain"> *</span><span class="functiontext">AdjectiveUsages::new</span><span class="plain">(</span><span class="reserved">adjectival_phrase</span><span class="plain"> *</span><span class="identifier">aph</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">pos</span><span class="plain">) {</span>
|
|
<span class="reserved">adjective_usage</span><span class="plain"> *</span><span class="identifier">au</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">adjective_usage</span><span class="plain">);</span>
|
|
<span class="identifier">au</span><span class="plain">-</span><span class="element">>ref_to</span><span class="plain"> = </span><span class="identifier">aph</span><span class="plain">;</span>
|
|
<span class="identifier">au</span><span class="plain">-</span><span class="element">>ref_positive</span><span class="plain"> = </span><span class="identifier">pos</span><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">au</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">AdjectiveUsages::log</span><span class="plain">(</span><span class="reserved">adjective_usage</span><span class="plain"> *</span><span class="identifier">au</span><span class="plain">) {</span>
|
|
<span class="reserved">adjectival_phrase</span><span class="plain"> *</span><span class="identifier">aph</span><span class="plain"> = </span><span class="functiontext">AdjectiveUsages::get_aph</span><span class="plain">(</span><span class="identifier">au</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">au</span><span class="plain">-</span><span class="element">>ref_positive</span><span class="plain"> == </span><span class="identifier">FALSE</span><span class="plain">) </span><span class="identifier">LOG</span><span class="plain">(</span><span class="string">"~"</span><span class="plain">);</span>
|
|
<span class="identifier">wording</span><span class="plain"> </span><span class="identifier">W</span><span class="plain"> = </span><span class="functiontext">Adjectives::get_text</span><span class="plain">(</span><span class="identifier">aph</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">);</span>
|
|
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"<adj:%W>"</span><span class="plain">, </span><span class="identifier">W</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">adjective_usage</span><span class="plain"> *</span><span class="functiontext">AdjectiveUsages::copy</span><span class="plain">(</span><span class="reserved">adjective_usage</span><span class="plain"> *</span><span class="identifier">au_from</span><span class="plain">) {</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">AdjectiveUsages::new</span><span class="plain">(</span><span class="identifier">au_from</span><span class="plain">-</span><span class="element">>ref_to</span><span class="plain">, </span><span class="identifier">au_from</span><span class="plain">-</span><span class="element">>ref_positive</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">adjectival_phrase</span><span class="plain"> *</span><span class="functiontext">AdjectiveUsages::get_aph</span><span class="plain">(</span><span class="reserved">adjective_usage</span><span class="plain"> *</span><span class="identifier">au</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">au</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">au</span><span class="plain">-</span><span class="element">>ref_to</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">AdjectiveUsages::get_parity</span><span class="plain">(</span><span class="reserved">adjective_usage</span><span class="plain"> *</span><span class="identifier">au</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">au</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"null adjective tested for positivity"</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">au</span><span class="plain">-</span><span class="element">>ref_positive</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">AdjectiveUsages::flip_parity</span><span class="plain">(</span><span class="reserved">adjective_usage</span><span class="plain"> *</span><span class="identifier">au</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">au</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"null adjective flipped"</span><span class="plain">);</span>
|
|
<span class="identifier">au</span><span class="plain">-</span><span class="element">>ref_positive</span><span class="plain"> = (</span><span class="identifier">au</span><span class="plain">-</span><span class="element">>ref_positive</span><span class="plain">)?</span><span class="identifier">FALSE</span><span class="plain">:</span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function AdjectiveUsages::new appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function AdjectiveUsages::log appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function AdjectiveUsages::copy appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function AdjectiveUsages::get_aph appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function AdjectiveUsages::get_parity appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function AdjectiveUsages::flip_parity appears nowhere else.</p>
|
|
|
|
<hr class="tocbar">
|
|
<ul class="toc"><li><a href="3-adj.html">Back to 'Adjectives'</a></li><li><a href="3-nns.html">Continue with 'Nouns'</a></li></ul><hr class="tocbar">
|
|
<!--End of weave-->
|
|
</body>
|
|
</html>
|
|
|