Add SPI support to STM32 platform

Signed-off-by: Paul Guyot <pguyot@kallisys.net>

Author: pguyot

.github/workflows/stm32-build.yaml

@@ -170,7 +170,7 @@ jobs:
         mkdir build-host
         cd build-host
         cmake .. -G Ninja
-        cmake --build . -t stm32_boot_test stm32_gpio_test stm32_i2c_test
+        cmake --build . -t stm32_boot_test stm32_gpio_test stm32_i2c_test stm32_spi_test
 
     - name: Install Renode
       if: matrix.renode_platform
@@ -226,3 +226,18 @@ jobs:
           --variable AVM:@$PWD/build-host/src/platforms/stm32/tests/test_erl_sources/stm32_i2c_test.avm \
           --variable AVM_ADDRESS:${{ matrix.avm_address }} \
           --variable PLATFORM:$PLATFORM
+
+    - name: Run Renode SPI test
+      if: matrix.renode_platform
+      run: |
+        LOCAL_REPL="src/platforms/stm32/tests/renode/${{ matrix.renode_platform }}"
+        if [ -f "$LOCAL_REPL" ]; then
+          PLATFORM="@$PWD/$LOCAL_REPL"
+        else
+          PLATFORM="@platforms/cpus/${{ matrix.renode_platform }}"
+        fi
+        renode-test src/platforms/stm32/tests/renode/stm32_spi_test.robot \
+          --variable ELF:@$PWD/src/platforms/stm32/build/AtomVM-${{ matrix.device }}.elf \
+          --variable AVM:@$PWD/build-host/src/platforms/stm32/tests/test_erl_sources/stm32_spi_test.avm \
+          --variable AVM_ADDRESS:${{ matrix.avm_address }} \
+          --variable PLATFORM:$PLATFORM

examples/erlang/CMakeLists.txt

@@ -43,4 +43,4 @@ pack_runnable(network_console network_console estdlib eavmlib alisp)
 pack_runnable(logging_example logging_example estdlib eavmlib)
 pack_runnable(http_client http_client estdlib eavmlib avm_network)
 pack_runnable(disterl disterl estdlib)
-pack_runnable(spi_flash spi_flash eavmlib estdlib DIALYZE_AGAINST avm_esp32 avm_rp2)
+pack_runnable(spi_flash spi_flash eavmlib estdlib DIALYZE_AGAINST avm_esp32 avm_rp2 avm_stm32)

examples/erlang/spi_flash.erl

@@ -108,6 +108,7 @@ default_pins() ->
 
 %%         {SCK, MOSI, MISO, CS}
 default_pins(pico) -> {2, 3, 4, 5};
+default_pins(stm32) -> {{a, 5}, {a, 7}, {a, 6}, {a, 4}};
 default_pins(esp32) -> esp32_default_pins().
 
 esp32_default_pins() ->

examples/erlang/stm32/CMakeLists.txt

@@ -30,3 +30,24 @@ pack_runnable(blink_weact_studio_wb55 blink_weact_studio_wb55 eavmlib avm_stm32)
 pack_runnable(blink_nucleo64 blink_nucleo64 eavmlib avm_stm32)
 pack_runnable(blink_nucleo144 blink_nucleo144 eavmlib avm_stm32)
 pack_runnable(stm32_lis3dh stm32_lis3dh eavmlib avm_stm32)
+
+set(SPI_FLASH_BEAM ${CMAKE_BINARY_DIR}/examples/erlang/spi_flash.beam)
+if(AVM_RELEASE)
+    set(INCLUDE_LINES "")
+else()
+    set(INCLUDE_LINES "-i")
+endif()
+add_custom_command(
+    OUTPUT stm32_spi_flash.avm
+    DEPENDS spi_flash_main ${SPI_FLASH_BEAM}
+        ${CMAKE_BINARY_DIR}/libs/estdlib/src/estdlib.avm estdlib
+        ${CMAKE_BINARY_DIR}/libs/avm_stm32/src/avm_stm32.avm avm_stm32
+        PackBEAM
+    COMMAND ${CMAKE_BINARY_DIR}/tools/packbeam/PackBEAM ${INCLUDE_LINES} stm32_spi_flash.avm
+        ${SPI_FLASH_BEAM}
+        ${CMAKE_BINARY_DIR}/libs/estdlib/src/estdlib.avm
+        ${CMAKE_BINARY_DIR}/libs/avm_stm32/src/avm_stm32.avm
+    COMMENT "Packing runnable stm32_spi_flash.avm"
+    VERBATIM
+)
+add_custom_target(stm32_spi_flash ALL DEPENDS stm32_spi_flash.avm)

libs/avm_stm32/src/CMakeLists.txt

@@ -25,6 +25,7 @@ include(BuildErlang)
 set(ERLANG_MODULES
     gpio
     i2c
+    spi
 )
 
 pack_archive(avm_stm32 DEPENDS_ON eavmlib ERLC_FLAGS +warnings_as_errors MODULES ${ERLANG_MODULES})

libs/avm_stm32/src/gpio.erl

@@ -58,8 +58,10 @@
 -type direction() :: input | output | output_od | mode_config().
 %% The direction is used to set the mode of operation for a GPIO pin, either as an input, an output, or output with open drain.
 %% Pull mode and output_speed must be set at the same time as direction. See @type mode_config()
--type mode_config() :: {direction(), pull()} | {output, pull(), output_speed()}.
+-type mode_config() ::
+    {direction(), pull()} | {output, pull(), output_speed()} | {af, non_neg_integer()}.
 %% Extended mode configuration options. Default pull() is `floating', default output_speed() is `mhz_2' if options are omitted.
+%% `{af, AFNumber}' configures the pin in alternate function push-pull mode with the given AF number (e.g. 5 for SPI1).
 -type pull() :: up | down | floating.
 %% Internal resistor pull mode. STM32 does not support `up_down'.
 -type output_speed() :: mhz_2 | mhz_25 | mhz_50 | mhz_100.