*copyc osd$default_pragmats
MODULE ifm$get_page_length_width;

{ PURPOSE:  Ring 3 interface which calls a ring 2 procedure to retrieve
{           the page length and width attribute values for a connection.
{
{  DESIGN:  IIP$GET_PAGE_LENGTH_WIDTH is called to interlock the table of
{           terminal attributes for the connection and to return the PW
{           and PL attribute values.
{
?? TITLE := 'MODULE ifm$get_page_length_width' ??
?? PUSH (LISTEXT := ON) ??
*copyc iip$get_page_length_width
?? POP ??
?? NEWTITLE := 'PROCEDURE ifp$get_page_length_width' ??

  PROCEDURE [XDCL, #GATE] ifp$get_page_length_width (terminal_path_handle: fmt$path_handle;
    VAR page_length_width: array [1 .. 2] of ift$terminal_attribute;
    VAR status: ost$status);

    iip$get_page_length_width (terminal_path_handle, page_length_width, status);

  PROCEND ifp$get_page_length_width;
MODEND ifm$get_page_length_width;
