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

2000-02-13

2000-02-13 02:24:45 by Martin Stjernholm <mast@lysator.liu.se>

• a85a9528529f76ecc8f37a2eadaaef01f30be3cd (15 lines) (+13/-2) ^{[ Show | Annotate ]}
  Branch: 5.2

Added some helpful debug checks.

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

2:   //!   //! Created 1999-07-30 by Martin Stjernholm.   //! - //! $Id: module.pmod,v 1.50 2000/02/13 00:33:33 mast Exp $ + //! $Id: module.pmod,v 1.51 2000/02/13 02:24:45 mast Exp $      //! Kludge: Must use "RXML.refs" somewhere for the whole module to be   //! loaded correctly.
1505:    // Can't count on that sprintf ("%t", ...) on an object    // returns "object".    if (([object] elem)->is_RXML_Frame) { -  ([object(Frame)] elem)->_eval (0); // Might unwind. +  ([object(Frame)] elem)->_eval (parser); // Might unwind.    piece = ([object(Frame)] elem)->result;    }    else if (([object] elem)->is_RXML_Parser) {
1684:    }       if (!result_type) { + #ifdef MODULE_DEBUG +  if (!tag) error ("result_type not set in Frame object %O, " +  "and it has no Tag object to use for inferring it.\n", +  this_object()); + #endif    Type ptype = parser->type;    foreach (tag->result_types, Type rtype)    if (ptype->subtype_of (rtype)) {result_type = rtype; break;}
1694:    " but " + [string] parser->type->name + " is expected.\n");    }    if (!content_type) { + #ifdef MODULE_DEBUG +  if (!tag) error ("content_type not set in Frame object %O, " +  "and it has no Tag object to use for inferring it.\n", +  this_object()); + #endif    content_type = tag->content_type;    if (content_type == t_same)    content_type = result_type (content_type->_parser_prog);