git.gag.com Git - debian/atlc/blob - tests/try_portable.c

   1 /*
   2 atlc - arbitrary transmission line calculator, for the analysis of
   3 transmission lines are directional couplers.
   4
   5 Copyright (C) 2002. Dr. David Kirkby, PhD (G8WRB).
   6
   7 This program is free software; you can redistribute it and/or
   8 modify it under the terms of the GNU General Public License
   9 as published by the Free Software Foundation; either package_version 2
  10 of the License, or (at your option) any later package_version.
  11
  12 This program is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program; if not, write to the Free Software
  19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,
  20 USA.
  21
  22 Dr. David Kirkby, e-mail drkirkby@ntlworld.com
  23
  24 */
  25 /* Try to get data. This should work on just about any
  26 system going. However, the amount of data collected
  27 is not very much, so other C files, that try to
  28 get more information are about. */
  29
  30 #include "config.h"
  31
  32
  33 #ifdef HAVE_STRING_H
  34 #include <string.h>
  35 #endif
  36
  37 #ifdef HAVE_STDIO_H
  38 #include <stdio.h>
  39 #endif
  40
  41 #ifdef HAVE_STDLIB_H
  42 #include <stdlib.h>
  43 #endif
  44
  45 #ifdef HAVE_SYS_UTSNAME_H
  46 #include <sys/utsname.h>
  47 #endif
  48
  49 #ifdef HAVE_ERRNO_H
  50 #include <errno.h>
  51 #endif
  52
  53 #ifdef HAVE_UNISTD_H
  54 #include <unistd.h>
  55 #endif
  56
  57 #include "defs.h"
  58
  59 extern int errno;
  60 #define BYTES_PER_MB  1048576
  61
  62 int try_portable(struct computer_data *data)
  63 {
  64
  65 /* Check for both uname and sysconf. Any UNIX system should
  66 have both, but since someone has done a Windows port, I
  67 will start by assming neither sysconf or uname exist */
  68
  69 #ifdef _SC_PHYS_PAGES
  70 #ifdef _SC_PAGESIZE
  71 #ifdef HAVE_SYSCONF  /* Most UNIX systems have it */
  72   double ram;
  73 #endif
  74 #endif
  75 #endif
  76
  77 #ifdef HAVE_UNAME /* Most if not all UNIX system have it */
  78   int ret, i, string_length;
  79   struct utsname operating_system;
  80
  81   ret=uname(&operating_system);
  82   if (ret == -1)
  83   {
  84 #ifdef HAVE_ERRNO_H
  85     fprintf(stderr,"failure in call to uname in try_portable.c errno=%d\n", errno);
  86 #else
  87     fprintf(stderr,"failure in call to uname in try_portable.c\n");
  88 #endif /* #ifdef HAVE_ERRNO_H */
  89     return(ret);
  90   }
  91   else  /* the call to uname succeesed */
  92   {
  93     /* There is a distint posibility that some data in the operating
  94     system structure will have spaces in it. This will screw things
  95     up, since benchmark.test is expect a fixed number of arguments.
  96     Hence to avoid this, any spaces are replaced by underscores */
  97
  98     strcpy(data->sysname,operating_system.sysname);
  99     string_length=strlen(data->sysname);
 100     for(i=0;i<string_length; ++i)
 101     {
 102       if (data->sysname[i] == ' ')
 103         data->sysname[i]='_';
 104     }
 105
 106     /* nodename should be safe, but I'll take no chances */
 107     strcpy(data->nodename,operating_system.nodename);
 108     string_length=strlen(data->nodename);
 109     for(i=0;i<string_length; ++i)
 110     {
 111       if (data->nodename[i] == ' ')
 112         data->nodename[i]='_';
 113     }
 114
 115     /* not so with release */
 116     strcpy(data->release,operating_system.release);
 117     string_length=strlen(data->release);
 118     for(i=0;i<string_length; ++i)
 119     {
 120       if (data->release[i] == ' ')
 121         data->release[i]='_';
 122     }
 123
 124     /* or version */
 125     strcpy(data->version,operating_system.version);
 126     string_length=strlen(data->version);
 127     for(i=0;i<string_length; ++i)
 128     {
 129       if (data->version[i] == ' ')
 130         data->version[i]='_';
 131     }
 132
 133     strcpy(data->machine,operating_system.machine);
 134     string_length=strlen(data->machine);
 135     for(i=0;i<string_length; ++i)
 136     {
 137       if (data->machine[i] == ' ')
 138         data->machine[i]='_';
 139     }
 140   } /* end of code executed if uname() passed */
 141 #endif /* End of #ifdef HAVE_UNAME */
 142
 143 /* Try to get the number of processors online. This seems to be
 144 at least semi portable, as its used by both AIX and Solaris.
 145 */
 146
 147 #ifdef HAVE_SYSCONF  /* many systems seem to have sysconf(),
 148 which takes an integer argument and returns a long. The
 149 arugment detemines what gets returned. */
 150
 151 #ifdef _SC_NPROCESSORS_ONLN  /* Get the CPUs online */
 152     if(sysconf(_SC_NPROCESSORS_ONLN) >= 1)
 153       sprintf(data->cpus,"%ld",sysconf(_SC_NPROCESSORS_ONLN));
 154 #endif
 155
 156 #endif /* End of #ifdef HAVE_SYSCONF */
 157   return(0);
 158 }