Commit 63daa2da authored by Maxime Perrotin's avatar Maxime Perrotin

Add user script to set environment and init system

parent 5bf6effc
......@@ -4,37 +4,48 @@
pragma style_checks (off);
pragma warnings (off);
with adaasn1rtl;
use adaasn1rtl;
use adaasn1rtl;
with TASTE_Dataview;
use TASTE_Dataview;
with STM32.Board;
use STM32.Board;
with STM32.GPIO;
use STM32.GPIO;
with STM32.Device;
use STM32.Device;
with STM32.Board,
STM32.GPIO,
STM32.Device,
Crazyflie_System;
use STM32.Board,
STM32.GPIO,
STM32.Device,
Crazyflie_System;
package body function2 is
Init_Done : Boolean := False;
---------------------------------------------------------
-- Provided interface "Blink"
---------------------------------------------------------
procedure Blink(EnableDisable: access asn1sccMyBool) is
pragma suppress (all_checks);
My_Led : User_LED renames PD5;
begin
if boolean(EnableDisable.all) then
All_LEDs_On;
else
All_LEDs_Off;
end if;
if not Init_Done then
return;
end if;
if boolean(EnableDisable.all) then
All_LEDs_On;
else
All_LEDs_Off;
end if;
end Blink;
begin
STM32.Board.Initialize_LEDs;
begin
System_Init;
if not System_Self_Test then
All_LEDs_On;
else
Init_Done := True;
end if;
end function2;
#!/bin/bash -e
[ -z "$ADA_PROJECT_PATH" ] && \
export ADA_PROJECT_PATH=$HOME/GitHub/Certyflie/Ada_Drivers_Library/boards
unset USE_POHIC
ORCHESTRATOR_OPTIONS+="\
--with-extra-Ada-code cortex_m_partition:$HOME/GitHub/Certyflie/types \
--with-extra-Ada-code cortex_m_partition:$HOME/GitHub/Certyflie/modules \
--with-extra-Ada-code cortex_m_partition:$HOME/GitHub/Certyflie/utils \
--with-extra-Ada-code cortex_m_partition:$HOME/GitHub/Certyflie/lib \
--with-extra-Ada-code cortex_m_partition:$HOME/GitHub/Certyflie/hal \
--with-extra-Ada-code cortex_m_partition:$HOME/GitHub/Certyflie/drivers \
--with-extra-Ada-code cortex_m_partition:$HOME/GitHub/Certyflie/modules/mahony \
--with-extra-Ada-code cortex_m_partition:$HOME/GitHub/Certyflie/config "
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment