home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / compress / misc / xfh / source.lha / src / lib / b2cinplace.c next >
C/C++ Source or Header  |  1992-02-05  |  574b  |  33 lines
  1. /* b2cinplace - in-place conversion between c and bcpl-strings. */
  2.  
  3. #include <exec/types.h>
  4. #include <libraries/dos.h>
  5.  
  6. #include <string.h>
  7.  
  8. char *bstr2cinplace(UBYTE *pp){
  9.    register UBYTE len;
  10.    register UBYTE *p = pp;
  11.    
  12.    for( len=*p; len--; p++ ) p[0] = p[1];
  13.    *p = '\0';
  14.    return (char *)pp;
  15. }
  16.  
  17.  
  18. BSTR cstr2binplace(char *pp){
  19.    register UBYTE len;
  20.    register char c,d;
  21.    register char *p = pp;
  22.    
  23.    len = strlen(p);
  24.    for( c=len; len--; p++ ){
  25.       d=*p;
  26.       *p=c;
  27.       c=d;
  28.    }
  29.    *p=c;
  30.    return (BSTR)((ULONG)pp >> 2);
  31. }
  32.  
  33. /* End of b2cinplace.c */