OpenEuphoria

Euphoria float and format ints

• Posted by "Euman" <euman at bellsouth.net> Jan 26, 2004
• 430 views

This is a multi-part message in MIME format.

------=_NextPart_000_0007_01C3E411.9B50B300
	charset="iso-8859-1"

Hello all,

I was wondering if this might be of some use in the finance sector.

I call it a Pretty-Print for floats, atoms and integers that is user adjustable.

Attached format.txt file

Special thanks to Tommy Carlier (get well soon) and Allen V. Robnett
for their input and code adjustments.

Euman
------=_NextPart_000_0007_01C3E411.9B50B300
Content-Type: text/plain;
	name="format.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
	filename="format.txt"

global function trm_formatInteger(atom number, integer separator, 
integer plus_sign)
	integer piece, sign
	sequence str, format_string
	
	number = floor(number)
	if number > -1000 and number < 1000 then
		if number >= 0 and plus_sign then
			return '+' & sprintf("%d", number)
		else
			return sprintf("%d", number)
		end if
	end if
	
	format_string = separator & "%03d"
	
	sign = (number >= 0) * 2 - 1
	number *= sign
	str = {}
	while number >= 1000 do
		piece = remainder(number, 1000)
		number = floor(number / 1000)
		str = sprintf(format_string, piece) & str
	end while
	str = sprintf("%d", number) & str
	
	if sign = -1 then return '-' & str
	elsif plus_sign then return '+' & str
	else return str
	end if
end function

global function trm_formatAtom(atom number, integer separator, integer 
real_separator, integer decimals, integer plus_sign)
    sequence str
    atom multiplier
    if decimals <= 0 then
        return trm_formatInteger(number + 0.5, separator, plus_sign)
    else str = trm_formatInteger(number + (number<0)*(floor(number)!=number), 
               separator, plus_sign)  --<<==
    end if
    
    if number < 0 then
        number = -number end if
    multiplier = power(10, decimals)
    number = remainder(floor(number * multiplier + 0.5), multiplier)
return str & real_separator & sprintf("%0" & sprintf("%d", decimals) & "d",
    number)
end function

puts(1, trm_formatAtom(1234567890.666665, ',', '.', 5, 0) & '\n')
puts(1, trm_formatAtom(1234567890.666663, ',', '.', 5, 0) & '\n')

puts(1, trm_formatAtom(-1234567890.666665, ',', '.', 5, 0) & '\n')
puts(1, trm_formatAtom(-1234567890.666663, ',', '.', 5, 0) & '\n')

puts(1, trm_formatAtom(-1234567890.055, ',', '.', 2, 0) & '\n')
puts(1, trm_formatAtom(1234567890.004, ',', '.', 2, 0) & '\n')
puts(1, trm_formatAtom(-1234567890.045, ',', '.', 2, 0) & '\n')

if getc( 0 ) then end if
------=_NextPart_000_0007_01C3E411.9B50B300--