changed the error literal notation from error(NNN) to #\NNN.

prohibited the backslash character from forming a binary selector.
renamed quo: to div:, // to mdiv:, \ to mod:
This commit is contained in:
hyunghwan.chung
2018-04-08 17:47:38 +00:00
parent 8a6e2c601c
commit c85bf336ad
7 changed files with 101 additions and 101 deletions

View File

@ -8,17 +8,17 @@ class(#limited) Error(Apex)
pooldic Error.Code
{
ENOERR := error(0).
EGENERIC := error(1).
ENOIMPL := error(2).
ESYSERR := error(3).
EINTERN := error(4).
ESYSMEM := error(5).
EOOMEM := error(6).
EINVAL := error(7).
ENOENT := error(8).
EPERM := error(12).
ERANGE := error(20).
ENOERR := #\0.
EGENERIC := #\1.
ENOIMPL := #\2.
ESYSERR := #\3.
EINTERN := #\4.
ESYSMEM := #\5.
EOOMEM := #\6.
EINVAL := #\7.
ENOENT := #\8.
EPERM := #\12.
ERANGE := #\20.
(* add more items... *)
}
@ -170,7 +170,7 @@ extend Apex
## ^self ~= nil.
^true.
}
method(#dual) isError
{
^false
@ -300,8 +300,8 @@ extend Error
pooldic/const
{
NONE := error(0).
GENERIC := error(1).
NONE := #\0.
GENERIC := #\1.
}
-------------------------------- *)

View File

@ -123,29 +123,38 @@ class(#limited) Number(Magnitude)
self primitiveFailed.
}
method quo: aNumber
method div: aNumber
{
<primitive: #_integer_quo>
## integer division rounded toward zero
<primitive: #_integer_div>
self primitiveFailed.
}
method rem: aNumber
{
## integer remainder rounded toward zero
<primitive: #_integer_rem>
self primitiveFailed.
}
method // aNumber
method mdiv: aNumber
{
<primitive: #_integer_quo2>
## integer division quotient
<primitive: #_integer_mdiv>
self primitiveFailed.
}
method \\ aNumber
method mod: aNumber
{
<primitive: #_integer_rem2>
## integer division remainder
<primitive: #_integer_mod>
self primitiveFailed.
}
##method / aNumber
##{
## ## fraction? fixed-point decimal? floating-point?
##}
method = aNumber
{