Incorrect warning message on thread pool startup in full AOT:ed Windows build.
[mono.git] / mcs / class / System / System.Net.NetworkInformation / NetworkInformationPermissionAttribute.cs
1 //
2 // System.Net.NetworkInformation.NetworkInformationPermissionAttribute
3 //
4 // Author:
5 //      Gonzalo Paniagua Javier (gonzalo@novell.com)
6 //
7 // Copyright (c) 2006 Novell, Inc. (http://www.novell.com)
8 //
9 // Permission is hereby granted, free of charge, to any person obtaining
10 // a copy of this software and associated documentation files (the
11 // "Software"), to deal in the Software without restriction, including
12 // without limitation the rights to use, copy, modify, merge, publish,
13 // distribute, sublicense, and/or sell copies of the Software, and to
14 // permit persons to whom the Software is furnished to do so, subject to
15 // the following conditions:
16 // 
17 // The above copyright notice and this permission notice shall be
18 // included in all copies or substantial portions of the Software.
19 // 
20 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
21 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
24 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
25 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
26 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
27 //
28 using System;
29 using System.Security;
30 using System.Security.Permissions;
31
32 namespace System.Net.NetworkInformation {
33         [Serializable]
34         [AttributeUsage (AttributeTargets.Assembly | AttributeTargets.Class | AttributeTargets.Struct | AttributeTargets.Struct | AttributeTargets.Constructor | AttributeTargets.Method, AllowMultiple = true, Inherited = false)]
35         public sealed class NetworkInformationPermissionAttribute : System.Security.Permissions.CodeAccessSecurityAttribute {
36                 string access;
37
38                 public NetworkInformationPermissionAttribute (SecurityAction action)
39                         : base (action)
40                 {
41                 }
42
43                 [MonoTODO ("verify implementation")]
44                 public override IPermission CreatePermission ()
45                 {
46                         NetworkInformationAccess a = NetworkInformationAccess.None;
47                         switch (Access) {
48                         case "Read":
49                                 a = NetworkInformationAccess.Read;
50                                 break;
51                         case "Full":
52                                 a = NetworkInformationAccess.Read | NetworkInformationAccess.Ping;
53                                 break;
54                         }
55                         return new NetworkInformationPermission (a);
56                 }
57
58                 public string Access {
59                         get { return access; }
60                         set {
61                                 switch (access) {
62                                 case "Read":
63                                 case "Full":
64                                 case "None":
65                                         break;
66                                 default:
67                                         throw new ArgumentException ("Only 'Read', 'Full' and 'None' are allowed");
68                                 }
69                                 access = value; 
70                         }
71                 }
72         }
73 }
74