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

module sph_definitions;

{++
Revisions:
---------


Functional description:
----------------------

  This module contains Pascal definitions for external routines contained
  in the SPHUTILS object module library.  Not all of the routines are defined
  here, but most of the useful ones are.


  To compile this definition module use:

	$ PASCAL/NOOBJ SPH.DEF


Definition index:
----------------

function 	init_itmlst		-- init an itmlst buffer
function	len			-- return "real" length of a string
function	pack_itmlst		-- add an entry to an itmlst buffer
function	set_file_owner		-- change the UIC owner of a file
function	translate_status_code	-- return text for system status code

--}

const
  itmlst_m_byte = 0;
  itmlst_m_word = 1;
  itmlst_m_long = 2;
  itmlst_m_longword = 2;
  itmlst_m_quad = 3;
  itmlst_m_quadword = 3;
  itmlst_m_string = 4;

function init_itmlst
  (buffer: packed array[l1..u1: integer] of char;
   %ref context: [unsafe] integer := %ref 0): integer;
  extern;

function len(s: packed array[l1..u1: integer] of char): integer;
  extern;

function pack_itmlst
  (%ref context: [unsafe] integer := %ref 0;
   %ref mask: integer;
   %ref data: [unsafe] integer): integer;
  extern;

function set_file_owner
  (%stdescr f: packed array[l1..u1: integer] of char;
   %ref group: integer := %ref 1;
   %ref member: integer := %ref 4): integer;
  extern;

function translate_status_code(s: integer): integer;
  extern;

end.