/*******************************************************************************
Name: CompletionDialogCallback
Description: Called when Completion is selected form File menu
Arguments: w - menu item that was selected
client_data - dialog window or edit window
call_data - not used
Returns: None
*******************************************************************************/
void CompletionDialogCallback(
Widget w,
XtPointer client_data,
XtPointer call_data)
{
int NumberOfMatches,i,length;
Boolean tempFlag;
struct symbolMatch *matches;
XKeyboardControl value;
char *commandString;
/* ================================================== */
/* Free the memory of completionString before assign */
/* it to the new string. */
/* ================================================== */
if(completionString != NULL)
{
free(completionString);
completionString = NULL;
}
/* =========================================================== */
/* Get the the uncompleted command string; if there is none */
/* sound the bell and exit, else determine if the last token */
/* of the string can be complete */
/* =========================================================== */
commandString = GetCommandString();
if(commandString != NULL)
{
length = strlen(commandString);
commandString = GetCommandCompletionString(commandString,length);
}
if(commandString == NULL)
{
XBell(XtDisplay(toplevel),100);
return;
}
/* ============================================================ */
/* Copy the command string to a global variable for later use. */
/* Global completionString has to be used here due to the */
/* limitation of the number of arguments could be passed in the */
/* call back function of in X window system. */
/* ============================================================ */
completionString = (char*)malloc(strlen(commandString) + 1);
strcpy(completionString,commandString);
/* ============================================================ */
/* Find the match(es). If there is none, sound the bell and */
/* exit; else if there is one match complete the command; else */
/* if there are more than one display them */
/* ============================================================ */
matches = FindSymbolMatches(completionString,&NumberOfMatches,NULL);
if(NumberOfMatches == 0)
{
XBell(XtDisplay(toplevel),100);
return;
}
else if (NumberOfMatches == 1)
{
length = strlen(completionString);
AppendCommandString(&(matches->match->contents[length]));
PrintRouter("stdin",&(matches->match->contents[length]));
}
else
{
DisplayMatchedList(dialog_text,matches);
}
}
/*******************************************************************************
Name: CompletionEditCallback
Description: Called when Completion is selected form File menu
in the editor.
Arguments: w - menu item that was selected
client_data - dialog window or edit window
call_data - not used
Returns: None
*******************************************************************************/
void CompletionEditCallback(
Widget w,
XtPointer client_data,
XtPointer call_data)
{
int NumberOfMatches,i,length;
Boolean tempFlag;
struct symbolMatch *matches;
extern char* GetCommandString();
XawTextBlock text;
char *matchString = NULL;
Widget source = XawTextGetSource((Widget)client_data);
XawTextPosition CurrentPosition,EndPosition;
/* ================================================== */
/* Free the memory of completionString before assign */
/* it to the new string. */
/* ================================================== */
if(completionString != NULL)
{
free(completionString);
completionString = NULL;
}
/* =================================================== */
/* Get the beginning and ending positions of the */
/* selection. If there is no selection get the last */
/* word from the cursor. */
/* ====================================================*/
XawTextGetSelectionPos((Widget)client_data,&CurrentPosition,&EndPosition);
if(CurrentPosition == EndPosition) /* No selection was made */
{
matchString = GetBufferFromTextEdit((Widget)client_data);
length = strlen(matchString);
}
else
{
XawTextSourceRead(source,CurrentPosition,&text,EndPosition - CurrentPosition);
XawTextUnsetSelection((Widget)client_data);
XawTextSetInsertionPoint((Widget)client_data,EndPosition);
matchString = text.ptr;
length = text.length;
}
/* ======================================= */
/* Determine if the word can be matched. */
/* ======================================= */
matchString = GetCommandCompletionString(matchString,length);
if(matchString == NULL)
{
XBell(XtDisplay(toplevel),100);
return;
}
completionString = (char*)malloc(strlen(matchString) + 1);
strcpy(completionString,matchString);
matches = FindSymbolMatches(completionString,&NumberOfMatches,NULL);
if(NumberOfMatches == 0)
{
XBell(XtDisplay(toplevel),100);
return;
}
else if (NumberOfMatches == 1)
{
length = strlen(completionString);
text.firstPos = 0;
text.length = strlen(&(matches->match->contents[length]));
text.ptr = &(matches->match->contents[length]);
XawTextReplace((Widget)client_data,
XawTextGetInsertionPoint((Widget)client_data),
XawTextGetInsertionPoint((Widget)client_data),&text);
XawTextSetInsertionPoint((Widget)client_data,
XawTextGetInsertionPoint((Widget)client_data) + text.length);
}
else
{
DisplayMatchedList((Widget)client_data,matches);
}
}
const char *GetCommandCompletionString(
void *theEnv,
const char *theString,
size_t maxPosition)
{
struct token lastToken;
struct token theToken;
char lastChar;
const char *rs;
size_t length;
/*=========================*/
/* Get the command string. */
/*=========================*/
if (theString == NULL) return("");
/*=========================================================================*/
/* If the last character in the command string is a space, character */
/* return, or quotation mark, then the command completion can be anything. */
/*=========================================================================*/
lastChar = theString[maxPosition - 1];
if ((lastChar == ' ') || (lastChar == '"') ||
(lastChar == '\t') || (lastChar == '\f') ||
(lastChar == '\n') || (lastChar == '\r'))
{ return(""); }
/*============================================*/
/* Find the last token in the command string. */
/*============================================*/
OpenTextSource(theEnv,"CommandCompletion",theString,0,maxPosition);
ScannerData(theEnv)->IgnoreCompletionErrors = true;
GetToken(theEnv,"CommandCompletion",&theToken);
CopyToken(&lastToken,&theToken);
while (theToken.type != STOP)
{
CopyToken(&lastToken,&theToken);
GetToken(theEnv,"CommandCompletion",&theToken);
}
CloseStringSource(theEnv,"CommandCompletion");
ScannerData(theEnv)->IgnoreCompletionErrors = false;
/*===============================================*/
/* Determine if the last token can be completed. */
/*===============================================*/
if (lastToken.type == SYMBOL)
{
rs = ValueToString(lastToken.value);
if (rs[0] == '[') return (&rs[1]);
return(ValueToString(lastToken.value));
}
else if (lastToken.type == SF_VARIABLE)
{ return(ValueToString(lastToken.value)); }
else if (lastToken.type == MF_VARIABLE)
{ return(ValueToString(lastToken.value)); }
else if ((lastToken.type == GBL_VARIABLE) || (lastToken.type == MF_GBL_VARIABLE) ||
(lastToken.type == INSTANCE_NAME))
{ return(NULL); }
else if (lastToken.type == STRING)
{
length = strlen(ValueToString(lastToken.value));
return(GetCommandCompletionString(theEnv,ValueToString(lastToken.value),length));
}
else if ((lastToken.type == FLOAT) || (lastToken.type == INTEGER))
{ return(NULL); }
return("");
}
