!7

sS progID = #1007510;
sbool doIt;

p {
  if (eq(first(args), "doit")) doIt = true;
  
  new L<File> files;
  new Map<File, Double> ageMap;
  
  Pattern pat = Pattern.compile("^(.*)\\.backup(20\\d\\d)(\\d\\d)(\\d\\d)-(\\d\\d)$");
  for (File f : listFilesNotDirs(programDir(progID))) {
    S s = f.getName();
    Matcher matcher = pat.matcher(s);
    continue unless matcher.find();
    S originalName = matcher.group(1);
    continue unless eq(originalName, "concepts.structure.gz");
    //print("Found backup: " + sfu(matcherGroups(matcher)));
    int year = matcherInt(matcher, 2);
    int month = matcherInt(matcher, 3);
    int day = matcherInt(matcher, 4);
    int hour = matcherInt(matcher, 5);
    long time = timestampFromYMDH(year, month, day, hour);
    double age = ((now()-time)/1000.0/60/60/24;
    //print("Age: " + age + " days");
    ageMap.put(f, age);
    files.add(f);
  }
  
  int numDeleted = 0;
  sortByMap_inPlace(files, ageMap);
  double lastAge = -1;
  for (File f : files) {
    double age = ageMap.get(f);
    if (!shouldKeep(age, lastAge)) {
      //print("Deleting: " + f);
      ++numDeleted;
      if (doIt) {
        print("Deleting: " + f);
        f.delete();
      }
    } else {
      print("Keeping: " + f);
      lastAge = age;
    }
  }
  print((doIt ? "Deleted: " : "Would delete: ") + n(numDeleted, "file"));
}

// age = age in days
sbool shouldKeep(double age, double lastAge) {
  if (age <= 2) true;
  if (age >= lastAge+1) true;
  false;
}