--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Symbian3/Examples/guid-6013a680-57f9-415b-8851-c4fa63356636/_u_n_i_t_s_8_c_source.html Tue Mar 30 16:16:55 2010 +0100
@@ -0,0 +1,723 @@
+<!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/xhtml;charset=UTF-8"/>
+<title>TB9.2 Example Applications: examples/Stdlib/ConsoleApp/UNITS.C Source File</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<link href="doxygen.css" rel="stylesheet" type="text/css"/>
+</head>
+<body>
+<!-- Generated by Doxygen 1.6.2 -->
+<h1>examples/Stdlib/ConsoleApp/UNITS.C</h1><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">// UNITS.C</span>
+<a name="l00002"></a>00002 <span class="comment">//</span>
+<a name="l00003"></a>00003 <span class="comment">// Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).</span>
+<a name="l00004"></a>00004 <span class="comment">// All rights reserved.</span>
+<a name="l00005"></a>00005 <span class="comment">// This component and the accompanying materials are made available</span>
+<a name="l00006"></a>00006 <span class="comment">// under the terms of "Eclipse Public License v1.0"</span>
+<a name="l00007"></a>00007 <span class="comment">// which accompanies this distribution, and is available</span>
+<a name="l00008"></a>00008 <span class="comment">// at the URL "http://www.eclipse.org/legal/epl-v10.html".</span>
+<a name="l00009"></a>00009 <span class="comment">//</span>
+<a name="l00010"></a>00010 <span class="comment">// Initial Contributors:</span>
+<a name="l00011"></a>00011 <span class="comment">// Nokia Corporation - initial contribution.</span>
+<a name="l00012"></a>00012 <span class="comment">//</span>
+<a name="l00013"></a>00013 <span class="comment">// Contributors:</span>
+<a name="l00014"></a>00014 <span class="comment">//</span>
+<a name="l00015"></a>00015 <span class="comment">// Description:</span>
+<a name="l00016"></a>00016 <span class="comment">//</span>
+<a name="l00017"></a>00017
+<a name="l00018"></a>00018 <span class="preprocessor">#include <ctype.h></span>
+<a name="l00019"></a>00019 <span class="preprocessor">#include <stdio.h></span>
+<a name="l00020"></a>00020 <span class="preprocessor">#include <string.h></span>
+<a name="l00021"></a>00021 <span class="preprocessor">#include <stdlib.h></span>
+<a name="l00022"></a>00022
+<a name="l00023"></a>00023 <span class="preprocessor">#include "PATHNAME.H"</span>
+<a name="l00024"></a>00024
+<a name="l00025"></a>00025 <span class="preprocessor">#define VERSION "1.0"</span>
+<a name="l00026"></a>00026 <span class="preprocessor"></span>
+<a name="l00027"></a>00027 <span class="preprocessor">#ifndef UNITSFILE</span>
+<a name="l00028"></a>00028 <span class="preprocessor"></span><span class="preprocessor">#define UNITSFILE _PATH_UNITSLIB</span>
+<a name="l00029"></a>00029 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
+<a name="l00030"></a>00030 <span class="preprocessor"></span>
+<a name="l00031"></a>00031 <span class="preprocessor">#define MAXUNITS 1000</span>
+<a name="l00032"></a>00032 <span class="preprocessor"></span><span class="preprocessor">#define MAXPREFIXES 50</span>
+<a name="l00033"></a>00033 <span class="preprocessor"></span><span class="preprocessor">#define MAXSUBUNITS 500</span>
+<a name="l00034"></a>00034 <span class="preprocessor"></span>
+<a name="l00035"></a>00035 <span class="preprocessor">#define PRIMITIVECHAR '!'</span>
+<a name="l00036"></a>00036 <span class="preprocessor"></span>
+<a name="l00037"></a>00037 <span class="keywordtype">char</span> *powerstring = <span class="stringliteral">"^"</span>;
+<a name="l00038"></a>00038
+<a name="l00039"></a>00039 <span class="keyword">struct </span>{
+<a name="l00040"></a>00040 <span class="keywordtype">char</span> *uname;
+<a name="l00041"></a>00041 <span class="keywordtype">char</span> *uval;
+<a name="l00042"></a>00042 } unittable[MAXUNITS];
+<a name="l00043"></a>00043
+<a name="l00044"></a>00044 <span class="keyword">struct </span>unittype {
+<a name="l00045"></a>00045 <span class="keywordtype">char</span> *numerator[225]; <span class="comment">// was [MAXSUBUNITS]</span>
+<a name="l00046"></a>00046 <span class="keywordtype">char</span> *denominator[225]; <span class="comment">// was [MAXSUBUNITS]</span>
+<a name="l00047"></a>00047 <span class="keywordtype">double</span> factor;
+<a name="l00048"></a>00048 };
+<a name="l00049"></a>00049
+<a name="l00050"></a>00050 <span class="keyword">struct </span>{
+<a name="l00051"></a>00051 <span class="keywordtype">char</span> *prefixname;
+<a name="l00052"></a>00052 <span class="keywordtype">char</span> *prefixval;
+<a name="l00053"></a>00053 } prefixtable[MAXPREFIXES];
+<a name="l00054"></a>00054
+<a name="l00055"></a>00055
+<a name="l00056"></a>00056 <span class="keywordtype">char</span> *NULLUNIT = <span class="stringliteral">""</span>;
+<a name="l00057"></a>00057
+<a name="l00058"></a>00058 <span class="keywordtype">int</span> unitcount;
+<a name="l00059"></a>00059 <span class="keywordtype">int</span> prefixcount;
+<a name="l00060"></a>00060
+<a name="l00061"></a>00061
+<a name="l00062"></a>00062 <span class="keywordtype">char</span> *
+<a name="l00063"></a>00063 dupstr(<span class="keywordtype">char</span> *str)
+<a name="l00064"></a>00064 {
+<a name="l00065"></a>00065 <span class="keywordtype">char</span> *ret;
+<a name="l00066"></a>00066
+<a name="l00067"></a>00067 ret = (<span class="keywordtype">char</span> *)malloc(strlen(str) + 1);
+<a name="l00068"></a>00068 <span class="keywordflow">if</span> (!ret) {
+<a name="l00069"></a>00069 fprintf(stderr, <span class="stringliteral">"Memory allocation error\n"</span>);
+<a name="l00070"></a>00070 exit(3);
+<a name="l00071"></a>00071 }
+<a name="l00072"></a>00072 strcpy(ret, str);
+<a name="l00073"></a>00073 <span class="keywordflow">return</span> (ret);
+<a name="l00074"></a>00074 }
+<a name="l00075"></a>00075
+<a name="l00076"></a>00076
+<a name="l00077"></a>00077 <span class="keywordtype">void</span>
+<a name="l00078"></a>00078 readerror(<span class="keywordtype">int</span> linenum)
+<a name="l00079"></a>00079 {
+<a name="l00080"></a>00080 fprintf(stderr, <span class="stringliteral">"Error in units file '%s' line %d\n"</span>, UNITSFILE,
+<a name="l00081"></a>00081 linenum);
+<a name="l00082"></a>00082 }
+<a name="l00083"></a>00083
+<a name="l00084"></a>00084
+<a name="l00085"></a>00085 <span class="keywordtype">void</span>
+<a name="l00086"></a>00086 readunits(<span class="keywordtype">char</span> *userfile)
+<a name="l00087"></a>00087 {
+<a name="l00088"></a>00088 FILE *unitfile;
+<a name="l00089"></a>00089 <span class="keywordtype">char</span> line[80], *lineptr;
+<a name="l00090"></a>00090 <span class="keywordtype">int</span> len, linenum, i;
+<a name="l00091"></a>00091
+<a name="l00092"></a>00092 unitcount = 0;
+<a name="l00093"></a>00093 linenum = 0;
+<a name="l00094"></a>00094
+<a name="l00095"></a>00095 <span class="keywordflow">if</span> (userfile) {
+<a name="l00096"></a>00096 unitfile = fopen(userfile, <span class="stringliteral">"rt"</span>);
+<a name="l00097"></a>00097 <span class="keywordflow">if</span> (!unitfile) {
+<a name="l00098"></a>00098 fprintf(stderr, <span class="stringliteral">"Unable to open units file '%s'\n"</span>,
+<a name="l00099"></a>00099 userfile);
+<a name="l00100"></a>00100 exit(1);
+<a name="l00101"></a>00101 }
+<a name="l00102"></a>00102 }
+<a name="l00103"></a>00103 <span class="keywordflow">else</span> {
+<a name="l00104"></a>00104 unitfile = fopen(UNITSFILE, <span class="stringliteral">"rt"</span>);
+<a name="l00105"></a>00105 <span class="keywordflow">if</span> (!unitfile) {
+<a name="l00106"></a>00106 <span class="keywordtype">char</span> *direc, *env;
+<a name="l00107"></a>00107 <span class="keywordtype">char</span> filename[1000];
+<a name="l00108"></a>00108 <span class="keywordtype">char</span> separator[2];
+<a name="l00109"></a>00109
+<a name="l00110"></a>00110 env = getenv(<span class="stringliteral">"PATH"</span>);
+<a name="l00111"></a>00111 <span class="keywordflow">if</span> (env) {
+<a name="l00112"></a>00112 <span class="keywordflow">if</span> (strchr(env, <span class="charliteral">';'</span>))
+<a name="l00113"></a>00113 strcpy(separator, <span class="stringliteral">";"</span>);
+<a name="l00114"></a>00114 <span class="keywordflow">else</span>
+<a name="l00115"></a>00115 strcpy(separator, <span class="stringliteral">":"</span>);
+<a name="l00116"></a>00116 direc = strtok(env, separator);
+<a name="l00117"></a>00117 <span class="keywordflow">while</span> (direc) {
+<a name="l00118"></a>00118 strcpy(filename, <span class="stringliteral">""</span>);
+<a name="l00119"></a>00119 strncat(filename, direc, 999);
+<a name="l00120"></a>00120 strncat(filename, <span class="stringliteral">"/"</span>,
+<a name="l00121"></a>00121 999 - strlen(filename));
+<a name="l00122"></a>00122 strncat(filename, UNITSFILE,
+<a name="l00123"></a>00123 999 - strlen(filename));
+<a name="l00124"></a>00124 unitfile = fopen(filename, <span class="stringliteral">"rt"</span>);
+<a name="l00125"></a>00125 <span class="keywordflow">if</span> (unitfile)
+<a name="l00126"></a>00126 <span class="keywordflow">break</span>;
+<a name="l00127"></a>00127 direc = strtok(NULL, separator);
+<a name="l00128"></a>00128 }
+<a name="l00129"></a>00129 }
+<a name="l00130"></a>00130 <span class="keywordflow">if</span> (!unitfile) {
+<a name="l00131"></a>00131 fprintf(stderr, <span class="stringliteral">"Can't find units file '%s'\n"</span>,
+<a name="l00132"></a>00132 UNITSFILE);
+<a name="l00133"></a>00133 exit(1);
+<a name="l00134"></a>00134 }
+<a name="l00135"></a>00135 }
+<a name="l00136"></a>00136 }
+<a name="l00137"></a>00137 <span class="keywordflow">while</span> (!feof(unitfile)) {
+<a name="l00138"></a>00138 <span class="keywordflow">if</span> (!fgets(line, 79, unitfile))
+<a name="l00139"></a>00139 <span class="keywordflow">break</span>;
+<a name="l00140"></a>00140 linenum++;
+<a name="l00141"></a>00141 lineptr = line;
+<a name="l00142"></a>00142 <span class="keywordflow">if</span> (*lineptr == <span class="charliteral">'/'</span>)
+<a name="l00143"></a>00143 <span class="keywordflow">continue</span>;
+<a name="l00144"></a>00144 lineptr += strspn(lineptr, <span class="stringliteral">" \n\t"</span>);
+<a name="l00145"></a>00145 len = strcspn(lineptr, <span class="stringliteral">" \n\t"</span>);
+<a name="l00146"></a>00146 lineptr[len] = 0;
+<a name="l00147"></a>00147 <span class="keywordflow">if</span> (!strlen(lineptr))
+<a name="l00148"></a>00148 <span class="keywordflow">continue</span>;
+<a name="l00149"></a>00149 <span class="keywordflow">if</span> (lineptr[strlen(lineptr) - 1] == <span class="charliteral">'-'</span>) { <span class="comment">/* it's a prefix */</span>
+<a name="l00150"></a>00150 <span class="keywordflow">if</span> (prefixcount == MAXPREFIXES) {
+<a name="l00151"></a>00151 fprintf(stderr, <span class="stringliteral">"Memory for prefixes exceeded in line %d\n"</span>,
+<a name="l00152"></a>00152 linenum);
+<a name="l00153"></a>00153 <span class="keywordflow">continue</span>;
+<a name="l00154"></a>00154 }
+<a name="l00155"></a>00155 lineptr[strlen(lineptr) - 1] = 0;
+<a name="l00156"></a>00156 prefixtable[prefixcount].prefixname = dupstr(lineptr);
+<a name="l00157"></a>00157 <span class="keywordflow">for</span> (i = 0; i < prefixcount; i++)
+<a name="l00158"></a>00158 <span class="keywordflow">if</span> (!strcmp(prefixtable[i].prefixname, lineptr)) {
+<a name="l00159"></a>00159 fprintf(stderr, <span class="stringliteral">"Redefinition of prefix '%s' on line %d ignored\n"</span>,
+<a name="l00160"></a>00160 lineptr, linenum);
+<a name="l00161"></a>00161 <span class="keywordflow">continue</span>;
+<a name="l00162"></a>00162 }
+<a name="l00163"></a>00163 lineptr += len + 1;
+<a name="l00164"></a>00164 <span class="keywordflow">if</span> (!strlen(lineptr)) {
+<a name="l00165"></a>00165 readerror(linenum);
+<a name="l00166"></a>00166 <span class="keywordflow">continue</span>;
+<a name="l00167"></a>00167 }
+<a name="l00168"></a>00168 lineptr += strspn(lineptr, <span class="stringliteral">" \n\t"</span>);
+<a name="l00169"></a>00169 len = strcspn(lineptr, <span class="stringliteral">"\n\t"</span>);
+<a name="l00170"></a>00170 lineptr[len] = 0;
+<a name="l00171"></a>00171 prefixtable[prefixcount++].prefixval = dupstr(lineptr);
+<a name="l00172"></a>00172 }
+<a name="l00173"></a>00173 <span class="keywordflow">else</span> { <span class="comment">/* it's not a prefix */</span>
+<a name="l00174"></a>00174 <span class="keywordflow">if</span> (unitcount == MAXUNITS) {
+<a name="l00175"></a>00175 fprintf(stderr, <span class="stringliteral">"Memory for units exceeded in line %d\n"</span>,
+<a name="l00176"></a>00176 linenum);
+<a name="l00177"></a>00177 <span class="keywordflow">continue</span>;
+<a name="l00178"></a>00178 }
+<a name="l00179"></a>00179 unittable[unitcount].uname = dupstr(lineptr);
+<a name="l00180"></a>00180 <span class="keywordflow">for</span> (i = 0; i < unitcount; i++)
+<a name="l00181"></a>00181 <span class="keywordflow">if</span> (!strcmp(unittable[i].uname, lineptr)) {
+<a name="l00182"></a>00182 fprintf(stderr, <span class="stringliteral">"Redefinition of unit '%s' on line %d ignored\n"</span>,
+<a name="l00183"></a>00183 lineptr, linenum);
+<a name="l00184"></a>00184 <span class="keywordflow">continue</span>;
+<a name="l00185"></a>00185 }
+<a name="l00186"></a>00186 lineptr += len + 1;
+<a name="l00187"></a>00187 lineptr += strspn(lineptr, <span class="stringliteral">" \n\t"</span>);
+<a name="l00188"></a>00188 <span class="keywordflow">if</span> (!strlen(lineptr)) {
+<a name="l00189"></a>00189 readerror(linenum);
+<a name="l00190"></a>00190 <span class="keywordflow">continue</span>;
+<a name="l00191"></a>00191 }
+<a name="l00192"></a>00192 len = strcspn(lineptr, <span class="stringliteral">"\n\t"</span>);
+<a name="l00193"></a>00193 lineptr[len] = 0;
+<a name="l00194"></a>00194 unittable[unitcount++].uval = dupstr(lineptr);
+<a name="l00195"></a>00195 }
+<a name="l00196"></a>00196 }
+<a name="l00197"></a>00197 fclose(unitfile);
+<a name="l00198"></a>00198 }
+<a name="l00199"></a>00199
+<a name="l00200"></a>00200 <span class="keywordtype">void</span>
+<a name="l00201"></a>00201 initializeunit(<span class="keyword">struct</span> unittype * theunit)
+<a name="l00202"></a>00202 {
+<a name="l00203"></a>00203 theunit->factor = 1.0;
+<a name="l00204"></a>00204 theunit->numerator[0] = theunit->denominator[0] = NULL;
+<a name="l00205"></a>00205 }
+<a name="l00206"></a>00206
+<a name="l00207"></a>00207
+<a name="l00208"></a>00208 <span class="keywordtype">int</span>
+<a name="l00209"></a>00209 addsubunit(<span class="keywordtype">char</span> *product[], <span class="keywordtype">char</span> *toadd)
+<a name="l00210"></a>00210 {
+<a name="l00211"></a>00211 <span class="keywordtype">char</span> **ptr;
+<a name="l00212"></a>00212
+<a name="l00213"></a>00213 <span class="keywordflow">for</span> (ptr = product; *ptr && *ptr != NULLUNIT; ptr++){};
+<a name="l00214"></a>00214 <span class="keywordflow">if</span> (ptr >= product + MAXSUBUNITS) {
+<a name="l00215"></a>00215 fprintf(stderr, <span class="stringliteral">"Memory overflow in unit reduction\n"</span>);
+<a name="l00216"></a>00216 <span class="keywordflow">return</span> 1;
+<a name="l00217"></a>00217 }
+<a name="l00218"></a>00218 <span class="keywordflow">if</span> (!*ptr)
+<a name="l00219"></a>00219 *(ptr + 1) = 0;
+<a name="l00220"></a>00220 *ptr = dupstr(toadd);
+<a name="l00221"></a>00221 <span class="keywordflow">return</span> 0;
+<a name="l00222"></a>00222 }
+<a name="l00223"></a>00223
+<a name="l00224"></a>00224
+<a name="l00225"></a>00225 <span class="keywordtype">void</span>
+<a name="l00226"></a>00226 showunit(<span class="keyword">struct</span> unittype * theunit)
+<a name="l00227"></a>00227 {
+<a name="l00228"></a>00228 <span class="keywordtype">char</span> **ptr;
+<a name="l00229"></a>00229 <span class="keywordtype">int</span> printedslash;
+<a name="l00230"></a>00230 <span class="keywordtype">int</span> counter = 1;
+<a name="l00231"></a>00231
+<a name="l00232"></a>00232 printf(<span class="stringliteral">"\t%.8g"</span>, theunit->factor);
+<a name="l00233"></a>00233 <span class="keywordflow">for</span> (ptr = theunit->numerator; *ptr; ptr++) {
+<a name="l00234"></a>00234 <span class="keywordflow">if</span> (ptr > theunit->numerator && **ptr &&
+<a name="l00235"></a>00235 !strcmp(*ptr, *(ptr - 1)))
+<a name="l00236"></a>00236 counter++;
+<a name="l00237"></a>00237 <span class="keywordflow">else</span> {
+<a name="l00238"></a>00238 <span class="keywordflow">if</span> (counter > 1)
+<a name="l00239"></a>00239 printf(<span class="stringliteral">"%s%d"</span>, powerstring, counter);
+<a name="l00240"></a>00240 <span class="keywordflow">if</span> (**ptr)
+<a name="l00241"></a>00241 printf(<span class="stringliteral">" %s"</span>, *ptr);
+<a name="l00242"></a>00242 counter = 1;
+<a name="l00243"></a>00243 }
+<a name="l00244"></a>00244 }
+<a name="l00245"></a>00245 <span class="keywordflow">if</span> (counter > 1)
+<a name="l00246"></a>00246 printf(<span class="stringliteral">"%s%d"</span>, powerstring, counter);
+<a name="l00247"></a>00247 counter = 1;
+<a name="l00248"></a>00248 printedslash = 0;
+<a name="l00249"></a>00249 <span class="keywordflow">for</span> (ptr = theunit->denominator; *ptr; ptr++) {
+<a name="l00250"></a>00250 <span class="keywordflow">if</span> (ptr > theunit->denominator && **ptr &&
+<a name="l00251"></a>00251 !strcmp(*ptr, *(ptr - 1)))
+<a name="l00252"></a>00252 counter++;
+<a name="l00253"></a>00253 <span class="keywordflow">else</span> {
+<a name="l00254"></a>00254 <span class="keywordflow">if</span> (counter > 1)
+<a name="l00255"></a>00255 printf(<span class="stringliteral">"%s%d"</span>, powerstring, counter);
+<a name="l00256"></a>00256 <span class="keywordflow">if</span> (**ptr) {
+<a name="l00257"></a>00257 <span class="keywordflow">if</span> (!printedslash)
+<a name="l00258"></a>00258 printf(<span class="stringliteral">" /"</span>);
+<a name="l00259"></a>00259 printedslash = 1;
+<a name="l00260"></a>00260 printf(<span class="stringliteral">" %s"</span>, *ptr);
+<a name="l00261"></a>00261 }
+<a name="l00262"></a>00262 counter = 1;
+<a name="l00263"></a>00263 }
+<a name="l00264"></a>00264 }
+<a name="l00265"></a>00265 <span class="keywordflow">if</span> (counter > 1)
+<a name="l00266"></a>00266 printf(<span class="stringliteral">"%s%d"</span>, powerstring, counter);
+<a name="l00267"></a>00267 printf(<span class="stringliteral">"\n"</span>);
+<a name="l00268"></a>00268 }
+<a name="l00269"></a>00269
+<a name="l00270"></a>00270
+<a name="l00271"></a>00271 <span class="keywordtype">void</span>
+<a name="l00272"></a>00272 zeroerror()
+<a name="l00273"></a>00273 {
+<a name="l00274"></a>00274 fprintf(stderr, <span class="stringliteral">"Unit reduces to zero\n"</span>);
+<a name="l00275"></a>00275 }
+<a name="l00276"></a>00276
+<a name="l00277"></a>00277 <span class="comment">/*</span>
+<a name="l00278"></a>00278 <span class="comment"> Adds the specified string to the unit.</span>
+<a name="l00279"></a>00279 <span class="comment"> Flip is 0 for adding normally, 1 for adding reciprocal.</span>
+<a name="l00280"></a>00280 <span class="comment"></span>
+<a name="l00281"></a>00281 <span class="comment"> Returns 0 for successful addition, nonzero on error.</span>
+<a name="l00282"></a>00282 <span class="comment">*/</span>
+<a name="l00283"></a>00283
+<a name="l00284"></a>00284 <span class="keywordtype">int</span>
+<a name="l00285"></a>00285 addunit(<span class="keyword">struct</span> unittype * theunit, <span class="keywordtype">char</span> *toadd, <span class="keywordtype">int</span> flip)
+<a name="l00286"></a>00286 {
+<a name="l00287"></a>00287 <span class="keywordtype">char</span> *scratch, *savescr;
+<a name="l00288"></a>00288 <span class="keywordtype">char</span> *item;
+<a name="l00289"></a>00289 <span class="keywordtype">char</span> *divider, *slash;
+<a name="l00290"></a>00290 <span class="keywordtype">int</span> doingtop;
+<a name="l00291"></a>00291
+<a name="l00292"></a>00292 savescr = scratch = dupstr(toadd);
+<a name="l00293"></a>00293 <span class="keywordflow">for</span> (slash = scratch + 1; *slash; slash++)
+<a name="l00294"></a>00294 <span class="keywordflow">if</span> (*slash == <span class="charliteral">'-'</span> &&
+<a name="l00295"></a>00295 (tolower(*(slash - 1)) != <span class="charliteral">'e'</span> ||
+<a name="l00296"></a>00296 !strchr(<span class="stringliteral">".0123456789"</span>, *(slash + 1))))
+<a name="l00297"></a>00297 *slash = <span class="charliteral">' '</span>;
+<a name="l00298"></a>00298 slash = strchr(scratch, <span class="charliteral">'/'</span>);
+<a name="l00299"></a>00299 <span class="keywordflow">if</span> (slash)
+<a name="l00300"></a>00300 *slash = 0;
+<a name="l00301"></a>00301 doingtop = 1;
+<a name="l00302"></a>00302 <span class="keywordflow">do</span> {
+<a name="l00303"></a>00303 item = strtok(scratch, <span class="stringliteral">" *\t\n/"</span>);
+<a name="l00304"></a>00304 <span class="keywordflow">while</span> (item) {
+<a name="l00305"></a>00305 <span class="keywordflow">if</span> (strchr(<span class="stringliteral">"0123456789."</span>, *item)) { <span class="comment">/* item is a number */</span>
+<a name="l00306"></a>00306 <span class="keywordtype">double</span> num;
+<a name="l00307"></a>00307
+<a name="l00308"></a>00308 divider = strchr(item, <span class="charliteral">'|'</span>);
+<a name="l00309"></a>00309 <span class="keywordflow">if</span> (divider) {
+<a name="l00310"></a>00310 *divider = 0;
+<a name="l00311"></a>00311 num = atof(item);
+<a name="l00312"></a>00312 <span class="keywordflow">if</span> (!num) {
+<a name="l00313"></a>00313 zeroerror();
+<a name="l00314"></a>00314 <span class="keywordflow">return</span> 1;
+<a name="l00315"></a>00315 }
+<a name="l00316"></a>00316 <span class="keywordflow">if</span> (doingtop ^ flip)
+<a name="l00317"></a>00317 theunit->factor *= num;
+<a name="l00318"></a>00318 <span class="keywordflow">else</span>
+<a name="l00319"></a>00319 theunit->factor /= num;
+<a name="l00320"></a>00320 num = atof(divider + 1);
+<a name="l00321"></a>00321 <span class="keywordflow">if</span> (!num) {
+<a name="l00322"></a>00322 zeroerror();
+<a name="l00323"></a>00323 <span class="keywordflow">return</span> 1;
+<a name="l00324"></a>00324 }
+<a name="l00325"></a>00325 <span class="keywordflow">if</span> (doingtop ^ flip)
+<a name="l00326"></a>00326 theunit->factor /= num;
+<a name="l00327"></a>00327 <span class="keywordflow">else</span>
+<a name="l00328"></a>00328 theunit->factor *= num;
+<a name="l00329"></a>00329 }
+<a name="l00330"></a>00330 <span class="keywordflow">else</span> {
+<a name="l00331"></a>00331 num = atof(item);
+<a name="l00332"></a>00332 <span class="keywordflow">if</span> (!num) {
+<a name="l00333"></a>00333 zeroerror();
+<a name="l00334"></a>00334 <span class="keywordflow">return</span> 1;
+<a name="l00335"></a>00335 }
+<a name="l00336"></a>00336 <span class="keywordflow">if</span> (doingtop ^ flip)
+<a name="l00337"></a>00337 theunit->factor *= num;
+<a name="l00338"></a>00338 <span class="keywordflow">else</span>
+<a name="l00339"></a>00339 theunit->factor /= num;
+<a name="l00340"></a>00340
+<a name="l00341"></a>00341 }
+<a name="l00342"></a>00342 }
+<a name="l00343"></a>00343 <span class="keywordflow">else</span> { <span class="comment">/* item is not a number */</span>
+<a name="l00344"></a>00344 <span class="keywordtype">int</span> repeat = 1;
+<a name="l00345"></a>00345
+<a name="l00346"></a>00346 <span class="keywordflow">if</span> (strchr(<span class="stringliteral">"23456789"</span>,
+<a name="l00347"></a>00347 item[strlen(item) - 1])) {
+<a name="l00348"></a>00348 repeat = item[strlen(item) - 1] - <span class="charliteral">'0'</span>;
+<a name="l00349"></a>00349 item[strlen(item) - 1] = 0;
+<a name="l00350"></a>00350 }
+<a name="l00351"></a>00351 <span class="keywordflow">for</span> (; repeat; repeat--)
+<a name="l00352"></a>00352 <span class="keywordflow">if</span> (addsubunit(doingtop ^ flip ? theunit->numerator : theunit->denominator, item))
+<a name="l00353"></a>00353 <span class="keywordflow">return</span> 1;
+<a name="l00354"></a>00354 }
+<a name="l00355"></a>00355 item = strtok(NULL, <span class="stringliteral">" *\t/\n"</span>);
+<a name="l00356"></a>00356 }
+<a name="l00357"></a>00357 doingtop--;
+<a name="l00358"></a>00358 <span class="keywordflow">if</span> (slash) {
+<a name="l00359"></a>00359 scratch = slash + 1;
+<a name="l00360"></a>00360 }
+<a name="l00361"></a>00361 <span class="keywordflow">else</span>
+<a name="l00362"></a>00362 doingtop--;
+<a name="l00363"></a>00363 } <span class="keywordflow">while</span> (doingtop >= 0);
+<a name="l00364"></a>00364 free(savescr);
+<a name="l00365"></a>00365 <span class="keywordflow">return</span> 0;
+<a name="l00366"></a>00366 }
+<a name="l00367"></a>00367
+<a name="l00368"></a>00368
+<a name="l00369"></a>00369 <span class="keywordtype">int</span>
+<a name="l00370"></a>00370 compare(<span class="keyword">const</span> <span class="keywordtype">void</span> *item1, <span class="keyword">const</span> <span class="keywordtype">void</span> *item2)
+<a name="l00371"></a>00371 {
+<a name="l00372"></a>00372 <span class="keywordflow">return</span> strcmp(*(<span class="keywordtype">char</span> **) item1, *(<span class="keywordtype">char</span> **) item2);
+<a name="l00373"></a>00373 }
+<a name="l00374"></a>00374
+<a name="l00375"></a>00375
+<a name="l00376"></a>00376 <span class="keywordtype">void</span>
+<a name="l00377"></a>00377 sortunit(<span class="keyword">struct</span> unittype * theunit)
+<a name="l00378"></a>00378 {
+<a name="l00379"></a>00379 <span class="keywordtype">char</span> **ptr;
+<a name="l00380"></a>00380 <span class="keywordtype">int</span> count;
+<a name="l00381"></a>00381
+<a name="l00382"></a>00382 <span class="keywordflow">for</span> (count = 0, ptr = theunit->numerator; *ptr; ptr++, count++){};
+<a name="l00383"></a>00383 qsort(theunit->numerator, count, <span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *), compare);
+<a name="l00384"></a>00384 <span class="keywordflow">for</span> (count = 0, ptr = theunit->denominator; *ptr; ptr++, count++){};
+<a name="l00385"></a>00385 qsort(theunit->denominator, count, <span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *), compare);
+<a name="l00386"></a>00386 }
+<a name="l00387"></a>00387
+<a name="l00388"></a>00388
+<a name="l00389"></a>00389 <span class="keywordtype">void</span>
+<a name="l00390"></a>00390 cancelunit(<span class="keyword">struct</span> unittype * theunit)
+<a name="l00391"></a>00391 {
+<a name="l00392"></a>00392 <span class="keywordtype">char</span> **den, **num;
+<a name="l00393"></a>00393 <span class="keywordtype">int</span> comp;
+<a name="l00394"></a>00394
+<a name="l00395"></a>00395 den = theunit->denominator;
+<a name="l00396"></a>00396 num = theunit->numerator;
+<a name="l00397"></a>00397
+<a name="l00398"></a>00398 <span class="keywordflow">while</span> (*num && *den) {
+<a name="l00399"></a>00399 comp = strcmp(*den, *num);
+<a name="l00400"></a>00400 <span class="keywordflow">if</span> (!comp) {
+<a name="l00401"></a>00401 <span class="comment">/* if (*den!=NULLUNIT) free(*den);</span>
+<a name="l00402"></a>00402 <span class="comment"> if (*num!=NULLUNIT) free(*num);*/</span>
+<a name="l00403"></a>00403 *den++ = NULLUNIT;
+<a name="l00404"></a>00404 *num++ = NULLUNIT;
+<a name="l00405"></a>00405 }
+<a name="l00406"></a>00406 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (comp < 0)
+<a name="l00407"></a>00407 den++;
+<a name="l00408"></a>00408 <span class="keywordflow">else</span>
+<a name="l00409"></a>00409 num++;
+<a name="l00410"></a>00410 }
+<a name="l00411"></a>00411 }
+<a name="l00412"></a>00412
+<a name="l00413"></a>00413
+<a name="l00414"></a>00414
+<a name="l00415"></a>00415
+<a name="l00416"></a>00416 <span class="comment">/*</span>
+<a name="l00417"></a>00417 <span class="comment"> Looks up the definition for the specified unit.</span>
+<a name="l00418"></a>00418 <span class="comment"> Returns a pointer to the definition or a null pointer</span>
+<a name="l00419"></a>00419 <span class="comment"> if the specified unit does not appear in the units table.</span>
+<a name="l00420"></a>00420 <span class="comment">*/</span>
+<a name="l00421"></a>00421
+<a name="l00422"></a>00422 <span class="keyword">static</span> <span class="keywordtype">char</span> buffer[100]; <span class="comment">/* buffer for lookupunit answers with</span>
+<a name="l00423"></a>00423 <span class="comment"> prefixes */</span>
+<a name="l00424"></a>00424
+<a name="l00425"></a>00425 <span class="keywordtype">char</span> *
+<a name="l00426"></a>00426 lookupunit(<span class="keywordtype">char</span> *unit)
+<a name="l00427"></a>00427 {
+<a name="l00428"></a>00428 <span class="keywordtype">int</span> i;
+<a name="l00429"></a>00429 <span class="keywordtype">char</span> *copy;
+<a name="l00430"></a>00430
+<a name="l00431"></a>00431 <span class="keywordflow">for</span> (i = 0; i < unitcount; i++) {
+<a name="l00432"></a>00432 <span class="keywordflow">if</span> (!strcmp(unittable[i].uname, unit))
+<a name="l00433"></a>00433 <span class="keywordflow">return</span> unittable[i].uval;
+<a name="l00434"></a>00434 }
+<a name="l00435"></a>00435
+<a name="l00436"></a>00436 <span class="keywordflow">if</span> (unit[strlen(unit) - 1] == <span class="charliteral">'^'</span>) {
+<a name="l00437"></a>00437 copy = dupstr(unit);
+<a name="l00438"></a>00438 copy[strlen(copy) - 1] = 0;
+<a name="l00439"></a>00439 <span class="keywordflow">for</span> (i = 0; i < unitcount; i++) {
+<a name="l00440"></a>00440 <span class="keywordflow">if</span> (!strcmp(unittable[i].uname, copy)) {
+<a name="l00441"></a>00441 strcpy(buffer, copy);
+<a name="l00442"></a>00442 free(copy);
+<a name="l00443"></a>00443 <span class="keywordflow">return</span> buffer;
+<a name="l00444"></a>00444 }
+<a name="l00445"></a>00445 }
+<a name="l00446"></a>00446 free(copy);
+<a name="l00447"></a>00447 }
+<a name="l00448"></a>00448 <span class="keywordflow">if</span> (unit[strlen(unit) - 1] == <span class="charliteral">'s'</span>) {
+<a name="l00449"></a>00449 copy = dupstr(unit);
+<a name="l00450"></a>00450 copy[strlen(copy) - 1] = 0;
+<a name="l00451"></a>00451 <span class="keywordflow">for</span> (i = 0; i < unitcount; i++) {
+<a name="l00452"></a>00452 <span class="keywordflow">if</span> (!strcmp(unittable[i].uname, copy)) {
+<a name="l00453"></a>00453 strcpy(buffer, copy);
+<a name="l00454"></a>00454 free(copy);
+<a name="l00455"></a>00455 <span class="keywordflow">return</span> buffer;
+<a name="l00456"></a>00456 }
+<a name="l00457"></a>00457 }
+<a name="l00458"></a>00458 <span class="keywordflow">if</span> (copy[strlen(copy) - 1] == <span class="charliteral">'e'</span>) {
+<a name="l00459"></a>00459 copy[strlen(copy) - 1] = 0;
+<a name="l00460"></a>00460 <span class="keywordflow">for</span> (i = 0; i < unitcount; i++) {
+<a name="l00461"></a>00461 <span class="keywordflow">if</span> (!strcmp(unittable[i].uname, copy)) {
+<a name="l00462"></a>00462 strcpy(buffer, copy);
+<a name="l00463"></a>00463 free(copy);
+<a name="l00464"></a>00464 <span class="keywordflow">return</span> buffer;
+<a name="l00465"></a>00465 }
+<a name="l00466"></a>00466 }
+<a name="l00467"></a>00467 }
+<a name="l00468"></a>00468 free(copy);
+<a name="l00469"></a>00469 }
+<a name="l00470"></a>00470 <span class="keywordflow">for</span> (i = 0; i < prefixcount; i++) {
+<a name="l00471"></a>00471 <span class="keywordflow">if</span> (!strncmp(prefixtable[i].prefixname, unit,
+<a name="l00472"></a>00472 strlen(prefixtable[i].prefixname))) {
+<a name="l00473"></a>00473 unit += strlen(prefixtable[i].prefixname);
+<a name="l00474"></a>00474 <span class="keywordflow">if</span> (!strlen(unit) || lookupunit(unit)) {
+<a name="l00475"></a>00475 strcpy(buffer, prefixtable[i].prefixval);
+<a name="l00476"></a>00476 strcat(buffer, <span class="stringliteral">" "</span>);
+<a name="l00477"></a>00477 strcat(buffer, unit);
+<a name="l00478"></a>00478 <span class="keywordflow">return</span> buffer;
+<a name="l00479"></a>00479 }
+<a name="l00480"></a>00480 }
+<a name="l00481"></a>00481 }
+<a name="l00482"></a>00482 <span class="keywordflow">return</span> 0;
+<a name="l00483"></a>00483 }
+<a name="l00484"></a>00484
+<a name="l00485"></a>00485
+<a name="l00486"></a>00486
+<a name="l00487"></a>00487 <span class="comment">/*</span>
+<a name="l00488"></a>00488 <span class="comment"> reduces a product of symbolic units to primitive units.</span>
+<a name="l00489"></a>00489 <span class="comment"> The three low bits are used to return flags:</span>
+<a name="l00490"></a>00490 <span class="comment"></span>
+<a name="l00491"></a>00491 <span class="comment"> bit 0 (1) set on if reductions were performed without error.</span>
+<a name="l00492"></a>00492 <span class="comment"> bit 1 (2) set on if no reductions are performed.</span>
+<a name="l00493"></a>00493 <span class="comment"> bit 2 (4) set on if an unknown unit is discovered.</span>
+<a name="l00494"></a>00494 <span class="comment">*/</span>
+<a name="l00495"></a>00495
+<a name="l00496"></a>00496
+<a name="l00497"></a>00497 <span class="preprocessor">#define ERROR 4</span>
+<a name="l00498"></a>00498 <span class="preprocessor"></span>
+<a name="l00499"></a>00499 <span class="keywordtype">int</span>
+<a name="l00500"></a>00500 reduceproduct(<span class="keyword">struct</span> unittype * theunit, <span class="keywordtype">int</span> flip)
+<a name="l00501"></a>00501 {
+<a name="l00502"></a>00502
+<a name="l00503"></a>00503 <span class="keywordtype">char</span> *toadd;
+<a name="l00504"></a>00504 <span class="keywordtype">char</span> **product;
+<a name="l00505"></a>00505 <span class="keywordtype">int</span> didsomething = 2;
+<a name="l00506"></a>00506
+<a name="l00507"></a>00507 <span class="keywordflow">if</span> (flip)
+<a name="l00508"></a>00508 product = theunit->denominator;
+<a name="l00509"></a>00509 <span class="keywordflow">else</span>
+<a name="l00510"></a>00510 product = theunit->numerator;
+<a name="l00511"></a>00511
+<a name="l00512"></a>00512 <span class="keywordflow">for</span> (; *product; product++) {
+<a name="l00513"></a>00513
+<a name="l00514"></a>00514 <span class="keywordflow">for</span> (;;) {
+<a name="l00515"></a>00515 <span class="keywordflow">if</span> (!strlen(*product))
+<a name="l00516"></a>00516 <span class="keywordflow">break</span>;
+<a name="l00517"></a>00517 toadd = lookupunit(*product);
+<a name="l00518"></a>00518 <span class="keywordflow">if</span> (!toadd) {
+<a name="l00519"></a>00519 printf(<span class="stringliteral">"unknown unit '%s'\n"</span>, *product);
+<a name="l00520"></a>00520 <span class="keywordflow">return</span> ERROR;
+<a name="l00521"></a>00521 }
+<a name="l00522"></a>00522 <span class="keywordflow">if</span> (strchr(toadd, PRIMITIVECHAR))
+<a name="l00523"></a>00523 <span class="keywordflow">break</span>;
+<a name="l00524"></a>00524 didsomething = 1;
+<a name="l00525"></a>00525 <span class="keywordflow">if</span> (*product != NULLUNIT) {
+<a name="l00526"></a>00526 free(*product);
+<a name="l00527"></a>00527 *product = NULLUNIT;
+<a name="l00528"></a>00528 }
+<a name="l00529"></a>00529 <span class="keywordflow">if</span> (addunit(theunit, toadd, flip))
+<a name="l00530"></a>00530 <span class="keywordflow">return</span> ERROR;
+<a name="l00531"></a>00531 }
+<a name="l00532"></a>00532 }
+<a name="l00533"></a>00533 <span class="keywordflow">return</span> didsomething;
+<a name="l00534"></a>00534 }
+<a name="l00535"></a>00535
+<a name="l00536"></a>00536
+<a name="l00537"></a>00537 <span class="comment">/*</span>
+<a name="l00538"></a>00538 <span class="comment"> Reduces numerator and denominator of the specified unit.</span>
+<a name="l00539"></a>00539 <span class="comment"> Returns 0 on success, or 1 on unknown unit error.</span>
+<a name="l00540"></a>00540 <span class="comment">*/</span>
+<a name="l00541"></a>00541
+<a name="l00542"></a>00542 <span class="keywordtype">int</span>
+<a name="l00543"></a>00543 reduceunit(<span class="keyword">struct</span> unittype * theunit)
+<a name="l00544"></a>00544 {
+<a name="l00545"></a>00545 <span class="keywordtype">int</span> ret;
+<a name="l00546"></a>00546
+<a name="l00547"></a>00547 ret = 1;
+<a name="l00548"></a>00548 <span class="keywordflow">while</span> (ret & 1) {
+<a name="l00549"></a>00549 ret = reduceproduct(theunit, 0) | reduceproduct(theunit, 1);
+<a name="l00550"></a>00550 <span class="keywordflow">if</span> (ret & 4)
+<a name="l00551"></a>00551 <span class="keywordflow">return</span> 1;
+<a name="l00552"></a>00552 }
+<a name="l00553"></a>00553 <span class="keywordflow">return</span> 0;
+<a name="l00554"></a>00554 }
+<a name="l00555"></a>00555
+<a name="l00556"></a>00556
+<a name="l00557"></a>00557 <span class="keywordtype">int</span>
+<a name="l00558"></a>00558 compareproducts(<span class="keywordtype">char</span> **one, <span class="keywordtype">char</span> **two)
+<a name="l00559"></a>00559 {
+<a name="l00560"></a>00560 <span class="keywordflow">while</span> (*one || *two) {
+<a name="l00561"></a>00561 <span class="keywordflow">if</span> (!*one && *two != NULLUNIT)
+<a name="l00562"></a>00562 <span class="keywordflow">return</span> 1;
+<a name="l00563"></a>00563 <span class="keywordflow">if</span> (!*two && *one != NULLUNIT)
+<a name="l00564"></a>00564 <span class="keywordflow">return</span> 1;
+<a name="l00565"></a>00565 <span class="keywordflow">if</span> (*one == NULLUNIT)
+<a name="l00566"></a>00566 one++;
+<a name="l00567"></a>00567 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (*two == NULLUNIT)
+<a name="l00568"></a>00568 two++;
+<a name="l00569"></a>00569 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (strcmp(*one, *two))
+<a name="l00570"></a>00570 <span class="keywordflow">return</span> 1;
+<a name="l00571"></a>00571 <span class="keywordflow">else</span>
+<a name="l00572"></a>00572 one++, two++;
+<a name="l00573"></a>00573 }
+<a name="l00574"></a>00574 <span class="keywordflow">return</span> 0;
+<a name="l00575"></a>00575 }
+<a name="l00576"></a>00576
+<a name="l00577"></a>00577
+<a name="l00578"></a>00578 <span class="comment">/* Return zero if units are compatible, nonzero otherwise */</span>
+<a name="l00579"></a>00579
+<a name="l00580"></a>00580 <span class="keywordtype">int</span>
+<a name="l00581"></a>00581 compareunits(<span class="keyword">struct</span> unittype * first, <span class="keyword">struct</span> unittype * second)
+<a name="l00582"></a>00582 {
+<a name="l00583"></a>00583 <span class="keywordflow">return</span>
+<a name="l00584"></a>00584 compareproducts(first->numerator, second->numerator) ||
+<a name="l00585"></a>00585 compareproducts(first->denominator, second->denominator);
+<a name="l00586"></a>00586 }
+<a name="l00587"></a>00587
+<a name="l00588"></a>00588
+<a name="l00589"></a>00589 <span class="keywordtype">int</span>
+<a name="l00590"></a>00590 completereduce(<span class="keyword">struct</span> unittype * unit)
+<a name="l00591"></a>00591 {
+<a name="l00592"></a>00592 <span class="keywordflow">if</span> (reduceunit(unit))
+<a name="l00593"></a>00593 <span class="keywordflow">return</span> 1;
+<a name="l00594"></a>00594 sortunit(unit);
+<a name="l00595"></a>00595 cancelunit(unit);
+<a name="l00596"></a>00596 <span class="keywordflow">return</span> 0;
+<a name="l00597"></a>00597 }
+<a name="l00598"></a>00598
+<a name="l00599"></a>00599
+<a name="l00600"></a>00600 <span class="keywordtype">void</span>
+<a name="l00601"></a>00601 showanswer(<span class="keyword">struct</span> unittype * have, <span class="keyword">struct</span> unittype * want)
+<a name="l00602"></a>00602 {
+<a name="l00603"></a>00603 <span class="keywordflow">if</span> (compareunits(have, want)) {
+<a name="l00604"></a>00604 printf(<span class="stringliteral">"conformability error\n"</span>);
+<a name="l00605"></a>00605 showunit(have);
+<a name="l00606"></a>00606 showunit(want);
+<a name="l00607"></a>00607 }
+<a name="l00608"></a>00608 <span class="keywordflow">else</span>
+<a name="l00609"></a>00609 printf(<span class="stringliteral">"\t* %.8g\n\t/ %.8g\n"</span>, have->factor / want->factor,
+<a name="l00610"></a>00610 want->factor / have->factor);
+<a name="l00611"></a>00611 }
+<a name="l00612"></a>00612
+<a name="l00613"></a>00613
+<a name="l00614"></a>00614 <span class="keywordtype">void</span>
+<a name="l00615"></a>00615 usage()
+<a name="l00616"></a>00616 {
+<a name="l00617"></a>00617 fprintf(stderr, <span class="stringliteral">"\nunits [-f unitsfile] [-q] [-v] [from-unit to-unit]\n"</span>);
+<a name="l00618"></a>00618 fprintf(stderr, <span class="stringliteral">"\n -f specify units file\n"</span>);
+<a name="l00619"></a>00619 fprintf(stderr, <span class="stringliteral">" -q supress prompting (quiet)\n"</span>);
+<a name="l00620"></a>00620 fprintf(stderr, <span class="stringliteral">" -v print version number\n"</span>);
+<a name="l00621"></a>00621 exit(3);
+<a name="l00622"></a>00622 }
+<a name="l00623"></a>00623
+<a name="l00624"></a>00624 <span class="keyword">extern</span> <span class="keywordtype">int</span> getopt(<span class="keywordtype">int</span>, <span class="keywordtype">char</span> **, <span class="keyword">const</span> <span class="keywordtype">char</span> *);
+<a name="l00625"></a>00625
+<a name="l00626"></a>00626 <span class="keywordtype">int</span>
+<a name="l00627"></a>00627 <a class="code" href="redirectprintf_8c.html#a840291bc02cba5474a4cb46a9b9566fe">main</a>(<span class="keywordtype">int</span> argc, <span class="keywordtype">char</span> **argv)
+<a name="l00628"></a>00628 {
+<a name="l00629"></a>00629
+<a name="l00630"></a>00630 <span class="keyword">struct </span>unittype have, want;
+<a name="l00631"></a>00631 <span class="keywordtype">char</span> havestr[81], wantstr[81];
+<a name="l00632"></a>00632 <span class="keywordtype">int</span> optchar;
+<a name="l00633"></a>00633 <span class="keywordtype">char</span> *userfile = 0;
+<a name="l00634"></a>00634 <span class="keywordtype">int</span> quiet = 0;
+<a name="l00635"></a>00635
+<a name="l00636"></a>00636 <span class="keyword">extern</span> <span class="keywordtype">char</span> *optarg;
+<a name="l00637"></a>00637 <span class="keyword">extern</span> <span class="keywordtype">int</span> optind;
+<a name="l00638"></a>00638
+<a name="l00639"></a>00639 <span class="keywordflow">while</span> ((optchar = getopt(argc, argv, <span class="stringliteral">"vqf:"</span>)) != -1) {
+<a name="l00640"></a>00640 <span class="keywordflow">switch</span> (optchar) {
+<a name="l00641"></a>00641 <span class="keywordflow">case</span> <span class="charliteral">'f'</span>:
+<a name="l00642"></a>00642 userfile = optarg;
+<a name="l00643"></a>00643 <span class="keywordflow">break</span>;
+<a name="l00644"></a>00644 <span class="keywordflow">case</span> <span class="charliteral">'q'</span>:
+<a name="l00645"></a>00645 quiet = 1;
+<a name="l00646"></a>00646 <span class="keywordflow">break</span>;
+<a name="l00647"></a>00647 <span class="keywordflow">case</span> <span class="charliteral">'v'</span>:
+<a name="l00648"></a>00648 fprintf(stderr, <span class="stringliteral">"\n units version %s Copyright (c) 1993 by Adrian Mariano\n"</span>,
+<a name="l00649"></a>00649 VERSION);
+<a name="l00650"></a>00650 fprintf(stderr, <span class="stringliteral">" This program may be freely distributed\n"</span>);
+<a name="l00651"></a>00651 usage();
+<a name="l00652"></a>00652 <span class="keywordflow">default</span>:
+<a name="l00653"></a>00653 usage();
+<a name="l00654"></a>00654 <span class="keywordflow">break</span>;
+<a name="l00655"></a>00655 }
+<a name="l00656"></a>00656 }
+<a name="l00657"></a>00657
+<a name="l00658"></a>00658 <span class="keywordflow">if</span> (optind != argc - 2 && optind != argc)
+<a name="l00659"></a>00659 usage();
+<a name="l00660"></a>00660
+<a name="l00661"></a>00661 readunits(userfile);
+<a name="l00662"></a>00662
+<a name="l00663"></a>00663 <span class="keywordflow">if</span> (optind == argc - 2) {
+<a name="l00664"></a>00664 strcpy(havestr, argv[optind]);
+<a name="l00665"></a>00665 strcpy(wantstr, argv[optind + 1]);
+<a name="l00666"></a>00666 initializeunit(&have);
+<a name="l00667"></a>00667 addunit(&have, havestr, 0);
+<a name="l00668"></a>00668 completereduce(&have);
+<a name="l00669"></a>00669 initializeunit(&want);
+<a name="l00670"></a>00670 addunit(&want, wantstr, 0);
+<a name="l00671"></a>00671 completereduce(&want);
+<a name="l00672"></a>00672 showanswer(&have, &want);
+<a name="l00673"></a>00673 }
+<a name="l00674"></a>00674 <span class="keywordflow">else</span> {
+<a name="l00675"></a>00675 <span class="keywordflow">if</span> (!quiet)
+<a name="l00676"></a>00676 printf(<span class="stringliteral">"%d units, %d prefixes\n\n"</span>, unitcount,
+<a name="l00677"></a>00677 prefixcount);
+<a name="l00678"></a>00678 <span class="keywordflow">for</span> (;;) {
+<a name="l00679"></a>00679 <span class="keywordflow">do</span> {
+<a name="l00680"></a>00680 initializeunit(&have);
+<a name="l00681"></a>00681 <span class="keywordflow">if</span> (!quiet)
+<a name="l00682"></a>00682 printf(<span class="stringliteral">"You have: "</span>);
+<a name="l00683"></a>00683 <span class="keywordflow">if</span> (!fgets(havestr, 80, stdin)) {
+<a name="l00684"></a>00684 <span class="keywordflow">if</span> (!quiet)
+<a name="l00685"></a>00685 putchar(<span class="charliteral">'\n'</span>);
+<a name="l00686"></a>00686 exit(0);
+<a name="l00687"></a>00687 }
+<a name="l00688"></a>00688 } <span class="keywordflow">while</span> (addunit(&have, havestr, 0) ||
+<a name="l00689"></a>00689 completereduce(&have));
+<a name="l00690"></a>00690 <span class="keywordflow">do</span> {
+<a name="l00691"></a>00691 initializeunit(&want);
+<a name="l00692"></a>00692 <span class="keywordflow">if</span> (!quiet)
+<a name="l00693"></a>00693 printf(<span class="stringliteral">"You want: "</span>);
+<a name="l00694"></a>00694 <span class="keywordflow">if</span> (!fgets(wantstr, 80, stdin)) {
+<a name="l00695"></a>00695 <span class="keywordflow">if</span> (!quiet)
+<a name="l00696"></a>00696 putchar(<span class="charliteral">'\n'</span>);
+<a name="l00697"></a>00697 exit(0);
+<a name="l00698"></a>00698 }
+<a name="l00699"></a>00699 } <span class="keywordflow">while</span> (addunit(&want, wantstr, 0) ||
+<a name="l00700"></a>00700 completereduce(&want));
+<a name="l00701"></a>00701 showanswer(&have, &want);
+<a name="l00702"></a>00702 }
+<a name="l00703"></a>00703 }
+<a name="l00704"></a>00704
+<a name="l00705"></a>00705 <span class="keywordflow">return</span>(0);
+<a name="l00706"></a>00706 }
+<a name="l00707"></a>00707
+</pre></div></div>
+<hr size="1"/><address style="text-align: right;"><small>Generated by
+<a href="http://www.doxygen.org/index.html">
+<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.6.2 </small></address>
+</body>
+</html>