jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Inlined example with linearity annotations

Browse source
This commit is contained in:
Cédric Pasteur 2011-10-04 14:47:46 +02:00
parent 902cbaf7a1
commit 0c29505821
5 changed files with 3067 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
examples/MC_inlined_linear/build Executable file
View file

@ -0,0 +1,56 @@
#!/bin/bash
HEPTC=../../heptc
HEPTC_OPTIONS="-memalloc"
GCC=gcc
GCC_OPTIONS="-g -O2 -std=c99 -I ../../../lib/c"
VERBOSE=1
interfaces=(mctypes.epi)
ext_libs=(mc_ext.epi mathext.epi)
sources=(mcinlined.ept)
for f in ${interfaces[@]}; do
if [ $VERBOSE ] ; then
echo "**** Compiling interface: $f *******"
fi
$HEPTC $HEPTC_OPTIONS -target c $f
done
for f in ${ext_libs[@]}; do
if [ $VERBOSE ] ; then
echo "**** Compiling external lib: $f *******"
fi
$HEPTC $HEPTC_OPTIONS $f
done
for f in ${sources[@]}; do
if [ $VERBOSE ] ; then
echo "**** Compiling source file: $f *******"
fi
$HEPTC $HEPTC_OPTIONS -target c $f
done
#$HEPTC $HEPTC_OPTIONS -target c -s dv_fighterdebug mcinlined.ept
source_dirs=(mctypes_c mcinlined_c)
other_files=(main.c mathext.c mathext.h mc_ext.c mc_ext.h)
if [ -d _build ]; then
rm -r _build
fi
mkdir _build
cd _build
for f in ${source_dirs[@]}; do
cp ../$f/* .
done
for f in ${other_files[@]}; do
cp ../$f .
done
$GCC $GCC_OPTIONS *.c -o mission_control
cp mission_control ..
cd ..

17
examples/MC_inlined_linear/mathext.epi Normal file
View file

@ -0,0 +1,17 @@
(* atan() *)
val fun atanr(a : float) returns (o : float)
(* acos() *)
val fun acosr(a : float) returns (o : float)
(* cos() *)
val fun cosr(a : float) returns (o : float)
(* asin() *)
val fun asinr(a : float) returns (o : float)
(* sin() *)
val fun sinr(a : float) returns (o : float)
(* sqrt() *)
val fun sqrtr(a : float) returns (o : float)

14
examples/MC_inlined_linear/mc_ext.epi Normal file
View file

@ -0,0 +1,14 @@
(* compute each detected track priority, and sort tracks
according to their priority *)
val fun mc_tracks_prio_sorttracks(inputtrack1 : Mctypes.tmissiontrack;
inputtrack2 : Mctypes.tmissiontrack;
inputtrack3 : Mctypes.tmissiontrack;
inputtrack4 : Mctypes.tmissiontrack)
returns (outputtrack1 : Mctypes.tmissiontrack;
outputtrack2 : Mctypes.tmissiontrack;
outputtrack3 : Mctypes.tmissiontrack;
outputtrack4 : Mctypes.tmissiontrack)
val fun int_of_float(a:float) returns (o:int)
val fun float_of_int(a:int) returns (o:float)
val fun rand() returns (o : float)

2835
examples/MC_inlined_linear/mcinlined.ept Normal file
View file

File diff suppressed because it is too large Load diff

145
examples/MC_inlined_linear/mctypes.epi Normal file
View file

@ -0,0 +1,145 @@
type tid = int
type tprioritysc = int
type tmetres = float
type tmetresseconde = float
type tposition = { x : tmetres; y : tmetres }
type tspeed = { sx : tmetresseconde; sy : tmetresseconde }
type ttargettype = Ttargettype_unknown | Ttargettype_friend | Ttargettype_foe
type trdrtrack = {
r_pos : tposition;
r_s : tspeed;
r_d : tmetres;
r_sabs : tmetresseconde;
r_sr : tmetresseconde
}
type tifftrack = { i_pos : tposition; i_id : tid }
type ttrack = { t_pos : tposition; t_id : tid }
type tmissiontrack = {
m_pos : tposition;
m_speed : tspeed;
m_id : tid;
m_priority : tprioritysc;
m_d : tmetres;
m_sabs : tmetresseconde;
m_sr : tmetresseconde;
m_detectedbyradar : bool;
m_detectedbyiff : bool;
m_tracknumber : int;
m_targettype : ttargettype;
m_isvisible : bool;
m_angle : float
}
const ksizetracksarray : int = 10
const ksizeifftracksarray : int = 3
const ksizerdrtracksarray : int = 5
const ksizemissiontracksarray : int =
ksizeifftracksarray + ksizerdrtracksarray
type trdrtracksarray = trdrtrack^ksizerdrtracksarray
type tifftracksarray = tifftrack^ksizeifftracksarray
type tdetectedifftracksarray = int^ksizeifftracksarray
type tdetectedrdrtracksarray = int^ksizerdrtracksarray
type ttracksarray = ttrack^ksizetracksarray
type tmissiontracksarray = tmissiontrack^ksizemissiontracksarray
const kinitifftrackarray : tifftracksarray =
{ i_pos = { x = 0.0; y = 0.0 }; i_id = 0 } ^ ksizeifftracksarray
const kinitmissiontrackarray : tmissiontracksarray =
{ m_pos = { x = 0.0;
y = 0.0 };
m_speed = { sx = 0.0;
sy = 0.0 };
m_id = 0;
m_priority = 0;
m_d = 0.0;
m_sabs = 0.0;
m_sr = 0.0;
m_detectedbyradar = false;
m_detectedbyiff = false;
m_tracknumber = 0;
m_targettype = Ttargettype_unknown;
m_isvisible = false;
m_angle = 0.0 } ^ ksizemissiontracksarray
const kinitrdrtrackarray : trdrtracksarray =
{ r_pos = { x = 0.0;
y = 0.0 };
r_s = { sx = 0.0;
sy = 0.0 };
r_d = 0.0;
r_sabs = 0.0;
r_sr = 0.0 } ^ ksizerdrtracksarray
const kinittrackarray : ttracksarray =
{ t_pos = { x = 0.0; y = 0.0 }; t_id = 0 } ^ ksizetracksarray
const kInitPosition : tposition = { x = 0.0; y = 0.0 }
const kInitSpeed : tspeed = { sx = 0.0; sy = 0.0 }
const nm : float = 1852.0
const t : float = 0.01
const pi : float = 3.141592
const kinittrack : ttrack = { t_pos = { x = 0.0;
y = 0.0 };
t_id = 0 }
const kinitrdrtrack : trdrtrack = { r_pos = { x = 0.0;
y = 0.0 };
r_s = { sx = 0.0;
sy = 0.0 };
r_d = 0.0;
r_sabs = 0.0;
r_sr = 0.0 }
const kinitmissiontrack : tmissiontrack = { m_pos = { x = 0.0;
y = 0.0 };
m_speed = { sx = 0.0;
sy = 0.0 };
m_id = 0;
m_priority = 0;
m_d = 0.0;
m_sabs = 0.0;
m_sr = 0.0;
m_detectedbyradar = false;
m_detectedbyiff = false;
m_tracknumber = 0;
m_targettype = Ttargettype_unknown;
m_isvisible = false;
m_angle = 0.0 }
const kinitifftrack : tifftrack = { i_pos = { x = 0.0;
y = 0.0 };
i_id = 0 }
type tinputspanel = {
p_slope : float;
p_speed : float;
p_id : int;
p_x0 : float;
p_y0 : float;
p_reset : bool
}
type tinputspanelarray = tinputspanel^4
type tpriority = { missionTrackIndex : int; trackNumber : int }
(* TrackNumbers of the tracks with highest priority,
sorted from the highest priority *)
type tpriorityList = int^4
type trdrmode = TRdrMode_WIDE | TRdrMode_NARROW
type tsensorstate = TState_OFF | TState_ON | TState_FAIL