regression_test/visibility/module4.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2015 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 module4 {
   9
  10 friend module module1;
  11
  12 type component Lib4_CT {
  13   var integer v_Lib4_1;
  14   public var integer v_Lib4_2;
  15   private var integer v_Lib4_3;
  16 }
  17 friend type component Lib4Friend_CT {
  18   var integer v_Lib4Friend_1;
  19   public var integer v_Lib4Friend_2;
  20   private var integer v_Lib4Friend_3;
  21 }
  22 private type component Lib4Private_CT {
  23   var integer v_Lib4Private_1;
  24   public var integer v_Lib4Private_2;
  25   private var integer v_Lib4Private_3;
  26 }
  27
  28 function f_set_Lib4_1() runs on Lib4_CT { v_Lib4_1 := 0 } //OK
  29 function f_set_Lib4_2() runs on Lib4_CT { v_Lib4_2 := 0 } //OK
  30 function f_set_Lib4_3() runs on Lib4_CT { v_Lib4_3 := 0 } //OK
  31 function f_set_Lib4Friend_1() runs on Lib4Friend_CT { v_Lib4Friend_1 := 0 } //OK
  32 function f_set_Lib4Friend_2() runs on Lib4Friend_CT { v_Lib4Friend_2 := 0 } //OK
  33 function f_set_Lib4Friend_3() runs on Lib4Friend_CT { v_Lib4Friend_3 := 0 } //OK
  34
  35 //These functions cannot be called or started outside module4, though they are public!
  36 //See module1
  37 function f_set_Lib4Private_1() runs on Lib4Private_CT { v_Lib4Private_1 := 0 } //OK
  38 function f_set_Lib4Private_2() runs on Lib4Private_CT { v_Lib4Private_2 := 0 } //OK
  39 function f_set_Lib4Private_3() runs on Lib4Private_CT { v_Lib4Private_3 := 0 } //OK
  40
  41 }//end module4