let gen_strings (ids : nodeid list) : unit =
  let has_inbound x = Hashtbl.length x.inb > 0 in
  let graph = cur_graph () in

  let ids = match ids with 
    | [] -> all_nodes graph
    | _ -> ids in

  let handle_node id =
    let node = try Hashtbl.find graph id with Not_found -> raise (BadIdent id) in
      if has_inbound node then inbound_warning id;
      match Languageops.gen_strings node.lang with 
        | Some w -> print_strings id w
        | None -> print_no_strings id 
  in
    List.iter handle_node ids