[Dotgnu-pnet-commits] CVS: pnetlib/compat Vsa.cs,1.1,1.2

[Rhys Weatherley <address@hidden>]

Update of /cvsroot/dotgnu-pnet/pnetlib/compat
In directory subversions:/tmp/cvs-serv22129/compat

Modified Files:
        Vsa.cs 
Log Message:


Missing classes in "Microsoft.Vsa".


Index: Vsa.cs
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnetlib/compat/Vsa.cs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** Vsa.cs      30 Dec 2002 01:06:23 -0000      1.1
--- Vsa.cs      30 Dec 2002 07:57:41 -0000      1.2
***************
*** 28,31 ****
--- 28,32 ----
  using System.Reflection;
  using System.Security.Policy;
+ using System.Runtime.Serialization;
  
  // Script item flags.
***************
*** 251,254 ****
--- 252,336 ----
  
  }; // enum VsaError
+ 
+ // Exceptions that are thrown by Vsa classes.
+ #if !ECMA_COMPAT
+ [Serializable]
+ #endif
+ public class VsaException : Exception
+ {
+       // Internal state.
+       private VsaError error;
+ 
+       // Constructor.
+       public VsaException(VsaError error)
+                       : this(error, null, null) {}
+       public VsaException(VsaError error, String message)
+                       : this(error, message, null) {}
+       public VsaException(VsaError error, String message,
+                                               Exception innerException)
+                       : base(message, innerException)
+                       {
+                               // TODO: set Exception.HResult
+                               this.error = error;
+                       }
+ 
+       // Serialization support.
+ #if !ECMA_COMPAT
+       public VsaException(SerializationInfo info, StreamingContext context)
+                       {
+                               // TODO
+                       }
+       public override void GetObjectData(SerializationInfo info,
+                                                                          
StreamingContext context)
+                       {
+                               // TODO
+                       }
+ #endif
+ 
+       // Get the error code.
+       public VsaError ErrorCode
+                       {
+                               get
+                               {
+                                       return error;
+                               }
+                       }
+ 
+       // Convert this exception into a string.
+       public override String ToString()
+                       {
+                               // TODO
+                               return base.ToString();
+                       }
+ 
+ }; // class VsaException
+ 
+ // Attribute that indicates that an assembly was generated by Vsa routines.
+ [AttributeUsage(AttributeTargets.All)]
+ public class VsaModule : System.Attribute
+ {
+       // Internal state.
+       private bool isVsaModule;
+ 
+       // Constructor.
+       public VsaModule(bool bIsVsaModule)
+                       {
+                               isVsaModule = bIsVsaModule;
+                       }
+ 
+       // Get or set the flag.
+       public bool IsVsaModule
+                       {
+                               get
+                               {
+                                       return isVsaModule;
+                               }
+                               set
+                               {
+                                       isVsaModule = value;
+                               }
+                       }
+ 
+ }; // class VsaModule
  
  } // namespace Microsoft.Vsa