1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

type ParsingContext(
                    provider: ITemplateManagerProvider, 
                    resolver: ITypeResolver, 
                    parent, 
                    closures: string list, 
                    is_in_header, 
                    model : IDjangoType option, 
                    vars: IDjangoType list, 
                    _base: INode option) =
    
    new (provider, resolver)
        = new ParsingContext(provider, resolver, None, [], true, None, [], None)
        
    member x.ChildOf = new ParsingContext(provider, resolver, Some x, closures, is_in_header, model, vars, _base)
        
    member x.BodyContext = new ParsingContext(provider, resolver, parent, closures, false, model, vars, _base)

    member x.WithClosures(new_closures) = new ParsingContext(provider, resolver, parent, new_closures, is_in_header, model, vars, _base)

...