handle IsTerminating.
[mono.git] / mcs / class / corlib / System.Security.Permissions / EnvironmentPermissionAttribute.cs
index 42c36fc606a8e99599b3f3caffcae3fa88e71aff..629f5633c2ee2f944bd27844d64d86ddbd2c5e48 100644 (file)
@@ -1,51 +1,93 @@
 //
 // System.Security.Permissions.EnvironmentPermissionAttribute.cs
 //
-// Duncan Mak <duncan@ximian.com>
+// Authors
+//     Duncan Mak <duncan@ximian.com>
+//     Sebastien Pouliot  <sebastien@ximian.com>
 //
 // (C) 2002 Ximian, Inc. http://www.ximian.com
+// Portions Copyright (C) 2003 Motus Technologies (http://www.motus.com)
+// Copyright (C) 2004-2005 Novell, Inc (http://www.novell.com)
 //
+// 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 System.Runtime.InteropServices;
+
+namespace System.Security.Permissions {
 
-using System;
-using System.Security.Permissions;
+       [ComVisible (true)]
+       [AttributeUsage (AttributeTargets.Assembly | AttributeTargets.Class |
+                        AttributeTargets.Struct | AttributeTargets.Constructor |
+                        AttributeTargets.Method, AllowMultiple=true, Inherited=false)]
+       [Serializable]
+       public sealed class EnvironmentPermissionAttribute : CodeAccessSecurityAttribute {
 
-namespace System.Security.Permissions
-{
-          [AttributeUsage (AttributeTargets.Assembly | AttributeTargets.Class |
-                                       AttributeTargets.Struct | AttributeTargets.Constructor |
-                                       AttributeTargets.Method)]
-          [Serializable]
-          public sealed class EnvironmentPermissionAttribute : CodeAccessSecurityAttribute
-          {
-                        // Constructor
-                        public EnvironmentPermissionAttribute (SecurityAction action) : base (action) {}
-                        
-                        // Properties
-                        [MonoTODO]
-                        public string All
-                        {
-                                   set {}
-                        }
+               // Fields
+               private string read;
+               private string write;
+               
+               // Constructor
+               public EnvironmentPermissionAttribute (SecurityAction action) : base (action)
+               {
+               }
+               
+               // Properties
+               public string All {
+#if NET_1_1
+                       get { throw new NotSupportedException ("All"); }
+#endif
+                       set { 
+                               read = value; 
+                               write = value;
+                       }
+               }
 
-                        [MonoTODO]
-                        public string Read
-                        {
-                                   get { return null; }
-                                   set {}
-                        }
+               public string Read {
+                       get { return read; }
+                       set { read = value; }
+               }
 
-                        [MonoTODO]
-                        public string Write
-                        {
-                                   get { return null; }
-                                   set {}
-                        }
+               public string Write {
+                       get { return write; }
+                       set { write = value; }
+               }
 
-                        // Methods
-                        [MonoTODO]
-                        public override IPermission CreatePermission ()
-                        {
-                                   return null;
-                        }
-          }
+               // Methods
+               public override IPermission CreatePermission ()
+               {
+#if NET_2_1
+                       return null;
+#else
+                       EnvironmentPermission perm = null;
+                       if (this.Unrestricted)
+                               perm = new EnvironmentPermission (PermissionState.Unrestricted);
+                       else {
+                               perm = new EnvironmentPermission (PermissionState.None);
+                               if (read != null)
+                                       perm.AddPathList (EnvironmentPermissionAccess.Read, read);
+                               if (write != null)
+                                       perm.AddPathList (EnvironmentPermissionAccess.Write, write);
+                       }
+                       return perm;
+#endif
+               }
+       }
 }