dan/ocaml-wiringpi
1
0
Fork 0
mirror of https://github.com/co-dan/ocaml-wiringpi/ synced 2025-11-03 14:13:51 +01:00
Code Issues Releases Wiki Activity

Added analogRead/analogWrite

Browse Source
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
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