Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Online Manual

Media Vault

Software Library

Restoration Projects

Artifacts Sought

PGM_$GET_EC                       Domain/OS                        PGM_$GET_EC


NAME
     pgm_$get_ec - get a process eventcount

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

     void pgm_$get_ec(
          pgm_$proc &process_handle,
          pgm_$ec_key &ec_key,
          ec2_$ptr_t *ec_pointer,
          status_$t *status)

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

     procedure pgm_$get_ec(
          in process_handle: pgm_$proc;
          in ec_key: pgm_$ec_key;
          out ec_pointer: ec2_$ptr_t;
          out status: status_$t);

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

           integer*4 status, process_handle, ec_value
           integer*2 ec_key, event(3)

           equivalence (ec_value, event(1))

           integer*4 ec_pointer
           pointer /ec_pointer/ event

           call pgm_$get_ec(process_handle, ec_key, ec_pointer, status)

DESCRIPTION
     Pgm_$get_ec supplies a pointer to an eventcount that advances when the
     process on process_handle terminates.  When a child process is created,
     the eventcount value is 0.  When a child process terminates, the process
     eventcount value is 1.

     process_handle
          A process handle of a child process.  A process handle is not valid
          for programs invoked in background mode.

     ec_key
          An enumerated value specifying which process eventcount pgm_$get_ec
          should supply.  The only allowable value currently is
          pgm_$child_proc.

     ec_pointer
          An pointer to the eventcount.

     status
          The completion status.

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