+struct A
+{
+ int which;
+ union
+ {
+ int *b; /* integer */
+ char *c; /* visstring */
+ } u;
+};
+
+int f_A(ODR o, struct A **p, int opt)
+{
+ int res;
+ Odr_arm arm[] =
+ {
+ { -1, -1, -1, 0, (Odr_fun) odr_integer },
+ { ODR_IMPLICIT, ODR_CONTEXT, 200, 1, (Odr_fun) odr_visiblestring },
+ { -1, -1, -1, -1, 0 }
+ };
+
+ if (o->direction == ODR_DECODE && !*p)
+ *p = odr_malloc(o, sizeof(**p));
+ res = odr_choice(o, arm, &(*p)->u, &(*p)->which);
+ if (!res)
+ {
+ *p = 0;
+ return opt;
+ }
+ return 1;
+}
+
+#if 0