/* DO NOT EDIT THIS FILE.  It contains C->PostScript communication
   definitions that were automatically generated from fmt.cps */

#define GET_METRICS_TAG 1
#define NO_FONT_TAG 2
#define FOUND_FONT_TAG 3
#define GET_RECT_TAG 4
#define PAGE_SIZE_TAG 5
#define MEASURE_STAMP_TAG 6
#define USE_LINKED_PILE_TAG 7
#define USE_PARENT_PILE_TAG 8
#define do_initialize(P__0)  pprintf(PostScript, _CPS_do_initialize, 768, P__0)
static char _CPS_do_initialize[] = {
110,101,119,112,114,111, 99,101,115,115,103,114,111,117,112,166, 83,166,187, 47,
 70,111,110,116,166,144,180, 47, 70,111,110,116, 78, 97,109,101,166,144,180, 47,
 70,111,110,116, 83,105,122,101,166,144,180, 47, 84,105,101,115, 82,111,111,116,
 68,105,114,101, 99,116,111,114,121, 37,115,145, 47, 97,112,112,101,110,100,180,
 47, 70,105,108,101, 80,111,115,166,144,180, 47, 76, 97,115,116, 84, 73, 68,166,
144,180, 47, 76, 97,115,116, 83,101,108,101, 99,116,105,111,110, 84,105,109,101,
128,  0,180, 47, 80,105,108,101,166,144,180, 47, 80,105,108,101, 68,105, 99,116,
128,100,166, 62,180, 47, 83,116, 97,109,112, 68,105, 99,116,129,  1, 44,166, 62,
180, 47, 84, 97,114,103,101,116, 68,105, 99,116,129,  1, 44,166, 62,180, 47, 82,
 97,115,116,101,114, 68,105, 99,116,129,  1, 44,166, 62,180, 47, 80, 97,103,101,
115, 32, 91, 32, 93,180,166,200, 47, 80,105,108,101, 68,105, 99,116, 32, 80,105,
108,101, 68,105, 99,116,166,150,166,200, 47, 83,116, 97,109,112, 68,105, 99,116,
 32, 83,116, 97,109,112, 68,105, 99,116,166,150,166,200, 47, 84, 97,114,103,101,
116, 68,105, 99,116, 32, 84, 97,114,103,101,116, 68,105, 99,116,166,150,166,200,
 47, 82, 97,115,116,101,114, 68,105, 99,116, 32, 82, 97,115,116,101,114, 68,105,
 99,116,166,150, 47,112,111,108,105,116,101, 32,123,166,146,166,146,125,180,166,
200, 47, 80,105,101, 77,101,110,117,166,121,166,143,123, 32, 84,105,101,115, 82,
111,111,116, 68,105,114,101, 99,116,111,114,121,159,116,105,101,115, 47,112,105,
101,109,101,110,117, 46,112,115, 97,112,112,101,110,100, 32,114,117,110, 32,125,
166,107,166,200, 47, 78,101, 97,116, 87,105,110,100,111,119,166,121,166,143,123,
 32, 84,105,101,115, 82,111,111,116, 68,105,114,101, 99,116,111,114,121,159,116,
105,101,115, 47,110,101, 97,116,119,105,110, 46,112,115, 97,112,112,101,110,100,
 32,114,117,110, 32,125,166,107,166,200, 47, 84, 73, 69, 83, 87,105,110,100,111,
119,166,121,166,143,123, 32, 84,105,101,115, 82,111,111,116, 68,105,114,101, 99,
116,111,114,121,155,116,105,101,115, 47,119,105,110, 46,112,115, 97,112,112,101,
110,100, 32,114,117,110, 32,125,166,107,166,200, 47, 84,101,120,116, 67, 97,110,
118, 97,115,166,121,166,143,123, 32, 84,105,101,115, 82,111,111,116, 68,105,114,
101, 99,116,111,114,121,159,116,105,101,115, 47,116,101,120,116, 99, 97,110, 46,
112,115, 97,112,112,101,110,100, 32,114,117,110, 32,125,166,107,166,200, 47, 84,
 97,114,103,101,116,166,121,166,143,123, 32, 84,105,101,115, 82,111,111,116, 68,
105,114,101, 99,116,111,114,121,158,116,105,101,115, 47,116, 97,114,103,101,116,
 46,112,115, 97,112,112,101,110,100, 32,114,117,110, 32,125,166,107,166,200, 47,
 83,116, 97,109,112,166,121,166,143,123, 32, 84,105,101,115, 82,111,111,116, 68,
105,114,101, 99,116,111,114,121,157,116,105,101,115, 47,115,116, 97,109,112, 46,
112,115, 97,112,112,101,110,100, 32,114,117,110, 32,125,166,107,166,200, 47, 70,
109,116, 68,105, 99,116,166,121,166,143,123, 32, 84,105,101,115, 82,111,111,116,
 68,105,114,101, 99,116,111,114,121,155,116,105,101,115, 47,102,109,116, 46,112,
115, 97,112,112,101,110,100, 32,114,117,110, 32,125,166,107, 70,109,116, 68,105,
 99,116,166,  6,166,211,166,  6,
};
#define do_get_rect(P__0,P__1,P__2,P__3) ( pprintf(PostScript, _CPS_do_get_rect, 11), ps_waitfor(PostScriptInput, 4), _CPS_RETURN_do_get_rect(P__0, P__1, P__2, P__3))
#define _CPS_RETURN_do_get_rect(P__0, P__1, P__2, P__3) pscanf(PostScriptInput,"dddd", P__0, P__1, P__2, P__3)
static char _CPS_do_get_rect[] = "name id GR ";
#define do_make_pile(P__0,P__1,P__2,P__3,P__4,P__5)  pprintf(PostScript, _CPS_do_make_pile, 15, P__2, P__3, P__4, P__5, P__0, P__1)
static char _CPS_do_make_pile[] = "%d%d%d%d%s%dMP ";
#define do_use_pile(P__0)  pprintf(PostScript, _CPS_do_use_pile, 5, P__0)
static char _CPS_do_use_pile[] = "%dUP ";
#define do_set_pile_name(P__0)  pprintf(PostScript, _CPS_do_set_pile_name, 5, P__0)
static char _CPS_do_set_pile_name[] = "%sSN ";
#define do_find_font(P__0,P__1)  pprintf(PostScript, _CPS_do_find_font, 7, P__0, P__1)
static char _CPS_do_find_font[] = "%s%dFF ";
#define no_font() (ps_lookingat(PostScriptInput, 2))
#define found_font() (ps_lookingat(PostScriptInput, 3))
#define do_use_font(P__0,P__1)  pprintf(PostScript, _CPS_do_use_font, 7, P__0, P__1)
static char _CPS_do_use_font[] = "%s%dUF ";
#define do_get_metrics(P__0,P__1,P__2) ( pprintf(PostScript, _CPS_do_get_metrics, 3), ps_waitfor(PostScriptInput, 1), _CPS_RETURN_do_get_metrics(P__0, P__1, P__2))
#define _CPS_RETURN_do_get_metrics(P__0, P__1, P__2) pscanf(PostScriptInput,"ddd", P__0, P__1, P__2)
static char _CPS_do_get_metrics[] = "GM ";
#define do_def_file_pos(P__0,P__1,P__2,P__3)  pprintf(PostScript, _CPS_do_def_file_pos, 15, P__0, P__1, P__2, P__3)
static char _CPS_do_def_file_pos[] = "[%s%s%d%d] DFP ";
#define do_def_picture(P__0,P__1,P__2)  pprintf(PostScript, _CPS_do_def_picture, 9, P__1, P__2, P__0)
static char _CPS_do_def_picture[] = "%s%d%sDP ";
#define do_put_picture(P__0,P__1,P__2)  pprintf(PostScript, _CPS_do_put_picture, 9, P__1, P__2, P__0)
static char _CPS_do_put_picture[] = "%d%d%dPP ";
#define do_measure_stamp(P__0,P__1,P__2) ( pprintf(PostScript, _CPS_do_measure_stamp, 5, P__0), ps_waitfor(PostScriptInput, 6), _CPS_RETURN_do_measure_stamp(P__1, P__2))
#define _CPS_RETURN_do_measure_stamp(P__1, P__2) pscanf(PostScriptInput,"dd", P__1, P__2)
static char _CPS_do_measure_stamp[] = "%dMS ";
#define do_put_string(P__0,P__1,P__2)  pprintf(PostScript, _CPS_do_put_string, 9, P__0, P__1, P__2)
static char _CPS_do_put_string[] = "%s%d%dPS ";
#define do_def_target(P__0,P__1,P__2)  pprintf(PostScript, _CPS_do_def_target, 9, P__0, P__1, P__2)
static char _CPS_do_def_target[] = "%s%s%dDT ";
#define do_put_target(P__0,P__1,P__2,P__3,P__4,P__5)  pprintf(PostScript, _CPS_do_put_target, 15, P__2, P__3, P__4, P__5, P__1, P__0)
static char _CPS_do_put_target[] = "%d%d%d%d%s%dPT ";
#define do_get_page_size(P__0,P__1) ( pprintf(PostScript, _CPS_do_get_page_size, 4), ps_waitfor(PostScriptInput, 5), _CPS_RETURN_do_get_page_size(P__0, P__1))
#define _CPS_RETURN_do_get_page_size(P__0, P__1) pscanf(PostScriptInput,"dd", P__0, P__1)
static char _CPS_do_get_page_size[] = "GPS ";
#define do_start_page()  pprintf(PostScript, _CPS_do_start_page, 3)
static char _CPS_do_start_page[] = "SP ";
#define do_end_page()  pprintf(PostScript, _CPS_do_end_page, 3)
static char _CPS_do_end_page[] = "EP ";
#define do_zap_pages()  pprintf(PostScript, _CPS_do_zap_pages, 3)
static char _CPS_do_zap_pages[] = "ZP ";
#define do_start_line()  pprintf(PostScript, _CPS_do_start_line, 3)
static char _CPS_do_start_line[] = "SL ";
#define do_end_line(P__0,P__1,P__2,P__3,P__4,P__5,P__6)  pprintf(PostScript, _CPS_do_end_line, 17, P__0, P__1, P__2, P__3, P__4, P__5, P__6)
static char _CPS_do_end_line[] = "%d%d%d%d%d%d%dEL ";
#define do_free_stamps()  pprintf(PostScript, _CPS_do_free_stamps, 3)
static char _CPS_do_free_stamps[] = "FS ";
#define do_setup_definition_pile()  pprintf(PostScript, _CPS_do_setup_definition_pile, 4)
static char _CPS_do_setup_definition_pile[] = "SDP ";
#define do_setup_controls_pile()  pprintf(PostScript, _CPS_do_setup_controls_pile, 4)
static char _CPS_do_setup_controls_pile[] = "SCP ";
#define do_setup_contents_pile()  pprintf(PostScript, _CPS_do_setup_contents_pile, 4)
static char _CPS_do_setup_contents_pile[] = "SAP ";
#define do_name_pile(P__0)  pprintf(PostScript, _CPS_do_name_pile, 5, P__0)
static char _CPS_do_name_pile[] = "%sNP ";
#define do_use_linked_pile(P__0,P__1) ( pprintf(PostScript, _CPS_do_use_linked_pile, 6, P__0), ps_waitfor(PostScriptInput, 7), _CPS_RETURN_do_use_linked_pile(P__1))
#define _CPS_RETURN_do_use_linked_pile(P__1) pscanf(PostScriptInput,"d", P__1)
static char _CPS_do_use_linked_pile[] = "%sULP ";
#define do_use_parent_pile(P__0) ( pprintf(PostScript, _CPS_do_use_parent_pile, 4), ps_waitfor(PostScriptInput, 8), _CPS_RETURN_do_use_parent_pile(P__0))
#define _CPS_RETURN_do_use_parent_pile(P__0) pscanf(PostScriptInput,"d", P__0)
static char _CPS_do_use_parent_pile[] = "UPP ";
#define do_def_local(P__0)  pprintf(PostScript, _CPS_do_def_local, 6, P__0)
static char _CPS_do_def_local[] = "%sDFL ";
#define do_def_global(P__0)  pprintf(PostScript, _CPS_do_def_global, 6, P__0)
static char _CPS_do_def_global[] = "%sDFG ";
#define do_send_ps_string(P__0)  pprintf(PostScript, _CPS_do_send_ps_string, 2, P__0)
static char _CPS_do_send_ps_string[] = "%s";
#define do_send_ps_int(P__0)  pprintf(PostScript, _CPS_do_send_ps_int, 2, P__0)
static char _CPS_do_send_ps_int[] = "%d";
#define _CPS_SEENDEFS
#ifndef FILE
#include <stdio.h>
#endif
#ifndef PSFILE
#include <psio.h>
#endif
extern PSFILE *PostScript, *PostScriptInput;
PSFILE *ps_open_PostScript();
#define ps_flush_PostScript() (psio_flush(PostScript),(psio_error(PostScript) ? exit(0) : 0))
#define ps_close_PostScript() (psio_close(PostScript),PostScript = 0)
#define ps_moveto(P__0,P__1)  pprintf(PostScript, _CPS_ps_moveto, 5, P__0, P__1)
extern char _CPS_ps_moveto[];
#define ps_rmoveto(P__0,P__1)  pprintf(PostScript, _CPS_ps_rmoveto, 5, P__0, P__1)
extern char _CPS_ps_rmoveto[];
#define ps_lineto(P__0,P__1)  pprintf(PostScript, _CPS_ps_lineto, 5, P__0, P__1)
extern char _CPS_ps_lineto[];
#define ps_rlineto(P__0,P__1)  pprintf(PostScript, _CPS_ps_rlineto, 5, P__0, P__1)
extern char _CPS_ps_rlineto[];
#define ps_closepath() psio_putc('\263', PostScript)
#define ps_arc(P__0,P__1,P__2,P__3,P__4)  pprintf(PostScript, _CPS_ps_arc, 11, P__0, P__1, P__2, P__3, P__4)
extern char _CPS_ps_arc[];
#define ps_stroke() psio_putc('\305', PostScript)
#define ps_fill() psio_putc('\267', PostScript)
#define ps_show(P__0)  pprintf(PostScript, _CPS_ps_show, 3, P__0)
extern char _CPS_ps_show[];
#define ps_cshow(P__0,L__0)  pprintf(PostScript, _CPS_ps_cshow, 4, L__0, P__0)
extern char _CPS_ps_cshow[];
#define ps_findfont(P__0)  pprintf(PostScript, _CPS_ps_findfont, 3, P__0)
extern char _CPS_ps_findfont[];
#define ps_scalefont(P__0)  pprintf(PostScript, _CPS_ps_scalefont, 3, P__0)
extern char _CPS_ps_scalefont[];
#define ps_setfont() psio_putc('\302', PostScript)
#define ps_gsave() psio_putc('\272', PostScript)
#define ps_grestore() psio_putc('\271', PostScript)
extern int ps_next_user_token;
#define ps_define_stack_token(u) ps_DO_defuser(u/**/_token = ps_next_user_token++)
#define ps_define_value_token(u) (pprintf(PostScript, "/u load ", sizeof "/u load " - 1), \
ps_define_stack_token(u))
#define ps_define_word_token(u) (pprintf(PostScript, "/u cvx ", sizeof "/u cvx " - 1), \
ps_define_stack_token(u))
#define ps_DO_defuser(P__0)  pprintf(PostScript, _CPS_ps_DO_defuser, 4, P__0)
extern char _CPS_ps_DO_defuser[];
#define ps_DO_finddef(P__0,P__1)  pprintf(PostScript, _CPS_ps_DO_finddef, 7, P__0, P__1)
extern char _CPS_ps_DO_finddef[];
#define ps_finddef(font,usertoken) ps_DO_finddef(font,(usertoken)=ps_next_user_token++)
#define ps_DO_scaledef(P__0,P__1,P__2)  pprintf(PostScript, _CPS_ps_DO_scaledef, 9, P__0, P__1, P__2)
extern char _CPS_ps_DO_scaledef[];
#define ps_scaledef(font,scale,usertoken) ps_DO_scaledef(font,scale,(usertoken) = ps_next_user_token++)
#define ps_usetfont(P__0)  pprintf(PostScript, _CPS_ps_usetfont, 3, P__0)
extern char _CPS_ps_usetfont[];