Function ParseShortFunctionDefinition

NULLC/Parser.cpp:1161–1281

}

bool ParseShortFunctionDefinition(Lexeme** str)
{
	if(!ParseLexem(str, lex_less))
		return true;

	// Save argument starting position
	Lexeme *start = *str;
	unsigned arguments = 0;
	// parse argument count
	if((*str)->type != lex_greater)
	{
		ParseSelectType(str);
		if(!ParseLexem(str, lex_string))
			ThrowError((*str)->pos, "ERROR: function argument name not found after '<'");
		arguments++;
		while(ParseLexem(str, lex_comma))
		{
			ParseSelectType(str);
			if(!ParseLexem(str, lex_string))
				ThrowError((*str)->pos, "ERROR: function argument name not found after ','");
			arguments++;
		}
	}
	// Restore argument starting position
	*str = start;
	// Get function type
	TypeInfo *type = (TypeInfo*)GetCurrentArgumentType((*str)->pos, arguments);

	static int unnamedFuncCount = 0;
	char *functionName = (char*)stringPool.Allocate(16);
	sprintf(functionName, "$funcs%d", unnamedFuncCount);
	unnamedFuncCount++;

	NamespaceInfo *lastNS = GetCurrentNamespace();
	SetCurrentNamespace(NULL);

	SelectTypeByPointer(type->funcType->retType);
	FunctionAdd((*str)->pos, functionName);

	for(unsigned currArg = 0; currArg < arguments; currArg++)
	{
		if(currArg != 0)
			ParseLexem(str, lex_comma);
		bool imaginary = ParseSelectType(str);
		TypeInfo *selType = (TypeInfo*)GetSelectedType();
		SelectTypeByPointer(type->funcType->paramType[currArg]);
		if((*str)->length >= NULLC_MAX_VARIABLE_NAME_LENGTH)
			ThrowError((*str)->pos, "ERROR: parameter name length is limited to 2048 symbols");
		if(imaginary && type->funcType->paramType[currArg] == typeGeneric)
		{
			SelectTypeByPointer(selType);
			imaginary = false;
		}
		if(!imaginary || type->funcType->paramType[currArg] == selType)
		{
			if(GetSelectedType() == typeGeneric)
				ThrowError((*str)->pos, "ERROR: function allows any type for this argument so it must be specified explicitly");
			FunctionParameter((*str)->pos, InplaceStr((*str)->pos, (*str)->length));