FreeCalypso > hg > tcs211-c139
view gpf/BIN/gensuites.awk @ 0:509db1a7b7b8
initial import: leo2moko-r1
author | Space Falcon <falcon@ivan.Harhan.ORG> |
---|---|
date | Mon, 01 Jun 2015 03:24:05 +0000 |
parents | |
children |
line wrap: on
line source
#----------------------------------------------------------------------------- # 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; }