#!/bin/sh
# \
exec wish "$0" ${1+"$@"}

# startup.tcl --
#
#	This file is the primary entry point for the 
#       TclPro Checker.
#
# Copyright (c) 1999 by Scriptics Corporation.
# See the file "license.terms" for information on usage and redistribution of this file.
# 
# RCS: @(#) $Id: startup.tcl,v 1.5 2000/10/31 23:31:04 welch Exp $

# Initialize the checker library

package require projectInfo
package require cmdline

package require checker
auto_load checker::check

# Set up hook to check TclPro license keys.
# This will be hit by checkerCmdline::init

#package require lictty
#set projectInfo::verifyCommand lictty::verify 
#set projectInfo::licenseReleaseProc lclient::release

# Process the commandline args.

set filesToCheck [checkerCmdline::init]

# load the pcx extension files

if {[configure::packageSetup] == 0} {
    exit 1
}

# Register our information gathering procedure. This replaces
# the usual silent mode with a "print to stdout" procedure.

set ::message::displayProc ::message::displayTTY

# Call the main routine that checks all the files.

analyzer::check $filesToCheck

# Release network license

#lclient::release

# Return an error code if any of the messages generated were 
# error messages.

if {[analyzer::getErrorCount] > 0} {
    exit 1
} else {
    exit
}

