home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of A1200
/
World_Of_A1200.iso
/
programs
/
text
/
jed
/
src
/
jed.lha
/
commandline.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-01-03
|
5KB
|
240 lines
/*
* COMMANDLINE.C
* (c) 1992 J.Harper
*/
#include "jed.h"
#include "jed_protos.h"
Prototype STRPTR docmdline (STRPTR);
Prototype VOID killprompthist (VOID);
Prototype VALUE * cmd_cli (LONG, VALUE *);
Prototype VALUE * cmd_getstr (LONG, VALUE *);
Prototype VALUE * cmd_getnum (LONG, VALUE *);
Local STRPTR LastPrompted; /* one line history */
/*
* returns a string got from the command line
* it (the string) must be freestring()'ed after use.
* cursor should be off.
*/
STRPTR
docmdline(STRPTR prompt)
{
STRPTR cmdline;
LONG cmdlen = 1;
WORD promptlen = strlen(prompt);
if(!unsleep())
return(FALSE);
if(cmdline = savestring(""))
{
VW *vw = CurrVW;
TX *tx = vw->vw_Tx;
POS oldcursor = vw->vw_CursorPos;
WORD oldstartcol = vw->vw_StartCol;
WORD prevx = 0;
WORD keepgoing = 0;
vw->vw_CursorPos.pos_Col = promptlen;
vw->vw_CursorPos.pos_Line = vw->vw_StartCol + vw->vw_MaxY - 1;
vw->vw_StartCol = 0;
redrawcmdline(prompt, cmdline, promptlen, 0);
cmdlncursor(ON);
while(!keepgoing)
{
struct IntuiMessage *imsg;
Wait(1 << vw->vw_Window->UserPort->mp_SigBit);
while((!keepgoing) && (imsg = GetWinIMsg(vw->vw_Window)))
{
struct IntuiMessage imsgcopy = *imsg;
ReplyMsg((struct Message *)imsg);
if(imsgcopy.Class == IDCMP_RAWKEY)
{
cmdlncursor(OFF);
switch(imsgcopy.Code)
{
case 0x41: /* delete */
if(cmdlen > 1)
{
STRPTR newline;
vw->vw_CursorPos.pos_Col--;
cmdlen--;
if(newline = savestringn(cmdline, cmdlen - 1))
{
freestring(cmdline);
cmdline = newline;
}
}
break;
case 0x44: /* return */
keepgoing = 1;
break;
case 0x45: /* escape */
keepgoing = -1;
break;
case 0x4c: /* up */
case 0x4d: /* down */
if(LastPrompted)
{
STRPTR temp = cmdline;
cmdline = LastPrompted;
LastPrompted = temp;
cmdlen = strlen(cmdline) + 1;
vw->vw_CursorPos.pos_Col = cmdlen + promptlen - 1;
prevx = 20000;
}
break;
default:
if(!(imsgcopy.Code & IECODE_UP_PREFIX))
{
struct InputEvent ie;
UBYTE buff[256];
LONG len;
ie.ie_Class = IECLASS_RAWKEY;
ie.ie_SubClass = 0;
ie.ie_Code = imsgcopy.Code;
ie.ie_Qualifier = imsgcopy.Qualifier;
ie.ie_EventAddress = *((APTR *)imsgcopy.IAddress);
if((len = MapRawKey(&ie, buff, 255, NULL)) != -1)
{
STRPTR newline;
buff[len] = 0;
if(newline = savestringn(cmdline, cmdlen + len))
{
strcat(newline, buff);
freestring(cmdline);
cmdline = newline;
cmdlen += len;
vw->vw_CursorPos.pos_Col += len;
}
}
}
break;
}
}
else if(imsgcopy.Class == IDCMP_NEWSIZE)
{
cmdlncursor(OFF);
vw->vw_StartCol = oldstartcol;
updatedimensions(CurrVW);
redrawall();
prevx = 20000;
/* redrawcmdline(prompt, cmdline, promptlen, cmdlen - 1); */
}
else
continue;
if(vw->vw_CursorPos.pos_Col >= vw->vw_MaxX)
{
vw->vw_StartCol = vw->vw_CursorPos.pos_Col - vw->vw_MaxX + 1;
redrawcmdline(prompt, cmdline, promptlen, cmdlen - 1);
}
else
{
vw->vw_StartCol = 0;
if(prevx >= vw->vw_MaxX)
redrawcmdline(prompt, cmdline, promptlen, cmdlen - 1);
else if(prevx < vw->vw_CursorPos.pos_Col)
redrawcmdlinefrom(prompt, cmdline, promptlen, cmdlen - 1, prevx);
else
redrawcmdlinefrom(prompt, cmdline, promptlen, cmdlen - 1, vw->vw_CursorPos.pos_Col);
}
prevx = vw->vw_CursorPos.pos_Col;
cmdlncursor(ON);
}
}
if(keepgoing < 0)
{
freestring(cmdline);
cmdline = NULL;
}
else
{
freestring(LastPrompted);
LastPrompted = savestring(cmdline);
}
cmdlncursor(OFF);
vw->vw_CursorPos = oldcursor;
vw->vw_StartCol = oldstartcol;
restorecmdline();
return(cmdline);
}
return(FALSE);
}
VOID
killprompthist(VOID)
{
freestring(LastPrompted);
LastPrompted = NULL;
}
/*
* cli type command
* (cli)
*/
VALUE *
cmd_cli(LONG argc, VALUE *argv)
{
if(!CurrVW->vw_Sleeping || unsleep())
{
STRPTR cmd;
VALUE result;
if(cmd = docmdline("cmd> "))
{
execstr(cmd, &RES, FALSE, 0, NULL);
freestring(cmd);
}
}
return(&RES);
}
/*
* command to get a string from a prompt at the bottom of the window
* (getstr `prompt')
*/
VALUE *
cmd_getstr(LONG argc, VALUE *argv)
{
if((TPLATE1(VTF_STRING)) && (!CurrVW->vw_Sleeping || unsleep()))
{
STRPTR str;
if(str = docmdline(ARG1.val_Value.String))
{
setstrres(str);
}
}
return(&RES);
}
/*
* command to get a number from the prompt
* (getnum `prompt')
*/
VALUE *
cmd_getnum(LONG argc, VALUE *argv)
{
if((TPLATE1(VTF_STRING)) && (!CurrVW->vw_Sleeping || unsleep()))
{
STRPTR string;
LONG number;
STRPTR dummy;
if(string = docmdline(ARG1.val_Value.String))
{
number = strtol(string, &dummy, 0);
freestring(string);
setnumres(number);
}
}
return(&RES);
}