BSD 4_3 development

Work on file usr/contrib/icon/test/distr/std21.out
Work on file usr/contrib/icon/test/distr/std22.out
Work on file usr/contrib/icon/test/distr/std23.out
Work on file usr/contrib/icon/test/distr/std24.out
Work on file usr/contrib/icon/test/distr/std25.out
Work on file usr/contrib/icon/test/distr/std26.out
Work on file usr/contrib/icon/test/distr/std27.out
Work on file usr/contrib/icon/test/distr/std28.out
Work on file usr/contrib/icon/test/distr/std29.out
Work on file usr/contrib/icon/test/distr/std30.out
Work on file usr/contrib/icon/test/distr/std31.out
Work on file usr/contrib/icon/test/distr/std32.out

Synthesized-from: CSRG/cd1/4.3

diff --git a/usr/contrib/icon/test/distr/std21.out b/usr/contrib/icon/test/distr/std21.out
new file mode 100644 (file)
index 0000000..ced1a8d
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std21.out
@@ -0,0 +1,103 @@
+1
+2
+3
+4
+5
+6
+7
+8
+9
+10
+11
+12
+13
+14
+15
+16
+17
+18
+19
+20
+21
+22
+23
+24
+25
+26
+27
+28
+29
+30
+31
+32
+33
+34
+35
+36
+37
+38
+39
+40
+41
+42
+43
+44
+45
+46
+47
+48
+49
+50
+51
+52
+53
+54
+55
+56
+57
+58
+59
+60
+61
+62
+63
+64
+65
+66
+67
+68
+69
+70
+71
+72
+73
+74
+75
+76
+77
+78
+79
+80
+81
+82
+83
+84
+85
+86
+87
+88
+89
+90
+91
+92
+93
+94
+95
+96
+97
+98
+99
+100
+every repl(repl("xxx",50),write(1 to 100)) ----> none
+Run-time error 302 at line 10 in std21.icn
+insufficient storage in string space

diff --git a/usr/contrib/icon/test/distr/std22.out b/usr/contrib/icon/test/distr/std22.out
new file mode 100644 (file)
index 0000000..b1bda7e
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std22.out
@@ -0,0 +1,138 @@
+t := table() ----> table(0)
+every i := 1 to 100 do t[i] := i ----> none
+x := sort(t) ----> list(100)
+1
+2
+3
+4
+5
+6
+7
+8
+9
+10
+11
+12
+13
+14
+15
+16
+17
+18
+19
+20
+21
+22
+23
+24
+25
+26
+27
+28
+29
+30
+31
+32
+33
+34
+35
+36
+37
+38
+39
+40
+41
+42
+43
+44
+45
+46
+47
+48
+49
+50
+51
+52
+53
+54
+55
+56
+57
+58
+59
+60
+61
+62
+63
+64
+65
+66
+67
+68
+69
+70
+71
+72
+73
+74
+75
+76
+77
+78
+79
+80
+81
+82
+83
+84
+85
+86
+87
+88
+89
+90
+91
+92
+93
+94
+95
+96
+97
+98
+99
+100
+every write((!x)[2]) ----> none
+44
+14
+84
+54
+51
+47
+76
+98
+2
+24
+78
+48
+18
+21
+56
+97
+98
+8
+29
+84
+12
+68
+29
+74
+61
+85
+22
+14
+66
+72
+every 1 to 30 do write(?t) ----> none
+Run-time error 115 at line 14 in std22.icn
+list or table expected
+offending value: &cset

diff --git a/usr/contrib/icon/test/distr/std23.out b/usr/contrib/icon/test/distr/std23.out
new file mode 100644 (file)
index 0000000..d15200e
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std23.out
@@ -0,0 +1,45 @@
+x := [] ----> list(0)
+*x ----> 0
+every push(x,1 to 10) ----> none
+10
+9
+8
+7
+6
+5
+4
+3
+2
+1
+every 1 to 10 do write(pop(x)) ----> none
+*x ----> 0
+pop(x) ----> none
+pull(x) ----> none
+get(x) ----> none
+every put(x,1 to 10) ----> none
+1
+2
+3
+4
+5
+6
+7
+8
+9
+10
+every 1 to 10 do write(get(x)) ----> none
+every push(x,1 to 10) ----> none
+1
+2
+3
+4
+5
+6
+7
+8
+9
+10
+every 1 to 10 do write(pull(x)) ----> none
+Run-time error 108 at line 21 in std23.icn
+list expected
+offending value: &null

diff --git a/usr/contrib/icon/test/distr/std24.out b/usr/contrib/icon/test/distr/std24.out
new file mode 100644 (file)
index 0000000..2fb8f90
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std24.out
@@ -0,0 +1,21 @@
+copy(1) ----> 1
+copy(1.0) ----> 1.0
+copy("abc") ----> "abc"
+copy('aabbcc') ----> 'abc'
+copy(main) ----> procedure main
+copy([1,2,3]) ----> list(3)
+copy(table(0)) ----> table(0)
+copy() ----> &null
+copy(&input) ----> &input
+w := copy(write) ----> function write
+function write
+w(image(w)) ----> "function write"
+copy(array()) ----> record array(7)
+copy := copy(copy) ----> function copy
+x := copy(array) ----> record constructor array
+x := x(1,2,3,4,5,6,7) ----> record array(7)
+x[-4] ----> 4
+v := copy(c) ----> &null
+Run-time error 106 at line 26 in std24.icn
+procedure or integer expected
+offending value: &null

