| open FSharp.Quotations | |
| let rec getMethodInfo = function | |
| | Patterns.Call(_,``method``,_) -> ``method`` | |
| | Patterns.Lambda(_,body) -> getMethodInfo body | |
| | _ -> failwith "Unexpected Form" | |
| let getGenericMethodInfo functionExpression = | |
| let methodInfo = getMethodInfo functionExpression | |
| if methodInfo.IsGenericMethod then |
Full source for JSON Transformer: https://gist.github.com/mrange/7c39333de480a8de5c812a1f6ba70173
Full source for XML Transformer: https://gist.github.com/mrange/552cb0b474b517b706333cebb64f44aa
A popular approach in Functional Languages to create parsers is to use parser combinators.
| module JsonTransformer = | |
| open System | |
| open System.Globalization | |
| open System.Text | |
| type Json = | |
| | Null | |
| | Bool of bool | |
| | Number of float | |
| | String of string |
| /**** This version is ported by Atadiat to work on ESP8266 (tested on NodeMCU 1.0) ****/ | |
| /**** Porting was done by Yahya Tawil****/ | |
| // ESP32 WiFi <-> 3x UART Bridge | |
| // by AlphaLima | |
| // www.LK8000.com | |
| // Disclaimer: Don't use for life support systems | |
| // or any other situations where system failure may affect |