29 lines
729 B
C
29 lines
729 B
C
|
/*
|
||
|
|
* Copyright (c) 1993 by the University of Southern California
|
||
|
|
* For copying and distribution information, please see the file
|
||
|
|
* <usc-copyr.h>.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <usc-copyr.h>
|
||
|
|
|
||
|
|
#include <pfs.h>
|
||
|
|
|
||
|
|
/* Used by ARCHIE database code to convert slashpath to token lists.
|
||
|
|
We can use the same regular p__slashpath2tkl to convert back. */
|
||
|
|
/* Jan 10, 1994: I believe this code is now vestigial. If it isn't, it must
|
||
|
|
be rewritten. */
|
||
|
|
|
||
|
|
char *
|
||
|
|
p__tkl_2slashpath(TOKEN nextcomp_tkl)
|
||
|
|
{
|
||
|
|
char buf[MAX_VPATH];
|
||
|
|
|
||
|
|
assert("p__tkl_2slashpath() must be rewritten.");
|
||
|
|
*buf = '\0';
|
||
|
|
for(; nextcomp_tkl; nextcomp_tkl = nextcomp_tkl->next) {
|
||
|
|
strcat(buf, nextcomp_tkl->token);
|
||
|
|
strcat(buf, "/");
|
||
|
|
}
|
||
|
|
return buf;
|
||
|
|
}
|