Net2/usr/src/contrib/isode/dsap/x500as/if.py
-- if-enc.py - manually-augmented InformationFramework module
-- $Header: /f/osi/dsap/x500as/RCS/if.py,v 7.1 91/02/22 09:21:59 mrose Interim $
--
--
-- $Log: if.py,v $
-- Revision 7.1 91/02/22 09:21:59 mrose
-- Interim 6.8
--
-- Revision 7.0 90/12/06 07:34:46 mrose
-- *** empty log message ***
--
-- Revision 7.0 89/11/23 21:50:41 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.
--
--
IF
{
joint-iso-ccitt
ds(5)
modules(1)
informationFramework(1)
}
DEFINITIONS ::=
PREFIXES encode decode print
BEGIN
-- EXPORTS
-- AttributeType,
-- AttributeValue,
-- AttributeValueAssertion,
-- Attribute,
-- RelativeDistinguishedName,
-- DistinguishedName,
-- Name;
AttributeType [[P oid_table_attr *]] ::=
OBJECT IDENTIFIER [[ O oa_ot.ot_oid ]] [[ D dec_at ]]
AttributeValue [[P attrVal *]]
::= %D{
*parm = AttrV_alloc();
%} ANY [[a av_struct ]] [[ E grab_pe1 ]]
AttributeValueAssertion [[P AVA *]]
::= SEQUENCE {
AttributeType [[p parm->ava_type]],
AttributeValue [[p parm->ava_value]] [[ D dec_av1 ]]
}
Attribute [[P attrcomp *]] ::=
SEQUENCE {
type AttributeType [[p parm->attr_type]],
values D-AValues [[ p attr_value ]] %D{
/* Decode and merge */
AV_Sequence avs;
AV_Sequence avs_next;
AV_Sequence newavs = NULLAV;
extern AttrT_print ();
extern LLog * log_dsap;
for (avs=(*parm)->attr_value; avs != NULLAV; avs = avs_next) {
avs_next = avs->avseq_next;
avs->avseq_next = NULLAV;
if (AttrV_decode ((*parm)->attr_type,&avs->avseq_av) != OK) {
pslog (log_dsap,LLOG_EXCEPTIONS,
"AttrV_decode failed",
AttrT_print, (caddr_t) (*parm)->attr_type);
return NOTOK;
}
newavs = avs_merge (avs,newavs);
}
(*parm)->attr_value = newavs;
%}
}
-- Dummy type introduced to avoid the ambiguity in the grammer for function
-- calls
D-AValues [[ P avseqcomp * ]] ::=
SET OF <<avseq_next>>
AttributeValue [[a avseq_av.av_struct ]] [[ E grab_pe2 ]]
RelativeDistinguishedName [[P rdncomp * ]]
::=
SET OF [[ T rdncomp * $ * ]] <<rdn_next>>
-- AttributeValueAssertion [[p ava_temp]]
SEQUENCE [[ T rdncomp * $ * ]]
{
AttributeType [[p parm->rdn_at]],
AttributeValue [[a parm->rdn_av.av_struct ]]
[[ E grab_pe3 ]]
} %D{
/* Decode and merge */
RDN rdn;
RDN rdn_next;
RDN newrdn = NULLRDN;
extern AttrT_print ();
extern LLog * log_dsap;
for (rdn=(*parm); rdn != NULLRDN; rdn = rdn_next) {
rdn_next = rdn->rdn_next;
rdn->rdn_next = NULLRDN;
if (AttrV_decode (rdn->rdn_at,&rdn->rdn_av) != OK) {
pslog (log_dsap,LLOG_EXCEPTIONS,
"AttrV_decode failed",
AttrT_print, (caddr_t) rdn->rdn_at);
return NOTOK;
}
newrdn = rdn_merge (newrdn,rdn);
}
*parm = newrdn;
%}
RDNSequence [[P dncomp *]] ::=
SEQUENCE OF [[ T dncomp * $ * ]]
<<dn_parent>>
RelativeDistinguishedName [[p dn_rdn]]
DistinguishedName [[P dncomp *]]
::=
RDNSequence [[p *]]
Name [[P dncomp *]]
::=
-- Remove choice for efficiency - ASN.1 is the same
-- CHOICE <D<0>><E<1>>
-- {
RDNSequence [[p *]]
-- }
END
%{
PE grab_pe();
grab_pe1 (parm,ppe)
attrVal *parm;
PE *ppe;
{
if (*ppe = grab_pe (parm))
return OK;
else
return NOTOK;
}
grab_pe2 (parm,ppe)
avseqcomp * parm;
PE *ppe;
{
if (*ppe = grab_pe (&parm->avseq_av))
return OK;
else
return NOTOK;
}
grab_pe3 (parm,ppe)
rdncomp * parm;
PE *ppe;
{
if (*ppe = grab_pe (&parm->rdn_av))
return OK;
else
return NOTOK;
}
dec_av1 (parm,pe)
AVA ** parm;
PE pe;
{
int res;
extern AttrT_print ();
extern LLog * log_dsap;
(*parm)->ava_value = AttrV_alloc ();
(*parm)->ava_value->av_syntax = 0;
(*parm)->ava_value->av_struct = (caddr_t) pe;
pe->pe_refcnt++;
if ((res = AttrV_decode ((*parm)->ava_type,(*parm)->ava_value)) != OK)
pslog (log_dsap,LLOG_EXCEPTIONS,
"AttrV_decode failed",
AttrT_print, (caddr_t) (*parm)->ava_type);
return res;
}
dec_at (parm,pe)
oid_table_attr ** parm;
PE pe;
{
OID oid;
oid_table_attr * AttrT_decode_aux();
if (oid = prim2oid (pe)) {
oid = oid_cpy (oid);
*parm = AttrT_decode_aux (oid);
oid_free (oid);
}
}
#ifndef lint
#undef encode_IF_AttributeType
int encode_IF_AttributeType(pe, top, len, buffer, parm)
PE *pe;
int top,
len;
char *buffer;
struct type_IF_AttributeType *parm;
{
return (enc_f(_ZAttributeTypeIF, &_ZIF_mod, pe, top, len, buffer,
(char *) parm));
}
#undef decode_IF_AttributeType
int decode_IF_AttributeType(pe, top, len, buffer, parm)
PE pe;
int top,
*len;
char **buffer;
struct type_IF_AttributeType **parm;
{
return (dec_f(_ZAttributeTypeIF, &_ZIF_mod, pe, top, len, buffer,
(char **) parm));
}
#undef encode_IF_AttributeValue
int encode_IF_AttributeValue(pe, top, len, buffer, parm)
PE *pe;
int top,
len;
char *buffer;
struct type_IF_AttributeValue *parm;
{
return (enc_f(_ZAttributeValueIF, &_ZIF_mod, pe, top, len, buffer,
(char *) parm));
}
#undef decode_IF_AttributeValue
int decode_IF_AttributeValue(pe, top, len, buffer, parm)
PE pe;
int top,
*len;
char **buffer;
struct type_IF_AttributeValue **parm;
{
return (dec_f(_ZAttributeValueIF, &_ZIF_mod, pe, top, len, buffer,
(char **) parm));
}
#undef encode_IF_DistinguishedName
int encode_IF_DistinguishedName(pe, top, len, buffer, parm)
PE *pe;
int top,
len;
char *buffer;
struct type_IF_DistinguishedName *parm;
{
return (enc_f(_ZDistinguishedNameIF, &_ZIF_mod, pe, top, len, buffer,
(char *) parm));
}
#undef decode_IF_DistinguishedName
int decode_IF_DistinguishedName(pe, top, len, buffer, parm)
PE pe;
int top,
*len;
char **buffer;
struct type_IF_DistinguishedName **parm;
{
return (dec_f(_ZDistinguishedNameIF, &_ZIF_mod, pe, top, len, buffer,
(char **) parm));
}
#undef encode_IF_Name
int encode_IF_Name(pe, top, len, buffer, parm)
PE *pe;
int top,
len;
char *buffer;
struct type_IF_Name *parm;
{
return (enc_f(_ZNameIF, &_ZIF_mod, pe, top, len, buffer,
(char *) parm));
}
#undef decode_IF_Name
int decode_IF_Name(pe, top, len, buffer, parm)
PE pe;
int top,
*len;
char **buffer;
struct type_IF_Name **parm;
{
return (dec_f(_ZNameIF, &_ZIF_mod, pe, top, len, buffer,
(char **) parm));
}
#endif
%}