source: branches/irods-mockup/tools/GaussView/remove_chk.awk @ 119

/^%chk=/        {
                prefix = substr($0, 1, 5);
                full_path = substr($0, 6);
                match(full_path, /.+\\/);
                
                if (RLENGTH != -1) {
#                       path = substr(full_path, 1, RSTART + RLENGTH - 1);
                        file_name = substr(full_path, RSTART + RLENGTH);
                        printf "%s%s\n", prefix, file_name;
                } else {
                        print;
                }
        }

!/^%chk=/       {
                print;
        }