From 30d011b5fa6d982d19d74d2a5e442a99f94a6caa Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Mon, 24 Jan 2005 19:40:35 +0000
Subject: [PATCH] Assume we have srand48()/lrand48().

---
 HISTORY    |  2 +-
 Makefile   |  9 +--------
 morse.c    | 36 +++---------------------------------
 morse.spec | 13 +++++++------
 4 files changed, 12 insertions(+), 48 deletions(-)

diff --git a/HISTORY b/HISTORY
index de716b1..4234cca 100644
--- a/HISTORY
+++ b/HISTORY
@@ -38,7 +38,7 @@ Eric S. Raymond <esr@thyrsus.com>, January 2005:
     Changed ERROR_FREQUENCY to runtime -x option.
     Changed ERROR_VOLUME to runtime -X option.
     Dropped BSD signal and tty support, it's all POSIX now.
-    Wrote the manual page.
+    QSO assumes that srand48/lrand48 is available, so morse will too.
     Wrote the manual page.
     Updated all code to use ANSI prototypes.
 
diff --git a/Makefile b/Makefile
index 288e3a3..5af8cba 100644
--- a/Makefile
+++ b/Makefile
@@ -19,22 +19,15 @@
 #DEVICE = Linux
 DEVICE = OSS
 
-#
-# For alternate random number generator, add either -DUSELRAND for lrand48(),
-#   or -DUSERAND for (ugh) rand(). Default is -DUSERANDOM for random().
-#DEFINES = -DUSELRAND
-#DEFINES = 
-
 VERS=$(shell sed <morse.spec -n -e '/Version: \(.*\)/s//\1/p')
 
 BEEPERS = beepLinux.c beepOSS.c beepX11.c
-SOURCES = alarm.c  morse.c alarm.h  beep.h  $(BEEPERS)
+SOURCES = alarm.c  morse.c alarm.h beep.h $(BEEPERS)
 MANPAGES = morse.1 QSO.1 
 DOCS = README HISTORY morse.xml morse.spec $(MANPAGES)
 ALL=  $(DOCS) Makefile $(SOURCES) test_input qso/*.[ch] qso/Makefile
 
 # The flags necessary to link with the X11 libraries.
-#X11LIBS = -L/usr/X11/lib -lX11 -lsocket -lnsl
 X11LIBS = -L/usr/X11/lib -lX11
 
 # Any additional flags your favorite C compiler requires to work.
diff --git a/morse.c b/morse.c
index 8c597cd..29af690 100644
--- a/morse.c
+++ b/morse.c
@@ -243,36 +243,6 @@ static int      error_floor = ERROR_FLOOR;
  */
 #undef FLUSHCODE
 
-/*
- * Choose your favorite random number generator!
- */
-#ifndef USERANDOM
-#ifndef USELRAND
-#ifndef USERAND
-#define USERANDOM	/* USELRAND or USERAND are the other choices */
-#endif
-#endif
-#endif
-
-#ifdef USERANDOM
-#define RANDOM()      random()
-#define SEEDRANDOM(s) srandom((int)s)
-#endif
-#ifdef USELRAND
-#define RANDOM()      lrand48()
-#define SEEDRANDOM(s) srand48((long)(s))
-long            lrand48 ();
-#endif
-#ifdef USERAND
-/*
- * UGH, are you really sure you want to use this one?
- * This one really stinks!
- */
-#define RANDOM()      rand()
-#define SEEDRANDOM(s) srand((int)(s))
-int             rand ();
-#endif
-
 static void            new_words_per_minute (void);
 static void            dowords (int c);
 static void            morse (int c);
@@ -713,7 +683,7 @@ extern time_t   time ();
     }
     else if (randomletters)
     {
-	SEEDRANDOM (time (NULL));
+	srand48(time (NULL));
 	randexp = 1. / (1. - 1. / (float) (RANDWORDLEN));
 	while (1)
 	{
@@ -727,7 +697,7 @@ extern time_t   time ();
 		/* Shift a few bits because the lower bits stink */
 		/* Add in the time so it doesn't repeat from run to run */
 		randnum = (float) (
-				   (((RANDOM () >> 9) + (long) (time (NULL))) >> 4)
+				   (((lrand48() >> 9) + (long) (time (NULL))) >> 4)
 				   & 0x00FFFFFF);
 		randnum = randnum - randexp * (int) (randnum / randexp);
 		if ((randnum >= 1.) && (linepos != 0)) dowords ((int) ' ');
@@ -1855,7 +1825,7 @@ static long     norepeat;
  */
     do
     {
-	ranspot = ((RANDOM () >> 4) % sum + norepeat) % sum;
+	ranspot = ((lrand48() >> 4) % sum + norepeat) % sum;
 
 	sum2 = 0;
 	for (ii = 0; ii < TWOFIFTYSIX - 1; ii++)
diff --git a/morse.spec b/morse.spec
index a83db22..8ad0a29 100644
--- a/morse.spec
+++ b/morse.spec
@@ -8,12 +8,13 @@ URL: http://catb.org/~esr/morse/
 Source0: %{name}-%{version}.tar.gz
 BuildRoot: %{_tmppath}/%{name}-root
 
-%description
-morse is a training program for aspiring radio hams.  It can generate
-random tests or simulated QSOs resembling those used in the ARRL test
-(a QSO generator is included).  There are a plethora of options to
-vary the training method.  In one mode, it will take text input from
-standard input and render it as more beeps.
+%description 
+morse is a Morse-code training program for aspiring radio hams.  It
+can generate random tests or simulated QSOs resembling those used in
+the ARRL test (a QSO generator is included).  There are a plethora of
+options to vary the training method.  In one of the simpler modes,
+this program will take text from standard input and render it as
+Morse-code beeps.
 
 %prep
 %setup -q
-- 
2.43.0