define_type('codeControl', -priority='replace',
	-description='Generic utility object for formatting code indenting in a structured manner.'
);
	local:'baseIndent' = 0;
	local:'curIndent'  = 0;
	local:'spacer'     = '\t';
	
	define_tag('onCreate', -optional='indent', -type='integer',
		-description='Constructor accepts an integer parameter, which specifies the minimum
		indent level. All indent string will be at least baseLevel * spacer long'
	);
		if(local_defined('indent'));
			self->'baseIndent' = #indent;
		/if;
	/define_tag;
	
	define_tag('incrementIndent', -optional='indent', -type='integer',
		-description='Adds #indent (or 1 if not specified) to the curIndent property'
	);
		local:'addTo' = (local_defined('indent') ? #indent | 1);
		self->'curIndent' += #addTo;
	/define_tag;
	
	define_tag('decrementIndent', -optional='indent', -type='integer',
		-description='Subtracts #indent (or 1 if not specified) from the curIndent 
		property unless self->curIndent <= 0'
	);
		local:'subTo' = (local_defined('indent') ? #indent | 1);
		local:'newIndent' = (self->'curIndent') - integer(#subTo);
		self->'curIndent' = (#newIndent > 0 ? #newIndent | 0);
	/define_tag;
	
	define_tag('setIndent', -required='indent', -type='integer',
		-description='Sets the indent level to the integer specified'
	);
		self->'curIndent' = math_abs(#indent);
	/define_tag;

	define_tag('addIndent',
		-description='calls incrementIndent and codeIndent in succession, which increments the 
		indent level and returns a formatted string'
	);
		self->incrementIndent;
		return(self->codeIndent);
	/define_tag;
	
	define_tag('subIndent',
		-description='calls decrementIndent and codeIndent in succession, which decrements the 
		indent level and returns a formatted string'
	);
		self->decrementIndent;
		return(self->codeIndent);
	/define_tag;
	
	define_tag('codeIndent', -optional='indent', -type='integer', -returnType='string',
		-description='returns a string which is (baseLevel + curIndent) * spacer. Optional 
		indent parameter sets the curIndent level.'
	);
		if(local_defined('indent'));
			self->'curIndent' = math_abs(#indent);
		/if;
		
		local:'ret' = '\r';
		local:'indAmt' = (self->'curIndent') + (self->'baseIndent');
		#ret += ((self->'spacer') * #indAmt);
		return(#ret);
	/define_tag;
	
/define_type;