OpenEuphoria

Re: ? command

• Posted by =?iso-8859-2?B?qWtvZGE=?= <tone.skoda at SIOL.NET> Apr 28, 2000
• 363 views

repaired print_format2 function that i send yesterday

function print_format2( object o )

    -- returns object formatted for wPrint
    sequence s

    if atom( o ) then
        -- number
  if o >= ' ' and o <= '}' then
   return sprintf( "'%s'", o )
  else
   return sprintf( "%d", o )
  end if
    else
        -- list
        s = "{"
        for i = 1 to length( o ) do
            s = s & print_format2( o[i] )
            if i < length( o ) then
                s = s & ","
            end if
        end for
        s = s & "}"
        return s
    end if

end function