Category : Recently Uploaded Files
Archive   : SNIP9503.ZIP
Filename : PSPLIT.C

 
Output of file : PSPLIT.C contained in archive : SNIP9503.ZIP
/*
** psplit() - Portable replacement for fnsplit(), _splitpath(), etc.
**
** Splits a full DOS pathname into drive, path, file, and extension
** specifications. Works with forward or back slash path separators and
** network file names, e.g. NET:LOONEY/BIN\WUMPUS.COM, Z:\MYDIR.NEW/NAME.EXT
**
** Arguments: 1 - Full pathname to split
** 2 - Buffer for drive
** 3 - Buffer for path
** 4 - Buffer for name
** 5 - Buffer for extension
**
** Returns: Nothing
**
** public domain by Bob Stout
*/

#include
#include

#define NUL '\0'

void psplit(char *path, char *drv, char *dir, char *fname, char *ext)
{
char ch, *ptr, *p;

/* convert slashes to backslashes for searching */

for (ptr = path; *ptr; ++ptr)
{
if ('/' == *ptr)
*ptr = '\\';
}

/* look for drive spec */

if (NULL != (ptr = strchr(path, ':')))
{
++ptr;
if (drv)
{
strncpy(drv, path, ptr - path);
drv[ptr - path] = NUL;
}
path = ptr;
}
else if (drv)
*drv = NUL;

/* find rightmost backslash or leftmost colon */

if (NULL == (ptr = strrchr(path, '\\')))
ptr = (strchr(path, ':'));

if (!ptr)
{
ptr = path; /* obviously, no path */
if (dir)
*dir = NUL;
}
else
{
++ptr; /* skip the delimiter */
if (dir)
{
ch = *ptr;
*ptr = NUL;
strcpy(dir, path);
*ptr = ch;
}
}

if (NULL == (p = strrchr(ptr, '.')))
{
if (fname)
strcpy(fname, ptr);
if (ext)
*ext = NUL;
}
else
{
*p = NUL;
if (fname)
strcpy(fname, ptr);
*p = '.';
if (ext)
strcpy(ext, p);
}
}

#ifdef TEST

#include

int main(int argc, char *argv[])
{
char drive[10], pathname[FILENAME_MAX], fname[9], ext[5];

while (--argc)
{
psplit(*++argv, drive, pathname, fname, ext);
printf("psplit(%s) returns:\n drive = %s\n path = %s\n"
" name = %s\n ext = %s\n",
*argv, drive, pathname, fname, ext);
}
return EXIT_SUCCESS;
}

#endif


  3 Responses to “Category : Recently Uploaded Files
Archive   : SNIP9503.ZIP
Filename : PSPLIT.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/