?? NEWTITLE := 'NOS/VE Basic Access Methods : Get Object Information' ??
MODULE bam$get_$local_object_info;
?? RIGHT := 110 ??

{ PURPOSE:
{   This module contains the 23D interface for getting object_information for
{   a temporary file.

?? NEWTITLE := 'Global Declarations Referenced by this Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc ost$caller_identifier
*copyc ost$name
*copyc pfe$internal_error_conditions
?? POP ??
*copyc fmp$get_$local_object_info
*copyc osp$set_status_condition
?? OLDTITLE ??
?? NEWTITLE := 'PROCEDURE [XDCL, #GATE] bap$get_$local_object_info', EJECT ??

  PROCEDURE [XDCL, #GATE] bap$get_$local_object_info
    (    evaluated_file_reference: fst$evaluated_file_reference;
         information_request: fst$goi_information_request;
     VAR object_information_p: ^SEQ ( * );
     VAR status: ost$status);

    VAR
      caller_id: ost$caller_identifier,
      object_info_p: ^fst$goi_object_information,
      password_selector: pft$password_selector;

    status.normal := TRUE;
    #CALLER_ID (caller_id);

    password_selector.password_specified := pfc$default_password_option;

    NEXT object_info_p IN object_information_p;
    IF object_info_p = NIL THEN
      osp$set_status_condition (pfe$info_full, status);
      RETURN; {----->
    IFEND;

    object_info_p^.set_name := osc$null_name;
    object_info_p^.resolved_path := NIL;
    object_info_p^.object := NIL;

    fmp$get_$local_object_info (evaluated_file_reference, information_request, password_selector,
          caller_id.ring, object_info_p, object_information_p, status);

  PROCEND bap$get_$local_object_info;
?? OLDTITLE ??
MODEND bam$get_$local_object_info;

