Return to rcv_udq.py CVS log

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

Annotation of 43BSDReno/contrib/isode-beta/vt/rcv_udq.py, revision 1.1.1.1

1.1       root        1: -- VTPM: decode UDQ PDU
                      2: 
                      3: -- $Header: /f/osi/vt/RCS/rcv_udq.py,v 7.0 89/11/23 22:31:39 mrose Rel $
                      4: --
                      5: --
                      6: -- $Log:       rcv_udq.py,v $
                      7: -- Revision 7.0  89/11/23  22:31:39  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: UDQPDU DEFINITIONS ::=
                     23: 
                     24: %{
                     25: #include <stdio.h>
                     26: #include "sector1.h"
                     27: #undef PEPYPARM
                     28: #define PEPYPARM int *
                     29: 
                     30: void   adios ();
                     31: 
                     32: 
                     33: #define        bitstr2int(arg,val,cnt) \
                     34: { \
                     35:     char   *cp; \
                     36:  \
                     37:     cp = bitstr2strb (arg, &cnt); \
                     38:     val = strb2int (cp, cnt); \
                     39:     free (cp); \
                     40: }
                     41: 
                     42: %}
                     43: 
                     44: BEGIN
                     45: 
                     46: SECTIONS none unbuild none
                     47: 
                     48: UDQpdu ::= CHOICE
                     49: 
                     50: {
                     51:        udqpdu [7] IMPLICIT COupdate [[p (PEPYPARM)parm]]
                     52: }
                     53: 
                     54: COupdate 
                     55: %{
                     56:        TEXT_UPDATE     *arg = (TEXT_UPDATE *)parm;
                     57: %}
                     58:        ::= SEQUENCE 
                     59: {
                     60:                coName          PrintableString
                     61:                [[s arg->updates.co_list.co_name]],
                     62: 
                     63:                objectUpdate    CHOICE {
                     64:                        characterUpdate [0] IMPLICIT PrintableString
                     65:                        [[s arg->updates.co_list.co_cmd.char_update]]
                     66:                        %{arg->updates.co_list.co_type = 0;%},
                     67: 
                     68:                        booleanUpdate [1] IMPLICIT SEQUENCE {
                     69:                                values [0] IMPLICIT BITSTRING
                     70:                                [[x arg->updates.co_list.co_cmd.bool_update.value $ arg->updates.co_list.co_cmd.bool_update.val_count]],
                     71: 
                     72:                                mask [1] IMPLICIT BITSTRING
                     73:                                [[x arg->updates.co_list.co_cmd.bool_update.mask $ arg->updates.co_list.co_cmd.bool_update.mask_count]]
                     74:                        }
                     75:                        %{arg->updates.co_list.co_type = 1;%},
                     76: 
                     77:                        symbolicUpdate [2] IMPLICIT INTEGER
                     78:                        [[i arg->updates.co_list.co_cmd.sym_update]]
                     79:                        %{arg->updates.co_list.co_type = 2;%},
                     80: 
                     81:                        integerUpdate [3] IMPLICIT INTEGER
                     82:                        [[i arg->updates.co_list.co_cmd.int_update]]
                     83:                        %{arg->updates.co_list.co_type = 3;%},
                     84: 
                     85:                        bitStringUpdate [4] IMPLICIT BITSTRING
                     86:                        %{ bitstr2int ($$,
                     87:                                       arg->updates.co_list.co_cmd.bit_update.bitstring,
                     88:                                       arg->updates.co_list.co_cmd.bit_update.bitcount);
                     89:                        arg->updates.co_list.co_type = 4;%}
                     90:                }
                     91: }
                     92: END

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