Lexer: support #warnon

Author: DedSec256

ReSharper.FSharp/src/FSharp/FSharp.Psi.Features/src/CodeCompletion/Rules/FSharpKeywordsRule.fs

@@ -305,7 +305,7 @@ type FSharpKeywordsRule() =
     let hashDirectives isFSharp9Supported =
         let spaceOrQuotesSuffix = if isFSharp9Supported then KeywordSuffix.Space else KeywordSuffix.Quotes
 
-        [| spaceOrQuotesSuffix, [| "#nowarn"; "#time" |]
+        [| spaceOrQuotesSuffix, [| "#nowarn"; "#warnon"; "#time" |]
            KeywordSuffix.Quotes, [| "#load"; "#r"; "#I" |]
            KeywordSuffix.None, [| "#if"; "#else"; "#endif" |] |]
 

ReSharper.FSharp/src/FSharp/FSharp.Psi/src/Parsing/FSharpTokens.xml

@@ -128,6 +128,7 @@
         <Token name="PP_ELSE_SECTION" representation="#else" />
         <Token name="PP_ENDIF" representation="#endif" />
         <Token name="PP_NOWARN" representation="#nowarn" />
+        <Token name="PP_WARNON" representation="#warnon" />
 
         <Token name="PP_OR" representation="||" />
         <Token name="PP_AND" representation="&amp;&amp;" />

ReSharper.FSharp/src/FSharp/FSharp.Psi/src/Parsing/Lexing/FSharpRules.lex

@@ -643,6 +643,7 @@ PP_CONDITIONAL_SYMBOL={IDENT}
 <PPDIRECTIVE> {HASH}"time"                       { yybegin(LINE); return MakeToken(PP_TIME); }
 <PPDIRECTIVE> {HASH}"I"                          { yybegin(LINE); return MakeToken(PP_I); }
 <PPDIRECTIVE> {HASH}"nowarn"                     { yybegin(LINE); return MakeToken(PP_NOWARN); }
+<PPDIRECTIVE> {HASH}"warnon"                     { yybegin(LINE); return MakeToken(PP_WARNON); }
 
 <PPDIRECTIVE> {HASH}"if"                         { yypushback(yylength()); yybegin(PPSHARP); Clear(); break; }
 <PPDIRECTIVE> {HASH}"else"                       { yypushback(yylength()); yybegin(PPSHARP); Clear(); break; }

ReSharper.FSharp/test/data/features/completion/filtered/Expr - Base 01.fs.gold

@@ -1,5 +1,5 @@
 Completion: Basic
-Count: 3866
+Count: 3867
 Focus: Soft
 Range: "♦"
 
@@ -236,6 +236,7 @@ voption
 #nowarn
 #r
 #time
+#warnon
 FSharpFunc
 Failure                     exn
 abs                         ^T
@@ -3890,6 +3891,7 @@ second |(in Microsoft.FSharp.Data.UnitSystems.SI.UnitNames)
 #nowarn
 #r
 #time
+#warnon
 AbstractClassAttribute
 AllowNullLiteralAttribute
 Array

ReSharper.FSharp/test/data/features/completion/filtered/Expr - Base 02 - Local.fs.gold

@@ -1,5 +1,5 @@
 Completion: Basic
-Count: 3867
+Count: 3868
 Focus: Soft
 Range: "♦"
 
@@ -237,6 +237,7 @@ voption
 #nowarn
 #r
 #time
+#warnon
 FSharpFunc
 Failure                     exn
 abs                         ^T
@@ -3891,6 +3892,7 @@ second |(in Microsoft.FSharp.Data.UnitSystems.SI.UnitNames)
 #nowarn
 #r
 #time
+#warnon
 AbstractClassAttribute
 AllowNullLiteralAttribute
 Array

ReSharper.FSharp/test/data/features/completion/filtered/Expr - Record - Field - Empty 01.fs.gold

@@ -1,5 +1,5 @@
 Completion: Basic
-Count: 3871
+Count: 3872
 Focus: Soft
 Range: "let r: R1 = { ♦ }"
 
@@ -241,6 +241,7 @@ voption
 #nowarn
 #r
 #time
+#warnon
 FSharpFunc
 Failure                     exn
 abs                         ^T
@@ -3900,6 +3901,7 @@ F3                          int
 #nowarn
 #r
 #time
+#warnon
 AbstractClassAttribute
 AllowNullLiteralAttribute
 Array

ReSharper.FSharp/test/data/features/completion/filtered/Expr - Record - Field - Empty 02.fs.gold

@@ -1,5 +1,5 @@
 Completion: Basic
-Count: 3877
+Count: 3878
 Focus: Soft
 Range: "f { ♦ }"
 
@@ -247,6 +247,7 @@ voption
 #nowarn
 #r
 #time
+#warnon
 FSharpFunc
 Failure                     exn
 abs                         ^T
@@ -3906,6 +3907,7 @@ F3                          int
 #nowarn
 #r
 #time
+#warnon
 AbstractClassAttribute
 AllowNullLiteralAttribute
 Array

ReSharper.FSharp/test/data/features/completion/filtered/Expr - Record - Field - Empty 03.fs.gold

@@ -1,5 +1,5 @@
 Completion: Basic
-Count: 3870
+Count: 3871
 Focus: Soft
 Range: "if true then { F1 = 1 } else { ♦ }"
 
@@ -241,6 +241,7 @@ voption
 #nowarn
 #r
 #time
+#warnon
 FSharpFunc
 Failure                     exn
 abs                         ^T
@@ -3899,6 +3900,7 @@ F3                          int
 #nowarn
 #r
 #time
+#warnon
 AbstractClassAttribute
 AllowNullLiteralAttribute
 Array

ReSharper.FSharp/test/data/features/completion/filtered/Expr - Record - Field - Empty 04.fs.gold

@@ -1,5 +1,5 @@
 Completion: Basic
-Count: 3871
+Count: 3872
 Focus: Soft
 Range: "{ R = { ♦ } }"
 
@@ -242,6 +242,7 @@ voption
 #nowarn
 #r
 #time
+#warnon
 FSharpFunc
 Failure                     exn
 abs                         ^T
@@ -3900,6 +3901,7 @@ F3                          int
 #nowarn
 #r
 #time
+#warnon
 AbstractClassAttribute
 AllowNullLiteralAttribute
 Array

ReSharper.FSharp/test/data/features/completion/filtered/Expr - Record - Field - Empty 05 - Another ns.fs.gold

@@ -1,5 +1,5 @@
 Completion: Basic
-Count: 3874
+Count: 3875
 Focus: Soft
 Range: "f { ♦ }"
 
@@ -244,6 +244,7 @@ voption
 #nowarn
 #r
 #time
+#warnon
 FSharpFunc
 Failure                     exn
 abs                         ^T
@@ -3901,6 +3902,7 @@ Field                       int    <==
 #nowarn
 #r
 #time
+#warnon
 AbstractClassAttribute
 AllowNullLiteralAttribute
 Array