CleanSgfFromKgs: kgs_cleaner.pike

#!/usr/bin/env pike

import .Sgf;

int main(int argc, array(string) argv)
{
    foreach (argv[1..], string filename)
    {
        if (!has_suffix(filename, ".sgf"))
        {
            werror("Not an sgf file: %s\n", filename);
            continue;
        }
        string s = Stdio.read_file(filename);
        if (!s)
        {
            write("Could not read file: %s\n", filename);
            continue;
        }
        SgfNode sgf = parse_sgf(s);
        for (SgfNode p = sgf; p; p = p->get_child(0))
        {
            p->remove_property("CR");
            p->remove_property("WL");
            p->remove_property("BL");
            p->remove_property("OW");
            p->remove_property("OB");
            p->remove_property("KGSDE");
            p->remove_property("KGSSW");
            p->remove_property("KGSSB");
        }
        
        Stdio.write_file(filename + ".orig", s);
        Stdio.write_file(filename, sgf->write() + "\n");
    }
    return 0;
}