regression_test/RAW/HS16977/HS16977_Types.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2014 Ericsson Telecom AB
   3  * All rights reserved. This program and the accompanying materials
   4  * are made available under the terms of the Eclipse Public License v1.0
   5  * which accompanies this distribution, and is available at
   6  * http://www.eclipse.org/legal/epl-v10.html
   7  ******************************************************************************/
   8 module HS16977_Types {
   9   import from HS16977_Constants all;
  10
  11   type record t_inner_rec {
  12     integer obj_type,
  13     integer len,
  14     t_union val
  15   } with {
  16     variant (val) "CROSSTAG(i, obj_type = c_int_choice; f, obj_type = c_float_choice;
  17        cs, obj_type = c_cs_choice; outer, obj_type = c_outer_choice; os, OTHERWISE)";
  18   }
  19
  20   type union t_union {
  21     integer i,
  22     float f,
  23     charstring cs,
  24     octetstring os,
  25     t_outer_rec outer
  26   }
  27
  28   type record t_outer_rec {
  29     integer len,
  30     t_inner_rec inner
  31   } with {
  32     variant ""
  33   }
  34
  35 } with {
  36   encode "RAW";
  37 }