home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1757 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  4.6 KB
  1. From: joep@tnosoes.izf.tno.nl (Joep Mathijssen)
  2. Newsgroups: alt.sources
  3. Subject: Elvis1.3, 3 fixes
  4. Message-ID: <1358@tnosoes.izf.tno.nl>
  5. Date: 31 Aug 90 07:39:05 GMT
  6.  
  7. Here are three fixes for problems I found while using Elvis1.3. 
  8. Now I'm testing Elvis on a Sun3, but I'll use it on an Atari soon.
  9.  
  10. [1] Elvis had a problem with the substitute and find functions when
  11. ignorecase was TRUE. I found that the problem was caused by the
  12. "ustrncmp" function. When ignorecase is TRUE, the 'tolower' was
  13. performed on every character. Even on lowercase characters.
  14. From the man-page 'tolower':
  15.  
  16.      tolower(c)          converts c to its lower-case equivalent.
  17.              Note:  this  only works where c is known to be
  18.              a upper-case  character  to  start with
  19.              (presumably checked using isupper).
  20.  
  21. This probably differs between compilers, but I think you should add the
  22. 'isupper'-test.
  23.  
  24.  
  25. ========================================================================
  26.         These functions should go to REGEXP.C
  27. ========================================================================
  28.  
  29. /* Here is a function which performs string comparisons.  Uses o_ignorecase */
  30. int ustrncmp(str1, str2, len)
  31.         register char   *str1, *str2;   /* the strings to compare */
  32.         register int    len;            /* max # of chars we care about */
  33. {
  34.     char ch1, ch2;
  35.      
  36.     if (*o_ignorecase) {
  37.         while (--len >= 0) {
  38.             ch1 = (isupper(*str1)) ? tolower(*str1) : *str1;
  39.             ch2 = (isupper(*str2)) ? tolower(*str2) : *str2;
  40.             if (ch1 != ch2)
  41.                 return ch2 - ch1;
  42.             str1++;
  43.             str2++;
  44.         }
  45.         return 0;
  46.     }
  47.     else {
  48.         while (--len >= 0 && *str1++ == *str2++);
  49.         if (len < 0)
  50.             return 0;
  51.         str1--;
  52.         str2--;
  53.         return *str2 - *str1;
  54.     }
  55. }
  56.  
  57. /* Here is a function which looks for a character in a string. */
  58. char *ustrchr(str, ch)
  59. register char   *str;   /* the string to look in */
  60. register char   ch;     /* the character to look for */
  61. {
  62.     char tmpch;
  63.     
  64.     if (*o_ignorecase) {
  65.         if (isupper(ch))
  66.             ch = tolower(ch);
  67.         for (; *str && *str != '\n'; str++) {
  68.             tmpch = (isupper(*str)) ? tolower(*str) : *str;
  69.             if (tmpch == ch)
  70.                 return str;
  71.         }
  72.     }
  73.     else
  74.         for (; *str && *str != '\n'; str++)
  75.             if (*str == ch)
  76.                 return str;
  77.     return (char *)0;
  78. }    
  79.  
  80. ========================================================================
  81.  
  82.  
  83. [2] Small bug. While debugging elvis I found a small error. A temporary
  84. file ('/usr/tmp/elvta000ffff8208') was not removed, because I aborted
  85. the program. Starting elvis again the following message was displayed:
  86.  
  87.     "" is busy
  88.  
  89. This msg comes from 'tmp.c'. But instead of printing the name of the
  90. tmpfile (variable 'tmpname') the variable 'filename' is printed, so an
  91. empty string is shown. Line 134 in tmp.c should be
  92.  
  93.     FAIL("\"%s\" is busy", tmpname);
  94.  
  95. BTW: it's not possible to run elvis twice, because a fixed temporary
  96. file is used! 
  97.  
  98.  
  99.  
  100. [3] The ESC is incorrect handled in INPUT_MODE.  After escaping from
  101. the 'append'-operation (a) the cursor should move to the last typed
  102. character.  The problem with elvis was that the screen is not updated
  103. for some reason. So when you press 'x' after doing an append, the
  104. 'wrong' character is removed ( not the character the cursor was on, but
  105. the previous one -> yes the last character that was typed).  This
  106. problem is caused by the function 'getkey' in tio.c. When I press 'ESC'
  107. this function checks all mapped keys and will find some matches (our
  108. cursorkeys also start with an escape). Then the routine 'ttyread' is
  109. called again because more than one mapped key matched. When I press 'x'
  110. after the ESC no mapped will match anymore and ESC and 'x' are
  111. processed, resulting in a late screen-update.
  112.  
  113. If I remove my mapped cursorkeys, the problem is solved and my cursor
  114. will move to the last character I added. Another better (?) solution is
  115. to skip the check for mapped keys, because you're not in CMD_MODE. I
  116. don't know if this solution is correct, but it works fine for me:
  117.  
  118. Line 427 from TIO.C
  119.  
  120. for (i=j=0, k=-1, km=mapped; when & WHEN_VICMD && i < MAXMAPS; i++, km++)
  121.                  ^^^^^^^^^^^^^^^^^
  122.                  are we in CMD-mode?
  123.  
  124.  
  125.  
  126. ===============================================================================
  127. Joep Mathijssen
  128. TNO Institute for Perception    Phone : +31 34 63 562 11
  129. P.O. Box 23                  Fax   : +31 34 63 539 77
  130. 3769 ZG  Soesterberg        E-mail: uunet!hp4nl.nluug.nl!tnosoes!joep
  131. The Netherlands                 or: joep@izf.tno.nl
  132. ===============================================================================
  133.