regression_test/visibility/module4.ttcn

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