home *** CD-ROM | disk | FTP | other *** search
/ Media Share 13 / mediashare_13.zip / mediashare_13 / ZIPPED / PROGRAM / SNPD9404.ZIP / PCNVRT.C < prev    next >
Text File  |  1994-04-03  |  548b  |  21 lines
  1. .I 0 2
  2. /*
  3. **  demo code for converting Pascal strings to/from C strings
  4. .D 1 2
  5. .I 8 3
  6. typedef unsigned char UCHAR;
  7.  
  8. #define P2Cconvert(s) {UCHAR n = *(s); memmove((s), &(s)[1], n); s[n] = '\0';}
  9. .D 9 1
  10. .I 11 9
  11. #if (0)                             /* Demo code fragment follows */
  12.  
  13.       char string[81];
  14.  
  15.       fgets(string, 81, inFile);    /* get 80-char pascal string  */
  16.       P2Cconvert(string);           /* convert it in place        */
  17.       C2Pconvert(string);           /* convert back               */
  18.  
  19. #endif 
  20. .D 12 5
  21.