DECIMAL

: ?? ( n1 n2 -- ) <> IF cr abort" test failed" THEN ;

DECIMAL


var  x

33 x !:    x @:  33 ??

3 x +:    x @:  36 ?? 



5 dicArray  a

77 3 a to:   a size:  5 ??


 3 a at:  77 ?? 


0 a fill:
45 2 a to:


: test begin a each: while  repeat ;

 test  0 ?? 0 ?? 45 ?? 0 ?? 0 ??

: v heap> var ;


v 0 a to:
v 1 a to:
v 2 a to:
v 3 a to:
v 4 a to:


: test2 begin a each: while @: repeat ;


 test2  0 ?? 0 ?? 0 ?? 0 ?? 0 ??



: add2 ( var-obj -- )
  2 swap +: ;

: test3 begin a each: while add2 repeat ; 


 test3 test2  2 ?? 2 ?? 2 ?? 2 ?? 2 ??

 test3 test2  4 ?? 4 ?? 4 ?? 4 ?? 4 ??


: test4 begin a each: while <free repeat ; test4



array  b
3 b new:


10 0 b to:
20 1 b to:
30 2 b to:


: test5 begin b each: while repeat ;


 test5  30 ?? 20 ?? 10 ??


5 b resize:


99 b fill:


 0 b at:  4 b at:  99 ?? 99 ??


b free:


\ prior.stream

string+  s
 s" Now is" s new:  s"  the time" s add: s @: s" Now is the time" compare  0 ??


s free:



string+  s2
s" Now is the time for all" s2 new:


 s"  all" s2 search:  -1 ??


 s2 delete:  


 s"  all" s2 search:  0 ??


 s2 reset:  


 s"  for" s2 search:  -1 ??


 s2 delete:  


 s2 @: s" Now is the time" compare  0 ??


s2 free:



25 xstring  xs

s" Now" xs !:

s"  is the tim" xs add:

char e xs +:

 xs @: s" Now is the time" compare  0 ??



:class point 
  var x
  var y
  :m show:
         x p:  \ access ivar via message
         y @ . \ access ivar via methodless means
        ;m 
  :m dot: ." Point at "  [self] show: ;m
\  :m dot: ." Point at "  self show: ;m \ alternative that will affect objects of class label-point
;class 

point  origin


\ methodless ivar access
5 origin iv x !
8 origin iv y !


: test55 origin [iv] x @ ;

 test55  5 ??



: test6 origin [iv] y @ ;

 test6  8 ?? 

cr
origin dot:  \  =>  Point at 5 8 


\ object arrays
5 objArray() point points()
55  0 points() iv x !
88  0 points() iv y !
cr
0 points() dot:   \ => Point at 55 88 
cr
4 points() dot:   \ => Point at 0 0 



:class rectangle  
  point ul
  point lr
  :m show:  ul dot:   lr dot: ;m
  :m dot: ." Rectangle, "  self show: ;m
;class 

rectangle  r

cr
r dot: \ => Rectangle, Point at 0 0 Point at 0 0


:class label-point <super point
  :m show: ." X"  x @ .  ." Y"  y @ .  ;m
;class 

label-point  poo


cr
poo dot: \ =>  Point at X0 Y0  \ proof that show: is late-bound in class point

5 ordered-col+  c


10 20 30 40 4 c set:


 0 c at:  10 ??

 c last:  40 ??

 30 c search:  -1 ?? 2 ??

2 c delete:


: test7 begin c each: while repeat ;


 test7  40 ?? 20 ?? 10 ??


 50 c add: test7  50 ?? 40 ?? 20 ?? 10 ??


 c first:  10 ??


 c removeFirst: test7  50 ?? 40 ?? 20 ??


 5 c addFirst: test7  50 ?? 40 ?? 20 ?? 5 ??


 c sum:  115 ??


 c max:  50 ??


 c min:  5 ??


 5 c add: test7  5 ?? 50 ?? 40 ?? 20 ?? 5 ??


 5 c occurrencesOf:  2 ??


 60 c occurrencesOf:  0 ??


: test8 30 < ;


 ' test8 c conform:  0 ??  \ all elements do not conform


: test9 60 < ;


 ' test9 c conform:  -1 ??  \ all elements do conform


' test8 c accept: value acc  \ a new collection whose elements pass accept: test


: test10 begin acc each: while  repeat ;


 test10  5 ?? 20 ?? 5 ??


acc <free


: test11 2 + ;



' test11 c collect: value coll  \ a new collection transformed by collect:



: test12 begin coll each: while  repeat ;


 test12  7 ?? 52 ?? 42 ?? 22 ?? 7 ??



coll <free



cr .( FMS+30d Tests are Complete )