diff --git a/usr/contrib/icon/test/distr/std25.out b/usr/contrib/icon/test/distr/std25.out
new file mode 100644 (file)
index 0000000..4770068
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std25.out
@@ -0,0 +1,18 @@
+type(0) ----> "integer"
+type(1.0) ----> "real"
+type("abc") ----> "string"
+type('aba') ----> "cset"
+type() ----> "null"
+type(&null) ----> "null"
+type(&errout) ----> "file"
+type([]) ----> "list"
+type(table()) ----> "table"
+type(main) ----> "procedure"
+type(write) ----> "procedure"
+type(array()) ----> "array"
+type(array) ----> "procedure"
+type(f) ----> "null"
+type(type) ----> "procedure"
+Run-time error 106 at line 24 in std25.icn
+procedure or integer expected
+offending value: "procedure"

diff --git a/usr/contrib/icon/test/distr/std26.out b/usr/contrib/icon/test/distr/std26.out
new file mode 100644 (file)
index 0000000..f49f3ff
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std26.out
@@ -0,0 +1,18 @@
+x := [array(),table(),write,main,[],&input,1,"abc",'aa',2.0,&null,create 1] ----> list(12)
+x := sort(x) ----> list(12)
+&null
+1
+2.0
+"abc"
+'a'
+co-expression(0)
+&input
+function write
+procedure main
+list(0)
+table(0)
+record array(7)
+every write(image(!x)) ----> none
+Run-time error 116 at line 12 in std26.icn
+invalid type to element generator
+offending value: function image

diff --git a/usr/contrib/icon/test/distr/std27.out b/usr/contrib/icon/test/distr/std27.out
new file mode 100644 (file)
index 0000000..1f5d750
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std27.out
@@ -0,0 +1,6 @@
+f := open("foo.baz","w") ----> file(foo.baz)
+write(f,"hello world") ----> "hello world"
+close(f) ----> file(foo.baz)
+system("rm -f foo.baz") ----> 0
+sh: syntax error at line 1: `(' unexpected
+system("system()") ----> 2

diff --git a/usr/contrib/icon/test/distr/std28.out b/usr/contrib/icon/test/distr/std28.out
new file mode 100644 (file)
index 0000000..44f1334
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std28.out
@@ -0,0 +1,3 @@
+image(stop) ----> "function stop"
+stop ----> function stop
+ eginopst

diff --git a/usr/contrib/icon/test/distr/std29.out b/usr/contrib/icon/test/distr/std29.out
new file mode 100644 (file)
index 0000000..eaf326b
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std29.out
@@ -0,0 +1,9 @@
+1
+system("echo 1") ----> 0
+   1 std29.icn
+system("ls -s std29.icn") ----> 0
+no.file: No such file or directory
+system("wc no.file") ----> 0
+Run-time error 210 at line 12 in std29.icn
+argument to system function too long
+offending value: "                ..."

diff --git a/usr/contrib/icon/test/distr/std30.out b/usr/contrib/icon/test/distr/std30.out
new file mode 100644 (file)
index 0000000..331bc23
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std30.out
@@ -0,0 +1,24 @@
+numeric(2) ----> 2
+numeric(2.0) ----> 2.0
+numeric(2.7) ----> 2.7
+numeric(2) ----> 2
+numeric(+2) ----> 2
+numeric(-2) ----> -2
+numeric() ----> none
+numeric(.3) ----> 3
+numeric(0.3) ----> 0.3
+numeric(e2) ----> none
+numeric(22222222222222222222222222222222222222222222222222222222222) ----> -1908874354
+numeric(3e500) ----> 3.0
+numeric(7r4) ----> 4
+numeric(16rff) ----> 255
+numeric(36rcat) ----> 15941
+numeric(36Rcat) ----> 15941
+numeric(36rCAT) ----> 15941
+numeric(2r0) ----> 0
+numeric(+-2) ----> -2
+numeric(++2) ----> 2
+numeric(--2) ----> 2
+Run-time error 103 at line 30 in std30.icn
+string expected
+offending value: function numeric

diff --git a/usr/contrib/icon/test/distr/std31.out b/usr/contrib/icon/test/distr/std31.out
new file mode 100644 (file)
index 0000000..7314df3
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std31.out
@@ -0,0 +1,16 @@
+x := [1,2,3,4,5,6,7,8,9,0] ----> list(10)
+list(10)
+list(9)
+list(8)
+list(7)
+list(6)
+list(5)
+list(4)
+list(3)
+list(2)
+list(1)
+list(0)
+every write(image(x[1:0 to -20 by -1])) ----> none
+Run-time error 101 at line 11 in std31.icn
+integer expected
+offending value: "a"

diff --git a/usr/contrib/icon/test/distr/std32.out b/usr/contrib/icon/test/distr/std32.out
new file mode 100644 (file)
index 0000000..7c17cfc
--- /dev/null
+++ b/usr/contrib/icon/test/distr/std32.out
@@ -0,0 +1,8 @@
+100 - - 4 ----> 104
+100 --4 ----> '01'
+100- - 4 ----> 104
+100 -- 4 ----> '01'
+100 - -4 ----> 104
+Run-time error 102 at line 14 in std32.icn
+numeric expected
+offending value: &null