hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refactored compiler code abit

Browse Source
This commit is contained in:
hyunghwan.chung
2017-03-08 14:48:12 +00:00
parent 308318b615
commit 8bf134e8e3
3 changed files with 40 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
moo/kernel/Apex.moo
View File

@ -408,30 +408,39 @@ class UndefinedObject(Apex)
}
class Error(Apex)
{
}
pooldic Error.Code
{
GENERIC := error(0).
NOIMPL := error(1).
SYSERR := error(2).
INTERN := error(3).
SYSMEM := error(4).
OOMEM := error(5).
INVAL := error(6).
NOENT := error(7).
EGENERIC := error(0).
ENOIMPL := error(1).
ESYSERR := error(2).
EINTERN := error(3).
ESYSMEM := error(4).
EOOMEM := error(5).
EINVAL := error(6).
ENOENT := error(7).
(* add more items... *)
}
(*pooldic Error.Code2
{
>> CAN I SUPPORT this kind of redefnition? as of now, it's not accepted because
>> Error.Code2.EGENERIC is not a literal. Should i treate pooldic members as a constant
>> and treat it as if it's a literal like? then even if the defined value changes,
>> the definition here won't see the change... what is the best way to tackle this issue?
EGENERIC := Error.Code2.EGENERIC.
}*)
extend Error
{
(* ----------------------------
TODO: support constant declaration...
TODO: support nested pooldic/constant declaration...
#const
pooldic/const
{
NONE := error(0).
GENERIC := error(1).

6
moo/kernel/Collect.moo
View File

@ -29,7 +29,7 @@ class Collection(Object)
method detect: block
{
self do: [ :el | if (block value: el) { ^el } ].
^Error.Code.NOENT
^Error.Code.ENOENT
}
method detect: block ifNone: exception_block
@ -229,7 +229,7 @@ class Set(Collection)
}.
##upsert ifFalse: [^ErrorCode.NOENT].
if (upsert) {} else { ^Error.Code.NOENT }.
if (upsert) {} else { ^Error.Code.ENOENT }.
ntally := self.tally + 1.
if (ntally >= bs)
@ -316,7 +316,7 @@ class Set(Collection)
index := (index + 1) rem: bs.
}.
^Error.Code.NOENT.
^Error.Code.ENOENT.
}
method __remove_at: index