Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Online Manual

Media Vault

Software Library

Restoration Projects

Artifacts Sought

IOS_$EQUAL                        Domain/OS                         IOS_$EQUAL


NAME
     ios_$equal - determine if two streams are open on the same object

SYNOPSIS (C)
     #include <apollo/base.h>
     #include <apollo/ios.h>

     boolean ios_$equal(
          ios_$id_t &stream_id,
          ios_$id_t &stream_id_too,
          status_$t *status)

SYNOPSIS (Pascal)
     %include '/sys/ins/base.ins.pas';
     %include '/sys/ins/ios.ins.pas';

     function ios_$equal(
          in stream_id: ios_$id_t;
          in stream_id_too: ios_$id_t;
          out status: status_$t): boolean;

SYNOPSIS (FORTRAN)
     %include '/sys/ins/base.ins.ftn'
     %include '/sys/ins/ios.ins.ftn'

           integer*2 stream_id, stream_id_too
           integer*4 status
           character*1 csame
           logical same

           equivalence (csame, same)

           csame = ios_$equal(stream_id, stream_id_too, status)

DESCRIPTION
     Ios_$equal returns true if stream_id and stream_id_too refer to connec-
     tions to the same object, and false if they do not.  A program can use
     this call to avoid keeping two streams open where one is sufficient.

     stream_id
          A stream ID.

     stream_id_too
          Another stream ID.

     status
          The completion status.

Typewritten Software • bear@typewritten.org • Edmonds, WA 98026