Windows NT 4.0 source code leak
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

288 lines
6.9 KiB

// This is a part of the Microsoft Foundation Classes C++ library.
// Copyright (C) 1992-1995 Microsoft Corporation
// All rights reserved.
//
// This source code is only intended as a supplement to the
// Microsoft Foundation Classes Reference and related
// electronic documentation provided with the library.
// See these sources for detailed information regarding the
// Microsoft Foundation Classes product.
#include "stdafx.h"
#include <float.h>
#ifdef AFX_DB_SEG
#pragma code_seg(AFX_DB_SEG)
#endif
#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
// Helpers for floating point operations
static const float afxFloatPseudoNull = AFX_RFX_SINGLE_PSEUDO_NULL;
static const double afxDoublePseudoNull = AFX_RFX_DOUBLE_PSEUDO_NULL;
extern void AFXAPI AfxTextFloatFormat(CDataExchange* pDX, int nIDC,
void* pData, double value, int nSizeGcvt);
extern BOOL AFXAPI AfxFieldText(CDataExchange* pDX, int nIDC, void* pv,
CRecordset* pRecordset);
void AFXAPI RFX_Single(CFieldExchange* pFX, LPCTSTR szName,
float& value)
{
ASSERT(AfxIsValidAddress(pFX, sizeof(CFieldExchange)));
ASSERT(AfxIsValidString(szName));
UINT nField;
if (!pFX->IsFieldType(&nField))
return;
LONG* plLength = pFX->m_prs->GetFieldLength(pFX);
switch (pFX->m_nOperation)
{
case CFieldExchange::BindFieldToColumn:
{
#ifdef _DEBUG
int nSqlType = pFX->GetColumnType(nField);
if (nSqlType != SQL_C_FLOAT)
{
// Warn of possible field schema mismatch
if (afxTraceFlags & traceDatabase)
TRACE1("Warning: float converted from SQL type %ld.\n",
nSqlType);
}
#endif
}
// fall through
default:
LDefault:
pFX->Default(szName, &value, plLength, SQL_C_FLOAT,
sizeof(value), 13);
return;
case CFieldExchange::Fixup:
if (*plLength == SQL_NULL_DATA)
{
pFX->m_prs->SetFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
value = afxFloatPseudoNull;
}
return;
case CFieldExchange::SetFieldNull:
if ((pFX->m_pvField == NULL &&
pFX->m_nFieldType == CFieldExchange::outputColumn) ||
pFX->m_pvField == &value)
{
if (pFX->m_bField)
{
pFX->m_prs->SetFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
value = afxFloatPseudoNull;
*plLength = SQL_NULL_DATA;
}
else
{
pFX->m_prs->ClearFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
*plLength = sizeof(value);
}
#ifdef _DEBUG
pFX->m_bFieldFound = TRUE;
#endif
}
return;
case CFieldExchange::MarkForAddNew:
// can force writing of psuedo-null value (as a non-null) by setting field dirty
if (!pFX->m_prs->IsFieldFlagDirty(nField, pFX->m_nFieldType))
{
if (value != afxFloatPseudoNull)
{
pFX->m_prs->SetFieldFlags(nField,
AFX_SQL_FIELD_FLAG_DIRTY, pFX->m_nFieldType);
pFX->m_prs->ClearFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
}
}
return;
case CFieldExchange::MarkForUpdate:
if (value != afxFloatPseudoNull)
pFX->m_prs->ClearFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
goto LDefault;
case CFieldExchange::GetFieldInfoValue:
if (pFX->m_pfi->pv == &value)
{
pFX->m_pfi->nField = nField-1;
goto LFieldFound;
}
return;
case CFieldExchange::GetFieldInfoOrdinal:
if (nField-1 == pFX->m_pfi->nField)
{
LFieldFound:
pFX->m_pfi->nDataType = AFX_RFX_SINGLE;
pFX->m_pfi->strName = szName;
pFX->m_pfi->pv = &value;
pFX->m_pfi->dwSize = sizeof(value);
// Make sure field found only once
ASSERT(pFX->m_bFieldFound == FALSE);
pFX->m_bFieldFound = TRUE;
}
return;
#ifdef _DEBUG
case CFieldExchange::DumpField:
{
*pFX->m_pdcDump << "\n" << szName << " = " << value;
}
return;
#endif //_DEBUG
}
}
void AFXAPI RFX_Double(CFieldExchange* pFX, LPCTSTR szName,
double& value)
{
ASSERT(AfxIsValidAddress(pFX, sizeof(CFieldExchange)));
ASSERT(AfxIsValidString(szName));
UINT nField;
if (!pFX->IsFieldType(&nField))
return;
LONG* plLength = pFX->m_prs->GetFieldLength(pFX);
switch (pFX->m_nOperation)
{
case CFieldExchange::BindFieldToColumn:
{
#ifdef _DEBUG
int nSqlType = pFX->GetColumnType(nField);
if (nSqlType != SQL_C_DOUBLE && nSqlType != SQL_FLOAT)
{
// Warn of possible field schema mismatch
if (afxTraceFlags & traceDatabase)
TRACE1("Warning: double converted from SQL type %ld.\n",
nSqlType);
}
#endif
}
// fall through
default:
LDefault:
pFX->Default(szName, &value, plLength, SQL_C_DOUBLE,
sizeof(value), 22);
return;
case CFieldExchange::Fixup:
if (*plLength == SQL_NULL_DATA)
{
pFX->m_prs->SetFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
value = afxDoublePseudoNull;
}
return;
case CFieldExchange::SetFieldNull:
if ((pFX->m_pvField == NULL &&
pFX->m_nFieldType == CFieldExchange::outputColumn) ||
pFX->m_pvField == &value)
{
if (pFX->m_bField)
{
pFX->m_prs->SetFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
value = afxDoublePseudoNull;
*plLength = SQL_NULL_DATA;
}
else
{
pFX->m_prs->ClearFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
*plLength = sizeof(value);
}
#ifdef _DEBUG
pFX->m_bFieldFound = TRUE;
#endif
}
return;
case CFieldExchange::MarkForAddNew:
// can force writing of psuedo-null value (as a non-null) by setting field dirty
if (!pFX->m_prs->IsFieldFlagDirty(nField, pFX->m_nFieldType))
{
if (value != afxDoublePseudoNull)
{
pFX->m_prs->SetFieldFlags(nField,
AFX_SQL_FIELD_FLAG_DIRTY, pFX->m_nFieldType);
pFX->m_prs->ClearFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
}
}
return;
case CFieldExchange::MarkForUpdate:
if (value != afxDoublePseudoNull)
pFX->m_prs->ClearFieldFlags(nField,
AFX_SQL_FIELD_FLAG_NULL, pFX->m_nFieldType);
goto LDefault;
case CFieldExchange::GetFieldInfoValue:
if (pFX->m_pfi->pv == &value)
{
pFX->m_pfi->nField = nField-1;
goto LFieldFound;
}
return;
case CFieldExchange::GetFieldInfoOrdinal:
if (nField-1 == pFX->m_pfi->nField)
{
LFieldFound:
pFX->m_pfi->nDataType = AFX_RFX_DOUBLE;
pFX->m_pfi->strName = szName;
pFX->m_pfi->pv = &value;
pFX->m_pfi->dwSize = sizeof(value);
// Make sure field found only once
ASSERT(pFX->m_bFieldFound == FALSE);
pFX->m_bFieldFound = TRUE;
}
return;
#ifdef _DEBUG
case CFieldExchange::DumpField:
{
*pFX->m_pdcDump << "\n" << szName << " = " << value;
}
return;
#endif //_DEBUG
}
}
void AFXAPI DDX_FieldText(CDataExchange* pDX, int nIDC, float& value,
CRecordset* pRecordset)
{
if (!AfxFieldText(pDX, nIDC, &value, pRecordset))
AfxTextFloatFormat(pDX, nIDC, &value, value, FLT_DIG);
}
void AFXAPI DDX_FieldText(CDataExchange* pDX, int nIDC, double& value,
CRecordset* pRecordset)
{
if (!AfxFieldText(pDX, nIDC, &value, pRecordset))
AfxTextFloatFormat(pDX, nIDC, &value, value, DBL_DIG);
}
/////////////////////////////////////////////////////////////////////////////