dan
/
ocaml-wiringpi
mirror of https://github.com/co-dan/ocaml-wiringpi/
1
0
Fork 0
Code Issues Releases Wiki Activity

Added analogRead/analogWrite

This commit is contained in:
Marek Kubica 2014-11-16 11:28:57 +01:00
parent 7545734cb3
commit 9cd950b00c
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/WiringPi.ml
View File

@ -35,6 +35,9 @@ external pwmWrite : int -> int -> unit = "caml_pwmWrite"
external digitalRead : int -> int = "caml_digitalRead" external digitalRead : int -> int = "caml_digitalRead"
external digitalWriteByte : int -> unit = "caml_digitalWriteByte" external digitalWriteByte : int -> unit = "caml_digitalWriteByte"
external analogRead: int -> int = "caml_analogRead"
external analogWrite: int -> int -> unit = "caml_analogWrite"
(* ########## Timing ########## *) (* ########## Timing ########## *)
(* Use it to wait a few ms or µs. If you want to wait for several (* Use it to wait a few ms or µs. If you want to wait for several

13
src/WiringPi_stubs.c
View File

@ -76,7 +76,18 @@ value caml_digitalRead(value pin)
CAMLreturn(Val_int(digitalRead(Int_val(pin)))); CAMLreturn(Val_int(digitalRead(Int_val(pin))));
} }
// AnalogRead and AnalogWrite needs to be added (module must be added) value caml_analogRead(value pin)
{
CAMLparam1(pin);
CAMLreturn(Val_int(analogRead(Int_val(pin))));
}
value caml_analogWrite(value pin, value value_p)
{
CAMLparam2(pin, value_p);
analogWrite(Int_val(pin), Int_val(value_p));
CAMLreturn(Val_unit);
}
// Raspberry Pi Specifics // Raspberry Pi Specifics