tclmain.cc File Reference

#include <exception>
#include <fstream>
#include <map>
#include <string>
#include <boost/filesystem.hpp>
#include <cairoSurfaceImage.h>
#include <ctype.h>
#include <pango.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <tk.h>
#include <tkDecls.h>
#include "eco_hashmap.h"
#include "eco_strstream.h"
#include "ecolab.h"
#include "error.h"
#include "tcl++.h"
#include "timer.h"
#include "version.h"
#include <ecolab_epilogue.h>

Include dependency graph for tclmain.cc:

Go to the source code of this file.

Classes
struct	TCLcmd::trap::init_t

Namespaces
	ecolab
	minsky
	Creation and access to the minskyTCL_obj object, which has code to record whenever Minsky's state changes.
	TCLcmd
	TCLcmd::trap

Macros
#define	SIG_DFL   ((__sighandler_t) 0) /* Default action. */
#define	SIGILL   4 /* Illegal instruction (ANSI). */
#define	SIGABRT   6 /* Abort (ANSI). */
#define	SIGBUS   7 /* BUS error (4.2 BSD). */
#define	SIGSEGV   11 /* Segmentation violation (ANSI). */

Functions
	NEWCMD (minsky_version, 0)
void	printTimersAtEnd ()
int	main (int argc, char *argv[])
void	minsky::doOneEvent (bool idleTasksOnly)
	checks if any GUI events are waiting, and proces an event if so More...
	NEWCMD (GUI, 0)
	NEWCMD (tcl_findLibrary,-1)
	NEWCMD (exit_ecolab, 0)
void	TCLcmd::trap::sighand (int s)
	TCLcmd::trap::NEWCMD (trap, 2)
void	TCLcmd::trap::aborthand (int)
	TCLcmd::trap::NEWCMD (trapabort,-1)
	TCLcmd::NEWCMD (cli, 0)
int	TCLcmd::tk_mac_OpenDocument (ClientData, Tcl_Interp *, int argc, const char **argv)

Variables
Tk_Window	ecolab::mainWin =0
eco_string	TCLcmd::trap::sigcmd [32]
hash_map< eco_string, int >	TCLcmd::trap::signum
struct TCLcmd::trap::init_t	TCLcmd::trap::init
static int	TCLcmd::tk_mac_OpenDocument_dummy

Macro Definition Documentation

SIG_DFL

#define SIG_DFL   ((__sighandler_t) 0) /* Default action. */

Definition at line 36 of file tclmain.cc.

Referenced by TCLcmd::trap::NEWCMD().

SIGABRT

#define SIGABRT   6 /* Abort (ANSI). */

Definition at line 42 of file tclmain.cc.

Referenced by TCLcmd::trap::NEWCMD().

SIGBUS

#define SIGBUS   7 /* BUS error (4.2 BSD). */

Definition at line 46 of file tclmain.cc.

Referenced by TCLcmd::trap::NEWCMD().

SIGILL

#define SIGILL   4 /* Illegal instruction (ANSI). */

Definition at line 39 of file tclmain.cc.

Referenced by TCLcmd::trap::NEWCMD().

SIGSEGV

#define SIGSEGV   11 /* Segmentation violation (ANSI). */

Definition at line 50 of file tclmain.cc.

Referenced by TCLcmd::trap::NEWCMD(), minsky::anonymous_namespace{getContext.cc}::SetSignal::SetSignal, and minsky::anonymous_namespace{getContext.cc}::SetSignal::~SetSignal.

Function Documentation

main()

int main	(	int	argc,
		char *	argv[]
	)

Definition at line 81 of file tclmain.cc.

References ecolab::mainWin.

