<!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>SphinxBase: src/libsphinxbase/util/cmd_ln.c Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript">
$(document).ready(initResizable);
</script>
<link href="doxygen.css" rel="stylesheet" type="text/css"/>
</head>
<body>
<!-- Generated by Doxygen 1.7.3 -->
<div id="top">
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 56px;">
<td style="padding-left: 0.5em;">
<div id="projectname">SphinxBase <span id="projectnumber">0.6</span></div>
</td>
</tr>
</tbody>
</table>
</div>
<div id="navrow1" class="tabs">
<ul class="tablist">
<li><a href="index.html"><span>Main Page</span></a></li>
<li><a href="pages.html"><span>Related Pages</span></a></li>
<li><a href="annotated.html"><span>Data Structures</span></a></li>
<li class="current"><a href="files.html"><span>Files</span></a></li>
</ul>
</div>
<div id="navrow2" class="tabs2">
<ul class="tablist">
<li><a href="files.html"><span>File List</span></a></li>
<li><a href="globals.html"><span>Globals</span></a></li>
</ul>
</div>
</div>
<div id="side-nav" class="ui-resizable side-nav-resizable">
<div id="nav-tree">
<div id="nav-tree-contents">
</div>
</div>
<div id="splitbar" style="-moz-user-select:none;"
class="ui-resizable-handle">
</div>
</div>
<script type="text/javascript">
initNavTree('cmd__ln_8c.html','');
</script>
<div id="doc-content">
<div class="header">
<div class="headertitle">
<h1>src/libsphinxbase/util/cmd_ln.c</h1> </div>
</div>
<div class="contents">
<div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/* -*- c-basic-offset: 4; indent-tabs-mode: nil -*- */</span>
<a name="l00002"></a>00002 <span class="comment">/* ====================================================================</span>
<a name="l00003"></a>00003 <span class="comment"> * Copyright (c) 1999-2004 Carnegie Mellon University. All rights</span>
<a name="l00004"></a>00004 <span class="comment"> * reserved.</span>
<a name="l00005"></a>00005 <span class="comment"> *</span>
<a name="l00006"></a>00006 <span class="comment"> * Redistribution and use in source and binary forms, with or without</span>
<a name="l00007"></a>00007 <span class="comment"> * modification, are permitted provided that the following conditions</span>
<a name="l00008"></a>00008 <span class="comment"> * are met:</span>
<a name="l00009"></a>00009 <span class="comment"> *</span>
<a name="l00010"></a>00010 <span class="comment"> * 1. Redistributions of source code must retain the above copyright</span>
<a name="l00011"></a>00011 <span class="comment"> * notice, this list of conditions and the following disclaimer. </span>
<a name="l00012"></a>00012 <span class="comment"> *</span>
<a name="l00013"></a>00013 <span class="comment"> * 2. Redistributions in binary form must reproduce the above copyright</span>
<a name="l00014"></a>00014 <span class="comment"> * notice, this list of conditions and the following disclaimer in</span>
<a name="l00015"></a>00015 <span class="comment"> * the documentation and/or other materials provided with the</span>
<a name="l00016"></a>00016 <span class="comment"> * distribution.</span>
<a name="l00017"></a>00017 <span class="comment"> *</span>
<a name="l00018"></a>00018 <span class="comment"> * This work was supported in part by funding from the Defense Advanced </span>
<a name="l00019"></a>00019 <span class="comment"> * Research Projects Agency and the National Science Foundation of the </span>
<a name="l00020"></a>00020 <span class="comment"> * United States of America, and the CMU Sphinx Speech Consortium.</span>
<a name="l00021"></a>00021 <span class="comment"> *</span>
<a name="l00022"></a>00022 <span class="comment"> * THIS SOFTWARE IS PROVIDED BY CARNEGIE MELLON UNIVERSITY ``AS IS'' AND </span>
<a name="l00023"></a>00023 <span class="comment"> * ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, </span>
<a name="l00024"></a>00024 <span class="comment"> * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR</span>
<a name="l00025"></a>00025 <span class="comment"> * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY</span>
<a name="l00026"></a>00026 <span class="comment"> * NOR ITS EMPLOYEES BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,</span>
<a name="l00027"></a>00027 <span class="comment"> * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT </span>
<a name="l00028"></a>00028 <span class="comment"> * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, </span>
<a name="l00029"></a>00029 <span class="comment"> * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY </span>
<a name="l00030"></a>00030 <span class="comment"> * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT </span>
<a name="l00031"></a>00031 <span class="comment"> * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE </span>
<a name="l00032"></a>00032 <span class="comment"> * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.</span>
<a name="l00033"></a>00033 <span class="comment"> *</span>
<a name="l00034"></a>00034 <span class="comment"> * ====================================================================</span>
<a name="l00035"></a>00035 <span class="comment"> *</span>
<a name="l00036"></a>00036 <span class="comment"> */</span>
<a name="l00037"></a>00037 <span class="comment">/*</span>
<a name="l00038"></a>00038 <span class="comment"> * cmd_ln.c -- Command line argument parsing.</span>
<a name="l00039"></a>00039 <span class="comment"> *</span>
<a name="l00040"></a>00040 <span class="comment"> * **********************************************</span>
<a name="l00041"></a>00041 <span class="comment"> * CMU ARPA Speech Project</span>
<a name="l00042"></a>00042 <span class="comment"> *</span>
<a name="l00043"></a>00043 <span class="comment"> * Copyright (c) 1999 Carnegie Mellon University.</span>
<a name="l00044"></a>00044 <span class="comment"> * ALL RIGHTS RESERVED.</span>
<a name="l00045"></a>00045 <span class="comment"> * **********************************************</span>
<a name="l00046"></a>00046 <span class="comment"> * </span>
<a name="l00047"></a>00047 <span class="comment"> * HISTORY</span>
<a name="l00048"></a>00048 <span class="comment"> * </span>
<a name="l00049"></a>00049 <span class="comment"> * 10-Sep-1998 M K Ravishankar (rkm@cs.cmu.edu) at Carnegie Mellon University</span>
<a name="l00050"></a>00050 <span class="comment"> * Changed strcasecmp() call in cmp_name() to strcmp_nocase() call.</span>
<a name="l00051"></a>00051 <span class="comment"> * </span>
<a name="l00052"></a>00052 <span class="comment"> * 15-Jul-1997 M K Ravishankar (rkm@cs.cmu.edu) at Carnegie Mellon University</span>
<a name="l00053"></a>00053 <span class="comment"> * Added required arguments handling.</span>
<a name="l00054"></a>00054 <span class="comment"> * </span>
<a name="l00055"></a>00055 <span class="comment"> * 07-Dec-96 M K Ravishankar (rkm@cs.cmu.edu) at Carnegie Mellon University</span>
<a name="l00056"></a>00056 <span class="comment"> * Created, based on Eric's implementation. Basically, combined several</span>
<a name="l00057"></a>00057 <span class="comment"> * functions into one, eliminated validation, and simplified the interface.</span>
<a name="l00058"></a>00058 <span class="comment"> */</span>
<a name="l00059"></a>00059
<a name="l00060"></a>00060
<a name="l00061"></a>00061 <span class="preprocessor">#include <stdio.h></span>
<a name="l00062"></a>00062 <span class="preprocessor">#include <stdlib.h></span>
<a name="l00063"></a>00063 <span class="preprocessor">#include <string.h></span>
<a name="l00064"></a>00064 <span class="preprocessor">#include <assert.h></span>
<a name="l00065"></a>00065
<a name="l00066"></a>00066 <span class="preprocessor">#ifdef _MSC_VER</span>
<a name="l00067"></a>00067 <span class="preprocessor"></span><span class="preprocessor">#pragma warning (disable: 4996 4018)</span>
<a name="l00068"></a>00068 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00069"></a>00069 <span class="preprocessor"></span>
<a name="l00070"></a>00070 <span class="preprocessor">#ifdef HAVE_CONFIG_H</span>
<a name="l00071"></a>00071 <span class="preprocessor"></span><span class="preprocessor">#include <config.h></span>
<a name="l00072"></a>00072 <span class="preprocessor">#endif</span>
<a name="l00073"></a>00073 <span class="preprocessor"></span>
<a name="l00074"></a>00074 <span class="preprocessor">#ifdef HAVE_UNISTD_H</span>
<a name="l00075"></a>00075 <span class="preprocessor"></span><span class="preprocessor">#include <unistd.h></span>
<a name="l00076"></a>00076 <span class="preprocessor">#endif</span>
<a name="l00077"></a>00077 <span class="preprocessor"></span>
<a name="l00078"></a>00078 <span class="preprocessor">#include "sphinxbase/cmd_ln.h"</span>
<a name="l00079"></a>00079 <span class="preprocessor">#include "sphinxbase/err.h"</span>
<a name="l00080"></a>00080 <span class="preprocessor">#include "sphinxbase/ckd_alloc.h"</span>
<a name="l00081"></a>00081 <span class="preprocessor">#include "sphinxbase/hash_table.h"</span>
<a name="l00082"></a>00082 <span class="preprocessor">#include "sphinxbase/case.h"</span>
<a name="l00083"></a>00083 <span class="preprocessor">#include "sphinxbase/strfuncs.h"</span>
<a name="l00084"></a>00084
<a name="l00085"></a><a class="code" href="structcmd__ln__val__s.html">00085</a> <span class="keyword">typedef</span> <span class="keyword">struct </span><a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_s</a> {
<a name="l00086"></a>00086 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> val;
<a name="l00087"></a>00087 <span class="keywordtype">int</span> type;
<a name="l00088"></a>00088 } <a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_t</a>;
<a name="l00089"></a>00089
<a name="l00090"></a><a class="code" href="structcmd__ln__s.html">00090</a> <span class="keyword">struct </span><a class="code" href="structcmd__ln__s.html">cmd_ln_s</a> {
<a name="l00091"></a>00091 <span class="keywordtype">int</span> refcount;
<a name="l00092"></a>00092 <a class="code" href="structhash__table__t.html">hash_table_t</a> *ht;
<a name="l00093"></a>00093 <span class="keywordtype">char</span> **f_argv;
<a name="l00094"></a>00094 uint32 f_argc;
<a name="l00095"></a>00095 };
<a name="l00096"></a>00096
<a name="l00098"></a>00098 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *global_cmdln;
<a name="l00099"></a>00099 <span class="keyword">static</span> <span class="keywordtype">void</span> arg_dump_r(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, FILE * fp, <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> <span class="keyword">const</span> *defn, int32 doc);
<a name="l00100"></a>00100 <span class="keyword">static</span> <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> * parse_options(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> *defn, int32 argc, <span class="keywordtype">char</span>* argv[], int32 strict);
<a name="l00101"></a>00101
<a name="l00102"></a>00102 <span class="comment">/*</span>
<a name="l00103"></a>00103 <span class="comment"> * Find max length of name and default fields in the given defn array.</span>
<a name="l00104"></a>00104 <span class="comment"> * Return #items in defn array.</span>
<a name="l00105"></a>00105 <span class="comment"> */</span>
<a name="l00106"></a>00106 <span class="keyword">static</span> int32
<a name="l00107"></a>00107 arg_strlen(<span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> * defn, int32 * namelen, int32 * deflen)
<a name="l00108"></a>00108 {
<a name="l00109"></a>00109 int32 i, l;
<a name="l00110"></a>00110
<a name="l00111"></a>00111 *namelen = *deflen = 0;
<a name="l00112"></a>00112 <span class="keywordflow">for</span> (i = 0; defn[i].name; i++) {
<a name="l00113"></a>00113 l = strlen(defn[i].name);
<a name="l00114"></a>00114 <span class="keywordflow">if</span> (*namelen < l)
<a name="l00115"></a>00115 *namelen = l;
<a name="l00116"></a>00116
<a name="l00117"></a>00117 <span class="keywordflow">if</span> (defn[i].deflt)
<a name="l00118"></a>00118 l = strlen(defn[i].deflt);
<a name="l00119"></a>00119 <span class="keywordflow">else</span>
<a name="l00120"></a>00120 l = strlen(<span class="stringliteral">"(null)"</span>);
<a name="l00121"></a>00121 <span class="comment">/* E_INFO("string default, %s , name %s, length %d\n",defn[i].deflt,defn[i].name,l); */</span>
<a name="l00122"></a>00122 <span class="keywordflow">if</span> (*deflen < l)
<a name="l00123"></a>00123 *deflen = l;
<a name="l00124"></a>00124 }
<a name="l00125"></a>00125
<a name="l00126"></a>00126 <span class="keywordflow">return</span> i;
<a name="l00127"></a>00127 }
<a name="l00128"></a>00128
<a name="l00129"></a>00129
<a name="l00130"></a>00130 <span class="keyword">static</span> int32
<a name="l00131"></a>00131 cmp_name(<span class="keyword">const</span> <span class="keywordtype">void</span> *a, <span class="keyword">const</span> <span class="keywordtype">void</span> *b)
<a name="l00132"></a>00132 {
<a name="l00133"></a>00133 <span class="keywordflow">return</span> (strcmp_nocase
<a name="l00134"></a>00134 ((* (<a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a>**) a)->name,
<a name="l00135"></a>00135 (* (<a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a>**) b)->name));
<a name="l00136"></a>00136 }
<a name="l00137"></a>00137
<a name="l00138"></a>00138 <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> **
<a name="l00139"></a>00139 arg_sort(<span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> * defn, int32 n)
<a name="l00140"></a>00140 {
<a name="l00141"></a>00141 <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> ** pos;
<a name="l00142"></a>00142 int32 i;
<a name="l00143"></a>00143
<a name="l00144"></a>00144 pos = (<span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> **) <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(n, <span class="keyword">sizeof</span>(<a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> *));
<a name="l00145"></a>00145 <span class="keywordflow">for</span> (i = 0; i < n; ++i)
<a name="l00146"></a>00146 pos[i] = &defn[i];
<a name="l00147"></a>00147 qsort(pos, n, <span class="keyword">sizeof</span>(<a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> *), cmp_name);
<a name="l00148"></a>00148
<a name="l00149"></a>00149 <span class="keywordflow">return</span> pos;
<a name="l00150"></a>00150 }
<a name="l00151"></a>00151
<a name="l00152"></a>00152 <span class="keyword">static</span> <span class="keywordtype">size_t</span>
<a name="l00153"></a>00153 strnappend(<span class="keywordtype">char</span> **dest, <span class="keywordtype">size_t</span> *dest_allocation,
<a name="l00154"></a>00154 <span class="keyword">const</span> <span class="keywordtype">char</span> *source, <span class="keywordtype">size_t</span> n)
<a name="l00155"></a>00155 {
<a name="l00156"></a>00156 <span class="keywordtype">size_t</span> source_len, required_allocation;
<a name="l00157"></a>00157
<a name="l00158"></a>00158 <span class="keywordflow">if</span> (dest == NULL || dest_allocation == NULL)
<a name="l00159"></a>00159 <span class="keywordflow">return</span> -1;
<a name="l00160"></a>00160 <span class="keywordflow">if</span> (*dest == NULL && *dest_allocation != 0)
<a name="l00161"></a>00161 <span class="keywordflow">return</span> -1;
<a name="l00162"></a>00162 <span class="keywordflow">if</span> (source == NULL)
<a name="l00163"></a>00163 <span class="keywordflow">return</span> *dest_allocation;
<a name="l00164"></a>00164
<a name="l00165"></a>00165 source_len = strlen(source);
<a name="l00166"></a>00166 <span class="keywordflow">if</span> (n && n < source_len)
<a name="l00167"></a>00167 source_len = n;
<a name="l00168"></a>00168
<a name="l00169"></a>00169 required_allocation = (*dest ? strlen(*dest) : 0) + source_len + 1;
<a name="l00170"></a>00170 <span class="keywordflow">if</span> (*dest_allocation < required_allocation) {
<a name="l00171"></a>00171 <span class="keywordflow">if</span> (*dest_allocation == 0) {
<a name="l00172"></a>00172 *dest = <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(required_allocation * 2, 1);
<a name="l00173"></a>00173 } <span class="keywordflow">else</span> {
<a name="l00174"></a>00174 *dest = <a class="code" href="ckd__alloc_8h.html#afd496738b3e114bd494c5a0955f1bfb3" title="Macro for __ckd_realloc__.">ckd_realloc</a>(*dest, required_allocation * 2);
<a name="l00175"></a>00175 }
<a name="l00176"></a>00176 *dest_allocation = required_allocation * 2;
<a name="l00177"></a>00177 }
<a name="l00178"></a>00178
<a name="l00179"></a>00179 strncat(*dest, source, source_len);
<a name="l00180"></a>00180
<a name="l00181"></a>00181 <span class="keywordflow">return</span> *dest_allocation;
<a name="l00182"></a>00182 }
<a name="l00183"></a>00183
<a name="l00184"></a>00184 <span class="keyword">static</span> <span class="keywordtype">size_t</span>
<a name="l00185"></a>00185 strappend(<span class="keywordtype">char</span> **dest, <span class="keywordtype">size_t</span> *dest_allocation,
<a name="l00186"></a>00186 <span class="keyword">const</span> <span class="keywordtype">char</span> *source)
<a name="l00187"></a>00187 {
<a name="l00188"></a>00188 <span class="keywordflow">return</span> strnappend(dest, dest_allocation, source, 0);
<a name="l00189"></a>00189 }
<a name="l00190"></a>00190
<a name="l00191"></a>00191 <span class="keyword">static</span> <span class="keywordtype">char</span>*
<a name="l00192"></a>00192 arg_resolve_env(<span class="keyword">const</span> <span class="keywordtype">char</span> *str)
<a name="l00193"></a>00193 {
<a name="l00194"></a>00194 <span class="keywordtype">char</span> *resolved_str = NULL;
<a name="l00195"></a>00195 <span class="keywordtype">char</span> env_name[100];
<a name="l00196"></a>00196 <span class="keyword">const</span> <span class="keywordtype">char</span> *env_val;
<a name="l00197"></a>00197 <span class="keywordtype">size_t</span> alloced = 0;
<a name="l00198"></a>00198 <span class="keyword">const</span> <span class="keywordtype">char</span> *i = str, *j;
<a name="l00199"></a>00199
<a name="l00200"></a>00200 <span class="comment">/* calculate required resolved_str size */</span>
<a name="l00201"></a>00201 <span class="keywordflow">do</span> {
<a name="l00202"></a>00202 j = strstr(i, <span class="stringliteral">"$("</span>);
<a name="l00203"></a>00203 <span class="keywordflow">if</span> (j != NULL) {
<a name="l00204"></a>00204 <span class="keywordflow">if</span> (j != i) {
<a name="l00205"></a>00205 strnappend(&resolved_str, &alloced, i, j - i);
<a name="l00206"></a>00206 i = j;
<a name="l00207"></a>00207 }
<a name="l00208"></a>00208 j = strchr(i + 2, <span class="charliteral">')'</span>);
<a name="l00209"></a>00209 <span class="keywordflow">if</span> (j != NULL) {
<a name="l00210"></a>00210 <span class="keywordflow">if</span> (j - (i + 2) < 100) {
<a name="l00211"></a>00211 strncpy(env_name, i + 2, j - (i + 2));
<a name="l00212"></a>00212 env_name[j - (i + 2)] = <span class="charliteral">'\0'</span>;
<a name="l00213"></a>00213 <span class="preprocessor"> #if !defined(_WIN32_WCE)</span>
<a name="l00214"></a>00214 <span class="preprocessor"></span> env_val = getenv(env_name);
<a name="l00215"></a>00215 <span class="keywordflow">if</span> (env_val)
<a name="l00216"></a>00216 strappend(&resolved_str, &alloced, env_val);
<a name="l00217"></a>00217 <span class="preprocessor"> #else</span>
<a name="l00218"></a>00218 <span class="preprocessor"></span> env_val = 0;
<a name="l00219"></a>00219 <span class="preprocessor"> #endif</span>
<a name="l00220"></a>00220 <span class="preprocessor"></span> }
<a name="l00221"></a>00221 i = j + 1;
<a name="l00222"></a>00222 } <span class="keywordflow">else</span> {
<a name="l00223"></a>00223 <span class="comment">/* unclosed, copy and skip */</span>
<a name="l00224"></a>00224 j = i + 2;
<a name="l00225"></a>00225 strnappend(&resolved_str, &alloced, i, j - i);
<a name="l00226"></a>00226 i = j;
<a name="l00227"></a>00227 }
<a name="l00228"></a>00228 } <span class="keywordflow">else</span> {
<a name="l00229"></a>00229 strappend(&resolved_str, &alloced, i);
<a name="l00230"></a>00230 }
<a name="l00231"></a>00231 } <span class="keywordflow">while</span>(j != NULL);
<a name="l00232"></a>00232
<a name="l00233"></a>00233 <span class="keywordflow">return</span> resolved_str;
<a name="l00234"></a>00234 }
<a name="l00235"></a>00235
<a name="l00236"></a>00236 <span class="keyword">static</span> <span class="keywordtype">void</span>
<a name="l00237"></a>00237 arg_dump_r(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, FILE * fp, <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> * defn, int32 doc)
<a name="l00238"></a>00238 {
<a name="l00239"></a>00239 <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> **pos;
<a name="l00240"></a>00240 int32 i, l, n;
<a name="l00241"></a>00241 int32 namelen, deflen;
<a name="l00242"></a>00242 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *vp;
<a name="l00243"></a>00243 <span class="keywordtype">char</span> <span class="keyword">const</span> **array;
<a name="l00244"></a>00244
<a name="l00245"></a>00245 <span class="comment">/* No definitions, do nothing. */</span>
<a name="l00246"></a>00246 <span class="keywordflow">if</span> (defn == NULL)
<a name="l00247"></a>00247 <span class="keywordflow">return</span>;
<a name="l00248"></a>00248 <span class="keywordflow">if</span> (fp == NULL)
<a name="l00249"></a>00249 <span class="keywordflow">return</span>;
<a name="l00250"></a>00250
<a name="l00251"></a>00251 <span class="comment">/* Find max lengths of name and default value fields, and #entries in defn */</span>
<a name="l00252"></a>00252 n = arg_strlen(defn, &namelen, &deflen);
<a name="l00253"></a>00253 <span class="comment">/* E_INFO("String length %d. Name length %d, Default Length %d\n",n, namelen, deflen); */</span>
<a name="l00254"></a>00254 namelen = namelen & 0xfffffff8; <span class="comment">/* Previous tab position */</span>
<a name="l00255"></a>00255 deflen = deflen & 0xfffffff8; <span class="comment">/* Previous tab position */</span>
<a name="l00256"></a>00256
<a name="l00257"></a>00257 fprintf(fp, <span class="stringliteral">"[NAME]"</span>);
<a name="l00258"></a>00258 <span class="keywordflow">for</span> (l = strlen(<span class="stringliteral">"[NAME]"</span>); l < namelen; l += 8)
<a name="l00259"></a>00259 fprintf(fp, <span class="stringliteral">"\t"</span>);
<a name="l00260"></a>00260 fprintf(fp, <span class="stringliteral">"\t[DEFLT]"</span>);
<a name="l00261"></a>00261 <span class="keywordflow">for</span> (l = strlen(<span class="stringliteral">"[DEFLT]"</span>); l < deflen; l += 8)
<a name="l00262"></a>00262 fprintf(fp, <span class="stringliteral">"\t"</span>);
<a name="l00263"></a>00263
<a name="l00264"></a>00264 <span class="keywordflow">if</span> (doc) {
<a name="l00265"></a>00265 fprintf(fp, <span class="stringliteral">"\t[DESCR]\n"</span>);
<a name="l00266"></a>00266 }
<a name="l00267"></a>00267 <span class="keywordflow">else</span> {
<a name="l00268"></a>00268 fprintf(fp, <span class="stringliteral">"\t[VALUE]\n"</span>);
<a name="l00269"></a>00269 }
<a name="l00270"></a>00270
<a name="l00271"></a>00271 <span class="comment">/* Print current configuration, sorted by name */</span>
<a name="l00272"></a>00272 pos = arg_sort(defn, n);
<a name="l00273"></a>00273 <span class="keywordflow">for</span> (i = 0; i < n; i++) {
<a name="l00274"></a>00274 fprintf(fp, <span class="stringliteral">"%s"</span>, pos[i]->name);
<a name="l00275"></a>00275 <span class="keywordflow">for</span> (l = strlen(pos[i]->name); l < namelen; l += 8)
<a name="l00276"></a>00276 fprintf(fp, <span class="stringliteral">"\t"</span>);
<a name="l00277"></a>00277
<a name="l00278"></a>00278 fprintf(fp, <span class="stringliteral">"\t"</span>);
<a name="l00279"></a>00279 <span class="keywordflow">if</span> (pos[i]->deflt) {
<a name="l00280"></a>00280 fprintf(fp, <span class="stringliteral">"%s"</span>, pos[i]->deflt);
<a name="l00281"></a>00281 l = strlen(pos[i]->deflt);
<a name="l00282"></a>00282 }
<a name="l00283"></a>00283 <span class="keywordflow">else</span>
<a name="l00284"></a>00284 l = 0;
<a name="l00285"></a>00285 <span class="keywordflow">for</span> (; l < deflen; l += 8)
<a name="l00286"></a>00286 fprintf(fp, <span class="stringliteral">"\t"</span>);
<a name="l00287"></a>00287
<a name="l00288"></a>00288 fprintf(fp, <span class="stringliteral">"\t"</span>);
<a name="l00289"></a>00289 <span class="keywordflow">if</span> (doc) {
<a name="l00290"></a>00290 <span class="keywordflow">if</span> (pos[i]->doc)
<a name="l00291"></a>00291 fprintf(fp, <span class="stringliteral">"%s"</span>, pos[i]->doc);
<a name="l00292"></a>00292 }
<a name="l00293"></a>00293 <span class="keywordflow">else</span> {
<a name="l00294"></a>00294 vp = <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(cmdln, pos[i]->name);
<a name="l00295"></a>00295 <span class="keywordflow">if</span> (vp) {
<a name="l00296"></a>00296 <span class="keywordflow">switch</span> (pos[i]->type) {
<a name="l00297"></a>00297 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a59c01ad9c48f29ac877ba14dc90808de" title="Integer argument (optional).">ARG_INTEGER</a>:
<a name="l00298"></a>00298 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a8186f2660ad6b63be15019598a8dbb36" title="Required integer argument.">REQARG_INTEGER</a>:
<a name="l00299"></a>00299 fprintf(fp, <span class="stringliteral">"%ld"</span>, vp->i);
<a name="l00300"></a>00300 <span class="keywordflow">break</span>;
<a name="l00301"></a>00301 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#ac8a280a53349bdd41d15edb4fa37972f" title="Floating point argument (optional).">ARG_FLOATING</a>:
<a name="l00302"></a>00302 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a92ac706b4ccd544ebea6e0ceaccf3873" title="Required floating point argument.">REQARG_FLOATING</a>:
<a name="l00303"></a>00303 fprintf(fp, <span class="stringliteral">"%e"</span>, vp->fl);
<a name="l00304"></a>00304 <span class="keywordflow">break</span>;
<a name="l00305"></a>00305 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a4de5ed5fcf59a18b24bc9f6449cc9356" title="String argument (optional).">ARG_STRING</a>:
<a name="l00306"></a>00306 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#abaf37a6c677dde76bb1a211b818541bb" title="Required string argument.">REQARG_STRING</a>:
<a name="l00307"></a>00307 <span class="keywordflow">if</span> (vp->ptr)
<a name="l00308"></a>00308 fprintf(fp, <span class="stringliteral">"%s"</span>, (<span class="keywordtype">char</span> *)vp->ptr);
<a name="l00309"></a>00309 <span class="keywordflow">break</span>;
<a name="l00310"></a>00310 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a0698bd0586e83569c1c0d86f072cfe13" title="Boolean (true/false) argument (optional).">ARG_STRING_LIST</a>:
<a name="l00311"></a>00311 array = (<span class="keywordtype">char</span> <span class="keyword">const</span>**)vp->ptr;
<a name="l00312"></a>00312 if (array)
<a name="l00313"></a>00313 <span class="keywordflow">for</span> (l = 0; array[l] != 0; l++) {
<a name="l00314"></a>00314 fprintf(fp, <span class="stringliteral">"%s,"</span>, array[l]);
<a name="l00315"></a>00315 }
<a name="l00316"></a>00316 <span class="keywordflow">break</span>;
<a name="l00317"></a>00317 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#ac7d08ff59bb6905c3375162e75913e88" title="Boolean (true/false) argument (optional).">ARG_BOOLEAN</a>:
<a name="l00318"></a>00318 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#ac98546cfe85afea642248ae3063c2258" title="Required boolean argument.">REQARG_BOOLEAN</a>:
<a name="l00319"></a>00319 fprintf(fp, <span class="stringliteral">"%s"</span>, vp->i ? <span class="stringliteral">"yes"</span> : <span class="stringliteral">"no"</span>);
<a name="l00320"></a>00320 <span class="keywordflow">break</span>;
<a name="l00321"></a>00321 <span class="keywordflow">default</span>:
<a name="l00322"></a>00322 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Unknown argument type: %d\n"</span>, pos[i]->type);
<a name="l00323"></a>00323 }
<a name="l00324"></a>00324 }
<a name="l00325"></a>00325 }
<a name="l00326"></a>00326
<a name="l00327"></a>00327 fprintf(fp, <span class="stringliteral">"\n"</span>);
<a name="l00328"></a>00328 }
<a name="l00329"></a>00329 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(pos);
<a name="l00330"></a>00330
<a name="l00331"></a>00331 fprintf(fp, <span class="stringliteral">"\n"</span>);
<a name="l00332"></a>00332 fflush(fp);
<a name="l00333"></a>00333 }
<a name="l00334"></a>00334
<a name="l00335"></a>00335 <span class="keyword">static</span> <span class="keywordtype">char</span> **
<a name="l00336"></a>00336 parse_string_list(<span class="keyword">const</span> <span class="keywordtype">char</span> *str)
<a name="l00337"></a>00337 {
<a name="l00338"></a>00338 <span class="keywordtype">int</span> count, i, j;
<a name="l00339"></a>00339 <span class="keyword">const</span> <span class="keywordtype">char</span> *p;
<a name="l00340"></a>00340 <span class="keywordtype">char</span> ** result;
<a name="l00341"></a>00341
<a name="l00342"></a>00342 p = str;
<a name="l00343"></a>00343 count = 1;
<a name="l00344"></a>00344 <span class="keywordflow">while</span> (*p) {
<a name="l00345"></a>00345 <span class="keywordflow">if</span> (*p == <span class="charliteral">','</span>)
<a name="l00346"></a>00346 count++;
<a name="l00347"></a>00347 p++;
<a name="l00348"></a>00348 }
<a name="l00349"></a>00349 <span class="comment">/* Should end with NULL */</span>
<a name="l00350"></a>00350 result = (<span class="keywordtype">char</span> **) <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(count + 1, <span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *));
<a name="l00351"></a>00351 p = str;
<a name="l00352"></a>00352 <span class="keywordflow">for</span> (i = 0; i < count; i++) {
<a name="l00353"></a>00353 <span class="keywordflow">for</span> (j = 0; p[j] != <span class="charliteral">','</span> && p[j] != 0; j++);
<a name="l00354"></a>00354 result[i] = <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(j + 1, <span class="keyword">sizeof</span>(<span class="keywordtype">char</span>));
<a name="l00355"></a>00355 strncpy( result[i], p, j);
<a name="l00356"></a>00356 p = p + j + 1;
<a name="l00357"></a>00357 }
<a name="l00358"></a>00358 <span class="keywordflow">return</span> result;
<a name="l00359"></a>00359 }
<a name="l00360"></a>00360
<a name="l00361"></a>00361 <span class="keyword">static</span> <a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_t</a> *
<a name="l00362"></a>00362 cmd_ln_val_init(<span class="keywordtype">int</span> t, <span class="keyword">const</span> <span class="keywordtype">char</span> *str)
<a name="l00363"></a>00363 {
<a name="l00364"></a>00364 <a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_t</a> *v;
<a name="l00365"></a>00365 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> val;
<a name="l00366"></a>00366 <span class="keywordtype">char</span> *e_str;
<a name="l00367"></a>00367
<a name="l00368"></a>00368 <span class="keywordflow">if</span> (!str) {
<a name="l00369"></a>00369 <span class="comment">/* For lack of a better default value. */</span>
<a name="l00370"></a>00370 memset(&val, 0, <span class="keyword">sizeof</span>(val));
<a name="l00371"></a>00371 }
<a name="l00372"></a>00372 <span class="keywordflow">else</span> {
<a name="l00373"></a>00373 <span class="keywordtype">int</span> valid = 1;
<a name="l00374"></a>00374 e_str = arg_resolve_env(str);
<a name="l00375"></a>00375
<a name="l00376"></a>00376 <span class="keywordflow">switch</span> (t) {
<a name="l00377"></a>00377 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a59c01ad9c48f29ac877ba14dc90808de" title="Integer argument (optional).">ARG_INTEGER</a>:
<a name="l00378"></a>00378 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a8186f2660ad6b63be15019598a8dbb36" title="Required integer argument.">REQARG_INTEGER</a>:
<a name="l00379"></a>00379 <span class="keywordflow">if</span> (sscanf(e_str, <span class="stringliteral">"%ld"</span>, &val.i) != 1)
<a name="l00380"></a>00380 valid = 0;
<a name="l00381"></a>00381 <span class="keywordflow">break</span>;
<a name="l00382"></a>00382 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#ac8a280a53349bdd41d15edb4fa37972f" title="Floating point argument (optional).">ARG_FLOATING</a>:
<a name="l00383"></a>00383 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a92ac706b4ccd544ebea6e0ceaccf3873" title="Required floating point argument.">REQARG_FLOATING</a>:
<a name="l00384"></a>00384 <span class="keywordflow">if</span> (e_str == NULL || e_str[0] == 0)
<a name="l00385"></a>00385 valid = 0;
<a name="l00386"></a>00386 val.fl = <a class="code" href="strfuncs_8h.html#ab708351fe7308551632a782bfad75a1e" title="Locale independent version of atof().">atof_c</a>(e_str);
<a name="l00387"></a>00387 <span class="keywordflow">break</span>;
<a name="l00388"></a>00388 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#ac7d08ff59bb6905c3375162e75913e88" title="Boolean (true/false) argument (optional).">ARG_BOOLEAN</a>:
<a name="l00389"></a>00389 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#ac98546cfe85afea642248ae3063c2258" title="Required boolean argument.">REQARG_BOOLEAN</a>:
<a name="l00390"></a>00390 <span class="keywordflow">if</span> ((e_str[0] == <span class="charliteral">'y'</span>) || (e_str[0] == <span class="charliteral">'t'</span>) ||
<a name="l00391"></a>00391 (e_str[0] == <span class="charliteral">'Y'</span>) || (e_str[0] == <span class="charliteral">'T'</span>) || (e_str[0] == <span class="charliteral">'1'</span>)) {
<a name="l00392"></a>00392 val.i = TRUE;
<a name="l00393"></a>00393 }
<a name="l00394"></a>00394 <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((e_str[0] == <span class="charliteral">'n'</span>) || (e_str[0] == <span class="charliteral">'f'</span>) ||
<a name="l00395"></a>00395 (e_str[0] == <span class="charliteral">'N'</span>) || (e_str[0] == <span class="charliteral">'F'</span>) |
<a name="l00396"></a>00396 (e_str[0] == <span class="charliteral">'0'</span>)) {
<a name="l00397"></a>00397 val.i = FALSE;
<a name="l00398"></a>00398 }
<a name="l00399"></a>00399 <span class="keywordflow">else</span> {
<a name="l00400"></a>00400 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Unparsed boolean value '%s'\n"</span>, str);
<a name="l00401"></a>00401 valid = 0;
<a name="l00402"></a>00402 }
<a name="l00403"></a>00403 <span class="keywordflow">break</span>;
<a name="l00404"></a>00404 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a4de5ed5fcf59a18b24bc9f6449cc9356" title="String argument (optional).">ARG_STRING</a>:
<a name="l00405"></a>00405 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#abaf37a6c677dde76bb1a211b818541bb" title="Required string argument.">REQARG_STRING</a>:
<a name="l00406"></a>00406 val.ptr = <a class="code" href="ckd__alloc_8h.html#ad313f92478859f9e4ea99d0f6e78c393" title="Macro for __ckd_salloc__.">ckd_salloc</a>(e_str);
<a name="l00407"></a>00407 <span class="keywordflow">break</span>;
<a name="l00408"></a>00408 <span class="keywordflow">case</span> <a class="code" href="cmd__ln_8h.html#a0698bd0586e83569c1c0d86f072cfe13" title="Boolean (true/false) argument (optional).">ARG_STRING_LIST</a>:
<a name="l00409"></a>00409 val.ptr = parse_string_list(e_str);
<a name="l00410"></a>00410 <span class="keywordflow">break</span>;
<a name="l00411"></a>00411 <span class="keywordflow">default</span>:
<a name="l00412"></a>00412 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Unknown argument type: %d\n"</span>, t);
<a name="l00413"></a>00413 valid = 0;
<a name="l00414"></a>00414 }
<a name="l00415"></a>00415
<a name="l00416"></a>00416 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(e_str);
<a name="l00417"></a>00417 <span class="keywordflow">if</span> (valid == 0)
<a name="l00418"></a>00418 <span class="keywordflow">return</span> NULL;
<a name="l00419"></a>00419 }
<a name="l00420"></a>00420
<a name="l00421"></a>00421 v = <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(1, <span class="keyword">sizeof</span>(*v));
<a name="l00422"></a>00422 memcpy(v, &val, <span class="keyword">sizeof</span>(val));
<a name="l00423"></a>00423 v->type = t;
<a name="l00424"></a>00424
<a name="l00425"></a>00425 <span class="keywordflow">return</span> v;
<a name="l00426"></a>00426 }
<a name="l00427"></a>00427
<a name="l00428"></a>00428 <span class="comment">/*</span>
<a name="l00429"></a>00429 <span class="comment"> * Handles option parsing for cmd_ln_parse_file_r() and cmd_ln_init()</span>
<a name="l00430"></a>00430 <span class="comment"> * also takes care of storing argv.</span>
<a name="l00431"></a>00431 <span class="comment"> * DO NOT call it from cmd_ln_parse_r()</span>
<a name="l00432"></a>00432 <span class="comment"> */</span>
<a name="l00433"></a>00433 <span class="keyword">static</span> <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *
<a name="l00434"></a>00434 parse_options(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> *defn, int32 argc, <span class="keywordtype">char</span>* argv[], int32 strict)
<a name="l00435"></a>00435 {
<a name="l00436"></a>00436 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *new_cmdln;
<a name="l00437"></a>00437
<a name="l00438"></a>00438 new_cmdln = <a class="code" href="cmd__ln_8h.html#aa5a3a9e49198d8fd0dd3424fb880b6b6" title="Parse a list of strings into argumetns.">cmd_ln_parse_r</a>(cmdln, defn, argc, argv, strict);
<a name="l00439"></a>00439 <span class="comment">/* If this failed then clean up and return NULL. */</span>
<a name="l00440"></a>00440 <span class="keywordflow">if</span> (new_cmdln == NULL) {
<a name="l00441"></a>00441 int32 i;
<a name="l00442"></a>00442 <span class="keywordflow">for</span> (i = 0; i < argc; ++i)
<a name="l00443"></a>00443 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(argv[i]);
<a name="l00444"></a>00444 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(argv);
<a name="l00445"></a>00445 <span class="keywordflow">return</span> NULL;
<a name="l00446"></a>00446 }
<a name="l00447"></a>00447
<a name="l00448"></a>00448 <span class="comment">/* Otherwise, we need to add the contents of f_argv to the new object. */</span>
<a name="l00449"></a>00449 <span class="keywordflow">if</span> (new_cmdln == cmdln) {
<a name="l00450"></a>00450 <span class="comment">/* If we are adding to a previously passed-in cmdln, then</span>
<a name="l00451"></a>00451 <span class="comment"> * store our allocated strings in its f_argv. */</span>
<a name="l00452"></a>00452 new_cmdln->f_argv = <a class="code" href="ckd__alloc_8h.html#afd496738b3e114bd494c5a0955f1bfb3" title="Macro for __ckd_realloc__.">ckd_realloc</a>(new_cmdln->f_argv,
<a name="l00453"></a>00453 (new_cmdln->f_argc + argc)
<a name="l00454"></a>00454 * <span class="keyword">sizeof</span>(*new_cmdln->f_argv));
<a name="l00455"></a>00455 memcpy(new_cmdln->f_argv + new_cmdln->f_argc, argv,
<a name="l00456"></a>00456 argc * <span class="keyword">sizeof</span>(*argv));
<a name="l00457"></a>00457 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(argv);
<a name="l00458"></a>00458 new_cmdln->f_argc += argc;
<a name="l00459"></a>00459 }
<a name="l00460"></a>00460 <span class="keywordflow">else</span> {
<a name="l00461"></a>00461 <span class="comment">/* Otherwise, store f_argc and f_argv. */</span>
<a name="l00462"></a>00462 new_cmdln->f_argc = argc;
<a name="l00463"></a>00463 new_cmdln->f_argv = argv;
<a name="l00464"></a>00464 }
<a name="l00465"></a>00465
<a name="l00466"></a>00466 <span class="keywordflow">return</span> new_cmdln;
<a name="l00467"></a>00467 }
<a name="l00468"></a>00468
<a name="l00469"></a>00469 <span class="keywordtype">void</span>
<a name="l00470"></a>00470 cmd_ln_val_free(<a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_t</a> *val)
<a name="l00471"></a>00471 {
<a name="l00472"></a>00472 <span class="keywordtype">int</span> i;
<a name="l00473"></a>00473 <span class="keywordflow">if</span> (val->type & <a class="code" href="cmd__ln_8h.html#a0698bd0586e83569c1c0d86f072cfe13" title="Boolean (true/false) argument (optional).">ARG_STRING_LIST</a>) {
<a name="l00474"></a>00474 <span class="keywordtype">char</span> <span class="keyword">const</span>** array = (<span class="keywordtype">char</span> <span class="keyword">const</span> **)val->val.ptr;
<a name="l00475"></a>00475 if (array) {
<a name="l00476"></a>00476 <span class="keywordflow">for</span> (i = 0; array[i] != NULL; i++) {
<a name="l00477"></a>00477 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(val->val.ptr);
<a name="l00478"></a>00478 }
<a name="l00479"></a>00479 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(array);
<a name="l00480"></a>00480 }
<a name="l00481"></a>00481 }
<a name="l00482"></a>00482 <span class="keywordflow">if</span> (val->type & <a class="code" href="cmd__ln_8h.html#a4de5ed5fcf59a18b24bc9f6449cc9356" title="String argument (optional).">ARG_STRING</a>)
<a name="l00483"></a>00483 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(val->val.ptr);
<a name="l00484"></a>00484 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(val);
<a name="l00485"></a>00485 }
<a name="l00486"></a>00486
<a name="l00487"></a>00487 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *
<a name="l00488"></a><a class="code" href="cmd__ln_8h.html#a6e10003b5e86ec317c1b78c0655972af">00488</a> <a class="code" href="cmd__ln_8h.html#a6e10003b5e86ec317c1b78c0655972af" title="Retrieve the global cmd_ln_t object used by non-re-entrant functions.">cmd_ln_get</a>(<span class="keywordtype">void</span>)
<a name="l00489"></a>00489 {
<a name="l00490"></a>00490 <span class="keywordflow">return</span> global_cmdln;
<a name="l00491"></a>00491 }
<a name="l00492"></a>00492
<a name="l00493"></a>00493 <span class="keywordtype">void</span>
<a name="l00494"></a><a class="code" href="cmd__ln_8h.html#a7b06faa9f83eb8a2b045f8cfb6b67d36">00494</a> <a class="code" href="cmd__ln_8h.html#a7b06faa9f83eb8a2b045f8cfb6b67d36" title="Old application initialization routine for Sphinx3 code.">cmd_ln_appl_enter</a>(<span class="keywordtype">int</span> argc, <span class="keywordtype">char</span> *argv[],
<a name="l00495"></a>00495 <span class="keyword">const</span> <span class="keywordtype">char</span> *default_argfn,
<a name="l00496"></a>00496 <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> * defn)
<a name="l00497"></a>00497 {
<a name="l00498"></a>00498 <span class="comment">/* Look for default or specified arguments file */</span>
<a name="l00499"></a>00499 <span class="keyword">const</span> <span class="keywordtype">char</span> *str;
<a name="l00500"></a>00500
<a name="l00501"></a>00501 str = NULL;
<a name="l00502"></a>00502
<a name="l00503"></a>00503 <span class="keywordflow">if</span> ((argc == 2) && (strcmp(argv[1], <span class="stringliteral">"help"</span>) == 0)) {
<a name="l00504"></a>00504 <a class="code" href="cmd__ln_8h.html#aac4bb58af379a71fad4e1adc7fb4d476" title="Print a help message listing the valid argument names, and the associated attributes as given in defn...">cmd_ln_print_help</a>(stderr, defn);
<a name="l00505"></a>00505 exit(1);
<a name="l00506"></a>00506 }
<a name="l00507"></a>00507
<a name="l00508"></a>00508 <span class="keywordflow">if</span> ((argc == 2) && (argv[1][0] != <span class="charliteral">'-'</span>))
<a name="l00509"></a>00509 str = argv[1];
<a name="l00510"></a>00510 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (argc == 1) {
<a name="l00511"></a>00511 FILE *fp;
<a name="l00512"></a>00512 <a class="code" href="err_8h.html#ac3c705943d946708cea0a1443be1c853" title="Print logging information to standard error stream.">E_INFO</a>(<span class="stringliteral">"Looking for default argument file: %s\n"</span>, default_argfn);
<a name="l00513"></a>00513
<a name="l00514"></a>00514 <span class="keywordflow">if</span> ((fp = fopen(default_argfn, <span class="stringliteral">"r"</span>)) == NULL) {
<a name="l00515"></a>00515 <a class="code" href="err_8h.html#ac3c705943d946708cea0a1443be1c853" title="Print logging information to standard error stream.">E_INFO</a>(<span class="stringliteral">"Can't find default argument file %s.\n"</span>,
<a name="l00516"></a>00516 default_argfn);
<a name="l00517"></a>00517 }
<a name="l00518"></a>00518 <span class="keywordflow">else</span> {
<a name="l00519"></a>00519 str = default_argfn;
<a name="l00520"></a>00520 }
<a name="l00521"></a>00521 <span class="keywordflow">if</span> (fp != NULL)
<a name="l00522"></a>00522 fclose(fp);
<a name="l00523"></a>00523 }
<a name="l00524"></a>00524
<a name="l00525"></a>00525
<a name="l00526"></a>00526 <span class="keywordflow">if</span> (str) {
<a name="l00527"></a>00527 <span class="comment">/* Build command line argument list from file */</span>
<a name="l00528"></a>00528 <a class="code" href="err_8h.html#ac3c705943d946708cea0a1443be1c853" title="Print logging information to standard error stream.">E_INFO</a>(<span class="stringliteral">"Parsing command lines from file %s\n"</span>, str);
<a name="l00529"></a>00529 <span class="keywordflow">if</span> (<a class="code" href="cmd__ln_8h.html#ab7970c08288fae94d211a4252381bc61" title="Parse an arguments file by deliminating on &quot; \r\t\n&quot; and putting each tokens into an argv[]...">cmd_ln_parse_file</a>(defn, str, TRUE)) {
<a name="l00530"></a>00530 <a class="code" href="err_8h.html#ae5a17ac5be8c738d3d977b1bea2d4538" title="Print logging information without header, to standard error stream.">E_INFOCONT</a>(<span class="stringliteral">"Usage:\n"</span>);
<a name="l00531"></a>00531 <a class="code" href="err_8h.html#ae5a17ac5be8c738d3d977b1bea2d4538" title="Print logging information without header, to standard error stream.">E_INFOCONT</a>(<span class="stringliteral">"\t%s argument-list, or\n"</span>, argv[0]);
<a name="l00532"></a>00532 <a class="code" href="err_8h.html#ae5a17ac5be8c738d3d977b1bea2d4538" title="Print logging information without header, to standard error stream.">E_INFOCONT</a>(<span class="stringliteral">"\t%s [argument-file] (default file: . %s)\n\n"</span>,
<a name="l00533"></a>00533 argv[0], default_argfn);
<a name="l00534"></a>00534 <a class="code" href="cmd__ln_8h.html#aac4bb58af379a71fad4e1adc7fb4d476" title="Print a help message listing the valid argument names, and the associated attributes as given in defn...">cmd_ln_print_help</a>(stderr, defn);
<a name="l00535"></a>00535 exit(1);
<a name="l00536"></a>00536 }
<a name="l00537"></a>00537 }
<a name="l00538"></a>00538 <span class="keywordflow">else</span> {
<a name="l00539"></a>00539 <a class="code" href="cmd__ln_8h.html#a42447819b47aab58ee53f4745244f7f7" title="Non-reentrant version of cmd_ln_parse().">cmd_ln_parse</a>(defn, argc, argv, TRUE);
<a name="l00540"></a>00540 }
<a name="l00541"></a>00541 }
<a name="l00542"></a>00542
<a name="l00543"></a>00543 <span class="keywordtype">void</span>
<a name="l00544"></a><a class="code" href="cmd__ln_8h.html#a97d5edba5ad53d97a159ac8ab9234de7">00544</a> <a class="code" href="cmd__ln_8h.html#a97d5edba5ad53d97a159ac8ab9234de7" title="Finalization routine corresponding to cmd_ln_appl_enter().">cmd_ln_appl_exit</a>()
<a name="l00545"></a>00545 {
<a name="l00546"></a>00546 <a class="code" href="cmd__ln_8h.html#a439d3f832f92ae655f1028445aa91602" title="Free the global command line, if any exists.">cmd_ln_free</a>();
<a name="l00547"></a>00547 }
<a name="l00548"></a>00548
<a name="l00549"></a>00549
<a name="l00550"></a>00550 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *
<a name="l00551"></a><a class="code" href="cmd__ln_8h.html#aa5a3a9e49198d8fd0dd3424fb880b6b6">00551</a> <a class="code" href="cmd__ln_8h.html#aa5a3a9e49198d8fd0dd3424fb880b6b6" title="Parse a list of strings into argumetns.">cmd_ln_parse_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *inout_cmdln, <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> * defn, int32 argc, <span class="keywordtype">char</span> *argv[], <span class="keywordtype">int</span> strict)
<a name="l00552"></a>00552 {
<a name="l00553"></a>00553 int32 i, j, n, argstart;
<a name="l00554"></a>00554 <a class="code" href="structhash__table__t.html">hash_table_t</a> *defidx = NULL;
<a name="l00555"></a>00555 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln;
<a name="l00556"></a>00556
<a name="l00557"></a>00557 <span class="comment">/* Echo command line */</span>
<a name="l00558"></a>00558 <span class="preprocessor">#ifndef _WIN32_WCE</span>
<a name="l00559"></a>00559 <span class="preprocessor"></span> <a class="code" href="err_8h.html#ac3c705943d946708cea0a1443be1c853" title="Print logging information to standard error stream.">E_INFO</a>(<span class="stringliteral">"Parsing command line:\n"</span>);
<a name="l00560"></a>00560 <span class="keywordflow">for</span> (i = 0; i < argc; i++) {
<a name="l00561"></a>00561 <span class="keywordflow">if</span> (argv[i][0] == <span class="charliteral">'-'</span>)
<a name="l00562"></a>00562 <a class="code" href="err_8h.html#ae5a17ac5be8c738d3d977b1bea2d4538" title="Print logging information without header, to standard error stream.">E_INFOCONT</a>(<span class="stringliteral">"\\\n\t"</span>);
<a name="l00563"></a>00563 <a class="code" href="err_8h.html#ae5a17ac5be8c738d3d977b1bea2d4538" title="Print logging information without header, to standard error stream.">E_INFOCONT</a>(<span class="stringliteral">"%s "</span>, argv[i]);
<a name="l00564"></a>00564 }
<a name="l00565"></a>00565 <a class="code" href="err_8h.html#ae5a17ac5be8c738d3d977b1bea2d4538" title="Print logging information without header, to standard error stream.">E_INFOCONT</a>(<span class="stringliteral">"\n\n"</span>);
<a name="l00566"></a>00566 fflush(stderr);
<a name="l00567"></a>00567 <span class="preprocessor">#endif</span>
<a name="l00568"></a>00568 <span class="preprocessor"></span>
<a name="l00569"></a>00569 <span class="comment">/* Construct command-line object */</span>
<a name="l00570"></a>00570 <span class="keywordflow">if</span> (inout_cmdln == NULL) {
<a name="l00571"></a>00571 cmdln = <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(1, <span class="keyword">sizeof</span>(*cmdln));
<a name="l00572"></a>00572 cmdln->refcount = 1;
<a name="l00573"></a>00573 }
<a name="l00574"></a>00574 <span class="keywordflow">else</span>
<a name="l00575"></a>00575 cmdln = inout_cmdln;
<a name="l00576"></a>00576
<a name="l00577"></a>00577 <span class="comment">/* Build a hash table for argument definitions */</span>
<a name="l00578"></a>00578 defidx = <a class="code" href="hash__table_8h.html#a56d93e8c03e066b77377ac6eab50cfae" title="Allocate a new hash table for a given expected size.">hash_table_new</a>(50, 0);
<a name="l00579"></a>00579 <span class="keywordflow">if</span> (defn) {
<a name="l00580"></a>00580 <span class="keywordflow">for</span> (n = 0; defn[n].name; n++) {
<a name="l00581"></a>00581 <span class="keywordtype">void</span> *v;
<a name="l00582"></a>00582
<a name="l00583"></a>00583 v = <a class="code" href="hash__table_8h.html#aebfe63c3869c271b125a8413ee384412" title="Try to add a new entry with given key and associated value to hash table h.">hash_table_enter</a>(defidx, defn[n].name, (<span class="keywordtype">void</span> *)&defn[n]);
<a name="l00584"></a>00584 <span class="keywordflow">if</span> (strict && (v != &defn[n])) {
<a name="l00585"></a>00585 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Duplicate argument name in definition: %s\n"</span>, defn[n].name);
<a name="l00586"></a>00586 <span class="keywordflow">goto</span> error;
<a name="l00587"></a>00587 }
<a name="l00588"></a>00588 }
<a name="l00589"></a>00589 }
<a name="l00590"></a>00590 <span class="keywordflow">else</span> {
<a name="l00591"></a>00591 <span class="comment">/* No definitions. */</span>
<a name="l00592"></a>00592 n = 0;
<a name="l00593"></a>00593 }
<a name="l00594"></a>00594
<a name="l00595"></a>00595 <span class="comment">/* Allocate memory for argument values */</span>
<a name="l00596"></a>00596 <span class="keywordflow">if</span> (cmdln->ht == NULL)
<a name="l00597"></a>00597 cmdln->ht = <a class="code" href="hash__table_8h.html#a56d93e8c03e066b77377ac6eab50cfae" title="Allocate a new hash table for a given expected size.">hash_table_new</a>(n, 0 <span class="comment">/* argument names are case-sensitive */</span> );
<a name="l00598"></a>00598
<a name="l00599"></a>00599
<a name="l00600"></a>00600 <span class="comment">/* skip argv[0] if it doesn't start with dash */</span>
<a name="l00601"></a>00601 argstart = 0;
<a name="l00602"></a>00602 <span class="keywordflow">if</span> (argc > 0 && argv[0][0] != <span class="charliteral">'-'</span>) {
<a name="l00603"></a>00603 argstart = 1;
<a name="l00604"></a>00604 }
<a name="l00605"></a>00605
<a name="l00606"></a>00606 <span class="comment">/* Parse command line arguments (name-value pairs) */</span>
<a name="l00607"></a>00607 <span class="keywordflow">for</span> (j = argstart; j < argc; j += 2) {
<a name="l00608"></a>00608 <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> *argdef;
<a name="l00609"></a>00609 <a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_t</a> *val;
<a name="l00610"></a>00610 <span class="keywordtype">void</span> *v;
<a name="l00611"></a>00611
<a name="l00612"></a>00612 <span class="keywordflow">if</span> (<a class="code" href="hash__table_8h.html#a9a1e5ed410eb96f514b00fdce770fbd7" title="Look up a key in a hash table and optionally return the associated value.">hash_table_lookup</a>(defidx, argv[j], &v) < 0) {
<a name="l00613"></a>00613 <span class="keywordflow">if</span> (strict) {
<a name="l00614"></a>00614 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Unknown argument name '%s'\n"</span>, argv[j]);
<a name="l00615"></a>00615 <span class="keywordflow">goto</span> error;
<a name="l00616"></a>00616 }
<a name="l00617"></a>00617 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (defn == NULL)
<a name="l00618"></a>00618 v = NULL;
<a name="l00619"></a>00619 <span class="keywordflow">else</span>
<a name="l00620"></a>00620 <span class="keywordflow">continue</span>;
<a name="l00621"></a>00621 }
<a name="l00622"></a>00622 argdef = v;
<a name="l00623"></a>00623
<a name="l00624"></a>00624 <span class="comment">/* Enter argument value */</span>
<a name="l00625"></a>00625 <span class="keywordflow">if</span> (j + 1 >= argc) {
<a name="l00626"></a>00626 <a class="code" href="cmd__ln_8h.html#a103dabd597830caf65ec4ef3fdc71a1a" title="Print a help message listing the valid argument names, and the associated attributes as given in defn...">cmd_ln_print_help_r</a>(cmdln, stderr, defn);
<a name="l00627"></a>00627 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Argument value for '%s' missing\n"</span>, argv[j]);
<a name="l00628"></a>00628 <span class="keywordflow">goto</span> error;
<a name="l00629"></a>00629 }
<a name="l00630"></a>00630
<a name="l00631"></a>00631 <span class="keywordflow">if</span> (argdef == NULL)
<a name="l00632"></a>00632 val = cmd_ln_val_init(<a class="code" href="cmd__ln_8h.html#a4de5ed5fcf59a18b24bc9f6449cc9356" title="String argument (optional).">ARG_STRING</a>, argv[j + 1]);
<a name="l00633"></a>00633 <span class="keywordflow">else</span> {
<a name="l00634"></a>00634 <span class="keywordflow">if</span> ((val = cmd_ln_val_init(argdef->type, argv[j + 1])) == NULL) {
<a name="l00635"></a>00635 <a class="code" href="cmd__ln_8h.html#a103dabd597830caf65ec4ef3fdc71a1a" title="Print a help message listing the valid argument names, and the associated attributes as given in defn...">cmd_ln_print_help_r</a>(cmdln, stderr, defn);
<a name="l00636"></a>00636 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Bad argument value for %s: %s\n"</span>, argv[j],
<a name="l00637"></a>00637 argv[j + 1]);
<a name="l00638"></a>00638 <span class="keywordflow">goto</span> error;
<a name="l00639"></a>00639 }
<a name="l00640"></a>00640 }
<a name="l00641"></a>00641
<a name="l00642"></a>00642 <span class="keywordflow">if</span> ((v = <a class="code" href="hash__table_8h.html#aebfe63c3869c271b125a8413ee384412" title="Try to add a new entry with given key and associated value to hash table h.">hash_table_enter</a>(cmdln->ht, argv[j], (<span class="keywordtype">void</span> *)val)) != (<span class="keywordtype">void</span> *)val) {
<a name="l00643"></a>00643 <span class="keywordflow">if</span> (strict) {
<a name="l00644"></a>00644 cmd_ln_val_free(val);
<a name="l00645"></a>00645 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Duplicate argument name in arguments: %s\n"</span>,
<a name="l00646"></a>00646 argdef->name);
<a name="l00647"></a>00647 <span class="keywordflow">goto</span> error;
<a name="l00648"></a>00648 }
<a name="l00649"></a>00649 <span class="keywordflow">else</span> {
<a name="l00650"></a>00650 v = <a class="code" href="hash__table_8h.html#ae61b28ea189a98ef8f2a3c5521482968" title="Add a new entry with given key and value to hash table h.">hash_table_replace</a>(cmdln->ht, argv[j], (<span class="keywordtype">void</span> *)val);
<a name="l00651"></a>00651 cmd_ln_val_free((<a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_t</a> *)v);
<a name="l00652"></a>00652 }
<a name="l00653"></a>00653 }
<a name="l00654"></a>00654 }
<a name="l00655"></a>00655
<a name="l00656"></a>00656 <span class="comment">/* Fill in default values, if any, for unspecified arguments */</span>
<a name="l00657"></a>00657 <span class="keywordflow">for</span> (i = 0; i < n; i++) {
<a name="l00658"></a>00658 <a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_t</a> *val;
<a name="l00659"></a>00659 <span class="keywordtype">void</span> *v;
<a name="l00660"></a>00660
<a name="l00661"></a>00661 <span class="keywordflow">if</span> (<a class="code" href="hash__table_8h.html#a9a1e5ed410eb96f514b00fdce770fbd7" title="Look up a key in a hash table and optionally return the associated value.">hash_table_lookup</a>(cmdln->ht, defn[i].name, &v) < 0) {
<a name="l00662"></a>00662 <span class="keywordflow">if</span> ((val = cmd_ln_val_init(defn[i].type, defn[i].deflt)) == NULL) {
<a name="l00663"></a>00663 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>
<a name="l00664"></a>00664 (<span class="stringliteral">"Bad default argument value for %s: %s\n"</span>,
<a name="l00665"></a>00665 defn[i].name, defn[i].deflt);
<a name="l00666"></a>00666 <span class="keywordflow">goto</span> error;
<a name="l00667"></a>00667 }
<a name="l00668"></a>00668 <a class="code" href="hash__table_8h.html#aebfe63c3869c271b125a8413ee384412" title="Try to add a new entry with given key and associated value to hash table h.">hash_table_enter</a>(cmdln->ht, defn[i].name, (<span class="keywordtype">void</span> *)val);
<a name="l00669"></a>00669 }
<a name="l00670"></a>00670 }
<a name="l00671"></a>00671
<a name="l00672"></a>00672 <span class="comment">/* Check for required arguments; exit if any missing */</span>
<a name="l00673"></a>00673 j = 0;
<a name="l00674"></a>00674 <span class="keywordflow">for</span> (i = 0; i < n; i++) {
<a name="l00675"></a>00675 <span class="keywordflow">if</span> (defn[i].type & <a class="code" href="cmd__ln_8h.html#ab1f031eb9c89fa1bcae95b1c7532fb3d" title="Bit indicating a required argument.">ARG_REQUIRED</a>) {
<a name="l00676"></a>00676 <span class="keywordtype">void</span> *v;
<a name="l00677"></a>00677 <span class="keywordflow">if</span> (<a class="code" href="hash__table_8h.html#a9a1e5ed410eb96f514b00fdce770fbd7" title="Look up a key in a hash table and optionally return the associated value.">hash_table_lookup</a>(cmdln->ht, defn[i].name, &v) != 0)
<a name="l00678"></a>00678 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Missing required argument %s\n"</span>, defn[i].name);
<a name="l00679"></a>00679 }
<a name="l00680"></a>00680 }
<a name="l00681"></a>00681 <span class="keywordflow">if</span> (j > 0) {
<a name="l00682"></a>00682 <a class="code" href="cmd__ln_8h.html#a103dabd597830caf65ec4ef3fdc71a1a" title="Print a help message listing the valid argument names, and the associated attributes as given in defn...">cmd_ln_print_help_r</a>(cmdln, stderr, defn);
<a name="l00683"></a>00683 <span class="keywordflow">goto</span> error;
<a name="l00684"></a>00684 }
<a name="l00685"></a>00685
<a name="l00686"></a>00686 <span class="keywordflow">if</span> (strict && argc == 1) {
<a name="l00687"></a>00687 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"No arguments given, exiting\n"</span>);
<a name="l00688"></a>00688 <a class="code" href="cmd__ln_8h.html#a103dabd597830caf65ec4ef3fdc71a1a" title="Print a help message listing the valid argument names, and the associated attributes as given in defn...">cmd_ln_print_help_r</a>(cmdln, stderr, defn);
<a name="l00689"></a>00689 <span class="keywordflow">goto</span> error;
<a name="l00690"></a>00690 }
<a name="l00691"></a>00691
<a name="l00692"></a>00692 <span class="preprocessor">#ifndef _WIN32_WCE</span>
<a name="l00693"></a>00693 <span class="preprocessor"></span> <span class="comment">/* Print configuration */</span>
<a name="l00694"></a>00694 <a class="code" href="err_8h.html#ae5a17ac5be8c738d3d977b1bea2d4538" title="Print logging information without header, to standard error stream.">E_INFOCONT</a>(<span class="stringliteral">"Current configuration:\n"</span>);
<a name="l00695"></a>00695 arg_dump_r(cmdln, <a class="code" href="err_8h.html#a9707012f263e46ea66e93349313ddbe6" title="Get the current logging filehandle.">err_get_logfp</a>(), defn, 0);
<a name="l00696"></a>00696 <span class="preprocessor">#endif</span>
<a name="l00697"></a>00697 <span class="preprocessor"></span> <a class="code" href="hash__table_8h.html#a0a588c22946f8cc16328973035ed19e3" title="Free the specified hash table; the caller is responsible for freeing the key strings pointed to by th...">hash_table_free</a>(defidx);
<a name="l00698"></a>00698 <span class="keywordflow">return</span> cmdln;
<a name="l00699"></a>00699
<a name="l00700"></a>00700 error:
<a name="l00701"></a>00701 <span class="keywordflow">if</span> (defidx)
<a name="l00702"></a>00702 <a class="code" href="hash__table_8h.html#a0a588c22946f8cc16328973035ed19e3" title="Free the specified hash table; the caller is responsible for freeing the key strings pointed to by th...">hash_table_free</a>(defidx);
<a name="l00703"></a>00703 <span class="keywordflow">if</span> (inout_cmdln == NULL)
<a name="l00704"></a>00704 <a class="code" href="cmd__ln_8h.html#a26707fc85e87d8999e368a680e7873cd" title="Release a command-line argument set and all associated strings.">cmd_ln_free_r</a>(cmdln);
<a name="l00705"></a>00705 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"cmd_ln_parse_r failed\n"</span>);
<a name="l00706"></a>00706 <span class="keywordflow">return</span> NULL;
<a name="l00707"></a>00707 }
<a name="l00708"></a>00708
<a name="l00709"></a>00709 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *
<a name="l00710"></a><a class="code" href="cmd__ln_8h.html#afdba0ab4dfe8a3ad9d49a6732bd62c42">00710</a> <a class="code" href="cmd__ln_8h.html#afdba0ab4dfe8a3ad9d49a6732bd62c42" title="Create a cmd_ln_t from NULL-terminated list of arguments.">cmd_ln_init</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *inout_cmdln, <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> *defn, int32 strict, ...)
<a name="l00711"></a>00711 {
<a name="l00712"></a>00712 va_list args;
<a name="l00713"></a>00713 <span class="keyword">const</span> <span class="keywordtype">char</span> *arg, *val;
<a name="l00714"></a>00714 <span class="keywordtype">char</span> **f_argv;
<a name="l00715"></a>00715 int32 f_argc;
<a name="l00716"></a>00716
<a name="l00717"></a>00717 va_start(args, strict);
<a name="l00718"></a>00718 f_argc = 0;
<a name="l00719"></a>00719 <span class="keywordflow">while</span> ((arg = va_arg(args, <span class="keyword">const</span> <span class="keywordtype">char</span> *))) {
<a name="l00720"></a>00720 ++f_argc;
<a name="l00721"></a>00721 val = va_arg(args, <span class="keyword">const</span> <span class="keywordtype">char</span>*);
<a name="l00722"></a>00722 <span class="keywordflow">if</span> (val == NULL) {
<a name="l00723"></a>00723 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Number of arguments must be even!\n"</span>);
<a name="l00724"></a>00724 <span class="keywordflow">return</span> NULL;
<a name="l00725"></a>00725 }
<a name="l00726"></a>00726 ++f_argc;
<a name="l00727"></a>00727 }
<a name="l00728"></a>00728 va_end(args);
<a name="l00729"></a>00729
<a name="l00730"></a>00730 <span class="comment">/* Now allocate f_argv */</span>
<a name="l00731"></a>00731 f_argv = <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(f_argc, <span class="keyword">sizeof</span>(*f_argv));
<a name="l00732"></a>00732 va_start(args, strict);
<a name="l00733"></a>00733 f_argc = 0;
<a name="l00734"></a>00734 <span class="keywordflow">while</span> ((arg = va_arg(args, <span class="keyword">const</span> <span class="keywordtype">char</span> *))) {
<a name="l00735"></a>00735 f_argv[f_argc] = <a class="code" href="ckd__alloc_8h.html#ad313f92478859f9e4ea99d0f6e78c393" title="Macro for __ckd_salloc__.">ckd_salloc</a>(arg);
<a name="l00736"></a>00736 ++f_argc;
<a name="l00737"></a>00737 val = va_arg(args, <span class="keyword">const</span> <span class="keywordtype">char</span>*);
<a name="l00738"></a>00738 f_argv[f_argc] = <a class="code" href="ckd__alloc_8h.html#ad313f92478859f9e4ea99d0f6e78c393" title="Macro for __ckd_salloc__.">ckd_salloc</a>(val);
<a name="l00739"></a>00739 ++f_argc;
<a name="l00740"></a>00740 }
<a name="l00741"></a>00741 va_end(args);
<a name="l00742"></a>00742
<a name="l00743"></a>00743 <span class="keywordflow">return</span> parse_options(inout_cmdln, defn, f_argc, f_argv, strict);
<a name="l00744"></a>00744 }
<a name="l00745"></a>00745
<a name="l00746"></a>00746 <span class="keywordtype">int</span>
<a name="l00747"></a><a class="code" href="cmd__ln_8h.html#a42447819b47aab58ee53f4745244f7f7">00747</a> <a class="code" href="cmd__ln_8h.html#a42447819b47aab58ee53f4745244f7f7" title="Non-reentrant version of cmd_ln_parse().">cmd_ln_parse</a>(<span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> * defn, int32 argc, <span class="keywordtype">char</span> *argv[], <span class="keywordtype">int</span> strict)
<a name="l00748"></a>00748 {
<a name="l00749"></a>00749 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln;
<a name="l00750"></a>00750
<a name="l00751"></a>00751 cmdln = <a class="code" href="cmd__ln_8h.html#aa5a3a9e49198d8fd0dd3424fb880b6b6" title="Parse a list of strings into argumetns.">cmd_ln_parse_r</a>(global_cmdln, defn, argc, argv, strict);
<a name="l00752"></a>00752 <span class="keywordflow">if</span> (cmdln == NULL) {
<a name="l00753"></a>00753 <span class="comment">/* Old, bogus behaviour... */</span>
<a name="l00754"></a>00754 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"cmd_ln_parse failed, forced exit\n"</span>);
<a name="l00755"></a>00755 exit(-1);
<a name="l00756"></a>00756 }
<a name="l00757"></a>00757 <span class="comment">/* Initialize global_cmdln if not present. */</span>
<a name="l00758"></a>00758 <span class="keywordflow">if</span> (global_cmdln == NULL) {
<a name="l00759"></a>00759 global_cmdln = cmdln;
<a name="l00760"></a>00760 }
<a name="l00761"></a>00761 <span class="keywordflow">return</span> 0;
<a name="l00762"></a>00762 }
<a name="l00763"></a>00763
<a name="l00764"></a>00764 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *
<a name="l00765"></a><a class="code" href="cmd__ln_8h.html#a57f54649952a07b8bef888af4e416550">00765</a> <a class="code" href="cmd__ln_8h.html#a57f54649952a07b8bef888af4e416550" title="Parse an arguments file by deliminating on &quot; \r\t\n&quot; and putting each tokens into an argv[]...">cmd_ln_parse_file_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *inout_cmdln, <span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> * defn, <span class="keyword">const</span> <span class="keywordtype">char</span> *filename, int32 strict)
<a name="l00766"></a>00766 {
<a name="l00767"></a>00767 FILE *file;
<a name="l00768"></a>00768 <span class="keywordtype">int</span> argc;
<a name="l00769"></a>00769 <span class="keywordtype">int</span> argv_size;
<a name="l00770"></a>00770 <span class="keywordtype">char</span> *str;
<a name="l00771"></a>00771 <span class="keywordtype">int</span> arg_max_length = 512;
<a name="l00772"></a>00772 <span class="keywordtype">int</span> len = 0;
<a name="l00773"></a>00773 <span class="keywordtype">int</span> quoting, ch;
<a name="l00774"></a>00774 <span class="keywordtype">char</span> **f_argv;
<a name="l00775"></a>00775 <span class="keywordtype">int</span> rv = 0;
<a name="l00776"></a>00776 <span class="keyword">const</span> <span class="keywordtype">char</span> separator[] = <span class="stringliteral">" \t\r\n"</span>;
<a name="l00777"></a>00777
<a name="l00778"></a>00778 <span class="keywordflow">if</span> ((file = fopen(filename, <span class="stringliteral">"r"</span>)) == NULL) {
<a name="l00779"></a>00779 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Cannot open configuration file %s for reading\n"</span>,
<a name="l00780"></a>00780 filename);
<a name="l00781"></a>00781 <span class="keywordflow">return</span> NULL;
<a name="l00782"></a>00782 }
<a name="l00783"></a>00783
<a name="l00784"></a>00784 ch = fgetc(file);
<a name="l00785"></a>00785 <span class="comment">/* Skip to the next interesting character */</span>
<a name="l00786"></a>00786 <span class="keywordflow">for</span> (; ch != EOF && strchr(separator, ch); ch = fgetc(file)) ;
<a name="l00787"></a>00787
<a name="l00788"></a>00788 <span class="keywordflow">if</span> (ch == EOF) {
<a name="l00789"></a>00789 fclose(file);
<a name="l00790"></a>00790 <span class="keywordflow">return</span> NULL;
<a name="l00791"></a>00791 }
<a name="l00792"></a>00792
<a name="l00793"></a>00793 <span class="comment">/*</span>
<a name="l00794"></a>00794 <span class="comment"> * Initialize default argv, argc, and argv_size.</span>
<a name="l00795"></a>00795 <span class="comment"> */</span>
<a name="l00796"></a>00796 argv_size = 10;
<a name="l00797"></a>00797 argc = 0;
<a name="l00798"></a>00798 f_argv = <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(argv_size, <span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *));
<a name="l00799"></a>00799 <span class="comment">/* Silently make room for \0 */</span>
<a name="l00800"></a>00800 str = <a class="code" href="ckd__alloc_8h.html#aa00ef21903bc4f8a972488417adc8d2e" title="Macros to simplify the use of above functions.">ckd_calloc</a>(arg_max_length + 1, <span class="keyword">sizeof</span>(<span class="keywordtype">char</span>));
<a name="l00801"></a>00801 quoting = 0;
<a name="l00802"></a>00802
<a name="l00803"></a>00803 <span class="keywordflow">do</span> {
<a name="l00804"></a>00804 <span class="comment">/* Handle arguments that are commented out */</span>
<a name="l00805"></a>00805 <span class="keywordflow">if</span> (len == 0 && argc % 2 == 0) {
<a name="l00806"></a>00806 <span class="keywordflow">while</span> (ch == <span class="charliteral">'#'</span>) {
<a name="l00807"></a>00807 <span class="comment">/* Skip everything until newline */</span>
<a name="l00808"></a>00808 <span class="keywordflow">for</span> (ch = fgetc(file); ch != EOF && ch != <span class="charliteral">'\n'</span>; ch = fgetc(file)) ;
<a name="l00809"></a>00809 <span class="comment">/* Skip to the next interesting character */</span>
<a name="l00810"></a>00810 <span class="keywordflow">for</span> (ch = fgetc(file); ch != EOF && strchr(separator, ch); ch = fgetc(file)) ;
<a name="l00811"></a>00811 }
<a name="l00812"></a>00812
<a name="l00813"></a>00813 <span class="comment">/* Check if we are at the last line (without anything interesting in it) */</span>
<a name="l00814"></a>00814 <span class="keywordflow">if</span> (ch == EOF)
<a name="l00815"></a>00815 <span class="keywordflow">break</span>;
<a name="l00816"></a>00816 }
<a name="l00817"></a>00817
<a name="l00818"></a>00818 <span class="comment">/* Handle quoted arguments */</span>
<a name="l00819"></a>00819 <span class="keywordflow">if</span> (ch == <span class="charliteral">'"'</span> || ch == <span class="charliteral">'\''</span>) {
<a name="l00820"></a>00820 <span class="keywordflow">if</span> (quoting == ch) <span class="comment">/* End a quoted section with the same type */</span>
<a name="l00821"></a>00821 quoting = 0;
<a name="l00822"></a>00822 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (quoting) {
<a name="l00823"></a>00823 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Nesting quotations is not supported!\n"</span>);
<a name="l00824"></a>00824 rv = 1;
<a name="l00825"></a>00825 <span class="keywordflow">break</span>;
<a name="l00826"></a>00826 }
<a name="l00827"></a>00827 <span class="keywordflow">else</span>
<a name="l00828"></a>00828 quoting = ch; <span class="comment">/* Start a quoted section */</span>
<a name="l00829"></a>00829 }
<a name="l00830"></a>00830 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ch == EOF || (!quoting && strchr(separator, ch))) {
<a name="l00831"></a>00831 <span class="comment">/* Reallocate argv so it is big enough to contain all the arguments */</span>
<a name="l00832"></a>00832 <span class="keywordflow">if</span> (argc >= argv_size) {
<a name="l00833"></a>00833 <span class="keywordtype">char</span> **tmp_argv;
<a name="l00834"></a>00834 <span class="keywordflow">if</span> (!(tmp_argv =
<a name="l00835"></a>00835 <a class="code" href="ckd__alloc_8h.html#afd496738b3e114bd494c5a0955f1bfb3" title="Macro for __ckd_realloc__.">ckd_realloc</a>(f_argv, argv_size * 2 * <span class="keyword">sizeof</span>(<span class="keywordtype">char</span> *)))) {
<a name="l00836"></a>00836 rv = 1;
<a name="l00837"></a>00837 <span class="keywordflow">break</span>;
<a name="l00838"></a>00838 }
<a name="l00839"></a>00839 f_argv = tmp_argv;
<a name="l00840"></a>00840 argv_size *= 2;
<a name="l00841"></a>00841 }
<a name="l00842"></a>00842 <span class="comment">/* Add the string to the list of arguments */</span>
<a name="l00843"></a>00843 f_argv[argc] = <a class="code" href="ckd__alloc_8h.html#ad313f92478859f9e4ea99d0f6e78c393" title="Macro for __ckd_salloc__.">ckd_salloc</a>(str);
<a name="l00844"></a>00844 len = 0;
<a name="l00845"></a>00845 str[0] = <span class="charliteral">'\0'</span>;
<a name="l00846"></a>00846 argc++;
<a name="l00847"></a>00847
<a name="l00848"></a>00848 <span class="keywordflow">if</span> (quoting)
<a name="l00849"></a>00849 <a class="code" href="err_8h.html#a6a794bec721b555ac1f2167f9e12f662" title="Print warning information to standard error stream.">E_WARN</a>(<span class="stringliteral">"Unclosed quotation, having EOF close it...\n"</span>);
<a name="l00850"></a>00850
<a name="l00851"></a>00851 <span class="comment">/* Skip to the next interesting character */</span>
<a name="l00852"></a>00852 <span class="keywordflow">for</span> (; ch != EOF && strchr(separator, ch); ch = fgetc(file)) ;
<a name="l00853"></a>00853
<a name="l00854"></a>00854 <span class="keywordflow">if</span> (ch == EOF)
<a name="l00855"></a>00855 <span class="keywordflow">break</span>;
<a name="l00856"></a>00856
<a name="l00857"></a>00857 <span class="comment">/* We already have the next character */</span>
<a name="l00858"></a>00858 <span class="keywordflow">continue</span>;
<a name="l00859"></a>00859 }
<a name="l00860"></a>00860 <span class="keywordflow">else</span> {
<a name="l00861"></a>00861 <span class="keywordflow">if</span> (len >= arg_max_length) {
<a name="l00862"></a>00862 <span class="comment">/* Make room for more chars (including the \0 !) */</span>
<a name="l00863"></a>00863 <span class="keywordtype">char</span> *tmp_str = str;
<a name="l00864"></a>00864 <span class="keywordflow">if</span> ((tmp_str = <a class="code" href="ckd__alloc_8h.html#afd496738b3e114bd494c5a0955f1bfb3" title="Macro for __ckd_realloc__.">ckd_realloc</a>(str, (1 + arg_max_length * 2) * <span class="keyword">sizeof</span>(<span class="keywordtype">char</span>))) == NULL) {
<a name="l00865"></a>00865 rv = 1;
<a name="l00866"></a>00866 <span class="keywordflow">break</span>;
<a name="l00867"></a>00867 }
<a name="l00868"></a>00868 str = tmp_str;
<a name="l00869"></a>00869 arg_max_length *= 2;
<a name="l00870"></a>00870 }
<a name="l00871"></a>00871 <span class="comment">/* Add the char to the argument string */</span>
<a name="l00872"></a>00872 str[len++] = ch;
<a name="l00873"></a>00873 <span class="comment">/* Always null terminate */</span>
<a name="l00874"></a>00874 str[len] = <span class="charliteral">'\0'</span>;
<a name="l00875"></a>00875 }
<a name="l00876"></a>00876
<a name="l00877"></a>00877 ch = fgetc(file);
<a name="l00878"></a>00878 } <span class="keywordflow">while</span> (1);
<a name="l00879"></a>00879
<a name="l00880"></a>00880 fclose(file);
<a name="l00881"></a>00881
<a name="l00882"></a>00882 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(str);
<a name="l00883"></a>00883
<a name="l00884"></a>00884 <span class="keywordflow">if</span> (rv) {
<a name="l00885"></a>00885 <span class="keywordflow">for</span> (ch = 0; ch < argc; ++ch)
<a name="l00886"></a>00886 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(f_argv[ch]);
<a name="l00887"></a>00887 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(f_argv);
<a name="l00888"></a>00888 <span class="keywordflow">return</span> NULL;
<a name="l00889"></a>00889 }
<a name="l00890"></a>00890
<a name="l00891"></a>00891 <span class="keywordflow">return</span> parse_options(inout_cmdln, defn, argc, f_argv, strict);
<a name="l00892"></a>00892 }
<a name="l00893"></a>00893
<a name="l00894"></a>00894 <span class="keywordtype">int</span>
<a name="l00895"></a><a class="code" href="cmd__ln_8h.html#ab7970c08288fae94d211a4252381bc61">00895</a> <a class="code" href="cmd__ln_8h.html#ab7970c08288fae94d211a4252381bc61" title="Parse an arguments file by deliminating on &quot; \r\t\n&quot; and putting each tokens into an argv[]...">cmd_ln_parse_file</a>(<span class="keyword">const</span> <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> * defn, <span class="keyword">const</span> <span class="keywordtype">char</span> *filename, int32 strict)
<a name="l00896"></a>00896 {
<a name="l00897"></a>00897 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln;
<a name="l00898"></a>00898
<a name="l00899"></a>00899 cmdln = <a class="code" href="cmd__ln_8h.html#a57f54649952a07b8bef888af4e416550" title="Parse an arguments file by deliminating on &quot; \r\t\n&quot; and putting each tokens into an argv[]...">cmd_ln_parse_file_r</a>(global_cmdln, defn, filename, strict);
<a name="l00900"></a>00900 <span class="keywordflow">if</span> (cmdln == NULL) {
<a name="l00901"></a>00901 <span class="keywordflow">return</span> -1;
<a name="l00902"></a>00902 }
<a name="l00903"></a>00903 <span class="comment">/* Initialize global_cmdln if not present. */</span>
<a name="l00904"></a>00904 <span class="keywordflow">if</span> (global_cmdln == NULL) {
<a name="l00905"></a>00905 global_cmdln = cmdln;
<a name="l00906"></a>00906 }
<a name="l00907"></a>00907 <span class="keywordflow">return</span> 0;
<a name="l00908"></a>00908 }
<a name="l00909"></a>00909
<a name="l00910"></a>00910 <span class="keywordtype">void</span>
<a name="l00911"></a><a class="code" href="cmd__ln_8h.html#a103dabd597830caf65ec4ef3fdc71a1a">00911</a> <a class="code" href="cmd__ln_8h.html#a103dabd597830caf65ec4ef3fdc71a1a" title="Print a help message listing the valid argument names, and the associated attributes as given in defn...">cmd_ln_print_help_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, FILE * fp, <a class="code" href="structarg__t.html" title="Argument definition structure.">arg_t</a> <span class="keyword">const</span>* defn)
<a name="l00912"></a>00912 {
<a name="l00913"></a>00913 <span class="keywordflow">if</span> (defn == NULL)
<a name="l00914"></a>00914 <span class="keywordflow">return</span>;
<a name="l00915"></a>00915 fprintf(fp, <span class="stringliteral">"Arguments list definition:\n"</span>);
<a name="l00916"></a>00916 arg_dump_r(cmdln, fp, defn, 1);
<a name="l00917"></a>00917 fflush(fp);
<a name="l00918"></a>00918 }
<a name="l00919"></a>00919
<a name="l00920"></a>00920 <span class="keywordtype">int</span>
<a name="l00921"></a><a class="code" href="cmd__ln_8h.html#ab4ad5ae130e3c2c042590b41768635e3">00921</a> <a class="code" href="cmd__ln_8h.html#ab4ad5ae130e3c2c042590b41768635e3" title="Re-entrant version of cmd_ln_exists().">cmd_ln_exists_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keyword">const</span> <span class="keywordtype">char</span> *name)
<a name="l00922"></a>00922 {
<a name="l00923"></a>00923 <span class="keywordtype">void</span> *val;
<a name="l00924"></a>00924 <span class="keywordflow">if</span> (cmdln == NULL)
<a name="l00925"></a>00925 <span class="keywordflow">return</span> FALSE;
<a name="l00926"></a>00926 <span class="keywordflow">return</span> (<a class="code" href="hash__table_8h.html#a9a1e5ed410eb96f514b00fdce770fbd7" title="Look up a key in a hash table and optionally return the associated value.">hash_table_lookup</a>(cmdln->ht, name, &val) == 0);
<a name="l00927"></a>00927 }
<a name="l00928"></a>00928
<a name="l00929"></a>00929 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *
<a name="l00930"></a><a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7">00930</a> <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keyword">const</span> <span class="keywordtype">char</span> *name)
<a name="l00931"></a>00931 {
<a name="l00932"></a>00932 <span class="keywordtype">void</span> *val;
<a name="l00933"></a>00933 <span class="keywordflow">if</span> (<a class="code" href="hash__table_8h.html#a9a1e5ed410eb96f514b00fdce770fbd7" title="Look up a key in a hash table and optionally return the associated value.">hash_table_lookup</a>(cmdln->ht, name, &val) < 0) {
<a name="l00934"></a>00934 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Unknown argument: %s\n"</span>, name);
<a name="l00935"></a>00935 <span class="keywordflow">return</span> NULL;
<a name="l00936"></a>00936 }
<a name="l00937"></a>00937 <span class="keywordflow">return</span> (<a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *)val;
<a name="l00938"></a>00938 }
<a name="l00939"></a>00939
<a name="l00940"></a>00940 <span class="keywordtype">char</span> <span class="keyword">const</span> *
<a name="l00941"></a><a class="code" href="cmd__ln_8h.html#af0aa15288e06fc8271298e4fa7cdc91a">00941</a> <a class="code" href="cmd__ln_8h.html#af0aa15288e06fc8271298e4fa7cdc91a" title="Retrieve a string from a command-line object.">cmd_ln_str_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keywordtype">char</span> <span class="keyword">const</span> *name)
<a name="l00942"></a>00942 {
<a name="l00943"></a>00943 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *val;
<a name="l00944"></a>00944 val = <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(cmdln, name);
<a name="l00945"></a>00945 <span class="keywordflow">if</span> (val == NULL)
<a name="l00946"></a>00946 <span class="keywordflow">return</span> NULL;
<a name="l00947"></a>00947 <span class="keywordflow">return</span> (<span class="keywordtype">char</span> <span class="keyword">const</span> *)val->ptr;
<a name="l00948"></a>00948 }
<a name="l00949"></a>00949
<a name="l00950"></a>00950 <span class="keywordtype">char</span> <span class="keyword">const</span> **
<a name="l00951"></a><a class="code" href="cmd__ln_8h.html#a8ef7df4f5749b5517f3a655566104a10">00951</a> <a class="code" href="cmd__ln_8h.html#a8ef7df4f5749b5517f3a655566104a10" title="Retrieve an array of strings from a command-line object.">cmd_ln_str_list_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keywordtype">char</span> <span class="keyword">const</span> *name)
<a name="l00952"></a>00952 {
<a name="l00953"></a>00953 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *val;
<a name="l00954"></a>00954 val = <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(cmdln, name);
<a name="l00955"></a>00955 <span class="keywordflow">if</span> (val == NULL)
<a name="l00956"></a>00956 <span class="keywordflow">return</span> NULL;
<a name="l00957"></a>00957 <span class="keywordflow">return</span> (<span class="keywordtype">char</span> <span class="keyword">const</span> **)val->ptr;
<a name="l00958"></a>00958 }
<a name="l00959"></a>00959
<a name="l00960"></a>00960 <span class="keywordtype">long</span>
<a name="l00961"></a><a class="code" href="cmd__ln_8h.html#a3bf86d597effc163148fddf14c0d117a">00961</a> <a class="code" href="cmd__ln_8h.html#a3bf86d597effc163148fddf14c0d117a" title="Retrieve an integer from a command-line object.">cmd_ln_int_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keywordtype">char</span> <span class="keyword">const</span> *name)
<a name="l00962"></a>00962 {
<a name="l00963"></a>00963 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *val;
<a name="l00964"></a>00964 val = <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(cmdln, name);
<a name="l00965"></a>00965 <span class="keywordflow">if</span> (val == NULL)
<a name="l00966"></a>00966 <span class="keywordflow">return</span> 0L;
<a name="l00967"></a>00967 <span class="keywordflow">return</span> val->i;
<a name="l00968"></a>00968 }
<a name="l00969"></a>00969
<a name="l00970"></a>00970 <span class="keywordtype">double</span>
<a name="l00971"></a><a class="code" href="cmd__ln_8h.html#a2deca68514704cafbb7ec594b8ff38fe">00971</a> <a class="code" href="cmd__ln_8h.html#a2deca68514704cafbb7ec594b8ff38fe" title="Retrieve a floating-point number from a command-line object.">cmd_ln_float_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keywordtype">char</span> <span class="keyword">const</span> *name)
<a name="l00972"></a>00972 {
<a name="l00973"></a>00973 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *val;
<a name="l00974"></a>00974 val = <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(cmdln, name);
<a name="l00975"></a>00975 <span class="keywordflow">if</span> (val == NULL)
<a name="l00976"></a>00976 <span class="keywordflow">return</span> 0.0;
<a name="l00977"></a>00977 <span class="keywordflow">return</span> val->fl;
<a name="l00978"></a>00978 }
<a name="l00979"></a>00979
<a name="l00980"></a>00980 <span class="keywordtype">void</span>
<a name="l00981"></a><a class="code" href="cmd__ln_8h.html#a3868b219fd3eaf64e902db38145c1c59">00981</a> <a class="code" href="cmd__ln_8h.html#a3868b219fd3eaf64e902db38145c1c59" title="Set a string in a command-line object.">cmd_ln_set_str_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keywordtype">char</span> <span class="keyword">const</span> *name, <span class="keywordtype">char</span> <span class="keyword">const</span> *str)
<a name="l00982"></a>00982 {
<a name="l00983"></a>00983 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *val;
<a name="l00984"></a>00984 val = <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(cmdln, name);
<a name="l00985"></a>00985 <span class="keywordflow">if</span> (val == NULL) {
<a name="l00986"></a>00986 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Unknown argument: %s\n"</span>, name);
<a name="l00987"></a>00987 <span class="keywordflow">return</span>;
<a name="l00988"></a>00988 }
<a name="l00989"></a>00989 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(val->ptr);
<a name="l00990"></a>00990 <span class="keywordflow">if</span> (str == NULL)
<a name="l00991"></a>00991 val->ptr = NULL;
<a name="l00992"></a>00992 <span class="keywordflow">else</span>
<a name="l00993"></a>00993 val->ptr = <a class="code" href="ckd__alloc_8h.html#ad313f92478859f9e4ea99d0f6e78c393" title="Macro for __ckd_salloc__.">ckd_salloc</a>(str);
<a name="l00994"></a>00994 }
<a name="l00995"></a>00995
<a name="l00996"></a>00996 <span class="keywordtype">void</span>
<a name="l00997"></a><a class="code" href="cmd__ln_8h.html#afd5eef797f4786d7a1ddf4a64018cc7d">00997</a> <a class="code" href="cmd__ln_8h.html#afd5eef797f4786d7a1ddf4a64018cc7d" title="Set an integer in a command-line object.">cmd_ln_set_int_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keywordtype">char</span> <span class="keyword">const</span> *name, <span class="keywordtype">long</span> iv)
<a name="l00998"></a>00998 {
<a name="l00999"></a>00999 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *val;
<a name="l01000"></a>01000 val = <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(cmdln, name);
<a name="l01001"></a>01001 <span class="keywordflow">if</span> (val == NULL) {
<a name="l01002"></a>01002 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Unknown argument: %s\n"</span>, name);
<a name="l01003"></a>01003 <span class="keywordflow">return</span>;
<a name="l01004"></a>01004 }
<a name="l01005"></a>01005 val->i = iv;
<a name="l01006"></a>01006 }
<a name="l01007"></a>01007
<a name="l01008"></a>01008 <span class="keywordtype">void</span>
<a name="l01009"></a><a class="code" href="cmd__ln_8h.html#a71c02d36c1db0c1d4e6349bd253d9b59">01009</a> <a class="code" href="cmd__ln_8h.html#a71c02d36c1db0c1d4e6349bd253d9b59" title="Set a floating-point number in a command-line object.">cmd_ln_set_float_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln, <span class="keywordtype">char</span> <span class="keyword">const</span> *name, <span class="keywordtype">double</span> fv)
<a name="l01010"></a>01010 {
<a name="l01011"></a>01011 <a class="code" href="unionanytype__s.html" title="Union of basic types.">anytype_t</a> *val;
<a name="l01012"></a>01012 val = <a class="code" href="cmd__ln_8h.html#ac8d204103a24e39efefda608db8d81f7" title="Access the generic type union for a command line argument.">cmd_ln_access_r</a>(cmdln, name);
<a name="l01013"></a>01013 <span class="keywordflow">if</span> (val == NULL) {
<a name="l01014"></a>01014 <a class="code" href="err_8h.html#a5f7b2f58f5a663a6bdd51f197ae21993" title="Print error message to standard error stream.">E_ERROR</a>(<span class="stringliteral">"Unknown argument: %s\n"</span>, name);
<a name="l01015"></a>01015 <span class="keywordflow">return</span>;
<a name="l01016"></a>01016 }
<a name="l01017"></a>01017 val->fl = fv;
<a name="l01018"></a>01018 }
<a name="l01019"></a>01019
<a name="l01020"></a>01020 <a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *
<a name="l01021"></a><a class="code" href="cmd__ln_8h.html#a975f5bf7b6f4fc95f426d1979281f73b">01021</a> <a class="code" href="cmd__ln_8h.html#a975f5bf7b6f4fc95f426d1979281f73b" title="Retain ownership of a command-line argument set.">cmd_ln_retain</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln)
<a name="l01022"></a>01022 {
<a name="l01023"></a>01023 ++cmdln->refcount;
<a name="l01024"></a>01024 <span class="keywordflow">return</span> cmdln;
<a name="l01025"></a>01025 }
<a name="l01026"></a>01026
<a name="l01027"></a>01027 <span class="keywordtype">int</span>
<a name="l01028"></a><a class="code" href="cmd__ln_8h.html#a26707fc85e87d8999e368a680e7873cd">01028</a> <a class="code" href="cmd__ln_8h.html#a26707fc85e87d8999e368a680e7873cd" title="Release a command-line argument set and all associated strings.">cmd_ln_free_r</a>(<a class="code" href="structcmd__ln__t.html" title="Opaque structure used to hold the results of command-line parsing.">cmd_ln_t</a> *cmdln)
<a name="l01029"></a>01029 {
<a name="l01030"></a>01030 <span class="keywordflow">if</span> (cmdln == NULL)
<a name="l01031"></a>01031 <span class="keywordflow">return</span> 0;
<a name="l01032"></a>01032 <span class="keywordflow">if</span> (--cmdln->refcount > 0)
<a name="l01033"></a>01033 <span class="keywordflow">return</span> cmdln->refcount;
<a name="l01034"></a>01034
<a name="l01035"></a>01035 <span class="keywordflow">if</span> (cmdln->ht) {
<a name="l01036"></a>01036 <a class="code" href="structgnode__s.html" title="A node in a generic list.">glist_t</a> entries;
<a name="l01037"></a>01037 <a class="code" href="structgnode__s.html" title="A node in a generic list.">gnode_t</a> *gn;
<a name="l01038"></a>01038 int32 n;
<a name="l01039"></a>01039
<a name="l01040"></a>01040 entries = <a class="code" href="hash__table_8h.html#a61f59389f05d8871003da4692a9c2acc" title="Build a glist of valid hash_entry_t pointers from the given hash table.">hash_table_tolist</a>(cmdln->ht, &n);
<a name="l01041"></a>01041 <span class="keywordflow">for</span> (gn = entries; gn; gn = gnode_next(gn)) {
<a name="l01042"></a>01042 <a class="code" href="structhash__entry__s.html" title="A note by ARCHAN at 20050510: Technically what we use is so-called &quot;hash table with buckets&quot...">hash_entry_t</a> *e = <a class="code" href="glist_8h.html#ace56682f14d84cc456c805d26fd86734" title="Head of a list of gnodes.">gnode_ptr</a>(gn);
<a name="l01043"></a>01043 cmd_ln_val_free((<a class="code" href="structcmd__ln__val__s.html">cmd_ln_val_t</a> *)e-><a class="code" href="structhash__entry__s.html#a0d57012963084fed93886681108aa636" title="Key-length; the key string does not have to be a C-style NULL terminated string; it can have arbitrar...">val</a>);
<a name="l01044"></a>01044 }
<a name="l01045"></a>01045 <a class="code" href="glist_8h.html#a45380e15d2c33afc554fd60a8828580c" title="Free the given generic list; user-defined data contained within is not automatically freed...">glist_free</a>(entries);
<a name="l01046"></a>01046 <a class="code" href="hash__table_8h.html#a0a588c22946f8cc16328973035ed19e3" title="Free the specified hash table; the caller is responsible for freeing the key strings pointed to by th...">hash_table_free</a>(cmdln->ht);
<a name="l01047"></a>01047 cmdln->ht = NULL;
<a name="l01048"></a>01048 }
<a name="l01049"></a>01049
<a name="l01050"></a>01050 <span class="keywordflow">if</span> (cmdln->f_argv) {
<a name="l01051"></a>01051 int32 i;
<a name="l01052"></a>01052 <span class="keywordflow">for</span> (i = 0; i < cmdln->f_argc; ++i) {
<a name="l01053"></a>01053 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(cmdln->f_argv[i]);
<a name="l01054"></a>01054 }
<a name="l01055"></a>01055 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(cmdln->f_argv);
<a name="l01056"></a>01056 cmdln->f_argv = NULL;
<a name="l01057"></a>01057 cmdln->f_argc = 0;
<a name="l01058"></a>01058 }
<a name="l01059"></a>01059 <a class="code" href="ckd__alloc_8h.html#a31c6b405558620ac37599737b5722fbf" title="Test and free a 1-D array.">ckd_free</a>(cmdln);
<a name="l01060"></a>01060 <span class="keywordflow">return</span> 0;
<a name="l01061"></a>01061 }
<a name="l01062"></a>01062
<a name="l01063"></a>01063 <span class="keywordtype">void</span>
<a name="l01064"></a><a class="code" href="cmd__ln_8h.html#a439d3f832f92ae655f1028445aa91602">01064</a> <a class="code" href="cmd__ln_8h.html#a439d3f832f92ae655f1028445aa91602" title="Free the global command line, if any exists.">cmd_ln_free</a>(<span class="keywordtype">void</span>)
<a name="l01065"></a>01065 {
<a name="l01066"></a>01066 <a class="code" href="cmd__ln_8h.html#a26707fc85e87d8999e368a680e7873cd" title="Release a command-line argument set and all associated strings.">cmd_ln_free_r</a>(global_cmdln);
<a name="l01067"></a>01067 global_cmdln = NULL;
<a name="l01068"></a>01068 }
</pre></div></div>
</div>
<div id="nav-path" class="navpath">
<ul>
<li class="navelem"><b>cmd_ln.c</b> </li>
<li class="footer">Generated on Tue Apr 19 2011 for SphinxBase by 
<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.7.3 </li>
</ul>
</div>
</body>
</html>
distrib
>
Fedora
>
14
>
x86_64
>
media
>
updates
>
by-pkgid
>
0b420d0fce195cf4115dc6a3be5c2da2
>
files
>
79
