2021-07-02 03:42:25 +02:00
use std ::ops ::{ Index , IndexMut } ;
2021-07-01 02:01:04 +02:00
use crate ::{
lex , lite_parse ,
parser_state ::{ Type , VarId } ,
2021-07-08 22:29:00 +02:00
signature ::Flag ,
2021-07-16 08:24:46 +02:00
DeclId , Declaration , LiteBlock , ParseError , ParserWorkingSet , Signature , Span ,
2021-07-01 02:01:04 +02:00
} ;
/// The syntactic shapes that values must match to be passed into a command. You can think of this as the type-checking that occurs when you call a function.
2021-07-02 00:40:08 +02:00
#[ derive(Debug, Clone, PartialEq, Eq) ]
2021-07-01 02:01:04 +02:00
pub enum SyntaxShape {
2021-07-01 08:09:55 +02:00
/// A specific match to a word or symbol
2021-07-02 08:44:37 +02:00
Literal ( Vec < u8 > ) ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// Any syntactic form is allowed
Any ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// Strings and string-like bare words are allowed
String ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// A dotted path to navigate the table
ColumnPath ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// A dotted path to navigate the table (including variable)
FullColumnPath ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// Only a numeric (integer or decimal) value is allowed
Number ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// A range is allowed (eg, `1..3`)
Range ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// Only an integer value is allowed
Int ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// A filepath is allowed
FilePath ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// A glob pattern is allowed, eg `foo*`
GlobPattern ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// A block is allowed, eg `{start this thing}`
Block ,
2021-07-08 00:55:46 +02:00
2021-07-09 08:23:20 +02:00
/// A table is allowed, eg `[[first, second]; [1, 2]]`
2021-07-01 02:01:04 +02:00
Table ,
2021-07-08 00:55:46 +02:00
2021-07-08 09:49:17 +02:00
/// A table is allowed, eg `[first second]`
List ( Box < SyntaxShape > ) ,
2021-07-01 02:01:04 +02:00
/// A filesize value is allowed, eg `10kb`
Filesize ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// A duration value is allowed, eg `19day`
Duration ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// An operator
Operator ,
2021-07-08 00:55:46 +02:00
2021-07-01 02:01:04 +02:00
/// A math expression which expands shorthand forms on the lefthand side, eg `foo > 1`
/// The shorthand allows us to more easily reach columns inside of the row being passed in
RowCondition ,
2021-07-08 00:55:46 +02:00
2021-07-02 00:54:04 +02:00
/// A general math expression, eg `1 + 2`
2021-07-01 02:01:04 +02:00
MathExpression ,
2021-07-08 00:55:46 +02:00
2021-07-08 08:19:38 +02:00
/// A variable name
Variable ,
2021-07-16 08:24:46 +02:00
/// A variable with optional type, `x` or `x: int`
VarWithOptType ,
2021-07-02 08:44:37 +02:00
/// A general expression, eg `1 + 2` or `foo --bar`
Expression ,
}
#[ derive(Debug, Clone, PartialEq, Eq) ]
pub enum Operator {
Equal ,
NotEqual ,
LessThan ,
GreaterThan ,
LessThanOrEqual ,
GreaterThanOrEqual ,
Contains ,
NotContains ,
Plus ,
Minus ,
Multiply ,
Divide ,
In ,
NotIn ,
Modulo ,
And ,
Or ,
Pow ,
2021-07-01 02:01:04 +02:00
}
2021-06-30 03:42:56 +02:00
2021-07-02 00:40:08 +02:00
#[ derive(Debug, Clone) ]
pub struct Call {
/// identifier of the declaration to call
pub decl_id : DeclId ,
pub positional : Vec < Expression > ,
pub named : Vec < ( String , Option < Expression > ) > ,
}
impl Default for Call {
fn default ( ) -> Self {
Self ::new ( )
}
}
impl Call {
pub fn new ( ) -> Call {
Self {
decl_id : 0 ,
positional : vec ! [ ] ,
named : vec ! [ ] ,
}
}
}
#[ derive(Debug, Clone) ]
2021-07-01 02:01:04 +02:00
pub enum Expr {
Int ( i64 ) ,
Var ( VarId ) ,
2021-07-02 21:30:03 +02:00
Call ( Box < Call > ) ,
2021-07-08 09:20:01 +02:00
ExternalCall ( Vec < u8 > , Vec < Vec < u8 > > ) ,
2021-07-02 08:44:37 +02:00
Operator ( Operator ) ,
BinaryOp ( Box < Expression > , Box < Expression > , Box < Expression > ) , //lhs, op, rhs
2021-07-02 09:15:30 +02:00
Subexpression ( Box < Block > ) ,
2021-07-02 09:32:30 +02:00
Block ( Box < Block > ) ,
2021-07-06 00:58:56 +02:00
List ( Vec < Expression > ) ,
2021-07-06 03:48:45 +02:00
Table ( Vec < Expression > , Vec < Vec < Expression > > ) ,
2021-07-08 00:55:46 +02:00
Literal ( Vec < u8 > ) ,
2021-07-06 03:48:45 +02:00
String ( String ) , // FIXME: improve this in the future?
2021-07-01 02:01:04 +02:00
Garbage ,
}
2021-07-02 00:40:08 +02:00
#[ derive(Debug, Clone) ]
2021-07-01 02:01:04 +02:00
pub struct Expression {
2021-07-16 03:10:22 +02:00
pub expr : Expr ,
pub span : Span ,
2021-07-01 02:01:04 +02:00
}
impl Expression {
pub fn garbage ( span : Span ) -> Expression {
Expression {
expr : Expr ::Garbage ,
span ,
2021-07-03 05:35:15 +02:00
//ty: Type::Unknown,
2021-07-01 02:01:04 +02:00
}
}
2021-07-02 08:44:37 +02:00
pub fn precedence ( & self ) -> usize {
match & self . expr {
Expr ::Operator ( operator ) = > {
// Higher precedence binds tighter
match operator {
Operator ::Pow = > 100 ,
Operator ::Multiply | Operator ::Divide | Operator ::Modulo = > 95 ,
Operator ::Plus | Operator ::Minus = > 90 ,
Operator ::NotContains
| Operator ::Contains
| Operator ::LessThan
| Operator ::LessThanOrEqual
| Operator ::GreaterThan
| Operator ::GreaterThanOrEqual
| Operator ::Equal
| Operator ::NotEqual
| Operator ::In
| Operator ::NotIn = > 80 ,
Operator ::And = > 50 ,
Operator ::Or = > 40 , // TODO: should we have And and Or be different precedence?
}
}
_ = > 0 ,
}
}
2021-07-16 08:24:46 +02:00
pub fn as_block ( self ) -> Option < Box < Block > > {
match self . expr {
Expr ::Block ( block ) = > Some ( block ) ,
_ = > None ,
}
}
pub fn as_list ( self ) -> Option < Vec < Expression > > {
match self . expr {
Expr ::List ( list ) = > Some ( list ) ,
_ = > None ,
}
}
pub fn as_var ( self ) -> Option < VarId > {
match self . expr {
Expr ::Var ( var_id ) = > Some ( var_id ) ,
_ = > None ,
}
}
pub fn as_string ( self ) -> Option < String > {
match self . expr {
Expr ::String ( string ) = > Some ( string ) ,
_ = > None ,
}
}
2021-07-01 02:01:04 +02:00
}
2021-06-30 03:42:56 +02:00
2021-07-02 09:15:30 +02:00
#[ derive(Debug, Clone) ]
2021-06-30 03:42:56 +02:00
pub enum Import { }
2021-07-02 09:15:30 +02:00
#[ derive(Debug, Clone) ]
2021-06-30 03:42:56 +02:00
pub struct Block {
2021-07-02 03:42:25 +02:00
pub stmts : Vec < Statement > ,
}
impl Block {
pub fn len ( & self ) -> usize {
self . stmts . len ( )
}
pub fn is_empty ( & self ) -> bool {
self . stmts . is_empty ( )
}
}
impl Index < usize > for Block {
type Output = Statement ;
fn index ( & self , index : usize ) -> & Self ::Output {
& self . stmts [ index ]
}
}
impl IndexMut < usize > for Block {
fn index_mut ( & mut self , index : usize ) -> & mut Self ::Output {
& mut self . stmts [ index ]
}
2021-06-30 03:42:56 +02:00
}
2021-07-01 02:01:04 +02:00
impl Default for Block {
fn default ( ) -> Self {
Self ::new ( )
}
}
2021-06-30 03:42:56 +02:00
impl Block {
pub fn new ( ) -> Self {
Self { stmts : vec ! [ ] }
}
}
2021-07-02 09:15:30 +02:00
#[ derive(Debug, Clone) ]
2021-06-30 03:42:56 +02:00
pub struct VarDecl {
2021-07-01 02:01:04 +02:00
var_id : VarId ,
expression : Expression ,
2021-06-30 03:42:56 +02:00
}
2021-07-02 09:15:30 +02:00
#[ derive(Debug, Clone) ]
2021-06-30 03:42:56 +02:00
pub enum Statement {
Pipeline ( Pipeline ) ,
VarDecl ( VarDecl ) ,
2021-07-16 08:24:46 +02:00
Declaration ( DeclId ) ,
2021-06-30 03:42:56 +02:00
Import ( Import ) ,
2021-07-01 02:01:04 +02:00
Expression ( Expression ) ,
2021-06-30 03:42:56 +02:00
None ,
}
2021-07-02 09:15:30 +02:00
#[ derive(Debug, Clone) ]
2021-06-30 03:42:56 +02:00
pub struct Pipeline { }
2021-07-01 02:01:04 +02:00
impl Default for Pipeline {
fn default ( ) -> Self {
Self ::new ( )
}
}
2021-06-30 03:42:56 +02:00
impl Pipeline {
pub fn new ( ) -> Self {
Self { }
}
}
2021-07-01 02:01:04 +02:00
fn garbage ( span : Span ) -> Expression {
Expression ::garbage ( span )
}
2021-07-01 03:31:02 +02:00
fn is_identifier_byte ( b : u8 ) -> bool {
b ! = b '.' & & b ! = b '[' & & b ! = b '(' & & b ! = b '{'
}
fn is_identifier ( bytes : & [ u8 ] ) -> bool {
bytes . iter ( ) . all ( | x | is_identifier_byte ( * x ) )
}
fn is_variable ( bytes : & [ u8 ] ) -> bool {
if bytes . len ( ) > 1 & & bytes [ 0 ] = = b '$' {
is_identifier ( & bytes [ 1 .. ] )
} else {
is_identifier ( bytes )
}
}
2021-07-02 04:22:54 +02:00
fn check_call ( command : Span , sig : & Signature , call : & Call ) -> Option < ParseError > {
if call . positional . len ( ) < sig . required_positional . len ( ) {
let missing = & sig . required_positional [ call . positional . len ( ) ] ;
Some ( ParseError ::MissingPositional ( missing . name . clone ( ) , command ) )
} else {
for req_flag in sig . named . iter ( ) . filter ( | x | x . required ) {
if call . named . iter ( ) . all ( | ( n , _ ) | n ! = & req_flag . long ) {
return Some ( ParseError ::MissingRequiredFlag (
req_flag . long . clone ( ) ,
command ,
) ) ;
}
}
None
}
}
2021-07-01 02:01:04 +02:00
fn span ( spans : & [ Span ] ) -> Span {
let length = spans . len ( ) ;
if length = = 0 {
Span ::unknown ( )
2021-07-03 05:35:15 +02:00
} else if length = = 1 {
2021-07-01 02:01:04 +02:00
spans [ 0 ]
} else {
Span {
start : spans [ 0 ] . start ,
end : spans [ length - 1 ] . end ,
}
}
}
2021-06-30 03:42:56 +02:00
impl ParserWorkingSet {
2021-07-01 08:09:55 +02:00
pub fn parse_external_call ( & mut self , spans : & [ Span ] ) -> ( Expression , Option < ParseError > ) {
// TODO: add external parsing
2021-07-08 09:20:01 +02:00
let mut args = vec! [ ] ;
let name = self . get_span_contents ( spans [ 0 ] ) . to_vec ( ) ;
for span in & spans [ 1 .. ] {
args . push ( self . get_span_contents ( * span ) . to_vec ( ) ) ;
}
(
Expression {
expr : Expr ::ExternalCall ( name , args ) ,
span : span ( spans ) ,
} ,
None ,
)
2021-07-01 02:01:04 +02:00
}
2021-07-08 22:29:00 +02:00
fn parse_long_flag (
& mut self ,
spans : & [ Span ] ,
2021-07-08 23:16:25 +02:00
spans_idx : & mut usize ,
2021-07-08 22:29:00 +02:00
sig : & Signature ,
) -> ( Option < String > , Option < Expression > , Option < ParseError > ) {
2021-07-08 23:16:25 +02:00
let arg_span = spans [ * spans_idx ] ;
2021-07-08 22:29:00 +02:00
let arg_contents = self . get_span_contents ( arg_span ) ;
if arg_contents . starts_with ( & [ b '-' , b '-' ] ) {
// FIXME: only use the first you find
let split : Vec < _ > = arg_contents . split ( | x | * x = = b '=' ) . collect ( ) ;
let long_name = String ::from_utf8 ( split [ 0 ] . into ( ) ) ;
if let Ok ( long_name ) = long_name {
if let Some ( flag ) = sig . get_long_flag ( & long_name ) {
if let Some ( arg_shape ) = & flag . arg {
if split . len ( ) > 1 {
// and we also have the argument
let mut span = arg_span ;
span . start + = long_name . len ( ) + 1 ; //offset by long flag and '='
2021-07-08 23:31:08 +02:00
let ( arg , err ) = self . parse_value ( span , arg_shape . clone ( ) ) ;
2021-07-08 22:29:00 +02:00
( Some ( long_name ) , Some ( arg ) , err )
2021-07-08 23:16:25 +02:00
} else if let Some ( arg ) = spans . get ( * spans_idx + 1 ) {
2021-07-08 23:31:08 +02:00
let ( arg , err ) = self . parse_value ( * arg , arg_shape . clone ( ) ) ;
2021-07-08 22:29:00 +02:00
2021-07-08 23:16:25 +02:00
* spans_idx + = 1 ;
2021-07-08 22:29:00 +02:00
( Some ( long_name ) , Some ( arg ) , err )
} else {
(
Some ( long_name ) ,
None ,
Some ( ParseError ::MissingFlagParam ( arg_span ) ) ,
)
}
} else {
// A flag with no argument
( Some ( long_name ) , None , None )
}
} else {
(
Some ( long_name ) ,
None ,
Some ( ParseError ::UnknownFlag ( arg_span ) ) ,
)
}
} else {
( Some ( " -- " . into ( ) ) , None , Some ( ParseError ::NonUtf8 ( arg_span ) ) )
}
} else {
( None , None , None )
}
}
fn parse_short_flags (
& mut self ,
spans : & [ Span ] ,
2021-07-08 23:16:25 +02:00
spans_idx : & mut usize ,
2021-07-08 22:29:00 +02:00
positional_idx : usize ,
sig : & Signature ,
) -> ( Option < Vec < Flag > > , Option < ParseError > ) {
let mut error = None ;
2021-07-08 23:16:25 +02:00
let arg_span = spans [ * spans_idx ] ;
2021-07-08 22:29:00 +02:00
let arg_contents = self . get_span_contents ( arg_span ) ;
if arg_contents . starts_with ( & [ b '-' ] ) & & arg_contents . len ( ) > 1 {
let short_flags = & arg_contents [ 1 .. ] ;
let mut found_short_flags = vec! [ ] ;
let mut unmatched_short_flags = vec! [ ] ;
for short_flag in short_flags . iter ( ) . enumerate ( ) {
let short_flag_char = char ::from ( * short_flag . 1 ) ;
let orig = arg_span ;
let short_flag_span = Span {
start : orig . start + 1 + short_flag . 0 ,
end : orig . start + 1 + short_flag . 0 + 1 ,
} ;
if let Some ( flag ) = sig . get_short_flag ( short_flag_char ) {
// If we require an arg and are in a batch of short flags, error
if ! found_short_flags . is_empty ( ) & & flag . arg . is_some ( ) {
error =
error . or ( Some ( ParseError ::ShortFlagBatchCantTakeArg ( short_flag_span ) ) )
}
found_short_flags . push ( flag ) ;
} else {
unmatched_short_flags . push ( short_flag_span ) ;
}
}
if found_short_flags . is_empty ( ) {
// check to see if we have a negative number
if let Some ( positional ) = sig . get_positional ( positional_idx ) {
if positional . shape = = SyntaxShape ::Int
| | positional . shape = = SyntaxShape ::Number
{
if String ::from_utf8_lossy ( & arg_contents )
. parse ::< f64 > ( )
. is_ok ( )
{
return ( None , None ) ;
} else if let Some ( first ) = unmatched_short_flags . first ( ) {
error = error . or ( Some ( ParseError ::UnknownFlag ( * first ) ) ) ;
}
} else if let Some ( first ) = unmatched_short_flags . first ( ) {
error = error . or ( Some ( ParseError ::UnknownFlag ( * first ) ) ) ;
}
} else if let Some ( first ) = unmatched_short_flags . first ( ) {
error = error . or ( Some ( ParseError ::UnknownFlag ( * first ) ) ) ;
}
} else if ! unmatched_short_flags . is_empty ( ) {
if let Some ( first ) = unmatched_short_flags . first ( ) {
error = error . or ( Some ( ParseError ::UnknownFlag ( * first ) ) ) ;
}
}
( Some ( found_short_flags ) , error )
} else {
( None , None )
}
}
2021-07-08 23:16:25 +02:00
fn parse_multispan_value (
& mut self ,
spans : & [ Span ] ,
spans_idx : & mut usize ,
shape : SyntaxShape ,
) -> ( Expression , Option < ParseError > ) {
let mut error = None ;
let arg_span = spans [ * spans_idx ] ;
match shape {
2021-07-16 08:24:46 +02:00
SyntaxShape ::VarWithOptType = > {
let ( arg , err ) = self . parse_var_with_opt_type ( spans , spans_idx ) ;
error = error . or ( err ) ;
( arg , error )
}
2021-07-08 23:16:25 +02:00
SyntaxShape ::RowCondition = > {
let ( arg , err ) = self . parse_row_condition ( spans ) ;
error = error . or ( err ) ;
* spans_idx = spans . len ( ) ;
( arg , error )
}
SyntaxShape ::Expression = > {
let ( arg , err ) = self . parse_expression ( spans ) ;
error = error . or ( err ) ;
* spans_idx = spans . len ( ) ;
( arg , error )
}
SyntaxShape ::Literal ( literal ) = > {
let arg_contents = self . get_span_contents ( arg_span ) ;
if arg_contents ! = literal {
// When keywords mismatch, this is a strong indicator of something going wrong.
// We won't often override the current error, but as this is a strong indicator
// go ahead and override the current error and tell the user about the missing
// keyword/literal.
error = Some ( ParseError ::Mismatch (
String ::from_utf8_lossy ( & literal ) . into ( ) ,
arg_span ,
) )
}
(
Expression {
expr : Expr ::Literal ( literal ) ,
span : arg_span ,
} ,
error ,
)
}
_ = > {
2021-07-08 23:31:08 +02:00
// All other cases are single-span values
let ( arg , err ) = self . parse_value ( arg_span , shape ) ;
2021-07-08 23:16:25 +02:00
error = error . or ( err ) ;
( arg , error )
}
}
}
2021-07-08 08:19:38 +02:00
pub fn parse_internal_call (
& mut self ,
spans : & [ Span ] ,
decl_id : usize ,
) -> ( Box < Call > , Span , Option < ParseError > ) {
2021-07-02 00:40:08 +02:00
let mut error = None ;
2021-07-08 08:19:38 +02:00
let mut call = Call ::new ( ) ;
call . decl_id = decl_id ;
2021-07-16 03:10:22 +02:00
let decl = self
2021-07-08 08:19:38 +02:00
. get_decl ( decl_id )
. expect ( " internal error: bad DeclId " )
. clone ( ) ;
2021-07-08 23:16:25 +02:00
// The index into the positional parameter in the definition
2021-07-08 08:19:38 +02:00
let mut positional_idx = 0 ;
2021-07-08 23:16:25 +02:00
// The index into the spans of argument data given to parse
// Starting at the first argument
let mut spans_idx = 1 ;
2021-07-02 00:40:08 +02:00
2021-07-08 23:16:25 +02:00
while spans_idx < spans . len ( ) {
let arg_span = spans [ spans_idx ] ;
2021-07-09 08:23:20 +02:00
// Check if we're on a long flag, if so, parse
2021-07-16 03:10:22 +02:00
let ( long_name , arg , err ) =
self . parse_long_flag ( spans , & mut spans_idx , & decl . signature ) ;
2021-07-08 22:29:00 +02:00
if let Some ( long_name ) = long_name {
// We found a long flag, like --bar
error = error . or ( err ) ;
call . named . push ( ( long_name , arg ) ) ;
2021-07-08 23:16:25 +02:00
spans_idx + = 1 ;
2021-07-08 22:29:00 +02:00
continue ;
}
2021-07-02 00:40:08 +02:00
2021-07-09 08:23:20 +02:00
// Check if we're on a short flag or group of short flags, if so, parse
2021-07-08 22:29:00 +02:00
let ( short_flags , err ) =
2021-07-16 03:10:22 +02:00
self . parse_short_flags ( spans , & mut spans_idx , positional_idx , & decl . signature ) ;
2021-07-08 22:29:00 +02:00
if let Some ( short_flags ) = short_flags {
error = error . or ( err ) ;
for flag in short_flags {
2021-07-08 08:19:38 +02:00
if let Some ( arg_shape ) = flag . arg {
2021-07-08 23:16:25 +02:00
if let Some ( arg ) = spans . get ( spans_idx + 1 ) {
2021-07-08 23:31:08 +02:00
let ( arg , err ) = self . parse_value ( * arg , arg_shape . clone ( ) ) ;
2021-07-08 08:19:38 +02:00
error = error . or ( err ) ;
2021-07-02 00:40:08 +02:00
2021-07-08 08:19:38 +02:00
call . named . push ( ( flag . long . clone ( ) , Some ( arg ) ) ) ;
2021-07-08 23:16:25 +02:00
spans_idx + = 1 ;
2021-07-02 00:40:08 +02:00
} else {
2021-07-08 08:19:38 +02:00
error = error . or ( Some ( ParseError ::MissingFlagParam ( arg_span ) ) )
2021-07-02 00:40:08 +02:00
}
2021-07-08 08:19:38 +02:00
} else {
call . named . push ( ( flag . long . clone ( ) , None ) ) ;
2021-07-02 00:40:08 +02:00
}
2021-07-08 08:19:38 +02:00
}
2021-07-08 23:16:25 +02:00
spans_idx + = 1 ;
2021-07-08 22:29:00 +02:00
continue ;
}
2021-07-09 08:23:20 +02:00
// Parse a positional arg if there is one
2021-07-16 03:10:22 +02:00
if let Some ( positional ) = decl . signature . get_positional ( positional_idx ) {
2021-07-08 23:16:25 +02:00
//Make sure we leave enough spans for the remaining positionals
2021-07-16 03:10:22 +02:00
let remainder = decl . signature . num_positionals ( ) - positional_idx ;
2021-07-08 23:16:25 +02:00
let ( arg , err ) = self . parse_multispan_value (
& spans [ .. ( spans . len ( ) - remainder + 1 ) ] ,
& mut spans_idx ,
positional . shape ,
) ;
error = error . or ( err ) ;
call . positional . push ( arg ) ;
2021-07-08 08:19:38 +02:00
positional_idx + = 1 ;
} else {
error = error . or ( Some ( ParseError ::ExtraPositional ( arg_span ) ) )
2021-07-02 00:40:08 +02:00
}
2021-07-08 23:16:25 +02:00
error = error . or ( err ) ;
spans_idx + = 1 ;
2021-07-08 08:19:38 +02:00
}
2021-07-02 00:40:08 +02:00
2021-07-16 03:10:22 +02:00
let err = check_call ( spans [ 0 ] , & decl . signature , & call ) ;
2021-07-08 08:19:38 +02:00
error = error . or ( err ) ;
2021-07-02 04:22:54 +02:00
2021-07-08 08:19:38 +02:00
// FIXME: type unknown
( Box ::new ( call ) , span ( spans ) , error )
}
pub fn parse_call ( & mut self , spans : & [ Span ] ) -> ( Expression , Option < ParseError > ) {
// assume spans.len() > 0?
let name = self . get_span_contents ( spans [ 0 ] ) ;
if let Some ( decl_id ) = self . find_decl ( name ) {
let ( call , span , err ) = self . parse_internal_call ( spans , decl_id ) ;
2021-07-02 00:40:08 +02:00
(
Expression {
2021-07-08 08:19:38 +02:00
expr : Expr ::Call ( call ) ,
span ,
2021-07-02 00:40:08 +02:00
} ,
2021-07-08 08:19:38 +02:00
err ,
2021-07-02 00:40:08 +02:00
)
2021-07-01 08:09:55 +02:00
} else {
self . parse_external_call ( spans )
2021-06-30 03:42:56 +02:00
}
}
2021-07-01 02:01:04 +02:00
pub fn parse_int ( & mut self , token : & str , span : Span ) -> ( Expression , Option < ParseError > ) {
if let Some ( token ) = token . strip_prefix ( " 0x " ) {
if let Ok ( v ) = i64 ::from_str_radix ( token , 16 ) {
(
Expression {
expr : Expr ::Int ( v ) ,
span ,
} ,
None ,
)
} else {
(
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " int " . into ( ) , span ) ) ,
)
}
} else if let Some ( token ) = token . strip_prefix ( " 0b " ) {
if let Ok ( v ) = i64 ::from_str_radix ( token , 2 ) {
(
Expression {
expr : Expr ::Int ( v ) ,
span ,
} ,
None ,
)
} else {
(
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " int " . into ( ) , span ) ) ,
)
}
} else if let Some ( token ) = token . strip_prefix ( " 0o " ) {
if let Ok ( v ) = i64 ::from_str_radix ( token , 8 ) {
(
Expression {
expr : Expr ::Int ( v ) ,
span ,
} ,
None ,
)
} else {
(
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " int " . into ( ) , span ) ) ,
)
}
} else if let Ok ( x ) = token . parse ::< i64 > ( ) {
(
Expression {
expr : Expr ::Int ( x ) ,
span ,
} ,
None ,
)
} else {
(
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " int " . into ( ) , span ) ) ,
)
}
}
pub fn parse_number ( & mut self , token : & str , span : Span ) -> ( Expression , Option < ParseError > ) {
if let ( x , None ) = self . parse_int ( token , span ) {
( x , None )
} else {
(
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " number " . into ( ) , span ) ) ,
)
}
}
2021-07-08 08:57:24 +02:00
pub ( crate ) fn parse_dollar_expr ( & mut self , span : Span ) -> ( Expression , Option < ParseError > ) {
2021-07-02 09:15:30 +02:00
let bytes = self . get_span_contents ( span ) ;
if let Some ( var_id ) = self . find_variable ( bytes ) {
(
Expression {
expr : Expr ::Var ( var_id ) ,
span ,
} ,
None ,
)
} else {
( garbage ( span ) , Some ( ParseError ::VariableNotFound ( span ) ) )
}
}
2021-07-08 08:19:38 +02:00
pub fn parse_variable_expr ( & mut self , span : Span ) -> ( Expression , Option < ParseError > ) {
let ( id , err ) = self . parse_variable ( span ) ;
if err . is_none ( ) {
if let Some ( id ) = id {
(
Expression {
expr : Expr ::Var ( id ) ,
span ,
} ,
None ,
)
} else {
let name = self . get_span_contents ( span ) . to_vec ( ) ;
// this seems okay to set it to unknown here, but we should double-check
let id = self . add_variable ( name , Type ::Unknown ) ;
(
Expression {
expr : Expr ::Var ( id ) ,
span ,
} ,
None ,
)
}
} else {
( garbage ( span ) , err )
}
}
2021-07-02 09:15:30 +02:00
pub fn parse_full_column_path ( & mut self , span : Span ) -> ( Expression , Option < ParseError > ) {
// FIXME: assume for now a paren expr, but needs more
let bytes = self . get_span_contents ( span ) ;
let mut error = None ;
let mut start = span . start ;
let mut end = span . end ;
if bytes . starts_with ( b " ( " ) {
start + = 1 ;
}
if bytes . ends_with ( b " ) " ) {
end - = 1 ;
2021-07-02 09:32:30 +02:00
} else {
error = error . or_else ( | | {
Some ( ParseError ::Unclosed (
" ) " . into ( ) ,
Span {
start : end ,
end : end + 1 ,
} ,
) )
} ) ;
2021-07-02 09:15:30 +02:00
}
2021-07-03 05:35:15 +02:00
let span = Span { start , end } ;
2021-07-02 09:15:30 +02:00
2021-07-03 05:35:15 +02:00
let source = self . get_span_contents ( span ) ;
2021-07-02 09:15:30 +02:00
2021-07-03 05:35:15 +02:00
let ( output , err ) = lex ( & source , start , crate ::LexMode ::Normal ) ;
2021-07-02 09:15:30 +02:00
error = error . or ( err ) ;
let ( output , err ) = lite_parse ( & output ) ;
error = error . or ( err ) ;
let ( output , err ) = self . parse_block ( & output ) ;
error = error . or ( err ) ;
(
Expression {
expr : Expr ::Subexpression ( Box ::new ( output ) ) ,
span ,
} ,
error ,
)
}
2021-07-06 03:48:45 +02:00
pub fn parse_string ( & mut self , span : Span ) -> ( Expression , Option < ParseError > ) {
let bytes = self . get_span_contents ( span ) ;
if let Ok ( token ) = String ::from_utf8 ( bytes . into ( ) ) {
(
Expression {
expr : Expr ::String ( token ) ,
span ,
} ,
None ,
)
} else {
(
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " string " . into ( ) , span ) ) ,
)
}
}
2021-07-16 08:24:46 +02:00
pub fn parse_type ( & self , bytes : & [ u8 ] ) -> Type {
if bytes = = b " int " {
Type ::Int
} else {
Type ::Unknown
}
}
pub fn parse_var_with_opt_type (
& mut self ,
spans : & [ Span ] ,
spans_idx : & mut usize ,
) -> ( Expression , Option < ParseError > ) {
let bytes = self . get_span_contents ( spans [ * spans_idx ] ) . to_vec ( ) ;
if bytes . ends_with ( b " : " ) {
// We end with colon, so the next span should be the type
if * spans_idx + 1 < spans . len ( ) {
* spans_idx + = 1 ;
let type_bytes = self . get_span_contents ( spans [ * spans_idx ] ) ;
let ty = self . parse_type ( type_bytes ) ;
* spans_idx + = 1 ;
let id = self . add_variable ( bytes [ 0 .. ( bytes . len ( ) - 1 ) ] . to_vec ( ) , ty ) ;
(
Expression {
expr : Expr ::Var ( id ) ,
span : span ( & spans [ * spans_idx - 2 .. * spans_idx ] ) ,
} ,
None ,
)
} else {
let id = self . add_variable ( bytes [ 0 .. ( bytes . len ( ) - 1 ) ] . to_vec ( ) , Type ::Unknown ) ;
* spans_idx + = 1 ;
(
Expression {
expr : Expr ::Var ( id ) ,
span : spans [ * spans_idx ] ,
} ,
Some ( ParseError ::MissingType ( spans [ * spans_idx ] ) ) ,
)
}
} else {
let id = self . add_variable ( bytes , Type ::Unknown ) ;
* spans_idx + = 1 ;
(
Expression {
expr : Expr ::Var ( id ) ,
span : span ( & spans [ * spans_idx - 1 .. * spans_idx ] ) ,
} ,
None ,
)
}
}
2021-07-08 00:55:46 +02:00
pub fn parse_row_condition ( & mut self , spans : & [ Span ] ) -> ( Expression , Option < ParseError > ) {
self . parse_math_expression ( spans )
}
2021-07-08 09:49:17 +02:00
pub fn parse_list_expression (
& mut self ,
span : Span ,
element_shape : & SyntaxShape ,
) -> ( Expression , Option < ParseError > ) {
let bytes = self . get_span_contents ( span ) ;
let mut error = None ;
let mut start = span . start ;
let mut end = span . end ;
if bytes . starts_with ( b " [ " ) {
start + = 1 ;
}
if bytes . ends_with ( b " ] " ) {
end - = 1 ;
} else {
error = error . or_else ( | | {
Some ( ParseError ::Unclosed (
" ] " . into ( ) ,
Span {
start : end ,
end : end + 1 ,
} ,
) )
} ) ;
}
let span = Span { start , end } ;
let source = & self . file_contents [ .. span . end ] ;
let ( output , err ) = lex ( & source , span . start , crate ::LexMode ::CommaAndNewlineIsSpace ) ;
error = error . or ( err ) ;
let ( output , err ) = lite_parse ( & output ) ;
error = error . or ( err ) ;
let mut args = vec! [ ] ;
2021-07-08 23:45:56 +02:00
2021-07-16 08:24:46 +02:00
if ! output . block . is_empty ( ) {
for arg in & output . block [ 0 ] . commands {
let mut spans_idx = 0 ;
2021-07-08 09:49:17 +02:00
2021-07-16 08:24:46 +02:00
while spans_idx < arg . parts . len ( ) {
let ( arg , err ) = self . parse_multispan_value (
& arg . parts ,
& mut spans_idx ,
element_shape . clone ( ) ,
) ;
error = error . or ( err ) ;
2021-07-08 23:45:56 +02:00
2021-07-16 08:24:46 +02:00
args . push ( arg ) ;
spans_idx + = 1 ;
}
2021-07-08 09:49:17 +02:00
}
}
(
Expression {
expr : Expr ::List ( args ) ,
span ,
} ,
error ,
)
}
2021-07-06 00:58:56 +02:00
pub fn parse_table_expression ( & mut self , span : Span ) -> ( Expression , Option < ParseError > ) {
let bytes = self . get_span_contents ( span ) ;
let mut error = None ;
let mut start = span . start ;
let mut end = span . end ;
if bytes . starts_with ( b " [ " ) {
start + = 1 ;
}
if bytes . ends_with ( b " ] " ) {
end - = 1 ;
} else {
error = error . or_else ( | | {
Some ( ParseError ::Unclosed (
" ] " . into ( ) ,
Span {
start : end ,
end : end + 1 ,
} ,
) )
} ) ;
}
let span = Span { start , end } ;
let source = & self . file_contents [ .. end ] ;
2021-07-06 03:48:45 +02:00
let ( output , err ) = lex ( & source , start , crate ::LexMode ::CommaAndNewlineIsSpace ) ;
2021-07-06 00:58:56 +02:00
error = error . or ( err ) ;
let ( output , err ) = lite_parse ( & output ) ;
error = error . or ( err ) ;
match output . block . len ( ) {
0 = > (
Expression {
expr : Expr ::List ( vec! [ ] ) ,
span ,
} ,
None ,
) ,
1 = > {
// List
2021-07-08 09:49:17 +02:00
self . parse_list_expression ( span , & SyntaxShape ::Any )
2021-07-06 00:58:56 +02:00
}
2021-07-06 03:48:45 +02:00
_ = > {
let mut table_headers = vec! [ ] ;
let ( headers , err ) =
2021-07-08 23:31:08 +02:00
self . parse_value ( output . block [ 0 ] . commands [ 0 ] . parts [ 0 ] , SyntaxShape ::Table ) ;
2021-07-06 03:48:45 +02:00
error = error . or ( err ) ;
if let Expression {
expr : Expr ::List ( headers ) ,
..
} = headers
{
table_headers = headers ;
}
let mut rows = vec! [ ] ;
for part in & output . block [ 1 ] . commands [ 0 ] . parts {
2021-07-08 23:31:08 +02:00
let ( values , err ) = self . parse_value ( * part , SyntaxShape ::Table ) ;
2021-07-06 03:48:45 +02:00
error = error . or ( err ) ;
if let Expression {
expr : Expr ::List ( values ) ,
..
} = values
{
rows . push ( values ) ;
}
}
(
Expression {
expr : Expr ::Table ( table_headers , rows ) ,
span ,
} ,
error ,
)
}
2021-07-06 00:58:56 +02:00
}
}
2021-07-02 09:32:30 +02:00
pub fn parse_block_expression ( & mut self , span : Span ) -> ( Expression , Option < ParseError > ) {
let bytes = self . get_span_contents ( span ) ;
let mut error = None ;
let mut start = span . start ;
let mut end = span . end ;
if bytes . starts_with ( b " { " ) {
start + = 1 ;
2021-07-06 03:48:45 +02:00
} else {
return (
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " block " . into ( ) , span ) ) ,
) ;
2021-07-02 09:32:30 +02:00
}
if bytes . ends_with ( b " } " ) {
end - = 1 ;
} else {
error = error . or_else ( | | {
Some ( ParseError ::Unclosed (
" } " . into ( ) ,
Span {
start : end ,
end : end + 1 ,
} ,
) )
} ) ;
}
2021-07-03 05:35:15 +02:00
let span = Span { start , end } ;
2021-07-02 09:32:30 +02:00
2021-07-03 05:35:15 +02:00
let source = & self . file_contents [ .. end ] ;
2021-07-02 09:32:30 +02:00
2021-07-03 05:35:15 +02:00
let ( output , err ) = lex ( & source , start , crate ::LexMode ::Normal ) ;
2021-07-02 09:32:30 +02:00
error = error . or ( err ) ;
let ( output , err ) = lite_parse ( & output ) ;
error = error . or ( err ) ;
let ( output , err ) = self . parse_block ( & output ) ;
error = error . or ( err ) ;
println! ( " {:?} {:?} " , output , error ) ;
(
Expression {
expr : Expr ::Block ( Box ::new ( output ) ) ,
span ,
} ,
error ,
)
}
2021-07-08 23:31:08 +02:00
pub fn parse_value (
2021-07-01 02:01:04 +02:00
& mut self ,
span : Span ,
shape : SyntaxShape ,
) -> ( Expression , Option < ParseError > ) {
2021-07-01 03:31:02 +02:00
let bytes = self . get_span_contents ( span ) ;
2021-07-08 08:57:24 +02:00
// First, check the special-cases. These will likely represent specific values as expressions
// and may fit a variety of shapes.
//
// We check variable first because immediately following we check for variables with column paths
// which might result in a value that fits other shapes (and require the variable to already be
// declared)
2021-07-08 08:19:38 +02:00
if shape = = SyntaxShape ::Variable {
return self . parse_variable_expr ( span ) ;
} else if bytes . starts_with ( b " $ " ) {
2021-07-02 09:15:30 +02:00
return self . parse_dollar_expr ( span ) ;
} else if bytes . starts_with ( b " ( " ) {
return self . parse_full_column_path ( span ) ;
2021-07-08 23:45:56 +02:00
} else if bytes . starts_with ( b " [ " ) {
match shape {
SyntaxShape ::Any | SyntaxShape ::List ( _ ) | SyntaxShape ::Table = > { }
_ = > {
return (
Expression ::garbage ( span ) ,
Some ( ParseError ::Mismatch ( " non-table/non-list " . into ( ) , span ) ) ,
) ;
}
}
2021-07-01 03:31:02 +02:00
}
2021-07-01 02:01:04 +02:00
match shape {
SyntaxShape ::Number = > {
2021-07-01 03:31:02 +02:00
if let Ok ( token ) = String ::from_utf8 ( bytes . into ( ) ) {
2021-07-01 02:01:04 +02:00
self . parse_number ( & token , span )
} else {
(
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " number " . into ( ) , span ) ) ,
)
}
}
2021-07-02 00:40:08 +02:00
SyntaxShape ::Int = > {
if let Ok ( token ) = String ::from_utf8 ( bytes . into ( ) ) {
self . parse_int ( & token , span )
} else {
(
garbage ( span ) ,
2021-07-08 00:55:46 +02:00
Some ( ParseError ::Mismatch ( " int " . into ( ) , span ) ) ,
)
}
}
SyntaxShape ::Literal ( literal ) = > {
if bytes = = literal {
(
Expression {
expr : Expr ::Literal ( literal ) ,
span ,
} ,
None ,
)
} else {
(
garbage ( span ) ,
Some ( ParseError ::Mismatch (
format! ( " keyword ' {} ' " , String ::from_utf8_lossy ( & literal ) ) ,
span ,
) ) ,
2021-07-02 00:40:08 +02:00
)
}
}
2021-07-08 08:19:38 +02:00
SyntaxShape ::String | SyntaxShape ::GlobPattern | SyntaxShape ::FilePath = > {
self . parse_string ( span )
}
2021-07-08 09:49:17 +02:00
SyntaxShape ::Block = > {
if bytes . starts_with ( b " { " ) {
self . parse_block_expression ( span )
} else {
(
Expression ::garbage ( span ) ,
Some ( ParseError ::Mismatch ( " table " . into ( ) , span ) ) ,
)
}
}
2021-07-09 08:23:20 +02:00
SyntaxShape ::List ( elem ) = > {
if bytes . starts_with ( b " [ " ) {
self . parse_list_expression ( span , & elem )
} else {
(
Expression ::garbage ( span ) ,
Some ( ParseError ::Mismatch ( " list " . into ( ) , span ) ) ,
)
}
}
2021-07-08 09:49:17 +02:00
SyntaxShape ::Table = > {
if bytes . starts_with ( b " [ " ) {
self . parse_table_expression ( span )
} else {
(
Expression ::garbage ( span ) ,
Some ( ParseError ::Mismatch ( " table " . into ( ) , span ) ) ,
)
}
}
2021-07-02 08:44:37 +02:00
SyntaxShape ::Any = > {
2021-07-09 08:23:20 +02:00
let shapes = [
2021-07-02 08:44:37 +02:00
SyntaxShape ::Int ,
SyntaxShape ::Number ,
SyntaxShape ::Range ,
SyntaxShape ::Filesize ,
SyntaxShape ::Duration ,
SyntaxShape ::Block ,
SyntaxShape ::Table ,
2021-07-09 08:23:20 +02:00
SyntaxShape ::List ( Box ::new ( SyntaxShape ::Any ) ) ,
2021-07-02 08:44:37 +02:00
SyntaxShape ::String ,
] ;
for shape in shapes . iter ( ) {
2021-07-08 23:31:08 +02:00
if let ( s , None ) = self . parse_value ( span , shape . clone ( ) ) {
2021-07-02 08:44:37 +02:00
return ( s , None ) ;
}
}
(
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " any shape " . into ( ) , span ) ) ,
)
}
2021-07-01 02:01:04 +02:00
_ = > (
garbage ( span ) ,
2021-07-08 00:55:46 +02:00
Some ( ParseError ::Mismatch ( " incomplete parser " . into ( ) , span ) ) ,
2021-07-01 02:01:04 +02:00
) ,
}
}
2021-07-02 08:44:37 +02:00
pub fn parse_operator ( & mut self , span : Span ) -> ( Expression , Option < ParseError > ) {
let contents = self . get_span_contents ( span ) ;
let operator = match contents {
b " == " = > Operator ::Equal ,
b " != " = > Operator ::NotEqual ,
b " < " = > Operator ::LessThan ,
b " <= " = > Operator ::LessThanOrEqual ,
b " > " = > Operator ::GreaterThan ,
b " >= " = > Operator ::GreaterThanOrEqual ,
b " =~ " = > Operator ::Contains ,
b " !~ " = > Operator ::NotContains ,
b " + " = > Operator ::Plus ,
b " - " = > Operator ::Minus ,
b " * " = > Operator ::Multiply ,
b " / " = > Operator ::Divide ,
b " in " = > Operator ::In ,
b " not-in " = > Operator ::NotIn ,
b " mod " = > Operator ::Modulo ,
b " && " = > Operator ::And ,
b " || " = > Operator ::Or ,
b " ** " = > Operator ::Pow ,
_ = > {
return (
garbage ( span ) ,
Some ( ParseError ::Mismatch ( " operator " . into ( ) , span ) ) ,
) ;
}
} ;
(
Expression {
expr : Expr ::Operator ( operator ) ,
span ,
} ,
None ,
)
}
2021-07-01 02:01:04 +02:00
pub fn parse_math_expression ( & mut self , spans : & [ Span ] ) -> ( Expression , Option < ParseError > ) {
2021-07-02 08:44:37 +02:00
// As the expr_stack grows, we increase the required precedence to grow larger
// If, at any time, the operator we're looking at is the same or lower precedence
// of what is in the expression stack, we collapse the expression stack.
//
// This leads to an expression stack that grows under increasing precedence and collapses
// under decreasing/sustained precedence
//
// The end result is a stack that we can fold into binary operations as right associations
// safely.
let mut expr_stack : Vec < Expression > = vec! [ ] ;
let mut idx = 0 ;
let mut last_prec = 1000000 ;
let mut error = None ;
2021-07-08 23:31:08 +02:00
let ( lhs , err ) = self . parse_value ( spans [ 0 ] , SyntaxShape ::Any ) ;
2021-07-02 08:44:37 +02:00
error = error . or ( err ) ;
idx + = 1 ;
expr_stack . push ( lhs ) ;
while idx < spans . len ( ) {
2021-07-16 03:10:22 +02:00
println! ( " idx: {} " , idx ) ;
2021-07-02 08:44:37 +02:00
let ( op , err ) = self . parse_operator ( spans [ idx ] ) ;
error = error . or ( err ) ;
let op_prec = op . precedence ( ) ;
idx + = 1 ;
if idx = = spans . len ( ) {
// Handle broken math expr `1 +` etc
error = error . or ( Some ( ParseError ::IncompleteMathExpression ( spans [ idx - 1 ] ) ) ) ;
break ;
}
2021-07-08 23:31:08 +02:00
let ( rhs , err ) = self . parse_value ( spans [ idx ] , SyntaxShape ::Any ) ;
2021-07-02 08:44:37 +02:00
error = error . or ( err ) ;
if op_prec < = last_prec {
while expr_stack . len ( ) > 1 {
// Collapse the right associated operations first
// so that we can get back to a stack with a lower precedence
let rhs = expr_stack
. pop ( )
. expect ( " internal error: expression stack empty " ) ;
let op = expr_stack
. pop ( )
. expect ( " internal error: expression stack empty " ) ;
let lhs = expr_stack
. pop ( )
. expect ( " internal error: expression stack empty " ) ;
let op_span = span ( & [ lhs . span , rhs . span ] ) ;
expr_stack . push ( Expression {
expr : Expr ::BinaryOp ( Box ::new ( lhs ) , Box ::new ( op ) , Box ::new ( rhs ) ) ,
span : op_span ,
} ) ;
}
}
expr_stack . push ( op ) ;
expr_stack . push ( rhs ) ;
last_prec = op_prec ;
idx + = 1 ;
}
while expr_stack . len ( ) ! = 1 {
let rhs = expr_stack
. pop ( )
. expect ( " internal error: expression stack empty " ) ;
let op = expr_stack
. pop ( )
. expect ( " internal error: expression stack empty " ) ;
let lhs = expr_stack
. pop ( )
. expect ( " internal error: expression stack empty " ) ;
let binary_op_span = span ( & [ lhs . span , rhs . span ] ) ;
expr_stack . push ( Expression {
expr : Expr ::BinaryOp ( Box ::new ( lhs ) , Box ::new ( op ) , Box ::new ( rhs ) ) ,
span : binary_op_span ,
} ) ;
}
let output = expr_stack
. pop ( )
. expect ( " internal error: expression stack empty " ) ;
( output , error )
2021-07-01 02:01:04 +02:00
}
pub fn parse_expression ( & mut self , spans : & [ Span ] ) -> ( Expression , Option < ParseError > ) {
2021-07-02 00:40:08 +02:00
let bytes = self . get_span_contents ( spans [ 0 ] ) ;
match bytes [ 0 ] {
b '0' | b '1' | b '2' | b '3' | b '4' | b '5' | b '6' | b '7' | b '8' | b '9' | b '(' | b '{'
| b '[' | b '$' = > self . parse_math_expression ( spans ) ,
_ = > self . parse_call ( spans ) ,
}
2021-07-01 02:01:04 +02:00
}
2021-07-01 03:31:02 +02:00
pub fn parse_variable ( & mut self , span : Span ) -> ( Option < VarId > , Option < ParseError > ) {
let bytes = self . get_span_contents ( span ) ;
2021-07-01 02:01:04 +02:00
2021-07-01 03:31:02 +02:00
if is_variable ( bytes ) {
2021-07-01 08:09:55 +02:00
if let Some ( var_id ) = self . find_variable ( bytes ) {
2021-07-01 03:31:02 +02:00
( Some ( var_id ) , None )
} else {
( None , None )
}
2021-07-01 02:01:04 +02:00
} else {
2021-07-01 03:31:02 +02:00
( None , Some ( ParseError ::Mismatch ( " variable " . into ( ) , span ) ) )
2021-07-01 02:01:04 +02:00
}
}
pub fn parse_keyword ( & self , span : Span , keyword : & [ u8 ] ) -> Option < ParseError > {
if self . get_span_contents ( span ) = = keyword {
None
} else {
Some ( ParseError ::Mismatch (
String ::from_utf8_lossy ( keyword ) . to_string ( ) ,
span ,
) )
}
}
2021-07-16 08:24:46 +02:00
pub fn parse_def ( & mut self , spans : & [ Span ] ) -> ( Statement , Option < ParseError > ) {
let name = self . get_span_contents ( spans [ 0 ] ) ;
if name = = b " def " {
if let Some ( decl_id ) = self . find_decl ( b " def " ) {
let ( mut call , call_span , err ) = self . parse_internal_call ( spans , decl_id ) ;
if err . is_some ( ) {
return (
Statement ::Expression ( Expression {
expr : Expr ::Call ( call ) ,
span : call_span ,
} ) ,
err ,
) ;
} else {
println! ( " {:?} " , call ) ;
let name = call
. positional
. remove ( 0 )
. as_string ( )
. expect ( " internal error: expected def name " ) ;
let args = call
. positional
. remove ( 0 )
. as_list ( )
. expect ( " internal error: expected param list " )
. into_iter ( )
. map ( | x | x . as_var ( ) . expect ( " internal error: expected parameter " ) )
. collect ::< Vec < _ > > ( ) ;
let block = call
. positional
. remove ( 0 )
. as_block ( )
. expect ( " internal error: expected block " ) ;
let block_id = self . add_block ( block ) ;
let decl = Declaration {
signature : Signature ::new ( name ) ,
body : Some ( block_id ) ,
} ;
let decl_id = self . add_decl ( decl ) ;
return ( Statement ::Declaration ( decl_id ) , None ) ;
}
}
}
(
Statement ::Expression ( Expression {
expr : Expr ::Garbage ,
span : span ( spans ) ,
} ) ,
Some ( ParseError ::UnknownState (
" internal error: let statement unparseable " . into ( ) ,
span ( spans ) ,
) ) ,
)
}
2021-07-01 02:01:04 +02:00
pub fn parse_let ( & mut self , spans : & [ Span ] ) -> ( Statement , Option < ParseError > ) {
2021-07-08 09:20:01 +02:00
let name = self . get_span_contents ( spans [ 0 ] ) ;
2021-07-08 08:19:38 +02:00
2021-07-08 09:20:01 +02:00
if name = = b " let " {
if let Some ( decl_id ) = self . find_decl ( b " let " ) {
let ( mut call , call_span , err ) = self . parse_internal_call ( spans , decl_id ) ;
if err . is_some ( ) {
return (
Statement ::Expression ( Expression {
expr : Expr ::Call ( call ) ,
span : call_span ,
} ) ,
err ,
) ;
} else if let Expression {
expr : Expr ::Var ( var_id ) ,
..
} = call . positional [ 0 ]
{
let expression = call . positional . swap_remove ( 2 ) ;
return ( Statement ::VarDecl ( VarDecl { var_id , expression } ) , None ) ;
}
2021-07-08 08:19:38 +02:00
}
}
(
Statement ::Expression ( Expression {
expr : Expr ::Garbage ,
span : span ( spans ) ,
} ) ,
Some ( ParseError ::UnknownState (
" internal error: let statement unparseable " . into ( ) ,
span ( spans ) ,
) ) ,
)
2021-07-01 02:01:04 +02:00
}
pub fn parse_statement ( & mut self , spans : & [ Span ] ) -> ( Statement , Option < ParseError > ) {
2021-07-16 08:24:46 +02:00
// FIXME: improve errors by checking keyword first
if let ( decl , None ) = self . parse_def ( spans ) {
( decl , None )
} else if let ( stmt , None ) = self . parse_let ( spans ) {
2021-07-01 02:01:04 +02:00
( stmt , None )
} else {
2021-07-02 00:40:08 +02:00
let ( expr , err ) = self . parse_expression ( spans ) ;
( Statement ::Expression ( expr ) , err )
2021-07-01 02:01:04 +02:00
}
}
2021-06-30 03:42:56 +02:00
pub fn parse_block ( & mut self , lite_block : & LiteBlock ) -> ( Block , Option < ParseError > ) {
let mut error = None ;
self . enter_scope ( ) ;
let mut block = Block ::new ( ) ;
for pipeline in & lite_block . block {
2021-07-01 02:01:04 +02:00
let ( stmt , err ) = self . parse_statement ( & pipeline . commands [ 0 ] . parts ) ;
2021-06-30 03:42:56 +02:00
error = error . or ( err ) ;
2021-07-01 02:01:04 +02:00
block . stmts . push ( stmt ) ;
2021-06-30 03:42:56 +02:00
}
self . exit_scope ( ) ;
( block , error )
}
2021-07-03 05:35:15 +02:00
pub fn parse_file ( & mut self , fname : & str , contents : Vec < u8 > ) -> ( Block , Option < ParseError > ) {
2021-06-30 03:42:56 +02:00
let mut error = None ;
2021-07-03 05:35:15 +02:00
let ( output , err ) = lex ( & contents , 0 , crate ::LexMode ::Normal ) ;
2021-07-03 05:11:24 +02:00
error = error . or ( err ) ;
2021-07-03 03:29:56 +02:00
2021-07-03 05:35:15 +02:00
self . add_file ( fname . into ( ) , contents ) ;
2021-06-30 03:42:56 +02:00
let ( output , err ) = lite_parse ( & output ) ;
error = error . or ( err ) ;
let ( output , err ) = self . parse_block ( & output ) ;
error = error . or ( err ) ;
( output , error )
}
2021-07-01 02:01:04 +02:00
pub fn parse_source ( & mut self , source : & [ u8 ] ) -> ( Block , Option < ParseError > ) {
let mut error = None ;
2021-07-03 05:35:15 +02:00
self . add_file ( " source " . into ( ) , source . into ( ) ) ;
2021-07-01 02:01:04 +02:00
2021-07-03 05:35:15 +02:00
let ( output , err ) = lex ( source , 0 , crate ::LexMode ::Normal ) ;
2021-07-01 02:01:04 +02:00
error = error . or ( err ) ;
let ( output , err ) = lite_parse ( & output ) ;
error = error . or ( err ) ;
let ( output , err ) = self . parse_block ( & output ) ;
error = error . or ( err ) ;
( output , error )
}
2021-06-30 03:42:56 +02:00
}
2021-07-02 03:42:25 +02:00
#[ cfg(test) ]
mod tests {
2021-07-02 04:22:54 +02:00
use crate ::{ ParseError , Signature } ;
2021-07-02 03:42:25 +02:00
use super ::* ;
#[ test ]
pub fn parse_int ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let ( block , err ) = working_set . parse_source ( b " 3 " ) ;
assert! ( err . is_none ( ) ) ;
assert! ( block . len ( ) = = 1 ) ;
assert! ( matches! (
block [ 0 ] ,
Statement ::Expression ( Expression {
expr : Expr ::Int ( 3 ) ,
..
} )
) ) ;
}
#[ test ]
pub fn parse_call ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let sig = Signature ::build ( " foo " ) . named ( " --jazz " , SyntaxShape ::Int , " jazz!! " , Some ( 'j' ) ) ;
2021-07-16 08:24:46 +02:00
working_set . add_decl ( sig . into ( ) ) ;
2021-07-02 03:42:25 +02:00
let ( block , err ) = working_set . parse_source ( b " foo " ) ;
assert! ( err . is_none ( ) ) ;
assert! ( block . len ( ) = = 1 ) ;
2021-07-02 21:30:03 +02:00
match & block [ 0 ] {
2021-07-02 03:42:25 +02:00
Statement ::Expression ( Expression {
2021-07-02 21:30:03 +02:00
expr : Expr ::Call ( call ) ,
2021-07-02 03:42:25 +02:00
..
2021-07-02 21:30:03 +02:00
} ) = > {
assert_eq! ( call . decl_id , 0 ) ;
}
_ = > panic! ( " not a call " ) ,
}
2021-07-02 03:42:25 +02:00
}
2021-07-02 04:22:54 +02:00
#[ test ]
pub fn parse_call_missing_flag_arg ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let sig = Signature ::build ( " foo " ) . named ( " --jazz " , SyntaxShape ::Int , " jazz!! " , Some ( 'j' ) ) ;
2021-07-16 08:24:46 +02:00
working_set . add_decl ( sig . into ( ) ) ;
2021-07-02 04:22:54 +02:00
let ( _ , err ) = working_set . parse_source ( b " foo --jazz " ) ;
assert! ( matches! ( err , Some ( ParseError ::MissingFlagParam ( .. ) ) ) ) ;
}
#[ test ]
pub fn parse_call_missing_short_flag_arg ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let sig = Signature ::build ( " foo " ) . named ( " --jazz " , SyntaxShape ::Int , " jazz!! " , Some ( 'j' ) ) ;
2021-07-16 08:24:46 +02:00
working_set . add_decl ( sig . into ( ) ) ;
2021-07-02 04:22:54 +02:00
let ( _ , err ) = working_set . parse_source ( b " foo -j " ) ;
assert! ( matches! ( err , Some ( ParseError ::MissingFlagParam ( .. ) ) ) ) ;
}
#[ test ]
pub fn parse_call_too_many_shortflag_args ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let sig = Signature ::build ( " foo " )
. named ( " --jazz " , SyntaxShape ::Int , " jazz!! " , Some ( 'j' ) )
. named ( " --math " , SyntaxShape ::Int , " math!! " , Some ( 'm' ) ) ;
2021-07-16 08:24:46 +02:00
working_set . add_decl ( sig . into ( ) ) ;
2021-07-02 04:22:54 +02:00
let ( _ , err ) = working_set . parse_source ( b " foo -mj " ) ;
assert! ( matches! (
err ,
Some ( ParseError ::ShortFlagBatchCantTakeArg ( .. ) )
) ) ;
}
#[ test ]
pub fn parse_call_unknown_shorthand ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let sig = Signature ::build ( " foo " ) . switch ( " --jazz " , " jazz!! " , Some ( 'j' ) ) ;
2021-07-16 08:24:46 +02:00
working_set . add_decl ( sig . into ( ) ) ;
2021-07-02 04:22:54 +02:00
let ( _ , err ) = working_set . parse_source ( b " foo -mj " ) ;
assert! ( matches! ( err , Some ( ParseError ::UnknownFlag ( .. ) ) ) ) ;
}
#[ test ]
pub fn parse_call_extra_positional ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let sig = Signature ::build ( " foo " ) . switch ( " --jazz " , " jazz!! " , Some ( 'j' ) ) ;
2021-07-16 08:24:46 +02:00
working_set . add_decl ( sig . into ( ) ) ;
2021-07-02 04:22:54 +02:00
let ( _ , err ) = working_set . parse_source ( b " foo -j 100 " ) ;
assert! ( matches! ( err , Some ( ParseError ::ExtraPositional ( .. ) ) ) ) ;
}
#[ test ]
pub fn parse_call_missing_req_positional ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let sig = Signature ::build ( " foo " ) . required ( " jazz " , SyntaxShape ::Int , " jazz!! " ) ;
2021-07-16 08:24:46 +02:00
working_set . add_decl ( sig . into ( ) ) ;
2021-07-02 04:22:54 +02:00
let ( _ , err ) = working_set . parse_source ( b " foo " ) ;
assert! ( matches! ( err , Some ( ParseError ::MissingPositional ( .. ) ) ) ) ;
}
#[ test ]
pub fn parse_call_missing_req_flag ( ) {
let mut working_set = ParserWorkingSet ::new ( None ) ;
let sig =
Signature ::build ( " foo " ) . required_named ( " --jazz " , SyntaxShape ::Int , " jazz!! " , None ) ;
2021-07-16 08:24:46 +02:00
working_set . add_decl ( sig . into ( ) ) ;
2021-07-02 04:22:54 +02:00
let ( _ , err ) = working_set . parse_source ( b " foo " ) ;
assert! ( matches! ( err , Some ( ParseError ::MissingRequiredFlag ( .. ) ) ) ) ;
}
2021-07-02 03:42:25 +02:00
}