blender-archive/source/blender/makesrna/intern/makesrna.c

/*
 * ***** BEGIN GPL LICENSE BLOCK *****
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * Contributor(s): Blender Foundation (2008).
 *
 * ***** END GPL LICENSE BLOCK *****
 */

/** \file blender/makesrna/intern/makesrna.c
 *  \ingroup RNA
 */


#include <float.h>
#include <limits.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>

#include "MEM_guardedalloc.h"

#include "RNA_access.h"
#include "RNA_define.h"
#include "RNA_types.h"

#include "rna_internal.h"

#ifdef _WIN32
#  ifndef snprintf
#    define snprintf _snprintf
#  endif
#endif

/* so we can use __func__ everywhere */
#if defined(_MSC_VER)
#  define __func__ __FUNCTION__
#endif

/* Replace if different */
#define TMP_EXT ".tmp"


/* copied from BLI_file_older */
#include <sys/stat.h>
static int file_older(const char *file1, const char *file2)
{
	struct stat st1, st2;
	/* printf("compare: %s %s\n", file1, file2); */

	if (stat(file1, &st1)) return 0;
	if (stat(file2, &st2)) return 0;

	return (st1.st_mtime < st2.st_mtime);
}
static const char *makesrna_path = NULL;

static int replace_if_different(char *tmpfile, const char *dep_files[])
{
	/* return 0;  *//* use for testing had edited rna */

#define REN_IF_DIFF                                                           \
	{                                                                         \
		FILE *file_test = fopen(orgfile, "rb");                               \
		if (file_test) {                                                      \
			fclose(file_test);                                                \
			if (fp_org) fclose(fp_org);                                       \
			if (fp_new) fclose(fp_new);                                       \
			if (remove(orgfile) != 0) {                                       \
				fprintf(stderr, "%s:%d, Remove Error (%s): \"%s\"\n",         \
				        __FILE__, __LINE__, strerror(errno), orgfile);        \
				return -1;                                                    \
			}                                                                 \
		}                                                                     \
	}                                                                         \
	if (rename(tmpfile, orgfile) != 0) {                                      \
		fprintf(stderr, "%s:%d, Rename Error (%s): \"%s\" -> \"%s\"\n",       \
		        __FILE__, __LINE__, strerror(errno), tmpfile, orgfile);       \
		return -1;                                                            \
	}                                                                         \
	remove(tmpfile);                                                          \
	return 1                                                                  \

/* end REN_IF_DIFF */


	FILE *fp_new = NULL, *fp_org = NULL;
	int len_new, len_org;
	char *arr_new, *arr_org;
	int cmp;

	char orgfile[4096];

	strcpy(orgfile, tmpfile);
	orgfile[strlen(orgfile) - strlen(TMP_EXT)] = '\0'; /* strip '.tmp' */

	fp_org = fopen(orgfile, "rb");

	if (fp_org == NULL) {
		REN_IF_DIFF;
	}


	/* XXX, trick to work around dependency problem
	 * assumes dep_files is in the same dir as makesrna.c, which is true for now. */

	if (1) {
		/* first check if makesrna.c is newer then generated files
		 * for development on makesrna.c you may want to disable this */
		if (file_older(orgfile, __FILE__)) {
			REN_IF_DIFF;
		}

		if (file_older(orgfile, makesrna_path)) {
			REN_IF_DIFF;
		}

		/* now check if any files we depend on are newer then any generated files */
		if (dep_files) {
			int pass;
			for (pass = 0; dep_files[pass]; pass++) {
				char from_path[4096] = __FILE__;
				char *p1, *p2;

				/* dir only */
				p1 = strrchr(from_path, '/');
				p2 = strrchr(from_path, '\\');
				strcpy((p1 > p2 ? p1 : p2) + 1, dep_files[pass]);
				/* account for build deps, if makesrna.c (this file) is newer */
				if (file_older(orgfile, from_path)) {
					REN_IF_DIFF;
				}
			}
		}
	}
	/* XXX end dep trick */


	fp_new = fopen(tmpfile, "rb");

	if (fp_new == NULL) {
		/* shouldn't happen, just to be safe */
		fprintf(stderr, "%s:%d, open error: \"%s\"\n", __FILE__, __LINE__, tmpfile);
		fclose(fp_org);
		return -1;
	}

	fseek(fp_new, 0L, SEEK_END); len_new = ftell(fp_new); fseek(fp_new, 0L, SEEK_SET);
	fseek(fp_org, 0L, SEEK_END); len_org = ftell(fp_org); fseek(fp_org, 0L, SEEK_SET);


	if (len_new != len_org) {
		fclose(fp_new);
		fclose(fp_org);
		REN_IF_DIFF;
	}

	/* now compare the files... */
	arr_new = MEM_mallocN(sizeof(char) * len_new, "rna_cmp_file_new");
	arr_org = MEM_mallocN(sizeof(char) * len_org, "rna_cmp_file_org");

	if (fread(arr_new, sizeof(char), len_new, fp_new) != len_new)
		fprintf(stderr, "%s:%d, error reading file %s for comparison.\n", __FILE__, __LINE__, tmpfile);
	if (fread(arr_org, sizeof(char), len_org, fp_org) != len_org)
		fprintf(stderr, "%s:%d, error reading file %s for comparison.\n", __FILE__, __LINE__, orgfile);

	fclose(fp_new);
	fclose(fp_org);

	cmp = memcmp(arr_new, arr_org, len_new);

	MEM_freeN(arr_new);
	MEM_freeN(arr_org);

	if (cmp) {
		REN_IF_DIFF;
	}
	else {
		remove(tmpfile);
		return 0;
	}

#undef REN_IF_DIFF
}

/* Helper to solve keyword problems with C/C++ */

static const char *rna_safe_id(const char *id)
{
	if (strcmp(id, "default") == 0)
		return "default_value";
	else if (strcmp(id, "operator") == 0)
		return "operator_value";

	return id;
}

/* Sorting */

static int cmp_struct(const void *a, const void *b)
{
	const StructRNA *structa = *(const StructRNA **)a;
	const StructRNA *structb = *(const StructRNA **)b;

	return strcmp(structa->identifier, structb->identifier);
}

static int cmp_property(const void *a, const void *b)
{
	const PropertyRNA *propa = *(const PropertyRNA **)a;
	const PropertyRNA *propb = *(const PropertyRNA **)b;

	if (strcmp(propa->identifier, "rna_type") == 0) return -1;
	else if (strcmp(propb->identifier, "rna_type") == 0) return 1;

	if (strcmp(propa->identifier, "name") == 0) return -1;
	else if (strcmp(propb->identifier, "name") == 0) return 1;

	return strcmp(propa->name, propb->name);
}

static int cmp_def_struct(const void *a, const void *b)
{
	const StructDefRNA *dsa = *(const StructDefRNA **)a;
	const StructDefRNA *dsb = *(const StructDefRNA **)b;

	return cmp_struct(&dsa->srna, &dsb->srna);
}

static int cmp_def_property(const void *a, const void *b)
{
	const PropertyDefRNA *dpa = *(const PropertyDefRNA **)a;
	const PropertyDefRNA *dpb = *(const PropertyDefRNA **)b;

	return cmp_property(&dpa->prop, &dpb->prop);
}

static void rna_sortlist(ListBase *listbase, int (*cmp)(const void *, const void *))
{
	Link *link;
	void **array;
	int a, size;
	
	if (listbase->first == listbase->last)
		return;

	for (size = 0, link = listbase->first; link; link = link->next)
		size++;

	array = MEM_mallocN(sizeof(void *) * size, "rna_sortlist");
	for (a = 0, link = listbase->first; link; link = link->next, a++)
		array[a] = link;

	qsort(array, size, sizeof(void *), cmp);

	listbase->first = listbase->last = NULL;
	for (a = 0; a < size; a++) {
		link = array[a];
		link->next = link->prev = NULL;
		rna_addtail(listbase, link);
	}

	MEM_freeN(array);
}

/* Preprocessing */

static void rna_print_c_string(FILE *f, const char *str)
{
	static const char *escape[] = {"\''", "\"\"", "\??", "\\\\", "\aa", "\bb", "\ff", "\nn", "\rr", "\tt", "\vv", NULL};
	int i, j;

	if (!str) {
		fprintf(f, "NULL");
		return;
	}

	fprintf(f, "\"");
	for (i = 0; str[i]; i++) {
		for (j = 0; escape[j]; j++)
			if (str[i] == escape[j][0])
				break;

		if (escape[j]) fprintf(f, "\\%c", escape[j][1]);
		else fprintf(f, "%c", str[i]);
	}
	fprintf(f, "\"");
}

static void rna_print_data_get(FILE *f, PropertyDefRNA *dp)
{
	if (dp->dnastructfromname && dp->dnastructfromprop)
		fprintf(f, "	%s *data= (%s*)(((%s*)ptr->data)->%s);\n", dp->dnastructname, dp->dnastructname,
		        dp->dnastructfromname, dp->dnastructfromprop);
	else
		fprintf(f, "	%s *data= (%s*)(ptr->data);\n", dp->dnastructname, dp->dnastructname);
}

static void rna_print_id_get(FILE *f, PropertyDefRNA *dp)
{
	fprintf(f, "	ID *id= ptr->id.data;\n");
}

static char *rna_alloc_function_name(const char *structname, const char *propname, const char *type)
{
	AllocDefRNA *alloc;
	char buffer[2048];
	char *result;

	snprintf(buffer, sizeof(buffer), "%s_%s_%s", structname, propname, type);
	result = MEM_callocN(sizeof(char) * strlen(buffer) + 1, "rna_alloc_function_name");
	strcpy(result, buffer);

	alloc = MEM_callocN(sizeof(AllocDefRNA), "AllocDefRNA");
	alloc->mem = result;
	rna_addtail(&DefRNA.allocs, alloc);

	return result;
}

static StructRNA *rna_find_struct(const char *identifier)
{
	StructDefRNA *ds;

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next)
		if (strcmp(ds->srna->identifier, identifier) == 0)
			return ds->srna;

	return NULL;
}

static const char *rna_find_type(const char *type)
{
	StructDefRNA *ds;

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next)
		if (ds->dnaname && strcmp(ds->dnaname, type) == 0)
			return ds->srna->identifier;

	return NULL;
}

static const char *rna_find_dna_type(const char *type)
{
	StructDefRNA *ds;

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next)
		if (strcmp(ds->srna->identifier, type) == 0)
			return ds->dnaname;

	return NULL;
}

static const char *rna_type_type_name(PropertyRNA *prop)
{
	switch (prop->type) {
		case PROP_BOOLEAN:
		case PROP_INT:
		case PROP_ENUM:
			return "int";
		case PROP_FLOAT:
			return "float";
		case PROP_STRING:
			if (prop->flag & PROP_THICK_WRAP) {
				return "char*";
			}
			else {
				return "const char*";
			}
		default:
			return NULL;
	}
}

static const char *rna_type_type(PropertyRNA *prop)
{
	const char *type;

	type = rna_type_type_name(prop);

	if (type)
		return type;

	return "PointerRNA";
}

static const char *rna_type_struct(PropertyRNA *prop)
{
	const char *type;

	type = rna_type_type_name(prop);

	if (type)
		return "";

	return "struct ";
}

static const char *rna_parameter_type_name(PropertyRNA *parm)
{
	const char *type;

	type = rna_type_type_name(parm);

	if (type)
		return type;

	switch (parm->type) {
		case PROP_POINTER:
		{
			PointerPropertyRNA *pparm = (PointerPropertyRNA *)parm;

			if (parm->flag & PROP_RNAPTR)
				return "PointerRNA";
			else
				return rna_find_dna_type((const char *)pparm->type);
		}
		case PROP_COLLECTION:
		{
			return "ListBase";
		}
		default:
			return "<error, no type specified>";
	}
}

static int rna_enum_bitmask(PropertyRNA *prop)
{
	EnumPropertyRNA *eprop = (EnumPropertyRNA *)prop;
	int a, mask = 0;

	if (eprop->item) {
		for (a = 0; a < eprop->totitem; a++)
			if (eprop->item[a].identifier[0])
				mask |= eprop->item[a].value;
	}
	
	return mask;
}

static int rna_color_quantize(PropertyRNA *prop, PropertyDefRNA *dp)
{
	return ( (prop->type == PROP_FLOAT) &&
	         (prop->subtype == PROP_COLOR || prop->subtype == PROP_COLOR_GAMMA) &&
	         (IS_DNATYPE_FLOAT_COMPAT(dp->dnatype) == 0) );
}

static const char *rna_function_string(void *func)
{
	return (func) ? (const char *)func : "NULL";
}

static void rna_float_print(FILE *f, float num)
{
	if (num == -FLT_MAX) fprintf(f, "-FLT_MAX");
	else if (num == FLT_MAX) fprintf(f, "FLT_MAX");
	else if ((int)num == num) fprintf(f, "%.1ff", num);
	else fprintf(f, "%.10ff", num);
}

static void rna_int_print(FILE *f, int num)
{
	if (num == INT_MIN) fprintf(f, "INT_MIN");
	else if (num == INT_MAX) fprintf(f, "INT_MAX");
	else fprintf(f, "%d", num);
}

