#! /usr/bin/perl

# Usage: fix_proc_data.pl <pg_proc.h >new_pg_proc.h

use strict;
use warnings;

while (<>)
{
    if (m/^DATA/) {
	my @fields = split;
	my $proisagg = $fields[13];
	my $proiswindow = $fields[14];
	my $prokind;
	if ($proisagg eq 'f' && $proiswindow eq 'f') {
	    $prokind = 'f';
	} elsif ($proisagg eq 't' && $proiswindow eq 'f') {
	    $prokind = 'a';
	} elsif ($proisagg eq 'f' && $proiswindow eq 't') {
	    $prokind = 'w';
	} else {
	    die "bad proisagg/proiswindow";
	}
	s/ $proisagg $proiswindow / $prokind / || die "substitution failed";
    }
    print;
}