Return to send_udq.py CVS log

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

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

1.1       root        1: -- VTPM: encode UDQ PDU
                      2: 
                      3: -- $Header: /f/osi/vt/RCS/send_udq.py,v 7.0 89/11/23 22:31:45 mrose Rel $
                      4: --
                      5: --
                      6: -- $Log:       send_udq.py,v $
                      7: -- Revision 7.0  89/11/23  22:31:45  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: 
                     28: #undef PEPYPARM
                     29: #define PEPYPARM int *
                     30:     
                     31: 
                     32: %}
                     33: 
                     34: BEGIN
                     35: 
                     36: SECTIONS build none none
                     37: 
                     38: UDQpdu ::= CHOICE <<1>>
                     39: 
                     40: {
                     41:        udqpdu [7] IMPLICIT COupdate [[p (PEPYPARM)parm]]
                     42: }
                     43: 
                     44: 
                     45: COupdate 
                     46: %{
                     47:        TEXT_UPDATE     *ud = (TEXT_UPDATE *) parm;
                     48:        CO_UPDATE       *arg = (CO_UPDATE *) &(ud->updates.co_list);
                     49: %}
                     50:        ::= SEQUENCE {
                     51:                coName          PrintableString
                     52:                        [[s arg->co_name]],
                     53: 
                     54:                objectUpdate    CHOICE <<arg->co_type + 1>> {
                     55:                        characterUpdate [0] IMPLICIT PrintableString
                     56:                        [[s arg->co_cmd.char_update]],
                     57: 
                     58:                        booleanUpdate [1] IMPLICIT SEQUENCE {
                     59:                                values [0] IMPLICIT BITSTRING
                     60:                                [[x arg->co_cmd.bool_update.value $ arg->co_cmd.bool_update.val_count]],
                     61: 
                     62:                                mask [1] IMPLICIT BITSTRING
                     63:                                [[x arg->co_cmd.bool_update.mask $ arg->co_cmd.bool_update.mask_count]]
                     64:                        },
                     65: 
                     66:                        symbolicUpdate [2] IMPLICIT INTEGER
                     67:                        [[i arg->co_cmd.sym_update]],
                     68: 
                     69:                        integerUpdate [3] IMPLICIT INTEGER
                     70:                        [[i arg->co_cmd.int_update]],
                     71: 
                     72:                        bitStringUpdate [4] IMPLICIT BITSTRING
                     73:                        [[x int2strb (arg->co_cmd.bit_update.bitstring,
                     74:                                      arg->co_cmd.bit_update.bitcount)
                     75:                          $ arg->co_cmd.bit_update.bitcount]]
                     76:                }
                     77:        }
                     78: END

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