Syntax wishlist/ideas

Class Thing
  name:String
  position:Vector
End

edit: changed my mind, this is probably a bad idea. fine like it's in monkey1

Function Foo()
  x:Int = 20
  y:= 10.0
End

Structure Point
    x:Int
    y:Int
End Structure

Structure PointF
    x:Float
    y:Float
End Structure

#!/bin/monkey

'''
multiline
comments
'''

#If FOO="bar"
#Rem
Print "hello"
#Else
Print "world"
#End
#End

Struct Point
    Field x:Int
    Field y:Int
End

Class Point
    Field x:Int
    Field y:Int
End

Local pt1:Point         = New Point()
Local pt2:Point ptr     = New Point() ' ?
Local pt3:Point ptr     = varptr pt1
Local pt4:Point ptr ptr = varptr pt2  ' ?

Local v1:Vec3=new Vec3
v1.x=0
Local v2:=v1
v2.x=10
Print v1.x    'prints '0' - if Vec3 were a class, would print '10'.

	Local e:SDL_Event
	While SDL_PollEvent( Varptr e )<>0
		If e.type=SDL_QUIT
			Print "Received SDL_QUIT event"
			SDL_DestroyWindow( window )
			window=Null
			Return
		Endif
	Wend

Struct sPoint
    Field x:Int
    Field y:Int
End

Class cPoint
    Field x:Int
    Field y:Int
End

Local a:Int, b:Int

If a = 1
    ' doIt()
End If
b = 2

Local c:Int, d:Int

If c = 1
    ' doIt()
End If d = 2

Local e:Int, f:Int
    
If e = 1
    ' doIt()
End
If f = 2
End If

If foo Then bar()

If foo Then
	bar()
End

If foo Then bar() End

if token == "class" then keyword

if token.toLower() == "class" then keyword

Struct Point
	Field x:Int
	Field y:Int
End

Function Foo()
	Local pt:Point ' stack
	pt.x = 1
	pt.y = 2
	PassAsValue(pt)
	PassAsPointer(VarPtr pt)
End

Class Sprite
	Field position:Point ' heap, because Sprite is a class
	Field size:Point ' heap, because Sprite is a class

	Method Foo()
		Self.position.x = 1
		Self.position.y = 2
		Self.size.x = 10
		Self.size.y = 20
	End
End

If foo
	If x > 10 Then x = 10 Else x = 2
End

If foo
	If x > 10 Then x = 10
Else
	x = 2
End

If foo
If x > 10 Then x = 10
Else
x = 2
End

If foo
	If x > 10 Then x = 10 Else x = 2
End

If foo
	If x > 10 Then x = 10
Else
	x = 2
End

If x > 10 Then x = 10, y = 20 Else x = 2, y = 30

' => If [Expression]
If Optional(tkThen)
    ' Single-Line
    Eat(tkThen)
    list1 = ParseStatementList()
    If Optional(tkElse)
        Eat(tkElse)
        list2 = ParseStatementList()
    End
    Expect(tkNewline)
    return new SingleLineIfStatement(list1, list2)
Else
    ' Multi-Line
    Expect(tkNewline)
    block1 = ParseStatementBlock()
    If Optional(tkElse)
        Eat(tkElse)
        Expect(tkNewline)
        block2 = ParseStatementBlock()
    Endif
    Expect(tkEndIf)
    return new MultiLineIfStatement(block1, block2)
EndIf

    Local a:Int, b:Int
    
    If a = 1
        ' doIt()
    End If
    b = 2

    Local c:Int, d:Int
    
    If c = 1
        ' doIt()
    End If d = 2

    Local e:Int, f:Int
    
    If e = 1
        ' doIt()
    End
    If f = 2
    End If

If [expression]
    [statements]
ElseIf [expression]
    [statements]
Else
    [statements]
EndIf

If [expression] Then [statement]

If [expression] Then [statement] Else [statement]

' If you want to allow 'Then' for blocks:
If [expression] Then [end-of-line]
    [statements]
EndIf


'
' Multiple statements in single-liners (separated by comma)?
'
If [expression] Then [statement1], [statement2], [statement3]

If [expression] Then [statement1], [statement2], [statement3] Else [statement1], [statement2], [statement3]

'
' multiple [statement] separated by comma is a [statement-list]
'
If [expression] Then [statement-list]

If [expression] Then [statement-list] Else [statement-list]

If foo
	If x > 10 Then x = 10 Else x = 2 End
End

If foo
	If x > 10 Then
		x = 10
	Else
		x = 2
	End
End

Class cls Abstract Public Method a:Int() End Method Method b:Int() End Method End Class
Function fun() Local foo:Int, x:Int If foo Then If x> 10 Then
x = 10 Else x = 2 End
End

While x; x -= 1; Wend

If x; x = 0; End
If foo; If x > 10 Then x = 10  Else  x = 2; End
If foo; If x > 10 Then x = 10; Else; x = 2; End

Class cls Abstract; Public; Method a:Int(); End Method; Method b:Int(); End Method; End Class