{
  const Timer timer("main");
  //  atexit(printTimersAtEnd);

#ifdef _WIN32
  ecolab::Pango::defaultFamily="Arial Unicode MS";
#else
  ecolab::Pango::defaultFamily="Adobe Courier Regular";
#endif

#if defined(NDEBUG) && defined(_WIN32)
  ShowWindow(GetConsoleWindow(),SW_HIDE);
#endif

  Tcl_FindExecutable(argv[0]);
  int r;
#ifndef MXE
  // For MXE builds, override tcl_library and tk_library to the self-contained versions
  r=Tcl_Init(interp());
  if (r!=TCL_OK)
#endif
    // one possible reason is that it failed to locate the TCL library, we we set tcl_library and try again
    {
      const path exeDir=path(Tcl_GetNameOfExecutable()).parent_path();
      tclvar tcl_library("tcl_library", (exeDir/"library"/"tcl").string().c_str());
      tclvar tk_library("tk_library", (exeDir/"library"/"tk").string().c_str());
      if ((r=Tcl_Init(interp()))!=TCL_OK)
        {
          // on Macs, the TCL library may be located in
          // ../lib/minsky/library to get around codesign's
          // pernicketyness
          tcl_library=(exeDir/".."/"lib"/"minsky"/"library"/"tcl").string();
          tk_library=(exeDir/".."/"lib"/"minsky"/"library"/"tcl").string();
          r=Tcl_Init(interp());
        }
    }
  if (r!=TCL_OK)
    {
      fprintf(stderr,"%s\n",Tcl_GetStringResult(interp()));
      fprintf(stderr,"%s\n",Tcl_GetVar(interp(),"errorInfo",0)); /* print out trace */
      return 1;  /* not a clean execution */
    }

  /* set the TCL variables argc and argv to contain the
     arguments. */
  tclvar tcl_argc("argc"), tcl_argv("argv");
  tcl_argc=argc;
  for (int i=0; i<argc; i++) tcl_argv[i]=argv[i];

  path minskydir=path(Tcl_GetNameOfExecutable()).parent_path();
  // if Minsky's libraries are not located with the executable, look in the lib
  // directory (unix style installation)
  if (!exists(minskydir/"minsky.tcl"))
    minskydir/="../lib/minsky";
  if (!exists(minskydir/"minsky.tcl"))
    {
      fprintf(stderr,"Minsky library not found!\n");
      return 1;
    }
  const tclvar minskyHome("minskyHome",minskydir.string().c_str());

  srand(time(nullptr));

  if (Tcl_EvalFile(interp(), (minskydir/"minsky.tcl").string().c_str())!=TCL_OK)
    {
      fprintf(stderr,"%s\n",Tcl_GetStringResult(interp()));
      fprintf(stderr,"%s\n",Tcl_GetVar(interp(),"errorInfo",0)); /* print out trace */
      return 1;  /* not a clean execution */
    }

  while (mainWin) /* we are running GUI mode */
    Tcl_DoOneEvent(0); 
  Tcl_DeleteInterp(interp());
  Tcl_Finalize();
}

NEWCMD() [1/4]

NEWCMD	(	minsky_version	,
		0
	)

Definition at line 58 of file tclmain.cc.

{
  tclreturn r;
  r<<VERSION;
}

NEWCMD() [2/4]

NEWCMD	(	GUI	,
		0
	)

Definition at line 178 of file tclmain.cc.

References ecolab::mainWin.

{
  if (Tk_Init(interp())==TCL_ERROR)
    {
      fprintf(stderr,"Error initialising Tk: %s",Tcl_GetStringResult(interp()));
      fprintf(stderr,"%s\n",Tcl_GetVar(interp(),"errorInfo",0));
      /* If Tk_Init fails, it is not necessarily a fatal error. For
         example, on unpatched macs, we get an error from the attempt
         to create a console, yet Minsky works just fine without
         one. */
    }
  CairoSurface::registerImage();
  
  mainWin = Tk_MainWindow(interp());
  //XSetErrorHandler(minskyXErrorHandler);
}

NEWCMD() [3/4]

NEWCMD	(	tcl_findLibrary	,
		-	1
	)

Definition at line 196 of file tclmain.cc.

{}

NEWCMD() [4/4]

NEWCMD	(	exit_ecolab	,
		0
	)

Definition at line 198 of file tclmain.cc.

References ecolab::mainWin.

{
  mainWin=0;
}

printTimersAtEnd()

void printTimersAtEnd

(

)

Definition at line 69 of file tclmain.cc.

{
  stop_timer("main"); 
  print_timers();
}