static char *rna_def_property_get_func(FILE *f, StructRNA *srna, PropertyRNA *prop, PropertyDefRNA *dp,
                                       const char *manualfunc)
{
	char *func;

	if (prop->flag & PROP_IDPROPERTY && manualfunc == NULL)
		return NULL;

	if (!manualfunc) {
		if (!dp->dnastructname || !dp->dnaname) {
			fprintf(stderr, "%s (0): %s.%s has no valid dna info.\n",
			        __func__, srna->identifier, prop->identifier);
			DefRNA.error = 1;
			return NULL;
		}

		/* typecheck,  */
		if (dp->dnatype && *dp->dnatype) {

			if (prop->type == PROP_FLOAT) {
				if (IS_DNATYPE_FLOAT_COMPAT(dp->dnatype) == 0) {
					if (prop->subtype != PROP_COLOR_GAMMA) { /* colors are an exception. these get translated */
						fprintf(stderr, "%s (1): %s.%s is a '%s' but wrapped as type '%s'.\n",
						        __func__, srna->identifier, prop->identifier, dp->dnatype,
						        RNA_property_typename(prop->type));
						DefRNA.error = 1;
						return NULL;
					}
				}
			}
			else if (prop->type == PROP_INT || prop->type == PROP_BOOLEAN || prop->type == PROP_ENUM) {
				if (IS_DNATYPE_INT_COMPAT(dp->dnatype) == 0) {
					fprintf(stderr, "%s (2): %s.%s is a '%s' but wrapped as type '%s'.\n",
					        __func__, srna->identifier, prop->identifier, dp->dnatype,
					        RNA_property_typename(prop->type));
					DefRNA.error = 1;
					return NULL;
				}
			}
		}

	}

	func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "get");

	switch (prop->type) {
		case PROP_STRING: {
			StringPropertyRNA *sprop = (StringPropertyRNA *)prop;
			fprintf(f, "void %s(PointerRNA *ptr, char *value)\n", func);
			fprintf(f, "{\n");
			if (manualfunc) {
				fprintf(f, "	%s(ptr, value);\n", manualfunc);
			}
			else {
				const PropertySubType subtype = prop->subtype;
				const char *string_copy_func = (subtype == PROP_FILEPATH ||
				                                subtype == PROP_DIRPATH  ||
				                                subtype == PROP_FILENAME ||
				                                subtype == PROP_BYTESTRING) ?
				                               "BLI_strncpy" : "BLI_strncpy_utf8";

				rna_print_data_get(f, dp);

				if (!(prop->flag & PROP_NEVER_NULL)) {
					fprintf(f, "	if (data->%s == NULL) {\n", dp->dnaname);
					fprintf(f, "		*value = '\\0';\n");
					fprintf(f, "		return;\n");
					fprintf(f, "	}\n");
				}

				if (sprop->maxlength)
					fprintf(f, "	%s(value, data->%s, %d);\n", string_copy_func, dp->dnaname, sprop->maxlength);
				else
					fprintf(f, "	%s(value, data->%s, sizeof(data->%s));\n", string_copy_func,
					        dp->dnaname, dp->dnaname);
			}
			fprintf(f, "}\n\n");
			break;
		}
		case PROP_POINTER: {
			fprintf(f, "PointerRNA %s(PointerRNA *ptr)\n", func);
			fprintf(f, "{\n");
			if (manualfunc) {
				fprintf(f, "	return %s(ptr);\n", manualfunc);
			}
			else {
				PointerPropertyRNA *pprop = (PointerPropertyRNA *)prop;
				rna_print_data_get(f, dp);
				if (dp->dnapointerlevel == 0)
					fprintf(f, "	return rna_pointer_inherit_refine(ptr, &RNA_%s, &data->%s);\n",
					        (const char *)pprop->type, dp->dnaname);
				else
					fprintf(f, "	return rna_pointer_inherit_refine(ptr, &RNA_%s, data->%s);\n",
					        (const char *)pprop->type, dp->dnaname);
			}
			fprintf(f, "}\n\n");
			break;
		}
		case PROP_COLLECTION: {
			CollectionPropertyRNA *cprop = (CollectionPropertyRNA *)prop;

			fprintf(f, "static PointerRNA %s(CollectionPropertyIterator *iter)\n", func);
			fprintf(f, "{\n");
			if (manualfunc) {
				if (strcmp(manualfunc, "rna_iterator_listbase_get") == 0 ||
				    strcmp(manualfunc, "rna_iterator_array_get") == 0 ||
				    strcmp(manualfunc, "rna_iterator_array_dereference_get") == 0)
				{
					fprintf(f, "	return rna_pointer_inherit_refine(&iter->parent, &RNA_%s, %s(iter));\n",
					        (cprop->item_type) ? (const char *)cprop->item_type : "UnknownType", manualfunc);
				}
				else {
					fprintf(f, "	return %s(iter);\n", manualfunc);
				}
			}
			fprintf(f, "}\n\n");
			break;
		}
		default:
			if (prop->arraydimension) {
				if (prop->flag & PROP_DYNAMIC)
					fprintf(f, "void %s(PointerRNA *ptr, %s values[])\n", func, rna_type_type(prop));
				else
					fprintf(f, "void %s(PointerRNA *ptr, %s values[%u])\n", func, rna_type_type(prop),
					        prop->totarraylength);
				fprintf(f, "{\n");

				if (manualfunc) {
					fprintf(f, "	%s(ptr, values);\n", manualfunc);
				}
				else {
					rna_print_data_get(f, dp);

					if (prop->flag & PROP_DYNAMIC) {
						char *lenfunc = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier),
						                                        "get_length");
						fprintf(f, "	int i, arraylen[RNA_MAX_ARRAY_DIMENSION];\n");
						fprintf(f, "	int len= %s(ptr, arraylen);\n\n", lenfunc);
						fprintf(f, "	for (i=0; i<len; i++) {\n");
						MEM_freeN(lenfunc);
					}
					else {
						fprintf(f, "	int i;\n\n");
						fprintf(f, "	for (i=0; i<%u; i++) {\n", prop->totarraylength);
					}

					if (dp->dnaarraylength == 1) {
						if (prop->type == PROP_BOOLEAN && dp->booleanbit) {
							fprintf(f, "		values[i] = %s((data->%s & (%d<<i)) != 0);\n",
							        (dp->booleannegative) ? "!" : "", dp->dnaname, dp->booleanbit);
						}
						else {
							fprintf(f, "		values[i] = (%s)%s((&data->%s)[i]);\n",
							        rna_type_type(prop), (dp->booleannegative) ? "!" : "", dp->dnaname);
						}
					}
					else {
						if (prop->type == PROP_BOOLEAN && dp->booleanbit) {
							fprintf(f, "		values[i] = %s((data->%s[i] & ", (dp->booleannegative) ? "!" : "",
							        dp->dnaname);
							rna_int_print(f, dp->booleanbit);
							fprintf(f, ") != 0);\n");
						}
						else if (rna_color_quantize(prop, dp)) {
							fprintf(f, "		values[i] = (%s)(data->%s[i]*(1.0f/255.0f));\n",
							        rna_type_type(prop), dp->dnaname);
						}
						else if (dp->dnatype) {
							fprintf(f, "		values[i] = (%s)%s(((%s*)data->%s)[i]);\n",
							        rna_type_type(prop), (dp->booleannegative) ? "!" : "", dp->dnatype, dp->dnaname);
						}
						else {
							fprintf(f, "		values[i] = (%s)%s((data->%s)[i]);\n",
							        rna_type_type(prop), (dp->booleannegative) ? "!" : "", dp->dnaname);
						}
					}
					fprintf(f, "	}\n");
				}
				fprintf(f, "}\n\n");
			}
			else {
				fprintf(f, "%s %s(PointerRNA *ptr)\n", rna_type_type(prop), func);
				fprintf(f, "{\n");

				if (manualfunc) {
					fprintf(f, "	return %s(ptr);\n", manualfunc);
				}
				else {
					rna_print_data_get(f, dp);
					if (prop->type == PROP_BOOLEAN && dp->booleanbit) {
						fprintf(f, "	return %s(((data->%s) & ", (dp->booleannegative) ? "!" : "", dp->dnaname);
						rna_int_print(f, dp->booleanbit);
						fprintf(f, ") != 0);\n");
					}
					else if (prop->type == PROP_ENUM && dp->enumbitflags) {
						fprintf(f, "	return ((data->%s) & ", dp->dnaname);
						rna_int_print(f, rna_enum_bitmask(prop));
						fprintf(f, ");\n");
					}
					else
						fprintf(f, "	return (%s)%s(data->%s);\n", rna_type_type(prop),
						        (dp->booleannegative) ? "!" : "", dp->dnaname);
				}

				fprintf(f, "}\n\n");
			}
			break;
	}

	return func;
}

/* defined min/max variables to be used by rna_clamp_value() */
static void rna_clamp_value_range(FILE *f, PropertyRNA *prop)
{
	if (prop->type == PROP_FLOAT) {
		FloatPropertyRNA *fprop = (FloatPropertyRNA *)prop;
		if (fprop->range) {
			fprintf(f,
			        "	float prop_clamp_min = -FLT_MAX, prop_clamp_max = FLT_MAX, prop_soft_min, prop_soft_max;\n");
			fprintf(f, "	%s(ptr, &prop_clamp_min, &prop_clamp_max, &prop_soft_min, &prop_soft_max);\n",
			        rna_function_string(fprop->range));
		}
	}
	else if (prop->type == PROP_INT) {
		IntPropertyRNA *iprop = (IntPropertyRNA *)prop;
		if (iprop->range) {
			fprintf(f, "	int prop_clamp_min = INT_MIN, prop_clamp_max = INT_MAX, prop_soft_min, prop_soft_max;\n");
			fprintf(f, "	%s(ptr, &prop_clamp_min, &prop_clamp_max, &prop_soft_min, &prop_soft_max);\n",
			        rna_function_string(iprop->range));
		}
	}
}

static void rna_clamp_value(FILE *f, PropertyRNA *prop, int array)
{
	if (prop->type == PROP_INT) {
		IntPropertyRNA *iprop = (IntPropertyRNA *)prop;

		if (iprop->hardmin != INT_MIN || iprop->hardmax != INT_MAX) {
			if (array) fprintf(f, "CLAMPIS(values[i], ");
			else fprintf(f, "CLAMPIS(value, ");
			if (iprop->range) {
				fprintf(f, "prop_clamp_min, prop_clamp_max);");
			}
			else {
				rna_int_print(f, iprop->hardmin); fprintf(f, ", ");
				rna_int_print(f, iprop->hardmax); fprintf(f, ");\n");
			}
			return;
		}
	}
	else if (prop->type == PROP_FLOAT) {
		FloatPropertyRNA *fprop = (FloatPropertyRNA *)prop;

		if (fprop->hardmin != -FLT_MAX || fprop->hardmax != FLT_MAX) {
			if (array) fprintf(f, "CLAMPIS(values[i], ");
			else fprintf(f, "CLAMPIS(value, ");
			if (fprop->range) {
				fprintf(f, "prop_clamp_min, prop_clamp_max);");
			}
			else {
				rna_float_print(f, fprop->hardmin); fprintf(f, ", ");
				rna_float_print(f, fprop->hardmax); fprintf(f, ");\n");
			}
			return;
		}
	}

	if (array)
		fprintf(f, "values[i];\n");
	else
		fprintf(f, "value;\n");
}

static char *rna_def_property_set_func(FILE *f, StructRNA *srna, PropertyRNA *prop, PropertyDefRNA *dp,
                                       const char *manualfunc)
{
	char *func;

	if (!(prop->flag & PROP_EDITABLE))
		return NULL;
	if (prop->flag & PROP_IDPROPERTY && manualfunc == NULL)
		return NULL;

	if (!manualfunc) {
		if (!dp->dnastructname || !dp->dnaname) {
			if (prop->flag & PROP_EDITABLE) {
				fprintf(stderr, "%s: %s.%s has no valid dna info.\n",
				        __func__, srna->identifier, prop->identifier);
				DefRNA.error = 1;
			}
			return NULL;
		}
	}

	func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "set");

	switch (prop->type) {
		case PROP_STRING: {
			StringPropertyRNA *sprop = (StringPropertyRNA *)prop;
			fprintf(f, "void %s(PointerRNA *ptr, const char *value)\n", func);
			fprintf(f, "{\n");
			if (manualfunc) {
				fprintf(f, "	%s(ptr, value);\n", manualfunc);
			}
			else {
				const PropertySubType subtype = prop->subtype;
				const char *string_copy_func = (subtype == PROP_FILEPATH ||
				                                subtype == PROP_DIRPATH  ||
				                                subtype == PROP_FILENAME ||
				                                subtype == PROP_BYTESTRING) ?
				                               "BLI_strncpy" : "BLI_strncpy_utf8";

				rna_print_data_get(f, dp);

				if (!(prop->flag & PROP_NEVER_NULL)) {
					fprintf(f, "	if (data->%s == NULL) {\n", dp->dnaname);
					fprintf(f, "		return;\n");
					fprintf(f, "	}\n");
				}

				if (sprop->maxlength)
					fprintf(f, "	%s(data->%s, value, %d);\n", string_copy_func, dp->dnaname, sprop->maxlength);
				else
					fprintf(f, "	%s(data->%s, value, sizeof(data->%s));\n", string_copy_func,
					        dp->dnaname, dp->dnaname);
			}
			fprintf(f, "}\n\n");
			break;
		}
		case PROP_POINTER: {
			fprintf(f, "void %s(PointerRNA *ptr, PointerRNA value)\n", func);
			fprintf(f, "{\n");
			if (manualfunc) {
				fprintf(f, "	%s(ptr, value);\n", manualfunc);
			}
			else {
				rna_print_data_get(f, dp);

				if (prop->flag & PROP_ID_SELF_CHECK) {
					rna_print_id_get(f, dp);
					fprintf(f, "	if (id == value.data) return;\n\n");
				}

				if (prop->flag & PROP_ID_REFCOUNT) {
					fprintf(f, "\n	if (data->%s)\n", dp->dnaname);
					fprintf(f, "		id_us_min((ID*)data->%s);\n", dp->dnaname);
					fprintf(f, "	if (value.data)\n");
					fprintf(f, "		id_us_plus((ID*)value.data);\n\n");
				}
				else {
					PointerPropertyRNA *pprop = (PointerPropertyRNA *)dp->prop;
					StructRNA *type = rna_find_struct((const char *)pprop->type);
					if (type && (type->flag & STRUCT_ID)) {
						fprintf(f, "	if (value.data)\n");
						fprintf(f, "		id_lib_extern((ID*)value.data);\n\n");
					}
				}

				fprintf(f, "	data->%s = value.data;\n", dp->dnaname);

			}
			fprintf(f, "}\n\n");
			break;
		}
		default:
			if (prop->arraydimension) {
				if (prop->flag & PROP_DYNAMIC)
					fprintf(f, "void %s(PointerRNA *ptr, const %s values[])\n", func, rna_type_type(prop));
				else
					fprintf(f, "void %s(PointerRNA *ptr, const %s values[%u])\n", func,
					        rna_type_type(prop), prop->totarraylength);
				fprintf(f, "{\n");

				if (manualfunc) {
					fprintf(f, "	%s(ptr, values);\n", manualfunc);
				}
				else {
					rna_print_data_get(f, dp);

					if (prop->flag & PROP_DYNAMIC) {
						char *lenfunc = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier),
						                                        "set_length");
						fprintf(f, "	int i, arraylen[RNA_MAX_ARRAY_DIMENSION];\n");
						fprintf(f, "	int len= %s(ptr, arraylen);\n\n", lenfunc);
						rna_clamp_value_range(f, prop);
						fprintf(f, "	for (i=0; i<len; i++) {\n");
						MEM_freeN(lenfunc);
					}
					else {
						fprintf(f, "	int i;\n\n");
						rna_clamp_value_range(f, prop);
						fprintf(f, "	for (i=0; i<%u; i++) {\n", prop->totarraylength);
					}

					if (dp->dnaarraylength == 1) {
						if (prop->type == PROP_BOOLEAN && dp->booleanbit) {
							fprintf(f, "		if (%svalues[i]) data->%s |= (%d<<i);\n",
							        (dp->booleannegative) ? "!" : "", dp->dnaname, dp->booleanbit);
							fprintf(f, "		else data->%s &= ~(%d<<i);\n", dp->dnaname, dp->booleanbit);
						}
						else {
							fprintf(f, "		(&data->%s)[i] = %s", dp->dnaname, (dp->booleannegative) ? "!" : "");
							rna_clamp_value(f, prop, 1);
						}
					}
					else {
						if (prop->type == PROP_BOOLEAN && dp->booleanbit) {
							fprintf(f, "		if (%svalues[i]) data->%s[i] |= ", (dp->booleannegative) ? "!" : "",
							        dp->dnaname);
							rna_int_print(f, dp->booleanbit);
							fprintf(f, ";\n");
							fprintf(f, "		else data->%s[i] &= ~", dp->dnaname);
							rna_int_print(f, dp->booleanbit);
							fprintf(f, ";\n");
						}
						else if (rna_color_quantize(prop, dp)) {
							fprintf(f, "		data->%s[i] = FTOCHAR(values[i]);\n", dp->dnaname);
						}
						else {
							if (dp->dnatype)
								fprintf(f, "		((%s*)data->%s)[i] = %s", dp->dnatype, dp->dnaname,
								        (dp->booleannegative) ? "!" : "");
							else
								fprintf(f, "		(data->%s)[i] = %s", dp->dnaname, (dp->booleannegative) ? "!" : "");
							rna_clamp_value(f, prop, 1);
						}
					}
					fprintf(f, "	}\n");
				}
				fprintf(f, "}\n\n");
			}
			else {
				fprintf(f, "void %s(PointerRNA *ptr, %s value)\n", func, rna_type_type(prop));
				fprintf(f, "{\n");

				if (manualfunc) {
					fprintf(f, "	%s(ptr, value);\n", manualfunc);
				}
				else {
					rna_print_data_get(f, dp);
					if (prop->type == PROP_BOOLEAN && dp->booleanbit) {
						fprintf(f, "	if (%svalue) data->%s |= ", (dp->booleannegative) ? "!" : "", dp->dnaname);
						rna_int_print(f, dp->booleanbit);
						fprintf(f, ";\n");
						fprintf(f, "	else data->%s &= ~", dp->dnaname);
						rna_int_print(f, dp->booleanbit);
						fprintf(f, ";\n");
					}
					else if (prop->type == PROP_ENUM && dp->enumbitflags) {
						fprintf(f, "	data->%s &= ~", dp->dnaname);
						rna_int_print(f, rna_enum_bitmask(prop));
						fprintf(f, ";\n");
						fprintf(f, "	data->%s |= value;\n", dp->dnaname);
					}
					else {
						rna_clamp_value_range(f, prop);
						fprintf(f, "	data->%s = %s", dp->dnaname, (dp->booleannegative) ? "!" : "");
						rna_clamp_value(f, prop, 0);
					}
				}
				fprintf(f, "}\n\n");
			}
			break;
	}

	return func;
}

