#!/usr/bin/perl

#
# Look for the diagnostics needed for acceptance tests.

@diags = (
	"maindec-501",
	"maindec-502",
	"maindec-503",
	"maindec-510",
	"maindec-512",
	"maindec-514",
	"maindec-801",
	"maindec-801",
	"maindec-801",
	"maindec-801-1",
	"maindec-801-2b",
	"maindec-802",
	"maindec-802",
	"maindec-803",
	"maindec-810",
	"maindec-810",
	"maindec-810a",
	"maindec-811",
	"maindec-811",
	"maindec-812",
	"maindec-812",
	"maindec-814",
	"maindec-814",
	"maindec-817",
	"maindec-817",
	"maindec-820",
	"maindec-820-1",
	"maindec-820-2",
	"maindec-08-d02a",
	"maindec-08-d02a",
	"maindec-08-d02b",
	"maindec-08-d04b",
	"maindec-08-d04b",
	"maindec-08-d04b",
	"maindec-08-d05b",
	"maindec-08-d05b",
	"maindec-08-d05b",
	"maindec-08-d07b",
	"maindec-08-d07b",
	"maindec-08-d07b",
	"maindec-08-d0ua",
	"maindec-08-d1ac",
	"maindec-08-d1b0",
	"maindec-08-d1b0",
	"maindec-08-d1b1",
	"maindec-08-d1b2",
	"maindec-08-d1eb",
	"maindec-08-d1gb",
	"maindec-08-d1j0",
	"maindec-08-d1j0",
	"maindec-08-d1l1",
	"maindec-08-d1l2",
	"maindec-08-d2fc",
	"maindec-08-d2ge",
	"maindec-08-d2pe",
	"maindec-08-d2qd",
	"maindec-08-dhlqa-b",
	"maindec-08-dilac-b",
	"maindec-08-dirxa-d",
	"maindec-08-dirxb-e",
	"maindec-08-djdka",
	"maindec-08-djexa",
	"maindec-08-djexb",
	"maindec-08-djexc-b",
	"maindec-08-djkka",
	"maindec-08-djkma",
	"maindec-08-djmma",
	"maindec-08-djmsa",
	"maindec-08-dkvta-a",
	"maindec-08-dkvtb-a",
	"maindec-12-d0ab",
	"maindec-12-d0ba",
	"maindec-12-d0ca",
	"maindec-12-d1ba",
	"maindec-12-d1da",
	"maindec-12-d1ea",
	"maindec-12-d3ac",
	"maindec-12-d3ae",
	"maindec-12-d6ba",
	"maindec-12-d6cb",
	"maindec-12-d8ab",
	"maindec-8e-d0aa",
	"maindec-8e-d0ba",
	"maindec-8e-d0ca",
	"maindec-8e-d0da",
	"maindec-8e-d0ea",
	"maindec-8e-d0fa",
	"maindec-8e-d0ga",
	"maindec-8e-d0ha",
	"maindec-8e-d0ia",
	"maindec-8e-d0ja",
	"maindec-8e-d2aa",
	"maindec-8e-dlaa",
	"maindec-8e-dlea",
	"maindec-8i-d01b",
	"maindec-8i-d01c",
	"maindec-8i-d02b",
	"maindec-8i-d02b",
	"maindec-8i-d02b",
	"maindec-8i-d0aa",
	"maindec-8i-d0ba",
	"maindec-8i-d2pb",
	"maindec-8i-d2pb",
	"maindec-8i-d2qb",
	"maindec-8i-d2qb",
	"maindec-8i-d2rb",
	"maindec-8i-d2rb",
	"maindec-8i-d2tb",
	"maindec-8i-d2tb",
	"maindec-8i-do1c",
	"maindec-8s-d01a",
	"maindec-8s-d02a",
	"maindec-8s-d03a",
	"maindec-8s-d04a",
	"maindec-8s-d05a",
	"maindec-8s-d06a",
	"maindec-8s-d07a",
	"maindec-8s-d11a",
	"maindec-8s-d11j",
);

foreach $d (@diags) {
  next if -f <diags/$d*>;
warn "Looking for $d\n";
  print "ls ~/pdp8/src/dec/*/$d*pb\n" if -f <~/pdp8/src/dec/*/$d*-pb>;
  if (-f <~/pdp8/src/dec/*/$d*-pm>) {
    print "ls ~/pdp8/src/dec/*/$d*pm\n";
  }
  if (-f <~/pdp8/src/dec/*/$d*.pdf>) {
    print "ls ~/pdp8/src/dec/*/$d*pdf\n";
  } else {
    print "Missing $d\n";
  }
}