DataMuseum.dk

top - metrics - download

    Length: 1299 (0x513)
    Types: TextFile
    Names: »md-dec.py«

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

TextFile

-- md-dec.py


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



MD
	{
	joint-iso-ccitt
	mhs-motis(6)
	arch (5)
	modules(0)
	directory(1)
	}

DEFINITIONS IMPLICIT TAGS ::=

%{
#include "dlist.h"
%}

PREFIXES encode decode print

BEGIN

IMPORTS
	Name
		FROM IF
			{
			joint-iso-ccitt
			ds(5)
			modules(1)
			informationFramework(1)
			}
	ORName
		FROM MAS
			{
			joint-iso-ccitt
			mts (3)
			modules(0)
			mts-abstract-service(1)
			};

DECODER decode

ORNamePattern [[P ORName *]] ::= ORName [[p parm]]

DLSubmitPermission [[P struct dl_permit *]]
%{
ORName * m;
%}
        ::=
		%{
		m = (ORName *) smalloc (sizeof (ORName));
		bzero ((char *)m,sizeof (ORName));
		%}
	CHOICE 
        {
	individual [0]
		ORName [[p m]]
			%{
			parm->dp_type = DP_INDIVIDUAL; 
			parm->dp_or = m;
			%},
	member-of-dl [1]
		ORName [[p m]]
			%{
			parm->dp_type = DP_MEMBER; 
			parm->dp_or = m;
			%},
	pattern-match [2]
		ORNamePattern [[p m]]
			%{
			parm->dp_type = DP_PATTERN; 
			parm->dp_or = m;
			%},
	member-of-group [3]
		Name [[p &parm->dp_dn]]
			%{
			parm->dp_type = DP_GROUP; 
			free ((char *)m);
			%}
	}		
END