m3core/src/unix/linux-common/Uresource.i3


 Copyright (C) 1990, Digital Equipment Corporation.         
 All rights reserved.                                       
 See the file COPYRIGHT for a full description.             

INTERFACE Uresource;

FROM Ctypes IMPORT int, long;
FROM Utime IMPORT struct_timeval;

CONST
  RUSAGE_SELF = 0;

TYPE
There is only one use of this. C:\dev2\cm3.2\m3-libs\m3core\src\runtime\POSIX\RTProcessPosix.m3 PROCEDURE TimeUsed (): REAL = VAR usage: Uresource.struct_rusage; ret := Uresource.getrusage(Uresource.RUSAGE_SELF, usage); BEGIN <* ASSERT ret = 0 *> RETURN TimevalSecs(usage.ru_utime) + TimevalSecs(usage.ru_stime); END TimeUsed;
  struct_rusage = RECORD
    ru_utime: struct_timeval;
    ru_stime: struct_timeval;
    ru_maxrss : long;
    ru_ixrss : long;
    ru_idrss : long;
    ru_isrss : long;
    ru_minflt : long;
    ru_majflt : long;
    ru_nswap : long;
    ru_inblock : long;
    ru_oublock : long;
    ru_msgsnd : long;
    ru_msgrcv : long;
    ru_nsignals : long;
    ru_nvcsw : long;
    ru_nivcsw : long;
  END;
  struct_rusage_star = UNTRACED REF struct_rusage;

<*EXTERNAL*> PROCEDURE getrusage (who: int; VAR rus: struct_rusage): int;

END Uresource.

interface Utime is in: