static an GenScanTable( an node, sel_handle s_node, type_def *tipe )
/************************************************************************/
{
an lt;
cg_type value_type;
cg_type real_type;
value_type = SelType( s_node->upper - s_node->lower );
real_type = tipe->refno;
if( real_type != value_type ) {
node = BGBinary( O_MINUS, node, BGInteger( s_node->lower, tipe ), tipe, true );
if( s_node->other_wise != NULL ) {
lt = BGCompare( O_LE, BGDuplicate(node), BGInteger( s_node->upper - s_node->lower, tipe ),
NULL, UnSignedIntTipe( tipe ) );
BGControl( O_IF_FALSE, lt, s_node->other_wise );
}
}
ScanBlock( MakeScanTab( s_node->list, s_node->upper, s_node->other_wise, value_type, real_type ),
node, (type_class_def)value_type, s_node->other_wise );
return( node );
}
BOOL QSQL_DEF::EnableSelVar /* ---- Enable Selected Variable -------- */
( HWND hDlg // window handle
)
/* Enables Selected Variable group box. */
{ OBJECTID obj; // object
char extName[EXTNAMESIZE]; // extended name
char *extNamePtr; // extended name ptr
WORD i; // counter
SendDlgItemMessage(hDlg, IDL_VARS, LB_GETSELITEMS, 1, (DWORD) &i);
SendDlgItemMessage(hDlg, IDL_VARS, LB_GETTEXT, i, (DWORD) extName);
obj = (OBJECTID) SendDlgItemMessage(hDlg, IDL_VARS, LB_GETITEMDATA, i, 0);
EnableWindow(GetDlgItem(hDlg, IDG_VAR), TRUE);
/* ---- trims type name ---- */
for (extNamePtr = extName; *extNamePtr != ':'; extNamePtr++)
/* Do Nothing */;
*extNamePtr = 0;
SelName(hDlg, extName);
SelType(hDlg, obj);
SelObj(hDlg, obj);
return TRUE;
} // EnableSelVar
