void
MoonError::FillIn (MoonError *error, ExceptionType type, const char *message)
{
if (!error)
return;
FillIn (error, type, 0, message);
}
void
MoonError::FillIn (MoonError *error, ParserErrorEventArgs *error_args)
{
if (!error)
return;
FillIn (error, MoonError::XAML_PARSE_EXCEPTION, error_args->GetErrorMessage());
error->char_position = error_args->char_position;
error->line_number = error_args->line_number;
}
INT16 CGEN_PROTECTED CCgen::OnHeadercode()
{
if (m_nAncestor || m_bMainProject)
{
CList<SCGStr> dummy;
FillIn(dummy,S_ENDCODE);
if (m_bMainProject) ERRORRET(ERR_INVALKEY,"HEADERCODE:","MAIN:",0,NOT_EXEC)
else return O_K;
}
BOOL CExtendedCPU5EAXAMD::OnSetActive()
{
CPUregs regs;
GetAndReport(0x80000005, regs);
FillIn(CacheTLBInfo(IDS_EXTENDED_5_EAX_31_24,
IDS_EXTENDED_5_EAX_23_16,
IDS_EXTENDED_5_EAX_15_8,
IDS_EXTENDED_5_EAX_7_0,
IDS_EXTENDED_5_EAX_CAPTION), regs.EAX);
return CExtendedCPU5AMD::OnSetActive();
}
void FillScan (edge_list_type &list, int end_Edge , int start_Edge , int scan )
{
int NX , J , K;
NX = (end_Edge - start_Edge + 1)/2;
J = start_Edge;
for ( K = 1 ; K <= NX ; K++ )
{
FillIn ( (int)list.edge[J].Xinter,
(int)list.edge[J+1].Xinter, scan);
J += 2;
}
}
XtGeometryResult XtQueryGeometry(
Widget widget,
register XtWidgetGeometry *intended, /* parent's changes; may be NULL */
XtWidgetGeometry *reply) /* child's preferred geometry; never NULL */
{
XtWidgetGeometry null_intended;
XtGeometryHandler query;
XtGeometryResult result;
WIDGET_TO_APPCON(widget);
CALLGEOTAT(_XtGeoTrace(widget,
"\"%s\" is asking its preferred geometry to \"%s\".\n",
(XtParent(widget))?XtName(XtParent(widget)):"Root",
XtName(widget)));
CALLGEOTAT(_XtGeoTab(1));
LOCK_APP(app);
LOCK_PROCESS;
query = XtClass(widget)->core_class.query_geometry;
UNLOCK_PROCESS;
reply->request_mode = 0;
if (query != NULL) {
if (intended == NULL) {
null_intended.request_mode = 0;
intended = &null_intended;
#ifdef XT_GEO_TATTLER
CALLGEOTAT(_XtGeoTrace(widget,"without any constraint.\n"));
} else {
CALLGEOTAT(_XtGeoTrace(widget,
"with the following constraints:\n"));
if (intended->request_mode & CWX) {
CALLGEOTAT(_XtGeoTrace(widget," x = %d\n",intended->x));
}
if (intended->request_mode & CWY) {
CALLGEOTAT(_XtGeoTrace(widget," y = %d\n",intended->y));
}
if (intended->request_mode & CWWidth) {
CALLGEOTAT(_XtGeoTrace(widget,
" width = %d\n",intended->width));
}
if (intended->request_mode & CWHeight) {
CALLGEOTAT(_XtGeoTrace(widget,
" height = %d\n",intended->height));
}
if (intended->request_mode & CWBorderWidth) {
CALLGEOTAT(_XtGeoTrace(widget,
" border_width = %d\n",intended->border_width));
}
#endif
}
result = (*query) (widget, intended, reply);
}
else {
CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" has no QueryGeometry proc, return the current state\n",XtName(widget)));
result = XtGeometryYes;
}
#ifdef XT_GEO_TATTLER
#define FillIn(mask, field) \
if (!(reply->request_mode & mask)) {\
reply->field = widget->core.field;\
_XtGeoTrace(widget," using core %s = %d.\n","field",\
widget->core.field);\
} else {\
_XtGeoTrace(widget," replied %s = %d\n","field",\
reply->field);\
}
#else
#define FillIn(mask, field) \
if (!(reply->request_mode & mask)) reply->field = widget->core.field;
#endif
FillIn(CWX, x);
FillIn(CWY, y);
FillIn(CWWidth, width);
FillIn(CWHeight, height);
FillIn(CWBorderWidth, border_width);
CALLGEOTAT(_XtGeoTab(-1));
#undef FillIn
if (!(reply->request_mode & CWStackMode))
reply->stack_mode = XtSMDontChange;
UNLOCK_APP(app);
return result;
}
