From: Ron F. <ro...@us...> - 2007-04-02 15:56:22
|
Update of /cvsroot/nsclspectcl/SpecTcl/SpecTcl In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv23345/SpecTcl Modified Files: Tag: SpecTcl-3-1-maintenance TclGrammerApp.cpp Log Message: Final commit prior to distro build for APril 2007 shutdown. Index: TclGrammerApp.cpp =================================================================== RCS file: /cvsroot/nsclspectcl/SpecTcl/SpecTcl/TclGrammerApp.cpp,v retrieving revision 5.4.2.1 retrieving revision 5.4.2.2 diff -C2 -d -r5.4.2.1 -r5.4.2.2 *** TclGrammerApp.cpp 10 Oct 2006 15:24:56 -0000 5.4.2.1 --- TclGrammerApp.cpp 2 Apr 2007 15:56:21 -0000 5.4.2.2 *************** *** 22,25 **** --- 22,28 ---- Change Log: $Log$ + Revision 5.4.2.2 2007/04/02 15:56:21 ron-fox + Final commit prior to distro build for APril 2007 shutdown. + Revision 5.4.2.1 2006/10/10 15:24:56 ron-fox BZ219 - Added printout of VERSION file to tkcon on startup., *************** *** 175,179 **** static const char* printVersionScript = ! "if {[file exists [file join $SpecTclHome VERSION]]} { \ puts [exec cat [file join $SpecTclHome VERSION]] \ }"; --- 178,182 ---- static const char* printVersionScript = ! "if {[file readable [file join $SpecTclHome VERSION]]} { \ puts [exec cat [file join $SpecTclHome VERSION]] \ }"; *************** *** 747,751 **** // Finally run the version script: ! gpInterpreter->GlobalEval(printVersionScript); return TCL_OK; --- 750,759 ---- // Finally run the version script: ! try { ! gpInterpreter->GlobalEval(printVersionScript); ! } ! catch (...) { ! cerr << "SpecTcl Version: " << gpVersion << endl; ! } return TCL_OK; |