static char *rna_def_property_length_func(FILE *f, StructRNA *srna, PropertyRNA *prop, PropertyDefRNA *dp,
                                          const char *manualfunc)
{
	char *func = NULL;

	if (prop->flag & PROP_IDPROPERTY && manualfunc == NULL)
		return NULL;

	if (prop->type == PROP_STRING) {
		if (!manualfunc) {
			if (!dp->dnastructname || !dp->dnaname) {
				fprintf(stderr, "%s: %s.%s has no valid dna info.\n",
				        __func__, srna->identifier, prop->identifier);
				DefRNA.error = 1;
				return NULL;
			}
		}

		func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "length");

		fprintf(f, "int %s(PointerRNA *ptr)\n", func);
		fprintf(f, "{\n");
		if (manualfunc) {
			fprintf(f, "	return %s(ptr);\n", manualfunc);
		}
		else {
			rna_print_data_get(f, dp);
			if (!(prop->flag & PROP_NEVER_NULL)) {
				fprintf(f, "	if (data->%s == NULL) return 0;\n", dp->dnaname);
			}
			fprintf(f, "	return strlen(data->%s);\n", dp->dnaname);
		}
		fprintf(f, "}\n\n");
	}
	else if (prop->type == PROP_COLLECTION) {
		if (!manualfunc) {
			if (prop->type == PROP_COLLECTION && (!(dp->dnalengthname || dp->dnalengthfixed) || !dp->dnaname)) {
				fprintf(stderr, "%s: %s.%s has no valid dna info.\n",
				        __func__, srna->identifier, prop->identifier);
				DefRNA.error = 1;
				return NULL;
			}
		}

		func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "length");

		fprintf(f, "int %s(PointerRNA *ptr)\n", func);
		fprintf(f, "{\n");
		if (manualfunc) {
			fprintf(f, "	return %s(ptr);\n", manualfunc);
		}
		else {
			rna_print_data_get(f, dp);
			if (dp->dnalengthname)
				fprintf(f, "	return (data->%s == NULL)? 0: data->%s;\n", dp->dnaname, dp->dnalengthname);
			else
				fprintf(f, "	return (data->%s == NULL)? 0: %d;\n", dp->dnaname, dp->dnalengthfixed);
		}
		fprintf(f, "}\n\n");
	}

	return func;
}

static char *rna_def_property_begin_func(FILE *f, StructRNA *srna, PropertyRNA *prop, PropertyDefRNA *dp,
                                         const char *manualfunc)
{
	char *func, *getfunc;

	if (prop->flag & PROP_IDPROPERTY && manualfunc == NULL)
		return NULL;

	if (!manualfunc) {
		if (!dp->dnastructname || !dp->dnaname) {
			fprintf(stderr, "%s: %s.%s has no valid dna info.\n",
			        __func__, srna->identifier, prop->identifier);
			DefRNA.error = 1;
			return NULL;
		}
	}

	func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "begin");

	fprintf(f, "void %s(CollectionPropertyIterator *iter, PointerRNA *ptr)\n", func);
	fprintf(f, "{\n");

	if (!manualfunc)
		rna_print_data_get(f, dp);

	fprintf(f, "\n	memset(iter, 0, sizeof(*iter));\n");
	fprintf(f, "	iter->parent= *ptr;\n");
	fprintf(f, "	iter->prop= (PropertyRNA*)&rna_%s_%s;\n", srna->identifier, prop->identifier);

	if (dp->dnalengthname || dp->dnalengthfixed) {
		if (manualfunc) {
			fprintf(f, "\n	%s(iter, ptr);\n", manualfunc);
		}
		else {
			if (dp->dnalengthname)
				fprintf(f, "\n	rna_iterator_array_begin(iter, data->%s, sizeof(data->%s[0]), data->%s, 0, NULL);\n",
				        dp->dnaname, dp->dnaname, dp->dnalengthname);
			else
				fprintf(f, "\n	rna_iterator_array_begin(iter, data->%s, sizeof(data->%s[0]), %d, 0, NULL);\n",
				        dp->dnaname, dp->dnaname, dp->dnalengthfixed);
		}
	}
	else {
		if (manualfunc)
			fprintf(f, "\n	%s(iter, ptr);\n", manualfunc);
		else if (dp->dnapointerlevel == 0)
			fprintf(f, "\n	rna_iterator_listbase_begin(iter, &data->%s, NULL);\n", dp->dnaname);
		else
			fprintf(f, "\n	rna_iterator_listbase_begin(iter, data->%s, NULL);\n", dp->dnaname);
	}

	getfunc = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "get");

	fprintf(f, "\n	if (iter->valid)\n");
	fprintf(f, "		iter->ptr= %s(iter);\n", getfunc);

	fprintf(f, "}\n\n");


	return func;
}

static char *rna_def_property_lookup_int_func(FILE *f, StructRNA *srna, PropertyRNA *prop, PropertyDefRNA *dp,
                                              const char *manualfunc, const char *nextfunc)
{
	/* note on indices, this is for external functions and ignores skipped values.
	 * so the the index can only be checked against the length when there is no 'skip' funcion. */
	char *func;

	if (prop->flag & PROP_IDPROPERTY && manualfunc == NULL)
		return NULL;

	if (!manualfunc) {
		if (!dp->dnastructname || !dp->dnaname)
			return NULL;

		/* only supported in case of standard next functions */
		if (strcmp(nextfunc, "rna_iterator_array_next") == 0) ;
		else if (strcmp(nextfunc, "rna_iterator_listbase_next") == 0) ;
		else return NULL;
	}

	func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "lookup_int");

	fprintf(f, "int %s(PointerRNA *ptr, int index, PointerRNA *r_ptr)\n", func);
	fprintf(f, "{\n");

	if (manualfunc) {
		fprintf(f, "\n	return %s(ptr, index, r_ptr);\n", manualfunc);
		fprintf(f, "}\n\n");
		return func;
	}

	fprintf(f, "	int found= 0;\n");
	fprintf(f, "	CollectionPropertyIterator iter;\n\n");

	fprintf(f, "	%s_%s_begin(&iter, ptr);\n\n", srna->identifier, rna_safe_id(prop->identifier));
	fprintf(f, "	if (iter.valid) {\n");

	if (strcmp(nextfunc, "rna_iterator_array_next") == 0) {
		fprintf(f, "		ArrayIterator *internal= iter.internal;\n");
		fprintf(f, "		if (index < 0 || index >= internal->length) {\n");
		fprintf(f, "#ifdef __GNUC__\n");
		fprintf(f, "			printf(\"Array iterator out of range: %%s (index %%d)\\n\", __func__, index);\n");
		fprintf(f, "#else\n");
		fprintf(f, "			printf(\"Array iterator out of range: (index %%d)\\n\", index);\n");
		fprintf(f, "#endif\n");
		fprintf(f, "		}\n");
		fprintf(f, "		else if (internal->skip) {\n");
		fprintf(f, "			while (index-- > 0 && iter.valid) {\n");
		fprintf(f, "				rna_iterator_array_next(&iter);\n");
		fprintf(f, "			}\n");
		fprintf(f, "			found= (index == -1 && iter.valid);\n");
		fprintf(f, "		}\n");
		fprintf(f, "		else {\n");
		fprintf(f, "			internal->ptr += internal->itemsize*index;\n");
		fprintf(f, "			found= 1;\n");
		fprintf(f, "		}\n");
	}
	else if (strcmp(nextfunc, "rna_iterator_listbase_next") == 0) {
		fprintf(f, "		ListBaseIterator *internal= iter.internal;\n");
		fprintf(f, "		if (internal->skip) {\n");
		fprintf(f, "			while (index-- > 0 && iter.valid) {\n");
		fprintf(f, "				rna_iterator_listbase_next(&iter);\n");
		fprintf(f, "			}\n");
		fprintf(f, "			found= (index == -1 && iter.valid);\n");
		fprintf(f, "		}\n");
		fprintf(f, "		else {\n");
		fprintf(f, "			while (index-- > 0 && internal->link)\n");
		fprintf(f, "				internal->link= internal->link->next;\n");
		fprintf(f, "			found= (index == -1 && internal->link);\n");
		fprintf(f, "		}\n");
	}

	fprintf(f, "		if (found) *r_ptr = %s_%s_get(&iter);\n", srna->identifier, rna_safe_id(prop->identifier));
	fprintf(f, "	}\n\n");
	fprintf(f, "	%s_%s_end(&iter);\n\n", srna->identifier, rna_safe_id(prop->identifier));

	fprintf(f, "	return found;\n");

#if 0
	rna_print_data_get(f, dp);
	item_type = (cprop->item_type) ? (const char *)cprop->item_type : "UnknownType";

	if (dp->dnalengthname || dp->dnalengthfixed) {
		if (dp->dnalengthname)
			fprintf(f, "\n	rna_array_lookup_int(ptr, &RNA_%s, data->%s, sizeof(data->%s[0]), data->%s, index);\n",
			        item_type, dp->dnaname, dp->dnaname, dp->dnalengthname);
		else
			fprintf(f, "\n	rna_array_lookup_int(ptr, &RNA_%s, data->%s, sizeof(data->%s[0]), %d, index);\n",
			        item_type, dp->dnaname, dp->dnaname, dp->dnalengthfixed);
	}
	else {
		if (dp->dnapointerlevel == 0)
			fprintf(f, "\n	return rna_listbase_lookup_int(ptr, &RNA_%s, &data->%s, index);\n",
			        item_type, dp->dnaname);
		else
			fprintf(f, "\n	return rna_listbase_lookup_int(ptr, &RNA_%s, data->%s, index);\n", item_type, dp->dnaname);
	}
#endif

	fprintf(f, "}\n\n");

	return func;
}

static char *rna_def_property_next_func(FILE *f, StructRNA *srna, PropertyRNA *prop, PropertyDefRNA *dp,
                                        const char *manualfunc)
{
	char *func, *getfunc;

	if (prop->flag & PROP_IDPROPERTY && manualfunc == NULL)
		return NULL;

	if (!manualfunc)
		return NULL;

	func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "next");

	fprintf(f, "void %s(CollectionPropertyIterator *iter)\n", func);
	fprintf(f, "{\n");
	fprintf(f, "	%s(iter);\n", manualfunc);

	getfunc = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "get");

	fprintf(f, "\n	if (iter->valid)\n");
	fprintf(f, "		iter->ptr= %s(iter);\n", getfunc);

	fprintf(f, "}\n\n");

	return func;
}

static char *rna_def_property_end_func(FILE *f, StructRNA *srna, PropertyRNA *prop, PropertyDefRNA *dp,
                                       const char *manualfunc)
{
	char *func;

	if (prop->flag & PROP_IDPROPERTY && manualfunc == NULL)
		return NULL;

	func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "end");

	fprintf(f, "void %s(CollectionPropertyIterator *iter)\n", func);
	fprintf(f, "{\n");
	if (manualfunc)
		fprintf(f, "	%s(iter);\n", manualfunc);
	fprintf(f, "}\n\n");

	return func;
}

static void rna_set_raw_property(PropertyDefRNA *dp, PropertyRNA *prop)
{
	if (dp->dnapointerlevel != 0)
		return;
	if (!dp->dnatype || !dp->dnaname || !dp->dnastructname)
		return;
	
	if (strcmp(dp->dnatype, "char") == 0) {
		prop->rawtype = PROP_RAW_CHAR;
		prop->flag |= PROP_RAW_ACCESS;
	}
	else if (strcmp(dp->dnatype, "short") == 0) {
		prop->rawtype = PROP_RAW_SHORT;
		prop->flag |= PROP_RAW_ACCESS;
	}
	else if (strcmp(dp->dnatype, "int") == 0) {
		prop->rawtype = PROP_RAW_INT;
		prop->flag |= PROP_RAW_ACCESS;
	}
	else if (strcmp(dp->dnatype, "float") == 0) {
		prop->rawtype = PROP_RAW_FLOAT;
		prop->flag |= PROP_RAW_ACCESS;
	}
	else if (strcmp(dp->dnatype, "double") == 0) {
		prop->rawtype = PROP_RAW_DOUBLE;
		prop->flag |= PROP_RAW_ACCESS;
	}
}

static void rna_set_raw_offset(FILE *f, StructRNA *srna, PropertyRNA *prop)
{
	PropertyDefRNA *dp = rna_find_struct_property_def(srna, prop);

	fprintf(f, "\toffsetof(%s, %s), %d", dp->dnastructname, dp->dnaname, prop->rawtype);
}

