#!/usr/dist/bin/wishx -f

######################################################################
#
# klondike
#
# Copyright (C) 1993,1994 by John Heidemann <johnh@ficus.cs.ucla.edu>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. The name of John Heidemann may be used to endorse or promote products
#    derived from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY JOHN HEIDEMANN ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL JOHN HEIDEMANN BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
#
# $Id: klondike,v 1.8 1994/01/13 03:35:12 johnh Exp $
#
# $Log: klondike,v $
# Revision 1.8  1994/01/13  03:35:12  johnh
# full copyright added
#
# Revision 1.7  1994/01/13  03:17:22  johnh
# releasefile added
#
# Revision 1.6  1994/01/12  07:45:58  johnh
# checks for missing {tk,tclX} commands implemented
#
# Revision 1.5  1994/01/09  05:15:33  johnh
# table(scorefile) -> score(scorefile)
#
# Revision 1.4  1994/01/06  17:54:56  johnh
# score code added
#
# Revision 1.3  1993/06/06  06:13:16  johnh
# now reads resource database for options
#
# Revision 1.2  1993/04/13  04:47:34  johnh
# now is installable
#
# Revision 1.1  1993/04/12  07:51:46  johnh
# Initial revision
#
######################################################################


#
# Some simple version checking
# Make sure tk and tclX are both present.
#
proc dieIfLackingCommand {cmd prog} {
	global errorInfo
	catch $cmd
	if { [regexp {^invalid command name} $errorInfo] } {
		puts "Klondike requires $prog and appears to have been mis-installed without\nthis tcl extension.  See the README file for information on obtaining $prog\nand installing klondike.\n"
		exit 1
	}
}
dieIfLackingCommand {tk} "tk"
dieIfLackingCommand {random} "tclX"

set table(sourcedir) "/global/us/edu/ucla/cs/ficus/users/johnh/EXPERIMENTS/CARDS"
set table(releasefile) "$table(sourcedir)/release"
set table(bitmapdir) "@$table(sourcedir)/CARDS"
set score(scorefile) "$table(sourcedir)/SCORES/scores"
set score(writeScores) 1

source "$table(sourcedir)/klondikeRules.tcl"


