home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 21925 < prev    next >
Encoding:
Text File  |  1993-01-25  |  3.5 KB  |  146 lines
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!ucbvax!KOPC.HHS.DK!ARNE
  2. From: ARNE@KOPC.HHS.DK (Arne Vajhxj)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: problem report of toupper() in GCC 1.42 on VMS
  5. Message-ID: <01GTWK4R8Q768WW5AL@kopc.hhs.dk>
  6. Date: 24 Jan 93 16:14:55 GMT
  7. Sender: usenet@ucbvax.BERKELEY.EDU
  8. Organization: The Internet
  9. Lines: 135
  10.  
  11. > GNU_CC_INCLUDE:[000000]ctype.h has the following utterly useless
  12. > definition of toupper():
  13. > 
  14. >         #define toupper(c)      ((c)-'a'+'A')
  15. > 
  16. > since there exists a properly functioning routine in the RTL, the
  17. > proper definition is:
  18. > 
  19. >         char toupper(char);
  20. > 
  21. > or, if you don't like the CALLS, roll yer own #define that makes
  22. > (toupper('A') == toupper('a')) be a true value.
  23. > 
  24. > tolower() is similarly brain dead.
  25.  
  26. (this reply is rather long, but I think this problem deserves a proper
  27. explanation)
  28.  
  29. It is correct, that the toupper and tolower in GNU C can give some horrible
  30. problems !
  31.  
  32. The folowing program will work correct compiled with VAX C and will not
  33. work correct with GNU C:
  34.  
  35. #include <string.h>
  36. #include <ctype.h>
  37. #include <stdio.h>
  38.  
  39. main()
  40. {
  41.    int i;
  42.    char *s,ss[11];
  43.    for (i=0;i<100000;i++) {
  44.       strcpy(&ss,"abcdeABCDE");
  45.       s = &ss;
  46.       while (*s) {
  47.          *s = toupper(*s);
  48.          s++;
  49.       };
  50.    };
  51.    printf("ss=%s\n",&ss);
  52. };
  53.  
  54. With GNU C you will have to code as follows to have it work correct:
  55.  
  56. #include <string.h>
  57. #include <ctype.h>
  58. #include <stdio.h>
  59.  
  60. main()
  61. {
  62.    int i;
  63.    char *s,ss[11];
  64.    for (i=0;i<100000;i++) {
  65.       strcpy(&ss,"abcdeABCDE");
  66.       s = &ss;
  67.       while (*s) {
  68.          if (islower(*s)) *s = toupper(*s);
  69.          s++;
  70.       };
  71.    };
  72.    printf("ss=%s\n",&ss);
  73. };
  74.  
  75. But please note, that even though the last piece of code looks more
  76. complicated, then it is still faster !  The first program compiled
  77. with VAX C 3.2 took 6.0 CPU seconds on a 4200 to run. The second
  78. program compiled with GNU C 2.2.2 took only 1.5 CPU seocnds to run !
  79.  
  80. To help this VAX C's CTYPE.H defines a _toupper, which is purely inline:
  81.  
  82. #include <string.h>
  83. #include <ctype.h>
  84. #include <stdio.h>
  85.  
  86. main()
  87. {
  88.    int i;
  89.    char *s,ss[11];
  90.    for (i=0;i<100000;i++) {
  91.       strcpy(&ss,"abcdeABCDE");
  92.       s = &ss;
  93.       while (*s) {
  94.          *s = _toupper(*s);
  95.          s++;
  96.       };
  97.    };
  98.    printf("ss=%s\n",&ss);
  99. };
  100.  
  101. This program compiled with VAX C 3.2 took only 2.5 seconds to run. [And
  102. the difference between this number and the 1.5 number for the second GNU C
  103. program is NOT due to anything regarding toupper, but comes from the fact
  104. that VAX C translate strcpy to a callof strcpy, while GNU C translates strcpy
  105. to a movc3 instruction].
  106.  
  107. Now we look at the header-files.
  108.  
  109. VAX C:
  110.  
  111. #define _toupper(c)    ((c) >= 'a' && (c) <= 'z' ? (c) & 0x5F:(c))
  112. int toupper(char c);
  113.  
  114. GNU C:
  115.  
  116. #define toupper(c)    ((c)-'a'+'A')
  117.  
  118. "DECstation" C:
  119.  
  120. #ifdef __STDC__
  121. int    _toupper( int __c );
  122. int    toupper( int __c );
  123. #else
  124. extern    int    toupper();
  125. #endif /* __STDC__ */
  126.  
  127. #if !defined(_POSIX_SOURCE) || defined(_XOPEN_SOURCE)
  128. #define _toupper(c)    ((c)-'a'+'A')
  129. #endif
  130.  
  131. The last one looks a little weird to me !
  132.  
  133. What does the ANSI standard say about toupper ? [comments welcome]
  134.  
  135. This was a rather long post, but I think the problem is a little more
  136. complex, than just saying "GNU C's toupper is bad and VAX C's toupper is
  137. good" !
  138.  
  139.                                                           Arne
  140.  
  141. Arne Vajhxj                             local DECNET:  KO::ARNE
  142. Computer Department                     PSI:           PSI%23831001304030::ARNE
  143. Business School of Southern Denmark     Internet:      ARNE@KO.HHS.DK
  144.  
  145.  
  146.