{  +---------------------------------------------------------------------------+
   |									       |
   |  [WHO]WHODEFS.PAS					   Common Definitions  |
   |  Scott Bailey, Xerox Corporation		     Created October 27, 1990  |
   |									       |
   |  Modification History						       |
   |  V1.0-000 10/27/90 RSB	Original version			       |
   |									       |
   +---------------------------------------------------------------------------+
}
[ident('V1.0-000'),environment('whodefs'),
inherit('sys$library:pascal$lib_routines',
	'uafdef')]
module whodefs;

  var
    who$_notfound, who$_nowidth, who$_trudomain, who$_invpattern,
    who$_nooutput, who$_filaccerr : [weak_external] integer;

  const
    cli$_absent = 229872;
    cli$_comma = 261433;
    cli$_concat = 261417;
    cli$_negated = 229880;
    cli$_present = 261401;
    cli$_defaulted = 261409;

  type
    item_list_entry = record			{ Service call list entry }
      buflen : word_int;			{ Length of return buffer }
      itmcod : word_int;			{ Request code }
      bufadr : [unsafe] unsigned;		{ Address of return buffer }
      retadr : [unsafe] unsigned;		{ Addr for return length }
    end; {record item_list_entry}

{
Signal and exit if an unsuccessful status is passed to us; return without
doing anything if the status is okay.
}
  [asynchronous,unbound]
  procedure check(exit_status : integer);

  begin {procedure check}
    if not odd(exit_status) then
      lib$stop(exit_status);
  end; {procedure check}

{
CLI interface routines
}
  [asynchronous,external]
  function cli$get_value(
    entity_string : [volatile,class_s] packed array [$l0..$u0:integer] of char;
    var returned_value : [volatile,class_s] packed array [$l1..$u1:integer] of char;
    var returned_len : [volatile] word_int
    ) : integer; external;

  [asynchronous,external]
  function cli$present(
    entity_string : [volatile,class_s] packed array [$l0..$u0:integer] of char
    ) : integer; external;

  [asynchronous,external]
  function cli$dcl_parse(
    command_string : [class_s] packed array [$l0..$u0:integer] of char;
    table : [reference,unsafe] unsigned;
    %immed [unbound,asynchronous] procedure param_routine := %immed 0;
    %immed [unbound,asynchronous] procedure prompt_routine := %immed 0;
    prompt_string : [class_s] packed array
      [$l1..$u1:integer] of char := %immed 0
    ) : integer; external;

  [asynchronous,external]
  function cli$dispatch(
    userarg : [immediate,unsafe] unsigned := %immed 0
    ) : integer; external;

{
A few definitions to fix bogus DEC environment definitions...
}
  [asynchronous,external(str$element)]
  function rsb$element(
    var destination_string : varying [$l1] of char;
    element_number : integer;
    delimiter_string : [class_s] packed array [$l3..$u3:integer] of char;
    source_string : [class_s] packed array [$l4..$u4:integer] of char
    ) : integer; external;

end. {module whodefs}