static void rna_def_property_funcs(FILE *f, StructRNA *srna, PropertyDefRNA *dp)
{
	PropertyRNA *prop;

	prop = dp->prop;

	switch (prop->type) {
		case PROP_BOOLEAN: {
			BoolPropertyRNA *bprop = (BoolPropertyRNA *)prop;

			if (!prop->arraydimension) {
				if (!bprop->get && !bprop->set && !dp->booleanbit)
					rna_set_raw_property(dp, prop);

				bprop->get = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)bprop->get);
				bprop->set = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)bprop->set);
			}
			else {
				bprop->getarray = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)bprop->getarray);
				bprop->setarray = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)bprop->setarray);
			}
			break;
		}
		case PROP_INT: {
			IntPropertyRNA *iprop = (IntPropertyRNA *)prop;

			if (!prop->arraydimension) {
				if (!iprop->get && !iprop->set)
					rna_set_raw_property(dp, prop);

				iprop->get = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)iprop->get);
				iprop->set = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)iprop->set);
			}
			else {
				if (!iprop->getarray && !iprop->setarray)
					rna_set_raw_property(dp, prop);

				iprop->getarray = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)iprop->getarray);
				iprop->setarray = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)iprop->setarray);
			}
			break;
		}
		case PROP_FLOAT: {
			FloatPropertyRNA *fprop = (FloatPropertyRNA *)prop;

			if (!prop->arraydimension) {
				if (!fprop->get && !fprop->set)
					rna_set_raw_property(dp, prop);

				fprop->get = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)fprop->get);
				fprop->set = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)fprop->set);
			}
			else {
				if (!fprop->getarray && !fprop->setarray)
					rna_set_raw_property(dp, prop);

				fprop->getarray = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)fprop->getarray);
				fprop->setarray = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)fprop->setarray);
			}
			break;
		}
		case PROP_ENUM: {
			EnumPropertyRNA *eprop = (EnumPropertyRNA *)prop;

			eprop->get = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)eprop->get);
			eprop->set = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)eprop->set);
			break;
		}
		case PROP_STRING: {
			StringPropertyRNA *sprop = (StringPropertyRNA *)prop;

			sprop->get = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)sprop->get);
			sprop->length = (void *)rna_def_property_length_func(f, srna, prop, dp, (const char *)sprop->length);
			sprop->set = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)sprop->set);
			break;
		}
		case PROP_POINTER: {
			PointerPropertyRNA *pprop = (PointerPropertyRNA *)prop;

			pprop->get = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)pprop->get);
			pprop->set = (void *)rna_def_property_set_func(f, srna, prop, dp, (const char *)pprop->set);
			if (!pprop->type) {
				fprintf(stderr, "%s: %s.%s, pointer must have a struct type.\n",
				        __func__, srna->identifier, prop->identifier);
				DefRNA.error = 1;
			}
			break;
		}
		case PROP_COLLECTION: {
			CollectionPropertyRNA *cprop = (CollectionPropertyRNA *)prop;
			const char *nextfunc = (const char *)cprop->next;

			if (dp->dnatype && strcmp(dp->dnatype, "ListBase") == 0) ;
			else if (dp->dnalengthname || dp->dnalengthfixed)
				cprop->length = (void *)rna_def_property_length_func(f, srna, prop, dp, (const char *)cprop->length);

			/* test if we can allow raw array access, if it is using our standard
			 * array get/next function, we can be sure it is an actual array */
			if (cprop->next && cprop->get)
				if (strcmp((const char *)cprop->next, "rna_iterator_array_next") == 0 &&
				    strcmp((const char *)cprop->get, "rna_iterator_array_get") == 0)
				{
					prop->flag |= PROP_RAW_ARRAY;
				}

			cprop->get = (void *)rna_def_property_get_func(f, srna, prop, dp, (const char *)cprop->get);
			cprop->begin = (void *)rna_def_property_begin_func(f, srna, prop, dp, (const char *)cprop->begin);
			cprop->next = (void *)rna_def_property_next_func(f, srna, prop, dp, (const char *)cprop->next);
			cprop->end = (void *)rna_def_property_end_func(f, srna, prop, dp, (const char *)cprop->end);
			cprop->lookupint = (void *)rna_def_property_lookup_int_func(f, srna, prop, dp,
			                                                            (const char *)cprop->lookupint, nextfunc);

			if (!(prop->flag & PROP_IDPROPERTY)) {
				if (!cprop->begin) {
					fprintf(stderr, "%s: %s.%s, collection must have a begin function.\n",
					        __func__, srna->identifier, prop->identifier);
					DefRNA.error = 1;
				}
				if (!cprop->next) {
					fprintf(stderr, "%s: %s.%s, collection must have a next function.\n",
					        __func__, srna->identifier, prop->identifier);
					DefRNA.error = 1;
				}
				if (!cprop->get) {
					fprintf(stderr, "%s: %s.%s, collection must have a get function.\n",
					        __func__, srna->identifier, prop->identifier);
					DefRNA.error = 1;
				}
			}
			if (!cprop->item_type) {
				fprintf(stderr, "%s: %s.%s, collection must have a struct type.\n",
				        __func__, srna->identifier, prop->identifier);
				DefRNA.error = 1;
			}
			break;
		}
	}
}

static void rna_def_property_funcs_header(FILE *f, StructRNA *srna, PropertyDefRNA *dp)
{
	PropertyRNA *prop;
	char *func;

	prop = dp->prop;

	if (prop->flag & (PROP_IDPROPERTY | PROP_BUILTIN))
		return;

	func = rna_alloc_function_name(srna->identifier, rna_safe_id(prop->identifier), "");

	switch (prop->type) {
		case PROP_BOOLEAN:
		case PROP_INT: {
			if (!prop->arraydimension) {
				fprintf(f, "int %sget(PointerRNA *ptr);\n", func);
				/*fprintf(f, "void %sset(PointerRNA *ptr, int value);\n", func); */
			}
			else if (prop->arraydimension && prop->totarraylength) {
				fprintf(f, "void %sget(PointerRNA *ptr, int values[%u]);\n", func, prop->totarraylength);
				/*fprintf(f, "void %sset(PointerRNA *ptr, const int values[%d]);\n", func, prop->arraylength); */
			}
			else {
				fprintf(f, "void %sget(PointerRNA *ptr, int values[]);\n", func);
				/*fprintf(f, "void %sset(PointerRNA *ptr, const int values[]);\n", func); */
			}
			break;
		}
		case PROP_FLOAT: {
			if (!prop->arraydimension) {
				fprintf(f, "float %sget(PointerRNA *ptr);\n", func);
				/*fprintf(f, "void %sset(PointerRNA *ptr, float value);\n", func); */
			}
			else if (prop->arraydimension && prop->totarraylength) {
				fprintf(f, "void %sget(PointerRNA *ptr, float values[%u]);\n", func, prop->totarraylength);
				/*fprintf(f, "void %sset(PointerRNA *ptr, const float values[%d]);\n", func, prop->arraylength); */
			}
			else {
				fprintf(f, "void %sget(PointerRNA *ptr, float values[]);\n", func);
				/*fprintf(f, "void %sset(PointerRNA *ptr, const float values[]);\n", func); */
			}
			break;
		}
		case PROP_ENUM: {
			EnumPropertyRNA *eprop = (EnumPropertyRNA *)prop;
			int i;

			if (eprop->item) {
				fprintf(f, "enum {\n");

				for (i = 0; i < eprop->totitem; i++)
					if (eprop->item[i].identifier[0])
						fprintf(f, "\t%s_%s_%s = %d,\n", srna->identifier, prop->identifier,
						        eprop->item[i].identifier, eprop->item[i].value);

				fprintf(f, "};\n\n");
			}

			fprintf(f, "int %sget(PointerRNA *ptr);\n", func);
			/*fprintf(f, "void %sset(PointerRNA *ptr, int value);\n", func); */

			break;
		}
		case PROP_STRING: {
			StringPropertyRNA *sprop = (StringPropertyRNA *)prop;

			if (sprop->maxlength) {
				fprintf(f, "#define %s_%s_MAX %d\n\n", srna->identifier, prop->identifier, sprop->maxlength);
			}
			
			fprintf(f, "void %sget(PointerRNA *ptr, char *value);\n", func);
			fprintf(f, "int %slength(PointerRNA *ptr);\n", func);
			/*fprintf(f, "void %sset(PointerRNA *ptr, const char *value);\n", func); */

			break;
		}
		case PROP_POINTER: {
			fprintf(f, "PointerRNA %sget(PointerRNA *ptr);\n", func);
			/*fprintf(f, "void %sset(PointerRNA *ptr, PointerRNA value);\n", func); */
			break;
		}
		case PROP_COLLECTION: {
			fprintf(f, "void %sbegin(CollectionPropertyIterator *iter, PointerRNA *ptr);\n", func);
			fprintf(f, "void %snext(CollectionPropertyIterator *iter);\n", func);
			fprintf(f, "void %send(CollectionPropertyIterator *iter);\n", func);
			/*fprintf(f, "int %slength(PointerRNA *ptr);\n", func); */
			/*fprintf(f, "void %slookup_int(PointerRNA *ptr, int key, StructRNA **type);\n", func); */
			/*fprintf(f, "void %slookup_string(PointerRNA *ptr, const char *key, StructRNA **type);\n", func); */
			break;
		}
	}

	fprintf(f, "\n");
}

static void rna_def_property_funcs_header_cpp(FILE *f, StructRNA *srna, PropertyDefRNA *dp)
{
	PropertyRNA *prop;

	prop = dp->prop;

	if (prop->flag & (PROP_IDPROPERTY | PROP_BUILTIN))
		return;
	
	if (prop->name && prop->description && prop->description[0] != '\0')
		fprintf(f, "\t/* %s: %s */\n", prop->name, prop->description);
	else if (prop->name)
		fprintf(f, "\t/* %s */\n", prop->name);
	else
		fprintf(f, "\t/* */\n");

	switch (prop->type) {
		case PROP_BOOLEAN: {
			if (!prop->arraydimension)
				fprintf(f, "\tinline bool %s(void);", rna_safe_id(prop->identifier));
			else if (prop->totarraylength)
				fprintf(f, "\tinline Array<int, %u> %s(void);", prop->totarraylength, rna_safe_id(prop->identifier));
			break;
		}
		case PROP_INT: {
			if (!prop->arraydimension)
				fprintf(f, "\tinline int %s(void);", rna_safe_id(prop->identifier));
			else if (prop->totarraylength)
				fprintf(f, "\tinline Array<int, %u> %s(void);", prop->totarraylength, rna_safe_id(prop->identifier));
			break;
		}
		case PROP_FLOAT: {
			if (!prop->arraydimension)
				fprintf(f, "\tinline float %s(void);", rna_safe_id(prop->identifier));
			else if (prop->totarraylength)
				fprintf(f, "\tinline Array<float, %u> %s(void);", prop->totarraylength, rna_safe_id(prop->identifier));
			break;
		}
		case PROP_ENUM: {
			EnumPropertyRNA *eprop = (EnumPropertyRNA *)prop;
			int i;

			if (eprop->item) {
				fprintf(f, "\tenum %s_enum {\n", rna_safe_id(prop->identifier));

				for (i = 0; i < eprop->totitem; i++)
					if (eprop->item[i].identifier[0])
						fprintf(f, "\t\t%s_%s = %d,\n", rna_safe_id(prop->identifier), eprop->item[i].identifier,
						        eprop->item[i].value);

				fprintf(f, "\t};\n");
			}

			fprintf(f, "\tinline %s_enum %s(void);", rna_safe_id(prop->identifier), rna_safe_id(prop->identifier));
			break;
		}
		case PROP_STRING: {
			fprintf(f, "\tinline std::string %s(void);", rna_safe_id(prop->identifier));
			break;
		}
		case PROP_POINTER: {
			PointerPropertyRNA *pprop = (PointerPropertyRNA *)dp->prop;

			if (pprop->type)
				fprintf(f, "\tinline %s %s(void);", (const char *)pprop->type, rna_safe_id(prop->identifier));
			else
				fprintf(f, "\tinline %s %s(void);", "UnknownType", rna_safe_id(prop->identifier));
			break;
		}
		case PROP_COLLECTION: {
			CollectionPropertyRNA *cprop = (CollectionPropertyRNA *)dp->prop;

			if (cprop->item_type)
				fprintf(f, "\tCOLLECTION_PROPERTY(%s, %s, %s)", (const char *)cprop->item_type, srna->identifier,
				        rna_safe_id(prop->identifier));
			else
				fprintf(f, "\tCOLLECTION_PROPERTY(%s, %s, %s)", "UnknownType", srna->identifier,
				        rna_safe_id(prop->identifier));
			break;
		}
	}

	fprintf(f, "\n");
}

static void rna_def_property_funcs_impl_cpp(FILE *f, StructRNA *srna, PropertyDefRNA *dp)
{
	PropertyRNA *prop;

	prop = dp->prop;

	if (prop->flag & (PROP_IDPROPERTY | PROP_BUILTIN))
		return;

	switch (prop->type) {
		case PROP_BOOLEAN: {
			if (!prop->arraydimension)
				fprintf(f, "\tBOOLEAN_PROPERTY(%s, %s)", srna->identifier, rna_safe_id(prop->identifier));
			else if (prop->totarraylength)
				fprintf(f, "\tBOOLEAN_ARRAY_PROPERTY(%s, %u, %s)", srna->identifier, prop->totarraylength,
				        rna_safe_id(prop->identifier));
			break;
		}
		case PROP_INT: {
			if (!prop->arraydimension)
				fprintf(f, "\tINT_PROPERTY(%s, %s)", srna->identifier, rna_safe_id(prop->identifier));
			else if (prop->totarraylength)
				fprintf(f, "\tINT_ARRAY_PROPERTY(%s, %u, %s)", srna->identifier, prop->totarraylength,
				        rna_safe_id(prop->identifier));
			break;
		}
		case PROP_FLOAT: {
			if (!prop->arraydimension)
				fprintf(f, "\tFLOAT_PROPERTY(%s, %s)", srna->identifier, rna_safe_id(prop->identifier));
			else if (prop->totarraylength)
				fprintf(f, "\tFLOAT_ARRAY_PROPERTY(%s, %u, %s)", srna->identifier, prop->totarraylength,
				        rna_safe_id(prop->identifier));
			break;
		}
		case PROP_ENUM: {
			fprintf(f, "\tENUM_PROPERTY(%s_enum, %s, %s)", rna_safe_id(prop->identifier), srna->identifier,
			        rna_safe_id(prop->identifier));

			break;
		}
		case PROP_STRING: {
			fprintf(f, "\tSTRING_PROPERTY(%s, %s)", srna->identifier, rna_safe_id(prop->identifier));
			break;
		}
		case PROP_POINTER: {
			PointerPropertyRNA *pprop = (PointerPropertyRNA *)dp->prop;

			if (pprop->type)
				fprintf(f, "\tPOINTER_PROPERTY(%s, %s, %s)", (const char *)pprop->type, srna->identifier,
				        rna_safe_id(prop->identifier));
			else
				fprintf(f, "\tPOINTER_PROPERTY(%s, %s, %s)", "UnknownType", srna->identifier,
				        rna_safe_id(prop->identifier));
			break;
		}
		case PROP_COLLECTION: {
#if 0
			CollectionPropertyRNA *cprop = (CollectionPropertyRNA *)dp->prop;

			if (cprop->type)
				fprintf(f, "\tCOLLECTION_PROPERTY(%s, %s, %s)", (const char *)cprop->type, srna->identifier,
				        prop->identifier);
			else
				fprintf(f, "\tCOLLECTION_PROPERTY(%s, %s, %s)", "UnknownType", srna->identifier, prop->identifier);
#endif
			break;
		}
	}

	fprintf(f, "\n");
}

