disallow '.' as mapsTo token (only ↦ now)

Intention is to reuse the '.' token as namespace delimiter
and '::' to be used as return type prefix instead
This commit is contained in:
Michael Sippel 2024-05-15 21:42:44 +02:00
parent 312e97193a
commit b336f2f847
Signed by: senvas
GPG key ID: F96CF119C34B64A6
3 changed files with 26 additions and 27 deletions

View file

@ -8,7 +8,7 @@ pub enum LTIRToken {
// DoubleQuote(String),
// TripleQuote(String),
Lambda,
LambdaBody,
MapsTo,
AssignType(String),
AssignValue,
@ -115,11 +115,11 @@ where
region.end += 1;
return Some((region, Ok(LTIRToken::Lambda)));
}
'.' | '↦' => {
'↦' => {
self.chars.next();
self.position += 1;
region.end += 1;
return Some((region, Ok(LTIRToken::LambdaBody)));
return Some((region, Ok(LTIRToken::MapsTo)));
}
'(' => {
self.chars.next();
@ -219,7 +219,7 @@ where
}
LexerState::TypeTerm(s) => {
if *c == '=' || *c == '.' || *c == '↦' || *c == ';' {
if *c == '=' || *c == '↦' || *c == ';' {
if let Some(token) = state.clone().into_token() {
return Some((region, Ok(token)));
}
@ -241,7 +241,6 @@ where
|| *c == ';'
|| *c == '='
|| *c == ':'
|| *c == '.'
|| *c == '↦'
{
// finish the current token

View file

@ -62,8 +62,8 @@ fn main() {
"main",
"{
let print-nullterm =
λ{} : < Seq Char~Ascii~machine::Word >
~ < NullTerminatedArray machine::Word >
λ{} : < Seq Char ~Ascii ~ machine.Word >
~ < NullTerminatedArray machine.Word >
{
while(dup) { emit; }
drop;
@ -72,7 +72,7 @@ fn main() {
print-nullterm 'H' 'a' 'l' 'l' 'o' ' ' 'W' 'e' 'l' 't' '!' '\n' '\0';
let fmt-uint =
λx : ~ _2^64 ~ machine::UInt64
λx : ~ _2^64 ~ machine.UInt64
{
if( x ) {
while( x ) {
@ -86,40 +86,40 @@ fn main() {
let print-uint = λx: print-nullterm (fmt-uint x) '\0';
let int-neg = λx : ~machine::Int64~machine::Word i+ (bit-neg x) 1;
let int-sign = λx : ~machine::Int64~machine::Word bit-and (bit-shr x 63) 1;
let int-neg = λx : ~ machine.Int64 ~ machine.Word i+ (bit-neg x) 1;
let int-sign = λx : ~ machine.Int64 ~ machine.Word bit-and (bit-shr x 63) 1;
let int-lt = λ{
a : ~ machine::Int64;
b : ~ machine::Int64;
a : ~ machine.Int64;
b : ~ machine.Int64;
} int-sign (i- a b);
let int-gt = λ{
a : ~ machine::Int64;
b : ~ machine::Int64;
a : ~ machine.Int64;
b : ~ machine.Int64;
} int-sign (i- b a);
let int-eq = λ{
a : ~ machine::Int64;
b : ~ machine::Int64;
a : ~ machine.Int64;
b : ~ machine.Int64;
} if (i- a b) { 0; } else { 1; };
let int-lte = λa:.λb: bit-or (int-lt a b) (int-eq a b);
let int-gte = λa:.λb: bit-or (int-gt a b) (int-eq a b);
let int-lte = λa: λb: bit-or (int-lt a b) (int-eq a b);
let int-gte = λa: λb: bit-or (int-gt a b) (int-eq a b);
let int-min = λ{
a : ~ machine::Int64;
b : ~ machine::Int64;
a : ~ machine.Int64;
b : ~ machine.Int64;
} if( int-lt a b ) { a; } else { b; };
let int-max = λ{
a : ~ machine::Int64;
b : ~ machine::Int64;
a : ~ machine.Int64;
b : ~ machine.Int64;
} if( int-gt a b ) { a; } else { b; };
let vec3i-add = λ{
{ ax:_2^64; ay:_2^64; az:_2^64; } : <Vec3 _2^64~machine::UInt64>;
{ bx:_2^64; by:_2^64; bz:_2^64; } : <Vec3 _2^64~machine::UInt64>;
{ ax:_2^64; ay:_2^64; az:_2^64; } : <Vec3 _2^64~machine.UInt64>;
{ bx:_2^64; by:_2^64; bz:_2^64; } : <Vec3 _2^64~machine.UInt64>;
} {
i+ az bz;
i+ ay by;
@ -127,7 +127,7 @@ fn main() {
};
let fmt-vec3i =
λ{ x:_2^64; y:_2^64; z:_2^64; } : <Vec3 _2^64~machine::UInt64>
λ{ x:_2^64; y:_2^64; z:_2^64; } : <Vec3 _2^64~machine.UInt64>
{
'}';
fmt-uint z; '='; 'z'; ' '; ';';
@ -136,7 +136,7 @@ fn main() {
};
let red-u8rgb
: <Fn <> Color ~ RGB ~ <Vec3 _0,1 ~ _256 ~ machine::UInt64>>
: <Fn <> Color ~ RGB ~ <Vec3 _0,1 ~ _256 ~ machine.UInt64>>
= λ{} { 0; 0; 255; };
let green-u8rgb = λ{} { 0; 255; 0; };
let blue-u8rgb = λ{} { 255; 0; 0; };

View file

@ -309,7 +309,7 @@ where
tokens.next();
let mut variable_bindings = parse_binding_expr(typectx, tokens)?;
let _ = parse_expect(tokens, LTIRToken::LambdaBody);
let _ = parse_expect(tokens, LTIRToken::MapsTo);
let body = parse_expr(typectx, tokens)?;
return Ok(LTExpr::Abstraction {