--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gpf/BIN/gensuites.awk	Mon Jun 01 03:24:05 2015 +0000
@@ -0,0 +1,39 @@
+#----------------------------------------------------------------------------- 
+#  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;
+}