static void rna_def_function_funcs(FILE *f, StructDefRNA *dsrna, FunctionDefRNA *dfunc)
{
	StructRNA *srna;
	FunctionRNA *func;
	PropertyDefRNA *dparm;
	PropertyType type;
	const char *funcname, *valstr;
	const char *ptrstr;
	const short has_data = (dfunc->cont.properties.first != NULL);
	int flag, pout, cptr, first;

	srna = dsrna->srna;
	func = dfunc->func;

	if (!dfunc->call)
		return;

	funcname = rna_alloc_function_name(srna->identifier, func->identifier, "call");

	/* function definition */
	fprintf(f, "void %s(bContext *C, ReportList *reports, PointerRNA *_ptr, ParameterList *_parms)", funcname);
	fprintf(f, "\n{\n");

	/* variable definitions */
	
	if (func->flag & FUNC_USE_SELF_ID) {
		fprintf(f, "\tstruct ID *_selfid;\n");
	}

	if ((func->flag & FUNC_NO_SELF) == 0) {
		if (dsrna->dnaname) fprintf(f, "\tstruct %s *_self;\n", dsrna->dnaname);
		else fprintf(f, "\tstruct %s *_self;\n", srna->identifier);
	}

	dparm = dfunc->cont.properties.first;
	for (; dparm; dparm = dparm->next) {
		type = dparm->prop->type;
		flag = dparm->prop->flag;
		pout = (flag & PROP_OUTPUT);
		cptr = ((type == PROP_POINTER) && !(flag & PROP_RNAPTR));

		if (dparm->prop == func->c_ret)
			ptrstr = cptr || dparm->prop->arraydimension ? "*" : "";
		/* XXX only arrays and strings are allowed to be dynamic, is this checked anywhere? */
		else if (cptr || (flag & PROP_DYNAMIC))
			ptrstr = pout ? "**" : "*";
		/* fixed size arrays and RNA pointers are pre-allocated on the ParameterList stack, pass a pointer to it */
		else if (type == PROP_POINTER || dparm->prop->arraydimension)
			ptrstr = "*";
		/* PROP_THICK_WRAP strings are pre-allocated on the ParameterList stack,
		 * but type name for string props is already char*, so leave empty */
		else if (type == PROP_STRING && (flag & PROP_THICK_WRAP))
			ptrstr = "";
		else
			ptrstr = pout ? "*" : "";

		/* for dynamic parameters we pass an additional int for the length of the parameter */
		if (flag & PROP_DYNAMIC)
			fprintf(f, "\tint %s%s_len;\n", pout ? "*" : "", dparm->prop->identifier);
		
		fprintf(f, "\t%s%s %s%s;\n", rna_type_struct(dparm->prop), rna_parameter_type_name(dparm->prop),
		        ptrstr, dparm->prop->identifier);
	}

	if (has_data) {
		fprintf(f, "\tchar *_data");
		if (func->c_ret) fprintf(f, ", *_retdata");
		fprintf(f, ";\n");
		fprintf(f, "\t\n");
	}

	/* assign self */
	if (func->flag & FUNC_USE_SELF_ID) {
		fprintf(f, "\t_selfid= (struct ID*)_ptr->id.data;\n");
	}
	
	if ((func->flag & FUNC_NO_SELF) == 0) {
		if (dsrna->dnaname) fprintf(f, "\t_self= (struct %s *)_ptr->data;\n", dsrna->dnaname);
		else fprintf(f, "\t_self= (struct %s *)_ptr->data;\n", srna->identifier);
	}

	if (has_data) {
		fprintf(f, "\t_data= (char *)_parms->data;\n");
	}

	dparm = dfunc->cont.properties.first;
	for (; dparm; dparm = dparm->next) {
		type = dparm->prop->type;
		flag = dparm->prop->flag;
		pout = (flag & PROP_OUTPUT);
		cptr = ((type == PROP_POINTER) && !(flag & PROP_RNAPTR));

		if (dparm->prop == func->c_ret)
			fprintf(f, "\t_retdata= _data;\n");
		else {
			const char *data_str;
			if (cptr || (flag & PROP_DYNAMIC)) {
				ptrstr = "**";
				valstr = "*";
			}
			else if (type == PROP_POINTER || dparm->prop->arraydimension) {
				ptrstr = "*";
				valstr = "";
			}
			else if (type == PROP_STRING && (flag & PROP_THICK_WRAP)) {
				ptrstr = "";
				valstr = "";
			}
			else {
				ptrstr = "*";
				valstr = "*";
			}

			/* this must be kept in sync with RNA_parameter_length_get_data,
			 * we could just call the function directly, but this is faster */
			if (flag & PROP_DYNAMIC) {
				fprintf(f, "\t%s_len= %s((int *)_data);\n", dparm->prop->identifier, pout ? "" : "*");
				data_str = "(&(((char *)_data)[sizeof(void *)]))";
			}
			else {
				data_str = "_data";
			}
			fprintf(f, "\t%s = ", dparm->prop->identifier);

			if (!pout)
				fprintf(f, "%s", valstr);

			fprintf(f, "((%s%s%s)%s);\n", rna_type_struct(dparm->prop), rna_parameter_type_name(dparm->prop),
			        ptrstr, data_str);
		}

		if (dparm->next)
			fprintf(f, "\t_data += %d;\n", rna_parameter_size_alloc(dparm->prop));
	}

	if (dfunc->call) {
		fprintf(f, "\t\n");
		fprintf(f, "\t");
		if (func->c_ret) fprintf(f, "%s = ", func->c_ret->identifier);
		fprintf(f, "%s(", dfunc->call);

		first = 1;

		if (func->flag & FUNC_USE_SELF_ID) {
			fprintf(f, "_selfid");
			first = 0;
		}

		if ((func->flag & FUNC_NO_SELF) == 0) {
			if (!first) fprintf(f, ", ");
			fprintf(f, "_self");
			first = 0;
		}

		if (func->flag & FUNC_USE_MAIN) {
			if (!first) fprintf(f, ", ");
			first = 0;
			fprintf(f, "CTX_data_main(C)"); /* may have direct access later */
		}

		if (func->flag & FUNC_USE_CONTEXT) {
			if (!first) fprintf(f, ", ");
			first = 0;
			fprintf(f, "C");
		}

		if (func->flag & FUNC_USE_REPORTS) {
			if (!first) fprintf(f, ", ");
			first = 0;
			fprintf(f, "reports");
		}

		dparm = dfunc->cont.properties.first;
		for (; dparm; dparm = dparm->next) {
			if (dparm->prop == func->c_ret)
				continue;

			if (!first) fprintf(f, ", ");
			first = 0;

			if (dparm->prop->flag & PROP_DYNAMIC)
				fprintf(f, "%s_len, %s", dparm->prop->identifier, dparm->prop->identifier);
			else
				fprintf(f, "%s", dparm->prop->identifier);
		}

		fprintf(f, ");\n");

		if (func->c_ret) {
			dparm = rna_find_parameter_def(func->c_ret);
			ptrstr = (((dparm->prop->type == PROP_POINTER) && !(dparm->prop->flag & PROP_RNAPTR)) ||
			          (dparm->prop->arraydimension)) ? "*" : "";
			fprintf(f, "\t*((%s%s%s*)_retdata) = %s;\n", rna_type_struct(dparm->prop),
			        rna_parameter_type_name(dparm->prop), ptrstr, func->c_ret->identifier);
		}
	}

	fprintf(f, "}\n\n");

	dfunc->gencall = funcname;
}

static void rna_auto_types(void)
{
	StructDefRNA *ds;
	PropertyDefRNA *dp;

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next) {
		/* DNA name for Screen is patched in 2.5, we do the reverse here .. */
		if (ds->dnaname && strcmp(ds->dnaname, "Screen") == 0)
			ds->dnaname = "bScreen";

		for (dp = ds->cont.properties.first; dp; dp = dp->next) {
			if (dp->dnastructname && strcmp(dp->dnastructname, "Screen") == 0)
				dp->dnastructname = "bScreen";

			if (dp->dnatype) {
				if (dp->prop->type == PROP_POINTER) {
					PointerPropertyRNA *pprop = (PointerPropertyRNA *)dp->prop;
					StructRNA *type;

					if (!pprop->type && !pprop->get)
						pprop->type = (StructRNA *)rna_find_type(dp->dnatype);

					if (pprop->type) {
						type = rna_find_struct((const char *)pprop->type);
						if (type && (type->flag & STRUCT_ID_REFCOUNT))
							pprop->property.flag |= PROP_ID_REFCOUNT;
					}
				}
				else if (dp->prop->type == PROP_COLLECTION) {
					CollectionPropertyRNA *cprop = (CollectionPropertyRNA *)dp->prop;

					if (!cprop->item_type && !cprop->get && strcmp(dp->dnatype, "ListBase") == 0)
						cprop->item_type = (StructRNA *)rna_find_type(dp->dnatype);
				}
			}
		}
	}
}

static void rna_sort(BlenderRNA *brna)
{
	StructDefRNA *ds;
	StructRNA *srna;

	rna_sortlist(&brna->structs, cmp_struct);
	rna_sortlist(&DefRNA.structs, cmp_def_struct);

	for (srna = brna->structs.first; srna; srna = srna->cont.next)
		rna_sortlist(&srna->cont.properties, cmp_property);

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next)
		rna_sortlist(&ds->cont.properties, cmp_def_property);
}

static const char *rna_property_structname(PropertyType type)
{
	switch (type) {
		case PROP_BOOLEAN: return "BoolPropertyRNA";
		case PROP_INT: return "IntPropertyRNA";
		case PROP_FLOAT: return "FloatPropertyRNA";
		case PROP_STRING: return "StringPropertyRNA";
		case PROP_ENUM: return "EnumPropertyRNA";
		case PROP_POINTER: return "PointerPropertyRNA";
		case PROP_COLLECTION: return "CollectionPropertyRNA";
		default: return "UnknownPropertyRNA";
	}
}

static const char *rna_property_subtypename(PropertySubType type)
{
	switch (type) {
		case PROP_NONE: return "PROP_NONE";
		case PROP_FILEPATH: return "PROP_FILEPATH";
		case PROP_FILENAME: return "PROP_FILENAME";
		case PROP_DIRPATH: return "PROP_DIRPATH";
		case PROP_BYTESTRING: return "PROP_BYTESTRING";
		case PROP_TRANSLATE: return "PROP_TRANSLATE";
		case PROP_UNSIGNED: return "PROP_UNSIGNED";
		case PROP_PERCENTAGE: return "PROP_PERCENTAGE";
		case PROP_FACTOR: return "PROP_FACTOR";
		case PROP_ANGLE: return "PROP_ANGLE";
		case PROP_TIME: return "PROP_TIME";
		case PROP_DISTANCE: return "PROP_DISTANCE";
		case PROP_COLOR: return "PROP_COLOR";
		case PROP_TRANSLATION: return "PROP_TRANSLATION";
		case PROP_DIRECTION: return "PROP_DIRECTION";
		case PROP_MATRIX: return "PROP_MATRIX";
		case PROP_EULER: return "PROP_EULER";
		case PROP_QUATERNION: return "PROP_QUATERNION";
		case PROP_AXISANGLE: return "PROP_AXISANGLE";
		case PROP_VELOCITY: return "PROP_VELOCITY";
		case PROP_ACCELERATION: return "PROP_ACCELERATION";
		case PROP_XYZ: return "PROP_XYZ";
		case PROP_COLOR_GAMMA: return "PROP_COLOR_GAMMA";
		case PROP_COORDS: return "PROP_COORDS";
		case PROP_LAYER: return "PROP_LAYER";
		case PROP_LAYER_MEMBER: return "PROP_LAYER_MEMBER";
		default: {
			/* in case we don't have a type preset that includes the subtype */
			if (RNA_SUBTYPE_UNIT(type)) {
				return rna_property_subtypename(type & ~RNA_SUBTYPE_UNIT(type));
			}
			else {
				return "PROP_SUBTYPE_UNKNOWN";
			}
		}
	}
}

static const char *rna_property_subtype_unit(PropertySubType type)
{
	switch (RNA_SUBTYPE_UNIT(type)) {
		case PROP_UNIT_NONE:         return "PROP_UNIT_NONE";
		case PROP_UNIT_LENGTH:       return "PROP_UNIT_LENGTH";
		case PROP_UNIT_AREA:         return "PROP_UNIT_AREA";
		case PROP_UNIT_VOLUME:       return "PROP_UNIT_VOLUME";
		case PROP_UNIT_MASS:         return "PROP_UNIT_MASS";
		case PROP_UNIT_ROTATION:     return "PROP_UNIT_ROTATION";
		case PROP_UNIT_TIME:         return "PROP_UNIT_TIME";
		case PROP_UNIT_VELOCITY:     return "PROP_UNIT_VELOCITY";
		case PROP_UNIT_ACCELERATION: return "PROP_UNIT_ACCELERATION";
		default:                     return "PROP_UNIT_UNKNOWN";
	}
}

static void rna_generate_prototypes(BlenderRNA *brna, FILE *f)
{
	StructRNA *srna;

	for (srna = brna->structs.first; srna; srna = srna->cont.next)
		fprintf(f, "extern StructRNA RNA_%s;\n", srna->identifier);
	fprintf(f, "\n");
}

static void rna_generate_blender(BlenderRNA *brna, FILE *f)
{
	StructRNA *srna;

	fprintf(f, "BlenderRNA BLENDER_RNA = {");

	srna = brna->structs.first;
	if (srna) fprintf(f, "{&RNA_%s, ", srna->identifier);
	else fprintf(f, "{NULL, ");

	srna = brna->structs.last;
	if (srna) fprintf(f, "&RNA_%s}", srna->identifier);
	else fprintf(f, "NULL}");

	fprintf(f, "};\n\n");
}

static void rna_generate_property_prototypes(BlenderRNA *brna, StructRNA *srna, FILE *f)
{
	PropertyRNA *prop;
	StructRNA *base;

	base = srna->base;
	while (base) {
		fprintf(f, "\n");
		for (prop = base->cont.properties.first; prop; prop = prop->next)
			fprintf(f, "%s%s rna_%s_%s;\n", "extern ", rna_property_structname(prop->type),
			        base->identifier, prop->identifier);
		base = base->base;
	}

	if (srna->cont.properties.first)
		fprintf(f, "\n");

	for (prop = srna->cont.properties.first; prop; prop = prop->next)
		fprintf(f, "%s%s rna_%s_%s;\n", (prop->flag & PROP_EXPORT) ? "" : "", rna_property_structname(prop->type),
		        srna->identifier, prop->identifier);
	fprintf(f, "\n");
}

