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