home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / jade-3.0.lha / Jade / src / amiga_commandline.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-19  |  4.7 KB  |  188 lines
  1. /* amiga_commandline.c -- prompt for AmigaDOS
  2.    Copyright (C) 1993, 1994 John Harper <jsh@ukc.ac.uk>
  3.  
  4. This file is part of Jade.
  5.  
  6. Jade is free software; you can redistribute it and/or modify it
  7. under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 2, or (at your option)
  9. any later version.
  10.  
  11. Jade is distributed in the hope that it will be useful, but
  12. WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with Jade; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. #include "jade.h"
  21. #include "jade_protos.h"
  22.  
  23. #define INTUI_V36_NAMES_ONLY
  24. #include <clib/intuition_protos.h>
  25. #include <clib/keymap_protos.h>
  26. #include <string.h>
  27.  
  28. _PR u_char *docmdline(VW *, u_char *, u_char *);
  29.  
  30. /*
  31.  * returns a string got from the command line
  32.  * it (the string) must be valstrfree()'ed after use.
  33.  * cursor should be off.
  34.  */
  35. u_char *
  36. docmdline(VW *vw, u_char *prompt, u_char *original)
  37. {
  38.     u_char *cmdline;
  39.     long cmdlen;
  40.     long promptlen = strlen(prompt);
  41.     if(!unsleep(vw))
  42.     return(FALSE);
  43.     cmdline = mystrdup(original ? original : (STRPTR)"");
  44.     if(cmdline)
  45.     {
  46.     POS oldcursor = vw->vw_CursorPos;
  47.     long oldstartcol = vw->vw_StartCol;
  48.     long prevx;
  49.     char keepgoing = 0;
  50.  
  51.     cmdlen = strlen(cmdline) + 1;
  52.     vw->vw_CursorPos.pos_Col = promptlen + cmdlen - 1;
  53.     vw->vw_CursorPos.pos_Line = vw->vw_StartCol + vw->vw_MaxY - 1;
  54.     prevx = vw->vw_CursorPos.pos_Col;
  55.     if(vw->vw_CursorPos.pos_Col >= vw->vw_MaxX)
  56.         vw->vw_StartCol = vw->vw_CursorPos.pos_Col - vw->vw_MaxX + 1;
  57.     else
  58.         vw->vw_StartCol = 0;
  59.  
  60.     redrawcmdline(vw, prompt, cmdline, promptlen, cmdlen - 1);
  61.     cmdlncursor(vw, CURS_ON);
  62.  
  63.     while(!keepgoing)
  64.     {
  65.         struct IntuiMessage *imsg;
  66.  
  67.         Wait(1 << vw->vw_Window->UserPort->mp_SigBit);
  68.         while((!keepgoing) && (imsg = GetWinIMsg(vw->vw_Window)))
  69.         {
  70.         struct IntuiMessage imsgcopy = *imsg;
  71.         ReplyMsg((struct Message *)imsg);
  72.         if(imsgcopy.Class == IDCMP_RAWKEY)
  73.         {
  74.             cmdlncursor(vw, CURS_OFF);
  75.             switch(imsgcopy.Code)
  76.             {
  77.             case 0x41:  /* delete */
  78.             if(cmdlen > 1)
  79.             {
  80.                 u_char *newline;
  81.                 vw->vw_CursorPos.pos_Col--;
  82.                 cmdlen--;
  83.                 if(newline = mystrdupn(cmdline, cmdlen - 1))
  84.                 {
  85.                 mystrfree(cmdline);
  86.                 cmdline = newline;
  87.                 }
  88.             }
  89.             break;
  90.             case 0x44:  /* return */
  91.             keepgoing = 1;
  92.             break;
  93.             case 0x45:  /* escape */
  94.             keepgoing = -1;
  95.             break;
  96.             case 0x4c:  /* up */
  97.             case 0x4d:  /* down */
  98.             if(LastPrompted)
  99.             {
  100.                 u_char *temp = cmdline;
  101.                 cmdline = LastPrompted;
  102.                 LastPrompted = temp;
  103.                 cmdlen = strlen(cmdline) + 1;
  104.                 vw->vw_CursorPos.pos_Col = cmdlen + promptlen - 1;
  105.                 prevx = 20000;
  106.             }
  107.             break;
  108.             default:
  109.             if(!(imsgcopy.Code & IECODE_UP_PREFIX))
  110.             {
  111.                 struct InputEvent ie;
  112.                 u_char buff[256];
  113.                 long len;
  114.                 
  115.                 ie.ie_Class = IECLASS_RAWKEY;
  116.                 ie.ie_SubClass = 0;
  117.                 ie.ie_Code = imsgcopy.Code;
  118.                 ie.ie_Qualifier = imsgcopy.Qualifier;
  119.                 ie.ie_EventAddress = *((APTR *)imsgcopy.IAddress);
  120.                 if((len = MapRawKey(&ie, buff, 255, NULL)) != -1)
  121.                 {
  122.                 u_char *newline;
  123.                 buff[len] = 0;
  124.                 if(newline = mystrdupn(cmdline, cmdlen + len))
  125.                 {
  126.                     strcat(newline, buff);
  127.                     mystrfree(cmdline);
  128.                     cmdline = newline;
  129.                     cmdlen += len;
  130.                     vw->vw_CursorPos.pos_Col += len;
  131.                 }
  132.                 }
  133.             }
  134.             break;
  135.             }
  136.         }
  137.         else if(imsgcopy.Class == IDCMP_NEWSIZE)
  138.         {
  139.             cmdlncursor(vw, CURS_OFF);
  140.             vw->vw_StartCol = oldstartcol;
  141.             updatedimensions(vw);
  142.             redrawall(vw);
  143.             prevx = 20000;
  144. #if 0
  145.             redrawcmdline(vw, prompt, cmdline, promptlen, cmdlen - 1);
  146. #endif
  147.         }
  148.         else
  149.             continue;
  150.  
  151.         if(vw->vw_CursorPos.pos_Col >= vw->vw_MaxX)
  152.         {
  153.             vw->vw_StartCol = vw->vw_CursorPos.pos_Col - vw->vw_MaxX + 1;
  154.             redrawcmdline(vw, prompt, cmdline, promptlen, cmdlen - 1);
  155.         }
  156.         else
  157.         {
  158.             vw->vw_StartCol = 0;
  159.             if(prevx >= vw->vw_MaxX)
  160.             redrawcmdline(vw, prompt, cmdline, promptlen, cmdlen - 1);
  161.             else if(prevx < vw->vw_CursorPos.pos_Col)
  162.             redrawcmdlinefrom(vw, prompt, cmdline, promptlen, cmdlen - 1, prevx);
  163.             else
  164.             redrawcmdlinefrom(vw, prompt, cmdline, promptlen, cmdlen - 1, vw->vw_CursorPos.pos_Col);
  165.         }
  166.         prevx = vw->vw_CursorPos.pos_Col;
  167.         cmdlncursor(vw, CURS_ON);
  168.         }
  169.     }
  170.     if(keepgoing < 0)
  171.     {
  172.         mystrfree(cmdline);
  173.         cmdline = NULL;
  174.     }
  175.     else
  176.     {
  177.         mystrfree(LastPrompted);
  178.         LastPrompted = mystrdup(cmdline);
  179.     }
  180.     cmdlncursor(vw, CURS_OFF);
  181.     vw->vw_CursorPos = oldcursor;
  182.     vw->vw_StartCol = oldstartcol;
  183.     restorecmdline(vw);
  184.     return(cmdline);
  185.     }
  186.     return(FALSE);
  187. }
  188.