| #/////////////////////////////////////////////////////////////////////////////// |
| #// Copyright (c) 2000-2017 Ericsson Telecom AB // |
| #// // |
| #// All rights reserved. This program and the accompanying materials // |
| #// are made available under the terms of the Eclipse Public License v1.0 // |
| #// which accompanies this distribution, and is available at // |
| #// http://www.eclipse.org/legal/epl-v10.html // |
| #/////////////////////////////////////////////////////////////////////////////// |
| BEGIN { |
| FS="\"|,[ \t]*|[ \t]+|[()]+|:[ \t]*" |
| } |
| |
| #TTCN_Location current_location("EPTF_CLL_Base_Functions.ttcn", 97, TTCN_Location::LOCATION_FUNCTION, "f_EPTF_Base_init_CT"); |
| # $1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 |
| /TTCN_Location current_location/ { |
| #ignore pre_init_module (lineno==0), because the modulepar of the TTCN3Coverage was not created there: |
| if ($6==0) { |
| next; |
| } |
| # print "x"$1,"x"$2,"x"$3,"x"$4,"x5"$5,"x"$6,"x"$7,"x"$8,"x"$9,"x10"$10,"x"$11 |
| if (fns[$4":"$6]==0 && modulefns[$11" "$4]==0) { |
| fns[$4":"$6]=$11 |
| modulefns[$11" "$4]=$6 |
| print ("f: "$11" "$4":"$6) |
| } |
| } |
| |
| #function references from TTCN3Coverage.fns: |
| # Example line: |
| #f: f_EPTF_Var_getContent EPTF_CLL_Variable_Functions.ttcn:1828 |
| #$1 $2 $3 $4 |
| /^f:/ { |
| #print "functions: " $2" at "$3":"$4 |
| if (fns[$3":"$4]==0 && modulefns[$2" "$3]==0) { |
| fns[$3":"$4]=$2 # maps code lines to functions names |
| modulefns[$2" "$3]=$4 |
| print ("f: "$2" "$3":"$4) |
| } |
| } |
| |
| END { |
| } |
