/* Create a new transfer coder and insert it into stream chain
** -----------------------------------------------------------
** Creating the content decoding stack is not based on quality factors as
** we don't have the freedom as with content types. Specify whether you
** you want encoding or decoding using the BOOL "encode" flag.
*/
PUBLIC HTStream * HTContentTransferCodingStack (HTEncoding encoding,
HTStream * target,
HTRequest * request,
void * param,
BOOL encode)
{
HTList * coders[2];
HTStream * top = target;
HTCoding * pres = NULL;
int cnt;
if (!encoding || !request) {
HTTRACE(CORE_TRACE, "C-T-E..... Nothing applied...\n");
return target ? target : HTErrorStream();
}
/*
** We use the same encoders/decoders as for Transfer-Encodings
*/
coders[0] = HTRequest_transfer(request);
coders[1] = HTTransferCoders;
HTTRACE(CORE_TRACE, "C-T-E....... Looking for %s\n" _ HTAtom_name(encoding));
for (cnt=0; cnt < 2; cnt++) {
HTList * cur = coders[cnt];
while ((pres = (HTCoding *) HTList_nextObject(cur))) {
if (pres->encoding == encoding) {
HTTRACE(CORE_TRACE, "C-T-E....... Found...\n");
if (encode) {
if (pres->encoder)
top = (*pres->encoder)(request, param, encoding, top);
break;
} else if (pres->decoder) {
top = (*pres->decoder)(request, param, encoding, top);
break;
}
}
}
}
/*
** If this is not a unity coding and we didn't find any coders
** that could handle it then put in a local file save stream
** instead of the stream that we got.
*/
if (!HTFormat_isUnityTransfer(encoding) && target==top) {
if (encode) {
HTTRACE(CORE_TRACE, "C-T-E....... NOT FOUND - removing encoding!\n");
HTAnchor_setContentTransferEncoding(HTRequest_anchor(request), NULL);
} else {
HTTRACE(CORE_TRACE, "C-T-E....... NOT FOUND - error!\n");
top = HTBlackHole();
}
}
return top;
}
/*
** Use the set of bindings to find the combination of language,
** media type and encoding of a given object. This information can either be
** stored in the anchor obejct or in the response object depending on which
** function is called.
**
** We comprise here as bindings only can have one language and one encoding.
** If more than one suffix is found they are all searched. The last suffix
** has highest priority, the first one lowest. See also HTBind_getFormat()
*/
PUBLIC BOOL HTBind_getAnchorBindings (HTParentAnchor * anchor)
{
BOOL status = NO;
double quality=1.0; /* @@@ Should we add this into the anchor? */
if (anchor) {
char *addr = HTAnchor_address((HTAnchor *) anchor);
char *path = HTParse(addr, "", PARSE_PATH+PARSE_PUNCTUATION);
char *file;
char *end;
if ((end = strchr(path, ';')) || (end = strchr(path, '?')) ||
(end = strchr(path, '#')))
*end = '\0';
if ((file = strrchr(path, '/'))) {
HTFormat format = NULL;
HTEncoding encoding = NULL;
HTEncoding transfer = NULL;
HTLanguage language = NULL;
HTTRACE(BIND_TRACE, "Anchor...... Get bindings for `%s\'\n" _ path);
status = HTBind_getFormat(file, &format, &encoding, &transfer,
&language, &quality);
if (status) {
HTAnchor_setFormat(anchor, format);
HTAnchor_setContentTransferEncoding(anchor, transfer);
HTAnchor_deleteEncodingAll(anchor);
HTAnchor_addEncoding(anchor, encoding);
HTAnchor_deleteLanguageAll(anchor);
HTAnchor_addLanguage(anchor, language);
}
}
HT_FREE(addr);
HT_FREE(path);
}
return status;
}
