home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / jade-3.0.lha / Jade / src / x11_commandline.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-19  |  4.3 KB  |  178 lines
  1. /* x11_commandline.c -- Simple prompt for X11
  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. #include <string.h>
  24. #include <X11/Xutil.h>
  25. #include <X11/keysym.h>
  26.  
  27. _PR u_char *docmdline(VW *, u_char *, u_char *);
  28.  
  29. /*
  30.  * returns a string got from the command line
  31.  * it (the string) must be valstrfree()'ed after use.
  32.  * cursor should be off.
  33.  */
  34. u_char *
  35. docmdline(VW *vw, u_char *prompt, u_char *original)
  36. {
  37.     u_char *cmdline;
  38.     int cmdlen;
  39.     int promptlen = strlen(prompt);
  40.     if(!unsleep(vw))
  41.     return(FALSE);
  42.     cmdline = mystrdup(original ? original : (u_char *)"");
  43.     if(cmdline)
  44.     {
  45.     POS oldcursor = vw->vw_CursorPos;
  46.     long oldstartcol = vw->vw_StartCol;
  47.     long prevx;
  48.     char keepgoing = 0;
  49.  
  50.     cmdlen = strlen(cmdline) + 1;
  51.     vw->vw_CursorPos.pos_Col = promptlen + cmdlen - 1;
  52.     vw->vw_CursorPos.pos_Line = vw->vw_StartCol + vw->vw_MaxY - 1;
  53.     prevx = vw->vw_CursorPos.pos_Col;
  54.     if(vw->vw_CursorPos.pos_Col >= vw->vw_MaxX)
  55.         vw->vw_StartCol = vw->vw_CursorPos.pos_Col - vw->vw_MaxX + 1;
  56.     else
  57.         vw->vw_StartCol = 0;
  58.  
  59.     redrawcmdline(vw, prompt, cmdline, promptlen, cmdlen - 1);
  60.     cmdlncursor(vw, CURS_ON);
  61.  
  62.     while(!keepgoing)
  63.     {
  64.         XEvent ev;
  65.         XWindowEvent(XDisplay, vw->vw_Window,
  66.              KeyPressMask | ExposureMask | StructureNotifyMask,
  67.              &ev);
  68.         switch(ev.type)
  69.         {
  70.         KeySym ks;
  71.         u_char buf[256];
  72.         int len;
  73.         case MappingNotify:
  74.         XRefreshKeyboardMapping(&ev.xmapping);
  75.         continue;
  76.         case KeyPress:
  77.         cmdlncursor(vw, CURS_OFF);
  78.         len = XLookupString(&ev.xkey, buf, 255, &ks, NULL);
  79.         buf[len] = 0;
  80.         switch(ks)
  81.         {
  82.         case XK_Delete:
  83.             if(cmdlen > 1)
  84.             {
  85.             u_char *newline;
  86.             vw->vw_CursorPos.pos_Col--;
  87.             cmdlen--;
  88.             newline = mystrdupn(cmdline, cmdlen - 1);
  89.             if(newline)
  90.             {
  91.                 mystrfree(cmdline);
  92.                 cmdline = newline;
  93.             }
  94.             }
  95.             break;
  96.         case XK_Return:
  97.             keepgoing = 1;
  98.             break;
  99.         case XK_Escape:
  100.             keepgoing = -1;
  101.             break;
  102.         case XK_Up:
  103.         case XK_Down:
  104.             if(LastPrompted)
  105.             {
  106.             u_char *temp = cmdline;
  107.             cmdline = LastPrompted;
  108.             LastPrompted = temp;
  109.             cmdlen = strlen(cmdline) + 1;
  110.             vw->vw_CursorPos.pos_Col = cmdlen + promptlen - 1;
  111.             prevx = 20000;
  112.             }
  113.             break;
  114.         default:
  115.             if(len)
  116.             {
  117.             u_char *newline = mystrdupn(cmdline, cmdlen + len);
  118.             if(newline)
  119.             {
  120.                 strcat(newline, buf);
  121.                 mystrfree(cmdline);
  122.                 cmdline = newline;
  123.                 cmdlen += len;
  124.                 vw->vw_CursorPos.pos_Col += len;
  125.             }
  126.             }
  127.             break;
  128.         }
  129.         break;
  130.         case ConfigureNotify:
  131.         _updatedimensions(vw, ev.xconfigure.width, ev.xconfigure.height);
  132.         continue;
  133.         case Expose:
  134.         vw->vw_Flags |= VWFF_FORCE_REFRESH;
  135.         drawmsgsepline(vw);
  136.         prevx = 20000;
  137.         cmdlncursor(vw, CURS_OFF);
  138.         break;
  139.         default:
  140.         continue;
  141.         }
  142.         if(vw->vw_CursorPos.pos_Col >= vw->vw_MaxX)
  143.         {
  144.         vw->vw_StartCol = vw->vw_CursorPos.pos_Col - vw->vw_MaxX + 1;
  145.         redrawcmdline(vw, prompt, cmdline, promptlen, cmdlen - 1);
  146.         }
  147.         else
  148.         {
  149.         vw->vw_StartCol = 0;
  150.         if(prevx >= vw->vw_MaxX)
  151.             redrawcmdline(vw, prompt, cmdline, promptlen, cmdlen - 1);
  152.         else if(prevx < vw->vw_CursorPos.pos_Col)
  153.             redrawcmdlinefrom(vw, prompt, cmdline, promptlen, cmdlen - 1, prevx);
  154.         else
  155.             redrawcmdlinefrom(vw, prompt, cmdline, promptlen, cmdlen - 1, vw->vw_CursorPos.pos_Col);
  156.         }
  157.         prevx = vw->vw_CursorPos.pos_Col;
  158.         cmdlncursor(vw, CURS_ON);
  159.     }
  160.     if(keepgoing < 0)
  161.     {
  162.         mystrfree(cmdline);
  163.         cmdline = NULL;
  164.     }
  165.     else
  166.     {
  167.         mystrfree(LastPrompted);
  168.         LastPrompted = mystrdup(cmdline);
  169.     }
  170.     cmdlncursor(vw, CURS_OFF);
  171.     vw->vw_CursorPos = oldcursor;
  172.     vw->vw_StartCol = oldstartcol;
  173.      /* restorecmdline(vw); */
  174.     return(cmdline);
  175.     }
  176.     return(FALSE);
  177. }
  178.