DataMuseum.dk

top - metrics - download

    Length: 1642 (0x66a)
    Types: TextFile
    Names: »mas-enc.py«

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z« 
        └─⟦e5a54fb17⟧ 
            └─⟦this⟧ »pp-5.0/Chans/dirlist/mas-enc.py« 

TextFile

-- mas-enc.py:


-- @(#) $Header: /cs/research/pp/hubris/pp-beta/Chans/dirlist/RCS/mas-enc.py,v 5.0 90/09/20 15:46:44 pp Exp Locker: pp $
--
-- $Log:	mas-enc.py,v $
-- Revision 5.0  90/09/20  15:46:44  pp
-- rcsforce : 5.0 public release
-- 
--



MAS
	{
	joint-iso-ccitt
	mts(3)
	modules(0)
	mts-abstarct-service(1)
	}

DEFINITIONS IMPLICIT TAGS ::=

%{
#include "dlist.h"

#define encode_OR_StandardAttributeList build_OR_StandardAttributeList
#define encode_OR_DomainDefinedAttributeList build_OR_DomainDefinedAttributeList
%}

PREFIXES encode decode print

BEGIN

IMPORTS
	Name
		FROM IF
			{
			joint-iso-ccitt
			ds(5)
			modules(1)
			informationFramework(1)
			}

	StandardAttributeList,
	DomainDefinedAttributeList
		FROM OR ;

ENCODER encode

ORName [[P ORName *]]::= [APPLICATION 0] SEQUENCE {
--		address COMPONENTS OF ORAddress [[p parm->on_or]],
-- COMPONENTS OF does not seem to work properly, expand by hand...

               	standard
                     StandardAttributeList [[p parm->on_or]],
       	        domaindefined
               	    DomainDefinedAttributeList [[p parm->on_or]]
			OPTIONAL <<or_locate (parm->on_or, OR_DD) != NULLOR>> ,

-- 		directory-name [0] Name [[p parm->on_dn]]
-- Name is a choice, need explict tags
 		directory-name [0] EXPLICIT Name [[p parm->on_dn]]
			OPTIONAL <<parm->on_dn != NULLDN>>
		}

ORAddress [[P OR_ptr]] ::= SEQUENCE {
               	standard
                    StandardAttributeList [[p parm]],
       	        domaindefined
               	    DomainDefinedAttributeList [[p parm]] 
                    OPTIONAL <<or_locate (parm, OR_DD) != NULLOR>>
	       	}

END