ntr

type Header = All | None
type Includer = Incl | Excl

type RuleSet = 
    | BeginWith of Header 
    | Rule of Includer*(string -> bool)
    | Combine of RuleSet * RuleSet

let inline (+?) x y = Combine(x, Rule(Incl,y))
let inline (-?) x y = Combine(x, Rule(Excl,y))

ntr

[<EntryPoint>]
let main argv =
    let text = "awesome great this text is so exciting! this is disgusting sentence number two.";
    let modelsDir = @"C:\tmp\stanford-corenlp-full-2014-06-16\models";
    let analyzer = makeSentimentAnalyzer modelsDir 
    printfn "%A" (analyzer text)

    0 // return an integer exit code

ntr

open System
open System.IO
open edu.stanford.nlp.ling
open edu.stanford.nlp.neural.rnn
open edu.stanford.nlp.sentiment
open edu.stanford.nlp.trees
open edu.stanford.nlp.util
open java.util
open edu.stanford.nlp.pipeline

ntr

let getFunctionName f = 
        let type' = f.GetType()
        let method' = type'.GetMethods() |> Array.find (fun m -> m.Name="Invoke")
        let il = method'.GetMethodBody().GetILAsByteArray()
        let methodCodes = [byte OpCodes.Call.Value;byte OpCodes.Callvirt.Value]

        let position = il |> Array.findIndex(fun x -> methodCodes |> List.exists ((=)x))
        let metadataToken = BitConverter.ToInt32(il, position+1) 

        let actualMethod = type'.Module.ResolveMethod metadataToken

ntr

public static IContainer ConfigureContainer()
{
    var builder = new ContainerBuilder();
    builder.RegisterType<Worker>();
    builder.RegisterModule(new TypedLoggersInjector(new LogFactory()));
    return builder.Build();
}

public static void TestInjection()
{

ntr

public class TypedLoggersInjector : Module
{
    private readonly LogFactory logFactory_;

    public TypedLoggersInjector(LogFactory logFactory)
    {
        logFactory_ = logFactory;
    }

    protected override void AttachToComponentRegistration(IComponentRegistry componentRegistry, IComponentRegistration registration)

ntr

[AttributeUsage(AttributeTargets.Class, AllowMultiple = false, Inherited = false)]
public class TypedLoggerAttribute : Attribute
{
        
}

[TypedLogger]
public class Worker
{
    private readonly Logger logger_;

ntr

private static SyntaxNode GetListCollectionInitializerElements(ElementAccessExpressionSyntax node)
{
return null;
}

ntr

public static List<ExpressionSyntax> GetListCollectionInitializerElements(ElementAccessExpressionSyntax node)
{
   
}

ntr

let myList = [1;2;3]