![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to send_asr.py CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / vt|
Return to send_asr.py CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / vt |
1.1 root 1: -- VTPM: encode ASR PDU
2:
3: -- $Header: /f/osi/vt/RCS/send_asr.py,v 7.0 89/11/23 22:31:43 mrose Rel $
4: --
5: --
6: -- $Log: send_asr.py,v $
7: -- Revision 7.0 89/11/23 22:31:43 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: ASRPDU DEFINITIONS ::=
23:
24: %{
25: #include <stdio.h>
26: #include "sector1.h"
27:
28: #undef PEPYPARM
29: #define PEPYPARM int *
30:
31: #undef PEPYTEST
32:
33: static int l,m;
34:
35: #ifdef PEPYTEST
36:
37: char *myname;
38: ASR_MSG ud;
39: static char my_version = 0x01;
40: static char my_fu = 0x1c;
41:
42: main(argc,argv)
43: int argc;
44: char **argv;
45: {
46:
47: PE pe;
48: int i;
49:
50: myname = argv[0];
51:
52: ud.valid_reason = 0;
53: ud.result = 1;
54: ud.valid_imp = 0;
55: ud.valid_arg_list = 1;
56: ud.version.bitstring = my_version;
57: ud.version.bitcount = 1;
58: ud.arg_list.num_sp_param = 1;
59: ud.arg_list.num_cds_objects = 2;
60: ud.arg_list.num_css_objects = 0;
61: ud.arg_list.num_dev_objects = 0;
62: ud.arg_list.sp_val[0].param_num = 1;
63: ud.arg_list.sp_val[0].param_type = 1;
64: ud.arg_list.sp_val[0].args.int_arg = 80;
65: ud.arg_list.cds_val[0].obj_name = "KB";
66: ud.arg_list.cds_val[1].obj_name = "DI";
67: for(i=0; i<ud.arg_list.num_cds_objects; i++)
68: {
69: ud.arg_list.cds_val[i].dimensions = 0;
70: ud.arg_list.cds_val[i].valid_x_dim = 0;
71: ud.arg_list.cds_val[i].valid_y_dim = 0;
72: ud.arg_list.cds_val[i].valid_z_dim = 0;
73: ud.arg_list.cds_val[i].valid_erasure = 0;
74: ud.arg_list.cds_val[i].valid_rep_list = 1;
75: ud.arg_list.cds_val[i].valid_emp_list = 0;
76: ud.arg_list.cds_val[i].valid_fore_color = 0;
77: ud.arg_list.cds_val[i].valid_back_color = 0;
78: ud.arg_list.cds_val[i].valid_access_right = 0;
79: ud.arg_list.cds_val[i].rep_value.valid_cap = 1;
80: ud.arg_list.cds_val[i].rep_value.capability = 1;
81: ud.arg_list.cds_val[i].rep_value.num_reps = 1;
82: ud.arg_list.cds_val[i].rep_value.repertoire[0].rep_type = 2;
83: ud.arg_list.cds_val[i].rep_value.repertoire[0].rep_assign =
84: "ABC";
85: ud.arg_list.cds_val[i].rep_value.repertoire[0].valid_font_cap =
86: 0;
87: }
88: ud.func_units.bitstring = my_fu;
89: ud.func_units.bitcount = 5;
90:
91: build_ASRPDU_ASRpdu(&pe,1,NULL,NULLCP,&ud);
92:
93: print_ASRPDU_ASRpdu(pe,1,NULLIP,NULLVP,&ud);
94:
95: rcv_asr(pe);
96:
97: exit(0);
98: }
99:
100: #endif
101:
102: %}
103:
104: BEGIN
105:
106: SECTIONS build none none
107:
108: ASRpdu ::= CHOICE <<1>>
109:
110: {
111: asrpdu [1] IMPLICIT ASRcontent [[p (PEPYPARM)parm]]
112: }
113:
114: ASRcontent
115: %{
116: ASR_MSG *arg = (ASR_MSG *)parm;
117: %}
118: ::= SEQUENCE
119: {
120: userReason [0] IMPLICIT PrintableString [[s arg->reason.usr_reason]]
121: OPTIONAL <<(arg->valid_reason && (arg->reason.type == 0))>>,
122:
123: provReason [1] IMPLICIT INTEGER [[i arg->reason.provider_reason]]
124: OPTIONAL <<(arg->valid_reason && (arg->reason.type == 1))>>,
125:
126: [2] IMPLICIT INTEGER [[i arg->result]],
127:
128: [3] IMPLICIT ImplemIdent [[p (PEPYPARM)&(arg->imp_id)]]
129: OPTIONAL <<arg->valid_imp>>,
130:
131: [4] IMPLICIT BITSTRING
132: [[x int2strb (arg->version.bitstring, arg->version.bitcount)
133: $ arg->version.bitcount]],
134:
135: [5] IMPLICIT ArgumValueList [[p (PEPYPARM)&(arg->arg_list)]]
136: OPTIONAL <<arg->valid_arg_list>>,
137:
138: [6] IMPLICIT BITSTRING
139: [[x int2strb (arg->func_units.bitstring, arg->func_units.bitcount)
140: $ arg->func_units.bitcount]],
141:
142: [7] IMPLICIT INTEGER [[i arg->coll_winner]]
143: OPTIONAL <<arg->valid_coll>>
144: }
145:
146: ImplemIdent
147: %{
148: IMPLEM_ID *arg = (IMPLEM_ID *)parm;
149: %}
150: ::= SEQUENCE
151: {
152: impIdent [0] IMPLICIT OBJECT IDENTIFIER
153: [[O arg->imp_oid]]
154: OPTIONAL <<arg->oid_true>>,
155:
156: impName [1] IMPLICIT PrintableString
157: [[s arg->name]]
158: OPTIONAL <<arg->name_true>>,
159:
160: impVersion [2] IMPLICIT PrintableString
161: [[s arg->version]]
162: OPTIONAL <<arg->version_true>>
163: }
164:
165: ArgumValueList
166: %{
167: ARG_VAL_LIST *arg = (ARG_VAL_LIST *)parm;
168: %}
169: ::= SET OF <<l=0; l<(arg->num_sp_param
170: + (arg->num_cds_objects?1:0)); l++>> Goobers [[p parm]]
171:
172: Goobers
173: %{
174: ARG_VAL_LIST *arg = (ARG_VAL_LIST *)parm;
175: %}
176: ::= CHOICE <<(l < arg->num_sp_param) ? 1 : 2>>
177: {
178: [0] IMPLICIT SpecialArgs [[p (PEPYPARM)&(arg->sp_val[l])]],
179: vteParams [1] IMPLICIT ParamValueList [[p parm]]
180: }
181:
182: SpecialArgs
183: %{
184: SPECIAL_VALUE *arg = (SPECIAL_VALUE *)parm;
185: %}
186: ::= SEQUENCE
187: {
188: identifier INTEGER [[i arg->param_num]],
189: value CHOICE <<arg->param_type + 1>>
190: {
191: BOOLEAN [[b arg->args.bool_arg]],
192: INTEGER [[i arg->args.int_arg]],
193: PrintableString[[s arg->args.string_arg]]
194: }
195: }
196:
197: ParamValueList
198: %{
199: ARG_VAL_LIST *arg = (ARG_VAL_LIST *)parm;
200: %}
201: ::= SEQUENCE
202: {
203: displayObjects [0] IMPLICIT CDSValues [[p parm]]
204: OPTIONAL <<arg->num_cds_objects>>,
205:
206: -- controlObjects [1] IMPLICIT CSSValues [[p parm]]
207: -- OPTIONAL <<arg->num_css_objects>>,
208:
209: -- deviceObjects [2] IMPLICIT DEVValues [[p parm]]
210: -- OPTIONAL <<arg->num_dev_objects>>,
211:
212: deliveryControl [3] IMPLICIT INTEGER
213: [[i arg->del_ctrl]]
214: OPTIONAL <<arg->del_ctrl>>
215: }
216:
217: --Note Problem with IMPLICIT SEQUENCE Definition below. PEPY does not accept
218: --it as defined in 9041 and in fact that definition is ridiculous. At the
219: --moment it is not clear if even hand coding available in ISODE 3.0 can
220: --produce the requirement of 9041.
221:
222: CDSValues
223: %{
224: ARG_VAL_LIST *arg = (ARG_VAL_LIST *)parm;
225: %}
226: ::= SET OF <<l=0; l<arg->num_cds_objects; l++>> SEQUENCE
227: {
228: objectName PrintableString
229: [[s arg->cds_val[l].obj_name]],
230:
231: ObjectOffer [[p (PEPYPARM)&(arg->cds_val[l])]]
232: }
233:
234: CSSValues ::= NULL --Unused for now--
235:
236: DEVValues ::= NULL --Unused for now--
237:
238: ObjectOffer
239: %{
240: CDS_VALUE *arg = (CDS_VALUE *)parm;
241: %}
242: ::= SEQUENCE
243: {
244: dimensionValue [0] IMPLICIT INTEGER
245: [[i arg->dimensions]]
246: OPTIONAL <<arg->dimensions>>,
247:
248: xParamValue [1] IMPLICIT DimValue [[p
249: (PEPYPARM)&(arg->x_dim)]]
250: OPTIONAL <<arg->valid_x_dim>>,
251:
252: yParamValue [2] IMPLICIT DimValue [[p (PEPYPARM)&(arg->y_dim)]]
253: OPTIONAL <<arg->valid_y_dim>>,
254:
255: zParamValue [3] IMPLICIT DimValue [[p (PEPYPARM)&(arg->z_dim)]]
256: OPTIONAL <<arg->valid_z_dim>>,
257:
258: -- erasurevalue [4] IMPLICIT BOOLEAN
259: -- [[b arg->erasure]]
260: -- OPTIONAL <<arg->valid_erasure>>,
261:
262: repValueList [5] IMPLICIT CompRepValue [[p (PEPYPARM)&(arg->rep_value)]]
263: OPTIONAL <<arg->valid_rep_list>>,
264:
265: -- empValueList [6] IMPLICIT CompEmpValue [[p (PEPYPARM)&(arg->emp_value)]]
266: -- OPTIONAL <<arg->valid_emp_list>>,
267:
268: -- foreColorVal [7] IMPLICIT ColorValue [[p (PEPYPARM)&(arg->fore_color_list)]]
269: -- OPTIONAL <<arg->valid_fore_color>>,
270:
271: -- backColorVal [8] IMPLICIT ColorValue [[p (PEPYPARM)&(arg->back_color_list)]]
272: -- OPTIONAL <<arg->valid_back_color>>,
273:
274: objectAccRight [9] IMPLICIT INTEGER
275: [[i arg->access_right]]
276: OPTIONAL <<arg->valid_access_right>>
277: }
278:
279: DimValue
280: %{
281: DIMEN_VALUE *arg = (DIMEN_VALUE *)parm;
282: %}
283: ::= SEQUENCE
284: {
285: bound [0] CHOICE
286: <<arg->bound_type>>
287: {
288: unbounded NULL,
289:
290: limit INTEGER
291: [[i arg->bound]]
292: }
293: OPTIONAL <<arg->bound_type>>,
294:
295: addressing [1] IMPLICIT INTEGER
296: [[i arg->addressing]]
297: OPTIONAL <<arg->valid_addr>>,
298:
299: absolute [2] IMPLICIT INTEGER
300: [[i arg->absolute]]
301: OPTIONAL <<arg->valid_abs>>,
302:
303: window [3] CHOICE
304: <<arg->window_type>>
305: {
306: unbounded NULL,
307:
308: limit INTEGER
309: [[i arg->window]]
310: }
311: OPTIONAL <<arg->window_type>>
312: }
313:
314: CompRepValue
315: %{
316: REP_VALUE *arg = (REP_VALUE *)parm;
317: %}
318: ::= SEQUENCE
319: {
320: repCapability [0] IMPLICIT INTEGER
321: [[i arg->capability]]
322: OPTIONAL <<arg->valid_cap>>,
323:
324: [1] IMPLICIT SEQUENCE OF <<m=0; m<arg->num_reps; m++>>
325: RepFontValue [[p (PEPYPARM)&(arg->repertoire[m])]]
326: OPTIONAL <<arg->num_reps>>
327: }
328:
329: RepFontValue
330: %{
331: int i;
332: FONT_VALUE *arg = (FONT_VALUE *)parm;
333: %} ::=
334: CHOICE <<arg->rep_type>>
335: {
336: NULL,
337:
338: SEQUENCE
339: {
340: repertoire [0] IMPLICIT PrintableString
341: [[s arg->rep_assign]]
342: OPTIONAL <<arg->rep_assign>>,
343:
344: fontCapability [1] IMPLICIT INTEGER
345: [[i arg->capability]]
346: OPTIONAL <<arg->valid_font_cap>>,
347:
348: [2] IMPLICIT SEQUENCE OF
349: <<i=0; i<arg->num_fonts; i++>>
350: PrintableString
351: [[s arg->font_names[i] ]]
352: OPTIONAL <<arg->num_fonts>>
353: }
354: }
355:
356: --CompEmpValue
357: --%{
358: -- int i;
359: -- EMP_VALUE *arg = (EMP_VALUE *)parm;
360: --%} ::= SEQUENCE
361: --{
362: -- empCap [0] IMPLICIT INTEGER
363: -- [[i arg->capability]]
364: -- OPTIONAL <<arg->valid_cap>>,
365:
366: -- SEQUENCE OF <<i=0; i<arg->num_emps; i++>>
367: -- PrintableString
368: -- [[s arg->emp_string[i] ]]
369: -- OPTIONAL <<arg->num_emps>>
370: --}
371:
372: --ColorValue
373: --%{
374: -- int i;
375: -- COLOR_VALUE *arg = (COLOR_VALUE *)parm;
376: --%} ::= SEQUENCE
377: --{
378: -- colorCap [0] IMPLICIT INTEGER
379: -- [[i arg->capability]]
380: -- OPTIONAL <<arg->valid_cap>>,
381:
382: -- colorNames SEQUENCE OF <<i=0; i<arg->num_colors; i++>>
383: -- PrintableString
384: -- [[s arg->color_string[i] ]]
385: -- OPTIONAL <<arg->num_colors>>
386: --}
387:
388: END
389:
390: %{
391:
392: #ifdef PEPYTEST
393:
394: void advise(what,fmt,a,b,c,d,e,f,g,h,i,j)
395: char *what, *fmt, *a, *b, *c, *d, *e, *f, *g, *h, *i, *j;
396: {
397:
398: (void) fflush(stdout);
399:
400: fprintf(stderr,"%s: ",myname);
401: fprintf(stderr,fmt,a,b,c,d,e,f,g,h,i,j);
402: if(what)
403: (void) fputc(' ',stderr),perror(what);
404: else
405: (void) fputc('\n',stderr);
406: (void)fflush(stderr);
407: }
408:
409: testdebug(pe,words)
410: PE pe; /*Not Really, but pretend*/
411: char *words;
412: {
413:
414: printf("%s \n",words);
415: }
416:
417: #endif
418:
419: %}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.