module Qsp.Tokens

type Range = FParsec.Position * FParsec.Position

// [<Struct>]
type TokenType =
    | If
    | ElseIf
    | Else
    | Act
    | Colon
    | End
    | Underscore
    | Exit

    | For
    | To
    | Step

    /// в TS `var` называется `storage.type.js`
    | Type
    | Keyword

    | SharpBeginLoc
    | MinusEndLoc

    | Function
    /// В QSP `comment.line` и `comment.block` объединены
    | Comment

    | Procedure
    | Variable
    /// `keyword.operator.assignment.js`
    ///
    /// `=`
    | OperatorAssignment
    // /// `keyword.operator.arithmetic.js`
    // ///
    // /// `-` `+` `*` `/`
    // | OperatorArithmetic
    // /// `keyword.operator.comparison.js`
    // ///
    // /// `=`
    // | OperatorComparison
    // /// `keyword.operator.relational.js`
    // ///
    // /// `>` `>=` `<` `<=`
    // | OperatorRelational
    /// `punctuation.terminator.statement.js`
    ///
    /// `&`
    | PunctuationTerminatorStatement

    // | UnaryOperator of UnaryOperator : Ast.UnarOp
    // | BinaryOperator of BinaryOperator : Ast.Op
    | UnaryOperator of Ast.UnarOp
    | BinaryOperator of Ast.Op

    // | PunctuationDefinitionStringBegin
    // | PunctuationDefinitionStringEnd
    | StringQuotedDouble
    | StringQuotedSingle
    | StringBraced
    // | ConstantCharacterEscape
    /// `entity.name.label.cs`
    | NameLabel

    /// `punctuation.separator.colon.cs`
    | LabelColon
    /// `punctuation.definition.interpolation.begin.cs`
    ///
    /// `<<`
    | InterpolationBegin
    /// `punctuation.definition.interpolation.end.cs`
    ///
    /// `>>`
    | InterpolationEnd

    | ConstantNumericInteger
type InlineRange =
    {
        Line: int64
        Column1: int64
        Column2: int64
    }
type Token =
    { TokenType: TokenType
      Range: InlineRange }