
<<file: GFtoPress.mod>>
<<Last changed by Pavel on September 17, 1985 4:54:11 pm PDT>>
(configuration g_fto_press (basic_time, commander, convert, f_s, i_o, rope, safe_storage, sir_press, unsafe_storage);
definitions pascal_basic; external;
definitions pascal_wizard_files; external;
program pascal_basic_impl; external;
program pascal_wizard_files_impl; external;
program no_file; trash;
definitions g_fto_press_private(pascal_basic*, pascal_wizard_files*); forward;
definitions g_fto_press_vars1(pascal_basic*, pascal_wizard_files*, g_fto_press_private*); forward;
definitions g_fto_press_vars2(pascal_basic*, pascal_wizard_files*, g_fto_press_private*); forward;
definitions g_fto_press_vars3(pascal_basic*, pascal_wizard_files*, g_fto_press_private*); forward;
program g_fto_press_externals_impl.hint$(pascal_wizard_files); forward;
program g_fto_press_vars_impl1(pascal_basic, pascal_wizard_files*, g_fto_press_private*, g_fto_press_vars1*); forward;
program g_fto_press_vars_impl2(pascal_basic, pascal_wizard_files*, g_fto_press_private*, g_fto_press_vars2*); forward;
program g_fto_press_vars_impl3(pascal_basic, pascal_wizard_files*, g_fto_press_private*, g_fto_press_vars3*); forward;
program g_fto_press_impl1(pascal_basic, pascal_wizard_files, g_fto_press_private, g_fto_press_vars1, g_fto_press_vars2, 
g_fto_press_vars3); forward;
program g_fto_press_impl2(pascal_basic, pascal_wizard_files, g_fto_press_private, g_fto_press_vars1, g_fto_press_vars2, 
g_fto_press_vars3); forward;
program g_fto_press_impl3(pascal_basic, pascal_wizard_files*, g_fto_press_private, g_fto_press_vars1*, g_fto_press_vars2, 
g_fto_press_vars3); forward;
program g_fto_press_impl4(pascal_basic, pascal_wizard_files, g_fto_press_private, g_fto_press_vars1, g_fto_press_vars2, 
g_fto_press_vars3); forward;
program g_fto_press_impl5(pascal_basic, pascal_wizard_files, g_fto_press_private, g_fto_press_vars1, g_fto_press_vars2, 
g_fto_press_vars3); forward;
begin
g_fto_press_vars1, g_fto_press_vars_impl1 := xord, xchr, buffer, term_in, line_length, buf_ptr, lf, lh, bc, ec, nw, nh, nd, ni, nl, 
nk, ne, np, gf_file, tfm_file, cur_loc, name_of_file, b0, b1, b2, b3, font_info, fmem_ptr, font_check, font_size, font_dsize, 
font_bc, font_ec, font_family, font_face, font_press_code, command_line_already_gotten;
g_fto_press_vars2, g_fto_press_vars_impl2 := char_base, width_base, height_base, depth_base, italic_base, lig_kern_base, kern_base, 
exten_base, param_base, str_pool, str_start, pool_ptr, str_ptr, init_str_ptr, l, cur_gf, cur_string, label_type, cur_name, 
cur_area, cur_ext, area_delimiter, ext_delimiter, job_name, interaction, fonts_not_loaded, font_name, font_area, font_at, 
total_pages, box_width, box_height, box_depth, c, d, two_to_the, rule_slant, slant_n, slant_unit, slant_reported, xl, xr, yt, yb, 
xx, yy, left, mid, right, dl_tie, ov_flag, info, root, q_save, max_node, x_left, x_right, y_top, y_bot;
g_fto_press_vars3, g_fto_press_vars_impl3 := $other_vars$;
g_fto_press_private, no_file := $other_types$, $other_consts$;
g_fto_press_private, g_fto_press_externals_impl := press_open_file, press_get_font_code, press_set_font, press_set_char, 
press_push_pos, press_pop_pos, press_goto, press_move_x, press_move_y, press_set_rule, press_write_page, press_close_file, 
tty_reset, tty_rewrite, byte_file_reset, get_command_line;
g_fto_press_private, g_fto_press_impl1 := initialize, jump_out, input_ln, open_gf_file, open_tfm_file, read_tfm_word, get_byte, 
get_two_bytes, get_three_bytes, signed_quad, make_string, read_font_info, first_string, interpret_xxx, get_yyy, skip_nop, 
begin_name, more_name, end_name, pack_file_name, start_gf, load_fonts;
g_fto_press_private, g_fto_press_impl2 := dvi_scaled, hbox, slant_complaint, get_avail, tree_ins, overlap, even_overlap, 
odd_overlap, nearest_dot;
g_fto_press_private, g_fto_press_impl3 := n_l_dot, even_n_l_dot, odd_n_l_dot, convert, top_coords, bot_coords, right_coords, 
left_coords, do_a_label, do_b_label, do_dot;
g_fto_press_private, g_fto_press_impl4 := do_pixels;
g_fto_press_private, g_fto_press_impl5 := $rest$;
end) := g_fto_press.pas;
INVENTFILENAMES FALSE;
MAKEFILE compile_g_fto_press;
TARGET cedar;