home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 6.1.414 < prev    next >
Encoding:
Internet Message Format  |  2003-03-24  |  3.3 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.414 (extra)
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.1.414 (extra, depends on 6.1.369)
  11. Problem:    VMS: Vim busy waits when waiting for input.
  12. Solution:   Delay for a short while before getting another character.  (Zoltan
  13.         Arpadffy)
  14. Files:        src/os_vms.c
  15.  
  16.  
  17. *** ../vim61.413/src/os_vms.c    Sun Mar  9 14:08:43 2003
  18. --- src/os_vms.c    Tue Mar 25 21:36:13 2003
  19. ***************
  20. *** 296,339 ****
  21.    *
  22.    * Returns: input length
  23.    */
  24. - 
  25.       int
  26.   vms_read(char *inbuf, size_t nbytes)
  27.   {
  28. - 
  29. -     static unsigned short add_esc, was_esc = 0;
  30. - 
  31.       char    ibuf[nbytes];
  32.       int     status, function, len;
  33.       TT_MODE tt_mode;
  34.   
  35.       /* whatever happened earlier we need an iochan here */
  36.       if (!iochan)
  37. !        tt_mode=get_tty();
  38.   
  39. !     function = ( IO$_READLBLK | IO$M_NOECHO | IO$M_TIMED ) ;
  40. !     len=0;
  41. !     add_esc=0;
  42.   
  43. !     while(1) {
  44. !         memset(ibuf,0,sizeof(ibuf));
  45. !         status = sys$qiow(0,iochan,function,&iosb,0,0,&ibuf,nbytes-1,0,0,0,0);
  46. !         len=strlen( ibuf );
  47. !         if ( was_esc ) {                   /* ESC interrupts the BLOCK QIO  */
  48. !             add_esc=1;                     /* therefore we need to handle   */
  49. !             was_esc=0;                     /* it on special way in order to */
  50. !             inbuf[0]=27;                   /* read ESC sequences            */
  51. !         }
  52. !         if ( len>0 ){
  53. !             if ( ibuf[len-1]==27 ){
  54. !                 was_esc=1;
  55. !                 len=len-1;
  56. !             }
  57. !             mch_memmove(inbuf+add_esc, ibuf, len);
  58.           }
  59. !         if ((add_esc+len) > 0) break;
  60.       }
  61. !     return add_esc+len;
  62.   }
  63.   
  64.   /*
  65. --- 296,328 ----
  66.    *
  67.    * Returns: input length
  68.    */
  69.       int
  70.   vms_read(char *inbuf, size_t nbytes)
  71.   {
  72.       char    ibuf[nbytes];
  73.       int     status, function, len;
  74. +     float   wait = 0.05;
  75.       TT_MODE tt_mode;
  76.   
  77.       /* whatever happened earlier we need an iochan here */
  78.       if (!iochan)
  79. !        tt_mode = get_tty();
  80.   
  81. !     function = (IO$_READLBLK | IO$M_NOECHO | IO$M_TIMED | IO$M_ESCAPE);
  82. !     memset(ibuf, 0, sizeof(ibuf));
  83.   
  84. !     while (1)
  85. !     {
  86. !         status = sys$qiow(0,iochan,function,&iosb,0,0,&ibuf,nbytes,0,0,0,0);
  87. !         len = strlen(ibuf);
  88. !         if (len > 0)
  89. !     {
  90. !             mch_memmove(inbuf, ibuf, len);
  91. !             break;
  92.           }
  93. !     lib$wait(&wait);
  94.       }
  95. !     return len;
  96.   }
  97.   
  98.   /*
  99. *** ../vim61.413/src/version.c    Sun Mar 23 21:06:00 2003
  100. --- src/version.c    Tue Mar 25 21:38:08 2003
  101. ***************
  102. *** 613,614 ****
  103. --- 613,616 ----
  104.   {   /* Add new patch number below this line */
  105. + /**/
  106. +     414,
  107.   /**/
  108.  
  109. -- 
  110.     "You mean there really is an answer?"
  111.     "Yes! But you're not going to like it!"
  112.     "Oh do please tell us!"
  113.     "You're really not going to like it!"
  114.     "but we MUST know - tell us"
  115.     "Alright, the answer is...."
  116.     "yes..."
  117.     "... is ..."
  118.     "yes... come on!"
  119.     "is 42!"
  120.         (Douglas Adams - The Hitchhiker's Guide to the Galaxy)
  121.  
  122.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  123. ///          Creator of Vim - Vi IMproved -- http://www.Vim.org          \\\
  124. \\\              Project leader for A-A-P -- http://www.A-A-P.org        ///
  125.  \\\     Help AIDS victims, buy at Amazon -- http://ICCF.nl/click1.html ///
  126.