home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sys / mac / programm / 13982 < prev    next >
Encoding:
Text File  |  1992-08-14  |  2.7 KB  |  120 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!mcsun!ub4b!info-sparc1.info.ucl.ac.be!NewsWatcher
  3. From: Meessen@slig.ucl.ac.be  (Christophe Meessen)
  4. Subject: Re: annoying pascal strings
  5. Message-ID: <Meessen-140892134803@130.104.58.11>
  6. Followup-To: comp.sys.mac.programmer
  7. Sender: news@info.ucl.ac.be (News Administrator)
  8. Nntp-Posting-Host: 130.104.58.11
  9. Organization: Universite Catholique de Louvain (Belgium)
  10. References: <1992Aug10.132907.23439@das.harvard.edu> <zben-100892215906@zben-mac-ii.umd.edu> <1992Aug13.174942.18261@kronos.arc.nasa.gov>
  11. Date: Fri, 14 Aug 1992 12:21:49 GMT
  12. Lines: 106
  13.  
  14. In article <1992Aug13.174942.18261@kronos.arc.nasa.gov>,
  15. joshr@kronos.arc.nasa.gov (Joshua Rabinowitz-Summer-91) wrote:
  16. > 
  17. > Some common C functions: these modify the string in place.
  18. > ------------
  19. > here is header
  20. > char * CToPStr(char *aCStr);
  21. > char * PToCStr(char *aPStr);
  22. > 
  23. > =
  24. > ------------
  25. > here is source
  26. > ------------
  27. > 
  28. > 
  29. > 
  30. > #include "StrFuncs.h"
  31. > #include <string.h>
  32. > #include <Global.h>
  33. > 
  34. > 
  35. > char * CToPStr(char *aCStr)
  36. > {
  37. >    long i, len;
  38. >    len = strlen(aCStr);
  39. >    for (i=len; i>0; i--) 
  40. >       aCStr[i] = aCStr[i-1];
  41. >       
  42. >    aCStr[0] = Min(255, len);
  43. >    return aCStr;
  44. > }
  45. > 
  46.  
  47. Using pointers is faster.
  48.  
  49. unsigned char * CToPStr( unsigned char *aCStr ) {
  50.     unsigned char i, *srcPtr, *dstPtr;
  51.     
  52.     // scan the line until meets a '\0' or reach PStr limit
  53.     for( i = 0, srcPtr = aCStr; (*srcPtr != '\0') && (i < 255 ); i++ )
  54.                                 srcPtr++;  
  55.  
  56.     // shift the string one char
  57.     dstPtr = srcPtr--;
  58.     while( srcPtr >= aCStr )
  59.        *dstPtr-- = *srcPtr--;
  60.     
  61.     // store the string size
  62.     *aCStr = i;
  63. }
  64.  
  65. Using Apple toolbox routines it becomes:
  66.  
  67. unsigned char * CToPStr( unsigned char *aCStr ) {
  68.     unsigned char i, *dstPtr;
  69.     
  70.     // scan the line until meets a '\0' or reach PString limit
  71.     for( i = 0, dstPtr = aCStr; (*dstPtr != '\0') && (i < 255 ); i++ )
  72.                                 dstPtr++;  
  73.  
  74.     // shift the string one char
  75.     BlockMove( aCStr, aCStr+1, i );
  76.     
  77.     // store the string size
  78.     *aCStr = i;
  79. }
  80.  
  81.  
  82. > 
  83. > char *PToCStr(char *aPStr)
  84. > {
  85. >    long i, len;
  86. >    len = *aPStr;
  87. >    for (i=0; i<len; i++) 
  88. >       aPStr[i] = aPStr[i+1];
  89. >    aPStr[len] = '\0';
  90. >    return aPStr;
  91. > }
  92.  
  93.  
  94. here it's simpler:
  95.  
  96. unsigned char * PToCStr( char * aPStr ) {
  97.    unsigned char i, srcPtr, dstPtr;
  98.  
  99.    srcPtr++ = dstPtr = aPStr;
  100.    for( i = *aPStr; i ; i-- )
  101.        *dstPtr++ = *srcPtr++;
  102.    *dstPtr = "\0";
  103. }
  104.  
  105. or using the ToolBox
  106.  
  107. unsigned char * PToCStr( char * aPStr ) {
  108.    unsigned char i, srcPtr, dstPtr;
  109.     
  110.             i = *aPStr;
  111.    BlockMove( aPStr, aPstr + 1, (long)*aPStr );
  112.    aPStr + i = i;
  113. }
  114.  
  115.  
  116.  
  117. Bien cordialement,
  118.  
  119.                            Christophe MEESSEN
  120.