Media Share 9/MEDIASHARE_09.ISO/progmisc/euphor10.zip/EPRINT.EX

Text File | 1993-06-24 | 4KB | 181 lines

        ------------------------------
        -- Print a Euphoria program --
        ------------------------------
-- This works with HP PCL printers.
-- You can change control codes (bold, italics etc) for other printers.
-- If you have a color printer you can choose colors,
-- otherwise you will simply get keywords in bold, comments in italics.

constant TRUE = 1, FALSE = 0

--- some parameters you can adjust for your printer ----------------
constant NCOLUMNS = 2              -- 1 or 2
constant CONDENSED = TRUE          -- TRUE or FALSE
constant PAGE_LENGTH = 59*NCOLUMNS -- (upper bound) 118 for condensed
constant COLOR_PRINTER = FALSE      -- TRUE (HP550C) or FALSE
constant SYNTAX = TRUE              -- TRUE to highlight syntax
                    -- FALSE to print other kinds of text files
--------------------------------------------------------------------

constant ESC = 27

constant hp550c = {"2", "8", "1", "4", "10", "12", "1", "1"}

integer printer

procedure bold_on()
    puts(printer, ESC & "(s3B")
end procedure

procedure bold_off()
    puts(printer, ESC & "(s0B")
end procedure

procedure italics_on()
    puts(printer, ESC & "(s1S")
end procedure

procedure italics_off()
    puts(printer, ESC & "(s0S")
end procedure

procedure second_column()
    puts(printer, ESC & "&a80C")
end procedure

procedure form_feed()
    puts(printer, 12)
end procedure

procedure reset()
    puts(printer, ESC & 'E')   -- reset
end procedure

procedure color()
    puts(printer, ESC & "*r-4U")  -- CYMK
end procedure

procedure small()
    puts(printer, ESC & "(s20H")    -- Print Pitch (width)
    puts(printer, ESC & "(s8V")     -- Point Size (height)
    puts(printer, ESC & "&l4C")     -- vertical motion
end procedure

-- symbols needed by syncolor.e:
global integer SCREEN
global constant BLANK_LINE = ""
global constant NORMAL_COLOR = 8,
        COMMENT_COLOR = 4,
        KEYWORD_COLOR = 1,
        BUILTIN_COLOR = 5,
        STRING_COLOR = 6
global constant bracket_color = {NORMAL_COLOR}

global procedure text_color(integer color)
-- this overrides the graphics.e procedure for screen color
-- that is used by syncolor.e
    sequence color_code

    if not SYNTAX then
    return
    end if

    if COLOR_PRINTER then
    color_code = hp550c[color]
    puts(printer, ESC & "*v" & color_code & "S")
    else
    -- normal mono printer
    if color = KEYWORD_COLOR then
        italics_off()
        bold_on()
    elsif color = COMMENT_COLOR then
        bold_off()
        italics_on()
    else
        italics_off()
        bold_off()
    end if
    end if
end procedure

include syncolor.e

procedure try_colors()
-- display colors on hp550c
    for i = '0' to '6' do
    for j = '0' to '9' do
        puts(printer, ESC & "*v" & i & j & "S")
        printf(printer, "%s:", {i&j})
        puts(printer, "Testing Colors ...\n")
    end for
    end for
end procedure

procedure eprint()
    integer efile
    sequence command
    object line
    sequence buffer
    integer base_line

    command = command_line()
    if length(command) != 3 then
    puts(1, "usage: eprint filename.e\n")
    return
    end if
    efile = open(command[3], "r")
    if efile = -1 then
    puts(1, "couldn't open " & command[3] & '\n')
    return
    end if
    printer = open("PRN", "w")
    if printer = -1 then
    puts(1, "Can't open printer\n")
    return
    end if
    SCREEN = printer -- SCREEN is needed by syncolor
    init_class()
    reset()
    if COLOR_PRINTER then
    color()
    end if
    if CONDENSED then
    small()
    end if
    -- try_colors()
    -- return

    -- read in whole file
    buffer = {}
    while 1 do
    line = gets(efile)
    if atom(line) then
        exit
    end if
    if line[length(line)] = '\n' then
        line = line[1..length(line)-1]
    end if
    buffer = append(buffer, line)
    end while
    base_line = 1
    while base_line <= length(buffer) do
    for i = base_line to base_line + PAGE_LENGTH - 1 do
        if i <= length(buffer) then
        DisplayColorLine(buffer[i], TRUE)
        if NCOLUMNS = 2 and i + PAGE_LENGTH <= length(buffer) then
            second_column()
            DisplayColorLine(buffer[i + PAGE_LENGTH], TRUE)
        end if
        puts(printer, '\n')
        end if
    end for
    base_line = base_line + PAGE_LENGTH * NCOLUMNS
    form_feed()
    end while
    close(efile)
    close(printer)
end procedure

eprint()