+
−#----------------------------------------------------------------------------- 
+
−#  Project :  
+
−#  Modul   :  gensuites.awk
+
−#----------------------------------------------------------------------------- 
+
−#  Copyright 2002 Texas Instruments Berlin, AG 
+
−#                 All rights reserved. 
+
−# 
+
−#                 This file is confidential and a trade secret of Texas 
+
−#                 Instruments Berlin, AG 
+
−#                 The receipt of or possession of this file does not convey 
+
−#                 any rights to reproduce or disclose its contents or to 
+
−#                 manufacture, use, or sell anything it may describe, in 
+
−#                 whole, or in part, without the specific written consent of 
+
−#                 Texas Instruments Berlin, AG. 
+
−#----------------------------------------------------------------------------- 
+
−#  Purpose : Extract Suites chapter from test case specification
+
−#----------------------------------------------------------------------------- 
+
−BEGIN{
+
−  out = 0;
+
−}
+
−
+
−tolower($1) == "endsuites" {
+
−  out = 0;
+
−}
+
−
+
−{
+
−  if (out)
+
−    print
+
−}
+
−
+
−/[4-9][ \t]*Suites[ \t]*$/{
+
−	out = 1;
+
−}
+
−
+
−$1 == "History:"{
+
−  if (out == 1)
+
−    printf ("*/");
+
−  out = 0;
+
−}