Return to th-dec.py CVS log

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

Annotation of 43BSDReno/contrib/isode-beta/dsap/x500as/th-dec.py, revision 1.1.1.1

1.1       root        1: -- th-dec.py - Thorn and RARE defined attribute sytaxes
                      2: 
                      3: -- $Header: /f/osi/dsap/x500as/RCS/th-dec.py,v 7.0 89/11/23 21:50:53 mrose Rel $
                      4: --
                      5: --
                      6: -- $Log:       th-dec.py,v $
                      7: -- Revision 7.0  89/11/23  21:50:53  mrose
                      8: -- Release 6.0
                      9: -- 
                     10: 
                     11: --
                     12: --                               NOTICE
                     13: --
                     14: --    Acquisition, use, and distribution of this module and related
                     15: --    materials are subject to the restrictions of a license agreement.
                     16: --    Consult the Preface in the User's Manual for the full terms of
                     17: --    this agreement.
                     18: --
                     19: --
                     20: 
                     21: 
                     22: Thorn
                     23:        {
                     24:        ccitt
                     25:        data(9)
                     26:        pss(2342)
                     27:        ucl(19200300)
                     28:        thorn(100)
                     29:        directoryDefinitions(1)
                     30:        }
                     31: 
                     32: DEFINITIONS ::=
                     33: 
                     34: %{
                     35: #include <stdio.h>
                     36: #include "quipu/util.h"
                     37: #include "quipu/entry.h"
                     38: 
                     39: extern  LLog    * log_dsap;
                     40: 
                     41: #define decode_UNIV_PrintableString parse_UNIV_PrintableString
                     42: #define decode_UNIV_IA5String      parse_UNIV_IA5String
                     43: 
                     44: %}
                     45: 
                     46: PREFIXES encode decode print
                     47: 
                     48: BEGIN
                     49: 
                     50: DECODER decode
                     51: 
                     52: MailBox [[P struct mailbox *]]
                     53:         ::=
                     54:         %{
                     55:                 DLOG(log_dsap, LLOG_TRACE, ("About to decode MailBox"));
                     56:         %}
                     57:         SEQUENCE
                     58:         {
                     59:        mailboxType
                     60:                PrintableString [[s  parm->mtype]],
                     61:        mailbox
                     62:                IA5String       [[s  parm->mbox]]
                     63:         }
                     64:         %{
                     65:                 DLOG(log_dsap, LLOG_TRACE, ("Done decode MailBox"));
                     66:         %}
                     67: 
                     68: END

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