If True Then Foo("bar")
If True Foo("bar") End

If True
    Foo("bar", "hello", "world")
End
Foo("bar", "hello", "world")

' Putting two things on one line is no problem:

If True Foo("bar", "hello", "world") End Foo("bar", "hello", "world")

' Splitting lines is also not a problem:

If True
    Foo (
         "bar"
         ,"hello"
         , "world"
        ) End
Foo("bar",
    "hello",
    "world"
   )

Foo("bar" "hello" "world")
Local a:Int[] = [1 2 3]
Local b:IntStack = {1 2 3}          ' my idea from the curly braces topic since I think
Local c:IntMap<Int> = {1:2 3:4 5:6} ' Mark will not read it because of the headline ^^

Class cls Abstract Public Method a:Int() End Method Method b:Int() End Method End Class

Class cls Abstract; Public; Method a:Int(); End Method; Method b:Int(); End Method; End Class

If x=0
   Print( "A" )
Else If x=1
   Print( "B" )
Else
  Print( "C" )
Endif

If x=0 ; Print( "A" ) ; Else If x=1 ; Print( "B" ) ; Else ; Print( "C" ) ; Endif

Class
Blah
Extends
Poo
End

Foo(a, b, c) Bar(x, y, z)
Foo(a, b, c) ; Bar(x, y, z) ' better readable

If 1=1 Foo(a, b, c) Bar(x, y, z) End
If 1=1 Foo(a, b, c) ; Bar(x, y, z) End ' looks better

Method Foo:Void(a:Int) ; If a=1 Then Print("Foo") Endif ; EndMethod

' handle semicolons as newline
Method Foo:Void(a:Int) ; If a=1 ; Foo(a, b, c) ; End ; Bar(x, y, z) ; End ' too many semicolons

' ignore line breaks (no semicolons):
Method Foo:Void(a:Int) If a=1 Foo(a, b, c) End Bar(x, y, z) End ' hard to read

' handle line breaks AND semicolons as separator:
Method Foo:Void(a:Int) ; If a=1 Foo(a, b, c) End ; Bar(x, y, z) ; End ' better

' optional keywords make it even easier to read:
Method Foo:Void(a:Int) ; If a=1 Then Foo(a, b, c) Endif ; Bar(x, y, z) ; EndMethod ' even more readable

Function TestFunction:Void()
	Local something:= 1
	#IF BLAH = 1
	#ELSE
	#End
	Print "waa"
End

#rem
Function TestFunction:Void()
	Local something:= 1
	#IF BLAH = 1
	#ELSE
	#End
	#rem
	Print "waa"
End
#end

/*
Function TestFunction:Void()
	Local something:= 1
	#IF BLAH = 1
	#ELSE
	#End
	Print "waa"
End
*/

' single line
'* multi
line *'

Private

Field _width:Float
Field _height:Float									
Field _x1:Float, _y1:Float, _x2:Float, _y2:Float
Field _pivotX:Float = 0						
Field _pivotY:Float = 0							

Public

'************  Read only fields  **************

Method width:Float() Property; Return _width; End
Method height:Float() Property;	Return _height;	End
Method x1:Float() Property; Return _x1; End
Method x2:Float() Property; Return _x2; End
Method y1:Float() Property; Return _y1; End
Method y2:Float() Property; Return _y2; End
Method pivotX:Float() Property; Return _pivotX; End
Method pivotY:Float() Property; Return _pivotY; End

Public
Field width:Float				ReadOnly
Field height:Float				ReadOnly
Field x1:Float, y1:Float, x2:Float, y2:Float	ReadOnly
Field pivotX:Float = 0				ReadOnly
Field pivotY:Float = 0				ReadOnly

Class Color

   Property Red:Float        'read=public (or protected if in a protected block etc), write=always private
   Property Green:Float
   Property Blue:Float
   
   Method New( r:float,g:Float,b:Float )
      Red=r
      Green=g
      Blue=b
   End

End

Class Color

   Property Red:Float()
       Return _r
   Setter( r:Float )
      _r=r
    End

   Private
   Field _r:float...

End

Property Red( r:Float )
   'setter only
End

Property Red:Float()
   'getter only
end

Property Red:Float() 
   'getter
Setter( r:Float )
   'setter1 
Setter( r:Blah )
   'setter2
End

Property Red( r:Float )
   'setter1
Setter( r:Blah )
   'setter2
Getter:Float()
   'getter
End

Property Foo:Float() Get ' generates default getter, doesn't generate a setter
Property Bar:Float() Set ' generates default setter, doesn't generate a getter
Property Hello:Float() ' no code generation
Property World:Float() Get Set ' generates default implementations for both getter and setter

' manually define a setter
Property Foo:Void(value:Float)
	blah = value + 10
End

Property Foo:Float()
	Get:Float()
		Return blah
	End
	Set:Void(value:Float)
		blah = value + 10
	End
End

Property Foo:Float()

      Return blah

Setter( value:Float )

      blah=value

End