开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 生物技术 > 查看源码
bcp.cpp
资源名称：ncbi_cxx_win--Jul_08_2004.zip　[点击查看]
上传用户：yhdzpy8989
上传日期：2007-06-13
资源大小：13604k
文件大小：19k
源码类别：

生物技术

开发平台：

C/C++

bcp.cpp：源码内容
  1. /*
  2.  * ===========================================================================
  3.  * PRODUCTION $Log: bcp.cpp,v $
  4.  * PRODUCTION Revision 1000.1  2004/06/01 19:20:40  gouriano
  5.  * PRODUCTION PRODUCTION: UPGRADED [GCC34_MSVC7] Dev-tree R1.6
  6.  * PRODUCTION
  7.  * ===========================================================================
  8.  */
  10. /* $Id: bcp.cpp,v 1000.1 2004/06/01 19:20:40 gouriano Exp $
  11.  * ===========================================================================
  12.  *
  13.  *                            PUBLIC DOMAIN NOTICE
  14.  *               National Center for Biotechnology Information
  15.  *
  16.  *  This software/database is a "United States Government Work" under the
  17.  *  terms of the United States Copyright Act.  It was written as part of
  18.  *  the author's official duties as a United States Government employee and
  19.  *  thus cannot be copyrighted.  This software/database is freely available
  20.  *  to the public for use. The National Library of Medicine and the U.S.
  21.  *  Government have not placed any restriction on its use or reproduction.
  22.  *
  23.  *  Although all reasonable efforts have been taken to ensure the accuracy
  24.  *  and reliability of the software and data, the NLM and the U.S.
  25.  *  Government do not and cannot warrant the performance or results that
  26.  *  may be obtained by using this software or data. The NLM and the U.S.
  27.  *  Government disclaim all warranties, express or implied, including
  28.  *  warranties of performance, merchantability or fitness for any particular
  29.  *  purpose.
  30.  *
  31.  *  Please cite the author in any work or product based on this material.
  32.  *
  33.  * ===========================================================================
  34.  *
  35.  * Author:  Vladimir Soussov
  36.  *
  37.  * File Description:  TDS bcp-in command
  38.  *
  39.  */
  41. #include <ncbi_pch.hpp>
  42. #include <dbapi/driver/ftds/interfaces.hpp>
  43. #include <dbapi/driver/util/numeric_convert.hpp>
  44. #include <string.h>
  47. BEGIN_NCBI_SCOPE
  50. /////////////////////////////////////////////////////////////////////////////
  51. //
  52. //  CTDS_BCPInCmd::
  53. //
  55. CTDS_BCPInCmd::CTDS_BCPInCmd(CTDS_Connection* con,
  56.                              DBPROCESS*       cmd,
  57.                              const string&    table_name,
  58.                              unsigned int     nof_columns) :
  59.     m_Connect(con), m_Cmd(cmd), m_Params(nof_columns),
  60.     m_WasSent(false), m_HasFailed(false),
  61.     m_HasTextImage(false), m_WasBound(false)
  62. {
  63.     if (bcp_init(cmd, (char*) table_name.c_str(), 0, 0, DB_IN) != SUCCEED) {
  64.         throw CDB_ClientEx(eDB_Fatal, 223001,
  65.                            "CTDS_BCPInCmd::CTDS_BCPInCmd", "bcp_init failed");
  66.     }
  67. }
  70. bool CTDS_BCPInCmd::Bind(unsigned int column_num, CDB_Object* param_ptr)
  71. {
  72.     return m_Params.BindParam(column_num,  kEmptyStr, param_ptr);
  73. }
  76. bool CTDS_BCPInCmd::x_AssignParams(void* pb)
  77. {
  78.     RETCODE r;
  80.     if (!m_WasBound) {
  81.         for (unsigned int i = 0; i < m_Params.NofParams(); i++) {
  82.             if (m_Params.GetParamStatus(i) == 0)
  83.                 continue;
  85.             CDB_Object& param = *m_Params.GetParam(i);
  86.             
  87.             switch ( param.GetType() ) {
  88.             case eDB_Int: {
  89.                 CDB_Int& val = dynamic_cast<CDB_Int&> (param);
  90.                 // DBINT v = (DBINT) val.Value();
  91.                 r = bcp_bind(m_Cmd, (BYTE*) val.BindVal(), 0,
  92.                              val.IsNULL() ? 0 : -1, 0, 0, SYBINT4, i + 1);
  93.             }
  94.             break;
  95.             case eDB_SmallInt: {
  96.                 CDB_SmallInt& val = dynamic_cast<CDB_SmallInt&> (param);
  97.                 // DBSMALLINT v = (DBSMALLINT) val.Value();
  98.                 r = bcp_bind(m_Cmd, (BYTE*) val.BindVal(), 0,
  99.                              val.IsNULL() ? 0 : -1, 0, 0, SYBINT2, i + 1);
  100.             }
  101.             break;
  102.             case eDB_TinyInt: {
  103.                 CDB_TinyInt& val = dynamic_cast<CDB_TinyInt&> (param);
  104.                 // DBTINYINT v = (DBTINYINT) val.Value();
  105.                 r = bcp_bind(m_Cmd, (BYTE*) val.BindVal(), 0,
  106.                              val.IsNULL() ? 0 : -1, 0, 0, SYBINT1, i + 1);
  107.             }
  108.             break;
  109.             case eDB_BigInt: {
  110.                 CDB_BigInt& val = dynamic_cast<CDB_BigInt&> (param);
  111.                 DBNUMERIC* v = reinterpret_cast<DBNUMERIC*> (pb);
  112.                 Int8 v8 = val.Value();
  113.                 v->precision= 18;
  114.                 v->scale= 0;
  115.                 if (longlong_to_numeric(v8, 18, v->array) == 0)
  116.                     return false;
  117.                 r = bcp_bind(m_Cmd, (BYTE*) v, 0,
  118.                              val.IsNULL() ? 0 : -1, 0, 0, SYBNUMERIC, i + 1);
  119.                 pb = (void*) (v + 1);
  120.             }
  121.             break;
  122.             case eDB_Char: {
  123.                 CDB_Char& val = dynamic_cast<CDB_Char&> (param);
  124.                 r = bcp_bind(m_Cmd, (BYTE*) val.Value(), 0,
  125.                              val.IsNULL() ? 0 : -1,
  126.                              (BYTE*) "", 1, SYBCHAR, i + 1);
  127.             }
  128.             break;
  129.             case eDB_VarChar: {
  130.                 CDB_VarChar& val = dynamic_cast<CDB_VarChar&> (param);
  131.                 r = bcp_bind(m_Cmd, (BYTE*) val.Value(), 0,
  132.                              val.IsNULL() ? 0 : -1,
  133.                              (BYTE*) "", 1, SYBCHAR, i + 1);
  134.             }
  135.             break;
  136.             case eDB_LongChar: {
  137.                 CDB_LongChar& val = dynamic_cast<CDB_LongChar&> (param);
  138.                 r = bcp_bind(m_Cmd, (BYTE*) val.Value(), 0,
  139.                              val.IsNULL() ? 0 : -1,
  140.                              (BYTE*) "", 1, SYBCHAR, i + 1);
  141.             }
  142.             break;
  143.             case eDB_Binary: {
  144.                 CDB_Binary& val = dynamic_cast<CDB_Binary&> (param);
  145.                 r = bcp_bind(m_Cmd, (BYTE*) val.Value(), 0,
  146.                              val.IsNULL() ? 0 : val.Size(),
  147.                              0, 0, SYBBINARY, i + 1);
  148.             }
  149.             break;
  150.             case eDB_VarBinary: {
  151.                 CDB_VarBinary& val = dynamic_cast<CDB_VarBinary&> (param);
  152.                 r = bcp_bind(m_Cmd, (BYTE*) val.Value(), 0,
  153.                              val.IsNULL() ? 0 : val.Size(),
  154.                              0, 0, SYBBINARY, i + 1);
  155.             }
  156.             break;
  157.             case eDB_LongBinary: {
  158.                 CDB_LongBinary& val = dynamic_cast<CDB_LongBinary&> (param);
  159.                 r = bcp_bind(m_Cmd, (BYTE*) val.Value(), 0,
  160.                              val.IsNULL() ? 0 : val.DataSize(),
  161.                              0, 0, SYBBINARY, i + 1);
  162.             }
  163.             break;
  164.             case eDB_Float: {
  165.                 CDB_Float& val = dynamic_cast<CDB_Float&> (param);
  166.                 // DBREAL v = (DBREAL) val.Value();
  167.                 r = bcp_bind(m_Cmd, (BYTE*) val.BindVal(), 0,
  168.                              val.IsNULL() ? 0 : -1, 0, 0, SYBREAL, i + 1);
  169.             }
  170.             break;
  171.             case eDB_Double: {
  172.                 CDB_Double& val = dynamic_cast<CDB_Double&> (param);
  173.                 // DBFLT8 v = (DBFLT8) val.Value();
  174.                 r = bcp_bind(m_Cmd, (BYTE*) val.BindVal(), 0,
  175.                              val.IsNULL() ? 0 : -1, 0, 0, SYBFLT8, i + 1);
  176.             }
  177.             break;
  178.             case eDB_SmallDateTime: {
  179.                 CDB_SmallDateTime& val =
  180.                     dynamic_cast<CDB_SmallDateTime&> (param);
  181.                 DBDATETIME4* dt = (DBDATETIME4*) pb;
  182.                 dt->days        = val.GetDays();
  183.                 dt->minutes     = val.GetMinutes();
  184.                 r = bcp_bind(m_Cmd, (BYTE*) dt, 0, val.IsNULL() ? 0 : -1,
  185.                              0, 0, SYBDATETIME4,  i + 1);
  186.                 pb = (void*) (dt + 1);
  187.             }
  188.             break;
  189.             case eDB_DateTime: {
  190.                 CDB_DateTime& val = dynamic_cast<CDB_DateTime&> (param);
  191.                 DBDATETIME* dt = (DBDATETIME*) pb;
  192.                 dt->dtdays     = val.GetDays();
  193.                 dt->dttime     = val.Get300Secs();
  194.                 r = bcp_bind(m_Cmd, (BYTE*) dt, 0, val.IsNULL() ? 0 : -1,
  195.                              0, 0, SYBDATETIME, i + 1);
  196.                 pb = (void*) (dt + 1);
  197.             }
  198.             break;
  199.             case eDB_Text: {
  200.                 CDB_Text& val = dynamic_cast<CDB_Text&> (param);
  201.                 r = bcp_bind(m_Cmd, 0, 0, val.IsNULL() ? 0 : val.Size(),
  202.                              0, 0, SYBTEXT, i + 1);
  203.                 m_HasTextImage = true;
  204.             }
  205.             break;
  206.             case eDB_Image: {
  207.                 CDB_Image& val = dynamic_cast<CDB_Image&> (param);
  208.                 r = bcp_bind(m_Cmd, 0, 0, val.IsNULL() ? 0 : val.Size(),
  209.                              0, 0, SYBIMAGE, i + 1);
  210.                 m_HasTextImage = true;
  211.             }
  212.             break;
  213.             default:
  214.                 return false;
  215.             }
  216.             if (r != CS_SUCCEED)
  217.                 return false;
  218.         }
  219.         m_WasBound = true;
  220.     } else {
  221.         for (unsigned int i = 0; i < m_Params.NofParams(); i++) {
  222.             if (m_Params.GetParamStatus(i) == 0)
  223.                 continue;
  225.             CDB_Object& param = *m_Params.GetParam(i);
  227.             switch ( param.GetType() ) {
  228.             case eDB_Int: {
  229.                 CDB_Int& val = dynamic_cast<CDB_Int&> (param);
  230.                 // DBINT v = (DBINT) val.Value();
  231.                 r = bcp_colptr(m_Cmd, (BYTE*) val.BindVal(), i + 1)
  232.                     == SUCCEED &&
  233.                     bcp_collen(m_Cmd,  val.IsNULL() ? 0 : -1, i + 1)
  234.                     == SUCCEED ? SUCCEED : FAIL;
  235.             }
  236.             break;
  237.             case eDB_SmallInt: {
  238.                 CDB_SmallInt& val = dynamic_cast<CDB_SmallInt&> (param);
  239.                 // DBSMALLINT v = (DBSMALLINT) val.Value();
  240.                 r = bcp_colptr(m_Cmd, (BYTE*) val.BindVal(), i + 1)
  241.                     == SUCCEED &&
  242.                     bcp_collen(m_Cmd,  val.IsNULL() ? 0 : -1, i + 1)
  243.                     == SUCCEED ? SUCCEED : FAIL;
  244.             }
  245.             break;
  246.             case eDB_TinyInt: {
  247.                 CDB_TinyInt& val = dynamic_cast<CDB_TinyInt&> (param);
  248.                 // DBTINYINT v = (DBTINYINT) val.Value();
  249.                 r = bcp_colptr(m_Cmd, (BYTE*) val.BindVal(), i + 1)
  250.                     == SUCCEED &&
  251.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : -1, i + 1)
  252.                     == SUCCEED ? SUCCEED : FAIL;
  253.             }
  254.             break;
  255.             case eDB_BigInt: {
  256.                 CDB_BigInt& val = dynamic_cast<CDB_BigInt&> (param);
  257.                 DBNUMERIC* v = (DBNUMERIC*) pb;
  258.                 v->precision= 18;
  259.                 v->scale= 0;
  260.                 Int8 v8 = val.Value();
  261.                 if (longlong_to_numeric(v8, 18, v->array) == 0)
  262.                     return false;
  263.                 r = bcp_colptr(m_Cmd, (BYTE*) v, i + 1)
  264.                     == SUCCEED &&
  265.                     bcp_collen(m_Cmd,  val.IsNULL() ? 0 : -1, i + 1)
  266.                     == SUCCEED ? SUCCEED : FAIL;
  267.                 pb = (void*) (v + 1);
  268.             }
  269.             break;
  270.             case eDB_Char: {
  271.                 CDB_Char& val = dynamic_cast<CDB_Char&> (param);
  272.                 r = bcp_colptr(m_Cmd, (BYTE*) val.Value(), i + 1)
  273.                     == SUCCEED &&
  274.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : -1, i + 1)
  275.                     == SUCCEED ? SUCCEED : FAIL;
  276.             }
  277.             break;
  278.             case eDB_VarChar: {
  279.                 CDB_VarChar& val = dynamic_cast<CDB_VarChar&> (param);
  280.                 r = bcp_colptr(m_Cmd, (BYTE*) val.Value(), i + 1)
  281.                     == SUCCEED &&
  282.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : -1, i + 1)
  283.                     == SUCCEED ? SUCCEED : FAIL;
  284.             }
  285.             break;
  286.             case eDB_LongChar: {
  287.                 CDB_LongChar& val = dynamic_cast<CDB_LongChar&> (param);
  288.                 r = bcp_colptr(m_Cmd, (BYTE*) val.Value(), i + 1)
  289.                     == SUCCEED &&
  290.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : -1, i + 1)
  291.                     == SUCCEED ? SUCCEED : FAIL;
  292.             }
  293.             break;
  294.             case eDB_Binary: {
  295.                 CDB_Binary& val = dynamic_cast<CDB_Binary&> (param);
  296.                 r = bcp_colptr(m_Cmd, (BYTE*) val.Value(), i + 1)
  297.                     == SUCCEED &&
  298.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : val.Size(), i + 1)
  299.                     == SUCCEED ? SUCCEED : FAIL;
  300.             }
  301.             break;
  302.             case eDB_VarBinary: {
  303.                 CDB_VarBinary& val = dynamic_cast<CDB_VarBinary&> (param);
  304.                 r = bcp_colptr(m_Cmd, (BYTE*) val.Value(), i + 1)
  305.                     == SUCCEED &&
  306.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : val.Size(), i + 1)
  307.                     == SUCCEED ? SUCCEED : FAIL;
  308.             }
  309.             break;
  310.             case eDB_LongBinary: {
  311.                 CDB_LongBinary& val = dynamic_cast<CDB_LongBinary&> (param);
  312.                 r = bcp_colptr(m_Cmd, (BYTE*) val.Value(), i + 1)
  313.                     == SUCCEED &&
  314.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : val.DataSize(), i + 1)
  315.                     == SUCCEED ? SUCCEED : FAIL;
  316.             }
  317.             break;
  318.             case eDB_Float: {
  319.                 CDB_Float& val = dynamic_cast<CDB_Float&> (param);
  320.                 //DBREAL v = (DBREAL) val.Value();
  321.                 r = bcp_colptr(m_Cmd, (BYTE*) val.BindVal(), i + 1)
  322.                     == SUCCEED &&
  323.                     bcp_collen(m_Cmd,  val.IsNULL() ? 0 : -1, i + 1)
  324.                     == SUCCEED ? SUCCEED : FAIL;
  325.             }
  326.             break;
  327.             case eDB_Double: {
  328.                 CDB_Double& val = dynamic_cast<CDB_Double&> (param);
  329.                 //DBFLT8 v = (DBFLT8) val.Value();
  330.                 r = bcp_bind(m_Cmd, (BYTE*) val.BindVal(), 0,
  331.                              val.IsNULL() ? 0 : -1, 0, 0, SYBFLT8, i + 1);
  332.             }
  333.             break;
  334.             case eDB_SmallDateTime: {
  335.                 CDB_SmallDateTime& val =
  336.                     dynamic_cast<CDB_SmallDateTime&> (param);
  337.                 DBDATETIME4* dt = (DBDATETIME4*) pb;
  338.                 dt->days        = val.GetDays();
  339.                 dt->minutes     = val.GetMinutes();
  340.                 r = bcp_colptr(m_Cmd, (BYTE*) dt, i + 1)
  341.                     == SUCCEED &&
  342.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : -1, i + 1)
  343.                     == SUCCEED ? SUCCEED : FAIL;
  344.                 pb = (void*) (dt + 1);
  345.             }
  346.             break;
  347.             case eDB_DateTime: {
  348.                 CDB_DateTime& val = dynamic_cast<CDB_DateTime&> (param);
  349.                 DBDATETIME* dt = (DBDATETIME*) pb;
  350.                 dt->dtdays     = val.GetDays();
  351.                 dt->dttime     = val.Get300Secs();
  352.                 r = bcp_colptr(m_Cmd, (BYTE*) dt, i + 1)
  353.                     == SUCCEED &&
  354.                     bcp_collen(m_Cmd, val.IsNULL() ? 0 : -1, i + 1)
  355.                     == SUCCEED ? SUCCEED : FAIL;
  356.                 pb = (void*) (dt + 1);
  357.             }
  358.             break;
  359.             case eDB_Text: {
  360.                 CDB_Text& val = dynamic_cast<CDB_Text&> (param);
  361.                 r = bcp_collen(m_Cmd, val.Size(), i + 1);
  362.             }
  363.             break;
  364.             case eDB_Image: {
  365.                 CDB_Image& val = dynamic_cast<CDB_Image&> (param);
  366.                 r = bcp_collen(m_Cmd, val.Size(), i + 1);
  367.             }
  368.             break;
  369.             default:
  370.                 return false;
  371.             }
  372.             if (r != CS_SUCCEED)
  373.                 return false;
  374.         }
  375.     }
  376.     return true;
  377. }
  380. bool CTDS_BCPInCmd::SendRow()
  381. {
  382.     char param_buff[2048]; // maximal row size, assured of buffer overruns
  384.     if (!x_AssignParams(param_buff)) {
  385.         m_HasFailed = true;
  386.         throw CDB_ClientEx(eDB_Error, 223004,
  387.                            "CTDS_BCPInCmd::SendRow", "cannot assign params");
  388.     }
  390.     if (bcp_sendrow(m_Cmd) != SUCCEED) {
  391.         m_HasFailed = true;
  392.         throw CDB_ClientEx(eDB_Error, 223005,
  393.                            "CTDS_BCPInCmd::SendRow", "bcp_sendrow failed");
  394.     }
  395.     m_WasSent = true;
  397.     if (m_HasTextImage) { // send text/image data
  398.         char buff[1800]; // text/image page size
  400.         for (unsigned int i = 0; i < m_Params.NofParams(); i++) {
  401.             if (m_Params.GetParamStatus(i) == 0)
  402.                 continue;
  404.             CDB_Object& param = *m_Params.GetParam(i);
  406.             if (param.GetType() != eDB_Text &&
  407.                 param.GetType() != eDB_Image)
  408.                 continue;
  410.             CDB_Stream& val = dynamic_cast<CDB_Stream&> (param);
  411.             size_t s = val.Size();
  412.             do {
  413.                 size_t l = val.Read(buff, sizeof(buff));
  414.                 if (l > s)
  415.                     l = s;
  416.                 if (bcp_moretext(m_Cmd, l, (BYTE*) buff) != SUCCEED) {
  417.                     m_HasFailed = true;
  418.                     throw CDB_ClientEx(eDB_Error, 223006,
  419.                                        "CTDS_BCPInCmd::SendRow",
  420.                                        param.GetType() == eDB_Text ?
  421.                                        "bcp_moretext for text failed" :
  422.                                        "bcp_moretext for image failed");
  423.                 }
  424.                 if (!l)
  425.                     break;
  426.                 s -= l;
  427.             } while (s);
  428.         }
  429.     }
  431.     return true;
  432. }
  435. bool CTDS_BCPInCmd::Cancel()
  436. {
  437.     if(m_WasSent) {
  438.         DBINT outrow = bcp_done(m_Cmd);
  439.         m_WasSent= false;
  440.         return outrow == 0;
  441.     }
  442.     return false;
  443. }
  446. bool CTDS_BCPInCmd::CompleteBatch()
  447. {
  448.     if(m_WasSent) {
  449.         DBINT outrow = bcp_batch(m_Cmd);
  450.         if(outrow < 0) {
  451.             m_HasFailed= true;
  452.             throw CDB_ClientEx(eDB_Error, 223020,
  453.                                "CTDS_BCPInCmd::CompleteBatch", 
  454.                                "bcp_batch failed");
  455.         }
  456.         return outrow > 0;
  457.     }
  458.     return false;
  459. }
  462. bool CTDS_BCPInCmd::CompleteBCP()
  463. {
  464.     if(m_WasSent) {
  465.         DBINT outrow = bcp_done(m_Cmd);
  466.         if(outrow < 0) {
  467.             m_HasFailed = true;
  468.             throw CDB_ClientEx(eDB_Error, 223020,
  469.                                "CTDS_BCPInCmd::CompleteBCP", 
  470.                                "bcp_done failed");
  471.         }
  472.         m_WasSent= false;
  473.         return outrow > 0;
  474.     }
  475.     return false;
  476. }
  479. void CTDS_BCPInCmd::Release()
  480. {
  481.     m_BR = 0;
  482.     if (m_WasSent) {
  483.         Cancel();
  484.         m_WasSent = false;
  485.     }
  486.     m_Connect->DropCmd(*this);
  487.     delete this;
  488. }
  491. CTDS_BCPInCmd::~CTDS_BCPInCmd()
  492. {
  493.     if (m_BR)
  494.         *m_BR = 0;
  495.     if (m_WasSent)
  496.         Cancel();
  497. }
  500. END_NCBI_SCOPE
  504. /*
  505.  * ===========================================================================
  506.  * $Log: bcp.cpp,v $
  507.  * Revision 1000.1  2004/06/01 19:20:40  gouriano
  508.  * PRODUCTION: UPGRADED [GCC34_MSVC7] Dev-tree R1.6
  509.  *
  510.  * Revision 1.6  2004/05/17 21:13:37  gorelenk
  511.  * Added include of PCH ncbi_pch.hpp
  512.  *
  513.  * Revision 1.5  2003/04/29 21:15:03  soussov
  514.  * new datatypes CDB_LongChar and CDB_LongBinary added
  515.  *
  516.  * Revision 1.4  2002/12/03 19:20:40  soussov
  517.  * some minor fixes in bcp_batch, bcp_done
  518.  *
  519.  * Revision 1.3  2002/03/04 19:09:27  soussov
  520.  * fixed bug in m_WasSent flag setting
  521.  *
  522.  * Revision 1.2  2001/11/06 18:00:02  lavr
  523.  * Formatted uniformly as the rest of the library
  524.  *
  525.  * Revision 1.1  2001/10/25 00:39:22  vakatov
  526.  * Initial revision
  527.  *
  528.  * ===========================================================================
  529.  */