define_8c-source.html

ORACLE编程的好东西,纯C写的OCI封装.很好用,支持数据池.

<a name="l00118"></a>00118 
<a name="l00119"></a>00119 <span class="comment">/* ------------------------------------------------------------------------ *</span>
<a name="l00120"></a>00120 <span class="comment"> * OCI_DefineGetNumber</span>
<a name="l00121"></a>00121 <span class="comment"> * ------------------------------------------------------------------------ */</span>
<a name="l00122"></a>00122 
<a name="l00123"></a>00123 <span class="keywordtype">boolean</span> OCI_DefineGetNumber(<a class="code" href="struct_o_c_i___resultset.html" title="Collection of output columns from a select statement.">OCI_Resultset</a> *rs, <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> index, <span class="keywordtype">void</span> *value,
<a name="l00124"></a>00124                             uword type, uword size)
<a name="l00125"></a>00125 {
<a name="l00126"></a>00126     OCI_Define *def = OCI_GetDefine(rs, index);
<a name="l00127"></a>00127     <span class="keywordtype">boolean</span> res     = FALSE;
<a name="l00128"></a>00128 
<a name="l00129"></a>00129     <span class="keywordflow">if</span> (OCI_NOT_NULL(def) == TRUE)
<a name="l00130"></a>00130     {
<a name="l00131"></a>00131         <span class="keywordtype">void</span> *data = OCI_DefineGetData(def);
<a name="l00132"></a>00132 
<a name="l00133"></a>00133         <span class="keywordflow">switch</span> (def-&gt;col.type)
<a name="l00134"></a>00134         {
<a name="l00135"></a>00135             <span class="keywordflow">case</span> OCI_CDT_NUMERIC:
<a name="l00136"></a>00136             {
<a name="l00137"></a>00137                 res = OCI_NumberGet(rs-&gt;<a class="code" href="struct_o_c_i___resultset.html#c12ae7da6f8d20f00c6ad69cdb31373a">stmt</a>-&gt;<a class="code" href="struct_o_c_i___statement.html#338ddf58debd7de6ab9355f1e75d78f6">con</a>, (OCINumber *) data, value,
<a name="l00138"></a>00138                                     size, type);
<a name="l00139"></a>00139                 <span class="keywordflow">break</span>;
<a name="l00140"></a>00140             }
<a name="l00141"></a>00141             <span class="keywordflow">case</span> OCI_CDT_TEXT:
<a name="l00142"></a>00142             {
<a name="l00143"></a>00143                 <span class="keyword">const</span> mtext *fmt = <a class="code" href="group__g__connect.html#g57c1be56edaf86588dfb7a1245bf5908" title="Return the current numeric format for implicit string / numeric conversions.">OCI_GetDefaultFormatNumeric</a>(rs-&gt;<a class="code" href="struct_o_c_i___resultset.html#c12ae7da6f8d20f00c6ad69cdb31373a">stmt</a>-&gt;<a class="code" href="struct_o_c_i___statement.html#338ddf58debd7de6ab9355f1e75d78f6">con</a>);
<a name="l00144"></a>00144                 ub4 fmt_size     = (ub4) mtslen(fmt);
<a name="l00145"></a>00145 
<a name="l00146"></a>00146                 res = OCI_NumberGetFromStr(rs-&gt;<a class="code" href="struct_o_c_i___resultset.html#c12ae7da6f8d20f00c6ad69cdb31373a">stmt</a>-&gt;<a class="code" href="struct_o_c_i___statement.html#338ddf58debd7de6ab9355f1e75d78f6">con</a>, value, size, type,
<a name="l00147"></a>00147                                            (dtext *) data,
<a name="l00148"></a>00148                                            (<span class="keywordtype">int</span>) dtslen((dtext *) data),
<a name="l00149"></a>00149                                            fmt, fmt_size);
<a name="l00150"></a>00150                 <span class="keywordflow">break</span>;
<a name="l00151"></a>00151             }
<a name="l00152"></a>00152         }
<a name="l00153"></a>00153     }
<a name="l00154"></a>00154 
<a name="l00155"></a>00155     OCI_RESULT(res);
<a name="l00156"></a>00156 
<a name="l00157"></a>00157     <span class="keywordflow">return</span> res;
<a name="l00158"></a>00158 }
<a name="l00159"></a>00159 
<a name="l00160"></a>00160 <span class="comment">/* ------------------------------------------------------------------------ *</span>
<a name="l00161"></a>00161 <span class="comment"> * OCI_DefineAlloc</span>
<a name="l00162"></a>00162 <span class="comment"> * ------------------------------------------------------------------------ */</span>
<a name="l00163"></a>00163 
<a name="l00164"></a>00164 <span class="keywordtype">boolean</span> OCI_DefineAlloc(OCI_Define *def)
<a name="l00165"></a>00165 {
<a name="l00166"></a>00166     <span class="keywordtype">boolean</span> res = TRUE;
<a name="l00167"></a>00167     ub4 bufsize = 0;
<a name="l00168"></a>00168     ub4 indsize = 0;
<a name="l00169"></a>00169     ub4 i;
<a name="l00170"></a>00170 
<a name="l00171"></a>00171     <span class="comment">/* this function allocates internal buffers, handles, indicators, arrays, ...</span>
<a name="l00172"></a>00172 <span class="comment">       for the given outpout define handle */</span>
<a name="l00173"></a>00173 
<a name="l00174"></a>00174     OCI_CHECK(def == NULL, FALSE);
<a name="l00175"></a>00175 
<a name="l00176"></a>00176     <span class="comment">/* Allocate null indicators array */</span>
<a name="l00177"></a>00177 
<a name="l00178"></a>00178     <span class="keywordflow">if</span> (def-&gt;col.icode == SQLT_NTY)
<a name="l00179"></a>00179         indsize = (ub4) <span class="keyword">sizeof</span>(<span class="keywordtype">void</span>*);
<a name="l00180"></a>00180     <span class="keywordflow">else</span>
<a name="l00181"></a>00181         indsize = (ub4) <span class="keyword">sizeof</span>(sb2);
<a name="l00182"></a>00182 
<a name="l00183"></a>00183     <span class="keywordflow">if</span> (res == TRUE)
<a name="l00184"></a>00184     {
<a name="l00185"></a>00185         def-&gt;buf.inds = (<span class="keywordtype">void</span> *) OCI_MemAlloc(OCI_IPC_INDICATOR_ARRAY,
<a name="l00186"></a>00186                                               (<span class="keywordtype">int</span>) indsize, def-&gt;buf.count, TRUE);
<a name="l00187"></a>00187         res = (def-&gt;buf.inds != NULL);
<a name="l00188"></a>00188     }
<a name="l00189"></a>00189 
<a name="l00190"></a>00190     <span class="comment">/* Allocate row data sizes array */</span>
<a name="l00191"></a>00191 
<a name="l00192"></a>00192     <span class="keywordflow">if</span> (res == TRUE)
<a name="l00193"></a>00193     {
<a name="l00194"></a>00194         def-&gt;buf.lens = (<span class="keywordtype">void</span> *) OCI_MemAlloc(OCI_IPC_LEN_ARRAY, def-&gt;buf.sizelen,
<a name="l00195"></a>00195                                               def-&gt;buf.count, TRUE);
<a name="l00196"></a>00196 
<a name="l00197"></a>00197         res = (def-&gt;buf.lens != NULL);
<a name="l00198"></a>00198     }
<a name="l00199"></a>00199 
<a name="l00200"></a>00200     <span class="comment">/* initialize length array with buffer default size.</span>
<a name="l00201"></a>00201 <span class="comment">       But, Oracle uses different sizes for static fetch and callback fetch....*/</span>
<a name="l00202"></a>00202 
<a name="l00203"></a>00203     <span class="keywordflow">if</span> (res == TRUE)
<a name="l00204"></a>00204     {
<a name="l00205"></a>00205         <span class="keywordflow">for</span> (i=0; i &lt; def-&gt;buf.count; i++)
<a name="l00206"></a>00206         {
<a name="l00207"></a>00207             <span class="keywordflow">if</span> (def-&gt;buf.sizelen == <span class="keyword">sizeof</span>(ub2))
<a name="l00208"></a>00208                 *(ub2*)(((ub1 *)def-&gt;buf.lens) + def-&gt;buf.sizelen*(i)) = (ub2) def-&gt;col.bufsize;
<a name="l00209"></a>00209             <span class="keywordflow">else</span> if (def-&gt;buf.sizelen == <span class="keyword">sizeof</span>(ub4))
<a name="l00210"></a>00210                 *(ub4*)(((ub1 *)def-&gt;buf.lens) + def-&gt;buf.sizelen*(i)) = (ub4) def-&gt;col.bufsize;
<a name="l00211"></a>00211        }
<a name="l00212"></a>00212     }
<a name="l00213"></a>00213 
<a name="l00214"></a>00214     <span class="comment">/* Allocate buffer array */</span>
<a name="l00215"></a>00215 
<a name="l00216"></a>00216     <span class="keywordflow">if</span> (res == TRUE)
<a name="l00217"></a>00217     {
<a name="l00218"></a>00218         <span class="keywordflow">if</span> (def-&gt;col.type == OCI_CDT_LONG)
<a name="l00219"></a>00219             bufsize = (ub4) <span class="keyword">sizeof</span>(<a class="code" href="struct_o_c_i___long.html" title="Oracle Long datatype.">OCI_Long</a> *);
<a name="l00220"></a>00220         <span class="keywordflow">else</span>
<a name="l00221"></a>00221             bufsize = def-&gt;col.bufsize;
<a name="l00222"></a>00222 
<a name="l00223"></a>00223         def-&gt;buf.data = (<span class="keywordtype">void</span> *) OCI_MemAlloc(OCI_IPC_BUFF_ARRAY, (<span class="keywordtype">int</span>) bufsize,
<a name="l00224"></a>00224                                               def-&gt;buf.count, TRUE);
<a name="l00225"></a>00225 
<a name="l00226"></a>00226         res = (def-&gt;buf.data != NULL);
<a name="l00227"></a>00227     }
<a name="l00228"></a>00228 
<a name="l00229"></a>00229     <span class="comment">/* Allocate descriptor for cursor, lob and file, interval and timestamp  */</span>
<a name="l00230"></a>00230 
<a name="l00231"></a>00231     <span class="keywordflow">if</span> (res == TRUE)
<a name="l00232"></a>00232     {
<a name="l00233"></a>00233         <span class="keywordflow">if</span> (def-&gt;col.dtype != 0)
<a name="l00234"></a>00234         {
<a name="l00235"></a>00235             <span class="keywordflow">for</span> (i = 0; i &lt; def-&gt;buf.count; i++)
<a name="l00236"></a>00236             {
<a name="l00237"></a>00237                 <span class="keywordflow">if</span> (def-&gt;col.type == OCI_CDT_CURSOR)
<a name="l00238"></a>00238                 {
<a name="l00239"></a>00239                     res = (OCI_SUCCESS == OCI_HandleAlloc((dvoid  *) OCILib.env,
<a name="l00240"></a>00240                                                           (dvoid **) &amp;(def-&gt;buf.data[i]),
<a name="l00241"></a>00241                                                           (ub4) def-&gt;col.dtype,
<a name="l00242"></a>00242                                                           (<span class="keywordtype">size_t</span>) 0, (dvoid **) NULL));
<a name="l00243"></a>00243                 }
<a name="l00244"></a>00244                 <span class="keywordflow">else</span>
<a name="l00245"></a>00245                 {
<a name="l00246"></a>00246                     res = (OCI_SUCCESS == OCI_DescriptorAlloc((dvoid  *) OCILib.env,
<a name="l00247"></a>00247                                                               (dvoid **) &amp;(def-&gt;buf.data[i]),
<a name="l00248"></a>00248                                                               (ub4) def-&gt;col.dtype,
<a name="l00249"></a>00249                                                               (<span class="keywordtype">size_t</span>) 0, (dvoid **) NULL));