comparison src/fns.c @ 350:80a890dbbeb5

*** empty log message ***

349:feacf757c5b2

#include <nlist.h>
#endif /* NLIST_STRUCT */
#endif /* not VMS */
#endif /* LOAD_AVE_TYPE */

/* Note on some machines this defines `vector' as a typedef,
   so make sure we don't use that name in this file.  */
#undef vector
#define vector *****

    }
  UNGCPRO;
}

/* Avoid static vars inside a function since in HPUX they dump as pure.  */
static int ldav_initialized;
static int ldav_channel;
#ifdef LOAD_AVE_TYPE
#ifndef VMS
static struct nlist ldav_nl[2];

#endif /* LOAD_AVE_TYPE */

#define channel ldav_channel
#define initialized ldav_initialized
#define nl ldav_nl

DEFUN ("load-average", Fload_average, Sload_average, 0, 0, 0,
  "Return list of 1 minute, 5 minute and 15 minute load averages.\n\
Each of the three load averages is multiplied by 100,\n\
then converted to integer.")
  ()
{
#ifndef LOAD_AVE_TYPE
  error ("load-average not implemented for this operating system");

#else /* LOAD_AVE_TYPE defined */

  return Fcons (make_number (LOAD_AVE_CVT (load_ave[0])),
		Fcons (make_number (LOAD_AVE_CVT (load_ave[1])),
		       Fcons (make_number (LOAD_AVE_CVT (load_ave[2])),
			      Qnil)));
#endif /* LOAD_AVE_TYPE */
}

#undef channel
#undef initialized
#undef nl

350:80a890dbbeb5

#include <nlist.h>
#endif /* NLIST_STRUCT */
#endif /* not VMS */
#endif /* LOAD_AVE_TYPE */

#ifdef DGUX
#include <sys/dg_sys_info.h>  /* for load average info - DJB */
#endif

/* Note on some machines this defines `vector' as a typedef,
   so make sure we don't use that name in this file.  */
#undef vector
#define vector *****

    }
  UNGCPRO;
}

/* Avoid static vars inside a function since in HPUX they dump as pure.  */
#ifdef DGUX
static struct dg_sys_info_load_info load_info;  /* what-a-mouthful! */

#else /* Not DGUX */

static int ldav_initialized;
static int ldav_channel;
#ifdef LOAD_AVE_TYPE
#ifndef VMS
static struct nlist ldav_nl[2];

#endif /* LOAD_AVE_TYPE */

#define channel ldav_channel
#define initialized ldav_initialized
#define nl ldav_nl
#endif /* Not DGUX */

DEFUN ("load-average", Fload_average, Sload_average, 0, 0, 0,
  "Return list of 1 minute, 5 minute and 15 minute load averages.\n\
Each of the three load averages is multiplied by 100,\n\
then converted to integer.")
  ()
{
#ifdef DGUX
  /* perhaps there should be a "sys_load_avg" call in sysdep.c?! - DJB */
  load_info.one_minute     = 0.0;	/* just in case there is an error */
  load_info.five_minute    = 0.0;
  load_info.fifteen_minute = 0.0;
  dg_sys_info (&load_info, DG_SYS_INFO_LOAD_INFO_TYPE,
	       DG_SYS_INFO_LOAD_VERSION_0);

  return Fcons (make_number ((int)(load_info.one_minute * 100.0)),
		Fcons (make_number ((int)(load_info.five_minute * 100.0)),
		       Fcons (make_number ((int)(load_info.fifteen_minute * 100.0)),
			      Qnil)));
#else /* not DGUX */
#ifndef LOAD_AVE_TYPE
  error ("load-average not implemented for this operating system");

#else /* LOAD_AVE_TYPE defined */

  return Fcons (make_number (LOAD_AVE_CVT (load_ave[0])),
		Fcons (make_number (LOAD_AVE_CVT (load_ave[1])),
		       Fcons (make_number (LOAD_AVE_CVT (load_ave[2])),
			      Qnil)));
#endif /* LOAD_AVE_TYPE */
#endif /* not DGUX */
}

#undef channel
#undef initialized
#undef nl