HostInfoIrix.h

Go to the documentation of this file.

//# HostInfo_irix.h: SGI Irix specific memory, swap, and CPU code.
//# $Id$

 /*
 **  This is a greatly MODIFIED version of a "top" machine dependent file.
 **  The only resemblance it bears to the original is with respect to the
 **  mechanics of finding various system details. The copyright details
 **  follow.
 **
 **  --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
 **
 **  Top users/processes display for Unix
 **  Version 3
 **
 **  This program may be freely redistributed,
 **  but this entire comment MUST remain intact.
 **
 **  Copyright (c) 1984, 1989, William LeFebvre, Rice University
 **  Copyright (c) 1989 - 1994, William LeFebvre, Northwestern University
 **  Copyright (c) 1994, 1995, William LeFebvre, Argonne National Laboratory
 **  Copyright (c) 1996, William LeFebvre, Group sys Consulting
 **  Copyright (c) 2002, Associated Universities Inc.
 */

#ifndef CASA_HOSTINFOIRIX_H
#define CASA_HOSTINFOIRIX_H

# if defined(HOSTINFO_DO_IMPLEMENT)

/*
 *          AUTHOR:       Darrell Schiebel  <drs@nrao.edu>
 *
 * ORIGINAL AUTHORS:      Sandeep Cariapa   <cariapa@sgi.com>
 *                        Larry McVoy       <lm@sgi.com>
 *                        John Schimmel     <jes@sgi.com>
 *                        Ariel Faigon      <ariel@sgi.com>
 */

#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <unistd.h>
#include <sys/stat.h>
#include <sys/swap.h>
#include <sys/sysmp.h>
#include <sys/sysinfo.h>

namespace casacore { //# NAMESPACE CASACORE - BEGIN

// <summary>
// HostInfo for IRIX machines.
// </summary>

// <use visibility=local>

// <reviewed reviewer="UNKNOWN" date="before2004/08/25" tests="" demos="">
// </reviewed>

// <prerequisite>
//   <li> <linkto class=HostInfo>HostInfo</linkto>
// </prerequisite>

// <synopsis> 
// This file provides the IRIX specific functions for HostInfo.
// It is selectively included by HostInfo.cc.
// </synopsis>
//
// <group name="HostInfo">

#define pagetok(pages) ((((uint64_t) pages) * pagesize) >> 10)

class HostMachineInfo {
friend class HostInfo;

    HostMachineInfo( );
    void update_info( );

    int valid;
    int cpus;

    ptrdiff_t swap_total;
    ptrdiff_t swap_used;
    ptrdiff_t swap_free;

    ptrdiff_t memory_total;
    ptrdiff_t memory_used;
    ptrdiff_t memory_free;

    ptrdiff_t pagesize;

};

// </group>


HostMachineInfo::HostMachineInfo( )  : valid(1) {

    pagesize = getpagesize();

    if ((cpus = sysmp(MP_NPROCS)) == -1) {
        perror("sysmp(MP_NPROCS)");
        valid = 0;
        return;
    }

    struct rminfo   realmem;
    if (sysmp(MP_SAGET, MPSA_RMINFO, &realmem, sizeof(realmem)) == -1) {
        perror("sysmp(MP_SAGET,MPSA_RMINFO, ...)");
        valid = 0;
        return;
    }

    memory_total = pagetok(realmem.physmem);
}

void HostMachineInfo::update_info( ) {
    int     i;
    struct rminfo   realmem;
    struct sysinfo  sysinfo;
    off_t       fswap;      /* current free swap in blocks */
    off_t       tswap;      /* total swap in blocks */

    swapctl(SC_GETFREESWAP, &fswap);
    swapctl(SC_GETSWAPTOT, &tswap);

    if (sysmp(MP_SAGET, MPSA_RMINFO, &realmem, sizeof(realmem)) == -1) {
        perror("sysmp(MP_SAGET,MPSA_RMINFO, ...)");
        valid = 0;
        return;
    }

    memory_free = pagetok(realmem.freemem);
    memory_used =  memory_total - memory_free;
    swap_total = tswap / 2;
    swap_free = fswap / 2;
    swap_used = swap_total - swap_free;
}

# endif

} //# NAMESPACE CASACORE - END

#endif