static void rna_generate_parameter_prototypes(BlenderRNA *brna, StructRNA *srna, FunctionRNA *func, FILE *f)
{
	PropertyRNA *parm;

	for (parm = func->cont.properties.first; parm; parm = parm->next)
		fprintf(f, "%s%s rna_%s_%s_%s;\n", "extern ", rna_property_structname(parm->type), srna->identifier,
		        func->identifier, parm->identifier);

	if (func->cont.properties.first)
		fprintf(f, "\n");
}

static void rna_generate_function_prototypes(BlenderRNA *brna, StructRNA *srna, FILE *f)
{
	FunctionRNA *func;
	StructRNA *base;

	base = srna->base;
	while (base) {
		for (func = base->functions.first; func; func = func->cont.next) {
			fprintf(f, "%s%s rna_%s_%s_func;\n", "extern ", "FunctionRNA", base->identifier, func->identifier);
			rna_generate_parameter_prototypes(brna, base, func, f);
		}

		if (base->functions.first)
			fprintf(f, "\n");

		base = base->base;
	}

	for (func = srna->functions.first; func; func = func->cont.next) {
		fprintf(f, "%s%s rna_%s_%s_func;\n", "extern ", "FunctionRNA", srna->identifier, func->identifier);
		rna_generate_parameter_prototypes(brna, srna, func, f);
	}

	if (srna->functions.first)
		fprintf(f, "\n");
}

static void rna_generate_static_parameter_prototypes(BlenderRNA *brna, StructRNA *srna, FunctionDefRNA *dfunc, FILE *f)
{
	FunctionRNA *func;
	PropertyDefRNA *dparm;
	StructDefRNA *dsrna;
	PropertyType type;
	int flag, pout, cptr, first;
	const char *ptrstr;

	dsrna = rna_find_struct_def(srna);
	func = dfunc->func;

	/* return type */
	for (dparm = dfunc->cont.properties.first; dparm; dparm = dparm->next) {
		if (dparm->prop == func->c_ret) {
			if (dparm->prop->arraydimension)
				fprintf(f, "XXX no array return types yet");  /* XXX not supported */
			else if (dparm->prop->type == PROP_POINTER && !(dparm->prop->flag & PROP_RNAPTR))
				fprintf(f, "%s%s *", rna_type_struct(dparm->prop), rna_parameter_type_name(dparm->prop));
			else
				fprintf(f, "%s%s ", rna_type_struct(dparm->prop), rna_parameter_type_name(dparm->prop));

			break;
		}
	}

	/* void if nothing to return */
	if (!dparm)
		fprintf(f, "void ");

	/* function name */
	fprintf(f, "%s(", dfunc->call);

	first = 1;

	/* self, context and reports parameters */
	if (func->flag & FUNC_USE_SELF_ID) {
		fprintf(f, "struct ID *_selfid");
		first = 0;
	}
	
	if ((func->flag & FUNC_NO_SELF) == 0) {
		if (!first) fprintf(f, ", ");
		if (dsrna->dnaname) fprintf(f, "struct %s *_self", dsrna->dnaname);
		else fprintf(f, "struct %s *_self", srna->identifier);
		first = 0;
	}

	if (func->flag & FUNC_USE_MAIN) {
		if (!first) fprintf(f, ", ");
		first = 0;
		fprintf(f, "Main *bmain");
	}

	if (func->flag & FUNC_USE_CONTEXT) {
		if (!first) fprintf(f, ", ");
		first = 0;
		fprintf(f, "bContext *C");
	}

	if (func->flag & FUNC_USE_REPORTS) {
		if (!first) fprintf(f, ", ");
		first = 0;
		fprintf(f, "ReportList *reports");
	}

	/* defined parameters */
	for (dparm = dfunc->cont.properties.first; dparm; dparm = dparm->next) {
		type = dparm->prop->type;
		flag = dparm->prop->flag;
		pout = (flag & PROP_OUTPUT);
		cptr = ((type == PROP_POINTER) && !(flag & PROP_RNAPTR));

		if (dparm->prop == func->c_ret)
			continue;

		if (cptr || (flag & PROP_DYNAMIC))
			ptrstr = pout ? "**" : "*";
		else if (type == PROP_POINTER || dparm->prop->arraydimension)
			ptrstr = "*";
		else if (type == PROP_STRING && (flag & PROP_THICK_WRAP))
			ptrstr = "";
		else
			ptrstr = pout ? "*" : "";

		if (!first) fprintf(f, ", ");
		first = 0;

		if (flag & PROP_DYNAMIC)
			fprintf(f, "int %s%s_len, ", pout ? "*" : "", dparm->prop->identifier);

		if (!(flag & PROP_DYNAMIC) && dparm->prop->arraydimension)
			fprintf(f, "%s%s %s[%u]", rna_type_struct(dparm->prop), rna_parameter_type_name(dparm->prop),
			        dparm->prop->identifier, dparm->prop->totarraylength);
		else
			fprintf(f, "%s%s %s%s", rna_type_struct(dparm->prop), rna_parameter_type_name(dparm->prop),
			        ptrstr, dparm->prop->identifier);

	}

	fprintf(f, ");\n");
}

static void rna_generate_static_function_prototypes(BlenderRNA *brna, StructRNA *srna, FILE *f)
{
	FunctionRNA *func;
	FunctionDefRNA *dfunc;
	int first = 1;

	for (func = srna->functions.first; func; func = func->cont.next) {
		dfunc = rna_find_function_def(func);

		if (dfunc->call) {
			if (first) {
				fprintf(f, "/* Repeated prototypes to detect errors */\n\n");
				first = 0;
			}

			rna_generate_static_parameter_prototypes(brna, srna, dfunc, f);
		}
	}

	fprintf(f, "\n");
}

static void rna_generate_property(FILE *f, StructRNA *srna, const char *nest, PropertyRNA *prop)
{
	char *strnest = "", *errnest = "";
	int len, freenest = 0;
	
	if (nest != NULL) {
		len = strlen(nest);

		strnest = MEM_mallocN(sizeof(char) * (len + 2), "rna_generate_property -> strnest");
		errnest = MEM_mallocN(sizeof(char) * (len + 2), "rna_generate_property -> errnest");

		strcpy(strnest, "_"); strcat(strnest, nest);
		strcpy(errnest, "."); strcat(errnest, nest);

		freenest = 1;
	}

	switch (prop->type) {
		case PROP_ENUM: {
			EnumPropertyRNA *eprop = (EnumPropertyRNA *)prop;
			int i, defaultfound = 0, totflag = 0;

			if (eprop->item) {
				fprintf(f, "static EnumPropertyItem rna_%s%s_%s_items[%d] = {\n\t", srna->identifier,
				        strnest, prop->identifier, eprop->totitem + 1);

				for (i = 0; i < eprop->totitem; i++) {
					fprintf(f, "{%d, ", eprop->item[i].value);
					rna_print_c_string(f, eprop->item[i].identifier); fprintf(f, ", ");
					fprintf(f, "%d, ", eprop->item[i].icon);
					rna_print_c_string(f, eprop->item[i].name); fprintf(f, ", ");
					rna_print_c_string(f, eprop->item[i].description); fprintf(f, "},\n\t");

					if (eprop->item[i].identifier[0]) {
						if (prop->flag & PROP_ENUM_FLAG) {
							totflag |= eprop->item[i].value;
						}
						else {
							if (eprop->defaultvalue == eprop->item[i].value) {
								defaultfound = 1;
							}
						}
					}
				}

				fprintf(f, "{0, NULL, 0, NULL, NULL}\n};\n\n");

				if (prop->flag & PROP_ENUM_FLAG) {
					if (eprop->defaultvalue & ~totflag) {
						fprintf(stderr, "%s: %s%s.%s, enum default includes unused bits (%d).\n",
						        __func__, srna->identifier, errnest, prop->identifier,
						        eprop->defaultvalue & ~totflag);
						DefRNA.error = 1;
					}
				}
				else {
					if (!defaultfound) {
						fprintf(stderr, "%s: %s%s.%s, enum default is not in items.\n",
						        __func__, srna->identifier, errnest, prop->identifier);
						DefRNA.error = 1;
					}
				}
			}
			else {
				fprintf(stderr, "%s: %s%s.%s, enum must have items defined.\n",
				        __func__, srna->identifier, errnest, prop->identifier);
				DefRNA.error = 1;
			}
			break;
		}
		case PROP_BOOLEAN: {
			BoolPropertyRNA *bprop = (BoolPropertyRNA *)prop;
			unsigned int i;

			if (prop->arraydimension && prop->totarraylength) {
				fprintf(f, "static int rna_%s%s_%s_default[%u] = {\n\t", srna->identifier, strnest,
				        prop->identifier, prop->totarraylength);

				for (i = 0; i < prop->totarraylength; i++) {
					if (bprop->defaultarray)
						fprintf(f, "%d", bprop->defaultarray[i]);
					else
						fprintf(f, "%d", bprop->defaultvalue);
					if (i != prop->totarraylength - 1)
						fprintf(f, ",\n\t");
				}

				fprintf(f, "\n};\n\n");
			}
			break;
		}
		case PROP_INT: {
			IntPropertyRNA *iprop = (IntPropertyRNA *)prop;
			unsigned int i;

			if (prop->arraydimension && prop->totarraylength) {
				fprintf(f, "static int rna_%s%s_%s_default[%u] = {\n\t", srna->identifier, strnest,
				        prop->identifier, prop->totarraylength);

				for (i = 0; i < prop->totarraylength; i++) {
					if (iprop->defaultarray)
						fprintf(f, "%d", iprop->defaultarray[i]);
					else
						fprintf(f, "%d", iprop->defaultvalue);
					if (i != prop->totarraylength - 1)
						fprintf(f, ",\n\t");
				}

				fprintf(f, "\n};\n\n");
			}
			break;
		}
		case PROP_FLOAT: {
			FloatPropertyRNA *fprop = (FloatPropertyRNA *)prop;
			unsigned int i;

			if (prop->arraydimension && prop->totarraylength) {
				fprintf(f, "static float rna_%s%s_%s_default[%u] = {\n\t", srna->identifier, strnest,
				        prop->identifier, prop->totarraylength);

				for (i = 0; i < prop->totarraylength; i++) {
					if (fprop->defaultarray)
						rna_float_print(f, fprop->defaultarray[i]);
					else
						rna_float_print(f, fprop->defaultvalue);
					if (i != prop->totarraylength - 1)
						fprintf(f, ",\n\t");
				}

				fprintf(f, "\n};\n\n");
			}
			break;
		}
		default:
			break;
	}

	fprintf(f, "%s%s rna_%s%s_%s = {\n",
	        (prop->flag & PROP_EXPORT) ? "" : "",
	        rna_property_structname(prop->type),
	        srna->identifier, strnest, prop->identifier);

	if (prop->next) fprintf(f, "\t{(PropertyRNA*)&rna_%s%s_%s, ", srna->identifier, strnest, prop->next->identifier);
	else fprintf(f, "\t{NULL, ");
	if (prop->prev) fprintf(f, "(PropertyRNA*)&rna_%s%s_%s,\n", srna->identifier, strnest, prop->prev->identifier);
	else fprintf(f, "NULL,\n");
	fprintf(f, "\t%d, ", prop->magic);
	rna_print_c_string(f, prop->identifier);
	fprintf(f, ", %d, ", prop->flag);
	rna_print_c_string(f, prop->name); fprintf(f, ",\n\t");
	rna_print_c_string(f, prop->description); fprintf(f, ",\n\t");
	fprintf(f, "%d,\n", prop->icon);
	rna_print_c_string(f, prop->translation_context); fprintf(f, ",\n\t");
	fprintf(f, "\t%s, %s|%s, %s, %u, {%u, %u, %u}, %u,\n",
	        RNA_property_typename(prop->type),
	        rna_property_subtypename(prop->subtype),
	        rna_property_subtype_unit(prop->subtype),
	        rna_function_string(prop->getlength),
	        prop->arraydimension,
	        prop->arraylength[0],
	        prop->arraylength[1],
	        prop->arraylength[2],
	        prop->totarraylength);
	fprintf(f, "\t%s%s, %d, %s, %s,\n",
	        (prop->flag & PROP_CONTEXT_UPDATE) ? "(UpdateFunc)" : "",
	        rna_function_string(prop->update),
	        prop->noteflag,
	        rna_function_string(prop->editable),
	        rna_function_string(prop->itemeditable));

	if (prop->flag & PROP_RAW_ACCESS) rna_set_raw_offset(f, srna, prop);
	else fprintf(f, "\t0, -1");

	/* our own type - collections/arrays only */
	if (prop->srna) fprintf(f, ", &RNA_%s", (const char *)prop->srna);
	else fprintf(f, ", NULL");

	fprintf(f, "},\n");

	switch (prop->type) {
		case PROP_BOOLEAN: {
			BoolPropertyRNA *bprop = (BoolPropertyRNA *)prop;
			fprintf(f, "\t%s, %s, %s, %s, %d, ",
			        rna_function_string(bprop->get),
			        rna_function_string(bprop->set),
			        rna_function_string(bprop->getarray),
			        rna_function_string(bprop->setarray),
			        bprop->defaultvalue);
			if (prop->arraydimension && prop->totarraylength)
				fprintf(f, "rna_%s%s_%s_default\n", srna->identifier, strnest, prop->identifier);
			else fprintf(f, "NULL\n");
			break;
		}
		case PROP_INT: {
			IntPropertyRNA *iprop = (IntPropertyRNA *)prop;
			fprintf(f, "\t%s, %s, %s, %s, %s,\n\t",
			        rna_function_string(iprop->get),
			        rna_function_string(iprop->set),
			        rna_function_string(iprop->getarray),
			        rna_function_string(iprop->setarray),
			        rna_function_string(iprop->range));
			rna_int_print(f, iprop->softmin); fprintf(f, ", ");
			rna_int_print(f, iprop->softmax); fprintf(f, ", ");
			rna_int_print(f, iprop->hardmin); fprintf(f, ", ");
			rna_int_print(f, iprop->hardmax); fprintf(f, ", ");
			rna_int_print(f, iprop->step); fprintf(f, ", ");
			rna_int_print(f, iprop->defaultvalue); fprintf(f, ", ");
			if (prop->arraydimension && prop->totarraylength)
				fprintf(f, "rna_%s%s_%s_default\n", srna->identifier, strnest, prop->identifier);
			else fprintf(f, "NULL\n");
			break;
		}
		case PROP_FLOAT: {
			FloatPropertyRNA *fprop = (FloatPropertyRNA *)prop;
			fprintf(f, "\t%s, %s, %s, %s, %s, ",
			        rna_function_string(fprop->get),
			        rna_function_string(fprop->set),
			        rna_function_string(fprop->getarray),
			        rna_function_string(fprop->setarray),
			        rna_function_string(fprop->range));
			rna_float_print(f, fprop->softmin); fprintf(f, ", ");
			rna_float_print(f, fprop->softmax); fprintf(f, ", ");
			rna_float_print(f, fprop->hardmin); fprintf(f, ", ");
			rna_float_print(f, fprop->hardmax); fprintf(f, ", ");
			rna_float_print(f, fprop->step); fprintf(f, ", ");
			rna_int_print(f, (int)fprop->precision); fprintf(f, ", ");
			rna_float_print(f, fprop->defaultvalue); fprintf(f, ", ");
			if (prop->arraydimension && prop->totarraylength)
				fprintf(f, "rna_%s%s_%s_default\n", srna->identifier, strnest, prop->identifier);
			else fprintf(f, "NULL\n");
			break;
		}
		case PROP_STRING: {
			StringPropertyRNA *sprop = (StringPropertyRNA *)prop;
			fprintf(f, "\t%s, %s, %s, %d, ",
			        rna_function_string(sprop->get),
			        rna_function_string(sprop->length),
			        rna_function_string(sprop->set),
			        sprop->maxlength);
			rna_print_c_string(f, sprop->defaultvalue); fprintf(f, "\n");
			break;
		}
		case PROP_ENUM: {
			EnumPropertyRNA *eprop = (EnumPropertyRNA *)prop;
			fprintf(f, "\t%s, %s, %s, NULL, ",
			        rna_function_string(eprop->get),
			        rna_function_string(eprop->set),
			        rna_function_string(eprop->itemf));
			if (eprop->item)
				fprintf(f, "rna_%s%s_%s_items, ", srna->identifier, strnest, prop->identifier);
			else
				fprintf(f, "NULL, ");
			fprintf(f, "%d, %d\n", eprop->totitem, eprop->defaultvalue);
			break;
		}
		case PROP_POINTER: {
			PointerPropertyRNA *pprop = (PointerPropertyRNA *)prop;
			fprintf(f, "\t%s, %s, %s, %s,", rna_function_string(pprop->get),
			        rna_function_string(pprop->set),
			        rna_function_string(pprop->typef),
			        rna_function_string(pprop->poll));
			if (pprop->type) fprintf(f, "&RNA_%s\n", (const char *)pprop->type);
			else fprintf(f, "NULL\n");
			break;
		}
		case PROP_COLLECTION: {
			CollectionPropertyRNA *cprop = (CollectionPropertyRNA *)prop;
			fprintf(f, "\t%s, %s, %s, %s, %s, %s, %s, %s, ",
			        rna_function_string(cprop->begin),
			        rna_function_string(cprop->next),
			        rna_function_string(cprop->end),
			        rna_function_string(cprop->get),
			        rna_function_string(cprop->length),
			        rna_function_string(cprop->lookupint),
			        rna_function_string(cprop->lookupstring),
			        rna_function_string(cprop->assignint));
			if (cprop->item_type) fprintf(f, "&RNA_%s\n", (const char *)cprop->item_type);
			else fprintf(f, "NULL\n");
			break;
		}
	}

	fprintf(f, "};\n\n");

	if (freenest) {
		MEM_freeN(strnest);
		MEM_freeN(errnest);
	}
}

