home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / JAZLIB.ARC / JZPRSFIL.C < prev    next >
Encoding:
Text File  |  1986-07-02  |  1.1 KB  |  40 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │jzprsfil.c                                     │
  4. │Parse out the file name and the path from a full path spec.             │
  5. │Note that the path WILL contain a "\" after it !                            │
  6. │Synopsis:                                     │
  7. │  *fullpath = "\\MSC\\JAZ\\SOURCE";                                         │
  8. │  jzprsfil(fullpath,wpath,wfile);                         │
  9. │  printf("%s %s",wpath,wfile);        { will output }                       │
  10. │                       { \MSC\JAZ\ SOURCE }             │
  11. │                                         │
  12. └────────────────────────────────────────────────────────────────────────────┘
  13. */
  14.  
  15. jzprsfil(ffull,fpath,fsource)
  16. char *ffull,
  17.      *fpath,
  18.      *fsource;
  19. {
  20.   int w;
  21.  
  22.   w = strlen(ffull) - 1;
  23.  
  24.   while ((w >= 0) && ((*(ffull+w) != ':') && (*(ffull+w) != '\\')))
  25.     w --;
  26.  
  27.   if (w == -1) {
  28.     *fpath = 0;         /* return null path */
  29.     strcpy(fsource,ffull);    /* copy full path to source */
  30.   }
  31.   else {
  32.     strncpy(fpath,ffull,++w);
  33.     *(fpath+w) = 0;        /* terminate the string */
  34.  
  35.     while (*fsource++ = *(ffull+w++))
  36.       ;
  37.   }
  38. }
  39.  
  40.