Whitespace

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Parser / Sybase.pm

diff --git a/lib/SQL/Translator/Parser/Sybase.pm b/lib/SQL/Translator/Parser/Sybase.pm
index 9b7814c..aa1b9f5 100644 (file)
--- a/lib/SQL/Translator/Parser/Sybase.pm
+++ b/lib/SQL/Translator/Parser/Sybase.pm
@@ -54,7 +54,7 @@ $::RD_HINT   = 1;
 
 $GRAMMAR = q{
 
-{ 
+{
     my ( %tables, @table_comments, $table_order );
 }
 
@@ -75,7 +75,7 @@ statement : create_table
     | exec
     | <error>
 
-use : /use/i WORD GO 
+use : /use/i WORD GO
     { @table_comments = () }
 
 setuser : /setuser/i NAME GO
@@ -103,7 +103,7 @@ exec : exec_statement(s) GO
 exec_statement : /exec/i /[^\n]+/
 
 comment : comment_start comment_middle comment_end
-    { 
+    {
         my $comment = $item[2];
         $comment =~ s/^\s*|\s*$//mg;
         $comment =~ s/^\**\s*//mg;
@@ -120,7 +120,7 @@ comment_middle : m{([^*]+|\*(?!/))*}
 # Create table.
 #
 create_table : /create/i /table/i ident '(' create_def(s /,/) ')' lock(?) on_system(?) GO
-    { 
+    {
         my $table_owner = $item[3]{'owner'};
         my $table_name  = $item[3]{'name'};
 
@@ -138,10 +138,10 @@ create_table : /create/i /table/i ident '(' create_def(s /,/) ')' lock(?) on_sys
         for my $def ( @{ $item[5] } ) {
             if ( $def->{'supertype'} eq 'field' ) {
                 my $field_name = $def->{'name'};
-                $tables{ $table_name }{'fields'}{ $field_name } = 
+                $tables{ $table_name }{'fields'}{ $field_name } =
                     { %$def, order => $i };
                 $i++;
-        
+
                 if ( $def->{'is_primary_key'} ) {
                     push @{ $tables{ $table_name }{'constraints'} }, {
                         type   => 'primary_key',
@@ -158,7 +158,7 @@ create_table : /create/i /table/i ident '(' create_def(s /,/) ')' lock(?) on_sys
         }
     }
 
-create_constraint : /create/i constraint 
+create_constraint : /create/i constraint
     {
         @table_comments = ();
         push @{ $tables{ $item[2]{'table'} }{'constraints'} }, $item[2];
@@ -185,18 +185,18 @@ create_def : field
 
 blank : /\s*/
 
-field : field_name data_type nullable(?) 
-    { 
-        $return = { 
+field : field_name data_type nullable(?)
+    {
+        $return = {
             supertype      => 'field',
-            name           => $item{'field_name'}, 
+            name           => $item{'field_name'},
             data_type      => $item{'data_type'}{'type'},
             size           => $item{'data_type'}{'size'},
-            nullable       => $item[3][0], 
-#            default        => $item{'default_val'}[0], 
-#            is_auto_inc    => $item{'auto_inc'}[0], 
-#            is_primary_key => $item{'primary_key'}[0], 
-        } 
+            nullable       => $item[3][0],
+#            default        => $item{'default_val'}[0],
+#            is_auto_inc    => $item{'auto_inc'}[0],
+#            is_primary_key => $item{'primary_key'}[0],
+        }
     }
 
 constraint : primary_key_constraint
@@ -208,12 +208,12 @@ index_name : WORD
 
 table_name : WORD
 
-data_type : WORD field_size(?) 
-    { 
-        $return = { 
-            type => $item[1], 
+data_type : WORD field_size(?)
+    {
+        $return = {
+            type => $item[1],
             size => $item[2][0]
-        } 
+        }
     }
 
 lock : /lock/i /datarows/i
@@ -233,31 +233,31 @@ nullable : /not/i /null/i
     | /null/i
     { $return = 1 }
 
-default_val : /default/i /(?:')?[\w\d.-]*(?:')?/ 
+default_val : /default/i /(?:')?[\w\d.-]*(?:')?/
     { $item[2]=~s/'//g; $return=$item[2] }
 
 auto_inc : /auto_increment/i { 1 }
 
-primary_key_constraint : /primary/i /key/i index_name(?) parens_field_list 
-    { 
-        $return = { 
+primary_key_constraint : /primary/i /key/i index_name(?) parens_field_list
+    {
+        $return = {
             supertype => 'constraint',
             name      => $item{'index_name'}[0],
             type      => 'primary_key',
             fields    => $item[4],
-        } 
+        }
     }
 
 unique_constraint : /unique/i clustered(?) INDEX(?) index_name(?) on_table(?) parens_field_list
-    { 
-        $return = { 
+    {
+        $return = {
             supertype => 'constraint',
             type      => 'unique',
             clustered => $item[2][0],
             name      => $item[4][0],
             table     => $item[5][0],
             fields    => $item[6],
-        } 
+        }
     }
 
 clustered : /clustered/i
@@ -274,15 +274,15 @@ on_system : /on/i /system/i
     { $return = 1 }
 
 index : clustered(?) INDEX index_name(?) on_table(?) parens_field_list
-    { 
-        $return = { 
+    {
+        $return = {
             supertype => 'index',
             type      => 'normal',
             clustered => $item[1][0],
             name      => $item[3][0],
             table     => $item[4][0],
             fields    => $item[5],
-        } 
+        }
     }
 
 parens_field_list : '(' field_name(s /,/) ')'
@@ -326,19 +326,19 @@ sub parse {
     warn Dumper( $result ) if $DEBUG;
 
     my $schema = $translator->schema;
-    my @tables = sort { 
+    my @tables = sort {
         $result->{ $a }->{'order'} <=> $result->{ $b }->{'order'}
     } keys %{ $result };
 
     for my $table_name ( @tables ) {
         my $tdata = $result->{ $table_name };
-        my $table = $schema->add_table( name => $tdata->{'name'} ) 
+        my $table = $schema->add_table( name => $tdata->{'name'} )
                     or die "Can't create table '$table_name': ", $schema->error;
 
         $table->comments( $tdata->{'comments'} );
 
-        my @fields = sort { 
-            $tdata->{'fields'}->{$a}->{'order'} 
+        my @fields = sort {
+            $tdata->{'fields'}->{$a}->{'order'}
             <=>
             $tdata->{'fields'}->{$b}->{'order'}
         } keys %{ $tdata->{'fields'} };