r-koubou / kspsyntaxparser Goto Github PK

declare $num := ( 2 * 3 ) + 1  {OK}

declare $num := (2 * 3 ) + 1  {NG:Syntax Error}

declare $num := 7
or
declare $num := 2 * 3 + 1

declare $num := (2 * 3 ) + 1
{ この場合、(2*3)が配列初期化として誤検出されてしまう }

                           < := >
                             +
                             |
                           < + >
                             |
                +------------+-----------+
                |                        |
       <Array Initializer>               1
                |
                + 
              < * > index[ 0 ]
                +
                |
            +--------+
            |        |
            2        3

declare const $size := 1*2+1  { operator includes }
declare %array[$size]         { OK }

or

declare const $size := 3      { Literal }
declare %array[$size]         { OK }

declare const $size := 1*2+1  { operator includes }
declare %array[$size]         { Parser Error: "%array: Invalid array size" }

or

declare const $size := 3      { Literal }
declare %array[$size]         { OK }

on init
    message( %CC[0] ) {OK}
end on

on init
    message( %CC[0] ) {Error: Index Out of bounds}
end on

on init
  declare ~real_test
  ~real_test := abs(1.0)
end on

on init
    declare $i := 0 {OK: 0 is constant value}
    declare $k := get_engine_par( $ENGINE_PAR_VOLUME,-1,-1,-1 )
    {NG: Command may returns non constant value}
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
end on

on init
    declare $i := 0 {OK: 0 is constant value}
    declare $k := get_engine_par( $ENGINE_PAR_VOLUME,-1,-1,-1 )   {OK: Allowed}
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
end on

on __pgs_changed
{
    code
}
end on

message( "Hello" )              {OK}
message( $variable )            {OK}
message( "Hello" & $variable )  {OK}
message( 100 )                  {OK}
message( 1.0 )                  {OK}
message( %array )               {NG:It is correct}

message( "Hello" )              {OK}
message( $variable )            {NG->BUG}
message( "Hello" & $variable )  {OK}
message( 100 )                  {NG->BUG}
message( 1.0 )                  {NG->BUG}
message( %array )               {NG:It is correct}

@str := "value: " & 1 + 2 + 3  {OK: @str is "value6" }

@str := "value: " & 1 + 2 + 3 {NG: 型の不一致として検出している}

@str := "value: " & (1 + 2 + 3) 
{他のプログラミング言語の多くはこのように記述しないと論理的な理由でエラーになります}
{変な癖（？）がついてしまうとKSP以外の言語で苦労します。強要はしませんが、習慣化されることを推奨します}

@str := "Value: " & 1 + 2

               < := >
                 +
                 |
         +-------+------+
         |              |
        @str            |
                      < + >  Left node: String, Right node: Integer
                        |
                +-------+--------+
                |                |
                +                2
              < & >
                +
                |
            +----+----+
            |         |
        "Value: "     1

@str := "Hello" {OK}
@str := 0       {OK}
@str := 0.0     {OK}

@str := "Hello" {OK}
@str := 0       {NG: integer value is Invalid type}
@str := 0.0     {NG: real value is Invalid type}