OpenEuphoria

1. ASCII/numeric print

• Posted by Robert Craig <rds at EMAIL.MSN.COM> Apr 17, 1998
• 692 views

Art Adamson suggested making a form of ? (print) that
would display numbers the same way that the trace screen
does - with ASCII characters shown in color.

include graphics.e

procedure cprint(object x)
-- display an object with colored ASCII characters
     if atom(x) then
          printf(1, "%g", x)
          if integer(x) and x >= 32 and x <= 127 then
               text_color(BRIGHT_MAGENTA)
               if x = 32 then
                    puts(1, 254) -- block character
               else
                    puts(1, x)
               end if
               text_color(WHITE)
          end if
     else
           -- sequence
           puts(1, "{")
           for i = 1 to length(x) do
               cprint(x[i])
               if i < length(x) then
                    puts(1, ',')
               end if
           end for
           puts(1, "}")
      end if
end procedure

cprint(65)
puts(1, '\n')

cprint(999.9)
puts(1, '\n')

cprint({1, 32, 42, 52 ,97, 155.5})
puts(1, '\n')

cprint("Euphoria")
puts(1, '\n')


You could add a procedure that calls cprint(),
then does puts(1, '\n'). You can't just add it to cprint() itself
because of it's recursive nature.

Regards,
     Rob Craig
     Rapid Deployment Software