-- th-dec.py - Thorn and RARE defined attribute sytaxes

-- $Header: /var/lib/cvsd/repos/CSRG/43BSDReno/contrib/isode-beta/dsap/x500as/th-dec.py,v 1.1.1.1 2018/04/24 16:12:56 root Exp $
--
--
-- $Log: th-dec.py,v $
-- Revision 1.1.1.1  2018/04/24 16:12:56  root
-- BSD 4.3reno
--
-- Revision 7.0  89/11/23  21:50:53  mrose
-- Release 6.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.
--
--


Thorn
	{
	ccitt
	data(9)
	pss(2342)
	ucl(19200300)
	thorn(100)
	directoryDefinitions(1)
	}

DEFINITIONS ::=

%{
#include <stdio.h>
#include "quipu/util.h"
#include "quipu/entry.h"

extern  LLog    * log_dsap;

#define decode_UNIV_PrintableString parse_UNIV_PrintableString
#define decode_UNIV_IA5String 	    parse_UNIV_IA5String

%}

PREFIXES encode decode print

BEGIN

DECODER decode

MailBox [[P struct mailbox *]]
        ::=
        %{
                DLOG(log_dsap, LLOG_TRACE, ("About to decode MailBox"));
        %}
        SEQUENCE
        {
	mailboxType
		PrintableString [[s  parm->mtype]],
	mailbox
		IA5String	[[s  parm->mbox]]
        }
        %{
                DLOG(log_dsap, LLOG_TRACE, ("Done decode MailBox"));
        %}

END