#!/usr/local/bin/gawk -E
#
# Given a list of names already processed by wi
#   Find those with Original Results that have a realcount > 170 and a numfound > 200
#   OR a count == -1001, realcount > 70 and numfound > 200
#

#
#  NOTE: This has not been updated to use the new Project[] path names
#

@include "init.awk"
#@include "getopt.awk"
@include "library.awk"

BEGIN{

  Optind = Opterr = 1
  while ((C = getopt(ARGC, ARGV, "l:n:")) != -1) { 
    optarg++
    if(C == "l") {
      Directory = Optarg
    }
    if(C == "n") {
      Name = Optarg
    }
  } 
  if(Directory == "" || Name == "") {
    print "\nUsage: discover -l extasciiwildfix.0301-0400.tc.in -n \"John Smith\""
  }

  command = Exe["talgo"] " -d 2 -f " Directory "/" "\"" Name "\""
  file = sys2var(command)

  c = split(file, a, "\n")
  while(i++ < c) {
    if(a[i] ~ /Original list/ ) {
      inloop = 1
      continue
    }
    if(inloop) {
      if(a[i] ~ /----/) continue
      if(a[i] !~ /tmpO@/) {
        inloop = 0
        break
      }
      # a[i] = tmpO@André_Michaux@none@5 = 26 | 30 | 35
      split(a[i], b, "|")
      split(b[1], d, "=")
      Result[strip(d[1])]["count"] = int(strip(d[2])) 
      Result[strip(d[1])]["realcount"] = int(strip(b[2])) 
      Result[strip(d[1])]["numfound"] = int(strip(b[3])) 
    }
  }

  for(o in Result) {
    if(int(Result[o]["realcount"]) >= int(170) && int(Result[o]["numfound"]) >= int(200)) 
      found = 1
    else if(int(Result[o]["count"]) == int(-1001) && int(Result[o]["realcount"]) >= int(70) && int(Result[o]["numfound"]) >= int(200))
      found = 1
  }
  if(found)  
    print Name

}