Packages

grisp_emulation

0.1.2
0.2.2 0.2.1 0.2.0 0.1.2 0.1.1 0.1.0

Hardware emulation layer for the GRiSP runtime

HexDocs

Current section

Files

Jump to
Readme
6 Versions
0 Dependencies
Dependants
Files
Activity
grisp_emulation src grisp_emulation_gpio_drv.erl
Raw

src/grisp_emulation_gpio_drv.erl 

-module(grisp_emulation_gpio_drv).



% API

-export([open/0]).

-export([command/2]).

-export([led/2]).  %% for access in mocking



%--- API -----------------------------------------------------------------------



open() -> undefined.



command(_State, <<Pin, Command>>) when Pin >= 8 andalso Pin =< 13 ->

    led(index(Pin), command(Command));

command(_State, <<Pin, Command>>) ->

    grisp_emulation_device:broadcast({gpio, index(Pin), command(Command)});

command(_State, <<Pin, Command, Type, Attr>>) ->

    grisp_emulation_device:broadcast({gpio, index(Pin), {command(Command), type(Type), attr(Attr)}}).



%--- Internal ------------------------------------------------------------------



led(Color, Status) ->

    io:format("~s ~s~n", [uppercase(Color), uppercase(Status)]).



%% TODO: In R20 use string:uppercase instead of string:to_upper

uppercase(Atom) when is_atom(Atom) ->

    uppercase(atom_to_list(Atom));

uppercase(String) ->

    string:to_upper(String).



index(0) -> gpio1_1;

index(1) -> gpio1_2;

index(2) -> gpio1_3;

index(3) -> gpio1_4;

index(4) -> gpio2_1;

index(5) -> gpio2_2;

index(6) -> gpio2_3;

index(7) -> gpio2_4;

index(8) -> led1_r;

index(9) -> led1_g;

index(10) -> led1_b;

index(11) -> led2_r;

index(12) -> led2_g;

index(13) -> led2_b;

index(14) -> jumper_1;

index(15) -> jumper_2;

index(16) -> jumper_3;

index(17) -> jumper_4;

index(18) -> jumper_5;

index(19) -> spi1_pin7;

index(20) -> spi1_pin8;

index(21) -> spi1_pin9;

index(22) -> spi1_pin10;

index(23) -> ss1;

index(24) -> ss2;

index(25) -> uart_1_cts;

index(26) -> uart_2_txd;

index(27) -> uart_3_rxd;

index(28) -> uart_4_rts.



type(0) -> periph_a;

type(1) -> periph_b;

type(2) -> periph_c;

type(3) -> periph_d;

type(4) -> input;

type(5) -> output_0;

type(6) -> output_1.



attr(0) -> [default].



command(1) -> configure;

command(2) -> get;

command(3) -> clear;

command(4) -> set.