vschep

type ErrorInfo =
    | Unauthorized
    | InternalServerError
    
type SendValue<'T> =
    | Uninitialized
    | Initial of 'T
    | Sending of 'T
    | Sent of 'T
    | SendFailed of 'T * ErrorInfo

vschep

type ErrorInfo = HttpResponseStatusCode of int

type ReceiveValue<'T> =
	| Available of 'T
	| Unavailable 
	| ReceiveFailed of ErrorInfo

vschep

let (chargingPermission: ReceiveValue<ChargingPermission>) = Unavailable 

vschep

[<ReactComponent>]
static member RadioInputReceiveOnly
    (inputValue: ChargingPermission)
    (chargingPermission: ReceiveValue<ChargingPermission>)
    =
    let inputValueStr = $"%A{inputValue}"

    Html.div [
        prop.classes [ "flex"; "gap-2" ]
        prop.children [

vschep

#I __SOURCE_DIRECTORY__
#r @"bin/Debug/EvalWrapper.dll"

open Microsoft.MSR.CNTK.Extensibility.Managed
open System.Drawing
open System.Collections.Generic
open System

let createModel modelPath =
    let model = new IEvaluateModelManagedF()

vschep

volatile unsigned char * adValue = (unsigned char *) 0xFFB00000;

void battVoltStatemachine() {
   unsigned char battVolt = *adValue;
    if (battVolt < 10) {
        // change state
    }
}