!7

p {

  int processID = nempty(args) ? parseInt(first(args)) : processID_int();

  S text = loadTextFile("/proc/" + processID + "/smaps");

  S range = null;

  new TreeMap<S, Long> rssByRange;

  for (S s : lines(text)) {

    S addr = regexpFirstGroupIC("^([0-9a-f]{1,16})-", s);

    if (addr != null) {

      addr = lpad(addr, 16, '0');

      //print("Have address: " + addr);

      S cleanedAddr = longToHex(parseUnsignedHexLong(addr) & ~((1L << 42)-1));

      //range = takeFirst(/*7*/6, addr);

      range = takeFirst(6, cleanedAddr);

      continue;

    } // else print("Not range: " + s);

    S[] p = parseColonProperty_array(s);

    if (eqic(first(p), "rss")) {

      long size = parseFirstLong(p[1]);

      if (size != 0)

        rssByRange.put(range, getOrCreate_long(rssByRange, range) + size);

    }

  }

  //pnl(rssByRange);

  for (unpair S _range, long size : mapToPairs(rssByRange)) {

    print("Address range " + rpad(_range, 16, 'x') + ": " + toK(size) + " MB");

  }

  L<Long> offendingRanges = ll(

    toLong(rssByRange.get("000004")),

    toLong(rssByRange.get("000008")),

    toLong(rssByRange.get("000010")),

    toLong(rssByRange.get("00007c")));

  long total = longSum(values(rssByRange));

  long guess = total-longMin(offendingRanges)*3;

  print("Pessimisticly guessed process size: " + toK(guess) + " MB");

}