mirror of
https://github.com/zeroflag/fcl.git
synced 2025-01-11 20:01:10 +01:00
Update README.md
This commit is contained in:
parent
26f48f1af2
commit
ff26f16c6a
1 changed files with 18 additions and 1 deletions
19
README.md
19
README.md
|
@ -422,7 +422,7 @@ Quotations combined with the collection API offers some high level control struc
|
||||||
### Controlling a Daikin Air Conditioner
|
### Controlling a Daikin Air Conditioner
|
||||||
|
|
||||||
```forth
|
```forth
|
||||||
: cool ( temperature -- http-code response )
|
: cool ( temperature -- response http-code )
|
||||||
-> tp
|
-> tp
|
||||||
#[
|
#[
|
||||||
'pow' tp 0 = if 0 else 1 then
|
'pow' tp 0 = if 0 else 1 then
|
||||||
|
@ -437,3 +437,20 @@ Quotations combined with the collection API offers some high level control struc
|
||||||
;
|
;
|
||||||
```
|
```
|
||||||
|
|
||||||
|
```forth
|
||||||
|
: ac? ( -- map )
|
||||||
|
<map> -> out
|
||||||
|
'http://192.168.0.25/aircon/get_control_info'
|
||||||
|
http-get
|
||||||
|
dup 200 = if
|
||||||
|
drop ',' split { -> row
|
||||||
|
row '=' split
|
||||||
|
dup size 2 = if
|
||||||
|
out swap add
|
||||||
|
else
|
||||||
|
drop
|
||||||
|
then
|
||||||
|
} each
|
||||||
|
out
|
||||||
|
then ;
|
||||||
|
```
|
||||||
|
|
Loading…
Reference in a new issue