开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
style.c
资源名称：arena-beta-2b-src.tar.gz　[点击查看]
上传用户：zlh9724
上传日期：2007-01-04
资源大小：1991k
文件大小：62k
源码类别：

浏览器

开发平台：

Unix_Linux

style.c：源码内容
  1. /*
  3. howcome  27/9/95:
  5. This is the style sheet module (i.e. the "styler") of Arena. It will
  6. parse CSS style sheets into structures that can be queried by the
  7. formatter of e.g an HTML browser.
  9. Typically, the application will create a new style sheet initialized
  10. with the application fallback values. For this, use StyleGetInit
  12. Then, if the user has a personal style sheet -- or if incoming
  13. documents have style sheets -- they can be parsed and added to an
  14. exsiting style sheet by StyleChew
  16. As the HTML/SGML parser encounters tags, FormatElementStart should be
  17. called to have style properties evaluated for the specific element in
  18. this specific context. The set of properties are pushed onto a stack
  19. which corresponds to the document structure.
  21. The formatter can query the style properties of the current element
  22. StyleGet.
  24. FormatElementEnd pops a set of style properties from the stack and
  25. shoul be called when the parser reports the end of an element.
  28. History:
  30. howcome 15/2/94: written from scratch
  32. Dave Raggett:
  34. How about the following notation for style:
  36.         * -> font.name = times
  38.         H1 -> font.name = garamond
  39.         H[2-6] -> font.name = helvetica
  40.         
  41.         P.CLASS = abstract ->
  42.             {
  43.                 font.name = helvetica
  44.                 font.size = 10 pt
  45.                 indent.left = 4 em
  46.                 indent.right = 4 em
  47.             }
  49. The left hand side of the "->" operator matches tag names and uses
  50. the dot notation for attribute values. You can use regular expressions
  51. such as [digit-digit] [letter-letter] * and ?. The browser is responsible
  52. for sorting the rules in order of most to least specificity so it doesn't
  53. matter that the first rule matches anything.
  55. The right hand side simply sets property values. The HTML formatter knows
  56. what properties are relevant to which elements. Some properties are
  57. specific to one kind of element, while others are generic. Properties
  58. set by a more specific rule (matching the current element) override values
  59. set by least specific rules or values inherited from nested or peer elements.
  62. howcome 1/4/95: 
  64.   Dave's proposal for syntax has been implemented with some shortcuts.
  65.   The "->" construct was replaced by ":" whish should have the same associations. 
  67.   The "P.CLASS = abstract" construct is more general than required for
  68.   the class attribute. As a shortcut, "P [abstract]" has been implemented.
  70. howcome 5/4/95: 
  72.   pattern searches implemented /H1 P/: color.text = #FFF
  74.   Also, commands can be put on the same line with a ";" separating.
  76.   # this is a comment
  77.   / so is this
  79. howcome 5/95: changes to the syntax:
  81.   class is now always denoted p.foo
  82.   elemets and hints can be grouped:
  84.   H1, H2: font.family = helvetica; font.color = #F00
  86. howcome 8/95:
  88.   style sheet module updated to support the august 10 version of
  90.     http://www.w3.org/hypertext/WWW/Style/css/draft.html
  92. */
  95. #include <stdio.h>
  96. #include <stdarg.h>
  97. #include <signal.h>
  98. #include <sys/types.h>
  99. #include <unistd.h>
  100. #include <sys/stat.h>
  101. #include <fcntl.h>
  102. #include <string.h>
  104. #include "www.h"
  106. extern int debug;
  107. extern Doc *CurrentDoc;
  108. extern Context *context;
  109. extern int PixOffset;
  110. extern int paintlen;
  111. extern int paintStartLine;
  112. extern Byte *paint;
  113. extern unsigned int ui_n;
  114. extern unsigned int win_width, win_height;
  115. extern int fontsize;
  116. extern int prepass;
  117. extern int sbar_width;
  118. extern unsigned int win_width, win_height;
  119. extern int ToolBarHeight;
  120. extern int statusHeight;
  121. extern int damn_table;
  123. double lens_factor = 1.0;
  125. extern int math_normal_sym_font, math_small_sym_font,
  126.     math_normal_text_font, math_small_text_font, math_italic_text_font,
  127.     math_bold_text_font;
  133. HTList *style_stack = NULL;
  134. StyleFlat *current_flat;
  135. StyleSheet *current_sheet;
  137. /* 
  138.   str2list is a convenience function to make a list out of two strings
  139. */
  141. HTList *str2list(char *s, char *t)
  142. {
  143.     HTList *l = HTList_new();
  145.     if (t)
  146. HTList_addObject(l, strdup(t));
  147.     if (s)
  148. HTList_addObject(l, strdup(s));
  149.     return l;       
  150. }
  152. /*
  153.   pt2px converts points to pixels
  155.   display_pt2px =  (25.4 / 72.0) * 
  156.     (((double) DisplayWidth(display,screen)) / ((double) DisplayWidthMM(display, screen)));
  157. */
  160. extern double display_pt2px;
  162. int pt2px(double pt)
  163. {
  164.     return (int) ((display_pt2px * pt) + 0.5);
  165. }
  168. /* 
  169.   The Flag functions are used to remember various settings. E.g., if
  170.   there is a big initial, we want that property to inherit to child
  171.   elements, but we do not want it to be used more than once. Depending
  172.   on your HTML/SGML parser, this problem may have more elegant solution
  173. */
  176. BOOL StyleGetFlag(int flag)
  177. {
  178.     switch (flag)
  179.     {
  180.     case S_INITIAL_FLAG:
  181. return current_sheet->initial_flag;
  182. break;
  183.     case S_LEADING_FLAG:
  184. return current_sheet->leading_flag;
  185. break;
  186.     case S_INDENT_FLAG:
  187. return current_sheet->indent_flag;
  188. break;
  189.     case S_MARGIN_TOP_FLAG:
  190. return current_sheet->margin_top_flag;
  191. break;
  192.     }
  193.     return FALSE;
  194. }
  196. void StyleSetFlag(int flag, BOOL value)
  197. {
  198.     switch (flag)
  199.     {
  200.     case S_INITIAL_FLAG:
  201. current_sheet->initial_flag = value;
  202. break;
  203.     case S_LEADING_FLAG:
  204. current_sheet->leading_flag = value;
  205. break;
  206.     case S_INDENT_FLAG:
  207. current_sheet->indent_flag = value;
  208. break;
  209.     case S_MARGIN_TOP_FLAG:
  210. current_sheet->margin_top_flag = value;
  211. break;
  212.     }
  213. }
  218. /* methods */
  221. StyleRule *NewStyleRule()
  222. {
  223.     return (StyleRule *)calloc(1,sizeof(StyleRule));
  224. }
  227. StyleSelector *NewStyleSelector()
  228. {
  229.     return (StyleSelector *)calloc(1,sizeof(StyleSelector));
  230. }
  232. StyleSheet *NewStyleSheet()
  233. {
  234.     return (StyleSheet *)calloc(1,sizeof(StyleSheet));
  235. }
  237. /* NewStyleFlat allocates memory AND sets initial values. CHANGE! */
  239. StyleFlat *NewStyleFlat()
  240. {
  241.     StyleFlat *sf;
  243.     sf = (StyleFlat *)calloc(1, sizeof(StyleFlat));
  245.     sf->value[S_MARGIN_LEFT] = (void *)20; /* 30 */
  246.     sf->status[S_MARGIN_LEFT] = S_INITIALIZED;
  247.     sf->value[S_MARGIN_RIGHT] = (void *)20; /* 20 */
  248.     sf->status[S_MARGIN_RIGHT] = S_INITIALIZED;
  249.     sf->value[S_MARGIN_TOP] = (void *)5; /* 5 */
  250.     sf->status[S_MARGIN_TOP] = S_INITIALIZED;
  251.     sf->value[S_MARGIN_BOTTOM] = (void *)5; /* 5 */
  252.     sf->status[S_MARGIN_BOTTOM] = S_INITIALIZED;
  253.     return sf;
  254. }
  257. void FreeStyleSelector(StyleSelector *selector)
  258. {
  259.     StyleSelector *prev_selector;
  261.     prev_selector = selector;
  263.     while((selector = selector->ancestor)) {
  264. Free(prev_selector->unit.class);
  265. Free(prev_selector);
  266. prev_selector = selector;
  267.     }
  268.     if(!prev_selector)
  269.     {
  270. Free(prev_selector->unit.class);
  271. Free(prev_selector);
  272.     }
  273. }
  276. void FreeStyleRule(StyleRule *r)
  277. {
  278.     if (!r)
  279. return;
  281.     FreeStyleSelector(r->selector);
  282.     Free(r->warning);
  283. }
  284.     
  286. void FreeStyleSheet(StyleSheet *s)
  287. {
  288.     HTList *l;
  289.     StyleRule *r;
  290.     int i;
  292.     if (!s)
  293. return;
  295.     for(i = 0; i<TAG_LAST; i++) {
  296. if ((l = s->element[i]))
  297.     while ((r = (StyleRule *)HTList_nextObject(l)))
  298. FreeStyleRule(r);
  299.     }
  300.     Free(s);
  301. }
  303. /*
  304. void StyleFree(StyleSheet *sheet)
  305. {
  306.     int i;
  308.     for(i=0; i<TAG_LAST; i++) {
  309. HTList_destroy(sheet->element[i]);
  310.     }
  311.     Free(sheet);
  312. }
  313. */
  315. StyleSelector *CopySelector(StyleSelector *s)
  316. {
  317.     StyleSelector *sc;
  319.     if (!s)
  320. return NULL;
  322.     sc = NewStyleSelector();
  323.     memcpy(sc, s, sizeof(StyleSelector));
  324.     sc->ancestor = CopySelector (s->ancestor);
  325.     return(sc);
  326. }
  328. StyleSheet *StyleCopy(StyleSheet *s)
  329. {
  330.     StyleSheet *sc = NewStyleSheet();
  331.     int i;
  332.     HTList *l, *lc;
  333.     StyleRule *r, *rc;
  335.     for (i=0; i<TAG_LAST; i++) {
  336. l = s->element[i];
  337. lc = sc->element[i];
  338. while ( (r = (StyleRule *) HTList_nextObject(l) )) {
  339.     rc = NewStyleRule();
  340.     rc->property = r->property;
  341.     rc->value = r->value;
  342.     rc->weight = r->weight;
  343.     if (r->warning)
  344. rc->warning = strdup(r->warning);
  346.     rc->selector = CopySelector(r->selector);
  347.     if (!lc)
  348. lc = sc->element[i] = HTList_new();
  349.     HTList_addObject(lc, (void *) rc);
  350. }
  351.     }
  352.     return sc;
  353. }
  356. /* find, and grade selector matches */
  358. /* 
  359.    SelectorUnitMatch matches two "selector utits", i.e. an element
  360.    with accompanying class (and, in level 2, attributes in general.
  362.    r = rule, s = stack
  364.    The gradins schems is simple: 
  366.    0 = failure, no match
  367.    1 = element matches, no classes specified in rule
  368.    2 = element matches, classes specified and matches
  370. */
  372. int SelectorUnitMatch(StyleSelectorUnit *r, StyleSelectorUnit *s)
  373. {
  374.     if (r->element == s->element) {
  375. if (r->class) {
  376.     if ((s->class) && (strcasecmp(r->class, s->class) == 0)) {
  377. return 2;
  378.     }
  379.     return 0;
  380. }
  381. return 1;
  382.     }
  383.     return 0;
  384. }
  386. int SelectorMatch(StyleSelector *s, StyleSelectorUnit *unit_p, HTList *style_stack)
  387. {
  388.     HTList *l = style_stack;
  389.     StyleStackElement *stack_el;
  390.     int score = 0;
  392.     if (! (score = SelectorUnitMatch(&s->unit, unit_p)))
  393. return score;
  395.     s = s->ancestor;
  396.     if (!s)
  397. return score;
  399.     while (s && (stack_el = (StyleStackElement *)HTList_nextObject(l))) {
  400. if ( (score += SelectorUnitMatch(&s->unit, &stack_el->unit)) )
  401.     s = s->ancestor;
  402. if (!s)
  403.     return 0;
  404.     }
  405.     return score;
  406. }
  409. /* 
  410.    StyleEval flattens the whole list of properties. One could argue
  411.    that properties should only be evaluated when needed. That would be
  412.    a little more complicated.
  413. */
  416. StyleFlat *StyleEval(StyleSheet *sheet, StyleSelectorUnit *unit_p, HTList *style_stack)
  417. {
  418.     StyleStackElement *stack_el;
  419.     StyleFlat *last_flat = NULL, *flat = NewStyleFlat();
  420.     StyleRule *rule;
  421.     StyleProperty i;
  422.     HTList *l;
  423.     BOOL recompute_font = FALSE, recompute_alt_font = FALSE;
  424.     long value;
  425.     int selector_score;
  427.     if (REGISTER_TRACE)
  428. fprintf(stderr,"StyleEval: %d, depth of list: %dn", unit_p->element, HTList_count(style_stack));
  430.     /* init flat */
  432.     stack_el = (StyleStackElement *)HTList_lastObject(style_stack);
  434.     if (stack_el) {
  435. last_flat = stack_el->flat;
  437. /* copy the inherited properties from ancestor */
  439. for (i=S_UNKNOWN; i < S_NPROPERTY; i++) {
  440.     switch (i) {
  442. /* these properies are not inherited */
  444.       case S_MARGIN_TOP:
  445.       case S_MARGIN_RIGHT:
  446.       case S_MARGIN_BOTTOM:
  447.       case S_MARGIN_LEFT:
  448.       case S_INDENT:
  449.       case S_PADDING:
  450.       case S_BACKGROUND:
  451.       case S_ALT_BACKGROUND:
  452. break;
  454.       default:
  455. if ((last_flat->status[i] == S_INHERITED) || (last_flat->status[i] == S_INFERRED)) {
  456.     flat->value[i] = last_flat->value[i];
  457.     flat->weight[i] = last_flat->weight[i];
  458.     flat->status[i] = S_INHERITED;
  459. }
  460.     }
  461. }
  462.     }
  464.     /* go through list of rules */
  466.     l = sheet->element[unit_p->element];
  468.     while ( (rule = (StyleRule *) HTList_nextObject(l) )) {
  469. if ((selector_score = SelectorMatch(rule->selector, unit_p, style_stack)) && (rule->weight + selector_score >= flat->weight[rule->property])) {
  470.     flat->value[rule->property] = rule->value;
  471.     flat->weight[rule->property] = rule->weight + selector_score;
  472.     flat->status[rule->property] = S_INFERRED;
  474.     switch (rule->property) {
  475.       case S_FONT_SHORTHAND:
  476.       case S_FONT_FAMILY:
  477.       case S_FONT_SIZE:
  478. /*       case S_FONT_SIZE_INDEX:*/
  479.       case S_FONT_WEIGHT:
  480.       case S_FONT_STYLE:
  481. /*        case S_FONT_LEADING: */
  482. recompute_font = TRUE;
  483. break;
  485.       case S_ALT_FONT_SHORTHAND:
  486.       case S_ALT_FONT_FAMILY:
  487.       case S_ALT_FONT_SIZE:
  488. /*       case S_ALT_FONT_SIZE_INDEX:*/
  489.       case S_ALT_FONT_WEIGHT:
  490.       case S_ALT_FONT_STYLE:
  491. /*        case S_ALT_FONT_LEADING: */
  492. recompute_alt_font = TRUE;
  493. break;
  495.       case S_TEXT_EFFECT:
  496. if ((int)flat->value[rule->property] == TEXT_EFFECT_INITIAL_CAP)
  497.     StyleSetFlag(S_INITIAL_FLAG, TRUE);
  499.       default:
  500. break;
  501.     }
  502. }
  503.     }
  505.     /* what are the compound properties? i.e. properties that depend
  506.        on other properties? is font the only one? */ 
  508.     if (recompute_font) {
  509. flat->value[S_FONT] = (void *)GetFont((HTList *)flat->value[S_FONT_FAMILY], (int)flat->value[S_FONT_SIZE], 
  510.       (int)flat->value[S_FONT_WEIGHT], (int)flat->value[S_FONT_STYLE], False);
  511. flat->status[S_FONT] = S_INFERRED;
  512.     }
  514.     if (recompute_alt_font) {
  515. flat->value[S_ALT_FONT] = (void *)
  516.     GetFont(
  517.     (HTList *)((flat->status[S_ALT_FONT_FAMILY] == S_INFERRED) ? 
  518.        (int)flat->value[S_ALT_FONT_FAMILY] : (int)flat->value[S_FONT_FAMILY]),
  519.     ((flat->status[S_ALT_FONT_SIZE] == S_INFERRED) ? 
  520.      (int)flat->value[S_ALT_FONT_SIZE] : (int)flat->value[S_FONT_SIZE]),
  521.     ((flat->status[S_ALT_FONT_WEIGHT] == S_INFERRED) ? 
  522.      (int)flat->value[S_ALT_FONT_WEIGHT] : (int)flat->value[S_FONT_WEIGHT]),
  523.     ((flat->status[S_ALT_FONT_STYLE] == S_INFERRED) ? 
  524.      (int)flat->value[S_ALT_FONT_STYLE] : (int)flat->value[S_FONT_STYLE]),
  525.     False);
  526. flat->status[S_ALT_FONT] = S_INFERRED;
  527.     }
  530.     /* we cannot compute the colormap index until we know if the color is blinking or not */
  532.     if (flat->status[S_COLOR] == S_INFERRED) {
  534. if (flat->status[S_ALT_COLOR] != S_INFERRED) {
  535.     flat->status[S_ALT_COLOR] = S_INFERRED;
  536.     flat->value[S_ALT_COLOR] = flat->value[S_COLOR];
  537.     flat->weight[S_ALT_COLOR] = flat->weight[S_COLOR];
  538. }
  540. value = (int)flat->value[S_COLOR];
  541. flat->value[S_COLOR] = (void *)rgb2ix( (int)(value >> 24), (int)((value >> 16) & 0xFF), 
  542.     (int)((value >> 8) & 0xFF), (int)(value & 0xFF), False);
  543. if (REGISTER_TRACE && VERBOSE_TRACE)
  544.     fprintf(stderr,"--> TEXT_COLOR = %ldn",(int)flat->value[S_COLOR]);
  545.     }
  547.     if (flat->status[S_BACKGROUND] == S_INFERRED) {
  549. if (flat->status[S_ALT_BACKGROUND] != S_INFERRED) {
  550.     flat->status[S_ALT_BACKGROUND] = S_INFERRED;
  551.     flat->value[S_ALT_BACKGROUND] = flat->value[S_BACKGROUND];
  552.     flat->weight[S_ALT_BACKGROUND] = flat->weight[S_BACKGROUND];
  553. }
  554. /*
  555. value = flat->value[S_BACKGROUND];
  556. flat->value[S_BACKGROUND] = rgb2ix( (int)(value >> 24), (int)((value >> 16) & 0xFF), 
  557.  (int)((value >> 8) & 0xFF), (int)(value & 0xFF), False);
  558. if (REGISTER_TRACE && VERBOSE_TRACE)
  559.     fprintf(stderr,"-> S_BACKGROUND = %ldn",flat->value[S_BACKGROUND]);
  560. */
  561.     }
  564.     if (flat->status[S_ALT_COLOR] == S_INFERRED) {
  565. value = (int)flat->value[S_ALT_COLOR];
  566. flat->value[S_ALT_COLOR] = (void *)rgb2ix( (int)(value >> 24), (int)((value >> 16) & 0xFF), 
  567. (int)((value >> 8) & 0xFF), (int)(value & 0xFF), False);
  568. if (REGISTER_TRACE && VERBOSE_TRACE)
  569.     fprintf(stderr,"--> TEXT_COLOR = %ldn",(int)flat->value[S_ALT_COLOR]);
  570.     }
  572.     if (flat->status[S_ALT_BACKGROUND] == S_INFERRED) {
  573. value = (int)flat->value[S_ALT_BACKGROUND];
  574. /*
  575. flat->value[S_ALT_BACKGROUND] = rgb2ix( (int)(value >> 24), (int)((value >> 16) & 0xFF), 
  576.      (int)((value >> 8) & 0xFF), (int)(value & 0xFF), False);
  577. if (REGISTER_TRACE && VERBOSE_TRACE)
  578.     fprintf(stderr,"-> TEXT_BACKGROUND = %ldn", flat->value[S_ALT_BACKGROUND]);
  579. */
  580.     }
  582.     /* math is a bit awkward */
  584.     if (unit_p->element == TAG_MATH) {
  586. long sym_size = (long)flat->value[S_FONT_SIZE];
  587. HTList *l = str2list("symbol", "symbol");
  588.     
  589. math_normal_sym_font = GetFont(l, sym_size, FONT_WEIGHT_MEDIUM, FONT_STYLE_NORMAL, False);
  590. math_small_sym_font = GetFont(l, sym_size/2,FONT_WEIGHT_MEDIUM, FONT_STYLE_NORMAL, True);
  591.     
  592. math_normal_text_font = 0;
  593. math_small_text_font = 0;
  594.     
  595. math_bold_text_font = GetFont(l, sym_size/2, FONT_WEIGHT_BOLD, FONT_STYLE_NORMAL, True);
  596. math_italic_text_font = GetFont(l, sym_size/2, FONT_WEIGHT_NORMAL, FONT_STYLE_ITALIC, True);
  597.     }
  599.     HTList_destroy(l); /* DJB 17-jan-96 */
  601.     return flat;
  602. }
  605. /*
  606.   StyleSane is a debugging functions which tries to print out the
  607.   content of a style sheet
  608. */
  610. void StyleSane(StyleSheet *s)
  611. {
  612.     int i;
  613.     StyleRule *r;
  615.     fprintf(stderr,"nstylesane:n");
  617.     if (!s)
  618. return;
  620.     for (i=0; i < TAG_LAST; i++) {
  621. HTList *l = s->element[i];
  622. StyleSelector *sel;
  624. fprintf(stderr,"  element %dn", i);
  625. while ( (r = (StyleRule *)HTList_nextObject(l)) ) {
  626.     fprintf(stderr,"    selector (");
  627.     sel = r->selector;
  628.     do {
  629. if (sel->unit.class)
  630.     fprintf(stderr,"%d.%s ",sel->unit.element, sel->unit.class);
  631. else
  632.     fprintf(stderr,"%d ",sel->unit.element);
  633.     } while ((sel = sel->ancestor));
  634.     fprintf(stderr,") ");
  636.     fprintf(stderr,"    property %d tweight %d tvalue ", r->property, r->weight);
  638.     switch (r->property) {
  639.       case S_FONT_FAMILY:
  640.       case S_ALT_FONT_FAMILY:
  641. {
  642.     HTList *ll = (HTList *)r->value;
  643.     char *family;
  645.     while ((family = (char *)HTList_nextObject(ll))) {
  646. fprintf(stderr,"%s+",family);
  647.     }
  648.     fprintf(stderr," ");
  649. }
  650. break;
  652.       case S_COLOR:
  653.       case S_BACKGROUND:
  654. fprintf(stderr,"#%x,%x,%x ",(int)(((int)r->value >> 16) & 0xFF),(int)(((int)r->value >> 8) & 0xFF),(int)(((int)r->value >> 0) & 0xFF));
  655. break;
  656.       default:
  657. fprintf(stderr,"%ld ", (long)r->value);
  658.     }
  659.     fprintf(stderr,"n");
  660. }
  661.     }
  662.     fprintf(stderr,"stylesane endn");
  663. }
  669. /* StyleAddRule adds a rule to the pool of style rules */
  671. void StyleAddRule(StyleSheet *sheet, StyleSelector *selector, StyleProperty property, long value, int weight)
  672. {
  673.     StyleRule *r = NewStyleRule();
  675.     r->selector = selector;
  676.     r->property = property;
  677.     r->value = value;
  678.     r->weight = weight;
  680.     if (!sheet->element[selector->unit.element])
  681. sheet->element[selector->unit.element] = HTList_new();
  682.     HTList_addObject(sheet->element[selector->unit.element], (void *) r);
  683. }
  687. void StyleAddSimpleRule(StyleSheet *sheet, int element, StyleProperty property, long value, int weight)
  688. {
  689.     StyleSelector *s = NewStyleSelector();
  691.     s->unit.element = element;
  692.     StyleAddRule(sheet, s, property, value, weight);
  693. }
  696. /* Parse functions start here */
  699. StyleProperty Property2enum(char *s)
  700. {
  701.     int l = strlen(s);
  703. /*     s = TOLOWER(s);*/
  705.     if(!strncmp(s,"padding",7))
  706. return S_PADDING;
  707.     if(!strncmp(s,"bg", 2))
  708.     {
  709. if((l == 8 )&&(!strcmp(s+3,"style")))
  710.     return S_BACKGROUND;
  711. if((l == 11 ) &&(!strcmp(s+3,"position")))
  712.     return S_BACKGROUND;
  713. if((l == 18 ) && (!strcmp(s+3,"blend-direction")))
  714.     return S_BACKGROUND_BLEND;
  715.   
  716.     };
  717.     if(!strncmp(s,"background", 10))
  718. return S_BACKGROUND;
  719.     if (strncmp(s,"font", 4) == 0) {
  720. if (l == 4)
  721.     return S_FONT_SHORTHAND;
  722. if ((l == 9) && (strcmp(&s[5], "size") == 0))
  723.     return S_FONT_SIZE;
  724. /*
  725. if ((l == 15) && (strcmp(&s[5], "size-index") == 0))
  726.     return S_FONT_SIZE_INDEX;
  727. */
  728. if ((l == 11) && (strcmp(&s[5], "family") == 0))
  729.     return S_FONT_FAMILY;
  730. if ((l == 11) && (strcmp(&s[5], "weight") == 0))
  731.     return S_FONT_WEIGHT;
  732. if ((l == 10) && (strcmp(&s[5], "style") == 0))
  733.     return S_FONT_STYLE;
  734. if ((l == 12) && (strcmp(&s[5], "leading") == 0))
  735.     return S_FONT_LEADING;
  736.     }
  737.     else if (strncmp(s,"letter", 6) == 0) {
  738. if ((l == 14) && (strcmp(&s[7], "spacing") == 0))
  739.     return S_TEXT_SPACING;
  740.     }
  741.      else if (strncmp(s,"word", 4) == 0) {
  742. if ((l == 12) && (strcmp(&s[5], "spacing") == 0))
  743.     return S_WORD_SPACING;
  744.     }
  745.     else if (strncmp(s,"text", 4) == 0) {
  746. if ((l == 10) && (strcmp(&s[5], "color") == 0))        /* historical */
  747.     return S_COLOR;
  748. if ((l == 15) && (strcmp(&s[5], "background") == 0))   /* historical */
  749.     return S_BACKGROUND;
  750. if ((l == 12) && (strcmp(&s[5], "spacing") == 0))
  751.     return S_TEXT_SPACING;
  752. if ((l == 9) && (strcmp(&s[5], "decoration") == 0))
  753.     return S_TEXT_DECORATION;
  754. if ((l == 9) && (strcmp(&s[5], "line") == 0))          /* historical */
  755.     return S_TEXT_DECORATION;
  756. if ((l == 13) && (strcmp(&s[5], "position") == 0))
  757.     return S_TEXT_POSITION;
  758. if ((l == 14) && (strcmp(&s[5], "transform") == 0))
  759.     return S_TEXT_TRANSFORM;
  760. if ((l == 11) && (strcmp(&s[5], "effect") == 0))
  761.     return S_TEXT_EFFECT;
  762. if ((l == 11) && (!strcmp(s+5, "indent")))
  763.     return S_INDENT;
  764. if ((l == 10) && (!strcmp(s+5, "align")))
  765.     return S_ALIGN;
  766.     } else if (strncmp(s,"margin", 6) == 0) {
  767. if (l == 6)
  768.     return S_MARGIN_SHORTHAND;
  769. if ((l == 10) && (strcmp(&s[7], "top") == 0))
  770.     return S_MARGIN_TOP;
  771. if ((l == 12) && (strcmp(&s[7], "right") == 0))
  772.     return S_MARGIN_RIGHT;
  773. if ((l == 13) && (strcmp(&s[7], "bottom") == 0))
  774.     return S_MARGIN_BOTTOM;
  775. if ((l == 11) && (strcmp(&s[7], "left") == 0))
  776.     return S_MARGIN_LEFT;
  777.     } else if (strncmp(s, "color", 5) == 0) {
  778.       return S_COLOR;
  779.     } else if (strncmp(s, "background", 10) == 0) {
  780.       return S_BACKGROUND;
  781.     } else if (strncmp(s,"alt", 3) == 0) {
  783. s += 4;
  784. l -= 4;
  785. if (strncmp(s,"font", 4) == 0) {
  786.     if (l == 4)
  787. return S_ALT_FONT_SHORTHAND;
  788.     if ((l == 9) && (strcmp(&s[5], "size") == 0))
  789. return S_ALT_FONT_SIZE;
  790. /*
  791.     if ((l == 15) && (strcmp(&s[5], "size-index") == 0))
  792. return S_ALT_FONT_SIZE_INDEX;
  793. */
  794.     if ((l == 11) && (strcmp(&s[5], "family") == 0))
  795. return S_ALT_FONT_FAMILY;
  796.     if ((l == 11) && (strcmp(&s[5], "weight") == 0))
  797. return S_ALT_FONT_WEIGHT;
  798.     if ((l == 10) && (strcmp(&s[5], "style") == 0))
  799. return S_ALT_FONT_STYLE;
  800.     if ((l == 12) && (strcmp(&s[5], "leading") == 0))
  801. return S_ALT_FONT_LEADING;
  802. } else if (strncmp(s,"text", 4) == 0) {
  803.     if ((l == 10) && (strcmp(&s[5], "color") == 0))           /* historical */
  804. return S_ALT_COLOR;
  805.     if ((l == 15) && (strcmp(&s[5], "background") == 0))      /* historical */
  806. return S_ALT_BACKGROUND;
  807.     if ((l == 13) && (strcmp(&s[5], "spacing") == 0))
  808. return S_ALT_TEXT_SPACING;
  809.     if ((l == 9) && (strcmp(&s[5], "decoration") == 0))
  810. return S_ALT_TEXT_DECORATION;
  811.     if ((l == 9) && (strcmp(&s[5], "line") == 0))             /* historical */
  812. return S_ALT_TEXT_DECORATION;
  813.     if ((l == 13) && (strcmp(&s[5], "position") == 0))
  814. return S_ALT_TEXT_POSITION;
  815.     if ((l == 14) && (strcmp(&s[5], "transform") == 0))
  816. return S_ALT_TEXT_TRANSFORM;
  817. } else if (strncmp(s, "color", 5) == 0) {
  818.   return S_COLOR;
  819. } else if (strncmp(s, "background", 10) == 0) {
  820.   return S_BACKGROUND;
  821. }
  823. if (STYLE_TRACE & VERBOSE_TRACE)
  824.     fprintf(stderr,"can't chew *prop_peter %sn", s);
  825. return S_UNKNOWN;
  827.     }
  828.     
  829.     if(strcasecmp(s,"indent")==0)
  830. return S_INDENT;
  832.     if (strcasecmp(s,"font.family")==0) {
  833. return S_FONT_FAMILY;
  834.     } else if (strcasecmp(s,"font.size")==0) {
  835. return S_FONT_SIZE;
  836.     } else if ( (strcasecmp(s,"font.color")==0) || (strcasecmp(s,"color.text")==0)) {
  837. return S_COLOR;
  840.     } else if (strcasecmp(s,"oversize.font.family")==0) {
  841. return S_ALT_FONT_FAMILY;
  842.     } else if (strcasecmp(s,"oversize.font.size")==0) {
  843. return S_ALT_FONT_SIZE;
  844.     } else if (strcasecmp(s,"oversize.font.color")==0) {
  845. return S_ALT_COLOR;
  847.     } else if (strcasecmp(s,"back.color")==0) {
  848. return S_BACKGROUND;
  849.     } else if (strcasecmp(s,"color.background")==0) {   /* backwards compatibility */
  850. return S_BACKGROUND;
  851.     } else {
  852. if (STYLE_TRACE & VERBOSE_TRACE)
  853.     fprintf(stderr,"can't chew *prop_peter %sn", s);
  854. return S_UNKNOWN;
  855.     }
  856. }
  859. int element_enum(char *s, int *token_class_p)
  860. {
  861.     int c, len;
  863.     len = strlen(s);
  864.     c = TOLOWER(*s);
  866.     if (isalpha(c))
  867.     {
  868.         if (c == 'a')
  869.         {
  870.             if (len == 1 && strncasecmp(s, "a", len) == 0)
  871.             {
  872.                 *token_class_p = EN_TEXT;
  873.                 return TAG_ANCHOR;
  874.             }
  876.             if (len == 3 && strncasecmp(s, "alt", len) == 0)
  877.             {
  878.                 *token_class_p = EN_BLOCK;
  879.                 return TAG_ALT;
  880.             }
  882.             if (len == 5 && strncasecmp(s, "added", len) == 0)
  883.             {
  884.                 *token_class_p = EN_TEXT;
  885.                 return TAG_ADDED;
  886.             }
  888.             if (len == 7 && strncasecmp(s, "address", len) == 0)
  889.             {
  890.                 *token_class_p = EN_BLOCK;
  891.                 return TAG_ADDRESS;
  892.             }
  894.             if (len == 8 && strncasecmp(s, "abstract", len) == 0)
  895.             {
  896.                 *token_class_p = EN_BLOCK;
  897.                 return TAG_ABSTRACT;
  898.             }
  899.         }
  900.         else if (c == 'b')
  901.         {
  902.             if (len == 1)
  903.             {
  904.                 *token_class_p = EN_TEXT;
  905.                 return TAG_BOLD;
  906.             }
  908.             if (len == 2 && strncasecmp(s, "br", len) == 0)
  909.             {
  910.                 *token_class_p = EN_TEXT;
  911.                 return TAG_BR;
  912.             }
  914.             if (len == 4 && strncasecmp(s, "body", len) == 0)
  915.             {
  916.                 *token_class_p = EN_MAIN;
  917.                 return TAG_BODY;
  918.             }
  920.             if (len == 10 && strncasecmp(s, "blockquote", len) == 0)
  921.             {
  922.                 *token_class_p = EN_BLOCK;
  923.                 return TAG_QUOTE;
  924.             }
  926.             if (len == 4 && strncasecmp(s, "base", len) == 0)
  927.             {
  928.                 *token_class_p = EN_SETUP;
  929.                 return TAG_BASE;
  930.             }
  931.         }
  932.         else if (c == 'c')
  933.         {
  934.             if (len == 4)
  935.             {
  936.                 if (strncasecmp(s, "code", len) == 0)
  937.                 {
  938.                     *token_class_p = EN_TEXT;
  939.                     return TAG_CODE;
  940.                 }
  942.                 if (strncasecmp(s, "cite", len) == 0)
  943.                 {
  944.                     *token_class_p = EN_TEXT;
  945.                     return TAG_CITE;
  946.                 }
  947.             }
  948.             else if (len == 7 && (strncasecmp(s, "caption", len) == 0))/* howcome 3/2/95: = -> == after hint from P.M.Hounslow@reading.ac.uk */
  949.             {
  950.                 *token_class_p = EN_BLOCK;
  951.                 return TAG_CAPTION;
  952.             }
  953.         }
  954.         else if (c == 'd')
  955.         {
  956.             if (len == 3 && strncasecmp(s, "dfn", len) == 0)
  957.             {
  958.                 *token_class_p = EN_TEXT;
  959.                 return TAG_DFN;
  960.             }
  962.     /* howcome 11/8/95: added upport for DIR */
  964.             if (len == 3 && strncasecmp(s, "dir", len) == 0)
  965.             {
  966.                 *token_class_p = EN_LIST;
  967.                 return TAG_UL;
  968.             }
  971.             if (len != 2)
  972.                 return 0;
  974.             if (strncasecmp(s, "dl", len) == 0)
  975.             {
  976.                 *token_class_p = EN_LIST;
  977.                 return TAG_DL;
  978.             }
  980.             if (strncasecmp(s, "dt", len) == 0)
  981.             {
  982.                 *token_class_p = EL_DEFLIST;
  983.                 return TAG_DT;
  984.             }
  986.             if (strncasecmp(s, "dd", len) == 0)
  987.             {
  988.                 *token_class_p = EL_DEFLIST;
  989.                 return TAG_DD;
  990.             }
  991.         }
  992.         else if (c == 'e')
  993.         {
  994.             if (len == 2 && strncasecmp(s, "em", len) == 0)
  995.             {
  996.                 *token_class_p = EN_TEXT;
  997.                 return TAG_EM;
  998.             }
  999.         }
  1000.         else if (c == 'f')
  1001.         {
  1002.             if (len == 3 && strncasecmp(s, "fig", len) == 0)
  1003.             {
  1004.                 *token_class_p = EN_BLOCK;
  1005.                 return TAG_FIG;
  1006.             }
  1007.         }
  1008.         else if (c == 'h')
  1009.         {
  1010.             if (len == 4) {
  1011. if (strncasecmp(s, "head", len) == 0)
  1012. {
  1013.     *token_class_p = EN_SETUP;
  1014.     return TAG_HEAD;
  1015. } 
  1017. /* added by howcome 27/8/95 */
  1019. else if (strncasecmp(s, "html", len) == 0)
  1020. {
  1021.     *token_class_p = EN_SETUP;
  1022.     return TAG_HTML;
  1023. }
  1024.     }
  1026.             if (len != 2)
  1027.                 return 0;
  1029.             *token_class_p = EN_HEADER;
  1030.             c = TOLOWER(s[1]);
  1032.             switch (c)
  1033.             {
  1034.                 case '1':
  1035.                     return TAG_H1;
  1036.                 case '2':
  1037.                     return TAG_H2;
  1038.                 case '3':
  1039.                     return TAG_H3;
  1040.                 case '4':
  1041.                     return TAG_H4;
  1042.                 case '5':
  1043.                     return TAG_H5;
  1044.                 case '6':
  1045.                     return TAG_H6;
  1046.                 case 'r':
  1047.                     *token_class_p = EN_BLOCK;
  1048.                     return TAG_HR;
  1049.             }
  1050.         }
  1051.         else if (c == 'i')
  1052.         {
  1053.             if (len == 1)
  1054.             {
  1055.                 *token_class_p = EN_TEXT;
  1056.                 return TAG_ITALIC;
  1057.             }
  1059.             if (len == 3 && strncasecmp(s, "img", len) == 0)
  1060.             {
  1061.                 *token_class_p = EN_TEXT;
  1062.                 return TAG_IMG;
  1063.             }
  1065.             if (len == 5 && strncasecmp(s, "input", len) == 0)
  1066.             {
  1067.                 *token_class_p = EN_TEXT;
  1068.                 return TAG_INPUT;
  1069.             }
  1071.             if (len == 7 && strncasecmp(s, "isindex", len) == 0)
  1072.             {
  1073.                 *token_class_p = EN_SETUP;
  1074.                 return TAG_ISINDEX;
  1075.             }
  1076.         }
  1077.         else if (c == 'k')
  1078.         {
  1079.             if (len == 3 && strncasecmp(s, "kbd", len) == 0)
  1080.             {
  1081.                 *token_class_p = EN_TEXT;
  1082.                 return TAG_KBD;
  1083.             }
  1084.         }
  1085.         else if (c == 'l')
  1086.         {
  1087.             if (len == 2 && strncasecmp(s, "li", len) == 0)
  1088.             {
  1089.                 *token_class_p = EN_LIST;
  1090.                 return TAG_LI;
  1091.             }
  1093.             if (len == 4 && strncasecmp(s, "link", len) == 0)
  1094.             {
  1095.                 *token_class_p = EN_SETUP;
  1096.                 return TAG_LINK;
  1097.             }
  1099.         }
  1100.         else if (c == 'm')
  1101.         {
  1102.             if (len == 4 && strncasecmp(s, "math", len) == 0)
  1103.             {
  1104.                 *token_class_p = EN_TEXT;
  1105.                 return TAG_MATH;
  1106.             }
  1108.             if (len == 6 && strncasecmp(s, "margin", len) == 0)
  1109.             {
  1110.                 *token_class_p = EN_TEXT;
  1111.                 return TAG_MARGIN;
  1112.             }
  1114.     /* howcome 11/8/95: added MENU to be compatible with HTML2 */
  1115.             if (len == 4 && strncasecmp(s, "menu", len) == 0)
  1116.             {
  1117.                 *token_class_p = EN_LIST;
  1118.                 return TAG_UL;
  1119.             }
  1122.         }
  1123.         else if (c == 'n')
  1124.         {
  1125.             if (len == 4 && strncasecmp(s, "note", len) == 0)
  1126.             {
  1127.                 *token_class_p = EN_BLOCK;
  1128.                 return TAG_NOTE;
  1129.             }
  1130.         }
  1131.         else if (c == 'o')
  1132.         {
  1133.             if (len == 2 && strncasecmp(s, "ol", len) == 0)
  1134.             {
  1135.                 *token_class_p = EN_LIST;
  1136.                 return TAG_OL;
  1137.             }
  1139.             if (len == 6 && strncasecmp(s, "option", len) == 0)
  1140.             {
  1141.                 *token_class_p = EN_TEXT;  /* kludge for error recovery */
  1142.                 return TAG_OPTION;
  1143.             }
  1144.         }
  1145.         else if (c == 'p')
  1146.         {
  1147.             if (len == 1)
  1148.             {
  1149.                 *token_class_p = EN_BLOCK;
  1150.                 return TAG_P;
  1151.             }
  1153.             if (len == 3 && strncasecmp(s, "pre", len) == 0)
  1154.             {
  1155.                 *token_class_p = EN_BLOCK;
  1156.                 return TAG_PRE;
  1157.             }
  1158.         }
  1159.         else if (c == 'q')
  1160.         {
  1161.             if (len == 1)
  1162.             {
  1163.                 *token_class_p = EN_TEXT;
  1164.                 return TAG_Q;
  1165.             }
  1167.             if (len == 5 && strncasecmp(s, "quote", len) == 0)
  1168.             {
  1169.                 *token_class_p = EN_BLOCK;
  1170.                 return TAG_QUOTE;
  1171.             }
  1172.         }
  1173.         else if (c == 'r')
  1174.         {
  1175.             if (len == 7 && strncasecmp(s, "removed", len) == 0)
  1176.             {
  1177.                 *token_class_p = EN_TEXT;
  1178.                 return TAG_REMOVED;
  1179.             }
  1180.         }
  1181.         else if (c == 's')
  1182.         {
  1183.             if (len == 1)
  1184.             {
  1185.                 *token_class_p = EN_TEXT;
  1186.                 return TAG_STRIKE;
  1187.             }
  1189.             if (len == 3 && strncasecmp(s, "sup", len) == 0)
  1190.             {
  1191.                 *token_class_p = EN_TEXT;
  1192.                 return TAG_SUP;
  1193.             }
  1195.             if (len == 3 && strncasecmp(s, "sub", len) == 0)
  1196.             {
  1197.                 *token_class_p = EN_TEXT;
  1198.                 return TAG_SUB;
  1199.             }
  1201.             if (len == 4 && strncasecmp(s, "samp", len) == 0)
  1202.             {
  1203.                 *token_class_p = EN_TEXT;
  1204.                 return TAG_SAMP;
  1205.             }
  1207.             if (len == 5 && strncasecmp(s, "small", len) == 0)
  1208.             {
  1209.                 *token_class_p = EN_TEXT;
  1210.                 return TAG_SMALL;
  1211.             }
  1213.             if (len == 6 && strncasecmp(s, "strong", len) == 0)
  1214.             {
  1215.                 *token_class_p = EN_TEXT;
  1216.                 return TAG_STRONG;
  1217.             }
  1219.             if (len == 6 && strncasecmp(s, "select", len) == 0)
  1220.             {
  1221.                 *token_class_p = EN_TEXT;
  1222.                 return TAG_SELECT;
  1223.             }
  1225.             if (len == 6 && strncasecmp(s, "strike", len) == 0)
  1226.             {
  1227.                 *token_class_p = EN_TEXT;
  1228.                 return TAG_STRIKE;
  1229.             }
  1231.     /* howcome 26/2/95 */
  1233.             if (len == 5 && strncasecmp(s, "style", len) == 0)
  1234.             {
  1235.                 *token_class_p = EN_SETUP;
  1236.                 return TAG_STYLE;
  1237.             }
  1239.         }
  1240.         else if (c == 't')
  1241.         {
  1242.             if (len == 5 && strncasecmp(s, "title", len) == 0)
  1243.             {
  1244.                 *token_class_p = EN_SETUP;
  1245.                 return TAG_TITLE;
  1246.             }
  1248.             if (len == 2 && strncasecmp(s, "tt", len) == 0)
  1249.             {
  1250.                 *token_class_p = EN_TEXT;
  1251.                 return TAG_TT;
  1252.             }
  1254.             if (len == 2 && strncasecmp(s, "tr", len) == 0)
  1255.             {
  1256.                 *token_class_p = EN_TABLE;
  1257.                 return TAG_TR;
  1258.             }
  1260.             if (len == 2 && strncasecmp(s, "th", len) == 0)
  1261.             {
  1262.                 *token_class_p = EN_TABLE;
  1263.                 return TAG_TH;
  1264.             }
  1266.             if (len == 2 && strncasecmp(s, "td", len) == 0)
  1267.             {
  1268.                 *token_class_p = EN_TABLE;
  1269.                 return TAG_TD;
  1270.             }
  1272.             if (len == 5 && strncasecmp(s, "table", len) == 0)
  1273.             {
  1274.                 *token_class_p = EN_BLOCK;
  1275.                 return TAG_TABLE;
  1276.             }
  1278.             if (len == 8 && strncasecmp(s, "textarea", len) == 0)
  1279.             {
  1280.                 *token_class_p = EN_TEXT;
  1281.                 return TAG_TEXTAREA;
  1282.             }
  1283.         }
  1284.         else if (c == 'u')
  1285.         {
  1286.             if (len == 1)
  1287.             {
  1288.                 *token_class_p = EN_TEXT;
  1289.                 return TAG_UNDERLINE;
  1290.             }
  1292.             if (len == 2 && strncasecmp(s, "ul", len) == 0)
  1293.             {
  1294.                 *token_class_p = EN_LIST;
  1295.                 return TAG_UL;
  1296.             }
  1297.         }
  1298.         else if (c == 'v')
  1299.         {
  1300.             if (len == 3 && strncasecmp(s, "var", len) == 0)
  1301.             {
  1302.                 *token_class_p = EN_TEXT;
  1303.                 return TAG_VAR;
  1304.             }
  1305.         }
  1306.         else if (c == 'x')
  1307.         {
  1308.             if (len == 3 && strncasecmp(s, "xmp", len) == 0)
  1309.             {
  1310.                 *token_class_p = EN_BLOCK;
  1311.                 return TAG_PRE;
  1312.             }
  1313.         }
  1314.     }
  1316.     *token_class_p = EN_UNKNOWN;
  1317.     return UNKNOWN; /* unknown tag */
  1318. }
  1321. StyleSelector *ParseSelector(char *str)
  1322. {
  1323.     char *p;
  1324.     char *elem_marker, *subelem_marker;
  1325.     StyleSelector *selector = NULL, *prev_selector = NULL;
  1326.     int token_class;
  1328.     p = str_tok(str,"/() t",&elem_marker);
  1329.     do {
  1330. int element;
  1331. char *class;
  1333. p = str_tok(p, ".",&subelem_marker);
  1334. element = element_enum(p, &token_class);
  1336. if (strcmp(p, "*") == 0) {
  1337.     element = TAG_HTML;
  1338. } else if (strcasecmp(p, "$HTML-SOURCE") == 0) {
  1339.     element = TAG_HTML_SOURCE;
  1340. }
  1342. if (strcmp(p, "HTML") == 0) {
  1343.     element = TAG_HTML;
  1344. } else if (strcasecmp(p, "$HTML-SOURCE") == 0) {
  1345.     element = TAG_HTML_SOURCE;
  1346. }
  1348. if (element == UNKNOWN) {
  1349.     return NULL;
  1350. }
  1352. class = str_tok(NULL," t",&subelem_marker);
  1354. selector = NewStyleSelector();
  1355. selector->unit.element = element;
  1356. if (class && *class)
  1357.     selector->unit.class = strdup(class);
  1358. selector->ancestor = prev_selector;
  1359. prev_selector = selector;
  1361.     } while ( (p = str_tok(NULL, "() t",&elem_marker)) );
  1363.     return selector;
  1364. }
  1367. BG_Style *StyleGetBackground(void *value_p, char *str)
  1368. {
  1369.     BG_Style *bg_style;
  1370.     Image *image;
  1371.     char *tmp;
  1372.     int is_numeric;
  1374.     if (value_p) {
  1375. bg_style = (BG_Style *) value_p;
  1376.     } else  { 
  1377. bg_style = (BG_Style *) calloc(1, sizeof(BG_Style));
  1378. bg_style->flag = S_BACKGROUND_X_REPEAT | S_BACKGROUND_Y_REPEAT;
  1379. bg_style->x_pos = 50;
  1380. bg_style->y_pos = 50;
  1381.     } 
  1382.     if(!strcmp(str,":"))
  1383. return (bg_style);
  1384.     
  1385.     if (str[0] == '#') {
  1386. if (strlen(str) == 4) {
  1387.     bg_style->r = hex2byte(str[1]) * 17;
  1388.     bg_style->g = hex2byte(str[2]) * 17;
  1389.     bg_style->b = hex2byte(str[3]) * 17;
  1390.     bg_style->flag |= S_BACKGROUND_COLOR;
  1391.     /*     fprintf(stderr,"%x %x %x -> %dn", r, g, b, *value_p);*/
  1392. } else if (strlen(str) == 7) {
  1393.     bg_style->r = hex2byte(str[1]) * 16 + hex2byte(str[2]);
  1394.     bg_style->g = hex2byte(str[3]) * 16 + hex2byte(str[4]);
  1395.     bg_style->b = hex2byte(str[5]) * 16 + hex2byte(str[6]);
  1396.     bg_style->flag |= S_BACKGROUND_COLOR;
  1397.     /*     fprintf(stderr,"%x %x %x -> %dn", r, g, b, *value_p);*/
  1398. }
  1399.     } else if (str[0] == '"')
  1400.     {
  1401. if ((image = GetImage(str+1, strlen(str)-2, CurrentDoc->pending_reload))) {
  1402.     bg_style->image = image;
  1403.     bg_style->flag |= S_BACKGROUND_IMAGE;
  1404. }
  1405.     } else { /* try looking up the name */
  1406. if (!strcasecmp(str,"fixed"))
  1407.     bg_style->flag |= S_BACKGROUND_FIXED;
  1408. else {
  1409.     if (!strcasecmp(str,"repeat-x"))
  1410. bg_style->flag &= ~S_BACKGROUND_Y_REPEAT;
  1411.     else {
  1412. if (!strcasecmp(str,"repeat-y"))
  1413.     bg_style->flag &= ~S_BACKGROUND_X_REPEAT;
  1414. else {
  1415.     if (!strcasecmp(str,"no-repeat"))
  1416. bg_style->flag &= ~(S_BACKGROUND_X_REPEAT|S_BACKGROUND_Y_REPEAT);
  1417.     else
  1418.     {
  1419. is_numeric = TRUE;
  1420. tmp = str;
  1421. while(*tmp&&is_numeric)
  1422. {
  1423.     is_numeric = ((*tmp>='0') && (*tmp <= '9')) || (*tmp=='%');
  1424.     tmp++;
  1425. };
  1426. if(is_numeric)
  1427. {
  1428.     if(bg_style->flag & S_BACKGROUND_ORIGIN)
  1429. bg_style->y_pos = atoi(str);
  1430.     else
  1431.     {
  1432. bg_style->flag |= S_BACKGROUND_ORIGIN;
  1433. bg_style->x_pos = atoi(str);
  1434. bg_style->y_pos = bg_style->x_pos;
  1435.     }
  1436. }
  1437. else
  1438. {
  1439.     long color = ParseColor(str);
  1440.     bg_style->r = (color >> 16) & 0xFF;
  1441.     bg_style->g = (color >>  8) & 0xFF;
  1442.     bg_style->b = color & 0xFF;
  1443.     bg_style->flag |= S_BACKGROUND_COLOR;
  1444. }
  1445.     }
  1446. }
  1447.     }
  1448. }
  1449.     }
  1450.     return (bg_style);
  1451. }
  1454. /* ?? */
  1455. static Bool ParseAssignment(char *s, StyleProperty *prop_p, long *value_p, int *level_p, char delimiter)
  1456. {
  1457.     char *str;
  1458.     char *elem, *value;
  1459.     char first_str_tok[8], second_str_tok[8];
  1461.     if (!s)
  1462. return False;
  1464.     sprintf(first_str_tok,"%c t", delimiter);
  1465.     str = str_tok(s,first_str_tok,&elem);
  1466.     if (!str)
  1467. return False;
  1468.     
  1469.     *prop_p = Property2enum(str);
  1471.     if (*prop_p == S_UNKNOWN)
  1472. return False;
  1473.     
  1474.     if (STYLE_TRACE & VERBOSE_TRACE)
  1475. fprintf(stderr,"StyleChew: *prop_p = %dn",*prop_p);
  1476.     
  1478.     /* get everything up to '!' */
  1479.     
  1480.     str = str_tok(NULL,"!",&elem);
  1481.     if (!str)
  1482. return False;
  1483.     sprintf(first_str_tok,"%c,;& t",delimiter);
  1484.     str = str_tok(str,first_str_tok,&value);
  1485.     
  1486.     while (str) {
  1487. switch (*prop_p) {
  1488.   case S_FONT_FAMILY:
  1489.   case S_ALT_FONT_FAMILY:
  1490.     if (! *value_p)
  1491. *value_p = (long) HTList_new();
  1492.     HTList_addObjectFirst((HTList *)*value_p, (void *)strdup(str)); /* ughh */
  1493.     break;
  1495.   case S_FONT_SIZE:
  1496.   case S_ALT_FONT_SIZE:
  1497.   case S_FONT_LEADING:
  1498.   case S_ALT_FONT_LEADING:
  1499.     if (strcasecmp(str,"xx-large") == 0)
  1500. *value_p = (long)21;
  1501.     else if (strcasecmp(str,"x-large") == 0)
  1502. *value_p = (long)17;
  1503.     else if (strcasecmp(str,"large") == 0)
  1504. *value_p = (long)14;
  1505.     else if (strcasecmp(str,"medium") == 0)
  1506. *value_p = (long)12;
  1507.     else if (strcasecmp(str,"small") == 0)
  1508. *value_p = (long)10;
  1509.     else if (strcasecmp(str,"x-small") == 0)
  1510. *value_p = (long)9;
  1511.     else if (strcasecmp(str,"xx-small") == 0)
  1512. *value_p = (long)8;
  1513.     else if (strstr(str,"px")) {
  1514. *value_p = (long)atoi(str);
  1515.     } else { /* pt being the default sixe unit */
  1516. *value_p = (long)pt2px((double)atof(str));
  1517.     }
  1518.     break;
  1520.   case S_FONT_WEIGHT:
  1521.   case S_ALT_FONT_WEIGHT:
  1523.     if (strcasecmp(str,"light") == 0)
  1524. *value_p = (long)FONT_WEIGHT_LIGHT;
  1525.     else if (strcasecmp(str,"medium") == 0)
  1526. *value_p = (long)FONT_WEIGHT_MEDIUM;
  1527.     else if (strcasecmp(str,"demibold") == 0)
  1528. *value_p = (long)FONT_WEIGHT_DEMIBOLD;
  1529.     else if (strcasecmp(str,"bold") == 0)
  1530. *value_p = (long)FONT_WEIGHT_BOLD;
  1531.     break;
  1533.   case S_FONT_STYLE:
  1534.   case S_ALT_FONT_STYLE:
  1536.     if (strncasecmp(str,"italic", 6) == 0) /* italics */
  1537. *value_p = (long)FONT_STYLE_ITALIC;
  1538.     else if (strcasecmp(str,"roman") == 0)
  1539. *value_p = (long)FONT_STYLE_ROMAN;
  1540.     else if (strcasecmp(str,"small-caps") == 0)
  1541. *value_p = (long)FONT_STYLE_SMALL_CAPS;
  1543.     break;
  1545.   case S_TEXT_EFFECT:
  1547.     if (strcasecmp(str,"initial-cap") == 0)
  1548. *value_p = (long)TEXT_EFFECT_INITIAL_CAP;
  1549.     else if (strcasecmp(str,"drop-cap") == 0)
  1550. *value_p = (long)TEXT_EFFECT_DROP_CAP;
  1551.     else if (strcasecmp(str,"alt-firstline") == 0)
  1552. *value_p = (long)TEXT_EFFECT_ALT_FIRSTLINE;
  1553.     break;
  1556.   case S_TEXT_DECORATION:
  1558.     if (strcasecmp(str,"blink") == 0)
  1559. *value_p = (long)TEXT_LINE_BLINK;
  1560.     break;
  1562.   case S_MARGIN_LEFT:
  1563.   case S_MARGIN_RIGHT:
  1564.   case S_MARGIN_TOP:
  1565.       case S_MARGIN_BOTTOM:
  1566.     case S_INDENT:
  1567.   case S_TEXT_SPACING:
  1568.       *value_p = (long)(atoi(str));
  1569.       break;
  1570.  
  1571.   case S_ALIGN:
  1572.     if (strcasecmp(str,"left") == 0) {
  1573. *value_p = (long)ALIGN_LEFT;
  1574.     } else if (strcasecmp(str,"center") == 0) {
  1575. *value_p = (long)ALIGN_CENTER;
  1576.     } else if (strcasecmp(str,"right") == 0) {
  1577. *value_p = (long)ALIGN_RIGHT;
  1578.     } else if (strcasecmp(str,"justify") == 0) {
  1579. *value_p = (long)ALIGN_JUSTIFY;
  1580.     } else
  1581. return False;
  1582.     break;
  1584.   case S_COLOR:
  1585.   case S_ALT_COLOR:
  1586.     if (str[0] == '#') {
  1587. Byte r, g, b;
  1589. if (strlen(str) == 4) {
  1590.     r = hex2byte(str[1]) * 17;
  1591.     g = hex2byte(str[2]) * 17;
  1592.     b = hex2byte(str[3]) * 17;
  1593.     *value_p = ((r<<16) | (g<<8) | b);
  1594. /*     fprbytef(stderr,"%x %x %x -> %dn", r, g, b, *value_p);*/
  1595. } else if (strlen(str) == 7) {
  1596.     r = hex2byte(str[1]) * 16 + hex2byte(str[2]);
  1597.     g = hex2byte(str[3]) * 16 + hex2byte(str[4]);
  1598.     b = hex2byte(str[5]) * 16 + hex2byte(str[6]);
  1599.     *value_p = ((r<<16) | (g<<8) | b);
  1600. /*     fprintf(stderr,"%x %x %x -> %dn", r, g, b, *value_p);*/
  1601. }
  1602.     } else { /* try looking up the name */
  1603. *value_p = (long)ParseColor(str);
  1604.     }
  1605.     break;     
  1606.      case S_PADDING:
  1607.       *value_p = (long)atoi(str); /* only x & y & i & j */
  1608.       break;
  1609.   case S_BACKGROUND:
  1610.   case S_ALT_BACKGROUND:
  1611.       *value_p = (long) StyleGetBackground(*value_p, str);
  1612.       break;
  1613.   default:
  1614.     if (STYLE_TRACE & VERBOSE_TRACE)
  1615. fprintf(stderr,"can't chew value: %sn", str);
  1616.     return False;
  1617.     break;
  1618. }
  1619. sprintf(second_str_tok,"%c,& t",delimiter);
  1620. str = str_tok(NULL,second_str_tok,&value);
  1621.     }
  1622.     /*  level_declaration: */
  1624.     *level_p = I_NORMAL;
  1626.     str = str_tok(NULL,"! t;",&elem);
  1627.     if (str) {
  1628. if (strcasecmp(str,"important") == 0) {
  1629.     *level_p = I_IMPORTANT;
  1630. }
  1631. else if (strcasecmp(str,"insist") == 0) {
  1632.     *level_p = I_INSIST;
  1633. }
  1634. else if (strcasecmp(str,"legal") == 0) {
  1635.     *level_p = I_LEGAL;
  1636. }
  1637.     }
  1639.     return True;
  1640. }
  1643. /*
  1644.   StyleChew is the main entry point to the CSS parser. 
  1646.   *sheet is a pointer to a StyleSheet structure into which the
  1647.   assignments will be added
  1649.   *str is a pointer to a string containing CSS syntax. Th pointer wil
  1650.   not be freed,a dn the content will remain unchanged.
  1652.   base_weight identifies the source of the style sheet, author or
  1653.   reader
  1655. */
  1658. void StyleChew(StyleSheet *sheet, char *str, int base_weight)
  1659. {
  1660.     char *sheet_marker, *address_marker, *assignment_marker;
  1661.     char *p, *q, *r, *s;
  1662.     StyleProperty property;
  1663.     int level;
  1664.     int weight;
  1665.     long value;
  1666.     void *bg_save;
  1667.     int bg_weight=0;
  1668.     HTList *l, *selectors;
  1669.     StyleSelector *selector;
  1670.     char begin_char,end_char,set_char,*tmp_char; /* used for backward compatibility --Spif 23-Nov-95 */
  1671.     char delim_char;
  1672.     char str_tok_begin[2], str_tok_set[2], str_tok_end[2];
  1674.     if (STYLE_TRACE & VERBOSE_TRACE)
  1675. fprintf(stderr,"nStyleChewn");
  1677.     /* h1, p: font-family = helvetica times, font-size = 12pt; */
  1679.     if (!str)
  1680. return;
  1682.     begin_char = ':' ; 
  1683.     set_char   = '=' ;
  1684.     delim_char = ',';
  1685.     end_char   = 'n';
  1686.     for(tmp_char = str; *tmp_char ; tmp_char++)  /* figure out what kind of notation, old or new one --Spif 23-Nov-95 */
  1687. if(*tmp_char == '{')
  1688. {
  1689.     begin_char = '{';
  1690.     set_char   = ':';
  1691.     delim_char = ';';
  1692.     end_char   = '}';
  1693. };
  1694.     *str_tok_end = end_char;
  1695.     *str_tok_begin = begin_char;
  1696.     *str_tok_set = set_char;
  1697.     str_tok_begin[1] = 0;
  1698.     str_tok_set[1] = 0;
  1699.     str_tok_end[1] = 0;
  1701.     s = strdup(str);  /* we will modify the string so we make a copy */
  1702.     
  1703.     while(tmp_char = strstr(s, "--"))
  1704.     {
  1705. while(*tmp_char && (*tmp_char!='n'))
  1706.     *tmp_char++=' ';
  1707.     };
  1708.     if(begin_char=='{')
  1709. for(tmp_char = s; *tmp_char ;tmp_char++)
  1710.     if(*tmp_char=='n')
  1711. *tmp_char = ' ';
  1713.     p = str_tok(s,str_tok_end ,&sheet_marker);
  1714.     if (!p)
  1715. return;
  1717.     do {
  1719. /* first screen out the comments */
  1721. if (p[0] == '#')
  1722.     continue;
  1724. if ((q = strstr(p, "--")))
  1725.     *q = 0;
  1728. /* then see if the "left side" (before ':') is specified */
  1730. if ((q = strchr(p, begin_char)) && (r = strchr(p,set_char)) && (q < r)) {
  1732.     /* yes, the left side is specified, nail it */
  1733.     p = str_tok(p, str_tok_begin, &address_marker);
  1735.     if (strchr(p, '/'))
  1736. continue;
  1737.     if (STYLE_TRACE)
  1738. fprintf(stderr,"(address) %s -> ", p);
  1740.     selectors = HTList_new();
  1742.     p = str_tok(p, ",;", &address_marker);
  1743.     do {
  1744. StyleSelector *s;
  1746. if ((s = ParseSelector(p))) {
  1747.     if (STYLE_TRACE) {
  1748. StyleSelector *sc = s;
  1749. do {
  1750.     fprintf(stderr,"%d-",sc->unit.element);
  1751. } while((sc = sc->ancestor));
  1752.     }
  1754.     HTList_addObject(selectors, (void *) s);
  1755. }
  1757.     } while ((p = str_tok(NULL,",;",&address_marker)));
  1759.     p = q + 1;
  1760. } else {
  1761.     if (STYLE_TRACE)
  1762. fprintf(stderr,"StyleChew, left side not specified..n");
  1763.     continue;
  1764. }
  1766. /* now we know what elements we are addressing */
  1768. p = str_tok(p, ";,", &assignment_marker);
  1769. bg_save = NULL;
  1770. do {
  1771.     if (STYLE_TRACE)
  1772. fprintf(stderr,"(assignment) %s ", p);
  1773.    
  1774.     value = (long)bg_save;  /* this hack is only for keeping bg_style during the parsing of one element --Spif 23-Nov-95 */
  1775.     if (ParseAssignment(p, &property, &value, &level, set_char)) 
  1776.     {
  1777. if (base_weight == S_USER)
  1778.     weight = base_weight + S_USER_DELTA * level;
  1779. else
  1780.     weight = base_weight + S_DOC_DELTA * level;
  1781. if(property == S_BACKGROUND)
  1782. {
  1783.     bg_save = (void *)value;
  1784.     bg_weight = weight;
  1785. }
  1786. else
  1787. {
  1788.     l = selectors;
  1789.     while ((selector = (StyleSelector *)HTList_nextObject(l)) ) 
  1790.     {
  1791. if (STYLE_TRACE) 
  1792. {
  1793.     StyleSelector *sc = selector;
  1794.     fprintf(stderr,"nnext selector ");
  1795.     do 
  1796.     {
  1797. fprintf(stderr,"%d-",sc->unit.element);
  1798.     } while((sc = sc->ancestor));
  1799.     fprintf(stderr,"n");
  1800. }
  1801. StyleAddRule(sheet, selector, property, value, weight);
  1802.     }
  1803. }
  1804.     }
  1805. } while ( (p = str_tok(NULL,";,",&assignment_marker)) ); 
  1806. if(bg_save)
  1807. {
  1808.     l = selectors;
  1809.     while ((selector = (StyleSelector *)HTList_nextObject(l)) ) 
  1810.     {
  1811. if (STYLE_TRACE) 
  1812. {
  1813.     StyleSelector *sc = selector;
  1814.     fprintf(stderr,"nnext selector ");
  1815.     do 
  1816.     {
  1817. fprintf(stderr,"%d-",sc->unit.element);
  1818.     } while((sc = sc->ancestor));
  1819.     fprintf(stderr,"n");
  1820. }
  1821. StyleAddRule(sheet, selector, S_BACKGROUND,(long)bg_save, bg_weight);
  1822.     }
  1823. };
  1824. if (STYLE_TRACE)
  1825.     fprintf(stderr,"n");
  1827. /*
  1828. l = selectors;
  1829. while ( (selector = (StyleSelector *)HTList_nextObject(l)) ) {
  1830.     if (STYLE_TRACE && VERBOSE_TRACE)
  1831. fprintf(stderr,"freeing selectorn");
  1832.     FreeStyleSelector(selector);
  1833. }
  1834. HTList_delete(selectors);
  1835. */
  1836.     } while ( (p = str_tok(NULL, str_tok_end, &sheet_marker)) ); 
  1838.     Free(s);
  1839. }
  1841. /*
  1842.   StyleGetInit returns an initialized style sheet, typically the application's default 
  1843. */
  1845. StyleSheet *StyleGetInit()
  1846. {
  1847.     StyleSheet *sheet = NewStyleSheet();
  1849.     /* set toplevel fallback values */
  1850.     StyleAddSimpleRule(sheet, TAG_HTML, S_FONT_FAMILY, (long)str2list("helvetica", "charter"), S_FALLBACK - S_ANY);
  1851.     StyleAddSimpleRule(sheet, TAG_HTML, S_FONT_SIZE,  12, S_FALLBACK - S_ANY);
  1852.     StyleAddSimpleRule(sheet, TAG_HTML, S_FONT_WEIGHT,  FONT_WEIGHT_MEDIUM,         S_FALLBACK - S_ANY);
  1853.     StyleAddSimpleRule(sheet, TAG_HTML, S_FONT_STYLE,  0, S_FALLBACK - S_ANY);
  1854.     StyleAddSimpleRule(sheet, TAG_HTML, S_FONT_LEADING,  0, S_FALLBACK - S_ANY);
  1856.     StyleAddSimpleRule(sheet, TAG_HTML, S_COLOR,  (100 << 0), S_FALLBACK - S_ANY);  /* i.e. a dark blue */
  1857.     StyleAddSimpleRule(sheet, TAG_HTML, S_ALT_COLOR,  (100 << 0), S_FALLBACK - S_ANY);  /* i.e. a dark blue */
  1858.     StyleAddSimpleRule(sheet, TAG_HTML, S_ALT_BACKGROUND, (long)StyleGetBackground(NULL, "#AAA"), S_FALLBACK - S_ANY); /* i.e. transparent */
  1859.     
  1860.     StyleAddSimpleRule(sheet, TAG_HTML, S_TEXT_SPACING,  0,  S_FALLBACK - S_ANY);
  1861.     StyleAddSimpleRule(sheet, TAG_HTML, S_MARGIN_LEFT,   4, S_FALLBACK - S_ANY);
  1862.     StyleAddSimpleRule(sheet, TAG_HTML, S_MARGIN_RIGHT,   4, S_FALLBACK - S_ANY);
  1863.     StyleAddSimpleRule(sheet, TAG_HTML, S_MARGIN_TOP,   4, S_FALLBACK - S_ANY);
  1865.     StyleAddSimpleRule(sheet, TAG_HTML, S_ALIGN,   ALIGN_LEFT,     S_FALLBACK - S_ANY);
  1867.     /* set per-tag fallback values -- exception to the normal fallback values */
  1869.     StyleAddSimpleRule(sheet, TAG_H1, S_FONT_FAMILY,  (long)str2list("charter", "times"),  S_FALLBACK); 
  1870.     StyleAddSimpleRule(sheet, TAG_H1, S_FONT_SIZE,  24,  S_FALLBACK);
  1871.     StyleAddSimpleRule(sheet, TAG_H1, S_FONT_WEIGHT,  FONT_WEIGHT_BOLD, S_FALLBACK);
  1872.     StyleAddSimpleRule(sheet, TAG_H1, S_MARGIN_LEFT,   5,  S_FALLBACK);
  1874.     StyleAddSimpleRule(sheet, TAG_H2, S_FONT_FAMILY,  (long)str2list("charter", "times"),  S_FALLBACK); 
  1875.     StyleAddSimpleRule(sheet, TAG_H2, S_FONT_SIZE,  18,  S_FALLBACK);
  1876.     StyleAddSimpleRule(sheet, TAG_H2, S_FONT_WEIGHT,  FONT_WEIGHT_BOLD,  S_FALLBACK);
  1877.     StyleAddSimpleRule(sheet, TAG_H2, S_MARGIN_LEFT,   5,  S_FALLBACK);
  1878.     
  1879.     StyleAddSimpleRule(sheet, TAG_H3, S_FONT_FAMILY,  (long)str2list("times", "charter"),  S_FALLBACK); 
  1880.     StyleAddSimpleRule(sheet, TAG_H3, S_FONT_SIZE,  14,  S_FALLBACK);
  1881.     StyleAddSimpleRule(sheet, TAG_H2, S_FONT_WEIGHT,  FONT_WEIGHT_BOLD,  S_FALLBACK);
  1882.     StyleAddSimpleRule(sheet, TAG_H3, S_MARGIN_LEFT,  5,  S_FALLBACK);
  1884.     StyleAddSimpleRule(sheet, TAG_H4, S_FONT_FAMILY,  (long)str2list("charter","times"),  S_FALLBACK);
  1885.     StyleAddSimpleRule(sheet, TAG_H4, S_FONT_SIZE,  12,  S_FALLBACK);
  1886.     StyleAddSimpleRule(sheet, TAG_H4, S_FONT_WEIGHT,    FONT_WEIGHT_BOLD,  S_FALLBACK);
  1887.     StyleAddSimpleRule(sheet, TAG_H4, S_MARGIN_LEFT,  5,  S_FALLBACK);
  1889.     StyleAddSimpleRule(sheet, TAG_H5, S_FONT_FAMILY,  (long)str2list("charter","times"),  S_FALLBACK);
  1890.     StyleAddSimpleRule(sheet, TAG_H5, S_FONT_SIZE,  12,  S_FALLBACK);
  1891.     StyleAddSimpleRule(sheet, TAG_H5, S_FONT_WEIGHT,    FONT_WEIGHT_BOLD,  S_FALLBACK);
  1892.     StyleAddSimpleRule(sheet, TAG_H5, S_MARGIN_LEFT,  5,  S_FALLBACK);
  1894.     StyleAddSimpleRule(sheet, TAG_H6, S_FONT_FAMILY,  (long)str2list("charter","times"),  S_FALLBACK);
  1895.     StyleAddSimpleRule(sheet, TAG_H6, S_FONT_SIZE,  12,  S_FALLBACK);
  1896.     StyleAddSimpleRule(sheet, TAG_H6, S_FONT_WEIGHT,    FONT_WEIGHT_BOLD,  S_FALLBACK);
  1897.     StyleAddSimpleRule(sheet, TAG_H6, S_MARGIN_LEFT,  5,  S_FALLBACK);
  1899.     /*    StyleAddSimpleRule(sheet, TAG_LI, S_MARGIN_LEFT,  15,  S_FALLBACK);*/
  1901.     StyleAddSimpleRule(sheet, TAG_DL, S_MARGIN_LEFT,  15,   S_FALLBACK);
  1902.     StyleAddSimpleRule(sheet, TAG_UL, S_MARGIN_LEFT,  15,  S_FALLBACK);
  1903.     StyleAddSimpleRule(sheet, TAG_OL, S_MARGIN_LEFT,  15,  S_FALLBACK);
  1905.     StyleAddSimpleRule(sheet, TAG_DT, S_FONT_WEIGHT,  FONT_WEIGHT_BOLD,  S_FALLBACK);
  1906.     StyleAddSimpleRule(sheet, TAG_DD, S_FONT_WEIGHT,  FONT_WEIGHT_MEDIUM,  S_FALLBACK);
  1907.  
  1908.     StyleAddSimpleRule(sheet, TAG_ADDRESS,  S_ALIGN, ALIGN_RIGHT, S_FALLBACK);
  1910.     StyleAddSimpleRule(sheet, TAG_MATH,  S_FONT_SIZE,  14,   S_FALLBACK);
  1911.     StyleAddSimpleRule(sheet, TAG_SMALL,  S_FONT_SIZE,  8,  S_FALLBACK);
  1912.     StyleAddSimpleRule(sheet, TAG_SUB,  S_FONT_SIZE,  8,  S_FALLBACK);
  1913.     StyleAddSimpleRule(sheet, TAG_SUP,  S_FONT_SIZE,  8,  S_FALLBACK);
  1915.     StyleAddSimpleRule(sheet, TAG_STRONG,  S_FONT_WEIGHT, FONT_WEIGHT_BOLD, S_FALLBACK);
  1916.     StyleAddSimpleRule(sheet, TAG_BOLD,  S_FONT_WEIGHT,  FONT_WEIGHT_BOLD, S_FALLBACK);
  1918.     StyleAddSimpleRule(sheet, TAG_EM,  S_FONT_STYLE, FONT_STYLE_ITALIC, S_FALLBACK);
  1919.     StyleAddSimpleRule(sheet, TAG_ITALIC,  S_FONT_STYLE, FONT_STYLE_ITALIC, S_FALLBACK);
  1921.     StyleAddSimpleRule(sheet, TAG_PRE,  S_FONT_FAMILY, (long)str2list("lucidasanstypewriter", "courier"), S_FALLBACK);
  1922.     StyleAddSimpleRule(sheet, TAG_TT,  S_FONT_FAMILY, (long)str2list("lucidasanstypewriter", "courier"), S_FALLBACK);
  1923.     StyleAddSimpleRule(sheet, TAG_CODE,  S_FONT_FAMILY, (long)str2list("lucidasanstypewriter", "courier"), S_FALLBACK);
  1925.     /* set default style for TAG_ABSTRACT */
  1927.     StyleAddSimpleRule(sheet, TAG_ABSTRACT, S_FONT_STYLE,  FONT_STYLE_ITALIC, S_FALLBACK);
  1928.     StyleAddSimpleRule(sheet, TAG_ABSTRACT, S_FONT_WEIGHT,  FONT_WEIGHT_BOLD, S_FALLBACK);
  1930.     StyleAddSimpleRule(sheet, TAG_ABSTRACT, S_MARGIN_RIGHT,  40, S_FALLBACK);
  1931.     StyleAddSimpleRule(sheet, TAG_ABSTRACT, S_MARGIN_LEFT, 40,  S_FALLBACK);
  1933.     /* set default style for TAG_QUOTE */
  1935.     StyleAddSimpleRule(sheet, TAG_QUOTE, S_FONT_STYLE,  FONT_STYLE_ITALIC, S_FALLBACK);
  1936.     StyleAddSimpleRule(sheet, TAG_QUOTE, S_MARGIN_RIGHT,  30,  S_FALLBACK);
  1937.     StyleAddSimpleRule(sheet, TAG_QUOTE, S_MARGIN_LEFT,  50,  S_FALLBACK);
  1939.     /* set style for tables */
  1941.     StyleAddSimpleRule(sheet, TAG_TH,  S_FONT_WEIGHT,  FONT_WEIGHT_BOLD,  S_FALLBACK);
  1942. /*
  1943.     StyleAddSimpleRule(sheet, TAG_TH,  S_ALIGN,  ALIGN_CENTER,  S_FALLBACK);
  1944.     StyleAddSimpleRule(sheet, TAG_TD,  S_ALIGN,  ALIGN_CENTER,  S_FALLBACK);
  1945. */
  1946.     /* set style for HR */
  1948.     StyleAddSimpleRule(sheet, TAG_HR,  S_COLOR,  (255 << 24), S_FALLBACK);
  1950.     return sheet;
  1951. }
  1953. void StyleParse()
  1954. {
  1955.     if (STYLE_TRACE)
  1956. fprintf(stderr,"StyleParsen");
  1958.     if (!CurrentDoc->head_style && !CurrentDoc->link_style) {
  1959. CurrentDoc->style = NULL; /* i.e. style->default */
  1960. return;
  1961.     }
  1963.     if (CurrentDoc->user_style) {
  1965. /* this document contains the user's style sheet if it exists */
  1967. Announce("applying personal style sheet.. ");
  1969. /* rgbClear();*/
  1971. if (context->style) {
  1972.     FreeStyleSheet(context->style);
  1973.     context->style = StyleGetInit();
  1974. }
  1976. StyleChew(context->style, CurrentDoc->head_style, S_USER);
  1977. StyleChew(context->style, CurrentDoc->link_style, S_USER);
  1978. CurrentDoc->style = context->style;
  1979. if (STYLE_TRACE) {
  1980.     fprintf(stderr,"Stylesane: context->stylen");
  1981.     StyleSane(context->style);
  1982. }
  1983. return;
  1984.     }
  1986.     /* this is a normal incoming document with style sheet attached */
  1988.     Announce("applying document's style sheet.. ");
  1990.     rgbClear();
  1991.     CurrentDoc->style = StyleCopy(context->style);
  1992.     StyleChew(CurrentDoc->style, CurrentDoc->head_style, S_USER);
  1993.     StyleChew(CurrentDoc->style, CurrentDoc->link_style, S_USER);
  1994.     if (STYLE_TRACE) {
  1995. fprintf(stderr,"Stylesane: CurrentDoc->stylen");
  1996. StyleSane(context->style);
  1997.     }
  1999.     Announce("applying document's style sheet.. done");
  2000. }
  2003. /*
  2004. void StyleWindowChange()
  2005. {
  2006.     fprintf(stderr,"StyleWindowChange w %d h %dn", win_width, win_height);
  2007. }
  2008. */
  2010. /* StyleZoom is a bit too Arena-specific */
  2012. void StyleZoomChange(double f)
  2013. {
  2014.     Announce("loading fonts..");
  2015.     ShowBusy();
  2017.     lens_factor *= f;
  2018.     DisplaySizeChanged(1);
  2019.     Redraw(0,0,WinWidth,WinHeight + WinTop); 
  2020.     Announce("%s",CurrentDoc->url);
  2021.     HideBusy();
  2022. }
  2025. char *StyleLoad(char *href, int hreflen, BOOL reload)
  2026. {
  2027.     Doc *doc = NULL;
  2029.     /* check for null name */
  2031.     doc = GetInline(href, hreflen, reload);
  2032.     if (doc) {
  2033. /* fprintf(stderr,"StyleLoad succedded ??n");*/
  2034. return(doc->content_buffer);
  2035.     }
  2036.     return NULL;
  2037. }
  2039. /* 
  2040.   StyleGet is used by the UA to pull values out of a flattened stylesheet
  2041. */
  2044. long StyleGet(StyleProperty property)
  2045. {
  2046.     if (REGISTER_TRACE && VERBOSE_TRACE)
  2047. fprintf(stderr,"StyleGet: property %dn", property);
  2048.     if ((REGISTER_TRACE) && (current_flat->status[property] == S_UNSET))
  2049. fprintf(stderr, "StyleGet, property not set %dn", property);
  2051.     switch (property) {
  2052.        case S_SMALL_CAPS_FONT: /* this one is expensive and not often used */
  2053. if (current_flat->status[S_SMALL_CAPS_FONT] != S_INFERRED) {
  2054.     current_flat->value[S_SMALL_CAPS_FONT] = (void *)
  2055. GetFont((HTList *)current_flat->value[S_FONT_FAMILY], 
  2056. (int)current_flat->value[S_FONT_SIZE] * 4 / 5,
  2057. (int)current_flat->value[S_FONT_WEIGHT], 
  2058. (int)current_flat->value[S_FONT_STYLE], True);
  2059.     current_flat->status[S_FONT] = S_INFERRED;
  2060.     current_flat->weight[S_SMALL_CAPS_FONT] = current_flat->weight[S_FONT];
  2061. }
  2062. return(current_flat->value[S_SMALL_CAPS_FONT]);
  2063. break;
  2064.       default:
  2065. return (current_flat->value[property]);
  2066.     }
  2067.     return 0;
  2068. }
  2070. void StyleClearDoc()
  2071. {
  2072.     HTList *l = style_stack;
  2073.     StyleStackElement *sel;
  2075.     while ( (sel = (StyleStackElement *) HTList_nextObject(l) )) {
  2076. Free(sel->flat);
  2077.     }
  2079.     HTList_destroy(style_stack);
  2080.     style_stack = NULL;
  2081.     current_flat = NULL;
  2082. }
  2086. /* formatting functions, here starts what should become format.c */
  2088. StyleStackElement *NewStackElement()
  2089. {
  2090.     return (StyleStackElement *)calloc(1,sizeof(StyleStackElement));
  2091. }
  2093. /* 
  2094.   FormatElementStart is called when a new element (implied or not) is
  2095.   started. It will call StyleEval to flatten a set of properties (called
  2096.   a stack element) to be returned by StyleGet. The stack element is then 
  2097.   pushed onto the stack.
  2098. */
  2100. extern void Push(void *);
  2101. extern void *Pop();
  2103. void FormatElementStart(int element, char *class, int class_len)
  2104. {
  2105.     Frame *new_frame, *old_frame;
  2106.     
  2107.     StyleStackElement *stack_el = NewStackElement();
  2108.     StyleSheet *sheet = (CurrentDoc->style ? CurrentDoc->style : context->style);
  2110.     if ((element < 0) || (element >= TAG_LAST)) {
  2111.       fprintf(stderr,"FormatElementStart: element = %dn",element);
  2112.       element = TAG_P; /* ugly */
  2113.     }
  2115.     current_sheet = sheet;
  2117.     if (REGISTER_TRACE)
  2118. fprintf(stderr,"nFormatElementStart: %dn",element);
  2120.     if (!style_stack)
  2121. style_stack = HTList_new();
  2123.     stack_el->unit.element = element;
  2124.     if (class)
  2125. stack_el->unit.class = strndup(class, class_len);
  2126.     stack_el->flat = StyleEval(sheet, &stack_el->unit, style_stack);
  2128.     if (REGISTER_TRACE) {
  2129. StyleProperty i;
  2130. for (i=S_UNKNOWN; i<S_NPROPERTY; i++) 
  2131.     switch (i) {
  2132.       case S_FONT_FAMILY:
  2133. {
  2134.     char *fn;
  2135.     HTList *l = (HTList *)stack_el->flat->value[i];
  2137.     fprintf(stderr,"(%d ",i);
  2138.     while ((fn = (char *)HTList_nextObject(l))) {
  2139. fprintf(stderr,"%s ",fn);
  2140.     }
  2141.     fprintf(stderr,")");
  2142. }
  2143. break;
  2144.       default:
  2145. fprintf(stderr,"(%d %ld)",i, stack_el->flat->value[i]);
  2146.     }
  2147. fprintf(stderr,"n");
  2148.     }
  2150.     HTList_addObject(style_stack, (void *)stack_el); 
  2151.     current_flat = stack_el->flat;
  2152.     StyleSetFlag(S_MARGIN_TOP_FLAG, (int)StyleGet(S_MARGIN_TOP));
  2153.     if(element == TAG_P)
  2154.     { 
  2155. StyleSetFlag(S_INDENT_FLAG, (int)StyleGet(S_INDENT));
  2156. StyleSetFlag(S_LEADING_FLAG, TRUE);
  2157.     };
  2159.     if(element == TAG_HTML || element == TAG_HTML_SOURCE || 
  2160. (/*element != TAG_TABLE && */
  2161.  element != TAG_ABSTRACT &&
  2162.  element != TAG_BLOCKQUOTE && element != TAG_CAPTION &&
  2163.  element != TAG_NOTE && element != TAG_PRE &&
  2164.  element != TAG_QUOTE))  
  2165. return;
  2166.     if(prepass||damn_table)
  2167. return;
  2168.     old_frame = (Frame *)Pop();
  2169.     Push(old_frame);
  2170.     if(paintStartLine>0)
  2171. Push((Frame *)1);
  2172.     else
  2173.     {
  2174. new_frame = (Frame *)calloc(1, sizeof(Frame));
  2175. PixOffset += StyleGet(S_PADDING)+ StyleGet(S_MARGIN_TOP); /* must be S_PADDING_TOP */
  2176. new_frame->offset = PixOffset;
  2177. new_frame->leftmargin = StyleGet(S_PADDING);
  2178. new_frame->rightmargin = StyleGet(S_PADDING);
  2179. new_frame->indent = old_frame->indent + StyleGet(S_MARGIN_LEFT);
  2180. new_frame->width = old_frame->width - StyleGet(S_MARGIN_LEFT) - StyleGet(S_MARGIN_RIGHT);
  2181. new_frame->style = 0;
  2182. new_frame->border = 0;
  2183. #ifdef STYLE_COLOR_BORDER
  2184. new_frame->cb_ix = 0;
  2185. #else
  2186. new_frame->cb_ix = 0;
  2187. #endif
  2188. new_frame->flow = old_frame->flow; /* StyleGet(S_ALIGN) */
  2189. new_frame->next = new_frame->child = NULL;
  2190. new_frame->box_list = NULL;
  2191. PrintBeginFrame(new_frame);
  2192. Push(new_frame);
  2193.     }
  2194. #if 0
  2195.     new_frame->offset = PixOffset;
  2196.     new_frame->indent = (old_frame ?  old_frame->leftmargin + StyleGet(S_MARGIN_LEFT) : StyleGet(S_MARGIN_LEFT));
  2197.     new_frame->width = (old_frame ?  old_frame->width - StyleGet(S_MARGIN_LEFT) - StyleGet(S_MARGIN_RIGHT) : 12);
  2198.     new_frame->style = 0;
  2199.     new_frame->border = 0;
  2200. #ifdef STYLE_COLOR_BORDER
  2201.     new_frame->cb_ix = 0;
  2202. #else
  2203.     new_frame->cb_ix = 0;
  2204. #endif
  2205.     new_frame->flow = ALIGN_CENTER;
  2206.     new_frame->next = new_frame->child = NULL;
  2207.     new_frame->box_list = NULL;
  2208.     new_frame->leftcount = old_frame->leftcount;
  2209.     new_frame->pushcount = old_frame->pushcount;
  2210.     new_frame->oldmargin = old_frame->oldmargin;
  2211.     PrintBeginFrame(new_frame);
  2212.     Push(new_frame);
  2213. #endif
  2214. }
  2216. /*
  2217.   FormatElementEnd pops a set of flattened style properties from the
  2218.   stack. Note that calls to FormatElementStart and FormatElementEnd must
  2219.   always match each other. I.e. your SGML/HTML parser must add any
  2220.   implied/omitted tags.
  2221. */
  2223. void FormatElementEnd()
  2224. {
  2225.     Frame *old_frame;
  2226.     int element;
  2228.     StyleStackElement *stack_el = (StyleStackElement *) HTList_removeLastObject(style_stack);
  2229.     element = stack_el->unit.element;
  2230.     if (REGISTER_TRACE) 
  2231. fprintf(stderr,"FormatElementEnd:   %d, %d elements leftn", stack_el->unit.element, HTList_count(style_stack));
  2232.     
  2233.     Free(stack_el->flat);
  2234.     Free(stack_el->unit.class);
  2235.     Free(stack_el);
  2237.     stack_el = (StyleStackElement *) HTList_lastObject (style_stack);
  2238.     if (!stack_el) {
  2239. if (REGISTER_TRACE)
  2240.     fprintf(stderr,"stack empty!! n");
  2241. HTList_destroy(style_stack);
  2242. style_stack = NULL;
  2243. current_flat = NULL;
  2244.     } else {
  2245. current_flat = stack_el->flat;
  2246.     }
  2248.     if(element == TAG_HTML || element == TAG_HTML_SOURCE || 
  2249. (/*element != TAG_TABLE && */
  2250.         element != TAG_ABSTRACT &&
  2251. element != TAG_BLOCKQUOTE && element != TAG_CAPTION &&
  2252. element != TAG_NOTE && element != TAG_PRE &&
  2253. element != TAG_QUOTE))
  2254. return;
  2255.     if(prepass||damn_table) 
  2256. return;
  2257.     old_frame = (Frame *)Pop();
  2258.     if(old_frame)
  2259.     {
  2260. Frame *parent_frame;
  2261. char *p;
  2262. #define PushValue(p, value) ui_n = (unsigned int)value; *p++ = ui_n & 0xFF; *p++ = (ui_n >> 8) & 0xFF
  2264. if(old_frame != (Frame *)1)
  2265. {
  2266.     parent_frame = (Frame *)Pop();
  2267.     if(parent_frame)
  2268. Push(parent_frame);
  2269.     old_frame->length = paintlen - old_frame->info - FRAMESTLEN;
  2270.     old_frame->height = PixOffset - old_frame->offset + 2*StyleGet(S_PADDING);;
  2271.     old_frame->offset -= StyleGet(S_PADDING);
  2272.     PixOffset += StyleGet(S_PADDING);
  2273.     p = paint + old_frame->info + 9;
  2274.     PushValue(p, old_frame->height & 0xFFFF);
  2275.     PushValue(p, (old_frame->height >> 16) & 0xFFFF);
  2276.     PrintFrameLength(old_frame);
  2277.     if(parent_frame == (Frame *)1)  
  2278. PrintEndFrame(NULL, old_frame);
  2279.     else
  2280. PrintEndFrame(parent_frame, old_frame);
  2281.     FreeFrames(old_frame); 
  2282. };
  2283.     }; 
  2284. }