mirror of
https://github.com/nasa/fpp.git
synced 2025-12-11 03:05:32 -06:00
95 lines
1.4 KiB
Fortran
95 lines
1.4 KiB
Fortran
# Placeholders for core F Prime ports
|
|
# used in special port instances
|
|
module Fw {
|
|
port Cmd
|
|
port CmdReg
|
|
port CmdResponse
|
|
port DpRequest
|
|
port DpResponse
|
|
port DpSend
|
|
port Log
|
|
port LogText
|
|
port PrmGet
|
|
port PrmSet
|
|
port Time
|
|
port Tlm
|
|
}
|
|
|
|
array A = [3] U32
|
|
constant a = 0
|
|
enum E { X, Y }
|
|
enum Phases { setup, teardown }
|
|
struct S { x: U32 }
|
|
type T
|
|
state machine S
|
|
constant t = {seconds=10,useconds=20}
|
|
|
|
module M {
|
|
array A = [3] U32
|
|
constant a = 0
|
|
enum E { X, Y }
|
|
struct S { x: U32 }
|
|
type T
|
|
state machine S
|
|
}
|
|
|
|
port P
|
|
|
|
active component C1 {
|
|
async input port pIn: P
|
|
array A = [3] U32
|
|
constant a = 0
|
|
enum E { X, Y }
|
|
struct S { x: U32 }
|
|
type T
|
|
state machine S
|
|
}
|
|
|
|
instance c11: C1 \
|
|
base id 0x100 \
|
|
queue size 10 \
|
|
stack size 1024 \
|
|
priority 10
|
|
|
|
topology T1 {
|
|
|
|
}
|
|
|
|
module M {
|
|
|
|
passive component C1 {
|
|
array A = [3] U32
|
|
constant a = 0
|
|
enum E { X, Y }
|
|
struct S { x: U32 }
|
|
type T
|
|
state machine S
|
|
}
|
|
|
|
instance c11: C1 base id 0x100
|
|
|
|
topology T1 {
|
|
|
|
}
|
|
|
|
}
|
|
|
|
constant base_id_def = 0x200
|
|
constant queue_size_def = 10
|
|
constant stack_size_def = 10
|
|
constant priority_def = 10
|
|
constant cpu_def = 0
|
|
constant record_id = 0
|
|
array RecordType = [3] U32
|
|
constant container_id = 0
|
|
constant container_priority = 0
|
|
constant product_recv_priority = 0
|
|
|
|
type ActionType
|
|
type GuardType
|
|
type SignalType
|
|
constant SignalConstant = 10
|
|
|
|
constant tlm_packet_id = 0
|
|
constant tlm_packet_group = 0
|