Compare commits
5 commits
a52f38dadf
...
b127c9eb79
Author | SHA1 | Date | |
---|---|---|---|
b127c9eb79 | |||
48c12d9d18 | |||
ca65e152bc | |||
886598aeb3 | |||
02d8815acd |
5 changed files with 160 additions and 7 deletions
|
@ -7,6 +7,7 @@ pub mod parser;
|
||||||
pub mod unparser;
|
pub mod unparser;
|
||||||
pub mod curry;
|
pub mod curry;
|
||||||
pub mod lnf;
|
pub mod lnf;
|
||||||
|
pub mod pnf;
|
||||||
pub mod subtype;
|
pub mod subtype;
|
||||||
pub mod unification;
|
pub mod unification;
|
||||||
pub mod morphism;
|
pub mod morphism;
|
||||||
|
|
113
src/pnf.rs
Normal file
113
src/pnf.rs
Normal file
|
@ -0,0 +1,113 @@
|
||||||
|
use crate::term::TypeTerm;
|
||||||
|
|
||||||
|
//<<<<>>>><<>><><<>><<<*>>><<>><><<>><<<<>>>>\\
|
||||||
|
|
||||||
|
impl TypeTerm {
|
||||||
|
/// transmute type into Parameter-Normal-Form (PNF)
|
||||||
|
///
|
||||||
|
/// Example:
|
||||||
|
/// ```ignore
|
||||||
|
/// <Seq <Digit 10>>~<Seq Char>
|
||||||
|
/// ⇒ <Seq <Digit 10>~Char>
|
||||||
|
/// ```
|
||||||
|
pub fn param_normalize(self) -> Self {
|
||||||
|
match self {
|
||||||
|
TypeTerm::Ladder(mut rungs) => {
|
||||||
|
if rungs.len() > 0 {
|
||||||
|
// normalize all rungs separately
|
||||||
|
for r in rungs.iter_mut() {
|
||||||
|
*r = r.clone().param_normalize();
|
||||||
|
}
|
||||||
|
|
||||||
|
// take top-rung
|
||||||
|
match rungs.remove(0) {
|
||||||
|
TypeTerm::App(params_top) => {
|
||||||
|
let mut params_ladders = Vec::new();
|
||||||
|
let mut tail : Vec<TypeTerm> = Vec::new();
|
||||||
|
|
||||||
|
// append all other rungs to ladders inside
|
||||||
|
// the application
|
||||||
|
for p in params_top {
|
||||||
|
params_ladders.push(vec![ p ]);
|
||||||
|
}
|
||||||
|
|
||||||
|
for r in rungs {
|
||||||
|
match r {
|
||||||
|
TypeTerm::App(mut params_rung) => {
|
||||||
|
if params_rung.len() > 0 {
|
||||||
|
let mut first_param = params_rung.remove(0);
|
||||||
|
|
||||||
|
if first_param == params_ladders[0][0] {
|
||||||
|
for (l, p) in params_ladders.iter_mut().skip(1).zip(params_rung) {
|
||||||
|
l.push(p.param_normalize());
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
params_rung.insert(0, first_param);
|
||||||
|
tail.push(TypeTerm::App(params_rung));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
TypeTerm::Ladder(mut rs) => {
|
||||||
|
for r in rs {
|
||||||
|
tail.push(r.param_normalize());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
atomic => {
|
||||||
|
tail.push(atomic);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
let head = TypeTerm::App(
|
||||||
|
params_ladders.into_iter()
|
||||||
|
.map(
|
||||||
|
|mut l| {
|
||||||
|
l.dedup();
|
||||||
|
match l.len() {
|
||||||
|
0 => TypeTerm::unit(),
|
||||||
|
1 => l.remove(0),
|
||||||
|
_ => TypeTerm::Ladder(l).param_normalize()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
)
|
||||||
|
.collect()
|
||||||
|
);
|
||||||
|
|
||||||
|
if tail.len() > 0 {
|
||||||
|
tail.insert(0, head);
|
||||||
|
TypeTerm::Ladder(tail)
|
||||||
|
} else {
|
||||||
|
head
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
TypeTerm::Ladder(mut r) => {
|
||||||
|
r.append(&mut rungs);
|
||||||
|
TypeTerm::Ladder(r)
|
||||||
|
}
|
||||||
|
|
||||||
|
atomic => {
|
||||||
|
rungs.insert(0, atomic);
|
||||||
|
TypeTerm::Ladder(rungs)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
TypeTerm::unit()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
TypeTerm::App(params) => {
|
||||||
|
TypeTerm::App(
|
||||||
|
params.into_iter()
|
||||||
|
.map(|p| p.param_normalize())
|
||||||
|
.collect())
|
||||||
|
}
|
||||||
|
|
||||||
|
atomic => atomic
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
//<<<<>>>><<>><><<>><<<*>>><<>><><<>><<<<>>>>\\
|
|
@ -3,6 +3,7 @@ pub mod lexer;
|
||||||
pub mod parser;
|
pub mod parser;
|
||||||
pub mod curry;
|
pub mod curry;
|
||||||
pub mod lnf;
|
pub mod lnf;
|
||||||
|
pub mod pnf;
|
||||||
pub mod subtype;
|
pub mod subtype;
|
||||||
pub mod substitution;
|
pub mod substitution;
|
||||||
pub mod unification;
|
pub mod unification;
|
||||||
|
|
|
@ -50,14 +50,11 @@ fn test_morphism_path() {
|
||||||
);
|
);
|
||||||
|
|
||||||
|
|
||||||
let path = base.find_morphism_path(MorphismType {
|
|
||||||
src_type: dict.parse("ℕ ~ <PosInt 10 BigEndian> ~ <Seq <Digit 10> ~ Char>").unwrap(),
|
|
||||||
dst_type: dict.parse("ℕ ~ <PosInt 16 BigEndian> ~ <Seq <Digit 16> ~ Char>").unwrap()
|
|
||||||
});
|
|
||||||
|
|
||||||
assert_eq!(
|
assert_eq!(
|
||||||
path,
|
base.find_morphism_path(MorphismType {
|
||||||
|
src_type: dict.parse("ℕ ~ <PosInt 10 BigEndian> ~ <Seq <Digit 10> ~ Char>").unwrap(),
|
||||||
|
dst_type: dict.parse("ℕ ~ <PosInt 16 BigEndian> ~ <Seq <Digit 16> ~ Char>").unwrap()
|
||||||
|
}),
|
||||||
Some(
|
Some(
|
||||||
vec![
|
vec![
|
||||||
dict.parse("ℕ ~ <PosInt 10 BigEndian> ~ <Seq <Digit 10> ~ Char>").unwrap().normalize(),
|
dict.parse("ℕ ~ <PosInt 10 BigEndian> ~ <Seq <Digit 10> ~ Char>").unwrap().normalize(),
|
||||||
|
|
41
src/test/pnf.rs
Normal file
41
src/test/pnf.rs
Normal file
|
@ -0,0 +1,41 @@
|
||||||
|
use crate::dict::TypeDict;
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn test_param_normalize() {
|
||||||
|
let mut dict = TypeDict::new();
|
||||||
|
|
||||||
|
assert_eq!(
|
||||||
|
dict.parse("A~B~C").expect("parse error"),
|
||||||
|
dict.parse("A~B~C").expect("parse error").param_normalize(),
|
||||||
|
);
|
||||||
|
|
||||||
|
assert_eq!(
|
||||||
|
dict.parse("<A B>~C").expect("parse error"),
|
||||||
|
dict.parse("<A B>~C").expect("parse error").param_normalize(),
|
||||||
|
);
|
||||||
|
|
||||||
|
assert_eq!(
|
||||||
|
dict.parse("<A B~C>").expect("parse error"),
|
||||||
|
dict.parse("<A B>~<A C>").expect("parse error").param_normalize(),
|
||||||
|
);
|
||||||
|
|
||||||
|
assert_eq!(
|
||||||
|
dict.parse("<A B~C D~E>").expect("parse error"),
|
||||||
|
dict.parse("<A B D>~<A C D>~<A C E>").expect("parse errror").param_normalize(),
|
||||||
|
);
|
||||||
|
|
||||||
|
assert_eq!(
|
||||||
|
dict.parse("<Seq <Digit 10>~Char>").expect("parse error"),
|
||||||
|
dict.parse("<Seq <Digit 10>>~<Seq Char>").expect("parse errror").param_normalize(),
|
||||||
|
);
|
||||||
|
|
||||||
|
assert_eq!(
|
||||||
|
dict.parse("<A <B C~D~E> F~G H H>").expect("parse error"),
|
||||||
|
dict.parse("<A <B C> F H H>
|
||||||
|
~<A <B D> F H H>
|
||||||
|
~<A <B E> F H H>
|
||||||
|
~<A <B E> G H H>").expect("parse errror")
|
||||||
|
.param_normalize(),
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in a new issue