package SQL::Translator::Parser::SQLServer;
# -------------------------------------------------------------------
-# $Id: SQLServer.pm,v 1.2 2005-06-28 16:39:41 mwz444 Exp $
+# $Id: SQLServer.pm,v 1.4 2006-05-04 20:47:07 duality72 Exp $
# -------------------------------------------------------------------
# Copyright (C) 2002-4 SQLFairy Authors
#
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
size => $item{'data_type'}{'size'},
nullable => $nullable,
default => $qualifiers{'default_val'},
- is_auto_inc => $qualifiers{'auto_inc'},
+ is_auto_inc => $qualifiers{'is_auto_inc'},
# is_primary_key => $item{'primary_key'}[0],
}
}
| /null/i
{ $return = 1 }
-default_val : /default/i /(?:')?[^']*(?:')?/
+default_val : /default/i /null/i
+ { $return = 'null' }
+ | /default/i /'[^']*'/
{ $item[2]=~ s/'//g; $return = $item[2] }
auto_inc : /identity/i { 1 }