15.04.2016, 22:59
Gefällt mir gut, das neue Design. Bei der Gelegenheit könnte man mal ein wenig die ShowCases aufräumen/aktualisieren und Bugs beseitigen. Hier ist als Referenz das Highlightning von AIDE und PED. Achte vor allem darauf, dass der Text copy&pastable beleibt, z.B. in Zeile 25 fügst du ein ";" ein, was da nicht hingehört.
[ab3]; comment:
; this is a highlightning test of the AIDE editor
; tokens
optimize 7
Syntax 2
NPrint "string"
If (a.w) Then Print "a is not zero"
result.l = DrawImage_ (*image.Image,*rp.RastPort,100,200)
Poke.s address,0
Poke$ address,0
a$ = Right$("hallo",0)
End
; constant:
#CONSTANT = 12345
; numbers:
x.l = 1234
x.l = $DEADBEEF
x.l = $deadbeef
x.l = %101010101110101
x.l = @"XZY_"
x.l = Peek.l(&x)
f.f = 2.13
; label:
label:
.label2
'locallabel
x.l = Peek.l(?label)
Goto label
; line concatenation
x.l = @@
1
; Token with type
Poke.l &x,1234
; String Escape sequences
a$ = "\\r10\\__THIS_FUNCTION: \\__DATE_GER__,\\__VER_MAJOR\\n\\0A\\0asomething\\bc\\BC\\11\\22"
a$ = "this is a string"
a$ = "this is a non terminated string!
a$ = "this contains an invalid escape sequence: \\__DATA_GER__"
; Types
NEWTYPE.testType
member.l
*rp.RastPort
End NEWTYPE
DEFTYPE.testType test
test.testType\member = 0
test\rp\BitMap = Null
test\rp = (.RastPort)dummy
; assembler
MOVE.l (a0),D0
MOVE.l #12,D0
MOVE.l #$abba,D7
MOVE.l #"x",D0
MOVE.l "x",A0
MOVE.l 0,A0
MOVE.l $1234,D0
; function
Function.l testFunc{x.l,@optional.l}
Function Return x+1
End Function
Statement testStat{a$}
End Statement
x = testFunc{2}
testStat{"Hallo Welt"}
; Macro
Macro testMacro
x.l = `1
End Macro
!testMacro{2}[/ab3]
[ab3]; comment:
; this is a highlightning test of the AIDE editor
; tokens
optimize 7
Syntax 2
NPrint "string"
If (a.w) Then Print "a is not zero"
result.l = DrawImage_ (*image.Image,*rp.RastPort,100,200)
Poke.s address,0
Poke$ address,0
a$ = Right$("hallo",0)
End
; constant:
#CONSTANT = 12345
; numbers:
x.l = 1234
x.l = $DEADBEEF
x.l = $deadbeef
x.l = %101010101110101
x.l = @"XZY_"
x.l = Peek.l(&x)
f.f = 2.13
; label:
label:
.label2
'locallabel
x.l = Peek.l(?label)
Goto label
; line concatenation
x.l = @@
1
; Token with type
Poke.l &x,1234
; String Escape sequences
a$ = "\\r10\\__THIS_FUNCTION: \\__DATE_GER__,\\__VER_MAJOR\\n\\0A\\0asomething\\bc\\BC\\11\\22"
a$ = "this is a string"
a$ = "this is a non terminated string!
a$ = "this contains an invalid escape sequence: \\__DATA_GER__"
; Types
NEWTYPE.testType
member.l
*rp.RastPort
End NEWTYPE
DEFTYPE.testType test
test.testType\member = 0
test\rp\BitMap = Null
test\rp = (.RastPort)dummy
; assembler
MOVE.l (a0),D0
MOVE.l #12,D0
MOVE.l #$abba,D7
MOVE.l #"x",D0
MOVE.l "x",A0
MOVE.l 0,A0
MOVE.l $1234,D0
; function
Function.l testFunc{x.l,@optional.l}
Function Return x+1
End Function
Statement testStat{a$}
End Statement
x = testFunc{2}
testStat{"Hallo Welt"}
; Macro
Macro testMacro
x.l = `1
End Macro
!testMacro{2}[/ab3]