Return to th-enc.py CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / dsap / x500as

Initial revision

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

-- $Header: /var/lib/cvsd/repos/CSRG/43BSDReno/contrib/isode-beta/dsap/x500as/th-enc.py,v 1.1 2018/04/24 16:12:56 root Exp $
--
--
-- $Log: th-enc.py,v $
-- Revision 1.1  2018/04/24 16:12:56  root
-- Initial revision
--
-- Revision 7.0  89/11/23  21:50:54  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 encode_UNIV_PrintableString build_UNIV_PrintableString
#define encode_UNIV_IA5String 	    build_UNIV_IA5String

%}

PREFIXES encode decode print

BEGIN

ENCODER encode

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

END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.