[ INHERIT ('sys$library:starlet'), ENVIRONMENT ('forms$pas_definitions')]
MODULE forms$pas_definitions;

(*                                                                          *)
(************************************************************************** *)
(*                   Copyright © 1988, 1989, 1991, 1994 by                * *)
(*              DIGITAL Equipment Corporation, Maynard, Mass.             * *)
(*                                                                        * *)
(* This software is furnished under a license and may be used and  copied * *)
(* only  in  accordance  with  the  terms  of  such  license and with the * *)
(* inclusion of the above copyright notice.  This software or  any  other * *)
(* copies  thereof may not be provided or otherwise made available to any * *)
(* other person.  No title to or  ownership of  the  software  is  hereby * *)
(* transferred.                                                           * *)
(*                                                                        * *)
(* The information in this software is subject to change  without  notice * *)
(* and  should  not  be  construed  as  a commitment by DIGITAL Equipment * *)
(* Corporation.                                                           * *)
(*                                                                        * *)
(* DIGITAL assumes no responsibility for the use or  reliability  of  its * *)
(* software on equipment which is not supplied by DIGITAL.                * *)
(*                                                                        * *)
(************************************************************************** *)
(*                                                                          *)
(*                                                                          *)
(* FACILITY:	    DECforms V2.0.                                          *)
(*                                                                          *)
(* ABSTRACT:	    Source module for PASCAL environment file used by       *)
(*		    DECforms user applications.                             *)
(*                                                                          *)
(*                                                                          *)
(************************************************************************** *)



