Fix problems with overlong directory names: phase #1

[mono.git] / mcs / class / Mono.Data.Tds / Mono.Data.Tds / TdsMetaParameter.cs

diff --git a/mcs/class/Mono.Data.Tds/Mono.Data.Tds/TdsMetaParameter.cs b/mcs/class/Mono.Data.Tds/Mono.Data.Tds/TdsMetaParameter.cs
index 9c28363410c2531ecad6a136b99e29e9a3733dd6..8a59211cff8e2c76207d98505d0288ad33b1fe88 100644 (file)
--- a/mcs/class/Mono.Data.Tds/Mono.Data.Tds/TdsMetaParameter.cs
+++ b/mcs/class/Mono.Data.Tds/Mono.Data.Tds/TdsMetaParameter.cs
@@ -7,6 +7,27 @@
 // Copyright (C) Tim Coleman, 2002
 //
 
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+// 
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+// 
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
 using Mono.Data.Tds.Protocol;
 using System;
 using System.Text;
@@ -84,7 +105,16 @@ namespace Mono.Data.Tds {
                }
 
                public byte Scale {
-                       get { return scale; }
+                       get { 
+                               if (TypeName == "decimal" || TypeName == "numeric") {
+                                       if (scale == 0 && !Convert.IsDBNull(Value)) {
+                                               int[] arr = Decimal.GetBits (
+                                                               Convert.ToDecimal(Value));
+                                               scale = (byte)((arr[3]>>16) & (int)0xFF);
+                                       }
+                               }
+                               return scale;
+                       }
                        set { scale = value; }
                }
 
@@ -102,16 +132,40 @@ namespace Mono.Data.Tds {
 
                internal string Prepare ()
                {
-                       StringBuilder result = new StringBuilder (String.Format ("{0} {1}", ParameterName, TypeName));
-                       switch (TypeName) {
+                       string typeName = TypeName;
+                       
+                       if (typeName == "varbinary") {
+                               int size = Size;
+                               if (size <= 0) {
+                                       size = GetActualSize ();
+                               }
+                               
+                               if (size > 8000) {
+                                       typeName = "image";
+                               }
+                       }
+                       
+                       StringBuilder result = new StringBuilder (String.Format ("{0} {1}", ParameterName, typeName));
+                       switch (typeName) {
                        case "decimal":
                        case "numeric":
-                               result.Append (String.Format ("({0},{1})", Precision, Scale));
+                               // msdotnet sends a default precision of 28
+                               result.Append (String.Format ("({0},{1})",
+                                        (Precision == (byte)0 ? (byte)28 : Precision), Scale));
                                break;
                        case "varchar":
-                       case "nvarchar":
                        case "varbinary":
-                               result.Append (String.Format ("({0})", Size));
+                               //A size of 0 is not allowed in declarations.
+                               int size = Size;
+                               if (size <= 0) {
+                                       size = GetActualSize ();
+                                       if (size <= 0)
+                                               size = 1;
+                               }
+                               result.Append (String.Format ("({0})", size));
+                               break;
+                       case "nvarchar":
+                               result.Append (String.Format ("({0})", Size > 0 ? Size : 4000));
                                break;
                        case "char":
                        case "nchar":