forked from M-Labs/humpback-dds
scpi: customise scpi tree macro
This commit is contained in:
parent
4c88c31aca
commit
148f1c7a4e
|
@ -76,8 +76,9 @@ use firmware::{
|
||||||
cpld::{
|
cpld::{
|
||||||
CPLD,
|
CPLD,
|
||||||
},
|
},
|
||||||
scpi::{ HelloWorldCommand, Channel1SwitchCommand },
|
scpi::{ HelloWorldCommand, Channel1SwitchCommand},
|
||||||
Urukul,
|
Urukul,
|
||||||
|
scpi_root, recursive_scpi_tree
|
||||||
};
|
};
|
||||||
use scpi::prelude::*;
|
use scpi::prelude::*;
|
||||||
use scpi::ieee488::commands::*;
|
use scpi::ieee488::commands::*;
|
||||||
|
@ -99,7 +100,6 @@ use scpi::{
|
||||||
scpi_crate_version,
|
scpi_crate_version,
|
||||||
scpi_status,
|
scpi_status,
|
||||||
scpi_system,
|
scpi_system,
|
||||||
scpi_tree,
|
|
||||||
};
|
};
|
||||||
|
|
||||||
/// Configure SYSTICK for 1ms timebase
|
/// Configure SYSTICK for 1ms timebase
|
||||||
|
@ -295,63 +295,10 @@ fn main() -> ! {
|
||||||
.finalize();
|
.finalize();
|
||||||
|
|
||||||
// SCPI configs
|
// SCPI configs
|
||||||
|
let tree = scpi_root!(
|
||||||
// TODO: String for *idn? mandated command
|
["EXAMple"] => {"HELLO" => {"WORLD" => HelloWorldCommand}};
|
||||||
|
"CHANNEL1" => {"SWitch" => Channel1SwitchCommand}
|
||||||
// SCPI tree
|
);
|
||||||
let tree = scpi_tree![
|
|
||||||
// Create default IEEE488 mandated commands
|
|
||||||
ieee488_cls!(),
|
|
||||||
ieee488_ese!(),
|
|
||||||
ieee488_esr!(),
|
|
||||||
// ieee488_idn!(b"manufacturer", b"model", b"serial", "0.1.2".as_bytes()),
|
|
||||||
ieee488_opc!(),
|
|
||||||
ieee488_rst!(),
|
|
||||||
ieee488_sre!(),
|
|
||||||
ieee488_stb!(),
|
|
||||||
ieee488_tst!(),
|
|
||||||
ieee488_wai!(),
|
|
||||||
// Create default SCPI mandated STATus subsystem
|
|
||||||
scpi_status!(),
|
|
||||||
// Create default SCPI mandated SYSTem subsystem
|
|
||||||
scpi_system!(),
|
|
||||||
//
|
|
||||||
scpi_crate_version!(),
|
|
||||||
//Test
|
|
||||||
Node {
|
|
||||||
name: b"EXAMple",
|
|
||||||
optional: true,
|
|
||||||
handler: None,
|
|
||||||
sub: &[
|
|
||||||
Node {
|
|
||||||
name: b"HELLO",
|
|
||||||
optional: false,
|
|
||||||
handler: None,
|
|
||||||
sub: &[
|
|
||||||
Node {
|
|
||||||
name: b"WORLD",
|
|
||||||
optional: true,
|
|
||||||
handler: Some(&HelloWorldCommand {}),
|
|
||||||
sub: &[],
|
|
||||||
}
|
|
||||||
],
|
|
||||||
},
|
|
||||||
],
|
|
||||||
},
|
|
||||||
Node {
|
|
||||||
name: b"CHANNEL1",
|
|
||||||
optional: false,
|
|
||||||
handler: None,
|
|
||||||
sub: &[
|
|
||||||
Node {
|
|
||||||
name: b"SWitch",
|
|
||||||
optional: false,
|
|
||||||
handler: Some(&Channel1SwitchCommand {}),
|
|
||||||
sub: &[],
|
|
||||||
}
|
|
||||||
],
|
|
||||||
}
|
|
||||||
];
|
|
||||||
|
|
||||||
// Device was declared in prior
|
// Device was declared in prior
|
||||||
let mut errors = ArrayErrorQueue::<[Error; 10]>::new();
|
let mut errors = ArrayErrorQueue::<[Error; 10]>::new();
|
||||||
|
|
95
src/scpi.rs
95
src/scpi.rs
|
@ -6,6 +6,7 @@ use scpi::prelude::*;
|
||||||
use scpi::NumericValues;
|
use scpi::NumericValues;
|
||||||
|
|
||||||
use core::convert::{TryFrom, TryInto};
|
use core::convert::{TryFrom, TryInto};
|
||||||
|
use core::str;
|
||||||
use scpi::ieee488::commands::*;
|
use scpi::ieee488::commands::*;
|
||||||
use scpi::scpi::commands::*;
|
use scpi::scpi::commands::*;
|
||||||
use scpi::{
|
use scpi::{
|
||||||
|
@ -25,7 +26,6 @@ use scpi::{
|
||||||
scpi_crate_version,
|
scpi_crate_version,
|
||||||
scpi_status,
|
scpi_status,
|
||||||
scpi_system,
|
scpi_system,
|
||||||
scpi_tree,
|
|
||||||
};
|
};
|
||||||
|
|
||||||
use embedded_hal::blocking::spi::Transfer;
|
use embedded_hal::blocking::spi::Transfer;
|
||||||
|
@ -33,7 +33,89 @@ use cortex_m_semihosting::hprintln;
|
||||||
|
|
||||||
use crate::{Urukul, UrukulTraits, Error as UrukulError};
|
use crate::{Urukul, UrukulTraits, Error as UrukulError};
|
||||||
|
|
||||||
// pub struct MyDevice;
|
#[macro_export]
|
||||||
|
macro_rules! recursive_scpi_tree {
|
||||||
|
// Handle optional headers (end-node)
|
||||||
|
([$header_name: expr] => $handler: ident) => {
|
||||||
|
Node {
|
||||||
|
name: str::as_bytes($header_name),
|
||||||
|
handler: Some(&$handler{}),
|
||||||
|
sub: &[],
|
||||||
|
optional: true,
|
||||||
|
}
|
||||||
|
};
|
||||||
|
|
||||||
|
// Handle non-optinal header (end-node)
|
||||||
|
($header_name: expr => $handler: ident) => {
|
||||||
|
Node {
|
||||||
|
name: str::as_bytes($header_name),
|
||||||
|
handler: Some(&$handler{}),
|
||||||
|
sub: &[],
|
||||||
|
optional: false,
|
||||||
|
}
|
||||||
|
};
|
||||||
|
|
||||||
|
// Handle optional header with sub-commands
|
||||||
|
([$header_name: expr] => {$($($rest: tt)=>*);*}) => {
|
||||||
|
Node {
|
||||||
|
name: str::as_bytes($header_name),
|
||||||
|
handler: None,
|
||||||
|
sub: &[
|
||||||
|
$(
|
||||||
|
recursive_scpi_tree!($($rest)=>*),
|
||||||
|
)*
|
||||||
|
],
|
||||||
|
optional: true,
|
||||||
|
}
|
||||||
|
};
|
||||||
|
|
||||||
|
// Handle non-optional header with sub-commands
|
||||||
|
($header_name: expr => {$($($rest: tt)=>*);*}) => {
|
||||||
|
Node {
|
||||||
|
name: str::as_bytes($header_name),
|
||||||
|
handler: None,
|
||||||
|
sub: &[
|
||||||
|
$(
|
||||||
|
recursive_scpi_tree!($($rest)=>*),
|
||||||
|
)*
|
||||||
|
],
|
||||||
|
optional: false,
|
||||||
|
}
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
|
#[macro_export]
|
||||||
|
macro_rules! scpi_root {
|
||||||
|
($($($node: tt)=>*);*) => {
|
||||||
|
&Node {
|
||||||
|
name: b"ROOT",
|
||||||
|
optional: false,
|
||||||
|
handler: None,
|
||||||
|
sub: &[
|
||||||
|
// Create default IEEE488 mandated commands
|
||||||
|
ieee488_cls!(),
|
||||||
|
ieee488_ese!(),
|
||||||
|
ieee488_esr!(),
|
||||||
|
ieee488_idn!(b"manufacturer", b"model", b"serial", b"0.1.2"),
|
||||||
|
ieee488_opc!(),
|
||||||
|
ieee488_rst!(),
|
||||||
|
ieee488_sre!(),
|
||||||
|
ieee488_stb!(),
|
||||||
|
ieee488_tst!(),
|
||||||
|
ieee488_wai!(),
|
||||||
|
// Create default SCPI mandated STATus subsystem
|
||||||
|
scpi_status!(),
|
||||||
|
// Create default SCPI mandated SYSTem subsystem
|
||||||
|
scpi_system!(),
|
||||||
|
//
|
||||||
|
scpi_crate_version!(),
|
||||||
|
$(
|
||||||
|
recursive_scpi_tree!($($node)=>*),
|
||||||
|
)*
|
||||||
|
]
|
||||||
|
}
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
pub struct HelloWorldCommand {}
|
pub struct HelloWorldCommand {}
|
||||||
impl<T: Device> Command<T> for HelloWorldCommand {
|
impl<T: Device> Command<T> for HelloWorldCommand {
|
||||||
|
@ -72,15 +154,6 @@ impl<T: Device + UrukulTraits> Command<T> for Channel1SwitchCommand {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
// pub struct SwitchCnannelCommand {}
|
|
||||||
// impl<T: Device + UrukulTraits> Command<T> for SwitchChannelCommand {
|
|
||||||
// nquery!();
|
|
||||||
|
|
||||||
// fn event(&self, context: &mut Context<T>, args: &mut Tokenizer) -> Result<()> {
|
|
||||||
|
|
||||||
// }
|
|
||||||
// }
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Implement "Device" trait from SCPI
|
* Implement "Device" trait from SCPI
|
||||||
* TODO: Implement mandatory commands
|
* TODO: Implement mandatory commands
|
||||||
|
|
Loading…
Reference in New Issue