{}
{   Item codes for REQUEST_OPTIONS item lists.
{}
CONST
    forms$k_language		    =  1;
    forms$k_image		    =  2;
    forms$k_tracefile		    =  3;
    forms$k_trace		    =  4;
    forms$k_printfile		    =  5;
    forms$k_efn			    =  6;
    forms$k_rsb			    =  7;
    forms$k_astadr		    =  8;
    forms$k_astprm		    =  9;
    forms$k_error_routine	    = 10;
    forms$k_error_parameter	    = 11;
    forms$k_no_term_io		    = 12;
    forms$k_selection_label	    = 13;
    forms$k_error_items_not_saved   = 14;
    forms$k_stack_size		    = 15;

{}
{   Address of FORMS$AR_FORM_TABLE.
{}
VAR
    forms$ar_form_table : [READONLY, EXTERNAL] INTEGER;
{
 The following data type is the structure of the item list passed to DECforms
 for its request options parameter.
}

TYPE
    $$uword = [WORD] 0..65535;
    $$uwptr = ^ [VOLATILE] $$uword;
    forms$item_list_type = RECORD
	    length 			: $$UWORD;
	    code 			: $$UWORD;
	    buff_addr			: [UNSAFE] ^INTEGER;
	    addr_length_returned	: $$uwptr
	END;


{}
{   FORMS$ENABLE.
{}
FUNCTION forms$enable
       (
        %REF     Entry_Table  : [READONLY]             Integer 						:= %immed 0;
	%STDESCR Display_Dev  : [READONLY, CLASS_S]    Packed Array[$l1 .. $u1 : Integer] of Char;
        %STDESCR Session_Id   : [WRITEONLY, CLASS_S]   Packed Array[$l2 .. $u2 : Integer] of Char;
        %STDESCR Form_File    : [READONLY, CLASS_S]    Packed Array[$l3 .. $u3 : Integer] of Char       := %immed 0;
        %STDESCR Form_Name    : [READONLY, CLASS_S]    Packed Array[$l4 .. $u4 : Integer] of Char       := %immed 0;
        %STDESCR Receive_Ctext: [WRITEONLY, CLASS_S]   Packed Array[$l5 .. $u5 : Integer] of Char       := %immed 0;
        %REF     Rec_Ctext_Ct : [WRITEONLY]            Integer                                          := %immed 0;
        %STDESCR Send_Ctext   : [READONLY, CLASS_S]    Packed Array[$l6 .. $u6 : Integer] of Char       := %immed 0;
        %REF     Send_Ctext_Ct: [READONLY]             Integer                                          := %immed 0;
        %REF     Timeout      : [READONLY]             Integer                                          := %immed 0;
        %STDESCR Parent_Id    : [READONLY, CLASS_S]    Packed Array[$l7 .. $u7: Integer] of Char        := %immed 0;
        %REF     Request_Opt  : [READONLY, UNSAFE]     Array[$l8 .. $u8: Integer] of forms$item_list_type := %immed 0
       ) : Integer; External;



{}
{   FORMS$SEND.
{
{ The VAR_ARG_n arguments are used to pass the record descriptors and the request options item list.
{
{}
FUNCTION forms$send
       (
        %STDESCR Session_Id   : [READONLY, CLASS_S]    Packed Array[$l1 .. $u1 : Integer] of Char;
	%STDESCR Send_Name    : [READONLY, CLASS_S]    Packed Array[$l2 .. $u2 : Integer] of Char;
        %REF     Send_Count   : [READONLY]             Integer                                          := 1;
        %STDESCR Receive_Ctext: [WRITEONLY, CLASS_S]   Packed Array[$l4 .. $u4 : Integer] of Char       := %immed 0;
        %REF     Rec_Ctext_Ct : [WRITEONLY]            Integer                                          := %immed 0;
        %STDESCR Send_Ctext   : [READONLY, CLASS_S]    Packed Array[$l6 .. $u6 : Integer] of Char       := %immed 0;
        %REF     Send_Ctext_Ct: [READONLY]             Integer                                          := %immed 0;
        %REF     Timeout      : [READONLY]             Integer                                          := %immed 0;
        %STDESCR Parent_Id    : [READONLY, CLASS_S]    Packed Array[$l9 .. $u9 : Integer] of Char       := %immed 0;
        %REF     Request_Opt  : [READONLY, UNSAFE]     Array[$l8 .. $u8: Integer] of forms$item_list_type := %immed 0;
        %STDESCR Rec_args     : [READONLY,LIST,UNSAFE] Packed Array [$l5..$u5:Integer] of Char 		:= %immed 0
       ) : Integer; External;



{}
{   FORMS$RECEIVE.
{
{ The VAR_ARG_n arguments are used to pass the record descriptors and the request options item list.
{
{}
FUNCTION forms$receive
       (
        %STDESCR Session_Id   : [READONLY, CLASS_S]    Packed Array[$l1 .. $u1 : Integer] of Char;
	%STDESCR Receive_Name : [READONLY, CLASS_S]    Packed Array[$l2 .. $u2 : Integer] of Char;
        %REF     Receive_Count: [READONLY]             Integer                                          := 1;
        %STDESCR Receive_Ctext: [WRITEONLY, CLASS_S]   Packed Array[$l4 .. $u4 : Integer] of Char	:= %immed 0;
        %REF     Rec_Ctext_Ct : [WRITEONLY]            Integer						:= %immed 0;
        %STDESCR Send_Ctext   : [READONLY, CLASS_S]    Packed Array[$l6 .. $u6 : Integer] of Char	:= %immed 0;
        %REF     Send_Ctext_Ct: [READONLY]             Integer						:= %immed 0;
        %REF     Timeout      : [READONLY]             Integer						:= %immed 0;
        %STDESCR Parent_Id    : [READONLY, CLASS_S]    Packed Array[$l9 .. $u9 : Integer] of Char       := %immed 0;
        %REF     Request_Opt  : [READONLY, UNSAFE]     Array[$l8 .. $u8: Integer] of forms$item_list_type := %immed 0;
        %STDESCR Rec_args     : [LIST,UNSAFE] 	       Packed Array [$l5..$u5:Integer] of Char 		:= %immed 0
       ) : Integer; External;



{}
{   FORMS$TRANSCEIVE.
{
{ The VAR_ARG_n arguments are used to pass the record descriptors and the request options item list.
{
{}
FUNCTION forms$transceive
       (
        %STDESCR Session_Id   : [READONLY, CLASS_S]    Packed Array[$l1 .. $u1 : Integer] of Char;
	%STDESCR Send_Name    : [READONLY, CLASS_S]    Packed Array[$l2 .. $u2 : Integer] of Char;
        %REF     Send_Count   : [READONLY]             Integer                                          := 1;
	%STDESCR Receive_Name : [READONLY, CLASS_S]    Packed Array[$l4 .. $u4 : Integer] of Char;
        %REF     Receive_Count: [READONLY]             Integer                                          := 1;
        %STDESCR Receive_Ctext: [WRITEONLY, CLASS_S]   Packed Array[$l6 .. $u6 : Integer] of Char	:= %immed 0;
        %REF     Rec_Ctext_Ct : [WRITEONLY]            Integer						:= %immed 0;
        %STDESCR Send_Ctext   : [READONLY, CLASS_S]    Packed Array[$l8 .. $u8 : Integer] of Char	:= %immed 0;
        %REF     Send_Ctext_Ct: [READONLY]             Integer						:= %immed 0;
        %REF     Timeout      : [READONLY]             Integer						:= %immed 0;
        %STDESCR Parent_Id    : [READONLY, CLASS_S]    Packed Array[$l11 .. $u11 : Integer] of Char     := %immed 0;
        %REF     Request_Opt  : [READONLY, UNSAFE]     Array[$l12 .. $u12: Integer] of forms$item_list_type := %immed 0;
        %STDESCR Rec_args     : [LIST,UNSAFE] 	       Packed Array [$l5..$u5:Integer] of Char 		:= %immed 0
       ) : Integer; External;



{}
{   FORMS$DISABLE.
{}
FUNCTION forms$disable
       (
        %STDESCR Session_Id   : [READONLY, CLASS_S]    Packed Array[$l1 .. $u1 : Integer] of Char;
        %STDESCR Receive_Ctext: [WRITEONLY, CLASS_S]   Packed Array[$l2 .. $u2 : Integer] of Char	:= %immed 0;
        %REF     Rec_Ctext_Ct : [WRITEONLY]            Integer						:= %immed 0;
        %STDESCR Send_Ctext   : [READONLY, CLASS_S]    Packed Array[$l4 .. $u4 : Integer] of Char	:= %immed 0;
        %REF     Send_Ctext_Ct: [READONLY]             Integer						:= %immed 0;
        %REF     Timeout      : [READONLY]             Integer						:= %immed 0;
        %STDESCR Parent_Id    : [READONLY, CLASS_S]    Packed Array[$l7 .. $u7 : Integer] of Char       := %immed 0;
        %REF     Request_Opt  : [READONLY, UNSAFE]     Array[$l8 .. $u8: Integer] of forms$item_list_type := %immed 0
       ) : Integer; External;



{}
{   FORMS$CANCEL.
{}
FUNCTION forms$cancel
       (
        %STDESCR Session_Id   : [READONLY, CLASS_S]    Packed Array[$l1 .. $u1 : Integer] of Char;
        %REF     Request_Opt  : [READONLY, UNSAFE]     Array[$l8 .. $u8: Integer] of forms$item_list_type := %immed 0
       ) : Integer; External;

END. { module forms$pas_definitions }