--- auto.C.orig	Sat Dec  6 11:12:47 2003
+++ auto.C	Sun Jan 14 15:16:37 2007
@@ -1,5 +1,6 @@
 #include <string.h>
 #include <stdlib.h>
+#include <err.h>
 
 #include <sys/types.h>
 #include <sys/time.h>
@@ -48,11 +49,6 @@
 
 const int NumRanks = RankLast+1;
 
-void Error(char *s1 = "", char *s2 = "", char *s3 = "") {
-    cerr << "\n" << s1 << s2 << s3 << "\n";
-    exit(-1);
-}
-
 class Tableaux;
 
 inline unsigned short Fold(long l) {
@@ -146,7 +142,7 @@
 }
 
 int HashList::Add(const Hash& h) {
-    if (!this) Error("Add to NULL HashList.");
+    if (!this) errx(1, "Add to NULL HashList.");
     if (HashVal().EmptyP()) hash = h;
     else next = new HashList(h, next);
     return depth++;
@@ -198,8 +194,8 @@
     void MoveTo(CardRange&);
 };
 
-void Dest::MoveTo(Card&) { Error("Dest::MoveTo(Card&)"); }
-void Dest::MoveTo(CardRange&) { Error("Dest::MoveTo(CardRange&)"); }
+void Dest::MoveTo(Card&) { errx(1, "Dest::MoveTo(Card&)"); }
+void Dest::MoveTo(CardRange&) { errx(1, "Dest::MoveTo(CardRange&)"); }
 
 typedef void (Dest::* MoveCardToMemberFunction)(Card&);
 typedef void (Dest::* MoveCardRangeToMemberFunction)(CardRange&);
@@ -211,9 +207,9 @@
   public:
     Card(Suit suit, Rank rank) {
 	if ((suit < SuitFirst) || (suit > SuitLast))
-	    Error("Bad suit in Card constructor.");
+	    errx(1, "Bad suit %d in Card constructor.", (int)suit);
 	if ((rank < RankFirst) || (rank > RankLast))
-	    Error("Bad rank in Card constructor.");
+	    errx(1, "Bad rank %d in Card constructor.", (int)rank);
 	thisSuit = suit; thisRank = rank; empty = 0;
     }
     Card(char *st);
@@ -251,10 +247,10 @@
 Card::Card(char* st) {
     char *c;
     c = strchr(suitName, st[1]);
-    if (! c) Error("Bad suit ", st, " in Card string constructor.");
+    if (! c) errx(1, "Bad suit %c in Card string constructor.", st[1]);
     thisSuit = Suit(c-suitName);
     c = strchr(rankName, st[0]);
-    if (! c) Error("Bad rank ", st, " in Card string constructor.");
+    if (! c) errx(1, "Bad rank %c in Card string constructor.", st[0]);
     thisRank = Rank(c - rankName);
     empty = 0;
 }
@@ -272,7 +268,7 @@
     void Init(Card c, CountType count) { thisCard = c; thisCount = count; }
   public:
     CardRange(Suit s, Rank rank1, Rank rank2) {
-	if (rank2 < rank1) Error("rank2 < rank1 in CardRange constructor.");
+	if (rank2 < rank1) errx(1, "rank2 < rank1 in CardRange constructor.");
 	Init(Card(s, rank1), rank2-rank1+1);
     }
     CardRange(Suit s, Rank rank, CountType count = 1) {
@@ -287,7 +283,7 @@
     Card next() const { return thisCard.next(thisCount); }
     CountType Count() const { return thisCount; }
     void Prepend(const CardRange& cr) {
-	if (!cr.nextP(First())) Error("CardRange::Prepend, not next.");
+	if (!cr.nextP(First())) errx(1, "CardRange::Prepend, not next.");
 	thisCount += cr.Count();
 	thisCard = cr.First();
     }
@@ -413,7 +409,7 @@
 };
 
 void Spaces::MoveTo(CardRange& from) { MoveToSpace(from); }
-void Spaces::MoveTo(Card&) { Error("Spaces::MoveTo(Card&)"); }
+void Spaces::MoveTo(Card&) { errx(1, "Spaces::MoveTo(Card&)"); }
 
 const int NumPiles = 10;
 
@@ -481,7 +477,7 @@
     Dest& dest;
   public:
     Move(Dest& d) : dest(d) { }
-    virtual void DoIt() { Error("Move::DoIt()"); };
+    virtual void DoIt() { errx(1, "Move::DoIt()"); };
 };
 
 class MoveCard : public Move {
@@ -566,7 +562,7 @@
     }
 
     if ((l1==0)&&(l2==0)&&(l3==0))
-	Error("Tableaux hashes to NULL.");
+	errx(1, "Tableaux hashes to NULL.");
 }
 
 bool Tableaux::WonP() {
@@ -850,8 +846,9 @@
     for (Suit s = SuitFirst; s <= SuitLast; s = Suit(s+1))
 	for (Rank r = RankFirst; r <= RankLast; r = Rank(r+1))
 	    if (deck[s][r] != 1) {
-		cerr << "\n" << Card(s, r) << " count is " << deck[s][r];
-		Error();
+		cerr << "\n" << Card(s, r) << " count is " << deck[s][r]
+		     << endl;
+		exit(-1);
 	    }
 
     CanonicalForm();
@@ -918,7 +915,7 @@
     sprintf(savefile, "%s/.seahavensave", getenv("HOME"));
 
     ifstream in(savefile, ios::in);
-    if (!in) Error("Can't open", savefile);
+    if (!in) errx(1, "Can't open %s", savefile);
 
     Tableaux t(in);