DataMuseum.dk

top - metrics - download

    Length: 3344 (0xd10)
    Types: TextFile
    Names: »acsold.py«

└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
    └─⟦eba4602b1⟧ »./isode-5.0.tar.Z« 
        └─⟦d3ac74d73⟧ 
            └─⟦this⟧ »isode-5.0/acsap/acsold.py« 

TextFile

-- acsold.py - AcSAP definitions for old-style applications

-- $Header: /f/osi/acsap/RCS/acsold.py,v 6.0 89/03/18 23:24:34 mrose Rel $
--
--
-- $Log:	acsold.py,v $
-- Revision 6.0  89/03/18  23:24:34  mrose
-- Release 5.0
-- 

--
--				  NOTICE
--
--    Acquisition, use, and distribution of this module and related
--    materials are subject to the restrictions of a license agreement.
--    Consult the Preface in the User's Manual for the full terms of
--    this agreement.
--
--


OACS DEFINITIONS ::=

%{
#ifndef	lint
static char *rcsid = "$Header: /f/osi/acsap/RCS/acsold.py,v 6.0 89/03/18 23:24:34 mrose Rel $";
#endif

#include <stdio.h>
#include "acpkt.h"


int	acsap_application;
int	acsap_ckpoint;
int	acsap_window;
int	acsap_mode;
int	acsap_refuse;
int	acsap_conntype;
PE	acsap_data;
int	acsap_abort;
int	acsap_priority;

/* \f

 */
%}

BEGIN

-- these are used by pre-ACSE versions of ROS and RTS
-- they are not part of the 8650 standard, but are included here for use
-- by old-style applications

PConnect ::= 
	SET {
	    [0]
		IMPLICIT DataTransferSyntax,

	    pUserData[1]
		IMPLICIT SET {
		    checkpointSize[0]
			IMPLICIT INTEGER	%{ acsap_ckpoint = $$; %}
			DEFAULT 0,

		    windowSize[1]
			IMPLICIT INTEGER	%{ acsap_window = $$; %}
			DEFAULT 3,

		    dialogueMode[2]
			IMPLICIT INTEGER {
			    monologue(0), twa(1)
			}			%{ acsap_mode = $$; %}
			DEFAULT monologue,

		    [3]
			ConnectionData,

		    applicationProtocol[4]
			IMPLICIT INTEGER	%{ acsap_application = $$; %},

		    protocolVersion[5]
			IMPLICIT INTEGER
			OPTIONAL
	        }
	}

PAccept ::=
	SET {
	    [0]
		IMPLICIT DataTransferSyntax,

	    pUserData[1]
		IMPLICIT SET {
		    checkpointSize[0]
			IMPLICIT INTEGER	%{ acsap_ckpoint = $$; %}
			DEFAULT 0,

		    windowsize[1]
			IMPLICIT INTEGER	%{ acsap_window = $$; %}
			DEFAULT 3,

		    [2]
			ConnectionData
		}
	}

PRefuse ::=
	SET {
	    [0]
		IMPLICIT RefuseReason
	}

DataTransferSyntax ::=
	SET {
	    [0]
		IMPLICIT INTEGER { x409(0) }
	}

ConnectionData ::=
	CHOICE {
	    open[0]			-- ACS user data
		ANY			%{ acsap_conntype = CN_OPEN;
					   acsap_data = $$; %},
	    recover[1]
		IMPLICIT SessionConnectionIdentifier
					%{ acsap_conntype = CN_RECOVER; %}
	}

SessionConnectionIdentifier ::=
	SEQUENCE {
	    CallingSSUserReference,

	    CommonReference,

	    [0]
		IMPLICIT AdditionalReferenceInformation
		OPTIONAL
	}

CallingSSUserReference ::=
	SSAPAddress				-- of the initiator

CommonReference ::=
	UTCTime

AdditionalReferenceInformation ::=
	T61String

SSAPAddress ::=
	T61String


RefuseReason ::=
	INTEGER {
	    busy(0),
	    cannotRecover(1),
	    validationFailure(2),
	    unacceptableDialogueMode(3)
	}				%{ acsap_refuse = $$; %}


-- similarly, this is used during a provider-initiated abort

AbortInformation ::=
	SET {
	    [0]
		IMPLICIT AbortReason
		OPTIONAL,

	    reflectedParameter[1]
		IMPLICIT BITSTRING
		OPTIONAL
	}

AbortReason ::=
	INTEGER {
	    localSystemProblem(0),

	    invalidParameter(1),	-- reflectedParameter supplied

	    unrecognizedActivity(2),

	    temporaryProblem(3),	-- the ACS cannot accept a session
					-- for a period of time

	    protocolError(4)		-- ACS level protocol error
	}				%{ acsap_abort = $$; %}


-- these are definitions from CCITT X.410

Priority ::=
	INTEGER					%{ acsap_priority = $$; %}

END