regression_test/lazyEval/lazy_defs.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 lazy_defs {
   9
  10 import from LazyASNTypes all;
  11
  12 type port My_PT message {
  13   inout charstring;
  14 } with { extension "internal"}
  15
  16 type component MyComp {
  17   port My_PT PCO;
  18   timer T1:=1.0;
  19   var integer v_i:=0
  20   var integer v_numberOfCalls:=0;
  21   var charstring v_c:="";
  22   var MyRec v_rec:= c_myRec;
  23   var float v_f:=0.0;
  24
  25 }
  26
  27 type record of integer ROI;
  28 type record of charstring ROC;
  29
  30 type record MyRec {
  31   integer i,
  32   ROI roi,
  33   boolean b
  34 }
  35 //array
  36 type boolean g[3];
  37 type integer I3[3];
  38 type float   F3[3];
  39 type charstring CS3[3];
  40
  41 //set
  42 type set SET {
  43   integer i,
  44   ROI roi,
  45   boolean b
  46 }
  47
  48 type set of charstring SOCS
  49 type enumerated EN { first, second, third }
  50 type union UNION {
  51   integer i,
  52   ROI roi,
  53   boolean b,
  54   charstring cs
  55 }
  56
  57 const charstring c_hi:= "Hi";
  58 const boolean c_b := true;
  59 const integer c_i := 1;
  60 const float c_f := 1.0;
  61 const bitstring c_bs := '1'B;
  62 const octetstring c_os:= '55'O
  63 const hexstring c_hs:='F'H
  64 const charstring c_cs := "a"
  65
  66 const MyRec c_myRec := { 10, {11,12},true };
  67 const ROC c_rocs := {"a"};
  68 const CS3 c_cs3 := {"a","b","c"};
  69 const SET c_set := { i := 10, roi := {11,12}, b:=true };
  70 const SOCS c_socs :=  {"a","b","c","d"};
  71 const EN c_enum := first
  72 const UNION c_union := { cs := "myunion" }
  73 const MyASNRecord c_asn1rec := { b:=true,i:=1,r:=1.0,bs:='1'B, os:='FF'O, cs:="a"}
  74
  75 template charstring t_hi:= "Hi";
  76 template boolean t_b := true;
  77 template integer t_i := 1;
  78 template float t_f := 1.0;
  79 template bitstring t_bs := '1'B;
  80 template octetstring t_os:= '55'O
  81 template hexstring t_hs:='F'H
  82 template charstring t_cs := "a"
  83
  84 template MyRec t_myRec := { 10, {11,12},true };
  85 template ROC t_rocs := {"a"};
  86 template CS3 t_cs3 := {"a","b","c"};
  87 template SET t_set := { i := 10, roi := {11,12}, b:=true };
  88 template SOCS t_socs :=  {"a","b","c","d"};
  89 template EN t_enum := first;
  90 template UNION t_union := { cs := "myunion" }
  91
  92 }//module