Return to expr33.out CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests / stand

researchv10 Dan Cross

r := array(1,2,3,4,5,6,7,8,9) ----> record array(7)
r.a ----> 1
r.b ----> 2
r.c ----> 3
r.d ----> 4
r.e ----> 5
r.f ----> 6
type(r) ----> "array"
image(r) ----> "record array(7)"
r.a +:= 0.0 ----> 1.0
r.b +:= 0.0 ----> 2.0
r.c +:= 0.0 ----> 3.0
r.d +:= 0.0 ----> 4.0
r.e +:= 0.0 ----> 5.0
r.f +:= 0.0 ----> 6.0
r.a ----> 1.0
r.b ----> 2.0
r.c ----> 3.0
r.d ----> 4.0
r.e ----> 5.0
r.f ----> 6.0
r := array("a",2,3.5,array(),r,main) ----> record array(7)
"a"
2
3.5
record array(7)
record array(7)
procedure main
&null
every write(image(!r)) ----> none
r[1] :=: r.d ----> record array(7)
record array(7)
2
3.5
"a"
record array(7)
procedure main
&null
every write(image(!r)) ----> none
Run-time error 101 at line 34 in expr33.icn
integer expected
offending value: record array(record array(7),2,3.5,"a",record array(7),procedure main,)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.