示例#1
0
文件: TransEnv.cs 项目: tupipa/vcc
 public override void Error(Token tok, int code, string msg, FSharp.Core.FSharpOption <Token> related)
 {
     if (IsSome(related))
     {
         hostEnv.ReportError(new TranslationMessage(VisitorHelper.LocationFromToken(tok), code, msg, false,
                                                    new[] { VisitorHelper.LocationFromToken(related.Value) }));
     }
     else
     {
         hostEnv.ReportError(new TranslationMessage(VisitorHelper.LocationFromToken(tok), code, msg, false));
     }
 }
示例#2
0
文件: TransEnv.cs 项目: tupipa/vcc
 private static bool IsSome <T>(FSharp.Core.FSharpOption <T> opt)
 {
     return(FSharp.Core.FSharpOption <T> .get_IsSome(opt));
 }