FreeCalypso > hg > tcs211-c139

comparison gpf/BIN/gensuites.awk @ 0:509db1a7b7b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import: leo2moko-r1
author Space Falcon <falcon@ivan.Harhan.ORG>
date Mon, 01 Jun 2015 03:24:05 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:509db1a7b7b8
1 #-----------------------------------------------------------------------------
2 # Project :
3 # Modul : gensuites.awk
4 #-----------------------------------------------------------------------------
5 # Copyright 2002 Texas Instruments Berlin, AG
6 # All rights reserved.
7 #
8 # This file is confidential and a trade secret of Texas
9 # Instruments Berlin, AG
10 # The receipt of or possession of this file does not convey
11 # any rights to reproduce or disclose its contents or to
12 # manufacture, use, or sell anything it may describe, in
13 # whole, or in part, without the specific written consent of
14 # Texas Instruments Berlin, AG.
15 #-----------------------------------------------------------------------------
16 # Purpose : Extract Suites chapter from test case specification
17 #-----------------------------------------------------------------------------
18 BEGIN{
19 out = 0;
20 }
21
22 tolower($1) == "endsuites" {
23 out = 0;
24 }
25
26 {
27 if (out)
28 print
29 }
30
31 /[4-9][ \t]*Suites[ \t]*$/{
32 out = 1;
33 }
34
35 $1 == "History:"{
36 if (out == 1)
37 printf ("*/");
38 out = 0;
39 }