OpenEuphoria

Re: Transforming a Sequence from a Pattern

• Posted by unkmar Nov 11, 2008
• 986 views

integer crash 
crash = 1000 
function ckmerger(sequence fields, sequence ftypes) 
	sequence ff 
	sequence result 
 
	crash -= 1 
	if (crash = 0) then 
		print(1, "ERROR: function is corrupt.\n") 
		abort(0) 
	end if 
	if length(fields) then 
		for i = 1 to length(fields) do 
			ff = ckmerger(fields[i], ftypes) 
			fields[i] = ff[1] 
			ftypes = ff[2] 
		end for 
		result = {fields, ftypes} 
	else 
		result = {ftypes[1], ftypes[2..length(ftypes)]} 
	end if 
 
	crash += 1 
	return result 
end function 
 
sequence fields, ftypes 
 
fields = {{{},{}},{},{}} 
ftypes = ",.E+" 
 
ftypes = ckmerger(fields, ftypes) 
ftypes = ftypes[1] 
 
include misc.e 
pretty_print(1, ftypes, {}) 
puts(1, "\n") 

Unkmar tested. Someone else should approve. :P