Function writePascalFunctionType

Source/buildbindingpascal.go:1077–1120

(method ComponentDefinitionMethod, w LanguageWriter, NameSpace string, ClassName string, isGlobal bool, spacing string)

}

func writePascalFunctionType(method ComponentDefinitionMethod, w LanguageWriter, NameSpace string, ClassName string, isGlobal bool, spacing string) error {

	PascalCallbackName := ""
	parameters := ""
	if isGlobal {
		PascalCallbackName = fmt.Sprintf("T%s%sFunc", NameSpace, method.MethodName)
	} else {
		PascalCallbackName = fmt.Sprintf("T%s%s_%sFunc", NameSpace, ClassName, method.MethodName)
		parameters = fmt.Sprintf("p%s: T%sHandle", ClassName, NameSpace)
	}

	w.Writeln(spacing + "(**")
	w.Writeln(spacing+"* %s", method.MethodDescription)
	w.Writeln(spacing + "*")
	if !isGlobal {
		w.Writeln(spacing+"* @param[in] p%s - %s instance.", ClassName, ClassName)
	}

	for k := 0; k < len(method.Params); k++ {
		param := method.Params[k]

		pascalParams, err := generatePlainPascalParameter(param, ClassName, method.MethodName, NameSpace)
		if err != nil {
			return err
		}

		for _, pascalParam := range pascalParams {
			w.Writeln(spacing + pascalParam.ParamComment)
			if parameters != "" {
				parameters = parameters + "; "
			}
			parameters = parameters + pascalParam.ParamConvention + pascalParam.ParamName + ": " + pascalParam.ParamType
		}

	}

	w.Writeln(spacing + "* @return error code or 0 (success)")
	w.Writeln(spacing + "*)")

	w.Writeln(spacing+"%s = function(%s): T%sResult; cdecl;", PascalCallbackName, parameters, NameSpace)
	w.Writeln(spacing + "")

	return nil
}

func generatePlainPascalParameters(method ComponentDefinitionMethod, className string, NameSpace string) ([]pascalParameter, error) {
	parameters := []pascalParameter{}