casacore
HostInfoOsf1.h
Go to the documentation of this file.
1//# HostInfo_osf1.h: DEC OSF/1 specific memory, swap, and CPU code.
2//# $Id$
3
4 /*
5 ** This is a greatly MODIFIED version of a "top" machine dependent file.
6 ** The only resemblance it bears to the original is with respect to the
7 ** mechanics of finding various system details. The copyright details
8 ** follow.
9 **
10 ** --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
11 **
12 ** Top users/processes display for Unix
13 ** Version 3
14 **
15 ** This program may be freely redistributed,
16 ** but this entire comment MUST remain intact.
17 **
18 ** Copyright (c) 1984, 1989, William LeFebvre, Rice University
19 ** Copyright (c) 1989 - 1994, William LeFebvre, Northwestern University
20 ** Copyright (c) 1994, 1995, William LeFebvre, Argonne National Laboratory
21 ** Copyright (c) 1996, William LeFebvre, Group sys Consulting
22 ** Copyright (c) 2002, Associated Universities Inc.
23 */
24
25/*
26 * LIBS: -lmach -lpset
27 *
28 * AUTHOR: Darrell Schiebel <drs@nrao.edu>
29 *
30 * ORIGINAL AUTHOR: Anthony Baxter <anthony@aaii.oz.au>
31 * ORIGINAL CONTRIBUTORS: David S. Comay <dsc@seismo.css.gov>
32 * Claus Kalle
33 * Pat Welch <tpw@physics.orst.edu>
34 * William LeFebvre <lefebvre@dis.anl.gov>
35 * Rainer Orth <ro@techfak.uni-bielefeld.de>
36 */
37
38#ifndef CASA_HOSTINFOOSF1_H
39#define CASA_HOSTINFOOSF1_H
40
41# if defined(HOSTINFO_DO_IMPLEMENT)
42
43//
44//--> /usr/include/mach/mach_interface.h:297: <-
45//--> previous declaration of `int vm_statistics(long int, struct vm_statistics *)' with C++ linkage <-
46//
47// so, we hack this by defining _mach to kick <mach/mach_interface.h> out of inclusion,
48// and then below we make this extern "C"... likely this is fixed in some version of
49// DEC OSF/1 which is newer than what we have...
50//
51#define _mach
52
53#include <stdio.h>
54
55#include <unistd.h>
56#include <mach.h>
57#include <mach/mach_types.h>
58#include <mach/vm_statistics.h>
59#include <mach/host_info.h>
60#include <sys/table.h>
61
62namespace casacore { //# NAMESPACE CASACORE - BEGIN
63
64// <summary>
65// HostInfo for OSF1 machines.
66// </summary>
67
68// <use visibility=local>
69
70// <reviewed reviewer="UNKNOWN" date="before2004/08/25" tests="" demos="">
71// </reviewed>
72
73// <prerequisite>
74// <li> <linkto class=HostInfo>HostInfo</linkto>
75// </prerequisite>
76
77// <synopsis>
78// This file provides the OSF1 specific functions for HostInfo.
79// It is selectively included by HostInfo.cc.
80// </synopsis>
81//
82// <group name="HostInfo">
83
84extern "C" kern_return_t host_info(int, int, host_info_t, unsigned int *);
85extern "C" int host_self( );
86extern "C" int vm_statistics(long, struct vm_statistics *);
87
88/* Log base 2 of 1024 is 10 (2^10 == 1024) */
89#define LOG1024 10
90
91/* these are for getting the memory statistics */
92/* define pagetok in terms of pageshift */
93#define pagetok(size) ((size) << pageshift)
94
95class HostMachineInfo {
96friend class HostInfo;
97
98 HostMachineInfo( );
99 void update_info( );
100
101 int valid;
102 int cpus;
103
104 ptrdiff_t swap_total;
105 ptrdiff_t swap_used;
106 ptrdiff_t swap_free;
107
108 ptrdiff_t memory_total;
109 ptrdiff_t memory_used;
110 ptrdiff_t memory_free;
111
112 int pageshift; /* log base 2 of the pagesize */
113};
114
115// </group>
116
117
118HostMachineInfo::HostMachineInfo( ) : valid(1) {
119
120 int i = 0;
121 int pagesize;
122 struct tbl_sysinfo sibuf;
123
124 kern_return_t ret;
125 struct host_basic_info basic_info;
126 unsigned int count = HOST_BASIC_INFO_COUNT;
127
128 /* get the page size with "getpagesize" and calculate pageshift from it */
129 pagesize = getpagesize();
130 pageshift = 0;
131 while (pagesize > 1)
132 {
133 pageshift++;
134 pagesize >>= 1;
135 }
136
137 /* we only need the amount of log(2)1024 for our conversion */
138 pageshift -= LOG1024;
139
140 ret = host_info( host_self(), HOST_BASIC_INFO, (host_info_t) &basic_info, &count );
141 if ( ret != KERN_SUCCESS ) {
142 valid = 0;
143 } else {
144 memory_total = basic_info.memory_size / 1024;
145 cpus = basic_info.avail_cpus;
146 }
147}
148
149void HostMachineInfo::update_info( ) {
150
151 struct tbl_swapinfo swbuf;
152 vm_statistics_data_t vmstats;
153 int swappages=0,swapfree=0,i;
154
155 /* memory information */
156 /* this is possibly bogus - we work out total # pages by */
157 /* adding up the free, active, inactive, wired down, and */
158 /* zero filled. Anyone who knows a better way, TELL ME! */
159 /* Change: dont use zero filled. */
160 (void) vm_statistics(task_self(),&vmstats);
161
162 /* thanks DEC for the table() command. No thanks at all for */
163 /* omitting the man page for it from OSF/1 1.2, and failing */
164 /* to document SWAPINFO in the 1.3 man page. Lets hear it for */
165 /* include files. */
166 i=0;
167 while(table(TBL_SWAPINFO,i,&swbuf,1,sizeof(struct tbl_swapinfo))>0) {
168 swappages += swbuf.size;
169 swapfree += swbuf.free;
170 i++;
171 }
172
173 swap_total = pagetok(swappages);
174 swap_used = pagetok(swappages - swapfree);
175 swap_free = pagetok(swapfree);
176
177 memory_free = pagetok(vmstats.free_count);
178 memory_used = memory_total - memory_free;
179// some memory is left unaccounted for, using the following...
180// memory_used = pagetok(vmstats.active_count + vmstats.inactive_count + vmstats.wire_count);
181}
182
183# endif
184
185} //# NAMESPACE CASACORE - END
186
187#endif
this file contains all the compiler specific defines
Definition: mainpage.dox:28