
  PROCEDURE [INLINE] rap$verify_catalog_exists
    (    catalog: pft$path;
     VAR scratch_seq_p {input} : ^SEQ ( * );
     VAR catalog_exists {output} : boolean);


?? PUSH (LISTEXT := ON) ??

    VAR
      group: pft$group,
      local_status: ost$status;


    local_status.normal := TRUE;
    group.group_type := pfc$public;

    catalog_exists := TRUE;

    RESET scratch_seq_p;

    pfp$get_item_info (catalog, group, $pft$catalog_info_selections [pfc$catalog_directory],
          $pft$file_info_selections [], scratch_seq_p, local_status);
    IF NOT local_status.normal THEN
      catalog_exists := FALSE;
    IFEND;

  PROCEND rap$verify_catalog_exists;

{ PURPOSE:
{   This inline procedure verifies that the catalog exists.  The existence
{   of the catalog is returned in a boolean.
{
{ DESIGN:
{   Any error returned by the PF interface is taken to mean the catalog
{   does not exits.
{
{ NOTES:
{   This is a temporary procedure until a feature to
{   AMP$GET_FILE_ATTRIBUTES is transmitted (sometime around July 6, 1988)
{   that will verify that catalogs exist.  Because of this fact very little
{   effort has gone into this interface.
{

*copyc pfp$get_item_info
?? POP ??

