<?lassoscript

/* 
================================================================================
Range Custom Tag
for use with Lasso Professional 7

Returns an array of strings, taking several parameters such as starting- and 
end-point, increment, and text prefix.

Usage:
[pk_range: 
	-from=<integer>, 
	-to=<integer>, 
	-by=<integer>, 
	-prefix=<string>,
	-suffix=<string>, 
	-pad]
"-pad" will insert zeroes in front of numbers with fewer digits than the "-to"
value.

Examples:
[pk_range: 1, 10] -> 
	array: (1), (2), (3), (4), (5), (6), (7), (8), (9), (10)

[pk_range: -from=8, -to=24, -by=4, -prefix='my_', -suffix='_test', -pad] ->
	 array: (my_08_test), (my_12_test), (my_16_test), (my_20_test), (my_24_test)

To Do:
Allow for an "-Alpha" parameters which should return alphabetical ranges, such
as "aaa, aba, aca" etc.

Written by Pier Kuipers, Dublin
August 2004

pier@visualid.com
http://www.pierkuipers.com/lasso.html
================================================================================
*/

	if: !(lasso_tagexists:'pk_range');
	
		define_tag:'pk_range',
			-required='From',
			-required='To',
			-optional='By',
			-optional='Prefix',
			-optional='Suffix',
			-optional='Pad';
	
			Local:'Fromhere' = (integer: #From);
			Local:'Tohere' = (integer: #To);
	
			if:!(local_defined:'By');
				local:'By' = '1';
			Else:(local:'By' == '');
			
			/if;
			
			Local:'Byhere' = (integer: #By);
	
			if:!(local_defined:'Prefix');
				local:'Prefix' = '';
			/if;
			
			if:!(local_defined:'Suffix');
				local:'Suffix' = '';
			/if;
			
			local:'iterations'=((#Tohere - #Fromhere) / #byhere);
			
			Local:'myRange' = Array;
	
			If:(#iterations > 1000);
			
				#myRange -> insert:'limit exceeded';
				
			Else;
	
				Loop: -From=#Fromhere, -To=#Tohere, -By=#Byhere;
			
					if:!(local_defined:'Pad');
						local:'Padnumber' = '';
					Else;
						local:'Padnumber' = string;
						local:'padcount'=((string:#Tohere) -> split:'' -> size);
						local:'thisloop'=((string:loop_count) -> split:'' -> size);
						If:(#padcount > #thisloop);
						loop:(#padcount - #thisloop);
							#Padnumber += '0';
						/loop;
						/If;
					/if;
					
					#myRange -> Insert: (#Prefix + #Padnumber + (Loop_Count) + #Suffix);
			
				/Loop;
				
			/If;
		
			return: #myRange;
	
		/define_tag;
		
	/If;

?>