Function AddListGenerator

NULLC/Callbacks.cpp:5366–5443

};

void AddListGenerator(const char* pos, TypeInfo *rType)
{
//typedef int generic;
	TypeInfo *retType = rType;

	currType = CodeInfo::GetArrayType(retType, TypeInfo::UNSIZED_ARRAY);

//generic[] gen_list(generic ref() y)
	char *functionName = AllocateString(16);
	sprintf(functionName, "$gen_list");
	FunctionAdd(pos, functionName);

	TypeHandler* h = NULL;
	SelectTypeByPointer(CodeInfo::GetFunctionType(retType, h, 0));
	FunctionParameter(pos, InplaceStr("y"));
	FunctionStart(pos);

//	auto[] res = auto_array(generic, 1);
	currType = typeAutoArray;
	VariableInfo *varInfo = AddVariable(pos, InplaceStr("res"));
	currType = retType;
	GetTypeId(pos);
	CodeInfo::nodeList.push_back(new NodeNumber(1, typeInt));
	AddFunctionCallNode(pos, "auto_array", 2);
	AddDefineVariableNode(pos, varInfo);
	AddPopNode(pos);
//	int pos = 0;
	currType = typeInt;
	varInfo = AddVariable(pos, InplaceStr("pos"));
	CodeInfo::nodeList.push_back(new NodeNumber(0, typeInt));
	AddDefineVariableNode(pos, varInfo);
	AddPopNode(pos);

//	for(x in y)
	IncreaseCycleDepth();
	BeginBlock();

	AddGetAddressNode(pos, InplaceStr("y"));
	AddGetVariableNode(pos);
	AddArrayIterator("x", InplaceStr("x"), NULL);

//		res.set(x, pos++);
	AddGetAddressNode(pos, InplaceStr("res"));
	AddGetAddressNode(pos, InplaceStr("x"));
	AddGetAddressNode(pos, InplaceStr("pos"));
	AddUnaryModifyOpNode(pos, OP_INCREMENT, OP_POSTFIX);
	AddMemberFunctionCall(pos, "set", 2);
	AddPopNode(pos);

	EndBlock();
	AddForEachNode(pos);

//	__force_size(&res, pos);
	AddGetAddressNode(pos, InplaceStr("res"));
	AddGetAddressNode(pos, InplaceStr("pos"));
	AddGetVariableNode(pos);
	AddFunctionCallNode(pos, "__force_size", 2);
	AddPopNode(pos);