39 lines
722 B
Plaintext
39 lines
722 B
Plaintext
:arf
|
|
---
|
|
type ro aBasic:Obj
|
|
ro that:Int
|
|
ro this:Int
|
|
|
|
type ro bBitFields:Obj
|
|
ro that:Int & 1
|
|
ro this:Int 298 & 24
|
|
|
|
type ro cInit:Obj
|
|
ro that:String 'hello world'
|
|
ro this:Int 23
|
|
|
|
# the semantic analyzer should let these sections restrict the permissions of
|
|
# inherited members, but it should not let the sections lessen the permissions.
|
|
type ro dInitInherit:aBasic
|
|
ro that 9384
|
|
ro this 389
|
|
|
|
type ro eInitAndDefine:aBasic
|
|
ro this 389
|
|
ro that 9384
|
|
ro born:Int 4
|
|
ro in:Int
|
|
ro the:Int:3 (9348 92384 92834)
|
|
ro walls:String 'live in the walls, die in the walls.'
|
|
|
|
type ro fBasic:Int
|
|
|
|
type ro gBasicInit:Int 6
|
|
|
|
type ro hIntArray:{Int ..}
|
|
|
|
type ro iIntArrayInit:Int:3
|
|
(3298 923 92)
|
|
|
|
type ro jAtEnd:Int
|