30 |
$out->{index}->{$2}->{$table} = $1; |
$out->{index}->{$2}->{$table} = $1; |
31 |
} |
} |
32 |
|
|
33 |
if (/\s*inherits\s*\(\s*(\S+)\s*\)/) { |
if (/\s*inherits\s*\(\s*(\S+)\s*\)/i) { |
34 |
$out->{inherits}->{$table} = $1; |
$out->{inherits}->{$table} = $1; |
35 |
} |
} |
36 |
|
|
37 |
if (s/^\s*(\S+)(.+?)references\s+(\S+)\s*\((\S+)\)/$1$2/i) { |
if (s/^\s*(\S+)(.+?)references\s+(\S+)\s*\((\S+)\)/\t$1$2/i) { |
38 |
|
# if (/^\s*(\S+)(.+?)references\s+(\S+)\s*\((\S+)\)/) { |
39 |
@{ $out->{references}->{$table}->{$1} } = ( $3, $4 ); |
@{ $out->{references}->{$table}->{$1} } = ( $3, $4 ); |
40 |
} |
} |
41 |
|
|
77 |
END IF; |
END IF; |
78 |
END; |
END; |
79 |
\$\$ language 'plpgsql'; |
\$\$ language 'plpgsql'; |
80 |
|
CREATE TRIGGER $func BEFORE INSERT ON $table FOR EACH ROW EXECUTE PROCEDURE $func(); |
81 |
}; |
}; |
82 |
} |
} |
83 |
} |
} |