This is seed.c in view mode; [Download] [Up]
/*
GNU GO - the game of Go (Wei-Chi)
Version 1.1 last revised 4-10-92
Copyright (C) Free Software Foundation, Inc.
written by Man L. Li
modified by Wayne Iba
documented by Bob Webber
NeXT port by Howard Pan
*/
/*
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation - version 1.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License in file COPYING for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
Please report any bug/fix, modification, suggestion to
mail address: Man L. Li
Dept. of Computer Science
University of Houston
4800 Calhoun Road
Houston, TX 77004
e-mail address: manli@cs.uh.edu (Internet)
coscgbn@uhvax1.bitnet (BITNET)
70070,404 (CompuServe)
*/
/*
#define IBM 8086
*/
/*
#define SUN 68000
*/
#define _NeXT_
#include <stdio.h>
#ifdef SUN
#include <sys/time.h>
#endif
#ifdef _NeXT_
#include <time.h>
#endif
#ifdef IBM
seed(i)
/* start seed of random number generator for PC */
/* Computer Innovation C86 compiler version */
int *i;
{
struct regval {int ax, bx, cx, dx, si, di, ds, es;};
struct regval sreg, rreg;
sreg.ax = 0x2c00;
sysint21(&sreg, &rreg);
*i = rreg.dx;
} /* end seed */
#endif
#ifdef SUN
seed(i)
/* start seed of random number generator for Sun */
int *i;
{
struct timeval tp;
struct timezone tzp;
gettimeofday(&tp, &tzp);
*i = tp.tv_usec;
} /* end seed */
#endif
#ifdef _NeXT_
int seed (int *i) /* Note that i is the variable where the seed is passed through */
/* This procedure uses ANSI C to generate a random seed for the NeXT */
{
time_t *tp;
tp = NULL;
*i = (int) time (tp);
} /* seed */
#endifThese are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.