sbool web_labelsToUpperCase_debug;

static Web web_labelsToUpperCase(Web web) {
  for (WebNode node : web.nodes) {
    if (web_labelsToUpperCase_debug)
      print("Node to upper: " + struct(node.labels));
    web_labelsToUpperCase_noindex(node);
    if (web_labelsToUpperCase_debug)
      print("Node to upper done: " + struct(node.labels));
  }
  web_reindex(web);
  web.labelsToUpper = true;
  ret web;
}

static void web_labelsToUpperCase_noindex(WebNode node) {
  node.labels = map(f web_labelsToUpperCase_x, node.labels);
}

static void web_labelsToUpperCase(WebNode node) {
  web_deindex(node);
  web_labelsToUpperCase_noindex(node);
  web_index(node);
}

static Lisp web_labelsToUpperCase_x(Lisp l) {
  ret nempty(l.args) ? l : lisp(toUpperCase(l.head));
}