Parent Directory | Revision Log | Patch
revision 1.2 by jlenton, Thu Nov 7 20:59:16 2002 UTC | revision 1.3 by jlenton, Fri May 16 16:52:21 2003 UTC | |
---|---|---|
# | Line 44 sub parse | Line 44 sub parse |
44 | if ($1 eq $_); | if ($1 eq $_); |
45 | } | } |
46 | } | } |
47 | elsif (/^\s*(\w+)\s*(?:(..)\s*(\w+)|\((.*)\))?\s*$/) # anything else | elsif (/^\s*(\w+[\+\*]{0,2})\s*(?:(..)\s*(\w+)|\((.*)\))?\s*$/) # anything else |
48 | { | { |
49 | my ($field, $rel_type, $to_table, $datatype) = ($1, $2, $3, $4); | my ($field, $rel_type, $to_table, $datatype) = ($1, $2, $3, $4); |
50 | $field =~ s/^_/${prefix}_/; | $field =~ s/^_/${prefix}_/; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |