|
|
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.