home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / c / snippet.exe / PCNVRT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-04-27  |  524 b   |  17 lines
  1. /*
  2. **  demo code for converting Pascal string to C strings
  3. **
  4. **  public domain by Bob Stout
  5. */
  6.  
  7. #include <string.h>
  8.  
  9. #define P2Cconvert(s) {int n = *(s); memmove((s), &(s)[1], n); s[n] = '\0';}
  10. #define C2Pconvert(s) {int n = strlen(s); memmove(&(s)[1], (s), n); *(s) = n;}
  11.  
  12.         char string[81];
  13.  
  14.         fgets(string, 81, inFile);   /* get 80-char pascal string */
  15.         P2Cconvert(string);          /* convert it in place       */
  16.         C2Pconvert(string);          /* convert back              */
  17.