[environment('sys$common:[syslib]utilities'),
 ident('V1.0')]

module utility_definitions;

{++
Functional description:
----------------------

  This module contains defintions for DEC and non-DEC utility interfaces.

  To compile this module, use:

	$ PASCAL/NOOBJ UTILITIES.DEF


Index of procedures:
-------------------

function	edt$edit		-- callable EDT editor
procedure	whelp			-- callable window help

--}


function edt$edit
  (%stdescr ifn: packed array [l1..u1:integer] of char := %immed 0;
   %stdescr ofn: packed array [l2..u2:integer] of char := %immed 0;
   %stdescr cfn: packed array [l3..u3:integer] of char := %immed 0;
   %stdescr othfn: packed array [l4..u4:integer] of char := %immed 0;
   flagwrd: integer := %immed 0;
   fileio: integer := %immed 0;
   wrkio: integer := %immed 0;
   othio: integer := %immed 0): integer;
  extern;

procedure whelp 
  (%stdescr library_name: packed array[l1..u1: integer] of char;
   %stdescr init_topic: packed array[l2..u2: integer] of char;
   %ref top_line_of_window: integer := 1;
   %ref bottom_line_of_window: integer := 24);
  extern;

end.