fbmnds

/**

Written 2021 by Nigel Atkinson because the predominantly found C example for
reading a DHT11 just did not work.
Greatly inspired by the Adafruit python library for DHT11 & DHT22, however
simplified and using the library wiringPi.

Adafruit write good code! :-)

Tested on a Raspberry Pi 2B r1.1

fbmnds

module Git =
    open System
    open System.Diagnostics

    let private runCommand cmd args =
        let startInfo = new ProcessStartInfo()
        startInfo.FileName <- cmd
        startInfo.Arguments <- args
        startInfo.UseShellExecute <- false
        startInfo.RedirectStandardOutput <- true

fbmnds

[<AutoOpen>]
module StateMachine =

  type State =
    | StateA
    | StateB
    | StateC
    | StateD
    | End

fbmnds

[<AutoOpen>]
module Workflow =
    type State = Initial | Draft | PendingApproval | Approved | Cancelled | Completed
    type Action = Create | Cancel | SendForApproval | Approve | Reject | Complete
    type Role = Creator | Approver | Completor
    type Transition = { Action:Action; From:State; To:State; Roles:Role list }
    module Transitions =
        let create      = { Action=Create;          From=Initial;         To=Draft;           Roles=[ Creator   ] }
        let cancel      = { Action=Cancel;          From=Draft;           To=Cancelled;       Roles=[ Creator   ] }
        let sendForAppr = { Action=SendForApproval; From=Draft;           To=PendingApproval; Roles=[ Creator   ] }

fbmnds

<?xml version="1.0" encoding="utf-8"?>
<doc>
<assembly><name>FakeLib</name></assembly>
<members>
<member name="M:Fake.AdditionalSyntax.op_EqualsQmarkGreater(System.String,System.String,System.Boolean)">
<summary>
 Defines a conditional dependency - y is dependent on x if the condition is true
</summary>
</member>
<member name="M:Fake.AdditionalSyntax.op_LessEqualsGreater(System.String,System.String)">

fbmnds

(class (repeat 1))
; clojure.lang.LazySeq

(ancestors clojure.lang.LazySeq)
; #{clojure.lang.IPersistentCollection clojure.lang.IPending java.util.Collection 
; java.util.List clojure.lang.Obj clojure.lang.ISeq clojure.lang.IMeta java.io.Serializable
; clojure.lang.IHashEq clojure.lang.IObj clojure.lang.Seqable clojure.lang.Sequential
; java.lang.Iterable java.lang.Object}

(clojure.set/difference (ancestors clojure.lang.PersistentList) (ancestors clojure.lang.LazySeq))