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
101
102
103
104
105
106
107
108
109
110
111
112
113
|
diff -uprN icon.v943src_base/tests/general/io.icn icon.v943src/tests/general/io.icn
--- icon.v943src_base/tests/general/io.icn 2002-03-11 14:21:18.000000000 -0700
+++ icon.v943src/tests/general/io.icn 2006-04-01 10:35:14.590948251 -0700
@@ -6,7 +6,7 @@ procedure main()
local L, f, m, n, t1, t2
L := [&input, &output, &errout,
- m := open("/etc/motd") | stop("no /etc/motd"),
+ m := open("/etc/gentoo-release") | stop("no /etc/gentoo-release"),
n := open("/dev/null", "w") | stop("no /dev/null")]
L := sort(L)
every f := !L do
@@ -21,10 +21,10 @@ procedure main()
every write(!&input) \ 2
write()
- write("flush /etc/motd: ", image(flush(m)) | "FAILED")
- write("close /etc/motd: ", image(close(m)) | "FAILED")
- write("close /etc/motd: ", image(close(m)) | "FAILED")
- write("flush /etc/motd: ", image(flush(m)) | "FAILED")
+ write("flush /etc/gentoo-release: ", image(flush(m)) | "FAILED")
+ write("close /etc/gentoo-release: ", image(close(m)) | "FAILED")
+ write("close /etc/gentoo-release: ", image(close(m)) | "FAILED")
+ write("flush /etc/gentoo-release: ", image(flush(m)) | "FAILED")
write()
write("flush /dev/null: ", image(flush(n)) | "FAILED")
diff -uprN icon.v943src_base/tests/general/io.std icon.v943src/tests/general/io.std
--- icon.v943src_base/tests/general/io.std 2002-03-11 14:21:18.000000000 -0700
+++ icon.v943src/tests/general/io.std 2006-04-01 10:35:31.071362086 -0700
@@ -2,7 +2,7 @@ file: &errout
file: &input
file: &output
file: file(/dev/null)
-file: file(/etc/motd)
+file: file(/etc/gentoo-release)
aaa
bbbb
@@ -13,10 +13,10 @@ ffffffff
ggggggggg
hhhhhhhhhh
-flush /etc/motd: file(/etc/motd)
-close /etc/motd: file(/etc/motd)
-close /etc/motd: file(/etc/motd)
-flush /etc/motd: file(/etc/motd)
+flush /etc/gentoo-release: file(/etc/gentoo-release)
+close /etc/gentoo-release: file(/etc/gentoo-release)
+close /etc/gentoo-release: file(/etc/gentoo-release)
+flush /etc/gentoo-release: file(/etc/gentoo-release)
flush /dev/null: file(/dev/null)
close /dev/null: file(/dev/null)
@@ -109,7 +109,7 @@ file(sed 's/^/=()= /' io.icn)
> =()= local L, f, m, n, t1, t2
> =()=
> =()= L := [&input, &output, &errout,
-> =()= m := open("/etc/motd") | stop("no /etc/motd"),
+> =()= m := open("/etc/gentoo-release") | stop("no /etc/gentoo-release"),
> =()= n := open("/dev/null", "w") | stop("no /dev/null")]
file(ls io.i?n io.d?t io.s?d)
diff -uprN icon.v943src_base/tests/general/kwds.std icon.v943src/tests/general/kwds.std
--- icon.v943src_base/tests/general/kwds.std 2002-07-10 18:29:28.000000000 -0600
+++ icon.v943src/tests/general/kwds.std 2006-04-01 10:35:37.103317654 -0700
@@ -20,8 +20,10 @@
&features: ASCII
&features: co-expressions
&features: environment variables
+ &features: event monitoring
&features: keyboard functions
&features: large integers
+ &features: multiple programs
&features: pipes
&features: system function
&input: &input
diff -uprN icon.v943src_base/tests/general/nargs.std icon.v943src/tests/general/nargs.std
--- icon.v943src_base/tests/general/nargs.std 2001-12-06 15:54:01.000000000 -0700
+++ icon.v943src/tests/general/nargs.std 2006-04-01 10:35:43.282223496 -0700
@@ -15,7 +15,7 @@
1 delay
2 delete
-2 detab
- 2 display
+ 3 display
1 dtor
-2 entab
0 errorclear
@@ -43,12 +43,12 @@
4 match
2 member
1 move
- 1 name
+ 2 name
1 numeric
1 ord
1 pop
1 pos
- 2 proc
+ 3 proc
1 pull
-2 push
-2 put
@@ -79,7 +79,7 @@
2 trim
1 type
4 upto
- 1 variable
+ 3 variable
1 where
-1 write
-1 writes
|
GitWeb