有向グラフと無向グラフの変換 #4

サブグラフを一個ずつクローンするくらいならグラフそのものをクローンしてしまえばいいのではと思った。

$ gvpr "BEG_G { graph_t g = graph(name, 'U'); clone(g, $); write(g); }" shiritori.gv
graph kobutanukituneko {
        subgraph kobutanukituneko {
                piglet;
                "raccoon dog";
                fox;
                cat;
        }
        piglet -- "raccoon dog";
        "raccoon dog" -- fox;
        fox -- cat;
        cat -- piglet;
}

全体がサブグラフになってしまった。
クラスタではないのでクラスタに対する属性の影響は受けないと思うが、
元のグラフとはグラフの構造が変わったことになる。