- #include
- #pragma
- class
- interface
- pooldic
#! comment text
// comment text
/* comment text */
-
200 decimal integer
-
2r1100 binary integer
-
16rFF00 hexadecimal integer
-
20p9999.99 fixed-point decimal where 20 is the number of digits after the point
-
999.9 fixed-point decimal
-
$X character
-
C'X' -> charcter??
-
C"X" -> character??
-
'XXXX' string literal
-
"XXXX" string litearl with escaping
-
B'XXXXXX' -> byte array literal
-
B"XXXXX" -> byte array literal with escaping
-
#XXXX symbol
-
#'XXXX' quoted symbol
-
#"XXXX" quoted symbol with escaping
-
#\e123 Error literal
-
#\pB8000000 SmallPointer(smptr) literal
-
#() Array. Comma as element delimiter is optional
-
#[] ByteArray. Comma as element delimiter is optional #[ 16r10, 16r20, 16r30 ] #[ "\x10\x20", "\x30" ]
-
#{} Dictionary - not supported yet
The followings are not literals. The followings forms expressions.
- ##() Array expression. Comma required to delimit elements
- ##[] ByteArray expression. Comma required to delimit elements
- ##{} Dictionary expression. Comma required to delimit elements
The followings are not implemented. but can i do something like these?
- S#[] String literal with each character specified. S%{A B C '\n'}
- S#{} String with dynamic expression
- S#{ 65 asCharacter, 64 asCharacter }
class MyClass(Object)
{
method show: this
{
}
}
Class attributes
The word class can be followed by attribute list enclosed in parenthesis. e.g.) class(#limited,#immutable)
- #limited - not instantiable with new.
- #immutable - instantiated object to be read-only.
- #final - disallow subclasses.
- #uncopyable - instantiated object not to be copied.
- #byte, #character, #halfword, #word, #liword, #pointer - specify the type of a non-pointer object. a non-pointer type can have an additional size enclosed in parenthesis. e.g.) #character(2) a non-pointer object is not allowed to have named instanced variables. a non-pointer object is always variable indexed.
- #pointer - specify a pointer variable indexed object. an instantiate object can have extra object pointers in additon to named instance variables.
class(#word(2)) X(Object) { }
X new -> create an object with 2 words.
X new: 4 -> create an object with 6 words.
if an object is asked to instantiate with trailer in the class defintion, it becomes uncopyable, without the #uncopyable attribute.
class Shader(Object) from 'shader'
{
// if the shaer module calls moo_setclasstrsize(), an instance of Shader is uncopyable
}
pooldic MyData
{
A := 20,
B := 30,
C := 40
}
class MyClass(Object)
{
import MyData.
method x ()
{
MyData.A dump.
C dump. // if imported, it doesn't require prefixing with MyData.
}
}
class MyClass2(Object)
{
pooldic Const
{
A := 20,
B := 30
}
method x()
{
A dump. // the nested pooldic is auto-imported.
Const.A dump.
self.Const dump.
}
}
class MyClass3(MyClass2)
{
pooldic Const
{
A := MyClass2.Const.A // pooldic is not inherited. need redefinition for auto-import
B := MyClass2.Const.B
}
}
class MyClass4(MyClass2)
{
import MyClass2.Const. // similar to redefinition inside the class. it won't be available MyClass4.Const as such is not available.
method x
{
MyClass2.Const at: #XXX put: 'QQQQQQQQQQQQQQ'. // you can add a new item dynamically,
(MyClass2.Const at: #XXX) dump. // and can access it.
// the compiler doesn't recognize the dynamically added item as MyClass2.Const.XXX
}
}
k := if (i < 20) { 30 } else { 40 }.
if (a < 10) { ... }
elif (a < 20) { ... }
else { ... }.
ifnot (i < 20) { 30 } else { 40 }. /* TODO: ifnot or nif? elifnot or elnif? */
if (a < 10) { .. }
elifnot (a > 20) { ... }
else { ... }.
while (true)
{
}.
until (a > b)
{
}.
do
{
} while (a > b).
do
{
} until (a > b).
[a > b] whileTrue: [ ... ].
[a > b] whileFalse: [ ... ].
1 to: 20 do: [:count | ... ].
1 to: 10 by: 3 do: [:count | ... ].
30 timesRepeat: [ ... ].
Exception signal. Exception signal: "message".
[ ... ] on: Exception do: [:ex | ... ].
ex retry. ex resume. ex resume: value. ex return: value.
explicit return operators
^ return_stacktop
^^ local_return
implicit return when the end of the context is reached
- a method context returns the receiver.
- a block context returns the last evaluated value. if nothing has been evaluated, nil is returned.
goto jump_label.
jump_label:
a + b.
goto inside a block context.
[ 1 + 2. goto r. 3 + 4. r: 99 ]
goto must not cross the boundary of the block context.
this is invalid. cannot jump into a block from outside
and vice versa.
goto x.
[ x:
1 + 2 ].
Type checking not implemented yet.
class SampleClass(Object)
{
method run => Integer
{
}
method execute((Integer)a,(Integer)b) => Integer
{
}
method handle: (Object)this with: (a Integer)care => Integer
{
}
}
TODO: How to specify return type of a block? or How to specify parameter type to a block? How to evaluate a block type-safely?
[ :(Integer)a :(Integer)b => Integer |
| (Integer)c (Integer)d }
a + b
] with: 20 with: 10
the method value is a variadic method. and it is a primitive.
[ :a :b | a + b ](1, 20) <---- syntax sugar for [:a :b | a + b] value(1, 20).
[:(Integer)a :(Integer)b => Integer | a + b ] value("kkkk", 20)
-> the first argument violates the expected type.
-> argument types to a method is defined in the method signature.
-> but the block argument types are specified in the block itself.
-> so it doesn't seem natural to achieve type safety without treating 'value' specially.
-> create a shorthand expression for 'value' [:(Integer)a :(Integer)b => (Integer) | a + b ](1, 2)
-> ] followed by ( ===> shorthand expression for value.
-> it looks more sensible to treat this () specially
what looks better as a shorthand expression for block value?
[ :a :b | a + b ](10, 20)
[ 10 + 20 ]() // no arguments
[ :a :b | a + b ]->(10, 20). // -> cannot form a valid binary selector. must exclude it from binary selector patterns
[ 10 + 20 ]->() // if no arugments are required.
continuation?
| a |
a->()? block value?
| (Block)a |
a->()? block value?
ffi := FFI new: 'libc.so.6'.
[
(ffi call: #printf signature: 's|sl>i' arguments: #("[%s ffi test %ld]\n" "sloppy" 12345678)) dump.
(ffi call: #printf signature: 's>i' arguments: #("[%% ffi test %%]\n")) dump.
(ffi call: #puts signature: 's>i' arguments: #("this is ffi test")) dump.
(ffi call: #time signature: 'p>l' arguments: #(#\p0)) dump.
]
ensure: [
ffi close.
].
moo --log /dev/stderr ../kernel/test-001.moo
moo --log /dev/stderr,warn+ ../kernel/test-001.moo