Commit | Line | Data |
16dc9970 |
1 | package SQL::Translator::Parser::Sybase; |
2 | |
3 | #----------------------------------------------------- |
4 | # $Id: Sybase.pm,v 1.1.1.1 2002-03-01 02:26:25 kycl4rk Exp $ |
5 | # |
6 | # File : SQL/Translator/Parser/Sybase.pm |
7 | # Programmer : Ken Y. Clark, kclark@logsoft.com |
8 | # Created : 2002/02/27 |
9 | # Purpose : parser for Sybase (dbschema.pl) |
10 | #----------------------------------------------------- |
11 | |
12 | my $grammar = q{ |
13 | |
14 | { our ( %tables ) } |
15 | |
16 | file : statement(s) { \%tables } |
17 | # { print "statements: ", join("\n", @{$item[1]}), "\n" } |
18 | # | <error> |
19 | |
20 | statement : create |
21 | | junk |
22 | # { |
23 | # print "statement: ", join("\n", @{$item[1]}), "\n"; |
24 | # $return = @{$item[1]}; |
25 | # print "statement: '", $item[1], "'\n"; |
26 | # $return = $item[1]; |
27 | # } |
28 | | <error> |
29 | |
30 | junk : comment |
31 | | use |
32 | | setuser |
33 | | if |
34 | | print |
35 | | else |
36 | | begin |
37 | | end |
38 | | grant |
39 | | exec |
40 | | GO |
41 | |
42 | GO : /go/ |
43 | # { print "GO: ", $item[1], "\n" } |
44 | |
45 | use : /use/i /.*/ |
46 | # { print "USE: ", $item[2], "\n" } |
47 | |
48 | setuser : /setuser/i /.*/ |
49 | # { print "SETUSER: ", $item[2], "\n" } |
50 | |
51 | if : /if/i /.*/ |
52 | # { print "IF: ", $item[2], "\n" } |
53 | |
54 | print : /\s*/ /print/i /.*/ |
55 | # { print "PRINT: ", $item[3], "\n" } |
56 | |
57 | else : /else/i /.*/ |
58 | # { print "ELSE: ", $item[2], "\n" } |
59 | |
60 | begin : /begin/i |
61 | # { print "BEGIN\n" } |
62 | |
63 | end : /end/i |
64 | # { print "END\n" } |
65 | |
66 | grant : /grant/i /.*/ |
67 | # { print "GRANT: ", $item[2], "\n" } |
68 | |
69 | exec : /exec/i /.*/ |
70 | # { print "EXEC: ", $item[2], "\n" } |
71 | |
72 | comment : /^\s*\/\*.*\*\//m |
73 | # { print "COMMENT: ", $item[-1], "\n" } |
74 | |
75 | create : create_table table_name '(' field(s /,/) ')' lock(?) |
76 | { |
77 | # print "TABLE $item[2]: ", |
78 | # join(', ', map{$_->{'name'}}@{$item[4]}), "\n"; |
79 | my $i = 0; |
80 | for my $line ( @{ $item[4] } ) { |
81 | if ( $line->{'type'} eq 'field' ) { |
82 | my $field_name = $line->{'name'}; |
83 | $tables{ $item{'table_name'} } |
84 | {'fields'}{$field_name} = |
85 | { %$line, order => $i }; |
86 | $i++; |
87 | |
88 | if ( $line->{'is_primary_key'} ) { |
89 | push |
90 | @{ $tables{ $item{'table_name'} }{'indeces'} }, |
91 | { |
92 | type => 'primary_key', |
93 | fields => [ $field_name ], |
94 | }; |
95 | } |
96 | } |
97 | else { |
98 | push @{ $tables{ $item{'table_name'} }{'indeces'} }, |
99 | $line; |
100 | } |
101 | $tables{ $item{'table_name'} }{'type'} = |
102 | $item{'table_type'}[0]; |
103 | } |
104 | } |
105 | | <error> |
106 | |
107 | blank : /\s*/ |
108 | |
109 | field : field_name data_type null(?) |
110 | { |
111 | $return = { |
112 | type => 'field', |
113 | name => $item{'field_name'}, |
114 | data_type => $item{'data_type'}{'type'}, |
115 | size => $item{'data_type'}{'size'}, |
116 | null => $item{'null'}[0], |
117 | # default => $item{'default_val'}[0], |
118 | # is_auto_inc => $item{'auto_inc'}[0], |
119 | # is_primary_key => $item{'primary_key'}[0], |
120 | } |
121 | } |
122 | | <error> |
123 | |
124 | index : primary_key_index |
125 | | unique_index |
126 | | normal_index |
127 | |
128 | table_name : WORD '.' WORD |
129 | { $return = $item[3] } |
130 | |
131 | field_name : WORD |
132 | |
133 | index_name : WORD |
134 | |
135 | data_type : WORD field_size(?) |
136 | { |
137 | $return = { |
138 | type => $item[1], |
139 | size => $item[2][0] |
140 | } |
141 | } |
142 | |
143 | lock : /lock/i /datarows/i |
144 | |
145 | field_type : WORD |
146 | |
147 | field_size : '(' num_range ')' { $item{'num_range'} } |
148 | |
149 | num_range : DIGITS ',' DIGITS |
150 | { $return = $item[1].','.$item[3] } |
151 | | DIGITS |
152 | { $return = $item[1] } |
153 | |
154 | |
155 | create_table : /create/i /table/i |
156 | |
157 | null : /not/i /null/i |
158 | { $return = 0 } |
159 | | /null/i |
160 | { $return = 1 } |
161 | |
162 | default_val : /default/i /(?:')?[\w\d.-]*(?:')?/ { $item[2]=~s/'//g; $return=$item[2] } |
163 | |
164 | auto_inc : /auto_increment/i { 1 } |
165 | |
166 | primary_key : /primary/i /key/i { 1 } |
167 | |
168 | primary_key_index : primary_key index_name(?) '(' field_name(s /,/) ')' |
169 | { |
170 | $return = { |
171 | name => $item{'index_name'}[0], |
172 | type => 'primary_key', |
173 | fields => $item[4], |
174 | } |
175 | } |
176 | |
177 | normal_index : key index_name(?) '(' field_name(s /,/) ')' |
178 | { |
179 | $return = { |
180 | name => $item{'index_name'}[0], |
181 | type => 'normal', |
182 | fields => $item[4], |
183 | } |
184 | } |
185 | |
186 | unique_index : /unique/i key index_name(?) '(' field_name(s /,/) ')' |
187 | { |
188 | $return = { |
189 | name => $item{'index_name'}[0], |
190 | type => 'unique', |
191 | fields => $item[5], |
192 | } |
193 | } |
194 | |
195 | key : /key/i |
196 | | /index/i |
197 | |
198 | table_type : /TYPE=/i /\w+/ { $item[2] } |
199 | |
200 | WORD : /[\w#]+/ |
201 | |
202 | DIGITS : /\d+/ |
203 | |
204 | COMMA : ',' |
205 | |
206 | }; |
207 | |
208 | 1; |
209 | |
210 | #----------------------------------------------------- |
211 | # Every hero becomes a bore at last. |
212 | # Ralph Waldo Emerson |
213 | #----------------------------------------------------- |
214 | |
215 | =head1 NAME |
216 | |
217 | SQL::Translator::Parser::Sybase - parser for Sybase |
218 | |
219 | =head1 SYNOPSIS |
220 | |
221 | use SQL::Translator::Parser::Sybase; |
222 | |
223 | =head1 DESCRIPTION |
224 | |
225 | Blah blah blah. |
226 | |
227 | =head1 AUTHOR |
228 | |
229 | Ken Y. Clark, kclark@logsoft.com |
230 | |
231 | =head1 SEE ALSO |
232 | |
233 | perl(1). |
234 | |
235 | =cut |