#----------------------------------------------------------------------------- 
#  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;
}