static void rna_generate_struct(BlenderRNA *brna, StructRNA *srna, FILE *f)
{
	FunctionRNA *func;
	FunctionDefRNA *dfunc;
	PropertyRNA *prop, *parm;
	StructRNA *base;

	fprintf(f, "/* %s */\n", srna->name);

	for (prop = srna->cont.properties.first; prop; prop = prop->next)
		rna_generate_property(f, srna, NULL, prop);

	for (func = srna->functions.first; func; func = func->cont.next) {
		for (parm = func->cont.properties.first; parm; parm = parm->next)
			rna_generate_property(f, srna, func->identifier, parm);

		fprintf(f, "%s%s rna_%s_%s_func = {\n", "", "FunctionRNA", srna->identifier, func->identifier);

		if (func->cont.next)
			fprintf(f, "\t{(FunctionRNA*)&rna_%s_%s_func, ", srna->identifier,
			        ((FunctionRNA *)func->cont.next)->identifier);
		else
			fprintf(f, "\t{NULL, ");
		if (func->cont.prev)
			fprintf(f, "(FunctionRNA*)&rna_%s_%s_func,\n", srna->identifier,
			        ((FunctionRNA *)func->cont.prev)->identifier);
		else
			fprintf(f, "NULL,\n");

		fprintf(f, "\tNULL,\n");

		parm = func->cont.properties.first;
		if (parm) fprintf(f, "\t{(PropertyRNA*)&rna_%s_%s_%s, ", srna->identifier, func->identifier, parm->identifier);
		else fprintf(f, "\t{NULL, ");

		parm = func->cont.properties.last;
		if (parm) fprintf(f, "(PropertyRNA*)&rna_%s_%s_%s}},\n", srna->identifier, func->identifier, parm->identifier);
		else fprintf(f, "NULL}},\n");

		fprintf(f, "\t");
		rna_print_c_string(f, func->identifier);
		fprintf(f, ", %d, ", func->flag);
		rna_print_c_string(f, func->description); fprintf(f, ",\n");

		dfunc = rna_find_function_def(func);
		if (dfunc->gencall) fprintf(f, "\t%s,\n", dfunc->gencall);
		else fprintf(f, "\tNULL,\n");

		if (func->c_ret)
			fprintf(f, "\t(PropertyRNA*)&rna_%s_%s_%s\n", srna->identifier, func->identifier, func->c_ret->identifier);
		else
			fprintf(f, "\tNULL\n");

		fprintf(f, "};\n");
		fprintf(f, "\n");
	}

	fprintf(f, "StructRNA RNA_%s = {\n", srna->identifier);

	if (srna->cont.next) fprintf(f, "\t{(ContainerRNA *)&RNA_%s, ", ((StructRNA *)srna->cont.next)->identifier);
	else fprintf(f, "\t{NULL, ");
	if (srna->cont.prev) fprintf(f, "(ContainerRNA *)&RNA_%s,\n", ((StructRNA *)srna->cont.prev)->identifier);
	else fprintf(f, "NULL,\n");

	fprintf(f, "\tNULL,\n");

	prop = srna->cont.properties.first;
	if (prop) fprintf(f, "\t{(PropertyRNA*)&rna_%s_%s, ", srna->identifier, prop->identifier);
	else fprintf(f, "\t{NULL, ");

	prop = srna->cont.properties.last;
	if (prop) fprintf(f, "(PropertyRNA*)&rna_%s_%s}},\n", srna->identifier, prop->identifier);
	else fprintf(f, "NULL}},\n");
	fprintf(f, "\t");
	rna_print_c_string(f, srna->identifier);
	fprintf(f, "\t, NULL,NULL\n"); /* PyType - Cant initialize here */
	fprintf(f, ", %d, ", srna->flag);
	rna_print_c_string(f, srna->name);
	fprintf(f, ", ");
	rna_print_c_string(f, srna->description);
	fprintf(f, ", ");
	rna_print_c_string(f, srna->translation_context);
	fprintf(f, ",\n\t%d,\n", srna->icon);

	prop = srna->nameproperty;
	if (prop) {
		base = srna;
		while (base->base && base->base->nameproperty == prop)
			base = base->base;

		fprintf(f, "\t(PropertyRNA*)&rna_%s_%s, ", base->identifier, prop->identifier);
	}
	else fprintf(f, "\tNULL, ");

	prop = srna->iteratorproperty;
	base = srna;
	while (base->base && base->base->iteratorproperty == prop)
		base = base->base;
	fprintf(f, "(PropertyRNA*)&rna_%s_rna_properties,\n", base->identifier);

	if (srna->base) fprintf(f, "\t&RNA_%s,\n", srna->base->identifier);
	else fprintf(f, "\tNULL,\n");

	if (srna->nested) fprintf(f, "\t&RNA_%s,\n", srna->nested->identifier);
	else fprintf(f, "\tNULL,\n");

	fprintf(f, "\t%s,\n", rna_function_string(srna->refine));
	fprintf(f, "\t%s,\n", rna_function_string(srna->path));
	fprintf(f, "\t%s,\n", rna_function_string(srna->reg));
	fprintf(f, "\t%s,\n", rna_function_string(srna->unreg));
	fprintf(f, "\t%s,\n", rna_function_string(srna->instance));
	fprintf(f, "\t%s,\n", rna_function_string(srna->idproperties));

	if (srna->reg && !srna->refine) {
		fprintf(stderr, "%s: %s has a register function, must also have refine function.\n",
		        __func__, srna->identifier);
		DefRNA.error = 1;
	}

	func = srna->functions.first;
	if (func) fprintf(f, "\t{(FunctionRNA*)&rna_%s_%s_func, ", srna->identifier, func->identifier);
	else fprintf(f, "\t{NULL, ");

	func = srna->functions.last;
	if (func) fprintf(f, "(FunctionRNA*)&rna_%s_%s_func}\n", srna->identifier, func->identifier);
	else fprintf(f, "NULL}\n");

	fprintf(f, "};\n");

	fprintf(f, "\n");
}

typedef struct RNAProcessItem {
	const char *filename;
	const char *api_filename;
	void (*define)(BlenderRNA *brna);
} RNAProcessItem;

static RNAProcessItem PROCESS_ITEMS[] = {
	{"rna_rna.c", NULL, RNA_def_rna},
	{"rna_ID.c", NULL, RNA_def_ID},
	{"rna_texture.c", "rna_texture_api.c", RNA_def_texture},
	{"rna_action.c", "rna_action_api.c", RNA_def_action},
	{"rna_animation.c", "rna_animation_api.c", RNA_def_animation},
	{"rna_animviz.c", NULL, RNA_def_animviz},
	{"rna_actuator.c", "rna_actuator_api.c", RNA_def_actuator},
	{"rna_armature.c", "rna_armature_api.c", RNA_def_armature},
	{"rna_boid.c", NULL, RNA_def_boid},
	{"rna_brush.c", NULL, RNA_def_brush},
	{"rna_camera.c", "rna_camera_api.c", RNA_def_camera},
	{"rna_cloth.c", NULL, RNA_def_cloth},
	{"rna_color.c", NULL, RNA_def_color},
	{"rna_constraint.c", NULL, RNA_def_constraint},
	{"rna_context.c", NULL, RNA_def_context},
	{"rna_controller.c", "rna_controller_api.c", RNA_def_controller},
	{"rna_curve.c", NULL, RNA_def_curve},
	{"rna_dynamicpaint.c", NULL, RNA_def_dynamic_paint},
	{"rna_fcurve.c", "rna_fcurve_api.c", RNA_def_fcurve},
	{"rna_fluidsim.c", NULL, RNA_def_fluidsim},
	{"rna_gpencil.c", NULL, RNA_def_gpencil},
	{"rna_group.c", NULL, RNA_def_group},
	{"rna_image.c", "rna_image_api.c", RNA_def_image},
	{"rna_key.c", NULL, RNA_def_key},
	{"rna_lamp.c", NULL, RNA_def_lamp},
	{"rna_lattice.c", NULL, RNA_def_lattice},
	{"rna_main.c", "rna_main_api.c", RNA_def_main},
	{"rna_material.c", "rna_material_api.c", RNA_def_material},
	{"rna_mesh.c", "rna_mesh_api.c", RNA_def_mesh},
	{"rna_meta.c", NULL, RNA_def_meta},
	{"rna_modifier.c", NULL, RNA_def_modifier},
	{"rna_nla.c", NULL, RNA_def_nla},
	{"rna_nodetree.c", NULL, RNA_def_nodetree},
	{"rna_object.c", "rna_object_api.c", RNA_def_object},
	{"rna_object_force.c", NULL, RNA_def_object_force},
	{"rna_packedfile.c", NULL, RNA_def_packedfile},
	{"rna_particle.c", NULL, RNA_def_particle},
	{"rna_pose.c", "rna_pose_api.c", RNA_def_pose},
	{"rna_property.c", NULL, RNA_def_gameproperty},
	{"rna_render.c", NULL, RNA_def_render},
	{"rna_scene.c", "rna_scene_api.c", RNA_def_scene},
	{"rna_screen.c", NULL, RNA_def_screen},
	{"rna_sculpt_paint.c", NULL, RNA_def_sculpt_paint},
	{"rna_sensor.c", "rna_sensor_api.c", RNA_def_sensor},
	{"rna_sequencer.c", "rna_sequencer_api.c", RNA_def_sequencer},
	{"rna_smoke.c", NULL, RNA_def_smoke},
	{"rna_space.c", NULL, RNA_def_space},
	{"rna_speaker.c", NULL, RNA_def_speaker},
	{"rna_test.c", NULL, RNA_def_test},
	{"rna_text.c", "rna_text_api.c", RNA_def_text},
	{"rna_timeline.c", NULL, RNA_def_timeline_marker},
	{"rna_sound.c", NULL, RNA_def_sound},
	{"rna_ui.c", "rna_ui_api.c", RNA_def_ui},
	{"rna_userdef.c", NULL, RNA_def_userdef},
	{"rna_vfont.c", NULL, RNA_def_vfont},
	{"rna_wm.c", "rna_wm_api.c", RNA_def_wm},
	{"rna_world.c", NULL, RNA_def_world},
	{"rna_movieclip.c", NULL, RNA_def_movieclip},
	{"rna_tracking.c", NULL, RNA_def_tracking},
	{NULL, NULL}
};

static void rna_generate(BlenderRNA *brna, FILE *f, const char *filename, const char *api_filename)
{
	StructDefRNA *ds;
	PropertyDefRNA *dp;
	FunctionDefRNA *dfunc;
	
	fprintf(f,
	        "\n"
	        "/* Automatically generated struct definitions for the Data API.\n"
	        " * Do not edit manually, changes will be overwritten.           */\n\n"
	        "#define RNA_RUNTIME\n\n");

	fprintf(f, "#include <float.h>\n");
	fprintf(f, "#include <stdio.h>\n");
	fprintf(f, "#include <limits.h>\n");
	fprintf(f, "#include <string.h>\n\n");
	fprintf(f, "#include <stddef.h>\n\n");

	fprintf(f, "#include \"DNA_ID.h\"\n");
	fprintf(f, "#include \"DNA_scene_types.h\"\n");

	fprintf(f, "#include \"BLI_blenlib.h\"\n\n");
	fprintf(f, "#include \"BLI_utildefines.h\"\n\n");

	fprintf(f, "#include \"BKE_context.h\"\n");
	fprintf(f, "#include \"BKE_library.h\"\n");
	fprintf(f, "#include \"BKE_main.h\"\n");
	fprintf(f, "#include \"BKE_report.h\"\n");

	fprintf(f, "#include \"RNA_define.h\"\n");
	fprintf(f, "#include \"RNA_types.h\"\n");
	fprintf(f, "#include \"rna_internal.h\"\n\n");

	rna_generate_prototypes(brna, f);

	fprintf(f, "#include \"%s\"\n", filename);
	if (api_filename)
		fprintf(f, "#include \"%s\"\n", api_filename);
	fprintf(f, "\n");

	fprintf(f, "/* Autogenerated Functions */\n\n");

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next) {
		if (!filename || ds->filename == filename) {
			rna_generate_property_prototypes(brna, ds->srna, f);
			rna_generate_function_prototypes(brna, ds->srna, f);
		}
	}

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next)
		if (!filename || ds->filename == filename)
			for (dp = ds->cont.properties.first; dp; dp = dp->next)
				rna_def_property_funcs(f, ds->srna, dp);

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next) {
		if (!filename || ds->filename == filename) {
			for (dfunc = ds->functions.first; dfunc; dfunc = dfunc->cont.next)
				rna_def_function_funcs(f, ds, dfunc);

			rna_generate_static_function_prototypes(brna, ds->srna, f);
		}
	}

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next)
		if (!filename || ds->filename == filename)
			rna_generate_struct(brna, ds->srna, f);

	if (strcmp(filename, "rna_ID.c") == 0) {
		/* this is ugly, but we cannot have c files compiled for both
		 * makesrna and blender with some build systems at the moment */
		fprintf(f, "#include \"rna_define.c\"\n\n");

		rna_generate_blender(brna, f);
	}
}

