ScilabEval.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
int	TCL_EvalScilabCmd (ClientData clientData, Tcl_Interp *theinterp, int objc, CONST char **argv)

---

Function Documentation

int TCL_EvalScilabCmd	(	ClientData	clientData,
		Tcl_Interp *	theinterp,
		int	objc,
		CONST char **	argv
	)

Definition at line 22 of file ScilabEval.c.

Referenced by OpenTCLsci().

{
  int ns,ierr,seq;
  char *command;
  
  char *comm[arbitrary_max_queued_callbacks];
  int   seqf[arbitrary_max_queued_callbacks];
  int nc,ncomm=-1;

  if (C2F(iop).ddt==-1)
  {
        /* trace for debugging */
    int argc=1;
        char *AsciiFromUTF8=NULL;

        AsciiFromUTF8=MALLOC(sizeof(char)*(strlen(argv[1])+AddCharacters));

    /* UTF to ANSI */
        Tcl_UtfToExternal(theinterp, NULL, argv[1], (int)strlen(argv[1]), 0, NULL, AsciiFromUTF8, (int)(strlen(argv[1])+AddCharacters), NULL, NULL,NULL);

    sciprint_full(TCL_MSG7,AsciiFromUTF8);

    while (argv[++argc]) sciprint(" %s",argv[argc]);
    sciprint("\n");

        if (AsciiFromUTF8){FREE(AsciiFromUTF8);AsciiFromUTF8=NULL;}
  }

  if (argv[1] != (char *)0)
  {
          char *AsciiFromUTF8=NULL;
          AsciiFromUTF8=MALLOC(sizeof(char)*(strlen(argv[1])+AddCharacters));

          /* UTF to ANSI */
          Tcl_UtfToExternal(theinterp, NULL, argv[1], (int)strlen(argv[1]), 0, NULL, AsciiFromUTF8, (int)(strlen(argv[1])+AddCharacters), NULL, NULL,NULL);

    if (strlen(AsciiFromUTF8)>=bsiz)
        {
      command = (char *) MALLOC (bsiz * sizeof (char));
      if (command == (char *) 0)
      {
        sciprint(TCL_ERROR28);
        return TCL_ERROR;
      }
      memset(command,'\0',bsiz);
      strncpy(command,AsciiFromUTF8,bsiz-1);
      sciprint(TCL_WARNING4,bsiz-1);
    }
        else
        {
      command = (char *) MALLOC ((strlen (AsciiFromUTF8) + 1) * sizeof (char));
      if (command == (char *) 0)
      {
        sciprint(TCL_ERROR28);
        return TCL_ERROR;
      }
      strcpy(command,AsciiFromUTF8);
    }
        if (AsciiFromUTF8){FREE(AsciiFromUTF8);AsciiFromUTF8=NULL;}

    if ( (argv[2] != (char *)0) && (strncmp(argv[2],"sync",4)==0) )
        {
      /* sync or sync seq */
      C2F(tksynchro)(&c_n1);  /* set sciprompt to -1 (scilab busy) */
      seq= ( (argv[3] != (char *)0) && (strncmp(argv[3],"seq",3)==0) );
      ns=(int)strlen(command); 
      if (C2F(iop).ddt==-1) sciprint_full(TCL_MSG8,command);
      C2F(syncexec)(command,&ns,&ierr,&seq);
      if (C2F(iop).ddt==-1) sciprint_full(TCL_MSG9,command);
      C2F(tksynchro)(&C2F(recu).paus);
      if (ierr != 0) return TCL_ERROR;
    }
    else if (strncmp(command,"flush",5)==0)
        {
      /* flush */
      if (C2F(iop).ddt==-1) sciprint(TCL_MSG10);
      while (C2F(ismenu)() && ncomm<arbitrary_max_queued_callbacks-1)
          {
        ncomm++;
        comm[ncomm] = (char *) MALLOC (bsiz+1);
        if (comm[ncomm] == (char *) 0)
        {
          sciprint (TCL_ERROR28);
          return TCL_ERROR;
        }
        seqf[ncomm]=GetCommand (comm[ncomm]);
      }
      if (C2F(ismenu)()) sciprint(TCL_WARNING5);
      for (nc = 0 ; nc <= ncomm ; nc++ )
          {
        C2F(tksynchro)(&c_n1);  /* set sciprompt to -1 (scilab busy) */
        if (C2F(iop).ddt==-1)
        {
              if (seqf[nc]==0)
                  {
                          sciprint_full(TCL_MSG11,comm[nc]);
                  }
              else
                  {
                          sciprint_full(TCL_MSG12,comm[nc]);
                  }
        }
        ns=(int)strlen(comm[nc]);
        C2F(syncexec)(comm[nc],&ns,&ierr,&(seqf[nc]));
        if (C2F(iop).ddt==-1)
        {
          sciprint_full(TCL_MSG13,comm[nc]);
        }
        FREE(comm[nc]);
        C2F(tksynchro)(&C2F(recu).paus);
        if (ierr != 0) return TCL_ERROR;
      }
      if (C2F(iop).ddt==-1) sciprint(TCL_MSG14);
    }
    else
        {
      /* seq or no option */
      StoreCommand(command); 

      if ( (argv[2] != (char *)0) && (strncmp(argv[2],"seq",3)==0) )
          {
        SetCommandflag(1);
      }
      else
          {
                /* unknown option */
        Tcl_SetResult(theinterp,NULL,NULL);
          }
    }
    FREE(command);

  } 
  else
  {
        /* ScilabEval called without argument */
    Scierror(999,TCL_ERROR29);
  }

  return TCL_OK;
}

Here is the caller graph for this function:

---