TCLcmd Namespace Reference

Namespaces
	trap

Functions
	NEWCMD (cli, 0)
int	tk_mac_OpenDocument (ClientData, Tcl_Interp *, int argc, const char **argv)

Variables
static int	tk_mac_OpenDocument_dummy

Function Documentation

NEWCMD()

TCLcmd::NEWCMD	(	cli	,
		0
	)

Definition at line 283 of file tclmain.cc.

References minsky::chomp().

  {
    int braces=0, brackets=0;
    bool inString=false;
    tclcmd cmd;
    cmd << "savebgerror\n";
#ifdef READLINE
    char *c;
    eco_string prompt((const char*)tclvar("argv(0)")); prompt+='>';
    while ( (c=readline(const_cast<char*>(prompt.c_str())))!=NULL && strcmp(c,"exit")!=0)
#else
      char c[512];
    while (fgets(c,512,stdin)!=NULL && strcmp(c,"exit\n")!=0)
#endif
      {
        // count up number of braces, brackets etc
        for (char* cc=c; *cc!='\0'; ++cc)
          switch(*cc)
            {
            case '{':
              if (!inString) braces++;
              break;
            case '[':
              if (!inString) brackets++;
              break;
            case '}':
              if (!inString) braces--;
              break;
            case ']':
              if (!inString) brackets--;
              break;
            case '\\':
              if (inString) cc++; //skip next character (is literal)
              break;
            case '"':
              inString = !inString;
              break;
            }
        cmd << chomp(c);
        if (!inString && braces<=0 && brackets <=0)
          { // we have a complete command, so attempt to execute it
            try
              {
                cmd.exec();
              }
            catch (std::exception& e) {fputs(e.what(),stderr);}
            catch (...) {fputs("caught unknown exception",stderr);}
            puts(cmd.result.c_str());
          }
#ifdef READLINE
        if (strlen(c)) add_history(c);
        free(c);
#endif
      }
    cmd << "restorebgerror\n";
  }

Here is the call graph for this function:

tk_mac_OpenDocument()

int TCLcmd::tk_mac_OpenDocument	(	ClientData	,
		Tcl_Interp *	,
		int	argc,
		const char **	argv
	)

Definition at line 352 of file tclmain.cc.

  {
    if (argc>1)
      {
        tclvar("argv")[1]=argv[1];
        tclvar("argc")=2;
      }
    return TCL_OK;
  }

Variable Documentation

tk_mac_OpenDocument_dummy

int TCLcmd::tk_mac_OpenDocument_dummy

static

Initial value:

=
    (Tcl_CreateCommand
     (interp(),"::tk::mac::OpenDocument",(Tcl_CmdProc*)tk_mac_OpenDocument,0,NULL),
     0)

Definition at line 362 of file tclmain.cc.