static void rna_generate_header(BlenderRNA *brna, FILE *f)
{
	StructDefRNA *ds;
	PropertyDefRNA *dp;
	StructRNA *srna;

	fprintf(f, "\n#ifndef __RNA_BLENDER_H__\n");
	fprintf(f, "#define __RNA_BLENDER_H__\n\n");

	fprintf(f,
	        "/* Automatically generated function declarations for the Data API.\n"
	        " * Do not edit manually, changes will be overwritten.              */\n\n");

	fprintf(f, "#include \"RNA_types.h\"\n\n");

	fprintf(f, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n\n");

	fprintf(f, "#define FOREACH_BEGIN(property, sptr, itemptr) \\\n");
	fprintf(f, "	{ \\\n");
	fprintf(f, "		CollectionPropertyIterator rna_macro_iter; \\\n");
	fprintf(f, "		for (property##_begin(&rna_macro_iter, sptr); rna_macro_iter.valid; "
	        "property##_next(&rna_macro_iter)) { \\\n");
	fprintf(f, "			itemptr= rna_macro_iter.ptr;\n\n");

	fprintf(f, "#define FOREACH_END(property) \\\n");
	fprintf(f, "		} \\\n");
	fprintf(f, "		property##_end(&rna_macro_iter); \\\n");
	fprintf(f, "	}\n\n");

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next) {
		srna = ds->srna;

		fprintf(f, "/**************** %s ****************/\n\n", srna->name);

		while (srna) {
			fprintf(f, "extern StructRNA RNA_%s;\n", srna->identifier);
			srna = srna->base;
		}
		fprintf(f, "\n");

		for (dp = ds->cont.properties.first; dp; dp = dp->next)
			rna_def_property_funcs_header(f, ds->srna, dp);
	}

	fprintf(f, "#ifdef __cplusplus\n}\n#endif\n\n");

	fprintf(f, "#endif /* __RNA_BLENDER_H__ */\n\n");
}

static const char *cpp_classes = ""
"\n"
"#include <string>\n"
"#include <string.h> /* for memcpy */\n"
"\n"
"namespace BL {\n"
"\n"
"#define BOOLEAN_PROPERTY(sname, identifier) \\\n"
"	inline bool sname::identifier(void) { return sname##_##identifier##_get(&ptr)? true: false; }\n"
"\n"
"#define BOOLEAN_ARRAY_PROPERTY(sname, size, identifier) \\\n"
"	inline Array<int,size> sname::identifier(void) \\\n"
"		{ Array<int, size> ar; sname##_##identifier##_get(&ptr, ar.data); return ar; }\n"
"\n"
"#define INT_PROPERTY(sname, identifier) \\\n"
"	inline int sname::identifier(void) { return sname##_##identifier##_get(&ptr); }\n"
"\n"
"#define INT_ARRAY_PROPERTY(sname, size, identifier) \\\n"
"	inline Array<int,size> sname::identifier(void) \\\n"
"		{ Array<int, size> ar; sname##_##identifier##_get(&ptr, ar.data); return ar; }\n"
"\n"
"#define FLOAT_PROPERTY(sname, identifier) \\\n"
"	inline float sname::identifier(void) { return sname##_##identifier##_get(&ptr); }\n"
"\n"
"#define FLOAT_ARRAY_PROPERTY(sname, size, identifier) \\\n"
"	inline Array<float,size> sname::identifier(void) \\\n"
"		{ Array<float, size> ar; sname##_##identifier##_get(&ptr, ar.data); return ar; }\n"
"\n"
"#define ENUM_PROPERTY(type, sname, identifier) \\\n"
"	inline sname::type sname::identifier(void) { return (type)sname##_##identifier##_get(&ptr); }\n"
"\n"
"#define STRING_PROPERTY(sname, identifier) \\\n"
"	inline std::string sname::identifier(void) { \\\n"
"		int len= sname##_##identifier##_length(&ptr); \\\n"
"		std::string str; str.resize(len); \\\n"
"		sname##_##identifier##_get(&ptr, &str[0]); return str; } \\\n"
"\n"
"#define POINTER_PROPERTY(type, sname, identifier) \\\n"
"	inline type sname::identifier(void) { return type(sname##_##identifier##_get(&ptr)); }\n"
"\n"
"#define COLLECTION_PROPERTY(type, sname, identifier) \\\n"
"	typedef CollectionIterator<type, sname##_##identifier##_begin, \\\n"
"		sname##_##identifier##_next, sname##_##identifier##_end> identifier##_iterator; \\\n"
"	Collection<sname, type, sname##_##identifier##_begin, \\\n"
"		sname##_##identifier##_next, sname##_##identifier##_end> identifier;\n"
"\n"
"class Pointer {\n"
"public:\n"
"	Pointer(const PointerRNA& p) : ptr(p) { }\n"
"	operator const PointerRNA&() { return ptr; }\n"
"	bool is_a(StructRNA *type) { return RNA_struct_is_a(ptr.type, type)? true: false; }\n"
"	operator void*() { return ptr.data; }\n"
"	operator bool() { return ptr.data != NULL; }\n"
"\n"
"	PointerRNA ptr;\n"
"};\n"
"\n"
"\n"
"template<typename T, int Tsize>\n"
"class Array {\n"
"public:\n"
"	T data[Tsize];\n"
"\n"
"   Array() {}\n"
"	Array(const Array<T, Tsize>& other) { memcpy(data, other.data, sizeof(T)*Tsize); }\n"
"	const Array<T, Tsize>& operator=(const Array<T, Tsize>& other) { memcpy(data, other.data, sizeof(T)*Tsize); "
"return *this; }\n"
"\n"
"	operator T*() { return data; }\n"
"};\n"
"\n"
"typedef void (*TBeginFunc)(CollectionPropertyIterator *iter, PointerRNA *ptr);\n"
"typedef void (*TNextFunc)(CollectionPropertyIterator *iter);\n"
"typedef void (*TEndFunc)(CollectionPropertyIterator *iter);\n"
"\n"
"template<typename T, TBeginFunc Tbegin, TNextFunc Tnext, TEndFunc Tend>\n"
"class CollectionIterator {\n"
"public:\n"
"	CollectionIterator() : t(iter.ptr), init(false) { iter.valid= false; }\n"
"	~CollectionIterator(void) { if (init) Tend(&iter); };\n"
"\n"
"	operator bool(void)\n"
"	{ return iter.valid != 0; }\n"
"	const CollectionIterator<T, Tbegin, Tnext, Tend>& operator++() { Tnext(&iter); t = T(iter.ptr); return *this; }\n"
"\n"
"	T& operator*(void) { return t; }\n"
"	T* operator->(void) { return &t; }\n"
"	bool operator==(const CollectionIterator<T, Tbegin, Tnext, Tend>& other) "
"{ return iter.valid == other.iter.valid; }\n"
"	bool operator!=(const CollectionIterator<T, Tbegin, Tnext, Tend>& other) "
"{ return iter.valid != other.iter.valid; }\n"
"\n"
"	void begin(const Pointer& ptr)\n"
"	{ if (init) Tend(&iter); Tbegin(&iter, (PointerRNA*)&ptr.ptr); t = T(iter.ptr); init = true; }\n"
"\n"
"private:\n"
"	const CollectionIterator<T, Tbegin, Tnext, Tend>& operator="
"(const CollectionIterator<T, Tbegin, Tnext, Tend>& copy) {}\n"
""
"	CollectionPropertyIterator iter;\n"
"	T t;\n"
"	bool init;\n"
"};\n"
"\n"
"template<typename Tp, typename T, TBeginFunc Tbegin, TNextFunc Tnext, TEndFunc Tend>\n"
"class Collection {\n"
"public:\n"
"	Collection(const PointerRNA& p) : ptr(p) {}\n"
"\n"
"	void begin(CollectionIterator<T, Tbegin, Tnext, Tend>& iter)\n"
"	{ iter.begin(ptr); }\n"
"	CollectionIterator<T, Tbegin, Tnext, Tend> end()\n"
"	{ return CollectionIterator<T, Tbegin, Tnext, Tend>(); } /* test */ \n"
"\n"
"private:\n"
"	PointerRNA ptr;\n"
"};\n"
"\n";

static void rna_generate_header_cpp(BlenderRNA *brna, FILE *f)
{
	StructDefRNA *ds;
	PropertyDefRNA *dp;
	StructRNA *srna;

	fprintf(f, "\n#ifndef __RNA_BLENDER_CPP_H__\n");
	fprintf(f, "#define __RNA_BLENDER_CPP_H__\n\n");

	fprintf(f,
	        "/* Automatically generated classes for the Data API.\n"
	        " * Do not edit manually, changes will be overwritten. */\n\n");
	
	fprintf(f, "#include \"RNA_blender.h\"\n");
	fprintf(f, "#include \"RNA_types.h\"\n");
	fprintf(f, "#include \"RNA_access.h\"\n");

	fprintf(f, "%s", cpp_classes);

	fprintf(f, "/**************** Declarations ****************/\n\n");

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next)
		fprintf(f, "class %s;\n", ds->srna->identifier);
	fprintf(f, "\n");

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next) {
		srna = ds->srna;

		fprintf(f, "/**************** %s ****************/\n\n", srna->name);

		fprintf(f, "class %s : public %s {\n", srna->identifier, (srna->base) ? srna->base->identifier : "Pointer");
		fprintf(f, "public:\n");
		fprintf(f, "\t%s(const PointerRNA& ptr) :\n\t\t%s(ptr)", srna->identifier,
		        (srna->base) ? srna->base->identifier : "Pointer");
		for (dp = ds->cont.properties.first; dp; dp = dp->next)
			if (!(dp->prop->flag & (PROP_IDPROPERTY | PROP_BUILTIN)))
				if (dp->prop->type == PROP_COLLECTION)
					fprintf(f, ",\n\t\t%s(ptr)", dp->prop->identifier);
		fprintf(f, "\n\t\t{}\n\n");

		for (dp = ds->cont.properties.first; dp; dp = dp->next)
			rna_def_property_funcs_header_cpp(f, ds->srna, dp);
		fprintf(f, "};\n\n");
	}


	fprintf(f, "/**************** Implementation ****************/\n");

	for (ds = DefRNA.structs.first; ds; ds = ds->cont.next) {
		for (dp = ds->cont.properties.first; dp; dp = dp->next)
			rna_def_property_funcs_impl_cpp(f, ds->srna, dp);

		fprintf(f, "\n");
	}

	fprintf(f, "}\n\n#endif /* __RNA_BLENDER_CPP_H__ */\n\n");
}

static void make_bad_file(const char *file, int line)
{
	FILE *fp = fopen(file, "w");
	fprintf(fp, "#error \"Error! can't make correct RNA file from %s:%d, STUPID!\"\n", __FILE__, line);
	fclose(fp);
}

static int rna_preprocess(const char *outfile)
{
	BlenderRNA *brna;
	StructDefRNA *ds;
	FILE *file;
	char deffile[4096];
	int i, status;
	const char *deps[3]; /* expand as needed */

	/* define rna */
	brna = RNA_create();

	for (i = 0; PROCESS_ITEMS[i].filename; i++) {
		if (PROCESS_ITEMS[i].define) {
			PROCESS_ITEMS[i].define(brna);

			for (ds = DefRNA.structs.first; ds; ds = ds->cont.next)
				if (!ds->filename)
					ds->filename = PROCESS_ITEMS[i].filename;
		}
	}

	rna_auto_types();


	/* create RNA_blender_cpp.h */
	strcpy(deffile, outfile);
	strcat(deffile, "RNA_blender_cpp.h" TMP_EXT);

	status = (DefRNA.error != 0);

	if (status) {
		make_bad_file(deffile, __LINE__);
	}
	else {
		file = fopen(deffile, "w");

		if (!file) {
			fprintf(stderr, "Unable to open file: %s\n", deffile);
			status = 1;
		}
		else {
			rna_generate_header_cpp(brna, file);
			fclose(file);
			status = (DefRNA.error != 0);
		}
	}

	replace_if_different(deffile, NULL);

	rna_sort(brna);

	/* create rna_gen_*.c files */
	for (i = 0; PROCESS_ITEMS[i].filename; i++) {
		strcpy(deffile, outfile);
		strcat(deffile, PROCESS_ITEMS[i].filename);
		deffile[strlen(deffile) - 2] = '\0';
		strcat(deffile, "_gen.c" TMP_EXT);

		if (status) {
			make_bad_file(deffile, __LINE__);
		}
		else {
			file = fopen(deffile, "w");

			if (!file) {
				fprintf(stderr, "Unable to open file: %s\n", deffile);
				status = 1;
			}
			else {
				rna_generate(brna, file, PROCESS_ITEMS[i].filename, PROCESS_ITEMS[i].api_filename);
				fclose(file);
				status = (DefRNA.error != 0);
			}
		}

		/* avoid unneeded rebuilds */
		deps[0] = PROCESS_ITEMS[i].filename;
		deps[1] = PROCESS_ITEMS[i].api_filename;
		deps[2] = NULL;

		replace_if_different(deffile, deps);
	}

	/* create RNA_blender.h */
	strcpy(deffile, outfile);
	strcat(deffile, "RNA_blender.h" TMP_EXT);

	if (status) {
		make_bad_file(deffile, __LINE__);
	}
	else {
		file = fopen(deffile, "w");

		if (!file) {
			fprintf(stderr, "Unable to open file: %s\n", deffile);
			status = 1;
		}
		else {
			rna_generate_header(brna, file);
			fclose(file);
			status = (DefRNA.error != 0);
		}
	}

	replace_if_different(deffile, NULL);

	/* free RNA */
	RNA_define_free(brna);
	RNA_free(brna);

	return status;
}

static void mem_error_cb(const char *errorStr)
{
	fprintf(stderr, "%s", errorStr);
	fflush(stderr);
}

int main(int argc, char **argv)
{
	int totblock, return_status = 0;

	if (argc < 2) {
		fprintf(stderr, "Usage: %s outdirectory/\n", argv[0]);
		return_status = 1;
	}
	else {
		fprintf(stderr, "Running makesrna\n");
		makesrna_path = argv[0];
		return_status = rna_preprocess(argv[1]);
	}

	totblock = MEM_get_memory_blocks_in_use();
	if (totblock != 0) {
		fprintf(stderr, "Error Totblock: %d\n", totblock);
		MEM_set_error_callback(mem_error_cb);
		MEM_printmemlist();
	}

	return return_status;
}