arkouda-memory-mgmt

arkouda-memory-mgmt

module MemoryReporting {
  use IO;
  use Memory.Diagnostics;

  proc getMemory() throws {
        var aFile = open('/proc/meminfo', ioMode.r);
        var lines = aFile.reader().lines();
        var line : string;

        var memTotal:int;
        var memAvail:int;

        for line in lines do {
            if line.find('MemTotal:') >= 0 {
                writeln('MemTotal %i'.format(processLine(line,'MemTotal:')));
            }

            if line.find('MemAvailable:') >= 0 {
                writeln('MemAvailable %i'.format(processLine(line,'MemAvailable:')));
            }
        }

        writeln('Chapel MemUsed: %i'.format(getMemoryUsed()));
  }

  proc processLine(line: string, delimiter: string) throws {
      var splits = line.split(delimiter);

      for split in splits {
          if split.find('kB') >= 0 {
              var mem_splits = split.split("kB");
              return mem_splits(0):int;
          }
      }
      return 0;
  }

  proc getMemoryUsed() {
      return memoryUsed()/1000;
  }

  proc main() {
    try! getMemory();
  }
}

The chapel code get total memory, available memory, and Chapel memoryUsed: