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

######################################################################
#
# dontspace
#
# 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: dontspace,v 2.3 1994/03/25 21:57:37 johnh Exp $
#
# $Log: dontspace,v $
# Revision 2.3  1994/03/25  21:57:37  johnh
# sourcedir changed; dictionary added
#
# Revision 2.2  1994/02/21  21:57:56  johnh
# path change
#
# Revision 2.1  1994/02/14  20:46:02  johnh
# *** empty log message ***
#
#
######################################################################


#
# 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 "Dontspace requires $prog and appears to have been mis-installed without\nthis tcl extension.  See the README file for information on obtaining $prog\nand installing dontspace.\n"
		exit 1
	}
}
dieIfLackingCommand {tk} "tk"
dieIfLackingCommand {random} "tclX"

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

source "$game(sourcedir)/dontspaceRules.tcl"

main

