unspeaker/tek
1
0
Fork 0
mirror of https://codeberg.org/unspeaker/tek.git synced 2025-12-07 12:16:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

wip: edn project format

Browse source
This commit is contained in:
🪞👃🪞 2024-07-08 02:41:04 +03:00
parent 14d9116c7c
commit e2a842492e
12 changed files with 401 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

222
src/edn.rs Normal file
View file

@ -0,0 +1,222 @@
use crate::{core::*, model::*, App};
use clojure_reader::edn::Edn;
impl App {
pub fn load_edn (&mut self, mut src: &str) {
loop {
match clojure_reader::edn::read(src) {
Ok((edn, rest)) => {
self.load_edn_one(edn);
if rest.len() > 0 {
src = rest;
} else {
break
}
},
Err(e) => {
panic!("{e:?}");
}
}
}
}
fn load_edn_one <'e> (&mut self, edn: Edn<'e>) {
match edn {
Edn::List(items) => {
let head = items.get(0);
match head {
Some(Edn::Symbol("track")) => Track::load_edn(self, &items[1..]),
_ => panic!("unexpected edn: {head:?}")
}
},
_ => {
panic!("unexpected edn: {edn:?}");
}
};
}
}
impl Track {
fn load_edn <'a, 'e> (app: &'a mut App, items: &[Edn<'e>]) -> Usually<&'a mut Self> {
let ppq = app.timebase.ppq() as usize;
let mut name = String::new();
let mut gain = 0.0f64;
let mut devices: Vec<JackDevice> = vec![];
let mut phrases: Vec<Phrase> = vec![];
for edn in items[1..].iter() {
match edn {
Edn::Map(map) => {
if let Some(Edn::Str(n)) = map.get(&Edn::Key("name")) {
name = String::from(*n);
}
if let Some(Edn::Double(g)) = map.get(&Edn::Key("gain")) {
gain = f64::from(*g)
}
},
Edn::List(items) => match items.get(0) {
Some(Edn::Symbol("phrase")) => {
phrases.push(Phrase::load_edn(ppq, items)?)
},
Some(Edn::Symbol("sampler")) => {
devices.push(Sampler::load_edn(items)?)
},
Some(Edn::Symbol("lv2")) => {
devices.push(LV2Plugin::load_edn(items)?)
},
None => panic!("empty list track {name}"),
_ => panic!("unexpected in track {name}: {:?}", items.get(0).unwrap())
},
_ => {}
}
}
app.add_track_with_cb(Some(name.as_str()), move|_, track|{
for phrase in phrases {
track.phrases.push(phrase);
}
for device in devices {
track.add_device(device);
}
Ok(())
})
}
}
impl Phrase {
fn load_edn <'e> (ppq: usize, items: &[Edn<'e>]) -> Usually<Self> {
let mut name = String::new();
let mut beats = 0usize;
let mut steps = 0usize;
let mut data = BTreeMap::new();
for edn in items[1..].iter() {
match edn {
Edn::Map(map) => {
if let Some(Edn::Str(n)) = map.get(&Edn::Key("name")) {
name = String::from(*n);
}
if let Some(Edn::Int(b)) = map.get(&Edn::Key("beats")) {
beats = *b as usize;
}
if let Some(Edn::Int(s)) = map.get(&Edn::Key("steps")) {
steps = *s as usize;
}
},
Edn::List(items) => {
let time = (match items.get(0) {
Some(Edn::Symbol(text)) => text.parse::<f64>()?,
Some(Edn::Int(i)) => *i as f64,
Some(Edn::Double(f)) => f64::from(*f),
_ => panic!("unexpected in phrase {name}: {:?}", items.get(0)),
} * beats as f64 * ppq as f64 / steps as f64) as usize;
for edn in items[1..].iter() {
match edn {
Edn::List(items) => if let (
Some(Edn::Int(key)),
Some(Edn::Int(vel)),
) = (
items.get(0),
items.get(1),
) {
if !data.contains_key(&time) {
data.insert(time, vec![]);
}
data.get_mut(&time).unwrap().push(MidiMessage::NoteOn {
key: u7::from(*key as u8),
vel: u7::from(*vel as u8),
});
} else {
panic!("unexpected list in phrase {name}")
},
_ => panic!("unexpected in phrase {name}: {edn:?}")
}
}
},
_ => panic!("unexpected in phrase {name}: {edn:?}"),
}
}
Ok(Self::new(&name, beats * ppq, Some(data)))
}
}
impl Sampler {
fn load_edn <'e> (items: &[Edn<'e>]) -> Usually<JackDevice> {
let mut name = String::new();
let mut dir = String::new();
let mut samples = BTreeMap::new();
for edn in items[1..].iter() {
match edn {
Edn::Map(map) => {
if let Some(Edn::Str(n)) = map.get(&Edn::Key("name")) {
name = String::from(*n);
}
if let Some(Edn::Str(n)) = map.get(&Edn::Key("dir")) {
dir = String::from(*n);
}
},
Edn::List(items) => match items.get(0) {
Some(Edn::Symbol("sample")) => {
let (midi, sample) = Sample::load_edn(&items[1..])?;
if let Some(midi) = midi {
samples.insert(midi, sample);
} else {
panic!("sample without midi binding: {}", sample.name);
}
},
_ => panic!("unexpected in sampler {name}: {items:?}")
},
_ => panic!("unexpected in sampler {name}: {edn:?}")
}
}
Self::new(&name, Some(samples))
}
}
impl Sample {
fn load_edn <'e> (items: &[Edn<'e>]) -> Usually<(Option<u7>, Arc<Self>)> {
let mut name = String::new();
let mut file = String::new();
let mut midi = None;
let mut start = 0usize;
for edn in items[1..].iter() {
match edn {
Edn::Map(map) => {
if let Some(Edn::Str(n)) = map.get(&Edn::Key("name")) {
name = String::from(*n);
}
if let Some(Edn::Str(f)) = map.get(&Edn::Key("file")) {
file = String::from(*f);
}
if let Some(Edn::Int(i)) = map.get(&Edn::Key("start")) {
start = *i as usize;
}
if let Some(Edn::Int(m)) = map.get(&Edn::Key("midi")) {
midi = Some(u7::from(*m as u8));
}
},
_ => panic!("unexpected in sample {name}"),
}
}
let (end, data) = read_sample_data(&file)?;
Ok((midi, Self::new(&name, start, end, data)))
}
}
impl LV2Plugin {
fn load_edn <'e> (items: &[Edn<'e>]) -> Usually<JackDevice> {
let mut name = String::new();
let mut path = String::new();
for edn in items[1..].iter() {
match edn {
Edn::Map(map) => {
if let Some(Edn::Str(n)) = map.get(&Edn::Key("name")) {
name = String::from(*n);
}
if let Some(Edn::Str(p)) = map.get(&Edn::Key("path")) {
path = String::from(*p);
}
},
_ => panic!("unexpected in sample {name}"),
}
}
Plugin::lv2(&name, &path)
}
}