home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nethack-3.1 / sys / mac / mstring.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-25  |  651 b   |  46 lines
  1. /*    SCCS Id: @(#)mstring.c    3.1    93/01/24          */
  2. /* Copyright (c) Jon W{tte */
  3. /* NetHack may be freely redistributed.  See license for details. */
  4.  
  5. #ifdef applec
  6.  
  7. extern int strlen ( char * ) ;
  8. char * PtoCstr ( unsigned char * ) ;
  9. unsigned char * PtoCstr ( char * ) ;
  10.  
  11. char *
  12. PtoCstr ( unsigned char * p )
  13. {
  14.     int len = * p ;
  15.     char * ret = ( char * ) p ;
  16.  
  17.     while ( len -- ) {
  18.  
  19.         * p = p [ 1 ] ;
  20.         p ++ ;
  21.     }
  22.     * p = 0 ;
  23.  
  24.     return ret ;
  25. }
  26.  
  27.  
  28. unsigned char *
  29. CtoPstr ( char * p )
  30. {
  31.     int len = strlen ( p ) ;
  32.     unsigned char * ret = ( unsigned char * ) p ;
  33.  
  34.     p += len ;
  35.     while ( p > ret ) {
  36.  
  37.         * p = p [ -1 ] ;
  38.         p -- ;
  39.     }
  40.     * ret = len ;
  41.  
  42.     return ret ;
  43. }
  44.  
  45. #endif
  46.