IHqlExpression * CMemberInfo::addDatasetLimits(HqlCppTranslator & translator, BuildCtx & ctx, IReferenceSelector * selector, IHqlExpression * _value)
{
LinkedHqlExpr value = _value;
IHqlExpression * choosen = column->queryAttribute(choosenAtom);
if (choosen)
{
LinkedHqlExpr choosenValue = choosen->queryChild(0);
if (!choosenValue->queryValue())
{
OwnedHqlExpr self = container->getRelativeSelf();
OwnedHqlExpr absoluteExpr = replaceSelector(choosenValue, querySelfReference(), self);
choosenValue.setown(selector->queryRootRow()->bindToRow(absoluteExpr, querySelfReference()));
}
else
{
if (hasNoMoreRowsThan(value, getIntValue(choosenValue)))
choosenValue.clear();
}
if (choosenValue)
value.setown(createDataset(no_choosen, LINK(value), LINK(choosenValue)));
}
IHqlExpression * maxCount = queryAttributeChild(column, maxCountAtom, 0);
if (maxCount && !hasNoMoreRowsThan(value, getIntValue(maxCount)))
{
//Generate a limit test if there isn't a limit that ensures it is small enough
StringBuffer failText, columnText;
expandSelectPathText(columnText, true).toLowerCase();
failText.appendf("Too many rows assigned to field %s", columnText.str());
OwnedHqlExpr fail = translator.createFailAction(failText.str(), maxCount, NULL, translator.queryCurrentActivityId(ctx));
value.setown(createDataset(no_limit, LINK(value), createComma(LINK(maxCount), LINK(fail))));
}
return value.getClear();
}
IHqlExpression * buildWorkUnitViewerEcl(IHqlExpression * record, const char * wuid, unsigned sequence, const char * name)
{
OwnedHqlExpr newRecord = createSymbol(createIdentifierAtom("_SourceRecord_"), LINK(record), ob_private);
IHqlExpression * arg = name ? createConstant(name) : createConstant((int)sequence);
OwnedHqlExpr dataset = createDataset(no_workunit_dataset, newRecord.getLink(), createComma(createConstant(wuid), arg));
OwnedHqlExpr projected = addSimplifyProject(dataset);
OwnedHqlExpr output = addOutput(projected);
return output.getClear();
}
IHqlExpression * addSimplifyProject(IHqlExpression * dataset)
{
IHqlExpression * record = dataset->queryRecord();
IHqlExpression * projectRecord = getSimplifiedRecord(record, false);
if (!projectRecord)
return LINK(dataset);
projectRecord = createSymbol(createIdentifierAtom("_TargetRecord_"), projectRecord, ob_private);
return createDataset(no_newusertable, LINK(dataset), createComma(projectRecord, getSimplifiedTransform(projectRecord, record, dataset)));
}
IHqlExpression * PositionTransformer::createTransformed(IHqlExpression * _expr)
{
OwnedHqlExpr transformed = NewHqlTransformer::createTransformed(_expr);
switch (transformed->getOperator())
{
case no_table:
{
IHqlExpression * mode = transformed->queryChild(2);
HqlExprArray fields;
HqlExprArray args;
if (mode->getOperator() == no_thor)
{
unwindChildren(fields, transformed->queryChild(1));
IHqlExpression * filePosAttr = createComma(createAttribute(virtualAtom, createAttribute(filepositionAtom)), insertedAttr.getLink());
IHqlExpression * sizeofAttr = createComma(createAttribute(virtualAtom, createAttribute(sizeofAtom)), insertedAttr.getLink());
fields.append(*createField(fileposName, makeIntType(8, false), NULL, filePosAttr));
fields.append(*createField(recordlenName, makeIntType(2, false), NULL, sizeofAttr));
unwindChildren(args, transformed);
args.replace(*createRecord(fields), 1);
return transformed->clone(args);
}
}
break;
case no_iterate:
case no_hqlproject:
{
HqlExprArray args;
HqlExprArray assigns;
IHqlExpression * transform = transformed->queryChild(1);
unwindChildren(args, transformed);
unwindChildren(assigns, transform);
IHqlExpression * inRecord = transformed->queryChild(0)->queryRecord();
IHqlExpression * outRecord = transform->queryRecord();
HqlExprArray fields;
unwindChildren(fields, outRecord);
ForEachChild(idx, inRecord)
{
IHqlExpression * child = inRecord->queryChild(idx);
if (child->hasProperty(insertedAtom))
{
IHqlExpression * newTarget = createField(child->queryName(), child->getType(), LINK(child), insertedAttr.getLink());
fields.append(*newTarget);
assigns.append(*createValue(no_assign, makeVoidType(), newTarget, createSelectExpr(createValue(no_left), LINK(newTarget))));
}
}
IHqlExpression * newRecord = createRecord(fields);
args.replace(*createValue(no_transform, newRecord->getType(), assigns), 1);
return transformed->clone(args);
}
break;
case no_join:
//only ok if join first
case no_rollup:
case no_newaggregate:
case no_aggregate:
fail();
break;
case no_usertable:
case no_selectfields:
{
IHqlExpression * grouping = transformed->queryChild(2);
if (grouping && (grouping->getOperator() != no_attr))
fail();
IHqlExpression * record = transformed->queryRecord();
HqlExprArray fields;
unwindChildren(fields, transformed->queryChild(1));
ForEachChild(idx, record)
{
IHqlExpression * child = record->queryChild(idx);
if (child->hasProperty(insertedAtom))
fields.append(*createField(child->queryName(), child->getType(), LINK(child), insertedAttr.getLink()));
}
HqlExprArray args;
unwindChildren(args, transformed);
args.replace(*createRecord(fields), 1);
return transformed->clone(args);
}
