version 1.19, 1997/02/05 00:19:15
|
version 1.20, 1997/02/05 04:17:42
|
Line 461 char *docName;
|
Line 461 char *docName;
|
/* Use the base path of the document */ |
/* Use the base path of the document */ |
TtaGiveTextAttributeValue (attrHREF, basename, &length); |
TtaGiveTextAttributeValue (attrHREF, basename, &length); |
/* base and orgName have to be separated by a DIR_SEP */ |
/* base and orgName have to be separated by a DIR_SEP */ |
|
length--; |
if (basename[0] != EOS && basename[length] != '/') |
if (basename[0] != EOS && basename[length] != '/') |
/* verify if the base has the form "protocol://server:port" */ |
/* verify if the base has the form "protocol://server:port" */ |
{ |
{ |
Line 493 char *docName;
|
Line 494 char *docName;
|
/* search for the first ":" char */ |
/* search for the first ":" char */ |
{ |
{ |
for (length = 0; basename[length] != ':' && |
for (length = 0; basename[length] != ':' && |
basename[length] != EOS; length ++); |
basename[length] != EOS; length++); |
if (basename[length] == ':') |
if (basename[length] == ':') |
/* found, so end the string there */ |
/* found, so end the string there */ |
basename[length + 1] = EOS; |
basename[length + 1] = EOS; |