139 lines
3.3 KiB
C
139 lines
3.3 KiB
C
|
/* ********************************************
|
|||
|
|
This file make the link between wiringPi
|
|||
|
|
and wiringPiOcaml
|
|||
|
|
******************************************** */
|
|||
|
|
|
|||
|
|
#include <caml/mlvalues.h>
|
|||
|
|
#include <caml/memory.h>
|
|||
|
|
#include <stdio.h>
|
|||
|
|
#include <wiringPi.h>
|
|||
|
|
#include <wiringShift.h>
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_hello(value unit) {
|
|||
|
|
CAMLparam1(unit);
|
|||
|
|
printf("Hello world!\n");
|
|||
|
|
CAMLreturn(Val_unit);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_wiringPiSetup(value unit)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(unit);
|
|||
|
|
CAMLreturn(Val_int(wiringPiSetup()));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_wiringPiSetupGpio(value unit)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(unit);
|
|||
|
|
CAMLreturn(Val_int(wiringPiSetupGpio()));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_wiringPiSetupPhys(value unit)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(unit);
|
|||
|
|
CAMLreturn(Val_int(wiringPiSetupPhys()));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_wiringPiSetupSys(value unit)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(unit);
|
|||
|
|
CAMLreturn(Val_int(wiringPiSetupSys()));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// Core functions
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_pinMode(value pin, value mode)
|
|||
|
|
{
|
|||
|
|
CAMLparam2(pin, mode);
|
|||
|
|
pinMode(Int_val(pin), Int_val(mode));
|
|||
|
|
CAMLreturn(Val_unit);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_pullUpDnControl(value pin, value pud)
|
|||
|
|
{
|
|||
|
|
CAMLparam2(pin, pud);
|
|||
|
|
pullUpDnControl(Int_val(pin), Int_val(pin));
|
|||
|
|
CAMLreturn(Val_unit);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_digitalWrite(value pin, value value_p)
|
|||
|
|
{
|
|||
|
|
CAMLparam2(pin, value_p);
|
|||
|
|
digitalWrite(Int_val(pin), Int_val(value_p));
|
|||
|
|
CAMLreturn(Val_unit);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_pwmWrite(value pin, value value_p)
|
|||
|
|
{
|
|||
|
|
CAMLparam2(pin, value_p);
|
|||
|
|
pwmWrite(Int_val(pin), Int_val(value_p));
|
|||
|
|
CAMLreturn(Val_unit);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_digitalRead(value pin)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(pin);
|
|||
|
|
CAMLreturn(Val_int(digitalRead(Int_val(pin))));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// AnalogRead and AnalogWrite needs to be added (module must be added)
|
|||
|
|
|
|||
|
|
// Raspberry Pi Specifics
|
|||
|
|
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_digitalWriteByte(value value_p)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(value_p);
|
|||
|
|
digitalWriteByte(Int_val(value_p));
|
|||
|
|
CAMLreturn(Val_unit);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// Others can be added...
|
|||
|
|
|
|||
|
|
// Shift Library
|
|||
|
|
|
|||
|
|
// Timing
|
|||
|
|
|
|||
|
|
/* This returns a number representing the number if milliseconds since your program called one of the wiringPiSetup functions. */
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_millis(value unit)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(unit);
|
|||
|
|
CAMLreturn(Val_int(millis()));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* This returns a number representing the number of microseconds since your program called one of the wiringPiSetup functions. */
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_micros(value unit)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(unit);
|
|||
|
|
CAMLreturn(Val_int(micros()));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* This causes program execution to pause for at least howLong milliseconds. Due to the multi-tasking nature of Linux it could be longer. */
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_delay(value howLong)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(howLong);
|
|||
|
|
delay(Int_val(howLong));
|
|||
|
|
CAMLreturn(Val_unit);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* This causes program execution to pause for at least howLong microseconds. Due to the multi-tasking nature of Linux it could be longer. Delays under 100 microseconds are timed using a hard-coded loop continually polling the system time, Delays over 100 microseconds are done using the system nanosleep() function – You may need to consider the implications of very short delays on the overall performance of the system, especially if using threads. */
|
|||
|
|
CAMLprim
|
|||
|
|
value caml_delayMicroseconds(value howLong)
|
|||
|
|
{
|
|||
|
|
CAMLparam1(howLong);
|
|||
|
|
delayMicroseconds(Int_val(howLong));
|
|||
|
|
CAMLreturn(Val_unit);
|
|||
|
|
}
|