/***********************************************************************
* line editor
**********************************************************************/
static void getCommandLine(void)
{
tmpPrompt = GetTemporaryPrompt();
GetCurrentPrompt(Sci_Prompt);
if (__CommandLine)
{
FREE(__CommandLine);
__CommandLine = NULL;
}
if (getScilabMode() == SCILAB_STD)
{
/* Send new prompt to Java Console, do not display it */
if (tmpPrompt != NULL)
{
SetConsolePrompt(tmpPrompt);
}
else
{
SetConsolePrompt(Sci_Prompt);
}
setSearchedTokenInScilabHistory(NULL);
/* Call Java Console to get a string */
__CommandLine = strdup(ConsoleRead());
}
else
{
/* Call Term Management for NW and NWNI to get a string */
__CommandLine = getCmdLine();
}
}
/*--------------------------------------------------------------------------*/
char * getCmdLine(void)
{
char *line = NULL;
static char save_prompt[PROMPT_SIZE_MAX];
if (GetTemporaryPrompt() != NULL) /* Input function is used */
{
line = TerminalGetString(GetTemporaryPrompt());
}
else
{
GetCurrentPrompt(save_prompt);
line = TerminalGetString(save_prompt);
}
strcpy(save_prompt, "");
return line;
}
/*--------------------------------------------------------------------------*/
int sci_prompt(char *fname, unsigned long fname_len)
{
char currentPrompt[PROMPT_SIZE_MAX];
static int n1 = 0, m1 = 0, l1 = 0;
int outIndex = 0 ;
CheckRhs(0, 1);
CheckLhs(0, 2);
if (Rhs == 0) /* Get current Scilab prompt */
{
GetCurrentPrompt(currentPrompt);
m1 = (int)strlen(currentPrompt);
n1 = 1;
CreateVar( Rhs + 1, STRING_DATATYPE, &m1, &n1, &outIndex);
strcpy(cstk(outIndex), currentPrompt);
if (Lhs == 2)
{
m1 = 1;
n1 = 1;
l1 = 0;
CreateVar( Rhs + 2, MATRIX_OF_INTEGER_DATATYPE, &m1, &n1, &l1 );
*istk(l1) = (int)C2F(recu).paus ;
}
LhsVar(1) = Rhs + 1;
if (Lhs == 2)
{
LhsVar(2) = Rhs + 2;
}
PutLhsVar();
}
else /* Tempory change of Scilab prompt */
{
if (Lhs <= 1)
{
if (VarType(1) != sci_strings)
{
Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname, 1);
return FALSE;
}
GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1);
if (n1 != 1)
{
Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"), fname, 1);
return FALSE;
}
SetTemporaryPrompt(cstk(l1));
LhsVar(1) = 0;
PutLhsVar();
}
else
{
Scierror(999, _("%s: Wrong number of output argument(s).\n"), fname);
}
}
return 0;
}
