Branch: Tag:

1999-03-22

1999-03-22 19:09:06 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Added some more debug.

Rev: lib/modules/Protocols.pmod/IMAP.pmod/parse_line.pike:1.17
Rev: lib/modules/Protocols.pmod/IMAP.pmod/parser.pike:1.9

260:    if (!strlen(buffer))    return 0;    -  if (buffer[0] == '(') -  { +  if (buffer[0] == '(') {    /* Recurse */ -  if (max_depth > 0) -  { +  if (max_depth > 0) {    array a = do_parse_simple_list(max_depth - 1, ')');    return a && ([ "type": "list",    "list": a ]); -  } -  else +  } else { +  werror("get_simple_list(): Too deep recursion.\n");    return 0;    } -  +  }    return get_atom_options(max_depth);   }   
279:   {    array a = ({ });    +  werror(sprintf("do_parse_simple_list(%d, '%c')\n", max_depth, terminator)); +     while(1)    {    buffer = buffer[1..];
327:       array options = do_parse_simple_list(max_depth - 1, ']');    -  if (strlen(buffer) && buffer[0] == ']') { -  buffer = buffer[1..]; -  } -  +     if (!options) { -  +  werror("get_atom_options(): No options.\n");    res->raw = atom + "[]";    res->options = ({ ([ "type":"atom", "atom":"" ]) });    return res;