Roxen.git/ server/ etc/ modules/ RXML.pmod/ module.pmod

2004-02-20

2004-02-20 19:47:31 by Martin Stjernholm <mast@lysator.liu.se>

• 2cb58b8926213cf67db96e661a6d3c425dc27685 (68 lines) (+51/-17) ^{[ Show | Annotate ]}
  Branch: 5.2

Refactored the p-code compactor a little and fixed a bug in it that
was introduced in revision 1.320. The effect was that parts of tag
content could be lost in certain situations.

Rev: server/etc/modules/RXML.pmod/module.pmod:1.325

2:   //   // Created 1999-07-30 by Martin Stjernholm.   // - // $Id: module.pmod,v 1.324 2004/02/17 20:14:58 mast Exp $ + // $Id: module.pmod,v 1.325 2004/02/20 19:47:31 mast Exp $      // Kludge: Must use "RXML.refs" somewhere for the whole module to be   // loaded correctly.
65:   // #define FRAME_DEPTH_DEBUG   // #define RXML_PCODE_DEBUG   // #define RXML_PCODE_UPDATE_DEBUG + // #define RXML_PCODE_COMPACT_DEBUG   // #define TAGSET_GENERATION_DEBUG      
7554:    string _sprintf() {return "RXML.PikeCompile" + OBJ_COUNT;}   }    + #if defined (RXML_PCODE_COMPACT_DEBUG) && !defined (RXML_PCODE_DEBUG) + # define RXML_PCODE_DEBUG + #endif +    #ifdef RXML_PCODE_DEBUG   # define PCODE_MSG(X...) do { \    Context _ctx_ = RXML_CONTEXT; \
7919:    if (p_code) p_code->add_frame (ctx, frame, evaled_value, cache_frame, frame_state);    }    + #ifdef RXML_PCODE_COMPACT_DEBUG + # define PCODE_COMPACT_MSG(X...) PCODE_MSG (X) + #else + # define PCODE_COMPACT_MSG(X...) do {} while (0) + #endif +     void finish()    {   #ifdef DEBUG
7946:    m_delete (RXML_CONTEXT->misc, "recorded_changes");    PCODE_MSG ("end result collection\n");    -  //werror ("before compact: %O\n", exec[..length - 1]); -  +     // Collapse sequences of constants. Could be done when not    // collecting results too, but it's probably not worth the    // bother then. -  +  +  PCODE_COMPACT_MSG (" Compact: Start with %O\n", exec[..length - 1]); +     int max = length;    length = 0;    for (int pos = 0; pos < max; pos++) {    mixed item = exec[pos]; -  +  PCODE_COMPACT_MSG (" Compact: Got %O at %d\n", item, pos);       process_entry: {    VariableChange var_chg = 0;       if (objectp (item))    if (item->is_RXML_p_code_frame) { -  exec[length++] = exec[pos++]; -  exec[length++] = exec[pos++]; -  break process_entry; +  PCODE_COMPACT_MSG (" Compact: Moving frame at %d..%d to %d..%d\n", +  pos, pos + 2, length + 2); +  exec[length++] = item; +  exec[length++] = exec[++pos]; +  exec[length++] = exec[++pos]; +  continue;    }    else if (item->is_RXML_VariableChange) {    var_chg = item; -  exec[pos] = nil; // Ignore in the `+ below. +  // Ignore it in the `+ below. +  PCODE_COMPACT_MSG (" Compact: Removing VariableChange at %d\n", pos); +  exec[pos] = nil;    }    else if (item->is_RXML_p_code_entry)    break process_entry;
7977:    int end = pos + 1;    while (end < max) {    item = exec[end]; +  PCODE_COMPACT_MSG (" Compact sequence: Got %O at %d\n", item, end);    if (objectp (item))    if (item->is_RXML_VariableChange) {    // Try to compact VariableChange entries separated by    // constants.    if (var_chg) { -  if (!var_chg->add (item)) break; +  if (!var_chg->add (item)) { +  PCODE_COMPACT_MSG (" Compact sequence: Adding %O to %O failed\n", +  item, var_chg); +  break;    } -  +  PCODE_COMPACT_MSG (" Compact sequence: Added %O to %O\n", +  item, var_chg); +  }    else var_chg = item; -  exec[end] = nil; // Ignore in the `+ below. +  // Ignore it in the `+ below. +  PCODE_COMPACT_MSG (" Compact: Removing VariableChange at %d\n", end); +  exec[end] = nil;    }    else if (var_chg && item != nil)    // Do not allow a VariableChange to switch places with
7997:    end++;    }    -  if (pos + !!var_chg < --end) -  exec[length++] = `+ (@exec[pos..end]); -  else -  exec[length++] = exec[pos]; +  item = `+(@exec[pos..--end]); +  PCODE_COMPACT_MSG (" Compact: Loop done - concatenating %d..%d to %O\n", +  pos, end, item);    pos = end; -  if (var_chg) exec[length++] = var_chg; -  continue; +  +  if (var_chg) { +  PCODE_COMPACT_MSG (" Compact: Adding VariableChange at %d\n", +  var_chg, length); +  exec[length++] = var_chg;    }    -  exec[length++] = exec[pos]; +  if (item == nil) continue;    }    -  //werror ("after compact: %O\n", exec[..length - 1]); +  PCODE_COMPACT_MSG (" Compact: Adding %O at %d\n", item, length); +  exec[length++] = item;    }    -  +  PCODE_COMPACT_MSG (" Compact: Done at %d, got %O\n", max, exec[..length - 1]); +  } +     else {    // No need to record ctx->id->misc->cacheable when only    // unevaluated things are stored in the p-code entry.