Clean out term.rs, replaced by preserves; some adjustments to match; preserves TCP echo server
This commit is contained in:
parent
98b3b72b40
commit
366af6be33
52
src/bag.rs
52
src/bag.rs
|
@ -1,10 +1,7 @@
|
|||
use std::collections::HashMap;
|
||||
use std::collections::HashSet;
|
||||
use std::collections::hash_map::Iter;
|
||||
use std::collections::hash_map::Keys;
|
||||
use std::collections::hash_map::RandomState;
|
||||
use std::hash::BuildHasher;
|
||||
use std::hash::Hash;
|
||||
use std::collections::BTreeMap;
|
||||
use std::collections::btree_map::Iter;
|
||||
use std::collections::btree_map::Keys;
|
||||
use std::iter::{FromIterator, IntoIterator};
|
||||
|
||||
type Count = i32;
|
||||
|
||||
|
@ -16,17 +13,13 @@ pub enum Net {
|
|||
}
|
||||
|
||||
// Allows negative counts - a "delta"
|
||||
pub struct HashBag<V, S = RandomState> {
|
||||
counts: HashMap<V, Count, S>,
|
||||
pub struct BTreeBag<V> where V: std::cmp::Ord {
|
||||
counts: BTreeMap<V, Count>,
|
||||
}
|
||||
|
||||
impl<V,S> HashBag<V,S>
|
||||
where V: Eq + Hash, S: BuildHasher + Default
|
||||
{
|
||||
pub fn new() -> HashBag<V,S> {
|
||||
HashBag {
|
||||
counts: HashMap::with_hasher(Default::default()),
|
||||
}
|
||||
impl<V> BTreeBag<V> where V: std::cmp::Ord {
|
||||
pub fn new() -> BTreeBag<V> {
|
||||
BTreeBag { counts: BTreeMap::new() }
|
||||
}
|
||||
|
||||
pub fn change(&mut self, key: V, delta: Count) -> Net { self._change(key, delta, false) }
|
||||
|
@ -64,29 +57,28 @@ where V: Eq + Hash, S: BuildHasher + Default
|
|||
pub fn keys(&self) -> Keys<V, Count> {
|
||||
self.counts.keys()
|
||||
}
|
||||
}
|
||||
|
||||
pub fn iter(&self) -> Iter<V, Count> {
|
||||
impl<'a, V> IntoIterator for &'a BTreeBag<V> where V: std::cmp::Ord {
|
||||
type Item = (&'a V, &'a Count);
|
||||
type IntoIter = Iter<'a, V, Count>;
|
||||
|
||||
fn into_iter(self) -> Self::IntoIter {
|
||||
self.counts.iter()
|
||||
}
|
||||
}
|
||||
|
||||
impl<V,S> std::convert::From<HashSet<V, S>> for HashBag<V,S>
|
||||
where V: Eq + Hash + Clone, S: BuildHasher + Default
|
||||
{
|
||||
fn from(xs: HashSet<V,S>) -> Self {
|
||||
let mut cs = HashMap::with_hasher(Default::default());
|
||||
for k in xs.iter() {
|
||||
cs.insert(k.clone(), 1);
|
||||
}
|
||||
HashBag {
|
||||
counts: cs
|
||||
impl<V> FromIterator<V> for BTreeBag<V> where V: std::cmp::Ord {
|
||||
fn from_iter<I: IntoIterator<Item=V>>(iter: I) -> Self {
|
||||
let mut bag = Self::new();
|
||||
for k in iter {
|
||||
bag.change(k, 1);
|
||||
}
|
||||
bag
|
||||
}
|
||||
}
|
||||
|
||||
impl<V,S> std::ops::Index<&V> for HashBag<V,S>
|
||||
where V: Eq + Hash, S: BuildHasher
|
||||
{
|
||||
impl<V> std::ops::Index<&V> for BTreeBag<V> where V: std::cmp::Ord {
|
||||
type Output = Count;
|
||||
fn index(&self, i: &V) -> &Count {
|
||||
self.counts.get(i).unwrap_or(&0)
|
||||
|
|
89
src/main.rs
89
src/main.rs
|
@ -1,61 +1,40 @@
|
|||
mod term;
|
||||
mod bag;
|
||||
mod skeleton;
|
||||
|
||||
use self::term::Term;
|
||||
use self::skeleton::Index;
|
||||
use std::net::{TcpListener, TcpStream};
|
||||
use std::io::Result;
|
||||
use preserves::value;
|
||||
|
||||
// Ord
|
||||
// Hash
|
||||
// use self::skeleton::Index;
|
||||
|
||||
fn main() {
|
||||
let capture_label = Term::Symbol("capture".to_string());
|
||||
let discard_label = Term::Symbol("discard".to_string());
|
||||
let v2 = Term::Double(1234.56);
|
||||
let v = Term::Seq(vec![
|
||||
Term::Boolean(true),
|
||||
Term::Float(123.34),
|
||||
v2.clone(),
|
||||
Term::SignedInteger(999),
|
||||
Term::SignedInteger(-101),
|
||||
Term::String("hello".to_string()),
|
||||
Term::ByteString("world".as_bytes()),
|
||||
Term::Symbol("sym".to_string()),
|
||||
Term::Rec(&capture_label, vec![
|
||||
Term::Rec(&discard_label, vec![]),
|
||||
]),
|
||||
]);
|
||||
let v3 = Term::Double(1234.57);
|
||||
println!("v = {:?}", v);
|
||||
println!("v[2] = {:?}", v[2]);
|
||||
println!("v == v = {:?}", v == v);
|
||||
println!("v3 == v = {:?}", v3 == v);
|
||||
println!("v[2] == v3 {:?}", v[2] == v3);
|
||||
println!("v[2] == v2 {:?}", v[2] == v2);
|
||||
println!("v[2] < v3 {:?}", v[2] < v3);
|
||||
println!("v[2] < v2 {:?}", v[2] < v2);
|
||||
println!("v[2] > v3 {:?}", v[2] > v3);
|
||||
println!("v[2] > v2 {:?}", v[2] > v2);
|
||||
println!("v[2] <= v3 {:?}", v[2] <= v3);
|
||||
println!("v[2] <= v2 {:?}", v[2] <= v2);
|
||||
println!("v[2] >= v3 {:?}", v[2] >= v3);
|
||||
println!("v[2] >= v2 {:?}", v[2] >= v2);
|
||||
println!("v == v3 {:?}", v == v3);
|
||||
println!("v == v2 {:?}", v == v2);
|
||||
println!("v < v3 {:?}", v < v3);
|
||||
println!("v < v2 {:?}", v < v2);
|
||||
println!("v > v3 {:?}", v > v3);
|
||||
println!("v > v2 {:?}", v > v2);
|
||||
println!("v <= v3 {:?}", v <= v3);
|
||||
println!("v <= v2 {:?}", v <= v2);
|
||||
println!("v >= v3 {:?}", v >= v3);
|
||||
println!("v >= v2 {:?}", v >= v2);
|
||||
println!("v[8].label() = {:?}", v[8].label());
|
||||
println!("v[8].len() = {:?}", v[8].len());
|
||||
println!("v[8][0] = {:?}", v[8][0]);
|
||||
println!("v[8][0].label() = {:?}", v[8][0].label());
|
||||
println!("v[8][0].len() = {:?}", v[8][0].len());
|
||||
println!("v.len() = {:?}", v.len());
|
||||
|
||||
let i = Index::new();
|
||||
mod packets {
|
||||
#[derive(Debug, serde::Serialize, serde::Deserialize)]
|
||||
pub struct Error(pub String);
|
||||
}
|
||||
|
||||
fn handle_connection(mut stream: TcpStream) -> Result<()> {
|
||||
println!("Got {:?}", &stream);
|
||||
let codec = value::Codec::without_placeholders();
|
||||
loop {
|
||||
match codec.decode(&stream) {
|
||||
Ok(v) => codec.encoder(&mut stream).write(&v)?,
|
||||
Err(value::codec::Error::Eof) => break,
|
||||
Err(value::codec::Error::Io(e)) => return Err(e),
|
||||
Err(value::codec::Error::Syntax(s)) => {
|
||||
let v = value::to_value(packets::Error(s.to_string())).unwrap();
|
||||
codec.encoder(&mut stream).write(&v)?;
|
||||
break
|
||||
}
|
||||
}
|
||||
}
|
||||
Ok(())
|
||||
}
|
||||
|
||||
fn main() -> Result<()> {
|
||||
// let i = Index::new();
|
||||
let listener = TcpListener::bind("0.0.0.0:5889")?;
|
||||
for stream in listener.incoming() {
|
||||
handle_connection(stream?);
|
||||
}
|
||||
Ok(())
|
||||
}
|
||||
|
|
|
@ -1,9 +1,7 @@
|
|||
// use std::sync::Arc;
|
||||
use std::collections::HashMap;
|
||||
use std::collections::HashSet;
|
||||
|
||||
use super::bag::HashBag;
|
||||
use super::term::Term;
|
||||
use std::collections::BTreeMap;
|
||||
use std::collections::BTreeSet;
|
||||
use super::bag::BTreeBag;
|
||||
use preserves::value::AValue;
|
||||
|
||||
pub enum Event {
|
||||
Removed,
|
||||
|
@ -13,45 +11,45 @@ pub enum Event {
|
|||
|
||||
type Path = Vec<usize>;
|
||||
type Paths = Vec<Path>;
|
||||
type Captures<'a> = Vec<Term<'a>>;
|
||||
type Captures = Vec<AValue>;
|
||||
|
||||
type Callback<'a> = FnMut(Event, Captures<'a>) -> ();
|
||||
trait HandleEvent {
|
||||
fn handle_event<'a>(self, captures: &Captures);
|
||||
}
|
||||
|
||||
pub enum Skeleton<'a> {
|
||||
pub enum Skeleton {
|
||||
Blank,
|
||||
Guarded(Guard<'a>, Vec<Skeleton<'a>>)
|
||||
Guarded(Guard, Vec<Skeleton>)
|
||||
}
|
||||
|
||||
pub struct AnalysisResults<'a> {
|
||||
skeleton: Skeleton<'a>,
|
||||
constPaths: Paths,
|
||||
constVals: Vec<Term<'a>>,
|
||||
capturePaths: Captures<'a>,
|
||||
assertion: Term<'a>,
|
||||
pub struct AnalysisResults {
|
||||
skeleton: Skeleton,
|
||||
const_paths: Paths,
|
||||
const_vals: Vec<AValue>,
|
||||
capture_paths: Paths,
|
||||
assertion: AValue,
|
||||
}
|
||||
|
||||
pub struct Index<'a> {
|
||||
all_assertions: HashBag<Term<'a>>,
|
||||
pub struct Index {
|
||||
all_assertions: BTreeBag<AValue>,
|
||||
}
|
||||
|
||||
impl<'a> Index<'a> {
|
||||
impl Index {
|
||||
pub fn new() -> Self {
|
||||
Index {
|
||||
all_assertions: HashBag::new(),
|
||||
}
|
||||
Index{ all_assertions: BTreeBag::new() }
|
||||
}
|
||||
|
||||
pub fn add_handler(analysis_results: AnalysisResults,
|
||||
// pub fn add_handler(analysis_results: AnalysisResults,
|
||||
}
|
||||
|
||||
struct Node<'a> {
|
||||
continuation: Continuation<'a>,
|
||||
edges: HashMap<Selector, HashMap<Guard<'a>, Node<'a>>>,
|
||||
struct Node {
|
||||
continuation: Continuation,
|
||||
edges: BTreeMap<Selector, BTreeMap<Guard, Node>>,
|
||||
}
|
||||
|
||||
struct Continuation<'a> {
|
||||
cached_assertions: HashSet<Term<'a>>,
|
||||
leaf_map: HashMap<Paths, HashMap<Vec<Term<'a>>, Leaf<'a>>>,
|
||||
struct Continuation {
|
||||
cached_assertions: BTreeSet<AValue>,
|
||||
leaf_map: BTreeMap<Paths, BTreeMap<Vec<AValue>, Leaf>>,
|
||||
}
|
||||
|
||||
struct Selector {
|
||||
|
@ -59,17 +57,17 @@ struct Selector {
|
|||
index: usize,
|
||||
}
|
||||
|
||||
enum Guard<'a> {
|
||||
Rec(&'a Term<'a>, usize),
|
||||
enum Guard {
|
||||
Rec(AValue, usize),
|
||||
Seq(usize),
|
||||
}
|
||||
|
||||
struct Leaf<'a> { // aka Topic
|
||||
cached_assertions: HashSet<Term<'a>>,
|
||||
handler_map: HashMap<Paths, Handler<'a>>,
|
||||
struct Leaf { // aka Topic
|
||||
cached_assertions: BTreeSet<AValue>,
|
||||
handler_map: BTreeMap<Paths, Handler>,
|
||||
}
|
||||
|
||||
struct Handler<'a> {
|
||||
cached_captures: HashBag<Captures<'a>>,
|
||||
callbacks: HashSet<&'a Callback<'a>>,
|
||||
struct Handler {
|
||||
cached_captures: BTreeBag<Captures>,
|
||||
callbacks: BTreeSet<Box<dyn HandleEvent>>,
|
||||
}
|
||||
|
|
110
src/term.rs
110
src/term.rs
|
@ -1,110 +0,0 @@
|
|||
use std::hash::Hash;
|
||||
use std::hash::Hasher;
|
||||
|
||||
#[derive(Debug, PartialOrd, Clone)]
|
||||
pub enum Term<'a> {
|
||||
Boolean(bool),
|
||||
Float(f32),
|
||||
Double(f64),
|
||||
SignedInteger(i64), // TODO: bignums
|
||||
String(std::string::String),
|
||||
ByteString(&'a [u8]),
|
||||
Symbol(std::string::String),
|
||||
|
||||
Rec(&'a Term<'a>, Vec<Term<'a>>),
|
||||
Seq(Vec<Term<'a>>),
|
||||
}
|
||||
|
||||
impl<'a> Term<'a> {
|
||||
pub fn is_rec(&self) -> bool { match self { Term::Rec(_, _) => true, _ => false } }
|
||||
pub fn is_seq(&self) -> bool { match self { Term::Seq(_) => true, _ => false } }
|
||||
|
||||
pub fn label(&self) -> &Term {
|
||||
match self {
|
||||
Term::Rec(l, _) => l,
|
||||
_ => panic!()
|
||||
}
|
||||
}
|
||||
|
||||
pub fn len(&self) -> usize {
|
||||
match self {
|
||||
Term::Seq(vs) => vs.len(),
|
||||
Term::Rec(_, fs) => fs.len(),
|
||||
_ => 0,
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
impl<'a> std::ops::Index<usize> for Term<'a> {
|
||||
type Output = Term<'a>;
|
||||
fn index(&self, i: usize) -> &Term<'a> {
|
||||
match self {
|
||||
Term::Seq(vs) => &vs[i],
|
||||
Term::Rec(_, fs) => &fs[i],
|
||||
_ => panic!()
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
impl<'a> Eq for Term<'a> {}
|
||||
impl<'a> PartialEq for Term<'a> {
|
||||
fn eq(&self, other: &Term<'a>) -> bool {
|
||||
match (self, other) {
|
||||
(Term::Boolean(a), Term::Boolean(b)) => a == b,
|
||||
(Term::Float(a), Term::Float(b)) => a.to_bits() == b.to_bits(),
|
||||
(Term::Double(a), Term::Double(b)) => a.to_bits() == b.to_bits(),
|
||||
(Term::SignedInteger(a), Term::SignedInteger(b)) => a == b,
|
||||
(Term::String(a), Term::String(b)) => a == b,
|
||||
(Term::ByteString(a), Term::ByteString(b)) => a == b,
|
||||
(Term::Symbol(a), Term::Symbol(b)) => a == b,
|
||||
(Term::Seq(a), Term::Seq(b)) => a == b,
|
||||
(Term::Rec(la, fa), Term::Rec(lb, fb)) => la == lb && fa == fb,
|
||||
(_, _) => false
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
impl<'a> Ord for Term<'a> {
|
||||
fn cmp(&self, other: &Term<'a>) -> std::cmp::Ordering {
|
||||
match (self, other) {
|
||||
(Term::Float(a), Term::Float(b)) => {
|
||||
let mut va: i32 = a.to_bits() as i32;
|
||||
let mut vb: i32 = b.to_bits() as i32;
|
||||
if va < 0 { va ^= 0x7fffffff; }
|
||||
if vb < 0 { vb ^= 0x7fffffff; }
|
||||
va.cmp(&vb)
|
||||
}
|
||||
(Term::Double(a), Term::Double(b)) => {
|
||||
let mut va: i64 = a.to_bits() as i64;
|
||||
let mut vb: i64 = b.to_bits() as i64;
|
||||
if va < 0 { va ^= 0x7fffffffffffffff; }
|
||||
if vb < 0 { vb ^= 0x7fffffffffffffff; }
|
||||
va.cmp(&vb)
|
||||
}
|
||||
(Term::Seq(a), Term::Seq(b)) => a.cmp(b),
|
||||
(Term::Rec(la, fa), Term::Rec(lb, fb)) => {
|
||||
match la.cmp(lb) {
|
||||
std::cmp::Ordering::Equal => fa.cmp(fb),
|
||||
o => o
|
||||
}
|
||||
}
|
||||
(_, _) => self.partial_cmp(other).expect("total order"),
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
impl<'a> Hash for Term<'a> {
|
||||
fn hash<H: Hasher>(&self, state: &mut H) {
|
||||
match self {
|
||||
Term::Boolean(b) => { 1.hash(state); b.hash(state) }
|
||||
Term::Float(f) => { 2.hash(state); f.to_bits().hash(state) }
|
||||
Term::Double(d) => { 3.hash(state); d.to_bits().hash(state) }
|
||||
Term::SignedInteger(i) => { 4.hash(state); i.hash(state) }
|
||||
Term::String(s) => { 5.hash(state); s.hash(state) }
|
||||
Term::ByteString(b) => { 6.hash(state); b.hash(state) }
|
||||
Term::Symbol(s) => { 7.hash(state); s.hash(state) }
|
||||
Term::Rec(l, fs) => { 8.hash(state); l.hash(state); fs.hash(state) }
|
||||
Term::Seq(vs) => { 9.hash(state); vs.hash(state) }
|
||||
}
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue