/* Created by SDL V3.1-7     */
/* Source:  8-AUG-1988 10:25:24 EMULEX$DISK:[MEADOWS.UNSDL.VMS5-0_H]PPL$ROUTINE */
#ifndef PPL$ROUTINES.TEMPLATE_
#define PPL$ROUTINES.TEMPLATE_
 
/*** MODULE PPL$ROUTINES ***/
/*+~ppl$adjust_quorum~+*/
unsigned long int ppl$adjust_quorum(
    const unsigned long int  *barrier_id,
    const short int  *amount
    ) ;
/*~-ppl$adjust_quorum-~*/
/*+~ppl$await_event~+*/
unsigned long int ppl$await_event(
    const unsigned long int  *event_id
    ) ;
/*~-ppl$await_event-~*/
/*+~ppl$create_barrier~+*/
unsigned long int ppl$create_barrier(
    unsigned long int  *barrier_id,
    ...
    /* const struct dsc$descriptor *barrier_name, */
    /* const short int  *quorum */
    ) ;
/*~-ppl$create_barrier-~*/
/*+~ppl$create_event~+*/
unsigned long int ppl$create_event(
    unsigned long int  *event_id,
    ...
    /* const struct dsc$descriptor *event_name */
    ) ;
/*~-ppl$create_event-~*/
/*+~ppl$create_spin_lock~+*/
unsigned long int ppl$create_spin_lock(
    unsigned long int  *lock_id,
    ...
    /* const struct dsc$descriptor *lock_name */
    ) ;
/*~-ppl$create_spin_lock-~*/
/*+~ppl$create_shared_memory~+*/
unsigned long int ppl$create_shared_memory(
    const struct dsc$descriptor *section_name,
    unsigned long int  *memory_area [1],
    ...
    /* const unsigned long int flags, */
    /* const struct dsc$descriptor *file_name */
    ) ;
/*~-ppl$create_shared_memory-~*/
/*+~ppl$create_semaphore~+*/
unsigned long int ppl$create_semaphore(
    unsigned long int  *semaphore_id,
    ...
    /* const struct dsc$descriptor *semaphore_name, */
    /* const short int  *semaphore_maximum, */
    /* const short int  *semaphore_initial */
    ) ;
/*~-ppl$create_semaphore-~*/
/*+~ppl$create_vm_zone~+*/
unsigned long int ppl$create_vm_zone(
    unsigned long int  *zone_id,
    ...
    /* const long int  *algorithm, */
    /* const long int  *algorithm_argument, */
    /* const unsigned long int  *flags, */
    /* const long int  *extend_size, */
    /* const long int  *initial_size, */
    /* const long int  *block_size, */
    /* const long int  *alignment, */
    /* const long int  *page_limit, */
    /* const long int  *smallest_block_size, */
    /* const struct dsc$descriptor *zone_name */
    ) ;
