È possibile valutare un F # Citazioni codice con pattern matching:
open Microsoft.FSharp.Quotations.Patterns
let rec eval = function
| Value(v,t) -> v
| Call(None,mi,args) -> mi.Invoke(null, evalAll args)
| arg -> raise <| System.NotSupportedException(arg.ToString())
and evalAll args = [|for arg in args -> eval arg|]
let x = eval <@ 1 * 3 @>
Vedi le F# PowerPack, Unquote, Foq progetti OSS o questo snippet per le implementazioni più completi.
Per compilare un F # Codice Quotazione si può define a dynamic method utilizzando Reflection.Emit:
open System.Reflection.Emit
let rec generate (il:ILGenerator) = function
| Value(v,t) when t = typeof<int> ->
il.Emit(OpCodes.Ldc_I4, v :?> int)
| Call(None,mi,args) ->
generateAll il args
il.EmitCall(OpCodes.Call, mi, null)
| arg -> raise <| System.NotSupportedException(arg.ToString())
and generateAll il args = for arg in args do generate il arg
type Marker = interface end
let compile quotation =
let f = DynamicMethod("f", typeof<int>, [||], typeof<Marker>.Module)
let il = f.GetILGenerator()
quotation |> generate il
il.Emit(OpCodes.Ret)
fun() -> f.Invoke(null,[||]) :?> int
let f = compile <@ 1 + 3 @>
let x = f()
Per compilare a un assieme di nuovo utilizzare Reflection.Emit per generare un tipo con un metodo:
open System
open System.Reflection
let createAssembly quotation =
let name = "GeneratedAssembly"
let domain = AppDomain.CurrentDomain
let assembly = domain.DefineDynamicAssembly(AssemblyName(name), AssemblyBuilderAccess.RunAndSave)
let dm = assembly.DefineDynamicModule(name+".dll")
let t = dm.DefineType("Type", TypeAttributes.Public ||| TypeAttributes.Class)
let mb = t.DefineMethod("f", MethodAttributes.Public, typeof<int>, [||])
let il = mb.GetILGenerator()
quotation |> generate il
il.Emit(OpCodes.Ret)
assembly.Save("GeneratedAssembly.dll")
createAssembly <@ 1 + 1 @>
Vedere le Fil progetto (da F # a IL) per un'implementazione più completa.
Non sono sicuro che PowerPack supporti questo. Ma per inciso, non consiglierei affatto di usare PowerPack. Il loro codice è spesso bacato o troppo lento. Scrivendo il tuo compilatore o valutatore da zero usando System.Reflection.Emit probabilmente darebbe risultati migliori. C'è anche il problema che F # non ottimizza le quotazioni, per esempio la corrispondenza diventa una serie di if/then/else, invece dell'istruzione jump è in CIL nella normale compilazione F #. – t0yv0
Ciao, grazie per questo, credo che cercherò in alternative (come Reflection.Emit come hai menzionato). – Ncc
Potresti trovare utile: http://stackoverflow.com/questions/2682475/converting-f-quotations-into-linq-expressions e http://stackoverflow.com/questions/1618682/linking-a-net-expression -tree-in-a-new-assembly – JPW