Annotation of libwww/Library/src/HTAnchor.c, revision 1.84
1.14 frystyk 1: /* HTAnchor.c
2: ** HYPERTEXT "ANCHOR" OBJECT
1.1 timbl 3: **
1.22 frystyk 4: ** (c) COPYRIGHT MIT 1995.
1.14 frystyk 5: ** Please first read the full copyright statement in the file COPYRIGH.
1.84 ! frystyk 6: ** @(#) $Id: HTAnchor.c,v 1.83 1999/01/31 23:25:45 frystyk Exp $
1.14 frystyk 7: **
8: ** An anchor represents a region of a hypertext document which is
9: ** linked to another anchor in the same or a different document.
1.1 timbl 10: **
11: ** History
12: ** Nov 1990 Written in Objective-C for the NeXT browser (TBL)
13: ** 24-Oct-1991 (JFG), written in C, browser-independant
14: ** 21-Nov-1991 (JFG), first complete version
1.41 frystyk 15: ** 3-May-1995 (HF), Added a lot of methods and other stuff made an object
1.54 frystyk 16: ** July 1996 Patch for adding hash of children Michael Farrar
1.1 timbl 17: */
18:
1.16 frystyk 19: /* Library include files */
1.76 frystyk 20: #include "wwwsys.h"
1.50 frystyk 21: #include "WWWUtil.h"
1.7 luotonen 22: #include "HTFormat.h"
1.1 timbl 23: #include "HTParse.h"
1.24 frystyk 24: #include "HTMethod.h"
1.63 frystyk 25: #include "HTWWWStr.h"
1.41 frystyk 26: #include "HTAncMan.h" /* Implemented here */
1.11 frystyk 27:
1.70 frystyk 28: #define HASH_SIZE 599 /* Arbitrary prime. Memory/speed tradeoff */
29: #define CHILD_HASH_SIZE 97 /* Often smaller than hash of parents */
1.1 timbl 30:
31: PRIVATE HTList **adult_table=0; /* Point to table of lists of all parents */
32:
1.17 frystyk 33: /* ------------------------------------------------------------------------- */
34: /* Creation Methods */
35: /* ------------------------------------------------------------------------- */
36:
37: /*
1.1 timbl 38: ** Do not use "new" by itself outside this module. In order to enforce
39: ** consistency, we insist that you furnish more information about the
40: ** anchor you are creating : use newWithParent or newWithAddress.
41: */
1.35 frystyk 42: PRIVATE HTParentAnchor * HTParentAnchor_new (void)
1.1 timbl 43: {
1.43 frystyk 44: HTParentAnchor *newAnchor;
1.54 frystyk 45: if ((newAnchor = (HTParentAnchor *) HT_CALLOC(1, sizeof (HTParentAnchor))) == NULL)
1.43 frystyk 46: HT_OUTOFMEM("HTParentAnchor_new");
1.16 frystyk 47: newAnchor->parent = newAnchor;
1.17 frystyk 48: newAnchor->content_type = WWW_UNKNOWN;
1.24 frystyk 49: newAnchor->mainLink.method = METHOD_INVALID;
1.41 frystyk 50: newAnchor->content_length = -1; /* howcome 6 dec 95 */
1.28 frystyk 51: newAnchor->date = (time_t) -1;
52: newAnchor->expires = (time_t) -1;
53: newAnchor->last_modified = (time_t) -1;
1.59 frystyk 54: newAnchor->age = (time_t) -1;
1.16 frystyk 55: return newAnchor;
1.1 timbl 56: }
57:
1.16 frystyk 58:
1.35 frystyk 59: PRIVATE HTChildAnchor * HTChildAnchor_new (void)
1.1 timbl 60: {
1.43 frystyk 61: HTChildAnchor *child;
62: if ((child = (HTChildAnchor *) HT_CALLOC(1, sizeof(HTChildAnchor))) == NULL)
63: HT_OUTOFMEM("HTChildAnchor_new");
1.33 frystyk 64: return child;
1.1 timbl 65: }
66:
1.17 frystyk 67: /* Create new or find old child anchor
68: ** -----------------------------------
1.1 timbl 69: **
1.3 timbl 70: ** Me one is for a new anchor being edited into an existing
1.17 frystyk 71: ** document. The parent anchor must already exist. All
72: ** children without tags (no NAME attribut) points to the same NULL
73: ** child.
1.54 frystyk 74: ** Children are now hashed for performance reasons. Thanks to
75: ** Michael Farrar
1.1 timbl 76: */
1.35 frystyk 77: PUBLIC HTChildAnchor * HTAnchor_findChild (HTParentAnchor * parent,
1.46 frystyk 78: const char * tag)
1.1 timbl 79: {
1.54 frystyk 80: HTChildAnchor * child = NULL;
81: HTList * kids = NULL;
1.17 frystyk 82: if (!parent) {
1.54 frystyk 83: if (ANCH_TRACE) HTTrace("Child Anchor Bad argument\n");
1.17 frystyk 84: return NULL;
85: }
1.1 timbl 86:
1.54 frystyk 87: /* Find a hash for this tag (if any) */
88: {
89: int hash = 0;
90: /*
91: ** If tag is empty then use hash value 0
92: */
93: if (tag) {
94: const char * ptr = tag;
95: for(; *ptr; ptr++)
96: hash = (int) ((hash*3 + (*(unsigned char*)ptr)) % CHILD_HASH_SIZE);
97: }
1.55 frystyk 98: if (!parent->children) {
99: if (!(parent->children = (HTList **)
1.54 frystyk 100: HT_CALLOC(CHILD_HASH_SIZE, sizeof(HTList *))))
101: HT_OUTOFMEM("HTAnchor_findChild");
102: }
1.55 frystyk 103: if (!parent->children[hash]) parent->children[hash] = HTList_new();
104: kids = parent->children[hash];
1.54 frystyk 105: }
106:
1.17 frystyk 107: /* First search list of children to see if tag is already there */
1.54 frystyk 108: if (tag && *tag) {
109: HTList * cur = kids;
110: while ((child = (HTChildAnchor *) HTList_nextObject(cur))) {
1.56 frystyk 111: if (child->tag && !strcmp(child->tag, tag)) {
1.54 frystyk 112: if (ANCH_TRACE)
113: HTTrace("Child Anchor %p of parent %p with name `%s' already exists.\n",
114: (void *) child, (void *) parent, tag);
115: return child;
1.1 timbl 116: }
117: }
1.54 frystyk 118: }
119:
120: /* If not found then create a new child anchor */
1.17 frystyk 121: child = HTChildAnchor_new();
1.54 frystyk 122: HTList_addObject(kids, (void *) child);
1.17 frystyk 123: child->parent = parent;
1.54 frystyk 124: if (tag) StrAllocCopy(child->tag, tag);
1.17 frystyk 125: if (ANCH_TRACE)
1.54 frystyk 126: HTTrace("Child Anchor New Anchor %p named `%s' is child of %p\n",
1.46 frystyk 127: (void *) child, tag ? tag : (const char *) "", (void *)parent);
1.17 frystyk 128: return child;
1.1 timbl 129: }
130:
131:
132: /* Create new or find old named anchor
133: ** -----------------------------------
134: **
1.3 timbl 135: ** Me one is for a reference which is found in a document, and might
1.1 timbl 136: ** not be already loaded.
137: ** Note: You are not guaranteed a new anchor -- you might get an old one,
138: ** like with fonts.
139: */
1.46 frystyk 140: PUBLIC HTAnchor * HTAnchor_findAddress (const char * address)
1.1 timbl 141: {
1.75 frystyk 142: char *tag = HTParse (address, "", PARSE_VIEW); /* Any tags? */
1.1 timbl 143:
1.16 frystyk 144: /* If the address represents a sub-anchor, we recursively load its parent,
145: then we create a child anchor within that document. */
146: if (*tag) {
1.34 frystyk 147: char *addr = HTParse(address, "", PARSE_ACCESS | PARSE_HOST |
148: PARSE_PATH | PARSE_PUNCTUATION);
149: HTParentAnchor * parent = (HTParentAnchor*) HTAnchor_findAddress(addr);
150: HTChildAnchor * child = HTAnchor_findChild(parent, tag);
1.43 frystyk 151: HT_FREE(addr);
152: HT_FREE(tag);
1.34 frystyk 153: return (HTAnchor *) child;
1.16 frystyk 154: } else { /* Else check whether we have this node */
155: int hash;
1.46 frystyk 156: const char *p;
1.16 frystyk 157: HTList * adults;
158: HTList *grownups;
159: HTParentAnchor * foundAnchor;
1.34 frystyk 160: char *newaddr = NULL;
161: StrAllocCopy(newaddr, address); /* Get our own copy */
1.43 frystyk 162: HT_FREE(tag);
1.38 frystyk 163: newaddr = HTSimplify(&newaddr);
1.34 frystyk 164:
1.16 frystyk 165: /* Select list from hash table */
166: for(p=newaddr, hash=0; *p; p++)
167: hash = (int) ((hash * 3 + (*(unsigned char*)p)) % HASH_SIZE);
1.33 frystyk 168: if (!adult_table) {
1.43 frystyk 169: if ((adult_table = (HTList* *) HT_CALLOC(HASH_SIZE, sizeof(HTList*))) == NULL)
170: HT_OUTOFMEM("HTAnchor_findAddress");
1.33 frystyk 171: }
1.16 frystyk 172: if (!adult_table[hash]) adult_table[hash] = HTList_new();
173: adults = adult_table[hash];
174:
175: /* Search list for anchor */
176: grownups = adults;
177: while ((foundAnchor = (HTParentAnchor *) HTList_nextObject(grownups))){
1.33 frystyk 178: if (!strcmp(foundAnchor->address, newaddr)) {
1.16 frystyk 179: if (ANCH_TRACE)
1.44 eric 180: HTTrace("Find Parent. %p with address `%s' already exists.\n",
1.16 frystyk 181: (void*) foundAnchor, newaddr);
1.43 frystyk 182: HT_FREE(newaddr); /* We already have it */
1.16 frystyk 183: return (HTAnchor *) foundAnchor;
184: }
185: }
186:
187: /* Node not found : create new anchor. */
188: foundAnchor = HTParentAnchor_new();
189: foundAnchor->address = newaddr; /* Remember our copy */
190: HTList_addObject (adults, foundAnchor);
1.44 eric 191: if (ANCH_TRACE) HTTrace("Find Parent. %p with hash %d and address `%s' created\n", (void*)foundAnchor, hash, newaddr);
1.1 timbl 192: return (HTAnchor *) foundAnchor;
193: }
194: }
195:
1.17 frystyk 196: /* Create or find a child anchor with a possible link
197: ** --------------------------------------------------
198: **
199: ** Create new anchor with a given parent and possibly
200: ** a name, and possibly a link to a _relatively_ named anchor.
1.34 frystyk 201: ** All parameters EXCEPT parent can be NULL
1.17 frystyk 202: */
1.34 frystyk 203: PUBLIC HTChildAnchor * HTAnchor_findChildAndLink (HTParentAnchor * parent,
1.46 frystyk 204: const char * tag,
205: const char * href,
1.41 frystyk 206: HTLinkType ltype)
1.17 frystyk 207: {
1.34 frystyk 208: HTChildAnchor * child = HTAnchor_findChild(parent, tag);
1.54 frystyk 209: if (child && href && *href) {
1.53 frystyk 210: char * relative_to = HTAnchor_expandedAddress((HTAnchor *) parent);
1.34 frystyk 211: char * parsed_address = HTParse(href, relative_to, PARSE_ALL);
212: HTAnchor * dest = HTAnchor_findAddress(parsed_address);
1.52 frystyk 213: HTLink_add((HTAnchor *) child, dest, ltype, METHOD_INVALID);
1.43 frystyk 214: HT_FREE(parsed_address);
215: HT_FREE(relative_to);
1.34 frystyk 216: }
217: return child;
1.17 frystyk 218: }
219:
1.52 frystyk 220: /* ------------------------------------------------------------------------- */
221: /* Link Methods */
222: /* ------------------------------------------------------------------------- */
1.28 frystyk 223:
1.41 frystyk 224: /*
225: ** Upgrade the link to the main destination and and downgrade the
226: ** current main link to the list
227: */
228: PUBLIC HTLink * HTAnchor_mainLink (HTAnchor * me)
229: {
230: return me ? &(me->mainLink) : NULL;
231: }
1.28 frystyk 232:
1.41 frystyk 233: PUBLIC BOOL HTAnchor_setMainLink (HTAnchor * me, HTLink * movingLink)
1.28 frystyk 234: {
1.41 frystyk 235: if (!(me && me->links && movingLink &&
236: HTList_removeObject(me->links, movingLink)))
237: return NO;
238: else {
239: /* First push current main link onto top of links list */
1.52 frystyk 240: HTLink * newLink = HTLink_new();
1.42 frystyk 241: memcpy ((void *) newLink, & me->mainLink, sizeof (HTLink));
1.41 frystyk 242: HTList_addObject (me->links, newLink);
243:
1.52 frystyk 244: /* Now make movingLink the new main link, and delete it */
1.42 frystyk 245: memcpy ((void *) &me->mainLink, movingLink, sizeof (HTLink));
1.52 frystyk 246: HTLink_delete(movingLink);
1.28 frystyk 247: return YES;
248: }
249: }
250:
251: /*
1.41 frystyk 252: ** Handling sub links
1.24 frystyk 253: */
1.41 frystyk 254: PUBLIC HTList * HTAnchor_subLinks (HTAnchor * anchor)
1.24 frystyk 255: {
1.41 frystyk 256: return anchor ? anchor->links : NULL;
1.24 frystyk 257: }
258:
1.41 frystyk 259: PUBLIC BOOL HTAnchor_setSubLinks (HTAnchor * anchor, HTList * list)
260: {
261: if (anchor) {
262: anchor->links = list;
263: return YES;
264: }
265: return NO;
266: }
1.24 frystyk 267:
268: /*
1.41 frystyk 269: ** Returns the main destination of this anchor
270: */
271: PUBLIC HTAnchor * HTAnchor_followMainLink (HTAnchor * me)
272: {
1.52 frystyk 273: return me ? HTLink_destination(&me->mainLink) : NULL;
1.71 frystyk 274: }
275:
276: /*
277: ** Returns a link with a given link type or NULL if nothing found
278: */
279: PUBLIC HTLink * HTAnchor_findLinkType (HTAnchor * me, HTLinkType type)
280: {
281: if (me) {
282: HTLink * link = HTAnchor_mainLink(me);
283: HTList * sublinks = HTAnchor_subLinks(me);
284: if (link && HTLink_type(link) == type)
285: return link;
286: else if (sublinks) {
287: while ((link = (HTLink *) HTList_nextObject (sublinks)))
288: if (HTLink_type(link) == type) return link;
289: }
290: }
291: return NULL;
1.17 frystyk 292: }
293:
294: /* ------------------------------------------------------------------------- */
295: /* Deletion Methods */
296: /* ------------------------------------------------------------------------- */
1.1 timbl 297:
298: /* Delete an anchor and possibly related things (auto garbage collection)
299: ** --------------------------------------------
300: **
301: ** The anchor is only deleted if the corresponding document is not loaded.
1.10 frystyk 302: ** All outgoing links from parent and children are deleted, and this
303: ** anchor is removed from the sources list of all its targets.
1.1 timbl 304: ** We also try to delete the targets whose documents are not loaded.
305: ** If this anchor's source list is empty, we delete it and its children.
306: */
307:
1.41 frystyk 308: /* Deletes all the memory allocated in a parent anchor and returns any
309: ** hyperdoc object hanging of this anchor
1.19 frystyk 310: */
1.41 frystyk 311: PRIVATE void * delete_parent (HTParentAnchor * me)
1.19 frystyk 312: {
1.41 frystyk 313: void * doc = me->document;
1.19 frystyk 314:
315: /* Remove link and address information */
1.26 frystyk 316: if (me->links) {
317: HTList *cur = me->links;
318: HTLink *pres;
319: while ((pres = (HTLink *) HTList_nextObject(cur)))
1.52 frystyk 320: HTLink_delete(pres);
1.26 frystyk 321: HTList_delete(me->links);
322: }
1.54 frystyk 323:
324: /* Remove children */
325: if (me->children) {
326: int cnt = 0;
327: for (; cnt<CHILD_HASH_SIZE; cnt++) {
328: if (me->children[cnt]) HTList_delete(me->children[cnt]);
329: }
330: HT_FREE(me->children);
331: }
332:
1.19 frystyk 333: HTList_delete (me->sources);
1.52 frystyk 334: HTList_delete (me->variants);
1.43 frystyk 335: HT_FREE(me->physical);
336: HT_FREE(me->address);
1.19 frystyk 337:
338: /* Then remove entity header information (metainformation) */
1.59 frystyk 339: HTAnchor_clearHeader(me);
1.57 frystyk 340:
1.43 frystyk 341: HT_FREE(me);
1.19 frystyk 342: return doc;
343: }
344:
345:
1.41 frystyk 346: /* Delete a parent anchor and all its children. If a hyperdoc object
347: ** is found hanging off the parent anchor then this is returned
1.19 frystyk 348: */
1.41 frystyk 349: PRIVATE void * delete_family (HTAnchor * me)
1.19 frystyk 350: {
1.64 frystyk 351: HTParentAnchor * parent = NULL;
1.19 frystyk 352: if (!me) {
1.64 frystyk 353: if (ANCH_TRACE) HTTrace("AnchorDelete No anchor found\n");
1.19 frystyk 354: return NULL;
355: }
1.64 frystyk 356: parent = me->parent;
357: if (ANCH_TRACE)
358: HTTrace("AnchorDelete Remove parent %p and children\n", parent);
1.19 frystyk 359:
360: /* Delete children */
361: if (parent->children) {
1.54 frystyk 362: int cnt = 0;
363: for (; cnt<CHILD_HASH_SIZE; cnt++) {
364: HTList * kids = parent->children[cnt];
365: if (kids) {
366: HTChildAnchor * child;
367: while ((child=(HTChildAnchor*)HTList_removeLastObject(kids))) {
368: HT_FREE(child->tag);
369: if (child->links) {
370: HTList * cur = child->links;
371: HTLink * pres;
372: while ((pres = (HTLink *) HTList_nextObject(cur)))
373: HTLink_delete(pres);
374: HTList_delete(child->links);
375: }
376: HT_FREE(child);
377: }
378: HTList_delete(kids);
379: parent->children[cnt] = NULL;
1.26 frystyk 380: }
1.19 frystyk 381: }
382: }
383: return delete_parent(parent);
384: }
385:
386:
387: /* DELETE ALL ANCHORS
388: ** ------------------
389: ** Deletes all anchors and return a list of all the HyperDocs found.
390: ** It is for the application to delete any HyperDocs.
1.39 frystyk 391: ** If NULL then no hyperdocs are returned
1.19 frystyk 392: ** Return YES if OK, else NO
393: */
1.35 frystyk 394: PUBLIC BOOL HTAnchor_deleteAll (HTList * documents)
1.19 frystyk 395: {
396: int cnt;
397: HTList *cur;
1.39 frystyk 398: if (!adult_table)
1.19 frystyk 399: return NO;
400: for (cnt=0; cnt<HASH_SIZE; cnt++) {
401: if ((cur = adult_table[cnt])) {
402: HTParentAnchor *pres;
403: while ((pres = (HTParentAnchor *) HTList_nextObject(cur)) != NULL){
1.41 frystyk 404: void * doc = delete_family((HTAnchor *) pres);
405: if (doc && documents) HTList_addObject(documents, doc);
1.19 frystyk 406: }
407: }
408: HTList_delete(adult_table[cnt]);
409: }
1.43 frystyk 410: HT_FREE(adult_table);
1.19 frystyk 411: return YES;
412: }
413:
1.82 frystyk 414: /*
415: ** Deletes all the metadata associated with anchors but doesn't
416: ** delete the anchor link structure itself. This is much safer
417: ** than deleting the complete anchor structure as this represents the
418: ** complete Web the application has been in touch with
419: */
420: PUBLIC BOOL HTAnchor_clearAll (HTList * documents)
421: {
422: int cnt;
423: HTList * cur;
424: if (!adult_table) return NO;
425: for (cnt=0; cnt<HASH_SIZE; cnt++) {
426: if ((cur = adult_table[cnt])) {
427: HTParentAnchor * pres;
428: while ((pres = (HTParentAnchor *) HTList_nextObject(cur))) {
429:
430: /* Then remove entity header information */
431: HTAnchor_clearHeader(pres);
432:
433: /* Delete the physical address */
434: HT_FREE(pres->physical);
435:
436: /* Register if we have a document on this anchor */
437: if (documents && pres->document)
438: HTList_addObject(documents, pres->document);
439: }
440: }
441: }
442: return YES;
443: }
1.19 frystyk 444:
1.54 frystyk 445: PRIVATE void delete_links (HTAnchor * me)
1.1 timbl 446: {
1.3 timbl 447: if (! me)
1.1 timbl 448: return;
449:
450: /* Recursively try to delete target anchors */
1.3 timbl 451: if (me->mainLink.dest) {
452: HTParentAnchor *parent = me->mainLink.dest->parent;
453: HTList_removeObject (parent->sources, me);
1.1 timbl 454: if (! parent->document) /* Test here to avoid calling overhead */
455: HTAnchor_delete (parent);
456: }
1.3 timbl 457: if (me->links) { /* Extra destinations */
1.1 timbl 458: HTLink *target;
1.12 frystyk 459: while ((target = (HTLink *) HTList_removeLastObject (me->links))) {
1.1 timbl 460: HTParentAnchor *parent = target->dest->parent;
1.3 timbl 461: HTList_removeObject (parent->sources, me);
1.1 timbl 462: if (! parent->document) /* Test here to avoid calling overhead */
463: HTAnchor_delete (parent);
464: }
465: }
466: }
467:
1.35 frystyk 468: PUBLIC BOOL HTAnchor_delete (HTParentAnchor * me)
1.1 timbl 469: {
1.54 frystyk 470: /* Don't delete if document is loaded */
471: if (!me || me->document) {
472: if (ANCH_TRACE) HTTrace("Anchor...... Not deleted\n");
473: return NO;
474: }
475:
476: /* Recursively try to delete target anchors */
477: delete_links ((HTAnchor *) me);
1.1 timbl 478:
1.54 frystyk 479: if (!HTList_isEmpty(me->sources)) { /* There are still incoming links */
480:
481: /*
482: ** Delete all outgoing links from children, if any
483: */
484: if (me->children) {
485: int cnt = 0;
486: for (; cnt<CHILD_HASH_SIZE; cnt++) {
487: HTList * kids = me->children[cnt];
488: if (kids) {
489: HTChildAnchor * child;
490: while ((child = (HTChildAnchor *) HTList_nextObject(kids)))
491: delete_links((HTAnchor *) child);
492: return NO; /* Parent not deleted */
493: }
494: }
495: }
1.1 timbl 496:
1.54 frystyk 497: /*
498: ** No more incoming links : kill everything
499: ** First, recursively delete children
500: */
501: if (me->children) {
502: int cnt = 0;
503: for (; cnt<CHILD_HASH_SIZE; cnt++) {
504: HTList * kids = me->children[cnt];
505: if (kids) {
506: HTChildAnchor * child;
507: while ((child=(HTChildAnchor *) HTList_removeLastObject(kids)))
508: delete_links((HTAnchor *) child);
509: HT_FREE(child->tag);
510: HT_FREE(child);
511: }
512: }
513: }
514: }
1.1 timbl 515:
1.54 frystyk 516: /* Now kill myself */
517: delete_parent(me);
518: return YES; /* Parent deleted */
519: #if 0
1.3 timbl 520: if (! HTList_isEmpty (me->sources)) { /* There are still incoming links */
1.1 timbl 521: /* Delete all outgoing links from children, if any */
1.3 timbl 522: HTList *kids = me->children;
1.12 frystyk 523: while ((child = (HTChildAnchor *) HTList_nextObject (kids)))
1.54 frystyk 524: delete_links ((HTAnchor *) child);
1.1 timbl 525: return NO; /* Parent not deleted */
526: }
527:
528: /* No more incoming links : kill everything */
529: /* First, recursively delete children */
1.12 frystyk 530: while ((child = (HTChildAnchor *) HTList_removeLastObject (me->children))) {
1.54 frystyk 531: delete_links ((HTAnchor *) child);
1.43 frystyk 532: HT_FREE(child->tag);
533: HT_FREE(child);
1.1 timbl 534: }
1.54 frystyk 535: #endif
1.69 frystyk 536: }
537:
538: /* FLATTEN ALL ANCHORS
539: ** -------------------
540: ** Flattens the anchor web structure into an array.
541: ** This is useful for calculating statistics, sorting
542: ** the parent anchors etc.
543: **
544: ** The caller can indicate the size of the array (total
545: ** number of anchors if known - otherwise 0).
546: **
547: ** Return an array that must be freed by the caller or
548: ** NULL if no anchors.
549: */
550: PUBLIC HTArray * HTAnchor_getArray (int growby)
551: {
552: int cnt;
553: HTArray * array = NULL;
554: HTList * cur = NULL;
555: if (!adult_table) return NULL;
556:
557: /* Allocate an array for the anchors */
558: if (!growby) growby = HASH_SIZE;
559: array = HTArray_new(growby);
560:
561: /* Traverse anchor structure */
562: for (cnt=0; cnt<HASH_SIZE; cnt++) {
563: if ((cur = adult_table[cnt])) {
564: HTParentAnchor * pres = NULL;
565: while ((pres = (HTParentAnchor *) HTList_nextObject(cur)) != NULL) {
566: if (HTArray_addObject(array, pres) == NO) {
567: if (ANCH_TRACE)
568: HTTrace("Anchor...... Can't add object %p to array %p\n",
569: pres, array);
570: break;
571: }
572: }
573: }
574: }
575: return array;
1.1 timbl 576: }
577:
1.17 frystyk 578: /* ------------------------------------------------------------------------- */
579: /* Data Access Methods */
580: /* ------------------------------------------------------------------------- */
1.1 timbl 581:
1.35 frystyk 582: PUBLIC HTParentAnchor * HTAnchor_parent (HTAnchor * me)
1.1 timbl 583: {
1.17 frystyk 584: return me ? me->parent : NULL;
1.1 timbl 585: }
586:
1.41 frystyk 587: PUBLIC void HTAnchor_setDocument (HTParentAnchor * me, void * doc)
1.1 timbl 588: {
1.41 frystyk 589: if (me) me->document = doc;
1.1 timbl 590: }
591:
1.41 frystyk 592: PUBLIC void * HTAnchor_document (HTParentAnchor * me)
1.1 timbl 593: {
1.17 frystyk 594: return me ? me->document : NULL;
1.1 timbl 595: }
596:
1.53 frystyk 597: PUBLIC char * HTAnchor_address (HTAnchor * me)
598: {
599: char *addr = NULL;
600: if (me) {
601: if (((HTParentAnchor *) me == me->parent) ||
602: !((HTChildAnchor *) me)->tag) { /* it's an adult or no tag */
603: StrAllocCopy (addr, me->parent->address);
604: }
605: else { /* it's a named child */
606: if ((addr = (char *) HT_MALLOC(2 + strlen (me->parent->address) + \
607: strlen (((HTChildAnchor *) me)->tag))) == NULL)
608: HT_OUTOFMEM("HTAnchor_address");
609: sprintf (addr, "%s#%s", me->parent->address,
610: ((HTChildAnchor *) me)->tag);
611: }
612: }
613: return addr;
614: }
615:
1.51 frystyk 616: /*
1.53 frystyk 617: ** We resolve the child address with respect to either a base URL,
618: ** a content-location, or to the request-URI
1.51 frystyk 619: */
1.53 frystyk 620: PUBLIC char * HTAnchor_expandedAddress (HTAnchor * me)
1.1 timbl 621: {
1.17 frystyk 622: char *addr = NULL;
623: if (me) {
1.53 frystyk 624: HTParentAnchor * parent = me->parent;
1.63 frystyk 625: char * base = HTAnchor_base(parent);
1.17 frystyk 626: if (((HTParentAnchor *) me == me->parent) ||
627: !((HTChildAnchor *) me)->tag) { /* it's an adult or no tag */
1.52 frystyk 628: StrAllocCopy(addr, base);
1.51 frystyk 629: } else { /* it's a named child */
1.52 frystyk 630: if ((addr = (char *) HT_MALLOC(2 + strlen(base) + strlen(((HTChildAnchor *) me)->tag))) == NULL)
1.43 frystyk 631: HT_OUTOFMEM("HTAnchor_address");
1.52 frystyk 632: sprintf (addr, "%s#%s", base, ((HTChildAnchor *) me)->tag);
1.17 frystyk 633: }
1.1 timbl 634: }
1.17 frystyk 635: return addr;
1.1 timbl 636: }
637:
1.52 frystyk 638: /* Physical Address
639: ** ----------------
640: */
641: PUBLIC char * HTAnchor_physical (HTParentAnchor * me)
642: {
1.53 frystyk 643: return me ? me->physical ? me->physical : me->address : NULL;
1.52 frystyk 644: }
645:
1.53 frystyk 646: PUBLIC void HTAnchor_setPhysical (HTParentAnchor * me, char * physical)
1.52 frystyk 647: {
648: if (!me || !physical) {
649: if (ANCH_TRACE)
650: HTTrace("HTAnchor.... setPhysical, called with null argument\n");
651: return;
652: }
653: StrAllocCopy(me->physical, physical);
654: }
655:
1.53 frystyk 656: PUBLIC void HTAnchor_clearPhysical(HTParentAnchor * me)
657: {
658: if (me) HT_FREE(me->physical);
659: }
660:
661: /*
662: ** Children information
663: */
1.35 frystyk 664: PUBLIC BOOL HTAnchor_hasChildren (HTParentAnchor * me)
1.17 frystyk 665: {
1.54 frystyk 666: return (me && me->children);
1.74 frystyk 667: }
668:
669: /*
670: ** Fix up a simple routine to see if this anchor is a (ChildAnchor *)
671: ** Seem to be doing it all over the place, so simplify!
672: */
673: PUBLIC BOOL HTAnchor_isChild (HTAnchor * me)
674: {
675: return (me && (HTParentAnchor *) me != me->parent);
676: }
677:
678: PUBLIC char * HTAnchor_view (HTAnchor * me)
679: {
680: char * view = NULL;
681: if (me && (HTParentAnchor *) me != me->parent && ((HTChildAnchor *) me)->tag)
682: StrAllocCopy(view, ((HTChildAnchor *) me)->tag);
683: return view;
1.17 frystyk 684: }
1.1 timbl 685:
1.63 frystyk 686: /* ------------------------------------------------------------------------- */
687: /* Entity Header Information */
688: /* ------------------------------------------------------------------------- */
689:
1.59 frystyk 690: /*
1.63 frystyk 691: ** Take the relevant infomration from the response object and cache it
692: ** in the anchor object. We inherit the information that is already
693: ** parsed in the response along with the unparsed headers.
1.52 frystyk 694: */
1.63 frystyk 695: PUBLIC BOOL HTAnchor_update (HTParentAnchor * me, HTResponse * response)
1.52 frystyk 696: {
1.63 frystyk 697: if (me && response) {
1.84 ! frystyk 698: HTCachable cachable = HTResponse_isCachable(response);
1.59 frystyk 699:
1.84 ! frystyk 700: if (cachable == HT_CACHE_ETAG) {
1.79 frystyk 701: char * etag = HTResponse_etag(response);
702: if (ANCH_TRACE) HTTrace("HTAnchor.... Updating etag for %p\n", me);
703: if (etag) {
704: HTAnchor_setEtag(me, etag);
705: return YES;
706: }
1.84 ! frystyk 707:
! 708: } else if (cachable == HT_CACHE_NOT_MODIFIED) {
! 709: if (ANCH_TRACE)
! 710: HTTrace("HTAnchor.... Information is up to date for %p\n", me);
! 711: return YES;
! 712:
! 713: } else if (cachable == HT_CACHE_ALL) {
1.81 frystyk 714: char * etag = HTResponse_etag(response);
1.79 frystyk 715: if (ANCH_TRACE)
716: HTTrace("HTAnchor.... Updating metainformation for %p\n", me);
717:
718: /*
719: ** The content length and type is already parsed at this point
720: ** in time. We also check for format parameters like charset etc.
721: ** and copy the contents in the anchor object
722: */
723: me->content_length = HTResponse_length(response);
724: me->content_type = HTResponse_format(response);
725: me->type_parameters = HTResponse_formatParam(response);
1.80 frystyk 726: me->content_encoding = HTResponse_encoding(response);
1.63 frystyk 727:
1.81 frystyk 728: /* Don't forget the etag as well */
729: if (etag) HTAnchor_setEtag(me, etag);
730:
1.79 frystyk 731: /*
732: ** Inherit all the unparsed headers - we may need them later!
733: */
1.83 frystyk 734: if (me->headers) HTAssocList_delete(me->headers);
1.79 frystyk 735: me->headers = HTResponse_handOverHeader(response);
736:
737: /*
738: ** Notifify the response object not to delete the lists that we
739: ** have inherited in the anchor object
740: */
741: HTResponse_isCached(response, YES);
1.59 frystyk 742:
1.84 ! frystyk 743: /*
! 744: ** Set the datestamp of when the anchor was updated if we didn't
! 745: ** get any in the response
! 746: */
! 747: if (!HTAssocList_findObject(me->headers, "date"))
! 748: HTAnchor_setDate(me, time(NULL));
! 749:
1.79 frystyk 750: return YES;
751: }
1.59 frystyk 752: }
753: return NO;
1.52 frystyk 754: }
755:
756: /*
757: ** Variants. If this anchor has any variants then keep them in a list
758: ** so that we can find them later. The list is simply a list of
759: ** parent anchors.
760: */
761: PUBLIC HTList * HTAnchor_variants (HTParentAnchor * me)
1.17 frystyk 762: {
1.52 frystyk 763: return me ? me->variants : NULL;
1.17 frystyk 764: }
1.1 timbl 765:
1.52 frystyk 766: PUBLIC BOOL HTAnchor_addVariant (HTParentAnchor * me,
767: HTParentAnchor * variant)
1.1 timbl 768: {
1.52 frystyk 769: if (me && variant) {
770: if (!me->variants) me->variants = HTList_new();
771: return HTList_addObject(me->variants, variant);
772: }
773: return NO;
1.17 frystyk 774: }
775:
1.52 frystyk 776: PUBLIC BOOL HTAnchor_deleteVariant (HTParentAnchor * me,
777: HTParentAnchor * variant)
1.17 frystyk 778: {
1.52 frystyk 779: return (me && variant) ? HTList_removeObject(me->variants, variant) : NO;
1.9 frystyk 780: }
1.1 timbl 781:
1.52 frystyk 782: /*
783: ** Is this resource an index?
1.17 frystyk 784: */
1.52 frystyk 785: PUBLIC void HTAnchor_clearIndex (HTParentAnchor * me)
786: {
787: if (me) me->isIndex = NO;
788: }
1.17 frystyk 789:
1.52 frystyk 790: PUBLIC void HTAnchor_setIndex (HTParentAnchor * me)
1.1 timbl 791: {
1.52 frystyk 792: if (me) me->isIndex = YES;
1.1 timbl 793: }
794:
1.52 frystyk 795: PUBLIC BOOL HTAnchor_isIndex (HTParentAnchor * me)
1.1 timbl 796: {
1.52 frystyk 797: return me ? me->isIndex : NO;
1.27 frystyk 798: }
799:
1.52 frystyk 800: /* Content Base
1.51 frystyk 801: ** ------------
802: */
803: PUBLIC char * HTAnchor_base (HTParentAnchor * me)
804: {
1.63 frystyk 805: if (me) {
806: if (me->content_base) return me->content_base;
807: if (me->headers) {
808: char * base = HTAssocList_findObject(me->headers, "content-base");
809: /*
810: ** If no base is found then take the content-location if this
811: ** is present and is absolute, else use the Request-URI.
812: */
1.66 frystyk 813: if (base) StrAllocCopy(me->content_base, HTStrip(base));
1.63 frystyk 814: }
1.66 frystyk 815:
816: /*
817: ** Try the content location if any
818: */
819: {
820: char * location = HTAnchor_location(me);
821: StrAllocCopy(me->content_base,
822: (location && HTURL_isAbsolute(location)) ?
823: location : me->address);
824: }
825: return me->content_base;
1.63 frystyk 826: }
827: return NULL;
1.51 frystyk 828: }
829:
830: PUBLIC BOOL HTAnchor_setBase (HTParentAnchor * me, char * base)
831: {
1.63 frystyk 832: if (me && base) {
833: StrAllocCopy(me->content_base, base);
834: return YES;
1.51 frystyk 835: }
1.63 frystyk 836: return NO;
1.51 frystyk 837: }
838:
1.52 frystyk 839: /* Content Location
840: ** ----------------
1.27 frystyk 841: */
1.52 frystyk 842: PUBLIC char * HTAnchor_location (HTParentAnchor * me)
1.27 frystyk 843: {
1.63 frystyk 844: if (me) {
845: if (me->content_location)
846: return *me->content_location ? me->content_location : NULL;
847: if (me->headers) {
848: char * location = HTAssocList_findObject(me->headers, "content-location");
849: StrAllocCopy(me->content_location, location ? HTStrip(location) : "");
850: return me->content_location;
851: }
852: }
853: return NULL;
1.27 frystyk 854: }
855:
1.53 frystyk 856: /*
857: ** Expand the location relative to the base URL if any, otherwise the
858: ** anchor address it self
859: */
1.52 frystyk 860: PUBLIC BOOL HTAnchor_setLocation (HTParentAnchor * me, char * location)
1.27 frystyk 861: {
1.53 frystyk 862: if (me && location) {
1.63 frystyk 863: char * base = HTAnchor_base(me);
864: if (!base) base = me->address;
1.53 frystyk 865: me->content_location = HTParse(location, base, PARSE_ALL);
866: return YES;
1.52 frystyk 867: }
1.53 frystyk 868: return NO;
1.1 timbl 869: }
870:
1.72 frystyk 871: /* Meta tags
872: ** ---------
873: */
874: PUBLIC HTAssocList * HTAnchor_meta (HTParentAnchor * me)
875: {
876: return me ? me->meta_tags : NULL;
877: }
878:
879: PUBLIC BOOL HTAnchor_addMeta (HTParentAnchor * me,
880: const char * name, const char * value)
881: {
882: if (me) {
883: if (!me->meta_tags) me->meta_tags = HTAssocList_new();
884: return HTAssocList_replaceObject(me->meta_tags, name, value);
885: }
886: return NO;
887: }
888:
889: /*
890: ** robots meta tag
891: */
892: PUBLIC char * HTAnchor_robots (HTParentAnchor * me)
893: {
894: if (me && me->meta_tags) {
895: char * robots = HTAssocList_findObject(me->meta_tags, "robots");
896: return robots;
897: }
898: return NULL;
899: }
900:
1.52 frystyk 901: /* Content-Type
902: ** ------------
1.17 frystyk 903: */
1.35 frystyk 904: PUBLIC HTFormat HTAnchor_format (HTParentAnchor * me)
1.17 frystyk 905: {
906: return me ? me->content_type : NULL;
907: }
1.1 timbl 908:
1.35 frystyk 909: PUBLIC void HTAnchor_setFormat (HTParentAnchor * me, HTFormat form)
1.1 timbl 910: {
1.17 frystyk 911: if (me) me->content_type = form;
1.1 timbl 912: }
913:
1.52 frystyk 914: PUBLIC HTAssocList * HTAnchor_formatParam (HTParentAnchor * me)
915: {
916: return me ? me->type_parameters : NULL;
917: }
918:
919: PUBLIC BOOL HTAnchor_addFormatParam (HTParentAnchor * me,
920: const char * name, const char * value)
921: {
922: if (me) {
923: if (!me->type_parameters) me->type_parameters = HTAssocList_new();
924: return HTAssocList_replaceObject(me->type_parameters, name, value);
925: }
926: return NO;
927: }
928:
1.17 frystyk 929: /*
930: ** Charset parameter to Content-Type
1.1 timbl 931: */
1.35 frystyk 932: PUBLIC HTCharset HTAnchor_charset (HTParentAnchor * me)
1.1 timbl 933: {
1.52 frystyk 934: if (me && me->type_parameters) {
935: char * charset = HTAssocList_findObject(me->type_parameters,"charset");
936: return HTAtom_for(charset);
937: }
938: return NULL;
1.1 timbl 939: }
940:
1.52 frystyk 941: PUBLIC BOOL HTAnchor_setCharset (HTParentAnchor * me, HTCharset charset)
1.1 timbl 942: {
1.52 frystyk 943: return HTAnchor_addFormatParam(me, "charset", HTAtom_name(charset));
1.1 timbl 944: }
945:
1.17 frystyk 946: /*
1.20 frystyk 947: ** Level parameter to Content-Type
948: */
1.35 frystyk 949: PUBLIC HTLevel HTAnchor_level (HTParentAnchor * me)
1.20 frystyk 950: {
1.52 frystyk 951: if (me && me->type_parameters) {
952: char * level = HTAssocList_findObject(me->type_parameters, "level");
953: return HTAtom_for(level);
954: }
955: return NULL;
1.20 frystyk 956: }
957:
1.52 frystyk 958: PUBLIC BOOL HTAnchor_setLevel (HTParentAnchor * me, HTLevel level)
1.20 frystyk 959: {
1.52 frystyk 960: return HTAnchor_addFormatParam(me, "level", HTAtom_name(level));
1.20 frystyk 961: }
962:
963: /*
1.17 frystyk 964: ** Content Encoding
965: */
1.47 frystyk 966: PUBLIC HTList * HTAnchor_encoding (HTParentAnchor * me)
1.1 timbl 967: {
1.17 frystyk 968: return me ? me->content_encoding : NULL;
1.1 timbl 969: }
970:
1.63 frystyk 971: PUBLIC BOOL HTAnchor_addEncoding (HTParentAnchor * me, HTEncoding encoding)
1.17 frystyk 972: {
1.47 frystyk 973: if (me && encoding) {
974: if (!me->content_encoding) me->content_encoding = HTList_new();
975: return HTList_addObject(me->content_encoding, encoding);
976: }
977: return NO;
1.17 frystyk 978: }
979:
1.77 frystyk 980: PUBLIC BOOL HTAnchor_deleteEncoding (HTParentAnchor * me, HTEncoding encoding)
1.67 frystyk 981: {
982: return (me && me->content_encoding && encoding) ?
983: HTList_removeObject(me->content_encoding, encoding) : NO;
984: }
985:
1.77 frystyk 986: PUBLIC BOOL HTAnchor_deleteEncodingAll (HTParentAnchor * me)
987: {
988: if (me && me->content_encoding) {
989: HTList_delete(me->content_encoding);
990: me->content_encoding = NULL;
991: return YES;
992: }
993: return NO;
994: }
995:
1.17 frystyk 996: /*
1.21 frystyk 997: ** Content Language
998: */
1.47 frystyk 999: PUBLIC HTList * HTAnchor_language (HTParentAnchor * me)
1.21 frystyk 1000: {
1.63 frystyk 1001: if (me) {
1002: if (me->content_language == NULL && me->headers) {
1003: char * value = HTAssocList_findObject(me->headers, "content-language");
1004: char * field;
1005: if (!me->content_language) me->content_language = HTList_new();
1006: while ((field = HTNextField(&value)) != NULL) {
1007: char * lc = field;
1008: while ((*lc = TOLOWER(*lc))) lc++;
1009: HTList_addObject(me->content_language, HTAtom_for(field));
1010: }
1011: }
1012: return me->content_language;
1013: }
1014: return NULL;
1.21 frystyk 1015: }
1016:
1.63 frystyk 1017: PUBLIC BOOL HTAnchor_addLanguage (HTParentAnchor * me, HTLanguage language)
1.21 frystyk 1018: {
1.47 frystyk 1019: if (me && language) {
1020: if (!me->content_language) me->content_language = HTList_new();
1021: return HTList_addObject(me->content_language, language);
1.77 frystyk 1022: }
1023: return NO;
1024: }
1025:
1026: PUBLIC BOOL HTAnchor_deleteLanguageAll (HTParentAnchor * me)
1027: {
1028: if (me && me->content_language) {
1029: HTList_delete(me->content_language);
1030: me->content_language = NULL;
1031: return YES;
1.47 frystyk 1032: }
1033: return NO;
1.21 frystyk 1034: }
1035:
1036: /*
1.17 frystyk 1037: ** Content Length
1038: */
1.35 frystyk 1039: PUBLIC long int HTAnchor_length (HTParentAnchor * me)
1.1 timbl 1040: {
1.17 frystyk 1041: return me ? me->content_length : -1;
1.1 timbl 1042: }
1043:
1.35 frystyk 1044: PUBLIC void HTAnchor_setLength (HTParentAnchor * me, long int length)
1.17 frystyk 1045: {
1046: if (me) me->content_length = length;
1047: }
1.1 timbl 1048:
1.49 frystyk 1049: PUBLIC void HTAnchor_addLength (HTParentAnchor * me, long int deltalength)
1050: {
1051: if (me) {
1052: if (me->content_length < 0)
1053: me->content_length = deltalength;
1054: else
1055: me->content_length += deltalength;
1056: }
1057: }
1058:
1.17 frystyk 1059: /*
1.63 frystyk 1060: ** Content Transfer Encoding
1061: */
1.73 frystyk 1062: PUBLIC HTEncoding HTAnchor_contentTransferEncoding (HTParentAnchor * me)
1.63 frystyk 1063: {
1.73 frystyk 1064: return me ? me->cte : NULL;
1.63 frystyk 1065: }
1066:
1.73 frystyk 1067: PUBLIC void HTAnchor_setContentTransferEncoding (HTParentAnchor * me, HTEncoding cte)
1.63 frystyk 1068: {
1.73 frystyk 1069: if (me) me->cte = cte;
1.63 frystyk 1070: }
1071:
1072: /*
1.17 frystyk 1073: ** Allowed methods (Allow)
1.1 timbl 1074: */
1.63 frystyk 1075: PUBLIC HTMethod HTAnchor_allow (HTParentAnchor * me)
1.17 frystyk 1076: {
1.63 frystyk 1077: if (me) {
1078: if (me->allow == 0 && me->headers) {
1079: char * value = HTAssocList_findObject(me->headers, "allow");
1080: char * field;
1081:
1082: /*
1083: ** We treat methods allowed on this object as case insensitive
1084: ** in case we receive the information over the net - that is -
1085: ** in the Allow header.
1086: */
1087: while ((field = HTNextField(&value)) != NULL) {
1088: HTMethod new_method;
1089: if ((new_method = HTMethod_enum(field)) != METHOD_INVALID)
1090: me->allow |= new_method;
1091: }
1092: }
1093: return me->allow;
1094: }
1095: return METHOD_INVALID;
1.17 frystyk 1096: }
1.1 timbl 1097:
1.63 frystyk 1098: PUBLIC void HTAnchor_setAllow (HTParentAnchor * me, HTMethod methodset)
1.1 timbl 1099: {
1.63 frystyk 1100: if (me) me->allow = methodset;
1.1 timbl 1101: }
1102:
1.63 frystyk 1103: PUBLIC void HTAnchor_appendAllow (HTParentAnchor * me, HTMethod methodset)
1.1 timbl 1104: {
1.63 frystyk 1105: if (me) me->allow |= methodset;
1.1 timbl 1106: }
1107:
1.17 frystyk 1108: /*
1109: ** Title
1.2 timbl 1110: */
1.46 frystyk 1111: PUBLIC const char * HTAnchor_title (HTParentAnchor * me)
1.1 timbl 1112: {
1.63 frystyk 1113: if (me) {
1114: if (me->title)
1115: return *me->title ? me->title : NULL;
1116: if (me->headers) {
1117: char * value = HTAssocList_findObject(me->headers, "title");
1118: char * title;
1119: if ((title = HTNextField(&value))) StrAllocCopy(me->title, title);
1120: return me->title;
1121: }
1122: }
1123: return NULL;
1.17 frystyk 1124: }
1.1 timbl 1125:
1.46 frystyk 1126: PUBLIC void HTAnchor_setTitle (HTParentAnchor * me, const char * title)
1.17 frystyk 1127: {
1.76 frystyk 1128: if (me && title) {
1129: char * ptr;
1130: StrAllocCopy(me->title, title);
1131: ptr = me->title;
1132: while (*ptr) {
1133: if (isspace((int) *ptr)) *ptr = ' ';
1134: ptr++;
1135: }
1136: }
1.2 timbl 1137: }
1138:
1.46 frystyk 1139: PUBLIC void HTAnchor_appendTitle (HTParentAnchor * me, const char * title)
1.17 frystyk 1140: {
1141: if (me && title) StrAllocCat(me->title, title);
1142: }
1.2 timbl 1143:
1.17 frystyk 1144: /*
1145: ** Version
1.2 timbl 1146: */
1.41 frystyk 1147: PUBLIC char * HTAnchor_version (HTParentAnchor * me)
1.17 frystyk 1148: {
1.63 frystyk 1149: if (me) {
1150: if (me->version)
1151: return *me->version ? me->version : NULL;
1152: if (me->headers) {
1153: char * value = HTAssocList_findObject(me->headers, "version");
1154: char * version;
1155: if ((version = HTNextField(&value)))
1156: StrAllocCopy(me->version, version);
1157: return me->version;
1158: }
1159: }
1160: return NULL;
1.17 frystyk 1161: }
1.2 timbl 1162:
1.46 frystyk 1163: PUBLIC void HTAnchor_setVersion (HTParentAnchor * me, const char * version)
1.2 timbl 1164: {
1.17 frystyk 1165: if (me && version) StrAllocCopy(me->version, version);
1.2 timbl 1166: }
1167:
1.17 frystyk 1168: /*
1169: ** Derived from
1.2 timbl 1170: */
1.41 frystyk 1171: PUBLIC char * HTAnchor_derived (HTParentAnchor * me)
1.17 frystyk 1172: {
1.63 frystyk 1173: if (me) {
1174: if (me->derived_from)
1175: return *me->derived_from ? me->derived_from : NULL;
1176: if (me->headers) {
1177: char * value = HTAssocList_findObject(me->headers, "derived-from");
1178: char * derived_from;
1179: if ((derived_from = HTNextField(&value)))
1180: StrAllocCopy(me->derived_from, derived_from);
1181: return me->derived_from;
1182: }
1183: }
1184: return NULL;
1.17 frystyk 1185: }
1186:
1.46 frystyk 1187: PUBLIC void HTAnchor_setDerived (HTParentAnchor * me, const char *derived_from)
1.17 frystyk 1188: {
1189: if (me && derived_from) StrAllocCopy(me->derived_from, derived_from);
1190: }
1.2 timbl 1191:
1.17 frystyk 1192: /*
1.52 frystyk 1193: ** Content MD5
1194: */
1195: PUBLIC char * HTAnchor_md5 (HTParentAnchor * me)
1196: {
1.63 frystyk 1197: if (me) {
1198: if (me->content_md5)
1199: return *me->content_md5 ? me->content_md5 : NULL;
1200: if (me->headers) {
1201: char * value = HTAssocList_findObject(me->headers, "content-md5");
1202: char * md5;
1203: if ((md5 = HTNextField(&value))) StrAllocCopy(me->content_md5,md5);
1204: return me->content_md5;
1205: }
1206: }
1207: return NULL;
1.52 frystyk 1208: }
1209:
1.63 frystyk 1210: PUBLIC BOOL HTAnchor_setMd5 (HTParentAnchor * me, const char * hash)
1.52 frystyk 1211: {
1.63 frystyk 1212: if (me && hash) {
1213: StrAllocCopy(me->content_md5, hash);
1214: return YES;
1215: }
1216: return NO;
1.52 frystyk 1217: }
1218:
1219: /*
1.28 frystyk 1220: ** Date
1221: */
1.41 frystyk 1222: PUBLIC time_t HTAnchor_date (HTParentAnchor * me)
1223: {
1.63 frystyk 1224: if (me) {
1225: if (me->date == (time_t) -1 && me->headers) {
1226: char * value = HTAssocList_findObject(me->headers, "date");
1227: if (value) me->date = HTParseTime(value, NULL, YES);
1228: }
1229: return me->date;
1230: }
1231: return (time_t) -1;
1.41 frystyk 1232: }
1233:
1.46 frystyk 1234: PUBLIC void HTAnchor_setDate (HTParentAnchor * me, const time_t date)
1.28 frystyk 1235: {
1.41 frystyk 1236: if (me) me->date = date;
1.28 frystyk 1237: }
1238:
1239: /*
1240: ** Expires
1241: */
1.41 frystyk 1242: PUBLIC time_t HTAnchor_expires (HTParentAnchor * me)
1243: {
1.63 frystyk 1244: if (me) {
1245: if (me->expires == (time_t) -1 && me->headers) {
1246: char * value = HTAssocList_findObject(me->headers, "expires");
1247: if (value) me->expires = HTParseTime(value, NULL, YES);
1248: }
1249: return me->expires;
1250: }
1251: return (time_t) -1;
1.41 frystyk 1252: }
1253:
1.46 frystyk 1254: PUBLIC void HTAnchor_setExpires (HTParentAnchor * me, const time_t expires)
1.28 frystyk 1255: {
1.41 frystyk 1256: if (me) me->expires = expires;
1.28 frystyk 1257: }
1258:
1259: /*
1260: ** Last Modified
1261: */
1.41 frystyk 1262: PUBLIC time_t HTAnchor_lastModified (HTParentAnchor * me)
1263: {
1.63 frystyk 1264: if (me) {
1265: if (me->last_modified == (time_t) -1 && me->headers) {
1266: char * value = HTAssocList_findObject(me->headers,"last-modified");
1267: if (value) me->last_modified = HTParseTime(value, NULL, YES);
1268: }
1269: return me->last_modified;
1270: }
1271: return (time_t) -1;
1.41 frystyk 1272: }
1273:
1.46 frystyk 1274: PUBLIC void HTAnchor_setLastModified (HTParentAnchor * me, const time_t lm)
1.28 frystyk 1275: {
1.41 frystyk 1276: if (me) me->last_modified = lm;
1.28 frystyk 1277: }
1278:
1279: /*
1.59 frystyk 1280: ** Age
1281: */
1282: PUBLIC time_t HTAnchor_age (HTParentAnchor * me)
1283: {
1.63 frystyk 1284: if (me) {
1285: if (me->age == (time_t) -1 && me->headers) {
1286: char * value = HTAssocList_findObject(me->headers, "age");
1287: if (value) me->age = atol(value);
1288: }
1289: return me->age;
1290: }
1291: return (time_t) -1;
1.59 frystyk 1292: }
1293:
1294: PUBLIC void HTAnchor_setAge (HTParentAnchor * me, const time_t age)
1295: {
1296: if (me) me->age = age;
1297: }
1298:
1299: /*
1.52 frystyk 1300: ** Entity Tag
1301: */
1302: PUBLIC char * HTAnchor_etag (HTParentAnchor * me)
1303: {
1.63 frystyk 1304: if (me) {
1305: if (me->etag)
1306: return *me->etag ? me->etag : NULL;
1307: if (me->headers) {
1308: char * value = HTAssocList_findObject(me->headers, "etag");
1309: char * etag;
1310: if ((etag = HTNextField(&value))) StrAllocCopy(me->etag, etag);
1311: return me->etag;
1312: }
1313: }
1314:
1.52 frystyk 1315: return me ? me->etag : NULL;
1316: }
1317:
1318: PUBLIC void HTAnchor_setEtag (HTParentAnchor * me, const char * etag)
1319: {
1.78 frystyk 1320: if (me && etag && me->etag != etag) StrAllocCopy(me->etag, etag);
1.52 frystyk 1321: }
1322:
1323: PUBLIC BOOL HTAnchor_isEtagWeak (HTParentAnchor * me)
1324: {
1325: return (me && me->etag && !strncasecomp(me->etag, "W/", 2));
1326: }
1327:
1328: /*
1.63 frystyk 1329: ** Original headers (if any)
1.17 frystyk 1330: */
1.63 frystyk 1331: PUBLIC HTAssocList * HTAnchor_header (HTParentAnchor * me)
1.2 timbl 1332: {
1.63 frystyk 1333: return me ? me->headers : NULL;
1.2 timbl 1334: }
1335:
1.63 frystyk 1336: PUBLIC BOOL HTAnchor_setHeader (HTParentAnchor * me, HTAssocList * headers)
1.2 timbl 1337: {
1.17 frystyk 1338: if (me) {
1.63 frystyk 1339: me->headers = headers;
1340: return YES;
1.17 frystyk 1341: }
1.63 frystyk 1342: return NO;
1.2 timbl 1343: }
1344:
1.23 frystyk 1345: /*
1.59 frystyk 1346: ** Validate anchor values and finish up parsing
1.2 timbl 1347: */
1.59 frystyk 1348: PUBLIC void HTAnchor_setHeaderParsed (HTParentAnchor * me)
1.2 timbl 1349: {
1.59 frystyk 1350: if (me) {
1.62 frystyk 1351: if (ANCH_TRACE) HTTrace("HTAnchor.... Anchor is parsed\n");
1.59 frystyk 1352: me->header_parsed = YES;
1353: }
1.23 frystyk 1354: }
1355:
1.59 frystyk 1356: PUBLIC BOOL HTAnchor_headerParsed (HTParentAnchor * me)
1.23 frystyk 1357: {
1.59 frystyk 1358: return (me ? me->header_parsed : NO);
1.2 timbl 1359: }
1360:
1.17 frystyk 1361: /* Clear Header Information
1362: ** ------------------------
1363: */
1.35 frystyk 1364: PUBLIC void HTAnchor_clearHeader (HTParentAnchor * me)
1.2 timbl 1365: {
1.63 frystyk 1366: if (ANCH_TRACE) HTTrace("HTAnchor.... Clear all header information\n");
1367: me->allow = METHOD_INVALID;
1.48 frystyk 1368: if (me->content_encoding) {
1369: HTList_delete(me->content_encoding);
1.65 frystyk 1370: me->content_encoding = NULL;
1.48 frystyk 1371: }
1.17 frystyk 1372: if (me->content_language) {
1373: HTList_delete(me->content_language);
1.65 frystyk 1374: me->content_language = NULL;
1.9 frystyk 1375: }
1.51 frystyk 1376: HT_FREE(me->content_base);
1377: HT_FREE(me->content_location);
1.17 frystyk 1378: me->content_length = -1; /* Invalid */
1.57 frystyk 1379:
1.59 frystyk 1380: /* Delete the title */
1381: HT_FREE(me->title);
1382:
1.57 frystyk 1383: /* Clear the content type */
1.17 frystyk 1384: me->content_type = WWW_UNKNOWN;
1.52 frystyk 1385: if (me->type_parameters) {
1386: HTAssocList_delete(me->type_parameters);
1387: me->type_parameters = NULL;
1.72 frystyk 1388: }
1389:
1390: /* Meta tags */
1391: if (me->meta_tags) {
1392: HTAssocList_delete(me->meta_tags);
1393: me->meta_tags = NULL;
1.52 frystyk 1394: }
1.57 frystyk 1395:
1396: /* Dates etc. */
1.28 frystyk 1397: me->date = (time_t) -1;
1398: me->expires = (time_t) -1;
1399: me->last_modified = (time_t) -1;
1.59 frystyk 1400: me->age = (time_t) -1;
1.17 frystyk 1401:
1.43 frystyk 1402: HT_FREE(me->derived_from);
1403: HT_FREE(me->version);
1.58 frystyk 1404: HT_FREE(me->etag);
1.63 frystyk 1405:
1406: /* Delete any original headers */
1407: if (me->headers) HTAssocList_delete(me->headers);
1408: me->headers = NULL;
1.1 timbl 1409: }
Webmaster