/*~-ppl$create_vm_zone-~*/
/*+~ppl$decrement_semaphore~+*/
unsigned long int ppl$decrement_semaphore(
    const unsigned long int  *semaphore_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$decrement_semaphore-~*/
/*+~ppl$delete_shared_memory~+*/
unsigned long int ppl$delete_shared_memory(
    const struct dsc$descriptor *section_name,
    ...
    /* const unsigned long int  *memory_area [1], */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$delete_shared_memory-~*/
/*+~ppl$enable_event_ast~+*/
unsigned long int ppl$enable_event_ast(
    const unsigned long int  *event_id,
    const int * *astadr,
    ...
    /* const int astprm */
    ) ;
/*~-ppl$enable_event_ast-~*/
/*+~ppl$enable_event_signal~+*/
unsigned long int ppl$enable_event_signal(
    const unsigned long int  *event_id,
    ...
    /* const unsigned long int signal_value */
    ) ;
/*~-ppl$enable_event_signal-~*/
/*+~ppl$flush_shared_memory~+*/
unsigned long int ppl$flush_shared_memory(
    const struct dsc$descriptor *section_name,
    ...
    /* const unsigned long int  *memory_area [1], */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$flush_shared_memory-~*/
/*+~ppl$find_synch_element_id~+*/
unsigned long int ppl$find_synch_element_id(
    unsigned long int  *element_id,
    const struct dsc$descriptor *element_name
    ) ;
/*~-ppl$find_synch_element_id-~*/
/*+~ppl$get_index~+*/
unsigned long int ppl$get_index(
    unsigned long int  *participant_index
    ) ;
/*~-ppl$get_index-~*/
/*+~ppl$increment_semaphore~+*/
unsigned long int ppl$increment_semaphore(
    const unsigned long int  *semaphore_id
    ) ;
/*~-ppl$increment_semaphore-~*/
/*+~ppl$index_to_pid~+*/
unsigned long int ppl$index_to_pid(
    const unsigned long int  *participant_index,
    unsigned long int  *pid
    ) ;
/*~-ppl$index_to_pid-~*/
/*+~ppl$initialize~+*/
unsigned long int ppl$initialize(
    /* const unsigned long int  *size */
    ) ;
/*~-ppl$initialize-~*/
/*+~ppl$pid_to_index~+*/
unsigned long int ppl$pid_to_index(
    const unsigned long int  *pid,
    unsigned long int  *participant_index
    ) ;
/*~-ppl$pid_to_index-~*/
/*+~ppl$read_barrier~+*/
unsigned long int ppl$read_barrier(
    const unsigned long int  *barrier_id,
    short int  *quorum,
    short int  *waiters
    ) ;
/*~-ppl$read_barrier-~*/
/*+~ppl$read_event~+*/
unsigned long int ppl$read_event(
    const unsigned long int  *event_id,
    unsigned long int  *occurred
    ) ;
/*~-ppl$read_event-~*/
/*+~ppl$read_semaphore~+*/
unsigned long int ppl$read_semaphore(
    const unsigned long int  *semaphore_id,
    ...
    /* short int  *semaphore_value, */
    /* short int  *semaphore_maximum */
    ) ;
/*~-ppl$read_semaphore-~*/
/*+~ppl$release_spin_lock~+*/
unsigned long int ppl$release_spin_lock(
    const unsigned long int  *lock_id
    ) ;
/*~-ppl$release_spin_lock-~*/
/*+~ppl$spawn~+*/
unsigned long int ppl$spawn(
    unsigned long int  *copies,
    ...
    /* const struct dsc$descriptor *program_name, */
    /* unsigned long int  *children_ids, */
    /* const unsigned long int  *flags, */
    /* const struct dsc$descriptor *std_input_file, */
    /* const struct dsc$descriptor *std_output_file */
    ) ;
/*~-ppl$spawn-~*/
/*+~ppl$set_quorum~+*/
unsigned long int ppl$set_quorum(
    const unsigned long int  *barrier_id,
    const short int  *quorum
    ) ;
/*~-ppl$set_quorum-~*/
/*+~ppl$stop~+*/
unsigned long int ppl$stop(
    const unsigned long int  *participant_index
    ) ;
/*~-ppl$stop-~*/
/*+~ppl$seize_spin_lock~+*/
unsigned long int ppl$seize_spin_lock(
    const unsigned long int  *lock_id,
    ...
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$seize_spin_lock-~*/
/*+~ppl$terminate~+*/
unsigned long int ppl$terminate(
    /* const unsigned long int  *flags */
    ) ;
/*~-ppl$terminate-~*/
/*+~ppl$trigger_event~+*/
unsigned long int ppl$trigger_event(
    const unsigned long int  *event_id,
    ...
    /* const unsigned long int event_param, */
    /* const unsigned long int flags */
    ) ;
/*~-ppl$trigger_event-~*/
/*+~ppl$unique_name~+*/
unsigned long int ppl$unique_name(
    const struct dsc$descriptor *name_string,
    struct dsc$descriptor *resultant_string,
    ...
    /* unsigned short int  *resultant_length */
    ) ;
/*~-ppl$unique_name-~*/
/*+~ppl$wait_at_barrier~+*/
unsigned long int ppl$wait_at_barrier(
    const unsigned long int  *barrier_id
    ) ;
/*~-ppl$wait_at_barrier-~*/
#endif