http://www.zort.ca/postgresql/postgresql_autodoc_0.50.tar.gz
The below is taken from the above.
my $args = $forcols->{'args'}; my $nargs = $forcols->{'number_args'};
if ($nargs == 6) { my ( $keyname , $table , $ftable , $unspecified , $lcolumn_name
, $fcolumn_name ) = split(/\000/, $args);
$structure{$group}{$table_name}{'COLUMN'}{$lcolumn_name}{'FK'} =
"$ftable"; #.$fcolumn_name";
# print " FK $lcolumn_name -> $ftable.$fcolumn_name\n"; } elsif (($nargs - 6) % 2 == 0) { my ( $keyname
, $table , $ftable , $unspecified , $lcolumn_name , $fcolumn_name , @junk
) = split(/\000/, $args);
my $key_cols = "$lcolumn_name"; my $ref_cols = "$fcolumn_name";
while ($lcolumn_name = pop(@junk) and $fcolumn_name =
pop(@junk)) {
$key_cols .= ", $lcolumn_name"; $ref_cols .= ", $fcolumn_name"; }
$structure{$group}{$table_name}{'CONSTRAINT'}{$constraint_name}
= "FOREIGN KEY ($key_cols) REFERENCES $ftable($ref_cols)"; }
--
Rod Taylor
This message represents the official view of the voices in my head
----- Original Message -----
From: "Christopher Kings-Lynne" <chriskl@familyhealth.com.au>
To: "Hackers" <pgsql-hackers@postgresql.org>;
<pgsql-sql@postgresql.org>
Sent: Monday, February 18, 2002 12:35 AM
Subject: [HACKERS] Function to split pg_trigger.tgargs
> Hi All,
>
> Is there a function in the catalogs somewhere that will split this?:
>
> australia=# select tgargs from pg_trigger where oid=3842228;
> tgargs
>
> --------------------------------------------------------------------
--------
> ------
> --------------
>
>
<unnamed>\000users_mealplans_prefs\000medidiets_meals\000UNSPECIFIED\0
00meal
> _id\0
> 00meal_id\000
> (1 row)
>
> I'm hoping to do the splitting within pl/pgsql even. If there is no
> function to break it up, can someone please suggest how I would code
taking
> this string and breaking it into components.
>
> Chris
>
>
> ---------------------------(end of
broadcast)---------------------------
> TIP 1: subscribe and unsubscribe commands go to
majordomo@postgresql.org
>
